<混沌AO修正>和<混沌AC修正>原码：
Y:=(HIGH+LOW)/2;
AO:MA(Y ,5 )-MA(Y ,34 ),linethick0;
ao1:=ref(ao,1);
明中值反转价:(170*MA(Y,5)-170*MA(Y,34)+165*MA(Y,33)-136*MA(Y,4))/29,linethick0;
明中值零轴穿越价:(165*ma(y,33)-136*ma(y,4))/29,linethick0;
明日AC反转价:=(4*MA(AO,4)+5*(REF(AO,4)-MA(REF(AO,4),5)))/4,linethick0;
明日AC反转价画线:=(4*MA(AO,4)+5*(REF(AO,4)-MA(REF(AO,4),5)))/4,SHIFT1;
stickline(Ao>ao1,0,ao,8,0),colorRED;
stickline(Ao<ao1,0,ao,8,0),colorgreen;
DU0:=CROSS(AO,0);
UD0:=CROSS(0,AO);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF(TDU3<TUD3,REF(HHV(H,2),TDU3),REF(LLV(L,2),TUD3)),COLORYELLOW;
JDU0:=REF(C,1)<=REF(UDGLINE,1) AND C>UDGLINE AND TDU0<TUD0;
JUD0:=REF(C,1)>=REF(UDGLINE,1) AND C<UDGLINE AND TUD0<TDU0;
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
JUD2:=JUD1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JDU3:=JDU1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JUD3:=JUD1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
JUU:=JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1);
JDD:=JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1);
BSLINE:=IF(BARSLAST(JDU2)<BARSLAST(JUD2),IF(REF(CROSS(0,AO),1),LLV(L,2),REF(LLV(L,2),BARSLAST(REF(CROSS(0,AO),1)))),IF(REF(CROSS(AO,0),1),HHV(H,2),REF(HHV(H,2),BARSLAST(REF(CROSS(AO,0),1))))),COLORMAGENTA;
DRAWICON(JUU AND (CROSS(0,AO) OR REF(CROSS(0,AO),1)),AO,4);
DRAWICON(JDD AND (CROSS(AO,0) OR REF(CROSS(AO,0),1)),AO,5),ALIGN0;
DRAWICON(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),0,10),ALIGN4;
DRAWICON(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),0,11),ALIGN5;
AOUT:=BARSLAST(CROSS(AO,0));
AODT:=BARSLAST(CROSS(0,AO));
AOUL:=IF(AO>=0,HHV(AO,AOUT+1),REF(HHV(AO,AOUT+1),AODT+1));
AODL:=IF(AO<0,LLV(AO,AODT+1),REF(LLV(AO,AODT+1),AOUT+1));
AOU2L:=REF(AOUL,AOUT+1);
AOD2L:=REF(AODL,AODT+1);
DRAWICON(LLV(AO,4)>0 AND AO<REF(AO,1) AND REF(AO,1)>REF(AO,2) AND REF(AO,2)>REF(AO,3),AO,9),ALIGN0;
DRAWICON(HHV(AO,4)<0 AND AO>REF(AO,1) AND REF(AO,1)<REF(AO,2) AND REF(AO,2)<REF(AO,3),AO,8);
DRAWICON((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND AO>=0 AND REF(AO,1)<REF(AOU2L,1) AND AO>AOU2L,AO,12),ALIGN0;
DRAWICON((JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1)) AND AO<0 AND REF(AO,1)>REF(AOD2L,1) AND AO<AOD2L,AO,12);
=========================================================
{混沌AC修正}
Y:=(HIGH+LOW)/2;
AO:=MA(Y ,5 )-MA(Y ,34 );
AC:AO-MA( AO,5),linethick0;
ac1:=ref(AC,1);
明中值反转价:(5*34*5*AO-5*34*5*MA(AO,5)+5*34*4*MA(AO,4)+5*4*33*MA(Y,33)-4*34*4*MA(Y,4))/116,linethick0;
明中值零轴穿越价:(5*34*MA(AO,4)-34*4*MA(Y,4)+5*33*MA(Y,33))/29,linethick0;
stickline(AC>ac1,0,ac,8,0),colorRED;
stickline(AC<ac1,0,ac,8,0),colorgreen;
DU0:=CROSS(AC,0);
UD0:=CROSS(0,AC);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF(TDU3<TUD3,REF(HHV(H,2),TDU3),REF(LLV(L,2),TUD3)),COLORYELLOW;
JDU0:=REF(C,1)<=REF(UDGLINE,1) AND C>UDGLINE AND TDU0<TUD0;
JUD0:=REF(C,1)>=REF(UDGLINE,1) AND C<UDGLINE AND TUD0<TDU0;
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
JUD2:=JUD1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JDU3:=JDU1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JUD3:=JUD1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
DRAWTEXT(JDU2,LLV(AC,20)/2,'空转多');
DRAWTEXT(JUD2,HHV(AC,20),'多转空');
DRAWTEXT(JDU3,LLV(AC,20)/2,'多续多');
DRAWTEXT(JUD3,HHV(AC,20),'空续空');
DRAWICON(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),0,10),ALIGN4;
DRAWICON(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),0,11),ALIGN5;
JUU:=JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1);
JDD:=JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1);
DRAWICON(JUU AND (CROSS(0,AC) OR REF(CROSS(0,AC),1)),AC,4);
DRAWICON(JDD AND (CROSS(AC,0) OR REF(CROSS(AC,0),1)),AC,5),ALIGN0;
BSLINE:=IF(BARSLAST(JDU2)<BARSLAST(JUD2),IF(REF(CROSS(0,AC),1),LLV(L,2),REF(LLV(L,2),BARSLAST(REF(CROSS(0,AC),1)))),IF(REF(CROSS(AC,0),1),HHV(H,2),REF(HHV(H,2),BARSLAST(REF(CROSS(AC,0),1))))),COLORMAGENTA;
DRAWICON(JUU AND (CROSS(0,AC) OR REF(CROSS(0,AC),1)),AC,4);
DRAWICON(JDD AND (CROSS(AC,0) OR REF(CROSS(AC,0),1)),AC,5),ALIGN0;
DRAWICON(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),0,10),ALIGN4;
DRAWICON(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),0,11),ALIGN5;
ACUT:=BARSLAST(CROSS(AC,0));
ACDT:=BARSLAST(CROSS(0,AC));
ACUL:=IF(AC>=0,HHV(AC,ACUT+1),REF(HHV(AC,ACUT+1),ACDT+1));
ACDL:=IF(AC<0,LLV(AC,ACDT+1),REF(LLV(AC,ACDT+1),ACUT+1));
ACU2L:=REF(ACUL,ACUT+1);
ACD2L:=REF(ACDL,ACDT+1);
DRAWICON(LLV(AC,4)>0 AND AC<REF(AC,1) AND REF(AC,1)>REF(AC,2) AND REF(AC,2)>REF(AC,3),-ac/20,9);
DRAWICON(HHV(AC,4)<0 AND AC>REF(AC,1) AND REF(AC,1)<REF(AC,2) AND REF(AC,2)<REF(AC,3),0,8),ALIGN0;
DRAWICON((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND AC>=0 AND REF(AC,1)<REF(ACU2L,1) AND AC>ACU2L,AC,12),ALIGN0;
DRAWICON((JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1)) AND AC<0 AND REF(AC,1)>REF(ACD2L,1) AND AC<ACD2L,AC,12); |
