Prismatoid

Author

Eric W. Weisstein
January 26, 2011

This notebook downloaded from http://mathworld.wolfram.com/notebooks/SolidGeometry/Prismatoid.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Prismatoid.html.

©2010 Wolfram Research, Inc. except for portions noted otherwise

Initialization

Code

Prismatoid[b1_List,b2_List,h_]:=Module[{},
ConvexHull3D[Join[Append[#,0]&/@b1,Append[#,h]&/@b2]]
]

Graphic

V5

b1=#[[ConvexHull[#]]]&[Table[Random[],{4},{2}]]

b1={{0.8487724394354468`,0.24309083182705699`},{0.76050650842702`,0.48032240627991984`},{0.26884844587240675`,0.10209262131507571`},{0.8215527084962625`,0.179477847365982`}};

b2=#[[ConvexHull[#]]]&[Table[Random[],{4},{2}]]

b2={{0.9524360116409036`,0.2825633934827799`},{0.7833902975077741`,0.7071411315382028`},{0.19383619947402364`,0.9227014336336514`},{0.18229589705648888`,0.20228846558466315`}};

Show[Graphics3D[Orient[Prismatoid[b1,b2,.3]]],Boxed->False]

Show[Graphics[HiddenWireframe[Prismatoid[b1,b2,.3]]]]

LiveGraphics3D

<<Utilities`LiveGraphics3D`

WriteLiveForm["prismato.m",g]

V6

b1={{0.8487724394354468`,0.24309083182705699`},{0.76050650842702`,0.48032240627991984`},{0.26884844587240675`,0.10209262131507571`},{0.8215527084962625`,0.179477847365982`}};
b2={{0.9524360116409036`,0.2825633934827799`},{0.7833902975077741`,0.7071411315382028`},{0.19383619947402364`,0.9227014336336514`},{0.18229589705648888`,0.20228846558466315`}};

Graphics3D[Orient[Prismatoid[b1,b2,.3]],Boxed->False]

HiddenWireframe[Prismatoid[b1,b2,.3]]