arthur off topic chat.auto fibs Here are Victors auto Fib...

arthur off topic chat.auto fibs Here are Victors auto Fib levels
I think you said you got them from Stock Central/pre Reefcap eons ago..I could never set up the colours, I seem to recall you had them colour coded, anyway they still work beautifully..

t1:=H=Highest(HIGH);
t2:=L=LLV(Ref(C,-1),50);
t1:=t1 AND Cum(t1)=LastValue(Cum(t1));
t2:=t2 AND Cum(t2)=LastValue(Cum(t2));
price1:=H;
price2:=L;
e1pds:=LastValue(BarsSince(t1));
e2pds:=LastValue(BarsSince(t2));
x1:=If(e1pds>e2pds,t1,t2);
x2:=If(e1pds>e2pds,t2,t1);
y1:=If(e1pds>e2pds,price1,price2);
y2:=If(e1pds>e2pds,price2,price1);
y1:=ValueWhen(1,x1,y1);
y2:=LastValue(ValueWhen(1,x2,y2));
b1:=LastValue(BarsSince(x1));
b2:=LastValue(BarsSince(x2));

plot:=y1+BarsSince(x1)*(y2-y1)/(b1-b2);
plot:=Ref(Ref(plot,-b2),b2);
plotL:= y2+y1-y1;
plotL:= Ref(Ref(plotL,-0),0);
plotH:= y1;
List:= LastValue(Cum(1))-1;

If(Cum(1)<(List-Max(b1,b2)+Abs(b1-b2)), BarsSince(Cum(1)>(List-Max(b1,b2)+Abs(b1-b2))),(plotH*0+PlotL*8)/8);
If(Cum(1)<(List-Max(b1,b2)+Abs(b1-b2)*7/8), BarsSince(Cum(1)>(List-Max(b1,b2)+Abs(b1-b2)*7/8)),(plotH*1+PlotL*7)/8);
If(Cum(1)<(List-Max(b1,b2)+Abs(b1-b2)*6/8), BarsSince(Cum(1)>(List-Max(b1,b2)+Abs(b1-b2)*6/8)),(plotH*2+PlotL*6)/8);
If(Cum(1)<(List-Max(b1,b2)+Abs(b1-b2)*5/8), BarsSince(Cum(1)>(List-Max(b1,b2)+Abs(b1-b2)*5/8)),(plotH*3+PlotL*5)/8);
If(Cum(1)<(List-Max(b1,b2)+Abs(b1-b2)*4/8), BarsSince(Cum(1)>(List-Max(b1,b2)+Abs(b1-b2)*4/8)),(plotH*4+PlotL*4)/8);
If(Cum(1)<(List-Max(b1,b2)+Abs(b1-b2)*3/8), BarsSince(Cum(1)>(List-Max(b1,b2)+Abs(b1-b2)*3/8)),(plotH*5+PlotL*3)/8);
If(Cum(1)<(List-Max(b1,b2)+Abs(b1-b2)*2/8), BarsSince(Cum(1)>(List-Max(b1,b2)+Abs(b1-b2)*2/8)),(plotH*6+PlotL*2)/8);
If(Cum(1)<(List-Max(b1,b2)+Abs(b1-b2)/8), BarsSince(Cum(1)>(List-Max(b1,b2)+Abs(b1-b2)/8)),(plotH*7+PlotL*1)/8);
If(Cum(1)<(List-Max(b1,b2)), BarsSince(Cum(1)>(List-Max(b1,b2))),(plotH*8+PlotL*0)/8);
plot;
If(Cum(1)<(List-Max(b1,b2)+Abs(b1-b2)*(Sqrt(5)-1)/2), BarsSince(Cum(1)>(List-Max(b1,b2)+Abs(b1-b2)*(Sqrt(5)-1)/2)),(plotL*(Sqrt(5)-1)/2+PlotH*(Sqrt(5)-1)/2*(Sqrt(5)-1)/2));
If(Cum(1)<(List-Max(b1,b2)+Abs(b1-b2)*(3-Sqrt(5))/2), BarsSince(Cum(1)>(List-Max(b1,b2)+Abs(b1-b2)*(3-Sqrt(5))/2)),(plotL*(3-Sqrt(5))/2+PlotH*(Sqrt(5)-1)/2));


here is the short term one

pp:= Input("Long=2,Med=1,Short=0.5",1,2,2);
r0:= If(MP()>=Ref(MP(),-1),ATR(1),0);
r1:= Log(If(r0>0,ATR(1),HIGH)/HIGH);
r2:= Cum(r1)/Max(1,Cum(If(r0>0,1,0)));
r3:= LastValue(100*Exp(LastValue(r2)))*pp;
r6:= LastValue(Peak(1,H,r3));
r7:= If(Cum(1) < LastValue(Cum(1)-PeakBars(1,H,R3)),
BarsSince(Cum(1) >= LastValue(Cum(1)-PeakBars(1,H,r3))),r6);
s0:= If(MP()<=Ref(MP(),-1),ATR(1),0);
s1:= Log(If(s0>0,ATR(1),LOW)/LOW);
s2:= Cum(s1)/Max(1,Cum(If(s0>0,1,0)));
s3:= LastValue(100*Exp(LastValue(s2)))*pp;
s6:= LastValue(Trough(1,L,s3));
s7:= If(Cum(1) < LastValue(Cum(1)-TroughBars(1,L,S3)), BarsSince(Cum(1) >= LastValue(Cum(1)-TroughBars(1,L,s3))),s6);
F1:= (Sqrt(5)-1)/2; {=0.618}
F2:= 1/F1; {=1.618}
z1:= PeakBars(1,H,r3);
z2:= TroughBars(1,L,r3);
z3:= LastValue(Min(z1,z2)/2);
UPTarget:= Ref(s7*(1-F2)+r7*F2,-z3);
DNTarget:= Ref(s7*F2+r7*(1-F2),-z3);
UPTarget;
r7;
s7*F1*F1+r7*(1-F1*F1);
(s7+r7)/2;
s7*F1+r7*(1-F1);
s7;
DNTarget;