+1 888 340 6572

Moon

Article/Author: Omega research Inc., 1997

Download: moon.ela

File Includes:
ShowMe - Full_Moon
ShowMe - New_Moon

Category: ShowMe > Moon

Description: This set of ShowMe studies designed for indicating Full Moon and New Moon

ShowMe Full_Moon ELA Code:
VARS:ASTROJUL(0),PHASE(0);

ASTROJUL =DATETOJULIAN(DATE)+ 2415019 ;
PRINT("DATE",DATE);
PHASE = (ASTROJUL+4.867) / 29.53059 ;
PHASE = FRACPORTION(PHASE);
PRINT("PHASE",PHASE);
IF PHASE >= 0.90 THEN PRINT("FULL MOON");
IF PHASE >= 0.5 AND PHASE <= 0.90 THEN PRINT("WAXING MOON");
IF PHASE >= 0.47 AND PHASE <= 0.5 THEN PRINT( "NEW MOON");
IF PHASE <= 0.5 AND PHASE >= 0.2 THEN PRINT("WANING MOON");

IF PHASE >=0.90 THEN PLOT1(HIGH,"SHOWME");


ShowMe New_Moon ELA Code:
VARS:ASTROJUL(0),PHASE(0);

ASTROJUL =DATETOJULIAN(DATE)+ 2415019 ;
PRINT("DATE",DATE);
PHASE = (ASTROJUL+4.867) / 29.53059 ;
PHASE = FRACPORTION(PHASE);
PRINT("PHASE",PHASE);
IF PHASE >= 0.90 THEN PRINT("FULL MOON");
IF PHASE >= 0.5 AND PHASE <= 0.90 THEN PRINT("WAXING MOON");
IF PHASE >= 0.47 AND PHASE <= 0.5 THEN PRINT( "NEW MOON");
IF PHASE <= 0.5 AND PHASE >= 0.2 THEN PRINT("WANING MOON");

IF PHASE >=0.45 AND PHASE <= 0.52 THEN PLOT1(HIGH,"SHOWME");