Usuario:Pilonieta:Heuristica:DrScheme:Ejercicio 3.1.4
; Después de estudiar el costo del show, el propietario descubre algunas
; formas de bajar el costo. Como resultado de sus reformas, el propietario ya no paga un
; costo fijo. Ahora simplemente paga $1.50 por asistente. Modifica ambos programas y
; prueba de nuevo con los precios del tiquete de $3.00, $4.00 y $5.00, y compara los
; resultados.
; Con "How to design a program":
; ganancia : número -> número ; determina la ganancia como la diferencia entre ingresos y costos con el precio del
; tiquete
; (define (ganancia precio-tiquete) ...)
; ingresos: número -> número
; calcula los ingresos a partir del precio del tiquete
; (define (ingresos precio-tiquete) ...)
; costo : número -> número
; obtiene el costo mediante el precio del tiquete
; (define (costo precio-tiquete) ...)
; asistentes : número -> número
; determina el número de asistentes y recibe el precio del tiquete
; (define (asistentes precio-tiquete) ...)
(define (ganancia precio-tiquete)
(- (ingresos precio-tiquete)
(costo precio-tiquete)))
(define (ingresos precio-tiquete)
(* (asistentes precio-tiquete) precio-tiquete))
(define (costo precio-tiquete)
(* 1.50 (asistentes precio-tiquete)))
(define (asistentes precio-tiquete) (+ 120(* (/ 15 .10) (- 5.00 precio-tiquete))))
(ganancia 3.00)
(ganancia 4.00)
(ganancia 5.00)
;Con "How not to design a program":
; GANANCIA : número -> número
; determina la ganancia y recibe el precio del tiquete
; (define (GANANCIA precio) ...)
(define (GANANCIA precio)
(- (* (+ 120(* (/ 15 .10)(- 5.00 precio)))precio)(* 1.50(+ 120(* (/ 15 .10)(- 5.00
precio))))))
(GANANCIA 3.00)
(GANANCIA 4.00)
(GANANCIA 5.00)
; Para maximizar la ganancia del teatro el mejor precio del tiquete es $4.00 y la ganancia
;es $675