Assignment 13

1

q1

2

q2

3

eqn <- function(x) {
        2*x - 9
}
integrate(eqn, 4.5, 8.5)$value

## [1] 16

4

Solving the two equations gives the limits for integration ie x = -1 to 4

lower_limit <- -1
upper_limit <- 4
eqn_1 <- function(x) {
        x*x - 2*x - 2
} 
eqn_2 <- function(x) {
        x + 2
} 
area_under_eqn_1 <- integrate(eqn_1, lower_limit, upper_limit)$value
area_under_eqn_2 <- integrate(eqn_2, lower_limit, upper_limit)$value
area_under_eqn_2 - area_under_eqn_1

## [1] 20.83333

5

q5

6

q6

7

q7