# Tag Info

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