Visualizing an Integral

[1660]

Hello,

How to "draw" the Integral of a TFuncseries ? Or can anybody explain me how to draw Polygons on TCharts ? Or has another idea to visualize the Integral ? =)

Please have a look at the picture in the appendix.

[wp]

You mean how to draw the shaded area in the right figure in front of the other series?

For example add a TAreaSeries. Calculate the y values for some x points (i.e. duplicate the points from the FuncSeries) and add them to the AreaSeries (AreaSeries.AddXY(x, y). Put the AreaSeries in front of the bar series by giving its ZPosition a larger number that of the other series, and give its Transparency a value greater than zero (0 = opaque, 255 = fully transparent).

[1660]

Problem solved  =)

Code: [Select]


procedure TForm1.Button12Click(Sender: TObject);
var
  Area: TAreaSeries;
begin
  Area := TAreaSeries.Create(Chart1);

  Area.AddXY(1, 1, 'Point1', TColor($000000));
  Area.AddXY(2, 3, 'Point2', TColor($000000));
  Area.AddXY(4, 4, 'Point3', TColor($000000));
  Area.AddXY(5, 0, 'Point4', TColor($000000));

  Chart1.AddSeries(Area);

end; 




[wp]

You can drop mentioning the colors in the AddXY call; the AreaSeries.SeriesColor will be used instead. And if you don't need the point labels you can also drop them. Labels and colors are optional parameters. The simplest version of your code, therefore, would be

Code: [Select]

procedure TForm1.Button12Click(Sender: TObject);
var
  Area: TAreaSeries;
begin
  Area := TAreaSeries.Create(Chart1);

  Area.AddXY(1, 1);
  Area.AddXY(2, 3);
  Area.AddXY(4, 4);
  Area.AddXY(5, 0);

  Chart1.AddSeries(Area);

end;