Superficies B-spline
Diseño casero

R. Ipanaqué
N. Farias
T. Santos
J. Mechato
J. Ramírez
A. Pinday
C. Dioses
S. Rentería
M. More
M. Castillo
J. Pazo
M. Ordinola
E. Rojas
R. Pacherrez
M. Yarlequé
J. Rufino
K. Teodor
V. Chiroque

Resumen

Este trabajo presenta una serie de superficies B-spline diseñadas por estudiantes inscritos en el Curso "Introducción al diseño geométrico" que se dicta en la Escuela Profesional de Matemática de la Facultad de Ciencias de la Universidad Nacional de Piura (Perú). El facilitador en este curso es el Profesor R. Ipanaqué. Téngase en cuenta que los estudiantes no cuentan con ningún equipo apropiado para obtener las coordenadas de los puntos de control, todo se ha hecho en forma rudimentaria (de allí el título de diseño casero). Para obtener las gráficas de las superficies B-spline se ha empleado el comando BsplineSurface que viene incorporado en la versión 7.0 de Mathematica.

Superficie B-spline

Dada la siguiente información:

1. un conjunto de m+1 por n+1 puntos de control (Subscript[p, i j]), donde 0≤i≤m y 0≤j≤n;

2. un vector nodo de h+1 nodos en la dirección u, υ={(Subscript[u, 0]),(Subscript[u, 1]),...,(Subscript[u, h])};

3. un vector nodo de k+1 nodos en la dirección v, ⋁={(Subscript[v, 0]),(Subscript[v, 1]),...,(Subscript[v, k])};

4. el grado p en la dirección u;

5. el grado q en la dirección v;

la superficie B-spline definida por esta información es la siguiente:

S(u,v)=(∑_(i=0)^m)(∑_(j=0)^n)(Subscript[p, i j])(Subscript[N, i,p])(u)(Subscript[N, j,q])(v)

donde (Subscript[N, i,p])(u) y (Subscript[N, j,q])(v) son las funciones base B-spline de grados p y q, respectivamente. Se cumplen las identidades fundamentales, una en cada dirección: h=m+p+1 y k=n+q+1.

Arbol

Farias Morcillo, Nestor

pts={{{80,0,0},{0,100,0},{-100,0,0},{0,-100,0},{80,0,0}},{{24.6`,0,0},{0,24.6`,0},{-24.6`,0,0},{0,-24.6`,0},{24.6`,0,0}},{{28,0,78.5`},{0,28,78.5`},{-28,0,78.5`},{0,-28,78.5`},{28,0,78.5`}},{{136.6,0,86.5`},{0,136.6,86.5`},{-136.6,0,86.5`},{0,-136.6`,86.5`},{136.6,0,86.5`}},{{71.2`,0,125},{0,71.2`,125},{-71.2,0,125},{0,-71.2`,125},{71.2`,0,125}},{{120,0,135},{0,120,135},{-120,0,135},{0,-120,135},{120,0,135}},{{47.2`,0,181},{0,47.2,181},{-47.2,0,181},{0,-47.2,181},{47.2`,0,181}},{{88.6`,0,199},{0,88.6`,199},{-88.6`,0,199},{0,-88.6`,199},{88.6`,0,199}},{{30.6,0,235},{0,30.6,235},{-30.6,0,235},{0,-30.6`,235},{30.6,0,235}},{{54,0,246.5`},{0,54,246.5`},{-54,0,246.5`},{0,-54,246.5`},{54,0,246.5`}},{{0,0,290.5`},{0,0,290.5`},{0,0,290.5`},{0,0,290.5`},{0,0,290.5`}}};

uk={1,1,1,2,3,4,5,6,7,8,9,10,10,10};
vk={1,1,1,2,3,4,4,4};

Graphics3D[{EdgeForm[],
Directive[Green,Specularity[White,20],Opacity[1.4]],
BSplineSurface[pts,SplineKnots->{uk,vk},SplineDegree->2]
},Boxed->False,ViewPoint->{-3.0325373949099457`,-0.20646584217446937`,1.4869730342168255`},ViewVertical->{-0.24869703406252883`,-0.10010499329488624`,0.9833581798936336}]

Auto

Santos Santos, Toribio

Tapamotor

p1={{{-1,4Cos[0],4Sin[0]},{-0.75,4Cos[Pi/8],4Sin[Pi/8]},{-0.5,4Cos[Pi/4],4Sin[Pi/4]},{-0.25,4Cos[3Pi/8],4Sin[3Pi/8]},{0,4Cos[Pi/2],4Sin[Pi/2]}},{{-2,4.8Cos[0],4.8Sin[0]},{-2,4.8Cos[Pi/8],4.8Sin[Pi/8]},{-2,4.8Cos[Pi/4],4.8Sin[Pi/4]},{-2,4.8Cos[3Pi/8],4.8Sin[3Pi/8]},{-2,4.8Cos[Pi/2],4.8Sin[Pi/2]}},{{-3,4Cos[0],4Sin[0]},{-3.25,4Cos[Pi/8],4Sin[Pi/8]},{-3.5,4Cos[Pi/4],4Sin[Pi/4]},{-3.75,4Cos[3Pi/8],4Sin[3Pi/8]},{-4,4Cos[Pi/2],4Sin[Pi/2]}}};

p2={{{-1,4Cos[0],4Sin[0]},{-0.75,4Cos[Pi/8],4Sin[Pi/8]},{-0.5,4Cos[Pi/4],4Sin[Pi/4]},{-0.25,4Cos[3Pi/8],4Sin[3Pi/8]},{0,4Cos[Pi/2],4Sin[Pi/2]}},{{-1,4,0},{-0.5,4 Cos[(π/8)],2 Sin[(π/8)]},{0,2 (Sqrt[2]),(Sqrt[2])},{0.5,4 Sin[(π/8)],2 Cos[(π/8)]},{0.5,0,2}},{{-1,4Cos[0],0},{-0.75,4Cos[Pi/8],0},{-0.5,4Cos[Pi/4],0},{-0.25,4Cos[3Pi/8],0},{0,4Cos[Pi/2],0}}};

p3={{{-3,4Cos[0],4Sin[0]},{-3.25,4Cos[Pi/8],4Sin[Pi/8]},{-3.5,4Cos[Pi/4],4Sin[Pi/4]},{-3.75,4Cos[3Pi/8],4Sin[3Pi/8]},
{-4,4Cos[Pi/2],4Sin[Pi/2]}},{{-3,4,0},{-3.5,4 Cos[(π/8)],2 Sin[(π/8)]},{-4,2 (Sqrt[2]),(Sqrt[2])},{-4.5,4 Sin[(π/8)],2 Cos[(π/8)]},{-4.5,0,2}},{{-3,4Cos[0],0},{-3.25,4Cos[Pi/8],0},{-3.5,4Cos[Pi/4],0},{-3.75,4Cos[3Pi/8],0},{-4,4Cos[Pi/2],0}}};

tapabarrodelantero

p4={{{1,4,0},{1,2+(Sqrt[2]),(Sqrt[2])},{1,2,2},{1,2-(Sqrt[2]),(Sqrt[2])},{1,0,0}},{{0,4.8,0},{0,3.97,1.97},{0,2,2.8},{0,0.02,1.97},{0,-0.79,0}},{{-1,4,0},{-1,2+(Sqrt[2]),(Sqrt[2])},{-1,2,2},{-1,2-(Sqrt[2]),(Sqrt[2])},{-1,0,0}}};

p5={{{-3,4,0},{-3,2+(Sqrt[2]),(Sqrt[2])},{-3,2,2},{-3,2-(Sqrt[2]),(Sqrt[2])},{-3,0,0}},{{-4,4.5`,0},{-4,3.76,1.76},{-4,2,2.5},{-4,0.23,1.76},{-4,-0.5,0}},{{-5,4,0},{-5,2+(Sqrt[2]),(Sqrt[2])},{-5,2,2},{-5,2-(Sqrt[2]),(Sqrt[2])},{-5,0,0}}};

techo

p6={{{0,-6+4 (Sqrt[2]),4 (Sqrt[2])},{0,-6+8 Sin[(π/8)],8 Cos[(π/8)]},{0,-6,8},{0,-6-8 Sin[(π/8)],8 Cos[(π/8)]},{0,-6-4 (Sqrt[2]),4 (Sqrt[2])}},{{-2,-6+4 (Sqrt[2]),(9/(Sqrt[2]))},{-2,-6+9 Sin[(π/8)],9 Cos[(π/8)]},{-2,-6,9},{-2,-6-9 Sin[(π/8)],9 Cos[(π/8)]},{-2,-6-(9/(Sqrt[2])),(9/(Sqrt[2]))}},{{-4,-6+4 (Sqrt[2]),4 (Sqrt[2])},{-4,-6+8 Sin[(π/8)],8 Cos[(π/8)]},{-4,-6,8},{-4,-6-8 Sin[(π/8)],8 Cos[(π/8)]},{-4,-6-4 (Sqrt[2]),4 (Sqrt[2])}}};

puertasdelateras

p7={{{0,0,0},{0,-6,0}},{{0.5,0,2},{0.5,-6,2}},{{0,0,4},{0,-6,4}}};

p8={{{-4,0,0},{-4,-6,0}},{{-4.5,0,2},{-4.5,-6,2}},{{-4,0,4},{-4,-6,4}}};

lineas

p9={{{0,0,4},{0,-6+4 (Sqrt[2]),4 (Sqrt[2])}},{{-0.2,0,4},{-0.2,-6+4 (Sqrt[2]),4.05(Sqrt[2])}}};

p10={{{-4,0,4},{-4,-6+4 (Sqrt[2]),4 (Sqrt[2])}},{{-3.8,0,4},{-3.8,-6+4 (Sqrt[2]),4.05(Sqrt[2])}}};

p11={{{0,-6,4},{0,-6,7.85}},{{0,-5.6,4},{0,-5.6,7.85}}};

p12={{{-4,-6,4},{-4,-6,7.85}},{{-4,-5.6,4},{-4,-5.6,7.85}}};

puertasdetras

p13={{{0,-6.,0},{0,-11,0}},{{0.5,-6.,2},{0,-11,2}},{{0,-6.,4},{0,-11,4}}};

p14={{{-4,-6.,0},{-4,-11,0}},{{-4.5,-6.,2},{-4.,-11,2}},{{-4,-6.,4},{-4,-11,4}}};

tapamotoratras

p15={{{0,-6-8 Cos[((3 π)/16)],8 Sin[((3 π)/16)]},{-0.3,-6-8 Cos[(π/8)],8 Sin[(π/8)]},{-0.6,-6-8 Cos[(π/16)],8 Sin[(π/16)]},{-1,-14,0}},{{-2,-6-9 Cos[((3 π)/16)],9 Sin[((3 π)/16)]},{-2,-6-9 Cos[(π/8)],9 Sin[(π/8)]},{-2,-6-9 Cos[(π/16)],9 Sin[(π/16)]},{-2,-15,0}},{{-4,-6-8 Cos[((3 π)/16)],8 Sin[((3 π)/16)]},{-3.7,-6-8 Cos[(π/8)],8 Sin[(π/8)]},{-3.4,-6-8 Cos[(π/16)],8 Sin[(π/16)]},{-3,-14,0}}};

lineasatras

p16={{{0,-6-4 (Sqrt[2]),4 (Sqrt[2])},{0,-11,4},{0,-11,2},{0,-11,0}},{{0,-6-8 Cos[((3 π)/16)],8 Sin[((3 π)/16)]},{-0.3,-6-8 Cos[(π/8)],8 Sin[(π/8)]},{-0.6,-6-8 Cos[(π/16)],8 Sin[(π/16)]},{-1,-14,0}}};

p17={{{-4,-6-4 (Sqrt[2]),4 (Sqrt[2])},{-4,-11,4},{-4.,-11,2},{-4,-11,0}},{{-4,-6-8 Cos[((3 π)/16)],8 Sin[((3 π)/16)]},{-3.7,-6-8 Cos[(π/8)],8 Sin[(π/8)]},{-3.4,-6-8 Cos[(π/16)],8 Sin[(π/16)]},{-3,-14,0}}};

tapabarroatras

p18={{{1,-10,0},{1,-12+(Sqrt[2]),(Sqrt[2])},{1,-12,2},{1,-12-(Sqrt[2]),(Sqrt[2])},{1,-14,0}},{{0,-9.2,0},{0,-10.02,1.97},{0,-12,2.8},{0,-13.97,1.97},{0,-14.8,0}},{{-1,-10,0},{-1,-12+(Sqrt[2]),(Sqrt[2])},{-1,-12,2},{-1,-12-(Sqrt[2]),(Sqrt[2])},{-1,-14,0}}};

p19={{{-5,-10,0},{-5,-12+(Sqrt[2]),(Sqrt[2])},{-5,-12,2},{-5,-12-(Sqrt[2]),(Sqrt[2])},{-5,-14,0}},{{-4,-9.2,0},{-4,-10.02,1.97},{-4,-12,2.8},{-4,-13.97,1.97},{-4,-14.8,0}},{{-3,-10,0},{-3,-12+(Sqrt[2]),(Sqrt[2])},{-3,-12,2},{-3,-12-(Sqrt[2]),(Sqrt[2])},{-3,-14,0}}};

llantas

