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

Notification

Icon
Error
PowerPivots Plus Add-on new Indicators - PowerPivots Plus Add-on new Indicators
Options
Go to last post Go to first unread
Previous Topic Next Topic
henry1224  
#1 Posted : Monday, May 9, 2005 11:14:10 PM(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)
Auto Support & Resistance PPivot:=Input("P 1=minor 2=intermediate 3=major 4=primary",1,4,2); TPivot:=Input("T -1=minor -2=intermediate -3=major -4=primary",-4,-1,-2); FTrough := LastValue( ExtFml("Powerpivots.NthPivotPrice",Tpivot,0,1)); STrough := LastValue( ExtFml("Powerpivots.NthPivotPrice",Tpivot,1,1)); TTrough := LastValue( ExtFml("Powerpivots.NthPivotPrice",Tpivot,2,1)); FPeak := LastValue( ExtFml("Powerpivots.NthPivotPrice",Ppivot,0,1)); SPeak := LastValue( ExtFml("Powerpivots.NthPivotPrice",Ppivot,1,1)); TPeak := LastValue( ExtFml("Powerpivots.NthPivotPrice",Ppivot,2,1)); PH:=LastValue(ExtFml("Powerpivots.NthPivotPrice",PPivot,0,1)); PL:=LastValue(ExtFml("Powerpivots.NthPivotPrice",TPivot,0,1)); Dist:= LastValue(Max(ph,pl)-Min(ph,pl)/5); Trough1to2:=Abs((FTrough-STrough)/STrough); Trough1to3:=Abs((FTrough-TTrough)/TTrough); Sup:=ValueWhen(1,If(Trough1to2<=dist/100,(FTrough+STrough)/2, If(Trough1to3<=dist/100,FTrough+TTrough/3,0))<>0,If(Trough1to2<=dist/100,(FTrough+STrough)/2,If(Trough1to3<=dist/100,(FTrough+TTrough)/2,0))); Peak1to2:=Abs((FPeak-SPeak)/SPeak); Peak1to3:=Abs((FPeak-TPeak)/TPeak); Res:=ValueWhen(1,If(Peak1to2<dist/100,(FPeak+SPeak)/2, If(Peak1to3<dist/100,FPeak+TPeak/3,0))<>0,If(Peak1to2<dist/100,(FPeak+SPeak)/2, If(Peak1to3<dist/100,(FPeak+TPeak)/2,0))); Sup;Res;
Back to top

