Компьютерный практикум — Задание

# Определяем функцию k, которая принимает числовой аргумент x и возвращает значение, вычисляемое по формуле -x^3 + 7*x^2 + 24*x - 168.

k <- function(x){-x^3+7*x^2+24*x-168}

# Инициализируем переменную dx значением 0.1 и используем функцию seq для создания последовательности значений от -6 до 8 с шагом dx

dx <- 0.1

x <- seq(-6,8,by=dx)

# Используем функцию plot для построения графика функции k(x), где тип линии - сплошная линия #(type='l'), толщина линии - 2 пикселя (lwd=2) и цвет - красный (col='red'). Также добавляем #горизонтальную и вертикальную серые линии через центр графика, используя функцию abline.

plot(x,k(x),type='l',lwd=2,col='red')

abline(h=0, v=0, col='gray')

# Инициализируем переменную dx значением 0.000001 и используем функцию seq для создания #последовательности значений от -5.5 до -4 с шагом dx

dx <- 0.000001

x <- seq(-5.5,-4, by=dx)

# Находим индекс элемента с минимальной абсолютной разностью между значением функции k и 0

i <- which.min(abs(k(x)))

# Выводим значение x, соответствующее найденному индексу i, и значение функции k в этой точке

x[i]

k(x[i])

# Инициализируем переменную dx значением 0.000001 и используем функцию seq для создания #последовательности значений от 4.5 до 5.5 с шагом dx

dx <- 0.000001

x <- seq(4.5,5.5, by=dx)

# Находим индекс элемента с минимальной абсолютной разностью между значением функции k и #0

i <- which.min(abs(k(x)))

# Выводим значение x, соответствующее найденному индексу i, и значение функции k в этой точке

x[i]

k(x[i])

# Находим индекс элемента с минимальной абсолютной разностью между значением функции k и #0

i <- which.min(abs(k(x)))

# Выводим значение x, соответствующее найденному индексу i, и значение функции k в этой точке

x[i]

k(x[i])

# Инициализируем переменную dx значением 0.000001 и используем функцию seq для создания # последовательности значений от 5 до 7 с шагом dx

dx <- 0.000001

x <- seq(5, 7, by=dx)

# Находим индекс элемента с максимальным значением функции k

i <- which.max(k(x))

# Выводим значение x, соответствующее найденному индексу i, и значение функции k в этой точке

x[i]

k(x[i])