;; The first three lines of this file were inserted by DrScheme. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-beginner-reader.ss" "lang")((modname HtDP-intro) (read-case-sensitive #t) (teachpacks ((lib "convert.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "convert.ss" "teachpack" "htdp")))))
(define (area-of-disk r)
  (* 22/7 (* r r)))
(define (area-of-ring outerR innerR)
  (- (area-of-disk outerR) (area-of-disk innerR)))
(define (Fahrenheit->Celsius F)
  (* 100/180 (- F 32)))
(define (ef-to-cee F)
  (* 100/180 (- F 32)))
(define (dollar->euro dollars)
  (* dollars 0.713470))
(define (triangle l h)
  (sqrt (+ (* l l) (* h h ))))
(define (convert3 lsb midb mostsb)
  (+ (* mostsb 100) (* midb 10) (* lsb 1) ))
(define (tax income)
  (* 0.15 income))
(define (netpay hours)
  (* 12 hours))
(define (sum-coins pence nickels dimes quarters)
  (+ (* 0.1 pence) (* 0.05 nickels) (* 0.10 dimes) (* 0.25 quarters)))
(define (total-profit customers)
  (- (* customers 5.0) (* customers 0.50)))
(define (somef x)
  (sin x x))