|
通达信分时图12根日K线分析及三日量能指标 {分时量}
{FSKY}
今量:VOL;
昨量:REF(VOL,1);
前量:REF(VOL,2);
昨开:REF(O,1);
昨收:REF(C,1);
前开:REF(O,2);
前收:REF(C,2);
ZO:REF(O,1);
ZC:REF(C,1);
ZH:REF(H,1);
ZL:REF(L,1);
JO:REF(O,2);
JC:REF(C,2);
JH:REF(H,2);
JL:REF(L,2);
JO3:REF(O,3);
JC3:REF(C,3);
JH3:REF(H,3);
JL3:REF(L,3);
JO4:REF(O,4);
JC4:REF(C,4);
JH4:REF(H,4);
JL4:REF(L,4);
JO5:REF(O,5);
JC5:REF(C,5);
JH5:REF(H,5);
JL5:REF(L,5);
JO6:REF(O,6);
JC6:REF(C,6);
JH6:REF(H,6);
JL6:REF(L,6);
JO7:REF(O,7);
JC7:REF(C,7);
JH7:REF(H,7);
JL7:REF(L,7);
JO8:REF(O,8);
JC8:REF(C,8);
JH8:REF(H,8);
JL8:REF(L,8);
JO9:REF(O,9);
JC9:REF(C,9);
JH9:REF(H,9);
JL9:REF(L,9);JO10:REF(O,10);
JC10:REF(C,10);
JH10:REF(H,10);
JL10:REF(L,10);JO11:REF(O,11);
JC11:REF(C,11); 以上引用指标独立创建一个指标， 下面是分时主图指标同时创建主图叠加指标。
前量:="FSKY.前量#DAY";
昨量:="FSKY.昨量#DAY";
今量:="FSKY.今量#DAY";
前总:=前量;
昨总:=昨量;
总:=今量,NODRAW;
BMM:=MAX(前总,昨总);
AMM:=IF(总/BMM>2,BMM*3,BMM);
MM:=200/AMM;
KP:=DYNAINFO(4);
ZX:=DYNAINFO(7);
A1:=IF(ZX>=KP,355,0);
A2:=IF(ZX>=KP,0,355);
A3:=IF(ZX>=KP,0,0);
DRAWRECTREL(0,80,MM*今量,110,RGB(A1,A2,A3));
昨开:="FSKY.昨开#DAY";
昨收:="FSKY.昨收#DAY";
A4:=IF(昨收>=昨开,355,0);
A5:=IF(昨收>=昨开,0,355);
A6:=IF(昨收>=昨开,0,0);
DRAWRECTREL(0,40,MM*昨量,70,RGB(A4,A5,A6));
前开:="FSKY.前开#DAY";
前收:="FSKY.前收#DAY";
A7:=IF(前收>=前开,355,0);
A8:=IF(前收>=前开,0,355);
A9:=IF(前收>=前开,0,0);
DRAWRECTREL(0,0,MM*前量,30,RGB(A7,A8,A9));
{分时K线}
ZS:=DYNAINFO(3);
ZG:=DYNAINFO(5);
ZD:=DYNAINFO(6);
OP:=500-(KP/ZS-1)*4000;
CL:=500-(ZX/ZS-1)*4000;
HI:=500-(ZG/ZS-1)*4000;
LO:=500-(ZD/ZS-1)*4000;
N1:=IF(TIME>=130000 OR TIME<91500,360,900);
DRAWRECTREL(N1+4,OP,N1+8,HI,RGB(350,0,350));
DRAWRECTREL(N1+4,CL,N1+8,LO,RGB(0,355,0));
Q1:=IF(ZX>=KP,350,0);
Q2:=IF(ZX>=KP,0,350);
Q3:=IF(ZX>=KP,0,0);
DRAWRECTREL(N1-10,OP,N1+22,CL,RGB(Q1,Q2,Q3));
ZO:="FSKY.ZO#DAY";
ZC:="FSKY.ZC#DAY";
ZH:="FSKY.ZH#DAY";
ZL:="FSKY.ZL#DAY";
ZKP:=500-(ZO/ZS-1)*4000;
ZCP:=500-(ZC/ZS-1)*4000;
ZZG:=500-(ZH/ZS-1)*4000;
ZZD:=500-(ZL/ZS-1)*4000;
DRAWRECTREL(N1-36,ZKP,N1-32,ZZG,RGB(355,0,355));
DRAWRECTREL(N1-36,ZCP,N1-32,ZZD,RGB(0,355,0));
Q4:=IF(ZC>=ZO,355,0);
Q5:=IF(ZC>=ZO,0,355);
Q6:=IF(ZC>=ZO,0,0);
DRAWRECTREL(N1-49,ZKP,N1-17,ZCP,RGB(Q4,Q5,Q6));
JO:="FSKY.JO#DAY";
JC:="FSKY.JC#DAY";
JH:="FSKY.JH#DAY";
JL:="FSKY.JL#DAY";
ZZKP:=500-(JO/ZS-1)*4000;
ZZCP:=500-(JC/ZS-1)*4000;
ZZZG:=500-(JH/ZS-1)*4000;
ZZZD:=500-(JL/ZS-1)*4000;
DRAWRECTREL(N1-76,ZZKP,N1-72,ZZZG,RGB(355,0,355));
DRAWRECTREL(N1-76,ZZCP,N1-72,ZZZD,RGB(0,355,0));
Q7:=IF(JC>=JO,355,0);
Q8:=IF(JC>=JO,0,355);
Q9:=IF(JC>=JO,0,0);
DRAWRECTREL(N1-89,ZZKP,N1-57,ZZCP,RGB(Q7,Q8,Q9));
JO3:="FSKY.JO3#DAY";
JC3:="FSKY.JC3#DAY";
JH3:="FSKY.JH3#DAY";
JL3:="FSKY.JL3#DAY";
ZZKP3:=500-(JO3/ZS-1)*4000;
ZZCP3:=500-(JC3/ZS-1)*4000;
ZZZG3:=500-(JH3/ZS-1)*4000;
ZZZD3:=500-(JL3/ZS-1)*4000;
DRAWRECTREL(N1-116,ZZKP3,N1-112,ZZZG3,RGB(355,0,355));
DRAWRECTREL(N1-116,ZZCP3,N1-112,ZZZD3,RGB(0,355,0));
Q10:=IF(JC3>=JO3,355,0);
Q11:=IF(JC3>=JO3,0,355);
Q12:=IF(JC3>=JO3,0,0);
DRAWRECTREL(N1-129,ZZKP3,N1-97,ZZCP3,RGB(Q10,Q11,Q12));
JO4:="FSKY.JO4#DAY";
JC4:="FSKY.JC4#DAY";
JH4:="FSKY.JH4#DAY";
JL4:="FSKY.JL4#DAY";
ZZKP4:=500-(JO4/ZS-1)*4000;
ZZCP4:=500-(JC4/ZS-1)*4000;
ZZZG4:=500-(JH4/ZS-1)*4000;
ZZZD4:=500-(JL4/ZS-1)*4000;
DRAWRECTREL(N1-156,ZZKP4,N1-152,ZZZG4,RGB(355,0,355));
DRAWRECTREL(N1-156,ZZCP4,N1-152,ZZZD4,RGB(0,355,0));
Q13:=IF(JC4>=JO4,355,0);
Q14:=IF(JC4>=JO4,0,355);
Q15:=IF(JC4>=JO4,0,0);
DRAWRECTREL(N1-169,ZZKP4,N1-137,ZZCP4,RGB(Q13,Q14,Q15));
JO5:="FSKY.JO5#DAY";
JC5:="FSKY.JC5#DAY";
JH5:="FSKY.JH5#DAY";
JL5:="FSKY.JL5#DAY";
ZZKP5:=500-(JO5/ZS-1)*4000;
ZZCP5:=500-(JC5/ZS-1)*4000;
ZZZG5:=500-(JH5/ZS-1)*4000;
ZZZD5:=500-(JL5/ZS-1)*4000;
DRAWRECTREL(N1-196,ZZKP5,N1-192,ZZZG5,RGB(355,0,355));
DRAWRECTREL(N1-196,ZZCP5,N1-192,ZZZD5,RGB(0,355,0));
Q16:=IF(JC5>=JO5,355,0);
Q17:=IF(JC5>=JO5,0,355);
Q18:=IF(JC5>=JO5,0,0);
DRAWRECTREL(N1-209,ZZKP5,N1-177,ZZCP5,RGB(Q16,Q17,Q18));
JO6:="FSKY.JO6#DAY";
JC6:="FSKY.JC6#DAY";
JH6:="FSKY.JH6#DAY";
JL6:="FSKY.JL6#DAY";
ZZKP6:=500-(JO6/ZS-1)*4000;
ZZCP6:=500-(JC6/ZS-1)*4000;
ZZZG6:=500-(JH6/ZS-1)*4000;
ZZZD6:=500-(JL6/ZS-1)*4000;
DRAWRECTREL(N1-236,ZZKP6,N1-232,ZZZG6,RGB(355,0,355));
DRAWRECTREL(N1-236,ZZCP6,N1-232,ZZZD6,RGB(0,355,0));
Q19:=IF(JC6>=JO6,355,0);
Q20:=IF(JC6>=JO6,0,355);
Q21:=IF(JC6>=JO6,0,0);
DRAWRECTREL(N1-249,ZZKP6,N1-217,ZZCP6,RGB(Q19,Q20,Q21));
JO7:="FSKY.JO7#DAY";
JC7:="FSKY.JC7#DAY";
JH7:="FSKY.JH7#DAY";
JL7:="FSKY.JL7#DAY";
ZZKP7:=500-(JO7/ZS-1)*4000;
ZZCP7:=500-(JC7/ZS-1)*4000;
ZZZG7:=500-(JH7/ZS-1)*4000;
ZZZD7:=500-(JL7/ZS-1)*4000;
DRAWRECTREL(N1-276,ZZKP7,N1-272,ZZZG7,RGB(355,0,355));
DRAWRECTREL(N1-276,ZZCP7,N1-272,ZZZD7,RGB(0,355,0));
Q22:=IF(JC7>=JO7,355,0);
Q23:=IF(JC7>=JO7,0,355);
Q24:=IF(JC7>=JO7,0,0);
DRAWRECTREL(N1-289,ZZKP7,N1-257,ZZCP7,RGB(Q22,Q23,Q24));
JO8:="FSKY.JO8#DAY";
JC8:="FSKY.JC8#DAY";
JH8:="FSKY.JH8#DAY";
JL8:="FSKY.JL8#DAY";
ZZKP8:=500-(JO8/ZS-1)*4000;
ZZCP8:=500-(JC8/ZS-1)*4000;
ZZZG8:=500-(JH8/ZS-1)*4000;
ZZZD8:=500-(JL8/ZS-1)*4000;
DRAWRECTREL(N1-316,ZZKP8,N1-312,ZZZG8,RGB(355,0,355));
DRAWRECTREL(N1-316,ZZCP8,N1-312,ZZZD8,RGB(0,355,0));
Q25:=IF(JC8>=JO8,355,0);
Q26:=IF(JC8>=JO8,0,355);
Q27:=IF(JC8>=JO8,0,0);
DRAWRECTREL(N1-329,ZZKP8,N1-297,ZZCP8,RGB(Q25,Q26,Q27));
JO9:="FSKY.JO9#DAY";
JC9:="FSKY.JC9#DAY";
JH9:="FSKY.JH9#DAY";
JL9:="FSKY.JL9#DAY";
ZZKP9:=500-(JO9/ZS-1)*4000;
ZZCP9:=500-(JC9/ZS-1)*4000;
ZZZG9:=500-(JH9/ZS-1)*4000;
ZZZD9:=500-(JL9/ZS-1)*4000;
DRAWRECTREL(N1-356,ZZKP9,N1-352,ZZZG9,RGB(355,0,355));
DRAWRECTREL(N1-356,ZZCP9,N1-352,ZZZD9,RGB(0,355,0));
Q28:=IF(JC9>=JO9,355,0);
Q29:=IF(JC9>=JO9,0,355);
Q30:=IF(JC9>=JO9,0,0);
DRAWRECTREL(N1-369,ZZKP9,N1-337,ZZCP9,RGB(Q28,Q29,Q30));JO10:="FSKY.JO10#DAY";
JC10:="FSKY.JC10#DAY";
JH10:="FSKY.JH10#DAY";
JL10:="FSKY.JL10#DAY";
ZZKP10:=500-(JO10/ZS-1)*4000;
ZZCP10:=500-(JC10/ZS-1)*4000;
ZZZG10:=500-(JH10/ZS-1)*4000;
ZZZD10:=500-(JL10/ZS-1)*4000;
DRAWRECTREL(N1-396,ZZKP10,N1-392,ZZZG10,RGB(355,0,355));
DRAWRECTREL(N1-396,ZZCP10,N1-392,ZZZD10,RGB(0,355,0));
Q31:=IF(JC10>=JO10,355,0);
Q32:=IF(JC10>=JO10,0,355);
Q33:=IF(JC10>=JO10,0,0);
DRAWRECTREL(N1-409,ZZKP10,N1-377,ZZCP10,RGB(Q31,Q32,Q33));JO11:="FSKY.JO11#DAY";
JC11:="FSKY.JC11#DAY";
ZZKP11:=500-(JO11/ZS-1)*4000;
ZZCP11:=500-(JC11/ZS-1)*4000;
Q34:=IF(JC11>=JO11,355,0);
Q35:=IF(JC11>=JO11,0,355);
Q36:=IF(JC11>=JO11,0,0);
DRAWRECTREL(N1-449,ZZKP11,N1-417,ZZCP11,RGB(Q34,Q35,Q36));
分时均价线:SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK2;
D:CLOSE,LINETHICK2,COLORWHITE;
|
