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

Notification

Icon
Error

Options
Go to last post Go to first unread
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;
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;
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);
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
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
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);
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
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
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;
Users browsing this topic
Guest (Hidden)
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.