老师能否帮我改写

BBI:=(EMA(CLOSE,N1)+EMA(CLOSE,N2)+WMA(CLOSE,N3)+MA(CLOSE,N4))/4;LL1:=EVERY(BBI>REF(BBI,1),2);LL2:=EVERY(BBI<REF(BBI,1),2);// 1. 计算真实波幅（TR）TR :=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));// 2. 计算正向动向（+DM）和负向动向（-DM）EE1:= IF(HIGH - REF(HIGH, 1) > REF(LOW, 1) - LOW, MAX(HIGH - REF(HIGH, 1), 0), 0);EE2:= IF(REF(LOW, 1) - LOW > HIGH - REF(HIGH, 1), MAX(REF(LOW, 1) - LOW, 0), 0);// 3. 平滑 +DM、-DM 和 TRDD1 := EMA(EE1, N);DD2 := EMA(EE2, N);ATR := EMA(TR, N);ATRR:=(EMA(TR,3)+EMA(TR,8)+WMA(TR,21)+MA(TR,55))/4;ATRR1:=1.618*ATRR;开仓6000:FLOOR(6000/ATRR1/UNIT),NODRAW;// 4. 计算 +DI 和 -DIRR1 : =(DD1 / ATR) * 100;RR2 :=(DD2 / ATR) * 100;// 5. 计算 DX 和 ADXDX := ABS(RR1 - RR2) / (RR1 +RR2) * 100;ADX := EMA(DX, N);// 输出结果 RR1= +DI RR2=-DIPP1:= ADX>21 AND RR1>RR2;PP2:= ADX>21 AND RR2>RR1;DRAWICON(LL1 AND PP1,1,'ICO7'),COLORFFFF3D3D;DRAWICON(LL2 AND PP2,1,'ICO8'),COLORFF19A0FF;DRAWICON(NOT(LL2) AND NOT(LL1) ,1,'ICO12'),COLORFFCCA600;这个是我自己的源码，能否帮忙改写成领峰指标，谢谢 //Speculator 2025.02.22MEMA