Funções trigonométricas

Universidade Federal da Paraíba

Programa de Pós-Graduação em Economia do Setor Público

# Criar sequências de 100 números ordenados entre -6 e 6
options(OutDec=",")
x <- seq(-6,6,length=100)

# Definir função seno: f(x) = sen(x)
y1 <- function(x1) {sin(x1)}

# Definir função co-seno: f(x) = cos(x)
y2 <- function(x1) {cos(x1)}

# Desenhar gráficos
par(mfrow=c(2,1))
plot(x,y1(x),type="l",bty="l",cex.lab=0.8,cex.axis=0.8,col="blue",lwd=2,las=1,
     main=expression(f(x) == sen(x)),ylab=expression(f(x)))
grid(col=grey(0.80)) 

plot(x,y2(x),type="l",bty="l",cex.lab=0.8,cex.axis=0.8,col="blue",lwd=2,las=1,
     main=expression(f(x) == cos(x)),ylab=expression(f(x)))
grid(col=grey(0.80))