Option Base 1
Dim x As Integer
Dim d(2, 2), n(2, 2), na As Single, ns As Single
Dim M1(2, 2) As Single
Dim M2(2, 2) As Single
Dim M3(2, 2) As Single
Dim M4(2, 2) As Single
Dim mO(2, 2) As Single
Dim mZ(2, 2) As Single '暂时存放数据的数组
Private Sub Form_Click()
Cls
FontSize = 20
FontBold = True
Print
'mo(2,2)=m1(2,2)*m2(2,2)
Dim i As Integer, j As Integer, k As Integer
i = 1: j = 1: k = 1
For i = 1 To 2
If i = 1 Then
'mo(1,2)正确
For j = 1 To 2
If j = 1 Then
'mo(1,1)正确
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = M1(i, k) * M2(k, i)
Case 2
mO(i, j) = mO(i, j) - M1(i, k) * M2(k, i)
End Select
Next k
Else
k = 0
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = M1(i, k) * M2(k, j)
Case 2
mO(i, j) = mO(i, j) + M1(i, k) * M2(k, j)
End Select
Next k
End If
Next j
Else
'mo(2,2)正确
For j = 1 To 2
If j = 1 Then
'mo(2,1)正确
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = M1(i, k) * M2(j, k)
Case 2
mO(i, j) = mO(i, j) + M1(i, k) * M2(k, j)
End Select
Next k
Else
k = 0
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = M1(i, k) * M2(k, j)
Case 2
mO(i, j) = M1(i, k) * M2(k, j) - mO(i, j)
End Select
Next k
End If
Next j
End If
Next i
For i = 1 To 2
For j = 1 To 2
Print mO(i, j); Space(4);
Next j
Print
Next i
Print
'mo(2,2)=mo(2,2)*m3(2,2)
mZ(1, 1) = mO(1, 1): mZ(1, 2) = mO(1, 2)
mZ(2, 1) = mO(2, 1): mZ(2, 2) = mO(2, 2)
i = 1: j = 1: k = 1
For i = 1 To 2
If i = 1 Then
'mo(1,2)正确
For j = 1 To 2
If j = 1 Then
'mo(1,1)正确
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = mZ(i, k) * M3(k, i)
Case 2
mO(i, j) = mO(i, j) - mZ(i, k) * M3(k, i)
End Select
Next k
Else
k = 0
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = mZ(i, k) * M3(k, j)
Case 2
mO(i, j) = mO(i, j) + mZ(i, k) * M3(k, j)
End Select
Next k
End If
Next j
Else
'mo(2,2)正确
For j = 1 To 2
If j = 1 Then
'mo(2,1)正确
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = mZ(i, k) * M3(j, k)
Case 2
mO(i, j) = mO(i, j) + mZ(i, k) * M3(k, j)
End Select
Next k
Else
k = 0
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = mZ(i, k) * M3(k, j)
Case 2
mO(i, j) = mZ(i, k) * M3(k, j) - mO(i, j)
End Select
Next k
End If
Next j
End If
Next i
For i = 1 To 2
For j = 1 To 2
Print mO(i, j); Space(4);
Next j
Print
Next i
Print
'mo(2,2)=mo(2,2)*m4(2,2)
mZ(1, 1) = mO(1, 1): mZ(1, 2) = mO(1, 2)
mZ(2, 1) = mO(2, 1): mZ(2, 2) = mO(2, 2)
i = 1: j = 1: k = 1
For i = 1 To 2
If i = 1 Then
'mo(1,2)正确
For j = 1 To 2
If j = 1 Then
'mo(1,1)正确
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = mZ(i, k) * M4(k, i)
Case 2
mO(i, j) = mO(i, j) - mZ(i, k) * M4(k, i)
End Select
Next k
Else
k = 0
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = mZ(i, k) * M4(k, j)
Case 2
mO(i, j) = mO(i, j) + mZ(i, k) * M4(k, j)
End Select
Next k
End If
Next j
Else
'mo(2,2)正确
For j = 1 To 2
If j = 1 Then
'mo(2,1)正确
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = mZ(i, k) * M4(j, k)
Case 2
mO(i, j) = mO(i, j) + mZ(i, k) * M4(k, j)
End Select
Next k
Else
k = 0
For k = 1 To 2
Select Case k
Case 1
mO(i, j) = mZ(i, k) * M4(k, j)
Case 2
mO(i, j) = mZ(i, k) * M4(k, j) - mO(i, j)
End Select
Next k
End If
Next j
End If
Next i
For i = 1 To 2
For j = 1 To 2
Print mO(i, j); Space(4);
Next j
Print
Next i
End Sub
Private Sub Form_Load()
x = InputBox("请输入X的值：")
d(1, 1) = 1326。
1: d(1, 2) = 1146。23
d(2, 1) = 1543。5: d(2, 2) = 1231。6
n(1, 1) = 2。125: n(1, 2) = 1。46
n(2, 1) = 2。
125: n(2, 2) = 1。46
na = 1: ns = 1。
457
M1(1, 1) = Cos(2 * n(1, 1) * d(1, 1) / x)
M1(1, 2) = Sin(2 * n(1, 1) * d(1, 1) / x)
M1(2, 1) = Sin(2 * n(1, 1) * d(1, 1) / x)
M1(2, 2) = Cos(2 * n(1, 1) * d(1, 1) / x)
M2(1, 1) = Cos(2 * n(1, 2) * d(1, 2) / x)
M2(1, 2) = Sin(2 * n(1, 2) * d(1, 2) / x)
M2(2, 1) = Sin(2 * n(1, 2) * d(1, 2) / x)
M2(2, 2) = Cos(2 * n(1, 2) * d(1, 2) / x)
M3(1, 1) = Cos(2 * n(2, 1) * d(2, 1) / x)
M3(1, 2) = Sin(2 * n(2, 1) * d(2, 1) / x)
M3(2, 1) = Sin(2 * n(2, 1) * d(2, 1) / x)
M3(2, 2) = Cos(2 * n(2, 1) * d(2, 1) / x)
M4(1, 1) = Cos(2 * n(2, 2) * d(2, 2) / x)
M4(1, 2) = Sin(2 * n(2, 2) * d(2, 2) / x)
M4(2, 1) = Sin(2 * n(2, 2) * d(2, 2) / x)
M4(2, 2) = Cos(2 * n(2, 2) * d(2, 2) / x)
End Sub。
答：矩阵计算是个很大的问题，这方面的书你可以参考《数值线性代数》，或者复旦大学屠伯埙写的《高等代数》，这本书是从矩阵计算的角度去写的，可以为矩阵计算打下很好的基础。详情>>
答：我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛，你可以自己注册一个用户进去看看，你可以和他们交流也可以寻求他们的帮助，我想没有你解决不了的问题，...详情>>
答：格式化文本区域的段落标记，用于规定文本和层的属性和位置等。比如： 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>
