Создать модуль в VBA Ecxel, в котором написать вывод произвольной матрицы на лист Ecxel

@FedorF · Регистрация: 11.06.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер. Помогите, пожалуйста. Нужно создать модуль в VBA Ecxel, в котором написать вывод произвольной матрицы на лист Ecxel, где размерность задается пользователем, и сумма элементов каждой строки матрицы равна 1, а значения каждого элемента должны быть от 0 до 1.

@Catstail · 11.06.2012, 18:06

1. Создаёшь книгу Excel
2. Добавляешь пустой модуль.
3. В модуль заносишь следующий код:

Visual Basic

Sub CreaMatrix()
 
Dim Matr() As Double
 
      n%=Val(InputBox("Введите размерность квадратной матрицы"))
      If n%<=0 Then Exit Sub
 
      '::: Создание матрицы
 
      Redim Matr(1 to n%, 1 to n%) As Double
 
      Randomize Second(Time)
 
      For i%=1 to n%
           For j%=1 to n%
                Matr(i%,j%)=Rnd()
           Next j%
     Next i%
 
     '::: Нормировка строк
 
     For i%=1 to n%
          S#=0
          For j%=1 to n%
               S#=S#+Matr(i%,j%)
          Next j%
          For j%=1 to n%
               Matr(i%,j%)=Matr(i%,j%)/S#
          Next j%
    Next i%
 
    '::: Вывод
 
    For i%=1 to n%
         For j%=1 to n%
              ThisWorkBook.Sheets(1).Cells(i%,j%).Value=Matr(i%,j%)
         Next j%
    Next i%
       
 
End Sub

4. Запускаешь эту процедуру...

@FedorF · 12.06.2012, 18:14 **[ТС]**

Спасибо Вам большое! Вы мне очень помогли)

Добавлено через 22 часа 49 минут
Здравствуйте, а можно еще спросить? Теперь нужно сделать, чтобы когда я создаю вторую матрицу, например, первая удалялась. Я знаю, что нужно использовать функцию Cells.Clear, но мне нужно чтобы не вся страница очищалась, а только те ячейки, где была матрица. Заранее спасибо)

@Catstail · 12.06.2012, 18:20

Это просто:

1. Способ медленный:

Visual Basic

    For i%=1 to n%
         For j%=1 to n%
              ThisWorkBook.Sheets(1).Cells(i%,j%).Value=""
         Next j%
    Next i%

2. Способ быстрый:

Visual Basic

1
2
3

ThisWorkBook.Sheets(1).Range(Cells(1,1),Cells(n%,n%)).Select
Selection.ClearContents
Cells(1,1).Select

@ikki · 12.06.2012, 18:21

Visual Basic

1	ThisWorkBook.Sheets(1).[a1].CurrentRegion.Clear

@FedorF · 12.06.2012, 19:21 **[ТС]**

Спасибо ещё раз!

@FedorF · 02.08.2012, 11:18 **[ТС]**

Здравствуйте! Помогите, пожалуйста, еще раз. Я задаю размерность матрицы, вывожу ее. Теперь мне нужно эту матрицу умножить на саму себя. А затем полученную матрицу умножить на исходную. И так далее. Помогите, пожалуйста!

@Казанский · 02.08.2012, 11:26

Перемножение матриц
Возведение матрицы в степень, заданной массивом

@FedorF · 08.08.2012, 12:12 **[ТС]**

А что нужно изменить в коде, чтобы создать одномерный массив, сумма элементов которого была равна 1? Заранее спасибо!

Visual Basic

Sub CreaMatrix()
 
Dim Matr() As Double
 
      n%=Val(InputBox("Введите размерность массива"))
      If n%<=0 Then Exit Sub
 
      '::: Создание матрицы
 
      Redim Matr(1 to n%) As Double
 
      Randomize Second(Time)
 
      For i%=1 to n%
   
                Matr(i%)=Rnd()
 
     Next i%
 
     '::: Нормировка строк
 
     For i%=1 to n%
          S#=0
               S#=S#+Matr(i%)
               Matr(i%)=Matr(i%)/S#
 
    Next i%
 
    '::: Вывод
 
    For i%=1 to n%
              ThisWorkBook.Sheets(1).Cells(i%).Value=Matr(i%)
    Next i%
       
End Sub

Посмотрите, пожалуйста, так правильно?

@Catstail · 08.08.2012, 16:12

Мне кажется, да - правильно! Единственно, нужно поправить блок вывода:

Visual Basic

    '::: Вывод
    For i%=1 to n%
         ThisWorkBook.Sheets(1).Cells(i%,1).Value=Matr(i%)  '::: Вывод в первый столбец
    Next i%

А потом все легко проверить: просто просуммировать числа в 1-м столбце. Должна получиться единица.

@FedorF · 08.08.2012, 18:26 **[ТС]**

Ага, спасибо. А в нормировке нет ошибки? А то выводятся все единицы.

Добавлено через 8 минут

@Catstail · 08.08.2012, 19:02

Ой, проглядел... Нормировка должна быть такой:

Visual Basic

     '::: Нормировка
 
     S#=0
     For i%=1 to n%
          S#=S#+Matr(i%)
     Next i%
     For i%=1 to n%
          Matr(i%)=Matr(i%)/S#
     Next i%

@FedorF · 08.08.2012, 20:12 **[ТС]**

Спасибо, я уже исправила! А можно, я еще поспрашиваю, если будут вопросы?

@Catstail · 08.08.2012, 20:36

Конечно, пожалуйста!

