|
PureBytes Links
Trading Reference Links
|
I've
tried this with MS 9.0 Doesn't plot
anything.
Vladimir
> Hi
> Is it possible to have the bars
at the left side of the chart
>
> Thanks
Yes, it's
possible. I have a 5-bar demonstration version, but it's not particularly
useful
IMO.
Regards
Roy
www.metastocktips.co.nz
{Volume By Price 5-Left}
{2004 Roy Larsen, rlarsen@xxxxxxxxxxxxxx}
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 Links
|