Voorbeelden uit de Cursus Vesticode - zResultaat loopt vast

[hjborn]

Hallo,
Heeft er iemand ervaring met de voorbeelden uit de cursus Vesticode.

Ik heb alles netje over getyped en bij 'zResultaat' loopt de boel vast. Bij het debuggen blijkt dat er in eens geen data meer in DATA1 zit (AEX dag koersen). Ik heb geen idee hoe ik erachter kom hoe dat nu kan.
Als ik vervolgens opnieuw begin zit er uiteraard weer wel data in DATA1. Echter als ik nu van grafiek naar debugger wil switchen klapt het scherm er gewoon uit.

Iemand een idee?

Groeten,
Hendrik Jan

[hjborn]

Misschien toch handig als ik de bewuste regels code er ook bij zet:

----------------------------------------
zMATrade:
value function zMATrade (value xAantallenBars=20);
begin

{variabele definitie}
value xMA[];

{bereken en plot de MA-waarde}
xMa := Average(Close,xAantallenBars);
plot1(xMA,'MA'+xAantallenBars:0:0);

{test voor kruising en geef orders}
if vCrossesAbove(Close,xMA) then Buy
else if vCrossesBelow(Close,xMA) then Sell;

end;

---------------------------------------
ZResultaat:
value function zResultaat begin

{onthou begin waarden}
value xBegin=0, xEinde;
if xBegin=0 then xBegin := Date;

{print resultaat op laatste dag}
if CurrentBar=vLastBar then begin
print ('Resultaat van ?',xBegin:0:0, ' tot ',Date:0:0);
print ('Aantal trades ?':20,TotalTrades:5:0);
print ('Aantal winners ?':20,NumWinTrades:5:0);
print ('Aantal verliezers ?':20,NumLosTrades:5:0);
print ('Brutowinst ?':20,GrossProfit:5:0);
end;
end;


In het overzicht 'samenvatting' staat alleen de eerste regel met de begin en eind datum. Om het systeem te testen heb ik gewoon de dagkoersen van de AEX genomen in een dag grafiek.

Ik hoop dat er iemand is die ziet wat er fout zit.

Groeten,
Hendrik jan

[Paul M]

value function zResultaat begin

{onthou begin waarden}
value xBegin=0, xEinde;
if xBegin=0 then xBegin := Date;

{print resultaat op laatste dag}
if CurrentBar=vLastBar then begin
print ('Resultaat van ?',xBegin:0:0, ' tot ',Date:0:0);
print ('Aantal trades ?',TotalTrades:5:0);
print ('Aantal winners ?',NumWinTrades:5:0);
print ('Aantal verliezers ?',NumLosTrades:5:0);
print ('Brutowinst ?',GrossProfit:5:0);
print ('Brutoverlies ?',GrossLoss:5:0);
print ('Brutoresultaat ?',(GrossProfit+GrossLoss):5:0);
end;
end;

Invoegen onder report.

Paul

(Edited by Paul M at 10:14 pm op 30,nov. 2003)


(Edited by Paul M at 10:17 pm op 30,nov. 2003)

[hjborn]

Paul,
Dank je. Het probleem was dus de positie bepaling in de print ( :20).

Inmiddels heb ik ook een terugkoppeling van Pierre en het blijkt dat dit een bug is die in de buglijst ?zal worden opgenomen.

Groeten,
Hendrik Jan