# 29-plotmath

Postscript("29-plotmath.ps",2,2)
latox=c(0,4); latoy=c(-1,3)
par(cex=0.6,bg="#f0e68c")
Grafica(latox,latoy,cornice=T)
x=seq(0,4,by=0.01)
par(col="sienna")
abline(h=0,v=0)
par(lwd=1,col=1)
lines(x,2*sin(3*x)*sqrt(1+cos(x))/(1+x*x))
text(2.5+1.3i,expression(y ==
  frac(2*sin(x)~~sqrt(1+cos(x)),1+x^2)))
dev.off()