Matlab写一个小程序

%%

clc

clear

m = linspace(1,100,100)

flag = 0

res = 0

for i = 3:length(m)

for j = 2:i-1

if mod(m(i),j) == 0

flag = 1

break

else

flag = 0

end

end

if flag == 0

r = [res,m(i)]

res = r

end

end

r(2:length(r))

% t4.m参考程序(考虑了多人最高、最低等情况)：

% 请看懂！！！能编最好！

function t4()

clc

%---------start 初始化---------------

row=input('输入学生人数：')

col=input('输入课程数目：'樱做敏)

score=fix(rand(row,col)*49)+49

xh0=1:row

kch0=1:col

for ii=1:row

zcj_pre(ii)=sum_(score(ii,:))

end

disp('原始成绩表<第一列为学号、中间依次为各科成绩、最后一列为学生总成绩>：')

disp([xh0' score zcj_pre'])

%---------end 初始化--------------------

% 调用tongji1

[c_max,index_max,c_min,index_min,c_ave]=tongji1(score)

disp('平均分统计：')

fprintf(' 课程 平均\n')

% 按以上格式输出

disp([kch0',round(c_ave)'])

disp('课程最高分统计：')

fprintf(' 课程 最高 学号\n')

for jj=1:col

fprintf('%d %d',kch0(jj),c_max(jj))

for kk=1:length(index_max{jj})

fprintf('%d ',index_max{jj}(kk))

end

fprintf('\n')

end

disp('课程最低分统计：')

fprintf(' 课程 最低 学号\n')

% 按以上格式输出

for jj=1:col

fprintf('%d %d',kch0(jj),c_min(jj))

for kk=1:length(index_min{jj})

fprintf('%d ',index_min{jj}(kk))

end

fprintf('\n')

end

% 调用tongji23

[s_max,index_max,s_min,index_min,px]=tongji23(score)

disp('学生总成绩最高分统计：')

fprintf('最高总分 学脊枝号\n')

% 按以上格式输出

fprintf('%d ',s_max)

disp(index_max)

disp('学生总成绩最低分统计：')

fprintf('最低总分 学号\n')

% 按以上格式输出

fprintf('%d ',s_min)

disp(index_min)

disp('--------------------------------')

fprintf('总成绩排降序：\n')

fprintf('总成绩 学号\n')

% 按以上格式输出

disp(px)

% 存入zcj

zcj=px(:,1)%zcj在主函数空间

% 存入xh

xh=px(:,2)%xh也在主函数空间

function [c_max,index_max,c_min,index_min,c_ave]=tongji1(score)

% c_max课程最高分col*1向量

% index_max课程最高分对应学号col*1元胞

% c_min课程最低分col*1向量

% index_min课程最低分对应学号col*1元胞

% c_ave课程平均成胡兆绩col*1向量

[row,col]=size(score)

for jj=1:col

[c_max(jj),index_max{jj}]=max_(score(:,jj))

[c_min(jj),index_min{jj}]=min_(score(:,jj))

c_ave(jj)=ave_(score(:,jj))

end

function [s_max,index_max,s_min,index_min,px]=tongji23(score)

% s_max col门课程总成绩最高分

% index_max col门课程总成绩最高分对应学号

% s_min col门课程总成绩最低分

% index_min col门课程总成绩最低分对应学号

% px 排降序后的矩阵row*2 [col门课程总成绩学号]

[row,col]=size(score)

for ii=1:row

zcj(ii)=sum_(score(ii,:))

end

[s_max,index_max]=max_(zcj)

[s_min,index_min]=min_(zcj)

px=sort_down(zcj)

function y=sum_(x)%自编求和函数，x为向量

y=0

for ii=1:length(x)

y=y+x(ii)

end

function y=ave_(x)%自编求平均值函数，x为向量

y=sum_(x)/length(x)

function [x_max,index]=max_(x)%自定义函数

% x_max：向量x中的最大值

% index：向量x中的最大值对应的下标向量（有可能多个）

index=[]

x_max=x(1)

for ii=1:length(x)

if x(ii)>=x_max

x_max=x(ii)

end

end

for ii=1:length(x)

if x(ii)==x_max

index=[index,ii]

end

end

function [x_min,index]=min_(x)%自定义函数

% x_min：向量x中的最小值

% index：向量x中的最小值对应的下标向量（有可能多个）

index=[]

x_min=x(1)

