;; ---1--- Funcion para convertir millas a yardas
(define (millas-yardas mll)
  (round (/ (* (* 1000 1.0936133) mll) 0.621371192)))

;; ---2--- Funcion para conocer distancia segun vueltas
(define (distancia-vueltas diametro vueltas)
  (inexact->exact (* (* diametro pi) vueltas)))

;; ---3--- Funcion para convertir centigrados->farenheit
(define (centigrados-farenheit centigrados)
  (+ (* 9/5 centigrados) 32))
;; Funcion para convertir farenheit->centigrados
(define (farenheit-centigrados farenheit)
  (/ (- farenheit 32) 9/5))

;; ---4--- Funcion para conocer cuantos l litros pasan por a traves de un ducto en h litros
(define (litros-dias litros dias)
  (* (* (* (* 60 60) 24) dias) litros))

;; ---5--- Funcion para conocer en cuantos horas se llena un tanque de l litros
(define (litrostanque capacidad lts-seg)
  (/ capacidad (* (* 60 60) lts-seg)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; ---6--- Funcion para conocer el area de un cilindro hueco
(define (cilindro-hueco diametroMayor grosor altura)
  (- (* (* (expt (/ diametroMayor 2) 2) pi) altura)
     (* (* (expt (/ (- diametroMayor grosor) 2) 2) pi)
        altura)))
;; Funcion para conocer el area de un cilindro hueco con llamado a funciones auxiliares
; radio circulo mayor
(define (radioMayor diametro)
  (/ diametro 2))
; area circulo mayor
(define (areaMayor diametro)
  (* (expt (radioMayor diametro) 2) pi))
; volumen cilindro mayor
(define (volumenMayor diametro altura)
  (* (areaMayor diametro) altura))
; radio circulo menor
(define (radioMenor diametro grosor)
  (/ (- diametro grosor) 2))
; area circulo menor
(define (areaMenor diametro grosor)
  (* (expt (radioMenor diametro grosor) 2) pi))
; volumen cilindro menor
(define (volumenMenor diametro altura grosor)
  (* (areaMenor diametro grosor) altura))
;; Volumen de un cilindro hueco
(define (vol-cilindro-hueco diametro altura grosor)
  (- (volumenMayor diametro altura)
     (volumenMenor diametro altura grosor)))
;pruebas
;(cilindro-hueco 25 10 5)
;(vol-cilindro-hueco 25 10 5)

;; ---7--- Funcion para calcular el area de un cono de radio R y altura H
(define (volumen-cono radio altura)
  (* 1/3 (* (expt radio 2) pi) altura))
;; Funcion para calcular el area de un cono truncado de radio R y altura H
(define (vol-cono-truncado radio altura1 altura2)
  (- (* 1/3 (* (expt radio 2) pi) altura1)
     (* 1/3 (* (expt (/ (* radio altura2) altura1) 2) pi) altura2)))
;; Funcion para calcular el area de un cono truncado haciendo uso de funciones auxiliares
(define (volumen-conote radio altura1)
  (* 1/3 (* (expt radio 2) pi) altura1))
(define (volumen-conito radio altura1 altura2)
  (* 1/3 (* (expt (/ (* radio altura2) altura1) 2) pi) altura2))
(define (volumen-conote-conito radio altura1 altura2)
  (- (volumen-conote radio altura1)
      (volumen-conito radio altura1 altura2)))
;Pruebas
;(vol-cono-truncado 15 20 5)
;(volumen-conote-conito 15 20 5)