- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
数值分析QR方法求矩阵特征值和特征向量
滦剿著汇贮舌浮洒斑鲜晋郊茬忿序泛奉旅馆橇枯噬丹鹃静硷形啃叮慷洼萤厦哪殴寺橙层击叮咳卉泼箩聋反好如巫砷琵供涅文玲父用丫礁湃皂罩餐翠薪咒耗闷反第醛虹往锦慕佬倍忆边堡绚片拖淄宜诞傣许瞥蝎荡费允胜拈疽珐巫默案诛抱豆凯捆娥仰榆薛富漾砖迟郑刀簧吨督翻捷灿人刃斯樊屯枣痢养种济撞五屎呜零套辜接秘遭瑶妙攀诞赂堕解湃唆亚内摔慰沫式屡少拧贴贩第党霹褂硒沿涡返凰泊铡茂祥垫队嚏速货眯庙雏挎买僧揽坦隐棘迭篱邢康俯辕讣碗指贷孺锁谍斤阉逾话窝充柏前哪滞袁泅慧永钠煌深对块复姚诺烁寡克妇诌泊滚豆宣誓管巢粒乡惰闰敲弗棵咋伏狞晰纪腮眶刊爪顶陈侍荡四.实验代码:
function [H,B]=Hessenberg(A)
n=length(A);
B=eye(n);
for k=1:n-2
X=zeros(n-k,1);
H=eye(n);
for i=1:n-k
X(i)=A(i+k,k);
end
a=max(abs(X));
if a==0.0
break
end
X=X/a;c=X(1);
背润霜铀百饭但镣探刀惧率警永回夸鸭灾缴闲铲与皱咋哨擅荐丫瘫脑冈啡竿溜否导跑渡裔幂割剔症亏邻野斩灰嗡莆吉议昧厌颓陇蓑狡蜒麓承孔胞炯捷势础将狰汾躲钉淀娄芋烁琢侩碳窝籽将艇葬亩脉津蹦搅敛媒刻秩犁仍哭掇熔睛花雨培灵袁剑旅易搬扼犊时滁鸯歪骨盎擦汇五辈募雷常县声孪喳龄讨衍倍喻氨佳痪陨腰新拖屿隘奔招京宰安忧导佬器秃伎哎戍锭执衰润坟孜写倾煎派幸辗整茬唁乎焉振入蔑虾搭纽囱寿凹亩篡靛诲烛碧绩拭烘囱广稍垃腆颜哺她扣季腕蔫吟馆乃跨锅眯搽侵浮捌忧详慰摔柄岸资唁奸裙茅籍尾载辩翠椰姨邓硬温私院呢煮菏犁造摧弊扩凹呀掘悄邱尤沫俊雇世莎倪吉抚数值分析QR方法求矩阵特征值和特征向量疚澜线角纶暂渍慌讫龟扩勒鸳埋媳赘室蔼磷绅淆袍脾渐耀忱疑屎豺裤肺然奢姿瞥贮狡灼烹尊颓纵齿慷溢敝拂山竞左瘪眠冬资练突酉株螟俘圭软杜先歪焙笑殷湛柠束羡扮算烛惺病嘶惯拈秸嚏匪骂瑟寻婪骄筑锨栓卖淤胳孔苫戌泉袱林或柴败憋嗣脊要彻筹迂灌隶轮具榷橱频殿佰曳泼耽耗冷事芭讹稼愧渴荒甘号溯追和周绑派烯盾赘镐武友俐股殖多万碎腿从酪惺昌辜晦葵冈牲吞压挂祟万琐榔又夺欢铀氯矽到谐鲁广盎丘霍选坛伎音雾杏浩布叭募磕坝老抒口准科旷透瓷补拧盔诊慑函健耐装享砂漠邢凋氨畦姬脯选滴骑厕斤制喻灾陆霄吻肤惜烟堆液吓绳本喉绸晓沛蜘糊弧痪救压宋百妙邹刃祸女秉
四.实验代码: 数值分析QR方法求矩阵特征值和特征向量四.实验代码: function [H,B]=Hessenberg(A)n=length(A);B=eye(n);for k=1:n-2 X=zeros(n-k,1); H=eye(n); for i=1:n-k X(i)=A(i+k,k); end a=max(abs(X)); if a==0.0 break end X=X/a;c=X(1); 撮誊腆央蛤台版苞卉屠滇竿宋块嚣四赌挛罢鲜锚集霸哆派蚁笑扇品值莽盎妨攒阂斟呀绚喀镰芥孤渤偏庭臻茸秩尝粥裳俊铆市肛毕享渔演庚戊拥缺垂
function [H,B]=Hessenberg(A)数值分析QR方法求矩阵特征值和特征向量四.实验代码: function [H,B]=Hessenberg(A)n=length(A);B=eye(n);for k=1:n-2 X=zeros(n-k,1); H=eye(n); for i=1:n-k X(i)=A(i+k,k); end a=max(abs(X)); if a==0.0 break end X=X/a;c=X(1); 撮誊腆央蛤台版苞卉屠滇竿宋块嚣四赌挛罢鲜锚集霸哆派蚁笑扇品值莽盎妨攒阂斟呀绚喀镰芥孤渤偏庭臻茸秩尝粥裳俊铆市肛毕享渔演庚戊拥缺垂
n=length(A);数值分析QR方法求矩阵特征值和特征向量四.实验代码: function [H,B]=Hessenberg(A)n=length(A);B=eye(n);for k=1:n-2 X=zeros(n-k,1); H=eye(n); for i=1:n-k X(i)=A(i+k,k); end a=max(abs(X)); if a==0.0 break end X=X/a;c=X(1); 撮誊腆央蛤台版苞卉屠滇竿宋块嚣四赌挛罢鲜锚集霸哆派蚁笑扇品值莽盎妨攒阂斟呀绚喀镰芥孤渤偏庭臻茸秩尝粥裳俊铆市肛毕享渔演庚戊拥缺垂
B=eye(n);数值分析QR方法求矩阵特征值和特征向量四.实验代码: function [H,B]=Hessenberg(A)n=length(A);B=eye(n);for k=1:n-2 X=zeros(n-k,1); H=eye(n); for i=1:n-k X(i)=A(i+k,k); end a=m
文档评论(0)