|
以下是通达信成本铁底主图指标 源码（无源码的请下载附件导入）
A:=(3*C+L+O+H)/6;
X:=(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;
{生命线:EMA(X,15),COLOR00FF00,LINETHICK3;}
VAR4:=(2*CLOSE+HIGH+LOW)/4;
成本区:EMA(VAR4,90)*0.995,COLORWHITE,LINETHICK2,POINTDOT;
操作区:EMA(VAR4,142)*0.998,COLORRED,LINETHICK1;
铁底区:EMA(VAR4,250)*0.885,COLORYELLOW,LINETHICK1;
{拐点显示}
VAR1:=(O+L+H+C)/4;
拐点:=MA(C,3); 拐点1:=MA(C,3);
GD1:=REF(COUNT(拐点<=REF(拐点,1),5)=5 ,1) AND 拐点>REF(拐点,1);
GD2:=REF(COUNT(拐点1<=REF(拐点1,1),5)=5 ,1) AND 拐点1>REF(拐点1,1);
DRAWICON(GD1,0.98*C,1);
DRAWICON(GD2,0.98*C,9);
VARA:=AMOUNT/VOL/100;
VARB:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VARC1:=SUM(AMOUNT,7)/VARA/100;
VARD:=DMA(VARB,VOL /VARC1);
VARE:=(CLOSE-VARD) /VARD*100;
VARF:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=(CLOSE-MA(CLOSE,18))/MA(CLOSE,18)*100;
K:=SMA(VARF,3,1);
DRAWTEXT(REF(BIAS18,1)>=5 AND CROSS(VARJ,VARE) AND K>88 ,H+0.5,''),COLORYELLOW;
条件:= O>C AND C<REF(C,1) AND REF(C,1)<REF(C,2) AND REF(O,1)>REF(C,1) AND REF(O,2)>REF(C,2) ;
STICKLINE(条件 ,O ,C ,7 ,0 ),COLOR00FFFF;
STICKLINE(条件 ,L ,H ,0 ,0 ),COLOR00FFFF;
DRAWTEXT(COUNT(C<REF(C,1),5)=5,L*0.995,'关注');
{波段王买入信号加入主图}
C11:=(CLOSE+LOW+HIGH)/3;
C22:=EMA(C11,6);
C3:=EMA(C22,5);
C4:=CROSS(C22,C3);
DRAWTEXT(C4,LOW/1.01,'波★'),COLORWHITE;
{MACD买入加入主图信号}
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
DRAWTEXT(CROSS(DIFF,DEA),L-0.2,'M买入'),COLORWHITE;
74255707.png
|
