mirror of
https://github.com/PDP-10/its.git
synced 2026-03-25 01:47:08 +00:00
85994ed770
Resolves #284. Commented out uses of time-origin in maxtul; mcldmp (init) until we can figure out why it gives arithmetic overflows under the emulators. Updated the expect script statements in build_macsyma_portion to not attempt to match expected strings, but simply sleep for some time since in some cases the matching appears not to work.
16 lines
3.7 KiB
Common Lisp
16 lines
3.7 KiB
Common Lisp
|
|
|
|
;;;;;;;;;;;;;;;;;;; -*- Mode: Lisp; Package: Macsyma -*- ;;;;;;;;;;;;;;;;;;;
|
|
;;; (c) Copyright 1983 Massachusetts Institute of Technology ;;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(macsyma-module reset)
|
|
|
|
;;;RESETs flags to their initial values.
|
|
;See ALJABR;GENRST > for instructions for constructing this file.
|
|
|
|
(SETQ IBASE 10. BASE 10. *RSET NIL NOUUO NIL MODULUS NIL ZUNDERFLOW T)
|
|
(SETQ $BERLEFACT T $RATSIMPEXPONS NIL $PARSEWINDOW 10. $LISPDISP NIL $NEGDISTRIB T $EXPONENTIALIZE NIL $CAUCHYSUM NIL $HOMOG_HACK NIL $RATPRINT T $INTANALYSIS T $PROGRAMMODE T $TRIGEXPANDTIMES T $INTFACLIM 1000. $NEGSUMDISPFLAG T $PREDERROR T $PSEXPAND NIL $SUMHACK NIL $PACKAGEFILE NIL $VECT_CROSS NIL $DOMAIN '$REAL $LASTTIME '((MLIST) 0. 0.) $GRINDSWITCH NIL $TRIGEXPANDPLUS T $MAXNEGEX 1000. $OPTIONSET NIL $PLOTHEIGHT 22. $NALGFAC T $NUMER_PBRANCH NIL $RATFAC NIL $LINSOLVE_PARAMS T $TRANSRUN T $TLIMSWITCH NIL $DOMXPLUS NIL $SUPERLOGCON T $PRODHACK NIL $RADSUBSTFLAG NIL $SOLVEFACTORS T $LEFTJUST NIL $SIGNBFLOAT T $DISPLAY_FORMAT_INTERNAL NIL $SAVEFACTORS NIL $FORTINDENT 0. $BATCOUNT 0. $NEWFAC NIL $TAYLORDEPTH 3. $ASSUME_POS NIL $RMXCHAR '&] $SAVEDEF T $BFTORAT NIL $%RNUM 0. $DISPLAY2D T $DOMXTIMES NIL $RATEPSILON 2.0E-8 $PARSETIME NIL $ROOTSEPSILON 1.0E-7 $SOLVENULLWARN T $FALSE NIL $LOGABS NIL $LMXCHAR '&[ $CFLENGTH 1. $SUBNUMSIMP NIL $INTEGRATION_CONSTANT_COUNTER 0. $LINEDISP T $FACTORFLAG NIL $ALGDELTA 1.0E-5 $BACKTRACE '$BACKTRACE $LIMSUBST NIL $LIMITDOMAIN '$COMPLEX $MATRIX_ELEMENT_ADD '&+ $MAXPRIME 489318. $RATVARSWITCH T $DEBUGMODE NIL $HALFANGLES NIL $SUBSCRMAP NIL $LISTARITH T $NOINTEGRATE NIL $FORTSPACES NIL $NOLABELS NIL $MOREWAIT NIL $TAYLOR_SIMPLIFIER 'SIMPLIFY $NOUNDISP NIL $DSKALL T $%EMODE T $STARDISP NIL $MAXTAYORDER T $DSKUSE NIL $INCHAR '$C $MAPPRINT T $PIECE '$PIECE $ALGEPSILON 100000000. $%PIARGS T $DSKGC NIL $FPPRINTPREC 0. $DERIVSUBST NIL $TTYINTFUN NIL $DISPTIME NIL $STORENUM 1000. $LOGARC NIL $REFCHECK NIL $SUMEXPAND NIL $ABCONVTEST NIL $RATWTLVL NIL $FLOAT2BF NIL $POINTBOUND 34359738337. $LOGNUMER NIL $ZEROBERN T $MATRIX_ELEMENT_MULT '&* $GCD '$SPMOD $TRIGEXPAND NIL $ERROR_SIZE 20. $TAYLOR_TRUNCATE_POLYNOMIALS T $BOXCHAR '&/" $MAPERROR T $SUMSPLITFACT T $SOLVEEXPLICIT NIL $MULTIPLICITIES '$NOT_SET_YET $SIMP T $SQRTDISPFLAG T $ABSBOXCHAR '&! $NUMER NIL $DEVICE '$DSK $DOSCMXPLUS NIL $SETVAL '$SETVAL $PARTSWITCH NIL $WTLEVEL NIL $GLOBALSOLVE NIL $M1PBRANCH NIL $MATRIX_ELEMENT_TRANSPOSE NIL $INFEVAL NIL $STRDISP T $FACTLIM -1. $LISTCONSTVARS NIL $SOLVE_INCONSISTENT_ERROR T $LOGSIMP T $BREAKUP T $TRANSLATE NIL $DEMOIVRE NIL $MAXPOSEX 1000. $%E_TO_NUMLOG NIL $OFF NIL $TAYLOR_LOGEXPAND NIL $LISTDUMMYVARS T $LINSOLVEWARN T $SOLVERADCAN NIL $FILESIZE 16. $CHANGE_FILEDEFAULTS T $ON T $SPARSE NIL $POLYFACTOR NIL $SIMPSUM NIL $OUTCHAR '$D $%IARGS T $EXPOP 0. $LOGNEGINT NIL $%EDISPFLAG NIL $TRIGINVERSES '$ALL $GAMMALIM 1000000. $FLOAT NIL $DETOUT NIL $EXPON 0. $CONTEXT '$INITIAL $POWERDISP NIL $DOMXEXPT T $RATDENOMDIVIDE T $INFLAG NIL $PFEFORMAT NIL $EXPTDISPFLAG T $ROOTSCONMODE T $VERBOSE NIL $ASSUME_POS_PRED NIL $SOLVEDECOMPOSES T $BFTRUNC T $NOREPEAT T $MYOPTIONS '((MLIST SIMP)) $FILENUM 0. $RATALGDENOM T $KEEPFLOAT NIL $TRIGSIGN T $GENINDEX '$I $LINECHAR '$E $ERRORFUN NIL $MX0SIMP T $GENSUMNUM 0. $EXPTSUBST NIL $LOADPRINT T $FACEXPAND T $DYNAMALLOC NIL $BACKSUBST T $ZETA%PI T $SOLVETRIGWARN T $ERRORMSG T $GRIND NIL $%ENUMER NIL $TTYINTNUM 21. $LOGEXPAND T $MAXTAYDIFF 4. $LHOSPITALLIM 4. $OPSUBST T $SETCHECK NIL $SETCHECKBREAK NIL $RATEXPAND NIL $RATMX NIL $ALGEBRAIC NIL $TAYLOR_ORDER_COEFFICIENTS T $RADEXPAND T $FILE_STRING_PRINT NIL $TRUE T $RESULTANT '$SUBRES $LOGCONCOEFFP NIL $DERIVABBREV NIL $RATWEIGHTS '((MLIST SIMP)) )
|
|
($DEBUGMODE NIL)
|
|
($DSKGC NIL)
|
|
(COND ((NOT (= $FPPREC 16.)) ($FPPREC 16.) (SETQ $FPPREC 16.))) |