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 "SundanceFunctionalDerivative.hpp" 00032 00033 #include "SundanceSymbolicTransformation.hpp" 00034 #include "SundanceUnknownFuncElement.hpp" 00035 #include "SundanceExplicitFunctionalDerivativeElement.hpp" 00036 00037 using namespace Sundance; 00038 using namespace Teuchos; 00039 00040 using namespace Sundance; 00041 00042 Expr Sundance::FunctionalDerivative(const Expr& F, const Expr& u) 00043 { 00044 if (F.size() == 1 && u.size()==1) 00045 { 00046 RCP<ScalarExpr> arg = SymbolicTransformation::getScalar(F[0]); 00047 00048 const UnknownFuncElement* uPtr 00049 = dynamic_cast<const UnknownFuncElement*>(u[0].ptr().get()); 00050 00051 Deriv fd = funcDeriv(uPtr); 00052 00053 return new ExplicitFunctionalDerivativeElement(arg, fd); 00054 } 00055 else if (F.size() > 1) 00056 { 00057 Array<Expr> rtnList(F.size()); 00058 for (int i=0; i<rtnList.size(); i++) 00059 { 00060 rtnList[i] = FunctionalDerivative(F[i], u); 00061 } 00062 return new ListExpr(rtnList); 00063 } 00064 else 00065 { 00066 Array<Expr> rtnList(u.size()); 00067 for (int i=0; i<rtnList.size(); i++) 00068 { 00069 rtnList[i] = FunctionalDerivative(F, u[i]); 00070 } 00071 return new ListExpr(rtnList); 00072 } 00073 00074 } 00075