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

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

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

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

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




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

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

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

xumuk

2

215

08 дек 2014, 15:44

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

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

KirillKV

1

630

26 дек 2010, 17:03

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

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

Pulya

2

341

07 май 2014, 15:27

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

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

natalya

6

426

02 окт 2011, 16:27

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

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

Anastasia123

2

592

31 янв 2011, 18:57

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

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

Kogan

3

1667

27 ноя 2010, 02:32

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

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

Anny_

1

1156

22 ноя 2010, 12:51

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

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

lili89

9

3040

21 ноя 2010, 13:13

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

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

uki13

4

1316

19 май 2011, 07:01

Решение СЛАУ методом Жордана-Гаусса - нужна помощь

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

Lorein

8

3973

05 май 2010, 13:26


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



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

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


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

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

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

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