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>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
A3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
A4:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
A5:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,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);
机构买:(A2),LINETHICK6,COLORRED;
机构卖:(A3),LINETHICK6,COLORGREEN;
机构进出:机构买-机构卖,NODRAW;
散户买:=(A4),COLOR5555FF;
散户卖:=(A5),COLOR55FF55;
散户进出:=散户买-散户卖,NODRAW;
强势:=((100*A2)/A6>50);
STICKLINE(强势,机构买*1.02,机构买*1.1,1,0),COLORMAGENTA;
拉升:=((100*A2)/A6-(100*A3)/A6)>18 AND (100*A2)/A6-(100*A5)/A6>18;
STICKLINE(拉升,机构买*1.1,机构买*1.2,1,0),COLORYELLOW;
DRAWTEXT(ISLASTBAR=2,机构买*0.95,''),LINETHICK2,COLORYELLOW;
DRAWTEXT(ISLASTBAR=2,机构卖*0.95,''),LINETHICK2,COLORFFFF55;
DD1:=1;{分析家公式网http://www.70822.com}
AAA1:=STRCAT(STRCAT('机买',CON2STR((100*A2)/A6,0)),'%');
AAA2:=STRCAT(STRCAT('机卖',CON2STR((100*A3)/A6,0)),'%');
AAA0:=STRCAT(STRCAT('机构总买',CON2STR((100*(A2-A3))/A6,0)),'%');
DRAWTEXT_FIX(DD1=1,0.701,0.15,0,AAA1),COLORWHITE;
DRAWTEXT_FIX(DD1=1,0.701,0.35,0,AAA2),COLORGREEN;
DRAWTEXT_FIX(DD1=1,0.701,0.65,0,AAA0),LINETHICK5,COLORCYAN;
主力净买:=(机构进出+散户进出)/成交额,NODRAW;
AAA6:=STRCAT(STRCAT('主力净买',CON2STR(主力净买,0)),'%');
DRAWTEXT_FIX(DD1=1,0.701,0.80,0,AAA6),COLORMAGENTA;
均价:=SUM(V*C,0)/SUM(V,0),COLORYELLOW;
地:EMA(均价,50)/0.97,LINETHICK2,COLORGREEN,NODRAW;
HD:=HIGH-REF(HIGH,1);
LD:=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),28);
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),28);
VZH:=EMA(DMP/TR,28);
VZL:=EMA(DMM/TR,28);
MA1:=EMA((CLOSE+HIGH+LOW)/3,2);
gspt1:=MAX((DYNAINFO(3)),EMA(DYNAINFO(5),5));
gspt2:=MIN((DYNAINFO(3)),EMA(DYNAINFO(6),5));
HH:=(COST(95)+DYNAINFO(11))/2;
LL:=(COST(5)+DYNAINFO(11))/2;
gspt3:=CONST((gspt1+HH)/2);
gspt4:=CONST((gspt2+LL)/2);
gspt5:=(gspt3+gspt4)/2;
gspt6:=(gspt4+gspt5)-gspt3;
gspt7:=(gspt4+gspt6)/2;
gspt8:=(gspt6+gspt7)/2;
gspt10:=(3*SMA((C-LLV(L,54))/(HHV(H,54)-LLV(L,54)),3,1)-2*SMA(SMA((C-LLV(L,54))/(HHV(H,54)-LLV(L,54)),3,1),3,1));
gspt11:=MEMA(gspt10,10);
gspt12:=EMA(gspt11,10);
gspt13:=IF(EXIST(CROSS(gspt3,MA1),5) AND EXIST(C>gspt3,10) AND gspt11<HHV(gspt11,10) AND gspt12<REF(gspt12,1),1,0);
gspt14:=IF(EXIST(CROSS(MA1,gspt4),5) AND EXIST(C<gspt4,10) AND gspt11>LLV(gspt11,10) AND gspt12>REF(gspt12,1),1,0);
DRAWTEXT_FIX(1,0.980,20,1,'公式平台,公式源码 http://www.gspt.com'),COLOR333333;
顶:=gspt3,POINTDOT,COLORFF00FF;
底:=gspt4,POINTDOT,COLORGREEN;
多空:=IF(VZH>VZL,gspt7,gspt6);