如何以自由软体‘R’辅助高中机率统计课程的学习-数学学科中心.DOC

如何以自由软体‘R’辅助高中机率统计课程的学习-数学学科中心.DOC

  1. 1、本文档共34页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
如何以自由软体‘R’辅助高中机率统计课程的学习-数学学科中心

如何以自由軟體R」輔助高中機率統計課程的學習林炯伊 國立臺灣師範大學數學所統計組 臺北市立麗山高中 一言 資訊融入教學的一大優勢就是可以「做中學」,例如圓周角或等弧對等角性質,我們可以在GGB裡直接「拉動圓弧上一點」來觀察;另外,指對數、三角等函數圖形的各種性質,也可以在GGB介面中動態的呈現。因此,其學習效果是傳統板書教學難以達到的!機率與統計,筆者於麗山高中任職時,嘗試將R軟體的統計功能應用於教學現場,期待能對統計方面的教學作一些補充。的工具,。補充GGB的工具, 「R」是一款專為統計而創的免費自由軟體,由奧克蘭(Auckland)大學統計系的兩位研究員:Robert Gentlemen 與 Ross Ihaka 及其他志願人員於1995至1997年所開發,雖然原始對象為專業的統計工作者,但過去的十多年來,世界各地皆有愛好者採用,共同回饋、開發出更多好用的功能,至今仍蓬勃發展中。由於R是免費軟體並且提供所有原始碼,所以各大專院校的統計課程也都紛紛捨棄SAS、SPSS、Matlab等商業套裝軟體而改用R。 由於R軟體具備的實驗模擬以及矩陣運算等功能,在教學上,有助於學生理解機率與統計單元中,某些只靠講述法難以證明或了解的內容,例如:二項分配的近似分配、信賴區間、68-95-99.7規律、複雜或不直觀的機率問題、馬可夫鍊的收斂…等。另一方面,R軟體也有助於教師開發新的研究專題、出考題甚至應用在班級經營。例如:以往不研究的「必須大量分組討論的機率問題」、快速的因數分解、各種數值計算(積分)、矩陣運算與反矩陣、隨機的班級座位表…等。綜上所述,筆者認為R軟體是一款有潛力同時也有魅力的統計軟體,值得將之運用於教學現場,因此希望能介紹給大家認識。,筆者首先比較GGB軟體與R軟體的異同,讓熟悉GGB的讀者能連接教學經驗。,筆者介紹R方便的「模擬實驗」功能,其如利用GGB來模擬研究幾何問題。最後,筆者也將簡介R軟體的矩陣運算功能以及3D作圖。透過R軟體的協助,讓我們期待機率與統計單元也能夠透過電腦「做中學」!與軟體的:投擲一枚公正硬幣100次,過程中發生連續8次以上正面的機率為何? 展示與繪圖功能 GGB R 可以藉由繪圖區,搭配數值滑桿、按鈕以及滑鼠拖曳來生動的呈現。 雖可以畫出各式統計圖形,但是沒有GGB的數值滑桿來的方便。 GGB4.0 還不支援3D圖形 支援3D圖形,還可以任意上下左右旋轉,以及在空間座標加點、直線或曲線。 研究功能 GGB R 沒有直接的迴圈功能,只能使用產生簡單的迴圈效果,對於複雜的機率問題,就難以模擬研究。 投擲一枚公正硬幣100次,過程中發生連續8次以上正面的機率為何? (約0.17) 提供靈活的迴圈功能以及豐富的現成指令 註1:軟體版本為GGB 4.0 與 R 2.12.2 註2:電腦作業系統為Windows XP ,Pentium(R) 4 CPU 3.20GHz 註3:GGB試算表只有9999列可用, 運算功能 軟體 項目 GGB R 速度 隨機抽樣(0,1) 次 0.1秒 隨機抽樣(0,1) 0萬次 0.1秒 隨機抽樣(0,1) 0萬次 0.1秒 抽樣後的系統速度 經常嚴重lag 無任何影響 中斷程式 不可 按E 顯示 1位數的數列最大長度 2517 皆長達100000 2位數的數列最大長度 1636 3位數的數列最大長度 1212 效果 GGB R 數列s中小於3的個數 Countif[x3,s] sum(s[s3]) 數列s中小於3的項 Keepif[x3,s] s[s3] {1,1,…,1} 共100項 Sequence[1,k,1,100] rep(1,100) {1,2,3,…,1000} Sequence[1000] c(1:1000) 或 1:1000 即可 {1,1,…,1,2,2,…,2,3,3,…,3} 60個1,80個2,100個3 a=Sequence[1,k,1,60] b=Sequence[2,k,1,80] c= Sequence[3,k,1,100] Join[a,b,c] rep(1:3,c(60,80,100)) 等差數列{4,7,10,…,103} Sequence[k,k,4,103,3] seq(4,103,3) {5,…,100} 共26項成等差 Sequence[5+(k-1)*95/25,k,1,26] seq(5,100,length=26) {0,1,0,1,0,1,…,0,1} 共100項 Join[Sequence[{0,1},k,50]] rep(c(0,1),50) 從{0,1}隨機抽樣10

文档评论(0)

fengruiling + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档