| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 20:15:21 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=ceef6504e381b6d23932c3ae9f6166a96897454d712979638ddffc931f7b7632a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22euvdBYmNTf2DHh_RzF5v3CgdbGYgPjED%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d1076a8a77dfa6-BLR
;;Autores: Sebastian Alejandro Gomez Restrepo - 2060168, Carlos Eduardo Guerrero - Pastebin.com
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
-
📌 Swapzone +37% glitch ⭐ O
JavaScript | 3 sec ago | 0.25 KB
-
📌 ChangeNOW Exploit
JavaScript | 6 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ 5
JavaScript | 11 sec ago | 0.25 KB
-
💵 Make 3000$ in 20 minutes 💵
JavaScript | 20 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 20 sec ago | 0.25 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 7
JavaScript | 29 sec ago | 0.25 KB
-
📌 Swapzone +37% glitch
JavaScript | 29 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ 1
JavaScript | 39 sec ago | 0.25 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
