00001 // 00002 // DMATRIX.CPP 00003 // 00004 // Chris Anderson (C) UCLA 1995 00005 // 00006 #include "dmatrix.h" 00007 00008 CAMdoubleMatrix CAMdoubleMatrix::identity(long n) 00009 { 00010 CAMdoubleMatrix I(n,n); 00011 for(long i = 1; i <= n; i++) 00012 I(i,i) = 1.0; 00013 I.setTemporaryFlag(); 00014 return I; 00015 } 00016 00017 00018