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"
|