Ik vind het geweldig dat ik met mijn beperkte kennis van programmeren, toch e.e.a. kan doen in Vesticode. Het betere knip- en plakwerk natuurlijk, maar mocht iemand er belangstelling voor hebben, dan hierbij de code. Ik heb de zigzag gecombineerd met de trend (afgekeken van de rocema-trend natuurlijk) en hoewel de echte resultaten pas in de praktijk zullen blijken (of niet), ben ik voorlopig nog enthousiast. Ik zit nog wel te dubben over dat eerste half uur (zie discussie in rubriek Vragen en suggesties), maar daar kom ik voorlopig nog niet uit.
Groet
Hannie
value function ZigZagTrend (value xPercentage=1.8, value xTrendBars = 100) ?begin
?value xZigZag[], xTrend;
?{---- calculate zigzag en trend ----}
?xZigZag := ZigZag(xPercentage);
?xTrend := XAverage(Close,xTrendBars);
?{---- check for signals ----}
?if vCrossesAbove(Close,xZigZag) then begin
? ?if Close>xTrend then Buy else ExitShort;
? ?end;
?if vCrossesBelow(Close,xZigZag) then begin
? ?if Close<xTrend then Sell else ExitLong;
? ?end;
?
?{---- let's do some plotting ----}
?Plot1(xZigZag,'ZigZag'+NumToStr(xPercentage));
?plot2 (xTrend,'Trend');
?end;