Volume indicatoren

Stel hier uw vragen over TA-script, of help anderen met het oplossen van hun probleem
Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » ma okt 20, 2014 1:02 am

Mijn poedel heeft tussen twee kluiven door even de VWAP omgeprogrammeerd voor gebruik met de AEX-Volume indicator.
Dus onderstaande indicator is alleen geschikt voor gebruik met de AEX-index, waarbij het volume wordt berekend vanuit de onderliggende fondsen.
Voor andere fondsen/indexen gebruikt u gewoon het eerder geplaatste script van de VWAP.
Bij -Wallstreet for Windows- is een en ander afhankelijk van uw koersdata historie, bij Alex e.a. werkt het alleen voor de afgelopen jaren ivm. afwezige data van onderliggende fondsen (Douwe Egberts).
.
Code voor de AEX index wat betreft de volume gewogen weerstand/steun lijnen volgens Dr. Levine of de algemene VWAP:

Code: Selecteer alles

{- Filename: Volume AEX  VWAP -}

//Versie 1.0 dd. 18-10-2014
//Berekent AEX volume via onderliggende fondsen en geeft VWAP weer

 Type
  Verzameling = Record
   sFondsId : array[0..24] of String;
   sIndexVol,sIndexVolE : TSeries;
  End;

Var
 Fdv : Verzameling;
//*************************************************************

Procedure Jaar2011_2();
Begin

{$IFDEF PLATFORM-WS}
  Fdv.sFondsId[0]  := 'AAEGON';       // Aegon
  Fdv.sFondsId[1]  := 'AAHOLD';       // Ahold
  Fdv.sFondsId[2]  := 'AAKZO';        // Akzo Nobel
  Fdv.sFondsId[3]  := 'AAPERAM';      // Aperam
  Fdv.sFondsId[4]  := 'AISPAT';       // Arcelor
  Fdv.sFondsId[5]  := 'AASM LITHO';   // ASML
  Fdv.sFondsId[6]  := 'AVIB';         // Corio
  Fdv.sFondsId[7]  := 'AAIR FRANCE';  // Air France
  Fdv.sFondsId[8]  := 'ABOSKALIS';    //Boskalis
  Fdv.sFondsId[9]  := 'ADSM';         // DSM
  Fdv.sFondsId[10] := 'AFUGRO';       // Fugro
  Fdv.sFondsId[11] := 'AHEINEKEN';    // Heineken
  Fdv.sFondsId[12] := 'AING';         // ING
  Fdv.sFondsId[13] := 'AKPN';         // KPN
  Fdv.sFondsId[14] := 'APHILIPS';     // Philips
  Fdv.sFondsId[15] := 'APOSTNL';      // Post NL
  Fdv.sFondsId[16] := 'ARANDSTAD';    // Randstad
  Fdv.sFondsId[17] := 'AELSEVIER';    // Reed Elsevier
  Fdv.sFondsId[18] := 'AKON.OLIE';    // Royal Dutch Shell
  Fdv.sFondsId[19] := 'AIHC-CAL';     // SBM
  Fdv.sFondsId[20] := 'ATOMTOM';      // TomTOm
  Fdv.sFondsId[21] := 'ATNT EXPRESS'; // TNT Express
  Fdv.sFondsId[22] := 'EUNIBAIL';     // Unibail
  Fdv.sFondsId[23] := 'AUNILEVER';    // Unilever
  Fdv.sFondsId[24] := 'AWOLT.KLUW';   // Wolters Kluwer
{$ENDIF}

End;
//*************************************************************

Procedure Jaar2012_3();
Begin

{$IFDEF PLATFORM-WS}
  Fdv.sFondsId[0]  := 'AAEGON';       // Aegon
  Fdv.sFondsId[1]  := 'AAHOLD';       // Ahold
  Fdv.sFondsId[2]  := 'AAKZO';        // Akzo Nobel
  Fdv.sFondsId[3]  := 'AAPERAM';      // Aperam
  Fdv.sFondsId[4]  := 'AISPAT';       // Arcelor
  Fdv.sFondsId[5]  := 'AASM LITHO';   // ASML
  Fdv.sFondsId[6]  := 'AVIB';         // Corio
  Fdv.sFondsId[7]  := 'AAIR FRANCE';  // Air France
  Fdv.sFondsId[8]  := 'ABOSKALIS';    //Boskalis
  Fdv.sFondsId[9]  := 'ADOUWE EGBERT';// DE Master Blenders
  Fdv.sFondsId[10] := 'ADSM';         // DSM
  Fdv.sFondsId[11] := 'AFUGRO';       // Fugro
  Fdv.sFondsId[12] := 'AHEINEKEN';    // Heineken
  Fdv.sFondsId[13] := 'AING';         // ING
  Fdv.sFondsId[14] := 'AKPN';         // KPN
  Fdv.sFondsId[15] := 'APHILIPS';     // Philips
  Fdv.sFondsId[16] := 'APOSTNL';      // Post NL
  Fdv.sFondsId[17] := 'ARANDSTAD';    // Randstad
  Fdv.sFondsId[18] := 'AELSEVIER';    // Reed Elsevier
  Fdv.sFondsId[19] := 'AKON.OLIE';    // Royal Dutch Shell
  Fdv.sFondsId[20] := 'AIHC-CAL';     // SBM
  Fdv.sFondsId[21] := 'ATNT EXPRESS'; // TNT Express
  Fdv.sFondsId[22] := 'EUNIBAIL';     // Unibail
  Fdv.sFondsId[23] := 'AUNILEVER';    // Unilever
  Fdv.sFondsId[24] := 'AWOLT.KLUW';   // Wolters Kluwer
{$ENDIF}

End;
//*************************************************************

Procedure Jaar2013_1();
Begin

