Fib Alt Price Projections
This formula is for Fib Alt Price projections 

You will need the Powerpivots Plus Add-on for this to work 

a:=ExtFml("PowerPivots.Pivots"); 
Pivot:=Input("1=minor 2=intermediate 3=Major 4=Primary",1,4,2); 
NW:=ROC(BarsSince(A=Pivot)<BarsSince(A=-Pivot),1,$)<>0; 
A1:=Cum(1); 
A2:=LastValue(A1-BarsSince(NW>0)); 
PA:=If(BarsSince(A=Pivot)<BarsSince(A=-Pivot),ValueWhen(2,a=Pivot,H), ValueWhen(2,a=-Pivot,L)); 
PB:=If(BarsSince(A=Pivot)<BarsSince(A=-pivot),ValueWhen(1,a=-pivot,L), ValueWhen(1,a=pivot,H)); 
PC:=If(BarsSince(A=pivot)<BarsSince(A=-pivot),ValueWhen(1,a=pivot,H), ValueWhen(1,a=-pivot,L)); 
PLT:=Input("Lowest lines",1,7,3); 
COP:=If(A1<A2,BarsSince(A1>=A2),LastValue(If(Plt>=1,.618*(PB-PA)+PC,PC)));; 
OP:=If(A1<A2,BarsSince(A1>=A2),LastValue(If(Plt>=2,(PB-PA)+PC,PC))); 
XOP:=If(A1<A2,BarsSince(A1>=A2),LastValue(If(Plt>=3,1.618*(PB-PA)+PC,PC))); 
XOP1:=If(A1<A2,BarsSince(A1>=A2),LastValue(If(Plt>=4,2*(PB-PA)+PC,PC))); 
XOP2:=If(A1<A2,BarsSince(A1>=A2),LastValue(If(Plt>=5,2.618*(PB-PA)+PC,PC))); 
XOP3:=If(A1<A2,BarsSince(A1>=A2),LastValue(If(Plt>=6,4.24*(PB-PA)+PC,PC))); 
COP;OP;XOP;XOP1;XOP2;XOP3; 

For further info read books by Cynthia Kase "trading with the odds" 
and Robert Miner "Dynamic Trading"