📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BackColor = &H80000013&
Caption = "判别分析与聚类分析"
ClientHeight = 8040
ClientLeft = 165
ClientTop = 555
ClientWidth = 10680
FillColor = &H00C0FFFF&
ForeColor = &H0080FFFF&
Icon = "Form1.frx":0000
LinkTopic = "Form1"
NegotiateMenus = 0 'False
ScaleHeight = 8040
ScaleWidth = 10680
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
BackColor = &H80000013&
Caption = "软件简介"
Height = 3135
Left = 3720
TabIndex = 11
Top = 4440
Width = 6615
Begin VB.Label Label4
BackColor = &H80000013&
Caption = " 在""操作""选项框中选择分析方法即可进入该方法分析界面,按提式输入您要处理的数据及相关参数,即可得到按该方法分析得到的分析结果。"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 855
Left = 240
TabIndex = 16
Top = 1250
Width = 6255
End
Begin VB.Label Label3
BackColor = &H80000013&
Caption = " 首先在“分析方法”选项框中选择您要使用的分析方法，在方法简介中您可以了解到该方法的相关信息，并确定您选择的方法准确。"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 240
TabIndex = 15
Top = 360
Width = 6255
End
Begin VB.Label Label2
BackColor = &H80000013&
Caption = "温馨提示："
Height = 375
Left = 240
TabIndex = 14
Top = 2400
Width = 1095
End
Begin VB.Label Label1
BackColor = &H80000013&
Caption = " 欢迎使用本软件，在您使用之前请详细阅读使用说明及技术资料，在确定软件分析方法在实验可控制的范围内使用！"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 1560
TabIndex = 13
Top = 2280
Width = 4935
End
End
Begin VB.Frame Frame4
BackColor = &H80000013&
Caption = "操作"
Height = 3015
Left = 600
TabIndex = 7
Top = 4440
Width = 2775
Begin VB.CommandButton Command2
Caption = "用户手册"
Height = 495
Index = 4
Left = 600
TabIndex = 10
Top = 1260
Width = 1695
End
Begin VB.CommandButton Command3
Caption = "退 出"
Height = 495
Index = 3
Left = 600
TabIndex = 9
Top = 2280
Width = 1695
End
Begin VB.CommandButton Command1
BackColor = &H00C0FFFF&
Caption = "方法分析"
Height = 495
Index = 0
Left = 600
MaskColor = &H00C0FFFF&
TabIndex = 8
Top = 240
UseMaskColor = -1 'True
Width = 1695
End
End
Begin VB.Frame Frame3
BackColor = &H80000013&
Caption = "方法简介"
Height = 4095
Left = 3720
TabIndex = 6
Top = 120
Width = 6615
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3735
Left = 120
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 12
Top = 240
Width = 6375
End
End
Begin VB.Frame Frame2
BackColor = &H80000013&
Caption = "分析方法"
Height = 3735
Left = 600
TabIndex = 0
Top = 240
Width = 2775
Begin VB.OptionButton Option1
BackColor = &H80000013&
Caption = "费希尔判别分析"
Height = 495
Index = 5
Left = 360
TabIndex = 5
Top = 1020
Width = 1935
End
Begin VB.OptionButton Option1
BackColor = &H80000013&
Caption = "贝叶斯判别分析"
Height = 495
Index = 4
Left = 360
TabIndex = 4
Top = 1680
Width = 1935
End
Begin VB.OptionButton Option1
BackColor = &H80000013&
Caption = "逐步判别分析"
Height = 495
Index = 3
Left = 360
TabIndex = 3
Top = 2340
Width = 1935
End
Begin VB.OptionButton Option1
BackColor = &H80000013&
Caption = "聚类判别分析"
Height = 495
Index = 2
Left = 360
TabIndex = 2
Top = 3000
Width = 1935
End
Begin VB.OptionButton Option1
BackColor = &H80000013&
Caption = "距离判别分析"
Height = 495
Index = 0
Left = 360
TabIndex = 1
Top = 360
Width = 1935
End
End
Begin VB.Menu e1
Caption = "距离判别分析"
End
Begin VB.Menu e2
Caption = "费希尔(Fisher)判别分析"
End
Begin VB.Menu e3
Caption = "贝叶斯判别分析"
End
Begin VB.Menu e4
Caption = "逐步判别分析"
End
Begin VB.Menu e5
Caption = "聚类判别分析"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click(Index As Integer)
Shell "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe .\判别分析与聚类分析用户使用手册.pdf"
' "软件使用说明.doc"
End Sub
Private Sub Command3_Click(Index As Integer)
Unload Me
End Sub
Private Sub e1_Click()
Form02.Show
End Sub
Private Sub e2_Click()
Form03.Show
End Sub
Private Sub e3_Click()
Form05.Show
End Sub
Private Sub e4_Click()
Form04.Show
End Sub
Private Sub e5_Click()
Form01.Show
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Text1.Text = " 所谓距离判别是以待判样品到各总体的距离远近为判据的一种直观判别方法。其判别规则往往是比较各类马氏距离之间的大小，如果在各类样品中谁的马氏距离最小，则判别待判样品属于马氏距离最小的那一类，当总体是两类总体时也可以通过求解判别函数来进行判别。"
Case 2
Text1.Text = " 聚类分析是根据“物以类聚”的道理，对样品或指标进行分类的一种多元统计分析方法。他们讨论的对象是一大堆样品。要求能合理地按他们各自的特性来进行合理的分类，这里没有任何模式可供参考或依据，也就是说在没有先验知识的情况下进行的，聚类分析的基本程序时，首先根据一批样品的多个观测指标，具体地找出一些能够度量样品或指标之间相似程度的统计量，然后利用统计量将样品或指标进行分类。具体进行聚类时，由于目的、要求不同，因而产生各种不同的聚类方法。" & Chr(13) & _
Chr(10) & " 为了将样品（或指标）进行分类，就需要研究样品（或指标）之间的关系，给出刻画他们相似程度的统计量。常用统计量有距离和相似系数良种，距离多用于样品的分类，相似系数多用于指标的分类。"
Case 3
Text1.Text = " 在判别分析中，如果使用很多自变量，建立判别函数需要大量的时间，" & _
Chr(10) & "由于矩阵的阶数高可能导致解的精度下降，甚至由于变量的不独立性引起计算上的困难。" & _
Chr(10) & " 另一方面，由于不太重要的变量的引用，产生的干扰而影响判别效果。" & _
Chr(10) & " 因此，在可供判别的自变量中选取显著性变量是很重要的。" & _
Chr(10) & " 逐步判别与逐步回归的基本思想相同，对每一步进行检验，" & _
Chr(10) & " 把最重要的变量选入，同时考虑较早变量的重要性，对失去原有重要性的变量予以剔除。"
Case 4
Text1.Text = " 距离判别与费希尔判别对总体分布并无限制，且思想直观、计算简单、结论明确，比较实用，但亦有缺点，即判别方法与各总体出现的概率大小（先验概率）及误判造成的损失无关。贝叶斯判别正是考虑到这两点而提出的一种判别方法。贝叶斯线性判别函数在总体是非正态时也适用，只不过不具备正态性时，贝叶斯判别法具有的平均错判率最小的性质就不一定存在。"
Case Else
Text1.Text = " 费希尔判别的思想是投影，将K组m维数据投影到某一方向，使得组与组之间的投影尽可能地分开，费歇借用方差分析的思想来达到这一目的。其判别方法是先建立判别函数，然后再依据此求出它与各总体的马氏距离，下面的判别规则与距离判别是一致的。从前面的判别规则可看出，费歇判别对总体分布并无限制，只要总体的均值与总体协方差阵存在且总体的协方差阵可逆即可。"
End Select
End Sub
Private Sub Command1_Click(Index As Integer)
If Option1(0) Then
Form02.Show
ElseIf Option1(2) Then
Form01.Show
ElseIf Option1(3) Then
Form04.Show
ElseIf Option1(4) Then
Form05.Show
ElseIf Option1(5) Then
Form03.Show
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -