分享

通达信分时主图叠加K线5天的源码

 O听_海_轩O 2017-05-16

O5:="分时引用.O5#DAY";
 C5:="分时引用.C5#DAY";
 H5:="分时引用.H5#DAY";
 L5:="分时引用.L5#DAY";
 O4:="分时引用.O4#DAY";
 C4:="分时引用.C4#DAY";
 H4:="分时引用.H4#DAY";
 L4:="分时引用.L4#DAY";
 O3:="分时引用.O3#DAY";
 C3:="分时引用.C3#DAY";
 H3:="分时引用.H3#DAY";
 L3:="分时引用.L3#DAY";
 O2:="分时引用.O2#DAY";
 C2:="分时引用.C2#DAY";
 H2:="分时引用.H2#DAY";
 L2:="分时引用.L2#DAY";
 O1:="分时引用.O1#DAY";
 C1:="分时引用.C1#DAY";
 H1:="分时引用.H1#DAY";
 L1:="分时引用.L1#DAY";
 O0:=DYNAINFO(4);
 C0:=DYNAINFO(7);
 H0:=DYNAINFO(5);
 L0:=DYNAINFO(6);
 
HH1:=MAX(H1,H2);
 HH2:=MAX(H3,H4);
 HH3:=MAX(MAX(H0,H5),MAX(HH1,HH2));
 LL1:=MIN(L1,L2);
 LL2:=MIN(L3,L4);
 LL3:=MIN(MIN(L0,L5),MIN(LL1,LL2));
 HL:=999/(HH3-LL3);
 
C52:=999-((C5-LL3)*HL);
 H52:=999-((H5-LL3)*HL);
 L52:=999-((L5-LL3)*HL);
 O52:=999-((O5-LL3)*HL);
 C42:=999-((C4-LL3)*HL);
 H42:=999-((H4-LL3)*HL);
 L42:=999-((L4-LL3)*HL);
 O42:=999-((O4-LL3)*HL);
 C32:=999-((C3-LL3)*HL);
 H32:=999-((H3-LL3)*HL);
 L32:=999-((L3-LL3)*HL);
 O32:=999-((O3-LL3)*HL);
 C22:=999-((C2-LL3)*HL);
 H22:=999-((H2-LL3)*HL);
L22:=999-((L2-LL3)*HL); 
O22:=999-((O2-LL3)*HL);
 C12:=999-((C1-LL3)*HL);
 H12:=999-((H1-LL3)*HL);
L12:=999-((L1-LL3)*HL); 
O12:=999-((O1-LL3)*HL);
 C02:=999-((C0-LL3)*HL);
 H02:=999-((H0-LL3)*HL);
 L02:=999-((L0-LL3)*HL);
 O02:=999-((O0-LL3)*HL);
 
DRAWRECTREL( 8,H52, 8,L52,RGB(IF(C5>=O5,200,0),IF(C5>=O5,0,200),0));
 DRAWRECTREL( 0,C52,16,O52,RGB(IF(C5>=O5,128,0),IF(C5>=O5,0,128),0));
 DRAWRECTREL(28,H42,28,L42,RGB(IF(C4>=O4,200,0),IF(C4>=O4,0,200),0));
 DRAWRECTREL(20,C42,36,O42,RGB(IF(C4>=O4,128,0),IF(C4>=O4,0,128),0));
 DRAWRECTREL(48,H32,48,L32,RGB(IF(C3>=O3,200,0),IF(C3>=O3,0,200),0));
 DRAWRECTREL(40,C32,56,O32,RGB(IF(C3>=O3,128,0),IF(C3>=O3,0,128),0));
 DRAWRECTREL(68,H22,68,L22,RGB(IF(C2>=O2,200,0),IF(C2>=O2,0,200),0));
 DRAWRECTREL(60,C22,76,O22,RGB(IF(C2>=O2,128,0),IF(C2>=O2,0,128),0));
 DRAWRECTREL(88,H12,88,L12,RGB(IF(C1>=O1,200,0),IF(C1>=O1,0,200),0));
 DRAWRECTREL(80,C12,96,O12,RGB(IF(C1>=O1,128,0),IF(C1>=O1,0,128),0));
 
{以下二选一}
 DRAWRECTREL(108,H02,108,L02,RGB(IF(C0>=O0,200,0),IF(C0>=O0,0,200),0));
 DRAWRECTREL(100,C02,116,O02,RGB(IF(C0>=O0,128,0),IF(C0>=O0,0,128),0));
 {以上二行为:当日K线固定在左侧排列}

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

    0条评论

    发表

    请遵守用户 评论公约