Автоматическая интерпретация единиц измерений 

Использование свободной формы ввода для автоматической интерпретации единиц измерения с использованием естественного языка.

In[1]:=

X \!\( NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "14 feet", Typeset`newq$$ = "14 feet", Typeset`chosen$$ = "Quantity[14, \"Feet\"]", Typeset`open$$ = False}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}, TrapSelection->False], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "OrangeSquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>(Quiet[ WolframAlpha[]]; If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], Typeset`open$$ = True; WolframAlphaClient`\ Private`extrudeFromFastParse["14 feet", Defer[ Quantity[14, "Feet"]], "Fast parse"]; Typeset`open$$ = False]), Evaluator->Automatic, Method->"Queued"], Alignment->{Right, Top}, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ TemplateBox[{"14"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"ft\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: feet"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Feet\""}], "]"}]& )], StripOnInput->False, NumberMarks->False], True-> StyleBox[ TemplateBox[{"14"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"ft\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: feet"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Feet\""}], "]"}]& )], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ TemplateBox[{"14"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"ft\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: feet"]& ), InterpretationFunction -> ( RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Feet\""}], "]"}]& ), SyntaxForm -> Mod]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{Automatic}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}], "Grid"], Alignment->Top, Background->GrayLevel[1], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}], True-> TagBox[GridBox[{ { DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}, TrapSelection->False], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource[ "WABitmaps", "OrangeSquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>(Quiet[ WolframAlpha[]]; If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], Typeset`open$$ = True; WolframAlphaClient`\ Private`extrudeFromFastParse["14 feet", Defer[ Quantity[14, "Feet"]], "Fast parse"]; Typeset`open$$ = False]), Evaluator->Automatic, Method->"Queued"], Alignment->{Right, Top}, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ TemplateBox[{"14"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"ft\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: feet"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Feet\""}], "]"}]& )], StripOnInput->False, NumberMarks->False], True-> StyleBox[ TemplateBox[{"14"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"ft\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: feet"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Feet\""}], "]"}]& )], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ TemplateBox[{"14"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"ft\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: feet"]& ), InterpretationFunction -> ( RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Feet\""}], "]"}]& ), SyntaxForm -> Mod]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Automatic, BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}]}, { InterpretationBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEExpressions", "NecklaceAnimator"][20]], AnimatorBoxOptions->{ImageSize->20}], Animator[Appearance -> "Necklace", ImageSize -> 20], BaseStyle->{"Deploy"}]} }, BaselinePosition->{1, 1}, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, Dynamic[ TrueQ[Typeset`open$$]], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[1]=

In[2]:=

X \!\( NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "19 kilos/sec^2", Typeset`newq$$ = "19 kilos/sec^2", Typeset`chosen$$ = "Quantity[19, \"Kilograms\"/\"Seconds\"^2]", Typeset`open$$ = False}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}, TrapSelection->False], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "OrangeSquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>(Quiet[ WolframAlpha[]]; If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], Typeset`open$$ = True; WolframAlphaClient`\ Private`extrudeFromFastParse["19 kilos/sec^2", Defer[ Quantity[19, "Kilograms"/"Seconds"^2]], "Fast parse"]; Typeset`open$$ = False]), Evaluator->Automatic, Method->"Queued"], Alignment->{Right, Top}, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ TemplateBox[{"19"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", " ", "\"/\"", " ", SuperscriptBox["\"s\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilograms per second squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Kilograms\"", SuperscriptBox["\"Seconds\"", "2"]]}], "]"}]& )], StripOnInput->False, NumberMarks->False], True-> StyleBox[ TemplateBox[{"19"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", " ", "\"/\"", " ", SuperscriptBox["\"s\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilograms per second squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Kilograms\"", SuperscriptBox["\"Seconds\"", "2"]]}], "]"}]& )], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ TemplateBox[{"19"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", " ", "\"/\"", " ", SuperscriptBox["\"s\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilograms per second squared"]& ), InterpretationFunction -> ( RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Kilograms\"", SuperscriptBox["\"Seconds\"", "2"]]}], "]"}]& ), SyntaxForm -> Mod]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{Automatic}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}], "Grid"], Alignment->Top, Background->GrayLevel[1], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}], True-> TagBox[GridBox[{ { DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}, TrapSelection->False], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource[ "WABitmaps", "OrangeSquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>(Quiet[ WolframAlpha[]]; If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], Typeset`open$$ = True; WolframAlphaClient`\ Private`extrudeFromFastParse["19 kilos/sec^2", Defer[ Quantity[19, "Kilograms"/"Seconds"^2]], "Fast parse"]; Typeset`open$$ = False]), Evaluator->Automatic, Method->"Queued"], Alignment->{Right, Top}, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ TemplateBox[{"19"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", " ", "\"/\"", " ", SuperscriptBox["\"s\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilograms per second squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Kilograms\"", SuperscriptBox["\"Seconds\"", "2"]]}], "]"}]& )], StripOnInput->False, NumberMarks->False], True-> StyleBox[ TemplateBox[{"19"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", " ", "\"/\"", " ", SuperscriptBox["\"s\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilograms per second squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Kilograms\"", SuperscriptBox["\"Seconds\"", "2"]]}], "]"}]& )], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ TemplateBox[{"19"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", " ", "\"/\"", " ", SuperscriptBox["\"s\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilograms per second squared"]& ), InterpretationFunction -> ( RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Kilograms\"", SuperscriptBox["\"Seconds\"", "2"]]}], "]"}]& ), SyntaxForm -> Mod]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Automatic, BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}]}, { InterpretationBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEExpressions", "NecklaceAnimator"][20]], AnimatorBoxOptions->{ImageSize->20}], Animator[Appearance -> "Necklace", ImageSize -> 20], BaseStyle->{"Deploy"}]} }, BaselinePosition->{1, 1}, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, Dynamic[ TrueQ[Typeset`open$$]], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[2]=

