HOME | DD
MathMod — SeaShell
#mathematics #mathmod
Published: 2017-04-30 15:51:30 +0000 UTC; Views: 471; Favourites: 6; Downloads: 2
Redirect to original
Description
MathMod script:{
"Param3D": {
"Description ": ["Seashell by Abderrahman Taha 19/04/2017"],
"Name": ["Sea Shells_003"],
"Component": ["Sea Shell"],
"Const": ["cu=0.001",
"cv=0.001",
"N=14",
"M=4",
"MaxU = pi",
"MinU = 0",
"MaxV=5*pi/2",
"MinV=0",
"a=0.2",
"b=1",
"c=0.1",
"n=2"],
"Funct": ["th=0.1*((1-abs(u-pi/2)/MaxU)*(v/MaxV+0.05)*abs(cos(N*(u))^3-sin(N*(v))^2))^3",
"Fx=if(M=1,2*(1-exp(u/(6*pi)))*cos(u)*cos(v/2)^2,if(M=2,((a*(1-v/(2*pi))*(1+cos(u))+c)*cos(n*v))*6+4,if(M=3,2^v*(sin(u)*cos(u))/35,if(M=4,1.2^v*(sin(u)^2*sin(v))+2,2*(1-exp(u/(6*pi)))*cos(u)*cos(v/2)^2))))",
"Fy=if(M=1,2*(-1+exp(u/(6*pi)))*sin(u)*cos(v/2)^2,if(M=2,((a*(1-v/(2*pi))*(1+cos(u))+c)*sin(n*v))*6+4,if(M=3,2^v*(sin(u)^2*sin(v))/35-4,if(M=4,1.2^v*(sin(u)*cos(u))+5,2*(-1+exp(u/(6*pi)))*sin(u)*cos(v/2)^2))))",
"Fz=if(M=1,1-exp(u/(3*pi))-sin(v)+exp(u/(6*pi))*sin(v),if(M=2,(b*v/(2*pi)+a*(1-v/(2*pi))*sin(u))*6-6,if(M=3,2^v*(sin(u)^2*cos(v))/35-12,if(M=4,1.2^v*(sin(u)^2*cos(v))-12,1-exp(u/(3*pi))-sin(v)+exp(u/(6*pi))*sin(v)))))",
"DFxu= ((Fx(u,v,t)-Fx(u+cu,v,t))/cu)",
"DFxv= ((Fx(u,v,t)-Fx(u,v+cv,t))/cv)",
"DFyu= ((Fy(u,v,t)-Fy(u+cu,v,t))/cu)",
"DFyv= ((Fy(u,v,t)-Fy(u,v+cv,t))/cv)",
"DFzu= ((Fz(u,v,t)-Fz(u+cu,v,t))/cu)",
"DFzv= ((Fz(u,v,t)-Fz(u,v+cv,t))/cv)",
"n1= (DFyu(u,v,t)*DFzv(u,v,t)-DFzu(u,v,t)*DFyv(u,v,t))",
"n2= (DFzu(u,v,t)*DFxv(u,v,t)-DFxu(u,v,t)*DFzv(u,v,t))",
"n3= (DFxu(u,v,t)*DFyv(u,v,t)-DFyu(u,v,t)*DFxv(u,v,t))",
"Rapp=u/sqrt(u*u+v*v+t*t)",
"Fx=Fx(u,v,t)+th(u,v-3*t,t)*Rapp(n1(u,v,t),n2(u,v,t),n3(u,v,t))",
"Fy=Fy(u,v,t)+th(u,v-3*t,t)*Rapp(n2(u,v,t),n1(u,v,t),n3(u,v,t))",
"Fz=Fz(u,v,t)+th(u,v-3*t,t)*Rapp(n3(u,v,t),n1(u,v,t),n2(u,v,t))"],
"Fx": ["Fx(u,v,t)"],
"Fy": ["Fy(u,v,t)"],
"Fz": ["Fz(u,v,t)"],
"Umax": ["MaxU"],
"Umin": ["MinU"],
"Vmax": ["MaxV"],
"Vmin": ["MinV"]
}
}
