Программа строит неправильный график

[xMass]

Нужно простроить в чарте график функции y=tg(x) и график y=x, чтобы найти их точку пересечения, вот что у меня получается:

вот примерно как должен выглядеть:


Код программы:

unit unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Series2: TLineSeries;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
  a,b,d,x:real;
procedure TForm1.Button1Click(Sender: TObject);
begin
  a:=StrToFloat(edit1.Text);
  b:=StrToFloat(edit2.Text);
  d:=(b-a)/1000;
  x:=a;
  while x<=b do
  begin
    chart1.Series[0].AddXY(x,(sin(x))/(cos(x)));
    chart1.Series[1].AddXY(x,x);
    x:=x+d;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  form1.Chart1.Series[0].Clear;
  form1.Chart1.Series[1].Clear;
end;

end.

В чем моя ошибка? Почему он так строит тангенс график и прямую? Как это исправить?

[_Dmitry]

Вопрос к вам. Чему равен tg(x), когда x->pi/2, правильно, бесконечность. Вот вы эту бесконечность и получаете.
Отключите автомасштабирование по оси Y и задайте max и min вручную

  Chart1.LeftAxis.Automatic:=false;
  Chart1.LeftAxis.Minimum:=-20;
  Chart1.LeftAxis.Maximum:=20;

[xMass]

Точчннооо!
Урааа, все поулчилось, спасибо оргомнейшее!!!)))

а как написать программу, которая определяет точку пересечения графиков?

[Stilet]

а как написать программу, которая определяет точку пересечения графиков?

Дык вот где ты рассчитываешь данные там проверяй мол:

if abs((sin(x))/(cos(x))-x)<0.01 then пересекается тут

Здесь 0,01 погрешность
p.s. ну про проверку x=x я не пишу из политкорректности )

[xMass]

Сообщение от Stilet

Дык вот где ты рассчитываешь данные там проверяй мол:

if abs((sin(x))/(cos(x))-x)<0.01 then пересекается тут

Здесь 0,01 погрешность
p.s. ну про проверку x=x я не пишу из политкорректности )

так я не хочу проверять, я хочу найти точку где строиться
"пересекается тут", тож не очень ясно, ведь графики пересекаются бесконечное число раз

[xMass]

я делал программу нахождения решения этого уравнения, у меня получалось знчение 0,07815 (при погрешности 0,001), что очень меня настараживает

[xMass]

я делал программу нахождения решения этого уравнения, у меня получалось знчение 0,07815 (при погрешности 0,001), что очень меня настараживает

[_Dmitry]

Правильно настораживает.
Каким методом решаете уравнение?
Покажите код.