From 34346a73ce52bd70b3f6d8d117de2f553c960481 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Wed, 27 Aug 2008 21:48:02 +0200 Subject: [PATCH] linear alg verification; start of a non-working use of Cairo for displays --- ls-demo.lisp | 28 +++++++++++++++++++++++++--- 1 file changed, 25 insertions(+), 3 deletions(-) diff --git a/ls-demo.lisp b/ls-demo.lisp index 48fd1b9..79deba6 100644 --- a/ls-demo.lisp +++ b/ls-demo.lisp @@ -3,7 +3,7 @@ ;;; See COPYRIGHT file for any additional restrictions (BSD license). ;;; Since 1991, ANSI was finally finished. Edited for ANSI Common Lisp. -;;; Time-stamp: <2008-08-15 16:05:27 tony> +;;; Time-stamp: <2008-08-27 21:47:18 tony> ;;; Creation: <2007-01-01 09:21:50 user> WRONG ;;; File: ls-demo.lisp ;;; Author: AJ Rossini @@ -35,7 +35,19 @@ (in-package :ls-user) -;;;; Matrix algebra. +;;; linear algebra (matrices and vectors) + +(in-package :cl-user) ; the following will barf, but... +(+ #(2 3 4) #(4 5 6)) +(+ #2A((2 3 4) (2 3 4)) #2A ( (4 5 6) (1 1 1))) +(* #2A((2 3 4) (2 3 4)) #2A ( (4 5 6) (1 1 1))) +(in-package :ls-user) ; the next will succeed +(+ #(2 3 4) #(4 5 6)) +(+ #2A((2 3 4) (2 3 4)) #2A ( (4 5 6) (1 1 1))) +(* #2A((2 3 4) (2 3 4)) #2A ( (4 5 6) (1 1 1))) + + + (chol-decomp #2A((2 3 4) (1 2 4) (2 4 5))) ;; (#2A((1.7888543819998317 0.0 0.0) @@ -352,4 +364,14 @@ iron (undef 'iron) (variables) -;;; More... +;;; Plotting! + +(asdf:oos 'asdf:compile-op 'cl-cairo2 :force t) +(asdf:oos 'asdf:load-op 'cl-cairo2) + + + +(asdf:oos 'asdf:compile-op 'rclg :force t) +(asdf:oos 'asdf:load-op 'rclg) + + -- 2.11.4.GIT