帮忙做下，谢谢啦。【线性代数吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：50,527贴子：
帮忙做下，谢谢啦。收藏
帮忙做下，谢谢啦。
题目在这。
帮忙求下哈，亲们。
登录百度帐号你好 请问有VB计算特征值和特征向量的源代码吗 能不能帮我做一个 谢谢啦_百度知道
你好 请问有VB计算特征值和特征向量的源代码吗 能不能帮我做一个 谢谢啦
我有更好的答案
你好，这两天都在想这个问题了，不知道你有什么进展。解特征值x，开始我的思路是用牛顿迭代，需要把特征行列式整理成包含x的n次多项式，多项式是字符串形式的，比如“[1,1]”就表示矩阵第一行第一列的元素，以此类推。然后写出这个字符多项式关于x的导数表达式，最后把这些表达式转化成逆波兰表达式带入数值用牛顿法求解。现在我可以写出n次多项式的逆波兰表达式(只需将以下行列式函数稍加整理)，但写不出导数。现在我想用二分法求解，但初始区间的选择是个问题，先贴点代码吧(vb2005)： '求n阶行列式
Function d(ByVal p(,) As Single) As Single
If p.GetLength(1) = 2 Then Return p(0, 0) * p(1, 1) - p(0, 1) * p(1, 0)
Dim s As Single = 0
For i As Integer = 0 To p.GetUpperBound(1)
Dim r(p.GetUpperBound(0) - 1, p.GetUpperBound(1) - 1) As Single
For m As Integer = 1 To p.GetUpperBound(0)
Dim j As Integer = -1
For n As Integer = 0 To p.GetUpperBound(1)
If n = i Then Continue For
r(m - 1, j) = p(m, n)
If i Mod 2 = 0 Then
s += p(0, i) * d(r)
s -= p(0, i) * d(r)
End Function'关于特征值x的方程，二分法使f=0的x即为特征值
Function f(ByVal p(,) As Single, ByVal x As Single) As Single
ReDim Preserve p(p.GetUpperBound(0), p.GetUpperBound(1))
For i As Integer = 0 To p.GetUpperBound(1)
p(i, i) -= x
Return d(p)
End Function'特征值x有了，应用克莱姆法则就可以得出特征向量了
采纳率：41%
为您推荐：
其他类似问题
您可能关注的内容
特征向量的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。学校的做业，有哪位高手帮忙做一下，谢谢啦！
[问题点数：50分]
学校的做业，有哪位高手帮忙做一下，谢谢啦！
[问题点数：50分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2008年12月 移动平台大版内专家分月排行榜第一
2009年3月 移动平台大版内专家分月排行榜第三2009年1月 移动平台大版内专家分月排行榜第三2008年11月 移动平台大版内专家分月排行榜第三
匿名用户不能发表回复！|向量帮忙做下谢谢啦_百度知道
向量帮忙做下谢谢啦
我有更好的答案
高三数学专家
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。高数题请帮忙做下,谢谢了（急）
高数题请帮忙做下,谢谢了（急）
名师点评：
茄子猫0023
我有更好的回答：
剩余:2000字
与《高数题请帮忙做下,谢谢了（急）》相关的作业问题
分析：由△0?只此数字在100到109之间,又是6的倍数,只有102月108,验证可知是108,即△=1,?=8,即：18×6=108, OK
我是大二数学专业的,积分题不在话下.请问有什么报酬?可留言联系,也可邮件联系
ADBBC DACAA BCAC 其中第19题：remain不是延续性的动作,所以只能用过去分词作形容词来修饰telephone,而work是延续性动词,可以用ing形式作形容词. 第28题effective是“有效的”意思侧重“method"的作用效果,而efficient是”效率高的“意思,侧重效率,由后半句sav
这衣服是带有毛领的黑色皮革制成.这村子市场里,摊子被当地的蔬菜堆得很高.这项计划是在镇中心为新警察局选址.杰克让我大笑因为他模仿他老师的讲话方式.她有非常复杂的个性,让我根本不了解她.这个带有水果和蔬菜的房子外面有一个摊点卖货物.迪斯尼乐园是佛罗里达州最主要的旅游景点.这瓶子的标签告诉人们不要一天服用超过6片.用于防御
高兴的　小王　　一下子　从　床上　跳了　下来.－－－－－－　　－－－－－－－－－－－－－－主谓－－－　－－　　－－－　－－－－－－－－－－　定+中偏正　　　　　　　状+中偏正　　　　　　　　　　　　－－－－　－－－－－　　　　　　　　　　　　　　状+中偏正　　　　　　　　　　　　－　－－　－－　－－　　　　　　　　　　
（1） n=1则过D做BM平行线交AC于点E.则因为D是BC中点.所以E是MC中点AN/ND=AM/ME=2:1=2同理n=2时 AN/ND=1：1=1 n=3时 AN/ND=1：1.5=2：3=2/3（2） 猜想有AN/ND * n =2AN/ND=AM/ME=AM/MC *2=2/n 所以有AN/ND * n =2
首先,求出a+b的模,a-b的模,以及(a+b)*(a-b)a*b＝|a|×|b|×cos(π/6)＝3/2|a+b|^2＝(a+b)*(a+b)＝|a|^2＋|b|^2＋2a*b＝3＋1＋3＝7,所以,|a+b|＝√7|a-b|^2＝(a-b)*(a-b)＝|a|^2＋|b|^2-2a*b＝3＋1-3＝1,所以,|a
8和10&见图11、令an=1/n,则lim(n-&+∞)&a(n+1)/an=1因此收敛半径是1当x=1时,是典型发散级数当x=&-1时,是交错级数,因此收敛因此收敛域是[-1,1)
　　虽然忝为大学生,但是这种题目也不一定就做得对,因此只能给你提供一个思路,如果有错的话请你设法弥补.我个人脑筋其实不好,是以比较喜欢用笨办法,如果你也愿意如此承认的话,就请你一样多多分类吧!类分得多一些,有时题目就便当一些.　　我先把这些数分成两类——为一类,为一类,第二类用枚举法
67.Only we learn a lesson from the faliure can we make a bigger progress.68.Such warm-hearted boy is he that he is always willing to help those people in need.6
getgivesupper101,She is good at playing piano102看不清，可能是They are having lunch now.103,看不清104 radio was invented in 1898.请参考。
US president Barack Obama made this first visit to China in November, 2009. During his trip hw spoke with students from several ___univisities___ in Shanghai.Th
第一题： 设AE长为x.则根据菱形的性质知EC=x. 则BE=8-x. 又三角形ABE为直角三角形 根据勾股定理可得：6²+（8-x）²=x² 解得x为25/4 同理,对三角形ABC使用勾股定理,得AC=10 则AO=5； 同理,对三角形AEO使用勾股定理,得EO=15/4 则,EF=15
26.C 再问： 27呢 再答： ①④.③
a是5 x是30 再问： 回答完整点再问： 怎么解答出来的再问： 写下过程好吗？ 再答： &
img class="ikqb_img" src="http://c.hiphotos.baidu.com/zhidao/wh%3D600%2C800/sign=fa052ef4a4f383cc3fbf2/ebc46dcffc1e171638.jpg"
img class="ikqb_img" src="http://h.hiphotos.baidu.com/zhidao/wh%3D600%2C800/sign=f9f7e73aacb/aecb41a98226cffc17ae.jpg"
先证明Xn是有下界的Xn+1=(1/Xn)+Xn/2,Xn肯定是大于零的,因为Xn+1=Xn*[1/(Xn^2)+1/2],中括号里的必定大于零,所以Xn+1与Xn是同号的,又X1=4,所以Xn>0.所以Xn+1=(1/Xn)+Xn/2>2[(1/Xn)*Xn/2]^0.5=2^0.5,即Xn的最小值为2^0.5Xn+}