TA-script.com forum index TA-script.com
Geavanceerde technische analyse - indicatoren en handelssystemen in TA-script

 FAQFAQ   ZoekenZoeken   GebruikerslijstGebruikerslijst   GebruikersgroepenGebruikersgroepen   RegistreerRegistreer 
 ProfielProfiel   Log in om je privé berichten te bekijkenLog in om je privé berichten te bekijken   InloggenInloggen 

Ichomoku Kinko Hyo Chart
Ga naar pagina 1, 2, 3, 4  Volgende
 
Plaats nieuw bericht   Plaats reactie    TA-script.com forum index -> Vraag en antwoord
Vorige onderwerp :: Volgende onderwerp  
Auteur Bericht
PaulM



Geregistreerd op: 6-4-2006
Berichten: 366
Woonplaats: Enschede

BerichtGeplaatst: Vr Jun 09, 2006 10:36 am    Onderwerp: Ichomoku Kinko Hyo Chart Reageer met quote

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
Bekijk gebruikers profiel Stuur privé bericht
Dave



Geregistreerd op: 1-10-2006
Berichten: 3

BerichtGeplaatst: Zo Okt 01, 2006 8:52 pm    Onderwerp: Ichimoku Reageer met quote

Deze grafiek is super voor mid- tot langere termijn trades. Op dag basis kan ik echter nog niet testen. Very Happy
Naar boven
Bekijk gebruikers profiel Stuur privé bericht
PaulM



Geregistreerd op: 6-4-2006
Berichten: 366
Woonplaats: Enschede

BerichtGeplaatst: Zo Okt 01, 2006 9:46 pm    Onderwerp: Reageer met quote

Ik had nog een artikel gevonden,misschien is dit interessant!

http://www.investopedia.com/articles/forex/06/ichimoku.asp

Mvg,

Paul M
Naar boven
Bekijk gebruikers profiel Stuur privé bericht
vobel



Geregistreerd op: 3-1-2007
Berichten: 1

BerichtGeplaatst: Wo Jan 03, 2007 1:14 am    Onderwerp: Re: Ichomoku Kinko Hyo Chart Reageer met quote

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
Bekijk gebruikers profiel Stuur privé bericht
Eric



Geregistreerd op: 10-9-2005
Berichten: 1412
Woonplaats: Den Haag

BerichtGeplaatst: Wo Jan 03, 2007 7:48 pm    Onderwerp: Re: Ichomoku Kinko Hyo Chart Reageer met quote

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
Bekijk gebruikers profiel Stuur privé bericht
Henry11



Geregistreerd op: 7-4-2007
Berichten: 65
Woonplaats: Provincie Utrecht

BerichtGeplaatst: Di Nov 06, 2007 12:34 am    Onderwerp: Reageer met quote

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
Bekijk gebruikers profiel Stuur privé bericht
Henry11



Geregistreerd op: 7-4-2007
Berichten: 65
Woonplaats: Provincie Utrecht

BerichtGeplaatst: Ma Feb 11, 2008 8:57 pm    Onderwerp: Reageer met quote

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
Bekijk gebruikers profiel Stuur privé bericht
Eric



Geregistreerd op: 10-9-2005
Berichten: 1412
Woonplaats: Den Haag

BerichtGeplaatst: Ma Feb 11, 2008 9:32 pm    Onderwerp: Reageer met quote

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
Bekijk gebruikers profiel Stuur privé bericht
Janus



Geregistreerd op: 30-1-2008
Berichten: 301

BerichtGeplaatst: Ma Feb 11, 2008 11:44 pm    Onderwerp: Reageer met quote

Voorbeeldje van de Chinko Cloud zoals ik hem gebruik:


_________________
Vriendelijke groet,
JanS Wink
Naar boven
Bekijk gebruikers profiel Stuur privé bericht Verstuur e-mail Bekijk de homepage
Henry11



Geregistreerd op: 7-4-2007
Berichten: 65
Woonplaats: Provincie Utrecht

BerichtGeplaatst: Vr Mrt 21, 2008 3:57 pm    Onderwerp: Reageer met quote

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
Bekijk gebruikers profiel Stuur privé bericht
PaulM



Geregistreerd op: 6-4-2006
Berichten: 366
Woonplaats: Enschede

BerichtGeplaatst: Vr Mrt 21, 2008 7:54 pm    Onderwerp: Reageer met quote

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
Bekijk gebruikers profiel Stuur privé bericht
Janus



Geregistreerd op: 30-1-2008
Berichten: 301

BerichtGeplaatst: Vr Mrt 21, 2008 10:59 pm    Onderwerp: Reageer met quote

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 Wink)
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 Wink) ; 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 Wink


Laatst aangepast door Janus op Ma Mrt 24, 2008 1:20 am, in totaal 1 keer bewerkt
Naar boven
Bekijk gebruikers profiel Stuur privé bericht Verstuur e-mail Bekijk de homepage
Janus



Geregistreerd op: 30-1-2008
Berichten: 301

BerichtGeplaatst: Ma Mrt 24, 2008 1:11 am    Onderwerp: Reageer met quote

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 Wink
Naar boven
Bekijk gebruikers profiel Stuur privé bericht Verstuur e-mail Bekijk de homepage
PaulM



Geregistreerd op: 6-4-2006
Berichten: 366
Woonplaats: Enschede

BerichtGeplaatst: Ma Mrt 24, 2008 9:47 am    Onderwerp: Reageer met quote

Jan,

Kun je ook laten zien hoe je het script hebt aangepast?

Mvg,

Paul M
Naar boven
Bekijk gebruikers profiel Stuur privé bericht
Janus



Geregistreerd op: 30-1-2008
Berichten: 301

BerichtGeplaatst: Ma Mrt 24, 2008 9:37 pm    Onderwerp: Reageer met quote

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 Wink


Laatst aangepast door Janus op Ma Apr 05, 2010 11:02 pm, in totaal 2 keer bewerkt
Naar boven
Bekijk gebruikers profiel Stuur privé bericht Verstuur e-mail Bekijk de homepage
Berichten van afgelopen:   
Plaats nieuw bericht   Plaats reactie    TA-script.com forum index -> Vraag en antwoord Tijden zijn in GMT + 1 uur
Ga naar pagina 1, 2, 3, 4  Volgende
Pagina 1 van 4

 
Ga naar:  
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