Fibonacci Time Zone Lines und Tagesabstände im Kalender.

Hallo,

Die vertikalen Linien Fibonacci Time Zone sollten entsprechend der Tagesabstände im Kalender auf dem Chart der Aktie aufgezeichnet werden.
(Zum Beispiel 5,8,13,21…. 144,233,377,610 etc.)
(Herzlichen Dank an Jose Silva, der die originale Formel verfasste.)

Wahrscheinlich setze ich die MetaStock Alarmfunktion
“ Alert(Expression, Periods) “falsch.

Wenn ein Fibonacci Time Zone Signal am Sonntag oder Samstag fällt, entsteht auf dem Chart keine vertikale Linie. Warum?

Ich hoffe, sie werden mir helfen, das Problem zu lösen.

Gruß

Derek

---------------8<---------------------------------------------------------

{Herzlichen Dank an Jose Silva, der die originale Formel verfasste.}

Day1 := Input("Tag ",1,31,24);
Month1 := Input("Monat",1,12,10);
Year1 := Input("Jahr ",1900,2400,2008);

limit:=Year1;
nth:=1;

plot:=Input("[1]DaysSince, [2]EventSignals, [3]DayCount",1,3,2);

event:= (DayOfMonth() = Day1 AND Month() = Month1 AND Year()=Year1 );

{ Gregorian calendar }
LimLeap:=Frac(limit/4)=0 AND Frac(limit/100)<>0
OR Frac(limit/400)=0;
NoCount:=limit*365+Int(limit/4)
-Int(limit/100)+Int(limit/400)-LimLeap;
leap:=Frac(Year()/4)=0 AND Frac(Year()/100)<>0
OR Frac(Year()/400)=0;
y:=Year()*365+Int(Year()/4)
-Int(Year()/100)+Int(Year()/400)-NoCount;
m:=
If(Month()=2,31-leap,
If(Month()=3,59,
If(Month()=4,90,
If(Month()=5,120,
If(Month()=6,151,
If(Month()=7,181,
If(Month()=8,212,
If(Month()=9,243,
If(Month()=10,273,
If(Month()=11,304,
If(Month()=12,334,
-leap)))))))))));
DayNr:=y+m+DayOfMonth();

{ Restrict Nth to max events }
nth:=
LastValue(If(nth>Cum(event),Cum(event),nth));

{ Days since Nth event }
DaysSince:=(DayNr-ValueWhen(nth,event,DayNr));

{ Plot in own window }
If(plot=1,DaysSince,If(plot=2,event,DayNr));

Fib:=If(DaysSince=0 OR DaysSince=144 OR DaysSince=233 OR DaysSince=377 OR DaysSince=610 OR DaysSince=987 OR DaysSince=1597,100,0);

Fib AND Alert(Fib,2);
---------------8<----------------------------------------------------------