00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031 #include "SundanceIntegral.hpp"
00032 #include "SundanceSumOfIntegrals.hpp"
00033
00034 using namespace Sundance;
00035 using namespace Sundance;
00036
00037 using namespace Teuchos;
00038 using namespace Sundance;
00039
00040 using namespace Sundance;
00041
00042 Expr Sundance::Integral(const Handle<CellFilterStub>& domain,
00043 const Expr& integrand,
00044 const WatchFlag& watch)
00045 {
00046 RCP<QuadratureFamilyStub> quad
00047 = QuadratureFamilyStub::defaultQuadrature();
00048
00049 return new SumOfIntegrals(domain.ptr(), Re(integrand), quad, watch);
00050 }
00051
00052 Expr Sundance::Integral(const Handle<CellFilterStub>& domain,
00053 const Expr& integrand,
00054 const Handle<QuadratureFamilyStub>& quad,
00055 const WatchFlag& watch)
00056 {
00057 return new SumOfIntegrals(domain.ptr(), Re(integrand), quad.ptr(),watch);
00058 }
00059
00060 Expr Sundance::Integral(const Handle<CellFilterStub>& domain,
00061 const Expr& integrand,
00062 const Handle<QuadratureFamilyStub>& quad,
00063 const ParametrizedCurve& curve,
00064 const WatchFlag& watch)
00065 {
00066 return new SumOfIntegrals(domain.ptr(), Re(integrand), quad.ptr(), curve , watch);
00067 }