数学のブログ

行列 1次変換 平面、直線、対称移動、原点、回転、相似比

線形代数演習〈理工系の数学入門コース/演習 新装版〉 (浅野 功義(著)、大関 清太(著)、岩波書店)の第2章(行列)、2-2(1次変換)、問題3の解答を求めてみる。

1

f(x1y1)=(x2y2)
y1+y22=2·x1+x222·y1-y2x1-x2=-1
y1+y2=2x1+2x22y1-2y2=-x1+x2
4y1=3x1+5x2x2=-35x1+45y1
y2=2x1-65x1+85y1-y1=45x1+35y1

よって、 求める平面の1次変換、対称移動は、

f(xy)=[-35x+45y45x+35y]

2

f(xy)=[xcosπ3-ysinπ3xsinπ3+ycosπ3]=[12x-32y32x+12y]

3

f(xy)=(3y3y)

コード(Wolfram Language, Jupyter)

f[{x_, y_}] := {-3/5x + 4/5y, 4/5x + 3/5y}
points = RandomInteger[{-10, 10}, {10, 2}]
{{3, 2}, {-7, -10}, {10, 6}, {-8, -4}, {10, -9}, {-2, 4}, {10, 2}, {-3, 9}, {8, 8}, 
 
>   {-3, 7}}
ListPlot[{
    Table[f[point], {point, points}],
    Table[point, {point, points}],
    Table[{x, 2 x}, {x, -10, 10}]
}, AspectRatio -> {1, 1}, PlotStyle -> PointSize[Medium]]
Output
f[{x_, y_}] := {x/2 - Sqrt[3]/2y, Sqrt[3]/2x + 1/2y}
ListPlot[{
    Table[point, {point, points}],
    Table[f[point], {point, points}]
}, AspectRatio -> {1, 1}, PlotStyle -> PointSize[Medium]]
Output
f[{x_, y_}] := 3{x, y}
ListPlot[{
    Table[point, {point, points}],
    Table[f[point], {point, points}]
}, AspectRatio -> {1, 1}, PlotStyle -> PointSize[Medium]]
Output