通达信特快列车主图 源码主图指标公式

A5:MA(C,5),COLOR00FFFF;
 

A20:MA(C,20),COLORFF00FF;

A30:MA(C,30),COLOR00FF00;

M5:=ATAN((A5/REF(A5,1)-1)*100)*180/3.14159;

M20:=ATAN((A20/REF(A20,1)-1)*100)*180/3.14159;

M30:=ATAN((A30/REF(A30,1)-1)*100)*180/3.14159;

QSXS:=M30>0;

A50:=IF(M5<0,-25,0);

A51:=IF(BETWEEN(M5,0,45),25,A50);

A52:=IF(BETWEEN(M5,45,75),50,A51);

MA5:=IF(M5>75,75,A52)*QSXS;

A200:=IF(M20<0,-25,0);

A201:=IF(BETWEEN(M20,0,45),25,A200);

A202:=IF(BETWEEN(M20,45,75),50,A201);

MA20:=IF(M20>75,75,A202)*QSXS;

A300:=IF(M30<0,-25,0);

A301:=IF(BETWEEN(M30,0,45),25,A300);

A302:=IF(BETWEEN(M30,45,75),50,A301);

MA30:=IF(M30>75,75,A302)*QSXS;

SGSJ:=BARSLAST(CROSS(MA5,REF(MA5+1,1)));

XGSJ:=BARSLAST(CROSS(REF(MA5-1,1),MA5));

列车:=IF(MA5>=50 AND MA20>=25 AND MA30>=25 AND SGSJ<XGSJ,50,25);

启动:=IF(CROSS(列车,45),50,25);

站台:=IF(MA5<=0 AND COUNT(MA20>=25,10)>=9 AND MA30>=25,-25,25);

买票:=IF(站台=-25 AND COUNT(站台=-25,3)>=2 AND C>=REF(C,4),25,-10);

上车:=IF(CROSS(MA5,0) AND COUNT(MA20>=25,10)>=9 AND MA30>=25,50,25);

{以下设置主图显示方式}

STICKLINE(MA20>0,A20,(A20+A30)/2,4,1),COLORFF00FF;

STICKLINE(MA30>0,A30,(A20+A30)/2,4,1),COLOR00FF00;

STICKLINE(MA5>0,A30,(A30*0.75+A20*0.25),4,1),COLOR00FFFF;

{DRAWTEXT(列车=50,A30-0.20, '列车'),COLOR88FFFF;

DRAWTEXT(启动=50,A30, '启动'),COLORFF00FF;}

STICKLINE(站台=-25,A30,A30*0.98,4,0),COLORFFFF00;

STICKLINE(买票=25,A30,A30*0.98,2,0),COLORFFFFFF;

DRAWTEXT(买票=25,A30*0.97, '票'),COLORFF8800;

DRAWTEXT(上车=50,A30, '上车'),COLORFFFFFF;