Wealth Lab Code übersetzen
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