initpop.frm

电力自动化专业领域的一个重要内容

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3210
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3210
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   375
      Left            =   720
      TabIndex        =   1
      Top             =   1440
      Width           =   1695
   End
   Begin VB.CommandButton Command1 
      Caption         =   "遗传算法解机组组合"
      Height          =   855
      Left            =   1200
      TabIndex        =   0
      Top             =   480
      Width           =   2535
   End
   Begin VB.Menu tcct 
      Caption         =   "退出画面"
   End
   Begin VB.Menu xssj 
      Caption         =   "显示初始数据"
   End
   Begin VB.Menu wjwj 
      Caption         =   "在文件中显示数据"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer

Dim p1(1 To 50) As PP
Call initpop
For i = 1 To 50
p1(i) = newpop(i)
newpop(i) = oldpop(i)
Next i
Dim oldmax As Double
Dim oldmaxpp As Integer

Call statistics(newpop())
For i = 1 To 50
newpop(i) = p1(i)
Next i
maxgen = 4000
gen = 0
Do While (gen < maxgen)
gen = gen + 1
oldmax = max
oldmaxpp = maxpp
 Call generation
Call statistics(newpop())
If (max < oldmax) Then
For i = 0 To 23
For j = 1 To 8
newpop(maxpp).AA(i, j) = oldpop(oldmaxpp).AA(i, j)
Next j
Next i
newpop(maxpp).fitness = oldpop(oldmaxpp).fitness
Call statistics(newpop())
End If
Call report(gen)
For i = 1 To 50
p1(i) = oldpop(i)
oldpop(i) = newpop(i)
newpop(i) = p1(i)
Next i
Loop
Form1.Hide
End Sub

Private Sub Command2_Click()
Dim gg(0 To 23, 1 To 8) As Integer
Dim i As Integer
Dim j As Integer
Dim jg(0 To 23, 1 To 8) As Double
Dim jgfitness As Double
Open "E:\wyl\负荷.txt" For Input As #1
For i = 0 To 23
Input #1, fh(i)
Next i
Close #1
For i = 1 To 2
For j = 0 To 23
gg(j, i) = 1
Next j
Next i
For i = 0 To 2
gg(i, 3) = 1
Next i


For i = 5 To 7
gg(i, 3) = 1
Next i

gg(10, 3) = 1

For i = 14 To 15
gg(i, 3) = 1
Next i

For i = 20 To 23
gg(i, 3) = 1
Next i

gg(0, 4) = 1

For i = 2 To 5
gg(i, 4) = 1
Next i

For i = 8 To 9
gg(i, 4) = 1
Next i

gg(11, 4) = 1
gg(16, 4) = 1

For i = 18 To 20
gg(i, 4) = 1
Next i

gg(22, 4) = 1

For i = 0 To 3
gg(i, 5) = 1
Next i

gg(5, 5) = 1

For i = 8 To 10
gg(i, 5) = 1
Next i

gg(13, 5) = 1

For i = 19 To 22
gg(i, 5) = 1
Next i

gg(0, 6) = 1
gg(4, 6) = 1

For i = 6 To 8
gg(i, 6) = 1
Next i
gg(10, 6) = 1
gg(13, 6) = 1
gg(15, 6) = 1
gg(17, 6) = 1

For i = 20 To 22
gg(i, 6) = 1
Next i
gg(1, 7) = 1
gg(3, 7) = 1
gg(5, 7) = 1
gg(6, 7) = 1
gg(7, 7) = 1
gg(9, 7) = 1
gg(11, 7) = 1
gg(14, 7) = 1
gg(16, 7) = 1
gg(18, 7) = 1
gg(20, 7) = 1




Call Pallocate(gg(), jg())
jgfitness = objfun(gg(), jg())
Open "E:\wyl\临时文件2.txt" For Output As #1
For i = 0 To 23
For j = 1 To 8
Print #1, jg(i, j);
Next j
Print #1,
Next i
Print #1, jgfitness
Close #1

End Sub

Private Sub tcct_Click()
Unload Me
End Sub

Private Sub wjwj_Click()
Call initpop

End Sub