|
以下是通达信乾财来公式附图源码（无源码的请下载附件导入）
乾财来公式
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;
73500455.jpg
|
