MetaStock™ Zone Forum & FAQ Artykuły Linki Elliott Waves EasyLanguage™ Zone

A B C D E F G H I J K L M N O P R S T U V W Y Z #

Lunar Cycle by Jose Silva

Hello,

A while ago, I believe that Jose or someone else posted the code for the Full Moon/New Moon. Does anybody have that code and do they know if it is accurate?

Any help would be appreciated.

Thanks,
Al

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Re: Full Moon/New Moon indicator

To celebrate the auspicious Full Moon / Lunar eclipse last night, I've updated the Lunar Indicator code.

The Lunar Indicator is still as accurate as ever, but now incorporates a signal advance input (in calendar days) so that lunar signals may be shifted and viewed on weekends and trading holidays.


Lunar Cycle

{ Full/New Moon signals indicator MkVIII
Plots +1 signal on Full Moon; -1 on New Moon.
Accurate to within 1 minute per 69 years.

If FM/NM falls on a holiday or weekend,
signal is plotted on the next trading day.
Use the signal advance function to shift
signals and view on non-trading days.

ŠCopyright 2001~2007 Jose Silva.
The grant of this license is for personal use
only - no resale or repackaging allowed.
All code remains the property of Jose Silva.
http://www.metastocktools.com }

{ User inputs }
shift:=Input("Advance signal by x calendar days",-30,30,0);
TZ:=Input("Your local Time Zone? [-12 to +12hrs]",-12,12,7);
{ http://www.travel.com.hk/region/timezone.htm }

{ Lunar cycle }
LunarMonth:=29.530589;
Offset:=7.254621;

{ Calendar engine }
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);
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()-TZ/24-Offset+shift+1;

{ Full Moon cycle }
FM:=Frac(DayNr/LunarMonth);

{ New Moon cycle }
NM:=Frac((DayNr+LunarMonth/2)/LunarMonth);

{ Lunar cycle signals }
cycle:=FM-NM;
FM:=cycle<0 AND Alert(cycle>0,2);
NM:=cycle>0 AND Alert(cycle<0,2);

{ Plot Lunar signals in own window }
FM-NM



Lunar_Cycle
Source / From: TOP
equismetastock[at]yahoogroups[dot]com  

Equis and MetaStock® and MetaStock Professional® are registered trademarks of Equis International. Achelis Binary Wave®, The DownLoader®,
Expert Advisor®, OptionScope®, Quotecenter® and Smart Charts® are trademarks of Equis International, a Thomson Reuters company.

TradeStation® Pro, TradeStation® 2000i, OptionStation®, SuperCharts®, PowerEditor® and EasyLanguage®
are registered trademarks of TradeStation Technologies, Inc. Other names and marks referred to are the property of their respective owners.

All information provided on this website is for educational purposes only. Trading involves risk, including possible loss of principal and other losses.

Ten i inne materiały na tej stronie zostały zamieszczone zostały jedynie w celach edukacyjnych, nie ponoszę żadnej odpowiedzialno¶ci za ich stosowanie.

Gra na giełdzie i rynkach walutowych (FOREX) niesie ze sob± ryzyko poważnych strat finansowych!