Edit and compile if you like:
\documentclass{article}\usepackage{tikz}\usepackage{tikz-3dplot}\usetikzlibrary{math}\usepackage{ifthen}\usepackage[active,tightpage]{preview}\PreviewEnvironment{tikzpicture}\setlength\PreviewBorder{1pt}%% File name: nautilus.tex% Description:% A geometric representation of a nautilus is shown.%% Date of creation: January, 03rd, 2021.% Date of last modification: October, 9th, 2022.% Author: Efraín Soto Apolinar.% https://www.aprendematematicas.org.mx/author/efrain-soto-apolinar/instructing-courses/% Source: To appear in the English version of the% Glosario Ilustrado de Matem\'aticas Escolares.% https://tinyurl.com/5udm2ufy%% Terms of use:% According to TikZ.net% https://creativecommons.org/licenses/by-nc-sa/4.0/% Your commitment to the terms of use is greatly appreciated.%\begin{document}%\begin{center}\tdplotsetmaincoords{20}{120}%\begin{tikzpicture}[tdplot_main_coords]% parametric equations of the surface\tikzmath{function equis(\u,\v) {return 1.2^(\v) * (sin(\u r) * sin(\u r)* cos(\v r));};}\tikzmath{function ye(\u,\v) {return 1.2^(\v) * (sin(\u r) * sin(\u r) * sin(\v r));};}\tikzmath{function zeta(\u,\v) {return 1.2^(\v) * (sin(\u r) * cos(\u r));};}% values for the domain of the graph\pgfmathsetmacro{\tcero}{0.0}\pgfmathsetmacro{\ti}{-2.0*pi}\pgfmathsetmacro{\tf}{2.0*pi}\pgfmathsetmacro{\n}{100}
Click to download: nautilus.tex • nautilus.pdf
Open in Overleaf: nautilus.tex
See more on the author page of Efraín Soto Apolinar.