INVESTOX-Forum

Hallo

ich habe Investox 3.7.7

Ich hab folgenden Code "gefunden" und würd den gern mit Investox mal testen:

----------------------------------------------
var STOCHPANE, BAR: integer;
var StochPeriod, StochPeriodShort: integer;

{Stoch. period for longs}
StochPeriod:= 9;

{Stoch. period for shorts}
StochPeriodShort:= 16;

for Bar := 20 to BarCount - 1 do
begin
if not LastPositionActive then
{Entry rules}
begin
if (StochK( Bar, StochPeriod) < 5) then
if (0.96*@#AverageC[ Bar-2 ] > @#AverageC[ Bar-1 ] ) then
if (0.86*@#AverageC[ Bar-1 ] > @#AverageC[ Bar ] ) then
BuyAtMarket(Bar+1,'');

if (StochK( Bar, StochPeriodShort) > 97) then
if (1.12*@#AverageC[ Bar-2 ] < @#AverageC[ Bar-1 ] ) then
if (1.24*@#AverageC[ Bar-1 ] < @#AverageC[ Bar ] ) then
ShortAtMarket(Bar+1,'');
end
else
{Exit rules}
begin
if MarketPosition = 1 then SellAtClose( Bar + 1, LastPosition, '' );
if MarketPosition = -1 then CoverAtClose( Bar + 1, LastPosition, '' );
end;
end;

{Plotting}
StochPane := CreatePane( 120, true, true );
PlotSeries( StochKSeries(StochPeriod), StochPane, #Purple, #Thin);
PlotSeries( StochKSeries(StochPeriodShort), StochPane, #Green, #Thin);
----------------------------------------------

Kennt sich jemand von euch viell ein wenig mit Wealth Lab aus und kann mir den fett gedruckten Code auf Investox übersetzen?

Danke
Max

Danke Anke :-)

So was in der Art hab ich mir auch schon gedacht - (ich habs nur irgendwie unrealistisch gefunden, daß eine Aktie 4% und dann nochmals 14% fallen muß für ein Buysignal, aber ok)

Liebe Grüße
Max