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 和 TR

DD1 := 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 和 -DI

RR1 : =(DD1 / ATR) * 100;

RR2 :=(DD2 / ATR) * 100;

// 5. 计算 DX 和 ADX

DX := ABS(RR1 - RR2) / (RR1 +RR2) * 100;

ADX := EMA(DX, N);

// 输出结果  RR1= +DI   RR2=-DI

PP1:= 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