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: 3 time(s) in 3 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: 3 time(s) in 3 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: 3 time(s) in 3 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: 3 time(s) in 3 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: 3 time(s) in 3 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: 3 time(s) in 3 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: 3 time(s) in 3 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: 3 time(s) in 3 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: 3 time(s) in 3 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
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.

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