Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 1
Регистрация: 01.03.2012
Сообщений: 5
1

Решить задачу модифицированным методом Ньютона

01.03.2012, 22:39. Просмотров 826. Ответов 1
Метки нет (Все метки)

решить задачу модифицированным методом Ньютона, сам пробовал, но не получилось..
0
Миниатюры
Решить задачу модифицированным методом Ньютона  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2012, 22:39
Ответы с готовыми решениями:

Решить уравнение методом Ньютона (касательных)
X^3-2x-13 методом Ньютона (касательных). Помогите пожалуйста..

Решить уравнение методом Ньютона (касательных)
ребят, где я ошибся? задача была уравнение √x+x2-3 решить методом ньютона(касательных) uses crt;...

Решить уравнение модифицированным Методом Ньютона
Решить уравнение Модиф. Методом Ньютона

Системы нелинейных алгебраических уравнений модифицированным методом Ньютона
Помогите решить пожалуйста

1
0 / 0 / 1
Регистрация: 01.03.2012
Сообщений: 5
06.03.2012, 21:27  [ТС] 2
Лучший ответ Сообщение было отмечено dreder93 как решение

Решение

проверьте пожалуйста, сомневаюсь в правильности...
Pascal
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
program MetodN;
uses crt;
 const
 Sigma0=5.67e-8;   {vvod konstant}
 Pi=3.14;
var T,R,P,a,en:real;       {Globalnie peremennie}
  function F(Ts:real):real;   {Uravnenie teplovogo balansa}
    begin
    F:=a*(T-Ts)+en*Sigma0*((T*T*T*T)-(Ts*Ts*Ts*Ts))-P/(4*Pi*R*R);
    end;
  function F1(Ts:real):real;     {Proizvodnaya po Ts}
    begin
    F1:=-a-4*en*Sigma0*Ts*Ts*Ts;
    end;
procedure Newton(x1,eps:real; var x2:real; var k:integer);   {Modif metod Newtona}
 var b:real;
  begin
  x2:=x1;
  eps:=0.1;
  k:=0;
     repeat
     b:=x2;
     k:=k+1;
     x2:=b-F(b)/F1(x1);
     until abs(x2-b)<=eps;
  end;
var x0,x,eps:real;
    k:integer;
begin
clrscr;
  T:=300;
  R:=0.05;
  P:=100;
  a:=5;
  en:=0.7;
    repeat
     write('Vvedite nachalnoe priblizenie  x0=');+
     readln(x0);
    until(x0>=-100000)and(x0<=100000);  {Interval poiska korney uravneniya}
    eps:=0.1;
Newton(x0,eps,x,k);
writeln('Ts=',x:0:2,'  iteracij=',k);
readln;
end.
Добавлено через 1 минуту
посмотрите кто-нибудь..
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2012, 21:27

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Решить задачу методом золотого сечения и методом деления интервала пополам и написать программу на Pascal
Помогите пожалуйста решить задачу:Из всех прямоугольных треугольников,у которых сумма одного катета...

Как выполнить эту задачу методом Ньютона?
Добрый день, есть программа где решается задача с помощью метода хорд, можно ли написать эту...

Решить уравнение методом Ньютона
x^3+2x+7.8=0

Решить уравнение методом деления отрезка пополам и Ньютона
Решить уравнение x*tan(x)=A, 0&lt;x&lt;pi/2 методом деления отрезка пополам и Ньютона. Входные...


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

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

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