提供源码给大家测试，希望多提大家改进意见。淘宝网高价有售，希望别拿去销售。
{提刀机构}
VAR1:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
VAR2:=SMA(VAR1,3,1);
VAR3:=SMA(VAR2,3,1);
VAR4:=3*VAR2-2*VAR3;
VAR5:=CROSS(VAR4,VAR2) AND VAR2<20;
VAR6:=CROSS(VAR2,VAR4) AND VAR2>80;
提刀机构:IF(VAR5,50,0),COLORRED,LINETHICK2;
DRAWTEXT(提刀机构>0,45,'提刀'),COLORRED;
DRAWTEXT(VAR6,55,'机构'),COLORGREEN;
{财神送宝}
N:=14;
M:=6;
VAR1A:=CLOSE-REF(CLOSE,1);
VAR2A:=100*EMA(EMA(VAR1A,N),N)/EMA(EMA(ABS(VAR1A),N),N);
MA1:=MA(VAR2A,M);
财神送宝:CROSS(VAR2A,MA1) AND VAR2A<-10,COLORYELLOW;
DRAWTEXT(财神送宝,0.8,'财神'),COLORYELLOW;
{指标3}
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;
指标3:CROSS(J,K) AND J<20,COLORRED;
{指标4}
VAR1B:=EMA(CLOSE,12)-EMA(CLOSE,26);
VAR2B:=EMA(VAR1B,9);
MACD:=2*(VAR1B-VAR2B);
指标4:CROSS(MACD,0) AND REF(MACD,1)<0,COLORMAGENTA;
{指标5}
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
指标5:CROSS(MA5,MA10) AND CLOSE>MA5,COLORWHITE;
{指标6}
VAR1C:=HHV(HIGH,30);
VAR2C:=LLV(LOW,30);
VAR3C:=EMA((CLOSE-VAR2C)/(VAR1C-VAR2C)*100,5);
指标6:CROSS(VAR3C,20),COLORLIBLUE;
{指标7}
RSI1:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;
指标7:CROSS(RSI1,20),COLORCYAN;
{指标8}
VAR1D:=VOL/CAPITAL*100;
VAR2D:=MA(VAR1D,5);
指标8:CROSS(VAR1D,VAR2D) AND VAR1D>2,COLORLIRED;
{指标9}
VAR1E:=CLOSE>OPEN;
VAR2E:=VOL>REF(VOL,1)*1.5;
指标9:VAR1E AND VAR2E AND CLOSE>MA(CLOSE,20),COLORRED;
{指标10}
VAR1F:=REF(CLOSE,1);
VAR2F:=SMA(MAX(CLOSE-VAR1F,0),12,1)/SMA(ABS(CLOSE-VAR1F),12,1)*100;
指标10:CROSS(VAR2F,30),COLORGREEN;
{指标11}
VAR1G:=EMA(CLOSE,12);
VAR2G:=EMA(CLOSE,26);
VAR3G:=VAR1G-VAR2G;
指标11:CROSS(VAR3G,0),COLORLIGRAY;
{指标12}
VAR1H:=MA(CLOSE,10);
VAR2H:=MA(CLOSE,30);
指标12:CROSS(VAR1H,VAR2H),COLORBROWN;
{指标13}
VAR1I:=CLOSE/REF(CLOSE,1)>1.05;
VAR2I:=VOL>REF(VOL,1)*2;
指标13:VAR1I AND VAR2I,COLORLIRED;
{指标14}
VAR1J:=ATAN((MA(CLOSE,5)/REF(MA(CLOSE,5),1)-1)*100)*180/3.1416;
指标14:VAR1J>45,COLORLIGREEN;
{指标15}
VAR1K:=CLOSE>OPEN AND CLOSE>MA(CLOSE,30);
VAR2K:=VOL<MA(VOL,5);
指标15:VAR1K AND VAR2K,COLORLIMAGENTA;
{指标16}
VAR1L:=EMA(CLOSE,6);
VAR2L:=EMA(CLOSE,18);
指标16:CROSS(VAR1L,VAR2L),COLORLIRED;
{指标17}
VAR1M:=REF(CLOSE,1);
VAR2M:=SMA(MAX(CLOSE-VAR1M,0),7,1)/SMA(ABS(CLOSE-VAR1M),7,1)*100;
指标17:CROSS(VAR2M,80),COLORBLUE;
{指标18}
VAR1N:=MA(CLOSE,20);
VAR2N:=STD(CLOSE,20);
VAR3N:=(CLOSE-VAR1N)/VAR2N;
指标18:CROSS(VAR3N,2),COLORWHITE;
