Changeset 4305 for trunk/Ohana/src/opihi/lib.shell/stack_math.c

Timestamp:

Jun 17, 2005, 12:20:48 PM (21 years ago)

Author:

eugene

Message:

added erf to stack_math, fixed up precedence order

File:

• trunk/Ohana/src/opihi/lib.shell/stack_math.c (modified) (3 diffs)

trunk/Ohana/src/opihi/lib.shell/stack_math.c

@@ -1166 +1166 @@
   if (!strcmp (op, "ln"))    {    *out = log (*M1);           }
   if (!strcmp (op, "sqrt"))  {    *out = sqrt (*M1);          }
+  if (!strcmp (op, "erf"))   {    *out = erf (*M1);           }
 
   if (!strcmp (op, "sinh"))  {    *out = sinh (*M1);          }
@@ -1223 +1224 @@
   if (!strcmp (op, "ln"))    { for (i = 0; i < Nx; i++, out++, M1++) { *out = log(*M1);          }}
   if (!strcmp (op, "sqrt"))  { for (i = 0; i < Nx; i++, out++, M1++) { *out = sqrt(*M1);         }}
+  if (!strcmp (op, "erf"))   { for (i = 0; i < Nx; i++, out++, M1++) { *out = erf(*M1);          }}
 
   if (!strcmp (op, "sinh"))   { for (i = 0; i < Nx; i++, out++, M1++) { *out = sinh(*M1);        }}
@@ -1289 +1291 @@
   if (!strcmp (op, "ln"))    { for (i = 0; i < Nx*Ny; i++, out++, M1++) { *out = log(*M1);          }}
   if (!strcmp (op, "sqrt"))  { for (i = 0; i < Nx*Ny; i++, out++, M1++) { *out = sqrt(*M1);         }}
+  if (!strcmp (op, "erf"))   { for (i = 0; i < Nx*Ny; i++, out++, M1++) { *out = erf(*M1);          }}
 
   if (!strcmp (op, "sinh"))  { for (i = 0; i < Nx*Ny; i++, out++, M1++) { *out = sinh(*M1);         }}