分享

(大智慧)大盘K线(大盘行情同步个股显示 源码)

 高量柱擒龙 2015-04-22

公式为副图同步显示大盘行情,并加入了通用均线。这个公式的好处是:不用一遍遍的来回切换沪深K线图,最后交易日的大盘重要信息都会小黑板里同步显示(简便不简便?你知道)。唯一不足是,翻遍很多软件都没有大盘换手率的源码,所说,没法加换手率显示。

收盘价:indexc,linethick0;
成交额亿:INDEXA/100000000,linethick0;
涨跌幅:(indexC/REF(indexC,1)-1)*100,linethick0;
涨跌:indexC-REF(indexC,1),linethick0;
ma5:MA(INDEXC,5),colorwhite,layer2;
ma10:MA(INDEXC,10),coloryellow,layer2;
ma20:MA(INDEXC,20),colorcyan,layer2;
ma30:MA(INDEXC,30),colormagenta,layer2;
ma60:MA(INDEXC,60),colorblue,layer2;
{-------------------------------------------------------------------------------------------------}
STICKLINE(INDEXC>indexo or indexc=indexo and indexc>REF(indexc,1),indexl,indexh,0.1,0),colorred;
STICKLINE(indexc>indexo or indexc=indexo and indexc>REF(indexc,1),indexo,indexc,7,0),colorred;
STICKLINE(indexc<indexo or indexc=indexo and indexc<=REF(indexc,1),indexl,indexh,0.1,0),colorcyan;
STICKLINE(indexc<indexo or indexc=indexo and indexc<=REF(indexc,1),indexo,indexc,7,0),colorcyan;
STICKLINE(indexo>=indexc ,indexc ,indexo,0,0 ),COLOR00FF00;
STICKLINE(indexo>=indexc ,indexc ,indexo,8,0 ),COLOR008800;
STICKLINE(indexo>=indexc ,indexc ,indexo,7,0 ),COLOR009900;
STICKLINE(indexo>=indexc ,indexc ,indexo,6,0 ),COLOR00AA00;
STICKLINE(indexo>=indexc ,indexc ,indexo,5,0 ),COLOR00BB00;
STICKLINE(indexo>=indexc ,indexc ,indexo,4,0 ),COLOR00CC00;
STICKLINE(indexo>=indexc ,indexc ,indexo,3,0 ),COLOR00DD00;
STICKLINE(indexo>=indexc ,indexc ,indexo,2,0 ),COLOR00EE00;
STICKLINE(indexo>=indexc ,indexc ,indexo,1,0 ),COLOR00FF00;
STICKLINE(indexc>indexo,indexc,indexo,0,0) ,COLORFFBBFF;
STICKLINE(indexc>indexo,indexc,indexo,8,0) ,COLORFF00FF;
STICKLINE(indexc>indexo,indexc,indexo,7,0) ,COLORFF22FF;
STICKLINE(indexc>indexo,indexc,indexo,6,0) ,COLORFF44FF;
STICKLINE(indexc>indexo,indexc,indexo,5,0) ,COLORFF66FF;
STICKLINE(indexc>indexo,indexc,indexo,4,0) ,COLORFF88FF;
STICKLINE(indexc>indexo,indexc,indexo,3,0) ,COLORFF99FF;
STICKLINE(indexc>indexo,indexc,indexo,2,0) ,COLORFFAAFF;
STICKLINE(indexc>indexo,indexc,indexo,1,0) ,COLORFFBBFF;
{--------------------------------------------------------------}
年:=YEAR;
月:=MONTH;
日:=DAY;
农历月:=LMONTH;
农历日:=LDAY;
星_期:=WEEKDAY;
当前:=CURRENTTIME;
时:=FLOOR(当前/10000);
分:=FLOOR((当前-FLOOR(当前/10000)*10000)/100);
秒:=FLOOR((当前-FLOOR(当前/100)*100));
DRAWRECTREL(0,0,180,1000,RGB(255,255,255)),colorwhite,layer1;
DRAWTEXTrel(10 ,30 ,NUMTOSTR( 年)+'年'+NUMTOSTR( 月)+'月'+NUMTOSTR( 日)+'日  农历:'+NUMTOSTR( 农历月)+'月'+NUMTOSTR( 农历日)+'日  星期'+星_期),COLORblack;
DRAWTEXTrel(10 ,150 ,'当前北京时间 : '+NUMTOSTR( 时)+'时'+NUMTOSTR( 分)+'分'+STRRIGHT( NUMTOSTR( 秒),2 )+'秒'),COLOR000000;
DRAWTEXTrel(10,300,'★【现价】 :'+NUMTOSTR(indexc)+'点'),COLORred;
DRAWTEXTREL(10,420,'●【成交额】:'+NUMTOSTR(INDEXA/100000000)+'亿'),COLORblue;
DRAWTEXTREL(10,540,'●【涨跌】:'+NUMTOSTR(indexC-REF(indexC,1))+'点'),COLOrblue;
DRAWTEXTREL(10,660,'●【涨跌幅】:'+NUMTOSTR((indexC/REF(indexC,1)-1)*100)),COLORblue;
DRAWTEXTREL(10,780,'●【上涨家数】:'+NUMTOSTR(INDEXADV)+'家'),COLORblue;
DRAWTEXTREL(10,900,'●【下跌家数】:'+NUMTOSTR(INDEXDEC)+'家'),COLORblue;


    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约