« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
Units
Solve Equations with Units
Solve equations with units using both symbolic and numerical functions.
In[1]:=
X
inputs = {HoldForm[ Solve[Quantity[2.2`*^12, "Joules"] == 1/2 (Quantity[68000.`, "Kilograms"])*v^2, v]], HoldForm[ Solve[Quantity[133.33333333333334`, ("Meters")/( "SpeedOfLight")] == Sqrt[1/(1 - (.3^2))] t, t]], HoldForm[ Solve[Quantity[8.444, "Microcoulombs"] == x*Quantity[1, "DegreesCelsius"], x]], HoldForm[ NSolve[Quantity[3.21608*10^20, "Hertz"] == (1/x) Quantity[1, "SpeedOfLight"], x]], HoldForm[ NSolve[Quantity[1, "PlanckConstant"]/(x Quantity[6.646478*10^-27, "Kilograms"]) == Quantity[14.8732*10^-15, "Meters"], x]], HoldForm[ N[Reduce[ 1/(x*Quantity[1, "Kilometers"/"Seconds"/"Megaparsecs"]) == 6000, x]]]};
In[2]:=
X
FormulaGallery[forms_List] := Module[{vals = ParallelMap[ReleaseHold, forms]}, TraditionalForm@ Grid[Table[{forms[[i]], vals[[i]]}, {i, Length[forms]}], Dividers -> All, Spacings -> {{1, 1}, 5}, Alignment -> {{Left, Left}, Baseline}, BaseStyle -> {FontFamily -> "Helvetica"}, Background -> {None, {{Hue[.6, .15, .9], GrayLevel[.9]}}}, FrameStyle -> Directive[Thick, White]]]
In[3]:=
X
Pane[FormulaGallery[inputs], 550]
Out[3]=