鳄鱼线

 Y:=(H+L)/2;
    AA:=REF((SMA(Y,5,1)),3);
    BB:=REF((SMA(Y,8,1)),5);
    CC:=REF((SMA(Y,13,1)),8);
    
    鳄:CC,COLORFF6600;
    齿:BB,COLORRED;
    唇:AA,COLORGREEN;
    
    R2:=REF(齿,5);
    KU1:=IF(HIGH=HHV(HIGH,3),1,0);
    KD1:=IF(LOW=LLV(LOW,3),1,0);
    UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0)));
    DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0)));
    上分形:IF(HIGH>=R2,UL,REF(UL,BARSLAST(HIGH>R2))),POINTDOT,LINETHICK3,,COLORMAGENTA;
    下分形:IF(LOW<=R2,DL,REF(DL,BARSLAST(LOW<=R2))),POINTDOT,LINETHICK3,COLORYELLOW;
    
    DRAWICON(CLOSE>上分形 AND REF(CLOSE,1)<REF(上分形,1),HIGH*1.03,1);
    DRAWICON(CLOSE<下分形 AND REF(CLOSE,1)>REF(下分形,1),LOW*0.99,2);
    
    AO:=MA(Y,5)-MA(Y,34);
    MAO:=MA(AO,5);
    AC:=AO-MAO;
    AC1:=REF(AC,1);
    AO1:=REF(AO,1);
    KAC:=IF(AC>AC1 AND AO>AO1,1,0);
    KAO:=IF(AC<AC1 AND AO<AO1,-1,0);
    
    STICKLINE(KAC=1 AND CLOSE>=OPEN,OPEN,CLOSE,3,1),COLORRED;
    STICKLINE(KAO=-1 AND CLOSE>=OPEN,OPEN,CLOSE,3,1),COLORGREEN;
    STICKLINE(KAO=0 AND KAC=0 AND CLOSE>=OPEN,OPEN,CLOSE,3,1),COLORDDDDDD;
    STICKLINE(CLOSE>=OPEN,HIGH,CLOSE,0.0.1,0),COLORRED;
    STICKLINE(CLOSE>=OPEN,OPEN,LOW,0.0.1,0),COLORRED;
    STICKLINE(KAC=1 AND CLOSE<OPEN,OPEN,CLOSE,3,0),COLORRED;
    STICKLINE(KAO=-1 AND CLOSE<OPEN,OPEN,CLOSE,3,0),COLORGREEN;
    STICKLINE(KAO=0 AND KAC=0 AND CLOSE<OPEN,OPEN,CLOSE,3,0),COLORDDDDDD;