数学实验作业汇总Word文档下载推荐.docx
《数学实验作业汇总Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《数学实验作业汇总Word文档下载推荐.docx（24页珍藏版）》请在冰点文库上搜索。
M=
1?
2?
3?
4?
5?
6?
7?
8?
9?
10
11?
12?
13?
14?
15?
16?
17?
18?
19?
20
21?
22?
23?
24?
25?
26?
27?
28?
29?
30
31?
32?
33?
34?
35?
36?
37?
38?
39?
40
41?
42?
43?
44?
45?
46?
47?
48?
49?
50
9）
N?
=
12?
19
29
32?
39
sum（sum（M））-sum（sum（n））
ans=
663?
2）n取100、1000、10000，求序列1、1/2、1/3……1/n的和。
n=100;
n];
formatrat
M=t.^-1;
S=sum（M）
S=
2630/507
n=1000;
1804/241
n=10000;
1106/113
1.在同一坐标系下绘制y1=sin（t）,y2=sin（2t）,y3=sin（3t）,其中y1的数据点用星号，线形为黑色虚线，y2的数据点用方块，线形为红色实线，y3的数据点用小圆圈，线形为蓝色点线。
（要求采用一次绘出和逐次填加两种方式完成绘图）
t=linspace（0,2*pi,100）;
y1=sin（t）;
y2=sin（2*t）;
y3=sin（3*t）;
plot（t,y1,’*k:
’,t,y2,’sr-’,t,y3,’ob-.’）
’）
holdon
plot（t,y2,’sr-’）
plot（t,y3,’ob-.’）
holdoff
2.分别用plot和fplot函数绘制y=sin（1/x）的曲线，分析两曲线的差别
x=linspace（0,1/（2*pi）,100）;
y=sin（x.^-1）;
plot（x,y,’*-’）
>
fplot（’sin（x.^-1）’,[0,1/（2*pi）],’o-’）
两曲线的差别:
plot曲线在确定自变量x的取值间隔时采用平均间隔，图像不是十分准确；
fplot曲线自动取值，在函数值变化平稳时，它的数值点会自动相对稀疏一点，在函数值变化剧烈处，所取点会自动密集一点，所以曲线更加光滑准确。
6.
已知曲面方程f（x,y）=
x
[-1.5
，1.5
]，y
[-2.5
，2.5
]，用建立子窗口的方法在同一图形窗口绘制出三维线图，网线图，曲面图。
x=-1.5*pi:
pi/50:
1.5*pi;
y=-2.5*pi:
2.5*pi;
[X,Y]=meshgrid（x,y）;
Z=sin（sqrt（X.^2+Y.^2））./sqrt（1+X.^2+Y.^2）;
subplot（1,3,1）;
plot3（X,Y,Z）;
subplot（1,3,2）;
mesh（X,Y,Z）;
subplot（1,3,3）;
surf（X,Y,Z）;
8.将peaks函数生成的最高峰削去，并用色图矩阵“cool”修饰。
[x,y,z]=peaks（30）;
x1=x（1,:
）;
y1=y（:
1）;
i=find（y1>
1&
y1<
3）;
j=find（x1>
-1&
x1<
1）;
z（i,j）=NaN*z（i,j）;
surf（x,y,z）
colormap（cool）
3.定义一个函数，函数的自变量为整数n，函数的功能是：
随机产生n个三位整数，将其中小于平均值的数用0代替。
function[mean,x]=ff（n）
x=floor（100+899*rand（1,n））;
m=length（x）;
mean=sum（x）/m;
x（x<
mean）=0;
4.编写函数，用来求下列函数的和，并给出n分别为100,1000,10000时，下列各式的值。
functiony=s（n）
y=1;
fori=1:
1:
n
x=4*i^2/（4*i^2-1）;
y=y*x;
end
disp（y）
s（100）=1.5669
s（1000）=1.5704
s（10000）=1.5708
5.通过命令文件实现：
随机产生20个数，输出其中的最大数和最小数。
通过函数文件实现：
随机产生n个数，输出其中的最大最小数。
命令文件
t=rand（1,20）;
disp（'
max='
disp（max（t））
max=
0.7942
min='
disp（min（t））
min=
0.0503
函数文件
functionf3（n）
t=rand（1,n）;
disp（'
disp（max（t））;
disp（min（t））;
3.求下列函数的一阶和二阶导数
symsx
diff（2/tan（x）+cos（x）/3,’x’,1）
-sin（x）/3-（2*（tan（x）^2+1））/tan（x）^2
diff（2/tan（x）+cos（x）/3,’x’,2）
4.求积分
symsx
int（sqrt（exp（x）+1）,x）
2*（exp（x）+1）^（1/2）+2*atan（（exp（x）+1）^（1/2）*i）*i
5.求下列级数的和
symsn
s=symsum（（-1）^（n+1）*1/n,1,inf）
s=
log
（2）
6.求函数在x=0处的泰勒展开式
taylor（（exp（x）+exp（-x））/2,x,5,0）
x^4/24+x^2/2+1
1.利用randn函数声称符合正态分布的10*5随机矩阵A，进行以下操作：
（1）.A的各列元素的均值和标准方差
（2）.A的最大元素及其所在位置
（3）.A的每行元素的和以及全部元素之和
（4）.分别对A的每行元素按升序排序
（5）.将A中的每行元素的总和按从大到小的顺序存入line_sum中，相应的行号存入line_num中
A=randn（10,5）;
a1=mean（A）
a2=std（A）
AA=max（max（A））
[ij]=find（A==AA）
a3=sum（A,2）
a4=sum（sum（A））
a5=sort（A,2）
[line_sum,line_num]=sort（sum（A,2）,'
descend'
2、补充题：
利用导入向导（或借助函数imread）导入一幅单色图片存入变量ima_data中，然后依次完成下列操作：
（1）用imshow函数显示图片；
（2）删除图片前若干行（例如前100行）再次显示该图片。
（3）将图片上、下翻转再次显示图片。
先找到一个.bmp的文件，把它放入工作目录下，并修改名称为‘1.bmp’,执行下列操作。
ima_data=imread（’1.bmp’）;
（1）imshow（ima_data）;
（2）a=ima_data（101:
end,:
imshow（a）;
（3）imshow（flipud（ima_data））;
3.下表所示是0~90度内某些数的正弦近似值
x度
15
30
45
60
75
90
Sinx
0.2588
0.5
0.7071
0.866
0.9659
1
利用线性、样条差值求x=20、40、80度时正弦值，这两种方法哪个好？
为什么
实验步骤：
利用inerp1函数先分别求出线性插值和三次样条插值所得到的y11和y12，再利用sin（x）函数得到准确的y1，比较y11和y1，y12和y12，不难得出结论。
所用语句clear;
clc;
x=[0153045607590]./180.*pi;
y=sin（x）;
x1=[204080]./180.*pi;
y11=interp1（x,y,x1,’linear’）;
y12=interp1（x,y,x1,’spline’）;
y1=sin（x1）;
主要结果y11=
0.3392
0.6381
0.9773;
y12=0.3420
0.6428
0.9849;
y1=0.3420
0.9848;
4.已知某次实验测得数据如下：
x
1.4
1.8
2.2
2.6
3
3.4
3.8
4.2
4.6
5
y
0.87
0.52
5.21
3.51
14.29
19.43
14.13
41.53
13.91
58.56
14.99
5.4
5.8
6.2
6.6
7
7.4
7.8
8.2
8.6
9
9.4
130.47
44.82
21.25
43.15
281.25
200.09
177.93
344.53
509.84
531.07
260.49
（1）请用3次多项式进行拟合，并给出拟合函数在0、0.5、1、1.5^9、9.5处的值
（2）估计用几阶多项式拟合的效果较好，并说明理由。
4.
（1）clear;
x=1:
0.4:
9.4;
y=[0.870.525.213.5114.2919.4314.1341.5313.9158.5614.99130.4744.8221.2543.15281.25200.09177.93344.53509.84531.07260.49];
x1=0:
0.5:
9.5;
p=polyfit（x,y,3）;
y1=polyval（p,x1）;
主要结果:
y1=[50.5533.0318.918.38
1.61
-1.230.055.6215.6530.32
49.80
74.28103.92138.91
179.41
225.61277.67335.79400.12470.85]
（2）19阶拟合效果最好。
理由通过编写差方和函数（基于最小二乘原理）f（n）
f（n）函数如下：
functiontz=f（n）
t=[];
p=polyfit（x,y,i）;
y1=polyval（p,x）;
c=sum（（y-y1）.^2,2）;
t=[tc];
tz=find（t==min（t））;
令n=22（一共22组数据）f函数值最小时是19阶时
所以得出结论19阶多项式拟合效果最好。
再用拟合图像（p=polyfit（x,y,19），plot（x,y,’:
o’,x,polyval（p,x）,’-*’））也可以看出19阶多项式拟合效果最好。
2、自行练习题。
下列填空题是期中考试出错比较多的题目，请认真考虑并上机调试。
（6）逆序显示向量t中的元素：
（7）显示向量t偶数位置上的元素
：
（9）删除向量t中最小的5个数：
（17）将1~50按列优先存放到5*10的矩阵M中：
（18）求矩阵M最大值所在的位置：
（19）统计字符串S中小写字母的个数：
（20）设A是n阶0、1方阵，A边界上1的个数：
（6）.t（end:
（7）.t（2:
（9）.M=sort（t）
a=find（t<
M（6））
t（a）=[]
（17）.t=[1:
5:
46]
t+1;
t+2;
t+3;
t+4]
（18）.[i,j]=find（M==max（max（M）））
（19）.a=find（s>
=’a’&
s<
=’z’）
num=length（a）
（20）.B=A（2:
end-1,2:
end-1）
num=sum（sum（A））-sum（sum（B））
1.分别用矩阵求逆、矩阵除法以及矩阵分解求线性方程组的解
矩阵求逆
A=[2,2,-1,1;
4,3,-1,2;
8,3,-3,4;
3,3,-2,-2];
b=[4,6,12,6]’;
inv（A）*b
运用左除运算符
x=A\b
运用矩阵分解
[Q,R]=qr（A）;
x=R\（Q\b）
4.在区间[30,50]内，求
的零点。
f=’5*sin（x）-2*（log（x）/log（3））+1.8’;
ezplot（f,30,50）
fzero（f,33）
32.5547
fzero（f,34）
33.3960
fzero（f,38）
39.0426
fzero（f,[39.4，39.5]）
39.4785
则方程有四个零点
6.给出实验数据如下：
2
4
6
8
10
11
12
13
14
16
6.24
8.20
9.58
9.60
10.02
9.93
9.99
10.47
10.59
10.60
10.80
10.90
10.75
试分别用
做拟合形式，求出a和b及拟合曲线，并画图进行比较。
x=[2:
16];
y=[6.24,8.20,9.58,9.60,9.60,10.02,9.93,9.99,10.47,10.59,10.60,10.80,10.60,10.90,10.75];
X=1./x;
Y=log（y）;
P=polyfit（X,Y,1）
P=
-1.1552
2.4629
exp（2.4629）
11.7388
则a=11.7388
b=-1.1552
作图：
Y1=polyval（P,X）
y1=exp（Y1）;
plot（x,y,’:
o’,x,y1,’-*’）
Y=1./y;
0.1384
0.0815
则a=0.0815
b=0.1384
Y1=polyval（P,X）;
y1=1./Y1;
3.求下列方程或方程的根在指定点的近似根
，初值
functionf=myFun（x）
f
（1）=sin（x
（1））+x
（2）^2+log（x（3））-7;
f
（2）=3*x
（1）+2^x
（2）-x（3）^3+1;
f（3）=x
（1）+x
（2）+x（3）-5;
X=[1,1,1]’;
op=optimset（’display’,’off’）;
x=fsolve（@myfun,X,op）
x=
0.5991
2.3959
2.0050
2.已知
，求y的单调增区间和y的极值
fplot（’2*sin（x）+cos（2*x）’,[0,pi/2]）
f=2*sin（x）+cos（2*x）;
s=diff（f）
s=
2*cos（x）-2*sin（2*x）
fzero（’2*cos（x）-2*sin（2*x）’,0.5）
0.5236
由图知单调递增区间为[0,0.5236]；
将ans的值代入原式中，得y的极值为1.5。
3.求解线性约束最优化问题
functionf=fop（x）
f=0.5*x
（1）^2+x
（2）^2-x
（1）*x
（2）-2*x
（1）-6*x
（2）;
x0=[0.5;
0.5];
A=[1,1;
-1,2;
2,1];
b=[2;
2;
3];
lb=[0;
0];
options=optimset（’display’,’off’）;
[x,f]=fmincon（@fop,x0,A,b,[],[],lb,[],[],options）
0.6667
1.3333
f=
-8.2222
1、请你构造一个生成素数的公式,并将你的工作与Euler的工作比较。
采用素数生成公式p=n^2-79*n+1601
（1）编写函数f（x）,用来计算素数多项式生成公式，在100以内和1000以内，产生素数的百分比,程序如下：
functiontz=f（x）
n=0:
x（1,3）;
t=n.^2+x（1,1）*n+x（1,2）;
t1=find（isprime（t））;
tz=length（t1）/length（n）;
（2）代入Euler公式系数x1=[141100],x2=[1411000]与p=n^2-79*n+1601系数y1=[-791601100],y2=[-7916011000]比较
得到结果
f（x1）=0.8614;
f（x2）=0.5814;
f（y1）=0.9505;
f（y2）=0.6014;
所以可得结论该公式比Eluer的公式生成素数的概率要高；
2、研究百万以内素数的间隔规律。
a=primes（1000000）;
b=a;
b
（1）=[];
a（length（a））=[];
t=b-a;
plot（a,t,’.’）;
t1=unique（t）
%求相邻素数间的间隔值
t1=
Columns1through14
1
2
4
6
8
10
12
14
16
18
20
22
24
26
Columns15through28
28
30
32
34
36
38
40
42
44
46
48
50
52
54
Columns29through42
56
58
60
62
64
66
68
70
72
74
76
78
80
82
Columns43through52
84
86
88
90
92
96
98
100
112
114
s=zeros（2,length（t1））;
length（t1
升级会员 