Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
MathHelpPlanet.com RSS-лента Математического форума

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 8 ] 
Автор Сообщение
 Заголовок сообщения: Коротко о решении трансцендентного уравнения
СообщениеДобавлено: 26 июн 2019, 15:07 
Не в сети
Начинающий
Зарегистрирован:
26 июн 2019, 11:30
Сообщений: 2
Cпасибо сказано: 0
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Изображение
Изображение

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: КОРОТКО О РЕШЕНИЕ ТРАНСЦЕНДЕНТНОЕ УРАВНЕНИЕ
СообщениеДобавлено: 26 июн 2019, 18:27 
Не в сети
Light & Truth
Аватара пользователя
Зарегистрирован:
03 апр 2012, 19:13
Сообщений: 11449
Откуда: Москва
Cпасибо сказано: 964
Спасибо получено:
3265 раз в 2853 сообщениях
Очков репутации: 632

Добавить очки репутацииУменьшить очки репутации
Пример
[math]2.6^x=2.4+x[/math]
решен не совсем правильно. Метод Ньютона

a=2.6
b=2.4
x0=1
for i=1 to 10
x1=x0-(a^x0-b-x0)/(a^x0*log(a)-1)
print i,x1
x0=x1
next i

дает первый корень [math]\,x=1.39608[/math]

Если в проге задать x0=-1, то найдется второй корень [math]\,x=-2.28762[/math]

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: КОРОТКО О РЕШЕНИЕ ТРАНСЦЕНДЕНТНОЕ УРАВНЕНИЕ
СообщениеДобавлено: 06 июл 2019, 18:31 
Не в сети
Начинающий
Зарегистрирован:
26 июн 2019, 11:30
Сообщений: 2
Cпасибо сказано: 0
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Abduhalim1964 писал(а):
Изображение
Изображение


Здравствуйте!
Извините пожалуйста! Но где вы видите знак /

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: КОРОТКО О РЕШЕНИЕ ТРАНСЦЕНДЕНТНОЕ УРАВНЕНИЕ
СообщениеДобавлено: 06 июл 2019, 20:05 
Не в сети
Light & Truth
Зарегистрирован:
08 апр 2015, 12:21
Сообщений: 3604
Cпасибо сказано: 102
Спасибо получено:
1209 раз в 1124 сообщениях
Очков репутации: 175

Добавить очки репутацииУменьшить очки репутации
Abduhalim1964 писал(а):
Abduhalim1964 писал(а):
Изображение
Изображение


Здравствуйте!
Извините пожалуйста! Но где вы видите знак /

У Вас просто нечитабельный текст. Неужели Вам трудно самим проверить качество загружаемых картинок?

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Коротко о решении трансцендентного уравнения
СообщениеДобавлено: 13 июл 2019, 12:11 
Не в сети
Одарённый
Зарегистрирован:
02 июн 2018, 08:50
Сообщений: 183
Cпасибо сказано: 5
Спасибо получено:
25 раз в 25 сообщениях
Очков репутации: 3

Добавить очки репутацииУменьшить очки репутации
Abduhalim1964 писал(а):
Извините пожалуйста! Но где вы видите знак /

Так у Avgust применен метод Ньютона, если изучите его, то увидите, что там нужна производная.

Метод секущих для этого примера дает тот же результат

▼ код фортран
program secant
implicit none
real ::a, b, x, y, f, l, r, yl, yr
real, parameter :: eps=1e-4

a=1; b=5
l=a; r=b

yl=f(a)
yr=f(b)
y=yl

do while (abs(y) > eps)
x = l-yl*(r-l)/(yr-yl)
y = f(x)
if (yl*y < 0) then
r=x; yr=y
else
l=x; yl=y
end if
end do

y=f(x)

print 100, ' x = ', x
print 100, ' y = ', y

100 format (a, f9.4)
end program secant

real function f (x)
implicit none
real, intent (in) :: x
f=2.6**x - x - 2.4
end function f


