量学柱子完整分类（王子量学）

ablya

{月涨停统计--好}
V1:=IF(FINANCE(3)=1,H>=ZTPRICE(REF(CLOSE,1),0.1),H>=ZTPRICE(REF(CLOSE,1),0.2));
V2:=IF(REF(MONTH=12,1),MONTH<REF(MONTH,1),MONTH>REF(MONTH,1));
V3:=BARSLAST(V2);
V0:=COUNT(V1,V3+1);

近一年:COUNT(ZT,250),NODRAW;
今年:COUNT(V1,BARSLAST(V=V#YEAR)+1),NODRAW;

１:V0;
２:REF(V0,SUMBARS(V2,1));
３:REF(V0,SUMBARS(V2,2));
４:REF(V0,SUMBARS(V2,3));
５:REF(V0,SUMBARS(V2,4));
６:REF(V0,SUMBARS(V2,5));
７:REF(V0,SUMBARS(V2,6));
８:REF(V0,SUMBARS(V2,7));
９:REF(V0,SUMBARS(V2,8));
１０:REF(V0,SUMBARS(V2,9));
１１:REF(V0,SUMBARS(V2,10));
１２:REF(V0,SUMBARS(V2,11));
１３:REF(V0,SUMBARS(V2,12));
１４:REF(V0,SUMBARS(V2,13));
１５:REF(V0,SUMBARS(V2,14));
细分行业:  DRAWTEXT(1,0,HYBLOCK);

ablya

{参数 N 0  200  3 }
WN:=5;
WA1:=REF(H,WN)=HHV(H,2*WN+1);
WB1:=FILTER(WA1,WN);
WC1:=BACKSET(WB1,WN+1);
WD1:=FILTER(WC1,WN);
WA2:=REF(L,WN)=LLV(L,2*WN+1);
WB2:=FILTER(WA2,WN);
WC2:=BACKSET(WB2,WN+1);
WD2:=FILTER(WC2,WN);
WE1:=(REF(LLV(L,2*WN),1)+REF(HHV(H,2*WN),1))/2;
WE2:=(H+L)/2;
WH1:=(WD1 AND NOT(WD2 AND WE1>=WE2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
WL1:=(WD2 AND NOT(WD1 AND WE1<WE2));  
WH2:=WD1 AND NOT(WD2 AND WE1>=WE2);
WX1:=REF(BARSLAST(WH1),1)+1;
WF1:=BACKSET(WH1 AND COUNT(WL1,WX1)>0,LLVBARS(IF(WL1,L,10000),WX1));
WG1:=WF1>REF(WF1,1);
WI1:=BACKSET(WG1,2);
WLD:=WI1>REF(WI1,1);
WL2:=WLD OR ISLASTBAR OR BARSCOUNT(C)=1;
WX2:=REF(BARSLAST(WL2),1)+1;
WF2:=BACKSET(WL2 AND COUNT(WH2,WX2)>0,HHVBARS(IF(WH2,H,0),WX2));
WG2:=WF2>REF(WF2,1);
WI2:=BACKSET(WG2,2);
WHD:=WI2>REF(WI2,1);
WR1:=BACKSET(ISLASTBAR,BARSLAST(WHD)+1); WS1:=WR1>REF(WR1,1);
WR2:=BACKSET(WS1,REF(BARSLAST(WHD),1)+2); WS2:=WR2>REF(WR2,1);
WR3:=BACKSET(WS2,REF(BARSLAST(WHD),1)+2); WS3:=WR3>REF(WR3,1);
WR4:=BACKSET(WS3,REF(BARSLAST(WHD),1)+2); WS4:=WR4>REF(WR4,1);
WR5:=BACKSET(WS4,REF(BARSLAST(WHD),1)+2); WS5:=WR5>REF(WR5,1);
WT1:=BACKSET(ISLASTBAR,BARSLAST(WLD)+1); WU1:=WT1>REF(WT1,1);
WT2:=BACKSET(WU1,REF(BARSLAST(WLD),1)+2); WU2:=WT2>REF(WT2,1);
WT3:=BACKSET(WU2,REF(BARSLAST(WLD),1)+2); WU3:=WT3>REF(WT3,1);
WT4:=BACKSET(WU3,REF(BARSLAST(WLD),1)+2); WU4:=WT4>REF(WT4,1);
{每个高低点价格}
DRAWTEXT(WS1,H,VAR2STR(H,2)),COLORRED,DRAWABOVE;
DRAWTEXT(WS2,H,VAR2STR(H,2)),COLORYELLOW,DRAWABOVE;
DRAWTEXT(WS3,H,VAR2STR(H,2)),COLORGREEN,DRAWABOVE;
DRAWTEXT(WS4,H,VAR2STR(H,2)),COLORMAGENTA,DRAWABOVE;
DRAWTEXT(WS5,H,VAR2STR(H,2)),COLORCYAN,DRAWABOVE;
DRAWTEXT(WU1,L*0.995,VAR2STR(L,2)),COLORRED;
DRAWTEXT(WU2,L*0.995,VAR2STR(L,2)),COLORYELLOW;
DRAWTEXT(WU3,L*0.995,VAR2STR(L,2)),COLORGREEN;
DRAWTEXT(WU4,L*0.995,VAR2STR(L,2)),COLORMAGENTA;
一高:REF(H,BARSLAST(WS1>REF(WS1,1))),DOTLINE,COLORRED;
二高:REF(H,BARSLAST(WS2>REF(WS2,1))),DOTLINE,COLORYELLOW;
三高:REF(H,BARSLAST(WS3>REF(WS3,1))),DOTLINE,COLORGREEN;
四高:REF(H,BARSLAST(WS4>REF(WS4,1))),DOTLINE,COLORMAGENTA;
五高:REF(H,BARSLAST(WS5>REF(WS5,1))),DOTLINE,COLORCYAN;
{每个交叉点画竖线}
MA22:MA(C,22),COLORMAGENTA;
DRAWSL(CROSS(MA22,一高),L,10000,360,1),COLORYELLOW;
DRAWSL(CROSS(MA22,二高),L,10000,360,1),COLORYELLOW;
DRAWSL(CROSS(MA22,三高),L,10000,360,1),COLORYELLOW;
DRAWSL(CROSS(MA22,四高),L,10000,360,1),COLORYELLOW;
DRAWSL(CROSS(MA22,五高),L,10000,360,1),COLORYELLOW;