RCHART - Display of time series
The chart below has been created by the following code (the extents of the chart window and the range of the real coordinate system have been set during design time):
RChart1.MoveTo (0,0); for i:=1 to 500 do RChart1.DrawTo (i,i/10+i/30*sin(i*0.04)+20*(random+random)); RChart1.DataColor := clRed; RChart1.MoveTo (0,40); for i:=1 to 500 do RChart1.DrawTo (i,40+i/20*sin(i*0.05));