Vestics Beleggers Netwerk

Hallo,

bedoeling was een indicator te ontwerpen die de 3de vrijdag van de maand ging aanduiden (expiratie).
als voorbereiding gebruik ik onderstaande code,
maar hier ging het al mis

value function z3deVrijdag () begin
?value zDagTeller;
?if DayOfWeek=5 then
? zDagTeller=100
? else
? zDagTeller=0;
?Plot1(zDagTeller,'DagTeller');
end;

maar Vestics geeft steeds de waarde "0" terug (?)
wat gaat er fout ?

alvast bedankt voor de tip(s),
bert

Bert,
Op de vesticode-cursus gaf Pierre de volgende oplossing:
? if DayOfWeek(date)=5
? and DayOfMonth(date)>=15
? and DayOfMonth(date)<=21
? then Plot1(High,'expiratie');
Aad

Hallo Aad

hoe luidt de instructie ingeval van DAX en EUROSTOXX
bij expiratie per kwartaal ? Dus ?maart, juni enz.

en hoe combineer ik dat met een signaal voor de AEX ?

groet


Joop

Beste Joop,
Ik weet niet zeker of het zo goed is en ik weet ook niet wat precies de exp data van dax en eurostoxx zijn, maar probeer het onderstaande is.
Voor het geval het lezen van vesticode moeilijkheden oplevert, heb ik er ook even een toelichting bijgezet. Makkelijk voor eventuele aanpassingen.

?if Month(date)=3
?or Month(date)=6
?or Month(date)=9
?or Month(date)=12
?then begin
?if DayOfWeek(date)=5
?and DayOfMonth(date)>=15
?and DayOfMonth(date)<=21
?then Plot1(High,'expiratie');
?end;
De eerste 4 regels selecteren de maand. Indien de maand 3,6,9 of 12 is wordt verder gegaan met de volgende regels, anders wordt de rest overgeslagen.
De 6e regel test of het de vijfde dag van de week (= vrijdag).
De eerste 3e vrijdag van de maand is op z'n vroegst de 15 van de maand en op z'n laatst de 21 van de maand.
Daarom wordt in de regels 7 en 8 getest of de dag >= 15 is (groter of gelijk aan 15 ) en <= 21 (kleiner of gelijk aan 21 is).
Wordt voldaan aan de regels 6 t.m 8 dan volgt aktie.

Ik weet niet wat je bedoelt met een combinatie met actie op de aex.
Aad.

Bedankt Aad

In comb. met AEX bedoel ik, dat ik graag bij de AEX iedere maand een signaal wil krijgen en bij de DAX en ES 50 ieder kwartaal

groet

Joop

Het wordt tijd dat alle TS functions in vestics beschikbaar komen. Ik knip en plak me een bult op de rug




{*******************************************************************
Description: This Function returns Next3rdFriday
Provided By: Omega Research, Inc. (c) Copyright 1999
********************************************************************}

Inputs: Series(Numeric);
Variables: WorkDay(0), Month1(0), Year1(0), MonthTarget(0), DayTarget(0), YearTarget(0), FirstFriday(0), ThirdFriday(0), JulianTarget(0), julianNow(0), SZMonth(0), SZDay(0), SZYear(0), SeriesRotation(1);

SeriesRotation = Series - 1;
SZDay = DayOfMonth(Date);
SZMonth = Month(Date);
SZYear = Year(Date);

WorkDay = DayOfWeek((SZYear * 10000) + (100 * SZMonth) + 1);

If WorkDay = 0 Then
FirstFriday = 6;
If WorkDay = 1 Then
FirstFriday = 5;
If WorkDay = 2 Then
FirstFriday = 4;
If WorkDay = 3 Then
FirstFriday = 3;
If WorkDay = 4 Then
FirstFriday = 2;
If WorkDay = 5 Then
FirstFriday = 1;
If WorkDay = 6 Then
FirstFriday = 7;

ThirdFriday = FirstFriday + 14;

If ThirdFriday > SZDay Then Begin
Month1 = SZMonth;
Year1 = SZYear;
End
Else Begin
Month1 = SZMonth + 1;
If Month1 = 13 Then Begin
Month1 = 1;
Year1 = SZYear + 1;
End
Else Begin
Year1 = SZYear;
End;
End;

