%>
JE:=vol;
jj:=(HIGH+LOW+CLOSE)/3;qj0:=vol/IF(HIGH=LOW,4,HIGH-LOW);
主买:=(qj0*(jj-MIN(CLOSE,OPEN)));
主卖:=(qj0*(MIN(OPEN,CLOSE)-LOW));
散买:=(qj0*(HIGH-MAX(OPEN,CLOSE)));
散卖:=(qj0*(MAX(CLOSE,OPEN)-jj));
{股票教程网-股票公式网站 www.gwgz.net}
STICKLINE(H=l and C<ref(c,1),0,JE,8,0),COLOR008800;
STICKLINE(H=l and C<ref(c,1),0,JE,5,0),COLOR00aa00;
STICKLINE(H=l and C<ref(c,1),0,JE,3,0),COLOR00cc00;
STICKLINE(H=l and C<ref(c,1),0,JE,1,0),COLOR00ee00;
STICKLINE(H=l and C>ref(c,1),0,JE,8,0),COLOR000088;
STICKLINE(H=l and C>ref(c,1),0,JE,5,0),COLOR0000aa;
STICKLINE(H=l and C>ref(c,1),0,JE,3,0),COLOR0000cc;
STICKLINE(H=l and C>ref(c,1),0,JE,1,0),COLOR0000ff;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,8,0),COLOR880000;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,5,0),COLORaa0000;
STICKLINE(散卖>0,0,主买+主卖+散买+散卖,3,0),COLORcc0000;
散户卖:STICKLINE(散卖>0,0,主买+主卖+散买+散卖,1,0),COLORee0000;
STICKLINE(散买>0,0,主买+主卖+散买,8,0),COLOR880088;
STICKLINE(散买>0,0,主买+主卖+散买,5,0),COLORaa00aa;
STICKLINE(散买>0,0,主买+主卖+散买,3,0),COLORcc00cc;
散户买:STICKLINE(散买>0,0,主买+主卖+散买,1,0),COLORee00ee;
STICKLINE(主卖>0,0,主买+主卖,8,0),COLOR008800;
STICKLINE(主卖>0,0,主买+主卖,5,0),COLOR00aa00;
STICKLINE(主卖>0,0,主买+主卖,3,0),COLOR00cc00;
主力卖:STICKLINE(主卖>0,0,主买+主卖,1,0),COLOR00ee00;
STICKLINE(主买>0,0,主买,8,0),COLOR000088;
STICKLINE(主买>0,0,主买,5,0),COLOR0000aa;
STICKLINE(主买>0,0,主买,3,0),COLOR0000cc;
主力买:STICKLINE(主买>0,0,主买,1,0),COLOR0000ff;
AA:=if(c>(h+l)/2,je,0);BB:=if(c<(h+l)/2,je,0);
F1:=sum(aa,21);F2:=sum(bb,21);F3:=ema(F1-F2,13);
T1:=主买>主卖 and cross(f3,ref(f3,1)) and f3<0;
T2:=主卖>主买 and cross(ref(f3,6),f3) and f3>0;
DRAWTEXT(T1,je*1.2,'+B'),COLOR00ffff;
DRAWTEXT(T2,je*1.2,'-S'),COLORffffff;
DRAWTEXT(BARPOS=SYSPARAM(2)+1,0,'证券代码:'+STKLABEL+' 证券名称:'+STKNAME+''),ALIGN3,PXUP90,ColorFF00FF;
{股票教程网-http://bkqg.net承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}