{$IFDEF PLATFORM-WS}
  Fdv.sFondsId[0]  := 'AAEGON';       // Aegon
  Fdv.sFondsId[1]  := 'AAHOLD';       // Ahold
  Fdv.sFondsId[2]  := 'AAKZO';        // Akzo Nobel
  Fdv.sFondsId[3]  := 'AAPERAM';      // Aperam
  Fdv.sFondsId[4]  := 'AISPAT';       // Arcelor
  Fdv.sFondsId[5]  := 'AASM LITHO';   // ASML
  Fdv.sFondsId[6]  := 'AVIB';         // Corio
  Fdv.sFondsId[7]  := 'AAIR FRANCE';  // Air France
  Fdv.sFondsId[8]  := 'ADOUWE EGBERT';// DE Master Blenders
  Fdv.sFondsId[9]  := 'ADSM';         // DSM
  Fdv.sFondsId[10] := 'AFUGRO';       // Fugro
  Fdv.sFondsId[11] := 'AHEINEKEN';    // Heineken
  Fdv.sFondsId[12] := 'AING';         // ING
  Fdv.sFondsId[13] := 'AIMTECH';      // Imtech
  Fdv.sFondsId[14] := 'AKPN';         // KPN
  Fdv.sFondsId[15] := 'APHILIPS';     // Philips
  Fdv.sFondsId[16] := 'APOSTNL';      // Post NL
  Fdv.sFondsId[17] := 'ARANDSTAD';    // Randstad
  Fdv.sFondsId[18] := 'AELSEVIER';    // Reed Elsevier
  Fdv.sFondsId[19] := 'AKON.OLIE';    // Royal Dutch Shell
  Fdv.sFondsId[20] := 'AIHC-CAL';     // SBM
  Fdv.sFondsId[21] := 'ATNT EXPRESS'; // TNT EXPRESS
  Fdv.sFondsId[22] := 'EUNIBAIL';     // Unibail
  Fdv.sFondsId[23] := 'AUNILEVER';    // Unilever
  Fdv.sFondsId[24] := 'AWOLT.KLUW';   // Wolters Kluwer
{$ENDIF}

End;
//*************************************************************

Procedure Jaar2013_2();
Begin

{$IFDEF PLATFORM-WS}
  Fdv.sFondsId[0]  := 'AAEGON';       // Aegon
  Fdv.sFondsId[1]  := 'AAHOLD';       // Ahold
  Fdv.sFondsId[2]  := 'AAKZO';        // Akzo Nobel
  Fdv.sFondsId[3]  := 'AISPAT';       // Arcelor
  Fdv.sFondsId[4]  := 'AASM LITHO';   // ASML
  Fdv.sFondsId[5]  := 'AVIB';         // Corio
  Fdv.sFondsId[6]  := 'AAIR FRANCE';  // Air France
  Fdv.sFondsId[7]  := 'ADOUWE EGBERT';// DE Master Blenders
  Fdv.sFondsId[8]  := 'ADSM';         // DSM
  Fdv.sFondsId[9]  := 'AFUGRO';       // Fugro
  Fdv.sFondsId[10] := 'UGEMALTO';     // Gemalto
  Fdv.sFondsId[11] := 'AHEINEKEN';    // Heineken
  Fdv.sFondsId[12] := 'AING';         // ING
  Fdv.sFondsId[13] := 'AIMTECH';      // Imtech
  Fdv.sFondsId[14] := 'AKPN';         // KPN
  Fdv.sFondsId[15] := 'APHILIPS';     // Philips
  Fdv.sFondsId[16] := 'APOSTNL';      // Post NL
  Fdv.sFondsId[17] := 'ARANDSTAD';    // Randstad
  Fdv.sFondsId[18] := 'AELSEVIER';    // Reed Elsevier
  Fdv.sFondsId[19] := 'AKON.OLIE';    // Royal Dutch Shell
  Fdv.sFondsId[20] := 'AIHC-CAL';     // SBM
  Fdv.sFondsId[21] := 'ATNT EXPRESS'; // TNT Express
  Fdv.sFondsId[22] := 'EUNIBAIL';     // Unibail
  Fdv.sFondsId[23] := 'AUNILEVER';    // Unilever
  Fdv.sFondsId[24] := 'AWOLT.KLUW';   // Wolters Kluwer
{$ENDIF}

End;
//*************************************************************

Procedure Jaar2013_3();
Begin
  Fdv.sFondsId[0]  := '28825';   // Aegon
  Fdv.sFondsId[1]  := '1246537'; // Ahold
  Fdv.sFondsId[2]  := '136';     // Akzo Nobel
  Fdv.sFondsId[3]  := '59';      // Arcelor
  Fdv.sFondsId[4]  := '723288';  // ASML
  Fdv.sFondsId[5]  := '2846';    // Corio
  Fdv.sFondsId[6]  := '109448';  // Air France
  Fdv.sFondsId[7]  := '182176';  // DSM
  Fdv.sFondsId[8]  := '178223';  // Fugro
  Fdv.sFondsId[9]  := '179762';  // Gemalto
  Fdv.sFondsId[10] := '107395';  // Heineken
  Fdv.sFondsId[11] := '110220';  // ING
  Fdv.sFondsId[12] := '233829';  // Imtech
  Fdv.sFondsId[13] := '107740';  // KPN
  Fdv.sFondsId[14] := '31747';   // Philips
  Fdv.sFondsId[15] := '420215';  // Post NL
  Fdv.sFondsId[16] := '166';     // Randstad
  Fdv.sFondsId[17] := '242786';  // Reed Elsevier
  Fdv.sFondsId[18] := '180134';  // Royal Dutch Shell
  Fdv.sFondsId[19] := '196913';  // SBM
  Fdv.sFondsId[20] := '420213';  // TNT Express
  Fdv.sFondsId[21] := '39258';   // Unibail
  Fdv.sFondsId[22] := '205556';  // Unilever
  Fdv.sFondsId[23] := '11147';   // Wolters Kluwer
  Fdv.SFondsId[24] := '549256';  // Ziggo
  
{$IFDEF PLATFORM-WS}
  Fdv.sFondsId[0]  := 'AAEGON';       // Aegon
  Fdv.sFondsId[1]  := 'AAHOLD';       // Ahold
  Fdv.sFondsId[2]  := 'AAKZO';        // Akzo Nobel
  Fdv.sFondsId[3]  := 'AISPAT';       // Arcelor
  Fdv.sFondsId[4]  := 'AASM LITHO';   // ASML
  Fdv.sFondsId[5]  := 'AVIB';         // Corio
  Fdv.sFondsId[6]  := 'AAIR FRANCE';  // Air France
  Fdv.sFondsId[7]  := 'ADSM';         // DSM
  Fdv.sFondsId[8]  := 'AFUGRO';       // Fugro
  Fdv.sFondsId[9]  := 'UGEMALTO';     // Gemalto
  Fdv.sFondsId[10] := 'AHEINEKEN';    // Heineken
  Fdv.sFondsId[11] := 'AING';         // ING
  Fdv.sFondsId[12] := 'AIMTECH';      // Imtech
  Fdv.sFondsId[13] := 'AKPN';         // KPN
  Fdv.sFondsId[14] := 'APHILIPS';     // Philips
  Fdv.sFondsId[15] := 'APOSTNL';      // Post NL
  Fdv.sFondsId[16] := 'ARANDSTAD';    // Randstad
  Fdv.sFondsId[17] := 'AELSEVIER';    // Reed Elsevier
  Fdv.sFondsId[18] := 'AKON.OLIE';    // Royal Dutch Shell
  Fdv.sFondsId[19] := 'AIHC-CAL';     // SBM
  Fdv.sFondsId[20] := 'ATNT EXPRESS'; // TNT Express
  Fdv.sFondsId[21] := 'EUNIBAIL';     // Unibail
  Fdv.sFondsId[22] := 'AUNILEVER';    // Unilever
  Fdv.sFondsId[23] := 'AWOLT.KLUW';   // Wolters Kluwer
  Fdv.SFondsId[24] := 'AZIGGO';       // Ziggo
{$ENDIF}

