4 レポート課題11

• Oh-o! Meiji を使ってレポートを提出せよ。 締め切りは7月19日(月曜)18:00とする (変更しました)。
  と書いたのですが、 Oh-o! Meiji の容量制限にひっかかってしまうそうです。 Mathematica の新しいバージョンでは、見栄えを綺麗にしたために、 画像ファイルのサイズが大きくなったせいですね。 サイズを押えるために、JPEG (.jpg) で Export[] して、 jpeg2ps で PostScript (.eps) に変換するという手段がありますが、 試験前で忙しいでしょうから、メールで syori2@math.meiji.ac.jp に送ってもらっても構いません。 もう一つ、裏技的な解決手段として、Version 5 時代のグラフィックスを使う、 というのがあります。

  In[数] := <<Version5`Graphics`

  としてからグラフを描いて、Export[ ] すると、 出来上がるファイルのサイズはかなり小さくなります。
• Mathematica に与えたコマンドと計算結果、その説明を TEX で書き、 PDFファイル (名前は kadai11.pdf とする) を提出する。
• (繰り返し) 結果が複雑な場合は、簡単化を試みること。
• (繰り返し) 検算が可能な問題については、検算もすること。 -- 時間に余裕が生じた場合は、ここを頑張ること。 コンピューターを使う場合、筆算ではできないような検算も可能になる。

(1)

Mathematica に、 $\cos\dfrac{2\pi}{n}$ ( $n=1,2,\dots,20$) を計算させなさい。 (結果を見て納得が行きますか?)

(2)

$$\sum_{k=1}^3\frac{1}{2^k}$$, $$\sum_{k=1}^5\frac{1}{2^k}$$, $$\sum_{k=1}^{10}\frac{1}{2^k}$$, $$\sum_{k=1}^{50}\frac{1}{2^k}$$ を計算せよ (なるべくユーザー定義関数を使うこと)。 また、それらの値を正確に小数に直せ (十進法では有限小数というのはすぐ分かりますね？)。

(3)

与えられた $\alpha>0$ に対して、 $\sqrt{\alpha}$ の近似値を求めるために Newton 法

$$\mbox{$x_1$ は適当に与える} ,$$

$$x_n= x_{n-1}-\frac{x_{n-1}^2-\alpha}{2 x_{n-1}} =\frac{1}{2}\left(x_{n-1}+\frac{\alpha}{x_{n-1}}\right) \mbox{($n=2,3,\cdots$)}$$

が利用できる¹。 実際にこれを用いて $\sqrt{3}$, $\sqrt{21}$ の近似値を求めよ。 やはり計算の仕方を工夫すること。 また得られた結果の精度についても検討せよ。

(4)

次のどちらか一方を解け。

(a)

図1を再現せよ。

(b)

円錐を描け。

図: $\dfrac{x^2}{2}+\dfrac{y^2}{3}+\dfrac{z^2}{4}=1$ と 接平面 $x+y+z=\pm 3$