Changeset dfb32c3 in tol for tol_pkg/FunRn2R/BaseC2.Monomial.tol

Timestamp:

Dec 23, 2009, 12:10:01 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

29ef418

Parents:

150c074

Message:

Avoiding indeterminateness of type 0⁰

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1878 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol_pkg/FunRn2R/BaseC2.Monomial.tol (modified) (4 diffs)

tol_pkg/FunRn2R/BaseC2.Monomial.tol

@@ -70 +70 @@
       Real d = _.degComb[k][i];
       If(d==0, Rand(VRows(X),1,1,1),
-      {
-      //WriteLn("  _.degComb["<<k+"]["<<i+"]="<<_.degComb[k][i]);
-        RPow(SubCol(X,[[i]]),_.degComb[k][i])
-      })
+        RPow(SubCol(X,[[i]]),_.degComb[k][i]))
     }))
   }; 
@@ -91 +88 @@
       BinGroup("$*", EvalSet(_.range.der.1[i], VMatrix rd1(Real h)
       {
-        RPow(SubCol(X,[[h]]),_.degComb[k][h])
+        If(_.degComb[k][h]==0, Rand(VRows(X),1,1,1),
+          RPow(SubCol(X,[[h]]),_.degComb[k][h]))
       })))
     })
@@ -112 +110 @@
         BinGroup("$*", EvalSet(_.range.der.1[i], VMatrix rd21(Real h)
         {
-          RPow(SubCol(X,[[h]]),_.degComb[k][h])
+          If(_.degComb[k][h]==0, Rand(VRows(X),1,1,1),
+            RPow(SubCol(X,[[h]]),_.degComb[k][h]))
         })))
       })
@@ -144 +143 @@
     BinGroup("$*", EvalSet(_.range.der.1[i], VMatrix rd1(Real h)
     {
-      RPow(SubCol(X,[[h]]),_.degComb[k][h])
+      If(_.degComb[k][h]==0, Rand(VRows(X),1,1,1),
+        RPow(SubCol(X,[[h]]),_.degComb[k][h]))
     })))
   }