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

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

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

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




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Метод Жордана - Гаусса
СообщениеДобавлено: 22 сен 2018, 17:05 
Не в сети
Одарённый
Зарегистрирован:
07 ноя 2016, 10:30
Сообщений: 148
Cпасибо сказано: 24
Спасибо получено:
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

216

08 дек 2014, 15:44

Жордана-Гаусса

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

KirillKV

1

633

26 дек 2010, 17:03

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

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

Pulya

2

358

07 май 2014, 15:27

помогите мне решить системуметодом Жордана гаусса

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

natalya

6

435

02 окт 2011, 16:27

Решить систему методом Жордана-Гаусса

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

Anastasia123

2

597

31 янв 2011, 18:57

Решить систему с 4 неизвестными методом Жордана-Гаусса

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

Kogan

3

1698

27 ноя 2010, 02:32

Пользуясь методом Жордана-Гаусса, решить систему уравнений

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

uki13

4

1361

19 май 2011, 07:01

Решить систему методом Жордана-Гаусса и сделать проверку

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

Anny_

1

1169

22 ноя 2010, 12:51

Решить систему линейных уравнений методом Жордана-Гаусса

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

nastya1991

3

1031

06 дек 2011, 00:39

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

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

lili89

9

3096

21 ноя 2010, 13:13


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



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

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


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

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

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

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