Re: [Metastockusers] time compression code

["Roy Larsen" <rlarsen@xxxxxxxxxxxxxx>]

le corbeaux masque

> i'm trying to modify roy's weekly vompression code to
> show daily indicators on 60m chart, but i can't find
> any equivalent of the "dayofweek()" functoin for
> intraday purpose,
>
> is this compression possible ?
> what function would you use ?

Wouldn't "Hour()" be the proper function to use. You would set 'F' to the
normal last hourly bar for your market.

M:=Hour()<ValueWhen(2,1,Hour());
F:=Hour()=16;

Here's the code with only those lines and some comments changed. The 'M' and
'F' variables are the only ones that should need changing to adapt to
different charts. 'F' must define the normal last bar of the required frame
and 'M' must define the first bar for every frame.

Hope this helps.

Roy

  {daily OHLCV Compression}
  {© 2003 Roy Larsen}
  {rlarsen@xxxxxxxxxxxxxx}
  {use on hourly charts}
X:=Input("1=Open  2=High  3=Low  4=Close  5=Volume",1,5,4);
Q:=Input("1=Dynamic Current Day",0,1,1);
 {0=update at end of day for normal trading session}
 {1=dynamic current day - MS compatible}
M:=Hour()<ValueWhen(2,1,Hour());
F:=DayOfWeek()=16;
B:=LastValue(Cum(1))=Cum(1);
J:=If(F,1,If(Alert(F,2)=0 AND M,2,0));
J:=If(B+(J=0)+Q=3,1,J);
Hw:=HighestSince(1,M,H);
Hw:=ValueWhen(1,J,If(J=1,Hw,ValueWhen(2,1,Hw)));
Lw:=LowestSince(1,M,L);
Lw:=ValueWhen(1,J,If(J=1,Lw,ValueWhen(2,1,Lw)));
K:=ValueWhen(1,J,If(J=1,C,ValueWhen(2,1,C)));
Ow:=ValueWhen(1,J,If(J=1,ValueWhen(1,M,O),
  ValueWhen(2,M OR Cum(1)=2,O)));
Z:=If(M,V/1000,PREV+(V/1000)); Z:=Int(Z);
Z:=ValueWhen(1,J,If(J=1,Z,ValueWhen(2,1,Z)));
X:=If(X=1,Ow,If(X=2,Hw,If(X=3,Lw,If(X=5,Z,K))));
F:=LastValue(Cum(1))-Cum(1);
G:=LastValue(Cum(J>0))-Cum(J>0);
I:=1+F-G;
N:=LastValue(Cum(J>0));
I:=ValueWhen(2,F<=N,1)*I;
ValueWhen(LastValue(I-PREV+PREV),J,X);




------------------------ Yahoo! Groups Sponsor ---------------------~-->
Rent DVDs from home.
Over 14,500 titles. Free Shipping
& No Late Fees. Try Netflix for FREE!
http://us.click.yahoo.com/mk9osC/hP.FAA/3jkFAA/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/