@FedorF · 09.08.2012, 08:06 **[ТС]**

Доброе утро! А теперь нужно умножить этот вектор-строку на квадратную матрицу (размерности у них одинаковые). Для этого нужно умножить каждый элемент вектора-строки на соответствующий ему по порядку элемент i-того столбца матрицы и просуммировать эти произведения. И получим вектор

Visual Basic

Dim dSum As Double
ReDim C (1 to n)
 
dSum = 0
For i=1 To n
  dSum = dSum + Vec(i) * Matr(i, j)
Next i
C(i) = dSum

Так верно будет?

@Catstail · 09.08.2012, 09:55

Нет, не совсем. Запомните на дальнейшее: матричное умножение - это минимум два цикла:

Visual Basic

'::: Вектор-строка V умножается на матрицу M
'::: и получается вектор-строка R
 
Sub mulM(V() as double, M() as double, R() As double)
      n%=UBound(V,1)
      For i%=1 to n%
           R(i%)=0
           For j%=1 to n%
                R(i%)=R(i%)+V(j%)*R(j%,i%)
           Next j%
      Next i%
End Sub

@FedorF · 09.08.2012, 17:43 **[ТС]**

Спасибо большое!
А вы же функцию написали? Чтобы ее вызвать нужно использовать Call функция(список параметров)?
Это у меня получилось. А еще хочу функцию написать, чтобы полученный вектор умножался на ту же матрицу.

@Catstail · 10.08.2012, 09:15

Вот как это можно оформить:

Visual Basic

Sub Main
Dim M(1 to ..., 1 to ...) as Double ' вместо многоточий - нужная размерность
Dim V1(1 to ...) as Double
Dim V2(1 to ...) as Double
Dim V3(1 to ...) as Double
 
     '::: Заполняем матрицу M и вектор V1 ...
 
     ''' ......
 
     mulM V1(),M(),V2()    '::: V1*M -> V2
     mulM V2(),M(),V3()    '::: V2*M -> V3
 
End Sub

Ключевое слово "Call" писать не обязательно.

@FedorF · 10.08.2012, 15:25 **[ТС]**

Спасибо Вам за помощь! Я сделала, как вы написали, только ошибка вот в этом месте, хотя я n% объявила как глобальную переменную:

Visual Basic

1
2
3

Dim V1(1 to n%) as Double
Dim V2(1 to n%) as Double
Dim V3(1 to n%) as Double

Посмотрите, пожалуйста, если Вам не трудно.

@Catstail · 10.08.2012, 19:18

Конечно, так нельзя. Я-то имел в виду, что массивы имеют постоянные границы. Если хотите переменные, то:

Visual Basic

Sub Main
 
Dim M() as Double 
Dim V1() as Double
Dim V2() as Double
Dim V3() as Double
 
     ' n% должна быть глобальной
 
     ReDim M(1 to n%, 1 to n%) as Double 
     ReDim V1(1 to n%) as Double
     ReDim V2(1 to n%) as Double
     ReDim V3(1 to n%) as Double
 
     '::: Заполняем матрицу M и вектор V1 ...
 
     ''' ......
 
     mulM V1(),M(),V2()    '::: V1*M -> V2
     mulM V2(),M(),V3()    '::: V2*M -> V3
 
End Sub

@FedorF 56 / 1 / 1 Регистрация: 11.06.2012 Сообщений: 51
	08.08.2012, 20:12 [ТС]	13
	Спасибо, я уже исправила! А можно, я еще поспрашиваю, если будут вопросы? 0

@FedorF 56 / 1 / 1 Регистрация: 11.06.2012 Сообщений: 51
	12.06.2012, 18:14 [ТС]	3
	Спасибо Вам большое! Вы мне очень помогли) Добавлено через 22 часа 49 минут Здравствуйте, а можно еще спросить? Теперь нужно сделать, чтобы когда я создаю вторую матрицу, например, первая удалялась. Я знаю, что нужно использовать функцию Cells.Clear, но мне нужно чтобы не вся страница очищалась, а только те ячейки, где была матрица. Заранее спасибо) 0

@FedorF 56 / 1 / 1 Регистрация: 11.06.2012 Сообщений: 51
	12.06.2012, 19:21 [ТС]	6
	Спасибо ещё раз! 0

@FedorF 56 / 1 / 1 Регистрация: 11.06.2012 Сообщений: 51
	02.08.2012, 11:18 [ТС]	7
	Здравствуйте! Помогите, пожалуйста, еще раз. Я задаю размерность матрицы, вывожу ее. Теперь мне нужно эту матрицу умножить на саму себя. А затем полученную матрицу умножить на исходную. И так далее. Помогите, пожалуйста! 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	02.08.2012, 11:26	8
	Перемножение матриц Возведение матрицы в степень, заданной массивом 1

@FedorF 56 / 1 / 1 Регистрация: 11.06.2012 Сообщений: 51
	08.08.2012, 18:26 [ТС]	11
	Ага, спасибо. А в нормировке нет ошибки? А то выводятся все единицы. Добавлено через 8 минут 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,640 Записей в блоге: 13
	08.08.2012, 20:36	14
	Конечно, пожалуйста! 1

@FedorF 56 / 1 / 1 Регистрация: 11.06.2012 Сообщений: 51
	09.08.2012, 17:43 [ТС]	17
	Спасибо большое! А вы же функцию написали? Чтобы ее вызвать нужно использовать Call функция(список параметров)? Это у меня получилось. А еще хочу функцию написать, чтобы полученный вектор умножался на ту же матрицу. 0