通达信乾财来公式附图源码

以下是通达信乾财来公式附图源码

乾财来公式
VAR1:=1090630;
乾财来:DRAWNULL,NODRAW;
信号点:IF(DATE<=VAR1,SAR(4,2,20),MA(CLOSE,30)),NODRAW,COLORWHITE;
生命线:MA(CLOSE,30),COLORWHITE,LINETHICK2;
 SMX:MA(CLOSE,30),COLORRED;
 A:=信号点,NODRAW;
 B:=(MA(CLOSE,30)-REF(MA(CLOSE,30),1))*100/REF(MA(CLOSE,30),1);
 {以下是在K线图上画SAR指标线}
IF(CLOSE>=A,A,DRAWNULL),POINTDOT,COLORRED,LINETHICK4;
 IF(CLOSE<A,A,DRAWNULL),POINTDOT,COLORGREEN,LINETHICK4;
 IF(MA(B,3)<0.1,MA(CLOSE,30),DRAWNULL),COLORGRAY,LINETHICK2;
 {划彩色K线}
 STICKLINE(C>=A AND C>=O,C,O,2.8,1),COLORRED;
 STICKLINE(C>=A AND C<O,C-0.003*C,O,2.8,0),COLORRED;
 STICKLINE(C>=A ,H,C,0,0),COLORRED;
 STICKLINE(C>=A ,O,L-0.003*C,0,0),COLORRED;
 STICKLINE((C<A AND C>=O),C,O,2.8,1),COLORGREEN;
 STICKLINE((C<A AND C<O),C-0.003*C,O,2.8,0),COLORGREEN;
 STICKLINE(C<A ,H,C,0,0),COLORGREEN;
 STICKLINE(C<A ,O,L-0.003*C,0,0),COLORGREEN;
 JJ:=(CLOSE+HIGH+LOW)/3;
 A8:=EMA(JJ,10);
 B8:=REF(A8,1);
持股区域:STICKLINE(A8>B8,A8,B8,2,0),COLORYELLOW;
持币区域:STICKLINE(A8<B8,A8,B8,2,0),COLORBLUE;