Keglesnit.
Skæringen mellem en plan og en kegle er et keglesnit. Lad keglens åbningsvinkel være $\alpha$ (her 35°) og planens hældning med keglens akse være $\beta$. Hvis $\beta=\alpha$, bliver det en parabel. En $\beta$ større, bliver det en ellipse. Og er den mindre, bliver det en hyperbel.
Du kan variere planens hældningsvinkel, $\beta$.
Du kan dreje figuren ved at trække med musen. Hvis du holder musen nede, skifter markøren, og du kan trække figuren. Du kan zoome med musehjulet (eller ved at pinche).
Figure3D figure = Position [0,0] Size [x,y] Origin [x*0.4,y/2] Unit x/4 Angles [20,-90,110] Color "white" Dynamic;
/*
Line xaxis = Start [-3,0,0] Dir [6,0,0] Vector Size 1 Color "gray";
Line yaxis = Start [0,-3,0] Dir [0,6,0] Vector Size 1 Color "gray";
Line zaxis = Start [0,0,-2] Dir [0,0,4] Vector Size 1 Color "gray";
Label xlabel = "x" At [3,0,0] Offset [10,0] Color "black";
Label ylabel = "y" At [0,3,0] Offset [10,0] Color "black";
Label zlabel = "z" At [0,0,2] Offset [10,0] Color "black";
*/
SlidePot beta = From 1 To 90 Initial 35 Position [x-220,y/2] Size [200,0];
Text beta_txt = "β = beta,0°" Offset [x-220,y/2+30] Color "blue";
Variable alpha = 35;
Variable tana = tan(alpha/180*pi);
Variable tanb = tan(beta/180*pi);
Net kegle = Parameter [tana*t*cos(s),tana*t*sin(s),t] [0,2*pi,pi/24] [-1,1,1] 0 1 Constant;
Net kegleoutline = Outline kegle;
Net plan = Parameter [s*tanb,t,s+0.3] [-1.3,0.7,2] [-1,1,2] 1 1;
Net section = Cut kegle plan;
Scene scene = kegle Color "black" "#c0c0c0",
kegleoutline Color "black" "#c0c0c0",
plan Color "black" "#d0d0d0",
section Color "red" "#ffa0a0";