| version 1.12, 2000/05/24 15:24:54 |
version 1.13, 2000/06/08 08:37:53 |
|
|
| /* $OpenXM: OpenXM/src/k097/lib/minimal/minimal.k,v 1.11 2000/05/19 11:16:51 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/k097/lib/minimal/minimal.k,v 1.12 2000/05/24 15:24:54 takayama Exp $ */ |
| #define DEBUG 1 |
#define DEBUG 1 |
| /* #define ORDINARY 1 */ |
/* #define ORDINARY 1 */ |
| /* If you run this program on openxm version 1.1.2 (FreeBSD), |
/* If you run this program on openxm version 1.1.2 (FreeBSD), |
| Line 1639 def sm1_gb(f,v) { |
|
| Line 1639 def sm1_gb(f,v) { |
|
| f =ToString_array(f); |
f =ToString_array(f); |
| v = ToString_array(v); |
v = ToString_array(v); |
| sm1(" [f v] gb /FunctionValue set "); |
sm1(" [f v] gb /FunctionValue set "); |
| |
} |
| |
|
| |
def SisExact_h(c,v) { |
| |
local a; |
| |
v = ToString_array(v); |
| |
a = [c,v]; |
| |
sm1(a," isExact /FunctionValue set "); |
| } |
} |
| |
|
| def SisComplex(a) { |
def SisComplex(a) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to minimal.k CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097 / lib / minimal