diff options
Diffstat (limited to 'Master/texmf/doc/asymptote/examples/workcone.asy')
-rw-r--r-- | Master/texmf/doc/asymptote/examples/workcone.asy | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/Master/texmf/doc/asymptote/examples/workcone.asy b/Master/texmf/doc/asymptote/examples/workcone.asy new file mode 100644 index 00000000000..5b4f8c94ad5 --- /dev/null +++ b/Master/texmf/doc/asymptote/examples/workcone.asy @@ -0,0 +1,40 @@ +import solids; +size(0,150); +currentprojection=orthographic(0,-30,5); + +real r=4; +real h=10; +real s=8; +real x=r*s/h; + +real sr=5; +real xr=r*sr/h; + +real s1=sr-0.1; +real x1=r*s1/h; + +real s2=sr+0.2; +real x2=r*s2/h; + +path3 p=(0,0,0)--(x,0,s); +revolution a=revolution(p,Z); +draw(surface(a,4),lightblue+opacity(0.5)); + +path3 q=(x,0,s)--(r,0,h); +revolution b=revolution(q,Z); +draw(surface(b),white+opacity(0.5)); + +draw((-r-1,0,0)--(r+1,0,0)); +draw((0,0,0)--(0,0,h+1),dashed); + +path3 w=(x1,0,s1)--(x2,0,s2)--(0,0,s2); +revolution b=revolution(w,Z); +draw(surface(b),blue+opacity(0.5)); +draw(circle((0,0,s2),x2)); +draw(circle((0,0,s1),x1)); + +draw("$x$",(xr,0,0)--(xr,0,sr),red,Arrow3,PenMargin3); +draw("$r$",(0,0,sr)--(xr,0,sr),N,red); +draw((string) r,(0,0,h)--(r,0,h),N,red); +draw((string) h,(r,0,0)--(r,0,h),red,Arrow3,PenMargin3); +draw((string) s,(-x,0,0)--(-x,0,s),W,red,Arrow3,Bar3,PenMargin3); |