Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers
Joined: 10/29/2004(UTC)
Posts: 1,394
Location: Glastonbury, CT
Was thanked: 2 time(s) in 2 post(s)
|
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"
|
