自动识别牛熊股票的指标

2011-02-19 11:00:00来源:本站整理浏览:95

现在提供一个自动识别牛熊股票的指标，玄机就在于变色。一用
便知奇妙。可以粗选股票，省了不少事呢，呵呵！！原码如下
DRAWGBK(C, COLORRGB(6,201,242),COLORRGB(0,0,130),0);
BB:=BARPOS=SYSPARAM(1);
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=LYEAR;
fm:=LMONTH;
fd:=LDAY;
wd:=weekday;
p:=sysparam(1);
str1:=' 今天是：'+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'
+numtostr(fd[p],0)+'日, '+wday[wd[p]+1];
DRAWTEXT(BARPOS=SYSPARAM(2),h,str1),ALIGN4,coloryellow;
M17:EMA(CLOSE,17);
安全线: EMA(CLOSE,55),COLORYELLOW;
M140:EMA(CLOSE,140),COLORRED ;
M240: EMA(CLOSE,240),COLORblue;
Var1:=(2*CLOSE+HIGH+LOW)/4;
下降通道阻击线: EMA(Var1,99)*0.91, colorgreen,CIRCLEDOT ;
STICKLINE(C>=O,C,O,7,0),COLOR0000AA;
STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
STICKLINE(C>=O,C,O,5,0),COLOR0000cc;
STICKLINE(C>=O,C,O,4,0),COLOR0000DD ;
STICKLINE(C>=O,C,O,3,0),COLOR0000ee;
STICKLINE(C>=O,C,O,2,0),COLOR0000FF;
STICKLINE(C>=O,C,O,1,0),COLOR0000ff;
STICKLINE(C>=O,H,L,0,0),COLORRED;
STICKLINE(C<=O,C,O,7,0),Coloraaaa00;
STICKLINE(C<=O,C,O,6,0),Colorbbbb00;
STICKLINE(C<=O,C,O,5,0),Colorcccc00;
STICKLINE(C<=O,C,O,4,0),Colordddd00;
STICKLINE(C<=O,C,O,3,0),Coloreeee00;
STICKLINE(C<=O,C,O,2,0),COLORffff00;
STICKLINE(C<=O,C,O,1,0),Colorffff00;
STICKLINE(C<=O,H,L,0,0),COLORffff00;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,7,0),color00AAAA;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,5,0),color00CCCC;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,3,0),color00EEEE;
STICKLINE(c/ref(c,1)>1.05,(c+o)/2,c,1,0),coloryellow;
DH:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
STICKLINE(DH<=-4,(c+o)/2,c,7,0),colorAA0000;
STICKLINE(DH<=-4,(c+o)/2,c,5,0),colorCC0000;
STICKLINE(DH<=-4,(c+o)/2,c,3,0),colorEE0000;
STICKLINE(DH<=-4,(c+o)/2,c,1,0),colorFF0000;
M30:MA(CLOSE,30),Colorff00ff,linethick1;
顶: COST(95)*1, linethick2,COLORRED;
Var1:=(2*CLOSE+HIGH+LOW)/4;
底: EMA(Var1,99)*0.91, linethick2,colorgreen ;