diff options
author | Karl Berry <karl@freefriends.org> | 2009-06-09 00:38:32 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-06-09 00:38:32 +0000 |
commit | 5a5ed51adcf876db905825989f564b51d622c0dd (patch) | |
tree | e735ac11e0f5fa09d2ef7c8992654fb5ff98b39e /Master/texmf/doc/asymptote/examples/impact.asy | |
parent | fa0e85e77e9560d371aa26d0ddc1500c4c050e16 (diff) |
asy doc, tlpsrc patterns
git-svn-id: svn://tug.org/texlive/trunk@13675 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/doc/asymptote/examples/impact.asy')
-rw-r--r-- | Master/texmf/doc/asymptote/examples/impact.asy | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/Master/texmf/doc/asymptote/examples/impact.asy b/Master/texmf/doc/asymptote/examples/impact.asy new file mode 100644 index 00000000000..b58d381f26a --- /dev/null +++ b/Master/texmf/doc/asymptote/examples/impact.asy @@ -0,0 +1,28 @@ +// Contributed by Philippe Ivaldi. + +import graph3 ; +import contour; +size (6cm,0); +currentprojection=orthographic(1,1,1) ; + +real rc=1, hc=2, c=rc/hc; +draw(shift(hc*Z)*scale(rc,rc,-hc)*unitcone,blue); + +triple Os=(0.5,0.5,1); +real r=0.5; +draw(shift(Os)*scale3(r)*unitsphere,red); + +real a=1+1/c^2; +real b=abs(Os)^2-r^2; + +real f(pair z) +{ + real x=z.x, y=z.y; + return a*x^2-2*Os.x*x+a*y^2-2*Os.y*y-2*Os.z*sqrt(x^2+y^2)/c+b; +} + +real g(pair z){return (sqrt(z.x^2+z.y^2))/c;} + +draw(lift(g,contour(f,(-rc,-rc),(rc,rc),new real[]{0})),linewidth(2bp)+yellow); + +axes3("$x$","$y$","$z$",Arrow3); |