From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- graphics/asymptote/examples/polarcircle.asy | 30 +++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 graphics/asymptote/examples/polarcircle.asy (limited to 'graphics/asymptote/examples/polarcircle.asy') diff --git a/graphics/asymptote/examples/polarcircle.asy b/graphics/asymptote/examples/polarcircle.asy new file mode 100644 index 0000000000..ce7ed94819 --- /dev/null +++ b/graphics/asymptote/examples/polarcircle.asy @@ -0,0 +1,30 @@ +import math; +import graph; +size(0,100); + +real f(real t) {return 2*cos(t);} +pair F(real x) {return (x,f(x));} + +draw(polargraph(f,0,pi,operator ..)); + +defaultpen(fontsize(10pt)); + +xaxis("$x$"); +yaxis("$y$"); + +real theta=radians(50); +real r=f(theta); +draw("$\theta$",arc((0,0),0.5,0,degrees(theta)),red,Arrow,PenMargins); + +pair z=polar(r,theta); +draw(z--(z.x,0),dotted+red); +draw((0,0)--(z.x,0),dotted+red); +label("$r\cos\theta$",(0.5*z.x,0),0.5*S,red); +label("$r\sin\theta$",(z.x,0.5*z.y),0.5*E,red); +dot("$(x,y)$",z,N); +draw("r",(0,0)--z,0.5*unit(z)*I,blue,Arrow,DotMargin); + +dot("$(a,0)$",(1,0),NE); +dot("$(2a,0)$",(2,0),NE); + + -- cgit v1.2.3