学写 装备强化模拟器

笑虾

看了  半不癫   发的帖子  [原创 [游戏策划] 马尔科夫链强化问题

很幸运他分享了源文件。学习后自己也照着写了一份，感谢
核心算法还是原来的 。我只是改了改界面，和优化了下性能。
觉得可能用起来会方便一点。

从分享中学习，当然也要回到分享。希望大家能指出其中的缺点和不足

装备强化模拟器.rar (40.33 KB, 下载次数: 219)

2016-9-18 13:46 上传

点击文件名下载附件

1. Option Explicit
   
2. Option Base 0
   
3. 
   
4. Public Tag_stop As Boolean '用来停止的开关变量
   
5. 
   
6. 'GO 按钮直接调用此 sub
   
7. Sub Button_Click()
   
8.     '获取表单按钮上的文字，判断状态
   
9.     If ActiveSheet.[go_btn].Caption = "G0" Then
   
10.         Tag_stop = False
    
11.         ActiveSheet.[go_btn].Caption = "快住手"
    
12.         Call iTimer
    
13.         ActiveSheet.[go_btn].Caption = "G0"
    
14.     Else
    
15.         ActiveSheet.[go_btn].Caption = "G0"
    
16.         Tag_stop = True
    
17.     End If
    
18. 
    
19.    
    
20. End Sub
    
21. 
    
22. '显示测试所用时长
    
23. Sub iTimer()
    
24.     Dim T As Single
    
25.     T = Timer
    
26.     Call test_main '要计时的过程名称放这里
    
27.     ActiveSheet.[Consuming_time] = Round(Timer - T, 5) & " 秒"
    
28.    ' MsgBox Timer - t & " 秒"
    
29. End Sub
    
30. 
    
31. 
    
32. Sub test_main()
    
33. 
    
34.     Dim currentLevel As Byte        '当前等级
    
35.     Dim goalLevel As Byte         '目标等级
    
36.     Dim total As Long             '强化测试样本次数
    
37.     Dim table As Variant           '装备强化表
    
38. 
    
39.     '-----------------------载入数据----------------------------------------------
    
40.     '将 Sheet1 改为 ActiveSheet 也许能避免些麻烦
    
41.     With ActiveSheet
    
42.         table = .[Data].Resize(.[Data].End(xlDown).Row - 1, 4)
    
43.         goalLevel = .[Goal_lvl]
    
44.         total = .[Sample_size]
    
45.         currentLevel = .[Current_Level]
    
46.         
    
47.         '表头
    
48.         .[Avg_times].Offset(-1, 0) = "次数"
    
49.         .[Avg_cost].Offset(-1, 0) = "花费"
    
50. 
    
51.         '清空log
    
52.         .[showLevel].Resize(.[showLevel].End(xlDown).Row - 1, 4).ClearContents
    
53. 
    
54.     End With
    
55. 
    
56.     '数据检查
    
57.     If currentLevel <= 0 Or goalLevel <= currentLevel Or goalLevel > UBound(table) Or total <= 0 Then
    
58.         MsgBox "初始等级必须大于等于 1。" & Chr(13) & "目标等级必须大于当前等级，小于配置表中的等级上限" & Chr(13) & "样本总数必须大于等于 1"
    
59.         currentLevel = 1
    
60.         Exit Sub
    
61.     End If
    
62.    
    
63.     '----------------- 开始测试 -----------------
    
64.     test_total currentLevel, goalLevel, total, table
    
65. 
    
66. End Sub
    
67. 
    
68. '强化到目标等级 goalLevel 测试 total 件, table 强化表数据
    
69. Sub test_total(currentLevel As Byte, goalLevel As Byte, total As Long, table As Variant)
    
70. 
    
71.     Dim i As Byte, jx As Byte, nextLevel As Byte
    
72.     Dim showLevelRow As Integer, showLevelColumn As Integer
    
73.     Dim j As Long, tt As Long
    
74.     Dim my_mod As Single, lastTime As Single, tc As Single, timesTotal As Single
    
75. 
    
76.     showLevelRow = ActiveSheet.[showLevel].Row '获取单位格行坐标
    
77.     showLevelColumn = ActiveSheet.[showLevel].Column  '获取单位格列坐标
    
78. 
    
79.     '---------------------------- 显示优化部分 ---------------------------
    
80.     'WorksheetFunction.Log10(n) + 1 求一个数的位数
    
81.     '用总数除以一个优化值，得到刷新UI的频率
    
82.     my_mod = Application.Max(total / Round(-1.7 * (WorksheetFunction.Log10(total) + 0.5) + 15, 0), 1)
    
83.    
    
84.     '优化效率，先把字符串拆好
    
85.     i = 0
    
86.     For i = currentLevel To goalLevel
    
87.         table(i, 3) = Split(table(i, 3), "+")
    
88.         table(i, 4) = Split(table(i, 4), "+")
    
89.         '安全检查
    
90.         If UBound(table(i, 3)) <> UBound(table(i, 4)) Then
    
91.             MsgBox "【等级范围】 与 【对应概率】字段的数据" & Chr(13) & " 必须一一对应！", , "数据有误！"
    
92.             Exit Sub
    
93.         End If
    
94.     Next i
    
95. 
    
96.     lastTime = Timer
    
97.     '---------------------------------------------------------------------
    
98. 
    
99.     i = tt = tc = 0
    
100.     '当前到目标等级，每一级重复采样 total 次
     
101.     For i = currentLevel To goalLevel - 1
     
102.    
     
103.         '---- 每当开始测试新等级前，先刷新和重置参数
     
104.         timesTotal = 0
     
105.         nextLevel = i + 1
     
106.         jx = i - currentLevel
     
107.         
     
108. '        '----- 初始化显示 ----- 为了效率在循环中引用单元格时都用 cells(showLevelRow,showLevelColumn)
     
109.         With ActiveSheet
     
110.             .Cells(showLevelRow, showLevelColumn).Offset(jx, 0) = i & " -> " & i + 1     '从几级强化到几级
     
111.             .Cells(showLevelRow, showLevelColumn + 1).Offset(jx, 0) = "计算中..."
     
112.             .Cells(showLevelRow, showLevelColumn + 2).Offset(jx, 0) = "计算中..."
     
113.             .Cells(showLevelRow, showLevelColumn + 3).Offset(jx, 0) = 0    '进度条初始刻度为 0
     
114.         End With
     
115.                
     
116.         '----- 开始循环采样 -----
     
117.         For j = 1 To total
     
118.             '---- 中止开关 ------
     
119.             If Tag_stop = True Then
     
120.                 Exit Sub
     
121.             End If
     
122.         
     
123.             '---- 从“当前等级”强化到“下一等级”所用的次数 ------
     
124.             Do
     
125.                 timesTotal = timesTotal + 1
     
126.             Loop Until probatilisticChoice(table(i, 3), table(i, 4)) = nextLevel
     
127.             
     
128.             '----- 间隔刷新进度条 -----
     
129.             If j Mod my_mod = 0 Or j = total Then
     
130.                 ActiveSheet.Cells(showLevelRow, showLevelColumn + 3).Offset(jx, 0) = j / total    '更新进度条
     
131.             End If
     
132. 
     
133.             '---- 适当放手，避免假死 ------
     
134.             If Timer - lastTime > 3 Then
     
135.                 DoEvents
     
136.                 lastTime = Timer
     
137.             End If
     
138.                         
     
139.         Next j
     
140.         '----- 刷新显示 -----
     
141.         With ActiveSheet
     
142.             .Cells(showLevelRow, showLevelColumn + 1).Offset(jx, 0) = total & "件 " & timesTotal & "次，平均：" & Round(timesTotal / total, 2) 'N 件装备强化到 X 的平均次数
     
143.             .Cells(showLevelRow, showLevelColumn + 2).Offset(jx, 0) = total & "件，总花费" & timesTotal * table(i, 2) & " 平均：" & Round(timesTotal * table(i, 2) / total, 2) 'N 件装备强化到 X 的平均花费
     
144.         End With
     
145. 
     
146.         tt = tt + Round(timesTotal / total, 2)
     
147.         tc = tc + Round(timesTotal * table(i, 2) / total, 2)
     
148.     Next i
     
149.    
     
150.     '----- 汇总显示 -----
     
151.     With ActiveSheet
     
152.         .[Avg_times].Offset(-1, 0) = "平均次数: " & tt
     
153.         .[Avg_cost].Offset(-1, 0) = "平均花费: " & tc
     
154.     End With
     
155. 
     
156. End Sub
     
157. 
     
158. '按概率选择目标。按参数B中的概率，选择参数A中对应的目标
     
159. '参数A = {鱼丸, 粗面, 叉烧, 牛肉}
     
160. '参数B = {10%, 20%, 20%, 50%}
     
161. Public Function probatilisticChoice(ByRef targetList As Variant, ByRef targetProbability As Variant) As Integer
     
162. 
     
163.     Dim rnd_num As Integer        '随机数
     
164.     Dim startPoint As Integer      '区间开始点,区间结束点就用 startPoint + targetProbability(i)
     
165. 
     
166.     '------------ 初始化参数 ----------------
     
167.     Randomize   '初始化随机种子
     
168.     rnd_num = Int(Rnd() * 10000 + 1)    ' 随机区间  [1,10000]  这里因为是用的 万分比。
     
169.     startPoint = 0
     
170.     '------------ 遍历数组，选择目标 ----------------
     
171.     Dim i As Byte
     
172.     For i = 0 To UBound(targetProbability)
     
173.         '定义区间范围： 开始点 = 结束点，结束点 = 自己 + 向右的偏移量
     
174.         If rnd_num <= startPoint + targetProbability(i) Then
     
175.             If rnd_num > startPoint Then
     
176.                 probatilisticChoice = targetList(i)  '如果找到目标，直接返回值
     
177.             End If
     
178.         End If
     
179.     Next i
     
180. End Function

复制代码