Planejamento de viagem: Novos Recursos do Wolfram Language 11

Planejamento de viagem

A velocidade média dos carros que viajam de Indianápolis, Indiana, para Chicago, Illinois, é descrito por uma TriangularDistribution.

In[1]:=

speed\[ScriptCapitalD] = TriangularDistribution[{\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "55 mi/h", Typeset`boxes$$ = 
       TemplateBox[{"55", 
RowBox[{"\"mi\"", " ", "\"/\"", " ", "\"h\""}], "miles per hour", 
FractionBox["\"Miles\"", "\"Hours\""]}, "Quantity", 
        SyntaxForm -> Mod], Typeset`allassumptions$$ = {}, 
       Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
       Typeset`querystate$$ = {
       "Online" -> True, "Allowed" -> True, 
        "mparse.jsp" -> 3.9373779`8.046752092819743, 
        "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["45", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{94., {8., 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[{Typeset`query$$ = "82 mph", Typeset`boxes$$ = 
       TemplateBox[{"82", 
RowBox[{"\"mi\"", " ", "\"/\"", " ", "\"h\""}], "miles per hour", 
FractionBox["\"Miles\"", "\"Hours\""]}, "Quantity", 
        SyntaxForm -> Mod], Typeset`allassumptions$$ = {}, 
       Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
       Typeset`querystate$$ = {
       "Online" -> True, "Allowed" -> True, 
        "mparse.jsp" -> 0.2656176`6.875801841788495, 
        "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->{94., {8., 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[{Typeset`query$$ = "72 mph", Typeset`boxes$$ = 
      TemplateBox[{"72", 
RowBox[{"\"mi\"", " ", "\"/\"", " ", "\"h\""}], "miles per hour", 
FractionBox["\"Miles\"", "\"Hours\""]}, "Quantity", 
       SyntaxForm -> Mod], Typeset`allassumptions$$ = {}, 
      Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, 
      Typeset`querystate$$ = {
      "Online" -> True, "Allowed" -> True, 
       "mparse.jsp" -> 0.250013`6.8495075848939235, 
       "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->{94., {8., 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]\)]

Out[1]=

A função de densidade de probabilidade para a distribuição de velocidade.

In[2]:=

Plot[PDF[speed\[ScriptCapitalD], Quantity[x, "mph"]], {x, 50, 85}]

Out[2]=

Calcule a distância entre as cidades, estabelecendo que esteja dirigindo.

mostre o input completo da Wolfram Language

In[3]:=

GeoGraphics[
 Style[Line[
   TravelDirections[{Entity[
      "City", {"Indianapolis", "Indiana", "UnitedStates"}], 
     Entity["City", {"Chicago", "Illinois", "UnitedStates"}]}]], 
  Thick, Red], GeoBackground -> GeoStyling["StreetMap"], 
 GeoRange -> Quantity[100, "Miles"]]

Out[3]=

In[4]:=

distance = 
 TravelDistance[{Entity[
    "City", {"Indianapolis", "Indiana", "UnitedStates"}], 
   Entity["City", {"Chicago", "Illinois", "UnitedStates"}]}, 
  TravelMethod -> "Driving"]

Out[4]=

Calcule o tempo esperado de viagem.

In[5]:=

Expectation[distance/v, v \[Distributed] speed\[ScriptCapitalD]]

Out[5]=

Converta para horas e minutos.

In[6]:=

Expectation[distance/v, v \[Distributed] speed\[ScriptCapitalD]];
UnitConvert[%, MixedUnit[{"Hours", "Minutes"}]]

Out[6]=

A função de interpolação a seguir considera o consumo de combustível como uma função de velocidade do veículo, a quantidade esperada de combustível necessária para a viagem pode ser calculada usando NExpectation.

In[7]:=

mpg = Interpolation[{Quantity[{40, 50, 60, 70, 80}, "miles per hour"],
      Quantity[{33, 32, 28, 25, 20}, "miles per gallon"]} // 
    Transpose, InterpolationOrder -> 1];

In[8]:=

NExpectation[distance/mpg[v], v \[Distributed] speed\[ScriptCapitalD]]

Out[8]=

Wolfram Language™

Planejamento de viagem

Exemplos Relacionados