アットウィキロゴ

行列式k

var number;
var x=new Array();
var b=new Array();
var sol=new Array();
 
function sample(){
 
var s;
 
number=2;
 
alert(number);
 
for(s=1;s<number+1;s++){
x[s]=new Array();
}
 
x[1][1]=2;
x[2][1]=3;
x[1][2]=3;
x[2][2]=4;
b[1]=4;
b[2]=5;
 
var m,mx,sx;
var z;
 
for(m=1;m<number+1;m++){
for(mx=1;mx<number+1;mx++){
z=x[mx][m]/x[m][m];
if(mx==m)z=0;
for(sx=1;sx<number+1;sx++){
x[mx][sx]=x[mx][sx]-z*x[m][sx];
}
b[mx]=b[mx]-z*b[m];
}
}
 
for(sx=1;sx<number+1;sx++){
sol[sx]=b[sx]/x[sx][sx];
}
 
alert(sol[1]);
 
 
}
最終更新:2014年02月13日 20:18