End;
//*************************************************************

Procedure Jaar2014();
 Begin
  Fdv.sFondsId[0]  := '28825';   // Aegon
  Fdv.sFondsId[1]  := '1246537'; // Ahold
  Fdv.sFondsId[2]  := '136';     // Akzo Nobel
  Fdv.sFondsId[3]  := '59';      // Arcelor
  Fdv.sFondsId[4]  := '723288';  // ASML
  Fdv.sFondsId[5]  := '220883';  // Boskalis
  Fdv.sFondsId[6]  := '2846';    // Corio
  Fdv.sFondsId[7]  := '320393';  // Delta Lloyd
  Fdv.sFondsId[8]  := '182176';  // DSM
  Fdv.sFondsId[9]  := '178223';  // Fugro
  Fdv.sFondsId[10] := '179762';  // Gemalto
  Fdv.sFondsId[11] := '107395';  // Heineken
  Fdv.sFondsId[12] := '110220';  // ING
  Fdv.sFondsId[13] := '107740';  // KPN
  Fdv.sFondsId[14] := '951371';  // OCI
  Fdv.sFondsId[15] := '31747';   // Philips
  Fdv.sFondsId[16] := '166';     // Randstad
  Fdv.sFondsId[17] := '242786';  // Reed Elsevier
  Fdv.sFondsId[18] := '180134';  // Royal Dutch Shell
  Fdv.sFondsId[19] := '196913';  // SBM
  Fdv.sFondsId[20] := '420213';  // TNT Express
  Fdv.sFondsId[21] := '39258';   // Unibail
  Fdv.sFondsId[22] := '205556';  // Unilever
  Fdv.sFondsId[23] := '11147';   // Wolters Kluwer
  Fdv.SFondsId[24] := '549256';  // Ziggo  
  
{$IFDEF PLATFORM-WS}
  Fdv.sFondsId[0]  := 'AAEGON';       // Aegon
  Fdv.sFondsId[1]  := 'AAHOLD';       // Ahold
  Fdv.sFondsId[2]  := 'AAKZO';        // Akzo Nobel
  Fdv.sFondsId[3]  := 'AISPAT';       // Arcelor
  Fdv.sFondsId[4]  := 'AASM LITHO';   // ASML
  Fdv.sFondsId[5]  := 'ABOSKALIS';    // Boskalis
  Fdv.sFondsId[6]  := 'AVIB';         // Corio
  Fdv.sFondsId[7]  := 'ADELTA LLOYD'; // Delta Lloyd
  Fdv.sFondsId[8]  := 'ADSM';         // DSM
  Fdv.sFondsId[9]  := 'AFUGRO';       // Fugro
  Fdv.sFondsId[10] := 'UGEMALTO';     // Gemalto
  Fdv.sFondsId[11] := 'AHEINEKEN';    // Heineken
  Fdv.sFondsId[12] := 'AING';         // ING
  Fdv.sFondsId[13] := 'AKPN';         // KPN
  Fdv.sFondsId[14] := 'AOCI';         // OCI
  Fdv.sFondsId[15] := 'APHILIPS';     // Philips
  Fdv.sFondsId[16] := 'ARANDSTAD';    // Randstad
  Fdv.sFondsId[17] := 'AELSEVIER';    // Reed Elsevier
  Fdv.sFondsId[18] := 'AKON.OLIE';    // Royal Dutch Shell
  Fdv.sFondsId[19] := 'AIHC-CAL';     // SBM
  Fdv.sFondsId[20] := 'ATNT EXPRESS'; // TNT Express
  Fdv.sFondsId[21] := 'EUNIBAIL';     // Unibail
  Fdv.sFondsId[22] := 'AUNILEVER';    // Unilever
  Fdv.sFondsId[23] := 'AWOLT.KLUW';   // Wolters Kluwer
  Fdv.SFondsId[24] := 'AZIGGO';       // Ziggo
{$ENDIF}

End;
//*************************************************************

Procedure JaarVolume(k:integer);
Var
j      : Integer;
sFonds : array[0..24] of TSeriesEx;

Begin
If (BarCount >0)  Then
 Begin
   For j:=0 to k Do
    Begin
     sFonds[j] := ReadPrices(Fdv.sFondsId[j], BarInterval, DateTime[0], Now, 0);
     sFonds[j] := SyncSeriesEx(sFonds[j], smInsDuplicate);
     If j=0 Then
      Fdv.sIndexVol := CopySeries(sFonds[j].Volume)
     Else
      Fdv.sIndexVol := AddSeries(Fdv.sIndexVol,sFonds[j].Volume);
     End;
    End;
 End;
//*************************************************************

Procedure EindIndex(Dtbeg,DtEnd:TDateTime);
Var
i : Integer;
Begin
For i := 0 To BarCount-1 Do
 Begin
  If (DateTime[i]>DtBeg) And (DateTime[i]<DtEnd) Then
   Begin
    Fdv.sIndexVolE[i] := Fdv.sIndexVol[i];
   End;
 End;
End;
//*************************************************************

Procedure Vul_FdvsIndexVolE();
Begin

Fdv.sIndexVolE := CreateSeries(BarCount);

{$IFDEF PLATFORM-WS}
 Jaar2011_2();
 JaarVolume(24);
 EindIndex(EncodeDate(2011,06,19),EncodeDate(2013,09,22));

 Jaar2012_3();
 JaarVolume(24);
 EindIndex(EncodeDate(2012,09,23),EncodeDate(2013,03,16));

 Jaar2013_1();
 JaarVolume(24);
 EindIndex(EncodeDate(2013,03,17),EncodeDate(2013,06,22));

 Jaar2013_2();
 JaarVolume(24)
 EindIndex(EncodeDate(2013,06,23),EncodeDate(2013,09,21));
{$ENDIF}

