{- Filename: volume gewogen steun-weerstand -}
//  www.JSTAS.com
// Beta-versie 1.03

var
a,i,Jaar,Maand,Dag,TopBod,Ch : Integer  ;
RS1,CumVol,CumVolPr, AvP     : TSeries  ;
DatBeg                       : TDateTime;
Vs, Ps, H1,H3,Cv1,CvP1       : Real     ;
TextAan                      : Boolean  ;

Begin
 Indicator.NewBand    := False;
 Indicator.ScaleRange := SrCommon;
 RS1      := CreateSeries(Barcount);
 CumVol   := CreateSeries(BarCount);
 CumVolPr := CreateSeries(BarCount);
 Jaar     := CreateParameterInteger('Jaar',1900,2100,2009,False);
 Maand    := CreateparameterInteger('Maand',1,12,3,False)       ;
 Dag      := CreateParameterInteger('Dag',1,31,9,False)         ;
 TopBod   := CreateParameterSelect ('Welke Startkoers?','Van de High'
                          #9'Van de Low'#9'De Openingskoers'#9
                          'De Slotkoers'#9'De Gemiddeldel prijs',1,False);
 TextAan  := CreateParameterBoolean('Waarde weergave in grafiek',True,False);
 DatBeg   := EncodeDate(Jaar,Maand,Dag);
 Indicator.RequiredBars := Round(Date-DatBeg);
 Ch   :=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:= 0 To BarCount-1 Do
   Begin
     If Trunc(DateTime[i]) = Trunc(DatBeg) Then
       Begin
         Vs := V[i];
         If V[i]=0 Then Vs:=1;
         a  :=i;
         Ch :=1;
         Ps := Avp[i];
       End;
   H3 := 0.97*Close[BarCount-1];
   End;

If Ch=0 Then
  Begin
    With CreateText(Now-7,H3,'Foutieve datum !') Do
      Begin
        color  :=ClRed;
        Font.Size :=15;
      End;
  End;
  
If Ch=1 Then
 Begin
  For i:= a to BarCount-1 Do
    Begin
      H1 := V[i];
      If V[i]=0 Then H1 := V[i-1];
      If H1=0   Then H1 := 1;
      CumVol[i] := Cv1+ H1;
      CumVolPr[i] := CvP1 + AvP[i]*H1 ;
      If (i=a) Then RS1[i] := AvP[i];
      If (i>a) Then RS1[i] := ((CumVolPr[i]-(Vs*Ps))/(CumVol[i]-Vs));
      Cv1 := CumVol[i]  ;
      CvP1:= CumVolPr[i];
      If (i=Barcount-1) And TextAan Then CreateText(Now,Rs1[i],FloatToStr(Rs1[i]));
    End;
  End ;
 CreateLine(RS1).color:=ClYellow;
end.