通达信指标公式源码 群雄争霸分时主图指标.docVIP

DRAWGBK(1,RGB(0,0,0),RGB(1,1,1),1,0,0);VR1:=1270915;VR2:=1270920;VR3:=IF(DATEVR1,IF(CLOSE80,1,0),0);VR4:=IF(DATEVR2,1,VR3);P2:=IF(VR3=1,0,240);TC1:=IF(H=HHV(H,P2),C,DRAWNULL);TC2:=CONST(BARSLAST(TC1=H))+1;UPPER:=CONST(IF(TC2=1,C,REF(C,TC2-1)));BC1:=IF(L=LLV(L,P2),C,DRAWNULL);BC2:=CONST(BARSLAST(BC1=L))+1;LOWER:=CONST(IF(BC2=1,C,REF(C,BC2-1)));NOD:=(IF(TC2BC2,TC2,BC2)-IF(TC2BC2,BC2,TC2));{用时}LR1:=FORCAST(C,NOD+1);{好}?NP:=IF(CURRBARSCOUNT=MAX(BC2,TC2),CONST(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1))),DRAWNULL),POINTDOT,COLORLIGRAY;{近点}LR2:=SLOPE(C,NOD+1);LR3:=CONST(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)));FP:=NP-LR3*(NOD),POINTDOT,COLORGRAY;{远点}EQU:=(NP+FP)/2,POINTDOT,COLOR0000FF;AD:=ABS(NP-FP);{高差};DBL:=BARSLAST(BC1!=DRAWNULL)+1;DBH:=BARSLAST(TC1!=DRAWNULL)+1;BSP:=IF(BC2TC2,DBL,DBH)-1;LRL:=IF(NPFP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND HLRL,H,LRL);AT2:=HHV(AT1-LRL,MAX(BC2,TC2));AT3:=CONST(BARSLAST(AT1-LRL=AT2));AT4:=CONST(IF(AT3=0,H,REF(H,AT3)));AT5:=CONST(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)));ATL:=LRL+AT5;UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND LLRL,L,LRL);UT2:=HHV(LRL-UT1,MAX(BC2,TC2));UT3:=CONST(BARSLAST(LRL-UT1=UT2));UT4:=CONST(IF(UT3=0,H,REF(H,UT3)));UT5:=CONST(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)));UTL:=LRL-UT5;RH:=IF(CURRBARSCOUNT=MIN(BC2,TC2)-10,ATL,CONST(REF(ATL,MIN(BC2,TC2)-11)));{限制高}RL:=IF(CURRBARSCOUNT=MIN(BC2,TC2)-10,UTL,CONST(REF(UTL,MIN(BC2,TC2)-11)));{限制低}中轨2:=IF(NPFP,IF(LRL=RH,LRL,DRAWNULL),IF(LRL=RL,LRL,DRAWNULL)),COLORBLUE,,DOTLINE;上轨2:=IF(NPFP,IF(ATL=RH,ATL,DRAWNULL),IF(ATL=RL,ATL,DRAWNULL)),COLORMAGENTA,,DOTLINE;下轨2:=IF(NPFP,IF(UTL=RH,UTL,DRAWNULL),IF(UTL=RL,UTL,DRAWNULL)),COLOR00EE00,,DOTLINE;T30:=IF(BARSSINCE(C0)=30,1,0);{画线}{IF(T30 AND 上轨2REF(上轨2,2),上轨2,DRAWNULL),COLOR660066;IF(T30 AND 中轨2REF(中轨2,2),中轨2,DRAWNULL),COLOR660066;IF(T30 AND 下轨2REF(下轨2,2),下轨2,DRAWNULL),COLOR660066;IF(T30 AND 上轨2=REF(上轨2,2),上轨2,DRAWNULL),COLOR999900;IF(T30 AND 中轨2=REF(中轨2,2),中轨2