参数可调的变色叠加主图指标
{变色叠加主图}
复制内容到剪贴板
代码:
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;
