Homework 4

Question 1

x = 1.1
a = 2.2
b = 3.3

z <- x**(a**b)
print(z)

## [1] 3.61714

z <- (x**a)**b
print(z)

## [1] 1.997611

z <- 3*x**3 + 2*x**2 + 1
print(z)

## [1] 7.413

Question 2

a <- c(seq(1:8),rev(seq(1:7)))
print(a)

##  [1] 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1

b <- c(1, rep(2, 2), rep(3,3), rep(4,4), rep(5,5))
print(b)

##  [1] 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5

c <- c(5, rep(4, 2), rep(3,3), rep(2,4), rep(1,5))
print(c)

##  [1] 5 4 4 3 3 3 2 2 2 2 1 1 1 1 1

Question 3

a <- runif(2)
x <- a[1]
y <- a[2]

r <-sqrt(x**2+y**2)
theta <- atan(y/x)

b <- c(r,theta)

print(b)

## [1] 0.9209608 0.8194027

Question 4

queue <- c("sheep", "fox", "owl", "ant")
print(queue)

## [1] "sheep" "fox"   "owl"   "ant"

queue <- append(queue, "serpent")
print(queue)

## [1] "sheep"   "fox"     "owl"     "ant"     "serpent"

queue <- queue[! queue %in% c("sheep")]
print(queue)

## [1] "fox"     "owl"     "ant"     "serpent"

queue <- append(queue, "donkey", after=0)
print(queue)

## [1] "donkey"  "fox"     "owl"     "ant"     "serpent"

queue <- queue[! queue %in% c("serpent")]
print(queue)

## [1] "donkey" "fox"    "owl"    "ant"

queue <- queue[! queue %in% c("owl")]
print(queue)

## [1] "donkey" "fox"    "ant"

queue <- append(queue, "aphid", after=(match("ant",queue)-1))
print(queue)

## [1] "donkey" "fox"    "aphid"  "ant"

answer <- match("aphid",queue)

Question 5

vector <- (seq(from = 1, to = 100, by = 2))

vector <- (vector[!vector%%7==0])

vector <- (vector[!vector%%3==0])

print(vector)

##  [1]  1  5 11 13 17 19 23 25 29 31 37 41 43 47 53 55 59 61 65 67 71 73 79 83 85
## [26] 89 95 97