In[3]:=

X \!\( NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = ".9 times the speed of light", Typeset`newq$$ = ".9 times the speed of light", Typeset`chosen$$ = "Quantity[0.9, \"SpeedOfLight\"]", Typeset`open$$ = False}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}, TrapSelection->False], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "OrangeSquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>(Quiet[ WolframAlpha[]]; If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], Typeset`open$$ = True; WolframAlphaClient`\ Private`extrudeFromFastParse[".9 times the speed of light", Defer[ Quantity[0.9, "SpeedOfLight"]], "Fast parse"]; Typeset`open$$ = False]), Evaluator->Automatic, Method->"Queued"], Alignment->{Right, Top}, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ TemplateBox[{"0.9"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ StyleBox["\"c\"", Italic, StripOnInput -> False], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: speed of light in vacuum"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"SpeedOfLight\""}], "]"}]& )], StripOnInput->False, NumberMarks->False], True-> StyleBox[ TemplateBox[{"0.9"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ StyleBox["\"c\"", Italic, StripOnInput -> False], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: speed of light in vacuum"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"SpeedOfLight\""}], "]"}]& )], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ TemplateBox[{"0.9"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ StyleBox["\"c\"", Italic, StripOnInput -> False], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: speed of light in vacuum"]& ), InterpretationFunction -> ( RowBox[{"Quantity", "[", RowBox[{#, ",", "\"SpeedOfLight\""}], "]"}]& ), SyntaxForm -> Mod]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{Automatic}}, "RowsIndexed" -> {}, "Items" -> {}, "ItemsIndexed" -> {}}], "Grid"], Alignment->Top, Background->GrayLevel[1], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}], True-> TagBox[GridBox[{ { DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}, TrapSelection->False], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource[ "WABitmaps", "OrangeSquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>(Quiet[ WolframAlpha[]]; If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], Typeset`open$$ = True; WolframAlphaClient`\ Private`extrudeFromFastParse[".9 times the speed of light", Defer[ Quantity[0.9, "SpeedOfLight"]], "Fast parse"]; Typeset`open$$ = False]), Evaluator->Automatic, Method->"Queued"], Alignment->{Right, Top}, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ TemplateBox[{"0.9"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ StyleBox["\"c\"", Italic, StripOnInput -> False], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: speed of light in vacuum"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"SpeedOfLight\""}], "]"}]& )], StripOnInput->False, NumberMarks->False], True-> StyleBox[ TemplateBox[{"0.9"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ StyleBox["\"c\"", Italic, StripOnInput -> False], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: speed of light in vacuum"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"SpeedOfLight\""}], "]"}]& )], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ TemplateBox[{"0.9"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ StyleBox["\"c\"", Italic, StripOnInput -> False], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: speed of light in vacuum"]& ), InterpretationFunction -> ( RowBox[{"Quantity", "[", RowBox[{#, ",", "\"SpeedOfLight\""}], "]"}]& ), SyntaxForm -> Mod]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Automatic, BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}]}, { InterpretationBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEExpressions", "NecklaceAnimator"][20]], AnimatorBoxOptions->{ImageSize->20}], Animator[Appearance -> "Necklace", ImageSize -> 20], BaseStyle->{"Deploy"}]} }, BaselinePosition->{1, 1}, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, Dynamic[ TrueQ[Typeset`open$$]], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[3]=

