slika = ParametricPlot[{Cos[3 t], Sin[4 t]}, {t, 0, 2Pi}]

Export["~/Desktop/krivulja.pdf",slika]

Export["~/Desktop/krivulja.png",slika]

Export["~/Desktop/krivulja.jpg",slika]

Export["~/Desktop/krivulja.svg",slika]

Plot[Sin[x]* Log[x+1]/2,{x,0,2π}]

spirala=ParametricPlot[{t*Cos[t],t* Sin[t]},{t,0,10Pi},AxesLabel->{x,y}]

Export["~/Video/PED-POP-2017/PED-POP-2017-10-23/spirala.pdf",spirala]