一、茶舍資金流
jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);
TD1:=qj0*(MIN(OPEN,CLOSE)-LOW);
XD1:=qj0*(jj-MIN(CLOSE,OPEN));
XD2:=qj0*(HIGH-MAX(OPEN,CLOSE));
TD2:=qj0*(MAX(CLOSE,OPEN)-jj);
日凈額:((TD1+XD1)-(TD2+XD2))/10000,PRECISION2,linethick;
周凈額:sum(日凈額,5),PRECISION2,linethick;
月凈額:sum(日凈額,22),PRECISION2,linethick;
FILLRGN(周凈額>0,0,周凈額),COLOR000066;
FILLRGN(周凈額<0,0,周凈額),COLOR003300;
stickline(日凈額>0,0,日凈額,6,0),color0000aa;
stickline(日凈額>0,0,日凈額,3,0),color0000cc;
stickline(日凈額>0,0,日凈額,1,0),color0000ff;
stickline(日凈額<0,日凈額,0,6,0),color00aa00;
stickline(日凈額<0,日凈額,0,3,0),color00cc00;
stickline(日凈額<0,日凈額,0,1,0),color00ff00;
DRAWTEXTEx(c,1,0,0,'茶舍資金流(萬元)'),COLORYELLOW;
DRAWTEXTEX(CLOSE,1,0,150,'證券代碼: '+STKLABEL+' 證券名稱: '+STKNAME+''),ColorFFAA00;
//
公式文件:
茶舍資金流.ALG (1.64 KB) 茶舍資金流.ALG (1.64 KB)
下載次數(shù): 375
2010-4-30 15:27
二、茶舍主力線
jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);
買1:=qj0*(MIN(OPEN,CLOSE)-LOW);
買2:=qj0*(jj-MIN(CLOSE,OPEN));
賣1:=qj0*(MAX(CLOSE,OPEN)-jj);
賣2:=qj0*(HIGH-MAX(OPEN,CLOSE));
DT:=((買1+買2)-(賣1+賣2))/10000;
主力持倉線:sum(DT,66),COLOR888888,linethick2;
STICKLINE(DT>0,主力持倉線,主力持倉線+DT,2,0),COLOR0000FF;
STICKLine(DT<0,主力持倉線+DT,主力持倉線,2,0),COLOR00FF00;
DRAWTEXTEX(DT>0,0,150,0,'主力增:'+NUMTOSTR(DT,2)+' 萬元'),COLOR00FFFF;
dRAWTEXTEX(DT<0,0,150,0,'主力減:'+NUMTOSTR(DT,2)+' 萬元'),COLOR00FF00;
DRAWTEXT(ISLASTBAR,主力持倉線,'主\n力\n線 ');
DRAWTEXTEX(c,1,0,0,'茶舍主力持倉線 '),COLORYELLOW;
DRAWTEXTEX(CLOSE,1,0,150,'證券代碼: '+STKLABEL+' 證券名稱: '+STKNAME+''),ColorFFAA00;
//
公式文件:
茶舍主力線.ALG (1.45 KB) 茶舍主力線.ALG (1.45 KB)
下載次數(shù): 280
2010-4-30 15:27
三、茶舍散戶線
jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);
TD1:=qj0*(MIN(OPEN,CLOSE)-LOW);DD1:=qj0*(jj-MIN(CLOSE,OPEN));
DD2:=qj0*(HIGH-MAX(OPEN,CLOSE));TD2:=qj0*(MAX(CLOSE,OPEN)-jj);
td:=TD1-TD2;da:=DD1-DD2;xd1:=1-(TD1+DD1);xd2:=1-(TD2+DD2);
tz:=v/sum(v,60)*100;DT:=((xd1-xd2)/10000)/tz;
散戶持倉線:sum(DT,22),COLOR888888,LINETHICK2;
STICKLINE(DT>0,散戶持倉線,散戶持倉線+DT,2,0),COLORFF00FF;
STICKLine(DT<0,散戶持倉線+DT,散戶持倉線,2,0),COLORFF8800;
DRAWTEXT(ISLASTBAR,散戶持倉線,'散\n戶\n線 ');
DRAWTEXTEX(DT>0,0,150,0,'散戶增:'+NUMTOSTR(DT,2)+' 萬元'),COLOR00FFFF;
dRAWTEXTEX(DT<0,0,150,0,'散戶減:'+NUMTOSTR(DT,2)+' 萬元'),COLOR00FF00;
DRAWTEXTEx(c,1,0,0,'茶舍散戶持倉線'),COLORYELLOW;
DRAWTEXTEX(CLOSE,1,0,150,'證券代碼: '+STKLABEL+' 證券名稱: '+STKNAME+''),ColorFFAA00;
//