Mathematica 演習(2)

直線のパラメーター表示
（ベクトルの表記と演算の復習）

{2,1}+t*{1,-3}

Plot コマンド

y=f(x) のグラフ

Plot[-3*x+7,{x,0,4}]

パラメーター表示された図形の描画

ParametricPlot[{2,1}+t*{1,-3},{t,-2,2}]

行列の演算

行列の表記

A={{1,2},{3,4}}

A

A//MatrixForm

B={{-1,2},{3,1}}

B//MatrixForm

和と差，実数倍

A+B//MatrixForm

A-B//MatrixForm

3*B//MatrixForm

積

A.B//MatrixForm

逆行列

Inverse[A]//MatrixForm

A.Inverse[A]//MatrixForm

行列の転置

Transpose[A]//MatrixForm

行列式

Det[A]

Det[B]

直線を線形変換する

ParametricPlot[A.{2+t,1-3 t},{t,-2,2}]

c={{3,1},{-6,-2}}

c//MatrixForm

ParametricPlot[c.{2+t,1-3 t},{t,-2,2}]

回転行列による線形変換

R[s_]={{Cos[s],-Sin[s]},{Sin[s],Cos[s]}}

R[s]

R[Pi/3]//MatrixForm

Manipulate[ParametricPlot[R[s].{2+t,1-3 t},{t,-2,2},PlotRange->{{-5,5},{-5,5}}],{s,0,2*Pi},SaveDefinitions->True]