拉拉壁虎老师的（平均价格），优化成大智慧

编写要求：

解答：

?网友求助：

这个是拉拉壁虎老师的作品，请老师们优化成大智慧可用，谢谢。
{平均价格}
A:=(3*C+H+L+O)/6;
XJ:=(A+0.618*REF(A,1)+0.382*REF(A,2)+0.236*REF(A,3)+0.146*REF(A,4))/2.382;
YCZXH:=(MA(HHV(A,2),5)+MA(HHV(A,2),13)+MA(HHV(A,2),21)+MA(HHV(A,2),32))/4;
YCZXL:=(MA(LLV(A,2),5)+MA(LLV(A,2),13)+MA(LLV(A,2),21)+MA(LLV(A,2),32))/4;
SMH:=EMA(YCZXH,21);
SML:=EMA(YCZXL,21);
SMJ:=(SML+SMH)/2;

PJ:=(10*A+9*REF(A,1)+8*REF(A,2)+7*REF(A,3)+6*REF(A,4)+5*REF(A,5)+4*REF(A,6)+3*REF(A,7)+2*REF(A,8)+REF(A,9))/55;
A1:=EMA(PJ,3),COLOR004000;A2:=EMA(PJ,5),COLOR004000;
A3:=EMA(PJ,7),COLOR004000;A4:=EMA(PJ,9),COLOR004000;
A5:=EMA(PJ,11),COLOR004000;

LX:=REF(XJ,1);
ZD:=(SMA(MAX(XJ-LX,0),5,1)/SMA(ABS(XJ-LX),5,1))*100;
KX1:=(CLOSE>=OPEN) AND ZD>=50;
KX2:=(CLOSE=50;
KX3:=(CLOSE>=OPEN) AND ZD<50;
KX4:=(CLOSE {////////////////////////////////////}
PARTLINE(1,SMH),COLOR004000;
PARTLINE(1,SML),COLOR004000;
PARTLINE(1,SMJ),COLOR004000;

PARTLINE(A5 PARTLINE(A5>REF(A5,1),A5),COLOR00005B,LINETHICK2;
PARTLINE(A4 PARTLINE(A4>REF(A4,1),A4),COLOR000055,LINETHICK1;
PARTLINE(A3 PARTLINE(A3>REF(A3,1),A3),COLOR00006C,LINETHICK1;
PARTLINE(A2 PARTLINE(A2>REF(A2,1),A2),COLOR00007D,LINETHICK1;
PARTLINE(A1 PARTLINE(A1>REF(A1,1),A1),COLOR00009B,LINETHICK1;

STICKLINE(KX1,C,O,4,1),COLOR4440FF;
STICKLINE(KX1,C,H,0.5,1),COLOR4440FF;
STICKLINE(KX1,O,L,0.5,1),COLOR4440FF;
STICKLINE(KX2,C,O,4,0),COLOR4440FF;
STICKLINE(KX2,O,H,0.5,0),COLOR4440FF;
STICKLINE(KX2,C,L,0.5,0),COLOR4440FF;
STICKLINE(KX3,C,O,4,1),COLORFFFF33;
STICKLINE(KX3,C,H,0.5,1),COLORFFFF33;
STICKLINE(KX3,O,L,0.5,1),COLORFFFF33;
STICKLINE(KX4,C,O,4,0),COLORFFFF33;
STICKLINE(KX4,O,H,0.5,0),COLORFFFF33;
STICKLINE(KX4,C,L,0.5,0),COLORFFFF33；