Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement