Tweeted twitter.com/StackMma/status/909774009599971328
3 added 53 characters in body
source | link

I can get the postion with this code

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

You can see the postion in the map

GeoListPlot[GeoPosition[pos]]

Mathematica graphics

I can get their elevation

poseleData = First[
 QuantityMagnitude[
  GeoElevationData[
   Flatten[#, 1] & /@ 
    First[Entity[
       "AdministrativeDivision", {"California", "UnitedStates"}][
      EntityProperty["AdministrativeDivision", "Polygon"]]]]"Polygon"]]]]]

Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]

I can plot its discrete plot

ListPointPlot3D[data]

Mathematica graphics

But how to connected those discrete points to get a smooth boundary?

I can get the postion with this code

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

You can see the postion in the map

GeoListPlot[GeoPosition[pos]]

Mathematica graphics

I can get their elevation

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]

I can plot its discrete plot

ListPointPlot3D[data]

Mathematica graphics

But how to connected those discrete points to get a smooth boundary?

I can get the postion with this code

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

You can see the postion in the map

GeoListPlot[GeoPosition[pos]]

Mathematica graphics

I can get their elevation

eleData = 
 QuantityMagnitude[
  GeoElevationData[
   Flatten[#, 1] & /@ 
    First[Entity[
       "AdministrativeDivision", {"California", "UnitedStates"}][
      EntityProperty["AdministrativeDivision", "Polygon"]]]]]

Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]

I can plot its discrete plot

ListPointPlot3D[data]

Mathematica graphics

But how to connected those discrete points to get a smooth boundary?

2 added 1 character in body
source | link

I can get the postion with this code

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

You can see the postion in the map

GeoListPlot[GeoPosition[pos]]

Mathematica graphics

I can get their elevation

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]

I can plot its discrete plot

ListPointPlot3D[data]

Mathematica graphics

But how to connected those discrete pointpoints to get a smooth boundary?

I can get the postion with this code

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

You can see the postion in the map

GeoListPlot[GeoPosition[pos]]

Mathematica graphics

I can get their elevation

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]

I can plot its discrete plot

ListPointPlot3D[data]

Mathematica graphics

But how to connected those discrete point to get a smooth boundary?

I can get the postion with this code

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

You can see the postion in the map

GeoListPlot[GeoPosition[pos]]

Mathematica graphics

I can get their elevation

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]

I can plot its discrete plot

ListPointPlot3D[data]

Mathematica graphics

But how to connected those discrete points to get a smooth boundary?

1
source | link

How to plot the 3D-boundary of California or other states

I can get the postion with this code

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

You can see the postion in the map

GeoListPlot[GeoPosition[pos]]

Mathematica graphics

I can get their elevation

pos = First[
  Flatten[#, 1] & /@ 
   First[Entity[
      "AdministrativeDivision", {"California", "UnitedStates"}][
     EntityProperty["AdministrativeDivision", "Polygon"]]]]

Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]

I can plot its discrete plot

ListPointPlot3D[data]

Mathematica graphics

But how to connected those discrete point to get a smooth boundary?