Ειδικές Αλγεβρικές Επιφάνειες Δευτέρου Βαθμού

> restart;

1. Ελλειψοειδές

> smartplot3d[x,y,z](x^2/5^2+y^2/4^2+z^2/3^2=1);

[Plot]

>

2. Μονόχωνο Υπερβολοειδές

> smartplot3d[x,y,z](x^2/5^2+y^2/4^2-z^2/3^2=1);

[Plot]

>

3. Δίχωνο Υπερβολοειδές

> smartplot3d[x,y,z](x^2/1^2-y^2/2^2-z^2/3^2=1);

[Plot]

>

4. Ελλειπτικό Παραβολοειδές

> smartplot3d[x,y,z](x^2/7^2+y^2/3^2=2*2*z);

[Plot]

>

5. Υπερβολικό Παραβολοειδές

> smartplot3d[x,y,z](x^2/7^2-y^2/3^2=2*2*z);

[Plot]

>