数模考试题目.docVIP

绘制单叶双曲面的图形 （） 解： a=(0:0.04:2)*pi; b=(-0.3:0.02:0.3)*pi; [u,v]=meshgrid(a,b); x=cos(u).*sec(v); y=sin(u).*sec(v); z=tan(v); surf(x,y,z); shading flat; 绘制双叶双曲面的图形 （） 解： a=(0:0.04:2)*pi; b=(0:0.02:0.46)*pi; [u,v]=meshgrid(a,b); x=0.5*cos(u).*sec(v); y=0.5*sin(u).*sec(v); z=sec(v); surf(x,y,z); hold on surf(x,y,z); shading flat; fibonaeci数列{}，a1=a2=1，=，求该数列中第一个大于10000的素数及其项数. 解： a=[1,1];k=2;p=0; while p10000 k=k+1; p=a(k-1)+a(k-2); a=[a,p]; end fprintf(a(%d)=%d\n,k,p); 编写一个程序，对任意一个大于1的正整数，判断出它是质数还是合数，若是合数，给出它的的二个因数。 解： clear; M=input(任意输入一个大于1的正整数M=); for i=2:sqrt(M) if rem(M,i)==0 fprintf(%d是合数，%d=%d*%d\n,M,M,i,M/i) return; end end fprintf(%d是质数\n,M) 1，某农夫有一个半径10米的圆形牛栏，长满了草，他要将一头牛拴在牛栏的边界的栏桩上，但只让牛吃到一半的草，问栓牛鼻的绳子应为多长？ 解： clear; syms a t x; y=pi/2*a*a-pi*a*x-int(sqrt(a*a+2*a*(t-x)-t*t)-sqrt(a*a-t*t),t,x,a); %y=subs(y,a,10); f=inline(char(y)); x=fzero(char(y),1) L=sqrt((110-x)^2+10^2-x^2) 2.如图所示，为了在海岛I与某城市C之间铺设一条地下光缆，每千米光缆铺设成本在水下部分是C1，在地下的部分是C2，为使的铺设该光缆的总成本最低，光缆C1的转折点P（海岸线上）应取在何处？ 如果实际测得海岛I与城市C之间水平距离L=30km，海岛距海岸垂直距离h1=15km，城市距海岸线垂直距离h=10km，C1=3000万元/km，C2=1500万元/km，求p点坐标（误差《10-3km） 解： syms?h1?h2?l?c1?c2?x;y=c1*sqrt(h1^2+x.^2)+c2*sqrt(h2^2+(l-x)^2);dy=diff(y,x)f=subs(dy,{h1,h2,l,c1,c2},{15,10,30,3000,1500});x0=fzero(char(f),15)ymin=subs(y,{h1,h2,l,c1,c2,x},{15,10,30,3000,1500,x0}); 有一艘宽为5m的长方形驳船，欲过某河道的直角弯，经测量知河道的宽度10m和12m，如图所示，设问，驳船要驶过直角弯，驳船的长度不能超过多少米？（误差m） 解： clear; syms d1 d2 b x; y=d1*sec(x)+d2*csc(x)-b*(tan(x)+cot(x)) y=subs(y,{d1,d2,b},{12,10,5}); dy=diff(y); x0=fzero(char(dy),1) y0=subs(y,x,x0) x1=0.7:0.001:0.78; y1=subs(y,x,x1) plot(x1,y1) axis=([0.7,0.78,21,21.15]) grid on 4.一个对称的地下油库内部设计到如图所示：横截面为园，中心位置的半径为3m，上下地面的半径2m，高为12m，纵截面的两侧顶点在中心位置的抛物线，试求： （1）油库内油面的深度h（从底部算起）时，库内油量容积v（h）； （2）设计测量油库油量的标尺，即为油量容积v已知时，算出油的深度h出油量大小。试给出当，，时油的深度。 解： clear; syms R r H h t; y=R-4*(R-r)/H^2*(H/2-t)^2; V=pi*int(y^2,t,0,h); V=subs(V,{R,r,H},{3,2,12}); Vh=subs(V,h,0:12); fprintf(V: h: \n) for i=1:27 hV(i)=fzero(inline(char(V-i*10)),0);