【图】源码

源码

来自：理想论坛(55188.com) 作者：杨文亮 浏览：5554 回复：18

复制内容到剪贴板

代码:

DRAWGBK(1, COLORRGB(0,255,0), COLORRGB(0,0,0),1);

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,9,0 ),COLOR00ccff;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),color33eeff;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2.4,0 ),Color66ffff;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1.1,0 ),,Color99ffff;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,9,0 ),COLOr000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6 ,0 ),COLOR0000cc;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.4 ,0 ),COLOR0000ff;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.1 ,0 ),COLOR0033ff;

STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOr000099;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOr000099;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR00ccff;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR00ccff;

ywl1:ref(h,barslast(v=hhv(v,5))),linethick2,coloryellow;
ywl2:ref(l,barslast(v=llv(v,10))),linethick2,colorblue;

DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,STKNAME+'\n'+STKLABEL+'\n'+BLKNAME)align4,COLORblack;

ywo:=ma(c,5);
ywc:=ma(c,5);
ywl:=ma(l,5);
ywh:=ma(h,5);
ko:=ywo/ref(ywo,1)*o;
kc:=ywc/ref(ywc,1)*c;
kl:=ywl/ref(ywl,1)*l;
kh:=ywh/ref(ywh,1)*h;
kk:=(3*c+o+h+l)/6,shift1,colorwhite;

stickline(islastbar and ko>=kc,kc,ko,9,0),shift1,colorwhite;
stickline(islastbar and ko>=kc,kl,kc,1,0),shift1,colorwhite;
stickline(islastbar and ko>=kc,ko,kh,1,0),shift1,colorwhite;
stickline(islastbar and ko<kc,ko,kc,9,0),shift1,colorwhite;
stickline(islastbar and ko<kc,kc,kh,1,0),shift1,colorwhite;
stickline(islastbar and ko<kc,kl,ko,1,0),shift1,colorwhite;
stickline(islastbar,kk,c,9,0),shift1,colorgreen;

drawtext(v>ma(v,5)*2.5,l,'【异动点】'),colorred;
drawtext(ref(ma(c,30),2)<=ref(ma(c,30),1) and ref(ma(c,30),1)>ma(c,30),h,'【转弱点】'),colorgreen;


EXPLAINEX(1,'50%成本:',COST(50),2,0),Color82FF82;
EXPLAINEX(1,'抄跌成本成本:',COST(10),2,0),Color82FF82;
EXPLAINEX(1,'建仓成本:',COST(28),2,0),Color82FF82;
EXPLAINEX(1,'拉升成本:',COST(73),2,0),Color82FF82;
EXPLAINEX(1,'逃顶成本:',COST(90),2,0),Color82FF82;

EXPLAINEX(1,'获利盘比例：',WINNER(C)*100,2,0),Color82FF82;
EXPLAINEX(1,'套牢盘比例：',100-WINNER(C)*100,2,1),Color82FF82;


tt:=abs(sum((c/ref(c,1)-1),20)+c/o-1)*100;
EXPLAINEX(1,'今日个股波动度',tt,2,0),Color003EFF;
EXPLAINEX(1,'今日换手率',v/capital*100,2,0),Color003EFF;
explain(v>ref(v,1) and ma(v,5)>ref(ma(v,5),1),' 今日成交量大于昨日,且有继续增大趋势'),Color8285FF;
explain(v<ref(v,1)and ma(v,5)>ref(ma(v,5),1),'今日成交量小于昨日，但有放大迹象'),Color8285FF;
explain(v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),' 今日成交量大于昨日, 但有缩小迹象'),Color8285FF;
explain(v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),'今日成交量小于昨日，且有缩小迹象'),Color8285FF;
FORCAST((c/ref(c,1))/(indexc/ref(indexc,1))*c,20),ColorFF00FF;

股票论坛 www.55188.com

附件:

YW异动图.ALG (4.33 KB)

2005-2-24 18:28, 下载次数: 151