результат
Код:
x =    1.3960
y =   -0.0001

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Коротко о решении трансцендентного уравнения
СообщениеДобавлено: 14 июл 2019, 14:39 
Не в сети
Одарённый
Зарегистрирован:
02 июн 2018, 08:50
Сообщений: 183
Cпасибо сказано: 5
Спасибо получено:
25 раз в 25 сообщениях
Очков репутации: 3

Добавить очки репутацииУменьшить очки репутации
То же на Аде.
▼ Ada
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;
with Ada.Numerics.Elementary_Functions; use Ada.Numerics.Elementary_Functions;
--with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Main is
--объявляем переменные
a, b, x, y, l, r, yl, yr, eps : float;

--подпрограмма-функция
function Fun (x : float) return float is
f : float;
begin
f:= 2.6**x - x - 2.4;
return f;
end Fun;

--поехали
begin

a:=0.0;
b:=3.0;
l:=a;
r:=b;
eps:=0.0001;

yl:= Fun(a);
yr:= Fun(b);
y:=yl;

while abs(y) > eps loop
x:= l - yl*(r-l) / (yr-yl);
y:= Fun(x);
if yl*y < 0.0 then
r:= x; yr:= y;
else
l:= x; yl:= y;
end if;
end loop;

y:= Fun(x);

Put ("x= "); Put (x);

end Main;


Код:
x=  1.39605E+00

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Коротко о решении трансцендентного уравнения
СообщениеДобавлено: 14 июл 2019, 21:12 
Не в сети
Light & Truth
Аватара пользователя
Зарегистрирован:
03 апр 2012, 19:13
Сообщений: 11449
Откуда: Москва
Cпасибо сказано: 964
Спасибо получено:
3265 раз в 2853 сообщениях
Очков репутации: 632

Добавить очки репутацииУменьшить очки репутации
А второй корень почему не ищите?

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Коротко о решении трансцендентного уравнения
СообщениеДобавлено: Вчера, 02:51 
Не в сети
Одарённый
Зарегистрирован:
02 июн 2018, 08:50
Сообщений: 183
Cпасибо сказано: 5
Спасибо получено:
25 раз в 25 сообщениях
Очков репутации: 3

Добавить очки репутацииУменьшить очки репутации
Avgust писал(а):
А второй корень почему не ищите?

Можно и второй найти, задав другой промежуток поиска указанием значений a и b, например a=-3, b=0.
А вообще и графически достаточно точно находится в той же Геогебре.

Изображение

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему      Страница 1 из 1 [ Сообщений: 8 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Приближенное решение трансцендентного уравнения

в форуме Ряды

Gargantua

7

310

14 окт 2015, 15:27

Помощь в решении уравнения

в форуме Алгебра

trol

17

780

23 окт 2011, 17:28

Ошибка в решении уравнения

в форуме Дифференциальные и Интегральные уравнения

vdekameron

1

153

05 дек 2014, 14:43

От чего отталкиваться в решении этого уравнения?

в форуме Тригонометрия

tetroel

12

717

25 ноя 2011, 20:49

Опечатка в общем решении дифференциального уравнения?

в форуме Дифференциальные и Интегральные уравнения

spartakraz

6

94

12 мар 2019, 14:11

Помощь в решении разъемного дифференциального уравнения

в форуме Дифференциальное исчисление

pashasokol

4

217

02 окт 2014, 22:30

Наименьший порядок уравнения при данном частном решении

в форуме Дифференциальные и Интегральные уравнения

lolita

3

322

26 авг 2012, 12:25

Пощь в решении

в форуме Пределы числовых последовательностей и функций, Исследования функций

MeshKW

1

84

25 окт 2016, 03:51

Помощь в решении

в форуме Интегральное исчисление

vitya2014

1

140

18 янв 2017, 06:10

Помощь в решении

в форуме Дифференциальное исчисление

ody

11

348

16 дек 2015, 22:11


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2019 MathHelpPlanet.com. All rights reserved