Wolfram 地理 | 应用示例

在代码中点击并按下
+
，即可编辑并运行任何代码。
分析、计算与可视化地理数据。凭借精心整理的地理数据、精确计算及自动化可视化功能，让地理变得可计算。无论您是初学者还是专家，皆可轻松将数据转化为见解深刻且外观精美的地图。

生成各种地图

选择您想在地理地图中使用的背景：
Run
In[]:=
GeoGraphics["World",GeoBackground->"Satellite"]
选择地图投影：
Run
In[]:=
GeoGraphics["World",GeoBackground->"ReliefMap",GeoProjection->"Mollweide"]

放大以查看更多细节

指定一个地理区域，例如某个国家：
Run
In[]:=
GeoGraphics
Italy
COUNTRY

指定某个城市：
Run
In[]:=
GeoGraphics
Rome
CITY

指定特定范围：
Run
In[]:=
GeoGraphics
Colosseum
BUILDING
,GeoRange->
180
m


在地图上呈现数据

根据数据（例如GDP）对地理区域进行加权绘制：
Run
In[]:=
GeoRegionValuePlot
Europe
COUNTRIES
->"GDP"
为数据检索定义您自己的实体类——本例指美国50个最大城市：
Run
In[]:=
cityclass=EntityClass"City",
country
->
United States
COUNTRY
,
city population
->TakeLargest[50];
可视化您隐式定义的类中的数据：
Run
In[]:=
GeoBubbleChart[cityclass->"Population"]

创建自定义地理图形

使用标记与多边形创建定制化图像：
Run
In[]:=
GeoGraphicsGeoMarker
Paris
CITY
,Polygon
France
COUNTRY

设置图形与样式外观：
Run
In[]:=
GeoGraphicsEdgeForm[Black],Red,Polygon
Italy
COUNTRY

指定自定义标记：
Run
In[]:=
GeoGraphics​​GeoMarker
Narita International Airport
AIRPORT
,
airport
ICON
,"Color"->Red,​​GeoMarker
Osaka International Airport
AIRPORT
,
airport
ICON
,"Color"->Blue,​​Polygon
Japan
COUNTRY
​​
显示下一次天文事件期间的晨昏线：
Run
In[]:=
nexteclipse=SolarEclipse[];​​GeoGraphics[{Black,NightHemisphere[nexteclipse],Red,DayNightTerminator[nexteclipse]},​​GeoRange"World"]

执行地理计算

获取您在世界中的当前位置：
Run
In[]:=
Here
计算两地之间的距离：
Run
In[]:=
GeoDistanceHere,
Paris
CITY

计算地理区域的面积：
Run
In[]:=
GeoArea
France
COUNTRY


获取并可视化行程路线

通过一系列地点获取行程指引：
Run
In[]:=
directions=​​TravelDirections
Madrid
CITY
,
Paris
CITY
,
Berlin
CITY
,
Warsaw
CITY
,TravelMethod->"Driving"
可视化路线：
Run
In[]:=
GeoGraphics[{Red,Thick,directions["TravelPath"]}]
估算路线覆盖的距离：
Run
In[]:=
directions["TravelDistance",UnitSystem->"Metric"]
估算行程所需时间：
Run
In[]:=
directions["TravelTime"]

获取并应用地球物理数据

获取指定位置的海拔数据：
Run
In[]:=
elevationdata=GeoElevationData
Mount St. Helens
MOUNTAIN
,GeoRange->
4
km

三维可视化数据：
Run
In[]:=
ListPlot3Delevationdata,
Options settings

创建区域地势图：
Run
In[]:=
ReliefPlotelevationdata,
Options settings

从给定的位置和海拔估算可见区域：
Run
In[]:=
GeoGraphicsGeoVisibleRegion
Tokyo Skytree
BUILDING
[{"Latitude","Longitude","Height"}]
应用地磁模型绘制沿磁北方向导航的路径：
Run
In[]:=
GeoStreamPlotGeomagneticModelData
Canada
COUNTRY
,GeoVector,GeoGridLines->Automatic

计算地理统计

获取阿拉斯加在1950年至2022年间震级大于6级的地震位置：
Run
In[]:=
alaskaQuakes=​​EarthquakeData
Alaska, United States
ADMINISTRATIVE DIVISION
,{6,10},
Year: 1950
,
Year: 2022
,"Position"//Quiet
创建这些事件的平滑空间直方图：
Run
In[]:=
GeoSmoothHistogramalaskaQuakes,GeoRange->
Alaska, United States
ADMINISTRATIVE DIVISION

同时显示直方图与地震位置：
Run
In[]:=
Show​​GeoSmoothHistogramalaskaQuakes,GeoRange->
Alaska, United States
ADMINISTRATIVE DIVISION
,​​GeoListPlotalaskaQuakes,GeoRange->
Alaska, United States
ADMINISTRATIVE DIVISION
​​

预测空间模式

获取美国上空臭氧测量的空间数据：
Run
In[]:=
spatialdata=ResourceData["Sample Data: US Ozone 2021","Data"];
绘制数据图以显示原始测量集中的空缺：
Run

创建天体地图