Re: [算表] 要如何做出這樣的圖呢?

[chungyuandye (養花種魚數月亮看星星)]

※ 引述《JoGYa (舊機歪a)》之銘言：
: 軟體:Microsoft Office excel
: 版本:2003
: http://yao.mocolin.googlepages.com/DSCF3457.JPG
: 有五千次擲硬幣
: 要畫出類似上面的圖
: 第一次擲硬幣是出現正面的機率為1
: 然後每次機率越來越接近0.5
: excel檔如下
: http://yao.mocolin.googlepages.com/kerker.xls
: 請問要如何產生上面的圖呢
: 謝謝

Sub bernulli()
For i = 1 To 100
    temp1 = 0
    For j = 1 To i
        Cells(j + 1, 1) = j
        If Rnd() >= 0.5 Then
            temp2 = 1
        Else
            temp2 = 0
        End If
        Cells(j + 1, 2) = temp2
        temp1 = temp1 + temp2
    Next
    Cells(i + 1, 4) = i
    Cells(i + 1, 5) = temp1 / i
Next
End Sub

再用xy散佈圖畫圖結果即可

--
養花種魚數月亮賞星星

http://chungyuandye.blogspot.com

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 118.232.189.101
推 mocolin:非常謝謝