- 积分
- 5
- 注册时间
- 2009-7-17
- 仿真币
-
- 最后登录
- 1970-1-1
|
本帖最后由 hellboy2 于 2009-10-21 03:11 编辑
- cs = DeleteCases[{#, CountryData[#, "NationalityName"]} & /@ CountryData[All], _Missing, 2];
- esecountries = Append[(Select[cs, StringMatchQ[#[[-1]], __ ~~ "ese"] &])[[All, 1]], "Taiwan"]
- ese = Graphics[{EdgeForm[], FaceForm[Red], CountryData[#, "Polygon"]} & /@ esecountries];
- bg = Graphics[{EdgeForm[Black], FaceForm[], CountryData[#, "Polygon"]} & /@ CountryData[All], Frame -> None];
- Show[bg, ese]
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
评分
-
1
查看全部评分
-
|