试验六几何变换.pptVIP

下载本文档

0
0
约7.66千字
约 64页
2025-12-01 发布于浙江
举报
版权申诉

试验六几何变换.ppt

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

*co={};curve={};Do[AppendTo[co,{{-5-0.8229y,-5*0.5486+y},{5-0.8229y,5*0.5486+y}}],{y,-5,5}];Do[AppendTo[co,{{x+5*0.8229,0.5486x-5},{x-5*0.8229,0.5486x+5}}],{x,-5,5}];curve=Table[{1.5Sin[4t],-3Sin[3t]*Sin[5t]+2},{t,0,2Pi,Pi/180}];Do[AppendTo[curve,{5Sin[2t],5Sin[3t]*Sin[5t]}],{t,0,Pi,Pi/180}];练习3线性变换的特征向量（2）*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}*射影变换x’=x/(1-x),y’=y/(1-x).直线、相交、平行?？相交于x=1的直线?？圆(与x=1相离、切、交)??*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],g[line2],g[line3],g[line4]},{t,-10,10}