RE:Delta

["Walt Downs" <knight@xxxxxxxxxxxx>]

John and all.

Here's an indicator that plots Delta/FullMoon lines on daily charts.
 those who can't read ELA files, a text version of the
code follows. Thanks also to the Omega List who provided the
original Lunation function.

Function Name: Lunation

Vars:AstroJul(0);
AstroJul =DateToJulian(Date)+ 2415019 ;
Lunation = (AstroJul+4.867) / 29.53059 ;

Indicator Name: FullMoon

Vars:AstroJul(0),Luna(0),Phase(0),Counter(0);
AstroJul =DateToJulian(Date)+ 2415019 ;
Luna = (AstroJul+4.867) / 29.53059 ;
Phase = FracPortion(Lunation);
If IntPortion(Luna)> IntPortion(Luna[1]) then Value1=1 else value1=0;
If value1 = 1 then begin
 Counter = Counter+1;
  If Counter = 1 then Plot1[1](999,"")
  Else Plot1(0,"");
 
  If Counter = 2 then begin
   Plot2[1](999,"");{red}
 End;
  If Counter = 3 then begin
   Plot3[1](999,"");{green}
 End;
  If Counter = 4 then begin
   Plot4[1](999,"");{cyan}
 End;
End;
If Counter = 4 then Counter = 0;



Attachment Converted: "c:\eudora\attach\Fullmoon.ela"