以下是通达信同舟共舞源码附图
同舟共舞
{同舟共舞}
主买:=CONST("FSKY.主买#DAY"),NODRAW;
前量:=CONST("FSKY.前量#DAY");
前主:=CONST("FSKY.前主#DAY");
昨量:=CONST("FSKY.昨量#DAY"),NODRAW;
昨主:=CONST("FSKY.昨主#DAY");
今量:=CONST("FSKY.今量#DAY"),NODRAW;
前4:=CONST("FSKY.前4#DAY");
主4:=CONST("FSKY.主4#DAY");
前5:=CONST("FSKY.前5#DAY");
主5:=CONST("FSKY.主5#DAY");
CMM:=MAX(前5,前4),NODRAW;
BMM1:=MAX(前量,昨量),NODRAW;
BMM:=MAX(CMM,BMM1),NODRAW;
AMM:=IF(今量/BMM>2,今量,BMM),NODRAW;
MM:=CONST(500/AMM),NODRAW;
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD :=1000* (2*(DIFF-DEA))/EMA(C,30);
VARA:=EMA(REF(CLOSE,1),4);
色彩峰:=(SMA(MAX(CLOSE-VARA,0),6,1)/SMA(ABS(CLOSE-VARA),6,1)*100);
准备:=色彩峰<3.5,COLORDBDBDB;
出航:=FILTER(MACD<0 AND MACD>REF(MACD,1) AND 色彩峰<20,5), COLORBROWN;
飞燕:=CROSS(色彩峰,90),COLOR00FF00;
回归:=CROSS(色彩峰,90),COLORDBDBDB;
{DRAWGBK(C>0,RGB(0,0,180),RGB(0,120,120),0,' ',0);}
STICKLINE(色彩峰,0,120,10,0),COLOR8BA400;
STICKLINE(色彩峰,0,90,10,0),COLOR8BA433;
STICKLINE(色彩峰,0,75,10,0),COLOR8BA466;
STICKLINE(色彩峰,0,60,10,0),COLOR8BA488;
STICKLINE(色彩峰,0,50,10,0),COLOR8BA4AA;
STICKLINE(色彩峰,0,40,10,0),COLOR8BA4BB;
STICKLINE(色彩峰,0,35,10,0),COLOR8BA4CC;
STICKLINE(色彩峰,0,25,10,0),COLOR8BA4EE;
STICKLINE(色彩峰,0,15,10,0),COLOR8BA5FF;
STICKLINE(色彩峰,0,-50,10,0),COLOR8BA433;
STICKLINE(色彩峰,0,-30,10,0),COLOR8BA444;
STICKLINE(色彩峰,0,-10,10,0),COLOR8BA455;
STICKLINE(色彩峰,0,-5,10,0),COLOR8BA466;
STICKLINE(色彩峰>0,0,色彩峰,10,0),COLOR66FF00;
STICKLINE(色彩峰>0,0,色彩峰*0.9,10,0),COLOR66EE00;
STICKLINE(色彩峰>0,0,色彩峰*0.8,10,0),COLOR66CC00;
STICKLINE(色彩峰>0,0,色彩峰*0.7,10,0),COLOR66AA00;
STICKLINE(色彩峰>0,0,色彩峰*0.6,10,0),COLOR668800;
STICKLINE(色彩峰>0,0,色彩峰*0.5,10,0),COLOR666600;
STICKLINE(色彩峰>0,0,色彩峰*0.4,10,0),COLOR664400;
STICKLINE(色彩峰>0,0,色彩峰*0.3,10,0),COLOR662200;
STICKLINE(色彩峰,0,-色彩峰*0.2,10,0),COLOR324D00;
RSV:= (CLOSE-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100;
FASTK:=SMA(RSV,3,1);
龙Ｋ:=SMA(FASTK,2,1);
龙Ｄ:=SMA(龙Ｋ,5,1);
狗:=LLV(LOW,10);
年:=HHV(H,25);
到来:=EMA((C-狗)/(年-狗)*4,4);
恭喜:STICKLINE(CROSS(到来,0.3),-50,-30,3,0), COLOR00AAFF,LINETHICK1;
STICKLINE(CROSS(到来,0.3),-40,-30,3,0),COLORRED,LINETHICK1;
发财:STICKLINE(CROSS(3.5,到来),100,120,2,0), COLORRED,LINETHICK2;
STICKLINE(CROSS(3.5,到来),110,120,2,0),COLORYELLOW,LINETHICK2;
龙行凤影:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)
-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)
-LLV(LOW,27))*100,5,1),3,1),LINETHICK0;
双起双飞:IF(龙行凤影<=10,-30,-50),COLOR0000FF,LINETHICK2;
DD:=IF(MACD>=0,MACD,DRAWNULL);
LL:=IF(MACD<0,-MACD,DRAWNULL);
STICKLINE(DD,0,DD,3.8,0),COLOREAEAEA;
STICKLINE(DD AND DD>REF(DD,1),DD*0.1,DD*0.9,2.5.0,0),COLOR666666;
STICKLINE(DD AND DD>=15 AND DD>REF(DD,1),DD*0.7,DD*0.7,2.5,1),COLOREAEAEA;
STICKLINE(DD AND DD>=15 AND DD>REF(DD,1),DD*0.5,DD*0.5,2.5,1),COLOREAEAEA;
STICKLINE(DD AND DD>=15 AND DD>REF(DD,1),DD*0.3,DD*0.3,2.5,1),COLOREAEAEA;
STICKLINE(DD AND DD<REF(DD,1),DD*0.1,DD*0.9,2.8,1),COLOR57E000;
STICKLINE(DD AND DD>=15 AND DD<REF(DD,1),DD*0.7,DD*0.7,2.5,1),COLOR666666;
STICKLINE(DD AND DD>=15 AND DD<REF(DD,1),DD*0.5,DD*0.5,2.5,1),COLOR666666;
STICKLINE(DD AND DD>=15 AND DD<REF(DD,1),DD*0.3,DD*0.3,2.5,1),COLOR666666;
STICKLINE(LL AND LL<REF(LL,1),0,LL,0,0),COLOREAEAEA;
STICKLINE(龙Ｋ>=龙Ｄ,龙Ｄ,龙Ｋ,3,0),COLOR000085;
STICKLINE(龙Ｋ<龙Ｄ,龙Ｄ,龙Ｋ,3,0),COLOR324800;
DRAWTEXT(准备,-10,'ャ'),COLORDBDBDB;
DRAWTEXT(准备,-10,'︼'),COLOR688EC1;
DRAWTEXT(CROSS( 0,MACD)AND 色彩峰>75,110,'☆'),COLORFFFFFF;
DRAWTEXT(飞燕,70,'ヲ'),COLORDBDBDB;
DRAWTEXT(出航,-10,'Ψ'), COLORBROWN;
红红的天:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)
-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)
-LLV(LOW,27))*100,5,1),3,1);
IF(CROSS(红红的天,2),70,-50),COLOR0000FF;
有心就有:IF(CROSS(红红的天,2),70,DRAWNULL),CROSSDOT,LINETHICK6,COLORFF77FF;
好运！:IF(CROSS(红红的天,2),70,DRAWNULL),POINTDOT,LINETHICK4,COLOR00CCFF;
KP:=DYNAINFO(4);
ZX:=DYNAINFO(7);
A1:=IF(主买>=今量/2,255,255);
A2:=IF(主买>=今量/2,0,0);
A3:=IF(主买>=今量/2,0,255);
DRAWRECTREL(0,250,MM*今量,280,RGB(0,250,250));
DRAWRECTREL(0,250,MM*主买,280,RGB(A1,A2,A3));
DRAWRECTREL(0,250,MM*ABS(主买-(今量-主买)),280,RGB(A3,255,00));
ZO:=CONST("FSKY.ZO#DAY");
ZC:=CONST("FSKY.ZC#DAY");
A4:=IF(昨主>=昨量/2,255,255);
A5:=IF(昨主>=昨量/2,0,0);
A6:=IF(昨主>=昨量/2,0,255);
DRAWRECTREL(0,200,MM*昨量,230,RGB(0,250,250));
DRAWRECTREL(0,200,MM*昨主,230,RGB(A4,A5,A6));
DRAWRECTREL(0,200,MM*ABS(昨主-(昨量-昨主)),230,RGB(A6,255,00));
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;
