Fișier:Cubic surface.gif
Sari la navigare
Sari la căutare
Rezoluții mai mari nu sunt disponibile.
Cubic_surface.gif (400 × 400 pixeli, mărime fișier: 3,36 MB, tip MIME: image/gif, în buclă, 50 imagini, 17 s)
Descriere fișier
| Descriere |
English: Cubic surface. Section with plane x=0 (as well as y=0) - parabola, eccentricity e=1, sections with planes z=k, k=0..0.5 - ellipses with e from 0 to 1, k=0.5..1 - hyperbolas with e from 1 to infinity. Painted in Maple. Author of this animation calls this surface Marsik's Surface. Русский: Поверхность 3-го порядка. В сечении плоскостью x=0 (а также y=0) — парабола, эксцентриситет e=1, в сечении плоскостями z=k, k=0..0.5 — эллипсы с e от 0 до 1, при k=0.5..1 — гиперболы с e от 1 до бесконечности. Нарисована в Maple. Чтобы увидеть все эти сечения в реальности, можно попробовать отпечатать эту поверхность на 3d-принтере, поместить в ёмкость и наполнять её водой. Автор этой анимации называет эту поверхность поверхностью Марсика. |
| Dată | |
| Sursă | Operă proprie |
| Autor | Anpe0681 |
Source code:
restart; with(plots):
A := implicitplot3d(x^2*(1-2*z)+y^2*(1-z)-(1-2*z)*(1-z) = 0, x = -1 .. 1, y = -1 .. 1, z = 0 .. 1, axes = boxed, numpoints = 9000, view = [-1 .. 1, -1 .. 1, 0 .. 1]):
F := proc(t)
global pl,eks;
pl := implicitplot3d(z = t, x = -1 .. 1, y = -1 .. 1, z = 0 .. 1, color = blue);
eks := evalf(sqrt(t/(1-t)));
if t<0.5 then
pr1 := spacecurve([sqrt(1-t)*cos(s), sqrt(1-2*t)*sin(s), t+0.005], s = 0 .. 2*Pi, color = red, thickness = 5);
display(pr1, pl, caption = typeset(cat("z= ", sprintf("%2.3f", t)), cat(", e= ", sprintf("%2.3f", eks))),captionfont=[HELVETICA, NORMAL, 20]);
else
pr1 := spacecurve([sqrt(1-t)*cosh(s)+0.01, sqrt(2*t-1)*sinh(s), t], s = -2 .. 2, color = red, thickness = 5);
pr2 := spacecurve([-sqrt(1-t)*cosh(s)+0.05, sqrt(2*t-1)*sinh(s), t], s = -2 .. 2, color = red, thickness = 5);
display(pr1, pr2, pl, caption = typeset(cat("z= ", sprintf("%2.3f", t)), cat(", e= ", sprintf("%2.3f", eks))), captionfont=[HELVETICA, NORMAL, 20]);
end if;
end proc:
animate(F, [theta], theta = 0..0.999, background = A, axes = boxed, frames = 50, title = typeset(x^2*(1-2*z)+y^2*(1-z)-(1-2*z)*(1-z) = 0), titlefont = [HELVETICA, BOLD, 12]);
Licențiere
Eu, deținătorul drepturilor de autor ale acestei opere, prin prezenta îmi public lucrarea sub următoarea licență:
Acest fișier a fost eliberat sub licența Creative Commons Atribuire și distribuire în condiții identice 3.0 Neadaptată.
- Sunteți liber:
- să partajați cu alții – aveți dreptul de a copia, distribui și transmite opera
- să adaptați – aveți dreptul de a adapta opera
- În următoarele condiții:
- atribuind – Trebuie să atribuiți opera corespunzător, introducând o legătură către licență și indicând dacă ați făcut schimbări. Puteți face asta prin orice metodă rezonabilă, dar nu într-un fel care ar sugera faptul că persoana ce a licențiat conținutul v-ar susține sau ar aproba folosirea de către dumneavoastră a operei sale.
- partajând în condiții identice – Dacă modificați, transformați sau creați pe baza acestei opere, trebuie să distribuiți opera rezultată doar sub aceeași licență sau sub o licență similară acesteia.
Istoricul fișierului
Apăsați pe Data și ora pentru a vedea versiunea fișierului trimisă la momentul respectiv.
| Data și ora | Miniatură | Dimensiuni | Utilizator | Comentariu | |
|---|---|---|---|---|---|
| actuală | 5 noiembrie 2018 11:34 | | 400x400 (3,36 MB) | wikimediacommons>Anpe0681 | bottom caption: make font normal, reduce font size |
Utilizarea fișierului
Următoarea pagină folosește acest fișier:
