Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/37: Рейтинг темы: голосов - 37, средняя оценка - 4.86
жанна__90
0 / 0 / 0
Регистрация: 10.07.2009
Сообщений: 8
#1

Уточнение корней нелинейного уравнения комбинированным методом хорд и касательных

10.07.2009, 18:51. Просмотров 7342. Ответов 8
Метки нет (Все метки)

Здравствуйте. У меня тема практики-"уточнение корней нелинейного уравнения комбинированным методом хорд и касательных".Нужно написать программу на любом языке программирования, ну я лучше разбираюсь в Паскале.Помогите пожалуйста написать программу....

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.07.2009, 18:51
Ответы с готовыми решениями:

Нужно реализовать метод хорд и касательных для нахождения корней уравнения
Нужно реализовать метод хорд и касательных для нахождения корней уравнения. ...

Решение нелинейного уравнения методом хорд
Методом хорд вычислить с точностью Е корень уравнения ...

Решение нелинейного уравнения методом хорд
помогите пжлста надо преобразовать вводимое уравнеие (наприме X+ln(x)=0 но...

Решить уравнение f(x,g)=0 комбинированным методом(методом хорд и касательной)
здрасьте всем:) помогите решить задание,если не сложно даже два:)) ...

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

8
Puporev
Модератор
54212 / 41845 / 28918
Регистрация: 18.05.2008
Сообщений: 98,503
10.07.2009, 19:39 #2
В смысле решить одно уравнение двумя методами, или есть такой комбинированный метод?
0
жанна__90
0 / 0 / 0
Регистрация: 10.07.2009
Сообщений: 8
11.07.2009, 12:35  [ТС] #3
да,есть такой комбинированный метод.и вот этим методом нужно решить уравнение,ну то есть составить программу,в общем виде.

Добавлено через 16 часов 52 минуты 53 секунды
А не могли бы вы мне помочь написать программу для решения нелинейного уравнения не комбинированным методом,а просто методом хорд?пожалуйста...
0
Puporev
Модератор
54212 / 41845 / 28918
Регистрация: 18.05.2008
Сообщений: 98,503
11.07.2009, 12:56 #4
Лучший ответ Сообщение было отмечено как решение

Решение

Программа написана так, что Вы уже определили графически или иным методом примерное значение корней, и правильно введете границы интервала для уточнения корня. Например в этом примере два корня 2 и 3, поэтому взависимости от того какой корень ищем вводим либо интервал от менее 2-х до менее 3-х, или от более 2-х до более 3-х.
Если нужно количество итераций, расскоментируйте код в 4-х местах (уберите фигурные скобки с 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
uses Crt;
var x,eps,a,b,c:real;
    {n:integer;}
function f(x:real):real;
 begin
   f:=sqr(x)-5*x+6;
 end;
begin
 clrscr;
 writeln('Программа уточняет корень уравнения x^2-5x+6 методом хорд.');
 writeln('Введите границы диапазона* a и b');
 readln(a,b);
 repeat
 writeLn('Введите точность в пределах от 0 до 1 eps=');
 readln(eps);
 until (eps >0) and (eps <1);
 clrscr;
 {n := 0;}
 repeat
   c:=(f(b)*a-f(a)*b)/(f(b)-f(a));
   if f(a)*f(c) > 0 then a := c
   else b := c;
   {Inc(n)}
 until abs((f(b)*a-f(a)*b)/(f(b)-f(a))-c)<eps;
 x := c;
 writeLn('Корень уравнения x=', x:10:7);
 write('Для выхода нажмите Enter');
 {writeLn('Количество итераций =  ',n);}
 readln
end.
3
жанна__90
0 / 0 / 0
Регистрация: 10.07.2009
Сообщений: 8
11.07.2009, 17:32  [ТС] #5
спасибо.но это ведь конкретный пример.а мне нужен общий случай.то есть мне нужно писать уравнение в общем виде?и как это будет выглядеть....
0
Puporev
Модератор
54212 / 41845 / 28918
Регистрация: 18.05.2008
Сообщений: 98,503
11.07.2009, 17:47 #6
Программу вычисления в общем виде Вы не напишете, это теоретически можно, но я этого не умею, это слишком сложно. А в этой программе просто меняете функцию
Pascal
1
2
3
4
function f(x:real):real;
 begin
   f:=sqr(x)-5*x+6;//на любую другую и решаете
 end;
1
жанна__90
0 / 0 / 0
Регистрация: 10.07.2009
Сообщений: 8
11.07.2009, 20:53  [ТС] #7
спасибо большое за помощь...наверно мне легче убиться,чем написать её так,как требуется,то есть в общем виде....
0
nicni
0 / 0 / 0
Регистрация: 15.04.2011
Сообщений: 8
16.04.2011, 17:39 #8
с аналогичным вопросом:

найти корень урав-я (уточнив при необхо-ти диапазон [A-B]). 10.31*ln(x+10.42)+40.01=0 на отрезке от A=-9.35943 до B=-10.42000 методом касательных. точность решения EPS:0.000097.
0
nicni
0 / 0 / 0
Регистрация: 15.04.2011
Сообщений: 8
25.05.2011, 19:57 #9
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
program metod_Newton;
uses crt;
function f(x:real):real;
begin
f:=10.31*ln(x+10.42)+40.01;
end;
function f1(x:real):real;
begin
f1:=10.31/(x+10.42);
end;
var a,b,x,e,en:real;
i:integer;
begin
clrscr;
{writeln ('reshenie nelineinogo uravnenia metodom Niotona');
writeln ('vvedite granicu intevrala');
read (a,b);
writeln ('vvedite trebuemuo tochnost reshenia');
read (e);}
a:=-9.35943; b:=-10.42; e:=0.000097;
writeln ('reshenie');
en:=abs(f(b));
x:=b;
i:=1;
while (abs(en)>e) do begin
x:=x-f(x)/f1(x);
en:=abs(f(x));
writeln (i:10,x:8:4,' y=',en:8:6);
i:=i+1;
end;
end.
Добавлено через 56 секунд
вроде норм написана, да не прет. ошибка выскакивает
0
25.05.2011, 19:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2011, 19:57

Нахождение корней нелинейного уравнения 4 методами
Если кому не сложно, пожалуйста, откликнитесь. Через поиск просматривала темы,...

Нахождение всех действительных корней методом хорд
Нужно составить программу для нахождения всех действительных корней уравнения...

Нахождение корней уравнения методом итераций и методом половинного деления
Прошу вас помогите пожалуйста решить задачку по теме &quot; Нахождение корней...


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

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

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