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 graphics
Search options not deleted
user 4539
Questions on the construction of 2D and 3D graphics through the direct use of primitives, directives, and functions. Include the graphics3d tag for questions specifically on 3D graphics. This tag is not to be used for basic questions on visualizing functions and lists using the various flavors of Plot commands.
3
votes
Labeling points with numbers in a Graphics expression
You could add some TextLabels to your plot:
labels = Range[10];
randomPoints = Table[{Random[], Random[]}, {n, 1, 10}];
Show[
Graphics[Table[Text[t, randomPoints[[t]], {2, 0}], {t, 1, 10}]],
Graphics[ …
- 5,690
13
votes
Mapping points on the unit circle
[points_] := {#[[1]] Sqrt[1 - (#[[2]]^2/2)],
#[[2]] Sqrt[1 - (#[[1]]^2/2)]} & /@ # & /@ points;
And a little demonstration:
points = Table[{a, b}, {a, -1, 1, 0.2}, {b, -1, 1, 0.2}];
Show[
Graphics … [{EdgeForm[Thick], White, Rectangle[{-1, -1}, {1, 1}]}],
ListPlot[Flatten[points, 1], AspectRatio -> 1, PlotStyle -> Red]
]
Show[
Graphics[{Thick, Circle[]}],
ListPlot[Flatten[transformation[points …
- 5,690
1
vote
Force change in aspect ratio of Inset image
Is the code you posted just a working example?
You could get this plot much simpler:
DensityPlot[y - x^2, {x, 0, 1}, {y, 0, 1},
ColorFunction -> "SunsetColors", MeshFunctions -> {#3 &}, Mesh -> 9 …
- 5,690
19
votes
Around the Clock
{x, y}], {5}]], {x, -1, 1},
{y, -1, 1}, BoundaryStyle -> {Thick, Black},
RegionFunction -> Function[{x, y, z}, x^2 + y^2 < 1],
Frame -> None, ImageSize -> 600];
clock = Graphics[{ …
- 5,690
7
votes
2
answers
289
views
Color lines by angle
Blend[{White, Purple, Purple, Orange, Orange, White}, 2 a]]]
This function works as intended with the following test data:
testLines = Table[{{0, 0}, {Cos[x], Sin[x]}}, {x, 0, 2 Pi, Pi/600}];
Show[
Graphics … i=jgYKrHNr", "Data"]
Show[
Graphics[{AngleColor[#[[2]] - #[[1]]], Line[#]}] & /@ # & /@ testD,
Background -> Black, ImageSize -> 800] …
- 5,690
5
votes
Accepted
ListPlot3D: combine VertexColors and RegionFunction
You can use ColorFunctionto get around this issue.
ListPlot3D[data,
RegionFunction -> Function[{x, y, z}, Norm[{x, y}] < 1],
ColorFunction -> Function[{x, y, z}, Hue[Sqrt[2] N[Norm[{x, y} - {1, 1 …
- 5,690
1
vote
How to make a resizable chess board?
Yet another solution, inclusive labeling.
Manipulate[
MatrixPlot[Table[If[EvenQ[i + j], 1, 0], {i, 1, n}, {j, 1, n}],
FrameTicks -> Transpose[{#, {#, CharacterRange["A", "Z"][[#]]}} & /@ Range[n] …
- 5,690
12
votes
Accepted
Fractal dimension of a large networked molecular system
Mathematica should render the secondary structure in the usual way when you import pdb files. I dont know why this doesn't work with the example you provided. I thought there might be a size limit for …
- 5,690