飞狐修正AC/修正AO副图指标

源码

{修正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
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
JDU0:=REF(C,1)<=REF(UDGLINE,1) AND C>UDGLINE AND TDU0
JUD0:=REF(C,1)>=REF(UDGLINE,1) AND C
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND REF(BARSLAST(JUD1),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)
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)
DRAWICON(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),0,11),ALIGN5;
JUU:=JDU1 OR BARSLAST(JDU1)
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)
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)
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 ACREF(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)
DRAWICON((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND AC>=0 AND REF(AC,1)ACU2L,AC,12),ALIGN0;
DRAWICON((JDU1 OR BARSLAST(JDU1)<0 AND REF(AC,1)>REF(ACD2L,1) AND AC;

{修正AO}

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
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
JDU0:=REF(C,1)<=REF(UDGLINE,1) AND C>UDGLINE AND TDU0
JUD0:=REF(C,1)>=REF(UDGLINE,1) AND C
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND REF(BARSLAST(JUD1),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)
JUU:=JDU1 OR BARSLAST(JDU1)
JDD:=JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1);
BSLINE:=IF(BARSLAST(JDU2)
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)
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 AOREF(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)
DRAWICON((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND AO>=0 AND REF(AO,1)AOU2L,AO,12),ALIGN0;
DRAWICON((JDU1 OR BARSLAST(JDU1)<0 AND REF(AO,1)>REF(AOD2L,1) AND AO;