通达信天马七绝剑源码附图

{fsky}
rn今量:vol;
rn昨量:ref(vol,1);
rn前量:ref(vol,2);
rn昨开:ref(o,1);
rn昨收:ref(c,1);
rn前开:ref(o,2);
rn前收:ref(c,2);
rn zo:ref(o,1);
rn zc:ref(c,1);
rn zh:ref(h,1);
rn zl:ref(l,1);
rn jo:ref(o,2);
rn jc:ref(c,2);
rn jh:ref(h,2);
rn jl:ref(l,2);
rn jo3:ref(o,3);
rn jc3:ref(c,3);
rn jh3:ref(h,3);
rn jl3:ref(l,3);
rn jo4:ref(o,4);
rn jc4:ref(c,4);
rn jh4:ref(h,4);
rn jl4:ref(l,4);
rn jo5:ref(o,5);
rn jc5:ref(c,5);
rn jh5:ref(h,5);
rn jl5:ref(l,5);
rn jo6:ref(o,6);
rn jc6:ref(c,6);
rn jh6:ref(h,6);
rn jl6:ref(l,6);
rn jo7:ref(o,7);
rn jc7:ref(c,7);
rn jh7:ref(h,7);
rn jl7:ref(l,7);
rn jo8:ref(o,8);
rn jc8:ref(c,8);
rn jh8:ref(h,8);
rn jl8:ref(l,8);
rn jo9:ref(o,9);
rn jc9:ref(c,9);
rn jh9:ref(h,9);
rn jl9:ref(l,9);
rn ma5:ma(c,5);
rn ma10:ma(c,10);
rn ma20:ma(c,20);
rn ma30:ma(c,30);
rn ma60:ma(c,60);
rn上涨家数:indexadv;
rn下跌家数:indexdec;

rn

rn ————————————————————————————————————————

rn

主图源码：

rn

 前量:="FSKY.前量#DAY";
