通达信多空主图(主图)源码

[复制链接]
查看114 | 回复0 | 2021-8-19 14:22:17 | 显示全部楼层 |阅读模式

以下是通达信多空主图(主图)源码(无源码的请下载附件导入)

年:=1+(BARSLAST(YEAR!=REF(YEAR,1) OR DATETODAY(DATE)=1));
天数:=IF(PERIOD=5,年,DRAWNULL);
高1:=HHV(H,天数);
低1:=LLV(L,天数);
高低:(C-低1)/(高1-低1)*100,,NODRAW,COLORFFFF00;
振幅:(高1-低1)/低1*100,NODRAW,COLORWHITE;
天:CONST(高1),NODRAW,COLORYELLOW;
地:CONST(低1),NODRAW,COLOR00FF00;
强:CONST(高1-(高1-低1)*1/3),NODRAW,COLORFFFF00;
中:CONST(高1-(高1-低1)*1/2),NODRAW,COLORWHITE;
弱:CONST(高1-(高1-低1)*2/3),NODRAW,COLOR0099FF;
 STICKLINE(C>0,CONST(高1-(高1-低1)*1/4),CONST(高1-(高1-低1)*1/4),2,0),COLORFF00FF;
 STICKLINE(C>0,CONST(高1-(高1-低1)*3/4),CONST(高1-(高1-低1)*3/4),2,0),COLORFF00FF;
 STICKLINE(C>0,天,天,10,0),COLORYELLOW;
 STICKLINE(C>0,地,地,10,0),COLOR00FF00;
 STICKLINE(C>0,强,强,10,0),COLORFFFF00;
 STICKLINE(C>0,中,中,10,0),COLORWHITE;
 STICKLINE(C>0,弱,弱,10,0),COLOR0099FF;
 N:=12;
 DP:=(H+L+2*C)/4;
 DN:=ABS(CLOSE-REF(CLOSE,N));
 VY:=SUM(ABS(CLOSE-REF(CLOSE,1)),N);
 ER:=DN/VY;
 FSC:=2/(2+1);
 SSC:=2/(N+1);
 SC:=ER*(FSC-SSC)+SSC;
 SCSQ:=SC*SC;
 KMA:DMA(DP,SCSQ),COLOR00FF00,LINETHICK2;
多空:EMA(DP,50),COLORFFFF00,LINETHICK2;
 RC:=地;
DK:=(EMA(DP,12)-多空);
STICKLINE(DK>0 AND DK>REF(DK,1),RC,RC+DK,1,0),COLOR006699;
 STICKLINE(DK>0 AND DK< =REF(DK,1),RC,RC+DK,1,1),COLORFF00AA;
 STICKLINE(DK< 0 AND DK>REF(DK,1),RC,RC+DK,1,0),COLOR998800;
 STICKLINE(DK< 0 AND DK< =REF(DK,1),RC,RC+DK,1,1),COLOR009900;
 BUYA:=KMA>EMA(KMA,3);
 DRAWKLINE(H,O,L,C);
【量H】:=IF((AMOUNT/C)/(HHV(AMOUNT,21)/HHV(C,21))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,21)/HHV(C,21))*100);
 STICKLINE(【量H】=100,L,H,0.4,0),COLORYELLOW;
 STICKLINE(【量H】=100 AND C>=O,C,O,4,1),COLORYELLOW;
ZDF:=(C-REF(C,1))/REF(C,1)*100;
 STICKLINE(ZDF>9.8,O,C,2,0),COLORRED;
 STICKLINE(ZDF< -9.8,O,C,2,0),COLORBLUE;
 Q43:CONST(高1-(高1-低1)*1/4),NODRAW;
 Q41:CONST(高1-(高1-低1)*3/4),NODRAW;
 DK1:=DK+RC;
 M20:=MA(DK1,20);
 S:=STD(DK1,20);
高:=M20+2*S;
低:=M20-2*S;
【上】: 高,COLORFFFF00;
【下】: 低,COLORFFFF00;
 DRAWTEXT(CROSS(高,DK1),高,''),COLOR00FF00;
 DRAWTEXT(CROSS(DK1,高),高,''),COLORYELLOW;
 DRAWTEXT(CROSS(DK1,低),低,''),COLOR00FF00;
 DRAWTEXT(CROSS(低,DK1),低,''),COLORYELLOW;
 IF(多空>MA(DP,50),多空,DRAWNULL),COLOR00FF00,LINETHICK2;
 IF(BUYA=1,KMA,DRAWNULL),COLORRED,LINETHICK2;
 

854299909.jpg

854299909.jpg

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则