home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / MISCELLA.PAK / WORLDNAM.M < prev    next >
Encoding:
Text File  |  1992-07-29  |  5.9 KB  |  126 lines
  1.  
  2. (* :Title: World Names *)
  3.  
  4. (* :Author: John M. Novak *)
  5.  
  6. (* :Summary: This package defines symbols for use with WorldPlot.m
  7.     at the global level.  The symbols are the names of
  8.     countries and lists of countries.  The defined lists are:
  9.     World, NorthAmerica, Europe, SouthAmerica, Asia, Oceania, Africa *)
  10.  
  11. (* :Context: WorldNames` *)
  12.  
  13. (* :Package Version: 1.0 *)
  14.  
  15. (* :History: V 1.0 by John M. Novak, Nov. 1990 *)
  16.  
  17. (* :Keywords: nations, cartography *)
  18.  
  19. (* :Source:
  20.     Esselte Map Service AB (Sweden): The Concise EARTHBOOK World
  21.         Atlas, Earthbooks Incorporated, 1990
  22. *)
  23.  
  24. (* :Mathematica Version: 1.2 or 2.0 *)
  25.  
  26. (* :Limitation: Does not name every country in the world, but only
  27.     those for which there is data in the WorldData.m package. *)
  28.  
  29. BeginPackage["Miscellaneous`WorldNames`"]
  30.  
  31. World::usage =
  32.     "The symbol World contains the names of all the countries in the WorldData
  33.     database.";
  34.  
  35. World = {"Afghanistan", "Albania", "Algeria", "Andorra", "Angola", "Antarctica",
  36.    "Argentina", "Australia", "Austria", "Bahrain", "Bangladesh", "Belgium",
  37.    "Belize", "Benin", "Bermuda", "Bhutan", "Bolivia", "Botswana", "Brazil",
  38.    "Brunei", "Bulgaria", "Burkina Faso", "Burma", "Burundi", "CAR", "Cabinda",
  39.    "Cambodia", "Cameroon", "Canada", "Chad", "Chile", "China", "Colombia", "Congo",
  40.    "Costa Rica", "Cuba", "Cyprus", "Czechoslovakia", "Denmark", "Djibouti",
  41.    "Dominican Republic", "Ecuador", "Egypt", "El Salvador", "Equatorial Guinea",
  42.    "Ethiopia", "Falkland Islands", "Fiji", "Finland", "France", "French Guiana",
  43.    "Gabon", "Gambia", "Germany", "Ghana", "Gibraltar", "Greece", "Greenland",
  44.    "Guatemala", "Guinea", "Guinea Bissau", "Guyana", "Haiti", "Honduras", "Hungary",
  45.    "Iceland", "India", "Indonesia", "Iran", "Iraq", "Ireland", "Israel", "Italy",
  46.    "Ivory Coast", "Jamaica", "Japan", "Jordan", "Kenya", "Kuwait", "Laos", "Lebanon",
  47.    "Liberia", "Libya", "Liechtenstein", "Luxembourg", "Madagascar", "Malawi",
  48.    "Malaysia", "Mali", "Mauritania", "Mexico", "Monaco", "Mongolia", "Morocco",
  49.    "Mozambique", "Namibia", "Nepal", "Netherlands", "New Zealand", "Nicaragua",
  50.    "Niger", "Nigeria", "North Korea", "Norway", "Oman", "Pakistan", "Panama",
  51.    "Papua-New Guinea", "Paraguay", "Peru", "Philippines", "Poland", "Portugal",
  52.    "Puerto Rico", "Qatar", "Romania", "Rwanda", "San Marino", "Saudi Arabia",
  53.    "Senegal", "Sierra Leone", "Singapore", "Somalia", "South Africa", "Lesotho",
  54.    "South Korea", "Spain", "Sri Lanka", "Sudan", "Suriname", "Swaziland", "Sweden",
  55.    "Switzerland", "Syria", "Taiwan", "Tanzania", "Thailand", "Togo", "Tunisia",
  56.    "Turkey", "UAE", "United Kingdom", "USA", "USSR", "Uganda", "Uruguay", "Venezuela",
  57.    "Vietnam", "Western Sahara", "Yemen AR", "Yemen PR", "Yugoslavia", "Zaire",
  58.    "Zambia", "Zimbabwe"};
  59.  
  60. (* Note: Lesotho is out of alphabetical 
  61. order so it can be plotted on top of South
  62. Africa. (otherwise, when a polygon, S.A. covers Lesotho) *)
  63.  
  64. Europe::usage =
  65.     "Europe contains the names of all the countries of Europe defined in the
  66.     WorldData database; includes the USSR.";
  67.  
  68. Europe = {"Portugal", "Spain", "France", "Italy", "Switzerland", "Austria",
  69.     "Germany", "Luxembourg", "Liechtenstein", "Andorra", "Belgium", "Netherlands",
  70.     "Denmark", "Poland", "Czechoslovakia", "Hungary", "Albania",
  71.     "Yugoslavia", "Romania", "Bulgaria", "Greece", "United Kingdom", "Turkey", "Cyprus",
  72.     "Ireland", "Iceland", "Norway", "Sweden", "Finland", "Monaco", "Gibraltar", "San Marino", "USSR"};
  73.  
  74. SouthAmerica::usage =
  75.     "SouthAmerica contains the names of the countries of South America defined in
  76.     the WorldData database.";
  77.  
  78. SouthAmerica = {"Colombia", "Venezuela", "Guyana", "Suriname",
  79.     "French Guiana", "Ecuador", "Peru", "Bolivia", "Chile", "Paraguay",
  80.     "Argentina", "Uruguay", "Brazil"};
  81.  
  82. NorthAmerica::usage =
  83.     "NorthAmerica contains the names of the countries of North and Central
  84.     America defined in the WordData database.";
  85.  
  86. NorthAmerica = {"USA", "Canada", "Mexico", "Greenland", "Bermuda", "Cuba", "Jamaica", "Haiti",
  87.     "Belize", "Dominican Republic", "El Salvador", "Guatemala", "Honduras", "Nicaragua",
  88.     "Costa Rica", "Panama", "Puerto Rico"};
  89.  
  90. Oceania::usage =
  91.     "Oceania contains the names of the countries of the South Pacific defined in
  92.     the WorldData database.";
  93.  
  94. Oceania = {"Indonesia", "Papua-New Guinea", "Fiji", "Australia", "New Zealand"};
  95.  
  96. Asia::usage =
  97.     "Asia contains the names of the countries of Asia defined in the WorldData
  98.     database; including the Middle East and the USSR.";
  99.  
  100. Asia = {"USSR", "China", "Mongolia", "Afghanistan", "Pakistan", "India",
  101.     "Nepal", "Bhutan", "Sri Lanka", "Bangladesh", "Burma", "Thailand",
  102.     "Laos", "Cambodia", "Vietnam", "North Korea", "South Korea",
  103.     "Japan", "Taiwan", "Turkey", "Lebanon", "Syria", "Iraq", "Iran", "Israel", "Jordan", "Kuwait",
  104.     "Saudi Arabia", "Bahrain", "Qatar", "UAE", "Yemen AR", "Yemen PR", "Oman", "Philippines",
  105.     "Malaysia", "Singapore", "Brunei", "Indonesia"};
  106.  
  107. Africa::usage =
  108.     "Africa contains the names of the countries of Africa defined in the WorldData
  109.     database.";
  110.  
  111. Africa = {"Algeria", "Angola", "Benin", "Botswana", "Burkina Faso", "Burundi", "Cameroon",
  112.     "CAR", "Chad", "Congo", "Djibouti", "Egypt", "Equatorial Guinea", "Ethiopia", "Gabon", "Ghana",
  113.     "Guinea", "Guinea Bissau", "Ivory Coast", "Kenya", "Liberia", "Libya",
  114.     "Madagascar", "Malawi", "Mali", "Mauritania", "Morocco", "Mozambique", "Namibia", "Niger",
  115.     "Nigeria", "South Africa", "Lesotho", "Rwanda", "Senegal", "Sierra Leone", "Somalia", "Sudan", "Swaziland",
  116.     "Tanzania", "Gambia", "Togo", "Tunisia", "Uganda", "Western Sahara", "Zaire", "Zambia", "Zimbabwe"};
  117.  
  118. MiddleEast::usage =
  119.     "MiddleEast contains the names of the countries of the Middle East defined
  120.     in the WorldData database.";
  121.  
  122. MiddleEast = {"Egypt", "Israel", "Lebanon", "Syria", "Turkey", "Saudi Arabia", "Yemen AR", "Yemen PR",
  123.     "Oman", "UAE", "Bahrain", "Kuwait", "Iraq", "Iran", "Jordan", "Qatar"};
  124.  
  125. EndPackage[]
  126.