추억스케치
EO 본문
In[1]:= ChemicalData["EO"]
Out[1]= \!\(\*
GraphicsBox[{{
{GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
StyleBox["\<\"O\"\>",
StripOnInput->False,
FontSize->Scaled[0.2830188679245283]], {250., 43.3}],
LineBox[{{239.17476184214075`, 24.550687510587792`}, {225.,
0.}}],
{GrayLevel[0], LineBox[{{225., 0.}, {200., -43.3}}]}},
{GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
StyleBox["\<\"O\"\>",
StripOnInput->False,
FontSize->Scaled[0.2830188679245283]], {250., 43.3}],
LineBox[{{260.82523815785925`, 24.550687510587792`}, {275.,
0.}}],
{GrayLevel[0], LineBox[{{275., 0.}, {300., -43.3}}]}},
{GrayLevel[0], AbsoluteThickness[0.55],
LineBox[{{200., -43.3}, {250., -43.3}}],
{GrayLevel[0], LineBox[{{250., -43.3}, {300., -43.3}}]}}}, {}},
ImageSize->{{0., 42.4}, {0., 44.679199999999994`}},
PlotRange->{{197., 303.}, {-45.897999999999996`, 65.8}}]\)
In[2]:= ChemicalData["EO", "FreshPoint"]
During evaluation of In[2]:= ChemicalData::notprop: "FreshPoint" is \
not a known property for ChemicalData. Use ChemicalData["Properties"] \
for a list of properties. >>
Out[2]= ChemicalData["EO", "FreshPoint"]
In[4]:= ChemicalData["methane", "LowerExplosiveLimit"]
Out[4]= 0.05
In[5]:= ChemicalData["EO", "LowerExplosiveLimit"]
Out[5]= 0.03
In[6]:= ChemicalData["methane", "UpperExplosiveLimit"]
Out[6]= 0.15
In[7]:= ChemicalData["EO", "UpperExplosiveLimit"]
Out[7]= 1.00
In[8]:= ChemicalData["EO", "AutoignitionPoint"]
Out[8]= 429.
In[9]:= ChemicalData["toluene", "AutoignitionPoint"]
Out[9]= 535.
In[10]:= ChemicalData["Nitromethane"]
Out[10]= \!\(\*
GraphicsBox[{{
{GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
StyleBox[
TagBox[
SuperscriptBox[
TagBox["\<\"O\"\>",
Power,
Editable->True,
Selectable->True],
TagBox["\<\"-\"\>",
Power,
Editable->True,
Selectable->True]],
InterpretTemplate[Superscript[#, #2]& ],
Editable->False,
Selectable->False],
StripOnInput->False,
FontSize->Scaled[0.16339637891838132`]], {373.21, 75.}],
LineBox[{{348.7442555583653, 60.875912457202006`}, {329.905,
50.}}],
{GrayLevel[0], InsetBox[
StyleBox[
TagBox[
SuperscriptBox[
TagBox["\<\"N\"\>",
Power,
Editable->True,
Selectable->True],
TagBox["\<\"+\"\>",
Power,
Editable->True,
Selectable->True]],
InterpretTemplate[Superscript[#, #2]& ],
Editable->False,
Selectable->False],
StripOnInput->False,
FontSize->Scaled[0.16339637891838132`]], {286.6, 25.}],
LineBox[{{329.905, 50.}, {314.05359641769275`,
40.84897610997157}}]}},
{GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
StyleBox["\<\"O\"\>",
StripOnInput->False,
FontSize->Scaled[0.16339637891838132`]], {286.6, -75.}],
LineBox[{{{281.6, -53.349999999999994`}, {281.6, -25.}}, {{
291.6, -53.349999999999994`}, {291.6, -25.}}}],
{GrayLevel[0], InsetBox[
StyleBox[
TagBox[
SuperscriptBox[
TagBox["\<\"N\"\>",
Power,
Editable->True,
Selectable->True],
TagBox["\<\"+\"\>",
Power,
Editable->True,
Selectable->True]],
InterpretTemplate[Superscript[#, #2]& ],
Editable->False,
Selectable->False],
StripOnInput->False,
FontSize->Scaled[0.16339637891838132`]], {286.6, 25.}],
LineBox[{{{281.6, -25.}, {281.6, -6.699999999999999}}, {{
291.6, -25.}, {291.6, -6.699999999999999}}}]}},
{GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
StyleBox[
TagBox[
SuperscriptBox[
TagBox["\<\"N\"\>",
Power,
Editable->True,
Selectable->True],
TagBox["\<\"+\"\>",
Power,
Editable->True,
Selectable->True]],
InterpretTemplate[Superscript[#, #2]& ],
Editable->False,
Selectable->False],
StripOnInput->False,
FontSize->Scaled[0.16339637891838132`]], {286.6, 25.}],
LineBox[{{259.147196031669, 40.850348711507515`}, {243.3,
50.}}],
{GrayLevel[0], LineBox[{{243.3, 50.}, {200., 75.}}]}}}, {}},
ImageSize->{{0., 61.200866666666656`}, {0., 62.296604611686604`}},
PlotRange->{{194.8037, 401.10999999999996`}, {-105., 105.}}]\)
In[11]:= ChemicalData["Nitromethane", "LowerExplosiveLimit"]
Out[11]= 0.073
In[12]:= ChemicalData["Nitromethane", "UpperExplosiveLimit"]
Out[12]= 0.630
In[13]:= ChemicalData["Nitromethane", "AutoignitionPoint"]
Out[13]= 418.