 |
TA-script.com Geavanceerde technische analyse - indicatoren en handelssystemen in TA-script
|
| Vorige onderwerp :: Volgende onderwerp |
| Auteur |
Bericht |
PaulM
Geregistreerd op: 6-4-2006 Berichten: 366 Woonplaats: Enschede
|
Geplaatst: Vr Jun 09, 2006 10:36 am Onderwerp: Ichomoku Kinko Hyo Chart |
|
|
Deze kwam ik op het internet tegen en heb hem omgezet naar TA-Script. Of hij van enig nut is heb ik nog niet kunnen bekijken, maar hoor het graag.
Informatie:
http://mdicorps.com/res/ta/technicalindicator/ichimoku
http://www.aspenres.com/Documents/AspenGraphics4.0/Ichimoku.htm
Code:
| Code: | {- Filename: Ichimoku Chart -}
var
Length9,Length26,Length52,i : integer;
Tenkan_Sen,Kijun_Sen,Chikou_Span : TSeries;
Senkou_Span_A,Senkou_Span_B : TSeries;
Chikou_Span_Length : integer;
begin
Length9 := CreateParameterInteger('Length9' , 1, 999 , 9, true);
Length26 := CreateParameterInteger('Length9' , 1, 999, 26, true);
Length52 := CreateParameterInteger('Length9' , 1, 999, 52, true);
Chikou_Span_Length := CreateParameterInteger('Chikou Span Length' , 1, 999, 26, true);
with Indicator do
begin
ShortName :='Ichimoku Chart';
RequiredBars := Maxint(Maxint(Length9,Length26),Length52);
Indicator.NewBand := false;
Indicator.ScaleRange := srCommon;
end;
Tenkan_Sen := DivideSeriesBy(AddSeries(HighSeries(High,Length9),LowSeries(Low,Length9)),2);
Kijun_Sen := DivideSeriesBy(AddSeries(HighSeries(High,Length26),LowSeries(Low,Length26)),2);
Chikou_Span := ShiftSeries(Close,-Chikou_Span_Length );
Senkou_Span_A := DivideSeriesBy(AddSeries(Tenkan_Sen,Kijun_Sen),2);
Senkou_Span_B := DivideSeriesBy(AddSeries(HighSeries(High,Length52),LowSeries(Low,Length52)),2);
with CreateLineOHLC(Senkou_Span_A, Senkou_Span_A, Senkou_Span_B, Senkou_Span_B) do
begin
Color := RGB(221,221,221);
Width := 1;
LineType := ltHighLow;
end;
with CreateLine(Senkou_Span_A) do
begin
Name :='Senkou_Span_A';
Color := RGB(221,221,221)
Width := 1;
end;
with CreateLine(Senkou_Span_B) do
begin
Name :='Senkou_Span_B';
Color := RGB(221,221,221)
Width := 1;
end;
with CreateLine(Tenkan_Sen ) do
begin
Name :='Tenkan_Sen';
Color := clRed;
Width := 2;
end;
with CreateLine(Kijun_Sen) do
begin
Name :='Kijun_Sen';
Color := clPurple;
Width := 2;
end;
with CreateLine(Chikou_Span) do
begin
Name :='Chikou_Span';
Color := clYellow;
Width := 2;
end;
END. |
Mvg,
Paul M |
|
| Naar boven |
|
 |
Dave
Geregistreerd op: 1-10-2006 Berichten: 3
|
Geplaatst: Zo Okt 01, 2006 8:52 pm Onderwerp: Ichimoku |
|
|
Deze grafiek is super voor mid- tot langere termijn trades. Op dag basis kan ik echter nog niet testen.  |
|
| Naar boven |
|
 |
PaulM
Geregistreerd op: 6-4-2006 Berichten: 366 Woonplaats: Enschede
|
|
| Naar boven |
|
 |
