VAR1:=((CLOSE - LLV(LOW,50))/(HHV(HIGH,50) - LLV(LOW,50)))*(100);
VAR2:=REVERSE(VAR1);
VAR3:=SMA(VAR1,6,1);
K:=SMA(VAR3,4,1);
D:=SMA(K,4,1);
STICKLINE((K = D),K,D,6,0),COLOR0000A8;
STICKLINE((K = D),K,D,5,0),COLOR0000C0;
STICKLINE((K = D),K,D,4,0),COLOR0000E0;
STICKLINE((K = D),K,D,3,0),COLOR0000F0;
STICKLINE((K = D),K,D,2,0),COLOR0000D0;
STICKLINE((K = D),K,D,1,0),COLOR8080FF;
STICKLINE((K = D),K,D,6,0),COLOR008800;
STICKLINE((K = D),K,D,5,0),COLOR009900;
STICKLINE((K = D),K,D,4,0),COLOR00AA00;
STICKLINE((K = D),K,D,3,0),COLOR00BB00;
STICKLINE((K = D),K,D,2,0),COLOR00CC00;
STICKLINE((K = D),K,D,1,0),COLOR00DD00;
顶:90;
底:10;
敢死队:= (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100, COLORSTICK;
主力:=EXPMA( (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100,120)-0.0004,LINETHICK2,COLORMAGENTA;
散户:=EXPMA( (EXPMA(CLOSE,500)-REF(EXPMA(CLOSE,500),1))/REF(EXPMA(CLOSE,500),1)*100,200),LINETHICK2,COLORGREEN;
DRAWICON(CROSS(EXPMA(敢死队,120)-0.0004,EXPMA(敢死队,200)),45,11);
DRAWTEXT(CROSS(EXPMA(敢死队,120)-0.0004,EXPMA(敢死队,200)),40,'敢死队'),COLORRED;
A11:=(DVOL/CLOSE)/2;
A21:=SUM(IF(A11 100 AND CLOSE REF(CLOSE,1),A11,0),0);
A31:=SUM(IF(A11 100 AND CLOSE REF(CLOSE,1),A11,0),0);
A41:=SUM(IF(A11 100 AND CLOSE REF(CLOSE,1),A11,0),0);
A51:=SUM(IF(A11 100 AND CLOSE REF(CLOSE,1),A11,0),0);
A61:=A21+A31+A41+A51;
机买:=(A21/A61)*100,LINETHICK2,COLORRED;
机卖:=(A31/A61)*100,LINETHICK2,COLORGREEN;
机买红:=A21/100000,LINETHICK1, COLORRED;
机卖绿:=A31/100000,LINETHICK1,COLORGREEN;
机净买粉:机买红-机卖绿;
散户买:=A41/10000,COLORMAGENTA;
散户卖:=A51/10000,COLORWHITE;
散净买:=散户买-散户卖;
DRAWTEXT(ISLASTBAR=1,机买红*0.9,''),LINETHICK2,COLORFF55FF;
DRAWTEXT(ISLASTBAR=1,机卖绿,''),LINETHICK2,COLORFFFF55;
DRAWTEXT(ISLASTBAR=1,散户买,''),LINETHICK2,COLOR5555FF;
DRAWTEXT(ISLASTBAR=1,散户卖,''),LINETHICK2,COLOR55FF55;
中线白:0.00,COLORWHITE;
DRAWICON(CROSS(机买,机卖),70,24);
DRAWTEXT(CROSS(机买,机卖),75,'机转多'),COLORRED;
机构买盘:=A21,LINETHICK3, COLORRED;
机构卖盘:=A31,LINETHICK3,COLORGREEN;
TH:=SUM(IF(CLOSE REF(CLOSE,1),VOL,0),N);
TL:=SUM(IF(CLOSE REF(CLOSE,1),VOL,0),N);
TQ:=SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),N);
VR:=100*(TH*2+TQ)/(TL*2+TQ);
MAVR:=MA(VR,M);
B:=VR/MAVR;
XG:(机买/机卖 1.2 AND 散户买/散户卖 0.9)*50,LINETHICK2;
DRAWICON(XG=50,60,34);
BB:=机构买盘/机构卖盘;
BBB:=BB/REF(BB,1);
DRAWICON(BB/REF(BB,1) 1.05 AND BB 7 AND BBB/REF(BBB,1) 4,10,25);
DRAWICON(BB/REF(BB,1) 1.05 AND BB 7 AND BBB/REF(BBB,1) 4,20,26);
DRAWICON(BB/REF(BB,1) 1.05 AND BB 7 AND BBB/REF(BBB,1) 4,30,27);
DRAWICON(BB/REF(BB,1) 1.05 AND BB 7 AND BBB/REF(BBB,1) 4,40,28);
DRAWICON(BB/REF(BB,1) 1.05 AND BB 7 AND BBB/REF(BBB,1) 4,50,29);
DRAWICON(BB/REF(BB,1) 1.05 AND BB 7 AND BBB/REF(BBB,1) 4,60,1);
DRAWTEXT(BB/REF(BB,1) 1.05 AND BB 7 AND BBB/REF(BBB,1) 4,70,'买')COLORYELLOW;
DRAWTEXT(BB 120 AND BBB/REF(BBB,1) 4,80+BB,'全买')COLORYELLOW;
STICKLINE(BB 120 AND BBB/REF(BBB,1) 4,0,55,1,0)COLORRED;
A1:=SUM(IF(CLOSE REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);
成交额:=V*C/100,NODRAW;{万元}
A2:=SUM((IF(((成交额/8 18) AND (CLOSE (REF(CLOSE,1)))),成交额,0)),0);
A3:=SUM((IF(((成交额/8 18) AND (CLOSE (REF(CLOSE,1)))),成交额,0)),0);
A4:=SUM((IF(((成交额/8 18) AND (CLOSE (REF(CLOSE,1)))),成交额,0)),0);
A5:=SUM((IF(((成交额/8 18) AND (CLOSE (REF(CLOSE,1)))),成交额,0)),0);
A6:=((A2+A3)+A4)+A5;
RATE:=A2/A6*100,COLORWHITE,LINETHICK1;
{换手限制}
VOLA:=SUM(VOL,4)/CAPITAL*100 0.22;
{开盘量限制}
HH1:=IF(CAPITAL 5000000 AND REF(V,3)/CAPITAL*100 0.45,0,1);
HH2:=IF(CAPITAL 5000000 AND CAPITAL 3000000 AND REF(V,3)/CAPITAL*100 0.6,0,1);
HH3:=IF(CAPITAL 3000000 AND CAPITAL 1000000 AND REF(V,3)/CAPITAL*100 0.75,0,1);
HH4:=IF(CAPITAL 1000000 AND REF(V,3)/CAPITAL*100 0.9,0,1);
SUMVOL:=HH1 AND HH2 AND HH3 AND HH4;
{开盘量幅限制}
MM3:=IF(REF(VOL,3)/REF(VOL,2) 3.5 OR (REF(VOL,3)/REF(VOL,2) 2.8
OR REF(V,3)/CAPITAL*100 0.09 AND REF(C,3) DYNAINFO(4)),0,1);
MM4:=IF(REF(VOL,4)/REF(VOL,3) 3.5 OR (REF(VOL,4)/REF(VOL,3) 2.8 AND REF(C,4) DYNAINFO(4)),0,1);
MM5:=IF(REF(VOL,5)/REF(VOL,4) 3.5 OR (REF(VOL,5)/REF(VOL,4) 2.8 AND REF(C,5) DYNAINFO(4)),0,1);
NN3:=COUNT(RATE=100,3)=3 AND BARSCOUNT(FROMOPEN)=3 AND MM3;
NN4:=COUNT(RATE=100,3)=3 AND BARSCOUNT(FROMOPEN)=4 AND MM4;
NN5:=COUNT(RATE=100,3)=3 AND BARSCOUNT(FROMOPEN)=5 AND MM5;
{量形异常过滤}
[1]
