/*
	Copyright (c) 2004-2008, The Dojo Foundation All Rights Reserved.
	Available via Academic Free License >= 2.1 OR the modified BSD license.
	see: http://dojotoolkit.org/license for details
*/


if(!dojo._hasResource["dojox.math.matrix"]){dojo._hasResource["dojox.math.matrix"]=true;dojo.provide("dojox.math.matrix");dojo.mixin(dojox.math.matrix,{iDF:0,ALMOST_ZERO:1e-10,multiply:function(a,b){var ay=a.length,ax=a[0].length,by=b.length,bx=b[0].length;if(ax!=by){console.warn("Can't multiply matricies of sizes "+ax+","+ay+" and "+bx+","+by);return [[0]];}var c=[];for(var k=0;k<ay;k++){c[k]=[];for(var i=0;i<bx;i++){c[k][i]=0;for(var m=0;m<ax;m++){c[k][i]+=a[k][m]*b[m][i];}}}return c;},product:function(){if(arguments.length==0){console.warn("can't multiply 0 matrices!");return 1;}var m=arguments[0];for(var i=1;i<arguments.length;i++){m=this.multiply(m,arguments[i]);}return m;},sum:function(){if(arguments.length==0){console.warn("can't sum 0 matrices!");return 0;}var m=this.copy(arguments[0]);var _e=m.length;if(_e==0){console.warn("can't deal with matrices of 0 rows!");return 0;}var _f=m[0].length;if(_f==0){console.warn("can't deal with matrices of 0 cols!");return 0;}for(var i=1;i<arguments.length;++i){var arg=arguments[i];if(arg.length!=_e||arg[0].length!=_f){console.warn("can't add matrices of different dimensions: first dimensions were "+_e+"x"+_f+", current dimensions are "+arg.length+"x"+arg[0].length);return 0;}for(var r=0;r<_e;r++){for(var c=0;c<_f;c++){m[r][c]+=arg[r][c];}}}return m;},inverse:function(a){if(a.length==1&&a[0].length==1){return [[1/a[0][0]]];}var tms=a.length,m=this.create(tms,tms),mm=this.adjoint(a),det=this.determinant(a),dd=0;if(det==0){console.warn("Determinant Equals 0, Not Invertible.");return [[0]];}else{dd=1/det;}for(var i=0;i<tms;i++){for(var j=0;j<tms;j++){m[i][j]=dd*mm[i][j];}}return m;},determinant:function(a){if(a.length!=a[0].length){console.warn("Can't calculate the determinant of a non-squre matrix!");return 0;}var tms=a.length,det=1,b=this.upperTriangle(a);for(var i=0;i<tms;i++){var bii=b[i][i];if(Math.abs(bii)<this.ALMOST_ZERO){return 0;}det*=bii;}det*=this.iDF;return det;},upperTriangle:function(m){m=this.copy(m);var f1=0,_24=0,tms=m.length,v=1;this.iDF=1;for(var col=0;col<tms-1;col++){if(typeof m[col][col]!="number"){console.warn("non-numeric entry found in a numeric matrix: m["+col+"]["+col+"]="+m[col][col]);}v=1;var _28=0;while((m[col][col]==0)&&!_28){if(col+v>=tms){this.iDF=0;_28=1;}else{for(var r=0;r<tms;r++){_24=m[col][r];m[col][r]=m[col+v][r];m[col+v][r]=_24;}v++;this.iDF*=-1;}}for(var row=col+1;row<tms;row++){if(typeof m[row][col]!="number"){console.warn("non-numeric entry found in a numeric matrix: m["+row+"]["+col+"]="+m[row][col]);}if(typeof m[col][row]!="number"){console.warn("non-numeric entry found in a numeric matrix: m["+col+"]["+row+"]="+m[col][row]);}if(m[col][col]!=0){var f1=(-1)*m[row][col]/m[col][col];for(var i=col;i<tms;i++){m[row][i]=f1*m[col][i]+m[row][i];}}}}return m;},create:function(a,b,_2e){_2e=_2e||0;var m=[];for(var i=0;i<b;i++){m[i]=[];for(var j=0;j<a;j++){m[i][j]=_2e;}}return m;},ones:function(a,b){return this.create(a,b,1);},zeros:function(a,b){return this.create(a,b);},identity:function(_36,_37){_37=_37||1;var m=[];for(var i=0;i<_36;i++){m[i]=[];for(var j=0;j<_36;j++){m[i][j]=(i==j?_37:0);}}return m;},adjoint:function(a){var tms=a.length;if(tms<=1){console.warn("Can't find the adjoint of a matrix with a dimension less than 2");return [[0]];}if(a.length!=a[0].length){console.warn("Can't find the adjoint of a non-square matrix");return [[0]];}var m=this.create(tms,tms),ap=this.create(tms-1,tms-1);var ii=0,jj=0,ia=0,ja=0,det=0;for(var i=0;i<tms;i++){for(var j=0;j<tms;j++){ia=0;for(ii=0;ii<tms;ii++){if(ii==i){continue;}ja=0;for(jj=0;jj<tms;jj++){if(jj==j){continue;}ap[ia][ja]=a[ii][jj];ja++;}ia++;}det=this.determinant(ap);m[i][j]=Math.pow(-1,(i+j))*det;}}return this.transpose(m);},transpose:function(a){var m=this.create(a.length,a[0].length);for(var i=0;i<a.length;i++){for(var j=0;j<a[i].length;j++){m[j][i]=a[i][j];}}return m;},format:function(a,_4b){_4b=_4b||5;function format_int(x,dp){var fac=Math.pow(10,dp);var a=Math.round(x*fac)/fac;var b=a.toString();if(b.charAt(0)!="-"){b=" "+b;}if(b.indexOf(".")>-1){b+=".";}while(b.length<dp+3){b+="0";}return b;};var ya=a.length;var xa=ya>0?a[0].length:0;var _53="";for(var y=0;y<ya;y++){_53+="| ";for(var x=0;x<xa;x++){_53+=format_int(a[y][x],_4b)+" ";}_53+="|\n";}return _53;},copy:function(a){var ya=a.length,xa=a[0].length,m=this.create(xa,ya);for(var y=0;y<ya;y++){for(var x=0;x<xa;x++){m[y][x]=a[y][x];}}return m;},scale:function(a,_5d){a=this.copy(a);var ya=a.length,xa=a[0].length;for(var y=0;y<ya;y++){for(var x=0;x<xa;x++){a[y][x]*=_5d;}}return a;}});}