通达信多空主图（主图）源码

以下是通达信多空主图（主图）源码

年:=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;