vobel
Geregistreerd op: 3-1-2007 Berichten: 1
|
Geplaatst: Wo Jan 03, 2007 1:14 am Onderwerp: Re: Ichomoku Kinko Hyo Chart |
|
|
De eerste indruk is dat deze indicator interressant is. Ik kan hem alleen niet backtesten.
Aart V
[quote="PaulM"]Deze kwam ik op het internet tegen en heb hem omgezet naar TA-Script. Of hij van enig nut is heb ik nog niet kunnen bekijken, maar hoor het graag.
[b]Informatie:[/b]
http://mdicorps.com/res/ta/technicalindicator/ichimoku
http://www.aspenres.com/Documents/AspenGraphics4.0/Ichimoku.htm
[b]Code:[/b]
[code]{- Filename: Ichimoku Chart -}
var
Length9,Length26,Length52,i : integer;
Tenkan_Sen,Kijun_Sen,Chikou_Span : TSeries;
Senkou_Span_A,Senkou_Span_B : TSeries;
Chikou_Span_Length : integer;
begin
Length9 := CreateParameterInteger('Length9' , 1, 999 , 9, true);
Length26 := CreateParameterInteger('Length9' , 1, 999, 26, true);
Length52 := CreateParameterInteger('Length9' , 1, 999, 52, true);
Chikou_Span_Length := CreateParameterInteger('Chikou Span Length' , 1, 999, 26, true);
with Indicator do
begin
ShortName :='Ichimoku Chart';
RequiredBars := Maxint(Maxint(Length9,Length26),Length52);
Indicator.NewBand := false;
Indicator.ScaleRange := srCommon;
end;
Tenkan_Sen := DivideSeriesBy(AddSeries(HighSeries(High,Length9),LowSeries(Low,Length9)),2);
Kijun_Sen := DivideSeriesBy(AddSeries(HighSeries(High,Length26),LowSeries(Low,Length26)),2);
Chikou_Span := ShiftSeries(Close,-Chikou_Span_Length );
Senkou_Span_A := DivideSeriesBy(AddSeries(Tenkan_Sen,Kijun_Sen),2);
Senkou_Span_B := DivideSeriesBy(AddSeries(HighSeries(High,Length52),LowSeries(Low,Length52)),2);
with CreateLineOHLC(Senkou_Span_A, Senkou_Span_A, Senkou_Span_B, Senkou_Span_B) do
begin
Color := RGB(221,221,221);
Width := 1;
LineType := ltHighLow;
end;
with CreateLine(Senkou_Span_A) do
begin
Name :='Senkou_Span_A';
Color := RGB(221,221,221)
Width := 1;
end;
with CreateLine(Senkou_Span_B) do
begin
Name :='Senkou_Span_B';
Color := RGB(221,221,221)
Width := 1;
end;
with CreateLine(Tenkan_Sen ) do
begin
Name :='Tenkan_Sen';
Color := clRed;
Width := 2;
end;
with CreateLine(Kijun_Sen) do
begin
Name :='Kijun_Sen';
Color := clPurple;
Width := 2;
end;
with CreateLine(Chikou_Span) do
begin
Name :='Chikou_Span';
Color := clYellow;
Width := 2;
end;
END.[/code]
Mvg,
Paul M[/quote] |
|
| Naar boven |
|
 |
