Mathematica 教學 Draw a 3D Globe via Mathematica

aa=CountryData[#,"SchematicPolygon"][[1,1]]&/@CountryData[];
GeoPositionXYZ[#][[1]]/10^6&/@Map[GeoPosition[Reverse[#]]&,aa[[1]]];

mylength=Max[Sqrt[#.#]&/@(GeoPositionXYZ[#][[1]]/10^6&/@
Map[GeoPosition[Reverse[#]]&,aa[[1]]])];

myearth=Graphics3D[Table[Polygon[GeoPositionXYZ[#][[1]]/10^6&/@
Map[GeoPosition[Reverse[#]]&,aa[[i]]]],{i,Length[aa]}],
Boxed->False,Axes->False,SphericalRegion->True,
RotationAction->"Fit"];

temp=SphericalPlot3D[mylength,{\[Theta],0,Pi},{\[Phi],0,2Pi},
Boxed->False,Axes->False,SphericalRegion->True,
RotationAction->"Fit",
MeshShading->{{FaceForm[None,None],
FaceForm[None,None]},{FaceForm[None,None],
FaceForm[None,None]}}];

earth=Show[myearth,temp];

Export["earth.gif",Graphics3D[Rotate[earth[[1]],2Pi*#/100,{0,0,1}],
Boxed->False,Axes->False,SphericalRegion->True,
RotationAction->"Fit"]&/@Range[0,100,1]]

Tags: Mathematica 教學

• 編輯文章
• 此文章網址
• 轉寄此文章
• 目前有0 意見