分时主图

此分时主图是我结合网上收集到的相关指标改编的，选了我需要的部分，去除我不需要的部分。分享一下，做为对理想论坛的回报吧。分时引用在5楼，大家加一下吧。我忘记了，不好意思。

D1:=HOUR=9 AND MINUTE=40;
D2:=HOUR=9 AND MINUTE=50;
D3:=HOUR=10 AND MINUTE=0;
D1D:=IF(D1=1,C,DRAWNULL);
D2D:=IF(D2=1,C,DRAWNULL);
D3D:=IF(D3=1,C,DRAWNULL);
DRAWLINE(D1=1,D1D,D2=1,D2D,0),COLORRED,LINETHICK2;
DRAWLINE(D2=1,D2D,D3=1,D3D,0),COLORRED,LINETHICK2;
DD1:D1D,NODRAW;
DD2:D2D,NODRAW;
DD3:D3D,NODRAW;
DRAWNUMBER(D1=1,C*0.998,C),COLORGREEN;
DRAWNUMBER(D2=1,C*0.998,C),COLORCYAN;
DRAWNUMBER(D3=1,C*0.998,C),COLORLIRED;
DRAWTEXT_FIX( 1,0.00,1-0.18,0,' 9:40：'),COLORGREEN;
DRAWNUMBER_FIX(1,0.09,1-0.18,0,D1D),COLORGREEN;
DRAWTEXT_FIX( 1,0.00,1-0.12,0,' 9:50：'),COLORCYAN;
DRAWNUMBER_FIX(1,0.09,1-0.12,0,D2D),COLORCYAN;
DRAWTEXT_FIX( 1,0.00,1-0.03,0,'10:00：'),COLORLIRED;
DRAWNUMBER_FIX(1,0.09,1-0.03,0,D3D),COLORLIRED;

ZS:=DYNAINFO(3);
KP:=DYNAINFO(4);
ZX:=DYNAINFO(7);
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,860);
DRAWRECTREL(N1+4,OP,N1+8,HI,RGB(255,0,255)),COLORFF00FF;{今日最高}{玫红}
DRAWRECTREL(N1+4,CL,N1+8,LO,RGB(0,128,0)),COLOR008000;{今日最低}{暗绿}
Q1:=IF(ZX>=KP,255,0);
Q2:=IF(ZX>=KP,0,255);
Q3:=IF(ZX>=KP,0,255);
DRAWRECTREL(N1-10,OP,N1+22,CL,RGB(Q1,Q2,Q3));{今日实体}{255,0,0大红}{0,255,255青}
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(255,0,255)),COLORFF00FF;{昨日最高}{玫红}
DRAWRECTREL(N1-36,ZCP,N1-32,ZZD,RGB(0,128,0)),COLOR008000;{昨日最低}{暗绿}
Q4:=IF(ZC>=ZO,255,0);
Q5:=IF(ZC>=ZO,0,255);
Q6:=IF(ZC>=ZO,0,255);
DRAWRECTREL(N1-49,ZKP,N1-17,ZCP,RGB(Q4,Q5,Q6)),COLOR00FFFF;{昨日实体}{大红或青}
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(255,0,255)),COLORFF00FF;{前日最高}{玫红}
DRAWRECTREL(N1-76,ZZCP,N1-72,ZZZD,RGB(0,128,0)),COLOR008000;{前日最低}{暗绿}
Q7:=IF(JC>=JO,255,0);
Q8:=IF(JC>=JO,0,255);
Q9:=IF(JC>=JO,0,255);
DRAWRECTREL(N1-89,ZZKP,N1-57,ZZCP,RGB(Q7,Q8,Q9)),COLOR00FFFF;{前日实体}{大红或青}

MA5:="FSKY.MA5#DAY";
XMA5:=500-(MA5/ZS-1)*4000;
DRAWRECTREL(N1-15,XMA5-5,N1+25,XMA5+5,RGB(255,255,255));{白}
DRAWTEXT_FIX(ISLASTBAR,0.820,1-0.20,0,STRCAT('A5 : ',CON2STR(MA5,2))),COLORWHITE;
MA10:="FSKY.MA10#DAY";
XMA10:=500-(MA10/ZS-1)*4000;
DRAWRECTREL(N1-15,XMA10-5,N1+35,XMA10+5,RGB(255,255,0));{黄}
DRAWTEXT_FIX(ISLASTBAR,0.8200,1-0.15,0,STRCAT('A10 : ',CON2STR(MA10,2))),COLORYELLOW;
MA20:="FSKY.MA20#DAY";
XMA20:=500-(MA20/ZS-1)*4000;
DRAWRECTREL(N1-15,XMA20-5,N1+45,XMA20+5,RGB(255,0,255)),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.8200,1-0.10,0,STRCAT('A20 : ',CON2STR(MA20,2))),COLORMAGENTA;
MA60:="FSKY.MA60#DAY";
XMA60:=500-(MA60/ZS-1)*4000;
DRAWRECTREL(N1-15,XMA60-5,N1+55,XMA60+5,RGB(0,125,0)),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.8200,1-0.03,0,STRCAT('A60 : ',CON2STR(MA60,2))),COLORGREEN;
分时均价线:SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK1;

DA:=YEAR AND MONTH AND DAY;
AA1:=STRCAT(CON2STR(YEAR,0),'年');
AA2:=STRCAT(CON2STR(MONTH,0),'月');
AA3:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'】');
DRAWTEXT_FIX(DA,0.85,0.01,0,AA),COLORWHITE;