00001 /* @HEADER@ */ 00002 // ************************************************************************ 00003 // 00004 // Sundance 00005 // Copyright (2005) Sandia Corporation 00006 // 00007 // Copyright (year first published) Sandia Corporation. Under the terms 00008 // of Contract DE-AC04-94AL85000 with Sandia Corporation, the U.S. Government 00009 // retains certain rights in this software. 00010 // 00011 // This library is free software; you can redistribute it and/or modify 00012 // it under the terms of the GNU Lesser General Public License as 00013 // published by the Free Software Foundation; either version 2.1 of the 00014 // License, or (at your option) any later version. 00015 // 00016 // This library is distributed in the hope that it will be useful, but 00017 // WITHOUT ANY WARRANTY; without even the implied warranty of 00018 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00019 // Lesser General Public License for more details. 00020 // 00021 // You should have received a copy of the GNU Lesser General Public 00022 // License along with this library; if not, write to the Free Software 00023 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 00024 // USA 00025 // Questions? Contact Kevin Long (krlong@sandia.gov), 00026 // Sandia National Laboratories, Livermore, California, USA 00027 // 00028 // ************************************************************************ 00029 /* @HEADER@ */ 00030 00031 #include "SundanceSymbolicFunc.hpp" 00032 #include "SundanceSymbolicFuncElement.hpp" 00033 #include "SundanceZeroExpr.hpp" 00034 00035 #include "SundanceDerivSet.hpp" 00036 #include "PlayaTabs.hpp" 00037 00038 using namespace Sundance; 00039 using namespace Sundance; 00040 00041 using namespace Sundance; 00042 using namespace Teuchos; 00043 00044 SymbolicFunc::SymbolicFunc(const FunctionWithID& fid, 00045 const RCP<const CommonFuncDataStub>& data) 00046 : ListExpr(), FunctionWithID(fid), commonData_(data) 00047 {} 00048 00049 00050 void SymbolicFunc::substituteZero() const 00051 { 00052 for (int i=0; i<this->size(); i++) 00053 { 00054 const SymbolicFuncElement* u 00055 = dynamic_cast<const SymbolicFuncElement*>(element(i).ptr().get()); 00056 TEUCHOS_TEST_FOR_EXCEPTION(u==0, std::logic_error, 00057 "Non-symbolic function " 00058 << element(i).toString() 00059 << " detected in SymbolicFunc::substituteZero()"); 00060 u->substituteZero(); 00061 } 00062 } 00063 00064 void SymbolicFunc 00065 ::substituteFunction(const RCP<DiscreteFunctionStub>& u0) const 00066 { 00067 TEUCHOS_TEST_FOR_EXCEPTION(this->size() != u0->size(), std::logic_error, 00068 "Mismatch between sizes of symbolic " << toString() 00069 << " and discrete func " << u0->toString() 00070 << " in substituteFunction()"); 00071 00072 for (int i=0; i<this->size(); i++) 00073 { 00074 const SymbolicFuncElement* u 00075 = dynamic_cast<const SymbolicFuncElement*>(element(i).ptr().get()); 00076 TEUCHOS_TEST_FOR_EXCEPTION(u==0, std::logic_error, 00077 "Non-symbolic function " 00078 << element(i).toString() 00079 << " detected in SymbolicFunc::substituteFunction()"); 00080 00081 RCP<DiscreteFuncElement> df 00082 = rcp_dynamic_cast<DiscreteFuncElement>(u0->element(i).ptr()); 00083 u->substituteFunction(df); 00084 } 00085 } 00086