- added missing method matrix::op()

diff --git a/ginac/matrix.cpp b/ginac/matrix.cpp
index 4a55ef1fc27a334026d86ade22c0d60aa3129bcc..9bcab8bd21a66c8dca0b8b6ea5e8de8c24b7c679 100644 (file)
--- a/ginac/matrix.cpp
+++ b/ginac/matrix.cpp
@@ -204,6 +204,12 @@ unsigned matrix::nops() const
     return row*col;
 }
 
     return row*col;
 }
 

+/** returns matrix entry at position (i/col, i%col). */
+ex matrix::op(int i) const
+{
+    return m[i];
+}
+

 /** returns matrix entry at position (i/col, i%col). */
 ex & matrix::let_op(int i)
 {
 /** returns matrix entry at position (i/col, i%col). */
 ex & matrix::let_op(int i)
 {

diff --git a/ginac/matrix.h b/ginac/matrix.h
index 1b454a78ef70cb200f56f501ecfd8bc345b87763..23d2a475c894ef6a87e06990c38369d20269a3cb 100644 (file)
--- a/ginac/matrix.h
+++ b/ginac/matrix.h
@@ -65,6 +65,7 @@ public:
     void print(ostream & os, unsigned upper_precedence=0) const;
     void printraw(ostream & os) const;
     unsigned nops() const;
     void print(ostream & os, unsigned upper_precedence=0) const;
     void printraw(ostream & os) const;
     unsigned nops() const;

+    ex op(int i) const;

     ex & let_op(int i);
     ex expand(unsigned options=0) const;
     bool has(const ex & other) const;
     ex & let_op(int i);
     ex expand(unsigned options=0) const;
     bool has(const ex & other) const;