Taller - Practica en DrRacket

;; Autor: Julio Cesar Marin Garreta 201461321-2711

;; Descripcion del problema:
;; Convierta a notación prefija las siguientes expresiones (haga uso del resultado R, para corroborar que la conversión a notación prefija es correcta):
;1
(/ (* (+ 8 6) 3) 2) ;21
;2
(/ (* 3.14 (expt 10 2) 6) 3) ;628
;3
(* 4/3 3.14 (expt 6 3)) ;904.32
;4
(sqrt (+ (expt 4 2)(expt 3 2))) ;5
;5
(round (sqrt (/ (* 2 500) (* 10 (sin (/ (* 3.14 90) 180)))))) ;10

;; Descripcion del problema:
;; Implemente las funciones para la siguientes formulas (Cada una de las letras es una variable).
;6
(define (letra-w m g d i)
  (sqrt (/ (* m g d) i)))
;7
(define (letra-T i m g d)
  (* (* 2 pi)(sqrt (/ i (* m g d)))))
;8
(define (letra-g G M R h)
  (/ (* G M)(expt (+ R h) 2)))
;9
(define (letra-t L m g M)
  (* (* 2 (sqrt (/ L (* m g))))(- (sqrt (+ M m))(sqrt M))))
;10: La velocidad final de un cuerpo en movimiento esta dada por la siguiente ecuacion:
(define (velocidadfinal v1 a t)
  (+ v1 (* a t)))
;11: La distancia recorrida por un cuerpo en movimiento esta dada por la siguiente ecuación:
(define (distancia-cuerpo x1 v1 t a)
  (+ x1 (* v1 t) (* (* 1/2 a) (expt t 2))))
;12: La energia cinetica (K) esta dada por la siguiente ecuacion:
(define (energia-cinetica m c v)
  (* (* m (expt c 2))(- (/ 1 (sqrt (- 1 (expt (/ v c) 2)))) 1)))
;13: El momento de torsion de un cilindro hueco esta dado por la ecuacion:
(define (momento-torsion R m g y t M)
  (* R (* m (- (- g (/ (* 2 y)(expt t 2)))
               (* (* 5/4 M) (/ y (expt t 2)))))))
;14: Volumen de una esfera de un radio r esta dada por la siguente ecuacion:
(define (volumen-esfera r)
  (* 4/3 pi (expt r 3)))
;15: La altura máxima alcanzada por un proyectil, lanzado a una velocidad inicial v y un ángulo θ (en grados) respecto a la horizontal esta dada por la siguiente formula:
;definir la funcion de gravedad:
(define (gravedad velocidad-2)
  (/ 9.80 (expt velocidad-2 2)))
;definir la funcion principal: ALTURA MAXIMA.
(define (altura-maxima velocidad-1 angulo velocidad-2)
  (/ (* (expt velocidad-1 2)
        (sin (/ (* pi angulo) 180)))(* 2 (gravedad velocidad-2))))