figlinescalarfield4_3D.asy · 2347 B · ext
.asy · seen 32× in SWHvia default-rulerule h/linguist/.asy/1
swh:1:cnt:6e9e5de8c6ca1b1b217b505f0b8023a523101f39;origin=https://github.com/APEXCalculus/APEXCalculus_Source;anchor=swh:1:rev:fddeb9898bd913cec139bb5bfb54b5ddc05ca901;path=/figures/figlinescalarfield4_3D.asy
Show source
import graph3;
// ASY file for figlinescalarfield2_3D.asy in Chapter 10
// The path is an elliptical helix <cos t, 2sin t, t/pi>; no specific surface.
//
// This draws the surface of the area we seek.
size(200,200,IgnoreAspect);
//currentprojection=perspective(7,2,1);
currentprojection=orthographic(10,11,4.5);
//(7.63,8.65,5);
//currentprojection=orthographic(2.5,4.6,1.9);
defaultrender.merge=true;
//usepackage("mathspec");
//texpreamble("\setallmainfonts[Mapping=tex-text]{Calibri}");
//texpreamble("\setmainfont[Mapping=tex-text]{Calibri}");
//texpreamble("\setsansfont[Mapping=tex-text]{Calibri}");
//texpreamble("\setmathsfont(Greek){[cmmi10]}");
// setup and draw the axes
real[] myxchoice={-2,2};
real[] myychoice={-2,2};
real[] myzchoice={2};
defaultpen(0.5mm);
pair xbounds=(-2.2,2.2);
pair ybounds=(-2.2,2.2);
pair zbounds=(-.1,2.5);
xaxis3("",xbounds.x,xbounds.y,black,OutTicks(myxchoice),Arrow3(size=3mm));
yaxis3("",ybounds.x,ybounds.y,black,OutTicks(myychoice),Arrow3(size=3mm));
zaxis3("",zbounds.x,zbounds.y,black,OutTicks(myzchoice),Arrow3(size=3mm));
label("$x$",(xbounds.y+0.05*(xbounds.y-xbounds.x),0,0));
label("$y$",(0,ybounds.y+0.05*(ybounds.y-ybounds.x),0));
label("$z$",(0,0,zbounds.y+0.05*(zbounds.y-zbounds.x)));
//Draw the surface z=x^2-y^2+3
triple f(pair t) {
return (cos(t.x),2sin(t.x),t.y*(t.x/pi));
}
surface s=surface(f,(0,0),(2pi,1),16,8,Spline);
pen p=rgb(0,0,.7);
draw(s,emissive(rgb(.6,.6,1)+opacity(.7)),meshpen=p);
triple g(real t) {return (cos(t),2sin(t),t/pi);}
path3 mypath=graph(g,0,2pi,operator ..);
draw(mypath,blue+linewidth(2));
triple g(real t) {return (cos(t),2sin(t),0);}
path3 mypath=graph(g,0,2pi,operator ..);
draw(mypath,blue+linewidth(2)+dashed);
// ////////////////////////////////////
// SAMPLE CODE
// defaultpen(fontsize(10pt));
//real f(pair z) {return -z.x^4+2*z.x^2-z.y^4+2*z.y^2;}
//surface s=surface(f,(-1.5,-1.5),(1.5,1.5),Spline);
//triple f(pair t) {
// return (cos(t.x)*1.5*cos(t.y),sin(t.x)*cos(t.y),sin(t.y));
//}
//surface s=surface(f,(0,0),(pi,2*pi),8,8,Spline);
//triple g(real t) {return (t,t,-2*t^4+4*t^2);}
//path3 mypath=graph(g,-1,1,operator ..);
//pen p=rgb(0,0,1);
//draw(s,paleblue+opacity(.5),meshpen=p,render(merge=true));
//draw(s,paleblue);
//draw(s,lightblue,meshpen=black+thick(),nolight,render(merge=true));
//draw(mypath,2bp+blue);