vector.cc

   1 #include "debug.hh"
   2 #include "vector.hh"
   3 #include "string.hh"
   4
   5 Vector::Vector(const Vector&n)
   6           :dat(n.dat)
   7      // this makes GCC 272 barf
   8 {
   9     //dat = n.dat;
  10 }
  11
  12 Vector::operator String() const
  13 {
  14     int i=0;
  15     String s("vector [");
  16     for (; i < dim(); i++) {
  17         s += String(dat[i], "%6f") + ' ';
  18     }
  19     s+="]";
  20     return s;
  21 }
  22
  23
  24 void
  25 Vector::print() const
  26 {
  27     mtor << *this<<'\n';
  28 }
  29
  30 Vector
  31 Vector::operator-() const
  32 {
  33     Vector v(*this); v*=-1; return v;
  34 }
  35
  36 void
  37 Vector::set_unit(int j)
  38 {
  39     fill(0.0);
  40     dat[j] = 1.0;
  41 }