Plantilla 3D
Author: Rafael Losada Liste

Nautilus

Caracol

Lyria

Turritella

Achatina

Epitonium

Oxystele

Terebra

Conus

Bígaro

Diodora

Lapa

Helcion

Almeja

Dentalium

Mitad

k = 4 (slider from -5 to 10, step 1)
c = 2 (slider from 0 to 10, step 0.1)
g = 0 rad (slider from 0° to 30°)
f = 0 rad (slider from 0° to 90°)
e = 1.5707963267948966 rad (slider from (-(180°)) to 180°, step 1°)
d = 1.3962634015954636 rad (slider from 0° to 90°, step 0.1°)
a = 2 (slider from 0 to 9, step 0.1)
b = 1.5 (slider from 0 to 7, step 0.1)
Rc(s) = (cos(s)^(2) / a^(2) + sin(s)^(2) / b^(2))^(-0.5)
p = 0 rad (slider from -1.0471975511965976 to 1.0471975511965976, step 1°)
q1 = 0.017453292519943295 rad (slider from 0.017453292519943295 to 3.490658503988659, step 1°)
q2 = 0.017453292519943295 rad (slider from 0.017453292519943295 to 0.5235987755982988, step 1°)
ñ = 0 (slider from 0 to 5, step 0.1)
n = 0 (slider from 0 to 10, step 0.1)
w = If(n ≟ 0, 0, x - ((2 * π / n) * round((n / ((2 * π)) * x))))
u(s, t) = ((ñ * ℯ^((-2 * ((s - p) / q1)^(2)))) * ℯ^((-2 * (w(t) / q2)^(2))))
R(s, t) = Rc(s) + u(s, t)
concha = 1
h = 0 rad (slider from (-(90°)) to 90°, step 5°)
s1 = -3.141592653589793 rad (slider from -4.71238898038469 to 1, step 1°)
s2 = 3.141592653589793 rad (slider from -0.5235987755982988 to 3.141592653589793, step 1°)
m = 1 (slider from -1 to 1, step 2)
t1 = -4 (slider from -30 to 0, step 0.001)
t2 = 0.5 (slider from -2 to 30, step 0.01)
fx(s, t) = (((-m) * (((c * sin(e)) * cos(t)) + ((R(s, t) * cos(s + f)) * cos(t + h)) - (((R(s, t) * sin(g)) * sin(s + f)) * sin(t)))) * ℯ^((t * cot(d))))
fz(s, t) = k + ((((-c) * cos(e)) + ((R(s, t) * sin(s + f)) * cos(g))) * ℯ^((t * cot(d))))
fy(s, t) = (((((-c) * sin(e)) * sin(t)) - ((R(s, t) * cos(s + f)) * sin(t + h)) - (((R(s, t) * sin(g)) * sin(s + f)) * cos(t))) * ℯ^((t * cot(d))))
γ: °
matiz: Random[(0 * concha), 55] / 100
texto1: "a=" + (LaTeX[a]) + ""
texto2: "b=" + (LaTeX[b]) + ""
texto3: "c=" + (LaTeX[c]) + ""
texto4: "h=" + (LaTeX[h]) + ""
texto5: "g=" + (LaTeX[g]) + ""
texto6: "f=" + (LaTeX[f]) + ""
texto7: "e=" + (LaTeX[e]) + ""
texto8: "d=" + (LaTeX[d]) + ""
texto9: "s_1=" + (LaTeX[s1]) + ""
texto10: "s_2=" + (LaTeX[s2]) + ""
texto11: "t_1=" + (LaTeX[t1]) + ""
texto12: "t_2=" + (LaTeX[t2]) + ""
texto13: "k=" + (LaTeX[k]) + ""
texto14: "m=" + (LaTeX[m]) + ""
texto15: "n=" + (LaTeX[n]) + ""
texto16: "ñ=" + (LaTeX[ñ]) + ""
texto17: "p=" + (LaTeX[p]) + ""
texto18: "q_1=" + (LaTeX[q1]) + ""
texto19: "q_2=" + (LaTeX[q2]) + ""
mitad = false
s3 = If(mitad, (s1 + s2) / 2, s2)
sup = Surface(fx(s, t), fy(s, t), fz(s, t), s, s1, s3, t, (t1 * π), (t2 * π))