src/max_ext.lisp

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