通达信同舟共舞源码附图

JO:=CONST('FSKY.JO#DAY');
JC:=CONST('FSKY.JC#DAY');
A7:=IF(前主>=前量/2,255,255);
A8:=IF(前主>=前量/2,0,0);
A9:=IF(前主>=前量/2,0,255);
DRAWRECTREL(0,150,MM*前量,180,RGB(0,250,250));
DRAWRECTREL(0,150,MM*前主,180,RGB(A7,A8,A9));
DRAWRECTREL(0,150,MM*ABS(前主-(前量-前主)),180,RGB(A9,255,00));
JO3:=CONST('FSKY.JO3#DAY');
JC3:=CONST('FSKY.JC3#DAY');
A10:=IF(主4>=前4/2,255,255);
A11:=IF(主4>=前4/2,0,0);
A12:=IF(主4>=前4/2,0,255);
DRAWRECTREL(0,100,MM*前4,130,RGB(0,250,250));
DRAWRECTREL(0,100,MM*主4,130,RGB(A10,A11,A12));
DRAWRECTREL(0,100,MM*ABS(主4-(前4-主4)),130,RGB(A12,255,00));
JO4:=CONST('FSKY.JO4#DAY');
JC4:=CONST('FSKY.JC4#DAY');
A13:=IF(主5>=前5/2,255,255);
A14:=IF(主5>=前5/2,0,0);
A15:=IF(主5>=前5/2,0,255);
DRAWRECTREL(0,50,MM*前5,80,RGB(0,250,250));
DRAWRECTREL(0,50,MM*主5,80,RGB(A13,A14,A15));
DRAWRECTREL(0,50,MM*ABS(主5-(前5-主5)),80,RGB(A15,255,00));
L1:=(CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*200-60;
凤Ｋ:SMA(L1,3,1),COLORAACCAA;
凤Ｄ:SMA(凤Ｋ,3,1),COLORAACCAA;

超B:=L2_AMO(0,2)/10000.0;
大B:=L2_AMO(1,2)/10000.0;
中B:=L2_AMO(2,2)/10000.0;
小B:=L2_AMO(3,2)/10000.0;
超S:=L2_AMO(0,3)/10000.0;
大S:=L2_AMO(1,3)/10000.0;
中S:=L2_AMO(2,3)/10000.0;
小S:=L2_AMO(3,3)/10000.0;
净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S),NODRAW;
超大单:=(超B)-(超S),NODRAW;
大单:=(大B)-(大S),NODRAW;
中单:=(中B)-(中S),NODRAW;
小单:=(小B)-(小S),NODRAW;
DAZHI:=CONST(MAX(ABS(净流入),MAX(ABS(超大单),MAX(ABS(大单),MAX(ABS(中单),ABS(小单)))))),NODRAW;
DRAWRECTREL(0,300,180,999.4,IF(120,RGB(10,0,0),0));
DRAWRECTREL(0,CONST(830-(ABS(净流入)*500/DAZHI)),30,935,IF(CONST(净流入)>0,RGB(100,0,0{255,0,255}),RGB(0,100,100)));
DRAWRECTREL(35,CONST(830-(ABS(超大单)*500/DAZHI)),65,935,IF(CONST(超大单)>0,RGB(100,0,0),RGB(0,50,0)));
DRAWRECTREL(70,CONST(830-(ABS(大单)*500/DAZHI)),100,935,IF(CONST(大单)>0,RGB(100,0,0),RGB(0,50,0)));
DRAWRECTREL(105,CONST(830-(ABS(中单)*500/DAZHI)),135,935,IF(CONST(中单)>0,RGB(100,0,0),RGB(0,50,0)));
DRAWRECTREL(140,CONST(830-(ABS(小单)*500/DAZHI)),170,935,IF(CONST(小单)>0,RGB(100,0,0),RGB(0,50,0)));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.002,0.98,0,'净流 超大 大单 中单 小单'),COLORYELLOW;
{DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,'资金搏弈 (万元)'),COLORYELLOW;}
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.002,0.55,0,INTPART(净流入)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.036,0.30,0,INTPART(超大单)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.070,0.55,0,INTPART(大单)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.106,0.30,0,INTPART(中单)),COLORWHITE;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.145,0.55,0,INTPART(小单)),COLORWHITE;
 

 

上一页  [1] [2]