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