?? atn_bp.frm
字號(hào):
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form ATN_BP
Caption = "ＢＰ神經(jīng)網(wǎng)絡(luò)實(shí)驗(yàn)平臺(tái)－輸出幅值可調(diào)ＡＴＮ激勵(lì)函數(shù)"
ClientHeight = 8310
ClientLeft = 60
ClientTop = 630
ClientWidth = 11880
LinkTopic = "Form1"
ScaleHeight = 9000
ScaleMode = 0 'User
ScaleWidth = 11880
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "開(kāi)始訓(xùn)練"
Height = 375
TabIndex = 8
Top = 5760
Width = 855
End
Begin VB.CommandButton Command2
Caption = "刷新屏幕"
Height = 375
Left = 10560
TabIndex = 7
Top = 6360
Width = 855
End
Begin VB.CommandButton Command3
Caption = "返 回"
Height = 375
Left = 10560
TabIndex = 6
Top = 6960
Width = 855
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1680
Top = 2880
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3255
Left = 2040
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 0
Text = "ATN_BP.frx":0000
Top = 5040
Width = 8295
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = " 輸入樣本維數(shù)："
Height = 255
Left = 600
TabIndex = 19
Top = 5160
Width = 1455
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "神經(jīng)元個(gè)數(shù)："
Height = 255
Left = 240
TabIndex = 18
Top = 5400
Width = 1815
End
Begin VB.Label Label3
Caption = " 輸出樣本維數(shù)："
Height = 255
Left = 600
TabIndex = 17
Top = 5640
Width = 1455
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "輸出幅值："
Height = 255
Left = 600
TabIndex = 16
Top = 6360
Width = 1455
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
Caption = " 迭代次數(shù)Ｎ："
Height = 255
Left = 600
TabIndex = 15
Top = 5880
Width = 1455
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
Caption = " 要求精度δ："
Height = 255
Left = 600
TabIndex = 14
Top = 6120
Width = 1455
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Caption = " 輸入 輸出樣本1："
Height = 255
Left = 240
TabIndex = 13
Top = 7080
Width = 1815
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
Caption = "：：："
Height = 615
Left = 1200
TabIndex = 12
Top = 7560
Width = 255
End
Begin VB.Label Label9
Alignment = 1 'Right Justify
Caption = " 輸入 輸出樣本2："
Height = 255
Left = 240
TabIndex = 11
Top = 7320
Width = 1815
End
Begin VB.Label Label10
Alignment = 1 'Right Justify
Caption = "PID控制參數(shù)："
Height = 255
Left = 600
TabIndex = 10
Top = 6840
Width = 1455
End
Begin VB.Label Label13
Alignment = 1 'Right Justify
Caption = "輸入樣本取值范圍："
Height = 255
Left = 360
TabIndex = 9
Top = 6600
Width = 1695
End
Begin VB.Label Label18
Caption = "0"
Height = 255
Left = 360
TabIndex = 5
Top = 4800
Width = 135
End
Begin VB.Line Line11
X1 = 11400
X2 = 600
Y1 = 5328.52
Y2 = 5328.52
End
Begin VB.Line Line6
X1 = 11160
X2 = 11400
Y1 = 5198.556
Y2 = 5328.52
End
Begin VB.Line Line7
X1 = 11160
X2 = 11400
Y1 = 5458.484
Y2 = 5328.52
End
Begin VB.Label Label16
Caption = "N"
Height = 255
Left = 11280
TabIndex = 4
Top = 4560
Width = 135
End
Begin VB.Line Line1
X1 = 600
X2 = 480
Y1 = 2989.17
Y2 = 2989.17
End
Begin VB.Line Line2
X1 = 600
X2 = 600
Y1 = 649.819
Y2 = 5328.52
End
Begin VB.Label Label14
Caption = "1"
Height = 255
Left = 360
TabIndex = 3
Top = 2640
Width = 135
End
Begin VB.Line Line4
X1 = 600
X2 = 480
Y1 = 649.819
Y2 = 909.747
End
Begin VB.Line Line5
X1 = 720
X2 = 600
Y1 = 909.747
Y2 = 649.819
End
Begin VB.Label Label12
Caption = "∑(t-y)^2"
Height = 255
Left = 120
TabIndex = 2
Top = 240
Width = 975
End
Begin VB.Label Label11
Caption = "誤 差 曲 線"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5280
TabIndex = 1
Top = 0
Width = 1215
End
Begin VB.Menu 目錄
Caption = "目錄"
Begin VB.Menu 返回主頁(yè)
Caption = "返回主頁(yè)"
End
Begin VB.Menu SISO系統(tǒng)
Caption = "單變量系統(tǒng)"
End
Begin VB.Menu 多變量系統(tǒng)
Caption = "多變量系統(tǒng)"
End
Begin VB.Menu 最優(yōu)控制
Caption = "最優(yōu)控制"
End
Begin VB.Menu 人工智能
Caption = "人工智能"
End
Begin VB.Menu 數(shù)學(xué)2工具
Caption = "數(shù)學(xué)工具"
End
End
Begin VB.Menu 文件
Caption = "文件"
Begin VB.Menu 新建樣本
Caption = "新建樣本"
End
Begin VB.Menu 打開(kāi)樣本
Caption = "打開(kāi)樣本"
End
Begin VB.Menu 保存樣本
Caption = "保存樣本"
End
Begin VB.Menu 另存為
Caption = "顯示樣本"
End
Begin VB.Menu 保存權(quán)值
Caption = "保存權(quán)值"
End
End
Begin VB.Menu 算法
Caption = "算法"
Begin VB.Menu 基礎(chǔ)BP
Caption = "ＡＴＮ：Pβ_BP"
End
Begin VB.Menu BBC
Caption = "ＡＴＮ：變步長(zhǎng)"
End
Begin VB.Menu PID
Caption = "ＡＴＮ：跳變"
End
End
Begin VB.Menu 操作
Caption = "操作"
Begin VB.Menu 刷新屏幕
Caption = "刷新屏幕"
End
Begin VB.Menu 測(cè)試網(wǎng)絡(luò)
Caption = "測(cè)試網(wǎng)絡(luò)"
End
Begin VB.Menu ht
Caption = "繪 圖"
End
Begin VB.Menu 測(cè)試?yán)L圖
Caption = "繪等高線"
End
Begin VB.Menu 退出
Caption = "退出"
End
End
End
Attribute VB_Name = "ATN_BP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Xws '輸入層維數(shù)
Dim Zws '隱層維數(shù)
Dim Yws '輸出層維數(shù)
Dim Kzs '樣本組數(shù)
Dim Ez, EM '總誤差
Dim Ata, Bta '學(xué)習(xí)步長(zhǎng)η
Dim Jd, Kp, Ki, Kd, Kpo '精度
Dim Ncs, ZNPID '迭代次數(shù)
Dim Wxz() '輸入層→隱層連接權(quán)
Dim Wzy() '隱層層→輸出層連接權(quán)
Dim Qz() '隱層閾值
Dim Qy() '輸出層閾值
Dim Zsc() '隱層輸出
Dim Ysc() '輸出層輸出
Dim Ey() '輸出層誤差
Dim Eyd() '輸出層訓(xùn)練誤差δy
Dim Ezd() '隱層訓(xùn)練誤差δz
Dim Xyb() '輸入樣本
Dim Tyb() '輸出樣本，期望值
Dim Ybz(), Ei() '
Dim FC() '蜂巢信息
Dim KK() '巢中樣本號(hào)
'J作為
Dim Hff '蜂房高度
Dim Gs '蜂房行、列數(shù)
Dim FFs '蜂房個(gè)數(shù)
Dim Mim, Max, BSht '輸入樣本區(qū)間
Dim ZJBL, K, W, U, G, D, I, J, N, M, Y, Z, X, A, B, C, E, F, L '中間變量
Dim tttt As String
Private Sub BBC_Click()
ZNPID = 3: Call BP_Paint
End Sub
Private Sub Command1_Click()
Call BP_Paint
End Sub
Private Sub Command2_Click()
ATN_BP.Hide
ATN_BP.Show
End Sub
Private Sub Command3_Click()
ATN_BP.Hide
主界面.Show
End Sub
Private Sub ht_Click()
BSht = 1: Call 測(cè)試?yán)L圖_Click
End Sub
Private Sub 保存權(quán)值_Click()
Text1 = "隱層：" + Chr(13) + Chr(10)
'設(shè)置初始權(quán)值、閾值。。隱層
For J = 1 To Zws '隱層單元個(gè)數(shù)Zws
Text1 = Text1 + " Q" + CStr(Qz(J)) '取閾值為隨機(jī)值
For I = 1 To Xws '輸入層單元個(gè)數(shù)Xws
Text1 = Text1 + " W" + CStr(Wxz(J, I)) '取權(quán)值為隨機(jī)值
Next I
Text1 = Text1 + Chr(13) + Chr(10)
Next J
Text1 = Text1 + "輸出層：" + Chr(13) + Chr(10)
For J = 1 To Yws '隱層單元個(gè)數(shù)Zws
Text1 = Text1 + " Q" + CStr(Qy(J)) '取閾值為隨機(jī)值
For I = 1 To Zws '輸入層單元個(gè)數(shù)Xws
Text1 = Text1 + " W" + CStr(Wzy(J, I)) '取權(quán)值為隨機(jī)值
Next I
Text1 = Text1 + Chr(13) + Chr(10)
Next J
Text1 = Text1 + Chr(13) + Chr(10)
CommonDialog1.Filter = "文檔文件(*.txt)|*.TXT|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1 '保存文件
Close #1
End Sub
Private Sub 保存樣本_Click()
CommonDialog1.Filter = "文檔文件(*.txt)|*.TXT|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -