实验六几何变换.pptVIP

实验六几何变换 坐标变换为： 画出由平面直线段或曲线段组成的图形C及其象C’。 观察：直线、平行、垂直、长度、角度、圆 线性变换的特征向量 观察向量方向变化情况：左偏，右偏，不变，反向。 变换作用多次，观察趋势。 射影变换 x’ = x / (1-x), y’= y / (1-x). 直线、相交、平行 ? ？ 相交于x=1的直线 ? ？ 圆(与x=1相离、切、交) ? ? 非欧几何 克莱茵模型： 以单位圆G内部为整个平面，直线在G内的部分为直线。 “直线”长度为有限？ 罗巴切夫斯基变换： 将G变为自己的射影变换。 双曲旋转 x’=(x ch t+sh t )/(x sh t+ch t), y’= y /(x sh t+ch t) 是罗氏变换。 利用双曲旋转制作 罗氏刻度尺和量角器。 罗氏平行公理 代数基本定理 复多项式 f (z)有复零点 z0. f (x+y i) = x’+ y’ i 决定实变换 j : (x,y) ? (x’,y’). 画半径R的圆CR ? CR’. R很大,CR’含原点。R ? 0时 CR’连续缩为一点。必扫过原点。 Show[Graphics[Table[Line[co[[i]]], {i, 1, 22}]], Graphics[Line[curve]], AspectRatio - Automatic] w = 1; Show[Graphics[ Table[Line[{Nest[f, co[[i, 1]], w], Nest[f, co[[i, 2]], w]}], {i, 1, 22}]], Graphics[ Line[Table[Nest[f, curve[[j]], w], {j, 1, Length[curve]}]]], AspectRatio - Automatic] 练习3 线性变换的特征向量（2） 练习4变换的迭代 pic={}; Clear[f]; a1=1.1;b1=0.3;a2=0.2;b2=0.9; f[{x_,y_}]:={a1*x+b1*y,a2*x+b2*y}; Do[x=2Random[]-1;y=2Random[]-1;s={x,y}; Do[AppendTo[pic,s];s1=f[s];s=s1,{h,1,7}] ,{m,1,200}]; g41=ListPlot[pic,AspectRatio-Automatic] A = {{1.1, 0.3}, {0.2, 0.9}} Eigensystem[A] {{1.26458, 0.735425}, {{0.87674, 0.480965}, {-0.635406, 0.772178}}} g42 = Plot[0.480965/0.87674*x, {x, -4, 4}, PlotStyle - {RGBColor[1, 0, 0], Thickness[0.01]}] Show[g41, g42] 变换的迭代 A = {{1, 0.5, 0.4}, {2, 1, 0.7}, {2.5, 1.0/0.7, 2}}; B = {1, 1, 1}; Do[B1 = A.B; c = Apply[Plus, B1]; B2 = B1/c; Print[B2]; B = B2, {n, 1, 9}] 练习4.2 {0.164808, 0.320942, 0.51425} {0.154331, 0.293715, 0.551954} {0.152621, 0.289103, 0.558276} {0.152334, 0.288328, 0.559339} {0.152285, 0.288197, 0.559517} {0.152277, 0.288175, 0.559547} {0.152276, 0.288172, 0.559552} {0.152276, 0.288171, 0.559553} {0.152276, 0.288171, 0.559553} b = 0.5; Clear[t]; g[{x_, y_}] := {x/(1 - x), y/(1 - x)}; line1 = {t + 1, 0.1t + b}; line2 = {t + 1, t + b}; line3 = {t + 1, -0.5t + b}; line4 = {t + 1, -1.5t + b}; ParametricPlot[{line1, line2, line3, line4}, {t, -1, 1.5}, AspectRatio - Automatic]; ParametricPlot[{g[line1],