(use-package :ph_linearalgebra)
setq a #2a( (3.2 4.5 1.) (1.0 2.0 4.7) (2. 5. 4.8)))
(setq b #2a ( (1. ) (2.) (3.) ) )
(inverse a )
=> #2A((0.6101844 0.7287095 -0.8406497)
(-0.20193152 -0.5864795 0.61633015)
(-0.043898158 0.30728713 -0.08340651))
;Solves the system a*x = b , where x is a matrix of incognites.
(solve_linear_equations a b)
=> #2A((-0.4543457) (0.47409996) (0.3204566))
(use-package :ph_montecarlo)
;Integrates sin(x)**2 between 0 and pi
(montecarlo (lambda (x) (expt (sin x) 2)) (list 0 pi) :points 1000000)
; and more!