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 | |
Results tagged with drawing
Search options answers only
not deleted
user 53172
5
votes
Accepted
Draw number spirals
Clear[g]
g[0] = {};
g[x_] := g[x] =
With[{mo = Mod[x, 2] + 1}, {Append, Prepend}[[mo]][
MapIndexed[{Append,
Prepend}[[mo]][#, #2[[1]] + (x -
1)^2 + (-2 #2[[1]] + x) (mo - 1 …
- 25.1k
2
votes
Lattices drawings
vl = Range[4];
svl = vl[[{1, -1}]];
el = UndirectedEdge @@@ Partition[vl, 2, 1, 1];
coo = {{0, 0}, {1, 0}, {1 + 1/Sqrt[2], 1/Sqrt[2]}, {1/Sqrt[2], 1/Sqrt[
2]}};
n = 3;
nvl = Table[vl /. x_?Numeri …
- 25.1k
2
votes
Accepted
generate right triangles of different measures with an unknown data
triangle[] := Module[{x, y, z, r, rep}, x = RandomInteger[{1, 20}];
If[RandomInteger[{1, 2}] == 1, y = RandomInteger[{x, Min[6 x, 20]}],
z = RandomInteger[{x + 1, Min[6 x, 20]}]];
r = {Rotatio …
- 25.1k