UC知道离散数学写VB程序改怎么写
来源：百度知道 编辑：UC知道 时间：2024/06/28 13:00:42
例如在程序输入这样一个二元关系 A = { a , b, c , d , e , f } , R = { < a ,b > , < a , c > , < b, c > , < d , c > , < e , c > , <e , d > , < e , e >} ，然后通过编程语言把它转化成关系矩阵。如同下面二元关系转化成的矩阵。就和qq那个界面有相似输入qq号码qq密码点确定，我们的任务是输入二元关系点确定出现所输入二元关系的矩阵。
M =
0 1 1 0 0 0
0 0 1 0 0 0
0 0 0 0 0 0
0 0 1 0 0 0
0 0 1 1 0 0
0 0 0 0 0 1
转化成关系矩阵以后在通过已有的关系矩阵的性质可以判定它具有什么样的性质。
性质包括对称性，反对称，传递等。
（编程语言可以用vb ,Delphi, c语言）
关键问题在于如何把输入的二元关系转换成矩阵
M =
0 1 1 0 0 0
0 0 1 0 0 0
0 0 0 0 0 0
0 0 1 0 0 0
0 0 1 1 0 0
0 0 0 0 0 1
转化成关系矩阵以后在通过已有的关系矩阵的性质可以判定它具有什么样的性质。
性质包括对称性，反对称，传递等。
（编程语言可以用vb ,Delphi, c语言）
关键问题在于如何把输入的二元关系转换成矩阵
写了一个类。。。。
==========调用方法
Private Sub Command1_Click()
Dim sElement As String
sElement = "{ a , b, c , d , e , f }"
Dim sRelate As String
sRelate = "{ < a ,b > , < a , c > , < b, c > , < d , c > , < e , c > , <e , d > , < e , e >} "
sElement = Replace(sElement, " ", "")
sRelate = Replace(sRelate, " ", "")
Dim vMatrix As Variant
Dim oRM As New RMAdapter
vMatrix = oRM.R2M(sElement, sRelate)
End Sub
RMAdapter.cls======================================
Option Explicit
Private mMatrix As Variant
Private mElement As Variant
Private mRelation As Variant
Public Function R2M(ByVal psElement As String, ByVal psRelation As String) As Variant
Dim bRet As Boolean