- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
矩阵与数值分析上机实习
矩阵与数值分析上机实习
设, 其精确值为.
编制按从大到小的顺序, 计算的通用程序
编制按从小到大的顺序, 计算的通用程序
按两种顺序分别计算并指出有效位数(编制程序时用单精度)
通过本上机题,你明白了什么
从小到大,
代码:
%1---SN = %
N = input(please input a number(N=2))
if(N 2)
disp(wrong number)
else
S = 0;
for j = 2:1:N
S = S + 1/(j^2 -1);
end
disp(S:)
disp(S)
end
结果
please input a number(N=2)10^2
N =
100
S:
7.4005e-001
clear
please input a number(N=2)10^4
N =
10000
S:
7.4990e-001
clear
please input a number(N=2)10^6
N =
1000000
S:
7.5000e-001
从大到小
代码:
%1---SN = %
eps(single)
N = input(please input a number(N=2))
if(N 2)
disp(wrong number)
else
S = 0;
for j = N:-1:2
S = S + 1/(j^2 -1);
end
disp(S:)
disp(S)
end
结果
please input a number(N=2)10^2
N =
100
S:
7.4005e-001
clear
ans =
1.1921e-007
please input a number(N=2)10^4
N =
10000
S:
7.4990e-001
clear
ans =
1.1921e-007
please input a number(N=2)10^6
N =
1000000
S:
7.5000e-001
(4)计算的顺序影响结果。
秦九韶算法。已知n次多项式,用秦九韶算法编写通用的程序计算函数在点的值,并计算在点的值.
(提示:编写程序时,输入系数向量和点,输出结果,多项式的次数可以通过向量的长度来判断)
代码:
A = input(请输入系数,由高次幂开始);
n = input(请输入计算变量的值);
len = length(A);
val = zeros(len);
val(1) = A(1);
%%printf(len = %c, len)
for i = 2: 1: len
%disp(val(i-1))
%disp(n)
val(i) = val(i-1)* n + val(i);
end
%printf(?????á1?£o%f, val(len))
val(len)
结果:
请输入系数,由高次幂开始[7 3 -5 11]
请输入计算变量的值23
ans =
85169
分别用Gauss消元法和列主元消去法编程求解方程组Ax=b,其中
,
.
高斯消去法代码:
A= [31 -13 0 0 0 -10 0 0 0
-13 35 -9 0 -11 0 0 0 0
0 -9 31 -10 0 0 0 0 0
0 0 -10 79 -30 0 0 0 -9
0 0 0 -30 57 -7 0 -5 0
0 0 0 0 -7 47 -30 0 0
0 0 0 0 0 -30 41 0 0
0 0 0 0 -5 0 0 27 -2
0 0 0 -9 0 0 0 -2 29
];
B =[-15, 27, 23, 0, -20, 12, -7, 7, 10];
B = B.;
%disp(A)
%disp(B)
C= [A,B];
n = size(A,1);
ra = rank(A);
rc= rank(C);
x = zeros(1,n);
if ra ~= rc
disp(no solution)
else
for i = 1: 1: (n-1)
for j = i + 1: 1: n
temp = (-C(j,i))/ C(i,i);
for k = i:1:(n+1)
您可能关注的文档
最近下载
- 室外给水排水管道及设施安装-08SS523 建筑小区塑料排水检查井.pdf VIP
- ihi trx寿力离心空压机操作手册使用说明书.pdf
- 2024全新婴幼儿喂养ppt课件.pptx VIP
- 开幕式活动方案.docx VIP
- 冠脉介入治疗术后并发症护理及预防.doc VIP
- 中职语文拓展模块教学计划.docx VIP
- 中职《新时代劳动教育教程》课程标准.docx VIP
- 中国传媒大学-实用播音教程-普通话语音和播音发声(一)-课件.pptx VIP
- 人教版2025高中地理选择性必修一用“芯”解读青藏高原的时光变迁——自然环境的整体性 课件.pptx VIP
- 密闭式吸痰操作规范.docx VIP
文档评论(0)