2014年数学物理建模期末考试试题.docxVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
数学物理建模与计算机仿真考试试题 (2014——2015第一学期) (n为自然数)1、计算机仿真计算积分: (n为自然数) 积分方向为正方向(10分)。 解: clear al 1 弔利用留数定理求解有方向的闭合路径的积分计算 m=zeros(L101); m(l) = l; m(101) = l; [R,P,K]=residue([l 0],m); int=2*pi*sum(R) (不要投影图)2、在同一幅图中绘制函数于⑵二 2 和平面x = O的图像(10分)? + 3^ (不要投影图) 解: 2畑3?z) 15- 程序: function text2 clear al 1 z=2*cplxgrid(30); cplxmapl (z,2. /((5+3*z) +eps? (z=~3/5))); title(r2./(5-3*z)*); hold on [y, z]=meshgrid(-3:0. 5:3.-3:0? 5:3): x二zeros(size (y)); mesh(x.y.z); end function cplxmapl(z,w.B) blue = 0. 2; x = real (z); y = imag(z): u = real(w); v = imag(w); if nargin 2 k = find((abs(w) B) ; isnan(abs(w))); if length(k) 0 u(k) = B*sign(u(k)); v(k) = zeros(size (k)); v = v/max(max (abs (v))); v(k) = NaN*ones(size(k)); end end M = max(max(u)); m = min(min(u)); axis([-l 1 -1 1 m M]); caxis([-l 1]); s = ones(size(z)); surf(xty.u.v); colormap(hsv(64)) End 3、在同一幅图中绘制绘制勒让德函数 环心妁 的图形(10分)。 解: 程序: clear al 1 t=0:0. 01:l; y1=Legendre (1,t); y2=legendre(2t t); y3=legendre (3rt); plot(tf yl (1. :), . t,yl (2. :) J y」J linewidth t3); hold on plot(t,y2(l, :) f t,y2(2, :) t rk-, tty2(3, :) , m-, * linewidth* ,3); hold on plot(t,y3(l, :), t,y3(2f :) / g-, tty3(3, ,t,y3(4, :) /- 11 linewidth* ? 3); legend(?p_「0「P_「「,°P_2V.?P 21「P :f T , 32\*P_3^ 3J; title (勒让德’); 3、 求任意两个圆相交的区域,并求出相交区域的面积。(注: 如果两个圆不相交,输出“两个圆不相交”)(20分)。 程序: function text4 clear al 1 char ch; 弔画两个圆 心 100; rl=100; xO二0;y0=0;xl=40;yl=60; ch=*g*; circle(rO.xO,yO.ch); ch=,r*; circle(rltxl,yl,ch); 弔判断两个圆是否相交并求面枳 x3=[]; y3=[J; for x=-rl:rl for y=-rl:rl dl=sqrt((x-xO) 2+ (y-yO) 2); d2=sqrt((x-xl)*2+(y-yl) 2); if((dl=rO)(d2=rl)); x3=[x3.x]; y3=[y3.y]; end end end if (size(x3) ==0) fprintf (r可’、囲不想交’); else 弔计算面积 syms a b [al,bl]=solve((a-xO)2+(b-y0厂2-rO 2.(a~xl) 2+(b-yl)*2-rl 2); al=double(al); bl=double(bl); plot(x3,y3. k. *); juli=sqrt((al(l)-al(2))^2+(bl(l)-bl(2))2); hO=sqrt(r0*2-(juli/2) 2); hl=sqrt(rl 2-(juli/2)2); S=rO*rO*acos(hO/rO)/2+rl*r1*acos(h1/rl)/2-(hO+hl)*juli/2; fprintf (*输出面积的大小为:\n%f\n .S); end end function circle(r.xO

文档评论(0)

laugh + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档