Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2016, 13:30   #1
ZukaCuca
Новичок
Джуниор
 
Регистрация: 03.12.2016
Сообщений: 1
По умолчанию как решить матрицу

у меня задана матрица А(5,6) и надо ее решить одним из методов : краммера,гаусса,матричным.
вот мой код :
PHP код:
Private Sub CommandButton8_Click() ' Система уравнений 
Dim i As Integer 
Dim j As Integer 
Dim d As Double 
Dim R As String 
Dim M() 
Dim X() 
If WorksheetFunction.CountA(Range("A1:E5")) = 0 Then Exit Sub 
Range(Cells(11, 1), Cells(15, 1)).ClearContents 
For i = 1 To 5 
For j = 1 To 6 
Cells(10 + i, 1) = Cells(10 + i, 1) & Cells(i, j).Value & "x" & j & " + " 
Next j 
Cells(10 + i, 1) = Left(Cells(10 + i, 1).Value, Len(Cells(10 + i, 1).Value) - 2) & " = " & Cells(i, 6).Value 
Next i 
d = WorksheetFunction.MDeterm(Range("A1:E5").Value) 
If d <> 0 Then 
M = WorksheetFunction.MInverse(Range("A1:E5").Value) 
X = WorksheetFunction.MMult(WorksheetFunction.MInverse(Range("A1:E5").Value), Range("F1:F5").Value) 
R = "" 
For i = 1 To 5 
R = R & "x" & i & " = " & X(i, 1) & vbLf 
Next i 
MsgBox (R) 
Else 
MsgBox ("Система не имеет решения") 
End If 
End Sub 
программа иногда ошибается при вычислениях. подправьте код,чтобы она правильно вычисляла,и писала, когда матрица не имеет решения,а когда имеет множество решений
ZukaCuca вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
решить матрицу в VBA Stepan2000 Microsoft Office Excel 6 18.12.2012 15:00
решить матрицу lalalalala Microsoft Office Excel 4 03.05.2012 15:21
Решить одномерную матрицу Юююлия Помощь студентам 3 18.10.2011 18:23
как умножить матрицу(3на4) на матрицу(4на3) в делфи? Ромка678 Помощь студентам 1 28.11.2009 08:01
Объясните пожалуйста как можно считать значения в этом файле в вектор, 4 -ую матрицу, 6-ую матрицу ciaonataha Помощь студентам 1 30.03.2009 20:57