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 answers only not deleted user 38205

Questions about exploring knot theory using Mathematica.

9 votes

Issue Plotting Torus Link

Here's I think a generalization of what Ulrich gave to an arbitrary $(p, q)$ torus (if I read Wikipedia right): plotPQTorus[{p_, q_}, a : _?NumericQ : 1, d : _?NumericQ : 4, ops : OptionsPattern[] …
b3m2a1's user avatar
  • 47.1k
3 votes
Accepted

Color Trefoil-Knot

You can pack all of that styling into a Directive. For a general function that'll work no matter what styling choices, you can try this: With[{ d = KnotData["FigureEight", "KnotDiagramData"], i …
b3m2a1's user avatar
  • 47.1k