【图】参数可调的变色叠加主图指标(骑师)

参数可调的变色叠加主图指标
[ Last edited by 骑师 on 2005-6-28 at 18:42 ]

因为做得比较匆忙，难免有缺陷，先发个加密不限时的大家试试吧，有什么改进建议请告诉我。同时如果你感觉它好用的话，可以随意转发。当然我也会做些改进的，如果我感觉它效果满意了，也会发源码给朋友们的。
好了，这个指标就这样了，偶要去忙别的了。现在把源码放上来，请大家根据自己的思路加以优化吧。
看到下的人多，顶帖人少深感遗憾，做它花了我两个小时（在下午看盘时弄的），都14个人下了，在这个帖子里却没有人给加分。
也罢，偶继续潜水便是
再说明一下，这个公式中只有上市年月日的显示方式是我弄的比较新的，其它都是在N久前就有大侠做好的了，在这里再一次对他们甘当无名英雄的奉献精神致以崇高的敬意！
{变色叠加主图}
input:p1(5),p2(10),p3(20),p4(30),p5(60),N(20),N1(10);
DRAWGBK(indexc>=ma(indexc,N),COLORRGB(18,118,18),COLORRGB(118,18,118),1);
DRAWGBK(indexc<ma(indexc,N),COLORRGB(00,108,108),COLORRGB(00,88,88),1);

ma1:ma(c,p1),colorbfbfbf;
ma2:ma(c,p2),colorff5858;
ma3:ma(c,p3),colorff00ff;
ma4:ma(c,p4),colord0df7f;
ma5:ma(c,p5),color0ff07f;

STICKLINE(c>ma(c,N1),c,o,7,0),colorred;
STICKLINE(c>ma(c,N1),l,o,0,1),colorred;
STICKLINE(c>ma(c,N1),h,c,0,1),colorred;
STICKLINE(c<=ma(c,N1),c,o,7,0),COLORGREEN;
STICKLINE(c<=ma(c,N1),h,l,0,0),COLORGREEN;

tj:=indexc>=ma(indexc,N);
drawicon(tj,SYSPARAM(5),10);
drawicon(tj=0,SYSPARAM(5),11);

{上市日期}
yy:=REF(YEAR,BARSCOUNT(C)-1),linethick0,COLORGREEN;
mm0:=REF(MONTH,BARSCOUNT(C)-1),linethick0,COLORMAGENTA;
dd0:=REF(DAY,BARSCOUNT(C)-1),linethick0,COLORYELLOW;
上市日期:REF(YEAR,BARSCOUNT(C)-1),linethick0,COLORGREEN;
年:REF(MONTH,BARSCOUNT(C)-1),linethick0,COLORgreen,linethick0;
月:REF(DAY,BARSCOUNT(C)-1),linethick0,COLORgreen;
日:0,colorgreen,linethick0;

{股票代码}
S:='【股票代码：'+STKLABEL+'】 所属板块:'+BLKNAME;
drawtext(sysparam(2)=Barpos,sysparam(4),s ),Color00FF00,ALIGN1;
ss:='总股本'+NUMTOSTR(FINANCE(1) ,0 )+'万股,'+'流通A股'+ NUMTOSTR(FINANCE(7),0)+'万股,'+'每股净资产'+NUMTOSTR(FINANCE(35),2 )+'元,'+'每股公积金'+ NUMTOSTR(FINANCE(18),2)+'元,'+'每股收益 '+ NUMTOSTR(FINANCE(33),3)+'元,'+'每股未分配 '+NUMTOSTR(FINANCE(32),2)+'元,'+'市盈率'+NUMTOSTR(DYNAINFO(39),2)+',股东总数:'+ NUMTOSTR(FINANCE(50),0)+'户' {\n 上市日期:'+numtostr(yy,0)+'年'+ mm +'月' + dd +'日'};
drawtext(sysparam(2)=Barpos,sysparam(4)*0.975,ss),Color00FF00,ALIGN1;

{签上你的大名--如果你迫切希望扬名成"腕"的话，就象我这样写上自己名字吧(最好是自己的真名实姓，而且要不厌其烦地有机会就写上:)))}
drawtext(sysparam(2)=Barpos ,sysparam(5)*1.03,'骑师  费尽81牛18虎之力辛苦制作 :)))'),Color00FFFF,ALIGN1;//名字一定要醒目，这是关键所在 :)))
drawtext(sysparam(2)=Barpos ,sysparam(5)*1.03,'骑师  费尽81牛18虎之力辛苦制作 :)))'),Color00FFFF,ALIGN1;//名字一定要醒目，这是关键所在 :)))

{叠加大盘K线}
VARIABLE:Hh:=indexH; Ll:=indexL; Oo:=indexO; Cc:=indexC;c1:=c;//变量申明
同期大盘指数:cc[sysparam(1)],linethick0;
基准点:=c1[sysparam(1)]/cc[sysparam(1)];
j:=sysparam(3)-sysparam(1);
FOR m=1 TO J DO
BEGIN
h2[sysparam(1)+m]:=hh[sysparam(1)+m]*基准点;
o2[sysparam(1)+m]:=oo[sysparam(1)+m]*基准点;
l2[sysparam(1)+m]:=ll[sysparam(1)+m]*基准点;
c2[sysparam(1)+m]:=cc[sysparam(1)+m]*基准点;
END;
B:=BARPOS>sysparam(1) and BARPOS<=sysparam(3);
STICKLINE(B AND C2<=O2,O2,C2,8,1),colorwhite;
STICKLINE(B AND C2<=O2,L2,c2,0.1,1),colorwhite;
STICKLINE(B AND C2<=O2,o2,H2,0.1,1),colorwhite;
STICKLINE(b AND C2>O2,O2,C2,8,0),COLORMAGENTA;
STICKLINE(b AND C2>O2,L2,H2,0.1,0),COLORMAGENTA;
//VERTLINE(ISLASTBAR),COLORYELLOW,POINTDOT;股票论坛 www.55188.com