?? form1.frm
字號(hào):
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 = "軟件簡(jiǎn)介"
Height = 3135
Left = 3720
TabIndex = 11
Top = 4440
Width = 6615
Begin VB.Label Label4
BackColor = &H80000013&
Caption = " 在""操作""選項(xiàng)框中選擇分析方法即可進(jìn)入該方法分析界面,按提式輸入您要處理的數(shù)據(jù)及相關(guān)參數(shù),即可得到按該方法分析得到的分析結(jié)果。"
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 = " 首先在“分析方法”選項(xiàng)框中選擇您要使用的分析方法，在方法簡(jiǎn)介中您可以了解到該方法的相關(guān)信息，并確定您選擇的方法準(zhǔn)確。"
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 = " 歡迎使用本軟件，在您使用之前請(qǐng)?jiān)敿?xì)閱讀使用說明及技術(shù)資料，在確定軟件分析方法在實(shí)驗(yàn)可控制的范圍內(nèi)使用！"
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 = "用戶手冊(cè)"
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 = "方法簡(jiǎn)介"
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 = "費(fèi)希爾判別分析"
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 = "費(fèi)希爾(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 .\判別分析與聚類分析用戶使用手冊(cè).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 = " 所謂距離判別是以待判樣品到各總體的距離遠(yuǎn)近為判據(jù)的一種直觀判別方法。其判別規(guī)則往往是比較各類馬氏距離之間的大小，如果在各類樣品中誰的馬氏距離最小，則判別待判樣品屬于馬氏距離最小的那一類，當(dāng)總體是兩類總體時(shí)也可以通過求解判別函數(shù)來進(jìn)行判別。"
Case 2
Text1.Text = " 聚類分析是根據(jù)“物以類聚”的道理，對(duì)樣品或指標(biāo)進(jìn)行分類的一種多元統(tǒng)計(jì)分析方法。他們討論的對(duì)象是一大堆樣品。要求能合理地按他們各自的特性來進(jìn)行合理的分類，這里沒有任何模式可供參考或依據(jù)，也就是說在沒有先驗(yàn)知識(shí)的情況下進(jìn)行的，聚類分析的基本程序時(shí)，首先根據(jù)一批樣品的多個(gè)觀測(cè)指標(biāo)，具體地找出一些能夠度量樣品或指標(biāo)之間相似程度的統(tǒng)計(jì)量，然后利用統(tǒng)計(jì)量將樣品或指標(biāo)進(jìn)行分類。具體進(jìn)行聚類時(shí)，由于目的、要求不同，因而產(chǎn)生各種不同的聚類方法。" & Chr(13) & _
Chr(10) & " 為了將樣品（或指標(biāo)）進(jìn)行分類，就需要研究樣品（或指標(biāo)）之間的關(guān)系，給出刻畫他們相似程度的統(tǒng)計(jì)量。常用統(tǒng)計(jì)量有距離和相似系數(shù)良種，距離多用于樣品的分類，相似系數(shù)多用于指標(biāo)的分類。"
Case 3
Text1.Text = " 在判別分析中，如果使用很多自變量，建立判別函數(shù)需要大量的時(shí)間，" & _
Chr(10) & "由于矩陣的階數(shù)高可能導(dǎo)致解的精度下降，甚至由于變量的不獨(dú)立性引起計(jì)算上的困難。" & _
Chr(10) & " 另一方面，由于不太重要的變量的引用，產(chǎn)生的干擾而影響判別效果。" & _
Chr(10) & " 因此，在可供判別的自變量中選取顯著性變量是很重要的。" & _
Chr(10) & " 逐步判別與逐步回歸的基本思想相同，對(duì)每一步進(jìn)行檢驗(yàn)，" & _
Chr(10) & " 把最重要的變量選入，同時(shí)考慮較早變量的重要性，對(duì)失去原有重要性的變量予以剔除。"
Case 4
Text1.Text = " 距離判別與費(fèi)希爾判別對(duì)總體分布并無限制，且思想直觀、計(jì)算簡(jiǎn)單、結(jié)論明確，比較實(shí)用，但亦有缺點(diǎn)，即判別方法與各總體出現(xiàn)的概率大小（先驗(yàn)概率）及誤判造成的損失無關(guān)。貝葉斯判別正是考慮到這兩點(diǎn)而提出的一種判別方法。貝葉斯線性判別函數(shù)在總體是非正態(tài)時(shí)也適用，只不過不具備正態(tài)性時(shí)，貝葉斯判別法具有的平均錯(cuò)判率最小的性質(zhì)就不一定存在。"
Case Else
Text1.Text = " 費(fèi)希爾判別的思想是投影，將K組m維數(shù)據(jù)投影到某一方向，使得組與組之間的投影盡可能地分開，費(fèi)歇借用方差分析的思想來達(dá)到這一目的。其判別方法是先建立判別函數(shù)，然后再依據(jù)此求出它與各總體的馬氏距離，下面的判別規(guī)則與距離判別是一致的。從前面的判別規(guī)則可看出，費(fèi)歇判別對(duì)總體分布并無限制，只要總體的均值與總體協(xié)方差陣存在且總體的協(xié)方差陣可逆即可。"
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -