通达信混沌分形指标

以下是通达信混沌分形指标

VAR11:=(H+L)/2;
上唇:REF(SMA(VAR11,5,1),3),COLORGREEN;
牙齿:REF(SMA(VAR11,8,1),5),COLORRED;
下颚:REF(SMA(VAR11,13,1),8),COLORBLUE;

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);
 DRAWICON(VAR2,HIGH*1.01,4),COLOR00E40E;
 DRAWICON(VAR4,LOW*0.99,5),COLOR00E40E;
 VAR5:=IF(VAR2,HIGH,IF(VAR4,LOW,0));
 {POLYLINE(VAR5,VAR5),COLORFF00FF;}
 VAR6:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
 VAR7:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
 VAR8:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
 AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
 VAR9:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
 VARA:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
 VARB:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
 AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);

上向分形: REF(HIGH,BARSLAST(VAR2)), POINTDOT,COLOREA91B5;
 STICKLINE(CLOSE,REF(HIGH,BARSLAST(VAR2)),REF(HIGH,BARSLAST(VAR2)),5,0),COLOR000099;
向下分形: REF(LOW,BARSLAST(VAR4)), POINTDOT,COLOR3791B5;
 STICKLINE(CLOSE,REF(LOW,BARSLAST(VAR4)),REF(LOW,BARSLAST(VAR4)),5,0),COLOR000099;