Eric
Geregistreerd op: 10-9-2005 Berichten: 1412 Woonplaats: Den Haag
|
Geplaatst: Wo Jan 03, 2007 7:48 pm Onderwerp: Re: Ichomoku Kinko Hyo Chart |
|
|
| vobel schreef: | | De eerste indruk is dat deze indicator interressant is. Ik kan hem alleen niet backtesten. |
Nee, de indicator van Paul geeft geen aan/verkoopsignalen. Er zijn ook nogal wat manieren om de indicator te interpreteren als ik de achtergrond lees, maar ik heb de eenvoudigste genomen: Tenkan Sen kruist Kijun Sen.
| Code: | {- Filename: Ichimoku Chart -}
var
Length9,Length26,Length52 : integer;
Tenkan_Sen,Kijun_Sen,Chikou_Span : TSeries;
Senkou_Span_A,Senkou_Span_B : TSeries;
Chikou_Span_Length : integer;
begin
Length9 := CreateParameterInteger('Length9' , 1, 999 , 9, true);
Length26 := CreateParameterInteger('Length9' , 1, 999, 26, true);
Length52 := CreateParameterInteger('Length9' , 1, 999, 52, true);
Chikou_Span_Length := CreateParameterInteger('Chikou Span Length' , 1, 999, 26, true);
with Indicator do
begin
ShortName :='Ichimoku Chart';
RequiredBars := Maxint(Maxint(Length9,Length26),Length52);
Indicator.NewBand := false;
Indicator.ScaleRange := srCommon;
end;
Tenkan_Sen := DivideSeriesBy(AddSeries(HighSeries(High,Length9),LowSeries(Low,Length9)),2);
Kijun_Sen := DivideSeriesBy(AddSeries(HighSeries(High,Length26),LowSeries(Low,Length26)),2);
Chikou_Span := ShiftSeries(Close,-Chikou_Span_Length );
Senkou_Span_A := DivideSeriesBy(AddSeries(Tenkan_Sen,Kijun_Sen),2);
Senkou_Span_B := DivideSeriesBy(AddSeries(HighSeries(High,Length52),LowSeries(Low,Length52)),2);
Signals := CrossingsToEntrySignals(Crossings(Tenkan_Sen, Kijun_Sen));
with CreateLineOHLC(Senkou_Span_A, Senkou_Span_A, Senkou_Span_B, Senkou_Span_B) do
begin
Color := RGB(221,221,221);
Width := 1;
LineType := ltHighLow;
end;
with CreateLine(Senkou_Span_A) do
begin
Name :='Senkou_Span_A';
Color := RGB(221,221,221)
Width := 1;
end;
with CreateLine(Senkou_Span_B) do
begin
Name :='Senkou_Span_B';
Color := RGB(221,221,221)
Width := 1;
end;
with CreateLine(Tenkan_Sen ) do
begin
Name :='Tenkan_Sen';
Color := clRed;
Width := 2;
end;
with CreateLine(Kijun_Sen) do
begin
Name :='Kijun_Sen';
Color := clPurple;
Width := 2;
end;
with CreateLine(Chikou_Span) do
begin
Name :='Chikou_Span';
Color := clYellow;
Width := 2;
end;
END. |
---
Eric |
|
| Naar boven |
|
 |
Henry11
Geregistreerd op: 7-4-2007 Berichten: 65 Woonplaats: Provincie Utrecht
|
Geplaatst: Di Nov 06, 2007 12:34 am Onderwerp: |
|
|
Hallo beste TA-ers,
Wie kan mij helpen.....?
Ik heb de Ichimoku kinko Hyo-chart nog eens goed bekeken. Bovenstaande geeft niet het gewenste resultaat. Ik zou bovenstaande graag gewijzigd willen zien in:
De Tenkan Sen-lijn, deze is te berekenen (Highest High + Lowes low)/2 van de laatste 9 perioden.
De Kijun Sen-lijn, deze is te berekenen (Highest High + Lowes low)/2 van de laatste 26 perioden.
De cloud is te creëren door de (Tenkan + Kijun)/2 maar deze n-perioden in de toekomst te plotten. De tweede lijn van de cloud is dan (Highest High + Lowes low)/2 van de laatste 52 perioden en deze ook n-perioden in de toekomst te plotten.
Volgens mij is het moeilijk om in Pro in de toekomst te plotten. Als het zou kunnen zou dit geweldig zijn. Wanneer dit niet mogelijk is toch graag een verschuiving in de cloud aanbrengen a.u.b.
Bij voorbaat hartelijk dank,
Henry |
|
| Naar boven |
|
 |
Henry11
Geregistreerd op: 7-4-2007 Berichten: 65 Woonplaats: Provincie Utrecht
|
Geplaatst: Ma Feb 11, 2008 8:57 pm Onderwerp: |
|
|
Beste Eric en/of Paul,
Bovenstaande vraag van mij zou ik graag weer eens onder de aandacht willen brengen. Volgens mij moet het toch mogelijk zijn om de lijnen te kunnen verplaatsen, dit kan nl. ook met een gewone (E)MA.
Ik zou dit zeer op prijs stellen.
Met vriendelijke groet,
Henry11 |
|
| Naar boven |
|
 |
