一共是3个公式，
鳄鱼分形主图、动量震荡副图和动量加速副图，组合使用，效果更好，源码分享 {鳄鱼分形}
{主图}
VAR11:=(H+L)/2;
上唇:REF(SMA(VAR11,5,1),3),COLORBLUE;
牙齿:REF(SMA(VAR11,8,1),5),COLORRED;
下颚:REF(SMA(VAR11,13,1),8),COLORGREEN;
VAR1:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
VAR2:=CROSS(VAR1,0.9);
VAR3:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
VAR4:=CROSS(VAR3,0.9);
压力: REF(HIGH,BARSLAST(VAR2)), POINTDOT,COLOREA91B5;
支撑: REF(LOW,BARSLAST(VAR4)), POINTDOT,COLOR3791B5;
{动量震荡}
Y:=(HIGH+LOW+CLOSE+OPEN)/4;
AO:EMA(Y,5)-EMA(Y,34),COLORBLACK;
AOR:=REF(AO,1);
STICKLINE(AO>AOR,0,AO,0.1,0),COLORRED;
STICKLINE(AO<AOR,0,AO,0.1,0),COLORGREEN;
IF(AO>=REF(AO,1),AO,DRAWNULL),COLORRED;
IF(AO<=REF(AO,1),AO,DRAWNULL),COLORGREEN;
DRAWICON(CROSS(AO,0),LLV(AO,3),1);
DRAWICON(CROSS(0,AO),HHV(AO,3),2);
DRAWICON(LONGCROSS(AO,REF(AO,1),1)=1&&AO<0,LLV(AO,3)*1.005,38);
DRAWICON(LONGCROSS(REF(AO,1),AO,1)=1&&AO>0,HHV(AO,3)*0.995,39);
0;
{动量加速}
P:=(OPEN+HIGH+LOW+CLOSE)/4;
AO:=MA(P,5)-MA(P,34);
AC:AO-MA(AO,5),COLORYELLOW;
AR:=REF(AC,1);
IF(AC>=AR,AC,DRAWNULL),COLORRED;
IF(AC<=AR,AC,DRAWNULL),COLORGREEN;
STICKLINE(AC>AR,0,AC,0.1,0),COLORRED;
STICKLINE(AC<AR,0,AC,0.1,0),COLORGREEN;
DRAWICON(CROSS(AC,AR)&&AC<0,LLV(AC,2),38);
DRAWICON(CROSS(AR,AC)&&AC>0,HHV(AC,2),39);
ZERO:0,COLORYELLOW;
 |
