PureBytes Links
Trading Reference Links
|
This is a 5 bar VAP demonstrating how to change the bars allignment from
right to left. This is not intended to be a useful indicator but rather it
is intended to demonstrate how one can truncate horizontal plots at the
desired point. Remobe the braces to see the original plots on the right.
Roy
{Volume By Price 5-Left}
D:=Input("Set Default Periods",0,2000,150);
N:=5; {scaling factor}
D:=LastValue(If(D=0,LastValue(Cum(1)-1),D));
F:=LastValue(Cum(1));
A:=F-D<Cum(1);
B:=LastValue(Cum(If(A,V,0)));
Q:=LastValue(HighestSince(1,A=0,C));
R:=LastValue(LowestSince(1,A=0,C));
I:=(Q-R)/5;
K:=.5;
M:=Cum(1);
X:=LastValue(Cum(If(C<(R+I) AND A,V,0))/B);
Y:=LastValue(M-Cum(F-X*D*N<M));
Ref(Ref(R+I*K,-Y),+Y);
{ValueWhen(1,F-X*D*N<Cum(1),R+I*K);}
X:=LastValue(Cum(If(C>=(R+I) AND C<(R+I*2) AND A,V,0))/B);
Y:=LastValue(M-Cum(F-X*D*N<M));
Ref(Ref(R+I*3*K,-Y),+Y);
{ValueWhen(1,F-X*D*N<M,R+I*3*K);}
X:=LastValue(Cum(If(C>=(R+I*2) AND C<(R+I*3) AND A,V,0))/B);
Y:=LastValue(M-Cum(F-X*D*N<M));
Ref(Ref(R+I*5*K,-Y),+Y);
{ValueWhen(1,F-X*D*N<M,R+I*5*K);}
X:=LastValue(Cum(If(C>=(R+I*3) AND C<(R+I*4) AND A,V,0))/B);
Y:=LastValue(M-Cum(F-X*D*N<M));
Ref(Ref(R+I*7*K,-Y),+Y);
{ValueWhen(1,F-X*D*N<M,R+I*7*K);}
X:=LastValue(Cum(If(C>=(R+I*4) AND C<(R+I*5) AND A,V,0))/B);
Y:=LastValue(M-Cum(F-X*D*N<M));
Ref(Ref(R+I*9*K,-Y),+Y);
{ValueWhen(1,F-X*D*N<M,R+I*9*K);}
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for Your HP, Epson, Canon or Lexmark
Printer at Myinks.com. Free s/h on orders $50 or more to the US & Canada. http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/l.m7sD/LIdGAA/qnsNAA/BefplB/TM
---------------------------------------------------------------------~->
To unsubscribe from this group, send an email to:
equismetastock-unsubscribe@xxxxxxxxxxxxxxx
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
|