Сравнение двух городов в их ориентировании на вегетарианский стиль питания: Новое в системе Wolfram Language 11

‹›

Сравнение двух городов в их ориентировании на вегетарианский стиль питания

Установить связь с Factual API, чтобы получить информацию о местах питания.

In[1]:=

factual = ServiceConnect["Factual"]

Out[1]=

Найти места с едой для веганов и вегетарианцев в этих двух городах.

In[2]:=

resultsSeattle = 
  factual["PlacesDataset", 
   "Locality" -> 
    Entity["City", {"Seattle", "Washington", "UnitedStates"}], 
   "Query" -> "Vegan and vegetarian food", MaxItems -> 300];
resultsHonolulu = 
  factual["PlacesDataset", 
   "Locality" -> 
    Entity["City", {"Honolulu", "Hawaii", "UnitedStates"}], 
   "Query" -> "Vegan and vegetarian food", MaxItems -> 300];

Получить количество мест и их плотность.

код на языке Wolfram Language целиком

In[3]:=

TextGrid[{{"City", "Area", "Number of locations", 
   "Density"}, {Entity[
    "City", {"Seattle", "Washington", "UnitedStates"}], 
   Entity["City", {"Seattle", "Washington", "UnitedStates"}]["Area"], 
   Length[resultsSeattle], 
   Length[resultsSeattle]/
    Entity["City", {"Seattle", "Washington", "UnitedStates"}][
     "Area"]}, {Entity[
    "City", {"Honolulu", "Hawaii", "UnitedStates"}], 
   Entity["City", {"Honolulu", "Hawaii", "UnitedStates"}]["Area"], 
   Length[resultsHonolulu], 
   Length[resultsHonolulu]/
    Entity["City", {"Honolulu", "Hawaii", "UnitedStates"}]["Area"]}}, 
 Frame -> All]

Out[3]=