Tag Info

New answers tagged

0

Not sure if I am interpreting your question correctly, but if you want to plot a function of the new coordinates, you can use ParametricPlot3D in this way (I am here using a working example from a very old notebook - it refers to polar coordinates - you might have to invert your transformations) f[x_, y_] := 3Exp[-x^2 - y^2] ParametricPlot3D[{ x = ...


0

An alternate approach: information is in the Tooltip for each element. capitalizeFirst[name_String] := Module[{ltr}, StringReplace[name, (ltr = StringTake[name, 1]) :> ToUpperCase[ltr], 1]] ColorData["Atoms", "Panel"] /. {"MouseClicked" -> "MouseClickedNo", inset_Inset :> Tooltip[inset, Column[{ Style[capitalizeFirst[ ...


1

If you're looking for flexibility in building up your data table, Outer may be useful: properties = {"AtomicNumber", "Name", "Valence"}; elements = Range[5]; data = Outer[ ElementData[#1, #2] &, elements, properties ] { {1, "hydrogen", 1}, {2, "helium", 0}, {3, "lithium", 1}, {4, "beryllium", 2}, {5, "boron", 3} } This has the ...


3

Have try like this. Dataset@Table[<|"Z" -> i, "Element" -> CanonicalName[ElementData[i]], "V" -> ElementData[i, "Valence"]|>, {i, 118}]


2

table = Prepend[ Table[{z, CanonicalName[ElementData[z]], ElementData[z, "Valence"]}, {z, 1, 10}], Style[#, Bold, 16] & /@ {"Z", "Element", "V"}]; Grid[table, Alignment -> {{Right, Left, Right}}, Background -> GrayLevel@0.95, Dividers -> All] table = Prepend[Table[{ z, CanonicalName[ElementData[z]], ElementData[z, ...


4

Few additional methods: p1 = Plot[Sin[x], {x, 0, 2 Pi}, ImageSize -> 200]; p2 = Plot[Cos[x], {x, 0, 2 Pi}, ImageSize -> 200]; Labeled Labeled[Panel@GraphicsRow[{p1, p2}], Style["Label", "Subsubsection"], Top] // Panel Panel Panel[GraphicsRow[{p1, p2}], Style["Label", "Subsubsection"], Top] // Panel (* same picture *) Legended ...



Top 50 recent answers are included