Mathematicaの問題について
Mathematicaという数式処理システムについて、授業ではほとんど教わっておらず、説明なども飛ばし飛ばしで、一体何をやっているのだか、言っているのだか全く分からないまま課題が出されて、何をどうしてよいのか分からず、手が出ない状況で困っています。課題の内容を載せますので、どなたか解答を教えていただきたいです。出来れば何をどうしているのかも教えて頂けたら嬉しいのですが、解答だけでも十分ありがたいので、長くなってしまいますが、どうかよろしくお願いします。
１．分散を計算する以下の関数には、誤りがある。誤りを
指摘し、正しく動くよう修正しなさい。
myVariance[ arg1 ] : = ( xbar = Mean[arg1] ;
temp1 = Table[ {i, 1, Length[arg1]}, (arg1[[i]] – xbar)^2];
N[ Apply[Plus, temp1] / Length[arg1] ] )
２．正規分布の確率密度関数を描く関数grNormal を以下に
定義する。 (1)と(2)を埋めて関数を完成させなさい。 関数の入力引数は、平均mu,
標準偏差sigma, グラフを描く範囲(－xrange～xrange)の３つとする。
grNormal[mu_, sigma_, xrange_] := (1) ＿＿[{ndist, pdfunc, ymin=-0.01, ymax=0.43},
(2) ＿＿＿＿＿＿＿＿＿;
pdfunc = PDF[ndist, x];
Plot[pdfunc,{x, -xrange, xrange},
Frame->True,PlotRange->{{-xrange, xrange}, {ymin, ymax}}] ]
３．複合式を用いて平均を求める関数を以下に定義する。 (1)
と(2)を埋めて関数を完成させなさい
myMean[(1) ＿＿] := (data1 = Apply[Plus, arg1];
data2 = Length[arg1];
average = (2) ＿＿)
４．data1 は，10 人の学生の統計学試験の点数とその度数をリストで示したも
のである．このデータからMathematica を用いて統計学試験の分散を求める関
数を2 通りの方法により以下に作成した．(1)と(2)の下線を埋めて完成させなさ
い． また，それぞれがどのような方法か説明しなさい
【手法１】
data1 = List[40, 40, 40, 50, 50, 50, 50]
myVari[arg1_] := (xbar = Mean[arg1];
temp1 = Table[(arg1[[i]]-xbar)^2,{i,1,Length[arg1]}];
(1) ＿＿＿＿＿)
Vari = myVari[data1]
【手法２】
data1 = List[40, 40, 40, 50, 50, 50, 50]
myVari[arg1_] := (xbar = Mean[arg1];
temp1 = Table[(arg1[[i]])^2,{i,1,Length[arg1]}];
(2) ＿＿＿＿＿)
Vari = myVari[data1]
５．data1 は，10 人の学生の統計学試験の点数とその度数をリストで示した
ものである．このデータからMathematica を用いて統計学試験の分散を
求める関数を以下に作成した．誤りを指摘し，正しく動作するよう修正
しなさい.
data1 = List[40, 40, 40, 50, 50, 50, 50, 60, 70, 80]
myVari[arg1] := (xbar = Mean[arg1];
temp1 = Table[(arg1[[i]]-xbar),{i,1,Length[arg1]}];
N[Apply[Plus, temp1] – xbar^2])
Vari = myVari[data1]
６．data1 は10 名の学生の右握力と球投げの結果を2 次元のリストで示したものである.
このデータからMathematica を用いて共分散を求める関数を以下に作成した．下線
(1) と(2) を埋めて完成させなさい．なお, myC の第１引数には右握力(grip),
第2 引数には砲丸投げ(shot) の値を与えるものとする.
data = List[{26,16},{26,11},{26,14},{27,16},{28,18},
{29,16},{32,18},{29,21},{24,14},{26,19}]
<<Statistics’MultiDescriptiveStatistics’
TableForm[data1]
grip = Table[data3[[i,1]],{i,1,10}]
shot = Table[data3[[i,2]],{i,1,10}]
myC[arg1_,arg2_] := (xbar = Mean[arg1]; ybar = Mean[arg2];
temp1= (1)______________________________________________;
(2)____________________________________________________)
myCorrelation = myC[grip,shot]
お礼
ありがとうございました！ 週明けにでもすぐに試してみます！