# maple.ini (DOS) or .mapleinit (UNIX) # to be copied to subdirectory /maplev4/lib # some macros: # by typing "macros" in a Maple session you get all macros displayed # that have been assigned. macros := [bi = binomial, eb = evalb, ef = evalf, inf = infinity, lim = limit, new = restart, sc = 'scaling=constrained', si = simplify, sv = solve]: for i to nops(macros) do macro(macros[i]) od: i := 'i': # unassign variable i # ----------------------------------------------------------------------------- # Define Euler's constant E=2.7182818... like in R3 alias(E=exp(1)): constants := constants, E: # append E to constants (like in R3) # ----------------------------------------------------------------------------- # Set some defaults for package geometry and for function solve _EnvHorizontalName := x: # name of ascissa _EnvVerticalName := y: # name of ordinate _EnvAllSolutions := true: # return a general solution with # transcendental functions # ----------------------------------------------------------------------------- # Extend libname so that Maple V can find user-defined packages and/or # documentations libname := `c:/maplev4/math`, # math package `c:/maplev4/joe_riel`, # Joe Riel's Administering Maple V Release 4 `c:/maplev4/geom3d`, # geom3d for Release 4 `c:/maplev4/mv4ext`, # Patch for Invfunc libname: # original default value of libname after # startup # ----------------------------------------------------------------------------- # load short forms for two packages (math and plots) with(math): with(plots, display): # ----------------------------------------------------------------------------- # Set some options for plots functions (plot fonts now mostly like in R3) plots[setoptions]( titlefont = [HELVETICA, BOLD, 12], axesfont = [HELVETICA, 11], labelfont = [HELVETICA, 11], font = [HELVETICA, 11]): # ----------------------------------------------------------------------------- # readlib-define some not readlib-defined Library functions, # this avoids having to load the code of these functions with readlib unprotect('evalr', 'iscont', 'discont', 'isolate', 'profile'): evalr := 'readlib('evalr')': iscont := 'readlib('iscont')': discont := 'readlib('discont')': isolate := 'readlib('isolate')': profile := 'readlib('profile')': protect('evalr', 'iscont', 'discont', 'isolate', 'profile'): # ----------------------------------------------------------------------------- # some useful hacker functions unprotect('pp'): pp := proc(n::nonnegint): if n < 3 then interface(prettyprint=n) else ERROR(`Argument must be less than 3`) fi end: protect('pp'): unprotect('vp'): vp := proc(n::nonnegint): if n <= 3 then interface(verboseproc=n) else ERROR(`Argument must be less than 4`) fi end: protect('vp'): unprotect('pl'): pl := proc(n::nonnegint): printlevel := n; NULL end: protect('pl'):