(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!