Clase 2

#Ejercicios

#1
x = 10 
y = 3
Respuesta = data.frame( a = x+y,
  b = x*y,
  c = x/y,
  d = sin(x),
  e = 8*sin(y),
  f = 5*sin(2*y)); Respuesta

##    a  b        c          d       e         f
## 1 13 30 3.333333 -0.5440211 1.12896 -1.397077

#2
x = 2; y = 5

Respuesta_2 =data.frame ( a = (y*(x^3))/(x-y),
  b = (3*x)/(2*y),
  c = (3)/(2)*(x*y),
  d = (x^5)/(x^5-1)); Respuesta_2

##           a   b  c        d
## 1 -13.33333 0.6 15 1.032258

#3
x = 3; y = 4
Respuesta_3 = data.frame (a = ((1 - (1)/(x^5))^-1),
  b = (3*pi*x^2),
  c = (3*y)/(4*x - 8),
  d = 4*(y-5)/(3*x - 6)); Respuesta_3

##          a      b c         d
## 1 1.004132 84.823 3 -1.333333

#4
  x = 2
a = (6*x^3) + (4/x); a

## [1] 50

  x = 8 
b = (x/4)*3 ;b

## [1] 6

  x = 10
c = ((4*x)^2/(25)) ; c

## [1] 64

  x = 2
d = (2* (sin(x))/(5)) ; d

## [1] 0.363719

  x = 20
e = (7*(x^(1/3)) + 4*(x^0.58)) ; e

## [1] 41.73396

Respuesta_4 = data.frame(a, b, c, d, e); Respuesta_4

##    a b  c        d        e
## 1 50 6 64 0.363719 41.73396

#5
a = 1.12
b = 2.34
c = 0.72
d = 0.81
f = 19.83

  x = 1 + ((a)/(b)) + ((c)/(f^2))
  s = ((b-a)/(d-c))
  r = (1/((1/a)+(1/b)+(1/c)+(1/d)))
  y = a*b*((1/c)*(f^2/2))
Respuesta_5 = data.frame(x,s,r,y) ; Respuesta_5

##          x        s         r        y
## 1 1.480463 13.55556 0.2535713 715.6766

#6

a = ((3)/(4))*(6)*(7^2)+ ((4^5)/(7^3 - (145))) ;a

## [1] 225.6717

b = (48.2*55 -(9^3))/(53+(14^2)) ;b

## [1] 7.718876

c = (27^2)/(4) + (319^(4/5))/(5) + 60*(14^-3) ;c

## [1] 202.412

Respuesta_6= data.frame(a,b,c); Respuesta_6

##          a        b       c
## 1 225.6717 7.718876 202.412

#7

pie_a_cm = 30.48 #un pie equivale a 30.48cm

Radio_pie5 = (4*pi*5^3)/3
Radio_cm = (4*pi*((pie_a_cm*5)^3))/3

V30_pie = Radio_pie5 + Radio_pie5*0.30
V30_cm = Radio_cm + Radio_cm*0.30

Respuesta_7 = data.frame( V30_cm, V30_pie, pie_a_cm = V30_pie*28316.85); Respuesta_7

##     V30_cm  V30_pie pie_a_cm
## 1 19274666 680.6784 19274668

vector_1= c(1,0,2,-3)
vector_2= c(0,5,2,2)
vector_3= c(1,2,3,4)
vector_4= c(-2,0,1,3)

Matriz = rbind(vector_1,vector_2,vector_3,vector_4)
class(Matriz)

## [1] "matrix" "array"