Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
MrFloppy
0 / 0 / 0
Регистрация: 22.09.2014
Сообщений: 12
#1

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

14.03.2015, 01:20. Просмотров 324. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Метод Ньютона уточнения корней (Delphi):

Функция для уточнения корней уровнения - Delphi
как написать таким методом http://gate-tv.net/met.jpg функцию для уточнения корней уровнения f(x)=0 на отрезке с разной точностью е=0,1^i,...

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

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

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

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

Метод Ньютона - Delphi
Решаю уравнение методом ньютона но выдает ошибку not enough actual parameters unit Unit1; interface uses

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

Метод Ньютона - Delphi
ребят, подскажите плиз у меня что то результат на в эдит не выводит procedure TForm1.Button1Click(Sender: TObject); var ...

Отделение корней и метод половинного деления - Delphi
Алгоритм и программа. f(x)=x*x*x*x-3*x*x*x+3*x*x-12. a=2,b=3.

Метод итераций и Ньютона - Delphi
Всем добрый вечер. Тут такое дело, нашел программу на делфи как мне и надо, которая решает два метода. Не могли бы вы эту программу...

Масштаб.Метод Ньютона. - Delphi
Добрый вечер! Проблема в том, что препод не верит на слово, что касательные проходят через разные точки. На графике это не видно. Хотя...


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

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

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