Advertisement
CrlitosGPro

Untitled

Jul 22nd, 2020
684
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 1.52 KB | None | 0 0
  1. ;;Autores: Sebastian Alejandro Gomez Restrepo - 2060168, Carlos Eduardo Guerrero Jaramillo - 2060216, William David Correa Valencia - 2060016
  2. ;;Fecha: 19-07-2020
  3. ;;Contrato: calcular número de contagiados: numero, numero, numero, numero, -> numero
  4. ;;proposito: funcion: calcular el numero de contagiados (N1(+ a b c d))
  5. ;;Ejemplos:
  6.  
  7.  
  8.  
  9. (define (contagiados-covid numero-inicial dia0 dia-medidas dia-averiguar medidas-gobierno)
  10.   (tercera-fase medidas-gobierno dia-medidas numero-inicial dia0 dia-averiguar)
  11.   )
  12.  
  13.  
  14.  
  15. ;; Funciones auxiliares
  16. (define (primera-fase numero-inicial dia0)
  17.          (* numero-inicial (expt e (* 0.15 dia0))))
  18. (define (segunda-fase dia-medidas numero-inicial dia0)
  19.          (* (/ dia-medidas 4) (primera-fase numero-inicial dia0) (expt e (* 0.13 dia-medidas))))
  20. (define (tercera-fase medidas-gobierno dia-medidas numero-inicial dia0 dia-averiguar)
  21.          (cond
  22.            [(eq? medidas-gobierno 1)
  23.             (* (segunda-fase dia-medidas numero-inicial dia0)(expt e (* 0.08 (/ dia-averiguar 2))))]
  24.            [(eq? medidas-gobierno 2)
  25.             (* (segunda-fase dia-medidas numero-inicial dia0)(- (* 8 dia-averiguar)(log dia-averiguar)))]
  26.            [(eq? medidas-gobierno 3)
  27.             (* (segunda-fase dia-medidas numero-inicial dia0)(/ (* 4 dia-averiguar) 17))]
  28.            [(>= medidas-gobierno 4)
  29.             "Datos erroneos, por favor revisar sintaxis"]))
  30.  
  31. ;;Pruebas
  32.  
  33. (primera-fase 100 10)
  34. (segunda-fase 20 100 10)
  35. (tercera-fase 2 20 100 10 100)
  36. (contagiados-covid 100 10 20 100 2)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement