Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:TXT / подпрограммы
.txt Sub matrumn(n%, m%, p%, A!(), b!(), C!())
Dim i%, j%, l%, S!
For i = 1 To n: For j = 1 To p
S = 0
For l = 1 To m
S = S + A(i, l) * b(l, j)
Next l
C(i, j) = S
Next j: Next i
End Sub
Sub TRANSP(n%, m%, B!%(), BT!%())
Dim i%, j%
for i=1 to m
for j=1 to n
BT(i, j)=B(j, i)
next j: next i
End Sub
Function Norma(n%, m%, A!()) As Single
Dim i%, j%
Norma = 0
For i = 1 To n: For j = 1 To m
Norma = Norma + A(i, j) ^ 2
Next j: Next i
Norma = Sqr(Norma): End Function
Dim i%, j%, l%, S!
For i = 1 To n: For j = 1 To p
S = 0
For l = 1 To m
S = S + A(i, l) * b(l, j)
Next l
C(i, j) = S
Next j: Next i
End Sub
Sub TRANSP(n%, m%, B!%(), BT!%())
Dim i%, j%
for i=1 to m
for j=1 to n
BT(i, j)=B(j, i)
next j: next i
End Sub
Function Norma(n%, m%, A!()) As Single
Dim i%, j%
Norma = 0
For i = 1 To n: For j = 1 To m
Norma = Norma + A(i, j) ^ 2
Next j: Next i
Norma = Sqr(Norma): End Function
Соседние файлы в папке TXT