自动识别牛熊股票的指标

[复制链接]
查看1115 | 回复0 | 2022-7-13 07:32:50 | 显示全部楼层 |阅读模式
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 ;
 

2010929103815590.rar

3.08 KB, 下载次数: 1

2010929103815590.rar

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则