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