Wanna join the discussion?! Login to your Discussions forum accountor Register a new forum account.
Back to top  
henry1224  
#2 Posted : Monday, May 9, 2005 11:17:11 PM(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)
Binary Trend Direction td1:=ExtFml("PowerPivots.TrendDirection",1,1); td2:=ExtFml("PowerPivots.TrendDirection",2,1); td3:=ExtFml("PowerPivots.TrendDirection",3,1); td4:=ExtFml("PowerPivots.TrendDirection",4,1); bw:=td1*1 + td2*2 + td3*3 + td4*4; BW;
Back to top
henry1224  
#3 Posted : Monday, May 9, 2005 11:21:07 PM(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)
Piv:=Input("pivot type",1,2,1); Per1:=Input("D Period",1,50,7); TF:=Input("timeframe",1,30,1); A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); D;Mov(D,5,S);
Back to top
henry1224  
#4 Posted : Monday, May 9, 2005 11:32:00 PM(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)
This Expert needs the Power Pivot Plus Add-On and needs to be used on daily Charts Highlights long Piv:=1; Per1:=7; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 Short Piv:=1; Per1:=7; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 Out Piv:=1; Per1:=7; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 Symbols Long entry Piv:=1; Per1:=7; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 AND Ref(B,-1)<=0 Short entry Piv:=1; Per1:=7; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 AND Ref(B,-1)>=0 Long Exit Piv:=1; Per1:=7; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)>0 Short exit Piv:=1; Per1:=7; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)<0
Back to top
henry1224  
#5 Posted : Monday, May 9, 2005 11:49:14 PM(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)
This Expert needs the Power Pivot Plus Add-On and needs to be used on daily Charts Highlights long Piv:=2; Per1:=20; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 Short Piv:=2; Per1:=20; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 Out Piv:=2; Per1:=20; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 Symbols Long entry Piv:=2; Per1:=20; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 AND Ref(B,-1)<=0 Short entry Piv:=2; Per1:=20; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 AND Ref(B,-1)>=0 Long Exit Piv:=2; Per1:=20; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)>0 Short exit Piv:=2; Per1:=20; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); D:=Mov((((Log(C/(Max(A1,A2)+(Min(B1,B2)/2))))+1)*50),Per1,E); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=D>Mov(D,5,S) AND TD=1; SE:=D<Mov(D,5,S) AND TD=-1; LX:=D<Mov(D,5,S); SX:=D>Mov(D,5,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)<0
Back to top
henry1224  
#6 Posted : Tuesday, May 10, 2005 12:00:31 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)
Chaikin Money Flow Piv:=Input("pivot type",1,2,1); Per1:=Input("Period",1,50,21); TF:=Input("timeframe",1,30,1); A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); K;Mov(K,7,S);
Back to top
henry1224  
#7 Posted : Tuesday, May 10, 2005 12:05:49 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)
This expert needs the PowerPivot plus Add-on and needs to be applied to Daily Charts Highlights Long Piv:=1; Per1:=21; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 Short Piv:=1; Per1:=21; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 Out Piv:=1; Per1:=21; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 Symbols Long entry Piv:=1; Per1:=21; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 AND Ref(B,-1)<=0 Short entry Piv:=1; Per1:=21; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 AND Ref(B,-1)>=0 Long exit Piv:=1; Per1:=21; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)>0 Short exit Piv:=1; Per1:=21; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)<0
Back to top
henry1224  
#8 Posted : Tuesday, May 10, 2005 12:32: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)
This expert needs the PowerPivot plus Add-on and needs to be applied to Daily Charts Highlights Long Piv:=2; Per1:=42; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 Short Piv:=2; Per1:=42; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 Out Piv:=2; Per1:=42; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 Symbols Long entry Piv:=2; Per1:=42; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B>0 AND Ref(B,-1)<=0 Short entry Piv:=2; Per1:=42; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B<0 AND Ref(B,-1)>=0 Long exit Piv:=2; Per1:=42; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)>0 Short Exit Piv:=2; Per1:=42; TF:=1; A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Sum(((C-Min(B1,B2)-(Max(A1,A2)-C))/(Max(A1,A2)-Min(B1,B2))*V),Per1)/Sum(V,Per1); TD:=ExtFml("PowerPivots.TrendDirection",1,2); LE:=K>0 AND K>Mov(K,7,S) AND TD=1; LX:=K>0 AND K<Mov(K,7,S); SE:=K<0 AND K<Mov(K,7,S) AND TD=-1; SX:=K<0 AND K>Mov(K,7,S); B:=ExtFml("PowerPivots.SysEval",LE,LX,SE,SX,"!@#$#@!"); B=0 AND Ref(B,-1)<0
Back to top
henry1224  
#9 Posted : Saturday, May 14, 2005 11:29:17 PM(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)
Plot this indicator in its own window Piv:=Input("pivot type",1,2,1); Per1:=Input("Period",1,50,13); TF:=Input("timeframe",1,30,1); A1:=ExtFml("PowerPivots.NthPivotPrice",Piv,1,TF); A2:=ExtFml("PowerPivots.NthPivotPrice",Piv,2,TF); B1:=ExtFml("PowerPivots.NthPivotPrice",-Piv,1,TF); B2:=ExtFml("PowerPivots.NthPivotPrice",-Piv,2,TF); K:=Mov((C-Ref(C,-1))/(V/(Max(A1,A2)-Min(B1,B2))),Per1,S)*100000; K;
Back to top
Users browsing this topic
Similar Topics
PowerPivots Plus Add-on new Indicators (Plugins & Addons)
by anejanitin 3/20/2006 7:34:07 PM(UTC)
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.

Powered by YAF.NET | YAF.NET © 2003-2024, Yet Another Forum.NET