Changeset 2179 in Sophya for trunk/SophyaPI/ProgPI/skymapmodule.pic

Timestamp:

Aug 13, 2002, 12:38:56 PM (23 years ago)

Author:

cmv

Message:

disparition de varop dans skymapmodule.cc

File:

• trunk/SophyaPI/ProgPI/skymapmodule.pic (modified) (1 diff)

trunk/SophyaPI/ProgPI/skymapmodule.pic

@@ -436 +436 @@
 echo mean=$mean sig=$sig
 
-#---------------------- test VarOper
-varop 1000 + 100 result
-  echo result is $result
-varop 1000 - 100 result
-  echo result is $result
-varop 1000 * 100 result
-  echo result is $result
-varop 1000 / 100 result
-  echo result is $result
-varop 1000 / 0 result
-  echo result is $result
-
-varop 1000 sqrt ! result
-  echo result is $result
-varop -1000 sqrt ! result
-  echo result is $result
-varop 10 exp ! result
-  echo result is $result
-varop 1000 log ! result
-  echo result is $result
-varop -1000 log ! result
-  echo result is $result
-varop 1000 log10 ! result
-  echo result is $result
-varop -1000 log10 ! result
-  echo result is $result
-
-varop 1000 pow 2 result
-  echo result is $result
-varop 1000 pow 1000 result
-  echo result is $result
+#---------------------- test ExpVal
+set x 1
+set y 2
+set z 3
+eval ! x +y +z
+eval ! $x +$y +$z
+eval r x +y +z
+ echo result is $r
+
+eval r 1e150
+ echo result is $r
+eval r 1e10
+ echo result is $r
+eval r 0
+ echo result is $r
+
+eval r sqrt(-1.)
+ echo $r