Get a picture of a horse. Get pictures of some other common animals:
You can use plain English in Wolfram Language computations.
To get a picture of a horse, press and type =. In the input box (), type “picture of a horse”, then run the code:
\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "picture of a horse",
Typeset`boxes$$ = RowBox[{
TemplateBox[{"\"horse (domestic)\"",
RowBox[{"Entity", "[",
RowBox[{"\"Species\"", ",", "\"Species:EquusCaballus\""}], "]"}],
"\"Entity[\\\"Species\\\", \\\"Species:EquusCaballus\\\"]\"",
"\"species specification\""}, "Entity"], "[",
TemplateBox[{"\"image\"",
RowBox[{"EntityProperty", "[",
RowBox[{"\"Species\"", ",", "\"Image\""}], "]"}],
"\"EntityProperty[\\\"Species\\\", \\\"Image\\\"]\""},
"EntityProperty"], "]"}],
Typeset`allassumptions$$ = {{
"type" -> "MultiClash", "word" -> "",
"template" -> "Assuming ${word1} is referring to ${desc1}. Use \
\"${word2}\" as ${desc2}. Use \"${word3}\" as ${desc3}. Use \
\"${word4}\" as ${desc4}.", "count" -> "4",
"Values" -> {{
"name" -> "Species", "word" -> "horse",
"desc" -> "a species specification",
"input" -> "*MC.%7E-_*Species-"}, {
"name" -> "Movie", "word" -> "horse", "desc" -> "a movie",
"input" -> "*MC.%7E-_*Movie-"}, {
"name" -> "PopularCurve", "word" -> "horse",
"desc" -> "a popular curve",
"input" -> "*MC.%7E-_*PopularCurve-"}, {
"name" -> "WordData", "word" -> "",
"desc" -> " referring to English words",
"input" -> "*MC.%7E-_*WordData-"}}}},
Typeset`assumptions$$ = {}, Typeset`open$$ = {1},
Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 1.244342`6.54648475351301, "Messages" -> {}}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic,
Dynamic[Typeset`query$$],
Dynamic[Typeset`boxes$$],
Dynamic[Typeset`allassumptions$$],
Dynamic[Typeset`assumptions$$],
Dynamic[Typeset`open$$],
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{113., {7., 16.}},
TrackedSymbols:>{
Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$,
Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)
When you run the code, the input box may change into the exact Wolfram Language code for a picture of a horse:
\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "picture of a horse",
Typeset`boxes$$ = RowBox[{
TemplateBox[{"\"horse (domestic)\"",
RowBox[{"Entity", "[",
RowBox[{"\"Species\"", ",", "\"Species:EquusCaballus\""}], "]"}],
"\"Entity[\\\"Species\\\", \\\"Species:EquusCaballus\\\"]\"",
"\"species specification\""}, "Entity"], "[",
TemplateBox[{"\"image\"",
RowBox[{"EntityProperty", "[",
RowBox[{"\"Species\"", ",", "\"Image\""}], "]"}],
"\"EntityProperty[\\\"Species\\\", \\\"Image\\\"]\""},
"EntityProperty"], "]"}],
Typeset`allassumptions$$ = {{
"type" -> "MultiClash", "word" -> "",
"template" -> "Assuming ${word1} is referring to ${desc1}. Use \
\"${word2}\" as ${desc2}. Use \"${word3}\" as ${desc3}. Use \
\"${word4}\" as ${desc4}.", "count" -> "4",
"Values" -> {{
"name" -> "Species", "word" -> "horse",
"desc" -> "a species specification",
"input" -> "*MC.%7E-_*Species-"}, {
"name" -> "Movie", "word" -> "horse", "desc" -> "a movie",
"input" -> "*MC.%7E-_*Movie-"}, {
"name" -> "PopularCurve", "word" -> "horse",
"desc" -> "a popular curve",
"input" -> "*MC.%7E-_*PopularCurve-"}, {
"name" -> "WordData", "word" -> "",
"desc" -> " referring to English words",
"input" -> "*MC.%7E-_*WordData-"}}}},
Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2},
Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 2.203392`6.794636761773483, "Messages" -> {}}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic,
Dynamic[Typeset`query$$],
Dynamic[Typeset`boxes$$],
Dynamic[Typeset`allassumptions$$],
Dynamic[Typeset`assumptions$$],
Dynamic[Typeset`open$$],
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{233., {10., 17.}},
TrackedSymbols:>{
Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$,
Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)
To get a picture of something else, click the box and it will turn back into an input box. Select “horse” by double-clicking it, and type something else, like “bird”:
\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "picture of a bird",
Typeset`boxes$$ = RowBox[{"EntityValue", "[",
RowBox[{
TemplateBox[{"\"birds\"",
RowBox[{"Entity", "[",
RowBox[{"\"Species\"", ",", "\"Class:Aves\""}], "]"}],
"\"Entity[\\\"Species\\\", \\\"Class:Aves\\\"]\"",
"\"species specification\""}, "Entity"], ",",
TemplateBox[{"\"image\"",
RowBox[{"EntityProperty", "[",
RowBox[{"\"Species\"", ",", "\"Image\""}], "]"}],
"\"EntityProperty[\\\"Species\\\", \\\"Image\\\"]\""},
"EntityProperty"]}], "]"}],
Typeset`allassumptions$$ = {{
"type" -> "MultiClash", "word" -> "",
"template" -> "Assuming ${word1} is referring to ${desc1}. Use \
\"${word2}\" as ${desc2}. Use \"${word3}\" as ${desc3}. Use \
\"${word4}\" as ${desc4}. Use \"${word5}\" as ${desc5}.",
"count" -> "5",
"Values" -> {{
"name" -> "Species", "word" -> "bird",
"desc" -> "a species specification",
"input" -> "*MC.%7E-_*Species-"}, {
"name" -> "Movie", "word" -> "bird", "desc" -> "a movie",
"input" -> "*MC.%7E-_*Movie-"}, {
"name" -> "PopularCurve", "word" -> "bird",
"desc" -> "a popular curve",
"input" -> "*MC.%7E-_*PopularCurve-"}, {
"name" -> "Person", "word" -> "a bird", "desc" -> "a person",
"input" -> "*MC.%7E-_*Person-"}, {
"name" -> "WordData", "word" -> "",
"desc" -> " referring to English words",
"input" -> "*MC.%7E-_*WordData-"}}}},
Typeset`assumptions$$ = {}, Typeset`open$$ = {1},
Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 1.238328`6.54438068642158, "Messages" -> {}}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic,
Dynamic[Typeset`query$$],
Dynamic[Typeset`boxes$$],
Dynamic[Typeset`allassumptions$$],
Dynamic[Typeset`assumptions$$],
Dynamic[Typeset`open$$],
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{103., {7., 16.}},
TrackedSymbols:>{
Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$,
Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)
\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ =
"picture of a horse", WolframAlphaClient`Private`boxes$$ = RowBox[{
TemplateBox[{"\"horse (domestic)\"",
RowBox[{"Entity", "[",
RowBox[{"\"Species\"", ",", "\"Species:EquusCaballus\""}], "]"}],
"\"Entity[\\\"Species\\\", \\\"Species:EquusCaballus\\\"]\"",
"\"species specification\""}, "Entity"], "[",
TemplateBox[{"\"image\"",
RowBox[{"EntityProperty", "[",
RowBox[{"\"Species\"", ",", "\"Image\""}], "]"}],
"\"EntityProperty[\\\"Species\\\", \\\"Image\\\"]\""},
"EntityProperty"], "]"}],
WolframAlphaClient`Private`allassumptions$$ = {{
"type" -> "MultiClash", "word" -> "",
"template" -> "Assuming ${word1} is referring to ${desc1}. Use \
\"${word2}\" as ${desc2}. Use \"${word3}\" as ${desc3}. Use \
\"${word4}\" as ${desc4}.", "count" -> "4",
"Values" -> {{
"name" -> "Species", "word" -> "horse",
"desc" -> "a species specification",
"input" -> "*MC.%7E-_*Species-"}, {
"name" -> "Movie", "word" -> "horse", "desc" -> "a movie",
"input" -> "*MC.%7E-_*Movie-"}, {
"name" -> "PopularCurve", "word" -> "horse",
"desc" -> "a popular curve",
"input" -> "*MC.%7E-_*PopularCurve-"}, {
"name" -> "WordData", "word" -> "",
"desc" -> " referring to English words",
"input" -> "*MC.%7E-_*WordData-"}}}},
WolframAlphaClient`Private`assumptions$$ = {},
WolframAlphaClient`Private`open$$ = {1}},
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->{123., {7., 16.}},
TrackedSymbols:>{
WolframAlphaClient`Private`query$$,
WolframAlphaClient`Private`boxes$$,
WolframAlphaClient`Private`allassumptions$$,
WolframAlphaClient`Private`assumptions$$,
WolframAlphaClient`Private`open$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)