Changeset 16 in CGBLisp
- Timestamp:
- Jan 27, 2009, 12:50:03 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/parse.lisp
r15 r16 242 242 (cond 243 243 ((numberp expr) 244 (cons (make-list n :initial-element 0) expr)) 244 (cond 245 ((zerop expr) NIL) 246 (t (list (cons (make-list n :initial-element 0) expr))))) 245 247 ((symbolp expr) 246 248 (nth (position expr vars) basis)) … … 260 262 (* 261 263 (reduce #'(lambda (p q) ($poly* p q n order ring)) r)) 262 (/ ($poly/ (car r) (cadr r) ring)) 263 (expt ($poly-expt (car r) (cadr r) n order ring))))))) 264 (/ 265 ($poly/ (car r) (cadr r) ring)) 266 (expt 267 ($poly-expt (car r) (cadr r) n order ring))))))) 264 268 265 269 … … 285 289 (copy-tree 286 290 (make-list n :initial-element 287 (list 'quote (list(cons288 289 290 291 1)))))))291 (list (cons 292 (make-list 293 n 294 :initial-element 0) 295 1)))))) 292 296 "Generate a list of monomials ((1 0 ... 0) (0 1 0 ... 0) ... (0 0 ... 1) 293 297 which correspond to linear monomials X1, X2, ... XN." 294 298 (dotimes (i n basis) 295 (setf (elt (caa adr (elt basis i)) i) 1)))299 (setf (elt (caar (elt basis i)) i) 1)))
Note:
See TracChangeset
for help on using the changeset viewer.