Eric
Geregistreerd op: 10-9-2005 Berichten: 1412 Woonplaats: Den Haag
|
Geplaatst: Ma Feb 11, 2008 9:32 pm Onderwerp: |
|
|
Henry,
PaulM heeft de verschuiving gerealiseerd door de Close in geel naar links verschoven te tekenen, dit heeft hetzelfde effect en heeft als voordeel dat je toch "in de toekomst" kunt kijken. Waarom is dit voor jou niet bruikbaar?
---
Eric |
|
| Naar boven |
|
 |
Janus
Geregistreerd op: 30-1-2008 Berichten: 301
|
Geplaatst: Ma Feb 11, 2008 11:44 pm Onderwerp: |
|
|
Voorbeeldje van de Chinko Cloud zoals ik hem gebruik:
 _________________ Vriendelijke groet,
JanS  |
|
| Naar boven |
|
 |
Henry11
Geregistreerd op: 7-4-2007 Berichten: 65 Woonplaats: Provincie Utrecht
|
Geplaatst: Vr Mrt 21, 2008 3:57 pm Onderwerp: |
|
|
Beste Eric en Paul,
Het voorbeeld van janus is eigenlijk precies wat ik bedoel. Die lijkt niet op degene die hier op de site staat. De Cloud is in de toekomst geplaatst en heeft heel andere kruisingen. Is het script aan te passen tot die van Janus?
Met vriendelijke groet,
Henry |
|
| Naar boven |
|
 |
PaulM
Geregistreerd op: 6-4-2006 Berichten: 366 Woonplaats: Enschede
|
Geplaatst: Vr Mrt 21, 2008 7:54 pm Onderwerp: |
|
|
| Code: | {- Filename: Ichimoku Chart S -}
var
Length9,Length26,Length52 : integer;
Tenkan_Sen,Kijun_Sen,Chikou_Span : TSeries;
Senkou_Span_A,Senkou_Span_B : TSeries;
Chikou_Span_Length : integer;
Shift_Senkou_A ,Shift_Senkou_B : integer;
begin
Length9 := CreateParameterInteger('Length9' , 1, 999 , 9, true);
Length26 := CreateParameterInteger('Length26' , 1, 999, 26, true);
Length52 := CreateParameterInteger('Length52' , 1, 999, 52, true);
Chikou_Span_Length := CreateParameterInteger('Chikou Span Length' , 1, 999, 26, true);
Shift_Senkou_A := CreateParameterInteger('Shift Senkou Span A' , 0, 999, 26, true);
Shift_Senkou_B := CreateParameterInteger('Shift Senkou Span B' , 0, 999, 22, true);
with Indicator do
begin
ShortName :='Ichimoku Chart';
RequiredBars := 5 * Maxint(Maxint(Length9,Length26),Length52);
Indicator.NewBand := false;
Indicator.ScaleRange := srCommon;
end;
Tenkan_Sen := DivideSeriesBy(AddSeries(HighSeries(High,Length9),LowSeries(Low,Length9)),2);
Kijun_Sen := DivideSeriesBy(AddSeries(HighSeries(High,Length26),LowSeries(Low,Length26)),2);
Chikou_Span := ShiftSeries(Close,-Chikou_Span_Length );
Senkou_Span_A := ShiftSeries(DivideSeriesBy(AddSeries(Tenkan_Sen,Kijun_Sen),2),Shift_Senkou_A);
Senkou_Span_B := ShiftSeries(DivideSeriesBy(AddSeries(HighSeries(High,Length52),LowSeries(Low,Length52)),2),Shift_Senkou_B);
Signals := CrossingsToEntrySignals(Crossings(Tenkan_Sen, Kijun_Sen));
with CreateLineOHLC(Senkou_Span_A, Senkou_Span_A, Senkou_Span_B, Senkou_Span_B) do
begin
Color := RGB(221,221,221);
Width := 1;
LineType := ltHighLow;
end;
with CreateLine(Senkou_Span_A) do
begin
Name :='Senkou_Span_A';
Color := RGB(221,221,221)
Width := 1;
end;
with CreateLine(Senkou_Span_B) do
begin
Name :='Senkou_Span_B';
Color := RGB(221,221,221)
Width := 1;
end;
with CreateLine(Tenkan_Sen ) do
begin
Name :='Tenkan_Sen';
Color := clRed;
Width := 2;
end;
with CreateLine(Kijun_Sen) do
begin
Name :='Kijun_Sen';
Color := clPurple;
Width := 2;
end;
with CreateLine(Chikou_Span) do
begin
Name :='Chikou_Span';
Color := clYellow;
Width := 2;
end;
END. |
Mvg,
Paul M |
|
| Naar boven |
|
 |
