Changeset 2366 in Sophya for trunk/Eval/JET/jet.h

Timestamp:

Apr 18, 2003, 5:48:16 PM (22 years ago)

Author:

ansari

Message:

Ajout fonctions Sin/Cos/... ds jet.h + prog en f90 - Reza 18/4/2003

File:

• trunk/Eval/JET/jet.h (modified) (2 diffs)

trunk/Eval/JET/jet.h

@@ -132 +132 @@
 };
 
+// -------- Classe Fonc(Expression)  --------------
+template <class T> 
+class FSin {
+public:
+  FSin() { }
+  FSin(FSin<T> const &) { }
+  inline T FuncVal(T x) const { return sin(x); }
+};
+template <class T> 
+class FCos {
+public:
+  FCos() { }
+  FCos(FCos<T> const &) { }
+  inline T FuncVal(T x) const { return cos(x); }
+};
+template <class T> 
+class FTan {
+public:
+  FTan() { }
+  FTan(FTan<T> const &) { }
+  inline T FuncVal(T x) const { return tan(x); }
+};
+template <class T> 
+class FLog {
+public:
+  FLog() { }
+  FLog(FLog<T> const &) { }
+  inline T FuncVal(T x) const { return log(x); }
+};
+template <class T> 
+class FExp {
+public:
+  FExp() { }
+  FExp(FExp<T> const &) { }
+  inline T FuncVal(T x) const { return exp(x); }
+};
+
+template <class T, class E, class F>
+class JETExprFunc {
+public:
+  JETExprFunc(E e, F f) : e_(e), f_(f) { }
+  JETExprFunc( JETExprFunc<T, E, F> const & a) : e_(a.e_), f_(a.f_) { }
+  inline T EvaluateAndStep() const { return f_.FuncVal(e_.EvaluateAndStep()); }
+  virtual MtxSize const & RefSize() const { return e_.RefSize() ; }
+  inline void Reset() const { e_.Reset(); }
+protected:
+  E e_;
+  F f_;
+};
 
 
@@ -174 +223 @@
   (JETExprMult<T,E1,E2>(e1.Expression(), e2.Expression()) ); }
 
+//---- Definition Sin/Cos/Tan/Log/Exp 
+template <class T, class E> 
+JETExpression< T, JETExprFunc<T,E,FSin<T> > > Sin ( JETExpression<T,E> e) 
+{ return JETExpression< T, JETExprFunc<T,E,FSin<T> > > (JETExprFunc<T,E,FSin<T> >(e.Expression(), FSin<T>() ) ); }
 #endif