|
PureBytes Links
Trading Reference Links
|
For this type of indicator in MS I've found that 12-15 bars (of volume) data
is a practical limit. This is designed to focus on a small area of a chart
rather than the entire chart. Any comments and ideas would be appreciated.
Roy
{Volume By Price US-10-C}
M:=Input("First month, day,",101,1231,1015);
Y:=Input( "year",1990,2003,2002);
X2:=Input("Last month, day,",101,1231,0301);
X3:=Input("year",1990,2003,2003);
D:=Int(.01+Frac(M/100)*100); M:=Int(M/100);
X1:=Int(.001+Frac(X2/100)*100); X2:=Int(X2/100);
D:=(DayOfMonth()>=D AND Month()=M AND
Year()=Y) OR Year()>Y OR (Year()=Y AND Month()>M);
D:=BarsSince(D AND Alert(D=0,2));
D:=LastValue(If(D=0,LastValue(Cum(1)-1),D));
N:=Input("Scaling % in box, 0=None",0,100,50);
M:=(DayOfMonth()>=X1 AND Month()=X2 AND
Year()=X3) OR Year()>X3 OR (Year()=X3 AND Month()>X2);
M:=BarsSince(M AND Alert(M=0,2));
M:=LastValue(If(M=0,LastValue(Cum(1)-1),M));
F:=LastValue(Cum(1));
A:=(F-D)<Cum(1) AND (F-M)>=Cum(1);
B:=LastValue(Cum(If(A,V,0)));
Q:=LastValue(HighestSince(1,Ref(A=0,-M),Ref(C,-M)));
R:=LastValue(LowestSince(1,Ref(A=0,-M),Ref(C,-M)));
I:=(Q-R)/10;
X1:=LastValue(Cum(If(C<(R+I) AND A,V,0))/B);
X2:=LastValue(Cum(If(C>=(R+I) AND C<(R+I*2) AND A,V,0))/B);
X3:=LastValue(Cum(If(C>=(R+I*2) AND C<(R+I*3) AND A,V,0))/B);
X4:=LastValue(Cum(If(C>=(R+I*3) AND C<(R+I*4) AND A,V,0))/B);
X5:=LastValue(Cum(If(C>=(R+I*4) AND C<(R+I*5) AND A,V,0))/B);
X6:=LastValue(Cum(If(C>=(R+I*5) AND C<(R+I*6) AND A,V,0))/B);
X7:=LastValue(Cum(If(C>=(R+I*6) AND C<(R+I*7) AND A,V,0))/B);
X8:=LastValue(Cum(If(C>=(R+I*7) AND C<(R+I*8) AND A,V,0))/B);
X9:=LastValue(Cum(If(C>=(R+I*8) AND C<(R+I*9) AND A,V,0))/B);
X0:=LastValue(Cum(If(C>=(R+I*9) AND A,V,0))/B);
B:=Max(Max(X1,X2),Max(X3,X4));
B:=Max(Max(B,X5),Max(X6,X7));
B:=Max(Max(B,X8),Max(X9,X0));
B:=If(N=0,1,B*100)/If(N=0,1,N);
Ref(Ref(ValueWhen(1,(F-D)<=Cum(1),Q),-M),M);
Ref(Ref(ValueWhen(1,F-Int(X0*(D-M)/B)=Cum(1)+M,R+I*9.5),-M),M);
Ref(Ref(ValueWhen(1,F-Int(X9*(D-M)/B)=Cum(1)+M,R+I*8.5),-M),M);
Ref(Ref(ValueWhen(1,F-Int(X8*(D-M)/B)=Cum(1)+M,R+I*7.5),-M),M);
Ref(Ref(ValueWhen(1,F-Int(X7*(D-M)/B)=Cum(1)+M,R+I*6.5),-M),M);
Ref(Ref(ValueWhen(1,F-Int(X6*(D-M)/B)=Cum(1)+M,R+I*5.5),-M),M);
Ref(Ref(ValueWhen(1,F-Int(X5*(D-M)/B)=Cum(1)+M,R+I*4.5),-M),M);
Ref(Ref(ValueWhen(1,F-Int(X4*(D-M)/B)=Cum(1)+M,R+I*3.5),-M),M);
Ref(Ref(ValueWhen(1,F-Int(X3*(D-M)/B)=Cum(1)+M,R+I*2.5),-M),M);
Ref(Ref(ValueWhen(1,F-Int(X2*(D-M)/B)=Cum(1)+M,R+I*1.5),-M),M);
Ref(Ref(ValueWhen(1,F-Int(X1*(D-M)/B)=Cum(1)+M,R+I*0.5),-M),M);
Ref(Ref(ValueWhen(1,(F-D)<=Cum(1) AND (F-D)>Cum(1)-2,If(A,R,Q)),-M),M);
----- Original Message -----
From: "le corbeaux masque" <lecorbeauxmasque7@xxxxxxxxx>
To: <equismetastock@xxxxxxxxxxxxxxx>
Sent: Monday, August 25, 2003 4:51 AM
Subject: [EquisMetaStock Group] VAP (volume at price) indicator
> hi all,
>
>
> i was whetver it was possible to express volume as a
> fonction of price within MS
>
> to give a better idea of what i mean :
>
> i'm looking for something similar to this :
>
>
http://www.ttrader.com/mycharts/display.php?p=14568&u=cdv&a=cdv%5C%27s%20charts&id=314
>
> thanks all,
>
> __________________________________
> Do you Yahoo!?
> Yahoo! SiteBuilder - Free, easy-to-use web site design software
> http://sitebuilder.yahoo.com
>
>
> 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/
>
>
>
>
------------------------ 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/
|