Q1:=(VOL/CLOSE)/3;
Q2:=SUM((IF(((Q1>40) AND (CLOSE>(REF(CLOSE,1)))),Q1,0)),0);
Q3:=SUM((IF(((Q1>40) AND (CLOSE<(REF(CLOSE,1)))),Q1,0)),0);
Q4:=SUM((IF(((Q1<40) AND (CLOSE>(REF(CLOSE,1)))),Q1,0)),0);
Q5:=SUM((IF(((Q1<40) AND (CLOSE<(REF(CLOSE,1)))),Q1,0)),0);
Q6:=((Q2+Q3)+Q4)+Q5;
Q7:=IF((BARSTATUS=2),((100*Q2)/Q6),0);
Q8:=((IF((BARSTATUS=2),((100*Q3)/Q6),0)));
Q9:=((IF((BARSTATUS=2),((100*Q4)/Q6),0)));
Q10:=((IF((BARSTATUS=2),((100*Q5)/Q6),0)));
W1:=(Q2),LINETHICK0;
W2:=(Q3),LINETHICK0;
W3:=(Q4);
W4:=(Q5);
W5:=Q2+Q4;
W6:=Q3+Q5;
W7:=W1/W5*0.1,LINETHICK0;
W8:=W2/W6*0.1,LINETHICK0;
W9:=SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK1;
TT:=BARSCOUNT(C);
W10:=REF(HHV(H,TT),1);
W11:=CROSS(C,REF(HHV(H,TT),1)) AND C/W9<1.09 AND TT>1 AND TT<240;
W12:=COUNT(W11,13)>=3 AND CROSS(C,REF(HHV(H,TT),1));
W16:=BARSLAST(W12)<13;
W13:=CROSS(C,REF(HHV(H,TT),1)) AND HHVBARS(VOL,TT)=0 AND C/W9<1.09 AND TT>1 AND TT<240 AND BARSLAST(W12)>=21;
VAR1:=EMA(EMA(C,13),13);
W14:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
JJ:=DYNAINFO(11);
P:=55;
S:=8;
M1:=3;
W15:=(EMA(C,S)-EMA(C,P))*10;
W17:=EMA(W15,M1);
gspt11:=(C-JJ)/JJ<-0.03;
gspt2:=W14>REF(W14,1) AND W14<-0.2;
gspt3:=CROSS(W15,W17) AND W15<-0.3;
gspt811:=FILTER(gspt11 AND gspt2 AND gspt3,13);
W18:=gspt811;
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
W19:=SUM(IF(C>REF(C,1),C*V,0),FROMOPEN);
W20:=-SUM(IF(C<REF(C,1),C*V,0),FROMOPEN);
W21:=(W19+W20)/10000;
DRAWTEXT_FIX(1,0.700,1-0.15,0,STRCAT(STRCAT('【净买】',CON2STR(W21,1)),'万')),COLORRED;
KP:=DYNAINFO(4);
ZX:=DYNAINFO(7);
ZS:=DYNAINFO(3);
ZG:=DYNAINFO(5);
ZD:=DYNAINFO(6);
OP:=500-(KP/ZS-1)*1200;
CL:=500-(ZX/ZS-1)*1200;
HI:=500-(ZG/ZS-1)*1200;
LO:=500-(ZD/ZS-1)*1200;
N1:=IF(FROMOPEN>=120,250,750);
Z1:=IF(ZX>=KP,255,0);
Z2:=IF(ZX>=KP,0,255);
Z3:=IF(ZX>=KP,0,255);
gspt01:=MAX(DYNAINFO(3),DYNAINFO(5));
gspt02:=MIN(DYNAINFO(3),DYNAINFO(6));
gspt03:=gspt01-gspt02;
gspt04:=gspt02+gspt03*7/8;
gspt05:=gspt02+gspt03*0.5/8;
DRAWICON(LONGCROSS(gspt05,CLOSE,2),CLOSE,25);
DRAWICON(LONGCROSS(CLOSE,gspt04,2),CLOSE,24);
gspt06:=DYNAINFO(4);
gspt07:=DYNAINFO(5);
gspt08:=DYNAINFO(6);
gspt09:=DYNAINFO(11);
gspt010:=CLOSE;
gspt011:=BARSCOUNT(gspt010);
gspt012:=SUM(VOL*CLOSE,0)/SUM(VOL,0);
gspt013:=MA(gspt010,gspt011);
gspt014:=gspt013+2*STD(gspt010,3);
gspt015:=gspt013-2*STD(gspt010,3);
DRAWICON(CROSS(gspt012,gspt013),gspt012,38);
gspt016:=TIME>93000;
gspt017:=gspt010/REF(CLOSE,1)>1.02;
gspt018:=gspt010/REF(CLOSE,1)<0.98;
gspt019:=(HHV(gspt010,gspt011)-LLV(gspt010,gspt011))/gspt010<0.05;
gspt020:=SMA(VOL,30,1);
gspt021:=(gspt020-LLV(LLV(gspt020,1),30))/(HHV(HHV(gspt020,1),30)-LLV(LLV(gspt020,1),30))>0.95;
gspt022:=gspt017 OR gspt018;
gspt023:=gspt022=0 AND gspt019 AND gspt021 AND CROSS(gspt012,gspt013);
DRAWTEXT(FILTER(gspt023,10),gspt012,506),COLORYELLOW;
gspt024:=gspt022=0 AND gspt019 AND gspt021 AND CROSS(CLOSE,gspt012) AND CROSS(CLOSE,gspt013);
DRAWTEXT(FILTER(gspt024,10),gspt012*0.99,507),COLORRED;
XYZ:=VOL/CAPITAL*100;
W22:=((XYZ*0.50+REF(XYZ,1)*0.33)+(REF(XYZ,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN;
W22A:=SUM(IF(C>REF(C,1),W22*V,0),FROMOPEN),COLOR0000FF,LINETHICK0;
W22B:=-SUM(IF(C<REF(C,1),W22*V,0),FROMOPEN),COLOR00FF00,LINETHICK0;
W23:=W22A+W22B,COLORSTICK;
W24:=W23/SUM(V,FROMOPEN)*100,COLORRED,LINETHICK1;
W25:=IF(W24>=0,(W24+50),100-ABS((W24-50)));
W26:=SUM(IF(C>REF(C,1),V,0),FROMOPEN),STICK,COLORRED;
W27:=-SUM(IF(C<REF(C,1),V,0),FROMOPEN),STICK,COLOR00FF00;
W28:=W26+W27,COLORSTICK;
W29:=W28/SUM(V,FROMOPEN)*100,COLOR00FFFF,LINETHICK1;
W30:=IF(W29>=0,(W29+100)/2,100-ABS((W29-100)/2));
DRAWTEXT_FIX(1,0.200,0.87,0,STRCAT(STRCAT('W30',CON2STR(W30,2)),'买')),COLORCYAN;
DRAWTEXT_FIX(1,0.100,1.87,0,STRCAT(STRCAT('W25',CON2STR(W25,2)),' 买')),COLORCYAN;
A1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);
W34:=V*C/100,NODRAW;
A2:=SUM((IF(((W34/8>20) AND (CLOSE>(REF(CLOSE,1)))),W34,0)),0);
A3:=SUM((IF(((W34/8>20) AND (CLOSE<(REF(CLOSE,1)))),W34,0)),0);
A4:=SUM((IF(((W34/8<20) AND (CLOSE>(REF(CLOSE,1)))),W34,0)),0);
A5:=SUM((IF(((W34/8<20) AND (CLOSE<(REF(CLOSE,1)))),W34,0)),0);
A6:=((A2+A3)+A4)+A5;
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
A9:=IF((ISLASTBAR),((100*A4)/A6),0);
A10:=IF((ISLASTBAR),((100*A5)/A6),0);
DD1:=1;
gspt_1:=STRCAT(STRCAT('机构买入',CON2STR((100*A2)/A6,0)),'%');
gspt_2:=STRCAT(STRCAT('机构卖出',CON2STR((100*A3)/A6,0)),'%');
gspt_0:=STRCAT(STRCAT('机构入',CON2STR((100*(A2-A3))/A6,0)),'%');
gspt_3:=STRCAT(STRCAT('散户买入',CON2STR((100*A4)/A6,0)),'%');
gspt_4:=STRCAT(STRCAT('散户卖出',CON2STR((100*A5)/A6,0)),'%');
gspt_5:=STRCAT(STRCAT('散户入',CON2STR((100*(A4-A5))/A6,0)),'%');
W31:=AMO/1000;
W32:=W31>10000 AND W31<10000;
W33:=W31>10000;
源码:=VARCAT(VAR2STR(W31/1000,1),'亿');
DRAWTEXT(W32 AND C>REF(C,1),C,'O'),COLORRED;
DRAWTEXT(W32 AND C<REF(C,1),C,'O'),COLORGREEN;
DRAWTEXT(W33 AND C>REF(C,1),C,源码),COLORRED;
DRAWTEXT(W33 AND C<REF(C,1),C,源码),COLORGREEN;
DRAWICON(CROSS(C,REF(HHV(H,TT),1)) AND C/W9<1.09 AND TT>=1 AND TT<240,W10,9);
DRAWTEXT(W12,W10, '←主力吸筹'),COLORYELLOW;
DRAWTEXT(LONGCROSS(gspt05,CLOSE,5),CLOSE,'★吃进'),COLORMAGENTA;
DRAWTEXT(LONGCROSS(CLOSE,gspt04,2),CLOSE,'★抛压卖'),COLORFFCC00;