源码如下:
variable:eye=0;
TDM:="大引1.TDM#day";
TDC:="大引1.TDS#day";
DDM:="大引1.DDM#day";
DDC:="大引1.DDS#day";
ZDM:="大引1.ZDM#day";
ZDC:="大引1.ZDS#day";
XDM:="大引1.XDM#day";
XDC:="大引1.XDS#day";
eye:=((TDM+DDM)-(TDC+DDC))*vol/capital*100;
eyes:=sum(eye,0);
gold:=eyes+50;
主力资金:gold,color0093f5;
STICKLINE(eye>0 and eye<0.5,gold,gold+eye,0.5,0),colorred;
STICKLINE(eye>=0.5 and eye<1,gold,gold+eye,2,0),colorred;
STICKLINE(eye>=1 and eye<2,gold,gold+eye,3,0),colorred;
STICKLINE(eye>=2,gold,gold+eye,4,0),colorred;
STICKLINE(eye>-0.5 and eye<=0,gold+eye,gold,0.5,0),COLORCYAN;
STICKLINE(eye<=-0.5 and eye>-1,gold+eye,gold,2,0),COLORCYAN;
STICKLINE(eye<=-1 and eye>-2,gold+eye,gold,3,0),COLORCYAN;
STICKLINE(eye<=-2,gold+eye,gold,4,0),COLORCYAN;
drawflagtext(eye>=0.3,gold+eye,'当日主力净买入力度 '+NUMTOSTR(intpart(eye*100)/100)+'%'),colorred;
drawflagtext(eye<=-0.3,gold+eye,'当日主力净卖出力度 '+NUMTOSTR(intpart(eye*100)/100)+'%'),colorgreen;