Jaar2013_3();
JaarVolume(24);
EindIndex(EncodeDate(2013,09,22),EncodeDate(2014,03,22));

Jaar2014();
JaarVolume(24);
EindIndex(EncodeDate(2014,03,23),EncodeDate(2015,03,21));

End;
//*************************************************************

Function IffLogic(Test,TValue,FValue:Boolean):Boolean;
    Begin
      If Test Then
          Result                              := TValue
      Else
          Result                              := FValue;
    end;
//*************************************************************

Procedure Meldtekst
          (datum:TDateTime;plaats:Real;Tekst:String;Kleur:TColor;Size:Integer);
    Begin
      With CreateText(datum,plaats,Tekst) Do
        Begin
          Color     := Kleur;
          Font.Size := Size ;
        End;
    End;
//*************************************************************

Procedure VWAP();

 var
    a,i,TopBod,Chck1,Chck2,Meth                  : Integer  ;
    Lijnlngt,Lijnlngt2,L1,L2,L3,L4               : Integer  ;
    RS1, AvP, RSb                                : TSeries  ;
    DatBeg, TimeBeg,RefDat,RefTim,Dt,Dt2         : TDateTime;
    Vs, Ps, H1,h2,H3,Cv1,CvP1,RefWrde,GFact      : Real     ;
    TextAan, GreedCh, RefWrgv, ChWrgv            : Boolean  ;
    T1,Methode,LynLngt,KanLngt                   : String   ;
    KlrTxt                                       : TColor   ;

 Begin
    Indicator.NewBand    := False;
    Indicator.ScaleRange := SrCommon;
    Indicator.Shortname  := 'AEX Volume VG-SW';
    Methode := 'Dr. P. Levine  MIDAS'#9
               'Anchored  VWAP';
    LynLngt := 'Naar einde grafiek'#9
               'Zelf lengte opgeven';
    KanLngt := 'Gelijke lengte'#9
               'Zelf opgeven'   ;

    RS1      := CreateSeries(Barcount);
    RSb      := CreateSeries(BarCount);
    Meth     := CreateParameterSelect('Methode:',Methode,0,False);
    DatBeg   := CreateParameterDate('Startdatum', EncodeDate(2012,6,4));
    TimeBeg  := CreateParameterTime('Start-tijd',EncodeTime(14,59,0,0))
    TopBod   := CreateParameterSelect ('Welke Startkoers?','Van de High'
                              #9'Van de Low'#9'De Openingskoers'#9
                              'De Slotkoers'#9'De Gemiddeldel prijs',4,False);
    TextAan  := CreateParameterBoolean('Waarde weergave in grafiek',True,False);
    GreedCh  := CreateParameterBoolean( 'G-kanaal aan ?',False,False);

    RefDat   := CreateParameterDate('Startdatum G-kan', EncodeDate(2011,9,16));
    RefTim   := CreateParameterTime('Starttijd G-kan.', EncodeTime(15,59,0,0));
    ChWrgv   := CreateParameterBoolean('Kanaalwaarde weergeven ?',True,False);
    Refwrgv  := CreateparameterBoolean('Referentiepunt weergeven?',True,False);
    KlrTxt   := CreateParameterColor('Kleur van tekst',ClBlue);

Lijnlngt := CreateParameterSelect('Lengte van de lijnen: ',LynLngt,0,False);
L1       := CreateParameterInteger('Geef lengte in koersbars',5,10000,30,False);
Lijnlngt2:= CreateParameterSelect('Lengte kanaallijn:',KanLngt,0,False);
L3       := CreateParameterInteger('Geef lengte in koersbars',5,10000,30,False);

    Indicator.RequiredBars := Round(Date-RefDat);
    Indicator.ScaleRange := SrCommon;
    Chck1 :=0;
    Chck2 :=0;
    Cv1   :=0;
    CvP1  :=0;

    Case TopBod of
      0: Avp:=H;
      1: AvP:=L;
      2: Avp:=O;
      3: Avp:=C;
      4: Avp:=DivideSeriesBy((AddSeries(H,L)),2);
    End;

For i:= FirstValidIndex(Avp) To BarCount-1 Do
  Begin
    If ((DatBeg = Trunc(DateTime[i])) and
     (IffLogic(BarInterval<1,CmpFloat(Frac(DateTime[i]),TimeBeg,4)=0,true)))Then
          Begin
             Vs := Fdv.sIndexVolE[i];
             If Fdv.sIndexVolE[i]=0 Then Vs:=1;
             a  :=i;
             Chck1 :=1;
             Ps := Avp[i];
           End;
        H3 := 0.97*Close[BarCount-1];
       End;

    If Lijnlngt=0 Then L2:=1;
    If Lijnlngt=1 Then L2:= BarCount-a-L1;
    If L2<1 Then L2:=1;
    If Lijnlngt2=0 Then L4:=1;
    If Lijnlngt2=1 Then L4:=BarCount-a-L3;
    If L4<1  Then L4:=1;
    If L4<L2 Then L4:=L2;

    If Chck1=1 Then
    Begin
      For i:= a to BarCount-L2 Do
       Begin
         H1 := Fdv.sIndexVolE[i];
         If Fdv.sIndexVolE[i]=0 Then H1 := Fdv.sIndexVolE[i-1];
         If H1=0   Then H1 := 1;
         If (i=a) Then RS1[i] := AvP[i];
         If Meth=1 Then Vs:=0;
         If (i>a) Then RS1[i] := (((CvP1 + AvP[i]*H1)-(Vs*Ps))/((Cv1+ H1)-Vs));
         Cv1 :=  Cv1+ H1;
         CvP1:=  CvP1 + AvP[i]*H1 ;
         If (i=BarCount-L2) Then Dt :=Trunc(DateTime[i]);
         If (i=Barcount-L2) And TextAan Then Meldtekst(Dt,RS1[i],
              FormatFloat('0.0',(Round(((RS1[i])*10)))/10),KlrTxt,10);
       End;
    End ;

    If (GreedCh) Then
      Begin
          For i:=0 To BarCount-1 Do
          Begin
          If ((RefDat = Trunc(DateTime[i]))  And
          (IffLogic(BarInterval<1,CmpFloat(Frac(DateTime[i]),RefTim,4)=0,true)))
            Then
              Begin
                Case TopBod of
                  0:  RefWrde :=L[i];
                  1:  RefWrde :=H[i];
                  2:  RefWrde :=C[i];
                  3:  RefWrde :=O[i];
                  4:  RefWrde :=(H[i]+L[i])/2;
              End;
           Chck2 :=1;
           If (RefWrde<Ps) Then h2:=L[i];
           If (RefWrde>Ps) Then h2:=H[i]*1.01;
           If RefWrgv Then Meldtekst(refdat,h2,'R',KlrTxt,10);
         End;
       End;

      If (Chck1=1) And (Chck2=1) Then
        Begin
          For i:=0 to BarCount-L4 Do
            Begin
              If (i>=a) Then
                Begin
                  If (RefWrde>Ps) Then GFact:=(RefWrde-Ps)/RefWrde;
                  If (RefWrde<Ps) Then GFact:=(Ps-RefWrde)/RefWrde;
                  If (RefWrde>Ps) Then RSb[i]:=  RS1[i]/(1-GFact);
                  If (RefWrde<Ps) Then RSb[i]:=  RS1[i]/(1+GFact);
                  T1 := FormatFloat('0.0',(Round(((RSb[i])*10)))/10);
                  If (i=BarCount-L4) Then Dt2 :=Trunc(DateTime[i]);
                  If (i=BarCount-L4) And (Chck1=1) And TextAan And ChWrgv
                      Then Meldtekst (Dt2,RSb[i],'Ch '+T1,KlrTxt,10);
                End;
            End;
        End;
      End;

    With CreateLine(RS1)Do
      Begin
       color:= ClAqua;
      End;

    With CreateLine(RSb) Do
      Begin
        Color:=ClAqua;
      End;

If Chck1=0 Then Meldtekst(Now-7,H3,'Startdatum Fout !',ClRed,15);
If(Chck2=0)And(GreedCh)Then Meldtekst(Now-7,(0.99*H3),'Ref.datum Fout !',
                                                                      ClRed,15);

  // {$IFDEF SCRIPTVERSION-4}
      {With CreateText(0,0,'www.JSTAS.com * Volume gewogen weerstandlijnen*') Do
        Begin
          Y1Pct := 95;
          X1Pct :=  1;

          Color:=KlrTxt;
          Font.Size:=9;
        End;       }
   // {$ENDIF}

End;
//*************************************************************

Begin
  Vul_FdvsIndexVolE();
  VWAP();
End.
    
U ziet, een goeie 500 regels code plaats iets moois op uw scherm, hoe doet zo'n Poedel dat ? :)
Grafiekje d'rbij :)

Afbeelding
.
M'n hond heeft nog veel meer in zijn mand liggen, het komt er komende maanden allemaal uit ...
Geduld ..
Let u ook even op het verloop van het volume onderin het plaatje, vooral 1-e kwartaal 2014.
Wanneer dat bij u afwijkt, controleer dan even de data van Imtech, dat bleek bij mij een regelrechte ruïne.
Ik handel zelf niet op het fonds Imtech, dus ik kreeg die puinhoop pas door toen ik het volume samenstelde vanuit de onderliggende fondsen.
Ik krijg vanuit mijn koers-leverancier dus puinhoop aangeleverd voor Imtech en ook voor Goud.
Voor Goud wist ik dat al, en corrigeerde ik dat al voor Wallstreet for Windows, maar nu blijkt dit dus ook het geval voor Imtech, en wie weet wat meer.
Iets om even in te duiken de komende tijd, je betaald tenslotte niet om afgescheept te worden met verkeerde informatie, toch?
Let daar dus even op.
.
Vriendelijke groet,
JanS ;)

