Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/12: Рейтинг темы: голосов - 12, средняя оценка - 5.00
love01
0 / 0 / 0
Регистрация: 25.10.2012
Сообщений: 44
1

Составить программу для вычисления обратной матрицы для матрицы А размерностью 5х5

30.11.2012, 21:02. Просмотров 2108. Ответов 2
Метки нет (Все метки)

составить программу для вычисления обратной матрицы для матрицы А размерностью 5х5, выводится массив с помощью макросов в Word

Добавлено через 2 часа 24 минуты
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Sub массив()
'
' массив Макрос
'
'
Dim A() As String
    Dim At() As String
    n = InputBox("Введите размер матрицы")
    ReDim A(n, n) As String
    ReDim At(n, n) As String
    
    Selection.TypeText Text:="Обратная матрица:"
    Selection.TypeParagraph
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=n, NumColumns:= _
        n, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
    
    
    For i = 1 To n
      For j = 1 To n
    A(i, j) = InputBox("Введите значения " & i & " строки " & j & " столбца матрицы")
      Selection.TypeText Text:=A(i, j)
    Selection.MoveRight Unit:=wdCharacter, Count:=1
      Next j
    Next i
   
    
    Selection.MoveDown Unit:=wdLine, Count:=4
    Selection.TypeParagraph
    Selection.TypeText Text:="Обратная матрица:" 'АКЦЕНТ
    Selection.TypeParagraph
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=n, NumColumns:= _
        n, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
   
 
    Dim degree As Integer
  
    For i = 0 To degree - 1
        For j = 0 To degree - 1
                Randomize
                
     
   
    Selection.TypeText Text:=At(j, i)
    Selection.MoveRight Unit:=wdCharacter, Count:=1
       Next j
    Next i
    
    
    Dim CurPath As String                           ''''''' объявление переменной
    Set xlApp = CreateObject("Excel.Application")   ''''''' создаем новый объект эксель
    CurPath = Application.ActiveDocument.Path       ''''''' получаем путь к текущему документу, т.е. тому, из которого вы запускаете этот макрос например, C:\Folder
    With xlApp                                      ''''''' для сокращения кода, если первой стоит точка, то подразумевается что перед ней xlApp
    .Workbooks.Open (CurPath + "\массив.xlsx")        ''''''' открываем книгу эксель из папки \C:\Users\user\Desktop
    
      With .Sheets("Лист1")
      For i = 1 To n
        For j = 1 To n
      .Cells(i, j).Value = A(i, j)
        Next j
      Next i
      .Range("L1").Value = n
      End With
    
    .Visible = True                                 ''''''' делаем ее видимой на экране
    
    End With
 
    Application.WindowState = wdWindowStateMaximize
End Sub
помогите пожалуйста разобраться,не вычисляет обратную матрицу((найдите ошибку
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2012, 21:02
Ответы с готовыми решениями:

Программа для оределения обратной матрицы
Здравствуйте! Скажите , ни у кого не завалялось программки для определения обратной матрицы?...

Составить программу для нахождения номеров и значений наибольших элементов каждой строки матрицы H размером p=3;q=4
Ребята(((((( Помогите пожалуйста((((((((((( Не могу написать три программы(((((((((( Кто...

Составить программу вычисления сумы элементов каждого столбца матрицы У(5Х5). Элементы матрицы – целые числа
Составить программу вычисления сумы элементов каждого столбца матрицы У(5Х5). Элементы матрицы –...

Составить программу для вычисления элементов матрицы
Задача: Составить программу для вычисления элементов матрицы С={cij} являющейся суммой матриц...

Составить программу для вычисления элементов матрицы Y
Составить программу для вычисления элементов матрицы Y по известным элементам вектора X....

2
Памирыч
30.11.2012, 22:01
  #2
 Комментарий модератора 
love01, изучите редактор и используйте теги форматирования кода.
Это первое и последнее предупреждение.
1
Казанский
14911 / 6312 / 1721
Регистрация: 24.09.2011
Сообщений: 9,977
30.11.2012, 22:56 3
Цитата Сообщение от love01 Посмотреть сообщение
найдите ошибку
Пока негде искать - код не дописан!
Использовать Excel для вычисления обратной матрицы - хорошая идея. Пока в лист Excel только записывается массив, а вычислений нет.
Даю подсказку: в Excel не надо создавать или открывать книгу, можно использовать функцию обращения матрицы, которая работает и с диапазоном ячеек, и с массивом. Но массив должен быть числовой, а не строковый!
Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim a() As Double   'входной массив, может быть числового типа
                    'или Variant(), содержащий числа
Dim b()             'выходной массив, обязательно Variant()
 
'здесь заполнение массива а
 
With CreateObject("Excel.Application")
    b = .MInverse(a)
    .Quit
End With
Это все, что требуется сделать с Excel

Добавлено через 1 минуту
Это ваша тема? Вычисление обратной матрицы для матрица А размера 5х5
2
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.11.2012, 22:56

Составить программу для вычисления элементов матрицы
Помогите пожалуйста.Составить программу для вычисления элементов матрицы Y по известным элементам...

Составить программу для вычисления элементов матрицы
помогите составить программу для вычисления элементов матрицы на паскале

Составить программу для вычисления элементов матрицы
1.Составить программу для вычисления элементов матрицы Y по известным элементам вектора X...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.