HOME | DD

Description
"Devil Play" (or "Devil's Plate" if you zoom out..) was inspired by the "Devil's curve" surface (the fourth image)
Devil's curves were studied by Gabriel Cramer (1704-1752).
The "Devil's curve" is named after the juggling game "diabolo" and the confusion is the result of the Italian word "diavolo" meaning 'devil'.
MathMod script:
{
"Iso3D": {
"Description": ["Devil Play by Abderrahman Taha 01/10/2015"],
"Name": ["Devil Play"],
"Component": ["DevilPlay"],
"Const": ["cx=0.0000000000001",
"cy=0.0000000000001",
"cz=0.0000000000001"],
"Funct": ["Devil=x^4+2*x^2*z^2-0.36*x^2-y^4+0.25*y^2+z^4",
"Devil2= Devil(x,sqrt(y*y+z*z)-1.5,z,t)",
"Tickness2= (.1)",
"IsoExterior= Devil2(x,y,sqrt(x*x+z*z)-1.5,t)",
"DFx2= ((IsoExterior(x,y,z,t)-IsoExterior(x+cx,y,z,t))/cx)",
"DFy2= ((IsoExterior(x,y,z,t)-IsoExterior(x,y+cy,z,t))/cy)",
"DFz2= ((IsoExterior(x,y,z,t)-IsoExterior(x,y,z+cz,t))/cz)",
"Rapport2= (sqrt(DFx2(x,y,z,t)*DFx2(x,y,z,t)+DFy2(x,y,z,t)*DFy2(x,y,z,t)+DFz2(x,y,z,t)*DFz2(x,y,z,t)))",
"Iso2= (IsoExterior (x+t*DFx2(x,y,z,t)*Tickness2(x,y,z,t)/Rapport2(x,y,z,t),y+t*DFy2(x,y,z,t)*Tickness2(x,y,z,t)/Rapport2(x,y,z,t),z+t*DFz2(x,y,z,t)*Tickness2(x,y,z,t)/Rapport2(x,y,z,t),t))",
"TickIsoExterior= (Iso2(x,y,z,1)*Iso2(x,y,z,-1))"],
"Fxyz": ["if(y<4.4 & y> -2.4, TickIsoExterior(x/1.5,y,z,t), 1)"],
"Xmax": [" 4.5"],
"Xmin": ["-4.5"],
"Ymax": [" 4.5"],
"Ymin": ["-2.5"],
"Zmax": [" 7.5"],
"Zmin": ["-7.5"]
}
}

Description
"Devil Play" (or "Devil's Plate" if you zoom out..) was inspired by the "Devil's curve" surface (the fourth image)
Devil's curves were studied by Gabriel Cramer (1704-1752).
The "Devil's curve" is named after the juggling game "diabolo" and the confusion is the result of the Italian word "diavolo" meaning 'devil'.
MathMod script:
{
"Iso3D": {
"Description": ["Devil Play by Abderrahman Taha 01/10/2015"],
"Name": ["Devil Play"],
"Component": ["DevilPlay"],
"Const": ["cx=0.0000000000001",
"cy=0.0000000000001",
"cz=0.0000000000001"],
"Funct": ["Devil=x^4+2*x^2*z^2-0.36*x^2-y^4+0.25*y^2+z^4",
"Devil2= Devil(x,sqrt(y*y+z*z)-1.5,z,t)",
"Tickness2= (.1)",
"IsoExterior= Devil2(x,y,sqrt(x*x+z*z)-1.5,t)",
"DFx2= ((IsoExterior(x,y,z,t)-IsoExterior(x+cx,y,z,t))/cx)",
"DFy2= ((IsoExterior(x,y,z,t)-IsoExterior(x,y+cy,z,t))/cy)",
"DFz2= ((IsoExterior(x,y,z,t)-IsoExterior(x,y,z+cz,t))/cz)",
"Rapport2= (sqrt(DFx2(x,y,z,t)*DFx2(x,y,z,t)+DFy2(x,y,z,t)*DFy2(x,y,z,t)+DFz2(x,y,z,t)*DFz2(x,y,z,t)))",
"Iso2= (IsoExterior (x+t*DFx2(x,y,z,t)*Tickness2(x,y,z,t)/Rapport2(x,y,z,t),y+t*DFy2(x,y,z,t)*Tickness2(x,y,z,t)/Rapport2(x,y,z,t),z+t*DFz2(x,y,z,t)*Tickness2(x,y,z,t)/Rapport2(x,y,z,t),t))",
"TickIsoExterior= (Iso2(x,y,z,1)*Iso2(x,y,z,-1))"],
"Fxyz": ["if(y<4.4 & y> -2.4, TickIsoExterior(x/1.5,y,z,t), 1)"],
"Xmax": [" 4.5"],
"Xmin": ["-4.5"],
"Ymax": [" 4.5"],
"Ymin": ["-2.5"],
"Zmax": [" 7.5"],
"Zmin": ["-7.5"]
}
}