三个点在同一个半圆的概率_在圆周上任取三点 A,B,C ，求 A,B,C 三点落在同一半圆周内的概率...

本帖最后由 天山草 于 2016-10-17 10:06 编辑

我用 VB 语言编写了一个小程序，用产生随机数的方法模拟每次的试验，试验次数累计到 1 亿次，求得概率为 0.74999832(理论概率是0.75)。

程序如下：

Private Sub form_Click()

Randomize     '启动随机数发生器

n = 0

For i = 1 To 1000000   ' 试验次数

b1 = 360 * Rnd  '产生三个 1 至 360 之间的随机数

b2 = 360 * Rnd

b3 = 360 * Rnd

If b1 <= b2 And b1 <= b3 And b2 <= b3 Then a1 = b2 - b1: a2 = b2 - b3

If b1 <= b3 And b1 <= b2 And b3 <= b2 Then a1 = b3 - b1: a2 = b3 - b2

If b2 <= b1 And b2 <= b3 And b1 <= b3 Then a1 = b1 - b2: a2 = b1 - b3

If b2 <= b3 And b2 <= b1 And b3 <= b1 Then a1 = b3 - b2: a2 = b3 - b1

If b3 <= b1 And b3 <= b2 And b1 <= b2 Then a1 = b1 - b3: a2 = b1 - b2

If b3 <