# 34-trascendente

Postscript("34-trascendente.ps",1.6,1.6)
lato=c(-4,4); par(bg="#ccff99")
Grafica(lato,lato,cornice=T)
t=seq(-4,4,by=0.01)
f = function (x,y)
{sin(y^2)-cos(x^2)+exp(-x^2)}
valori=outer(t,t,f)
Livelli(t,t,valori=valori,scritte=0.5,
  livelli=c(-2,-1,1,2))
Livelli(t,t,valori=valori,spessore=2,
  colore="red",scritte=0)
dev.off()