src/max_ext.lisp

   1 ;;Autoloads for maxima
   2 (in-package :maxima)
   3
   4 ($auto_mexpr '$lratsubst "lrats")
   5 ($auto_mexpr '$fullratsubst "lrats")
   6
   7 ($auto_mexpr '$nusum "nusum")
   8 ($auto_mexpr '$unsum "nusum")
   9 ($auto_mexpr '$funcsolve "nusum")
  10
  11 ($auto_mexpr '$bffac "bffac")
  12 ($auto_mexpr '$cbffac "bffac")
  13 ($auto_mexpr '$bfzeta "bffac")
  14 ($auto_mexpr '$bfpsi "bffac")
  15 ($auto_mexpr '$bfpsi0 "bffac")
  16
  17 (auto-mexpr '$trigrat '|trigrat|)
  18 ($auto_mexpr '$gcdex '|gcdex|)
  19 ($auto_mexpr '$expandwrt "simplification/stopex")
  20 ($auto_mexpr '$expandwrt_factored "simplification/stopex")
  21 (declaim (special $expandwrt_denom $expandwrt_nonrat))
  22
  23 ($auto_mexpr '$facsum "simplification/facexp")
  24 ($auto_mexpr '$factorfacsum "simplification/facexp")
  25 ($auto_mexpr '$collectterms "simplification/facexp")
  26 (declaim (special $nextlayerfactor $facsum_combine))
  27
  28 ($auto_mexpr '$disolate "simplification/disol")
  29
  30 ($auto_mexpr '$linsimp "misc/declin")
  31 ($auto_mexpr '$declare_linear_operator "misc/declin")
  32
  33 ($auto_mexpr '$nonumfactor "simplification/genut")
  34 (meval '((%setup_autoload simp) "bffac" $bfzeta))
  35
  36 ;jfa
  37 ($auto_mexpr '$eigenvectors "eigen.mac")
  38 ($auto_mexpr '$eivects "eigen.mac")
  39 ($auto_mexpr '$eigenvalues "eigen.mac")
  40 ($auto_mexpr '$eivals "eigen.mac")
  41
  42 ($auto_mexpr '$trigsimp "trgsmp.mac")
  43 ($auto_mexpr '$ode2 "ode2.mac")
  44 ($auto_mexpr '$ic1 "ode2.mac")
  45 ($auto_mexpr '$ic2 "ode2.mac")
  46 ($auto_mexpr '$bc2 "ode2.mac")
  47 ($auto_mexpr '$desimp "ode2.mac")
  48 ($auto_mexpr '$linear2 "ode2")
  49
  50 ;villate
  51 ($auto_mexpr '$similaritytransform "eigen.mac")
  52 ($auto_mexpr '$simtran "eigen.mac")
  53
  54 (dolist (v
  55           '($arite
  56             $card_orbit
  57             $card_stab
  58             $comp2ele
  59             $comp2pui
  60             $cont2part
  61             $contract
  62             $direct
  63             $ele2comp
  64             $ele2polynome
  65             $ele2pui
  66             $elem
  67             $explose
  68             $kostka
  69             $lgtreillis
  70             $ltreillis
  71             $mon2schur
  72             $multi_elem
  73             $multi_orbit
  74             $multi_pui
  75             $multinomial
  76             $multsym
  77             $orbit
  78             $part2cont
  79             $partpol
  80             $permut
  81             $polynome2ele
  82             $prodrac
  83             $pui
  84             $pui2comp
  85             $pui2ele
  86             $pui2polynome
  87             $pui_direct
  88             $puireduc
  89             $resolvante
  90             $resolvante_alternee1
  91             $resolvante_bipartite
  92             $resolvante_diedrale
  93             $resolvante_klein
  94             $resolvante_klein3
  95             $resolvante_produit_sym
  96             $resolvante_unitaire
  97             $resolvante_vierer
  98             $schur2comp
  99             $somrac
 100             $tcontract
 101             $tpartpol
 102             $treillis
 103             $treinat
 104             ))
 105   (setf (get v 'autoload)        "sym.mac")
 106   )
 107
 108
 109 (dolist (f
 110      '($adjust_external_format
 111        $close
 112        $flush_output
 113        $flength
 114        $fposition
 115        $freshline
 116        $newline
 117        $opena
 118        $openr
 119        $openw
 120        $make_string_input_stream
 121        $make_string_output_stream
 122        $get_output_stream_string
 123        $stderr
 124        $stdin
 125        $stdout
 126        $printf
 127        $sprint
 128        $writebyte
 129        $readbyte
 130        $readchar
 131        $readline
 132        $alphacharp
 133        $alphanumericp
 134        $ascii
 135        $cequal
 136        $cequalignore
 137        $cgreaterp
 138        $cgreaterpignore
 139        $charp
 140        $cint
 141        $clessp
 142        $clesspignore
 143        $constituent
 144        $cunlisp
 145        $digitcharp
 146        $lcharp
 147        $lowercasep
 148        $uppercasep
 149        $stringp
 150        $charat
 151        $charlist
 152        $eval_string
 153        $parse_string
 154        $scopy
 155        $sdowncase
 156        $sequal
 157        $sequalignore
 158        $sexplode
 159        $simplode
 160        $sinsert
 161        $sinvertcase
 162        $slength
 163        $smake
 164        $smismatch
 165        $split
 166        $sposition
 167        $sremove
 168        $sremovefirst
 169        $sreverse
 170        $ssearch
 171        $ssort
 172        $ssubst
 173        $ssubstfirst
 174        $strim
 175        $striml
 176        $strimr
 177        $substring
 178        $supcase
 179        $tab
 180        $tokens
 181        $unicode
 182        $unicode_to_utf8
 183        $utf8_to_unicode
 184        $base64
 185        $base64_decode
 186        $crc24sum
 187        $md5sum
 188        $mgf1_sha1
 189        $number_to_octets
 190        $octets_to_number
 191        $octets_to_oid
 192        $oid_to_octets
 193        $octets_to_string
 194        $string_to_octets
 195        $sha1sum
 196        $sha256sum
 197        $inferred_encoding
 198        $recognized_encoding_p))
 199   (setf (get f 'autoload) "stringproc"))
 200
 201
 202 (dolist (f
 203   '($regex_compile
 204     $regex_match_pos
 205     $regex_match
 206     $regex_split
 207     $regex_subst_first
 208     $regex_subst
 209     $string_to_regex ))
 210   (setf (get f 'autoload) "sregex"))
 211
 212
 213 (setf (get '$romberg 'autoload) "romberg")
 214
 215 (dolist (f
 216   '($assume_external_byte_order
 217     $opena_binary
 218     $openr_binary
 219     $openw_binary
 220     $read_array
 221     $read_binary_array
 222     $read_binary_list
 223     $read_binary_matrix
 224     $read_hashed_array
 225     $read_lisp_array
 226     $read_list
 227     $read_matrix
 228     $read_maxima_array
 229     $read_nested_list
 230     $write_binary_data
 231     $write_data))
 232   (setf (get f 'autoload) "numericalio"))
 233
 234 (dolist (f
 235   '($bit_and
 236     $bit_length
 237     $bit_lsh
 238     $bit_not
 239     $bit_onep
 240     $bit_or
 241     $bit_rsh
 242     $bit_xor ))
 243   (setf (get f 'autoload) "bitwise"))
 244
 245
 246 ;; functions from share/linearalgebra
 247 (dolist (f
 248      '($eigens_by_jacobi       ; eigens-by-jacobi.lisp
 249
 250        $cholesky               ; linalgcholesky.lisp
 251
 252        $circulant              ; linalg-extra.lisp
 253        $cauchy_matrix
 254        $hessian
 255        $jacobian
 256        $krylov_matrix
 257        $matrix_sign
 258        $sylvester_matrix
 259        $vandermonde_matrix
 260
 261        $blockmatrixp           ; linalg-utilities.lisp
 262        $ctranspose
 263        $identfor
 264        $matrix_size
 265        $require_list
 266        $require_matrix
 267        $require_nonempty_matrix
 268        $require_posinteger
 269        $require_real_symmetric_matrix
 270        $require_selfadjoint_matrix
 271        $require_square_matrix
 272        $require_symmetric_matrix
 273        $require_unblockedmatrix
 274        $zerofor
 275        $zeromatrixp
 276
 277        $determinant_by_lu        ; lu.lisp
 278        $get_lu_factors
 279        $invert_by_lu
 280        $linsolve_by_lu
 281        $lu_backsub
 282        $lu_factor
 283        $mat_cond
 284
 285        $matrixexp              ; matrixexp.lisp
 286        $matrixfun
 287        $spectral_rep
 288
 289        $addmatrices            ; mring.lisp
 290        $require_ring
 291        ))
 292   (setf (get f 'autoload) "linearalgebra"))
 293
 294 (dolist (mexpr
 295      '($column_reduce          ; linearalgebra.mac
 296        $columnop
 297        $columnspace
 298        $columnswap
 299        $diag_matrix
 300        $dotproduct
 301        $good_pivot
 302        $hankel
 303        $hilbert_matrix
 304        $hipow_gzero
 305        $kronecker_product
 306        $linalg_rank
 307        $locate_matrix_entry
 308        $mat_fullunblocker
 309        $mat_norm
 310        $mat_trace
 311        $mat_unblocker
 312        $moore_penrose_pseudoinverse
 313        $nullity
 314        $nullspace
 315        $orthogonal_complement
 316        $polytocompanion
 317        $ptriangularize
 318        $ptriangularize_with_proviso
 319        $request_rational_matrix
 320        $require_integer
 321        $require_symbol
 322        $rowop
 323        $rowswap
 324        $toeplitz))
 325   ($auto_mexpr mexpr "linearalgebra"))
 326
 327
 328 (dolist (f
 329      '($assoc_legendre_p
 330        $assoc_legendre_q
 331        $chebyshev_t
 332        $chebyshev_u
 333        $gen_laguerre
 334        $hermite
 335        $intervalp
 336        $jacobi_p
 337        $laguerre
 338        $legendre_p
 339        $legendre_q
 340        $orthopoly_recur
 341        $orthopoly_weight
 342        $pochhammer
 343        $spherical_bessel_j
 344        $spherical_bessel_y
 345        $spherical_hankel1
 346        $spherical_hankel2
 347        $spherical_harmonic
 348        $ultraspherical))
 349   (setf (get f 'autoload) "orthopoly"))
 350
 351 (defprop $unit_step simp-unit-step operators)
 352 (autof 'simp-unit-step "orthopoly")
 353
 354 (defprop $pochhammer simp-pochhammer operators)
 355 (autof 'simp-pochhammer "orthopoly")
 356
 357 (dolist (f
 358   '($draw
 359     $draw2d
 360     $draw3d
 361     $set_draw_defaults
 362     $multiplot_mode
 363     $make_level_picture
 364     $make_rgb_picture
 365     $get_pixel
 366     $take_channel))
 367   (setf (get f 'autoload) "draw"))
 368
 369 (dolist (f
 370   '($julia
 371     $mandelbrot
 372     $plotdf
 373     $ploteq
 374     $rk))
 375   (setf (get f 'autoload) "dynamics"))
 376
 377 (dolist (mexpr
 378   '($evolution
 379     $staircase
 380     $evolution2d
 381     $chaosgame
 382     $ifs
 383     $orbits))
 384   ($auto_mexpr mexpr "dynamics"))
 385
 386 (setf (get '$scene 'autoload) "visualization")
 387
 388 (defprop $hypergeometric simp-hypergeometric operators)
 389 (autof 'simp-hypergeometric "hypergeometric")
 390
 391 (dolist (f
 392   '($cl_eval
 393     $common_lisp
 394     $to_cl))
 395   (setf (get f 'autoload) "tocl"))
 396
 397 (dolist (f
 398   '($hstep
 399     $pwilt))
 400   (setf (get f 'autoload) "pwilt"))