Решить уравнение методом простых итераций

[Стася]

Вот полное задание:написать программу, предназначенную для графической визуализации функции, соответствующей выданному варианту. По графику функции провести исследование: на выбранной области допустимых значений указать количество и определить интервалы локализации нулей функции, максимумов и минимумов. Заданным методом решения нелинейных алгебраических уравнений на выбранном интервале локализации уточнить нуль функции (используя исходную функцию) или экстремум (используя производную исходной функции). Вычисление значений и производных реализовать с использованием процедур или функций, определяемых пользователем. При построении графиков и вычислении значений и производных функций осуществлять проверку аргумента на принадлежность области допустимых значений.
Метод решения-метод простых итераций.
Функция: y=a0+a1*x+a2*x^2+a3*ln(a4*x)+a5*ln(a6*x^2)

[Sla]

Стася, и шо? кто решить должен?

[Джон]

Стася, ну дык эт мы мигом. Давай скорей значения для a0, a1, a2,a3,a4,a5,a6 и x, а то скоро рабочий день заканчивается.

[Стася]

Так они неизвестны

[McZim]

Стася, хм получается уравнение с 8-мю неизвестыми?

[Алексей++]

a0, a1, a2,a3,a4,a5,a6 наверное должны вводиться вручную, да , Стася ?

[Стася]

Да. Также как и x.

[Алексей++]

а X то зачем ? Непонятно задание...

[Стася]

Ой, ошиблась(((

[Стася]

Хотя нет, для этого метода нужно знать начальное приближение x.

[Алексей++]

Стася, ну ты хоть начни код писать, а то куда объяснять то ? В воздух ?

[Стася]

Завтра, если вы не против.

[Алексей++]

Стася, не против

[Стася]

Еще надо поставить ограничения для коэффициентов а2-а6. И с графиком разобраться.

Код:

unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Button1: TButton;
    Chart1: TChart;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);
Var a0,a1,a2,a3,a4,a5,a6,x0,x,epsilon:real;
 begin
 x:=strtofloat(edit1.Text);
 epsilon:=strtofloat(edit2.Text);
 a0:=strtofloat(edit3.Text);
 a1:=strtofloat(edit4.Text);
  if a1=0 then
  Showmessage('Ошибка')
  else
  Showmessage('Ошибки нет');
 a2:=strtofloat(edit5.Text);
 a3:=strtofloat(edit6.Text);
 a4:=strtofloat(edit7.Text);
 a5:=strtofloat(edit8.Text);
 a6:=strtofloat(edit9.Text);
  repeat
  x0:=x;
  x:=-(a0+a2*x*x+a3*ln(a4*x)+a5*ln(a6*x*x))/a1;
until
abs(x0-x)<=epsilon;
Edit10.text:=floattostr(x);
end;



procedure TForm11.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
Edit10.Clear;

end;

end.

[Стася]

у меня вот такой вопрос. Будет у меня кнопка, при нажатии на которую будет строиться график. А как это написать? С настройками TChart я более-менее разобралась.

[Стася]

Ошибка, соответственно график не строится. Не пойму, почему.

[Sla]

где-то

uses
Variants

я уже видел

ну да ладно

Стася, оформляй часть кода тегами [code][/code]

или пользуйся не быстрым ответом, а жмакай кнопку "ответ", и там есть кнопочка "#"

ошибка? какая? а выкладывать проект не надо...

[Стася]

Извините, спасибо за советы. График строится в виде одной линии. А мне нужно чтобы строился точечный для каждого нового значения х.