 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
X1 X2 X3 X4
Отчет о лабораторной работе №1 по дисциплине «Вычислительные методы в строительстве»
Проверил: Выполнил:
Преподаватель ст.гр. СТг-222
Мезенин В.Т. Брызгалов Р.В.
шифр- 3333(сопромат)
шифр-87
г. Екатеринбург 2014 г.
Тема. Решение системы линейных алгебраических уравнений (СЛАУ) методом Гаусса.
Цель. Изучить алгоритм метода Гаусса, ознакомиться с ленточной формой хранения матриц и научиться использовать готовые подпрограммы для решения СЛАУ.
Задание. Используя подпрограмму bands, решить систему
A*X= B,
где А - заданная матрица коэффициентов при неизвестных; В - заданный вектор свободных членов; Х - вектор неизвестных – решение системы.
Исходные данные:
| -15.660 | 201.840 | 0.000 | 0.000 | 9.542 | ||
| -446.745 | -361.050 | -348.000 | 0.000 | 17.940 | ||
| А= | 0.000 | -2.175 | 43.500 | 18.879 | В= | 3.940 |
| 0.000 | 0.000 | 263.610 | 146.160 | -12.140 |
На рисунке представлена матрица из 4 строк и 4 столбцов, ширина ленты М=1. В ленточной форме хранения матрица имеет 4 строки и 3 столбца.
В среднем столбце расположены элементы главной диагонали.
X1 X2 X3 X4
| -15.66 | 201.84 | ||
| -446.745 | -361.05 | -348 | |
| -2.145 | 43.5 | 18.879 | |
| 263.61 | 146.16 |
| А - Матрица коэффициентов при неизвестных, хранимая в ленточной форме |
| -15.66 | 201.84 | |
| -446.745 | -361.05 | -348 |
| -2.145 | 43.5 | 18.879 |
| 263.61 | 146.16 |
Управляющая программа:
Sub GAUSS()
n = Cells(3, 1).Value
m = Cells(4, 1).Value
ReDim A(n, 2 * m), x(n), b(n)
For i = 1 To n
For j = 0 To m * 2
A(i, j) = Cells(i + 7, j + 1).Value
Next j
b(i) = Cells(15 + i, 1).Value
Next i
Call bands(n, m, A(), b(), x())
For i = 1 To n
Cells(15 + i, 2) = x(i)
Next i
End Sub
Вывод: изучил алгоритм метода Гаусса, познакомился с ленточной формой хранения матриц и научился использовать готовые подпрограммы для решения СЛАУ.
Поиск по сайту: