通达信相对大盘主图指标(源码)

ZQ:=220;
P1:=CONST(LLV(INDEXL,ZQ));PC:=CONST(HHV(INDEXH,ZQ))-P1;
J1:=CONST(LLV(L,ZQ)); JC:=CONST(HHV(H,ZQ))-J1;
JPB:=JC/PC;
LX:=J1+(INDEXL-P1)*JPB;
HX:=J1+(INDEXH-P1)*JPB;
OX:=J1+(INDEXO-P1)*JPB;
CX:=J1+(INDEXC-P1)*JPB;
STICKLINE(OX<=CX,HX,LX,0,0),COLOR660066;
STICKLINE(OX<=CX,OX,CX,2,1),COLOR660066;
STICKLINE(OX>CX ,HX,LX,0,0),COLOR8A0000;
STICKLINE(OX>CX,OX,CX,2,0),COLOR8A0000;
STICKLINE(L>REF(H,1) ,REF(H,1),L,9,-1),COLORFD00DF;
STICKLINE(H<REF(L,1) ,REF(L,1),H,9,-1),COLORFDFD00;
EXP1:EXPMA(CLOSE,5);