Используйте (Ctrl+) для вставки ввода в свободной форме в произвольное выражение системы Mathematica.

In[1]:=

X UnitConvert[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "earths gravity", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"1"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ StyleBox["\"g\"", Italic, StripOnInput -> False], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: standard accelerations due to gravity on the surface \ of the earth"]& ), InterpretationFunction -> (RowBox[{"Quantity", "[", RowBox[{#, ",", "\"StandardAccelerationOfGravity\""}], "]"}]& ), SyntaxForm -> Mod], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{136., {26., 31.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), "SIBase"]

Out[1]=

In[2]:=

X Mean[{\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "mole of calcium nitrate in kg", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"0.164"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"kg\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilograms"]& ), InterpretationFunction -> (RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kilograms\""}], "]"}]& ), SyntaxForm -> Mod], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{233., {26., 31.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "mole of water in kg", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"0.018"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"kg\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilograms"]& ), InterpretationFunction -> (RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Kilograms\""}], "]"}]& ), SyntaxForm -> Mod], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{175., {26., 31.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "1/2 mole of sodium chloride in lbs", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"0.0644"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"lb\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: pounds"]& ), InterpretationFunction -> (RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Pounds\""}], "]"}]& ), SyntaxForm -> Mod], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{266., {26., 31.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)}]

Out[2]=

In[3]:=

X Solve[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "earths gravity", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"1"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ StyleBox["\"g\"", Italic, StripOnInput -> False], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: standard accelerations due to gravity on the surface \ of the earth"]& ), InterpretationFunction -> (RowBox[{"Quantity", "[", RowBox[{#, ",", "\"StandardAccelerationOfGravity\""}], "]"}]& ), SyntaxForm -> Mod], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{136., {26., 31.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\) == x/\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "3.2 minutes", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"3.2"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"min\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: minutes"]& ), InterpretationFunction -> (RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Minutes\""}], "]"}]& ), SyntaxForm -> Mod], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Unit", "word" -> "minutes", "template" -> "Assuming ${desc1} for \"${word}\". Use \ ${desc2} instead", "count" -> "2", "Values" -> {{ "name" -> "Minutes", "desc" -> "minutes of time", "input" -> "UnitClash_*minutes.*Minutes--"}, { "name" -> "ArcMinutes", "desc" -> "minutes of arc", "input" -> "UnitClash_*minutes.*ArcMinutes--"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{125., {26., 31.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), x]

Out[3]=

In[4]:=

X Solve[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "10 mph", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"10"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"mi\"", " ", "\"/\"", " ", "\"h\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: miles per hour"]& ), InterpretationFunction -> (RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Miles\"", "\"Hours\""]}], "]"}]& ), SyntaxForm -> Mod], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{96., {26., 31.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\) t == 1/2 \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "earths gravity in SI", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"9.8"}, "QuantityUnit", DisplayFunction -> (TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"m\"", " ", "\"/\"", " ", SuperscriptBox["\"s\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: meters per second squared"]& ), InterpretationFunction -> (RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["\"Meters\"", SuperscriptBox["\"Seconds\"", "2"]]}], "]"}]& ), SyntaxForm -> Mod], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{169., {26., 31.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\) t^2 && t > 0, t]

Out[4]=

Использование команды Quantity для автоматической интерпретации единиц измерений.

In[5]:=

X Quantity[9, "fps"]

Out[5]=

In[6]:=

X Quantity[305, "horsepower"]

Out[6]=

In[7]:=

X Quantity[19.23, "N"] // InputForm

Out[7]//InputForm=