|
|
甲乙丙瓶各有1升水,每次甲倒一半给乙,乙倒一半给丙,丙倒一半给甲,求稳定状态
演示示例:假定有五个瓶子的情况
程序如下:
'; 有A1、A2、……,Ak 共 k 个瓶子,开始时各装有一些水(也可能有的没装水),各瓶子中的总水量为 L 升。
'; 从 A1 开始,依次将前一瓶中的水倒 n 分之一给后一瓶中,最后将 Ak 中的水倒 n 分之一给 A1 瓶。这算做一轮操作。
'; 用程序演示:
'; (1)充分多次操作后,除 A1 瓶中的水最多之外,其余瓶中的水都变得相等了。
'; (2)A1 瓶中的水是多少升?
'; 答案:A1 瓶中的水是 nL/(1+k(n-1))升,其余各瓶中的水相等,是 L/(k+1/n)升。
Private Sub form_Click()
';假定有 A1、A2、A3、A4、A5 五个瓶子,开始时各装有一些水,单位公升,数量如下:
A1 = 0: A2 = 2: A3 = 4: A4 = 3: A5 = 1
n = 2
k = 32 ';操作次数
Print "A1("; 0; ")=";: Print Format(A1, "0.0000000")
Print "A2("; 0; ")=";: Print Format(A2, "0.0000000")
Print "A3("; 0; ")=";: Print Format(A3, "0.0000000")
Print "A4("; 0; ")=";: Print Format(A4, "0.0000000")
Print "A5("; 0; ")=";: Print Format(A5, "0.0000000")
Print
For i = 1 To k
AA1 = A1 / n: A1 = A1 - AA1: A2 = A2 + AA1 ';先将 A1 瓶的水倒出 1/n=AA1 给 A2 瓶
AA2 = A2 / n: A2 = A2 - AA2: A3 = A3 + AA2 ';再将 A2 瓶的水倒出 1/n=AA2 给 A3 瓶
AA3 = A3 / n: A3 = A3 - AA3: A4 = A4 + AA3 ';再将 A3 瓶的水倒出 1/n=AA3 给 A4 瓶
AA4 = A4 / n: A4 = A4 - AA4: A5 = A5 + AA4 ';再将 A4 瓶的水倒出 1/n=AA4 给 A5 瓶
AA5 = A5 / n: A5 = A5 - AA5: A1 = A1 + AA5 ';再将 A5 瓶的水倒出 1/n=AA5 给 A1 瓶
Print "A1("; i; ")=";: Print Format(A1, "0.0000000")
Print "A2("; i; ")=";: Print Format(A2, "0.0000000")
Print "A3("; i; ")=";: Print Format(A3, "0.0000000")
Print "A4("; i; ")=";: Print Format(A4, "0.0000000")
Print "A5("; i; ")=";: Print Format(A5, "0.0000000")
Print
Next i
End Sub
程序运行结果如下:
A1( 0 )=0.0000000 ';A1 瓶中的初始水量
A2( 0 )=2.0000000 ';A2 瓶中的初始水量
A3( 0 )=4.0000000 ';A3 瓶中的初始水量
A4( 0 )=3.0000000 ';A4 瓶中的初始水量
A5( 0 )=1.0000000 ';A5 瓶中的初始水量
A1( 1 )=1.8750000
A2( 1 )=1.0000000
A3( 1 )=2.5000000
A4( 1 )=2.7500000
A5( 1 )=1.8750000
A1( 2 )=2.9960938
A2( 2 )=0.9687500
A3( 2 )=1.7343750
A4( 2 )=2.2421875
A5( 2 )=2.0585938
A1( 3 )=3.4588623
A2( 3 )=1.2333984
A3( 3 )=1.4838867
A4( 3 )=1.8630371
A5( 3 )=1.9608154
A1( 4 )=3.5462608
A2( 4 )=1.4814148
A3( 4 )=1.4826508
A4( 4 )=1.6728439
A5( 4 )=1.8168297
A1( 5 )=3.4884967
A2( 5 )=1.6272726
A3( 5 )=1.5549617
A4( 5 )=1.6139028
A5( 5 )=1.7153662
A1( 6 )=3.4104974
A2( 6 )=1.6857605
A3( 6 )=1.6203611
A4( 6 )=1.6171319
A5( 6 )=1.6662491
A1( 7 )=3.3571395
A2( 7 )=1.6955046
A3( 7 )=1.6579328
A4( 7 )=1.6375324
A5( 7 )=1.6518907
A1( 8 )=3.3320194
A2( 8 )=1.6870372
A3( 8 )=1.6724850
A4( 8 )=1.6550087
A5( 8 )=1.6534497
A1( 9 )=3.3251128
A2( 9 )=1.6765234
A3( 9 )=1.6745042
A4( 9 )=1.6647565
A5( 9 )=1.6591031
A1( 10 )=3.3263026
A2( 10 )=1.6695399
A3( 10 )=1.6720221
A4( 10 )=1.6683893
A5( 10 )=1.6637462
A1( 11 )=3.3294176
A2( 11 )=1.6663456
A3( 11 )=1.6691838
A4( 11 )=1.6687865
A5( 11 )=1.6662664
A1( 12 )=3.3318775
A2( 12 )=1.6655272
A3( 12 )=1.6673555
A4( 12 )=1.6680710
A5( 12 )=1.6671687
A1( 13 )=3.3331769
A2( 13 )=1.6657330
A3( 13 )=1.6665443
A4( 13 )=1.6673076
A5( 13 )=1.6672382
A1( 14 )=3.3336226
A2( 14 )=1.6661607
A3( 14 )=1.6663525
A4( 14 )=1.6668301
A5( 14 )=1.6670341
A1( 15 )=3.3336407
A2( 15 )=1.6664860
A3( 15 )=1.6664193
A4( 15 )=1.6666247
A5( 15 )=1.6668294
A1( 16 )=3.3335253
A2( 16 )=1.6666532
A3( 16 )=1.6665362
A4( 16 )=1.6665804
A5( 16 )=1.6667049
A1( 17 )=3.3334157
A2( 17 )=1.6667079
A3( 17 )=1.6666221
A4( 17 )=1.6666012
A5( 17 )=1.6666531
A1( 18 )=3.3333509
A2( 18 )=1.6667079
A3( 18 )=1.6666650
A4( 18 )=1.6666331
A5( 18 )=1.6666431
A1( 19 )=3.3333249
A2( 19 )=1.6666917
A3( 19 )=1.6666783
A4( 19 )=1.6666557
A5( 19 )=1.6666494
A1( 20 )=3.3333205
A2( 20 )=1.6666771
A3( 20 )=1.6666777
A4( 20 )=1.6666667
A5( 20 )=1.6666581
A1( 21 )=3.3333242
A2( 21 )=1.6666687
A3( 21 )=1.6666732
A4( 21 )=1.6666699
A5( 21 )=1.6666640
A1( 22 )=3.3333289
A2( 22 )=1.6666654
A3( 22 )=1.6666693
A4( 22 )=1.6666696
A5( 22 )=1.6666668
A1( 23 )=3.3333320
A2( 23 )=1.6666649
A3( 23 )=1.6666671
A4( 23 )=1.6666684
A5( 23 )=1.6666676
A1( 24 )=3.3333335
A2( 24 )=1.6666655
A3( 24 )=1.6666663
A4( 24 )=1.6666673
A5( 24 )=1.6666674
A1( 25 )=3.3333338
A2( 25 )=1.6666661
A3( 25 )=1.6666662
A4( 25 )=1.6666668
A5( 25 )=1.6666671
A1( 26 )=3.3333337
A2( 26 )=1.6666665
A3( 26 )=1.6666664
A4( 26 )=1.6666666
A5( 26 )=1.6666668
A1( 27 )=3.3333336
A2( 27 )=1.6666667
A3( 27 )=1.6666665
A4( 27 )=1.6666665
A5( 27 )=1.6666667
A1( 28 )=3.3333334
A2( 28 )=1.6666667
A3( 28 )=1.6666666
A4( 28 )=1.6666666
A5( 28 )=1.6666666
A1( 29 )=3.3333333
A2( 29 )=1.6666667
A3( 29 )=1.6666667
A4( 29 )=1.6666666
A5( 29 )=1.6666666
A1( 30 )=3.3333333
A2( 30 )=1.6666667
A3( 30 )=1.6666667
A4( 30 )=1.6666667
A5( 30 )=1.6666666
A1( 31 )=3.3333333
A2( 31 )=1.6666667
A3( 31 )=1.6666667
A4( 31 )=1.6666667
A5( 31 )=1.6666667
A1( 32 )=3.3333333
A2( 32 )=1.6666667
A3( 32 )=1.6666667
A4( 32 )=1.6666667
A5( 32 )=1.6666667
|
|