Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
bcin
0 / 0 / 0
Регистрация: 23.03.2015
Сообщений: 1
1

Модифицированный метод ньютона

23.03.2015, 16:10. Просмотров 711. Ответов 1
Метки нет (Все метки)

Ребята, не могу найти в программе, что не так ответ выходит 0,000
Подскажите если знаете...постановка задачи (При решении задач нестационарной теплопроводности в плоской неограниченной пластине необходимо определять корни μ характеристического уравнения ctg μ = μ / Bi, где Bi = α*l/λ – критерий Био, α – коэффициент конвективного теплообмена, Вт/м2*К; l – линейный размер (полутолщина пластины), м; λ – коэффициент теплопроводности материала пластины, Вт/м*К.
Вычислить с точностью ε два первых корня μ1 и μ2 характеристического уравнения (0 < μ1 < π, π < μ2 < 2π).
Исходные данные: α=60,0; l=0,5; λ=10,0; ε=10-4.) Заранее спасибо

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
program lab1;
const a=10.0;l=0.5;La=60;e=0.0001;
var y1,y2,m0,m1,Mu1,Mu2,Mu0,j,Mu:real;
function f(Mu:real):real;
begin
 
f:=Mu/(La*l/a)-sin(Mu)/cos(Mu);
end;
function f1(M:real):real;
begin
f1:=1/(sin(Mu)*sin(Mu));
end;
begin
write('vvedi a=');
readln(Mu);
Mu1:=Mu;
y1:=f(Mu1);
y2:=f1(Mu1);
repeat;
m0:=m1;
y1:=f(m1);
m1:=m0-(y1/y2);
until abs(m1-m0)<=e;
writeln ('m1=',m1:6:4);
readln;
end.
Добавлено через 27 минут
не совсем поняла
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2015, 16:10
Ответы с готовыми решениями:

модифицированный метод ньютона
как написать программу для этой задачи?мне не совсем понятно. Определить с...

Модифицированный метод Ньютона
Помогите пожалуйста с написанием программы модифицированным методом Ньютона на...

Метод итерации и метод Ньютона (метод касательных)
Помогите решить методом итерации и методом Ньютона выражение привиденное ниже:...

Вычислить корни уравнения, используя метод простой итерации, метод Ньютона
2 1) Вычислить корни уравнения 2*(e^x)-5*x-2 с точностью 0.000001, используя...

Решение систем нелинейных уравнений, Метод Ньютона и Метод Зейделя
Ребята пожалуйста помогите с решением Слау Методом Ньютона и Зейделя. ...

1
ФедосеевПавел
Модератор
3850 / 2172 / 893
Регистрация: 01.02.2015
Сообщений: 7,240
23.03.2015, 21:06 2
Это та же программа, но после форматирования (программой форматтером)
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
program lab1;
 
const
  a  = 10.0;
  l  = 0.5;
  La = 60;
  e  = 0.0001;
var
  y1, y2, m0, m1, Mu1, Mu2, Mu0, j, Mu: real;
 
  function f(Mu: real): real;
  begin
    f := Mu / (La * l / a) - sin(Mu) / cos(Mu);
  end;
 
  function f1(M: real): real;
  begin
    f1 := 1 / (sin(Mu) * sin(Mu));
  end;
 
begin
  Write('vvedi a=');
  readln(Mu);
  Mu1 := Mu;
  y1  := f(Mu1);
  y2  := f1(Mu1);
  repeat;
    m0 := m1;
    y1 := f(m1);
    m1 := m0 - (y1 / y2);
  until abs(m1 - m0) <= e;
  writeln('m1=', m1: 6: 4);
  readln;
end.
Теперь лучше видна структура. И сразу возникают замечания:
1. Переменная m1 не инициализирована до строки 28.
2. При описании ты говоришь ctg μ = μ / Bi, а в программе f := Mu / (La * l / a) - sin(Mu) / cos(Mu); - это tg(Mu).
3. То, что происходит в цикле похоже на метод Ньютона, но там y2 постоянно пересчитывается.
4. Для поиска 2-х корней нужно запускать поиск два раза, задавая разные приближения.

Пока всё...

Добавлено через 12 минут
-----------
5. Если функция имеет вид http://www.cyberforum.ru/cgi-bin/latex.cgi?f(x)=\frac{x}{Bi}-ctg\: x, то производная будет равна http://www.cyberforum.ru/cgi-bin/latex.cgi?f'(x)=\frac{1}{Bi}+\frac{1}{{sin}^{2}x}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.03.2015, 21:06

Метод Ньютона (метод касательных)
решить пример x^3-3*x-5=0 Метод касательных с точностю e=0.01 найти инрервал...

Метод Ньютона
Люди что у меня не так. Находит только один корень уравнения. Задание такое:С...

Метод касательных Ньютона
найти интервал (a,b)найти корень уравнения и уточнить его численным методом с...


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

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

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