I can find my exact weight where I am right now:
In[]:=
GeogravityModelData[]
Out[]=
Magnitude,NorthComponent,EastComponent,DownComponent,HorizontalComponent,Declination,Inclination,Potential
An adult male has a mass of 70 kg.
In[]:=
CopyToClipboard[Quantity[70,"Kilograms"]]
Use the operator form of AssociationMap with FormulaData on the output for formula lookup with weight:
In[]:=
AssociationMap[FormulaData][FormulaLookup["Weight"]]
Out[]=
WeightedAverageCostOfCapital(1-)+++,{BaseballWeightedOnBaseAverage,HitByPitch},{BaseballWeightedOnBaseAverage,ReachedBaseOnError},{BaseballWeightedOnBaseAverage,Standard},{EquivalentDoseOfIonizingRadiation,RadiationWeightingFactor},{Weight,GravitationalAcceleration},{Weight,StandardGravitationalAcceleration},{WeightOnMassiveBodies,Height},{WeightOnMassiveBodies,Surface},{WeightTrainingExerciseEnergyExpenditure,Averaged}+,,,{WeightTrainingExerciseEnergyExpenditure,Female},,,{WeightTrainingExerciseEnergyExpenditure,Male},,,{BaseballWeightedOnBaseAverage,ReachedBaseOnError,HitByPitch}
WACC
D
T
r
d
D
E
E
r
e
D
E
wOBA
0.884+1.257+1.593+0.72+0.722+2.058
1B
2B
3B
BB
HBP
HR
PA
wOBA
0.884+1.257+1.593+0.72+2.058+0.92
1B
2B
3B
BB
HR
RBOE
PA
wOBA
0.884+1.257+1.593+0.72+2.058
1B
2B
3B
BB
HR
PA
H
D
w
R
W
g
m
W
m
W
m
M
2
(+)
h
r
W
m
M
2
r
E
MR
t
2
W
1
655.096+++
age
H
W
1
66.473+++
age
H
W
ΔW
E
VO
2
E
E
MR
t
2
W
655.096+++
age
H
W
ΔW
E
VO
2
E
E
MR
t
2
W
66.473+++
age
H
W
ΔW
E
VO
2
E
wOBA
0.884+1.257+1.593+0.72+0.722+2.058+0.92
1B
2B
3B
BB
HBP
HR
RBOE
PA
This is the equation I need:
In[]:=
FormulaData[{"Weight","GravitationalAcceleration"}]
Out[]=
W
g
m
The default output was in kN but I want the output in N so I used functional programming with MapAt.
In[]:=
MapAt[UnitConvert[#,"Newtons"]&,-1]FormulaData{"Weight","GravitationalAcceleration"},<|->GeogravityModelData["Magnitude"],->|>
g
m
Out[]=
W
Find the force between me and the moon:
In[]:=
AssociationMap[FormulaData][FormulaLookup["Force"]]
Out[]=
ForceComponents{Cos[],Sin[]},SpringMaximumForce(-),{CasimirEffect,Force},{CentripetalForce,AngularVelocity},{CentripetalForce,RotationSpeed},{CoriolisEffect,Force}2,,,{CriticalEulerBucklingForce,ColumnLength},{CriticalEulerBucklingForce,EffectiveColumnLength},{CriticalEulerBucklingForce,EffectiveColumnLengthFactor},{EulerNumber,FrictionForce},{HookesLaw,Force},{Impulse,Force},{LorentzForce,Current},{LorentzForce,ParticleSpeed},{StaticFrictionCoefficient,FrictionForce},{LorentzForce,Current,Angle}Sin[],{LorentzForce,ParticleSpeed,Angle}Sin[],{MechanicalPower,Force,Speed},{MechanicalPower,Force,Speed,Angle}Cos[]
F
x
θ
F
F
y
F
θ
F
max
4
d
E
L
d
n
16(1+)
3
(-+)
d
D
n
ν
F
C
A
4
a
F
m
r
2
ω
F
m
2
v
r
a
C
v
ω
F
C
m
a
C
ω
n
F
cr
2
π
E
J
2
L
F
cr
2
π
E
J
2
L
eff
F
cr
2
π
E
J
2
K
2
L
Eu
F
f
2
l
2
v
ρ
F
k
x
I
F
t
F
L
B
I
l
F
L
B
Q
v
F
f
F
n
μ
s
F
L
B
I
l
θ
F
L
B
Q
v
θ
P
F
v
P
θ
F
v
In[]:=
AssociationMap[FormulaData][FormulaLookup["Gravity"]]
Out[]=
NewtonsLawOfUniversalGravitation,{GravitationalAcceleration,Radius},{GravitationalAcceleration,Radius,Height}
F
m
1
m
2
2
r
g
M
2
r
g
|
In[]:=
FormulaData["NewtonsLawOfUniversalGravitation","QuantityVariableTable"]
Out[]=
symbol | description | physical quantity | dimensions |
F | gravitational force | Force | {{LengthUnit,1},{MassUnit,1},{TimeUnit,-2}} |
r | distance | Distance | {LengthUnit,1} |
m 1 | primary mass | Mass | {MassUnit,1} |
m 2 | secondary mass | Mass | {MassUnit,1} |
In[]:=
FormulaData["NewtonsLawOfUniversalGravitation","QuantityVariables"]
Out[]=
{,,,}
F
r
m
1
m
2
In[]:=
ReapMapAt[UnitConvert[#,"Millinewtons"]&,-1]@FormulaData"NewtonsLawOfUniversalGravitation",<|->SowAstroDistance,"distance to the moon",->Sow,"mass of the Moon.",->|>,_,#1->UnitConvert[#2]&
r
m
1
m
2
Out[]=
,distance to the moon,mass of the Moon.
F
Use the gravitational force
In[]:=
FormulaData[{"Weight","GravitationalAcceleration"},"QuantityVariableTable"]
Out[]=
symbol | description | physical quantity | dimensions |
W | weight | Weight | {{LengthUnit,1},{MassUnit,1},{TimeUnit,-2}} |
g | gravitational acceleration | GravitationalAcceleration | {{LengthUnit,1},{TimeUnit,-2}} |
m | mass | Mass | {MassUnit,1} |
In[]:=
FormulaData[{"Weight","GravitationalAcceleration"},"QuantityVariables"]
Out[]=
{,,}
W
g
m
In[]:=
FormulaData[{"Weight","GravitationalAcceleration"},"QuantityVariables"]//InputForm
Out[]//InputForm=
{QuantityVariable[W, Weight], QuantityVariable[g, GravitationalAcceleration], QuantityVariable[m, Mass]}
In[]:=
FormulaData[{"Weight","GravitationalAcceleration"},"QuantityVariableNames"]
Out[]=
{weight,gravitational acceleration,mass}
W
g
m
In[]:=
FormulaData[{"Weight","GravitationalAcceleration"},"QuantityVariablePhysicalQuantities"]
Out[]=
{Weight,GravitationalAcceleration,Mass}
W
g
m
In[]:=
Association[FormulaData[{"Weight","GravitationalAcceleration"},"QuantityVariablePhysicalQuantities"]]
Out[]=
Weight,GravitationalAcceleration,Mass
W
g
m
In[]:=
Values[Association[FormulaData[{"Weight","GravitationalAcceleration"},"QuantityVariablePhysicalQuantities"]]]
Out[]=
{Weight,GravitationalAcceleration,Mass}
In[]:=
Values[Association[FormulaData[{"Weight","GravitationalAcceleration"},"QuantityVariableNames"]]]
Out[]=
{weight,gravitational acceleration,mass}
In[]:=
MemberQ["gravitational acceleration"][Values[Association[FormulaData[{"Weight","GravitationalAcceleration"},"QuantityVariableNames"]]]]
Out[]=
True
Find all formulas that have gravitational acceleration in them.
In[]:=
AssociationMap[FormulaData][Select[MemberQ["gravitational acceleration"][Values[Association[FormulaData[#,"QuantityVariableNames"]]]]&][FormulaData[]]]
Out[]=
I’ll do a problem with Bernoulli’s equation.
Find fluid mechanics formulas:
I can’t find the equation of continuity so I’ll input it here:
To find the pressure on the second floor, we use Bernoulli’s equation:
The pressure in the pipe on the second floor is 250.516 kPa.