資源簡介
雅克比迭代式法求實對稱矩陣的特征值特征向量
代碼片段和文件信息
import?java.applet.applet;
import?java.awt.Graphics;
public?class??jaccobi?extends?applet
{
public?void?myjaccobimat(double?[][]?adouble?[][]?Jint?ndouble?eps)
{
double?tscmaxtemp;
int?ijpq;
double?[]?b1=?new?double[n];
double?[]?b2=?new?double[n];
for(i=0;i for(j=0;j {
if(i==j)
J[i][j]=1;
else?J[i][j]=0;
}
while(true)
{
max=0;p=0;q=0;
for(i=0;i for(j=i+1;j {
temp=Math.abs(a[i][j]);
if(temp>max)
{
max=temp;
p=i;
q=j;
}
}
if(max t=(a[p][p]-a[q][q])/a[p][q];
if(t==0)
c=s=Math.sqrt(2)/2;
else
{
if(t<0)
t=-1.0/(-t+Math.sqrt(1+t*t));
else
t=1.0/(t+Math.sqrt(1+t*t));
c=1.0/Math.sqrt(1+t*t);
- 上一篇:很實用的圖片從右到左滾動的jsp代碼
- 下一篇:JSON與xm
l轉換jar包
評論
共有 條評論