Plantilla 3D
Author: Rafael Losada Liste

Pares

Múltiplos de 3

Múltiplos de 5

Múltiplos de 11

Primos

Múltiplos de 7

t = 0 (slider from 0 to 100, step 0.0050)
O = (0, 0)
zElipse1 = Ellipse((-6.62, 5.0), (-5.38, 5.0), 0.65)
XY = Point(zElipse1)
zAngRot: 360.0 * ° - Angle[(-5.0, 5.0), (-6.0, 5.0), XY] + 2.0 * 3.141592653589793 * t / 10.0
p = 3.141592653589793
h0 = CurveCartesian(3.0 * cos(t) * sin(zAngRot) + 3.0 * sin(t) * cos(zAngRot), tan(p / 30.0) * t + 5.0, t, -34.0 * p, 0.0)
L = Sequence(h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * i * p / 3.0), i, 0.0, 98.0)
m2 = false
m3 = false
m5 = false
m7 = true
m11 = false
primo = true
P1 = (-3, -6)
P2 = (3.37, -6)
P4 = (-3, 5.5)
L1 = Sequence(Circle[h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * i * p / 3.0) + (0.19, 0.1), h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * i * p / 3.0)], i, 0.0, 98.0)
p01 = Element(L1, 2.0)
p02 = Element(L1, 3.0)
p03 = Element(L1, 5.0)
p04 = Element(L1, 7.0)
p05 = Element(L1, 11.0)
p06 = Element(L1, 13.0)
p07 = Element(L1, 17.0)
p08 = Element(L1, 19.0)
p09 = Element(L1, 23.0)
p10 = Element(L1, 29.0)
p11 = Element(L1, 31.0)
p12 = Element(L1, 37.0)
p13 = Element(L1, 41.0)
p14 = Element(L1, 43.0)
p15 = Element(L1, 47.0)
p16 = Element(L1, 53.0)
p17 = Element(L1, 59.0)
p18 = Element(L1, 61.0)
p19 = Element(L1, 67.0)
p20 = Element(L1, 71.0)
p21 = Element(L1, 73.0)
p22 = Element(L1, 79.0)
p23 = Element(L1, 83.0)
p24 = Element(L1, 89.0)
p25 = Element(L1, 97.0)
m502 = Element(L1, 10.0)
m503 = Element(L1, 15.0)
m504 = Element(L1, 20.0)
m505 = Element(L1, 25.0)
m506 = Element(L1, 30.0)
m507 = Element(L1, 35.0)
m508 = Element(L1, 40.0)
m509 = Element(L1, 45.0)
m510 = Element(L1, 50.0)
m511 = Element(L1, 55.0)
m512 = Element(L1, 60.0)
m513 = Element(L1, 65.0)
m514 = Element(L1, 70.0)
m515 = Element(L1, 75.0)
m516 = Element(L1, 80.0)
m517 = Element(L1, 85.0)
m518 = Element(L1, 90.0)
m519 = Element(L1, 95.0)
m702 = Element(L1, 14.0)
m703 = Element(L1, 21.0)
m704 = Element(L1, 28.0)
m705 = Element(L1, 35.0)
m706 = Element(L1, 42.0)
m707 = Element(L1, 49.0)
m708 = Element(L1, 56.0)
m709 = Element(L1, 63.0)
m710 = Element(L1, 70.0)
m711 = Element(L1, 77.0)
m712 = Element(L1, 84.0)
m713 = Element(L1, 91.0)
m714 = Element(L1, 98.0)
m112 = Element(L1, 22.0)
m113 = Element(L1, 33.0)
m114 = Element(L1, 44.0)
m115 = Element(L1, 55.0)
m116 = Element(L1, 66.0)
m117 = Element(L1, 77.0)
m118 = Element(L1, 88.0)
m119 = Element(L1, 99.0)
s2a = Segment(h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * p / 3.0) + (0.2, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 0.12), h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 97.0 * p / 3.0) + (0.2, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0))
s2b = Segment(h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * p) + (0.2, 0.1), h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 93.0 * p / 3.0) + (0.2, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0))
s2c = Segment(h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 5.0 * p / 3.0) + (0.15, 0.1), h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 95.0 * p / 3.0) + (0.15, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0))
s3a = Segment(h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 2.0 * p / 3.0) + (0.2, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 0.12), h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 98.0 * p / 3.0) + (0.2, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0))
s3b = Segment(h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 5.0 * p / 3.0) + (0.2, 0.1), h0(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 95.0 * p / 3.0) + (0.2, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0))
h5 = CurveCartesian(0.2 + 3.0 * cos(t + p) * sin(zAngRot) + 3.0 * sin(t) * cos(zAngRot), tan(27.7 * °) * t + 10.7, t, -11.0 * p, -11.0 * p / 3.0 - 0.1)
h7 = CurveCartesian(0.2 + 3.0 * cos(t) * sin(zAngRot) + 3.0 * sin(t) * cos(zAngRot), tan(36.4 * °) * t + 13.7, t, -17.0 * p / 2.0, -4.0 * p - 0.1)
h11 = CurveCartesian(0.2 + 3.0 * cos(t + p) * sin(zAngRot) + 3.0 * sin(t) * cos(zAngRot), tan(49.0 * °) * t + 17.2, t, -33.0 * p / 5.0, -11.0 * p / 3.0 - 0.1)
PT1 = (5.24, 4.8)
PT2: PT1 - (0.0, 1.0)
PT3: PT1 - (0.0, 2.0)
PT4: PT1 - (0.0, 3.0)
PT5: PT1 - (0.0, 4.0)
base = Ellipse((-3.0, 5.5), (3.4, 5.5), 3.21)
PT6 = (-6.640000000000001, 4.72)

Tool: Punto3D
Punto3D[ XY, Z, Lista {Px, Py, Pz} ]
Input: XY, Z, P
Output: zConstruccionP'

zAngInc = Angle((-3.0, 6.0), (-3.0, 5.0), Z)
zAngRot = Angle((-2.0, 5.0), (-3.0, 5.0), XY)
P: {0.0, -3.0, -3.0}
zConstruccionP': (Element[P, 1.0] * sin(zAngRot) + Element[P, 2.0] * cos(zAngRot), -1.0 * Element[P, 1.0] * cos(zAngRot) * sin(zAngInc) + Element[P, 2.0] * sin(zAngRot) * sin(zAngInc) + Element[P, 3.0] * cos(zAngInc))