for ii=1:length(x)

if x(ii)<=x_min

x_min=x(ii)

end

end

for ii=1:length(x)

if x(ii)==x_min

index=[index,ii]

end

end

function px=sort_down(x)

% px=[y_down index]

% y_down:x排降序

% index:x排序后的行标序列

[row,col]=size(x)

if row==1&&col~=1%保证x为列向量

x=x'

end

row=length(x)

index=1:row

px=[x,index']%构成排序前px

%采用选择排序2：

for ii=1:row-1

kk=ii

for jj=ii+1:row

if px(jj,1)>px(kk,1)

kk=jj

end

end

if kk~=ii

temp=px(kk,:)

px(kk,:)=px(ii,:)

px(ii,:)=temp

end

end

我们学校的数学建模上机课也有Mathlab程序，看看下面有没有你要找的。

一 基本运算

1 求

输入(12+2*(7-4))/3^2执行

2 输入x = (5*2+1.3-0.8)*10^2/25执行

再输入y= 2*x+1执行

3 执行clear命令。观察结果

4计算圆面积Area = ,半径r = 2，则可键入

r=2area=pi*r^2area

问：语句末尾加分号与不加分号有何区别？请试验之

5常用函数

名称 含义 名称 含义

sin 正弦 exp E为底的指数

cos 余弦 log 自然对数

tan 正切 log10 10为底的轿型碰对数

cot 余切 log2 2为底的对数

asin 反正弦 abs 绝对值

acos 反余弦

例：1）执行y = sin(10)*exp(-0.3*4^2)

2） 想计算 的值

输入y1=2*sin(0.3*pi)/(1+sqrt(5))执行之

若又想计算 ，可以简便地用 *** 作：先按á键则会出现上面输入过的指令 y1=2*sin(0.3*pi)/(1+sqrt(5)) ；然后移动光标，把y1改成y2；把 sin 改成 cos 便可。即得

y2=2*cos(0.3*pi)/(1+sqrt(5))然后执行之。

系统默认4位有效数字，若想提高精度则可如下：

digits(10)sym(y2,'d') 执行就可精确到小数点后10位，还可将10改为其它数字试验

二 矩阵运算

1要得到矩阵 ，

可输入A = [1,2,34,5,67,8,9] 执行，观察结果

还可分行输入

A=[1,2,3

4,5,6

7,8,9]

效果相同

2 注意 %号后的语句为注释，练习时不必输入

>>a=[1,4,6,8,10] %一维矩阵

>>a(3) % a的第三个元素

ans =

6

»x =[1 2 3 4 5 6 7 8

4 5 6 7 8 9 10 11]%二维2x8 矩阵

执行后双击左边Workspace里的x，观察之

» x(3) % x的第三个元素

ans =

2

» x([1 2 5]) % x的第一、二、五个元素

ans =

1 4 3

如需要还可定义b=x([1 2 5])执行后结果为

b =

1 4 3

>>x(2,3) % x的第二行第三列的元素

ans =

6

x(1:5) % x的第前五个元素

ans =

1 4 2 5 3

» x(10:end)% x的第十个元素后的元素

ans =

8 6 9 710 811

执行后双击左边Workspace里的x，观察是哪十个元素

» x(10:-1:2) % x的第十个元素和第二个元素的倒排

ans =

8 5 7 4 6 3 5 2 4

» x(find(x>5)) % x中大于5的元素

ans =

6 7 8 6 9 710 811

» x(4)=100 %给x的第四租旁个元素重新给值

x =

1 2 3 4 5 6 7 8

4 100 6 7 8 91011

» x(3)=[]% 删除第三个元素（不是二维数闭谈组）

x =

Columns 1 through 12

1 4100 3 6 4 7 5 8 6 9 7

Columns 13 through 15

10 811

» x(16)=1% 加入第十六个元素

x =

Columns 1 through 12

1 4 100 3 6 4 7 5 8 6 9 7

Columns 13 through 16

10 811 1

3 如不需要以前的变量时，为不干扰以后计算，可执行clear清除以前的变量

当元素很多的时候，则须采用以下的方式：

» x=(1:2:121)% 以起始值为1,增量值为2,终止值为121的矩阵

» x=linspace(0,1,100)% 利用linspace，生成以0为起始值,1为终止值,元素数目为100的矩阵

»a=[] %空矩阵

a =

[]

» zeros(2,2) %全为0的矩阵

ans =

0 0

0 0

» ones(3,3) %全为1的矩阵

ans =

1 1 1

1 1 1

1 1 1

» rand(2,4) %随机矩阵

4另外一种定义矩阵的方式

»a=1:7b=11:2:23

»c=[b a]%利用上面建立的阵列 a 及阵列 b ，组成新阵列c

»d=[b a] %利用a及b，组成新矩阵d

执行后双击左边Workspace里的c与d，比较之

再如 已知y=[-1,6,15,7,31,2,4,5]

x=y(3:5) %x为y的第三到第五个元素组成的新向量

或 x=[y(5),y(3),y(7)] %x为y的第五、第三、第七个元素组成的新向量

或这样更简单 x=y([5,3,7])

5 输入矩阵x=[4,8,12,10,236,3,15,13,199,1,2,18,1411,7,5,21,17]

依次输入下列命令并执行，观察结果，各命令分别有什么作用？

max(x)

min(x) （问：如何得到整个矩阵的最小值与最大值？）

[m,n]=size(x)

L=length(x)

y=x’

a=x( :,2)

b=x( :,2)’

c=x(3, :)

d=x(1 :3,3 :5)

y(2,3)=y(2,3)/2

y(2, :)=y(2, :)/2

y( :,4)=y( :,4)+y( :,2)

6 点运算 执行下列命令，指出点运算的作用

x=1 :8 （或对另外的向量或矩阵来作）

y=2.^x

z=x./y

w=x.^2

u=sin(x)

常用命令

min 最小值 max 最大值

mean 平均值 std 标准差

sort 排序 diff 相邻元素的差

length 个数 sum 总和

dot 内积 cross 外积

三 画图

二维图形

命 令 含 义 plot绘图函数的叁数

plot 建立向量或矩阵各队队向量的图形 字元 颜色 字元 图线型态

loglog x、y轴都取对数标度建立图形 y 黄色 . 点

semilogx x轴用于对数标度，y轴线性标度绘制图形 k 黑色 o 圆

semilogy y轴用于对数标度，x轴线性标度绘制图形 w 白色 x x

title 给图形加标题 b 蓝色 + +

xlabel 给x轴加标记 g 绿色 * *

ylabel 给y轴加标记 r 红色 - 实线

text 在图形指定的位置上加文本字符串 c 亮青色 : 点线

gtext 在鼠标的位置上加文本字符串 m 锰紫色 -. 点虚线

grid 打开网格线 -- 虚线

hold on 命令用于在已画好的图形上添加新的图形

1 x=0:0.001:10 % 0到10的1000个点(每隔0.001画一个点)的x座标

y=sin(x) % 对应的y座标

plot(x,y) % 绘图

注：matlab画图实际上就是描点连线，因此如果点取得不密，画出来就成了折线图，请试验之

2 Y=sin(10*x)

plot(x,y,'r:',x,Y,'b') % 同时画两个函数

3 若要改变颜色，在座标对后面加上相关字串即可：

x=0:0.01:10

plot(x,sin(x),'r')

4 若要同时改变颜色及图线型态（Line style），也是在坐标对后面加上相关字串即可：

plot(x,sin(x),'r*')

5 用axis([xmin,xmax,ymin,ymax])函数来调整图轴的范围

axis([0,6,-1.5,1])

6 MATLAB也可对图形加上各种注解与处理：（见上表）

xlabel('x轴')% x轴注解

ylabel('y轴')% y轴注解

title('余弦函数')% 图形标题

legend('y = cos(x)')% 图形注解

gtext('y = cos(x)')% 图形注解 ,用鼠标定位注解位置

grid on% 显示格线

7画椭圆

a = [0:pi/50:2*pi]' %角度

X = cos(a)*3 %参数方程

Y = sin(a)*2

plot(X,Y)

xlabel('x'), ylabel('y')

title('椭圆')

8 绘制函数 在0 ≤ x ≤ 1时的曲线。

x=0:0.1:1

y=x.*exp(-x) %为什么用点运算？若不用会怎样

plot(x,y),xlabel('x'),ylabel('y'),title('y=x*exp(-x)')

9 画出衰减振荡曲线 与它的包络线 及 。t 的取值范围是[0, 4π] 。

t=0:pi/50:4*pi

y0=exp(-t/3)

y=exp(-t/3).*sin(3*t)

plot(t,y,'-r',t,y0,':b',t,-y0,':b') % -r表示红色实线，:b表示蓝色点线，看上表

grid

10 在同一个画面上建立几个坐标系, 用subplot(m,n,p)命令；把一个画面分成m×n个图形区域, p代表当前的区域号，在每个区域中分别画一个图,如

x=linspace(0,2*pi,30)y=sin(x)z=cos(x)

u=2*sin(x).*cos(x)v=sin(x)./cos(x)

subplot(2,2,1),plot(x,y),axis([0 2*pi -1 1]),title('sin(x)')

subplot(2,2,2),plot(x,z),axis([0 2*pi -1 1]),title('cos(x)')

subplot(2,2,3),plot(x,u),axis([0 2*pi -1 1]),title('2sin(x)cos(x)')

subplot(2,2,4),plot(x,v),axis([0 2*pi -20 20]),title('sin(x)/cos(x)')

三维图形

11三维螺旋线：

t=0:pi/50:10*pi

plot3(sin(t),cos(t),t) %参数方程

grid %添加网格

12 t=linspace(0,20*pi, 501)

plot3(t.*sin(t), t.*cos(t), t)%注意点乘

也可以同时画出两条曲线，格式与二维情况类似，兹不举例。

13用mesh命令画曲面

画出由函数 形成的立体网状图:

a=linspace(-2, 2, 25)% 在x轴上从（-2，2）取25点

b=linspace(-2, 2, 25)% 在y轴上取25点

[x,y]=meshgrid(a, b)% x和y都是21x21的矩阵

z=x.*exp(-x.^2-y.^2)% 计算函数值，z也是21x21的矩阵

mesh(x, y, z)% 画出立体网状图

14 surf和mesh的用法类似：

a=linspace(-2, 2, 25)% 在x轴上取25点

b=linspace(-2, 2, 25)% 在y轴上取25点

[x,y]=meshgrid(a, b)% x和y都是21x21的矩阵

z=x.*exp(-x.^2-y.^2)% 计算函数值，z也是21x21的矩阵

surf(x, y, z)% 画出立体曲面图

四 程序设计

1 M-文件： 上面所做的运算都是在命令窗口中输入一条或两三条命令，然后执行，再输入，再执行，以这样交谈式的方式进行。如果为了解决某一问题需要很多命令，这样做就很不方便了。这时我们把解决某一问题的所有命令集中放在一个文档里，命名、保存。然后只要在命令窗口中输入文档名，执行即可。

例:（1）编写文档:点击MATLAB指令窗口上面最左端的图标 ，即新建文件，就可打开MATLAB文件编辑器。用户即可在空白窗口中编写程序。例如输入下面的程序：

x=linspace(0,2*pi,20)

y=sin(x)

plot(x,y,'r+')

title('2D plot')

(2）点击文件编辑器上面工具条中的保存 ，命名（例如将上面的程序命名为picture），然后保存。像这样在MATLAB文件编辑器中编写的文件叫M-文件（M-file）。

(3)运行：i）在命令窗口中输入文件名(如上面的picture),然后执行。

ii）或直接在文件编辑器上面的工具条中找到debug（即调试），点击，再找到run（即运行），再点击即可。

同学们可以把前面画图的一些问题放在文件编辑器里再做一下。

2 自己编写函数：我们经常用到的像sin、cos、exp这样的一些函数都是MATLAB软件自身所带的函数，因此直接应用即可，但有时我们为了解决一些问题需要自己编写函数。自己编写函数有两个基本要求i）必须在MATLAB文件编辑器中编写。ii）函数名和文件名必须相同。 例: 编写函数 , 计算f(1)f(2)+f2(3)

（1）打开MATLAB文件编辑器，输入

function Y= fun1(x) % 表示Y是x的函数，x是自变量，fun1是函数名

Y=(x^3 - 2*x^2 + x - 6.3)/(x^2 + 0.05*x - 3.14)

然后保存。

注：在自己编写的函数前都要写上function，表示这是自己定义的函数。fun1表示函数名，那么最后文件名也应命名为fun1。

（2）这样在命令窗口中就可以像应用sin、cos那样来使用函数fun1，如：在命令窗口中输入 >>fun1(1)*fun1(2)+fun1(3)*fun1(3) 结果为：

ans =

-12.6023

3 for循环语句（这里的for语句与C语言中的for语句不同，要更简单一些）

例：一个简单的for循环示例。

for i=1:10% i依次取1,2,…10,.

x(i)=2*i % 对每个i值，重复执行该指令

end % 表示循环结束，每一个for要对应一个end

x % 要求显示运行后数组x的值。

输入后观察结果，体会for语句的作用。

注：在MATLAB里（在C语言中也一样）， 的作用表示把等号右边的值送给左边的变量，这和数学中相等的意思不同。下面的例子中都要这样理解，否则就不能明白程序的含义。

4 while循环语句

例: Fibonacci 数列：1，1，2，3，5，8，… 即： ，（ 1，2，3…）现要求该数列中第一个大于10000 的元素。

a(1)=1a(2)=1i=2

while a(i)<=10000

a(i+1)=a(i-1)+a(i)

i=i+1

end

i,a(i),

5（1）if-end语句，例：

cost=10number=12

if number>8

sums=number*0.95*cost

end,

sums

（2）if-else-end语句，例：

cost=10number=5% 改变number的初值，看结果有何不同

if number>8

sums=number*0.95*cost

else sums=number*0.5*cost

end,

sums

6 例：用for 循环语句来寻找Fibonacc 数列中第一个大于10000 的元素。

n=100a=ones(1,n) % a是一个一行，n列的所有元素为1的矩阵

for i=3:n

a(i)=a(i-1)+a(i-2)

if a(i)>=10000

a(i),

break % 表示跳出循环

end

end, i

7 练习：课本264页，参考例4右边的流程图11.4，编程序求解例4，自己设置误差，并与书上的结果比较。

五 拟合与插值

曲 线 拟 合 和 插 值 函 数

polyfit(x, y, n) 对描述n阶多项式y=f(x)的数据进行最小二乘曲线拟合

interp1(x, y, xo) 1维线性插值

interp1(x, y, xo, ' spline ') 1维3次样条插值

interp1(x, y, xo, ' cubic ') 1维3次插值

interp2(x, y, Z, xi, yi) 2维线性插值

interp2(x, y, Z, xi, yi, ' cubic') 2维3次插值

1 插值

看课本266页§11.2第一段，了解什么是插值。

例：考虑下列问题，12小时内，一小时测量一次室外温度。数据如下：

时间：1，2，3， 4， 5， 6， 7， 8， 9，10，11，12

温度：5，8，9，15，25，29，31，30，22，25，27，24

现在根据以上数据估计3.2，4.7等时刻的温度

hours=1:12

temps=[5 8 9 15 25 29 31 30 22 25 27 24]

t=interp1(hours, temps, [3.2，4.7]) % 一阶线性插值，如果只估计一个点的值，则无须加方括号

改为t=interp1(hours, temps, [3.2，4.7], 'spline'） 则为三次样条插值

如果输入如下程序，则画出插值曲线

hours=1:12

temps=[5 8 9 15 25 29 31 30 22 25 27 24]

h=1:0.1:12

t=interp1(hours, temps, h) % h后加上'spline'则为三次样条插值

plot(hours, temps, ' + ' , h, t)

用一阶线性插值和三次样条插值做课本268页例2，与书上之结果比较，然后挑课后题做一两道。

2 拟合

看课本270页§11.3，曲线拟合，比较拟合与插值有什么区别。

例：两组数据如下：

x=[0 .1 .2 .3 .4 .5 .6 .7 .8 .9 1]

y=[-.447 1.978 3.28 6.16 7.08 7.34 7.66 9.56 9.48 9.30 11.2]

n=8

p1=polyfit(x,y,n)% n表示用n阶多项式拟合，n=1为线性拟合，即通常所说最小二乘法

poly2sym(p1) % 前面的拟合命令只给出多项式的系数，用此命令则将结果转化为真正的多项式。或用 vpa(poly2sym(p1),10) 即取数值形式,取10位有效数字

x1=0:.01:1 % 由此以后三句是画出拟合曲线的图像

y1=polyval(p1,x1) %此句是在x1这些点处求出多项式的值，送给y1

plot(x,y,'o',x1,y1)

改变n的数字，即用不同的多项式拟合，看看哪个结果好。

当n=10时，数据点之间出现大的波动。当企图进行高阶曲线拟合时，这种波动现象经常发生，并不利于我们认识两组数据之间的规律，因此并不是阶数越高越好，实际问题当中，适当选一个即可。

用上面的指令做课本271页例1及例2，将结果与书上之结果比较。

---