p20={{{1,3.5,0},{1,3.06,1.06},{1,2,1.5},{1,0.93,1.06},{1,0.5,0},{1,0.93,-1.06},{1,2,-1.5},{1,3.06,-1.06},{1,3.5,0}},{{-1,3.5,0},{-1,3.06,1.06},{-1,2,1.5},{-1,0.93,1.06},{-1,0.5,0},{-1,0.93,-1.06},{-1,2,-1.5},{-1,3.06,-1.06},{-1,3.5,0}}};

p21={{{-3,3.5,0},{-3,3.06,1.06},{-3,2,1.5},{-3,0.93,1.06},{-3,0.5,0},{-3,0.93,-1.06},{-3,2,-1.5},{-3,3.06,-1.06},{-3,3.5,0}},{{-5,3.5,0},{-5,3.06,1.06},{-5,2,1.5},{-5,0.93,1.06},{-5,0.5,0},{-5,0.93,-1.06},{-5,2,-1.5},{-5,3.06,-1.06},{-5,3.5,0}}};

p22={{{1,-10.5,0},{1,-10.93,1.06},{1,-12,1.5},{1,-13.06,1.06},{1,-13.5,0},{1,-13.06,-1.06},{1,-12,-1.5},{1,-10.93,-1.06},{1,-10.5,0}},{{-1,-10.5,0},{-1,-10.93,1.06},{-1,-12,1.5},{-1,-13.06,1.060},{-1,-13.5,0},{-1,-13.06,-1.06},{-1,-12,-1.5`},{-1,-10.93,-1.06},{-1,-10.5,0}}};

p23={{{-3,-10.5,0},{-3,-10.93,1.06},{-3,-12,1.5},{-3,-13.06,1.06},{-3,-13.5,0},{-3,-13.06,-1.06},{-3,-12,-1.5},{-3,-10.93,-1.06},{-3,-10.5,0}},{{-5,-10.5,0},{-5,-10.93,1.06},{-5,-12,1.5},{-5,-13.06,1.06},{-5,-13.5,0},{-5,-13.06,-1.06},{-5,-12,-1.5},{-5,-10.93,-1.06},{-5,-10.5,0}}};

p24={{{1,3.5,0},{1,3.06,1.06},{1,2,1.5},{1,0.93,1.06},{1,0.5,0},{1,0.93,-1.06},{1,2,-1.5},{1,3.06,-1.06},{1,3.5,0}},{{1,2,0},{1,2,0},{1,2,0},{1,2,0},{1,2,0},{1,2,0},{1,2,0},{1,2,0},{1,2,0}}};

p25={{{-3,3.5,0},{-3,3.06,1.06},{-3,2,1.5},{-3,0.93,1.06},{-3,0.5,0},{-3,0.93,-1.06},{-3,2,-1.5},{-3,3.06,-1.06},{-3,3.5,0}},{{-5,2,0},{-5,2,0},{-5,2,0},{-5,2,0},{-5,2,0},{-5,2,0},{-5,2,0},{-5,2,0},{-5,2,0}}};

p26={{{1,-10.5,0},{1,-10.93,1.06},{1,-12,1.5},{1,-13.06,1.06},{1,-13.5,0},{1,-13.06,-1.06},{1,-12,-1.5},{1,-10.93,-1.06},{1,-10.5,0}},{{1,-12,0},{1,-12,0},{1,-12,0},{1,-12,0},{1,-12,0},{1,-12,0},{1,-12,0},{1,-12,0},{1,-12,0}}};

p27={{{-3,-10.5,0},{-3,-10.93,1.06},{-3,-12,1.5},{-3,-13.06,1.06},{-3,-13.5,0},{-3,-13.06,-1.06},{-3,-12,-1.5},{-3,-10.93,-1.06},{-3,-10.5,0}},{{-5,-12,0},{-5,-12,0},{-5,-12,0},{-5,-12,0},{-5,-12,0},{-5,-12,0},{-5,-12,0},{-5,-12,0},{-5,-12,0}}};

m1=Show[Graphics3D[{Red,PointSize[0.02],Point/@p1}],Graphics3D[{Blue,Line[p1],Line[Transpose[p1]]}]];

m2=Show[Graphics3D[{Red,PointSize[0.02],Point/@p2}],Graphics3D[{Blue,Line[p2],Line[Transpose[p2]]}]];

m3=Show[Graphics3D[{Red,PointSize[0.02],Point/@p3}],Graphics3D[{Blue,Line[p3],Line[Transpose[p3]]}]];

m4=Show[Graphics3D[{Red,PointSize[0.02],Point/@p4}],Graphics3D[{Blue,Line[p4],Line[Transpose[p4]]}]];

m5=Show[Graphics3D[{Red,PointSize[0.02],Point/@p5}],Graphics3D[{Blue,Line[p5],Line[Transpose[p5]]}]];

m6=Show[Graphics3D[{Red,PointSize[0.02],Point/@p6}],Graphics3D[{Blue,Line[p6],Line[Transpose[p6]]}]];

m7=Show[Graphics3D[{Red,PointSize[0.02],Point/@p7}],Graphics3D[{Blue,Line[p7],Line[Transpose[p7]]}]];

m8=Show[Graphics3D[{Red,PointSize[0.02],Point/@p8}],Graphics3D[{Blue,Line[p8],Line[Transpose[p8]]}]];

m9=Show[Graphics3D[{Red,PointSize[0.02],Point/@p9}],Graphics3D[{Blue,Line[p9],Line[Transpose[p9]]}]];

m10=Show[Graphics3D[{Red,PointSize[0.02],Point/@p10}],Graphics3D[{Blue,Line[p10],Line[Transpose[p10]]}]];

m11=Show[Graphics3D[{Red,PointSize[0.02],Point/@p11}],Graphics3D[{Blue,Line[p11],Line[Transpose[p11]]}]];

m12=Show[Graphics3D[{Red,PointSize[0.02],Point/@p12}],Graphics3D[{Blue,Line[p12],Line[Transpose[p12]]}]];

m13=Show[Graphics3D[{Red,PointSize[0.02],Point/@p13}],Graphics3D[{Blue,Line[p13],Line[Transpose[p13]]}]];

m14=Show[Graphics3D[{Red,PointSize[0.02],Point/@p14}],Graphics3D[{Blue,Line[p14],Line[Transpose[p14]]}]];

m15=Show[Graphics3D[{Red,PointSize[0.02],Point/@p15}],Graphics3D[{Blue,Line[p15],Line[Transpose[p15]]}]];

m16=Show[Graphics3D[{Red,PointSize[0.02],Point/@p16}],Graphics3D[{Blue,Line[p16],Line[Transpose[p16]]}]];

m17=Show[Graphics3D[{Red,PointSize[0.02],Point/@p17}],Graphics3D[{Blue,Line[p17],Line[Transpose[p17]]}]];

m18=Show[Graphics3D[{Red,PointSize[0.02],Point/@p18}],Graphics3D[{Blue,Line[p18],Line[Transpose[p18]]}]];

m19=Show[Graphics3D[{Red,PointSize[0.02],Point/@p19}],Graphics3D[{Blue,Line[p19],Line[Transpose[p19]]}]];

m20=Show[Graphics3D[{PointSize[0.02],Point/@p20}],Graphics3D[{Line[p20],Line[Transpose[p20]]}]];

m21=Show[Graphics3D[{PointSize[0.02],Point/@p21}],Graphics3D[{Line[p21],Line[Transpose[p21]]}]];

m22=Show[Graphics3D[{PointSize[0.02],Point/@p22}],Graphics3D[{Line[p22],Line[Transpose[p22]]}]];

m23=Show[Graphics3D[{PointSize[0.02],Point/@p23}],Graphics3D[{Line[p23],Line[Transpose[p23]]}]];

m24=Show[Graphics3D[{PointSize[0.02],Point/@p24}],Graphics3D[{Line[p24],Line[Transpose[p24]]}]];

m25=Show[Graphics3D[{PointSize[0.02],Point/@p25}],Graphics3D[{Line[p25],Line[Transpose[p25]]}]];

m26=Show[Graphics3D[{PointSize[0.02],Point/@p26}],Graphics3D[{Line[p26],Line[Transpose[p26]]}]];

m27=Show[Graphics3D[{PointSize[0.02],Point/@p27}],Graphics3D[{Line[p27],Line[Transpose[p27]]}]];

pp=Graphics3D[{PointSize[0.02],Point[{{{1,-10,0},{1,-12+(Sqrt[2]),(Sqrt[2])},{1,-12,2},{1,-12-(Sqrt[2]),(Sqrt[2])},{1,-14,0}}}]}];

kk=Show[m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,m11,m12,m13,m14,m15,m16,m17,m18,m19,m20,m21,m22,m23,m24,m25,m26,m27];

tapamotor

uk={0,0,0,1,1,1};
vk={0,0,0,1,2,3,3,3};

t1=Graphics3D[{EdgeForm[],
Directive[Green,Specularity[White,20]],
BSplineSurface[p1,SplineKnots->{uk,vk},SplineDegree->2],
BSplineSurface[p2,SplineKnots->{uk,vk},SplineDegree->2],
BSplineSurface[p3,SplineKnots->{uk,vk},SplineDegree->2]
}];

tapabarro

uk={0,0,0,1,1,1};
vk={0,0,0,1,2,3,3,3};

t2=Graphics3D[{EdgeForm[],
Directive[Green,Specularity[White,20]],
BSplineSurface[p4,SplineKnots->{uk,vk},SplineDegree->2],
BSplineSurface[p5,SplineKnots->{uk,vk},SplineDegree->2]
}];

techo

uk={0,0,0,1,1,1};
vk={0,0,0,1,2,3,3,3};

t3=Graphics3D[{EdgeForm[],
Directive[Green,Specularity[White,20]],
BSplineSurface[p6,SplineKnots->{uk,vk},SplineDegree->2]
}];

puertasdelanteras

uk={0,0,0,1,1,1};
vk={0,0,1,1};

t4=Graphics3D[{EdgeForm[],
Directive[Green,Specularity[White,20]],
BSplineSurface[p7,SplineKnots->{uk,vk},SplineDegree->{2,1}],
BSplineSurface[p8,SplineKnots->{uk,vk},SplineDegree->{2,1}],
BSplineSurface[p13,SplineKnots->{uk,vk},SplineDegree->{2,1}],
BSplineSurface[p14,SplineKnots->{uk,vk},SplineDegree->{2,1}]
}];

lineasadelante

uk={0,0,1,1};
vk={0,0,1,1};

t5=Graphics3D[{EdgeForm[],
Directive[Green,Specularity[White,20]],
BSplineSurface[p9,SplineKnots->{uk,vk},SplineDegree->{1,1}],
BSplineSurface[p10,SplineKnots->{uk,vk},SplineDegree->{1,1}],
BSplineSurface[p11,SplineKnots->{uk,vk},SplineDegree->{1,1}],
BSplineSurface[p12,SplineKnots->{uk,vk},SplineDegree->{1,1}]
}];

tapamotordetras

uk={0,0,0,1,1,1};
vk={0,0,0,1,2,2,2};

t6=Graphics3D[{EdgeForm[],
Directive[Green,Specularity[White,20]],
BSplineSurface[p15,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

lineasatras

uk={0,0,1,1};
vk={0,0,0,1,2,2,2};

t7=Graphics3D[{EdgeForm[],
Directive[Green,Specularity[White,20]],
BSplineSurface[p16,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p17,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

tapabarroatras

uk={0,0,0,1,1,1};
vk={0,0,0,1,2,3,3,3};

t8=Graphics3D[{EdgeForm[],
Directive[Green,Specularity[White,20]],
BSplineSurface[p18,SplineKnots->{uk,vk},SplineDegree->{2,2}],
BSplineSurface[p19,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

llantas

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,7,7};

t9=Graphics3D[{EdgeForm[],
Directive[Green,Specularity[White,20]],
BSplineSurface[p20,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p21,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p22,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p23,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p24,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p25,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p26,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p27,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

tt=Show[t1,t2,t3,t4,t5,t6,t7,t8,t9]

Show[kk,tt]

Carro

Mechato Durand, Josel

Primera parte

matriz={{{0,0,98},{0,0,98},{0,0,98},{0,0`,98},{0,0,98},{0,0`,98},{0,0`,98},{0,0`,98},{0,0`,98},{0,0,98},{0,0,98},{0,0,98},{0,0,98},{0,0,98},{0,0`,98},{0,0,98}},{{40,0,0},{40,240,0},{40,242,25},{40,230.6,37},{40,232.6,97.5},{40,251.2,103.5},{40,254,135.5},{40,241.2,149},{40,256,198},{40,241.2,239},{40,234,267},{40,186.6,287},{40,139.2,304},{40,98,309},{40,46.6,313.5},{40,0,317}},{{200,0,0},{200,154.6,0},{200,156,24},{200,155.2,37},{200,157.2,97},{200,250.6,103.5},{200,254.6,135},{200,240,149.5},{200,256.6,197},{200,242,239},{200,234,266},{200,186,287},{200,138,304},{200,98,309},{200,46.6,313.5},{200,0,315.5}},{{340,0,0},{340,154,0},{340,156,24},{340,156,39},{340,158.6,97.5},{340,252,104},{340,254,135.5},{340,242,147.5},{340,266,225},{340,254.6,248},{340,247.2,282},{340,231.2,283.5},{340,201.2,323},{340,182.6,347.5},{340,154,343.5},{340,0,360}},{{450,0,0},{450,240,0},{450,242,25},{450,230.6,36},{450,234.6,142},{450,240,191.5},{450,225.2,226},{450,208,241.5},{450,202.6,285},{450,198.6,319.5},{450,205.2,337},{450,180,365.5},{450,158.6,364},{450,132.6,377},{450,86,378},{450,0,388}},{{650,0,0},{650,240,0},{650,242,25},{650,230.6,36},{650,234.6,142},{650,240,191.5},{650,225.2,226},{650,208,241.5},{650,202.6,285},{650,198.6,319.5},{650,205.2,337},{650,180,365.5},{650,158.6,364},{650,132.6,377},{650,86,378},{650,0,388}},{{800,0,0},{800,241.2,0},{800,241.2,25},{800,230,36},{800,232,97.5},{800,238,149.5},{800,252.6,209},{800,252.6,229.5},{800,242.6,245},{800,220,255.5},{800,216,269},{800,197.2,275.5},{800,180,268},{800,111.2,291.5},{800,47.2,302},{800,0,306}},{{960,0,0},{960,154.6,0},{960,155.2,24},{960,156.6,35.5},{960,156.6,106},{960,165.2,119.5},{960,251.2,123.5},{960,264.6,132},{960,261.2,150},{960,246,165.5},{960,246.6,201},{960,238.6,212},{960,220,221.5},{960,194.6,240},{960,160,237.5},{960,0,253}},{{1130,0,0},{1130,240,0},{1130,242.6,25},{1130,231.2,37},{1130,230,100},{1130,226,125.5},{1130,210.6,137.5},{1130,200.6,159},{1130,154.6,172},{1130,146.6,187},{1130,130.6,197.5},{1130,110,202},{1130,77.2,207.5},{1130,51.2,209},{1130,21.2,211.5},{1130,0,213}},{{1130,0,98},{1130,0,98},{1130,0,98},{1130,0`,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0`,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0,98}}};

uk={1,1,1,2,3,4,5,6,7,8,9,9,9};
vk={1,1,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

g1=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.95]],
BSplineSurface[matriz,SplineKnots->{uk,vk},SplineDegree->2]
}];

Segunda parte

matriz1={{{0,0,98},{0,0,98},{0,0,98},{0,0`,98},{0,0,98},{0,0`,98},{0,0`,98},{0,0`,98},{0,0`,98},{0,0,98},{0,0,98},{0,0,98},{0,0,98},{0,0,98},{0,0`,98},{0,0,98}},{{40,0,0},{40,-240,0},{40,-242,25},{40,-230.6,37},{40,-232.6,97.5},{40,-251.2,103.5},{40,-254,135.5},{40,-241.2,149},{40,-256,198},{40,-241.2,239},{40,-234,267},{40,-186.6,287},{40,-139.2,304},{40,-98,309},{40,-46.6,313.5},{40,0,317}},{{200,0,0},{200,-154.6`,0},{200,-156,24},{200,-155.2`,37},{200,-157.2`,97},{200,-250.6`,103.5`},{200,-254.6`,135},{200,-240,149.5`},{200,-256.6`,197},{200,-242,239},{200,-234,266},{200,-186,287},{200,-138,304},{200,-98,309},{200,-46.6`,313.5`},{200,0,315.5`}},{{340,0,0},{340,-154,0},{340,-156,24},{340,-156,39},{340,-158.6`,97.5`},{340,-252,104},{340,-254,135.5`},{340,-242,147.5`},{340,-266,225},{340,-254.6`,248},{340,-247.2`,282},{340,-231.2`,283.5`},{340,-201.2`,323},{340,-182.6`,347.5`},{340,-154,343.5`},{340,0,360}},{{450,0,0},{450,-240,0},{450,-242,25},{450,-230.6`,36},{450,-234.6`,142},{450,-240,191.5`},{450,-225.2`,226},{450,-208,241.5`},{450,-202.6`,285},{450,-198.6`,319.5`},{450,-205.2`,337},{450,-180,365.5`},{450,-158.6`,364},{450,-132.6`,377},{450,-86,378},{450,0,388}},{{650,0,0},{650,-240,0},{650,-242,25},{650,-230.6`,36},{650,-234.6`,142},{650,-240,191.5`},{650,-225.2`,226},{650,-208,241.5`},{650,-202.6`,285},{650,-198.6`,319.5`},{650,-205.2`,337},{650,-180,365.5`},{650,-158.6`,364},{650,-132.6`,377},{650,-86,378},{650,0,388}},{{800,0,0},{800,-241.2`,0},{800,-241.2`,25},{800,-230,36},{800,-232,97.5`},{800,-238,149.5`},{800,-252.6`,209},{800,-252.6`,229.5`},{800,-242.6`,245},{800,-220,255.5`},{800,-216,269},{800,-197.2`,275.5`},{800,-180,268},{800,-111.2`,291.5`},{800,-47.2`,302},{800,0,306}},{{960,0,0},{960,-154.6`,0},{960,-155.2`,24},{960,-156.6`,35.5`},{960,-156.6`,106},{960,-165.2`,119.5`},{960,-251.2`,123.5`},{960,-264.6`,132},{960,-261.2`,150},{960,-246,165.5`},{960,-246.6`,201},{960,-238.6`,212},{960,-220,221.5`},{960,-194.6`,240},{960,-160,237.5`},{960,0,253}},{{1130,0,0},{1130,-240,0},{1130,-242.6,25},{1130,-231.2,37},{1130,-230,100},{1130,-226,125.5},{1130,-210.6,137.5},{1130,-200.6,159},{1130,-154.6,172},{1130,-146.6,187},{1130,-130.6,197.5},{1130,-110,202},{1130,-77.2,207.5},{1130,-51.2,209},{1130,-21.2,211.5},{1130,0,213}},{{1130,0,98},{1130,0,98},{1130,0,98},{1130,0.`,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0.`,98},{1130,0,98},{1130,0,98},{1130,0,98},{1130,0,98}}};

uk={1,1,1,2,3,4,5,6,7,8,9,9,9};
vk={1,1,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

g2=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.95]],
BSplineSurface[matriz1,SplineKnots->{uk,vk},SplineDegree->2]
}];

Llantas

c1=ParametricPlot3D[{70Cos[u],v,70Sin[u]}+{950,180,45.75},{u,0,2π},{v,0,45.75},PlotStyle->Directive[Black,Specularity[White,20],Opacity[1]],Mesh->False];

l1=ParametricPlot3D[{v Cos[u],45.75,v Sin[u]}+{950,180,45.75},{u,0,2π},{v,0,70},PlotStyle->Directive[Blue,Specularity[White,20],Opacity[1]],Mesh->False];

lla1=Show[c1,l1];

c2=ParametricPlot3D[{70Cos[u],-v,70Sin[u]}+{950,-180,45.75},{u,0,2π},{v,0,45.75},PlotStyle->Directive[Black,Specularity[White,20],Opacity[1]],Mesh->False];

l2=ParametricPlot3D[{v Cos[u],-45.75,v Sin[u]}+{950,-180,45.75},{u,0,2π},{v,0,70},PlotStyle->Directive[Blue,Specularity[White,20],Opacity[1]],Mesh->False];

lla2=Show[c2,l2];

c3=ParametricPlot3D[{70Cos[u],v,70Sin[u]}+{250,180,45.75},{u,0,2π},{v,0,45.75},PlotStyle->Directive[Black,Specularity[White,20],Opacity[1]],Mesh->False];

l3=ParametricPlot3D[{v Cos[u],45.75,v Sin[u]}+{250,180,45.75},{u,0,2π},{v,0,70},PlotStyle->Directive[Blue,Specularity[White,20],Opacity[1]],Mesh->False];

lla3=Show[c3,l3];

c4=ParametricPlot3D[{70Cos[u],-v,70Sin[u]}+{250,-180,45.75},{u,0,2π},{v,0,45.75},PlotStyle->Directive[Black,Specularity[White,20],Opacity[1]],Mesh->False];

l4=ParametricPlot3D[{v Cos[u],-45.75,v Sin[u]}+{250,-180,45.75},{u,0,2π},{v,0,70},PlotStyle->Directive[Blue,Specularity[White,20],Opacity[1]],Mesh->False];

lla4=Show[c4,l4];

Carro

Show[g1,g2,lla1,lla2,lla3,lla4,Boxed->False,Axes->False]

Copa

Ramírez Pingo, Juan Orlando

p1={{6,14},{6.,11.}};
p2={{6.,11.},{5.77,9.85},{5.12,8.88},{4.15,8.23},{3.,8.}};
p3={{3.,8.},{2.23,7.85},{1.59,7.41},{1.15,6.77},{1.,6.}};
p4={{1.,6.},{1.,2.}};
p5={{1.,2.},{1.08,1.62},{1.29,1.29},{1.62,1.08},{2.,1.}};
p6={{2.,1.},{5,0.5}};
p7={{5,0.5},{0,0.5}};

pun1=Table[Table[{p1[[i,1]]Cos[θ],p1[[i,1]]Sin[θ],p1[[i,2]]},{θ,0,2Pi,Pi/8}],{i,1,Length[p1]}];

pun2=Table[Table[{p2[[i,1]]Cos[θ],p2[[i,1]]Sin[θ],p2[[i,2]]},{θ,0,2Pi,Pi/8}],{i,1,Length[p2]}];

pun3=Table[Table[{p3[[i,1]]Cos[θ],p3[[i,1]]Sin[θ],p3[[i,2]]},{θ,0,2Pi,Pi/8}],{i,1,Length[p3]}];

pun4=Table[Table[{p4[[i,1]]Cos[θ],p4[[i,1]]Sin[θ],p4[[i,2]]},{θ,0,2Pi,Pi/8}],{i,1,Length[p4]}];

pun5=Table[Table[{p5[[i,1]]Cos[θ],p5[[i,1]]Sin[θ],p5[[i,2]]},{θ,0,2Pi,Pi/8}],{i,1,Length[p5]}];

pun6=Table[Table[{p6[[i,1]]Cos[θ],p6[[i,1]]Sin[θ],p6[[i,2]]},{θ,0,2Pi,Pi/8}],{i,1,Length[p6]}];

pun7=Table[Table[{p7[[i,1]]Cos[θ],p7[[i,1]]Sin[θ],p7[[i,2]]},{θ,0,2Pi,Pi/8}],{i,1,Length[p7]}];

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

x1=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.95]],
BSplineSurface[pun1,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

uk={0,0,0,1,2,3,3,3};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

x2=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.95]],
BSplineSurface[pun2,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

uk={0,0,0,1,2,3,3,3};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

x3=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.95]],
BSplineSurface[pun3,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

x4=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.95]],
BSplineSurface[pun4,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

uk={0,0,0,1,2,3,3,3};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

x5=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.95]],
BSplineSurface[pun5,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

x6=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.95]],
BSplineSurface[pun6,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

x7=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.95]],
BSplineSurface[pun7,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

Show[x1,x2,x3,x4,x5,x6,x7]

Corazón

Pinday Paz, Ana Mercedes

q1={{0,5},{0,5},{0,5},{0.1,5.},{2.5,6.8},{4.55,7.3},{7.1,6.3},{8.55,3.7},{7.7,0.7},{1.,-4.9},{0,-5},{-1.,-4.9},{-7.7,0.7},{-8.55,3.7},{-7.1,6.3},{-4.55,7.3},{-2.5,6.8},{-0.1,5.},{0,5},{0,5},{0,5}};

q2=q1/1.05;

q3=q1/1.1;

q4=q1/1.2;

q5=q1/1.3;

q6=q1/1.5;

q7=q1/2;

q8=q1/3;

q9={{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}};

p1=Table[Prepend[q1[[i]],0],{i,1,21}];

pp1=Table[Prepend[q2[[i]],0],{i,1,21}];

p2=Table[Prepend[q2[[i]],0.8],{i,1,21}];

p3=Table[Prepend[q3[[i]],1.6],{i,1,21}];

p4=Table[Prepend[q4[[i]],2.5],{i,1,21}];

p5=Table[Prepend[q5[[i]],3],{i,1,21}];

p6=Table[Prepend[q6[[i]],3.2],{i,1,21}];

p7=Table[Prepend[q7[[i]],3.4],{i,1,21}];

p8=Table[Prepend[q8[[i]],3.5],{i,1,21}];

p9=Table[Prepend[q9[[i]],3.6],{i,1,21}];

pp2=Table[Prepend[q2[[i]],-0.8],{i,1,21}];

pp3=Table[Prepend[q3[[i]],-1.6],{i,1,21}];

pp4=Table[Prepend[q4[[i]],-2.5],{i,1,21}];

pp5=Table[Prepend[q5[[i]],-3],{i,1,21}];

pp6=Table[Prepend[q6[[i]],-3.2],{i,1,21}];

pp7=Table[Prepend[q7[[i]],-3.4],{i,1,21}];

pp8=Table[Prepend[q8[[i]],-3.5],{i,1,21}];

pp9=Table[Prepend[q9[[i]],-3.6],{i,1,21}];

puntos={p9,p8,p7,p6,p5,p4,p3,p2,pp1,pp2,pp3,pp4,pp5,pp6,pp7,pp8,pp9};

uk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,19,19};

Graphics3D[{EdgeForm[],
Directive[Red,Specularity[Cyan,20]],
BSplineSurface[puntos,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}]

Estrella

Dioses Suárez, Carolina

p1={{5,0},{5,0},{5,0},{7,4},{2,4},{0,8},{-2,4},{-7,4},{-5,0},{-7,-4},{-2,-4},{0,-8},{2,-4},{7,-4},{5,0},{5,0},{5,0}};

p2=p1/1.2;

p3=p1/1.5;

p4=p1/2;

p5={{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}};

q1=Table[Append[p1[[i]],0],{i,1,Length[p1]}];

q2=Table[Append[p2[[i]],0.8],{i,1,Length[p2]}];

q3=Table[Append[p3[[i]],1.5],{i,1,Length[p3]}];

q4=Table[Append[p4[[i]],2],{i,1,Length[p4]}];

q5=Table[Append[p5[[i]],2],{i,1,Length[p5]}];

qq1=Table[Append[p1[[i]],0],{i,1,Length[p1]}];

qq2=Table[Append[p2[[i]],-0.8],{i,1,Length[p2]}];

qq3=Table[Append[p3[[i]],-1.5],{i,1,Length[p3]}];

qq4=Table[Append[p4[[i]],-2],{i,1,Length[p4]}];

qq5=Table[Append[p5[[i]],-2],{i,1,Length[p5]}];

pun1={qq5,qq4,qq3,qq2,q1,q2,q3,q4,q5};

uk={0,0,0,1,2,3,4,5,6,7,7,7};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[Cyan,20]],
BSplineSurface[pun1,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}]

Flor

Rentería Alva, Sonia Isabel

Petalo1

m1={{{0,0,0},{0,0,0},{0,0,0},{0,0,0},{0,0,0}},{{17.6,4,31.5},{-17.6,4,31.5},{-17.6,-4,31.5},{17.6,-4,31.5},{17.6,4,31.5}},{{16,4,74.5},{-16,4,74.5},{-16,-4,74.5},{16,-4,74.5},{16,4,74.5}},{{0,0,105},{0,0,105},{0,0,105},{0,0,105},{0,0,105}}};

uk={1,1,1,2,3,3,3};
vk={1,1,1,2,3,4,4,4};

d1=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[m1,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

Petalo2

m2={{{24.8,0,121},{24.8,0,121},{24.8,0,121},{24.8,0,121},{24.8,0,121}},{{44,4,52},{88,4,96},{88,-4,96},{44,-4,52},{44,4,52}},{{76.8,4,26.5},{110.4,4,62},{110.4,-4,62},{76.8,-4,26.5},{76.8,4,26.5}},{{108.8,0,28},{108.8,0,28},{108.8,0,28},{108.8,0,28},{108.8,0,28}}};

uk={1,1,1,2,3,3,3};
vk={1,1,1,2,3,4,4,4};

d2=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[m2,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

Petalo3

m3={{{54.4,0,174},{54.4,0,174},{54.4,0,174},{54.4,0,174},{54.4,0,174}},{{80.8,4,144},{73.6,4,194},{73.6,-4,194},{80.8,-4,144},{80.8,4,144}},{{131.2,4,142},{132.8,4,207.5},{132.8,-4,207.5},{131.2,-4,142},{131.2,4,142}},{{168.8,0,172},{168.8,0,172},{168.8,0,172},{168.8,0,172},{168.8,0,172}}};

uk={1,1,1,2,3,3,3};
vk={1,1,1,2,3,4,4,4};

d3=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[m3,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

Petalo4

m4={{{32.8,0,218.5},{32.8,0,218.5},{32.8,0,218.5},{32.8,0,218.5},{32.8,0,218.5}},{{87.2,4,230.5},{48,4,274},{48,-4,274},{87.2,-4,230.5},{87.2,4,230.5}},{{127.2,4,271.5},{103.2,4,309},{103.2,-4,309},{127.2,-4,271.5},{127.2,4,271.5}},{{128,0,300},{128,0,300},{128,0,300},{128,0,300},{128,0,300}}};

uk={1,1,1,2,3,3,3};
vk={1,1,1,2,3,4,4,4};

d4=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[m4,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

Petalo5

m5={{ {0,0,235.5},{0,0,235.5},{0,0,235.5},{0,0,235.5},{0,0,235.5}},{{12.8,4,271.5},{-12.8,4,271.5},{-12.8,-4,271.5},{12.8,-4,271.5},{12.8,4,271.5}},{{13.6,4,314},{-13.6,4,314},{-13.6,-4,314},{13.6,-4,314},{13.6,4,314}},{{0,0,380},{0,0,380},{0,0,380},{0,0,380},{0,0,380}}};

uk={1,1,1,2,3,3,3};
vk={1,1,1,2,3,4,4,4};

d5=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[m5,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

Petalo6

m6={{{-32.8`,0,218.5`},{-32.8`,0,218.5`},{-32.8`,0,218.5`},{-32.8`,0,218.5`},{-32.8`,0,218.5`}},{{-87.2`,4,230.5`},{-48,4,274},{-48,-4,274},{-87.2`,-4,230.5`},{-87.2`,4,230.5`}},{{-127.2`,4,271.5`},{-103.2`,4,309},{-103.2`,-4,309},{-127.2`,-4,271.5`},{-127.2`,4,271.5`}},{{-128,0,300},{-128,0,300},{-128,0,300},{-128,0,300},{-128,0,300}}};

uk={1,1,1,2,3,3,3};
vk={1,1,1,2,3,4,4,4};

d6=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[m6,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

Petalo7

m7={{{-54.4`,0,174},{-54.4`,0,174},{-54.4`,0,174},{-54.4`,0,174},{-54.4`,0,174}},{{-80.8`,4,144},{-73.6`,4,194},{-73.6`,-4,194},{-80.8`,-4,144},{-80.8`,4,144}},{{-131.2`,4,142},{-132.8`,4,207.5`},{-132.8`,-4,207.5`},{-131.2`,-4,142},{-131.2`,4,142}},{{-168.8`,0,172},{-168.8`,0,172},{-168.8`,0,172},{-168.8`,0,172},{-168.8`,0,172}}};

uk={1,1,1,2,3,3,3};
vk={1,1,1,2,3,4,4,4};

d7=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[m7,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

Petalo8

m8={{{-24.8`,0,121},{-24.8`,0,121},{-24.8`,0,121},{-24.8`,0,121},{-24.8`,0,121}},{{-44,4,52},{-88,4,96},{-88,-4,96},{-44,-4,52},{-44,4,52}},{{-76.8`,4,26.5`},{-110.4`,4,62},{-110.4`,-4,62},{-76.8`,-4,26.5`},{-76.8`,4,26.5`}},{{-108.8`,0,28},{-108.8`,0,28},{-108.8`,0,28},{-108.8`,0,28},{-108.8`,0,28}}};

uk={1,1,1,2,3,3,3};
vk={1,1,1,2,3,4,4,4};

d8=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[m8,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

Cara

m9={{{54.4,0,174},{54.4,0,174},{54.4,0,174},{54.4,0,174},{54.4,0,174}},{{24.8,4,121},{32.8,4,218.5},{32.8,-4,218.5},{24.8,-4,121},{24.8,4,121}},{{0,4,105},{0,4,235.5},{0,-4,235.5},{0,-4,105},{0,4,105}},{{-24.8`,4,121},{-32.8`,4,218.5`},{-32.8`,-4,218.5`},{-24.8`,-4,121},{-24.8`,4,121}},{{-54.4`,0,174},{-54.4`,0,174},{-54.4`,0,174},{-54.4`,0,174},{-54.4`,0,174}}};

uk={1,1,1,2,3,4,4,4};
vk={1,1,1,2,3,4,4,4};

d9=Graphics3D[{EdgeForm[],
Directive[Cyan,Specularity[White,20],Opacity[1.4]],
BSplineSurface[m9,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

Flor

Show[d1,d2,d3,d4,d5,d6,d7,d8,d9]

Manzana

More Hidalgo, Mariluz

malla1={{{0,0,10},{0,0,10},{0,0,10}},{{72.6,0,0},{53.2,59,0},{0,64.5,0}},{{114,0,40},{87.2,108,40},{0,107,40}},{{154.6,0,70},{138,124,70},{0,153,70}},{{236,0,125},{226.6,148,125},{0,214.5,125}},{{114,0,250},{87.2,108,250},{0,107,250}},{{0,0,180},{0,10,180},{0,0,180}}};

uk={1,1,1,2,3,4,5,6,6,6};
vk={1,1,1,2,2,2};

d1=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.8]],
BSplineSurface[malla1,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

malla2={{{0,0,10},{0,0,10},{0,0,10}},{{-72.6,0,0},{-53.2,59,0},{0,64.5,0}},{{-114,0,40},{-87.2,108,40},{0,107,40}},{{-154.6,0,70},{-138,124,70},{0,153,70}},{{-236,0,125},{-226.6,148,125},{0,214.5,125}},{{-114,0,250},{-87.2,108,250},{0,107,250}},{{0,0,180},{0,10,180},{0,0,180}}};

uk={1,1,1,2,3,4,5,6,6,6};
vk={1,1,1,2,2,2};

d2=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.8]],
BSplineSurface[malla2,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

malla3={{{0,0,10},{0,0,10},{0,0,10}},{{-72.6,0,0},{-53.2,-59,0},{0,-64.5,0}},{{-114,0,40},{-87.2,-108,40},{0,-107,40}},{{-154.6,0,70},{-138,-124,70},{0,-153,70}},{{-236,0,125},{-226.6,-148,125},{0,-214.5,125}},{{-114,0,250},{-87.2,-108,250},{0,-107,250}},{{0,0,180},{0,-10,180},{0,0,180}}};

uk={1,1,1,2,3,4,5,6,6,6};
vk={1,1,1,2,2,2};

d3=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.8]],
BSplineSurface[malla3,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

malla4={{{0,0,10},{0,0,10},{0,0,10}},{{72.6,0,0},{53.2,-59,0},{0,-64.5,0}},{{114,0,40},{87.2,-108,40},{0,-107,40}},{{154.6,0,70},{138,-124,70},{0,-153,70}},{{236,0,125},{226.6,-148,125},{0,-214.5,125}},{{114,0,250},{87.2,-108,250},{0,-107,250}},{{0,0,180},{0,-10,180},{0,0,180}}};

uk={1,1,1,2,3,4,5,6,6,6};
vk={1,1,1,2,2,2};

d4=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.8]],
BSplineSurface[malla4,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

malla5={{{58,0,231},{58,0,231}},{{90,0,230.5`},{51.2`,0,254.5`}},{{118,0,240.5`},{80,0,278}},{{141.2`,0,256.5`},{103.2`,0,285}},{{151.2`,0,264},{134.6`,0,282.5`}},{{189.2`,0,266.5`},{189.2`,0,266.5`}}};

uk={1,1,1,2,3,4,5,5,5};
vk={1,1,2,2};

d5=Graphics3D[{EdgeForm[],
PlotStyle->Directive[Green,Specularity[White,20],Opacity[0.8]],
BSplineSurface[malla5,SplineKnots->{uk,vk},SplineDegree->{2,1}]
}];

d6=Graphics3D[{Hue[0.35],Thickness[0.01],Line[{{0,0,180},{58,0,231}}]}];

Show[d1,d2,d3,d4,d5,d6,Boxed->False]

Mariposa

Castillo Benites, Mirtha Paola

matriz={{{0,0,0},{0,0,0},{0,0,0},{0,0,0}},{{0,0,30.4},{0,20,30.4},{20,20,30.4},{20,0,30.4}},{{0,0,60},{0,10.8,60},{20,10.8,60},{20,0,60}},{{0,0,90},{0,0,90},{0,0,90},{0,0,90}}};

uk={1,1,1,2,3,3,3};
vk={1,1,1,2,3,3,3};

a=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[White,20],Opacity[0.8]],
BSplineSurface[matriz,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

matriz1={{{0,0,0},{0,0,0},{0,0,0},{0,0,0}},{{0,0,30.4},{0,-20,30.4},{20,-20,30.4},{20,0,30.4}},{{0,0,60},{0,-10.8,60},{20,-10.8,60},{20,0,60}},{{0,0,90},{0,0,90},{0,0,90},{0,0,90}}};

uk={1,1,1,2,3,3,3};
vk={1,1,1,2,3,3,3};

b=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[White,20],Opacity[0.8]],
BSplineSurface[matriz1,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

matriz2={{{0,0,53},{0,0,70},{10,0,70},{10,0,53},{0,0,53}},{{0,47,55},{0,35,107},{10,35,107},{10,47,55},{0,47,55}},{{0,73,68},{0,52,112},{10,52,112},{10,73,68},{0,73,68}},{{0,93,98},{0,80,120},{10,80,120},{10,93,98},{0,93,98}},{{0,103,124},{0,103,124},{0,103,124},{0,103,124},{0,103,124}}};

uk={1,1,1,2,3,4,4,4};
vk={1,1,1,2,3,4,4,4};

c=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[White,20],Opacity[0.8]],
BSplineSurface[matriz2,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

matriz3={{{0,0,53},{0,0,70},{10,0,70},{10,0,53},{0,0,53}},{{0,-47,55},{0,-35,107},{10,-35,107},{10,-47,55},{0,-47,55}},{{0,-73,68},{0,-52,112},{10,-52,112},{10,-73,68},{0,-73,68}},{{0,-93,98},{0,-80,120},{10,-80,120},{10,-93,98},{0,-93,98}},{{0,-103,124},{0,-103,124},{0,-103,124},{0,-103,124},{0,-103,124}}};

uk={1,1,1,2,3,4,4,4};
vk={1,1,1,2,3,4,4,4};

d=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[White,20],Opacity[0.8]],
BSplineSurface[matriz3,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

matriz4={{{0,0,10},{0,10,53},{10,10,53},{10,0,10},{0,0,10}},{{0,17,-3},{0,50,46},{10,50,46},{10,17,-3},{0,17,-3}},{{0,37,-10},{0,70,25},{10,70,25},{10,37,-10},{0,37,-10}},{{0,62,-6},{0,73,6},{10,73,6},{10,62,-6},{0,62,-6}},{{0,70,-17},{0,82,0},{10,82,0},{10,70,-17},{0,70,-17}},{{0,89,-15},{0,89,-15},{0,89,-15},{0,89,-15},{0,89,-15}}};

uk={1,1,1,2,3,4,5,5,5};
vk={1,1,1,2,3,4,4,4};

e=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[White,20],Opacity[0.8]],
BSplineSurface[matriz4,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

matriz5={{{0,0,10},{0,-10,53},{10,-10,53},{10,0,10},{0,0,10}},{{0,-17,-3},{0,-50,46},{10,-50,46},{10,-17,-3},{0,-17,-3}},{{0,-37,-10},{0,-70,25},{10,-70,25},{10,-37,-10},{0,-37,-10}},{{0,-62,-6},{0,-73,6},{10,-73,6},{10,-62,-6},{0,-62,-6}},{{0,-70,-17},{0,-82,0},{10,-82,0},{10,-70,-17},{0,-70,-17}},{{0,-89,-15},{0,-89,-15},{0,-89,-15},{0,-89,-15},{0,-89,-15}}};

uk={1,1,1,2,3,4,5,5,5};
vk={1,1,1,2,3,4,4,4};

f=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[White,20],Opacity[0.8]],
BSplineSurface[matriz5,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

cabeza={7Cos[u]Cos[v],7Sin[u]Cos[v],7Sin[v]+90};
g=ParametricPlot3D[cabeza,{u,0,2π},{v,-π/2,π/2},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20],Opacity[0.8]]];

Show[a,b,c,d,e,f,g]

Mariposa3d

Pazo Medina, Jesús María

qq1={{0.28,4.48,0},{0.28,4.48,0},{0.28,4.48,0},{0.29,4.82,0},{0.87,5.14,0},{0.87,5.14,0},{0.87,5.14,0}};

a1=Graphics3D[{Red,BSplineCurve[qq1]}];

qq2={{-0.28,4.48,0},{-0.28,4.48,0},{-0.28,4.48,0},{-0.29,4.82,0},{-0.87,5.14,0},{-0.87,5.14,0},{-0.87,5.14,0}};

a2=Graphics3D[{Red,BSplineCurve[qq2]}];

Graphics3D[{BSplineCurve[pts],Green,Line[pts],Red,Point[pts]}]

ss1=ParametricPlot3D[{Cos[u]Cos[v],Sin[u]Cos[v],Sin[v]},{u,0,2Pi},{v,-Pi/2,Pi/2},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20],Opacity[0.8]],ExclusionsStyle->{None,Red}];
ss2=ParametricPlot3D[{0.8Cos[u]Cos[v],1.8+0.8Sin[u]Cos[v],0.25+0.8Sin[v]},{u,0,2Pi},{v,-Pi/2,Pi/2},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20],Opacity[0.8]],ExclusionsStyle->{None,Red}];
ss3=ParametricPlot3D[{0.6Cos[u]Cos[v],3.2+0.6Sin[u]Cos[v],0.25+0.6Sin[v]},{u,0,2Pi},{v,-Pi/2,Pi/2},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20],Opacity[0.8]],ExclusionsStyle->{None,Red}];
ss4=ParametricPlot3D[{0.4Cos[u]Cos[v],4.2+0.4Sin[u]Cos[v],0.4Sin[v]},{u,0,2Pi},{v,-Pi/2,Pi/2},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20],Opacity[0.8]],ExclusionsStyle->{None,Red}];

mm1=Graphics3D[{Blue,PointSize[0.03],Point[{0.87,5.14,0}],Point[{-0.87,5.14,0}]}];

c1[v_]:={0.8 Cos[v],1.8,0.25+0.8 Sin[v]}
c2[v_]:={0.6 Cos[v],1.8,-1.+0.6 Sin[v]}
c3[v_]:={Cos[v],0,Sin[v]}
c4[v_]:={0.9Cos[v],0,-1.4+0.9Sin[v]}
c5[v_]:={0.6 Cos[v],3.2,0.25+0.6 Sin[v]}
c6[v_]:={0.5Cos[v],3.2,-0.6+0.5 Sin[v]}

mm2=Show[
ParametricPlot3D[c1[v],{v,0,Pi},PlotStyle->{Green,Thick}],
ParametricPlot3D[c2[v],{v,0,Pi},PlotStyle->{Green,Thick}],
ParametricPlot3D[c3[v],{v,0,Pi},PlotStyle->{Green,Thick}],
ParametricPlot3D[c4[v],{v,0,Pi},PlotStyle->{Green,Thick}],
ParametricPlot3D[c5[v],{v,0,Pi},PlotStyle->{Green,Thick}],
ParametricPlot3D[c6[v],{v,0,Pi},PlotStyle->{Green,Thick}],
PlotRange->All];

pp1={{0,3.74,0},{0,3.74,0},{0,3.74,0},{1.09,4.18,0.5},{2.19,3.92,0.8},{2.62,2.78,1},{1.84,1.7,1.1},{2.71,0.8,1.1},{3.,-0.38,1},{2.16,-1.32,0.8},{0.88,-1.02,0.5},{0,0,0},{0,0,0},{0,0,0}};

pp3={{0,1.87+1,0},{0,1.87+1,0},{0,1.87+1,0},{0.545,2.09+1,0.5},{1.095`,1.96+1,0.8},{1.31`,1.39+1,1},{0.92`,0.85+1,1.1},{1.355`,0.4+1,1.1},{1.5`,-0.19+1,1},{1.08`,-0.66+1,0.8},{0.44`,-0.51+1,0.5},{0,0+1,0},{0,0+1,0},{0,0+1,0}};

pp2={{0,3.74,0},{0,3.74,0},{0,3.74,0},{-1.09,4.18,0.5},{-2.19,3.92,0.8},{-2.62,2.78,1},{-1.84,1.7,1.1},{-2.71,0.8,1.1},{-3.,-0.38,1},{-2.16,-1.32,0.8},{-0.88,-1.02,0.5},{0,0,0},{0,0,0},{0,0,0}};

pp4={{0,1.87+1,0},{0,1.87+1,0},{0,1.87+1,0},{-0.545,2.09+1,0.5},{-1.095`,1.96+1,0.8},{-1.31`,1.39+1,1},{-0.92`,0.85+1,1.1},{-1.355`,0.4+1,1.1},{-1.5`,-0.19+1,1},{-1.08`,-0.66+1,0.8},{-0.44`,-0.51+1,0.5},{0,0+1,0},{0,0+1,0},{0,0+1,0}};

p1={pp1,pp3};
p2={pp2,pp4};

p3={pp3,{{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0}}};

p4={pp4,{{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0},{0,2,0}}};

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,12,12};

t1=Graphics3D[{EdgeForm[],
Directive[Red,Specularity[White,20],Opacity[0.8]],
BSplineSurface[p1,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p2,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

t2=Graphics3D[{EdgeForm[],
Directive[Blue,Specularity[White,20],Opacity[0.8]],
BSplineSurface[p3,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p4,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

Show[a1,a2,mm1,mm2,ss1,ss2,ss3,ss4,t1,t2,PlotRange->All]

Monster

Ordinola Mena, María Isabel

Cuerpo

p1={{{0,0,0},{60,3,0},{107,47,0},{167,68,0},{258,83,0},{292,117,0},{288,166,0},{251,202,0},{168,204,0},{124,214,0},{92,231,0},{41,213,0},{0,230,0}},
{{0,43,100},{37,45,100},{97,63,100},{141,84,100},{171,104,100},{194,125,100},{188,144,100},{163,156,100},{136,168,100},{110,179,100},{83,185,100},{49,183,100},{0,187,100}},
{{0,43,170},{37,45,170},{97,63,170},{141,84,170},{171,104,170},{194,125,170},{188,144,170},{163,156,170},{136,168,170},{110,179,170},{83,185,170},{49,183,170},{0,187,170}},
{{0,29,230},{40,27,230},{58,30,230},{76,45,230},{88,56,230},{93,64,230},{107,95,230},{110,129,230},{95,152,230},{69,162,230},{48,168,230},{23,172,230},{0,173,230}},
{{0,29,270},{40,27,270},{58,30,270},{76,45,270},{88,56,270},{93,64,270},{107,95,270},{110,129,270},{95,152,270},{69,162,270},{48,168,270},{23,172,270},{0,173,270}},
{{0,44,340},{21,44,340},{50,61,340},{63,72,340},{72,91,340},{73,114,340},{65,129,340},{56,140,340},{44,149,340},{25,151,340},{11,152,340},{8,154,340},{0,151,340}},
{{0,63,380},{5,64,380},{9,65,380},{14,68,380},{17,69,380},{26,78,380},{31,88,380},{33,99,380},{27,112,380},{20,121,380},{12,127,380},{5,130,380},{0,131,380}},
{{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380}}};

p2={{{0,0,0},{-60,3,0},{-107,47,0},{-167,68,0},{-258,83,0},{-292,117,0},{-288,166,0},{-251,202,0},{-168,204,0},{-124,214,0},{-92,231,0},{-41,213,0},{0,230,0}},{{0,43,100},{-37,45,100},{-97,63,100},{-141,84,100},{-171,104,100},{-194,125,100},{-188,144,100},{-163,156,100},{-136,168,100},{-110,179,100},{-83,185,100},{-49,183,100},{0,187,100}},{{0,43,170},{-37,45,170},{-97,63,170},{-141,84,170},{-171,104,170},{-194,125,170},{-188,144,170},{-163,156,170},{-136,168,170},{-110,179,170},{-83,185,170},{-49,183,170},{0,187,170}},{{0,29,230},{-40,27,230},{-58,30,230},{-76,45,230},{-88,56,230},{-93,64,230},{-107,95,230},{-110,129,230},{-95,152,230},{-69,162,230},{-48,168,230},{-23,172,230},{0,173,230}},{{0,29,270},{-40,27,270},{-58,30,270},{-76,45,270},{-88,56,270},{-93,64,270},{-107,95,270},{-110,129,270},{-95,152,270},{-69,162,270},{-48,168,270},{-23,172,270},{0,173,270}},{{0,44,340},{-21,44,340},{-50,61,340},{-63,72,340},{-72,91,340},{-73,114,340},{-65,129,340},{-56,140,340},{-44,149,340},{-25,151,340},{-11,152,340},{-8,154,340},{0,151,340}},{{0,63,380},{-5,64,380},{-9,65,380},{-14,68,380},{-17,69,380},{-26,78,380},{-31,88,380},{-33,99,380},{-27,112,380},{-20,121,380},{-12,127,380},{-5,130,380},{0,131,380}},{{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380},{0,94,380}}};

uk={1,1,1,2,3,4,5,6,7,7,7};
vk={1,1,1,2,3,4,5,6,7,8,9,10,11,12,12,12};

t1=Graphics3D[{EdgeForm[],
Directive[Cyan,Specularity[White,20],Opacity[1.4]],
BSplineSurface[p1,SplineKnots->{uk,vk},SplineDegree->{2,2}],
BSplineSurface[p2,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

ojo

o1={{{0,40.5,250},{0,40.5,250},{0,40.5,250}},{{0,25,300},{27.2,16.5,300},{44,36.5,300}},{{0,40.5,320},{0,40.5,320},{0,40.5,320}}};

o2={{{0,40.5`,250},{0,40.5`,250},{0,40.5`,250}},{{0,25,300},{-27.2`,16.5`,300},{-44,36.5`,300}},{{0,40.5`,320},{0,40.5`,320},{0,40.5`,320}}};