Janus
Geregistreerd op: 30-1-2008 Berichten: 301
|
Geplaatst: Vr Mrt 21, 2008 10:59 pm Onderwerp: |
|
|
Een kort verhaaltje wat ik vorig jaar Augustus schreef over de Ichimoku Kinko Hyo grafiek:
**
Dan liet ik afgelopen week de Ichimoku Kinko Hyo grafiek zien, in het kort cloud ofwel wolkgrafiek genoemd, waar ik nu even wat uitleg over geef.
Een mondvol voor een eenvoudige grafiek.
Waar komt die naam vandaan?
Ik zal even wat geschiedenis neerzetten en wat vertaling voor diegene waarvan het Japans wat is afgezwakt na het verlaten van de lagere school )
De grafiek is ontstaan nadat er methoden werden gezocht om beter te kunnen werken met de bekende Japanse candlestick grafieken.
De Japanse candlesticks zijn een bedenksel van Munehisa Homma die leefde van 1724 - 1803 en leefde in het vroegere Edo, het tegenwoordige Tokyo.
Hij ontwikkelde de vele bekende patronen waarbij veel patronen met als opmerkelijke factor het getal 3, en waarbij hij ook vaak militaire termen in de naam verwerkte.
Ik zal er even een paar noemen met hun originele naam en onze westerse benaming:
Sanzan - three mountains - drie berg toppen - drievoudige top
Sanpei - three soldiers - meestal drie witte stijgende candles
Sansen - three rivers - drie rivieren - drievoudige bodem
Sankoo - three spaces - drie gaps
Sanpo - three laws
En zoals we verder nog hebben, "three Buddha ( kop-schouder) / three crows ( drie kraaien, drie opvolgende lange dalende candles) / Three-methods ( (drie methoden ) enzovoorts.
Maar, diegene die zich iets verdiept hebben in candlesticks komt dat wel bekend voor.
In de loop van de jaren dertig, net voor het uitbreken van de tweede wereld oorlog begon Goichi Hosoda met het toevoegen van moving-averages aan de candlestick grafiek, onder het pseudoniem Ichimoku Sanjin.
Jaren later werd dit nog weer "verbeterd"door Hidenobu Sasaki die er de naam Ichimoku Kinko aan mee gaf.
Hyo is de benaming voor bar-chart, de Ichimoku Kinko grafiek kan namelijk ook prima als bar-chart worden weergegeven.
.
Hoe is nu zo'n grafiek opgebouwd?
In de candlestick grafiek wordt een negendaags gemiddelde geplaatst, de Tenkan-sen ofwel Conversion Line.
Verder wordt er nog een 26 daags gemiddelde geplaatst, de Kijun-sen ofwel Base Line.
Gemiddelden lijnen werken vaak als steun/weerstand in de koersgrafiek, en zo is er nog veel meer te doen rondom gemiddelden, zoals de koers gaat altijd terug naar zijn gemiddelde lijn, en bij toepassen van gemiddelden geeft een kruising vaak een bevestiging van een koop of verkoop signaal, en als trendindicator natuurlijk, allemaal mooi spul voor een stukje daarover, maar nu effe niet.
Eén ding wil ik nog wel even vertellen over gemiddelden omdat dit belangrijk is in verband met deze grafiek, gemiddelden zijn niet bruikbaar in grafieken met een zijwaarts koersverloop, daar hebben we immers oscillatoren voor.
Wie mijn eerdere stukjes daarover heeft gelezen zal gelijk opvallen dat de Ichimoku Kinko Hyo grafiek dus een trend volgende grafiek is !
De cloud is opgebouwd uit twee lijnen, de ene lijn genaamd: "Senkou Span A" en de tweede lijn genaamd "Senkou Span B"
De "Senkou Span A" lijn wordt verkregen door de waarden van de Tenkan (MA-9) en de waarden van de Kijun ( MA-26) op te tellen en te delen door 2 en vervolgens 26 dagen vooruit weer te geven in de grafiek.
De "Senkou Span B" lijn wordt verkregen door de hoogste koerswaarde van de laatste 52 dagen op te tellen bij de laagste koerswaarde van de laatste 52 dagen en te som te delen door 2; waarna deze ook 26 dagen vooruit wordt weergegeven in de grafiek.
De ruimte tussen deze twee lijnen wordt de wolk genoemd, the cloud.
Dan wordt er nog een lijn in de grafiek geplaatst, genaamd de "Chikou Span" ; waarbij Chikou staat voor "lagging" ofwel na-ijlend.
Deze Chikou Span is eenvoudigweg de slotkoers van vandaag 26 dagen terug geplaatst in de grafiek.
Hieronder ziet u deze grafiek voor de AEX.
Figuur 4:
Bij het bekijken van deze grafiek moet u als basis nemen dat de wolk voor steun en/of weerstand zal zorgen.
Op plaatsen waar de wolk dun is is de kans groot dat de koers er doorheen zal gaan omdat de steun/weerstand op dat moment klein is.
Een dikke wolk geeft dus meer kans op steun, iets wat u bijvoorbeeld ziet in begin Juni, de koers zakt daar tot aan de wolk maar vindt in de wolk voldoende steun en veert weer op. Half juli was de wolk dun, en toen de koers weer daalde naar de wolk kon deze er gemakkelijk doorheen omdat de steun van de wolk gering
was.
En toch, wanneer u iets terugkijkt in de grafiek naar bijvoorbeeld tweede helft Maart, dan ziet u dat de koers door een dik gedeelte van de wolk heen stijgt zonder de minste aarzeling.
De grafiek klopt dus net niet lekker, hoe komt dat ?
Wel, de verklaring is eenvoudig, figuur 4 is getekend op basis van de originele instellingen, maar destijds had men een werkweek van 6 dagen ( de bazen waren daar heel blij mee ) ; terwijl we tegenwoordig een werkweek hebben van 5 dagen, en de vermeldde waarden zijn afgestemd op de Japanse beurs.
De te gebruiken waarden moeten dan voor onze beurs iets worden bijgesteld, en de volgende grafiek ziet u dan ook weergegeven met de waarden 10 en 20 voor de gemiddelden.
Figuur 5:
We zien dat de grafiek en het verhaaltje nu veel beter kloppen.
Eind Februari is de wolk dun en daalt de koers er gemakkelijk doorheen.
In de tweede helft van Maart is de wolk dun en stijgt de koers er weer gemakkelijk doorheen, en nadat de koers er toen doorheen ging en weer iets daalde vond deze steun omdat de wolk toen alweer dikker geworden was.
Hetzelfde zien we begin Juni, de koers daalde maar de wolk was vrij dik en bood zodoende prima steun.
Eind Juli zien we weer een dalende koers op de plaats waar de wolk dun is, en de koers ging er dan ook rap doorheen omdat er geen steun was, de "Senkou Span A" en de "Senkou Span B" lagen op elkaar, de dikte van de wolk was nul.
Let ook even op de paarse naijlende lijn, de Chikou Span.
Ook voor deze lijn geldt de weerstand en/of steun van de wolk.
.
Verder geeft de plaats van de koers ten opzichte van de wolk aan de koers in een bull-markt zit ( koten) of in een bear-markt ( gyakuten) , immers zit de koers boven de wolk dan schijnt altijd de zon en onder wolk is het somber.
Verder mag duidelijk zijn dat wanneer de koers zich op grote afstand van de wolk bevindt deze geen waarde heeft op dat moment.
.....
Tot zover. _________________ Vriendelijke groet,
JanS 
Laatst aangepast door Janus op Ma Mrt 24, 2008 1:20 am, in totaal 1 keer bewerkt |
|
| Naar boven |
|
 |
