решение нелинейных уравнений (DELPHI)

[beygul]

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

Все правильно. Вы искали корень в интервале [1;2], а там его нет. Корень 0,147 примерно. Если x в радианах конечно.
Ищите в [0;1], а лучше границы a,b тоже StrToFloat, и искать например [0,01;1]

Сделал всё как вы сказали. Корень нашёлся) УРА! Но рисовать график не хочет( нажимаю на Button1 - выдаёт ошибку(((

[type_Oleg]

Да тоже самое 1/0 наверное.
Вообще как-то топорно все сделано.
Зачем писать в обработчике Батон1Клик y:=7*sin и т.д. Почему не поместить определение функции выше, и писать просто y:=f(x); ?
И зачем все переменные - глобальные ?

И графику у вас рисует при x от -100 до +100 с шагом 0,01 ( непонятно зачем такой мелкий шаг на графике).
Может быть лучше тоже задавать границы и шаг для графика в Edit ?

[beygul]

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

Да тоже самое 1/0 наверное.
Вообще как-то топорно все сделано.
Зачем писать в обработчике Батон1Клик y:=7*sin и т.д. Почему не поместить определение функции выше, и писать просто y:=f(x); ?
И зачем все переменные - глобальные ?

И графику у вас рисует при x от -100 до +100 с шагом 0,01 ( непонятно зачем такой мелкий шаг на графике).
Может быть лучше тоже задавать границы и шаг для графика в Edit ?

Деление на ноль я устранил вроде бы

procedure TForm1.Button1Click(Sender: TObject);        //ãðàôèê
begin
 m := 10;  //ìàñøòàá
 x := -100;
 x0:=200;
 y0:=125;

  while x <=100  do
    begin
      if (x<-0.005) or (x>0.005) then begin
      y := 7*sin(x)-1/x+5*exp(x);
      image1.Canvas.Pixels[x0+Round(x*m),y0-Round(y*m)] := clGreen;
      end;
      x := x + 0.01;
    end;
end;

А шаг по крупнее сделать какой?

[type_Oleg]

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

.. А шаг по крупнее сделать какой?

Да здесь шаг на ошибку вроде не влияет.
Просто как-то нелогично. Зачем вот это задавать в самом коде

 m := 10;  
 x := -100;
// и т.д.
while x <=100  do

А если на интервале [-100;100]нет решения ?
И шаг 0.01 в графике не нужен. Это же просто чтобы посмотреть.

Лучше сделать так, как в procedure TForm1.Button3Click, то есть границы и шаг задавать в Edit.

[beygul]

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

Да здесь шаг на ошибку вроде не влияет.
Просто как-то нелогично. Зачем вот это задавать в самом коде

 m := 10;  
 x := -100;
// и т.д.
while x <=100  do

А если на интервале [-100;100]нет решения ?
И шаг 0.01 в графике не нужен. Это же просто чтобы посмотреть.

Лучше сделать так, как в procedure TForm1.Button3Click, то есть границы и шаг задавать в Edit.

Не совсем понял идею. О каких границах идет речь? Можно поподробнее, как реализовать этот способ?

[type_Oleg]

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

..О каких границах идет речь? ..

Об этих

 x := -100;  // что значит  число - 100 ?
// и т.д. 
while x <=100  do  // что значит число 100 ?

[beygul]

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

Об этих

 x := -100;  // что значит  число - 100 ?
// и т.д. 
while x <=100  do  // что значит число 100 ?

Так в итоге ошибка то у меня в чём? Если деление на ноль я устранил.

procedure TForm1.Button1Click(Sender: TObject);        //ãðàôèê
begin
 m := 10;  //ìàñøòàá
 x := -100;
 x0:=200;
 y0:=125;

  while x <=100  do
    begin
      if (x<-0.005) or (x>0.005) then begin
      y := 7*sin(x)-1/x+5*exp(x);
      image1.Canvas.Pixels[x0+Round(x*m),y0-Round(y*m)] := clGreen;
      end;
      x := x + 0.01;
    end;
end;

[type_Oleg]

Вместо этого

 image1.Canvas.Pixels[x0+Round(x*m),y0-Round(y*m)] := clGreen;

вот это

 if (Abs(x*m)<1000)and(Abs(y*m)<1000)
    then image1.Canvas.Pixels[x0+Round(x*m),y0-Round(y*m)] := clGreen;

По крайней мере ошибки не будет.