1 / 2

Arithmetic Sequence

Order a print of this model

We calculate the final price from your selected file. You review and accept it before payment.

Saved on this device.

Michael

@Michael_402648

Made with Mathematica

Rating: 0 / 5
Likes: 1
Downloads: 10
Makes: 0
Views: 141
Reviews: 0

Updated at source: Oct 31, 2022

Model information

Source: Printables
Category: Math
License: Creative Commons — Attribution

Details Files (1)Makes & comments (Makes: 0) (Comments: 0)Remixes (0)Collections (0)

The Mathematica code is below

hello = Rasterize[
  Graphics[{Text[
     Style["\!\(\*SubscriptBox[\(\[ScriptT]\), \(\[ScriptN]\)]\)=\!\(\
\*SubscriptBox[\(\[ScriptT]\), \(1\)]\)+(\[ScriptN]-1)\[CenterDot]\
\[ScriptD]", Bold, 40]]}], "Image"]; text = 
 ColorNegate[ImagePad[ImageCrop[hello], 6, White]];
stack =
 Image3D@Join[ConstantArray[text, 20],
   ConstantArray[
    ColorConvert[ConstantImage[1, ImageDimensions[text]], "RGB"], 
    5]]; ImageMesh[stack, Method -> "DualMarchingCubes"]
Export["text3.STL", %]