通达信蛟龙出水主图公式源码
A1:=DATE = 13181231;
工作线:(EMA(C,14)) * A1,POINTDOT,LINETHICK5,COLORYELLOW;
AA05:MA(C,5),LINETHICK3,COLOR0099CC;
五日乖离率:=(C-AA05)/AA05*100;
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
加速度5:EMA((速度5-REF(速度5,1)),3),NODRAW;
IF(BB05 30 AND AA05 REF(AA05,1), AA05,DRAWNULL),LINETHICK2,COLORRED;
AA10:MA(C,10), LINETHICK0;
AA20:=MA(C,20);
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;
IF(BB05 0 AND AA05 REF(AA05,1), AA05,DRAWNULL),LINETHICK2,COLORFFFF00;
AA30:MA(C,30), LINETHICK0;
三拾日乖离率:(C-AA30)/AA30*100,NODRAW;
VAR1:=(AA20-AA30) REF((AA20-AA30),1) AND AA20 REF(AA20,1) AND AA30 REF(AA30,1);
VAR2:=(AA30-AA20) REF((AA30-AA20),1) AND AA20 REF(AA20,1) AND AA30 REF(AA30,1);
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;
强势狙击:=FILTER(BB30 30 AND BB10 45 AND CROSS(BB05,60),10);
加仓:=FILTER(COUNT(CROSS(BB05,30),5) =1 AND AA05 REF(AA05,1) AND 三拾日乖离率 REF(三拾日乖离率,1) AND AA10 REF(AA10,1)
AND 加速度5 REF(加速度5,1) AND 速度5 REF(速度5,1) ,10) ;
清仓:=FILTER(COUNT(CROSS(30,BB05),5) =1 AND (C AA30 OR O AA30) AND AA05 REF(AA05,1) AND 三拾日乖离率 REF(三拾日乖离率,1) AND AA10 REF(AA10,1),10);
DRAWTEXT(加仓 ,LOW*0.98,' -----加仓'),COLORYELLOW;
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率 REF(三拾日乖离率,1) AND AA10 REF(AA10,1) ;
减仓:=FILTER(JC,10);
MR:=COUNT(CROSS(五日乖离率,0),3) =1 AND 三拾日乖离率 REF(三拾日乖离率,1) AND AA05 REF(AA05,1) AND (C/REF(C,1)-1)*100 5 AND REF(C,1) AA30;
买入:=FILTER(MR,10);
DRAWTEXT(减仓,HIGH*1.02,' 减仓'),COLORCYAN;
DRAWTEXT(买入,LOW*0.98,' 买入'),COLORYELLOW;
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
VAR5:=CROSS(CCI,-100);
VAR6:=CCI =200;
DRAWTEXT(VAR6,HIGH*1.02,' ----小心'),COLORYELLOW;
SJ:=VAR5;
STICKLINE(SJ,H,L,0.6,0),COLORYELLOW;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(CROSS(84,RSI) , HIGH,' -----逃'),COLORGREEN;
VAR3AA:=IF((CLOSE REF(CLOSE,1)),88,0);
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1)) 1.05) AND ((HIGH)/(CLOSE) 1.01) AND (VAR3AA 0),91,0);
DRAWTEXT(FILTER((VAR4AA 90),45),(LOW)*(0.93),' ---大胆搏 '),COLORYELLOW;
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,13),LINETHICK2,COLORMAGENTA;
