1 / 1 / 0
Регистрация: 27.02.2009
Сообщений: 24
1

Нахождение корня методом простой итерации

11.12.2011, 18:13. Показов 3155. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброе время суток всем. Помогите разобраться пожалуйста!
Мне нужно получить значение переменной B, решив нелинейное уравнение e^(-x)-(x-1)^2=0 на интервале [0;8] (т.е найти корень). Я нашел пример решения нелинейного уравнения методом простой итерации. И адаптировал для своей программы, но корни как-то непонятно находяться, мне кажется не правильно.

C
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Program Denis1;
uses crt;
  const e=2.71828183;
var
  x0,eps,a:real;
  y,x,r,b:double;
  km,st1,i,n:byte;
  xmas:array [1..25] of double;
  ymas:array [1..25] of double;
begin
  clrscr;
  {Находим B, решая методом итерации}
  writeln('Введите x в интервале [0;8], eps, km');
  readln(x0,eps,km);
  x:=(x0*x0-exp(ln(e)*(-x0))+1)/2;;
  st1:=0;
  writeln('   итерации:');
  for i:=1 to km do
    begin
      y:=(x*x-exp(ln(e)*(-x))+1)/2;
      r:=abs(y-x);
      x:=y;
      if r<eps then
      begin
        st1:=1;
        i:=km;
      end;
      writeln('   ',y:6:4);
    end;
  if st1<>1 then
    writeln('   Решение не найдено')
  else
    begin
      {Если есть корень, решаем систему}
      b:=y;
      writeln('   Корень B=',b:4:2);
      write('Введите a: '); readln(a);
      write('Введите n: '); readln(n);
      for i:=1 to n do
        begin
          write('   x[',i,']= ');
          readln(xmas[i]);
        end;
      for i:=1 to n do
        begin
          if xmas[i]>1 then
            begin
              ymas[i]:=(sqr(xmas[i]))/(sqrt(a*xmas[i]+b));
              writeln('   y[',i,']= ',ymas[i]:4:2);
            end
          else
            begin
              ymas[i]:=b*exp(ln(e)*a*xmas[i]);
              writeln('   y[',i,']= ',ymas[i]:4:2);
            end;
        end;
    end;
    readln;
end.
Миниатюры
Нахождение корня методом простой итерации  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.12.2011, 18:13
Ответы с готовыми решениями:

Составить программу для нахождения корня уравнения методом итерации
Составить программу для нахождения корня уравнения методом итерации с точностью ε=0,001....

Решить уравнение lnx-5cosx/3=0 методом простой итерации
помогите решить методом простой итерации уравнение lnx-5cosx/3=0 на промежутке с точностью e=0.001...

Задачи по численным методам. Решить уравнение методом простой итерации
1.Решить уравнение 3x3-2x2-x-20=0 методом простой итерации c точностью =10-6; Нужно...

С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0
Задание: С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0 ...

1
1 / 1 / 0
Регистрация: 27.02.2009
Сообщений: 24
12.12.2011, 11:32  [ТС] 2
Все, я разобрался!
0
12.12.2011, 11:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2011, 11:32
Помогаю со студенческими работами здесь

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

Решение СЛАУ методом простой итерации или методом Зейделя
Решение СЛАУ методом простоой интерпритации или методом Зейделя. Напишете пожалуйста пример решения

Решения СЛАУ методом простой итерации
Код решения СЛАУ методом простой итерации. Program Metod_Prostoy_Iteracii ; Uses crt; const...

Решить нелинейное уравнение методом простой итерации
Помогите, пожалуйста, решить уравнение и записать его код в паскале. Очень нужно x^3+cos(8*x)=0 ...

Решение систем линейных уравнений методом простой итерации
Решить систему линейных уравнений методом простой итерации

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru