均线分笔动能公式 可以近似判断缠论背驰情况 EA

均线分笔动能公式 可以近似判断缠论背驰情况

rn

思路：以均线相交的情况作为分笔顶点的依据。（是否有道理，还需检验！）
rn 同时以价格乘以时间间隔的开方作为动能。以此作为依据，与前笔比较判定是否背驰。有背驰为细线，无背驰为粗线。

rn

源码

rn

MD6:MA(C,3);
rnMD5:MA(C,8);
rnMD4:MA(C,21);
rnMD3:MA(C,55);
rnMD2:MA(C,144);
rnMD1:MA(C,377);
rnL1:=IF(MD2>=MD1,1,0);
rnL2:=IF(MD3>MD2 OR MD3=MD2 AND L1=0,1,0);
rnL3:=IF(MD4>MD3 OR MD4=MD3 AND L2=0,1,0);
rnL4:=IF(MD5>MD4 OR MD5=MD4 AND L3=0,1,0);
rnL5:=IF(MD6>MD5 OR MD6=MD5 AND L4=0,1,0);
rnL6:=IF(C>MD6 OR C=MD6 AND L5=0,1,0);
rnLL1:=L1+L2*2+L3*4;
rnLL2:=L4+L5*2+L6*4;
rnGG:=IF(LL2=7 OR LL2=3,H,0.5*L);
rnGD:=IF(LL2=0 OR LL2=4,L,1.5*H);
rn均线顶0:=(LL2=7 OR LL2=3 AND (REF(LL2,1)=7 OR REF(LL2,1)=3)  AND (H>REF(H,1) )) ;
rn均线底0:=(LL2=0 OR LL2=4 AND (REF(LL2,1)=0 OR REF(LL2,1)=4) AND (L<REF(L,1)))  ;
rnGG2:=IF(均线顶0,H,0.9*H);
rnGD2:=IF(均线底0,L,1.1*L);
rn均线顶A:=FILTERX(均线顶0 AND GG2=HHV(GG2,BARSLAST(均线底0)),BARSLAST(均线底0));
rn均线底A:=FILTERX(均线底0 AND GD2=LLV(GD2,BARSLAST(均线顶0)),BARSLAST(均线顶0));
rn修正顶:=均线顶A;
rn修正底:=均线底A;
rn最后底:=filterx(修正底,100000);
rnx1:=if(修正底,barslast(修正顶),if(修正顶,barslast(修正底),0));
rnerea:=if(修正底,sqrt(x1)*(ref(h,x1)-l),if(修正顶,(h-ref(l,x1))*sqrt(x1),0));
rny1:=ref(x1,x1)+x1;
rnerea2:=ref(erea,y1);
rnv1:=if(修正底 or 修正顶, sum(v,x1)/10000,0);
rnv2:=ref(v1,y1);
rne2:=ref(erea,y1);
rnvv1:=v2/e2*erea;
rndrawnumber(修正底 ,l*0.97,v1,2),coloryellow;
rndrawnumber(修正底 ,l*0.98,erea,2),colorred;
rndrawnumber(修正底 ,l*0.99,l,2),colorgreen;
rndrawnumber(最后底 ,l*0.96,vv1,2),COLORMAGENTA;
rndrawnumber( 修正顶,h*1.03,v1,2),coloryellow;
rndrawnumber( 修正顶,h*1.02,erea,2),colorred;
rndrawnumber( 修正顶,h*1.01,h,2),COLORMAGENTA;
rnDRAWLINE(修正底,LOW,修正顶 and erea > erea2, HIGH,0),COLORMAGENTA,LINETHICK3;
rnDRAWLINE(修正底,LOW,修正顶 and erea <= erea2 , HIGH,0),COLORMAGENTA,LINETHICK1;
rnDRAWLINE(修正顶,HIGH,修正底 and erea > erea2 , LOW,0),COLORGREEN,LINETHICK3;
rnDRAWLINE(修正顶,HIGH,修正底 and erea <= erea2 , LOW,0),COLORGREEN,LINETHICK1;

rn