Skip to main content
Search type Search syntax
Tags [tag]
Exact "words here"
Author user:1234
user:me (yours)
Score score:3 (3+)
score:0 (none)
Answers answers:3 (3+)
answers:0 (none)
isaccepted:yes
hasaccepted:no
inquestion:1234
Views views:250
Code code:"if (foo != bar)"
Sections title:apples
body:"apples oranges"
URL url:"*.example.com"
Saves in:saves
Status closed:yes
duplicate:no
migrated:no
wiki:no
Types is:question
is:answer
Exclude -[tag]
-apples
For more details on advanced search visit our help page
Results tagged with
Search options not deleted user 11484

Questions on the application of Mathematica to geometric problems. You might also consider adding the [graphics] tag, if appropriate.

3 votes

Draw generalized k-ellipse using "the locus of points so that sum of the distances to the fo...

F[a_, b_] := Sqrt[(a - b).(a - b)] Manipulate[ Show[ ContourPlot[ Total[F[{x, y}, #] & /@ {a, b, c}] == d, {x, -5, 5}, {y, -5, 5}], Graphics[{Red, Disk[a, 0.1], Green, Disk[b, 0.1], Blue, Disk[c …
heropup's user avatar
  • 2,162
52 votes

Create a torus with a hexagonal mesh for 3D-printing

I propose a small modification of the parametrization for the torus that addresses issues with conformality. Try F[t_, u_, r_] := {Cos[t] (r + Cos[u + Sin[u]/r]), Sin[t] (r + Cos[ …
heropup's user avatar
  • 2,162