John
Berichten: 60
Lid geworden op: vr nov 11, 2011 3:26 pm

Re: Volume indicatoren

Bericht door John » ma okt 20, 2014 8:10 am

Beste Jan,

goede morgen. Wederom respect voor het schrijven van deze code.
Ik heb hem net geladen in ProTrader, echter bij mij komt de lijn niet naar voren.
Kan het zijn dat voor dit systeem nog iets dient te worden aangepast?
mvg
John

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » ma okt 20, 2014 11:19 pm

John,

In Pro Trader (en Alex) kan het script het volume niet verder terug inlezen dan de datum 23-09-2013 vanwege de afwezigheid van Douwe Egberts in het koers bestand.
Het script heeft de onderliggende fondsen van de index nodig om het volume te kunnen berekenen
WallStreet for Windows kan dit wel, omdat je bij dit programma de koersen lokaal op je harddisk hebt staan.
.
Wanneer je als startdatum een datum kiest na 23-09-2013 moet de lijn wel te voorschijn komen, wanneer dit niet zo is gaat er wat anders mis, laat dat dan even weten.
.
Ik heb waarschijnlijk een idee over hoe dit aan te pakken, maar ga eerst even een paar nachtjes slapen over hoe dat uit te voeren.
.
Vriendelijke groet,
JanS ;)

John
Berichten: 60
Lid geworden op: vr nov 11, 2011 3:26 pm

Re: Volume indicatoren

Bericht door John » di okt 21, 2014 9:13 am

Jan,
inderdaad dan komt de lijn wel naar voren, als ik bv de bodem pak van 9/10/13
de lijn loopt dan wel een stuk hoger als in jou plaatjes, en zou de huidige beweging
omhoog als een terug test van de doorbraak gezien kunnen worden worden..
mvg
John

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » zo nov 02, 2014 11:10 pm

In de koersgrafiek hebben we in principe slechts de beschikking over twee gegevens, dat is de prijs en het volume.
Het is net als iemand die kijkt met twee ogen, je ziet dan diepte.
Dek je één oog af, dan mis je diepte.
Haal je de volume gegevens uit de grafiek, dan mis je veel informatie.
Bij de koersgegevens van de AEX missen we helaas de volume gegevens, en dus mis je informatie (informatie die ik de komende tijd wil gaan uitleggen in dit topic) die voorloopt op de prijs.
Ik heb om dit te proberen op te lossen twee indicatoren geschreven, die zowel voor 'Wallstreet-for-Windows' als voor ALEX (en andere platforms die ta-script gebruiken) beide ruim veertien jaar dag-volume-gegevens in de grafiek weergeven.
De volume gegevens t/m Donderdag 30-10-2014 haalt de indicator uit een in het script aanwezig array, de gegevens na die datum worden door de indicator berekend.
Zodra de samenstelling van de AEX wijzigt moet het script even worden aangepast, waarbij dan tevens even het array kan worden aangepast zodat er zo min mogelijk berekent hoeft te worden ivm. de reactie tijd van de indicator.
Genoeg gekletst, even een paar grafieken en daarna de indicatoren.
.
Grafiek in ALEX van de AEX index met daaronder het volume over de afgelopen veertien jaar.
Dit is gedaan met behulp van de indicator --> Volume AEX2
Grafiek 1:
Afbeelding

