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

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

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

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




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Метод Жордана - Гаусса
СообщениеДобавлено: 22 сен 2018, 17:05 
Не в сети
Одарённый
Зарегистрирован:
07 ноя 2016, 10:30
Сообщений: 166
Cпасибо сказано: 27
Спасибо получено:
2 раз в 2 сообщениях
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Добрый вечер!! Помогите разобраться с прогой, а именно: здесь p и i оба номер строки, но в чем они отличаются?
restart;
with(linalg);
n := 14; j := 1.5+.1*n; k := j; l := k-.1; m := 5;
A := matrix([[j, .5*j, 0, .2*l, 0], [.5*j, j, .3*j, 0, .1*l], [0, .3*j, 10, -.3*j, .5*l], [.2*k, 0, -.3*j, j, -.1*j], [0, .1*k, .5*k, -.1*j, j]]);
b := vector([-j+0.5e-1*j*j, -.8*j+.1*j*j-0.2e-1*l*j, -10+0.3e-1*j*j-.1*l*j, -.2*k+.3*j+0.2e-1*j*j, 0.1e-1*k*j-.5*k-.2*j*j]);
for p to m do d := A[p, p];
for q from p to m do A[p, q] := A[p, q]/d end do;
b[p] := b[p]/d;
for i to m do d1 := A[i, p]/A[p, p];
if i <> p then
for q from p to m do A[i, q] := -d1*A[p, q]+A[i, q] end do;
b[i] := -d1*b[p]+b[i]:
end if: end do: end do;
print(A); print(b);

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

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Матрицы (метод Жордана-Гаусса)

в форуме Линейная и Абстрактная алгебра

xumuk

2

442

08 дек 2014, 15:44

СЛАУ методом Жордана-Гаусса

в форуме Линейная и Абстрактная алгебра

Pulya

2

606

07 май 2014, 15:27

Найти общее решение системы уравнений методом Жордана-Гаусса

в форуме Линейная и Абстрактная алгебра

maxn

4

874

03 июн 2014, 20:22

Метод Жордана

в форуме Информатика и Компьютерные науки

Beguwaya_za_vetrom

1

431

17 окт 2015, 21:59

Метод последовательного исключения неизвестных, метод Гаусса

в форуме Линейная и Абстрактная алгебра

Viktoriya9977

0

363

18 дек 2018, 17:14

Метод Гаусса

в форуме Линейная и Абстрактная алгебра

Normack

3

521

11 фев 2017, 20:07

Метод Гаусса

в форуме Линейная и Абстрактная алгебра

lizasimpson

1

393

10 дек 2014, 10:56

Метод Гаусса

в форуме Линейная и Абстрактная алгебра

vishenkaa

3

383

15 дек 2014, 21:44

Метод Гаусса с итерациями

в форуме Численные методы

ferewell

4

754

24 мар 2019, 18:21

Разреженная матрица. Метод Гаусса

в форуме Численные методы

dddsss

1

372

02 окт 2019, 18:17


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



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

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


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

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

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

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