# Tag Info

### Tomographic Reconstruction of a Convex Polyhedron from its Orthographic Projections

We only need the data of the boundary points of the projections. ...

Try ...

### Getting Area from GeoGraphics

First I get just the image of the area with a 10 km scale bar: ...
1 vote

### ListPlot with Opacity strange outcome

This bug for MacOS seems to have persisted in all recent versions except for 12.3.1 (cf the comments to the OP). I've reported it to Mma. For now they advise a way around the problem that does indeed ...

...

### How to Add Inner Squares to Bar Chart Using BarChart[] Function?

1. ChartElementFunction We can use a custom ChartElementFunction to add lines to rectangles: ...

### Visualization of two nearly identical datasets of 2D points

Plotting the data points over a background that highlights the differences: ...

### Visualization of two nearly identical datasets of 2D points

It depends little bit what you want to stress. I personally like if some quantitative information can be obtained from the graph. Therefore I suggest a minimalistic approach that emphasises large ...

### Visualization of two nearly identical datasets of 2D points

To see the differences between two point sets we can also use DistanceMatrix dmat = DistanceMatrix[a, b]; The default distance function of ...

### Visualization of two nearly identical datasets of 2D points

We use the points a to construct a region Point[a]. We use RegionNearest to find the nearest ...
Accepted

### Visualization of two nearly identical datasets of 2D points

Because in your case there is: 1-to-1 point correspondence In[]:= Length/@{a,b} Out[]= {205,205} almost exact overlap which is much smaller in magnitude than ...

### Visualization of two nearly identical datasets of 2D points

One way to show the difference is to plot vectors. Their length and color show the differencse: ...

### Visualization of two nearly identical datasets of 2D points

Another possibility? ListPolarPlot[{a,-b},PlotStyle->PointSize[Large]]

### Visualization of two nearly identical datasets of 2D points

One of many styling possibilities ListPlot[{a, b}, ImageSize -> Large, PlotStyle -> {Directive[PointSize[0.02], Lighter @ Gray], Red}]

### Visualization of two nearly identical datasets of 2D points

Just guessing that maybe an animation might be helpful... ...
Accepted

### How to make a PlotMarker with two colors?

You may draw a marker consisting of 2 half disks with the corresponding colors: ...

### How to make a PlotMarker with two colors?

Here's an attempt using the PolygonMarkers resource function. The hfm function is adapted from the Neat Examples section of the documentation of that resource ...

### How to make a PlotMarker with two colors?

A possibility could be: ...

### Code golf chromostereopsis illusion

Just another variation using GaussianMatrix: Image@Map[{#,0,1-3#}Sign[#-3Sign@#]&[⌊2Random[]⌋⌊10^4#⌋]&,GaussianMatrix[{28,21}],{2}] 86 Characters ..
Accepted

### How to match sizes of objects among several Graphics outputs?

o1 = Disk[#] & /@ {{0, 0}, {8, 2}}; o2 = Disk[#] & /@ {{0, 0}, {5, 0}}; You can use the still-undocumented form ...
1 vote

### Summate opacity for AnglePath

A decent result can be achieved with simple code using VertexColors although there is still a little overlap at each hinge of the path. ...

### How to combine plots together and add legends inside the frame?

You can eliminate a lot of redundant code by using a single Plot ...

### Summate opacity for AnglePath

For an example, we first create a path: SeedRandom; path = AnglePath[RandomChoice[Pi {1/2, -1/2}, 100]] // Round; Then we create the different lines of this ...
Accepted

### Summate opacity for AnglePath

Unfortunately all answers are either limited or give unnecessary artefacts. So I did it myself. Prepare process: ...

### How to ensure that Polygon[list] plots a simple polygon?

Based on 195229, the points can be sorted to create a convex polygon. As a demonstration and comparison with ConvexHullMesh: ...

...

### Code golf chromostereopsis illusion

n = 57; RandomInteger[1, {n, n}] (#[22, n] - 2 #[16, n] + 2) &@DiskMatrix // ArrayPlot[#, ColorRules -> {2 -> Blue, 0 -> Black, 1 -> Red}] & ...

Accepted

### Using GraphicsGrid for density plots with color scales

Graphics and Inset give you more control, e.g. ...

### Code golf chromostereopsis illusion

Shortening Melago's method to 87 characters: ArrayPlot@ Array[RandomChoice@{1, If[# . # < 300, Red, If[# . # < 440, 1, Blue]]&@{##}}&, {57,57}, -28] ...

### Code golf chromostereopsis illusion

The symbol is equivalent to -> and works well when you copy & paste the code from here to Mathematica. Code length is ...

### Code golf chromostereopsis illusion

92 characters if colors are controllable: w=49;Image[RandomInteger[1,{w,w}](1-16~#~w+2 12~#~w)/.{0->Black,1->Blue,2->Red}]&@DiskMatrix 86 characters ...

### Code golf chromostereopsis illusion

Not fewer characters, but just for fun: 125 characters ...

### Code golf chromostereopsis illusion

94 characters: ArrayPlot@ Array[RandomChoice[{t = #^2 + #2^2; If[t < 300, Red, If[t >= 440, Blue, Black]], 1}] &, {57, 57}, -28]

### Code golf chromostereopsis illusion

84 characters: ...

### Code golf chromostereopsis illusion

115 characters (or 110, see below): ...

### How to make the same color scale range for all plots?

\$Version (* "13.3.1 for Mac OS X ARM (64-bit) (July 24, 2023)" *) Clear["Global`*"] f[r_, B_, z_] := B*(r^2 + z^2)*Sin[z]^2; Determine the ...
Accepted

### How to make the same color scale range for all plots?

Perhaps something like this? You just need to define the ColorFunction and set ColorFunctionScaling to ...
1 vote

...

...

### Point Belonging to a Disk in a Cartesian Coordinate System

Using Outer and RegionMember: ...
1 vote

### How to make a density plot for an isotropic function written in cylindrical coordinates?

You just need to define the function you want and use one of the following Mathematica functions. If I understand what you are asking for ...

### How to achieve gradient color for a shape?

Since V 12.2 there is LinearGradientFilling: Graphics[{LinearGradientFilling[{White, Red}], Rectangle[{0, 0}, {1, 1}]}]
1 vote
Accepted

### How to Control Tick Precision in ListLinePlot?

To control the number of decimal places displayed on the horizontal and vertical axes in a ListLinePlot or any other plot in Mathematica, you can use the ...
1 vote

### How to Control Tick Precision in ListLinePlot?

Use pairs of values and print formats eg ...
1 vote

...
1 vote

...