tsur<-function(darabszam) {

library(stats)
library(graphics)
library(utils)  
  
xtengely<-seq(-3,3,0.01)
  
for(i in 1:darabszam){

ytengely<-xtengely  
ytengelynorm<-xtengely
  
for(j in 1:length(xtengely)){

ytengely[j]<-dt(xtengely[j],i)  
ytengelynorm[j]<-dnorm(xtengely[j],0,1) 
  
}

seged<-paste("tsuruseg",toString(i),".jpg",sep="")

jpeg(seged)

plot(xtengely,ytengely,ylim=c(0,0.4))
lines(xtengely,ytengelynorm,col="GREEN")

dev.off()

  
}
  
  
}