;;Autores: Sebastian Alejandro Gomez Restrepo - 2060168, Carlos Eduardo Guerrero Jaramillo - 2060216, William David Correa Valencia - 2060016
;;Fecha: 19-07-2020
;;Contrato: calcular número de contagiados: numero, numero, numero, numero, -> numero
;;proposito: funcion: calcular el numero de contagiados (N1(+ a b c d))
;;Ejemplos:



(define (contagiados-covid numero-inicial dia0 dia-medidas dia-averiguar medidas-gobierno)
  (tercera-fase medidas-gobierno dia-medidas numero-inicial dia0 dia-averiguar)
  )



;; Funciones auxiliares
(define (primera-fase numero-inicial dia0)
         (* numero-inicial (expt e (* 0.15 dia0))))
(define (segunda-fase dia-medidas numero-inicial dia0)
         (* (/ dia-medidas 4) (primera-fase numero-inicial dia0) (expt e (* 0.13 dia-medidas))))
(define (tercera-fase medidas-gobierno dia-medidas numero-inicial dia0 dia-averiguar)
         (cond
           [(eq? medidas-gobierno 1)
            (* (segunda-fase dia-medidas numero-inicial dia0)(expt e (* 0.08 (/ dia-averiguar 2))))]
           [(eq? medidas-gobierno 2)
            (* (segunda-fase dia-medidas numero-inicial dia0)(- (* 8 dia-averiguar)(log dia-averiguar)))]
           [(eq? medidas-gobierno 3)
            (* (segunda-fase dia-medidas numero-inicial dia0)(/ (* 4 dia-averiguar) 17))]
           [(>= medidas-gobierno 4)
            "Datos erroneos, por favor revisar sintaxis"]))

;;Pruebas

(primera-fase 100 10)
(segunda-fase 20 100 10)
(tercera-fase 2 20 100 10 100)
(contagiados-covid 100 10 20 100 2)