0546D |
SYMBN
|
( ob1..obn #n → sym )
|
2BD8C |
(Cr)
|
ob1..obn #n -> symb
Does 'R, SWAP#1+ then <REF>SYMBN . Creates a
symbolic from the meta in the stack and the
next object in the runstream. This object is
added to the end of the symbolic.
|
055F3 |
(NULLSYMB)
|
( → sym )
Puts a null algebraic in the stack.
|
286E7 |
symcomp
|
( ob → ob' )
If ob is symbolic, does nothing, otherwise
ONE SYMBN.
|
2F073 |
SWAPcompSWAP
|
( ob ob' → ob" ob' )
Does SWAP symcomp SWAP.
|
28ACE |
(DROP?symcomp)
|
( %/C%/Z/id/lam ob' → %/C%/Z/id/lam )
( ob ob' → symb )
Drop ob'. Then, if the object in the stack is
a real, complex, zint, identifier or lam,
does nothing. For other objects, calls
symcomp to create a one-object symbolics.
|
293A3 |
(?symcomp)
|
( %/C%/Z/id/lam #1 → %/C%/Z/id/lam )
( ob #1 → symb )
( ob # → symb )
If # is BINT1, calls DROP?symcomp. If it is
any other number, calls SYMBN.
|
2F25E |
(SPLITEQ)
|
( sym → arg1 arg2 )
Internal version of EQ→.
|
2F242 |
(EXPR>)
|
( sym → arg1..argn %n ob )
Internal version of OBJ→.
|
25EA2 |
CRUNCH
|
( ob → % )
Internal version of →NUM.
|
2F110 |
(FINDVAR)
|
( sym → {} )
Returns a list of the variables of the
equation, recursing into programs and
functions in the equation.
|
462006 |
^EQUATION?
|
( ob → ob flag )
Returns TRUE if ob is a symbolic finishing by
x=.
|
463006 |
^USERFCN?
|
( ob → ob flag )
Returns TRUE if ob is a symbolic finishing by
xFCNAPPLY.
|
29CB9 |
uncrunch
|
( → )
Clears numeric results flag (system flag 3)
for the next command only. Example:
SYMCOLCT = :: uncrunch colct ;
--
Flags: -3
|
2BCA2 |
cknumdsptch1
|
( sym → symf )
Used by one argument functions to evaluate a
symbolic or numeric routine according to
numeric results flag. Usage:
:: cknumdsptch1 <sym> <num> ;
If numeric mode, CRUNCH is applied to the
level one object and COLA is applied to
<num>. If symbolic mode, ckseval1: is called.
Example:
:: cknumdsptch1 MetaRE xRE ;
--
Flags: -3
|
2BB21 |
sscknum2
|
( sym sym → symf )
Used by two argument functions to evaluate
function according to current numeric mode.
Usage: :: sscknum2 <sym> <num> ;
In numeric mode both arguments are CRUNCHed
and <num> is COLAd. Else, cksseval2: is
called. Example:
SYM+ = :: sncknum2 Meta+ x+ ;
|
2BB3A |
sncknum2
|
( sym % → symf )
Usage: :: sncknum2 <sym> <num> ;
In symbolic mode uses cksneval2:.
Example:
SYM+O = :: sncknum2 Meta+Con x+ ;
|
2BB53 |
nscknum2
|
( % sym → symf )
Usage: :: nscknum2 <sym> <num> ;
In symbolic mode uses cknseval2:.
Example:
O+SYM = :: nscknum2 Con+Meta x+ ;
|