統(tǒng)計計算課程設計報告書(084357)-資料下載頁

　　

【正文】 ，體現(xiàn)的內容更多。（5） 由（2）中的表可以知道R=，調整后R=。所以得到決定系數(shù)調整后。：R平方值是趨勢線擬合程度的指標，它的數(shù)值大小可以反映趨勢線的估計值與對應的實際數(shù)據(jù)之間的擬合程度，擬合程度越高，趨勢線的可靠性就越高。R平方值是取值范圍在0～1之間的數(shù)值，當趨勢線的 R 平方值等于 1 或接近 1 時，其可靠性最高，反之則可靠性較低。R平方值也稱為決定系數(shù)。這與從散布圖中所得到的印象是一致的。實驗五：Mathematica基本操作一、完成時間：2012年6月20日二、基本要求：了解Mathematica軟件的操作界面和基本功能，會用Mathematica的基本函數(shù)進行有關數(shù)學運算。三、實驗內容：1，把正切函數(shù)tanx和反切函數(shù)arctanx的圖形及其水平漸近線y=p/2和直線y=x用不同的線型畫在同一坐標系內。解：①在Mathematica窗口中輸入以下內容Plot[{Tan[x],Arctan[x],y=Pi/2,y=Pi/2,y=x},{x,Pi/2,Pi/2},PlotStyle174。{RGBColor[1,0,0],RGBClor[1,0,0],RGBClor[0,0,1],RGBClor[0,0,1],RGBClor[0,1,0]}]②然后按下Shif+Enter鍵，得到如下圖：2，輸入以下命令Plot[{Sin[x],Sin[2x],Sin[3x]},{x,0,2Pi},PlotStyle174。{RGBColor[1,0,0],RGBColor[0,1,0],RGBColor[0,0,1]}] 理解選項的含義。解：①在Mathematica窗口中輸入以上內容得到如下圖：由圖可知其選項的含義是：把正弦函數(shù)sinx,sin2x,sin3x的圖形用不同的顏色畫在同一坐標內。3，用Plot3D命令作出函數(shù)Z=cos2xsin3y(3 163。x163。3,3 163。y163。3)的圖形，采用選項PlotPoints40.解：①在Mathematica窗口中輸入以下內容Z=Plot3D[Cos[2x]*Sin[3y],{x,3,3},{y,3,3},PlotPoints174。40]②然后按下Shif+Enter鍵，得到如下圖：4，做出函數(shù)的圖形。解：①在Mathematica窗口中輸入以下內容z=Plot3D[Sin[Pi* Sqrt[x^2+y^2]],{x,4,4},{y,4,4}]②然后按下Shif+Enter鍵，得到如下圖：5,用Plot3D命令作出函數(shù)z=exp[(x^2+y^2)/2]*((cosx)^2+(siny)^2)在p163。x163。p,p163。y163。p上的圖形，采用選項PlotPoints60.解：①在Mathematica窗口中輸入以下內容z=Plot3D[Exp[(x^2+y^2)/8]*((Cos[x])^2+(Sin[y])^2),{x,Pi,Pi},{y,Pi,Pi},PlotPoints174。60]②然后按下Shif+Enter鍵，得到如下圖：6,二元函數(shù)z=在點（0,0）處不連續(xù)，用Plot3D命令作出在區(qū)域2163。x163。2,2163。y163。2上的圖形（采用選項PlotPoints40）。觀察曲面在（0,0）附近的變化情況。解：①在Mathematica窗口中輸入以下內容z=Plot3D[(x*y)/(x^2+y^2),{x,2,2},{y,2,2} ]PlotPonits174。 40②然后按下Shif+Enter鍵，得到如下圖：7，一個曲面的參數(shù)方程為x=(3+cosu)cosv,y=(3+cosu)sinv,z=sinu (0163。u163。2p,2163。v163。2p)試用命令ParametricPlot3D作出它的圖形。解：①在Mathematica窗口中輸入以下內容ParametricPlot3D[ { (3+Cos[u])*Cos[v] ,(3+Cos[u])*Sin[v],Sin[u]},{u,0,2Pi},{v,0,2Pi}]②然后按下Shif+Enter鍵，得到如下圖：8．用命令Plot3D作雙曲拋物面z=x^2y^2/4,其中6163。x163。6,14163。y163。14（用選項BoxRatios{1,1,1},PlotPoints30）.解：①在Mathematica窗口中輸入以下內容z=Plot3D[x^2/1y^2/4,{x,6,6},{y,14,14},BoxRatios174。{1,1,1},PlotPoints174。30]②然后按下Shif+Enter鍵，得到如下圖：^2+y^2=1和圓柱面x^2+z^2=1相交的圖形.解：①在Mathematica窗口中輸入以下內容t=ParametricPlot3D[{Cos[t],Sin[t],z},{t,0,2 p},{z,1,1}]t1=ParametricPlot3D[{Cos[t],y,Sin[t]},{t,0,2 p},{y,1,1}]Show[t,t1]②然后按下Shif+Enter鍵，得到如下圖：（1）解：①在Mathematica窗口中輸入以下內容Limit[(x*Sin[1/x])+(1/x*Sin[x]),x174。0]②然后按下Shif+Enter鍵，得到結果為：1（2）解：①在Mathematica窗口中輸入以下內容Limit[x^2/Exp[x],x174。+Infinity]②然后按下Shif+Enter鍵，得到結果為：0（3）解：①在Mathematica窗口中輸入以下內容Limit[(Tan[x]Sin[x])/x^3,x174。0]②然后按下Shif+Enter鍵，得到結果為：1/2(6) 解：①在Mathematica窗口中輸入以下內容Limit[(3x^32x^2+5)/(5x^3+2x+1),xInfinity]②然后按下Shif+Enter鍵，得到結果為：3/5(8) 解：①在Mathematica窗口中輸入以下內容Limit[(Sin[x]/x)^1/(1Cos[x]),x174。0]②然后按下Shif+Enter鍵，得到結果為：165。：（1）解：①在Mathematica窗口中輸入以下內容D[Exp[(x+1)^1/3],x]②然后按下Shif+Enter鍵，得到結果為：（3）解：①在Mathematica窗口中輸入以下內容D[1/2*(Cot[x])^2+Log[Sin[x]],x]②然后按下Shif+Enter鍵，得到結果為：.解：①在Mathematica窗口中輸入以下內容D[2^(1/Cos[x]),x]②然后按下Shif+Enter鍵，得到結果為：13,。求函數(shù)y=ln[f(x)]的一、二階導數(shù)。解：①在Mathematica窗口中輸入以下內容D[Log[f[x]],x]②然后按下Shif+Enter鍵，得到結果為：③在Mathematica窗口中輸入以下內容D[Log[f[x]],{x,2}]④然后按下Shif+Enter鍵，得到結果為：，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來越容易。不奮斗就是每天都很容易，可一年一年越來越難。能干的人，不在情緒上計較，只在做事上認真；無能的人！不在做事上認真，只在情緒上計較。拼一個春夏秋冬！贏一個無悔人生！早安！—————獻給所有努力的人.學習好