uk={1,1,1,2,2,2};
vk={1,1,1,2,2,2};

t2=Graphics3D[{EdgeForm[],
Directive[White,Specularity[White,20],Opacity[1.4]],
BSplineSurface[o1,SplineKnots->{uk,vk},SplineDegree->{2,2}],
BSplineSurface[o2,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

niña

t3=Graphics3D[{PointSize[0.03],Point[{{0,30,300}}]}];

Monster

Show[t1,t2,t3,Boxed->False]

Pato

Rojas Ramírez, Eris Nilda

Cuerpo

x1[u_,v_]:={3Cos[u]Cos[v],3Sin[u]Cos[v],4Sin[v]}

cuerpo=ParametricPlot3D[x1[u,v],{u,0,2Pi},{v,-Pi/2,Pi/2},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20]],ExclusionsStyle->{None,Red}];

Patas

α1[t_]:=x1[t,0]

α1[4Pi/3];

α1[10Pi/6];

v1=α1[Pi/2]-α1[4Pi/3];

vv1={0,0,1};

vv11={(Sqrt[2])/2,0,(Sqrt[2])/2};

vv111={-(Sqrt[2])/2,0,(Sqrt[2])/2};

pa=-1.3v1+α1[Pi/2];

paa=1.2vv1+pa;

paa1=1.2vv11+pa;

paaa1=1.2vv111+pa;

v2=α1[Pi/2]-α1[10Pi/6];

vv2={0,0,1};

vv22={(Sqrt[2])/2,0,(Sqrt[2])/2};

vv222={-(Sqrt[2])/2,0,(Sqrt[2])/2};

pb=-1.3v2+α1[Pi/2];

pbb=1.2vv2+pb;

pbb1=1.2vv22+pb;

pbbb1=1.2vv222+pb;

patas=Show[Graphics3D[{Blue,PointSize[0.03],Point[α1[4Pi/3]]}],Graphics3D[{Blue,PointSize[0.03],Point[α1[10Pi/6]]}],Graphics3D[{Green,PointSize[0.03],Point[pa]}],Graphics3D[{Green,PointSize[0.03],Point[pb]}],Graphics3D[{Yellow,Thickness[0.05],Line[{α1[4Pi/3],pa}]}],Graphics3D[{Yellow,Thickness[0.05],Line[{α1[10Pi/6],pb}]}],Graphics3D[{Yellow,Thickness[0.03],Line[{pa,paa}]}],Graphics3D[{Yellow,Thickness[0.03],Line[{pb,pbb}]}],Graphics3D[{Yellow,Thickness[0.03],Line[{pa,paa1}]}],Graphics3D[{Yellow,Thickness[0.03],Line[{pa,paaa1}]}],Graphics3D[{Yellow,Thickness[0.03],Line[{pb,pbb1}]}],Graphics3D[{Yellow,Thickness[0.03],Line[{pb,pbbb1}]}],PlotRange->All];

Alas

α2[t_]:={3+1.8Cos[t],1,2Sin[t]}

α3[t_]:={-3+1.8Cos[t],1,2Sin[t]}

m1=ParametricPlot3D[α2[t],{t,0,2Pi},PlotStyle->{Yellow,Thick}];

m2=ParametricPlot3D[α3[t],{t,0,2Pi},PlotStyle->{Yellow,Thick}];

p1={Table[α2[i],{i,0,2Pi,Pi/8}],{{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0},{3,1,0}}};

p2={Table[α3[i],{i,0,2Pi,Pi/8}],{{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0},{-3,1,0}}};

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

alas=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[Yellow,20]],
BSplineSurface[p1,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[p2,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

Cola

α4[t_]:={4Cos[t],0,-3.+4Sin[t]}

puncola={Table[{α4[i][[1]],α4[i][[2]]+3,α4[i][[3]]},{i,4,5.4,0.2}],{{0,0,-3.},{0,0,-3.},{0,0,-3.},{0,0,-3.},{0,0,-3.},{0,0,-3.},{0,0,-3.},{0,0,-3}}};

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,6,6};

cola=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[Yellow,20]],
BSplineSurface[puncola,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

Cabeza

x2[{u_,v_}]:={2Cos[u]Cos[v],3+2Sin[u]Cos[v],4+2Sin[v]}

cabeza=ParametricPlot3D[x2[{u,v}],{u,0,2Pi},{v,-Pi/2,Pi/2},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20]],ExclusionsStyle->{None,Red}];

