Mathematica 入門(2)

ベクトル

ベクトルの内積，ノルム，なす角

{9,5,-2}.{1,1,1}

Norm[{9,5,-2}]

Norm[{1,1,1}]

なす角をθとするとCos[θ] は

{9,5,-2}.{1,1,1}/(Norm[{9,5,-2}]*Norm[{1,1,1}])

N[{9,5,-2}.{1,1,1}/(Norm[{9,5,-2}]*Norm[{1,1,1}])]

θの値は余弦関数の逆関数で求める．

N[ArcCos[{9,5,-2}.{1,1,1}/(Norm[{9,5,-2}]*Norm[{1,1,1}])]]

N[Pi/4]

空間ベクトルの外積

Cross[{9,5,-2},{1,1,1}]

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

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

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

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

2 つの図形をひとつの空間 （または平面） 内に描画

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

ParametricPlot3D[
{1+2t, 2-t,2+t},
{t,-3,3}]

Show[
ParametricPlot3D[
{1+t-s, 2-2*t+s,3+t},
{t,-3,3},{s,-3,3}],
ParametricPlot3D[
{1+2t, 2-t,2+t},
{t,-3,3}]
]