查看完整版本: 看大盘的小工具,还有比VOL好用的彩色换手

myxl4 2008-2-2 01:30

看大盘的小工具,还有比VOL好用的彩色换手

{指标一.涨跌家数作的小东西}
{大盘指标}
input:p1(10,1,100,1);
xd:=ma(indexdec,p1);
sz:=ma(INDEXADV,p1);
下跌家数:indexdec,linethick0,colorgreen;
上涨家数:indexadv,linethick0,coloryellow;
stickline(xd>sz,sz,xd,2,1),colorgreen;
stickline(xd<sz,sz,xd,2,1),colorred;
stickline(sz>600,sz,xd,2,1),coloryellow;


{指标二.彩色换手}
{通过颜色看换手1,3,6,10分级别;白,蓝,绿,黄,红,量异常还在测试中,可以参考}
input:p1(1,1,50,1),p2(100,1,100,1);
换手率:P2*VOL/CAPITAL,linethick0,coloryellow;
stickline(换手率<1 ,换手率,0,10,0),colorWhite;
stickline(换手率>1 ,换手率,0,6,1),colorblue;
stickline(换手率>3 ,换手率,0,6,1),colorgreen;
stickline(换手率>6,换手率,0,6,1),coloryellow;
stickline(换手率>10,换手率,0,6,1),colorred;
五日换手:ma(换手率,5);
十日换手:=ma(换手率,10);
三十日换手:ma(换手率,30);

xd:=ma(indexdec,p1);
sz:=ma(INDEXADV,p1);
a:=max(xd,sz)/min(xd,sz);
b:=100*vol/capital;

量异常:=if(c>ref(c,1) and xd>sz ,b*a,
if(c>ref(c,1) and xd<sz ,b,
if(c<ref(c,1) and sz<xd ,b,b*a)));

量异常:if(量异常>20,量异常,0),linethick0,coloryellow;
DRAWTEXT(量异常>30,五日换手*1.5,'←量异常'),coloryellow;
个股:=EMA(100*(C-LLV(LOW,34))/(HHV(H,34)-LLV(LOW,34)),3);
DRAWTEXT(CROSS(个股,9),五日换手*3,'触底'),colorred;
DRAWTEXT(CROSS(个股,25) and ma(c,5)>ma(c,20),五日换手*2.5,'↑追涨'),coloryellow;
Var1:=EMA(CLOSE,3);
Var2:=EMA(CLOSE,21);
Var3:=BARSLAST(CROSS(Var2,Var1))>15;
Var4:=VOL>MA(VOL,5)*2 AND VOL<MA(VOL,5)*5;
Var5:=CROSS(Var1,Var2) AND Var4 AND Var3;
DRAWTEXT(Var5,五日换手*2,'★黑马'),colorred;

myxl4 2008-2-2 01:34

忘记贴图了.

myxl4 2008-2-2 12:47

没人顶就算了,以后公式不发这里了

shangjing558 2008-2-2 14:25

精彩指标!十分感谢!!祝福新春愉快,财源滚滚!!

gan149 2008-2-3 16:49

简单,直观,多谢提供.

ljq 2008-2-3 22:15

十分感谢

dqedu 2008-2-4 04:02

简单,直观,多谢提供.

飞旋 2008-2-7 20:17

祝福新春愉快,财源滚滚!!

lofeel 2008-2-7 21:17

谢谢分享...祝福新春愉快,财源滚滚!!:d:

黑马驰盘 2008-2-9 00:01

简单,直观,多谢提供.

lekey 2008-2-9 16:48

多谢提供
页: [1]
查看完整版本: 看大盘的小工具,还有比VOL好用的彩色换手