[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Metastockusers] Weekly Pivot on Daily Chart



PureBytes Links

Trading Reference Links

Hi Alain

Try this indicator.

You will need Jose Silva's "Calendar Week counter", and that's available at
http://www.metastocktools.com/#metastock


  {Weekly Pivot Points}
  {2005 Roy Larsen, www.metastocktips.co.nz}
  {for use on daily charts with
   Jose Silva's "Calendar Week counter"}
F:=Input("End of Week,  5=Friday  6=Saturday 
7=Sunday",5,7,5);
Q:=Input("Display Mode,  0=Static  1=Dynamic  2=Test",0,2,0);
  {0=Display, update on Friday when possible}
  {1=Display, update on each new bar}
  {2=Backtest, update on first bar of new week}
G:=LastValue(Highest(Sum(DayOfWeek()=F,5))=5);
I:=Fml("Calendar Week counter");
I:=Abs(I-ValueWhen(2-G,1,I)); M:=G OR I>0;
F:=G OR (DayOfWeek()=F AND I=0);
A:=LastValue(Cum(1)-1)=Cum(1);
B:=ValueWhen(2,1,A);
J:=If(F,1,If(Alert(F,2)=0 AND M,2,0));
J:=If(A+LastValue(J)>2 OR B+(Q=1)=2,1,J);
J:=If(G,1,If(Q=2 OR Cum(J)<=1,M*2,J));
Hw:=HighestSince(1,M,H);
Hw:=ValueWhen(1,J,If(J=1,Hw,ValueWhen(2-G,1,Hw)));
Lw:=LowestSince(1,M,L); 
Lw:=ValueWhen(1,J,If(J=1,Lw,ValueWhen(2-G,1,Lw)));
Cw:=ValueWhen(1,J,If(J=1,C,ValueWhen(2-G,1,C)));
Hw:=ValueWhen(1,Hw>0,Hw);
Lw:=ValueWhen(1,Lw>0,Lw);
Cw:=ValueWhen(1,Cw>0,Cw);
M:=ValueWhen(1+G,1,(Hw+Lw+Cw)/3); {mid point}
R2:=ValueWhen(1+G,1,M+(Hw-Lw));
R1:=ValueWhen(1+G,1,(M*2)-Lw);
S1:=ValueWhen(1+G,1,(M*2)-Hw);
S2:=ValueWhen(1+G,1,M-(R1-S1));
R3:=ValueWhen(1+G,1,R2+(R1-M));
S3:=ValueWhen(1+G,1,S2-(M-S1));

R3; R2; R1; M; S1; S2; S3;


Kind regards

Roy Larsen
www.metastocktips.co.nz
Free formulas and MS links





----- Original Message ----- 
From: "ag2657" <alain.gaudy@xxxxxxxxxx>
To: <Metastockusers@xxxxxxxxxxxxxxx>
Sent: Friday, May 20, 2005 11:18 PM
Subject: [Metastockusers] Weekly Pivot on Daily Chart


> AS I'm a really not good at using Ms language, can anyone help me : 
> I want to apply on a daily Chart the lines of the weekly Pivot. I try
> to modify a formula given by Roy Larsen for ploting Daily Pivot on
> Intraday chart but it doesn't function. Please thank you for your
> help.
> 
> ALAIN
> 
> 
> Here is the formula I try to make : 
> 
> {Daily Pivot Points}
> {C 2004 Roy Larsen, rlarsen@xxx}
> {for use on intraday charts}
> A:=Input("Pivot Points - Day of Week Last Bar" ,0,7,5);
> B:=Input("Hour of Days Last bar",0,23,17);
> Q:=Input("Display Mode, 0=Static 1=Dynamic 2=Test",0,2,2);
> {0=Display, update at last bar of week}
> {1=Display, update on each new bar}
> {2=Backtest, update on first bar of new week}
> G:=LastValue(Highest(Sum(DayOfMonth()<>ValueWhen(2
> ,1,DayOfMonth()),5))=5);
> I:= Month()<>ValueWhen(2,1, Month());
> M:=G OR I;
> F:=G OR (DayOfWeek()=A AND Hour()=B);
> A:=LastValue(Cum(1)-1)=Cum(1);
> B:=LastValue(Cum(1))=Cum(1);
> J:=If(F,1,If(Alert(F,2)=0 AND M,2,0));
> J:=If(A+LastValue(J)>2 OR B+(Q=1)=2,1,J);
> J:=If(G,1,If(Q=2 OR Cum(J)<=1,M*2,J));
> Hw:=HighestSince(1,M,H);
> Hw:=ValueWhen(1,J,If(J=1,Hw,ValueWhen(2-G,1,Hw)));
> Lw:=LowestSince(1,M,L); Lw:=ValueWhen(1,J,If(J=1,L
> w,ValueWhen(2-G,1,Lw)));
> K:=ValueWhen(1,J,If(J=1,C,ValueWhen(2-G,1,C)));
> Hw:=ValueWhen(1,Hw>0,Hw);
> Lw:=ValueWhen(1,Lw>0,Lw);
> K:=ValueWhen(1,K>0,K);
> M:=(Hw+Lw+K)/3; {mid point}
> R2:=M+(Hw-Lw);
> R1:=(M*2)-Lw;
> S1:=(M*2)-Hw;
> S2:=M-(r1-s1);
> R1; R2; S1; S2;
> ValueWhen(1+G,1,M);
> 
> 
> 
> 
> --------------------------------------------------------------------------------
> Yahoo! Groups Links
> 
>  a.. To visit your group on the web, go to:
>  http://groups.yahoo.com/group/Metastockusers/
>    
>  b.. To unsubscribe from this group, send an email to:
>  Metastockusers-unsubscribe@xxxxxxxxxxxxxxx
>    
>  c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. 
> 
>


------------------------ Yahoo! Groups Sponsor --------------------~--> 
Has someone you know been affected by illness or disease?
Network for Good is THE place to support health awareness efforts!
http://us.click.yahoo.com/Rcy2bD/UOnJAA/cosFAA/zMEolB/TM
--------------------------------------------------------------------~-> 

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/Metastockusers/

<*> To unsubscribe from this group, send an email to:
    Metastockusers-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/