通达信特快列车主图 源码主图指标公式[好查股公式]
2023/2/16 19:14:15
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;
好查股公式指标
