github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-27 04:32:08 +00:00
Code Issues Releases Wiki Activity

Add the file SHARE; DESOLN LISP, which appears to resolve an issue with

Browse Source 
using ho:desolve in macsyma.  Resolves #1154.
This commit is contained in:
Eric Swenson
2018-11-16 22:42:35 -08:00
committed by Lars Brinkhoff
parent 90268fe9c8
commit 428d228af1
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/share/desoln.lisp Executable file
View File

@@ -0,0 +1,5 @@
;;; -*- Mode: LISP; Package: Macsyma; -*- Saved by JPG
(SETQ SAVENO 3040.)
(MDEFPROP $DESOLVE ((LAMBDA) ((MLIST) $EQNS $VARS) ((MPROG) ((MLIST) $TEQNS ((MSETQ) $INFLAG T) $PIECE ((MSETQ) $PARTSWITCH T) $TVARS $OVAR $LVAR ((MSETQ) $FLAG NIL) ((MSETQ) $PROGRAMMODE T)) (($MODEDECLARE) $FLAG $BOOLEAN) ((MCOND) ((MNOT) (($LISTP) $VARS)) ((MPROGN) ((MSETQ) $EQNS ((MLIST) $EQNS)) ((MSETQ) $VARS ((MLIST) $VARS)) ((MSETQ) $FLAG T)) T $FALSE) ((MCOND) ((MNOTEQUAL) (($LENGTH) ((MSETQ) $OVAR (($FIRST) $VARS))) 1.) (($ERROR) $OVAR |&contains more than one independent variable.|) T $FALSE) ((MSETQ) $OVAR (($FIRST) $OVAR)) ((MSETQ) $TEQNS (($MAP) ((LAMBDA) ((MLIST) $Z) (($LAPLACE) $Z $OVAR $LVAR)) $EQNS)) ((MSETQ) $TVARS (($MAP) ((LAMBDA) ((MLIST) $Z) ((%LAPLACE) $Z $OVAR $LVAR)) $VARS)) ((MSETQ) $TEQNS (($ERRCATCH) (($SOLVE) $TEQNS $TVARS))) ((MCOND) ((MOR) ((MEQUAL) $TEQNS ((MLIST))) ((MEQUAL) $TEQNS ((MLIST) ((MLIST))))) (($ERROR) |&DESOLVE can't handle this case.|) T ((MSETQ) $TEQNS (($FIRST) $TEQNS))) ((MCOND) ((MNOTEQUAL) $FLAG T) ((MSETQ) $TEQNS (($FIRST) $TEQNS)) T $FALSE) ((MSETQ) $TEQNS (($MAP) ((LAMBDA) ((MLIST) $Z) (($ILT) $Z $LVAR $OVAR)) $TEQNS)) ((MCOND) ((MAND) $FLAG ((MEQUAL) (($LENGTH) $TVARS) 1.)) (($FIRST) $TEQNS) T $TEQNS))) MEXPR)