MonthTarget = Month1+SeriesRotation;

If MonthTarget > 12 Then Begin
MonthTarget = MonthTarget - 12;
YearTarget = Year1 + 1;
End
Else Begin
YearTarget = Year1;
End;

WorkDay = DayOfWeek((YearTarget * 10000) + (100 * MonthTarget) + 1);

If WorkDay = 0 Then
FirstFriday = 6;
If WorkDay = 1 Then
FirstFriday = 5;
If WorkDay = 2 Then
FirstFriday = 4;
If WorkDay = 3 Then
FirstFriday = 3;
If WorkDay = 4 Then
FirstFriday = 2;
If WorkDay = 5 Then
FirstFriday = 1;
If WorkDay = 6 Then
FirstFriday = 7;

DayTarget = FirstFriday + 14;

julianNow = DateToJulian((10000 * SZYear) + (100 * SZMonth) + SZDay);
JulianTarget = DateToJulian((10000 * YearTarget) + (100 * MonthTarget) + DayTarget);

Next3rdFriday = JulianTarget-JulianNow;


{*******************************************************************
Description: This type paints the bar of expiration
Provided By: Omega Research, Inc. (c) Copyright 1999
********************************************************************}

If Next3rdFriday(1)[1] = 1 Then Begin
PlotPaintBar(High, Low, "Expiration");
Alert("Alert on Expiration bar");
End;

Joop,
je zal denk ik 2 markers moeten maken, een voor de aex (met een signalering per maand) en een voor dax en eurostoxx (met een signalering per kwartaal). Afhankelijk van het fonds moet je dan een van de twee markers in je grafiek opnemen.
Mooier is wellicht een marker met meerdere mogelijkheden, maar dan zou je in de marker moeten kunen testen om welk fonds het gaat. ?Maar ik weet niet of dat gaat.
Aad.
P.s. In vesticode staat bij de markers ook een voorbeeld van een marker.

Hoi Geert,

Dat zou te gek zijn.

Groetjes Paul

Beste mensen,
Zie in de map Vesticode\Classic\Function\ de functions DaysToExpiration en Next3rdFriday.
Die werken per maand, maar met een if-statement zijn de overbodige maanden eruit te halen.
Als je nog een (string) variabele toevoegt kun je dat weer laten bepalen door de fondsalias.

Verder heb ik Pierre de volgende e-mail gestuurd :
"Ik gebruik een marker om de expiraties aan te geven.
Dat werkt, het gaat alleen mis op bijv. 18 april, Goede Vrijdag.
Dat werkt dus ook door op de berekening van het aantal dagen tot de expiratie."

Groetend, Geert

Geert,
Hoe roep je die alias aan in Vesticode en hoe werkt dat met die string ?
B.v.d.
Aad

Deze nog even voor Joop om de expiratie voor de ?AEX en EUSTXX met 1 paintbar te herkennen.

{*******************************************************************
Description: Paints the bar of expiration (Mrt - Jun - Sep - Dec)
Provided By: GMe 8 mei 2003
********************************************************************}
If GetSymbolName = "AEX" Or GetSymbolName = "FTI" Then
Condition1 = True;
If GetSymbolName = "EUSTXX" Or GetSymbolName = "FESX" Then
Condition1 = Month(date)=3 or Month(date)=6 or Month(date)=9 or Month(date)=12;

If Next3rdFriday(1)[1] = 1 and Condition1 Then Begin
PlotPaintBar(High, Low, "Expiration");
Alert("Alert on Expiration bar");
End;

[quote]Quote: from geert
Verder heb ik Pierre de volgende e-mail gestuurd :
"Ik gebruik een marker om de expiraties aan te geven.
Dat werkt, het gaat alleen mis op bijv. 18 april, Goede Vrijdag.
Dat werkt dus ook door op de berekening van het aantal dagen tot de expiratie."

Geert, heb je inmiddels een oplossing voor dit probleem gevonden? ?

Heb inmiddels ontdekt dat de functie Next3rdFriday dit probleem oplost; deze functie vervroegt een expiratiedag als de beurs wegens een feestdag op vrijdag gesloten is.

(Edited by roozenburg at 12:31 pm op 3,okt. 2003)