{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

a01sol - ’ constants.rkt(a Future value(define FV PV(expt...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ’; ********* constants.rkt ******************************************************* ;: ;; (a) Future value (define FV (* PV (expt (+ 1 rate) n))) ;: (b) Inradius of a diamond ;: (* a a) instead of (sqr a) also acceptable, of course (define radius (/ (* a b) (sqrt (+ (sq: a) (sq: b))))) ;: (c) Harmonic mean (define HM (/ 2 (+ (/ 1 v1) (/ 1 v2)))) ’; ********* functions.rkt ******************************************************* ;: (a) Haldane equation (define (C x) (* 1/2 (- 1(eXP(* -2 X))))) ;: (c) ballistic motion ine . ;; acce eration ue to v1 (def' g 9 8) l ' d g ' (define (height v t) (- (*vt) (* 1/29 (sqr tun 7 / ;: (b) area of a triangle (define (area a b t) (* 1/2 a b (sin t))) \ t\ This document is for the exclusive use of j65lu. ’; ********* grades.rkt ********************************************************* (define particip—weight 5/100) (define assn—weight 20/100) (define mtldweight 10/100) (define mt2—weight 20/100) (define fe—weight 45/100) (define particip—grade 100) ; full participation marks (define (final—cslBS—grade assn—grade mtl—grade mt2—grade fe—grade) (+ (* particip—weight particip—grade) (* assn—weight assn—grade) (* mtl—weight mtl—grade) (* mt2—weight mt2—grade) (* fe—weight fe—grade))) (define target—grade 60) (define (final—c5135—exam—grade—needed assn—g de\;t1:gf de mt2—grade) (/ (— target—grade > _ a (+ (* particip—weight particip— de (* assn—weight assn—grade) (* mtl—weight mtl—grade):? ,f/ (* mt2—weight mt2—grad41)) " fe—weight) ) > L ’; ********* SP9€d.rkt ********** ****_ ***************************************** ;; We definitely want to see defined onstants here (define metres/mile 1609.344) (define seconds/hour 3600) (define (m/s—>mph m/s) (* (/ m/s metres/mile) seconds/hour)) (define metres/furlong 201.168) (define hours/fortnight (* 24 14)) (define miles/furlong (/ metres/furlong metres/mile)) (define (fpf—>mph fpf) (/ (* fpf miles/furlong) hours/fortnight)) This document is for the exclusive use of j65|u. ...
View Full Document

{[ snackBarMessage ]}