New answers tagged options
4
According to @amr 's suggestion, I scanned every .nb files under the Mathematica\9.0\Documentation\English\ directory - which is fairly fast even on my outdated PC. This is what I got:
wsc = (WhitespaceCharacter ...);
prePtn = "RowBox[" ~~ wsc ~~ "{" ~~ wsc ~~ "\"";
inPtn = "\"" ~~ wsc ~~ "," ~~ wsc ~~ "\"";
rdOptExtractor = Function[testfile,
...
6
One possible way to get some candidates is to test all Options of all System` symbols
extractRuleDelayedOptions[symbol_String] :=
With[{opts = Options @@ MakeExpression[symbol]},
Cases[opts, (p_ :> _) :> p]
];
Union@Flatten[extractRuleDelayedOptions /@ Names["System`*"]]
This produces the following list
{"Compiler", "CompilerWarnings", ...
6
What about this:
Import["ExampleData/wrench.obj.gz", "PolygonObjects"] // Graphics3D
You can use the FaceForm[None] trick as shown by @J.M. here just as well if you only want the wireframe looks.
7
At OP's behest:
The easiest approach to see the mesh lines is to remove the EdgeForm[] instruction that causes them not to appear. For instance,
DeleteCases[Import["ExampleData/wrench.obj.gz"], _EdgeForm, ∞]
As SEngstrom suggests, you can also use a replacement rule. If, for instance, you want a thick gray mesh, here's what you can do:
...
8
From documentation:
Nearest[{elem₁ -> v₁, elem₂ -> v₂, …}, x] gives the vᵢ corresponding to the elemᵢ to which x is nearest.
Nearest[data] generates a NearestFunction[…] that can be applied repeatedly to different x."
We can use these two points as below.
pts = RandomReal[{-1, 1}, {1000, 3}];
nf = Nearest[Thread[pts -> ...
3
With ColorFunctionScaling -> True (default), the data values are rescaled to between 0 and 1, which is then input to the ColorFunction. So the general solution to "reverse" the color scheme is to simply input 1 - x, where x is the rescaled data point, as shown in belisarius' answer.
If you're using a built-in color scheme, you can use the "Reverse" ...
4
With[{g = GrayLevel[1 - #] &},
ArrayPlot[FData, ColorFunction -> g, PlotLegends -> BarLegend[{g, {Min@FData, Max@FData}},
LabelStyle -> Directive[Blue, Large]]]]
Top 50 recent answers are included
