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)
|
You need the PowerPivots+ Add-on for this to work
Here is an indicator that plots the square of 9 automatically from a historical High or low,
This indicator is required for the second indicator to plot
PP+ Gann Square of 9 Required
A4:=If(IsUndefined(ExtFml("PowerPivots.Pivots")=4),0, If(IsDefined(ExtFml("PowerPivots.Pivots")=4),1,0)); A3:=If(IsUndefined(ExtFml("PowerPivots.Pivots")=3),0, If(IsDefined(ExtFml("PowerPivots.Pivots")=3),1,0));
A2:=If(IsUndefined(ExtFml("PowerPivots.Pivots")=2),0, If(IsDefined(ExtFml("PowerPivots.Pivots")=2),1,0)); A1:=If(IsUndefined(ExtFml("PowerPivots.Pivots")=1),0, If(IsDefined(ExtFml("PowerPivots.Pivots")=1),1,0));
AA4:=If(IsUndefined(ExtFml("PowerPivots.Pivots")=-4),0, If(IsDefined(ExtFml("PowerPivots.Pivots")=-4),1,0)); AA3:=If(IsUndefined(ExtFml("PowerPivots.Pivots")=-3),0, If(IsDefined(ExtFml("PowerPivots.Pivots")=-3),1,0));
AA2:=If(IsUndefined(ExtFml("PowerPivots.Pivots")=-2),0, If(IsDefined(ExtFml("PowerPivots.Pivots")=-2),1,0)); AA1:=If(IsUndefined(ExtFml("PowerPivots.Pivots")=-1),0, If(IsDefined(ExtFml("PowerPivots.Pivots")=-1),1,0));
B4:=If(A4=1,Highest(ValueWhen(1,A4=1,H)),.0001);
B3:=If(A3=1,Highest(ValueWhen(1,A3=1,H)),.0001);
B2:=If(A2=1,Highest(ValueWhen(1,A2=1,H)),.0001);
B1:=If(A1=1,Highest(ValueWhen(1,A1=1,H)),.0001);
BB4:=If(AA4=1,Lowest(ValueWhen(1,AA4=1,L)),.0001);
BB3:=If(AA3=1,Lowest(ValueWhen(1,AA3=1,L)),.0001);
BB2:=If(AA2=1,Lowest(ValueWhen(1,AA2=1,L)),.0001);
BB1:=If(AA1=1,Lowest(ValueWhen(1,AA1=1,L)),.0001);
PC2:=Max(B4,Max(B3,Max(B2,B1))); PC1:=Min(BB4,Min(BB3,Min(BB2,BB1)));
PP+ Gann Square of 9 Plot
B:=Input("B:1= tr resistance,2=pk support",1,2,1);
D:=Input("Decimal point",.001,100.0,1.0);
PLT:=Input("Lowest Line",1,16,8);
PC:=If(B=1, FmlVar("PP+ Gann Square of 9 Required","PC1"),
FmlVar("PP+ Gann Square of 9 Required","PC2"));
If(B=1 AND PLT>0,Power((Sqrt(PC)+(D*.25)),2),If(B=2 AND PLT>0,Power((Sqrt(PC)-(D*.25)),2),PC));
If(B=1 AND PLT>1,Power((Sqrt(PC)+(D*.5)),2),If(B=2 AND PLT>1,Power((Sqrt(PC)-(D*.5)),2),PC));
If(B=1 AND PLT>2,Power((Sqrt(PC)+(D*.75)),2),If(B=2 AND PLT>2,Power((Sqrt(PC)-(D*.75)),2),PC));
If(B=1 AND PLT>3,Power((Sqrt(PC)+(D*1)),2),If(B=2 AND PLT>3,Power((Sqrt(PC)-(D*1)),2),PC));
If(B=1 AND PLT>4,Power((Sqrt(PC)+(D*1.25)),2),If(B=2 AND PLT>4,Power((Sqrt(PC)-(D*1.25)),2),PC));
If(B=1 AND PLT>5,Power((Sqrt(PC)+(D*1.5)),2),If(B=2 AND PLT>5,Power((Sqrt(PC)-(D*1.5)),2),PC));
If(B=1 AND PLT>6,Power((Sqrt(PC)+(D*1.75)),2),If(B=2 AND PLT>6,Power((Sqrt(PC)-(D*1.75)),2),PC));
If(B=1 AND PLT>7,Power((Sqrt(PC)+(D*2)),2),If(B=2 AND PLT>7,Power((Sqrt(PC)-(D*2)),2),PC));
If(B=1 AND PLT>8,Power((Sqrt(PC)+(D*2.25)),2),If(B=2 AND PLT>8,Power((Sqrt(PC)-(D*2.25)),2),PC));
If(B=1 AND PLT>9,Power((Sqrt(PC)+(D*2.5)),2),If(B=2 AND PLT>9,Power((Sqrt(PC)-(D*2.5)),2),PC));
If(B=1 AND PLT>10,Power((Sqrt(PC)+(D*2.75)),2),If(B=2 AND PLT>10,Power((Sqrt(PC)-(D*2.75)),2),PC));
If(B=1 AND PLT>11,Power((Sqrt(PC)+(D*3)),2),If(B=2 AND PLT>11,Power((Sqrt(PC)-(D*3)),2),PC));
If(B=1 AND PLT>12,Power((Sqrt(PC)+(D*3.25)),2),If(B=2 AND PLT>12,Power((Sqrt(PC)-(D*3.25)),2),PC));
If(B=1 AND PLT>13,Power((Sqrt(PC)+(D*3.5)),2),If(B=2 AND PLT>13,Power((Sqrt(PC)-(D*3.5)),2),PC));
If(B=1 AND PLT>14,Power((Sqrt(PC)+(D*3.75)),2),If(B=2 AND PLT>14,Power((Sqrt(PC)-(D*3.75)),2),PC));
If(B=1 AND PLT>15,Power((Sqrt(PC)+(D*4)),2),If(B=2 AND PLT>15,Power((Sqrt(PC)-(D*4)),2),PC));
|
