Månadstiming strategi

lite godis att kanske använda koden ligger här under,, har ni wl äre bara att klippa å klistra ,annars bara skriva över till nått annat prog av favvosort.

lite exempelbilder på eq-kurvor från AA-HON i dow 30 orkade inte lägga ihop fler men ser rätt robust ut.

//**månadssnittare**//
// WL-kod
// PQ.. 2005-11-08
// till AG:s läsare
// förbättra gärna

var Bar: integer;
for Bar := 30 to BarCount - 1 do
begin
//Första entry
if activepositioncount = 0 then
if GetDay(Bar) >= 21 then
if GetDay(Bar) <= 28 then
BuyAtmarket(Bar+1, '1');

//Börja snitta
//1:sta snittet
if activepositioncount = 1 then
if GetDay(Bar) >= 21 then
if GetDay(Bar) <= 28 then
if priceclose(bar) < positionentryprice(lastposition) * 0.99 then
BuyAtmarket(Bar+1, '2');

//2:a snittet
if activepositioncount = 2 then
if GetDay(Bar) >= 21 then
if GetDay(Bar) <= 28 then
if priceclose(bar) < positionentryprice(lastposition) * 0.98 then
BuyAtmarket(Bar+1, '3');

//3:e snittet
if activepositioncount = 3 then
if GetDay(Bar) >= 21 then
if GetDay(Bar) <= 28 then
if priceclose(bar) < positionentryprice(lastposition) * 0.97 then
BuyAtmarket(Bar+1, '4');

//Exit all positions
if lastpositionactive then
if GetDay(Bar) >= 5 then
if GetDay(Bar) <= 10 then
sellAtmarket(Bar+1,#all, 'Exit All');
end;