抄底逃顶趋势决策主图公式 EA

抄底逃顶趋势决策主图公式

r

源码

r

//#@Fname=抄底逃顶趋势决策
r//#@comment=
r//#@control=Check#1 趋势线
r//#|Check#2 决策密码
r//#@FuncType=
r//#@style=:Line516,成交价格,1,0,1,4,920515;
r//#@availperiod=2147430400
r//#@param=N1=1.0000000001,0.0000000001,1.0000000001,1;N2=0.0000000001,0.0000000001,1.0000000001,1;
r//#@isDrawCurve=1
r//#@Fdesc=抄底逃顶趋势决策
r//#@defaultperiod=16384
r//#@coord=M
r//#@ordinate=0,0.000000;0,0.000000;1,20487.000000;0,0.000000;0,0.000000;0;0,0.000000
r//#@@FUNCSPEC@=source
rLC:=REF(CLOSE,1);
rRSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
rAR:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100;
rVarb:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
rVarc:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
rVard:=BARSCOUNT(CLOSE);
r主力:=EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*480,2)*5;
r散户:=EMA( (CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*480,7)*5;
rdpLC:=REF(INDEXC,1);
rdpRSI1:=SMA(MAX(INDEXC-dpLC,0),6,1)/SMA(ABS(INDEXC-dpLC),6,1)*100;
rdpAR:=SUM(INDEXH-INDEXO,26)/SUM(INDEXO-INDEXL,26)*100;
rdpVarb:=SMA(MAX(INDEXC-dpLC,0),7,1)/SMA(ABS(INDEXC-dpLC),7,1)*100;
rdpVarc:=SMA(MAX(INDEXC-dpLC,0),13,1)/SMA(ABS(INDEXC-dpLC),13,1)*100;
rdpVard:=BARSCOUNT(INDEXC);
rdpzl:=EMA( (INDEXC-MA(INDEXC,7))/MA(INDEXC,7)*480,2)*5;
rdpsh:=EMA( (INDEXC-MA(INDEXC,11))/MA(INDEXC,11)*480,7)*5;
rDRAWTEXT(CROSS(85,RSI1),HIGH*1.02,’顶’),colorgreen;
rDRAWTEXT(CROSS(85,dpRSI1),HIGH*1.02,’系统风险’),coloryellow;
rde1:=CROSS(RSI1,25) AND (CROSS(dpRSI1,25) OR dpzl>dpsh);
rDRAWTEXT(de1,LOW*0.98,’底’),colorred;

r

IF((n1<1 AND n2<1) OR(n1>0 AND n2>0))
r{    
rIF(CLOSE>OPEN)
r RETURN "阳";
rELSE IF(CLOSE<OPEN)
r RETURN "阴";
rELSE  IF(CLOSE==OPEN AND OPEN>=CLOSE[1])
r RETURN "阳";
rELSE  IF(CLOSE==OPEN AND OPEN<=CLOSE[1])
r RETURN "阴";
rMONEY;
rK线换手;
r }
rELSE IF((n1<1 AND n2>0))
r{ 
rVar1=MONEY/VOL;
rA=SMA(Var1,5,1)-SMA(Var1,55,1);
rB=SMA((A-SMA(A,5,1)),5,1);
r风险系数:B;
rIF(CLOSE>MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1))
r  RETURN ("colorred");
rIF(CLOSE<MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1))
r  RETURN ("colorwhite");
rIF(A<REF(A,3) AND B<REF(B,3) AND CLOSE>=MA(CLOSE,20))
r RETURN ("colorwhite");
r IF(A<REF(A,3) AND B<REF(B,3) AND CLOSE<MA(CLOSE,20))
r RETURN ("colorgreen");
rIF(A>REF(A,1) AND B<REF(B,1))
r RETURN ("colorwhite");
rIF(A<REF(A,1) AND B>REF(B,1))
r RETURN ("colorwhite");
r   }
rELSE IF(n1>0 AND n2<1)
r {
r大单净差BBD:=BIGBUYCOUNT1+WAITBUYCOUNT1-BIGSELLCOUNT1-WAITSELLCOUNT1;
rdd:=大单净差BBD;
rDIFF:=EMA(大单净差BBD,2) – EMA(大单净差BBD,4),coloryellow;
rDIFF2:=EMA(大单净差BBD,6) – EMA(大单净差BBD,12),coloryellow;
rm34:=MA(C,34);
rm5:=MA(C,5);
rr5:=COUNT(大单净差BBD>0,5);
rr6:=COUNT(大单净差BBD>0,6);
ra1:=IF(C<REF(C,2)*1.0200,1,0);
ra2:=IF(C<REF(C,2)*1.0050,1,0);
ra3:=IF(C<REF(C,2)*0.0985,1,0);
ra4:=IF(C<REF(C,2)*0.0970,1,0);
ra5:=IF(DIFF>0,2,0);
ra6:=IF(DIFF2>0,2,0);
ra7:=IF(C>m34,2,0);
ra8:=IF(C>m5,2,0);
ra9:=IF(r5>3,2,0);
ra10:=IF(r6>3,1,0);
raz:=a1+a2+a3+a4+a5+a6+a7+a8+a9+a10;
rIF(C<m5)
r green:=C<m5;
r ELSE IF(az>2.5)
r  red:=az>2.5;
r  ELSE green:=az<2.5;
rENTERLONG:=(REF(green,1)=1 AND red=1 ) AND COUNT(REF(green,1)=1 AND red=1,BARSLAST(REF(red,1)=1 AND green=1))=1;
rEXITLONG:=REF(red,1)=1 AND green=1 AND COUNT(REF(red,1)=1 AND green=1,BARSLAST(REF(green,1)=1 AND red=1))=1;
rVERLINE(ENTERLONG,1),colorred;
rVERLINE(EXITLONG,1),colorgreen;
rIF(C<m5)
r RETURN ("colorgreen"); 
rIF(az>2.5)
r  RETURN ("colorRED");
rIF(az<2.5)
r RETURN ("colorgreen");
r }
rSHGZG;
rMONEY;
rHIGH;
rLOW;

r