rn昨量:="FSKY.昨量#DAY";
rn今量:="FSKY.今量#DAY";
rn前总:=前量;
rn昨总:=昨量;
rn总:=今量,NODRAW;
rn BMM:=MAX(前总,昨总);
rnAMM:=IF(总/BMM>2,BMM*3,BMM);
rn MM:=200/AMM;
rn KP:=DYNAINFO(4);
rn ZX:=DYNAINFO(7);
rn A1:=IF(ZX>=KP,355,0);
rn A2:=IF(ZX>=KP,0,355);
rn A3:=IF(ZX>=KP,0,0);
rn DRAWRECTREL(0,80,MM*今量,110,RGB(A1,A2,A3));
rn昨开:="FSKY.昨开#DAY";
rn昨收:="FSKY.昨收#DAY";
rn A4:=IF(昨收>=昨开,355,0);
rn A5:=IF(昨收>=昨开,0,355);
rn A6:=IF(昨收>=昨开,0,0);
rn DRAWRECTREL(0,40,MM*昨量,70,RGB(A4,A5,A6));
rn前开:="FSKY.前开#DAY";
rn前收:="FSKY.前收#DAY";
rn A7:=IF(前收>=前开,355,0);
rn A8:=IF(前收>=前开,0,355);
rn A9:=IF(前收>=前开,0,0);
rn DRAWRECTREL(0,0,MM*前量,30,RGB(A7,A8,A9));
rn {分时K线}
rnZS:=DYNAINFO(3);
rn ZG:=DYNAINFO(5);
rn ZD:=DYNAINFO(6);
rn OP:=500-(KP/ZS-1)*4000;
rn CL:=500-(ZX/ZS-1)*4000;
rn HI:=500-(ZG/ZS-1)*4000;
rn LO:=500-(ZD/ZS-1)*4000;
rn N1:=IF(TIME>=130000 OR TIME<91500,360,900);
rn DRAWRECTREL(N1+4,OP,N1+8,HI,RGB(350,0,350));
rn DRAWRECTREL(N1+4,CL,N1+8,LO,RGB(0,355,0));
rn Q1:=IF(ZX>=KP,350,0);
rn Q2:=IF(ZX>=KP,0,350);
rn Q3:=IF(ZX>=KP,0,0);
rn DRAWRECTREL(N1-10,OP,N1+22,CL,RGB(Q1,Q2,Q3));
rn ZO:="FSKY.ZO#DAY";
rn ZC:="FSKY.ZC#DAY";
rn ZH:="FSKY.ZH#DAY";
rn ZL:="FSKY.ZL#DAY";
rn ZKP:=500-(ZO/ZS-1)*4000;
rn ZCP:=500-(ZC/ZS-1)*4000;
rn ZZG:=500-(ZH/ZS-1)*4000;
rn ZZD:=500-(ZL/ZS-1)*4000;
rn DRAWRECTREL(N1-36,ZKP,N1-32,ZZG,RGB(355,0,355));
rn DRAWRECTREL(N1-36,ZCP,N1-32,ZZD,RGB(0,355,0));
rn Q4:=IF(ZC>=ZO,355,0);
rn Q5:=IF(ZC>=ZO,0,355);
rn Q6:=IF(ZC>=ZO,0,0);
rn DRAWRECTREL(N1-49,ZKP,N1-17,ZCP,RGB(Q4,Q5,Q6));
rn JO:="FSKY.JO#DAY";
rn JC:="FSKY.JC#DAY";
rn JH:="FSKY.JH#DAY";
rn JL:="FSKY.JL#DAY";
rn ZZKP:=500-(JO/ZS-1)*4000;
rn ZZCP:=500-(JC/ZS-1)*4000;
rn ZZZG:=500-(JH/ZS-1)*4000;
rn ZZZD:=500-(JL/ZS-1)*4000;
rn DRAWRECTREL(N1-76,ZZKP,N1-72,ZZZG,RGB(355,0,355));
rn DRAWRECTREL(N1-76,ZZCP,N1-72,ZZZD,RGB(0,355,0));
rn Q7:=IF(JC>=JO,355,0);
rn Q8:=IF(JC>=JO,0,355);
rn Q9:=IF(JC>=JO,0,0);
rn DRAWRECTREL(N1-89,ZZKP,N1-57,ZZCP,RGB(Q7,Q8,Q9));
rn JO3:="FSKY.JO3#DAY";
rn JC3:="FSKY.JC3#DAY";
rn JH3:="FSKY.JH3#DAY";
rn JL3:="FSKY.JL3#DAY";
rn ZZKP3:=500-(JO3/ZS-1)*4000;
rn ZZCP3:=500-(JC3/ZS-1)*4000;
rn ZZZG3:=500-(JH3/ZS-1)*4000;
rn ZZZD3:=500-(JL3/ZS-1)*4000;
rn DRAWRECTREL(N1-116,ZZKP3,N1-112,ZZZG3,RGB(355,0,355));
rn DRAWRECTREL(N1-116,ZZCP3,N1-112,ZZZD3,RGB(0,355,0));
rn Q10:=IF(JC3>=JO3,355,0);
rn Q11:=IF(JC3>=JO3,0,355);
rn Q12:=IF(JC3>=JO3,0,0);
rn DRAWRECTREL(N1-129,ZZKP3,N1-97,ZZCP3,RGB(Q10,Q11,Q12));
rn JO4:="FSKY.JO4#DAY";
rn JC4:="FSKY.JC4#DAY";
rn JH4:="FSKY.JH4#DAY";
rn JL4:="FSKY.JL4#DAY";
rn ZZKP4:=500-(JO4/ZS-1)*4000;
rn ZZCP4:=500-(JC4/ZS-1)*4000;
rn ZZZG4:=500-(JH4/ZS-1)*4000;
rn ZZZD4:=500-(JL4/ZS-1)*4000;
rn DRAWRECTREL(N1-156,ZZKP4,N1-152,ZZZG4,RGB(355,0,355));
rn DRAWRECTREL(N1-156,ZZCP4,N1-152,ZZZD4,RGB(0,355,0));
rn Q13:=IF(JC4>=JO4,355,0);
rn Q14:=IF(JC4>=JO4,0,355);
rn Q15:=IF(JC4>=JO4,0,0);
rn DRAWRECTREL(N1-169,ZZKP4,N1-137,ZZCP4,RGB(Q13,Q14,Q15));
rn JO5:="FSKY.JO5#DAY";
rn JC5:="FSKY.JC5#DAY";
rn JH5:="FSKY.JH5#DAY";
rn JL5:="FSKY.JL5#DAY";
rn ZZKP5:=500-(JO5/ZS-1)*4000;
rn ZZCP5:=500-(JC5/ZS-1)*4000;
rn ZZZG5:=500-(JH5/ZS-1)*4000;
rn ZZZD5:=500-(JL5/ZS-1)*4000;
rn DRAWRECTREL(N1-196,ZZKP5,N1-192,ZZZG5,RGB(355,0,355));
rn DRAWRECTREL(N1-196,ZZCP5,N1-192,ZZZD5,RGB(0,355,0));
rn Q16:=IF(JC5>=JO5,355,0);
rn Q17:=IF(JC5>=JO5,0,355);
rn Q18:=IF(JC5>=JO5,0,0);
rn DRAWRECTREL(N1-209,ZZKP5,N1-177,ZZCP5,RGB(Q16,Q17,Q18));

