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

Re: Planetary Cycles



PureBytes Links

Trading Reference Links

Hello Luis,

Clyde Lee posted this Moon Phase system(Below)sometime
ago. I guess I forgot to play with it. Thanks for the
reminder :-> Let me know if you find any useful astro
stuff. I find it very interesting.

BTW Air software (Alphee& Carol Lavoie)has a program
that will do lots of astro analysis. I have a close
female friend who purchased it. She is computer
illiterate so I helped here get it running. Program is
LOUSY IMHO.the support is even worse! You would need
about 20 years Astrology study to get much benefit
from it. She ended up with it on the shelf in the end.
A $2000.00 Bookend, kind-a like TS2000I is for many
folks.

Alan C.

Cl_udknt.ela attached



{    System:   C_Lee_UpDnCount+Moon

Purpose:  Trading system for 30 minute bar data which
enters when a specified number of bars of
rising/falling prices has happened provided also that
the MOON is in the correct phase (which can be
specified).
}



Input:  EnterKnt (3),   {Level of Up/DnCount to
Buy/Sell contract      }
	      BarsDiff(2),    {Number bars between points to
measure up/dn   }
				T3Leng(17),     {Number bars in T3Average for exit
from trade  }
	 			WaitBars(0),    {>0=Exit after this number of
bars in trade    }
				MonMStop(1000), {<50=%ATR stop from Entry Price
>50=Dollars    }
				MoonAdju(4),    {Number days to shift moon trade
cycle -15->15 }
				Mode(0);        {0=buy  when moon passes full
until new  moon  }
												{  sell when moon passes new  until full
moon  } 
												{1=sell when moon passes full until new 
moon  }
												{  buy  when moon passes new  until full
moon  } 
												{2=NO MOON EFFECT AT ALL                  
    }
												
Vars:   MP(0),        StartBar(CurrentBar);
Vars:   UpCount(0),   DnCount(0);
Vars:	  PtsStopMM(MonMStop/BigPointValue);



MP      =MarketPosition;
If MP<>MP[1] Then StartBar=CURRENTBAR;

{Use Money management stop if desired}
If MonMStop>0 then begin
	If MonMStop<50 then
PtsStopMM=AvgTrueRange(21)*MonMStop;
	If MP>0 then ExitLong  at EntryPrice-PtsStopMM Stop;
	If MP<0 then ExitShort at EntryPrice+PtsStopMM Stop;
End;

{Count number of bars close has been Up/Down}
If C>C[BarsDiff] then begin
	UpCount=UpCount+1;
	DnCount=0;
End;
If C<C[BarsDiff] then begin
	DnCount=DnCount+1;
	UpCount=0;
End;


{Enter if UpCount/DnCount >= EnterKnt and correct Moon
Phase}
Value4=mod(Moonday_V2+MoonAdju,29);
If Mode=0 then begin
  Condition1=UpCount>=EnterKnt and Value4>14.5 ;
  Condition2=DnCount>=EnterKnt and Value4<14.5 ;
End
Else If Mode=1 then begin
  Condition1=UpCount>=EnterKnt and Value4<14.5 ;
  Condition2=DnCount>=EnterKnt and Value4>14.5 ;
End
Else begin
  Condition1=UpCount>=EnterKnt ;
  Condition2=DnCount>=EnterKnt ;
End;

If MP<=0 then If Condition1 then Buy  ("enl") at
Market;
If MP>=0 then If Condition2 then Sell ("ens") at
Market;

{Exit on 3 bar T3Average above/below T3Leng bar
T3Average}
Value2=T3Average(C,T3Leng);
Value3=T3Average(C,3);
Value1=Value3-Value2;

If MP<0 then If Value1 Crosses Over  0  then
ExitShort;
If MP>0 then If Value1 Crosses Under 0  then ExitLong;

{Exit after WaitBars number of bars if set}
If WaitBars>0 then begin
  If CurrentBar-StartBar>WaitBars then begin
  	ExitLong;
  	ExitShort;
	End;
End;

				

Attachment: Description: "Cl_udknt.ela"