Ojos

α5[t_]:=x2[{0.5,t}]

α6[t_]:=x2[{-0.5,t}]

ojos=Show[Graphics3D[{Black,PointSize[0.04],Point[α5[1]]}],Graphics3D[{Black,PointSize[0.04],Point[α6[2.2]]}]];

Pico

x3[{u_,v_}]:={3Cos[u]Cos[v],3+3Sin[u]Cos[v],4+3Sin[v]}

α7[t_]:={-Pi/2+Cos[t],Pi/3+0.2Sin[t]}

α8[t_]:={-Pi/2+0.3Cos[t],Pi/3+0.01Sin[t]}

β7[t_]:=x2[α7[t]]

β8[t_]:=x3[α8[t]]

punpico={Table[β7[i],{i,0,2Pi,Pi/4}],Table[β8[i],{i,0,2Pi,Pi/4}]}//N;

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,7,7};

pico=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[Yellow,20]],
BSplineSurface[punpico,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

Pato

Show[cuerpo,patas,alas,cola,cabeza,ojos,pico,Boxed->False,Axes->False,PlotRange->All,ViewPoint->{1.7563412792956326`,0.870800947336656,2.7580737881281876`},ViewVertical->{0.2313646607334848,1.3640889067440045`,0.3272766787714351}]

Frasco de perfume

Pacherrez Rojas, Rosa Haymeé

Definiciones previas

a[t_]:={0.15,0.5Sin[t],0.3Cos[t]}

y[{u_,v_}]:={Cos[u],Sin[u],v}

α0[t_]:={Pi+(Pi/2.5)Cos[t],(Pi/2.5)Sin[t]}

α1[t_]:={Pi+(Pi/3)Cos[t],(Pi/3)Sin[t]}

α2[t_]:={Pi+(Pi/4)Cos[t],(Pi/4)Sin[t]}

α3[t_]:={Pi+(Pi/6)Cos[t],(Pi/6)Sin[t]}

α4[t_]:={Pi+(Pi/10)Cos[t],(Pi/10)Sin[t]}

α5[t_]:={-1.3+1.9Cos[t],-1.3+1.3Sin[t],0}

α6[t_]:={0.35Cos[t],0.35Sin[t]}

β0[t_]:=y[α0[t]]

β1[t_]:=y[α1[t]]

β2[t_]:=y[α2[t]]

β3[t_]:=y[α3[t]]

β4[t_]:=y[α4[t]]

x1[{u_,v_}]:={v,0.35Cos[u],0.35Sin[u]}

x2[u_,v_]:={v,0.3Cos[u],0.3Sin[u]}

x3[u_,v_]:={v,0.25Cos[u],0.25Sin[u]}

puntos

p0=Table[β0[i],{i,0,2Pi,Pi/8}]//N;

p1=Table[β1[i],{i,0,2Pi,Pi/8}]//N;

p2=Table[β2[i],{i,0,2Pi,Pi/8}]//N;

p3=Table[β3[i],{i,0,2Pi,Pi/8}]//N;

p4=Table[β4[i],{i,0,2Pi,Pi/8}]//N;

p5=Table[a[i],{i,-Pi/2,2Pi-Pi/2,Pi/8}];

p6={Table[x1[{i,-0.9}],{i,0,2Pi,Pi/8}],Table[x1[{i,-1.3}],{i,0,2Pi,Pi/8}]};

p7={Table[x2[i,-1.3],{i,0,2Pi,Pi/8}],Table[x2[i,-1.35],{i,0,2Pi,Pi/8}]};

p8={Table[x3[i,-1.35],{i,0,2Pi,Pi/8}],Table[x3[i,-1.6],{i,0,2Pi,Pi/8}]};

pun1={p0,p1,p2,p3,p4,{{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0},{-1,0,0}}};

pun2={p5,{{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0},{0.15,0,0}}};

pun3={p0,p5};

pun4=p6;

pun5=p7;

pun6=p8;

pun7={Table[x3[i,-1.6],{i,0,2Pi,Pi/8}],{{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0},{-1.6,0,0}}};

kk={{0.413,0.033},{0.28,0.138},{0.208,0.27},{0.18,0.42},{0.1,0.54},{0,0.55},{-0.1,0.54},{-0.188,0.42},{-0.208,0.277},{-0.283,0.138},{-0.413,0.033},{-0.48,-0.15},{-0.46,-0.34},{-0.36,-0.47},{-0.18,-0.55},{0,-0.55},{0.18,-0.55},{0.36,-0.472},{0.469,-0.34},{0.48,-0.15},{0.413,0.033}};

aa1=Table[Prepend[kk[[i]],-1.75],{i,1,21}];

aa2=Table[x2[i,-1.3],{i,0,2Pi,Pi/10}];

pun8={aa1,aa2};

partes

bb=ParametricPlot3D[x1[{u,v}],{u,0,2Pi},{v,-0.9,-1.3},Mesh->None,PlotStyle->Directive[Cyan,Specularity[Cyan,20],Opacity[0.8]],ExclusionsStyle->{None,Cyan}];

cc=ParametricPlot3D[x2[u,v],{u,0,2Pi},{v,-1.3,-1.35},Mesh->None,PlotStyle->Directive[Cyan,Specularity[Cyan,20],Opacity[0.8]],ExclusionsStyle->{None,Cyan}];

dd=ParametricPlot3D[x3[u,v],{u,0,2Pi},{v,-1.35,-1.6},Mesh->None,PlotStyle->Directive[Cyan,Specularity[Cyan,20],Opacity[0.8]],ExclusionsStyle->{None,Cyan}];

ee=ParametricPlot3D[α5[t],{t,Pi/4,Pi/2},PlotStyle->{Black,Thickness[0.03]}];

uk={0,0,0,1,2,3,4,4,4};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

m1=Graphics3D[{EdgeForm[],
Directive[Cyan,Specularity[Cyan,20],Opacity[0.8]],
BSplineSurface[pun1,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

m2=Graphics3D[{EdgeForm[],
Directive[Cyan,Specularity[Cyan,20],Opacity[0.8]],
BSplineSurface[pun2,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[pun3,SplineKnots->{uk,vk},SplineDegree->{1,2}],
BSplineSurface[pun7,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,19,19};

m3=Graphics3D[{EdgeForm[],
Directive[Cyan,Specularity[Cyan,20],Opacity[0.8]],
BSplineSurface[pun8,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

pp=Graphics3D[{Black,PointSize[0.03],Point[x3[0,-1.475]]}];

Frasco terminado

Show[m1,m2,m3,bb,cc,dd,ee,pp,Boxed->False,ViewPoint->{-0.84187843740762,-2.832235930207908,1.6491453338828082`},ViewVertical->{-1.2275602225215758`,-0.4096828794795779,0.2065077428668018}]

Pucca

Yarleque Zavaleta, Maribel Roxana

carita

x2[{u_,v_}]:={3.85Cos[u]Cos[v],4.85Sin[u]Cos[v],11+3.85Sin[v]}

x1[{u_,v_}]:={4Cos[u]Cos[v],5Sin[u]Cos[v],11+4Sin[v]}

α0[t_]:={1.3Cos[t],1.3Sin[t]}

α1[t_]:={Cos[t],Sin[t]}

α2[t_]:={0.75Cos[t],0.75Sin[t]}

α3[t_]:={0.5Cos[t],0.5Sin[t]}

α4[t_]:={0.25Cos[t],0.25Sin[t]}

α5[t_]:={0Cos[t],0Sin[t]}

α6[t_]:=x1[{Pi/2,t}]

β0[t_]:=x1[α0[t]]

β1[t_]:=x1[α1[t]]

β2[t_]:=x1[α2[t]]

β3[t_]:=x1[α3[t]]

β4[t_]:=x1[α4[t]]

β5[t_]:=x1[α5[t]]

m1=ParametricPlot3D[x2[{u,v}],{u,0,2Pi},{v,-Pi/2,Pi/2},Axes->False,Mesh->None,PlotStyle->Directive[Black,Specularity[Cyan,20]],ExclusionsStyle->{None,Cyan}];

m0=ParametricPlot3D[β0[t],{t,Pi/4,Pi/2+Pi/4},PlotStyle->{Green,Thick}];

m2=ParametricPlot3D[β1[t],{t,Pi/4,Pi/2+Pi/4},PlotStyle->{Green,Thick}];

m3=ParametricPlot3D[β2[t],{t,0,2Pi},PlotStyle->{Red,Thick}];

m4=ParametricPlot3D[β3[t],{t,0,2Pi},PlotStyle->{Red,Thick}];

m5=ParametricPlot3D[β4[t],{t,0,2Pi},PlotStyle->{Red,Thick}];

m6=ParametricPlot3D[β5[t],{t,0,2Pi},PlotStyle->{Red,Thick}];

m7=ParametricPlot3D[α6[t],{t,0.3,0.9},PlotStyle->{Red,Thickness[0.03]}];

m8=ParametricPlot3D[α6[t],{t,2.3,2.9},PlotStyle->{Red,Thickness[0.03]}];

puncara1=Table[β1[i],{i,0,2Pi,Pi/8}];

puncara2=Table[β2[i],{i,0,2Pi,Pi/8}];

puncara3=Table[β3[i],{i,0,2Pi,Pi/8}];

puncara4=Table[β4[i],{i,0,2Pi,Pi/8}];

puncara5=Table[β5[i],{i,0,2Pi,Pi/8}];

puncara={puncara1,puncara2,puncara3,puncara4,puncara5};

uk={0,0,0,1,2,3,3,3};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

sup1=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[Cyan,20]],
BSplineSurface[puncara,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

ojos

l1[t_]:={-0.75,0}(1-t)+{-0.25,-0.25}t

l2[t_]:={0.75,0}(1-t)+{0.25,-0.25}t

l3[t_]:={0.13Cos[t],-0.5+0.13Sin[t]}

l4[t_]:={-0.4,0.4}(1-t)+α1[Pi/2+Pi/4]t

l5[t_]:={0.4,0.4}(1-t)+α1[Pi/4]t

l6[t_]:={-0.5+0.15Cos[t],-0.5+0.15Sin[t]}

l7[t_]:={0.5+0.15Cos[t],-0.5+0.15Sin[t]}

k1[t_]:=x1[l1[t]]

k2[t_]:=x1[l2[t]]

k3[t_]:=x1[l3[t]]

k4[t_]:=x1[l4[t]]

k5[t_]:=x1[l5[t]]

k6[t_]:=x1[l6[t]]

k7[t_]:=x1[l7[t]]

ojo1=ParametricPlot3D[k1[t],{t,0,1},PlotStyle->{Black,Thick}];

ojo2=ParametricPlot3D[k2[t],{t,0,1},PlotStyle->{Black,Thick}];

boca=ParametricPlot3D[k3[t],{t,Pi,2Pi},PlotStyle->{Black,Thick}];

ceja1=ParametricPlot3D[k4[t],{t,0,1},PlotStyle->{Black,Thick}];

ceja2=ParametricPlot3D[k5[t],{t,0,1},PlotStyle->{Black,Thick}];

sup9=Show[ojo1,ojo2,boca,ceja1,ceja2,PlotRange->All];

orejas

δ1[t_]:={0,5+2Cos[t],14+2Sin[t]}

δ2[t_]:={0,-5+2Cos[t],14+2Sin[t]}

p1=ParametricPlot3D[δ1[t],{t,0,2Pi},PlotStyle->{Red,Thick}];

p2=ParametricPlot3D[δ2[t],{t,0,2Pi},PlotStyle->{Red,Thick}];

punorejaderecha={Table[δ1[i],{i,0,2Pi,Pi/8}],{{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14},{0,5,14}}};

punorejaizquierda={Table[δ2[i],{i,0,2Pi,Pi/8}],{{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14},{0,-5,14}}};

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

sup2=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[Cyan,20]],
BSplineSurface[punorejaderecha,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

sup3=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[Cyan,20]],
BSplineSurface[punorejaizquierda,SplineKnots->{uk,vk},SplineDegree->{2,2}]
}];

Antenas

a1[t_]:={0,5+4Cos[t],14.5+3.8Sin[t]}

a2[t_]:={0,-5+4Cos[t],14.5+4Sin[t]}

antenaderecha=Show[ParametricPlot3D[a1[t],{t,Pi/2,Pi},PlotStyle->{Black,Thick}],Graphics3D[{Black,PointSize[0.03],Point[a1[Pi/2]]}]];

antenaizquierda=Show[ParametricPlot3D[a2[t],{t,0,Pi/2},PlotStyle->{Black,Thick}],Graphics3D[{Black,PointSize[0.03],Point[a2[Pi/2]]}]];

sup4=Show[antenaderecha,antenaizquierda,PlotRange->All];

ρ[t_]:={0,4,3}(1-t)+{0,2.5,8}t

s1=ParametricPlot3D[ρ[t],{t,0,1},PlotStyle->{Red,Thick},PlotRange->{{0,5},{0,7}}];

ω[t_,v_]:={0.8ρ[t][[2]]Cos[v],ρ[t][[2]]Sin[v],ρ[t][[3]]}

cuerpo1=ParametricPlot3D[ω[t,v],{t,0,1/3},{v,0,2Pi},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20]],ExclusionsStyle->{None,Red}];

cuerpo2=ParametricPlot3D[ω[t,v],{t,1/3,2/3},{v,0,2Pi},Mesh->None,PlotStyle->Directive[Black,Specularity[White,20]],ExclusionsStyle->{None,Red}];

cuerpo3=ParametricPlot3D[ω[t,v],{t,2/3,1},{v,0,2Pi},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20]],ExclusionsStyle->{None,Red}];

sup5=Show[cuerpo1,cuerpo2,cuerpo3,PlotRange->All];

brazos

b1[t_]:={0,1.5,0}(1-t)+{0,1,6}t

AA={0,4.5,4.5};
BB={0,3,8.25};
v1=(BB-AA)/Sqrt[(BB-AA).(BB-AA)];
v2={0,v1[[3]],-v1[[2]]};
CC=v2+AA;
v3=Cross[v1,v2]/Sqrt[Cross[v1,v2].Cross[v1,v2]];
DD=v3+AA;

AAA={0,-4.5,4.5};
BBB={0,-3,8.25};
vv1=(BBB-AAA)/Sqrt[(BBB-AAA).(BBB-AAA)];
vv2={0,vv1[[3]],-vv1[[2]]};
CCC=vv2+AAA;
vv3=Cross[vv1,vv2]/Sqrt[Cross[vv1,vv2].Cross[vv1,vv2]];
DDD=vv3+AAA;

vec1=Show[Graphics3D[Line[{AA,BB}]],Graphics3D[Line[{AA,CC}]],Graphics3D[Line[{AA,DD}]]];

vec2=Show[Graphics3D[Line[{AAA,BBB}]],Graphics3D[Line[{AAA,CCC}]],Graphics3D[Line[{AAA,DDD}]]];

λ1[t_,s_]:=(0.8b1[t][[2]]Cos[s])v3+(6.1+0.8b1[t][[2]]Sin[s])v2+(3.5+0.5b1[t][[3]])v1

λ2[t_,s_]:=(0.8b1[t][[2]]Cos[s])vv3+(-6.1+0.8b1[t][[2]]Sin[s])vv2+(3.5+0.5b1[t][[3]])vv1

brazoderecho=ParametricPlot3D[λ1[t,s],{t,0,1},{s,0,2Pi},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20]],ExclusionsStyle->{None,Red}];

brazoizquierdo=ParametricPlot3D[λ2[t,s],{t,0,1},{s,0,2Pi},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,20]],ExclusionsStyle->{None,Red}];

sup7=Show[brazoderecho,brazoizquierdo,PlotRange->All];

manos

σ1[u_,v_]:={0.8Cos[u]Cos[v],4.4+0.8Sin[u]Cos[v],5.3+0.8Sin[v]}

σ2[u_,v_]:={0.8Cos[u]Cos[v],-4.4+0.8Sin[u]Cos[v],5.3+0.8Sin[v]}

manoderecha=ParametricPlot3D[σ1[u,v],{u,0,2Pi},{v,-Pi/2,Pi/2},Mesh->None,PlotStyle->Directive[Black,Specularity[White,20]],ExclusionsStyle->{None,Red}];

manoizquierda=ParametricPlot3D[σ2[u,v],{u,0,2Pi},{v,-Pi/2,Pi/2},Mesh->None,PlotStyle->Directive[Black,Specularity[White,20]],ExclusionsStyle->{None,Red}];

sup8=Show[manoderecha,manoizquierda];

piernas

ν1[u_,v_]:={Cos[u],1.5+Sin[u],v}

ν2[u_,v_]:={Cos[u]Cos[v],1.5+Sin[u]Cos[v],1+Sin[v]}

ν3[u_,v_]:={Cos[u],-1.5+Sin[u],v}

ν4[u_,v_]:={Cos[u]Cos[v],-1.5+Sin[u]Cos[v],1+Sin[v]}

piernaderecha=ParametricPlot3D[ν1[u,v],{v,1,4},{u,0,2Pi},Mesh->None,PlotStyle->Directive[Black,Specularity[White,20]],ExclusionsStyle->{None,Red}];

piederecho=ParametricPlot3D[ν2[u,v],{v,-Pi/2,0},{u,0,2Pi},Mesh->None,PlotStyle->Directive[Black,Specularity[White,20]],ExclusionsStyle->{None,Red}];

piernaizquierda=ParametricPlot3D[ν3[u,v],{v,1,4},{u,0,2Pi},Mesh->None,PlotStyle->Directive[Black,Specularity[White,20]],ExclusionsStyle->{None,Red}];

pieizquierda=ParametricPlot3D[ν4[u,v],{v,-Pi/2,0},{u,0,2Pi},Mesh->None,PlotStyle->Directive[Black,Specularity[White,20]],ExclusionsStyle->{None,Red}];

sup6=Show[piernaderecha,piederecho,piernaizquierda,pieizquierda,PlotRange->All];

ñ1=Table[β0[i],{i,Pi/4,Pi/2+Pi/4,Pi/8}];

ñ2=Table[β1[i],{i,Pi/4,Pi/2+Pi/4,Pi/8}]//N;

cha={ñ1,ñ2};

uk={0,0,1,1};
vk={0,0,0,1,2,3,3,3};

sup10=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[Cyan,20]],
BSplineSurface[cha,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

chapas

o1={Table[k6[i],{i,0,2Pi,Pi/4}],{x1[{-0.5,-0.5}],x1[{-0.5,-0.5}],x1[{-0.5,-0.5}],x1[{-0.5,-0.5}],x1[{-0.5,-0.5}],x1[{-0.5,-0.5}],x1[{-0.5,-0.5}],x1[{-0.5,-0.5}],x1[{-0.5,-0.5}]}};

o2={Table[k7[i],{i,0,2Pi,Pi/4}],{x1[{0.5,-0.5}],x1[{0.5,-0.5}],x1[{0.5,-0.5}],x1[{0.5,-0.5}],x1[{0.5,-0.5}],x1[{0.5,-0.5}],x1[{0.5,-0.5}],x1[{0.5,-0.5}],x1[{0.5,-0.5}]}};

uk={0,0,1,1};
vk={0,0,0,1,2,3,4,5,6,7,7,7};

sup11=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[Cyan,20]],
BSplineSurface[o1,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

sup12=Graphics3D[{EdgeForm[],
Directive[Orange,Specularity[Cyan,20]],
BSplineSurface[o2,SplineKnots->{uk,vk},SplineDegree->{1,2}]
}];

Pucca

Show[m1,sup1,sup2,sup3,sup4,sup5,sup6,sup7,sup8,sup9,sup10,m7,m8,sup11,sup12,PlotRange->All,Axes->False,Boxed->False,ViewPoint->{3.2183752586532814`,1.044088083723215,-0.04405414754151694},ViewVertical->{1.3506679007231304`,0.24132257789087824`,0.7988623566707341}]

La máscara

Rufino Córdova, Julio César

Previos

C1:={0,8.9,9.12};
C2:={0,9.5,7.92};
C3:={0,10.05,7};
C4:={0,9.6,6.2};
c4:={0,9.6,6.02};
C6:={0,11.5,3.3};
C5:={0,10,5};
C7:={0,10.45,3.2};
C8:={0,9.9,2.85};
C9:={0,10.1,2.4};
C10:={0,9.88,2.2};
C11:={0,10.01,2};
C12:={0,9.75,1.5};
C13:={0,10,1};
C14:={0,9.2,0.4};
C15:={2.2,8.8,9};
C16:={-2.2,8.8,9};
C17:={2,9.30,7.9};
C18:={-2,9.30,7.9};
C19:={0.7,9.95,7};
C20:={-0.7,9.95,7};
C21:={0.6,9.4,6.4};
C22:={-0.6,9.4,6.4};
C23:={0.6,9.3,5.5};
C24:={-0.6,9.3,5.5};
C25:={0.7,9.5,4.7};
C26:={-0.7,9.5,4.7};
C27:={0.85,9.8,3.75};
C28:={-0.85,9.8,3.75};
C29:={0.95,9.55,3.5};
C30:={-0.95,9.55,3.5};
C31:={0.2,9.75,3.18};
C32:={-0.2,9.75,3.18};
C33:={1.1,9.7,2.7};
C34:={-1.1,9.7,2.7};
C35:={0.85,9.8,2.4};
C36:={-0.85,9.8,2.4};
C37:={0.855,9.6,2.1};
C38:={-0.855,9.6,2.1};
C39:={0.845,9.75,1.99};
C40:={-0.845,9.75,1.99};
C41:={0.75,9.65,1.48};
C42:={-0.75,9.65,1.48};
C43:={0.65,9.85,0.98};
C44:={-0.65,9.85,0.98};
C45:={0.09,9.19,0.4};
C46:={-0.09,9.19,0.4}
C47:={3.3,7.6,8.73};
C48:={-3.3,7.6,8.73}
C49:={3.09,7.75,7.5};
C50:={-3.09,7.75,7.5};
C51:={2.32,9.33,6.5};
C52:={-2.32,9.33,6.5};
C53:={1.72,9.27,6.3};
C54:={-1.72,9.27,6.3};
C55:={1.78,9.15,5.9};
C56:={-1.78,9.15,5.9};
C57:={2.2,9.49,4.68};
C58:={-2.2,9.49,4.68};
C59:={2.63,9.35,3.99};
C60:={-2.63,9.35,3.99};
C61:={1.2,9.7,3.1};
C62:={-1.2,9.7,3.1};
C63:={1.9,9.35,2.6};
C64:={-1.9,9.35,2.6};
C65:={1.45,9.4,2.2};
C66:={-1.45,9.4,2.2};
C67:={1.35,9.35,1.95};
C68:={-1.35,9.35,1.95};
C69:={1.34,9.34,1.94};
C70:={-1.34,9.34,1.94};
C71:={1.27,9.34,1.4};
C72:={-1.27,9.34,1.4};
C73:={1.23,9.4,0.98};
C74:={-1.23,9.4,0.98};
C75:={0.9,8.35,0.2};
C76:={-0.9,8.35,0.2};
C77:={3.43,7.2,8.69};
C78:={-3.43,7.2,8.69};
C79:={3.451,7,8.64};
C80:={-3.451,7,8.64};
C81:={3.5,7,7.45};
C82:={-3.5,7,7.45};
C83:={3.5,6.85,7.44};
C84:={-3.5,6.85,7.44};
C85:={2.77,9.01,6.4};
C86:={-2.77,9.01,6.4};
C87:={3.45,6.8,6.6};
C88:={-3.45,6.8,6.6};
C89:={2.5,9.2,6.1};
C90:={-2.5,9.2,6.1};
C91:={3.45,6.8,6.1};
C92:={-3.45,6.8,6.1};
C95:={2.65,8.5,6};
C96:={-2.65,8.5,6};
C93:={3.44,6.8,5.8};
C94:={-3.44,6.8,5.8};
C97:={2.6,9,4.9};
C98:={-2.6,9,4.9};
C99:={3.42,6.9,5.1};
C100:={-3.42,6.8,5.1};
C101:={3.42,6.8,4.1};
C102:={-3.42,6.9,4.1};
C103:={2.45,9,3.1};
C104:={-2.45,9,3.1};
C105:={3.35,6.9,3};
C106:={-3.35,6.9,3};
C107:={2.22,9.05,2.5};
C108:={-2.22,9.05,2.5};
C109:={3.1,6.9,2.47};
C110:={-3.1,6.9,2.47};
C111:={1.9,9.05,1.98};
C112:={-1.9,9.05,1.98};
C113:={2.9,6.9,2};
C114:={-2.9,6.9,2};
C115:={1.9,8.95,1.93};
C116:={-1.9,8.95,1.93};
C117:={2.9,6.7,1.84};
C118:={-2.9,6.7,1.84};
C119:={1.9,9.05,1.93};
C120:={-1.9,9.05,1.93};
C121:={2.85,6.7,1.78};
C122:={-2.85,6.7,1.78};
C123:={1.77,8.75,1.3};
C124:={-1.77,8.75,1.3};
C125:={2.7,6.7,1.3};
C126:={-2.7,6.7,1.3};
C127:={1.5,8.9,0.98};
C128:={-1.5,8.9,0.98};
C129:={2.6,6.7,1.1};
C130:={-2.6,6.7,1.1};
C131:={1.65,7.5,0.2};
C132:={-1.65,7.5,0.2};
C133:={2.1,6.7,0.2};
C134:={-2.1,6.7,0.2};
c44:={0,9.6,6};
c441:={0.35,9.5,6};
c442:={-0.35,9.5,6};
c443:={0.95,9.6,6};
c444:={-0.95,9.6,6};
c445:={2.5,9.2,6.1};
c446:={-2.5,9.2,6.1};
c447:={3.45,6.8,6.1};
c448:={-3.45,6.8,6.1}

jj={{C133,C131,C75,C45,C14,C46,C76,C132,C134},{C129,C127,C73,C43,C13,C44,C74,C128,C130},{C125,C123,C71,C41,C12,C42,C72,C124,C126},{C121,C119,C69,C39,C11,C40,C70,C120,C122},{C117,C115,C67,C37,C10,C38,C68,C116,C118},{C113,C111,C65,C35,C9,C36,C66,C112,C114},{C109,C107,C63,C33,C8,C34,C64,C108,C110},{C105,C103,C61,C31,C7,C32,C62,C104,C106},{C101,C59,C29,C27,C6,C28,C30,C60,C102},{C99,C97,C57,C25,C5,C26,C58,C98,C100},{C93,C95,C55,C23,c4,C24,C56,C96,C94},{c447,c445,c443,c441,c44,c442,c444,c446,c448},{C91,C89,C53,C21,C4,C22,C54,C90,C92},{C87,C85,C51,C19,C3,C20,C52,C86,C88},{C83,C81,C49,C17,C2,C18,C50,C82,C84},{C79,C77,C47,C15,C1,C16,C48,C78,C80}};

Máscara

uk={1,1,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};
vk={1,1,1,2,3,4,5,6,7,8,8,8};

Graphics3D[{EdgeForm[],
Directive[Brown,Specularity[White,20]],
BSplineSurface[jj,SplineKnots->{uk,vk},SplineDegree->2]
},Boxed->False,ViewPoint->{0.8341587814609154,3.08564197126302,1.1104020679428324`},ViewVertical->{0.11916267909216949`,0.5183805244913129,0.9557419242368039}]

Gato

Teodor Benites, Kathia Katherine

Previos

a1={{{0,100,0},{25,107,0},{54,116,0},{90,148,0},{130,211,0},{123,304,0},{88,364,0},{45,403,0},{0,418,0}},{{0,100,20},{25,107,20},{54,116,20},{90,148,20},{130,211,20},{123,304,20},{88,364,20},{45,403,20},{0,418,20}},{{0,33,40},{54,63,40},{84,85,40},{119,120,40},{190,236,40},{185,332,40},{148,383,40},{91,421,40},{0,453,40}},{{0,0,80},{75,17,80},{110,44,80},{276,230,80},{258,339,80},{200,388,80},{128,432,80},{63,465,80},{0,486,80}},{{0,33,120},{54,63,120},{84,85,120},{119,120,120},{190,236,120},{185,332,120},{148,383,120},{91,421,120},{0,453,120}},{{0,23,140},{48,52,140},{58,103,140},{100,135,140},{235,231,140},{233,316,140},{196,362,140},{146,405,140},{0,486,140}},{{0,23,190},{48,52,190},{58,103,190},{100,135,190},{235,231,190},{233,316,190},{196,362,190},{146,405,190},{0,486,190}},{{0,76,230},{40,97,230},{76,158,230},{148,202,230},{176,273,230},{143,362,230},{96,393,230},{52,416,230},{0,433,230}},{{0,131,260},{36,147.5`,260},{61.6`,170,260},{65.6`,195.5`,260},{93,211,260},{114.4`,268.5`,260},{93.6`,331.5`,260},{60.8`,361,260},{0,389,260}},{{0,199,300},{18.4`,223,300},{32,251,300},{20,219,300},{35.2`,279.5`,300},{33.6`,280.5`,300},{20,306,300},{12,313,300},{0,330,300}},{{0,261,320},{0,261,320},{0,261,320},{0,261,320},{0,261,320},{0,261,320},{0,261,320},{0,261,320},{0,261,320}}};

a2={{{0,100,0},{-25,107,0},{-54,116,0},{-90,148,0},{-130,211,0},{-123,304,0},{-88,364,0},{-45,403,0},{0,418,0}},{{0,100,20},{-25,107,20},{-54,116,20},{-90,148,20},{-130,211,20},{-123,304,20},{-88,364,20},{-45,403,20},{0,418,20}},{{0,33,40},{-54,63,40},{-84,85,40},{-119,120,40},{-190,236,40},{-185,332,40},{-148,383,40},{-91,421,40},{0,453,40}},{{0,0,80},{-75,17,80},{-110,44,80},{-276,230,80},{-258,339,80},{-200,388,80},{-128,432,80},{-63,465,80},{0,486,80}},{{0,33,120},{-54,63,120},{-84,85,120},{-119,120,120},{-190,236,120},{-185,332,120},{-148,383,120},{-91,421,120},{0,453,120}},{{0,23,140},{-48,52,140},{-58,103,140},{-100,135,140},{-235,231,140},{-233,316,140},{-196,362,140},{-146,405,140},{0,486,140}},{{0,23,190},{-48,52,190},{-58,103,190},{-100,135,190},{-235,231,190},{-233,316,190},{-196,362,190},{-146,405,190},{0,486,190}},{{0,76,230},{-40,97,230},{-76,158,230},{-148,202,230},{-176,273,230},{-143,362,230},{-96,393,230},{-52,416,230},{0,433,230}},{{0,131,260},{-36,147.5`,260},{-61.6`,170,260},{-65.6`,195.5`,260},{-93,211,260},{-114.4`,268.5`,260},{-93.6`,331.5`,260},{-60.8`,361,260},{0,389,260}},{{0,199,300},{-18.4`,223,300},{-32,251,300},{-20,219,300},{-35.2`,279.5`,300},{-33.6`,280.5`,300},{-20,306,300},{-12,313,300},{0,330,300}},{{0,261,320},{0,261,320},{0,261,320},{0,261,320},{0,261,320},{0,261,320},{0,261,320},{0,261,320},{0,261,320}}};

uk={1,1,1,2,3,4,5,6,7,8,9,10,10,10};
vk={1,1,1,2,3,4,5,6,7,8,8,8};

g1=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[a1,SplineKnots->{uk,vk},SplineDegree->2],
BSplineSurface[a2,SplineKnots->{uk,vk},SplineDegree->2]
},Boxed->False];

