Pivot Point. - Hulp gezocht met Pivot Point code.

[JanB]

Wie kan mij hier verder mee helpen? Gaat dit werken in Vestics?

Ik heb dit systeem gevonden in http://groups.yahoo.com/group/vestics/ (Zie "Contact gezocht" gestart door FM) in het Stad05.zip PDF bestand.

Dit is een Pivot Point handelssysteem wat een 70% trefkans met Treasury Bonds heeft, volgens de documentatie.
Na alles overgetikt te hebben lijkt Vestics alles te accepteren behalve Condition1 en Condition2. Het gaat dan om SwingLow en SwingHigh waar een foutmelding uitkomt. Na Ctrl-F9 springt het naar deze functies en dan SwingLowBar en zegt: "Function SwingLow,fout in regel 4,pos 13,fout-35: verwacht hier een naam van een variabele".
_______________________________________________________________________________

Inputs: HiLoLen(8), ATRLen(10), SetUpInt(4), XAvgLen(9), SetUpLen(24), RiskMult(2), HiLoStop(44);
Vars: LPivot(0), HPivot(0), EMA(0), BuySetupHigh(0), BuySetupCount(100), SellSetupLow(0), SellSetupCount(100);
Vars: BuySetupLow(0), SellSetupHigh(0), LExitFlag(0), SExitFlag(0), LExitLow(0), SExitHigh(0), PMult(2), TT(0);

Condition1 = SwingLow(1, Low, 1, 2)<>-1;
Condition2 = SwingHigh(1, High, 1, 2)<>-1;
Condition3 = Low[1] = Lowest(Low, HiLoLen)[1];
Condition4 = High[1] = Highest(High, HiLoLen)[1];
Condition5 = TrueRange > AvgTrueRange(ATRLen);

LPivot = MRO(Condition1 AND Condition3, SetUpInt,1);
HPivot = MRO(Condition2 AND Condition4, SetUpInt,1);
EMA = XAverage(Close, XAvgLen);
TT= TotalTrades;

{Buy Setup}
If LPivot > 0 AND Lowest(Low, LPivot) < Low[LPivot+1] Then Begin
IF Condition5 AND Close > MaxList(Close[1], Open , Low +
(2*(TrueRange/3)),Low[LPivot+1]) Then Begin
BuySetupHigh = High;
BuySetupLow = Low;
BuySetupCount = 0;
End;
End;

{Sell Setup}
If HPivot > 0 AND Highest(High, HPivot) > High[HPivot+1] Then Begin
IF Condition5 AND Close < MinList(Close[1], Open , Low + (TrueRange/3),
High[HPivot+1]) Then Begin
SellSetupLow = Low;
SellSetupHigh = High;
SellSetupCount = 0;
End;

End;

{Breakeven Stops, above floor}
If MarketPosition = 1 Or TT <> TT[1] Then Begin
BuySetupCount = SetUpLen;
If Close > EntryPrice + (PMult*(EntryPrice - LExitLow)) Or
LExitFlag = 0 Then Begin
ExitLong Next Bar at EntryPrice Stop;
LExitFlag = 0;
End;
End;
If MarketPosition = -1 Or TT <> TT[1] Then Begin
SellSetupCount = SetUpLen;
If Close < EntryPrice - (PMult*(SExitHigh - EntryPrice)) Or
SExitFlag = 0 Then Begin
ExitShort Next Bar at EntryPrice Stop;
SExitFlag = 0;
End;
End;

{variable counters for Entry}
BuySetupCount = BuySetupCount + 1;
SellSetupCount = SellSetupCount + 1;

{Long Entry}
If BuySetupCount <= SetUpLen Then Begin
If BuySetupHigh + 1 Point > EMA Then Begin
Buy Next Bar at BuySetupHigh + 1 Point Stop;
LExitLow = BuySetupLow;
LExitFlag = 1;
End;
End;

{Short Entry}
If SellSetupCount <= SetUpLen Then Begin
If SellSetupLow + 1 Point < EMA Then Begin
Sell Next Bar at SellSetupLow - 1 Point Stop;
SExitHigh = SellSetupHigh;
SExitFlag = 1;
End;
End;

{Initial Breakeven Stops}
If LExitFlag = 1 Then ExitLong Next Bar at LExitLow - 1 Point Stop;
If SExitFlag = 1 Then ExitShort Next Bar at SExitHigh + 1 Point Stop;

{System Exits}
ExitLong Next Bar at Highest(High, HiLoStop) Limit;
ExitShort Next Bar at Lowest(Low, HiLoStop) Limit;
;

[Pierre]

Hallo JanB,

Het feit dat Condition1, enz. niet herkend worden is een fout in VestiCode die we zo snel mogelijk zullen verbeteren.

Als oplossing kun je de variabelen even expliciet defini?eren door 1 regel toe te voegen aan de functie...
vars: Condition1(false), Condition2(false),...,Condition5(false);

In de toekomst kun je overigens beter gebruik maken van kopi?ren en plakken dan zo'n heel verhaal over te tikken. Scheelt een boel werk en voorkomt tikfouten.

[JanB]

