通达信短线速利指标公式源码副图

海面:20;
界线:50;
天际:80;
DSRSV1:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*60;{(收盘价-27天内最底价)/(27天内最高价-27天内最底价)*60}
DSK1:=SMA(DSRSV1,5,1);{RS1的5日移动平均}
DSD1:=SMA(DSK1,5,1);{K1的5日移动平均}
DSJ1:=3*DSK1-2*DSD1;
DSAA1:=EMA(DSJ1,5);{J1的5日指数平滑均价}
DSAA2:=REF(DSAA1,1);{前一天的DSAA1}
STICKLINE(DSAA1>DSAA2,DSAA1,DSAA2,20/3,0),COLOR000045;
STICKLINE(DSAA1>DSAA2,DSAA1,DSAA2,16/3,0),COLOR000085;
STICKLINE(DSAA1>DSAA2,DSAA1,DSAA2,12/3,0),COLOR0000C5;
STICKLINE(DSAA1>DSAA2,DSAA1,DSAA2,10/3,0),COLOR0000E5;
STICKLINE(DSAA1<DSAA2,DSAA1,DSAA2,20/3,0),COLOR353500;
STICKLINE(DSAA1<DSAA2,DSAA1,DSAA2,16/3,0),COLOR555500;
STICKLINE(DSAA1<DSAA2,DSAA1,DSAA2,12/3,0),COLOR757500;
STICKLINE(DSAA1<DSAA2,DSAA1,DSAA2,10/3,0),COLOR858500;
DRAWICON( FILTER(REF(DSAA1,0)<=REF(DSAA2,0)AND REF(DSAA1,1)<=REF(DSAA2,1)AND DSAA1>=50 AND DSAA2>=50,10),DSAA1+0.4,2);
{短线速利指标}
{二阶甄察}
上线:=天际;
设值:=(HIGH+LOW+CLOSE)/3;
日均线:=(设值-MA(设值,70))/(0.015*AVEDEV(设值,70))*0.5;
即变线:=100*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60));
下探:=(CLOSE-LLV(LOW,6))/(HHV(HIGH,6)-LLV(LOW,6))*30;
反探1:=SMA(下探,3,1);
反探2:=SMA(反探1,3,1);
反阶:=-3*反探1-2*反探2;
反引:=EMA(反阶,2);
STICKLINE(即变线>上线,即变线,上线,10/3,0),COLORFFCC00;
STICKLINE(-80>日均线,50,46,10/3,0),COLORFF0400;
{二阶甄察};
{切割}
XX_1:=EMA(CLOSE,12)-EMA(CLOSE,26);
XX_2:=EMA(XX_1,9);
XX_3:=2*(XX_1-XX_2);
XX_4:=1.25*XX_1-0.25*XX_2;
XX_5:=(XX_4*13*27-27*11*EMA(CLOSE,12)+13*25*EMA(CLOSE,26))/28;
XX_6:=(XX_1*13*27-27*11*EMA(CLOSE,12)+13*25*EMA(CLOSE,26))/28;
XX_7:=(XX_2*13*27-27*11*EMA(CLOSE,12)+13*25*EMA(CLOSE,26))/28;
XX_8:=(XX_5+XX_7)/2;
XX_9:=ATAN((XX_6-REF(XX_6,1))/REF(XX_6,1)*100)*180/3.14159;
XX_10:=XX_5;
XX_11:=XX_6;
XX_12:=XX_8;
XX_13:=XX_7;
XX_14:=EMA(XX_12,1);
切割:=XX_14>XX_13;
{切割};
{控盘}
AX_1:=EMA(CLOSE,12)-EMA(CLOSE,26);
AX_2:=EMA(AX_1,9);
AX_3:=AX_1>AX_2;
AX_4:=(CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12))*100;
AX_5:=SMA(AX_4,3,1);
AX_6:=SMA(AX_5,3,1);
AX_7:=AX_5>AX_6;
AX_8:=REF(CLOSE,1);
AX_9:=SMA(MAX(CLOSE-AX_8,0),9,1)/SMA(Abs(CLOSE-AX_8),9,1)*100;
AX_10:=SMA(MAX(CLOSE-AX_8,0),26,1)/SMA(ABS(CLOSE-AX_8),26,1)*100;
AX_11:=AX_9>AX_10;
AX_12:=SMA(AX_4,3,1);
AX_13:=SMA(AX_12,3,1);
AX_14:=AX_12>AX_13;
AX_15:=(MA(CLOSE,3)+MA(CLOSE,9)+MA(CLOSE,12)+MA(CLOSE,26))/4;
AX_16:=CLOSE>AX_15;
AX_17:=CLOSE-REF(CLOSE,1);
AX_18:=100*EMA(EMA(AX_17,9),9)/EMA(EMA(ABS(AX_17),9),3);
AX_19:=100*EMA(EMA(AX_17,26),12)/EMA(EMA(ABS(AX_17),26),12);
AX_20:=AX_18>AX_19;
AX_21:=DMA((HIGH+LOW+CLOSE*2)/4,0.9);
AX_22:=REF(EMA(AX_21,3),1);
AX_23:=vol/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
AX_24:=IF(CLOSE>OPEN,AX_23*(HIGH-LOW),IF(CLOSE< OPEN,AX_23*(HIGH-OPEN+CLOSE-LOW),VOL/2))+IF(CLOSE>OPEN,0-AX_23*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE< OPEN,0-AX_23*(HIGH-LOW),0-VOL/2));
AX_25:=AX_24/20/1.15;
AX_26:=AX_25*0.55+REF(AX_25,1)*0.33+REF(AX_25,2)*0.22;
AX_27:=EMA(AX_26,8);
AX_28:=EMA(AX_26,3);
AX_29:=AX_28;
AX_30:=VOL;
AX_31:=MA(AX_30,5);
AX_32:=MA(AX_30,10);
AX_33:=AX_31>=AX_32;
AX_34:=AX_29>=0;
AX_35:=AX_34 AND AX_33;
AX_36:=MA("kdj.K"(54,9,12)#WEEK,5);
AX_37:=EMA(CLOSE,12/2)-EMA(CLOSE,26/2);
AX_38:=EMA(AX_37,9/2);
AX_39:=AX_36>=REF(AX_36,1) AND AX_37>=AX_38;
DRAWICON(AX_39,50,13);
AX_40:=AX_39 OR AX_35;
AX_41:=AX_3 AND AX_7 AND AX_11 AND AX_14 AND AX_16 AND AX_20;
AX_42:=COST(50)*COST(50)/COST(80);
AX_43:=COST(40)*COST(40)/COST(60);
AX_44:=AX_43-AX_42;
AX_45:=AX_44>0 AND CLOSE>AX_43;
AX_46:=AX_44< 0 AND CLOSE>AX_42;
AX_47:=AX_45 OR AX_46 OR (AX_45 AND AX_46);
AX_48:=AX_47=0 OR (AX_44>0 AND CLOSE>AX_43 AND CLOSE< MA(CLOSE,10)) OR (AX_44< 0 AND CLOSE>AX_42 AND CLOSE< MA(CLOSE,5));
AX_49:=AX_47 AND REF(AX_48,1);
AX_50:=AX_48 AND REF(AX_47,1);
DRAWICON(AX_47 OR AX_41 AND REF(AX_47 OR AX_41,1)=0 AND AX_40,1,7);
AX_51:=(HIGH+LOW+CLOSE*2)/4;
AX_52:=EMA(AX_51,17);
AX_53:=STD(AX_51,17);
AX_54:=((AX_51-AX_52)/AX_53*100+200)/4;
AX_55:=(EMA(AX_54,5)-25)*1.56;
AX_56:=EMA(AX_55,2)*1.22;
AX_57:=EMA(AX_56,2);
STICKLINE(AX_56-AX_57>0,-17,-22,9/3,0),COLORRED;
STICKLINE(AX_56-AX_57< 0,-17,-22,9/3,0),COLOR858500;
STICKLINE(AX_56-AX_57>0 AND REF(AX_56-AX_57< 0,1) AND AX_39 AND AX_47 OR AX_41 AND REF(AX_47 OR AX_41,1)=0 AND AX_40 ,-17,-22,9/3,0),COLORDD2084;
STICKLINE(AX_56-AX_57>0 AND REF(AX_56-AX_57< 0,1),-17,-22,9/3,0),COLOR000099;
STICKLINE(AX_56-AX_57>0 AND REF(AX_56-AX_57< 0,1),-17,-22,8/3,0),COLOR0000CC;
STICKLINE(AX_56-AX_57>0 AND REF(AX_56-AX_57< 0,1),-17,-22,7.5/3,0),COLORRED;
STICKLINE(AX_56-AX_57>0 AND REF(AX_56-AX_57< 0,1),-17,-22,5.5/3,0),COLOR00FFFF;
STICKLINE(AX_56-AX_57>0 AND REF(AX_56-AX_57< 0,1) AND DSAA1>DSAA2,-17,-22,5.5/3,0),COLOR00FFFF;
STICKLINE(AX_56-AX_57>0 AND REF(AX_56-AX_57< 0,1) AND C>MA(C,13),-17,-22,5.5/3,0),COLOR00FFFF;
STICKLINE(AX_56-AX_57>0 AND REF(AX_56-AX_57< 0,1) AND FILTER(REF(DSAA1,0)<=REF(DSAA2,0)AND REF(DSAA1,1)<=REF(DSAA2,1)AND DSAA1>=50 AND DSAA2>=50,10),-17,-22,5.5/3,0),COLOR00FFFF;
STICKLINE(AX_56-AX_57>0 AND AX_56-AX_57< REF(AX_56-AX_57,1) AND AX_57>110,-17,-22,9/3,0),COLORE786C6;
{控盘}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D ;
DRAWICON(K>80 AND D>80 AND crOSS(D,K) AND FILTER(REF(DSAA1,0)<=REF(DSAA2,0)AND REF(DSAA1,1)<=REF(DSAA2,1)AND DSAA1>=50 AND DSAA2>=50,10) ,D,15);
切割X:IF(切割 AND AX_39 ,80,DRAWNULL),;