|
PureBytes Links
Trading Reference Links
|
Roy,
If I were to do a Cut and Paste, where would I paste these sections and are there two separate programs? It would be so helpful to put an explanation with your work so those of us who are not advanced, would know what to do and what to expect from the programs.
Thank you.
Debra Ann
--- "Roy Larsen" <rlarsen@xxxxxxxxxxxxxx> wrote:
>Maybe somebody can find a use for this updated 'Volume by Price' indicator.
>The first one as a date format of mm/dd/yyyy and the second a date format of
>dd/mm/yyyy. Have fun.
>
>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);
>
> {Volume By Price 10-C}
>D:=Input("First day, month,",101,3112,1510);
>Y:=Input( "year",1990,2003,2002);
>X1:=Input("Last day, month,",101,3112,103);
>X3:=Input("year",1990,2003,2003);
>M:=Int(.01+Frac(D/100)*100); D:=Int(D/100);
>X2:=Int(.001+Frac(X1/100)*100); X1:=Int(X1/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);
>
>
>
>
>To unsubscribe from this group, send an email to:
>Metastockusers-unsubscribe@xxxxxxxxxxx
>
>
>
>Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
_____________________________________________________________
Calling all cartoon fans!
Garfield keeps millions of newspaper readers laughing over their morning corn flakes...now he's waddling into cyberspace to spread his mirth (and girth)!
You can now get the full-color Garfield comic strip e-mailed to you every day of the week -- absolutely FREE! Just go to http://www.garfield.com/signup/ to register!
------------------------ Yahoo! Groups Sponsor ---------------------~-->
FREE Cell Phones with up to $400 Cash Back!
http://us.click.yahoo.com/_bBUKB/vYxFAA/i5gGAA/zMEolB/TM
---------------------------------------------------------------------~->
To unsubscribe from this group, send an email to:
Metastockusers-unsubscribe@xxxxxxxxxxx
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
|