Pierre, bedankt voor je reactie.
Kopi?ren en plakken levert bij mij vanuit een PDF bestand alleen chinese tekens op. Wie heeft hier een oplossing voor?

Even een navraag: Moet "vars: Condition1(false), Condition2(false),...,Condition5(false); " toegevoegd worden aan de Pivot code? ?Dit veroorzaakt een "Dubbele variabele naam" fout.

[FM]

Hallo JanB,

Er zijn dure bijzonder goed werkende oplossingen o.a. van Acrobat zelf en OmniPage. ?Via www.cnet.com, sectie downloads, zijn ook eenvoudigere tools te vinden. Zoek op "convert PDF files" en je ziet een lijst verschijnen.

Ik zal zelf eens een heel document door Omnipage halen om te kijken of ik dit snel kan omzetten naar Word of ASCII. Ik plaats het wel op Yahoo als het klaar is.

met groet,

Frans.

[FM]

Ik heb op http://groups.yahoo.com/group/vestics/ ?manual Stad 5 in HTML formaat geplaatst. In Word formaat zou het meer dan 14MB groot worden door alle plaatjes. In HTML kun je nog steeds alle formules met Copy Paste bewerken.
Als er mensen ge?nteresseerd zijn in formules uit de boeken kan ik deze omzetten in Word formaat op de voorwaarde dat de Vestics implementatie op het forum terecht komt.
Als er verschillende mensen aan verschillende systemen willen sleutelen is het wellicht interessant om ook de bevindingen (testen, aanpassingen, etc.) op het forum te plaatsen. Graag reacties.

met vriendelijke groet,

FraNS.

[geert udema]

Als je me "Trendline" uit deel 1 toestuurt bericht ik op het Forum.
Een goed idee van je !

Groetend, Geert

[FM]

Geert,

Trendlines chapter 1 (Trending Systems) omvat vier systemen. Wil je ze alle vier of bedoel je Trendline Automatic blz. 28-34?

Shareware site voor PDF converters:
http://shareware.cnet.com/

met groet,

Frans.

[Pierre]

Hallo JanB,

Sorry, maar mijn vorige antwoord was compleet FOUT!
Condition1 is een standaard variabele die je nooit hoeft te defini?ren. Toen ik de foutboodschap las, dacht ik meteen dat we op de een of andere manier een probleem hadden met deze variabele. Ten onrechte want Condition1 wordt prima ondersteund. Vergeet mijn vorige antwoord dus maar.

Wat is het dan wel... Ik heb jouw module in de designer geladen, en krijg dan inderdaad die foutboodschap, maar (zoals je al aangeeft) niet in jouw module maar in de functie SwingLow die door jouw module wordt aangeroepen. Het blijkt namelijk dat we de SwingLowBar en SwingHighBar functies niet hebben meegeleverd met Vestics en die functies worden gebruikt in SwingLow en SwingHigh.

MIsschien dat iemand anders die functies heeft en jou kan emailen? Ik vrees namelijk dat ik op korte termijn daar niet aan toe kom. Je zou ook even op Internet kunnen kijken.

[JVerv]

L.S.

Ik zou willen aanraden de functies op deze thread te zetten ter wille van de algemene interesse. Als eenieder zijn functies buiten het forum om uitwisselt, zal het forum langzaam ter ziele gaan, vrees ik.

m.vr. gr.
Jan

[GMe]

Hier kun je ze pakken en ze worden direkt in de goede directory gedumpt als je Vestics op de C:\ drive hebt geinstalleerd. Anders even de driveletter aanpassen bij het uitpakken!

http://members.chello.nl/~g.menting1/SwingBars.exe

[JanB]

Perfect, ?SwingBars.exe geinstalleerd. De foutmeldingen zijn nu weg. We misten dus een functie. Helaas geeft het systeem geen signalen! Meerdere fondsen geprobeerd, dus iets zal nog wel fout zitten in de code. Of Vestics begrijpt het niet?

[GMe]

Ik heb de code even in TS gezet en er rollen gewoon signalen uit.

http://members.chello.nl/~g.menting1/PIVOT.png

[geert udema]

Frans,
Ik heb 3 pdf to text programma's geprobeerd, alle 3 werkten ze niet.
Dus kom ik terug op onze deal. Het ging om de Automatic, maar je mag ze ook alle 4 sturen. Die ik werkend krijg zet ik dan op het Forum.
Als nieuwe message.

Groetend, Geert.


(Edited by geert udema at 10:58 pm op 5,jan. 2003)

[FM]

Geert,

Ik zal ze alle vier omzetten in Word formaat op http://groups.yahoo.com/group/vestics/files/ ?en stuur je een mailtje wanneer ik ze gereed heb.

Ik zie de uitwerking met plezier tegemoet.

met groet,

Frans.

[FM]

JanB,

Bedankt voor de upoad op http://groups.yahoo.com/group/vestics/files/
Ik heb de code direct geprobeerd en krijg er ook geen signalen uit. Morgen maar eens me de debugger aan de slag. Er zal dus nog wel iets in de code fout zitten of Pierre moet constateren dat Vestics iets niet ondersteund.

met groet,

Frans.