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(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 THEN BEGIN 空开门: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(ko<=kc,CLOSE ,OPEN,1,0 ),COLOR66ff00; STICKLINE(ko>kc,CLOSE,OPEN,8,0 ),COLOr000088; STICKLINE(ko>kc,CLOSE,OPEN,7,0 ),COLOr000099; STICKLINE(ko>kc,CLOSE,OPEN,6 ,0 ),COLOR0000aa; STICKLINE(ko>kc,CLOSE,OPEN,5,0 ),COLOr0000bb; STICKLINE(ko>kc,CLOSE,OPEN,4,0 ),COLOr0000cc; STICKLINE(ko>kc,CLOSE,OPEN,3 ,0 ),COLOR0000dd; STICKLINE(ko>kc,CLOSE,OPEN,2,0 ),COLOr0000ee; STICKLINE(ko>kc,CLOSE,OPEN,1 ,0 ),COLOR0033ff; STICKLINE(ko>kc,OPEN,LOW,0.5,0 ),COLORred; STICKLINE(ko>kc,CLOSE,HIGH,0.5 ,0 ),COLORred; STICKLINE(ko<=kc,CLOSE,LOW,0.5 ,0 ),COLOR66cc33; STICKLINE(ko<=kc,OPEN,HIGH,0.5 ,0 ),COLOR66cc33; pl5:=ZIG(3,5); en1:=ZIG(3,5)>REF(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(pl10>REF(pl10,1),COUNT(en1,走强2),0); ztjd5:=IF(pl10>REF(pl10,1),COUNT(ex1,走强2),0); dtjz5:=IF(pl10REF(pl20,1),COUNT(en2,走强3),0); ztjd10:=IF(pl20>REF(pl20,1),COUNT(ex2,走强3),0); dtjz10:=IF(pl20REF(pl10,1) and ztjd5=1,HIGH*1.02,'⑴'),color0000ff; DRAWTEXT(en1 and pl10>REF(pl10,1) and ztjz5=2,LOW*0.98,'⑵'),color0000ff; DRAWTEXT(ex1 and pl10>REF(pl10,1) and ztjz5=2,HIGH*1.02,'⑶'),color0000ff; DRAWTEXT(en1 and pl10>REF(pl10,1) and ztjz5=3,LOW*0.98,'⑷'),color0000ff; DRAWTEXT(ex2 and pl20>REF(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 pl20>REF(pl20,1) and ztjd10=1,HIGH*1.04,'①'),Linethick3,color00ffff; DRAWTEXT(en2 and pl20>REF(pl20,1) and ztjz10=2,LOW*0.94,'②'),Linethick3,color00ffff; DRAWTEXT(ex2 and pl20>REF(pl20,1) and ztjd10=2 or (ztjd10=0 or ztjd10=2) and ex2,HIGH*1.04,'③'),Linethick3,color00ffff; DRAWTEXT(en2 and pl20>REF(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:=VAR8<20 and var9<23 vara>35; VARC:=VARB AND COUNT(VARB,1)=1; VARD:=EMA(CLOSE,21)-EMA(CLOSE,8); VARE:=EMA(VARD,5); VARF:=TROUGH(3,6,1)<4 and cross(vard,vare); var10:=IF(TROUGH(3,16,1)=0 high>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 VAR4<0 and var5=0 var6 =0 var20<(-110); var1:=MA(CLOSE,6);VAR2:=MA(CLOSE,18);VAR31:=MA(CLOSE,30);VARB1:=SUM(CLOSE*VOL*100,28)/SUM(VOL*100,28);VARC1:=INTPART(VARB1*100)/100;VARD1:=EMA(CLOSE,5)-EMA(CLOSE,10);VARE1:=EMA(VARD1,9);VAR131:=REF(VARE1,1);VAR141:=VARE1;VAR151:=VAR141-VAR131;VAR161:=REF(VARD1,1);VAR171:=VARD1;VAR181:=VAR171-VAR161;VAR191:=OPEN;VAR1A1:=CLOSE;DRAWTEXT(买点1>0,LOW-0.01,'▲买!'),COLORRED; DRAWTEXT(买点2>0,LOW-0.01,'▲要涨'),COLORYELLOW; DRAWTEXT(卖点1>0,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)
公式模块：
en1:=zig(3,5)>REF(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);
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); pl10:=ZIG(3,13); 走强2:=BArslAST(pl10<REF(pl10,1)); ztjz5:=IF(pl10>REF(pl10,1),COUNT(en1,走强2),0); en2 and ztjz5=1;