Janus
Geregistreerd op: 30-1-2008 Berichten: 301
|
Geplaatst: Ma Mrt 24, 2008 1:11 am Onderwerp: |
|
|
Script van Paul iets bijgewerkt tbv. W$
De grafiek wordt dan als volgt:
Voor wie het script van Paul gebruikt, daarvoor zijn dan de instellingen 10,20,26,26,28,18
. _________________ Vriendelijke groet,
JanS  |
|
| Naar boven |
|
 |
PaulM
Geregistreerd op: 6-4-2006 Berichten: 366 Woonplaats: Enschede
|
Geplaatst: Ma Mrt 24, 2008 9:47 am Onderwerp: |
|
|
Jan,
Kun je ook laten zien hoe je het script hebt aangepast?
Mvg,
Paul M |
|
| Naar boven |
|
 |
Janus
Geregistreerd op: 30-1-2008 Berichten: 301
|
Geplaatst: Ma Mrt 24, 2008 9:37 pm Onderwerp: |
|
|
Paul,
Ik heb het script wat aangepast, zodat deze overweg kan met een gewijzigd koers bestand.
Voor fondsen waarvan ik graag iets getekend wil zien "in de toekomst", dus verder in de grafiek getekend dan de laatste koers, heb ik gewijzigde koers bestanden aangemaakt.
Wanneer je naar de naam van het fonds in de afgebeelde grafiek kijkt, dan zie je staan AEX50(I)
Aan dat file heb ik koersen toegevoegd voor de komende periodes.
De waarde is dusdanig dat ze buiten beeld vallen.
Indicatoren zoals bijvoorbeeld MA en RSI raken daarvan een beetje overstuur.
Vandaar dat je in de code een stukje terug vindt wat de indicatoren verteld hoever ze moeten gaan met calculeren.
Allemaal een beetje omslachtig, maar dat is gelegen in het feit dat W$ de indicatoren niet verder tekend dan de laatste koers in het bestand.
Het zou fijn zijn indien men daar een afdoende oplossing voor weet te vinden, omdat dit toch wel fijn is zoals bijv. in dit geval met de wolk.
Let op !
Onderstaande code per 03-04-2010 gewijzigd, er zat een 'vervelende' fout in !
| Code: |
{- Filename: Ichimoku Kinko Hyo -}
{ www.JSTAS>com}
{Versie 1.01}
var
TKS,Tenkan_sen, KJS,Kijun_sen, CKS,Chikou_Span : TSeries ;
Senkou_SPan_A, Senkou_Span_B ,Koers : TSeries ;
Base,Calc,Conv,i,Shift_Span_A,Shift_Span_B,Shift_Chikou : Integer ;
Vandaag : TDateTime;
Keuze1,Keuze2 : Boolean ;
Begin
With Indicator Do
Begin
Shortname := 'Ichimoku Kinko Hyo';
RequiredBars := 5 ;
Indicator.NewBand := False ;
Indicator.ScaleRange := SrCommon;
End;
Tenkan_sen := CreateSeries(Barcount);
Kijun_sen := CreateSeries(Barcount);
Chikou_Span := CreateSeries(Barcount);
Vandaag := Trunc(Now);
Conv := CreateParameterInteger('ConversionLine / Tenkan-sen', 4,15,9,True);
Base := CreateParameterInteger('BaseLine / Kijun-sen',15,49,26,True);
Shift_Chikou := CreateParameterInteger('Shift_Chikou_Span',15,49,26,True);
Shift_Span_A := CreateParameterInteger('Shift Span_A',10,40,26,True);
Shift_Span_B := CreateParameterInteger('Shift Span_B',10,40,26,True);
Keuze1 := CreateParameterBoolean('EMA ipv. Hi-Lo series',True,False);
Keuze2 := CreateParameterBoolean('Tenkan + Kijun ipv. Tenkan',False,False);
For i:=1 to Barcount-1 Do
Begin
Case DateTime[i] Of
Vandaag : Calc:=(Barcount-1)-i;
Vandaag-1 : Calc:=(Barcount-1)-i;
Vandaag-2 : Calc:=(Barcount-1)-i;
Vandaag-3 : Calc:=(Barcount-1)-i;
Vandaag-4 : Calc:=(Barcount-1)-i;
Vandaag-5 : Calc:=(Barcount-1)-i;
Vandaag-6 : Calc:=(Barcount-1)-i;
End;
End;
If Keuze1 Then
Begin
Koers:=DivideSeriesBy((AddSeries(high,Low)),2);
TKS :=MA(Koers,MAExponential,Conv);
KJS :=MA(Koers,MAExponential,Base);
End;
If Not Keuze1 then
Begin
TKS :=DivideSeriesBy(AddSeries(HighSeries(High,Conv),LowSeries(Low,Conv)),2);
KJS :=DivideSeriesBy(AddSeries(HighSeries(High,Base),LowSeries(Low,Base)),2);
End;
For i:=1 to BarCount-(Calc+1) Do
Begin
Tenkan_sen[i] :=TKS[i];
Kijun_sen [i] :=KJS[i];
End;
CKS :=ShiftSeries(Close,-Shift_Chikou);
for i:=1 to barcount-(Shift_Chikou+Calc+1) do
Begin
Chikou_Span[i]:=CKS[i]
End;
If Keuze2 Then
Begin
Senkou_Span_A:=ShiftSeries(DivideSeriesBy(AddSeries(Tenkan_sen,Kijun_sen),2),Shift_Span_A);
End;
If Not Keuze2 Then
Begin
Senkou_Span_A :=ShiftSeries(Tenkan_sen,Shift_Span_A);
End;
Senkou_Span_B:=ShiftSeries(DivideSeriesBy(AddSeries(HighSeries(High,52),LowSeries(Low,52)),2),Shift_Span_B);
With CreateLineOHLC(Senkou_Span_A,Senkou_Span_A,Senkou_Span_B,Senkou_Span_B) Do
Begin
Color := RGB(192,192,192) ;
LineType := ltHighLow ;
Name := 'Cloud' ;
Width := 3 ;
End;
With CreateLine(Tenkan_sen) Do
Begin
Color := ClRed ;
Name := 'Tenkan_sen' ;
Width := 2 ;
End;
With CreateLine(Kijun_sen )Do
Begin
Color := RGB(128,0,0) ;
Name := 'Kijun_sen' ;
Width := 2 ;
End;
With CreateLine(Chikou_Span)Do
Begin
Color := RGB(255,0,255) ;
Name := 'Chikou_Span' ;
Width := 1 ;
End;
With CreateLine (Senkou_Span_A) Do
Begin
Color := RGB(192,192,192) ;
Name := 'Senkou_SPan_A' ;
Width := 2 ;
End;
With CreateLine(Senkou_Span_B) Do
Begin
Color := RGB(192,192,192) ;
Name := 'Senkou_Span_B' ;
Width := 2 ;
End;
With CreateLineOHLC(Open,High,Low,Close) Do
Begin
Color := ClBlack ;
LineType := ltCandlestick ;
Name := 'Koers' ;
End;
End.
|
.
Voor de afgebeelde Ichimoku grafiek heb ik gebruik gemaakt van de instellingen 10,20,28,19 en zwarte candlesticks in de grafiek met een lichte achtergrond.
**
Van die extra koersen maak ik dan ook gebruik voor ander tekenwerk welke ta-script code in mijn grafiek zet, zoals onderstaand nog een klein voorbeeldje.
. _________________ Vriendelijke groet,
JanS 
Laatst aangepast door Janus op Ma Apr 05, 2010 11:02 pm, in totaal 2 keer bewerkt |
|
| Naar boven |
|
 |
|
|
Je mag geen nieuwe onderwerpen plaatsen Je mag geen reacties plaatsen Je mag je berichten niet bewerken Je mag je berichten niet verwijderen Ja mag niet stemmen in polls
|
Powered by phpBB © 2001, 2005 phpBB Group

|