fi<-seq(from=0,to=2*pi,length=1000); plot(sin(fi),cos(fi),type="l",lwd=2,ylab="y",xlab="x",main="Koło"); lines(x=c(0,0),y=c(0,0),type="p");