Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Решить систему линейных уравнений вида АХ=В
Для простоты примем, что количество уравнений не будет более девяти. Элементы матриц А я В заполним случайными вещественными числами. Тогда, очевидно, матрица А не будет вырождена. Чтобы получить неизвестные переменные вектора X, необходимо преобразовать систему к следующему виду: Х=АЛВ, то есть получить обратную матрицу А, а затем умножить ее на вектор В.
Класс WorkSheetFunction содержит следующие функции для работы с матрицами: ММи1т.(ЛД) - осуществляет перемножение матриц А к В, MInverse(4) - находит обратную (А') матрицу, Transposed) - осуществляет транспонирование (Аг) матрицы, MDeterm(/l) - вычисляет определитель матрицы.
Private Sub Form_Load()
Caption = "Работа с матрицами"
CommandlCaption = "Решить АХ=В"
Textl =""
Text2 =""
Text3 =""
End Sub
Private Sub Command1_Click()
Dim a(10, 10) As Double, b(10) As Double, s As String, p As Double Dim ObjExcel As Object
Set ObjExcel = CreateObjectfExcel. Application") 'Создать объект COM n% = 1при1Вох("Введите порядок системы ЛУ, не более 9") 'Задаем свойства рабочей книги и листа
With ObjExcel
.WorkBooks.Add 'Создать Книгу
.ActiveSheet.Name = "Матрицы" 'Присвоить имя для листа - Матрицы.Visible = False 'Сделать Excel невидимым
.DisplayAlerts = False 'Запретить отображение окна сохранения
End With
For i% = 1 To n 'Циклы формирования элементов матриц и
For j% = 1 То п 'отображения их в ячейках Листа (свойство Cells)
a(i,j) = Rnd*10 + 1
s = s + Format(a(i, j), "#0.000") + vbTab
ObjExcel.Cells(i, j) = a(i, j) Next j
s = s + vbCrLf
Next i
Textl = s 'Отображение элементов матрицы А в поле Textl
s =""
For i% = 1 To n
b(i) = Rnd*10 + 1
s = s + Format(b(i), "#0.000") + vbCrLf
ObjExcel.Cells(i, 10) = b(i) Next i
'Отображение элементов матрицы В в поле Text3 Text3 = s With ObjExcel
'Выводим элементы вектора X, начиная с ячейки А10 и вниз.
'Объект Range задает диапазон ячеек, а его свойство Cells - адрес
'ячейки в формате R1C1 (то есть: R-row, С -column). Свойство Value -
'устанавливает или возвращает значение в ячейках диапазона..Range(.Cells(10, 1),.Cells(9 + n, 1)).Value =.MMult(.MInverse(.Range _
(.Cells(1, 1),,Cells(n, n))),.Range(.Cells(1, 10),.Cells(n, 10))) End With s ="" For i% = 1 To n
'В цикле считываем значения из ячеек и помещаем их в строку р = ObjExcel.Cells(10 + i -1, 1).Value s = s + Format(p, "#0.000") + vbCrLf Next i
'Отображение элементов вектора X в поле Text2 Text2 = s ObjExcel.Quit Set ObjExcel = Nothing End Su b
Дата публикования: 2014-12-28; Прочитано: 462 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!