dmatrix.cpp Source File

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