kfv<-function(a,b) {
c<-a+2*b
   return(c)
    }

kfv(2,3)

tsur<-function(fokszam){

library(stats)
library(graphics)
library(utils)

xtengely<-seq(-3,3,0.01)

for(i in 1:fokszam){
  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()
}  
  
}