R: [amibroker] Formula -found :-)

["Ermanno" <herman.web@xxxx>]

I have found this system:

*************************
a1=(abs(C-Ref(C,-1)));
a2=(abs(Ref(C,-1)-Ref(C,-2)));
a3=(abs(Ref(C,-2)-Ref(C,-3)));
a4=(abs(Ref(C,-3)-Ref(C,-4)));
a5=(abs(Ref(C,-4)-Ref(C,-5)));
a6=(abs(Ref(C,-5)-Ref(C,-6)));
a7=(abs(Ref(C,-6)-Ref(C,-7)));
a8=(abs(Ref(C,-7)-Ref(C,-8)));
a9=(abs(Ref(C,-8)-Ref(C,-9)));
a10=(abs(Ref(C,-9)-Ref(C,-10)));

b1=IIf(A1>A2,A1,A2);
b2=IIf(A3>A4,A3,A4);
b3=IIf(A5>A6,A5,A6);
b4=IIf(A7>A8,A7,A8);
b5=IIf(A9>A10,A9,A10);

C1=IIf(b1>b2,b1,b2);
C2=IIf(b3>b4,b3,b4);
C3=b5;

d1=IIf(C1>C2,C1,C2);
d2=b5;

e1=IIf(d1>d2,d1,d2);

WriteVal(e1);

***************************

Some shorter ways?

bye
Ermanno