股市DNA+股市振荡波

//股市DNA+股市振荡波

DRAWGBK(CLOSE>0, COLORRGB(1,3333,6666), COLORRGB(1,8888,8888),3);
var0:=(((LOW + HIGH) + CLOSE) / 3);
VAR4T:=MA(var0,5);
操作T:=HHV(VAR4T,13);
拉升T:=LLV(VAR4T,13);
买卖T:=(0 - (((操作T - VAR4T) / VAR4T) * 100));
J1T:=(0 - (((操作T - 拉升T) / 拉升T) * 100));
J2T:=(买卖T - J1T);
J3T:=IF((买卖T < (0 - 15)),(买卖T + 15),0);
DBXJ1:=IF(((买卖T < (0 - 10)) AND (J1T < (0 - 15))),(J1T + 15),0);
DBXJ2:=((J3T + DBXJ1) / 2);
D:IF((DBXJ2 > 0),0,DBXJ2),POINTDOT;
DBXJ:=INTPART((((SMA(MAX((CLOSE - REF(CLOSE,1)),0),6,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),6,1)) * 10) - 2));
N:IF((DBXJ < 0),0,DBXJ),POINTDOT;
STICKLINE((DBXJ2 < (0 - 50)),0,(0 - 60),10,0),colorFF00FF;
STICKLINE((DBXJ2 < (0 - 40)),0,(0 - 50),10,0),colorFF;
STICKLINE((DBXJ2 < (0 - 30)),0,(0 - 40),10,0),colorFFFF;
STICKLINE((DBXJ2 < (0 - 20)),0,(0 - 30),10,0),colorFF00;
STICKLINE((DBXJ2 < (0 - 10)),0,(0 - 20),10,0),colorFFFF00;
STICKLINE((DBXJ2 < 0),0,(0 - 10),10,0),colorFFFFFF;
STICKLINE((DBXJ > 5),0,60,10,0),colorFF00FF;
STICKLINE((DBXJ > 4),0,50,10,0),colorFF;
STICKLINE((DBXJ > 3),0,40,10,0),colorFFFF;
STICKLINE((DBXJ > 2),0,30,10,0),colorFF00;
STICKLINE((DBXJ > 1),0,20,10,0),colorFFFF00;
STICKLINE((DBXJ > 0),0,10,10,0),colorFFFFFF;
A:STICKLINE((CLOSE > 0),(0 - 3),3,10,0),colorFF0000;
DBXK:=INBLOCK('ST板块');
KB:=INBLOCK('*ST板块');
KC:=IF(((DBXK = 1) OR (KB = 1)),0,1);
ST:=MAX((0 - D),(0 - REF(D,1)));
DC:=IF((SYSPARAM(1) = (BARSSINCE((CLOSE > 0)) + 1)),1,0);
DRAWTEXT(((DC > 0) AND ((N = REF(N,1)) OR (N < REF(N,1)))),80,'请先参考并完成昨日的指示操作\n昨日无指示则今日无需操作。'),ALIGN0,colorFFFF00;
DRAWTEXT((((((DC > 0) AND (N > REF(N,1))) AND (D = 0)) AND (REF(D,1) = 0)) AND (N = 1)),80,'请先参考并完成昨日的指示操作!\n昨日无指示则今日无需操作。'),ALIGN0,colorFFFF00;
DRAWTEXT((((((DC > 0) AND (N > REF(N,1))) AND (N = 1)) AND ((D < 0) OR (REF(D,1) < 0))) AND (((J3T > REF(J3T,1)) OR (DBXJ1 > REF(DBXJ1,1))) OR (DBXJ2 = REF(DBXJ2,1)))),80,'今日可适量买进，仓量%:\n如果是补仓增仓则必须有较多空闲资金或处于亏损才操作！'),ALIGN2,colorFF00;
DRAWTEXT((((((DC > 0) AND (N > REF(N,1))) AND (N = 1)) AND ((D < 0) OR (REF(D,1) < 0))) AND (J3T < REF(J3T,1))),80,'请先参考并完成昨日的指示操作!\n昨日无指示则今日无需操作！'),ALIGN2,colorFFFF00;
DRAWNUMBER((((((DC > 0) AND (N > REF(N,1))) AND (N = 1)) AND ((D < 0) OR (REF(D,1) < 0))) AND (((J3T > REF(J3T,1)) OR (DBXJ1 > REF(DBXJ1,1))) OR (DBXJ2 = REF(DBXJ2,1)))),80,ST,0),ALIGN1,colorFF;
DRAWTEXT(((((DC > 0) AND (N > REF(N,1))) AND (N = 2)) AND ((D < 0) OR (REF(D,1) < 0))),80,'如果已经持股，那么亏则买进，仓量%:\n盈利则减半！'),ALIGN2,colorFFFF00;
DRAWNUMBER(((((DC > 0) AND (N > REF(N,1))) AND (N = 2)) AND ((D < 0) OR (REF(D,1) < 0))),80,ST,0),ALIGN1,colorFF;
DRAWTEXT((((((DC > 0) AND (N = 2)) AND (N > REF(N,1))) AND (D = 0)) AND (REF(D,1) = 0)),80,'如果已经持股，那么盈利则卖出，亏损则继续持股！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N = 3)) AND (N > REF(N,1))),80,'如果已经持股，那么盈利则卖出！亏损则继续持股！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N = 4)) AND (N > REF(N,1))),80,'如果已经持股，那么盈利则卖出,亏损则减三分之一！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N = 5)) AND (N > REF(N,1))),80,'如果已经持股，那么盈利则卖出,亏损则减半！'),ALIGN0,colorFFFF;
DRAWTEXT((((DC > 0) AND (N > 5)) AND (N > REF(N,1))),80,'如果还有持股，那么请立即无条件卖出！'),ALIGN0,colorFF00FF;
DRAWTEXT(((DC > 0) AND (CLOSE > 0)),(0 - 15),'买卖参考价（元）:'),ALIGN2,colorFF0000;
DRAWNUMBER(((DC > 0) AND (CLOSE > 0)),(0 - 15),CLOSE,2),ALIGN1,colorFF;
初选范围:10*IF(((D < 0) OR (REF(D,1) < 0)),1,0),POINTDOT,color808080;
出击时机:10*IF((((N > REF(N,1)) AND ((N = 1) OR (N = 2))) AND ((D < 0) OR (REF(D,1) < 0))),1,0),POINTDOT,colorFF00;
Var1:=(HIGH+LOW+CLOSE)/3;
Var2:=(Var1-MA(Var1,14))/(0.015*AVEDEV(Var1,14));
Var3:=(Var1-MA(Var1,70))/(0.015*AVEDEV(Var1,70));
Var4:=IF(Var2>=150 AND Var2<200 AND Var3>=150 AND Var3<200,-10,0);
Var5:=IF(Var2<=-150 AND Var2>-200 AND Var3<=-150 AND Var3>-200,10,0);
天线:IF(BARSCOUNT(CLOSE)<70,120,IF(Var3>=200 AND Var2>=150,-15,Var4)+120),Linethick2,colorccff66;
地线:IF(BARSCOUNT(CLOSE)<70,-120,IF(Var3<=-200 AND Var2<=-150,15,Var5)-120),Linethick2,colorff99cc;
Var6:=SMA((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100,4,1);
var60:SMA((Var6-50)*2,3,1),Linethick2,colorff0033;
Var7:=SMA((CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*100,4,1);
var70:SMA((Var7-50)*2,3,1),Linethick2,colorff2233;
var71:(SMA((Var7-50)*2,3,1)+SMA((Var6-50)*2,3,1))/2,Linethick2,colorff4433;
Var8:=SMA((CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12))*100,4,1);
var80:SMA((Var8-50)*2,3,1),Linethick2,colorff6633;
VAR81:(SMA((Var8-50)*2,3,1)+SMA((Var7-50)*2,3,1))/2,Linethick2,colorff8833;
Var9:=SMA((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100,4,1);
Vara:SMA((Var9-50)*2,3,1),Linethick2,colorff9933; 
VARb:(SMA((Var9-50)*2,3,1)+SMA((Var8-50)*2,3,1))/2,Linethick2,colorffaa33;
Var10:=SMA((CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14))*100,4,1);
VAR100:SMA((Var10-50)*2,3,1),Linethick2,colorffbb33;
Var11:=SMA((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100,4,1);
波浪线:SMA((Var11-50)*2,3,1)+SMA((Var10-50)*2,3,1)/2,COLORSTICK,color888888;

Var12:=(Var11-50)*6-2*SMA((Var11-50)*2,3,1);
Var13:=FILTER(波浪线>REF(波浪线,1)AND 波浪线<-20,10);
Var14:=FILTER(波浪线<REF(波浪线,3)AND 波浪线>REF(波浪线,1)AND 波浪线<-10,7);
Var15:=FILTER(波浪线<REF(波浪线,1),10);
Var16:=FILTER(波浪线<REF(波浪线,1)AND 波浪线>110,10);
Var17:=Var11<REF(Var11,3)AND Var11>REF(Var11,2)AND Var11<30;
DRAWICON(FILTER(Var13 OR Var14 OR Var17,5)AND Vara>REF(Vara,1),波浪线,1);
DRAWICON(FILTER(CROSS(波浪线,Var12)OR Var15,5)AND Var12>60,波浪线*1.05,2);
DRAWTEXT(FILTER(CROSS(100,波浪线)OR Var16,3),110,'顶部'),COLOR00FF00;
DRAWTEXT(CROSS(波浪线,地线),地线*0.6,'抄底'),colorred;