標題: Re: [算表] 要如何做出這樣的圖呢?
時間: Thu Jun 5 10:37:06 2008
※ 引述《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
[1;37m推 [33mmocolin[m[33m:非常謝謝 [m 06/05 13:53
沒有留言:
張貼留言