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

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

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

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

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




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

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

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

Pulya

2

341

07 май 2014, 16:27

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

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

maxn

4

560

03 июн 2014, 21:22

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

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

Beguwaya_za_vetrom

1

242

17 окт 2015, 22:59

Метод гаусса

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

helpmeplz

1

189

09 дек 2012, 12:27

Метод Гаусса

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

sasha20751

4

303

01 дек 2012, 16:50

Метод Гаусса

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

Spoke163

0

306

03 мар 2013, 15:34

Метод Гаусса

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

vishenkaa

3

240

15 дек 2014, 22:44

Метод Гаусса

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

SER

2

245

12 янв 2013, 23:00

Метод Гаусса

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

lizasimpson

1

221

10 дек 2014, 11:56


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



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

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


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

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

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

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