00001 //Copyright (c) 2004-2005, Baris Sumengen 00002 //All rights reserved. 00003 // 00004 // CIMPL Matrix Performance Library 00005 // 00006 //Redistribution and use in source and binary 00007 //forms, with or without modification, are 00008 //permitted provided that the following 00009 //conditions are met: 00010 // 00011 // * No commercial use is allowed. 00012 // This software can only be used 00013 // for non-commercial purposes. This 00014 // distribution is mainly intended for 00015 // academic research and teaching. 00016 // * Redistributions of source code must 00017 // retain the above copyright notice, this 00018 // list of conditions and the following 00019 // disclaimer. 00020 // * Redistributions of binary form must 00021 // mention the above copyright notice, this 00022 // list of conditions and the following 00023 // disclaimer in a clearly visible part 00024 // in associated product manual, 00025 // readme, and web site of the redistributed 00026 // software. 00027 // * Redistributions in binary form must 00028 // reproduce the above copyright notice, 00029 // this list of conditions and the 00030 // following disclaimer in the 00031 // documentation and/or other materials 00032 // provided with the distribution. 00033 // * The name of Baris Sumengen may not be 00034 // used to endorse or promote products 00035 // derived from this software without 00036 // specific prior written permission. 00037 // 00038 //THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT 00039 //HOLDERS AND CONTRIBUTORS "AS IS" AND ANY 00040 //EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT 00041 //NOT LIMITED TO, THE IMPLIED WARRANTIES OF 00042 //MERCHANTABILITY AND FITNESS FOR A PARTICULAR 00043 //PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE 00044 //CONTRIBUTORS BE LIABLE FOR ANY 00045 //DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 00046 //EXEMPLARY, OR CONSEQUENTIAL DAMAGES 00047 //(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT 00048 //OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 00049 //DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 00050 //HOWEVER CAUSED AND ON ANY THEORY OF 00051 //LIABILITY, WHETHER IN CONTRACT, STRICT 00052 //LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR 00053 //OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 00054 //OF THIS SOFTWARE, EVEN IF ADVISED OF THE 00055 //POSSIBILITY OF SUCH DAMAGE. 00056 00057 00058 00059 00060 00061 00062 namespace IO 00063 { 00064 00065 template< class T > 00066 void WriteMFile(Matrix<T>& m, string variable, string filename) 00067 { 00068 ofstream mfile(filename.c_str(), ios::out); 00069 if(!RandomGen::Initialized()) 00070 { 00071 RandomGen::Initialize(); 00072 } 00073 00074 mfile << variable << " = [ " << endl; 00075 00076 for(int i=0; i<m.Rows(); i++) 00077 { 00078 int c = 0; 00079 for(int j=0; j<m.Columns(); j++) 00080 { 00081 mfile << (double)m.ElemNC(i,j) << " "; 00082 c++; 00083 if(c==500) 00084 { 00085 mfile << " ..." << endl; 00086 } 00087 } 00088 mfile << endl; 00089 } 00090 mfile << "];" << endl; 00091 } 00092 00093 template< class T > 00094 void WriteMFile(Vector<T>& m, string variable, string filename) 00095 { 00096 WriteMFile((Matrix<T>)m, variable, filename); 00097 } 00098 00099 00100 00101 }; 00102 00103
1.3.9.1