通达信鳄鱼分形+动量震荡+动量加速主图/副图指标 源码

以下是通达信鳄鱼分形+动量震荡+动量加速主图/副图指标 源码

威廉姆的鳄鱼分形+动量震荡+动量加速，话不多说，直接上图。

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;