[SHIFT999]

В TChart строится график по функции вида y=f(x). В цикле через скриптконтрол вычисляется у, а х - это значение цикла, то есть точки он ставит через каждую еденицу. Как сделать точки чаще, чтобы график красивее выглядел? Вот цикл:

Код:

for x:=min to max do //min и max вводит юзер
  begin
  for i:=0 to Length(formula) do
    if formula[i]='x' then
      begin
      Delete(formula,i,1);
      Insert(floattostr(x),formula,i); //заменяем неизвестную х числом
      end;
  y:=ScriptControl.Eval(formula);
  formula:=Edit1.Text;
  Form1.Chart1.SeriesList[0].AddXY(x,y,' ',col); //col - цвет, вводит юзер
  end;

Вот что выводится (синус):
12wqedwa.jpg
А вот что бы примерно хотелось (синус + косинус):
13wdfsdf.jpg