分享

通达信防洗测底(源码)

 yz18yn 2010-07-03
防洗测底效果图
 

防洗测底源码如下:
N:=34;m:=3;
VARO5:=LLV(LOW,27);
VARO6:=HHV(HIGH,34);
VARO7:=EMA((CLOSE-VARO5)/(VARO6-VARO5)*4,4)*25;
建仓区: IF((VARO7<10),120,128) ,LINETHICK1,COLORYELLOW;

CD1:=(HHV(H,9)-C)/(HHV(H,9)-LLV(L,9))-0.7;
CD2:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9));
CD3:=SMA(SMA(CD2,3,1),3,1);
CD4:=(CD3-SMA(CD1,9,1))-0.5;
CD5:=IF(CD4>0.00,CD4,0.00);
VAR81:=MA(C,9),COLORRED;


CD6:=REF(CD5,1);

空头1:=IF(CD6-CD5,CD6,CD5),LINETHICK3,COLORGREEN;
减仓空仓:CROSS(CD6,CD5),COLORGREEN;
DRAWICON(减仓空仓>0,108,2);

 

风险线:108,COLORGREEN;

红色持股:0,COLORRED;
绿色空仓:0,COLORGREEN;


VAR1:=HHV(HIGH,5);
VAR2:=LLV(LOW,5);
VAR3:=REF(CLOSE,2);
VAR4:=((SMA(MAX(CLOSE-VAR3,0),7,1))/(SMA(ABS(CLOSE-VAR3),7,1)))*(100);
DRAWTEXT((VAR4<REF(VAR4,1)) AND (VAR4>79),108,'▼'),COLOR00F200;
VAR5:=((CLOSE-LLV(LOW,80))/(HHV(HIGH,80)-LLV(LOW,80)))*(200);
VARA:=SMA(VAR5,3,1);
VARB:=SMA(VARA,3,1);
VARC:=(3)*(VARA)-(2)*(VARB);
VARD:=LLV(LOW,5);
VARE:=HHV(HIGH,5);
VARF:=(EMA(((CLOSE-VARD)/(VARE-VARD))*(100),4))*(2);
VAR6:=EMA((0.66699999)*(REF(VARF,1))+(0.333)*(VARF),2);
VAR7:=(3)*(VARF)-(2)*(VAR6);
VAR8:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);
VAR9:=POW(MA(LOW,5),2)+MA(LOW,5);
VAR10:=POW(MA(HIGH,5),2)+MA(HIGH,5);
VAR11:=((VAR8-LLV(VAR9,64))/(HHV(VAR10,64)-LLV(VAR9,64)))*(150)+65-10;
VAR12:=(SMA(VAR11,3,1))*(1.5)-100;
VAR13:=SMA(VAR12,3,1);
VAR14:=(3)*(VAR12)-(2)*(VAR13);
VAR15:=(HIGH+LOW+(CLOSE)*(2))/(4);
VAR1A:=EMA(VAR15,13);
VAR1B:=STD(VAR15,13);
VAR1C:=((VAR15-VAR1A)*(100))/(VAR1B);
VAR1D:=EMA(VAR1C,5);
VAR1E:=EMA(VAR1D,13);
VAR1F:=EMA(VAR1D,13)+200-100;
VAR16:=EMA(VAR1F,10);
VAR17:=(3)*(VAR1F)-(2)*(VAR16);
VAR18:=VARA+VARF+VAR12+VAR1F;
VAR19:=VARB+VAR6+VAR13+VAR16;
VAR20:=VARC+VAR7+VAR14+VAR17;
VAR21:=(HIGH+LOW+CLOSE)/(3);
VAR22:=((AMOUNT)/(VOL))/(100);
VAR23:=((SUM(AMOUNT,5))/(SUM(VOL,5)))/(100);
VAR24:=(VAR21-MA(VAR21,34))/((0.015)*(AVEDEV(VAR21,34)));
VAR25:=DMA(((AMOUNT)/(VOL))/(100),(VOL)/(CAPITAL));
VAR2A:=(HIGH+LOW+CLOSE+VAR21)/(4);
VAR2B:=EMA(VAR2A,24);
VAR2C:=STD(VAR2A,24);
VAR2D:=((VAR2A-VAR2B)/(VAR2C))*(100);
VAR2E:=(VAR21-MA(VAR21,24))/((0.015)*(AVEDEV(VAR21,24)));
VAR2F:=EMA(VAR2D,5);
VAR26:=((VAR2F+VAR2E+VAR24)/(3)+165)/(4);
VAR27:=(EMA(EMA(EMA(VAR26,15),10),5)-25)*(2)+VAR25;
VAR28:=((VAR18+VAR19+(VAR20)*(30))/(32))/(5)-15;
VAR29:=EMA(VAR28,13);
VAR30:=EMA(CLOSE,8);
VAR31:=EMA(VAR30,20);
VAR3A:=CROSS(VAR30,VAR31);
VAR3B:=(VAR30<EMA(CLOSE,120));
VAR3C:=(3)*(SMA(((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100),5,1))-(2)*(SMA(SMA(((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100),5,1),3,1));
VAR3D:=EMA(VAR3C,3);
VAR3E:=EMA((VAR27+VAR29)/(2),2);
STICKLINE((VAR3E-REF(VAR3E,1)>0),VAR3E,0,6,0),COLOR00007B;
STICKLINE((VAR3E-REF(VAR3E,1)>0),VAR3E,0,5,0),COLOR000088;
STICKLINE((VAR3E-REF(VAR3E,1)>0),VAR3E,0,4,0),COLOR00009B;
STICKLINE((VAR3E-REF(VAR3E,1)>0),VAR3E,0,3,0),COLOR0000AE;
STICKLINE((VAR3E-REF(VAR3E,1)>0),VAR3E,0,2,0),COLOR0000BB;
STICKLINE((VAR3E-REF(VAR3E,1)>0),VAR3E,0,1,0),COLOR0000CC;
STICKLINE((VAR3E-REF(VAR3E,1)>0),VAR3E,0,1,0),COLOR0000DD;
STICKLINE((VAR3E-REF(VAR3E,1)>0),VAR3E,0,1,0),COLOR0000EC;
STICKLINE((VAR3E-REF(VAR3E,1)>0),VAR3E,0,1,0),COLOR0000E9;
STICKLINE((VAR3E-REF(VAR3E,1)<0),VAR3E,0,6,0),COLOR00007B;
STICKLINE((VAR3E-REF(VAR3E,1)<0),VAR3E,0,5,0),COLOR007B00;
STICKLINE((VAR3E-REF(VAR3E,1)<0),VAR3E,0,4,0),COLOR008800;
STICKLINE((VAR3E-REF(VAR3E,1)<0),VAR3E,0,3,0),COLOR009900;
STICKLINE((VAR3E-REF(VAR3E,1)<0),VAR3E,0,2,0),COLOR00AA00;
STICKLINE((VAR3E-REF(VAR3E,1)<0),VAR3E,0,1,0),COLOR00BB00;

Q1:=(HHV(H,21)-C)/(HHV(H,21)-LLV(L,21))*100;
Q2:=(C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100;
Q3:=Q2-Q1;

STICKLINE(HHV(MA(Q3,5),5)>44
AND (C=HHV(C,10) OR H=HHV(H,10)),0,50,1,0)COLORBLACK,COLORD19275;
STICKLINE(HHV(MA(Q3,5),5)>44
AND (C=HHV(C,10) OR H=HHV(H,10)),43,50,1,0)COLORBLACK,COLOR0080FF;
STICKLINE(HHV(MA(Q3,5),5)>44
AND (C=HHV(C,10) OR H=HHV(H,10)),43,41,1,0)COLOR0080FF;
STICKLINE(HHV(MA(Q3,5),5)>44
AND (C=HHV(C,10) OR H=HHV(H,10)),50,48,3,0)COLOR0080FF;
高度控盘:IF(HHV(MA(Q3,5),5)>44 AND (C=HHV(C,10) OR
H=HHV(H,10)),40,DRAWNULL)VOLSTICK,COLORMAGENTA;

VAR51:=3;
VAR52:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));
准备启动:CROSS(VAR52,VAR51),STICK,COLORLIRED;
DRAWICON(准备启动>0,8,1);
VAR61:=(2*CLOSE+HIGH+LOW+OPEN)/5;
VAR62:=LLV(LOW,21);
VAR63:=HHV(HIGH,21);
操作线:= EMA((VAR61-VAR62)/(VAR63-VAR62)*100,5)COLORFF00FF,LINETHICK2;
阻力线:= EMA(0.667*REF(操作线,1)+0.333*操作线,4);

低位买进:CROSS(操作线,6),STICK,COLORYELLOW;
DRAWICON(低位买进>0,8,1);


多:=IF(CD5>=CD6,CD5,CD6);
多头启动:CROSS(CD5,0.001),COLORWHITE;
DRAWICON(多头启动>0,8,1);

底部指数:=EMA(100*(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N)),M)/4;
低指反弹:CROSS(底部指数,0.6){ OR CROSS(底部指数,1.2)},COLORSTICK,COLORRED;
DRAWICON(低指反弹>0,8,1);

底部反弹:CROSS(VAR3E,-5);
DRAWICON(底部反弹>0,-3,1);

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约