指标源码:
PPSCM:=EMA(WINNER(CLOSE)*70,3); SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3); ZSHTL:=SHCM/(PPSCM+SHCM)*100; TTSLKP:=PPSCM/(PPSCM+SHCM)*100; ZCMPPS:=MA(PPSCM+SHCM,13); TTSNTS:=BARSLAST(ZSHTL< 90&&REF(ZSHTL,1)>90); ZSHJJ:=EMA(ZSHTL,89); TTSLJJ:=EMA(TTSLKP,89); ZJLRQD:=INTPART(TTSLKP-TTSLJJ); SH8:=EMA(ZSHTL,8); DKB:=IF(TTSLKP-REF(TTSLKP,1)>ZSHTL-REF(ZSHTL,1),1,0); STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,2,0),COLOR00FF00; STICKLINE(TTSLJJ>REF(TTSLJJ,1),TTSLKP,TTSLJJ,2,0),COLORRED; TTSLJJ>REF(TTSLJJ,1)>0,COLORRED; INTPART(ZSHTL),COLORCYAN,LINETHICK1; INTPART(TTSLKP),COLORWHITE,LINETHICK1; GSPTZ1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; GSPTZ4:=(CLOSE-LLV(LOW,89))/(HHV(HIGH,89)-LLV(LOW,89))*100; DUANQB:=SMA(GSPTZ1,3,1); DUANQA:=SMA(DUANQB,3,1); K4:=SMA(GSPTZ4,8,1); ZHONGMA:SMA(K4,3,1),LINETHICK0,COLORWHITE; GSPTV1:=SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,5,1); GSPTV2:=SMA(GSPTV1,3,1); GSPTV3:=3*GSPTV1-2*GSPTV2; QUHISZB:=EMA(GSPTV3,3); GSPTV4:=(QUHISZB-REF(QUHISZB,1))/REF(QUHISZB,1)*100; SSTZ1:IF(QUHISZB< 13,1,0),LINETHICK0,COLORCYAN; SSTZ2:IF(QUHISZB< 13&&GSPTV4>13,1,0),LINETHICK0,COLORYELLOW; GSPT1:=(CLOSE*2+HIGH+LOW)/4*10; GSPT2:=EMA(GSPT1,13); GSPT3:=EMA(GSPT1,34); NN:=0; GSPT4:=GSPT2-GSPT3; GSPT5:=EMA(GSPT4,5); GSPT6:=2*(GSPT4-GSPT5)*5.5; ZHUJX:IF(GSPT6>=0&&QUHISZB< 13,1,0),LINETHICK0,COLORFF00FF; ZHUANZ:=IF(REF(ZHONGMA,1)< REF(ZHONGMA,2)&&ZHONGMA>REF(ZHONGMA,1),1,0); CHAODI:IF(SSTZ2=1&&ZHUJX=1&&ZHONGMA>REF(ZHONGMA,1),1,0),COLORRED,LINETHICK0; DUANBD:IF((ZHUANZ=1&&DUANQB>=DUANQA)||(REF(DUANQB,1)< REF(DUANQA,1)&&DUANQB>=DUANQA&&ZHONGMA>REF(ZHONGMA,1)),1,0),LINETHICK0,COLOR0080EF; STICKLINE(DUANQB>=DUANQA,DUANQA,REF(DUANQA,1),3,0),COLOR0080EF; STICKLINE(DUANQB< DUANQA,DUANQA,REF(DUANQA,1),3,0),COLORFF6600; DRAWICON(CHAODI=1,REF(DUANQA,1),1); DRAWICON(DUANBD=1&&CHAODI=0,REF(DUANQA,1),7); SMA(K4,3,1),COLORGREEN,LINETHICK3; IF(ZHONGMA>REF(ZHONGMA,1),ZHONGMA,DRAWNULL),LINETHICK3,COLORRED; STICKLINE(SSTZ1=1,3,-2,5,0),COLORCYAN; STICKLINE(SSTZ2=1,10,-2,5,0),COLORYELLOW; STICKLINE(ZHUJX=1&&SSTZ2=1,6,-2,5,0),COLORFF00FF; ZJLRQD,LINETHICK2,COLORRED; INTPART(ZCMPPS),COLORWHITE,NODRAW;
|