Aminet 18/aminetcdnumber181997.iso/Aminet/dev/c/math_classes.lha/math_classes/matrix/libmatrix/mat_unity.cc

C/C++ Source or Header | 1996-09-18 | 165 b | 13 lines

#include "Matrix.h"

Matrix unity(unsigned int n)
    {
    Matrix a(n,n);
    if(n==0)error("bad size");
    for(unsigned int i=1;i<=n;i++)
        {
        a(i,i)=1.0;
        }
    return a;
    }