人头B主图－精品通达信指标公式源码分享

MA5:MA(CLOSE,5),POINTDOT,COLOR000000,LINETHICK1;   

MA21:=EMA(CLOSE,21);   

MID:MA(CLOSE,21),COLOR000000,LINETHICK0;   

风险线: MA(CLOSE,13),LINETHICK3,COLORGREEN;   

止损线: MA(CLOSE,27),LINETHICK0,COLOREE00EE;   

UPPER:MID + 2*STD(C,20),LINETHICK0,COLORFFFFFF;   

LOWER:MID - 2*STD(C,20),LINETHICK0,COLORFFFFFF;   

H1:=EMA(SLOPE(CLOSE,34)*20+CLOSE,75);   

H2:=EMA(CLOSE,8);   

VAR1D:=H2-H1;   

A:=(3*C+L+O+H)/6;   

B:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;   

D:=MA(B,10);   

STICKLINE((MA21 > REF(MA21,1)),MA21,MA21,5,6),LINETHICK2,COLOR00FFFF;   

STICKLINE(C>=MID AND C>=O,C,O,5,0),COLORRED;   

STICKLINE(C>=MID AND C>=O,H,L,0,0),COLORRED;   

STICKLINE(C>=MID AND C<O,C,O,5,1),COLORRED;   

STICKLINE(C>=MID AND C<O,O,H,0,0),COLORRED;   

STICKLINE(C>=MID AND C<O,C,L,0,0),COLORRED;   

STICKLINE(C<MID AND C>O,C,O,5,1),COLORFFFF00;   

STICKLINE(C<MID AND C<=O,C,O,5,1),COLORFFFF00;   

STICKLINE(C<MID AND C<=O,H,L,0,1),COLORFFFF00;   

STICKLINE(C<MID AND C>O,C,H,0,1),COLORFFFF00;   

STICKLINE(C<MID AND C>O,O,L,0,1),COLORFFFF00;   

牛熊线:EMA(C,250),CIRCLEDOT,COLOR999999;   

界:MA(CLOSE,21),,POINTDOT,COLOR000000,LINETHICK0;   

VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));   

VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));   

VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));   

DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.95),4),LINETHICK3;   

DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.05),5),LINETHICK3;   

DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.988),'Ｂ'),COLORYELLOW,LINETHICK3;   

DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.02),'Ｓ'),COLOREE00EE,LINETHICK2;   

STICKLINE(C>=界 AND C>=O,C,O,5,0),COLORRED;   

STICKLINE(C>=界 AND C>=O,H,L,0,0),COLORRED;   

STICKLINE(C>=界 AND C<O,C,O,5,1),COLORRED;   

STICKLINE(C>=界 AND C<O,O,H,0,0),COLORRED;   

STICKLINE(C>=界 AND C<O,C,L,0,0),COLORRED;   

STICKLINE(C<界 AND C>O,C,O,5,1),COLORFFFF00;   

STICKLINE(C<界 AND C<=O,C,O,5,1),COLORFFFF00;   

STICKLINE(C<界 AND C<=O,H,L,0,1),COLORFFFF00;   

STICKLINE(C<界 AND C>O,C,H,0,1),COLORFFFF00;   

STICKLINE(C<界 AND C>O,O,L,0,1),COLORFFFF00;   

DRAWTEXT(CROSS(MA5,界),(LOW * 0.80),'◇底背离'),COLORWHITE;       

DRAWTEXT(CROSS(C,止损线)AND 止损线>风险线,(LOW * 0.96),'主升浪'),COLORRED,LINETHICK3;