本次计算采用VB语言计算，本来想下个C++但是好像有点大，VB凑活了。

　　+12-+13(以衣服饰品为例，考虑成长失败后返还20个碎片)

　　老的成长方式加权平均值为(仅考虑前100次成功的情况，100次以后的概率极小，忽略)

　　286.66个算法：

　　Private Sub Command1_Click()

　　Dim a, b, c, d As Double

　　a = 0

　　b = 0

　　c = 0

　　d = 1

　　e = 0

　　Do

　　b = b + 1

　　c = b

　　Do

　　d = d * 0.7

　　c = c - 1

　　Loop Until c = 0

　　a = a + d / 0.7 * 0.3 * (b * 80 + 20)

　　d = 1

　　Loop Until b = 100

　　Print a

　　End Sub

　　新的平均值为

　　251.88个 算法：

　　Private Sub Command1_Click()

　　Dim a, b, x, y, z As Double

　　a = 0

　　b = 0

　　x = 0

　　y = 1

　　z = 0

　　Do

　　x = x + 1

　　z = x

　　Do

　　y = 0.998 * y

　　z = z - 1

　　Loop Until z = 0

　　a = a + y / 0.998 * 0.002 * x

　　b = a + y * 350

　　y = 1

　　Loop Until x = 349

　　Print b

　　End Sub

　　验算无误

　　同理得+15-+16 老：1040.00 新：772.38

　　+16-+17老：1182.85新：909.23

　　+17-+18老：1373.28新：1013.44

　　+18-+19 +19-+20 老：2035.68新：1504.13

　　+8-+9老：36.00 新：34.60

　　+9-+10老：39.56 新：37.11

　　+10-+11老：44.00新：41.84

　　+11-+12老：49.71 新：46.61

　　+13-+14老·：339.00 新：300.45

　　+14-+15老：420.00 新：361.24

　　武器为防具的5倍，看样子新的比较好，还是平均数准确，底下的图是正态分布的。