не могу решить задачу по Basic....помогите плз

[aly17]

помогите пожал с задачкой!!!

Найти корень уравнения f(x)=0 для функции 3x-4lnx-5 ( интервал изоляции корня [2;4] ) методом Ньютона с точностью 0.0001

[mihali4]

При чем ту ВАСИК?
Где формула для решения?

Сообщение от aly17

всмысле при чём тут бейсик??))задачу надо решить в Basic))))

В смысле - решите математику, а в программировании вам помогут.
Решать за вас уравнения тут не будут.

[aly17]

всмысле при чём тут бейсик??))задачу надо решить в Basic))))

[Sazary]

aly17 Лично я про метод Ньютона в последний раз слышал года 2 назад. Беглый взгляд на описание в википедии дал понять, что приведенную вами функцию нужно модифицировать. Еще там что-то со сходимостью... В общем, для начала выполните все, что не связано с программированием (90%) и выложите сюда все формулы.

Насколько понял, нужно считать x, пока |x(n+1)-x(n)|>=eps. Вот и приведите формулу для x(n+1).

[aly17]

то есть мне нужно сначала построить график,найти корни методом ньютона,а потом уже программировать?))

[mihali4]

Сообщение от aly17

то есть мне нужно сначала построить график,найти корни методом ньютона,а потом уже программировать?))

Именно так. Сам по себе компьютер ничего не умеет. Это - тупая железка. Только она может "тупить" или "соображать" во много раз быстрее вас.
А вот ваша программа "научит" его соображать...
Но вам нужно не "построить график,найти корни методом ньютона", а продумать технологию решения, то есть - расписать, как бы вы это сделали "вручную".
А программирование состоит в том, чтобы вашу технологию решения такой задачи перенести на любой понятный компьютеру язык.

[aly17]

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

[quf]

не надо через графики, тем более дан EPS

держи на псевдокоде(нет бейсика под рукой, да и не помню уже его))):

SearchRoot(f,x0,EPS);
begin
Xold:=x0;
k:=1;
Xnew:=Xold-f(Xold)/df(Xold)
while |Xnew-Xold|>=EPS
begin
Xold:=Xnew;
Xnew:=Xold-f(Xold)/df(Xold)
k:=k+1;
end;
return Xnew;
end;

нужно написать еще одну функцию df(x), которая является производной

[quf]

Вот решение в маткаде, x0 - это начальное приближение
Бейсик забыл...
Справишься?

[Sazary]

Перевел на бейсик вариант quf (пост #8).
f - исходная функция (3x -4lnx -5)
df - производная (3 - 4/x)

CONST eps = .0001
DIM Xold, Xnew AS DOUBLE
DIM f, df AS DOUBLE
DIM k AS INTEGER
CLS
Xold = 4
k = 1
f = 3 * Xold - 4 * LOG(Xold) - 5
df = 3 - 4 / Xold
Xnew = Xold - f / df
DO WHILE ABS(Xnew - Xold) >= eps
Xold = Xnew
f = 3 * Xold - 4 * LOG(Xold) - 5
df = 3 - 4 / Xold
Xnew = Xold - f / df
k = k + 1
LOOP
PRINT USING "##.#######"; Xnew
END

Выводит 3.2299594