Subversion Repositories programming

Rev

Rev 71 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 71 Rev 72
Line -... Line 1...
- 
 
 1 
;Written By: Ira Snyder (parts from Dr. Soroka)
- 
 
 2 
;Due Date:   02-28-2005
- 
 
 3 
;Homework #: HW11
- 
 
 4 
 
1 
; POLY.LSP
 5 
; POLY.LSP
2 
;
 6 
;
3 
; add code for (* i2 i3) &c
 7 
; add code for (* i2 i3) &c
4 
;
 8 
;
5 
; on T 050118 at 1730
 9 
; on T 050118 at 1730
Line 8... Line 12...
8 
; on T 050118 at 0830
 12 
; on T 050118 at 0830
9 
; All new.
 13 
; All new.
10 
; Brought over the ARITH code & began altering it to handle polynomials.
 14 
; Brought over the ARITH code & began altering it to handle polynomials.
11 
;
 15 
;
12 
 
 16 
 
13 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 17 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ASSUMPTIONS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 18 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ASSUMPTIONS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
15 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 19 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
16 
;;;
 - 
 
- 
 
 20 
;;;                                                                          ;;;
17 
;;; Since it was not specified, I decided to make POLY- work in same way
 21 
;;; Since it was not specified, I decided to make POLY- work in same way     ;;;
18 
;;; as the lisp function -. (POLY- P1 P2) would be written in infix as
 22 
;;; as the lisp function -. (POLY- P1 P2) would be written in infix as       ;;;
19 
;;; P1 - P2.
 23 
;;; P1 - P2.                                                                 ;;;
- 
 
 24 
;;;                                                                          ;;;
20 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 25 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
21 
 
 26 
 
22 
;
 27 
;
23 
; Loop -- read:
 28 
; Loop -- read:
24 
; a polynomial
29 
; a polynomial
25 
; or a reference
 30 
; or a reference
Line 479... Line 484...
479 
                                    (setf ,S1 (concatenate 'string ,S1 (SPACES DIFF)))))
 484 
                                    (setf ,S1 (concatenate 'string ,S1 (SPACES DIFF)))))
480 
     (t                             nil)
 485 
     (t                             nil)
481 
   )
 486 
   )
482 
)
 487 
)
483 
 
 488 
 
484 
 
 -