Sem título

Página 1

#Carregar os pacotes library ( )

#-> Caso não install.packages (" ")

#install.packages ("tidyverse")

install.packages (" magicCalc ")

library(tidyverse)

library(magicCalc)

#1.Como criar uma função

#nome da função <- function(x) calculo

mi <- function(x) 5*x^3

#2.Indicar o minimo, maxiomo, n e o dx

# o n = é o nossos "candles" kk

minimo = 0

maximo = 5

n = 2

#3.Indicar o dx(derivada)-> dx <- (maximo - minimo)/n

#Rodar depois só o dx, para exibir o valor da derivada

dx<-(maximo - minimo)/n

#4.Criar uma seq -> seq <- (minimo, maximo,dx)

mi <- seq(minimo,maximo,dx)

#Criar o gráfico

#1 data_frame ( x= x = x, mi = mi ( x = x )) %>% +

#2. Definir o x e o y -> ggplot ( aes( x = x, y = mi )) +

#3. geom_bar ( stat 'identity')

#4. geom_line ()

data_frame ( x = x, mi = mi ( x = x )) %>% +

ggplot ( aes ( x= x, y = mi))+

geom_bar ( stat = 'identity')+

geom_line ()

#Para calcular o total

# 1.Utilizando aporximação <- integrate ( nome da função, lower = minimo, upper = maximo ) )

integrate( mi, lower = minimo, upper = maximo )

#2.new_f_X

new_f_x<- antiD( 5* x^3 ~x )

new_f_X

new_f_x(5) - new_f_X(0)

#Integral na raça

#1. Criar as colunas <- data_frame

#2.mutate ( nome da função_dx = mi * dx ) %>%

#3.summarise ( sum(nome da função_dx))

data_frame( x =x, mi = mi (x = x)) %>%

mutate ( mi_dx = mi * dx) %>%

summarise( sum ( mi_dx))