Search Results
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 |
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[] …
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 …