a3={{{0,11.5,140},{0,11.5,140},{0,11.5,140}},{{0,-20,165},{32,16,165},{37,71,165}},{{0,15,190},{0,15,190},{0,15,190}}};

a4={{{0,11.5,140},{0,11.5,140},{0,11.5,140}},{{0,-20,165},{-32,16,165},{-37,71,165}},{{0,15,190},{0,15,190},{0,15,190}}};

uk={1,1,1,2,2,2};
vk={1,1,1,2,2,2};

g2=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[a3,SplineKnots->{uk,vk},SplineDegree->2],
BSplineSurface[a4,SplineKnots->{uk,vk},SplineDegree->2]
},Boxed->False];

a5={{{98.6,113,140},{98.6,113,140},{98.6,113,140},{98.6,113,140},{98.6,113,140},{98.6,113,140}},{{50.6,117,165},{78.6,89.5,165},{112.6,91.5,165},{127.2,111,165},{123.2,144,165},{114.6,157.5,165}},{{98.6,113,190},{98.6,113,190},{98.6,113,190},{98.6,113,190},{98.6,113,190},{98.6,113,140}}};

a6={{{-98.6,113,140},{-98.6,113,140},{-98.6,113,140},{-98.6,113,140},{-98.6,113,140},{-98.6,113,140}},{{-50.6,117,165},{-78.6,89.5,165},{-112.6,91.5,165},{-127.2,111,165},{-123.2,144,165},{-114.6,157.5,165}},{{-98.6,113,190},{-98.6,113,190},{-98.6,113,190},{-98.6,113,190},{-98.6,113,190},{-98.6,113,140}}};

