分时主图指标 源码 通达信 贴图 直观好用

自用的一个分时图，可以用在分时主图上，我个人觉得不错，有图有真相，希望对大家有帮助。

成交额:=V*C/100,NODRAW;{万元}
A2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);
A3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);
A6:=(A2+A3);
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
DD1:=1;
AAA1:=STRCAT(STRCAT('机构买 = ',CON2STR((100*A2)/A6,0)),'%');
AAA2:=STRCAT(STRCAT('机构卖 = ',CON2STR((100*A3)/A6,0)),'%');
AAA3:=STRCAT(STRCAT('机构总买 = ',CON2STR((100*(A2-A3))/A6,0)),'%');
DRAWTEXT_FIX(DD1=1,0,0.83,0,AAA1),COLOR00FFFF;
DRAWTEXT_FIX(DD1=1,0,0.89,0,AAA2),COLOR00FF00;
DRAWTEXT_FIX(DD1=1,0,0.99,0,AAA3),COLOR0000FF;

H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*7/8,COLORGREEN;
支撑:L1+P1*0.5/8,COLORRED;
中:(支撑+阻力)/2,COLORWHITE,POINTDOT;
现价:CLOSE,COLORWHITE,LINETHICK2;

底买:STICKLINE(C<支撑,支撑,C,5,0),COLORRED;

MR:=C<支撑 AND CROSS(C,REF(C,2));
DRAWTEXT(CROSS(现价,支撑),支撑,'★买'),COLORRED;
DRAWTEXT(CROSS(现价,阻力),阻力-(支撑-中)/5,'★卖'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR,阻力,'顶'),COLORGREEN;
DRAWTEXT(ISLASTBAR,支撑,'底'),COLORRED;
DRAWTEXT(ISLASTBAR,(支撑+阻力)/2,'中'),COLORWHITE;

X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};
X3:=FINANCE(23)/FINANCE(10)*3.3;
X4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
X5:=FINANCE(20)/FINANCE(15)*0.999;
Z值:=X1+X2+X3+X4+X5;
预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警'));
财务:=STRCAT('财务: ',STRCAT(预警,STRCAT(' -Z值: ',CON2STR(Z值,3))));
资产:=STRCAT(' 优质率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理论上越大越好但不同行业有不同标准};
负债比:=STRCAT(' 负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺长期负债或负债总额，理论上越大越好但不同行业有不同标准};
财务系数:=STRCAT('风险: ',STRCAT(STRCAT(财务,资产),负债比));
{}
DRAWTEXT_FIX(ISLASTBAR,0.2,0.96,0,财务),COLORFFFFFF;
DRAWTEXT_FIX(1,0.2,0.8,0,'行业：')COLORCYAN;
DRAWTEXT_FIX(1,0.26,0.8,0,HYBLOCK),COLORWHITE;
DRAWTEXT_FIX(1,0.42,0.8,0,'地区：')COLORCYAN;
DRAWTEXT_FIX(1,0.48,0.8,0,DYBLOCK),COLORWHITE;

{开盘三线}
{新版分时主图}

T31:=BARSLAST(TIME2=093100);
T40:=BARSLAST(TIME2=094000);
T41:=BARSLAST(TIME2=094100);
T50:=BARSLAST(TIME2=095000);
T51:=BARSLAST(TIME2=095100);
T60:=BARSLAST(TIME2=100000);
C31:=REF(C,T40);
O31:=REF(C,T31);
C40:=REF(C,T50);
O40:=REF(C,T41);
C50:=REF(C,T60);
O50:=REF(C,T51);
A1:=C31>O31 AND C40>O40 AND C50>O50 AND O40>=C31 AND O50>=C40;
A20:=C31<O31 AND C40<O40 AND C50<O50 AND O40<=C31 AND O50<=C40;
A30:=C31>O31 AND C40>O40 AND C50<O50 AND C50<C40 AND O50/C50<C40/O40 AND O50/C50<C31/O31;
A4:=C31>O31 AND C40<O40 AND C50<O50 AND C40<C31 AND C50<C40 AND C31/O31<O40/C40 AND C31/O31<O50/C50;
A5:=C31<O31 AND C40<O40 AND C50>O50 AND C40<C31 AND O50>=C40;
A60:=C31<O31 AND C40>O40 AND C50>O50 AND C40>C31 AND C50>C40 AND O31/C31<C40/O40 AND O31/C31<C50/O50;
A70:=C31>O31 AND C40<O40 AND C50>O50 AND C31/O31>O40/C40 AND C50/O50>O40/C40;
A80:=C31<O31 AND C40>O40 AND C50<O50 AND C40/O40<O31/C31 AND C40/O40<O50/C50;
A9:=MAX(C31,O31)>=MAX(C40,O40) AND MAX(C31,O31)>=MAX(C50,O50);
A10:=MIN(C31,O31)<=MIN(C40,O40) AND MIN(C31,O31)<=MIN(C50,O50);
B1:='【三阳开泰】飚涨走势可能涨停，量大出货否则守仓，大阳盯量';
B2:='【三只乌鸦】重挫走势可能跌停，只要反弹立即出货，大阴随逃';
B3:='【二阳一小阴】震荡后势看好，逢高减逢低吸，中阳阴须小心';
B4:='【一上二下二只乌鸦】拉高出货后市看坏，逢高减磅后市下跌，中阴阳线小';
B5:='【二下一上二阴一阳】急跌控底后市不明，逢高减磅观望为主，下影阴阳大小';
B6:='【一下二上一阴二阳】震荡控底后市趋好，观望为主谨慎吸纳，下影阳阴大小';
B7:='【一上一下二阳夹一阴】震荡走市后市看好，持股待涨逢低吸纳，中阳阴须小心再上';
B8:='【一下一上二阴夹一阳】跌幅较大尾市杀跌，只要反弹立即出货，中阴阳须小心再下';
B9:='【三不创新高】可小阴阳，三次不过短时顶部，阻力离场观望，上影阴阳小K线';
B10:='【三不创新低】可小阴阳，三次不破短时底部，走势不强逢低少吸，下影阴阳小K线';
DRAWTEXT_FIX( A1,0.005,0.005,0,B1),COLORRED;
DRAWTEXT_FIX( A20,0.005,0.005,0,B2),COLORGREEN;
DRAWTEXT_FIX( A30,0.005,0.005,0,B3),COLORMAGENTA;
DRAWTEXT_FIX( A4,0.005,0.005,0,B4),COLORCYAN;
DRAWTEXT_FIX( A5,0.005,0.005,0,B5),COLOR00FFFF;
DRAWTEXT_FIX( A60,0.005,0.005,0,B6),COLORWHITE;
DRAWTEXT_FIX( A70,0.005,0.005,0,B7),COLORYELLOW;
DRAWTEXT_FIX( A80,0.005,0.005,0,B8),COLORLIGREEN;
DRAWTEXT_FIX( A9,0.005,0.05,0,B9),COLORWHITE;
DRAWTEXT_FIX( A10,0.005,0.1,0,B10),COLORLIMAGENTA;