Курсовая работа: Статистические модели макроэкономики
write matr (B1,’Z’,2,2);
write vec (x,’x’.2);
write vec(x1,’y’,2);
end.
{Окончание программы}
1.Процедура ввода вектора
| Ввод вектора X размерностью n | |
| Для I от n до n-1 с шагом 1 делать | |
| Ввести значение элемента массива X[i] | |
2.Процедура вывода вектора
| Вывод вектора X размерностью n | |
| Для i от 0 до n-1 с шагом 1 делать | |
| Вывести вектор X[i;j] | |
3.Процедура ввода матрицы
| Ввод размерности n,m ввод элементов массива Y[i;j] | ||
| Для i от 0 до n-1 с шагом 1 делать | ||
| Для i от 0 до m-1 с шагом 1 делать | ||
| Ввести значение элемента массива Y[i;j] | ||
4.Процедура вывода матрицы
| Вывод массива Y[i;j] размерностью n,m | ||
| Для i от 0 до n-1 с шагом 1 делать | ||
| Для i от 0 до m-1 с шагом 1 делать | ||
| Вывести массив Y[i;j] | ||
5.Процедура вывода единичной матрицы
| Вывод массива E[i;j] размерностью n | |
| Для i от 0 до n-1 с шагом 1 делать | |
| Для i от 0 до m-1 с шагом 1 делать | |
|
Да Нет | |
 E [I;j] = 1 F[j;j]=0 | |
| Вывести матрицу E [i;j] | |
I=j6.Процедура умножения вектора на матрицу
| Для i от 0 до n-1 с шагом 1 делать | ||
| Для i от 0 до m-1 с шагом 1 делать | ||
| C[i;j]:=a[i;j]-b[i;j] | ||
7.Процедура умножения вектора на матрицу
| Для i от 0 до n-1 с шагом 1 делать | |
| X[i;j]:=0 | |
| Для i от 0 до n-1 с шагом 1 делать | |
| X[j]:=x[j]+c[i]*b[i;j] | |
8.Процедура образования матрицы
| А=ais;n:=n-1 | ||
| Для k от 0 до n с шагом 1 делать | ||
| Для i от 0 до nс шагом 1 делать | ||
|
j≠k true | ||
| Ap[k;j]:=-a[k;j]/a[k;k] | ||
| Для I от 1 до n с шагом 1 делать | ||
|
i≠k true | ||
| Ap[i;k]:=A [i;k]/A[k;k] | ||
| Для i от 0 до n с шагом 1 делать | ||
| Для j от 0 до nс шагом 1 делать | ||
|
i≠k;j≠k true | ||
| AP[i;j]:=a[i;j]-a[i;j]*a[k;j]/a[k;k] | ||
| AP[k;k]:=1/a[k;k] | ||
| Q:=AP | ||
Расчеты при вводе значений
При добавлении:
B[0,0]=4.6154
B[0,1]=1,0462
B[1,0]=3,0769
B[1,1]=2,0308
Вывести матрицу Z размера :n=2,m=2
Z[0,0]=2,400