通达信分时主图分享

此分时主图是我结合网上收集到的相关指标改编的，选了我需要的部分，去除我不需要的部分。
 
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;