【股票指标公式下载】-【大智慧】波神凯线(测量、做多).doc

【大智慧】波神凯线（测量、做多）-指标公式源码INPUT:年(8,0,100),月(1,1,12),日(1,1,31),年2(8,0,100),月2(1,1,12),日2(1,1,31),做多吗(1,0,1),测量(1,1,4);DATE1:=年*10000+月*100+日+1000000;DATE2:=年2*10000+月2*100+日2+1000000;hh:=ref(h,BARSLAST(DATE1=DATE);HH2:=IF(ref(h,barslast(DATE1=DATE)REF(H,BARSLAST(DATE1=DATE)-1),ref(H,BARSLAST(DATE1=DATE)-1),IF(ref(h,barslast(DATE1=DATE)REF(l,BARSLAST(DATE1=DATE)-1),ref(l,BARSLAST(DATE1=DATE)-1),IF(ref(l,barslast(DATE1=DATE)REF(l,BARSLAST(DATE1=DATE)-2),REF(l,BARSLAST(DATE1=DATE)-2),ref(l,BARSLAST(DATE1=DATE)-1);hh31:=ref(o,BARSLAST(DATE1=DATE);hh32:=ref(c,BARSLAST(DATE1=DATE);hh3:=min(hh31,hh32);LL3:=max(hh31,hh32);HH4:=if(做多吗,ref(h,barslast(DATE=DATE2),ref(h,barslast(DATE=DATE1);LL4:=if(做多吗,ref(L,barslast(DATE=DATE1),ref(L,barslast(DATE=DATE2);LLOW:=ref(LOW,BARSLAST(DATE1=DATE);H1:=STRTONUM(NUMTOSTR(Hh);L1:=STRTONUM(NUMTOSTR(LLOW);H2:=STRTONUM(NUMTOSTR(HH2);L2:=STRTONUM(NUMTOSTR(LL2);h3:=STRTONUM(NUMTOSTR(Hh3);L3:=STRTONUM(NUMTOSTR(LL3);H4:=STRTONUM(NUMTOSTR(HH4);L4:=STRTONUM(NUMTOSTR(LL4);LL1:=if(测量=1,H1-L1,IF(测量=2 AND 做多吗=1,H2-L1,IF(测量=2 AND 做多吗1,H1-L2,IF(测量=3 AND 做多吗=1,H3-L1,IF(测量=3 AND 做多吗1,H1-L3,IF(测量=4,H4-L4,H4-L4);LL:=STRTONUM(NUMTOSTR(LL1);VERTLINE(date=date1,0),COLORB0B0B0,LINETHICK2;IF 测量=4 THEN VERTLINE(date=date2,1),COLORBBBBBB;if 做多吗=1 then begin多开门:LL*1.508 + L1,COLORRED,linethick2;一线:L1+LL*2,COLORWHITE,dotline;二线:L1+LL*2.4,COLORWHITE,dotline;三线:L1+LL*3.05,color0045FF;四线:L1+LL*3.75,COLORWHITE,dotline;五线:L1+LL*4.15,color00A5FF;六线:L1+LL*4.8,COLORWHITE,dotline;七线:L1+LL*5.5,colorCBC0FF;八线:L1+LL*6.1,COLORWHITE,dotline;多关门:L1+LL*6.90001,linethick2;DRAWTEXT(barstatus=2,LL*1.50801+L1,numtostr(LL*1.508+L1)+多开门),COLORB0B0B0,ALIGN2;DRAWTEXT(BARSTATUS=2,L1+LL*3.05001,numtostr(L1+LL*3.05)+ No:3),COLORB0B0B0,ALIGN2;DRAWTEXT(BARSTATUS=2,L1+LL*4.15001,numtostr(L1+LL*4.15)+ No:5),COLORB0B0B0,ALIGN2;DRAWTEXT(BARSTATUS=2,L1+LL*5.50001,numtostr(L1+LL*5.5)+ No:7),COLORB0B0B0,ALIGN2;DRAWTEXT(BARSTATUS=2,L1+LL*6.90001,numtostr(L1+LL*6.9)+多关门),COLORB0B0B0,ALIGN2;end;IF 做多吗1 THENBEGIN空开门:h1-LL*1.508,linethick2;空一线:h1-LL*2,COLORWHITE,DOTLINE;空二线:h1-LL*2.4,COLORWHITE,DOTLINE;空三线:h1-LL*3.05,colorD30094;空四线:h1-LL*3.75,COLORWHITE,DOTLINE;空五线:h1-LL*4.15,color00A5FF;空六线:h1-LL*4.8,COLORWHITE,DOTLINE;空七线:h1-LL*5.5,color104974;空八线:h1-LL*6.1,COLORWHITE,dotline;空关门:h1-LL*6.9,linethick2;DRAWTEXT(BARSTATUS=2,h1-LL*1.50801,numtostr(h1-LL*1.508)+空开门),COLORB0B0B0,ALIGN2;DRAWTEXT(BARSTATUS=2,h1-LL*3.05001,numtostr(h1-LL*3.05)+ No:3),COLORB0B0B0,ALIGN2;DRAWTEXT(BARSTATUS=2,h1-LL*5.50001,numtostr(h1-LL*5.5)+ No:7),COLORB0B0B0,ALIGN2;DRAWTEXT(BARSTATUS=2,h1-LL*6.90001,numtostr(h1-LL*6.9)+空关门),COLORB0B0B0,ALIGN2;END;-立体K线-Ko:=CLOSE;Kc:=REF(CLOSE,1);STICKLINE(ko=kc ,CLOSE ,OPEN,8,0 ),COLOR008800;STICKLINE(ko=kc ,CLOSE ,OPEN,7,0 ),COLOR009900;STICKLINE(ko=kc ,CLOSE ,OPEN,6,0 ),COLOR00aa00;STICKLINE(ko=kc ,CLOSE ,OPEN,5,0 ),COLOR00bb00;STICKLINE(ko=kc,CLOSE ,OPEN,4,0 ),COLOR00cc00;STICKLINE(ko=kc,CLOSE ,OPEN,3,0 ),COLOR33dd00;STICKLINE(ko=kc,CLOSE ,OPEN,2,0 ),COLOR00ee00;STICKLINE(kokc,CLOSE,OPEN,8,0 ),COLOr000088;STICKLINE(kokc,CLOSE,OPEN,7,0 ),COLOr000099;STICKLINE(kokc,CLOSE,OPEN,6 ,0 ),COLOR0000aa;STICKLINE(kokc,CLOSE,OPEN,5,0 ),COLOr0000bb;STICKLINE(kokc,CLOSE,OPEN,4,0 ),COLOr0000cc;STICKLINE(kokc,CLOSE,OPEN,3 ,0 ),COLOR0000dd;STICKLINE(kokc,CLOSE,OPEN,2,0 ),COLOr0000ee;STICKLINE(kokc,CLOSE,OPEN,1 ,0 ),COLOR0033ff;STICKLINE(kokc,OPEN,LOW,0.5,0 ),COLORred;STICKLINE(kokc,CLOSE,HIGH,0.5 ,0 ),COLORred;STICKLINE(ko=kc,CLOSE,LOW,0.5 ,0 ),COLOR66cc33;STICKLINE(koREF(ZIG(3,5),1) and REF(ZIG(3,5),1)=REF(ZIG(3,5),2) and REF(ZIG(3,5),2)=REF(ZIG(3,5),3);ex1:=ZIG(3,5)=REF(ZIG(3,5),2) and REF(ZIG(3,5),2)=REF(ZIG(3,5),3);pl10:=ZIG(3,13);en2:=ZIG(3,10)REF(ZIG(3,10),1) and REF(ZIG(3,10),1)=REF(ZIG(3,10),2) and REF(ZIG(3,10),2)=REF(ZIG(3,10),3);ex2:=ZIG(3,10)=REF(ZIG(3,10),2) and REF(ZIG(3,10),2)=REF(ZIG(3,10),3);pl20:=ZIG(3,26);en3:= ZIG(3,20)REF(ZIG(3,20),1) and REF(ZIG(3,20),1)=REF(ZIG(3,20),2) and REF(ZIG(3,20),2)=REF(ZIG(3,20),3);ex3:=ZIG(3,20)=REF(ZIG(3,20),2) and REF(ZIG(3,20),2)=REF(ZIG(3,20),3);pl40:=ZIG(3,55);走强1:=BARSLAST(pl5REF(pl5,1);走强2:=BARSLAST(pl10REF(pl10,1);走强3:=BARSLAST(pl20REF(pl20,1);ztjz5:=IF(pl10REF(pl10,1),COUNT(en1,走强2),0);ztjd5:=IF(pl10REF(pl10,1),COUNT(ex1,走强2),0);dtjz5:=IF(pl10REF(pl10,1),COUNT(en1,走弱2),0);dtjd5:=IF(pl10REF(pl20,1),COUNT(en2,走强3),0);ztjd10:=IF(pl20REF(pl20,1),COUNT(ex2,走强3),0);dtjz10:=IF(pl20REF(pl20,1),COUNT(en2,走弱3),0);dtjd10:=IF(pl20REF(pl10,1) and ztjd5=1,HIGH*1.02,),color0000ff;DRAWTEXT(en1 and pl10REF(pl10,1) and ztjz5=2,LOW*0.98,),color0000ff;DRAWTEXT(ex1 and pl10REF(pl10,1) and ztjz5=2,HIGH*1.02,),color0000ff;DRAWTEXT(en1 and pl10REF(pl10,1) and ztjz5=3,LOW*0.98,),color0000ff;DRAWTEXT(ex2 and pl20REF(pl20,1) and ztjd10=1,HIGH*1.02,),color0000ff;DRAWTEXT(en2 and dtjz10=1,LOW*0.94,【A】),color00ff00;DRAWTEXT(ex2 and dtjd10=2,HIGH*1.03,【B】),color00ff00;DRAWTEXT(en3 and ztjz10=1,LOW*0.94,【C】),color00ff00;DRAWTEXT(ex2 and pl20REF(pl20,1) and ztjd10=1,HIGH*1.04,),Linethick3,color00ffff;DRAWTEXT(en2 and pl20REF(pl20,1) and ztjz10=2,LOW*0.94,),Linethick3,color00ffff;DRAWTEXT(ex2 and pl20REF(pl20,1) and ztjd10=2 or (ztjd10=0 or ztjd10=2) and ex2,HIGH*1.04,),Linethick3,color00ffff;DRAWTEXT(en2 and pl20REF(pl20,1) and ztjz10=3,LOW*0.94,),Linethick3,color00ffff;DMLJ:=HHV(HIGH,120);TY:=CLOSE;HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);A:=REF(CLOSE,BARSLAST(HD);B:=REF(CLOSE,BARSLAST(LD);T1:=BARSLAST(HD)BARSLAST(LD) AND NOT(LD);波浪顶:IF(T1,A,A),COLORFF00FF,POINTDOT,LINETHICK4;STICKLINE(T1,A,A,9,0),COLORFF00FF;波浪底:IF(T2,B,B),COLOR80FF00,POINTDOT,LINETHICK4;VAR3:=LLV(HIGH,240);VAR4:=100*(CLOSE-VAR3)/VAR3;VAR5:=(CLOSE-LLV(LOW,528)/(HHV(HIGH,528)-LLV(LOW,528)*100;VAR6:=(CLOSE-LLV(CLOSE,530)/(HHV(CLOSE,530)-LLV(CLOSE,530)*100;VAR7:=0;VAR8:=MA(HHV(CLOSE-REF(CLOSE,1),0),34)/MA(ABS(CLOSE-REF(CLOSE,1),7)*100;VAR9:=MA(HHV(CLOSE-REF(CLOSE,1),0),13)/MA(ABS(CLOSE-REF(CLOSE,1),13)*100;VARA:=BARSCOUNT(CLOSE);VARB:=VAR820 AND VAR935;VARC:=VARB AND COUNT(VARB,1)=1;VARD:=EMA(CLOSE,21)-EMA(CLOSE,8);VARE:=EMA(VARD,5);VARF:=TROUGH(3,6,1)LOW+0.04,4,0);VAR11:=ZIG(3,6)REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)=REF(ZIG(3,6),3);VAR12:=ZIG(3,6)=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)=REF(ZIG(3,6),3);VAR13:=ZIG(3,22)REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)=REF(ZIG(3,22),3);VAR14:=ZIG(3,22)=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)=REF(ZIG(3,22),3);VAR15:=ZIG(3,51)REF (ZIG(3,51),1) AND REF(ZIG(3,51),1)=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)=REF(ZIG(3,51),3);VAR16:=ZIG(3,51)=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)=REF(ZIG(3,51),3);VAR17:=ZIG(3,72)REF (ZIG(3,72),1) AND REF(ZIG(3,72),1)=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)=REF(ZIG(3,72),3);VAR18:=ZIG(3,72)=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)=REF(ZIG(3,72),3);VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);VAR1A:=EMA(VAR19,100);VAR1B:=2*(VAR19-VAR1A);VAR1C:=POW(VAR1B,3)*0.1+POW(VAR1B,1);VAR1D:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE);VAR1E:=EMA(VAR1D*0.97,3);VAR1F:=(HIGH+LOW+CLOSE)/3;VAR20:=(VAR1F-MA(VAR1F,14)/(0.015*AVEDEV(VAR1F,14);VAR21:=CROSS(VAR1E,LOW);买点1:=VAR10;买点2:=(VAR11+VAR13+VAR15+VAR17);卖点1:=(VAR12+VAR14+VAR16+VAR18),LINETHICK2;VAR22:=买点1 AND VARF AND VARC AND VAR21 AND VAR40 AND VAR5=0 AND VAR6=0 AND VAR200,LOW-0.01,买!),COLORRED;DRAWTEXT(买点20,LOW-0.01,要涨),COLORYELLOW;DRAWTEXT(卖点10,HIGH+0.1,快卖), COLORWHITE;a:=BARSCOUNT(CLOSE);ah:=HHV(HIGH,72);al:=LLV(LOW,72);a0:=(ah-al)/21;b1:=LOW-a0;DRAWTEXT(a+0)/15=FLOOR(a+0)/15),b1-2.5*a0,时窗),COLORWHITE;var31:=HHVBARS(ZIG(3, 19)REF(ZIG(3,19),1)and REF(ZIG(3,19), 1)REF(ZIG(3,19), 2),0);STICKLINE(var31=2,LOW*0.95,LOW*0.98,8,0),color0000ff;DRAWTEXT(var31=2,LOW*0.95,3天),COLORWHITE;STICKLINE(var31=4,HIGH*1.05,HIGH*1.02,8,0),color9966ff;DRAWTEXT(var31=4,HIGH*1.06,5天),COLORWHITE;STICKLINE(var31=7,LOW*0.95,LOW*0.98,8,0),color00ffff;DRAWTEXT(var31=7,LOW*0.95,8天),COLORWHITE;STICKLINE(var31=12,HIGH*1.05,HIGH*1.02,8,0)