uk={1,1,1,2,2,2};
vk={1,1,1,2,3,4,5,5,5};

g3=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[a5,SplineKnots->{uk,vk},SplineDegree->2],
BSplineSurface[a6,SplineKnots->{uk,vk},SplineDegree->2]
},Boxed->False];

a7={{{112.6,298,220},{150,260,220},{157,270,220},{145,303.5,220},{160,333,220},{181.2,356,220},{160,372,220},{126.6,352,220},{116.6,335.5,220},{112.6,298,220}},{{143,337,320},{143,337,320},{143,337,320},{143,337,320},{143,337,320},{143,337,320},{143,337,320},{143,337,320},{143,337,320},{143,337,320}}};

a8={{{-112.6`,298,220},{-150,260,220},{-157,270,220},{-145,303.5`,220},{-160,333,220},{-181.2`,356,220},{-160,372,220},{-126.6`,352,220},{-116.6`,335.5`,220},{-112.6`,298,220}},{{-143,337,320},{-143,337,320},{-143,337,320},{-143,337,320},{-143,337,320},{-143,337,320},{-143,337,320},{-143,337,320},{-143,337,320},{-143,337,320}}};

uk={1,2,3,4};
vk={1,1,1,2,3,4,5,6,7,8,9,9,9};

g4=Graphics3D[{EdgeForm[],
Directive[Yellow,Specularity[White,20],Opacity[1.4]],
BSplineSurface[a7,SplineKnots->{uk,vk},SplineDegree->{0,2}],
BSplineSurface[a8,SplineKnots->{uk,vk},SplineDegree->{0,2}]
},Boxed->False];

Gato

Show[g1,g2,g3,g4]

Trompo

Chiroque Lázaro, Víctor Manuel

pun2d={{0,5},{1,5},{1,4.5},{1,4.5},{2.5,4.5},{3.26,4.34},{3.91,3.91},{4.34,3.26},{4.5,2.5},{4.34,1.73},{3.91,1.08},{2.93,0.06},{1.9`,-0.96},{0.97,-1.98},{0,-3}};

punto3D[punto_List,cantidadpuntos_]:=Module[{},
σ=((2Pi)/cantidadpuntos);Table[Table[{punto[[i,1]]Cos[θ],punto[[i,1]]Sin[θ],punto[[i,2]]},{θ,0,2Pi,σ}],{i,1,Length[punto]}]]

pun3d=punto3D[pun2d,16]//N;

uk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,13,13};
vk={0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,15};

Graphics3D[{Black,Thick,Line[{{0,0,-3},{0,0,-3.5}}],
{EdgeForm[],
Directive[Orange,Specularity[Cyan,20]],
BSplineSurface[pun3d,SplineKnots->{uk,vk},SplineDegree->2]
}},Boxed->False,ViewPoint->{-1.163680591954594,-2.602527374182229,1.8228271301855141`},ViewVertical->{-0.022985872706826754`,-0.03708710241789154,1.0578151532698081`}]