Een inzoom van deze grafiek.
Grafiek 2:
Afbeelding

Ook kunt u met deze indicator natuurlijk de Wcumveloc weergeven.
Grafiek 3:
Afbeelding

Omdat er nu ook volume historie beschikbaar is in ALEX en andere platforms die met ta-script werken kunt u ook onderzoek doen naar het gedrag van de wcumveloc in de afgelopen veertien jaar.
**
*
De tweede indicator, Volume AEX2 VWAP, plaatst de bekende volume gewogen steun-weerstand-lijnen in uw grafiek volgens de methode van Midas of VWAP.
Door de koers historie wat betreft het volume kunt u nu ook onderzoek doen naar voorgaande jaren.
Grafiek 4:
Afbeelding
.
Het betreft beide versies 1.00 van de indicatoren, problemen alstublieft melden, ik heb nog geen tijd gehad ze uitgebreid te testen.
.
Om nog langere tijd terug (van voor 1999) volume gegevens te verkrijgen van de AEX kunt u me een plezier doen door data van Polygram aan mij toe te sturen dan wel te vermelden waar ik die kan vinden; de data is helaas niet in mijn koershistorie aanwezig (Polygram is na de verkoop door Philips des tijds van de beurs verdwenen)..

De ta-script code probeer ik in de volgende reactie te plaatsen, het bericht wordt anders te lang, ik kreeg een fout-bericht.
.

.
Laatst gewijzigd door Janus op ma nov 03, 2014 1:58 am, 2 keer totaal gewijzigd.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » zo nov 02, 2014 11:24 pm

Oké ruim 4300 programma regels per programma zijn er kennelijk teveel om te plaatsen ( 146.621 tekens , max = 60.000 tekens).

Ik heb daarom de ta-script code voor de twee programma's even op mijn site geplaatst.

U kunt eenvoudig op onderstaande links klikken waarna u deze opent met kladblok, daarna alles selecteren en kopiëren en daarna in de ta-script-builder plakken.
Bij problemen daarmee, dat even melden.

Code voor Volume AEX2 te bereiken via:
http://www.jstas.com/Volume%20AEX2.tas

Code voor Volume AEX2 VWAP te bereiken via:
http://www.jstas.com/Volume%20AEX2%20VWAP.tas
.
Laatst gewijzigd door Janus op ma nov 10, 2014 12:33 am, 1 keer totaal gewijzigd.
Vriendelijke groet,
JanS ;)

John
Berichten: 60
Lid geworden op: vr nov 11, 2011 3:26 pm

Re: Volume indicatoren

Bericht door John » wo nov 05, 2014 12:14 am

Beste Jan,

wat een tekens... :-)) volgens mij werkt het goed....

hartelijk dank voor het posten en ik kijk uit naar je verdere info over het volume

mvg
John

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » wo nov 05, 2014 1:28 am

Bedankt voor je reactie John ;)
't valt allemaal wel mee, ik heb eerst een ta-script geschreven wat de volumes terug tot 1999 uit rekent (in Wallstreet for Windows) en daarna er een stukje in geschreven wat een Excel file aanmaakt met daarin de volume gegevens die ik nodig heb met de bijbehorende datum.
Die opgepakt met Kladblok, en via de optie 'vervangen' een en ander aangepast, waarna ik die gegevens als een
array in ta-scipt heb geplakt.
Daarna een stukje ta-script geschreven wat die array inleest in een serie, en daarna een stukje geschreven wat de laatste koersen berekent die nog niet in de array aanwezig waren.
De koersen zijn daarna beschikbaar in de Tserie: vl.VolumeSerie
Helaas kan ik niet verder terug dan 1999, omdat Polygram in mijn historie ontbreekt, en kennelijk niemand dat meer ter beschikking heeft (of wil delen).
Hiermee kan ik dan de nog komende volume indicatoren schrijven.
Volume werkt soms beter voor individuele fondsen dan voor de index, maar omdat ik alleen wil publiceren voor de index, en niet voor de diverse fondsen, deze omweg ;)
.
't zal allemaal wellicht eenvoudiger kunnen, maar je weet: .. ik kan niet programmeren ... en wanneer een ander het dan niet oppakt ... beunhaas ik maar wat ..;)
Met wellicht wat geduld.... volgt de rest.
.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » ma nov 10, 2014 12:14 am

Volume
09-11-2014
Inleiding:
We kennen allemaal de gewone prijs grafieken waarin de koers van een fonds of index of wat dan ook wordt weergegeven.
En heel af en toe zie je ook een grafiek met daaronder het volume weergegeven.
Het volume betreft het aantal verhandelde aandelen in een fonds of het aantal verhandelde contracten in een Future, etc.
In principe verstrekken de grafieken ons twee basis componenten, de prijs en het volume.
Volume is dus de helft van de informatie die we dagelijks krijgen op dit gebied.
Toch wordt het volume vaak vergeten en wordt alleen gekeken naar patronen in de prijsgrafiek met de hoop daarmee een blik te kunnen werpen op de toekomst.
Want dat laatste is vaak wat we graag willen, -een verwachting maken over de weg die de koersgrafiek gaat volgen-.
En dan blijkt dat bijvoorbeeld in het volume patroon vaak al wordt aangegeven welke kant de koersuitbraak is vanuit bijvoorbeeld een consolidatiepatroon (zijwaarts koerspatroon).
In de volume grafiek wordt heel veel informatie weergeven die niet direct in de prijs grafiek zichtbaar is.
Nu heb ik daarvoor heel mooie indicatoren in mijn toolbox zitten, maar het is net als met elk stuk gereedschap: je kan zo’n tool op de goede en op de verkeerde manier gebruiken.
Ik had u laatst al de Wcumveloc indicator gegeven, maar voordat ik de andere indicatoren hier ga plaatsen leek het me een goed idee om gewoon eens wat te schrijven over het gebruik van de volumegrafiek in het algemeen.
Na het lezen hiervan zal u zien dat die indicatoren bepaalde situaties aanduiden waarmee je gericht een verwachting kan maken over de richting van de prijs grafiek.
**
*
Laten we beginnen:
Volume kan op diverse manieren worden weergegeven in een grafiek maar ik geef de voorkeur aan een weergave van Volume door middel van staafjes, hoe groter het volume, hoe langer het staafje.
Grafiek 1:
Afbeelding

