空を横切る太陽を追跡する

日の出から日の入りまで，一定の速度で太陽に向かって歩いた場合の最終的な位置を求める．

In[1]:=

location = 
  Entity["Building", "WhiteHouse"][
   EntityProperty["Building", "Position"]];
speed = \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "4 mph", 
      WolframAlphaClient`Private`boxes$$ = 
      TemplateBox[{"4"}, "QuantityUnit", 
       DisplayFunction -> (TooltipBox[
StyleBox[
RowBox[{#, " ", 
StyleBox[
RowBox[{" ", 
RowBox[{"\"mi\"", " ", "\"/\"", " ", "\"h\""}]}], 
             "QuantityUnitTraditionalInput"]}], 
          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}}, 
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->{57., {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]\);
deltaT = \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "10 min", 
      WolframAlphaClient`Private`boxes$$ = 
      TemplateBox[{"10"}, "QuantityUnit", 
       DisplayFunction -> (TooltipBox[
StyleBox[
RowBox[{#, " ", 
StyleBox[
RowBox[{" ", "\"min\""}], "QuantityUnitTraditionalInput"]}], 
          ShowStringCharacters -> False], "Unit: minutes"]& ), 
       InterpretationFunction -> (RowBox[{"Quantity", "[", 
RowBox[{#, ",", "\"Minutes\""}], "]"}]& ), SyntaxForm -> Mod], 
      WolframAlphaClient`Private`allassumptions$$ = {{
       "type" -> "Clash", "word" -> "min", 
        "template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "2", 
        "Values" -> {{
          "name" -> "Unit", "desc" -> "a unit", 
           "input" -> "*C.min-_*Unit-"}, {
          "name" -> "OptimizationWord", 
           "desc" -> " referring to optimization", 
           "input" -> "*C.min-_*OptimizationWord-"}}}, {
       "type" -> "Unit", "word" -> "min", 
        "template" -> "Assuming ${desc1} for \"${word}\". Use \
${desc2} instead", "count" -> "3", 
        "Values" -> {{
          "name" -> "Minutes", "desc" -> "minutes of time", 
           "input" -> "UnitClash_*min.*Minutes--"}, {
          "name" -> "MinimsUS", "desc" -> "US minims of volume", 
           "input" -> "UnitClash_*min.*MinimsUS--"}, {
          
          "name" -> "ArcMinutes", "desc" -> "minutes of arc", 
           "input" -> "UnitClash_*min.*ArcMinutes--"}}}}, 
      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->{60., {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]\);
start = Sunrise[location, \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "July 4", 
       WolframAlphaClient`Private`boxes$$ = RowBox[{"DateObject", "[", 
RowBox[{"{", 
RowBox[{"2014", ",", " ", "7", ",", " ", "4"}], "}"}], "]"}], 
       WolframAlphaClient`Private`allassumptions$$ = {}, 
       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->{55., {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]\)];
end = Sunset[location, \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "July 4", 
       WolframAlphaClient`Private`boxes$$ = RowBox[{"DateObject", "[", 
RowBox[{"{", 
RowBox[{"2014", ",", " ", "7", ",", " ", "4"}], "}"}], "]"}], 
       WolframAlphaClient`Private`allassumptions$$ = {}, 
       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->{55., {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]\)];

10分刻みで計算を繰返し，新規のコースと方向を得る．

In[2]:=

結果の経路を可視化する．

In[3]:=

Out[3]=

Wolfram Mathematica

空を横切る太陽を追跡する

Mathematica

Wolfram Mathematica

空を横切る太陽を追跡する

Related Examples

Mathematica