java版求矩阵特征值

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）;