logo
Welcome Guest! To enable all features please Login or Register.

Notification

Icon
Error

Options
Go to last post Go to first unread
johnj10994  
#1 Posted : Monday, April 24, 2006 4:32:54 PM(UTC)
johnj10994

Rank: Newbie

Groups: Registered, Registered Users
Joined: 2/23/2006(UTC)
Posts: 1

Any Gann SQ 9 plug-in available for MS ??
henry1224  
#2 Posted : Tuesday, April 25, 2006 12:48:40 AM(UTC)
henry1224

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)
C1:=Input("date C mmddyyyy",1011960,12312100,1072000); 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,ValueWhen(1, C1=Month()*1000000 + DayOfMonth()*10000+ Year(),L),ValueWhen(1, C1=Month()*1000000 + DayOfMonth()*10000+ Year(),H)); 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)); Enter the date mmddyyyy and if the date is a peak or a trough 1 or 2 enter a decimal point to scale the indicator enter how low of a line to plot
damo  
#3 Posted : Thursday, April 27, 2006 3:11:26 PM(UTC)
damo

Rank: Member

Groups: Registered, Registered Users, Subscribers
Joined: 10/29/2005(UTC)
Posts: 25

Thanks: 2 times
Was thanked: 4 time(s) in 2 post(s)
hey henry, equis should pay you by the post.... keep up the good work
henry1224  
#4 Posted : Friday, April 28, 2006 12:59:43 AM(UTC)
henry1224

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));
arnevanveen  
#5 Posted : Monday, May 1, 2006 2:06:51 PM(UTC)
arnevanveen

Rank: Advanced Member

Groups: Registered, Registered Users
Joined: 10/15/2005(UTC)
Posts: 31
Location: The Netherlands

Thanks a lot, this is very nice!
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.