rn

rn分时均价线:SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK2;
rn D:CLOSE,LINETHICK2,COLORWHITE;RCC:=DYNAINFO(3);
rn S2:=SMA(C,2,1);
rn S6:=SMA(C,3,1);
rn DK:=8*(S2-S6);
rn KK:=IF(PERIOD=8,0.95,1);

rn

XG:HHV(H,480),COLORRED,LINETHICK9;
rn STICKLINE(FILTER(CROSS(C,REF(XG,1)),10),C*0.99,C,8,0),COLORYELLOW;
rn DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10),C*0.99,’★■ ‘),COLORRED;

rn

XY:LLV(H,480),COLOR00FF00,LINETHICK9;
rn STICKLINE(FILTER(CROSS(C,REF(XY,1)),10),C*0.99,C,8,0),COLOR00FF00;
rn DRAWTEXT(FILTER(CROSS(C,REF(XY,1)),10),C*0.99,’★■’),COLORYELLOW;

rn

分时线:CLOSE,COLORWHITE;
rn大单动向:="DDX.大单动向#DAY",NODRAW;
rn DRAWTEXT_FIX(1,0.537,0.99,0,’DDX:’),COLORWHITE;
rn DRAWNUMBER_FIX(1,0.577,0.99,0,CONST(大单动向)),COLORRED;

rn

涨跌动因:="DDY.涨跌动因#DAY",NODRAW;
rn DRAWTEXT_FIX(1,0.637,0.99,0,’DDY:’),COLORWHITE;
rn DRAWNUMBER_FIX(1,0.677,0.99,0,CONST(涨跌动因)),COLORRED;

rn

大单差分:="DDZ.大单差分#DAY",NODRAW;
rn DRAWTEXT_FIX(1,0.737,0.99,0,’DDZ:’),COLORWHITE;
rn DRAWNUMBER_FIX(1,0.777,0.99,0,CONST(大单差分)),COLORRED;

rn

AAA:DYNAINFO(5),COLORWHITE,LINETHICK1,POINTDOT;{最高}
rnBBB:DYNAINFO(6),COLORWHITE,LINETHICK1,POINTDOT;{最低}
rnCCC:=AAA-BBB;中G:(AAA+BBB)/2,COLORWHITE,LINETHICK1,POINTDOT;{中}
rn上顶:BBB+CCC*7/8,COLORWHITE,DOTLINE;
rn阻力:BBB+CCC*2/3,COLORWHITE,LINETHICK1,POINTDOT;
rn支撑:BBB+CCC/3,COLORWHITE,LINETHICK1,POINTDOT;
rn下底:BBB+CCC*1/8,COLORWHITE,DOTLINE;

rn

DRAWNUMBER(CURRBARSCOUNT=12,AAA*0.9995,AAA),COLORFFAAFF;
rn DRAWNUMBER(CURRBARSCOUNT=12,BBB,BBB),COLORDDDD00;
rn DRAWNUMBER(CURRBARSCOUNT=12,中G,中G),COLORDDDDDD;
rn DRAWNUMBER(CURRBARSCOUNT=12,上顶,上顶),COLOR00FFFF;
rn DRAWNUMBER(CURRBARSCOUNT=12,阻力,阻力),COLOR00FFFF;
rn DRAWNUMBER(CURRBARSCOUNT=12,支撑,支撑),COLOR00FFFF;
rn DRAWNUMBER(CURRBARSCOUNT=12,下底,下底),COLOR00FFFF;
rn DRAWTEXT(CURRBARSCOUNT=20,AAA*0.9995,’最高:’),COLORFFAAFF;
rn DRAWTEXT(CURRBARSCOUNT=20,BBB,’最低:’),COLORGREEN;
rn DRAWTEXT(CURRBARSCOUNT=20,上顶,’上顶:’),COLOR00FF00;
rn DRAWTEXT(CURRBARSCOUNT=20,阻力,’阻力:’),COLORFFFF00;
rn DRAWTEXT(CURRBARSCOUNT=20,支撑,’支撑:’),COLORFFFF00;
rn DRAWTEXT(CURRBARSCOUNT=20,下底,’下底:’),COLOR00FFFF;
rn DRAWTEXT(CURRBARSCOUNT=20,中G,’平衡:’),COLOREEEEEE;

rn

DRAWTEXT(LONGCROSS(下底,分时线,2),BBB*1.001,’★买★’),COLORRED;{吸}
rnDRAWTEXT(LONGCROSS(分时线,上顶,2),分时线,’★卖★’),COLORRED;{抛};

rn

rn