In grafiek 1 ziet u de AEX index weergegeven met in het bovenste venster de prijsweergave en in het onderste venster het Volume door middel van koersbars (staafjes).
De schaalwaarde staat rechts weergegeven in miljoenen.
Hoe langer het staafje, des te meer volume. U ziet ook een blauwe lijn weergegeven in deze volume grafiek, dat is een gemiddelde lijn die we later zullen gaan gebruiken als een soort van graadmeter om aan te geven of het volume lager of hoger is dan het gemiddelde.
Vaak wordt volume nog een naam gegeven, en het volume in grafiek 1 wordt index-volume genoemd. Meestal krijgt het volume de naam van de onderliggende waarde waar de grafiek betrekking op heeft.
*
We gaan nu eerst even wat relaties bekijken tussen koersgrafiek en volumegrafiek waarna we de relaties gaan bekijken tussen patronen in de koersgrafiek en volume grafiek.
.
Koersgrafiek en volumegrafiek
Bij volume-analyse hebben we te maken met de volgende volume-prijs-relaties als basis uitgangspunt:
1.) Stijgend volume met stijgende koersen
2.) Stijgend volume met dalende koersen
3.) Stijgend volume met zijwaarts koersverloop
4.) Dalend volume met stijgende koersen
5.) Dalend volume met dalende koersen
6.) Dalend volume met zijwaarts koersverloop
7.) Zijwaarts volume verloop met stijgende koersen
8.) Zijwaarts volume met dalende koersen
9.) Zijwaarts volume verloop met zijwaarts koersverloop

Hieronder wat voorbeeld grafieken met commentaar.

1. Stijgend volume met stijgende koersgrafiek:
Grafiek 2:
Afbeelding

In grafiek 2 ziet u een gedeelte van de koersgrafiek van Ahold met daaronder het volume.
U ziet een mooie stijgende koerstrend en daaronder een stijgende volume grafiek.
Het stijgende volume ondersteund de verwachting dat de stijgende trend in de koersgrafiek wordt voortgezet. Dit gaat op totdat een bepaald patroon zich voordoet, waarover later meer.

2. Stijgend volume met dalende koersgrafiek:
Grafiek 3:
Afbeelding

In grafiek 3 ziet u een gedeelte van de AEX grafiek met daaronder het volume.
U ziet een dalende koersgrafiek met daaronder een stijgende volume grafiek.
Het stijgende volume ondersteund de verwachting dat de dalende koers in de koersgrafiek wordt voortgezet. Dit gaat op totdat een bepaald patroon zich voordoet, waarover later meer.

3. Stijgend volume met zijwaarts koersverloop:
Grafiek 4:
Afbeelding

In grafiek 4 ziet u een zijwaarts koersverloop na een stijgende trend met daaronder een stijgend volume.
Het stijgende volume tijdens het zijwaartse koersverloop geeft het gevecht aan tussen de beren en de stieren en aan de voorafgaande trend kan sterk worden getwijfeld. In grafiek 4 hebben de beren gewonnen;)
.
Wordt telkens verder uitgebreid …..kijk af en toe even.
Stukje is ook te lezen op http://www.jstas.com/Volume/volume%20analyse.htm
.
Laatst gewijzigd door Janus op di nov 11, 2014 1:05 am, 1 keer totaal gewijzigd.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » di nov 11, 2014 12:38 am

Vervolg op voorgaande posting, zie hierboven.
*
**
4. Dalend volume met stijgende koersen:
Grafiek 5:
Afbeelding
We zien een dalend volume terwijl de koer stijgt, ofwel de koersstijging wordt niet gedragen door het volume, een omkeer in de trend is dan mogelijk.
*
Een bekende uitspraak van Joseph Granville (ontwikkelaar van de On Balance Volume –OBV- indicator) is:
Volume is the steam that makes the choo-choo go downs the track … (volume is de stoom die zorgt dat het treintje gaat rijden).
Een gelijkwaardige uitspraak:
It has been said that if price were a train, then volume would be the steam that makes it go. That is to say, the pressure of the steam must change before the train speeds up or slows down.
-vrij vertaald- wanneer de prijs een stoomtrein is, is het volume de stoom die hem laat rijden; de druk van de stoom moet wijzigen voordat de trein sneller of langzamer gaat –
*
5. Dalend volume met dalende koersen:
Grafiek 6:
Afbeelding
In grafiek 6 ziet u een dalend volume en een dalende koersgrafiek, de daling in de koersgrafiek wordt door steeds minder handel ondersteund, een reversal is dan op komst.
*
6. Dalend volume met een zijwaarts koersverloop:
Grafiek 7:
Afbeelding
De prijs zit in een zijwaarts patroon en het volume neemt af, de handelaren twijfelen of de voorgaande trend (was dalend) wel door gaat en het wachten is op een impuls, extra handel.
*
7. Zijwaarts volume verloop met stijgende koersen:
Grafiek 8:
Afbeelding
In grafiek 8 ziet u dat het volume vrij constant is terwijl de koers in een stijgende trend zit. Kleine koersbewegingen tegen de trend in (midden grafiek) ontstaan onder laag volume. De handelaren hebben vertrouwen in een voortzetten van de trend
*
8. Zijwaarts volume met dalende koersen:
Grafiek 9:
Afbeelding
Hier is het eigenlijk hetzelfde verhaal als in grafiek 8 hierboven. De handelaren hebben vertrouwen in het voortzetten van de trend.
*
9. Zijwaarts volume en zijwaarts koersverloop:
Grafiek 10:
Afbeelding
Ook hier geldt dat de handelaren vertrouwen hebben in het gegeven dat de zijwaartse trend zich voort zet.
*
Ik brei even een eind aan dit eerste begin over de Volume indicator.
Wanneer u het even op uw gemak nakijkt moet u het volgende opvallen:
Volume is de brandstof voor de motor.
Een trend (stijgend of dalend) kan alleen in stand blijven wanneer het volume toeneemt (er brandstof aanwezig is).
Wanneer de koers stijgt of daalt en het volume neemt niet toe (de brandstof ontbreekt om de trend in gang te houden) dan moet u uitkijken voor signalen die de heersende trend afbreken, een mogelijke reversal ligt op de loer.
Wanneer de koers zijwaarts gaat en het volume neemt toe in die periode, dan geeft dat het gevecht aan tussen de stieren en de beren. Later bij patronen zullen we zien hoe we kunnen anticiperen op de richting van de uitbraak uit zo’n zijwaarts koersverloop.
Wanneer de koers zijwaarts gaat, en het volume patroon gaat zijwaarts, dan is er rust in de tent, de handelaren verwachten dat dit nog even zo doorgaat.
*
**
Tot zover even wat basis begrippen, in het volgende gedeelte gaan we door met patronen, dat wordt interessant!
Ofwel … dit was ’t saaie gedeelte … nu wordt ’t leuk ;)
**
*
Wordt telkens verder uitgebreid …..kijk af en toe even.
't hele verhaaltje is ook te lezen onder deze link: http://www.jstas.com/Volume/volume%20analyse.htm.
.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » zo jan 11, 2015 7:11 pm

