2010年6月14日 星期一

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

作者: chungyuandye (養花種魚數月亮看星星) 看板: Office
標題: 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
推 mocolin:非常謝謝  06/05 13:53

沒有留言:

張貼留言