Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
MrFloppy
0 / 0 / 0
Регистрация: 22.09.2014
Сообщений: 12
1

Метод Ньютона уточнения корней

14.03.2015, 01:20. Просмотров 334. Ответов 0
Метки нет (Все метки)

Всем привет! Программа не считает корень уравнения методом Ньютона(касательных), срочно нужна помощь (Очень срочно). Заранее спасибо.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
function F(X: Real):Real;
begin
  Result := X * X - 4;
end;
 
function P(X: Real):Real;
begin
  Result := 2 * X;
end;
 
function Nt(X:Real):Real;
begin
  Result := X - F(X)/P(X);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  A,B,Eps,Step,X,X1,X2: Real;
  I,N: Integer;
begin
  Eps := Strtofloat(Edit1.Text);
  A := Strtofloat(Edit2.Text);
  B := Strtofloat(Edit3.Text);
  Step := Strtofloat(Edit4.Text);
  X := A;   N := 0;
 
  while X < B do
    begin
      X := X + Step;
      if ((F(X) < 0) and (F(X-Step) > 0)) or ((F(X) > 0) and (F(X-Step) < 0))
      then
      begin
      X2 := Nt(X);
      X1 := X;
      while Abs(X1 - X2) > Eps do
      begin
        X2 := X1;
        X1 := Nt(X2);
      end;
      with StringGrid1 do
      begin
        inc(N);
        RowCount := RowCount + 1;
        Cells[0,RowCount] := IntToStr(N);
        Cells[1,RowCount] := FloatToStr(X2);
      end;
      end;
 
    end;
end;
Добавлено через 1 час 37 минут
Модераторы, удалите тему, пожалуйста
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2015, 01:20
Ответы с готовыми решениями:

Разработать программу уточнения корней уравнения
Всем привет. Опять вынужден писать на форум ибо сам не справляюсь . Задание...

Функция для уточнения корней уровнения
как написать таким методом http://gate-tv.net/met.jpg функцию для уточнения...

Разработать программу уточнения корней уравнения на отрезке с точностью
Разработать программу уточнения корней уравнения на отрезке с точностью. Для...

Написал код для уточнения корней уравнения методом хорд. Но не знаю правильно ли. Посмотрите кто может
Программа работает, но правильно ли? unit Unit1; interface uses ...

Метод касательных для уточнения значение корня полинома
Помогите ребята, очень нужна ваша помощь. Есть задание: Применить метод...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.03.2015, 01:20

Численные методы: метод секущих и метод Ньютона (касательных)
Пусть известны функции спроса D(p) и предложения S(p) для некоторого товара Т....

Метод Ньютона
ребят, подскажите плиз у меня что то результат на в эдит не выводит procedure...

Метод Ньютона
Решаю уравнение методом ньютона но выдает ошибку not enough actual parameters ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru