Un sistema sul Nasdaq che guadagna 9 volte su 10 (parte 1) - gz
¶
By: GZ on Sabato 10 Aprile 2004 15:01
Stamattina stavamo facendo qualche prova di sistemi di Altucher con Wealth-Lab ed ecco i risultati sull'indice Nasdaq del sistema basato sulle Bande di Bollinger cioè due deviazioni dalla media
Ecco i risultati operazione sull'indice Nasdaq (indicato come QQQ perchè è quello che è usato di più anche del future a NY)
----------------- codice Wealth-Lab----------------
var Bar,bMA,UpBnd,LoBnd,per1,days:integer;
var W,ePrice:float;
W:=1.50; {Band halfwidth, StdDev}
per1:=10; {period of price and band MAs}
days:=20; {time based exit, days}
bMA:=SMASeries(#Close,per1);
UpBnd:=AddSeries(bMA,MultiplySeriesValue
(StdDevSeries(#Close,per1),W));
LoBnd:=SubtractSeries(bMA,MultiplySeriesValue
(StdDevSeries(#Close,per1),W));
InstallTimeBasedExit(days);
for Bar:=per1 to BarCount-1 do
begin
ApplyAutoStops(Bar);
if LastPositionActive then
begin
ePrice:=PositionEntryPrice(LastPosition);
if PriceClose(Bar) > ePrice then
SellAtClose(Bar,LastPosition,'');
end
else
if PriceClose(Bar) < @LoBnd[Bar] then
BuyAtMarket(Bar+1,'');
end;
{Plotting}
PlotSeries(bMA,0,#Blue,#Thin);
PlotSeries(UpBnd,0,#Blue,#Dotted);
PlotSeries(LoBnd,0,#Blue,#Dotted);
DrawLabel('Price MA - solid line',0);
Drawlabel('Up/LoBand - dotted line',0);