Op 7-November-2014 verdween Ziggo uit de AEX - index, de index telde vanaf dat moment 24 onderliggende fondsen.
Vanaf maandag 22-December deed Altice mee in de AEX index, de Index telde vanaf dat moment weer 25 onderliggende fondsen.
Mijn volume indicatoren die het volume voor de AEX samenstellen moeten daar regelmatig op worden aangepast natuurlijk.
Hieronder treft u de tot en met dit weekend bijgewerkte indicatoren voor wat betreft de:
- Volume AEX2.tas- (waarmee u de wcumveloc, de volumebars of een volumelijn kan weergeven)
en de:
-AEX2 VWAP.tas- (waarmee u de VWAP kan weergeven zoals algemeen gebruikelijk of volgens Dr. Levine).

Omdat dit forum de lengte van deze ta-script-codes niet kan weergeven zult u die even moeten downloaden via de volgende links:

AEX2.tas:
http://www.jstas.com/Volume%20AEX2.tas

AEX VWAP.tas:
http://www.jstas.com/Volume%20AEX2%20VWAP.tas

Aanklikken, effe wachten, openen in kladblok, alles selecteren, kopiëren en dan plakken in de ta-script-builder.

Vriendelijke groet,
Jan ;)
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » zo mar 29, 2015 9:39 pm

De samenstelling van de AEX is na de wijziging per 12-Januari dit jaar ( Corio werd vervangen door Klépierre) nu weer gewijzigd per 24-03-2015 ( Klépierre, SBM en Fugro worden vervangen door NN-group,Vopak en Aalberts)
Ik heb de volume indicator voor de AEX weer aangepast naar de wijzigingen per 23-03-2015.

De indicator voor de VWAP kan worden opgehaald via de link:
http://www.jstas.com/Volume%20AEX2%20VWAP.tas

De indicator voor de Volumebars, de WCUMVELOC en de Volumelijn kan worden opgehaald via de link:
http://www.jstas.com/Volume%20AEX2.tas

Grafiekje d'rbij ;)
Afbeelding
.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » do jul 30, 2015 11:56 pm

Ik krijg de afgelopen tijd diverse mail omtrent mijn geplaatste volume indicator, die werkt sinds midden Juni niet mee voor u.
Sommigen hadden het zelf al wel gezien in de code, anderen nog niet, maar de codering liep tot midden Juni, omdat ik in Maart verwachtte dat de samenstelling van de AEX wellicht in Juni aangepast zou worden.
Dat was niet het geval, en voor mezelf had ik de code al aangepast ( net zoals sommigen van jullie).
Dan is nog de naam van Reed Elsevier gewijzigd in RELX groep.
In WallStreet for Windows en in Alex behoeft dit tot nu toe geen aanpassing.
Ik heb voor diegene die niet zelf de code kunnen wijzigen even een aangepaste code op mijn website geplaatst, omdat de code te groot is voor plaatsing hier op de website.
.
De code voor de VWAP kan worden opgehaald via de link:
http://www.jstas.com/Volume%20AEX2%20VWAP.tas
De code voor de WCumVeloc en de volumelijn kan worden opgehaald via de link:
http://www.jstas.com/Volume%20AEX2.tas
.
Probleempjes graag even melden.
.
Nog effe een grafiekje d'rbij ;)
.
Afbeelding
.
Komende maanden nog erg veel werk, dus helaas weinig post van mij te verwachten.
.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » di sep 22, 2015 11:24 pm

Hierbij even een update betreffende het volume van de AEX.
De indicator die ik plaats werkt telkens voor drie maanden.
Het achterliggende idee is dat om die drie maanden wellicht een wijziging van de samenstelling van de AEX plaats vindt, en door die indicator omstreeks dat tijdstip te laten stoppen wordt je gedwongen om de code bij te werken zodat je niet met een verkeerde samenstelling van het mandje gaat werken.

Voor zover mijn gegevens reiken is er geen wijziging gedaan betreffende de samenstelling van de AEX, en ik heb de datum dan ook opgeschoven naar 21-12-2015.
Wanneer u andere gegevens hebt verneem ik dat graag!!

De gewijzigde code kan u downloaden op mijn side onder de volgende links:
.
De code voor de VWAP kan worden opgehaald via de link:
http://www.jstas.com/Volume%20AEX2%20VWAP.tas
De code voor de WCumVeloc en de volumelijn kan worden opgehaald via de link:
http://www.jstas.com/Volume%20AEX2.tas

Problemen graag melden a.u.b..
.
Ik weet dat volume een 'ondergeschoven kindje' is bij velen, maar kijkt u eens wat er te verdienen was door bijvoorbeeld simpel weg de WCumVeloc (onderste venster) indicator te volgen ...
Onder het motto van; 'niet denken maar doen' ;)
.
Ik plaats daarvoor even een grafiekje:
.
Grafiek 1:
Afbeelding
.
Laten we het simpel houden, alleen al het volgen van de WCumVeloc had u een vermogen opgeleverd de laatste weken!
.
Daarom ... Volume is erg belangrijk ... en dat is dan ook de reden waarom 'ze' dat voor de AEX voor U achterhouden, 'ze' hebben het wel... maar U krijgt het niet!
En omdat 'niemand' daarover protesteert ... gaat u het wat 'hen' betreft ook niet krijgen.
.
Boven vermeldde indicatoren proberen dat gat te vullen.
.
Succes
.
Vriendelijke groet,
JanS ;)

Janus
Berichten: 1224
Lid geworden op: wo jan 30, 2008 2:07 am
Contacteer:

Re: Volume indicatoren

Bericht door Janus » za dec 26, 2015 4:09 pm

De volume indicatoren voor de AEX zijn weer bijgewerkt.
Deze versie werkt weer tot 21-Maart-2016.

U kunt deze twee ta-script code downloaden van de volgende links:

De code voor de VWAP kan worden opgehaald via de link:
http://www.jstas.com/Volume%20AEX2%20VWAP.tas

De code voor de WCumVeloc en de volumelijn kan worden opgehaald via de link:
http://www.jstas.com/Volume%20AEX2.tas

Problemen graag melden.
.
Vriendelijke groet,
JanS ;)

Plaats reactie