/*
Almanac v3.0

JavaScript programming and graphics,
copyright: Adrian R. Ashford, 5th January 2012.

Used with permission by Earth & Sky Ltd.

Parts of sunrise, sunset, moonrise and moonset from
moonup.bas and sunup.bas by Roger W. Sinnott,
Sky and Telescope magazine.
JavaScript port by Adrian R. Ashford.

ISS predictions based on MYBIRDSa.BAS
by Roger W. Sinnott, 3rd June 2001.
JavaScript port by Adrian R. Ashford.

Free date & time validation scripts:
Sandeep Tamhankar
stamhankar@hotmail.com
http://javascript.internet.com

Free dynamic form event script:
http://www.hscripts.com

Free variable passing in URL script:
http://javascript.internet.com

Public domain cookie scripts:
Dustin Diaz
http://www.dustindiaz.com/top-ten-javascript/
*/
								
thisImage = 0;

function getParams()
{
var idx = document.URL.indexOf('?');
var params = new Array();
if (idx != -1) {
var pairs = document.URL.substring(idx+1, document.URL.length).split('&');
for (var i=0; i<pairs.length; i++)
{
nameVal = pairs[i].split('=');
params[nameVal[0]] = nameVal[1];
}
}
return params;
}
params = getParams();

latitude = parseFloat(unescape(params["latitude"]));
longitude = parseFloat(unescape(params["longitude"]));
t_zone = parseFloat(unescape(params["tzone"]));
UTdate = unescape(params["UTdate"]);
UTtime = unescape(params["UTtime"]);

aaa = new Array(
"Select",
"Afghanistan",
"Albania",
"Algeria",
"Angola",
"Antigua",
"Argentina",
"Armenia",
"Australia",
"Austria",
"Azerbaijan",
"Bahamas",
"Bahrain",
"Bangladesh",
"Barbados",
"Belarus",
"Belgium",
"Belize",
"Benin",
"Bermuda",
"Bhutan",
"Bolivia",
"Bosnia_and_Herzegovina",
"Botswana",
"Brazil",
"Brunei",
"Bulgaria",
"Burkina_Faso",
"Burundi",
"Cambodia",
"Cameroon",
"Canada",
"Cape_Verde",
"Central_African_Rep",
"Chad",
"Chile",
"China",
"Colombia",
"Comoros",
"Congo",
"Congo_Dem_Rep",
"Costa_Rica",
"Cote_dIvoire",
"Croatia",
"Cuba",
"Cyprus",
"Czech_Republic",
"Denmark",
"Djibouti",
"Dominican_Rep",
"East_Timor",
"Ecuador",
"Egypt",
"El_Salvador",
"Eritrea",
"Estonia",
"Ethiopia",
"Falkland_Islands",
"Fiji",
"Finland",
"France",
"French_Guiana",
"Gabon",
"Gambia",
"Georgia",
"Germany",
"Ghana",
"Greece",
"Greenland",
"Guatemala",
"Guinea",
"Guinea_Bissau",
"Guyana",
"Haiti",
"Honduras",
"Hungary",
"Iceland",
"India",
"Indonesia",
"Iran",
"Iraq",
"Ireland",
"Israel",
"Italy",
"Jamaica",
"Japan",
"Jordan",
"Kazakhstan",
"Kenya",
"Korea_North",
"Korea_South",
"Kyrgyzstan",
"Laos",
"Latvia",
"Lebanon",
"Lesotho",
"Liberia",
"Libya",
"Lithuania",
"Luxembourg",
"Macedonia",
"Madagascar",
"Malawi",
"Malaysia",
"Mali",
"Malta",
"Marshall_Islands",
"Mauritania",
"Mauritius",
"Mexico",
"Moldova",
"Monaco",
"Mongolia",
"Morocco",
"Mozambique",
"Myanmar",
"Namibia",
"Nepal",
"Netherlands",
"New_Caledonia",
"New_Zealand",
"Nicaragua",
"Niger",
"Nigeria",
"Northern_Ireland",
"Norway",
"Oman",
"Pakistan",
"Panama",
"Papua_New_Guinea",
"Paraguay",
"Peru",
"Philippines",
"Poland",
"Portugal",
"Puerto_Rico",
"Qatar",
"Romania",
"Russia",
"Rwanda",
"Saudi_Arabia",
"Senegal",
"Serbia_Montenegro",
"Sierra_Leone",
"Singapore",
"Slovakia",
"Slovenia",
"Somalia",
"South_Africa",
"Spain",
"Sri_Lanka",
"Sudan",
"Suriname",
"Swaziland",
"Sweden",
"Switzerland",
"Syria",
"Tahiti",
"Taiwan",
"Tajikistan",
"Tanzania",
"Tasmania",
"Thailand",
"Togo",
"Trinidad_and_Tobago",
"Tunisia",
"Turkey",
"Turkmenistan",
"Uganda",
"Ukraine",
"United_Arab_Emirates",
"United_Kingdom",
"USA",
"Uruguay",
"Uzbekistan",
"Vatican_City",
"Venezuela",
"Vietnam",
"Yemen",
"Zambia",
"Zimbabwe"
);

Select = new Array("City");

Afghanistan = new Array("---","Kabul");
Albania = new Array("---","Tirana");
Algeria = new Array("---","Algiers");
Angola = new Array("---","Luanda");
Antigua = new Array("---","St Johns");
Argentina = new Array("---","Buenos Aires","Cordoba");
Armenia = new Array("---","Yerevan");
Australia = new Array("---","Adelaide","Brisbane","Darwin","Melbourne","Perth","Sydney");
Austria = new Array("---","Vienna");
Azerbaijan = new Array("---","Baku");
Bahamas = new Array("---","Nassau");
Bahrain = new Array("---","Manama");
Bangladesh = new Array("---","Chittagong");
Barbados = new Array("---","Bridgetown");
Belarus = new Array("---","Minsk");
Belgium = new Array("---","Brussels");
Belize = new Array("---","Belmopan");
Benin = new Array("---","Porto Novo");
Bermuda = new Array("---","Hamilton");
Bhutan = new Array("---","Thimphu");
Bolivia = new Array("---","La Paz");
Bosnia_and_Herzegovina = new Array("---","Sarajevo");
Botswana = new Array("---","Gaborone");
Brazil = new Array("---","Belem","Rio de Janeiro","Salvador","Sao Paulo");
Brunei = new Array("---","Bandar Seri Begawan");
Bulgaria = new Array("---","Sofia");
Burkina_Faso = new Array("---","Ouagadougou");
Burundi = new Array("---","Bujumbura");
Cambodia = new Array("---","Phnom Penh");
Cameroon = new Array("---","Yaounde");

Canada = new Array("---",
"Calgary, AB",
"Charlottetown, PE",
"Chicoutimi, QC",
"Edmonton, AB",
"Guelph, ON",
"Halifax, NS",
"Hamilton, ON",
"Hull, QC",
"Iqaluit, NU",
"Kelowna, BC",
"Kingston, ON",
"Kitchener, ON",
"London, ON",
"Montreal, QC",
"Oshawa, ON",
"Ottawa, ON",
"Quebec City, QC",
"Regina, SK",
"Saint John, NB",
"Saskatoon, SK",
"Sherbrooke, QC",
"St Catharines, ON",
"St Johns, NL",
"Sudbury, ON",
"Thunder Bay, ON",
"Toronto, ON",
"Trois-Rivieres, QC",
"Vancouver, BC",
"Victoria, BC",
"Whitehorse, YT",
"Windsor, ON",
"Winnipeg, MB",
"Yellowknife, NT");

Cape_Verde = new Array("---","Praia");
Central_African_Rep = new Array("---","Bangui");
Chad = new Array("---","Ndjamena");
Chile = new Array("---","Iquique","Santiago");
China = new Array("---","Beijing","Canton","Chongqing","Hong Kong","Nanjing","Shanghai");
Colombia = new Array("---","Bogota");
Comoros = new Array("---","Moroni");
Congo = new Array("---","Brazzaville");
Congo_Dem_Rep = new Array("---","Kinshasa");
Costa_Rica = new Array("---","San Jose");
Cote_dIvoire = new Array("---","Abidjan");
Croatia = new Array("---","Zagreb");
Cuba = new Array("---","Havana");
Cyprus = new Array("---","Nicosia");
Czech_Republic = new Array("---","Prague");
Denmark = new Array("---","Copenhagen");
Djibouti = new Array("---","Djibouti");
Dominican_Rep = new Array("---","Santo Domingo");
East_Timor = new Array("---","Dili");
Ecuador = new Array("---","Guayaquil");
Egypt = new Array("---","Cairo");
El_Salvador = new Array("---","San Salvador");
Eritrea = new Array("---","Asmera");
Estonia = new Array("---","Tallinn");
Ethiopia = new Array("---","Addis Ababa");
Falkland_Islands = new Array("---","Port Stanley");
Fiji = new Array("---","Suva");
Finland = new Array("---","Helsinki");
France = new Array("---","Bordeaux","Lyons","Marseilles","Paris");
French_Guiana = new Array("---","Cayenne");
Gabon = new Array("---","Libreville");
Gambia = new Array("---","Banjul");
Georgia = new Array("---","Tbilisi");
Germany = new Array("---","Berlin","Bremen","Frankfurt","Hamburg","Munich");
Ghana = new Array("---","Accra");
Greece = new Array("---","Athens");
Greenland = new Array("---","Nuuk");
Guatemala = new Array("---","Guatemala City");
Guinea = new Array("---","Conakry");
Guinea_Bissau = new Array("---","Bissau");
Guyana = new Array("---","Georgetown");
Haiti = new Array("---","Port-au-Prince");
Honduras = new Array("---","Tegucigalpa");
Hungary = new Array("---","Budapest");
Iceland = new Array("---","Reykjavik");
India = new Array("---","Bombay","Calcutta","Delhi");
Indonesia = new Array("---","Jakarta");
Iran = new Array("---","Teheran");
Iraq = new Array("---","Baghdad");
Ireland = new Array("---","Dublin");
Israel = new Array("---","Jerusalem","Tel Aviv");
Italy = new Array("---","Milan","Naples","Rome","Venice");
Jamaica = new Array("---","Kingston");
Japan = new Array("---","Nagasaki","Nagoya","Osaka","Tokyo");
Jordan = new Array("---","Amman");
Kazakhstan = new Array("---","Almaty");
Kenya = new Array("---","Nairobi");
Korea_North = new Array("---","Pyongyang");
Korea_South = new Array("---","Seoul");
Kyrgyzstan = new Array("---","Bishkek");
Laos = new Array("---","Vientiane");
Latvia = new Array("---","Riga");
Lebanon = new Array("---","Beirut");
Lesotho = new Array("---","Maseru");
Liberia = new Array("---","Monrovia");
Libya = new Array("---","Tripoli");
Lithuania = new Array("---","Vilnius");
Luxembourg = new Array("---","Luxembourg");
Macedonia = new Array("---","Skopje");
Madagascar = new Array("---","Tananarive");
Malawi = new Array("---","Lilongwe");
Malaysia = new Array("---","Kuala Lumpur");
Mali = new Array("---","Bamako");
Malta = new Array("---","Valletta");
Marshall_Islands = new Array("---","Majuro");
Mauritania = new Array("---","Nouakchott");
Mauritius = new Array("---","Port Louis");
Mexico = new Array("---","Chihuahua","Mazatlan","Mexico City","Veracruz");
Moldova = new Array("---","Kishinev");
Monaco = new Array("---","Monaco");
Mongolia = new Array("---","Ulaanbaatar");
Morocco = new Array("---","Casablanca");
Mozambique = new Array("---","Maputo");
Myanmar = new Array("---","Naypyidaw","Yangon");
Namibia = new Array("---","Windhoek");
Nepal = new Array("---","Kathmandu");
Netherlands = new Array("---","Amsterdam");
New_Caledonia = new Array("---","Noumea");
New_Zealand = new Array("---","Auckland","Christchurch","Dunedin","Invercargill","Queenstown","Wellington");
Nicaragua = new Array("---","Managua");
Niger = new Array("---","Niamey");
Nigeria = new Array("---","Lagos");
Northern_Ireland = new Array("---","Belfast");
Norway = new Array("---","Hammerfest","Oslo");
Oman = new Array("---","Muscat");
Pakistan = new Array("---","Islamabad");
Panama = new Array("---","Panama City");
Papua_New_Guinea = new Array("---","Port Moresby");
Paraguay = new Array("---","Asuncion");
Peru = new Array("---","Lima");
Philippines = new Array("---","Manila");
Poland = new Array("---","Warsaw");
Portugal = new Array("---","Lisbon");
Puerto_Rico = new Array("---","San Juan");
Qatar = new Array("---","Doha");
Romania = new Array("---","Bucharest");
Russia = new Array("---","Irkutsk","Moscow","St Petersburg","Vladivostok");
Rwanda = new Array("---","Kigali");
Saudi_Arabia = new Array("---","Mecca");
Senegal = new Array("---","Dakar");
Serbia_Montenegro = new Array("---","Belgrade");
Sierra_Leone = new Array("---","Freetown");
Singapore = new Array("---","Singapore");
Slovakia = new Array("---","Bratislava");
Slovenia = new Array("---","Ljubljana");
Somalia = new Array("---","Mogadishu");
South_Africa = new Array("---","Johannesburg","CapeTown","Durban");
Spain = new Array("---","Barcelona","Madrid");
Sri_Lanka = new Array("---","Colombo");
Sudan = new Array("---","Khartoum");
Suriname = new Array("---","Paramaribo");
Swaziland = new Array("---","Mbabane");
Sweden = new Array("---","Stockholm");
Switzerland = new Array("---","Zurich");
Syria = new Array("---","Damascus");
Tahiti = new Array("---","Papeete");
Taiwan = new Array("---","Taipei");
Tajikistan = new Array("---","Dushanbe");
Tanzania = new Array("---","Dar es Salaam");
Tasmania = new Array("---","Hobart");
Thailand = new Array("---","Bangkok");
Togo = new Array("---","Lome");
Trinidad_and_Tobago = new Array("---","Port of Spain");
Tunisia = new Array("---","Tunis");
Turkey = new Array("---","Ankara");
Turkmenistan = new Array("---","Ashgabat");
Uganda = new Array("---","Kampala");
Ukraine = new Array("---","Odessa");
United_Arab_Emirates = new Array("---","Dubai");
United_Kingdom = new Array("---","Aberdeen","Birmingham","Cardiff","Edinburgh","Glasgow","Leeds","Liverpool","London","Manchester","Newcastle","Norwich","Plymouth");

USA = new Array("---",
"Albany, NY",
"Albuquerque, NM",
"Amarillo, TX",
"Anchorage, AK",
"Atlanta, GA",
"Austin, TX",
"Baker, OR",
"Baltimore, MD",
"Bangor, ME",
"Birmingham, AL",
"Bismarck, ND",
"Boise, ID",
"Boston, MA",
"Buffalo, NY",
"Carlsbad, NM",
"Charleston, SC",
"Charleston, WV",
"Charlotte, NC",
"Cheyenne, WY",
"Chicago, IL",
"Cincinnati, OH",
"Cleveland, OH",
"Columbia, SC",
"Columbus, OH",
"Dallas, TX",
"Denver, CO",
"Des Moines, IA",
"Detroit, MI",
"Dubuque, IA",
"Duluth, MN",
"Eastport, ME",
"El Centro, CA",
"El Paso, TX",
"Eugene, OR",
"Fargo, ND",
"Flagstaff, AZ",
"Fort Worth, TX",
"Fresno, CA",
"Grand Junction, CO",
"Grand Rapids, MI",
"Havre, MT",
"Helena, MT",
"Honolulu, HI",
"Hot Springs, AR",
"Houston, TX",
"Idaho Falls, ID",
"Indianapolis, IN",
"Jackson, MS",
"Jacksonville, FL",
"Juneau, AK",
"Kansas City, MO",
"Key West, FL",
"Klamath Falls, OR",
"Knoxville, TN",
"Las Vegas, NV",
"Lewiston, ID",
"Lincoln, NE",
"Long Beach, CA",
"Los Angeles, CA",
"Louisville, KY",
"Manchester, NH",
"Memphis, TN",
"Miami, FL",
"Milwaukee, WI",
"Minneapolis, MN",
"Mobile, AL",
"Montgomery, AL",
"Montpelier, VT",
"Nashville, TN",
"Newark, NJ",
"New Haven, CT",
"New Orleans, LA",
"New York, NY",
"Nome, AK",
"Oakland, CA",
"Oklahoma City, OK",
"Omaha, NE",
"Philadelphia, PA",
"Phoenix, AZ",
"Pierre, SD",
"Pittsburgh, PA",
"Portland, ME",
"Portland, OR",
"Providence, RI",
"Raleigh, NC",
"Reno, NV",
"Richfield, UT",
"Richmond, VA",
"Roanoke, VA",
"Sacramento, CA",
"St Louis, MO",
"Salt Lake City, UT",
"San Antonio, TX",
"San Diego, CA",
"San Francisco, CA",
"San Jose, CA",
"Santa Fe, NM",
"Savannah, GA",
"Seattle, WA",
"Shreveport, LA",
"Sioux Falls, SD",
"Sitka, AK",
"Spokane, WA",
"Springfield, IL",
"Springfield, MA",
"Springfield, MO",
"Syracuse, NY",
"Tampa, FL",
"Toledo, OH",
"Tulsa, OK",
"Virginia Beach, VA",
"Washington, D.C.",
"Wichita, KS",
"Wilmington, NC");

Uruguay = new Array("---","Montevideo");
Uzbekistan = new Array("---","Tashkent");
Vatican_City = new Array("---","Vatican City");
Venezuela = new Array("---","Caracas");
Vietnam = new Array("---","Hanoi");
Yemen = new Array("---","Sana");
Zambia = new Array("---","Lusaka");
Zimbabwe = new Array("---","Harare");

City = "...";

function changeval()
{
var val1 = document.planets.sel1.value;
var optionArray = eval(val1);
for (var df=0; df<optionArray.length; df++)
{
var ss = document.planets.sel2;
ss.options.length = 0;
for (var ff=0; ff<optionArray.length; ff++)
{
var val = optionArray[ff];
ss.options[ff] = new Option(val,val);
}
}
}

function recordval()
{
City = document.planets.sel2.value;

/* US cities listing */
if (City == 'Albany, NY')
{
latitude = 42.666667;
longitude = 73.75;
t_zone = -5;
}
if (City == 'Albuquerque, NM')
{
latitude = 35.85;
longitude = 106.65;
t_zone = -7;
}
if (City == 'Amarillo, TX')
{
latitude = 35.183333;
longitude = 101.833333;
t_zone = -6;
}
if (City == 'Anchorage, AK')
{
latitude = 61.216667;
longitude = 149.9;
t_zone = -9;
}
if (City == 'Atlanta, GA')
{
latitude = 33.75;
longitude = 84.383333;
t_zone = -5;
}
if (City == 'Austin, TX')
{
latitude = 30.266667;
longitude = 97.733333;
t_zone = -6;
}
if (City == 'Baker, OR')
{
latitude = 44.783333;
longitude = 117.833333;
t_zone = -8;
}
if (City == 'Baltimore, MD')
{
latitude = 39.3;
longitude = 76.633333;
t_zone = -5;
}
if (City == 'Bangor, ME')
{
latitude = 44.8;
longitude = 68.783333;
t_zone = -5;
}
if (City == 'Birmingham, AL')
{
latitude = 33.5;
longitude = 86.833333;
t_zone = -6;
}
if (City == 'Bismarck, ND')
{
latitude = 46.8;
longitude = 100.783333;
t_zone = -6;
}
if (City == 'Boise, ID')
{
latitude = 43.6;
longitude = 116.216667;
t_zone = -7;
}
if (City == 'Boston, MA')
{
latitude = 42.35;
longitude = 71.083333;
t_zone = -5;
}
if (City == 'Buffalo, NY')
{
latitude = 42.916667;
longitude = 78.833333;
t_zone = -5;
}
if (City == 'Carlsbad, NM')
{
latitude = 32.433333;
longitude = 104.25;
t_zone = -7;
}
if (City == 'Charleston, SC')
{
latitude = 32.783333;
longitude = 79.933333;
t_zone = -5;
}
if (City == 'Charleston, WV')
{
latitude = 38.35;
longitude = 81.633333;
t_zone = -5;
}
if (City == 'Charlotte, NC')
{
latitude = 35.233333;
longitude = 80.833333;
t_zone = -5;
}
if (City == 'Cheyenne, WY')
{
latitude = 41.15;
longitude = 104.866667;
t_zone = -7;
}
if (City == 'Chicago, IL')
{
latitude = 41.833333;
longitude = 87.616667;
t_zone = -6;
}
if (City == 'Cincinnati, OH')
{
latitude = 39.133333;
longitude = 84.5;
t_zone = -5;
}
if (City == 'Cleveland, OH')
{
latitude = 41.466667;
longitude = 81.616667;
t_zone = -5;
}
if (City == 'Columbia, SC')
{
latitude = 34;
longitude = 81.033333;
t_zone = -5;
}
if (City == 'Columbus, OH')
{
latitude = 40;
longitude = 83.016667;
t_zone = -5;
}
if (City == 'Dallas, TX')
{
latitude = 32.766667;
longitude = 96.766667;
t_zone = -6;
}
if (City == 'Denver, CO')
{
latitude = 39.75;
longitude = 105;
t_zone = -7;
}
if (City == 'Des Moines, IA')
{
latitude = 41.583333;
longitude = 93.616667;
t_zone = -6;
}
if (City == 'Detroit, MI')
{
latitude = 42.333333;
longitude = 83.05;
t_zone = -5;
}
if (City == 'Dubuque, IA')
{
latitude = 42.516667;
longitude = 90.666667;
t_zone = -6;
}
if (City == 'Duluth, MN')
{
latitude = 46.816667;
longitude = 92.083333;
t_zone = -6;
}
if (City == 'Eastport, ME')
{
latitude = 44.9;
longitude = 67;
t_zone = -5;
}
if (City == 'El Centro, CA')
{
latitude = 32.633333;
longitude = 115.55;
t_zone = -8;
}
if (City == 'El Paso, TX')
{
latitude = 31.766667;
longitude = 106.483333;
t_zone = -7;
}
if (City == 'Eugene, OR')
{
latitude = 44.05;
longitude = 123.083333;
t_zone = -8;
}
if (City == 'Fargo, ND')
{
latitude = 46.866667;
longitude = 96.8;
t_zone = -6;
}
if (City == 'Flagstaff, AZ')
{
latitude = 35.216667;
longitude = 111.683333;
t_zone = -7;
}
if (City == 'Fort Worth, TX')
{
latitude = 32.716667;
longitude = 97.316667;
t_zone = -6;
}
if (City == 'Fresno, CA')
{
latitude = 36.733333;
longitude = 119.8;
t_zone = -8;
}
if (City == 'Grand Junction, CO')
{
latitude = 39.083333;
longitude = 108.55;
t_zone = -7;
}
if (City == 'Grand Rapids, MI')
{
latitude = 42.966667;
longitude = 85.666667;
t_zone = -5;
}
if (City == 'Havre, MT')
{
latitude = 48.55;
longitude = 109.716667;
t_zone = -7;
}
if (City == 'Helena, MT')
{
latitude = 46.583333;
longitude = 112.033333;
t_zone = -7;
}
if (City == 'Honolulu, HI')
{
latitude = 21.3;
longitude = 157.833333;
t_zone = -10;
}
if (City == 'Hot Springs, AR')
{
latitude = 34.516667;
longitude = 93.05;
t_zone = -6;
}
if (City == 'Houston, TX')
{
latitude = 29.75;
longitude = 95.35;
t_zone = -6;
}
if (City == 'Idaho Falls, ID')
{
latitude = 43.5;
longitude = 112.016667;
t_zone = -7;
}
if (City == 'Indianapolis, IN')
{
latitude = 39.766667;
longitude = 86.166667;
t_zone = -5;
}
if (City == 'Jackson, MS')
{
latitude = 32.333333;
longitude = 90.2;
t_zone = -6;
}
if (City == 'Jacksonville, FL')
{
latitude = 30.366667;
longitude = 81.666667;
t_zone = -5;
}
if (City == 'Juneau, AK')
{
latitude = 58.3;
longitude = 134.4;
t_zone = -9;
}
if (City == 'Kansas City, MO')
{
latitude = 39.1;
longitude = 94.583333;
t_zone = -6;
}
if (City == 'Key West, FL')
{
latitude = 24.55;
longitude = 81.8;
t_zone = -5;
}
if (City == 'Klamath Falls, OR')
{
latitude = 42.166667;
longitude = 121.733333;
t_zone = -8;
}
if (City == 'Knoxville, TN')
{
latitude = 35.95;
longitude = 83.933333;
t_zone = -5;
}
if (City == 'Las Vegas, NV')
{
latitude = 36.166667;
longitude = 115.2;
t_zone = -8;
}
if (City == 'Lewiston, ID')
{
latitude = 46.4;
longitude = 117.033333;
t_zone = -8;
}
if (City == 'Lincoln, NE')
{
latitude = 40.833333;
longitude = 96.666667;
t_zone = -6;
}
if (City == 'Long Beach, CA')
{
latitude = 33.766667;
longitude = 118.183333;
t_zone = -8;
}
if (City == 'Los Angeles, CA')
{
latitude = 34.05;
longitude = 118.25;
t_zone = -8;
}
if (City == 'Louisville, KY')
{
latitude = 38.25;
longitude = 85.766667;
t_zone = -5;
}
if (City == 'Manchester, NH')
{
latitude = 43;
longitude = 71.5;
t_zone = -5;
}
if (City == 'Memphis, TN')
{
latitude = 35.15;
longitude = 90.05;
t_zone = -6;
}
if (City == 'Miami, FL')
{
latitude = 25.766667;
longitude = 80.2;
t_zone = -5;
}
if (City == 'Milwaukee, WI')
{
latitude = 43.033333;
longitude = 87.916667;
t_zone = -6;
}
if (City == 'Minneapolis, MN')
{
latitude = 44.983333;
longitude = 93.233333;
t_zone = -6;
}
if (City == 'Mobile, AL')
{
latitude = 30.7;
longitude = 88.05;
t_zone = -6;
}
if (City == 'Montgomery, AL')
{
latitude = 32.35;
longitude = 86.3;
t_zone = -6;
}
if (City == 'Montpelier, VT')
{
latitude = 44.25;
longitude = 72.533333;
t_zone = -5;
}
if (City == 'Nashville, TN')
{
latitude = 36.166667;
longitude = 86.783333;
t_zone = -6;
}
if (City == 'Newark, NJ')
{
latitude = 40.733333;
longitude = 74.166667;
t_zone = -5;
}
if (City == 'New Haven, CT')
{
latitude = 41.316667;
longitude = 72.916667;
t_zone = -5;
}
if (City == 'New Orleans, LA')
{
latitude = 29.95;
longitude = 90.066667;
t_zone = -6;
}
if (City == 'New York, NY')
{
latitude = 40.783333;
longitude = 73.966667;
t_zone = -5;
}
if (City == 'Nome, AK')
{
latitude = 64.416667;
longitude = 165.5;
t_zone = -9;
}
if (City == 'Oakland, CA')
{
latitude = 37.8;
longitude = 122.266667;
t_zone = -8;
}
if (City == 'Oklahoma City, OK')
{
latitude = 35.433333;
longitude = 97.466667;
t_zone = -6;
}
if (City == 'Omaha, NE')
{
latitude = 41.25;
longitude = 95.933333;
t_zone = -6;
}
if (City == 'Philadelphia, PA')
{
latitude = 39.95;
longitude = 75.166667;
t_zone = -5;
}
if (City == 'Phoenix, AZ')
{
latitude = 33.483333;
longitude = 112.066667;
t_zone = -7;
}
if (City == 'Pierre, SD')
{
latitude = 44.366667;
longitude = 100.35;
t_zone = -6;
}
if (City == 'Pittsburgh, PA')
{
latitude = 40.45;
longitude = 79.95;
t_zone = -5;
}
if (City == 'Portland, ME')
{
latitude = 43.666667;
longitude = 70.25;
t_zone = -5;
}
if (City == 'Portland, OR')
{
latitude = 45.516667;
longitude = 122.683333;
t_zone = -8;
}
if (City == 'Providence, RI')
{
latitude = 41.833333;
longitude = 71.4;
t_zone = -5;
}
if (City == 'Raleigh, NC')
{
latitude = 35.766667;
longitude = 78.65;
t_zone = -5;
}
if (City == 'Reno, NV')
{
latitude = 39.5;
longitude = 119.816667;
t_zone = -8;
}
if (City == 'Richfield, UT')
{
latitude = 38.766667;
longitude = 112.083333;
t_zone = -7;
}
if (City == 'Richmond, VA')
{
latitude = 37.55;
longitude = 77.483333;
t_zone = -5;
}
if (City == 'Roanoke, VA')
{
latitude = 37.283333;
longitude = 79.95;
t_zone = -5;
}
if (City == 'Sacramento, CA')
{
latitude = 38.583333;
longitude = 121.5;
t_zone = -8;
}
if (City == 'St Louis, MO')
{
latitude = 38.583333;
longitude = 90.2;
t_zone = -6;
}
if (City == 'Salt Lake City, UT')
{
latitude = 40.766667;
longitude = 111.9;
t_zone = -7;
}
if (City == 'San Antonio, TX')
{
latitude = 29.383333;
longitude = 98.55;
t_zone = -6;
}
if (City == 'San Diego, CA')
{
latitude = 32.7;
longitude = 117.166667;
t_zone = -8;
}
if (City == 'San Francisco, CA')
{
latitude = 37.783333;
longitude = 122.433333;
t_zone = -8;
}
if (City == 'San Jose, CA')
{
latitude = 37.333333;
longitude = 121.883333;
t_zone = -8;
}
if (City == 'Santa Fe, NM')
{
latitude = 35.683333;
longitude = 105.95;
t_zone = -7;
}
if (City == 'Savannah, GA')
{
latitude = 32.083333;
longitude = 81.083333;
t_zone = -5;
}
if (City == 'Seattle, WA')
{
latitude = 47.616667;
longitude = 122.333333;
t_zone = -8;
}
if (City == 'Shreveport, LA')
{
latitude = 32.466667;
longitude = 93.7;
t_zone = -6;
}
if (City == 'Sioux Falls, SD')
{
latitude = 43.55;
longitude = 96.733333;
t_zone = -6;
}
if (City == 'Sitka, AK')
{
latitude = 57.166667;
longitude = 135.25;
t_zone = -9;
}
if (City == 'Spokane, WA')
{
latitude = 47.666667;
longitude = 117.433333;
t_zone = -8;
}
if (City == 'Springfield, IL')
{
latitude = 39.8;
longitude = 89.633333;
t_zone = -6;
}
if (City == 'Springfield, MA')
{
latitude = 42.1;
longitude = 72.566667;
t_zone = -5;
}
if (City == 'Springfield, MO')
{
latitude = 37.216667;
longitude = 93.283333;
t_zone = -6;
}
if (City == 'Syracuse, NY')
{
latitude = 43.033333;
longitude = 76.133333;
t_zone = -5;
}
if (City == 'Tampa, FL')
{
latitude = 27.95;
longitude = 82.45;
t_zone = -5;
}
if (City == 'Toledo, OH')
{
latitude = 41.65;
longitude = 83.55;
t_zone = -5;
}
if (City == 'Tulsa, OK')
{
latitude = 36.15;
longitude = 95.983333;
t_zone = -6;
}
if (City == 'Virginia Beach, VA')
{
latitude = 36.85;
longitude = 75.966667;
t_zone = -5;
}
if (City == 'Washington, D.C.')
{
latitude = 38.883333;
longitude = 77.033333;
t_zone = -5;
}
if (City == 'Wichita, KS')
{
latitude = 37.716667;
longitude = 97.283333;
t_zone = -6;
}
if (City == 'Wilmington, NC')
{
latitude = 34.233333;
longitude = 77.95;
t_zone = -5;
}

/* Canadian cities listing */
if (City == 'Calgary, AB')
{
latitude = 51+6/60;
longitude = 114+1/60;
t_zone = -7;
}
if (City == 'Charlottetown, PE')
{
latitude = 46 + 14 / 60;
longitude = 63 + 9 / 60;
t_zone = -4;
}
if (City == 'Chicoutimi, QC')
{
latitude = 48+25/60;
longitude = 71+5/60;
t_zone = -5;
}
if (City == 'Edmonton, AB')
{
latitude = 53+34/60;
longitude = 113+31/60;
t_zone = -7;
}
if (City == 'Guelph, ON')
{
latitude = 43+33/60;
longitude = 80+15/60;
t_zone = -5;
}
if (City == 'Halifax, NS')
{
latitude = 44+39/60;
longitude = 63+34/60;
t_zone = -4;
}
if (City == 'Hamilton, ON')
{
latitude = 43+16/60;
longitude = 79+54/60;
t_zone = -5;
}
if (City == 'Hull, QC')
{
latitude = 45+26/60;
longitude = 75+44/60;
t_zone = -5;
}
if (City == 'Iqaluit, NU')
{
latitude = 63+45/60;
longitude = 68+31/60;
t_zone = -6;
}
if (City == 'Kelowna, BC')
{
latitude = 49+53/60;
longitude = 119+30/60;
t_zone = -8;
}
if (City == 'Kingston, ON')
{
latitude = 44+16/60;
longitude = 76+30/60;
t_zone = -5;
}
if (City == 'Kitchener, ON')
{
latitude = 43+26/60;
longitude = 80+30/60;
t_zone = -5;
}
if (City == 'London, ON')
{
latitude = 43+2/60;
longitude = 81+9/60;
t_zone = -5;
}
if (City == 'Montreal, QC')
{
latitude = 45+28/60;
longitude = 73+45/60;
t_zone = -5;
}
if (City == 'Oshawa, ON')
{
latitude = 43+54/60;
longitude = 78+52/60;
t_zone = -5;
}
if (City == 'Ottawa, ON')
{
latitude = 45+19/60;
longitude = 75+40/60;
t_zone = -5;
}
if (City == 'Quebec City, QC')
{
latitude = 46+48/60;
longitude = 71+23/60;
t_zone = -5;
}
if (City == 'Regina, SK')
{
latitude = 50+26/60;
longitude = 104+40/60;
t_zone = -7;
}
if (City == 'Saint John, NB')
{
latitude = 46+06/60;
longitude = 64+46/60;
t_zone = -4;
}
if (City == 'Saskatoon, SK')
{
latitude = 52+10/60;
longitude = 106+41/60;
t_zone = -7;
}
if (City == 'Sherbrooke, QC')
{
latitude = 45+24/60;
longitude = 71+54/60;
t_zone = -5;
}
if (City == 'St Catharines, ON')
{
latitude = 43+11/60;
longitude = 79+14/60;
t_zone = -5;
}
if (City == 'St Johns, NL')
{
latitude = 47+37/60;
longitude = 52+45/60;
t_zone = -3.5;
}
if (City == 'Sudbury, ON')
{
latitude = 46+37/60;
longitude = 80+48/60;
t_zone = -5;
}
if (City == 'Thunder Bay, ON')
{
latitude = 48+22/60;
longitude = 89+19/60;
t_zone = -5;
}
if (City == 'Toronto, ON')
{
latitude = 43+41/60;
longitude = 79+38/60;
t_zone = -5;
}
if (City == 'Trois-Rivieres, QC')
{
latitude = 46+21/60;
longitude = 72+35/60;
t_zone = -5;
}
if (City == 'Vancouver, BC')
{
latitude = 49+11/60;
longitude = 123+10/60;
t_zone = -8;
}
if (City == 'Victoria, BC')
{
latitude = 48+25/60;
longitude = 123+19/60;
t_zone = -8;
}
if (City == 'Whitehorse, YT')
{
latitude = 60+43/60;
longitude = 135+03/60;
t_zone = -8;
}
if (City == 'Windsor, ON')
{
latitude = 42+16/60;
longitude = 82+58/60;
t_zone = -4;
}
if (City == 'Winnipeg, MB')
{
latitude = 49+54/60;
longitude = 97+14/60;
t_zone = -6;
}
if (City == 'Yellowknife, NT')
{
latitude = 62+27/60;
longitude = 114+24/60;
t_zone = -7;
}

if (City == 'Kabul')
{
latitude = 34 + 35/60;
longitude = -(69 + 12/60);
t_zone = 4.5;
}

if (City == 'Luanda')
{
latitude = -(8 + 50/60);
longitude = -(13 + 20/60);
t_zone = 0;
}

if (City == 'Algiers')
{
latitude = 36.833333;
longitude = -3;
t_zone = 1;
}
if (City == 'Buenos Aires')
{
latitude = -34.583333;
longitude = 58.366667;
t_zone = -3;
}
if (City == 'Cordoba')
{
latitude = -31.466667;
longitude = 64.166667;
t_zone = -3;
}

if (City == 'Yerevan')
{
latitude = 40 + 16/60;
longitude = -(44 + 34/60);
t_zone = 4;
}


if (City == 'Adelaide')
{
latitude = -34.916667;
longitude = -138.6;
t_zone = 9.5;
}
if (City == 'Brisbane')
{
latitude = -27.483333;
longitude = -153.133333;
t_zone = 10;
}
if (City == 'Darwin')
{
latitude = -12.466667;
longitude = -130.85;
t_zone = 9.5;
}
if (City == 'Melbourne')
{
latitude = -37.783333;
longitude = -144.966667;
t_zone = 10;
}
if (City == 'Perth')
{
latitude = -31.95;
longitude = -115.866667;
t_zone = 8;
}
if (City == 'Sydney')
{
latitude = -34;
longitude = -151;
t_zone = 10;
}
if (City == 'Vienna')
{
latitude = 48.233333;
longitude = -16.333333;
t_zone = 1;
}
if (City == 'Baku')
{
latitude = 40 + 22/60;
longitude = -(49 + 53/60);
t_zone = 4;
}
if (City == 'Chittagong')
{
latitude = 22 + 21/60;
longitude = -(91 + 50/60);
t_zone = 6;
}
if (City == 'Minsk')
{
latitude = 53 + 54/60;
longitude = -(27 + 33/60);
t_zone = 2;
}
if (City == 'Brussels')
{
latitude = 50.866667;
longitude = -4.366667;
t_zone = 1;
}
if (City == 'La Paz')
{
latitude = -16.45;
longitude = 68.366667;
t_zone = -4;
}
if (City == 'Belem')
{
latitude = -1.466667;
longitude = 48.483333;
t_zone = -3;
}
if (City == 'Rio de Janeiro')
{
latitude = -22.95;
longitude = 43.2;
t_zone = -3;
}
if (City == 'Salvador')
{
latitude = -12.933333;
longitude = 38.45;
t_zone = -3;
}
if (City == 'Sao Paulo')
{
latitude = -23.516667;
longitude = 46.516667;
t_zone = -3;
}
if (City == 'Sofia')
{
latitude = 42.666667;
longitude = -23.333333;
t_zone = 2;
}
if (City == 'Naypyidaw')
{
latitude = 19 + 45/60;
longitude = -(96 + 12/60);
t_zone = 6.5;
}
if (City == 'Yangon')
{
latitude = 16 + 47/60;
longitude = -(96 + 9/60);
t_zone = 6.5;
}
if (City == 'Phnom Penh')
{
latitude = 11 + 33/60;
longitude = -(104 + 51/60);
t_zone = 7;
}
if (City == 'Iquique')
{
latitude = -20.166667;
longitude = 70.116667;
t_zone = -4;
}
if (City == 'Santiago')
{
latitude = -33.466667;
longitude = 70.75;
t_zone = -4;
}
if (City == 'Beijing')
{
latitude = 39.916667;
longitude = -116.416667;
t_zone = 8;
}
if (City == 'Canton')
{
latitude = 23.116667;
longitude = -113.25;
t_zone = 8;
}
if (City == 'Chongqing')
{
latitude = 29.766667;
longitude = -106.566667;
t_zone = 8;
}
if (City == 'Hong Kong')
{
latitude = 22 + 17/60;
longitude = -(114 + 8/60);
t_zone = 8;
}
if (City == 'Nanjing')
{
latitude = 32.05;
longitude = -118.883333;
t_zone = 8;
}
if (City == 'Shanghai')
{
latitude = 31.166667;
longitude = -121.466667;
t_zone = 8;
}
if (City == 'Bogota')
{
latitude = 4.533333;
longitude = 74.25;
t_zone = -5;
}
if (City == 'Kinshasa')
{
latitude = -4.3;
longitude = -15.283333;
t_zone = 1;
}
if (City == 'Havana')
{
latitude = 23.133333;
longitude = 82.383333;
t_zone = -5;
}
if (City == 'Prague')
{
latitude = 50.083333;
longitude = -14.433333;
t_zone = 1;
}
if (City == 'Copenhagen')
{
latitude = 55.666667;
longitude = -12.566667;
t_zone = 1;
}
if (City == 'Djibouti')
{
latitude = 11.5;
longitude = -43.05;
t_zone = 3;
}
if (City == 'Guayaquil')
{
latitude = -2.166667;
longitude = 79.933333;
t_zone = -5;
}
if (City == 'Cairo')
{
latitude = 30.033333;
longitude = -31.35;
t_zone = 2;
}
if (City == 'Birmingham')
{
latitude = 52.416667;
longitude = 1.916667;
t_zone = 0;
}
if (City == 'Leeds')
{
latitude = 53.75;
longitude = 1.5;
t_zone = 0;
}
if (City == 'Liverpool')
{
latitude = 53.416667;
longitude = 3;
t_zone = 0;
}
if (City == 'London')
{
latitude = 51.533333;
longitude = 0.083333;
t_zone = 0;
}
if (City == 'Manchester')
{
latitude = 53.5;
longitude = 2.25;
t_zone = 0;
}
if (City == 'Newcastle')
{
latitude = 54.966667;
longitude = 1.616667;
t_zone = 0;
}
if (City == 'Norwich')
{
latitude = 52.6309;
longitude = -1.2973;
t_zone = 0;
}
if (City == 'Plymouth')
{
latitude = 50.416667;
longitude = 4.083333;
t_zone = 0;
}
if (City == 'Helsinki')
{
latitude = 60.166667;
longitude = -25;
t_zone = 2;
}
if (City == 'Bordeaux')
{
latitude = 44.833333;
longitude = 0.516667;
t_zone = 1;
}
if (City == 'Lyons')
{
latitude = 45.75;
longitude = -4.833333;
t_zone = 1;
}
if (City == 'Marseilles')
{
latitude = 43.333333;
longitude = -5.333333;
t_zone = 1;
}
if (City == 'Paris')
{
latitude = 48.8;
longitude = -2.333333;
t_zone = 1;
}
if (City == 'Cayenne')
{
latitude = 4.816667;
longitude = 52.3;
t_zone = -4;
}
if (City == 'Berlin')
{
latitude = 52.5;
longitude = -13.416667;
t_zone = 1;
}
if (City == 'Bremen')
{
latitude = 53.083333;
longitude = -8.816667;
t_zone = 1;
}
if (City == 'Frankfurt')
{
latitude = 50.116667;
longitude = -8.683333;
t_zone = 1;
}
if (City == 'Hamburg')
{
latitude = 53.55;
longitude = -10.033333;
t_zone = 1;
}
if (City == 'Munich')
{
latitude = 48.133333;
longitude = -11.583333;
t_zone = 1;
}
if (City == 'Athens')
{
latitude = 37.966667;
longitude = -23.716667;
t_zone = 2;
}
if (City == 'Guatemala City')
{
latitude = 14.616667;
longitude = 90.516667;
t_zone = -6;
}
if (City == 'Georgetown')
{
latitude = 6.75;
longitude = 58.25;
t_zone = -3.75;
}
if (City == 'Budapest')
{
latitude = 47.5;
longitude = -19.083333;
t_zone = 1;
}
if (City == 'Reykjavik')
{
latitude = 64.066667;
longitude = 21.966667;
t_zone = -1;
}
if (City == 'Bombay')
{
latitude = 19;
longitude = -72.8;
t_zone = 5.5;
}
if (City == 'Calcutta')
{
latitude = 22.566667;
longitude = -88.4;
t_zone = 5.5;
}
if (City == 'Delhi')
{
latitude = 28.667;
longitude = -77.233;
t_zone = 5.5;
}
if (City == 'Jakarta')
{
latitude = -6.266667;
longitude = -106.8;
t_zone = 7.5;
}
if (City == 'Teheran')
{
latitude = 35.75;
longitude = -51.75;
t_zone = 3.5;
}
if (City == 'Baghdad')
{
latitude = 33 + 20/60;
longitude = -(44 + 26/60);
t_zone = 3;
}
if (City == 'Dublin')
{
latitude = 53.333333;
longitude = 6.25;
t_zone = 0;
}

if (City == 'Jerusalem')
{
latitude = 31 + 47/60;
longitude = -(35 + 13/60);
t_zone = 2;
}
if (City == 'Tel Aviv')
{
latitude = 32 + 5/60;
longitude = -(34 + 46/60);
t_zone = 2;
}

if (City == 'Milan')
{
latitude = 45.45;
longitude = -9.166667;
t_zone = 1;
}
if (City == 'Naples')
{
latitude = 40.833333;
longitude = -14.25;
t_zone = 1;
}
if (City == 'Rome')
{
latitude = 41.9;
longitude = -12.45;
t_zone = 1;
}
if (City == 'Venice')
{
latitude = 45.433333;
longitude = -12.333333;
t_zone = 1;
}
if (City == 'Kingston')
{
latitude = 17.983333;
longitude = 76.816667;
t_zone = -5;
}
if (City == 'Nagasaki')
{
latitude = 32.8;
longitude = -129.95;
t_zone = 9;
}
if (City == 'Nagoya')
{
latitude = 35.116667;
longitude = -136.933333;
t_zone = 9;
}
if (City == 'Osaka')
{
latitude = 34.533333;
longitude = -135.5;
t_zone = 9;
}
if (City == 'Tokyo')
{
latitude = 35.666667;
longitude = -139.75;
t_zone = 9;
}
if (City == 'Nairobi')
{
latitude = -1.416667;
longitude = -36.916667;
t_zone = 3;
}
if (City == 'Beirut')
{
latitude = 33 + 54/60;
longitude = -(35 + 32/60);
t_zone = 2;
}
if (City == 'Tripoli')
{
latitude = 32.95;
longitude = -13.2;
t_zone = 2;
}
if (City == 'Tananarive')
{
latitude = -18.833333;
longitude = -47.55;
t_zone = 3;
}
if (City == 'Chihuahua')
{
latitude = 28.616667;
longitude = 106.083333;
t_zone = -6;
}
if (City == 'Mazatlan')
{
latitude = 23.2;
longitude = 106.416667;
t_zone = -7;
}
if (City == 'Mexico City')
{
latitude = 19.433333;
longitude = 99.116667;
t_zone = -6;
}
if (City == 'Veracruz')
{
latitude = 19.166667;
longitude = 96.166667;
t_zone = -6;
}
if (City == 'Amsterdam')
{
latitude = 52.366667;
longitude = -4.883333;
t_zone = 1;
}
if (City == 'Auckland')
{
latitude = -36.883333;
longitude = -174.75;
t_zone = 12;
}
if (City == 'Christchurch')
{
latitude = -(43 + 31.8/60);
longitude = -(172 + 37.2/60);
t_zone = 12;
}
if (City == 'Dunedin')
{
latitude = -(45 + 52/60);
longitude = -(170 + 30/60);
t_zone = 12;
}
if (City == 'Invercargill')
{
latitude = -(46 + 26/60);
longitude = -(168 + 19/60);
t_zone = 12;
}
if (City == 'Queenstown')
{
latitude = -(45 + 2/60);
longitude = -(168 + 40/60);
t_zone = 12;
}
if (City == 'Wellington')
{
latitude = -41.283333;
longitude = -174.783333;
t_zone = 12;
}
if (City == 'Belfast')
{
latitude = 54.616667;
longitude = 5.933333;
t_zone = 0;
}
if (City == 'Hammerfest')
{
latitude = 70.633333;
longitude = -23.633333;
t_zone = 1;
}
if (City == 'Oslo')
{
latitude = 59.95;
longitude = -10.7;
t_zone = 1;
}
if (City == 'Islamabad')
{
latitude = 33 + 40/60;
longitude = -(73 + 10/60);
t_zone = 5;
}
if (City == 'Panama City')
{
latitude = 8.966667;
longitude = 79.533333;
t_zone = -5;
}
if (City == 'Port Moresby')
{
latitude = -9.416667;
longitude = -147.133333;
t_zone = 10;
}
if (City == 'Asuncion')
{
latitude = -25.25;
longitude = 57.666667;
t_zone = -4;
}
if (City == 'Lima')
{
latitude = -12;
longitude = 77.033333;
t_zone = -5;
}
if (City == 'Manila')
{
latitude = 14.583333;
longitude = -120.95;
t_zone = 8;
}
if (City == 'Warsaw')
{
latitude = 52.233333;
longitude = -21;
t_zone = 1;
}
if (City == 'Lisbon')
{
latitude = 38.733333;
longitude = 9.15;
t_zone = 0;
}
if (City == 'Bucharest')
{
latitude = 44.416667;
longitude = -26.116667;
t_zone = 2;
}
if (City == 'Irkutsk')
{
latitude = 52.5;
longitude = -104.333333;
t_zone = 8;
}
if (City == 'Moscow')
{
latitude = 55.75;
longitude = -37.6;
t_zone = 3;
}
if (City == 'St Petersburg')
{
latitude = 59.933333;
longitude = -30.3;
t_zone = 3;
}
if (City == 'Vladivostok')
{
latitude = 43.166667;
longitude = -132;
t_zone = 10;
}
if (City == 'Mecca')
{
latitude = 21.483333;
longitude = -39.75;
t_zone = 3;
}
if (City == 'Aberdeen')
{
latitude = 57.15;
longitude = 2.15;
t_zone = 0;
}
if (City == 'Edinburgh')
{
latitude = 55.916667;
longitude = 3.166667;
t_zone = 0;
}
if (City == 'Glasgow')
{
latitude = 55.833333;
longitude = 4.25;
t_zone = 0;
}
if (City == 'Dakar')
{
latitude = 14.666667;
longitude = 17.466667;
t_zone = 0;
}
if (City == 'Singapore')
{
latitude = 1.233333;
longitude = -103.916667;
t_zone = 8.0;
}
if (City == 'Johannesburg')
{
latitude = -26.2;
longitude = -28.066667;
t_zone = 2;
}
if (City == 'CapeTown')
{
latitude = -33.916667;
longitude = -18.366667;
t_zone = 2;
}
if (City == 'Durban')
{
latitude = -29.883333;
longitude = -30.883333;
t_zone = 2;
}
if (City == 'Barcelona')
{
latitude = 41.383333;
longitude = -2.15;
t_zone = 1;
}
if (City == 'Madrid')
{
latitude = 40.433333;
longitude = 3.7;
t_zone = 1;
}
if (City == 'Paramaribo')
{
latitude = 5.75;
longitude = 55.25;
t_zone = -3.5;
}
if (City == 'Stockholm')
{
latitude = 59.283333;
longitude = -18.05;
t_zone = 1;
}
if (City == 'Zurich')
{
latitude = 47.35;
longitude = -8.516667;
t_zone = 1;
}
if (City == 'Hobart')
{
latitude = -42.866667;
longitude = -147.166667;
t_zone = 10;
}
if (City == 'Bangkok')
{
latitude = 13.75;
longitude = -100.5;
t_zone = 7;
}
if (City == 'Ankara')
{
latitude = 39.916667;
longitude = -32.916667;
t_zone = 2;
}
if (City == 'Odessa')
{
latitude = 46.45;
longitude = -30.8;
t_zone = 3;
}
if (City == 'Montevideo')
{
latitude = -34.883333;
longitude = 56.166667;
t_zone = -3;
}
if (City == 'Caracas')
{
latitude = 10.466667;
longitude = 67.033333;
t_zone = -4;
}
if (City == 'Hanoi')
{
latitude = 21 + 2/60;
longitude = -(105 + 51/60);
t_zone = 7;
}
if (City == 'Cardiff')
{
latitude = 51 + 29/60;
longitude = 3 + 11/60;
t_zone = 0;
}
if (City == 'Belgrade')
{
latitude = 44.866667;
longitude = -20.533333;
t_zone = 1;
}

/* Added August 6th */
if (City == 'Tirana')
{
latitude = 41.33;
longitude = -19.82;
t_zone = 1;
}

if (City == 'Nassau')
{
latitude = 25.06;
longitude = 77.33;
t_zone = -5;
}

if (City == 'Belmopan')
{
latitude = 17 + 25/60;
longitude = 88 + 46/60;
t_zone = -6;
}

if (City == 'Porto Novo')
{
latitude = 6.5;
longitude = -(2 + 47/60);
t_zone = 1;
}

if (City == 'Thimphu')
{
latitude = 27.48;
longitude = -89.70;
t_zone = 6;
}

if (City == 'Sarajevo')
{
latitude = 43.85;
longitude = -18.38;
t_zone = 1;
}

if (City == 'Gaborone')
{
latitude = -24.65;
longitude = -25.91;
t_zone = 2;
}

if (City == 'Bandar Seri Begawan')
{
latitude = 4.93;
longitude = -114.95;
t_zone = 8;
}

if (City == 'Ouagadougou')
{
latitude = 12.37;
longitude = 1.53;
t_zone = 0;
}

if (City == 'Bujumbura')
{
latitude = -3.37;
longitude = -29.35;
t_zone = 2;
}

if (City == 'Yaounde')
{
latitude = 3 + 51/60;
longitude = -(11 + 31/60);
t_zone = 1;
}

if (City == 'Praia')
{
latitude = 14.93;
longitude = 23.54;
t_zone = -1;
}

if (City == 'Bangui')
{
latitude = 4.36;
longitude = -18.56;
t_zone = 1;
}

if (City == 'Ndjamena')
{
latitude = 12.11;
longitude = -15.05;
t_zone = 1;
}

if (City == 'Brazzaville')
{
latitude = -4.25;
longitude = -15.26;
t_zone = 1;
}

if (City == 'San Jose')
{
latitude = 9.93;
longitude = 84.08;
t_zone = -6;
}

if (City == 'Abidjan')
{
latitude = 5.33;
longitude = 4.03;
t_zone = 0;
}

if (City == 'Zagreb')
{
latitude = 45.80;
longitude = -15.97;
t_zone = 1;
}

if (City == 'Nicosia')
{
latitude = 35.16;
longitude = -33.38;
t_zone = 2;
}

if (City == 'Santo Domingo')
{
latitude = 18.48;
longitude = 69.91;
t_zone = -4;
}

if (City == 'Dili')
{
latitude = -8.57;
longitude = -125.58;
t_zone = 9;
}

if (City == 'San Salvador')
{
latitude = 13.69;
longitude = 89.19;
t_zone = -6;
}

if (City == 'Asmera')
{
latitude = 15.33;
longitude = -38.94;
t_zone = 3;
}

if (City == 'Tallinn')
{
latitude = 59.44;
longitude = -24.74;
t_zone = 2;
}

if (City == 'Addis Ababa')
{
latitude = 9.03;
longitude = -38.74;
t_zone = 3;
}

if (City == 'Port Stanley')
{
latitude = -51.70;
longitude = 57.82;
t_zone = -4;
}

if (City == 'Suva')
{
latitude = -18.13;
longitude = -178.43;
t_zone = 12;
}

if (City == 'Papeete')
{
latitude = -(17 + 32/60);
longitude = 149 + 34/60;
t_zone = -10;
}

if (City == 'Libreville')
{
latitude = 0.39;
longitude = -9.45;
t_zone = 1;
}

if (City == 'Banjul')
{
latitude = 13.45;
longitude = 16.68;
t_zone = 0;
}

if (City == 'Tbilisi')
{
latitude = 41.72;
longitude = -44.79;
t_zone = 4;
}

if (City == 'Accra')
{
latitude = 5.56;
longitude = 0.20;
t_zone = 0;
}

if (City == 'Nuuk')
{
latitude = 64 + 10/60;
longitude = 51 + 40/60;
t_zone = -3;
}

if (City == 'Conakry')
{
latitude = 9.55;
longitude = 13.67;
t_zone = 0;
}

if (City == 'Bissau')
{
latitude = 11.87;
longitude = 15.60;
t_zone = 0;
}

if (City == 'Port-au-Prince')
{
latitude = 18.54;
longitude = 72.34;
t_zone = -5;
}

if (City == 'Tegucigalpa')
{
latitude = 14.09;
longitude = 87.22;
t_zone = -6;
}

if (City == 'Amman')
{
latitude = 31.95;
longitude = -35.93;
t_zone = 2;
}

if (City == 'Almaty')
{
latitude = 43.32;
longitude = -76.92;
t_zone = 6;
}

if (City == 'Pyongyang')
{
latitude = 39.02;
longitude = -125.75;
t_zone = 9;
}

if (City == 'Seoul')
{
latitude = 37.56;
longitude = -126.99;
t_zone = 9;
}

if (City == 'Bishkek')
{
latitude = 42.87;
longitude = -74.57;
t_zone = 6;
}

if (City == 'Vientiane')
{
latitude = 17.97;
longitude = -102.61;
t_zone = 7;
}

if (City == 'Riga')
{
latitude = 56.97;
longitude = -24.13;
t_zone = 2;
}

if (City == 'Maseru')
{
latitude = -29.31;
longitude = -27.49;
t_zone = 2;
}

if (City == 'Monrovia')
{
latitude = 6.31;
longitude = 10.80;
t_zone = 0;
}

if (City == 'Vilnius')
{
latitude = 54.70;
longitude = -25.27;
t_zone = 2;
}

if (City == 'Skopje')
{
latitude = 42.00;
longitude = -21.47;
t_zone = 1;
}

if (City == 'Lilongwe')
{
latitude = -13.97;
longitude = -33.80;
t_zone = 2;
}

if (City == 'Kuala Lumpur')
{
latitude = 3.16;
longitude = -101.71;
t_zone = 8;
}

if (City == 'Bamako')
{
latitude = 12.65;
longitude = 7.99;
t_zone = 0;
}

if (City == 'Nouakchott')
{
latitude = 18.09;
longitude = 15.98;
t_zone = 0;
}

if (City == 'Kishinev')
{
latitude = 47.03;
longitude = -28.83;
t_zone = 2;
}

if (City == 'Ulaanbaatar')
{
latitude = 47.93;
longitude = -106.91;
t_zone = 8;
}

if (City == 'Casablanca')
{
latitude = 33.60;
longitude = 7.62;
t_zone = 0;
}

if (City == 'Maputo')
{
latitude = -25.95;
longitude = -32.57;
t_zone = 2;
}

if (City == 'Windhoek')
{
latitude = -22.56;
longitude = -17.09;
t_zone = 1;
}

if (City == 'Kathmandu')
{
latitude = 27.71;
longitude = -85.31;
t_zone = 5.75;
}

if (City == 'Managua')
{
latitude = 12.15;
longitude = 86.27;
t_zone = -6;
}

if (City == 'Niamey')
{
latitude = 13.52;
longitude = -2.12;
t_zone = 1;
}

if (City == 'Lagos')
{
latitude = 6.45;
longitude = -3.47;
t_zone = 1;
}

if (City == 'San Juan')
{
latitude = 18.44;
longitude = 66.13;
t_zone = -4;
}

if (City == 'Doha')
{
latitude = 25.30;
longitude = -51.51;
t_zone = 3;
}

if (City == 'Kigali')
{
latitude = -1.94;
longitude = -30.06;
t_zone = 2;
}

if (City == 'Freetown')
{
latitude = 8.49;
longitude = 13.24;
t_zone = 0;
}

if (City == 'Bratislava')
{
latitude = 48.16;
longitude = -17.13;
t_zone = 1;
}

if (City == 'Ljubljana')
{
latitude = 46.06;
longitude = -14.51;
t_zone = 1;
}

if (City == 'Mogadishu')
{
latitude = 2.05;
longitude = -45.33;
t_zone = 3;
}

if (City == 'Colombo')
{
latitude = 6.93;
longitude = -79.85;
t_zone = 5.5;
}

if (City == 'Khartoum')
{
latitude = 15.58;
longitude = -32.52;
t_zone = 3;
}

if (City == 'Mbabane')
{
latitude = -(26 + 19/60);
longitude = -(31 + 7/60);
t_zone = 2;
}

if (City == 'Damascus')
{
latitude = 33.4;
longitude = -36.5;
t_zone = 2;
}

if (City == 'Taipei')
{
latitude = 25.02;
longitude = -121.45;
t_zone = 8;
}

if (City == 'Dushanbe')
{
latitude = 38.57;
longitude = -68.78;
t_zone = 5;
}

if (City == 'Dar es Salaam')
{
latitude = -6.82;
longitude = -39.28;
t_zone = 3;
}

if (City == 'Lome')
{
latitude = 6.17;
longitude = -1.35;
t_zone = 0;
}

if (City == 'Port of Spain')
{
latitude = 10 + 38/60;
longitude = 61 + 31/60;
t_zone = -4;
}

if (City == 'Tunis')
{
latitude = 36.84;
longitude = -10.22;
t_zone = 1;
}

if (City == 'Ashgabat')
{
latitude = 37.95;
longitude = -58.38;
t_zone = 5;
}

if (City == 'Kampala')
{
latitude = 0.32;
longitude = -32.58;
t_zone = 3;
}

if (City == 'Dubai')
{
latitude = 25.27;
longitude = -55.33;
t_zone = 4;
}

if (City == 'Tashkent')
{
latitude = 41.31;
longitude = -69.30;
t_zone = 5;
}

if (City == 'Vatican City')
{
latitude = 41.90;
longitude = -12.46;
t_zone = 1;
}

if (City == 'Sana')
{
latitude = 15.38;
longitude = -44.21;
t_zone = 3;
}

if (City == 'Lusaka')
{
latitude = -15.42;
longitude = -28.29;
t_zone = 2;
}

if (City == 'Harare')
{
latitude = -17.82;
longitude = -31.05;
t_zone = 2;
}

/* Added 27th July 2007 */
if (City == 'St Johns')
{
latitude = 17 + 6/60;
longitude = 61 + 45/60;
t_zone = -4;
}

if (City == 'Manama')
{
latitude = 26 + 13/60;
longitude = -(50 + 35/60);
t_zone = 3;
}

if (City == 'Bridgetown')
{
latitude = 13 + 10/60;
longitude = 59 + 32/60;
t_zone = -4;
}

if (City == 'Hamilton')
{
latitude = 32 + 18/60;
longitude = 64 + 47/60;
t_zone = -4;
}

if (City == 'Moroni')
{
latitude = -(11 + 41/60);
longitude = -(43 + 16/60);
t_zone = 3;
}

if (City == 'Luxembourg')
{
latitude = 49 + 36/60;
longitude = -(6 + 7/60);
t_zone = 1;
}

if (City == 'Valletta')
{
latitude = 35 + 53/60;
longitude = -(14 + 30/60);
t_zone = 1;
}

if (City == 'Majuro')
{
latitude = 7 + 7/60;
longitude = -(171 + 4/60);
t_zone = 12;
}

if (City == 'Port Louis')
{
latitude = -(20 + 10/60);
longitude = -(57 + 31/60);
t_zone = 4;
}

if (City == 'Monaco')
{
latitude = 43 + 44/60;
longitude = -(7 + 24/60);
t_zone = 1;
}

if (City == 'Noumea')
{
latitude = -(22 + 16/60);
longitude = -(166 + 27/60);
t_zone = 11;
}

if (City == 'Muscat')
{
latitude = 23 + 36/60;
longitude = -(58 + 33/60);
t_zone = 4
}

planets();
}

function setup()
{
iss_warning_flag = 0;
planet_name = new Array("the Sun","Mercury","Venus","Mars","Jupiter","Saturn","Moon","The Pleiades (star cluster)","Aldebaran (star)","The Beehive (star cluster)","Regulus (star)","Spica (star)","Antares","Pollux (star)","Elnath (star)","Alhena (star)","Nunki (star)");
planet_decl = new Array(16);
planet_r_a = new Array(16);
planet_altitude = new Array(6);
planet_azimuth = new Array(6);
planet_mag = new Array(6);
planet_decl[7] = 0.42121;
planet_r_a[7] = 0.99222;
planet_decl[8] = 0.28827;
planet_r_a[8] = 1.20559;
planet_decl[9] = 0.34296;
planet_r_a[9] = 2.27242;
planet_decl[10] = 0.20828;
planet_r_a[10] = 2.65595;
planet_decl[11] = -0.19548;
planet_r_a[11] = 3.51466;
planet_decl[12] = -0.46164;
planet_r_a[12] = 4.31882;
planet_decl[13] = 0.48898;
planet_r_a[13] = 2.03199;
planet_decl[14] = 0.49946;
planet_r_a[14] = 1.42549;
planet_decl[15] = 0.28623;
planet_r_a[15] = 1.73704;
planet_decl[16] = -0.45873;
planet_r_a[16] = 4.95543;
phenomena = "...";
phases = new Array(3);
phase = new Array(3);
moon_data = "...";
new_moon = 0;
var nowdate = new Date();
var utc_day = nowdate.getUTCDate();
var utc_month = nowdate.getUTCMonth() + 1;
var utc_year = nowdate.getUTCFullYear();
zone_comp = nowdate.getTimezoneOffset() / 1440;
var utc_hours = nowdate.getUTCHours();
var utc_mins = nowdate.getUTCMinutes();
var utc_secs = nowdate.getUTCSeconds();
utc_mins += utc_secs / 60.0;
utc_mins = Math.floor((utc_mins + 0.5));
if (utc_mins < 10) utc_mins = "0" + utc_mins;
if (utc_mins > 59) utc_mins = 59;
if (utc_hours < 10) utc_hours = "0" + utc_hours;
if (utc_month < 10) utc_month = "0" + utc_month;
if (utc_day < 10) utc_day = "0" + utc_day;
if (UTdate == "now")
{
document.planets.date_txt.value = utc_year + "/" + utc_month + "/" + utc_day;
}
else
{
document.planets.date_txt.value = UTdate;
}
if (UTtime == "now")
{
document.planets.ut_h_m.value = utc_hours + ":" + utc_mins;
}
else
{
document.planets.ut_h_m.value = UTtime;
}
planets();
}

function back_to_now()
{
var nowdate = new Date();
var utc_day = nowdate.getUTCDate();
var utc_month = nowdate.getUTCMonth() + 1;
var utc_year = nowdate.getUTCFullYear();
zone_comp = nowdate.getTimezoneOffset() / 1440;
var utc_hours = nowdate.getUTCHours();
var utc_mins = nowdate.getUTCMinutes();
var utc_secs = nowdate.getUTCSeconds();
utc_mins += utc_secs / 60.0;
utc_mins = Math.floor((utc_mins + 0.5));
if (utc_mins < 10) utc_mins = "0" + utc_mins;
if (utc_mins > 59) utc_mins = 59;
if (utc_hours < 10) utc_hours = "0" + utc_hours;
if (utc_month < 10) utc_month = "0" + utc_month;
if (utc_day < 10) utc_day = "0" + utc_day;

document.planets.date_txt.value = utc_year + "/" + utc_month + "/" + utc_day;
document.planets.ut_h_m.value = utc_hours + ":" + utc_mins;

/*
if (UTdate == "now")
{
document.planets.date_txt.value = utc_year + "/" + utc_month + "/" + utc_day;
}
else
{
document.planets.date_txt.value = UTdate;
}
if (UTtime == "now")
{
document.planets.ut_h_m.value = utc_hours + ":" + utc_mins;
}
else
{
document.planets.ut_h_m.value = UTtime;
}
*/

planets();
}

function resizeDocumentTo(setw,seth)
{
return window.resizeTo(setw,seth),window.resizeTo(setw*2-((typeof window.innerWidth == 'undefined')?document.body.clientWidth:window.innerWidth),seth*2-((typeof window.innerHeight == 'undefined')?document.body.clientHeight:window.innerHeight));
}

function sign_of(x)
{
return x == 0 ? 0 : (x > 0 ? 1 : -1);
}

function proper_ang(big)
{
with (Math)
{
var tmp = 0;
if (big > 0)
{
tmp = big / 360.0;
tmp = (tmp - floor(tmp)) * 360.0;
}
else
{
tmp = ceil(abs(big / 360.0));
tmp = big + tmp * 360.0;
}
}
return tmp;
}

function proper_ang_rad(big)
{
with (Math)
{
var tmp = 0;
if (big > 0)
{
tmp = big / 2 / PI;
tmp = (tmp - floor(tmp)) * 2 * PI;
}
else
{
tmp = ceil(abs(big / 2 / PI));
tmp = big + tmp * 2 * PI;
}
}
return tmp;
}

function range_1(num)
{
var temp = num;
if (num > 1) temp = num - 1;
if (num < 0) temp = num + 1;
return temp;
}

function range_24(big)
{
with (Math)
{
var tmp = 0;
if (big > 0)
{
tmp = big / 24.0;
tmp = (tmp - floor(tmp)) * 24.0;
}
else
{
tmp = ceil(abs(big / 24.0));
tmp = big + tmp * 24.0;
}
}
return tmp;
}

function round_10(num)
{
return Math.floor((num + 0.05) * 10) / 10;
}

function round_100(num)
{
return Math.floor((num + 0.005) * 100) / 100;
}

function round_1000(num)
{
return Math.floor((num + 0.0005) * 1000) / 1000;
}

function hundred_miles(num)
{
return Math.floor((num / 100) + 0.5) * 100;
}

function isValidDate(dateStr)
{ 
if (IsValidTime(document.planets.ut_h_m.value) == true)
{
var datePat = /^(\d{4})(\/|-)(\d{1,2})\2(\d{1,2})$/;
var matchArray = dateStr.match(datePat);
if (matchArray == null) { 
alert("Date is not in a valid format.") 
return false; 
}
var year = matchArray[1];
var month = matchArray[3];
var day = matchArray[4];
if (month < 1 || month > 12) {
alert("Month must be between 1 and 12."); 
return false; 
} 
if (year < 1600 || year > 2400) {
alert("Year must be between 1600 and 2400."); 
return false; 
} 
if (day < 1 || day > 31) {
alert("Day must be between 1 and 31."); 
return false; 
} 
if ((month == 4 || month == 6 || month == 9 || month == 11) && day == 31) {
alert("Month " + month + " doesn't have 31 days!") 
return false 
} 
if (month == 2) {
var isleap = (year % 4 == 0 && (year % 100 != 0 || year % 400 == 0)); 
if (day > 29 || (day == 29 && !isleap))
{ 
alert("February " + year + " doesn't have " + day + " days!"); 
return false; 
} 
} 
if (month < 10 && month.length == 1) month = "0" + month;
if (day < 10 && day.length == 1) day = "0" + day;
document.planets.date_txt.value = year + "/" + month + "/" + day;
var dt_str = document.planets.date_txt.value;
if ((dt_str.substring(4,5) != "/") || (dt_str.substring(7,8) != "/"))
{
alert ("Date is not in a valid format.");
return false;
}
planets();
return true;
}
else
{
return false;
}
}

function IsValidTime(timeStr)
{
var timePat = /^(\d{1,2}):(\d{2})(:(\d{2}))?(\s?(AM|am|PM|pm))?$/;
var matchArray = timeStr.match(timePat);
if (matchArray == null)
{
alert("Time is not in a valid format.");
return false;
}
var hour = matchArray[1];
var minute = matchArray[2];
if (hour < 0 || hour > 23)
{
alert("Hour must be between 0 and 23.");
return false;
}
if (minute < 0 || minute > 59)
{
alert ("Minute must be between 0 and 59.");
return false;
}
if (hour < 10 && hour.length == 1) hour = "0" + hour;
if (minute < 10 && minute.length == 1) minute = "0" + minute;
document.planets.ut_h_m.value = hour + ":" + minute;
var tm_str = document.planets.ut_h_m.value;
if ((tm_str.substring(2,3) != ":") && (dt_str.length != 5))
{
alert ("Time is not in a valid format.");
return false;
}
return true;
}

function time_change(tmp)
{
if (isValidDate(document.planets.date_txt.value) == true)
{
var jd_temp, zz, ff, alpha, aa, bb, cc, dd, ee;
var calendar_day, calendar_month, calendar_year;
var int_day, hours, minutes;

var tm_as_str, ut_hrs, ut_mns, part_day;

var jd = julian_date();

tm_as_str = document.planets.ut_h_m.value;
ut_hrs = eval(tm_as_str.substring(0,2));
ut_mns = eval(tm_as_str.substring(3,5));
part_day = ut_hrs / 24.0 + ut_mns / 1440.0;

with (Math) {

jd_temp = jd + part_day + tmp / 24.0 + 0.5;

zz = floor(jd_temp);
ff = jd_temp - zz;
alpha = floor((zz - 1867216.25) / 36524.25);
aa = zz + 1 + alpha - floor(alpha / 4);
bb = aa + 1524;
cc = floor((bb - 122.1) / 365.25);
dd = floor(365.25 * cc);
ee = floor((bb - dd) / 30.6001);
calendar_day = bb - dd - floor(30.6001 * ee) + ff;
calendar_month = ee;
if (ee < 13.5) calendar_month = ee - 1;
if (ee > 13.5) calendar_month = ee - 13;
calendar_year = cc;
if (calendar_month > 2.5) calendar_year = cc - 4716;
if (calendar_month < 2.5) calendar_year = cc - 4715;
int_day = floor(calendar_day);
hours = (calendar_day - int_day) * 24;
minutes = floor((hours - floor(hours)) * 60 + 0.5);
hours = floor(hours);
if (minutes > 59)
{minutes = 0; hours = hours + 1;}
if (calendar_month < 10) calendar_month = "0" + calendar_month;
if (int_day < 10) int_day = "0" + int_day;
if (hours < 10) hours = "0" + floor(hours);
if (minutes < 10) minutes = "0" + minutes;
}
document.planets.date_txt.value = calendar_year + "/" + calendar_month + "/" + int_day;
document.planets.ut_h_m.value = hours + ":" + minutes;
planets();
return true;
}
else
{
return false;
}
}

function zone_date_time()
{
var jd_temp, zz, ff, alpha, aa, bb, cc, dd, ee;
var calendar_day, calendar_month, calendar_year;
var int_day, hours, minutes, daylight_saving;
var d_of_w, dow_str, x, y, lat_long = "", dst = 0;
var tm_as_str, ut_hrs, ut_mns, part_day;

var jd = julian_date();

tm_as_str = document.planets.ut_h_m.value;
ut_hrs = eval(tm_as_str.substring(0,2));
ut_mns = eval(tm_as_str.substring(3,5));
part_day = ut_hrs / 24.0 + ut_mns / 1440.0;

with (Math) {
	
x = floor(abs(latitude));
y = floor((abs(latitude) - x) * 60 + 0.5);
if (x < 10) lat_long += "0";
lat_long = lat_long + x + "\u00B0" + " ";
if (y < 10) lat_long += "0";
lat_long = lat_long + y + "\'";
if (latitude >= 0)
{
lat_long += " N  ";
}
else
{
lat_long += " S  ";
}

x = floor(abs(longitude));
y = floor((abs(longitude) - x) * 60 + 0.5);
if (x < 100) lat_long += "0";
if (x < 10) lat_long += "0";
lat_long = lat_long + x + "\u00B0" + " ";
if (y < 10) lat_long += "0";
lat_long = lat_long + y + "\'";
if (longitude >= 0)
{
lat_long += " W";
}
else
{
lat_long += " E";
}

document.planets.lat_long.value = lat_long;

daylight_saving = document.planets.d_s_t.checked;
if (daylight_saving == true)
{
dst = 1;
zone = t_zone + dst;
}
else
{
zone = t_zone;
}

document.planets.timezone.value = zone;

jd_temp = jd + part_day + zone / 24 + 0.5;

d_of_w = floor(jd_temp + 1.0) % 7;

if (d_of_w == 0) dow_str = "Sun.";
if (d_of_w == 1) dow_str = "Mon.";
if (d_of_w == 2) dow_str = "Tue.";
if (d_of_w == 3) dow_str = "Wed.";
if (d_of_w == 4) dow_str = "Thu.";
if (d_of_w == 5) dow_str = "Fri.";
if (d_of_w == 6) dow_str = "Sat.";

zz = floor(jd_temp);
ff = jd_temp - zz;
alpha = floor((zz - 1867216.25) / 36524.25);
aa = zz + 1 + alpha - floor(alpha / 4);
bb = aa + 1524;
cc = floor((bb - 122.1) / 365.25);
dd = floor(365.25 * cc);
ee = floor((bb - dd) / 30.6001);
calendar_day = bb - dd - floor(30.6001 * ee) + ff;
calendar_month = ee;
if (ee < 13.5) calendar_month = ee - 1;
if (ee > 13.5) calendar_month = ee - 13;
calendar_year = cc;
if (calendar_month > 2.5) calendar_year = cc - 4716;
if (calendar_month < 2.5) calendar_year = cc - 4715;
int_day = floor(calendar_day);
hours = (calendar_day - int_day) * 24;
minutes = floor((hours - floor(hours)) * 60 + 0.5);
hours = floor(hours);
if (minutes > 59)
{minutes = 0; hours = hours + 1;}
if (calendar_month < 10) calendar_month = "0" + calendar_month;
if (int_day < 10) int_day = "0" + int_day;

}
document.planets.date_zone.value = dow_str + " " + calendar_year + "/" + calendar_month + "/" + int_day + " " + am_pm(hours + minutes / 60.0);
}

function am_pm(h)
{
with (Math) {
var hours, minutes, ampm, result="";
hours = floor(h);
minutes = floor((h - hours) * 60 + 0.5);
if (minutes == 60)
{
hours += 1;
minutes = 0;
}

if (hours > 11)
{
hours -= 12; 
ampm = " pm";
}
else
{ampm = " am";}
if (hours < 1) hours = 12;

if (hours < 10)
{result = result + "0" + floor(hours);}
else
{result = result + floor(hours);}
result = result + ":";

if (minutes < 10)
{result = result + "0" + minutes;}
else
{result = result + minutes;}
}
result = result + ampm
return result;
}

function julian_date()
{
var dt_as_str, mm, dd, yy;
var yyy, mmm, a, b;

dt_as_str = document.planets.date_txt.value;
yy = eval(dt_as_str.substring(0,4));
mm = eval(dt_as_str.substring(5,7));
dd = eval(dt_as_str.substring(8,10));

with (Math) {
var yyy=yy;
var mmm=mm;
if (mm < 3)
{
yyy = yy - 1;
mmm = mm + 12;
}
a = floor(yyy/100);
b = 2 - a + floor(a/4);

return floor(365.25*yyy) + floor(30.6001*(mmm+1)) + dd + 1720994.5 + b;
}
}

function julian_date_zoned()
{
var dt_as_str, mm, dd, yy;
var yyy, mmm, a, b;

dt_as_str = document.planets.date_zone.value;
yy = eval(dt_as_str.substring(5,9));
mm = eval(dt_as_str.substring(10,12));
dd = eval(dt_as_str.substring(13,15));

with (Math) {
var yyy=yy;
var mmm=mm;
if (mm < 3)
{
yyy = yy - 1;
mmm = mm + 12;
}
a = floor(yyy/100);
b = 2 - a + floor(a/4);

return floor(365.25*yyy) + floor(30.6001*(mmm+1)) + dd + 1720994.5 + b;
}
}

function moon_facts()
{
with (Math) {
	
var dt_as_str, mm, dd, yy, jd, i, tmp, k, t;
var M, M1, F, NM_FM, FQ_LQ, RAD = 180 / PI;
var jd_temp, d_of_w, dow_str, zz, ff, alpha;
var aa, bb, cc, dd, ee, calendar_day, month;
var calendar_month, int_day, hours, minutes;

moon_data = "";
phase[0] = " New Moon ";
phase[1] = "Moon at first quarter ";
phase[2] = "Full Moon ";
phase[3] = " Moon at last quarter ";

dt_as_str = document.planets.date_txt.value;
yy = eval(dt_as_str.substring(0,4));
mm = eval(dt_as_str.substring(5,7));
dd = eval(dt_as_str.substring(8,10));

tmp = floor(((yy + (mm - 1) / 12 + dd / 365.25) - 1900.0) * 12.3685);

for (i=0; i<4; i++)
{
k = tmp + i * 0.25
t = k / 1236.85;
M = proper_ang(359.2242 + 29.10535608 * k - 0.0000333 * pow(t,2) - 0.00000347 * pow(t,3)) / RAD;
M1 = proper_ang(306.0253 + 385.81691806 * k + 0.0107306 * pow(t,2) + 0.00001236 * pow(t,3)) / RAD;
F = proper_ang(21.2964 + 390.67050646 * k - 0.0016528 * pow(t,2) - 0.00000239 * pow(t,3)) / RAD;
NM_FM = (0.1734 - 0.000393 * t) * sin(M) + 0.0021 * sin(2 * M) - 0.4068 * sin(M1) + 0.0161 * sin(2 * M1) - 0.0004 * sin(3 * M1) + 0.0104 * sin(2 * F) - 0.0051 * sin(M + M1) - 0.0074 * sin(M - M1) + 0.0004 * sin(2 * F + M) - 0.0004 * sin(2 * F - M) - 0.0006 * sin(2 * F + M1) + 0.0010 * sin(2 * F - M1) + 0.0005 * sin(M + 2 * M1);
FQ_LQ = (0.1721 - 0.0004 * t) * sin(M) + 0.0021 * sin(2 * M) - 0.628 * sin(M1) + 0.0089 * sin(2 * M1) - 0.0004 * sin(3 * M1) + 0.0079 * sin(2 * F) - 0.0119 * sin(M + M1) - 0.0047 * sin(M - M1) + 0.0003 * sin(2 * F + M) - 0.0004 * sin(2 * F - M) - 0.0006 * sin(2 * F + M1) + 0.0021 * sin(2 * F - M1) + 0.0003 * sin(M + 2 * M1) + 0.0004 * sin(M - 2 * M1) - 0.0003 * sin(2 * M + M1);
phases[i] = 2415020.75933 + 29.53058868 * k + 0.0001178 * pow(t,2) - 0.000000155 * pow(t,3) + 0.00033 * sin(2.907 + 2.319 * t - 1.6e-4 * pow(t,2));
if (i == 0 || i == 2) phases[i] += NM_FM;
if (i == 1) phases[i] = phases[i] + FQ_LQ + 0.0028 - 0.0004 * cos(M) + 0.0003 * cos(M1);
if (i == 3) phases[i] = phases[i] + FQ_LQ - 0.0028 + 0.0004 * cos(M) - 0.0003 * cos(M1);
}
new_moon = phases[0];

for (i=0; i<4; i++)
{
jd_temp = phases[i] + 0.5;

d_of_w = floor(jd_temp + 1.0) % 7;
if (d_of_w == 0) dow_str = "Sun";
if (d_of_w == 1) dow_str = "Mon";
if (d_of_w == 2) dow_str = "Tue";
if (d_of_w == 3) dow_str = "Wed";
if (d_of_w == 4) dow_str = "Thu";
if (d_of_w == 5) dow_str = "Fri";
if (d_of_w == 6) dow_str = "Sat";

zz = floor(jd_temp);
ff = jd_temp - zz;
alpha = floor((zz - 1867216.25) / 36524.25);
aa = zz + 1 + alpha - floor(alpha / 4);
bb = aa + 1524;
cc = floor((bb - 122.1) / 365.25);
dd = floor(365.25 * cc);
ee = floor((bb - dd) / 30.6001);
calendar_day = bb - dd - floor(30.6001 * ee) + ff;
calendar_month = ee;
if (ee < 13.5) calendar_month = ee - 1;
if (ee > 13.5) calendar_month = ee - 13;
calendar_year = cc;
if (calendar_month > 2.5) calendar_year = cc - 4716;
if (calendar_month < 2.5) calendar_year = cc - 4715;
int_day = floor(calendar_day);
hours = (calendar_day - int_day) * 24;
minutes = floor((hours - floor(hours)) * 60 + 0.5);
hours = floor(hours);
if (minutes > 59)
{minutes = 0; hours = hours + 1;}
if (hours < 10) hours = "0" + hours;
if (minutes < 10) minutes = "0" + minutes;
if (int_day < 10) int_day = "0" + int_day;

if (calendar_month == 1) month = "Jan";
if (calendar_month == 2) month = "Feb";
if (calendar_month == 3) month = "Mar";
if (calendar_month == 4) month = "Apr";
if (calendar_month == 5) month = "May";
if (calendar_month == 6) month = "Jun";
if (calendar_month == 7) month = "Jul";
if (calendar_month == 8) month = "Aug";
if (calendar_month == 9) month = "Sep";
if (calendar_month == 10) month = "Oct";
if (calendar_month == 11) month = "Nov";
if (calendar_month == 12) month = "Dec";

moon_data += dow_str + "," + month + " " + int_day + "," + calendar_year + " " + phase[i] + hours + ":" + minutes + " UT";

if (i == 1 || i == 3)
{
moon_data += "\n"
}
else
{
moon_data += "   ";
}

}

}
}

function planets()
{
with (Math) {

var RAD = 180 / PI;

document.planets.size6.value = "";
document.planets.size7.value = "";
document.planets.phase7.value = "";
document.planets.phase6.value = "";
document.planets.dawn.value = "";
document.planets.dusk.value = "";
document.planets.tr0.value = "...";
document.planets.tr1.value = "...";
document.planets.tr2.value = "...";
document.planets.tr3.value = "...";
document.planets.tr4.value = "...";
document.planets.tr5.value = "...";
document.planets.tr6.value = "...";

var planet_dec = new Array(9);
var planet_ra = new Array(9); 
var planet_dist = new Array(9);
var planet_phase = new Array(9);
var planet_size = new Array(9);
var planet_alt = new Array(9);
var planet_az = new Array(9);

var ang_at_1au = new Array(1,6.68,16.82,9.36,196.94,166.6);

var planet_a = new Array(5);
var planet_l = new Array(5);
var planet_i = new Array(5);
var planet_e = new Array(5);
var planet_n = new Array(5);
var planet_m = new Array(5);
var planet_r = new Array(5);

var jd, t, l, m, e, c, sl, r, R, Rm, u, p, q, s, v, z, a, b, ee, oe, t0, gt;
var g0, x, y, i, indx, count, hl, ha, eg, et, dr, en, de, ra, la, lo, height;
var az, al, size, il, dist, rho_sin_lat, rho_cos_lat, h_p, rise_str, set_str;
var dawn, dusk, gt_dawn, gt_dusk, dawn_planets, dusk_planets, morn, eve;
var sunrise_set, moonrise_set, twilight_begin_end, twilight_start, twilight_end;
var sat_lat, phase_angle, dt_as_str, tm_as_str, ut_hrs, ut_mns, part_day, dt;
var moon_days, Days, age, N, M_sun, Ec, lambdasun, P0, N0, rise, set, tr, h0;
var i_m, e_m, l_m, M_m, N_m, Ev, Ae, A3, A4, lambda_moon, beta_moon, phase;
var transit, lambda_transit, beta_transit, de_transit, ra_transit, n_or_s;
var de_np, ra_np, d_beta, d_lambda, lambda_moon_D, beta_moon_D, yy, mm, dd;

if (latitude >= 0)
{
 n_or_s = "N";
}
 else
{
 n_or_s = "S";
}

la = latitude / RAD;
lo = longitude / RAD;
height = 10.0;

tm_as_str = document.planets.ut_h_m.value;
ut_hrs = eval(tm_as_str.substring(0,2));
ut_mns = eval(tm_as_str.substring(3,5));
dt_as_str = document.planets.date_txt.value;
yy = eval(dt_as_str.substring(0,4));
mm = eval(dt_as_str.substring(5,7));
dd = eval(dt_as_str.substring(8,10));

part_day = ut_hrs / 24.0 + ut_mns / 1440.0;

jd = julian_date() + part_day;

document.planets.phase8.value = round_1000(jd);

y = floor(yy / 50 + 0.5) * 50;
if (y == 1600) dt = 2;
if (y == 1650) dt = 0.8;
if (y == 1700) dt = 0.1;
if (y == 1750) dt = 0.2;
if (y == 1800) dt = 0.2;
if (y == 1850) dt = 0.1;
if (y == 1900) dt = 0;
if (y == 1950) dt = 0.5;
if (y == 2000) dt = 1.1;
if (y == 2050) dt = 3;
if (y == 2100) dt = 5;
if (y == 2150) dt = 6;
if (y == 2200) dt = 8;
if (y == 2250) dt = 11;
if (y == 2300) dt = 13;
if (y == 2350) dt = 16;
if (y == 2400) dt = 19;
dt = dt / 1440;

jd += dt;

zone_date_time();

moon_facts();

t=(jd-2415020.0)/36525;
oe=.409319747-2.271109689e-4*t-2.8623e-8*pow(t,2)+8.779e-9*pow(t,3);
t0=(julian_date()-2415020.0)/36525;
g0=.276919398+100.0021359*t0+1.075e-6*pow(t0,2);
g0=(g0-floor(g0))*2*PI;
gt=proper_ang_rad(g0+part_day*6.30038808);

l=proper_ang_rad(4.88162797+628.331951*t+5.27962099e-6*pow(t,2));
m=proper_ang_rad(6.2565835+628.3019457*t-2.617993878e-6*pow(t,2)-5.759586531e-8*pow(t,3));
e=.01675104-4.18e-5*t-1.26e-7*pow(t,2);
c=proper_ang_rad(3.3500896e-2-8.358382e-5*t-2.44e-7*pow(t,2))*sin(m)+(3.50706e-4-1.7e-6*t)*sin(2*m)+5.1138e-6*sin(3*m);
sl=proper_ang_rad(l+c);
R=1.0000002*(1-pow(e,2))/(1+e*cos(m+c));

de = asin(sin(oe) * sin(sl));
y = sin(sl) * cos(oe);
x = cos(sl);
ra = proper_ang_rad(atan2(y,x));
dist = R;
size = 31.9877 / dist;

ha=proper_ang_rad(gt-lo-ra);
al=asin(sin(la)*sin(de)+cos(la)*cos(de)*cos(ha));
az=acos((sin(de)-sin(la)*sin(al))/(cos(la)*cos(al)));
if (sin(ha)>=0) az=2*PI-az;

planet_decl[0] = de;
planet_r_a[0] = ra;
planet_mag[0] = -26.7;

planet_dec[8] = "";
planet_ra[8] = "";
planet_dist[8] = "";
planet_size[8] = "";
planet_alt[8] = "";
planet_az[8] = "";

y = sin(-0.8333/RAD) - sin(la) * sin(de);
x = cos(la) * cos(de);
if (y/x >= 1)
{
 rise_str = "No rise";
 set_str = "No rise";
 h0 = 0;
}
if (y/x <= -1)
{
 rise_str = "No set";
 set_str = "No set";
 h0 = 0;
}
if (abs(y/x) < 1)
{
 h0 = acos(y/x) * RAD;
 tr = range_1((ra * RAD + lo * RAD - g0 * RAD) / 360);
 document.planets.tr0.value = am_pm(range_1(tr + zone / 24 - dt) * 24);
 rise_str = am_pm(range_1(tr - h0 / 360 + zone / 24 - dt) * 24);
 set_str = am_pm(range_1(tr + h0 / 360 + zone / 24 - dt) * 24);
}

y = sin(-18/RAD) - sin(la) * sin(de);
x = cos(la) * cos(de);
if (y/x >= 1)
{
 twilight_start = "No twilight";
 twilight_end = "No twilight";
 h0 = 0;
}
if (y/x <= -1)
{
 twilight_start = "All night";
 twilight_end = "All night";
 h0 = 0;
}
if (abs(y/x) < 1)
{
 h0 = acos(y/x) * RAD;
 tr = range_1((ra * RAD + lo * RAD - g0 * RAD) / 360);
 twilight_start = am_pm(range_1(tr - h0 / 360 + zone / 24 - dt) * 24);
 twilight_end = am_pm(range_1(tr + h0 / 360 + zone / 24 - dt) * 24);
}

al = al * RAD;
az = az * RAD;
if (al >= 0)
{
al += 1.2 / (al + 2);
}
else
{
al += 1.2 / (abs(al) + 2);
}

planet_altitude[0] = al;
planet_azimuth[0] = az;

de = de * RAD;
ra = ra * RAD / 15;

x = round_10(abs(de));
if (de < 0)
{
planet_dec[8] += "-";
}
else
{
planet_dec[8] += "+";
}
if (x < 10) planet_dec[8] += "0";
planet_dec[8] += x;
if (x == floor(x)) planet_dec[8] += ".0";
planet_dec[8] += "\u00B0";

x = floor(ra);
y = floor((ra - x) * 60 + 0.5);
if (y == 60)
{
x += 1;
y = 0;
}
if (x < 10) planet_ra[8] += "0";
planet_ra[8] += x + "h ";
if (y < 10) planet_ra[8] += "0";
planet_ra[8] += y + "m";

dist = round_100(dist);
if (dist < 10)
planet_dist[8] += "0";
planet_dist[8] += dist;

size = round_10(size);
planet_size[8] += size;
if (size == floor(size)) planet_size[8] += ".0";
planet_size[8] += "\'";

sunrise_set = sun_rise_set(la,lo,zone);
rise_str = sunrise_set.substring(0,8);
set_str = sunrise_set.substring(11,19);
planet_alt[8] = rise_str;
planet_az[8] = set_str;

/*
planet_alt[8] = rise_str;
planet_az[8] = set_str;
sunrise_set = rise_str + " / " + set_str;
*/

moon_days = 29.53058868;
Days = jd - 2444238.5;
N = proper_ang(Days / 1.01456167);
M_sun = proper_ang(N - 3.762863);
Ec = 1.91574168 * sin(M_sun / RAD);
lambdasun = proper_ang(N + Ec + 278.83354);
l0 = 64.975464;
P0 = 349.383063;
N0 = 151.950429;
i_m = 5.145396;
e_m = 0.0549;
l_m = proper_ang(13.1763966 * Days + l0);
M_m = proper_ang(l_m - 0.111404 * Days - P0);
N_m = proper_ang(N0 - 0.0529539 * Days);
Ev = 1.2739 * sin((2 * (l_m - lambdasun) - M_m) / RAD);
Ae = 0.1858 * sin(M_sun / RAD);
A3 = 0.37 * sin(M_sun / RAD);
M_m += Ev - Ae - A3;
Ec = 6.2886 * sin(M_m / RAD);
dist = hundred_miles(238855.7 * (1 - pow(e_m,2)) / (1 + e_m * cos((M_m + Ec) / RAD)));
A4 = 0.214 * sin(2 * M_m / RAD);
l_m += Ev + Ec - Ae + A4;
l_m += 0.6583 * sin(2 * (l_m - lambdasun) / RAD);
N_m -= 0.16 * sin(M_sun / RAD);

y = sin((l_m - N_m) / RAD) * cos(i_m / RAD);
x = cos((l_m - N_m) / RAD);
lambda_moon = proper_ang_rad(atan2(y,x) + N_m / RAD);
beta_moon = asin(sin((l_m - N_m) / RAD) * sin(i_m / RAD));
d_beta = 8.727e-4 * cos((l_m - N_m) / RAD);
d_lambda = 9.599e-3 + 1.047e-3 * cos(M_m / RAD);

de = asin(sin(beta_moon) * cos(oe) + cos(beta_moon) * sin(oe) * sin(lambda_moon));
y = sin(lambda_moon) * cos(oe) - tan(beta_moon) * sin(oe);
x = cos(lambda_moon);
ra = proper_ang_rad(atan2(y,x));
de_np = de;
ra_np = ra;

size = 2160 / dist * RAD * 60;
h_p = 3963.2 / dist * RAD;
x = proper_ang(l_m - lambdasun);
phase = 50.0 * (1.0 - cos(x / RAD));

/*
age = jd - new_moon;
if (age > moon_days) age -= moon_days;
if (age < 0) age += moon_days;
*/

age = (x / 360 * moon_days);

Rm = R - dist * cos(x / RAD) / 92955800;
phase_angle = acos((pow(Rm,2) + pow((dist/92955800),2) - pow(R,2)) / (2 * Rm * dist/92955800)) * RAD / 100;
planet_mag[6] = round_10(0.21 + 5 * log(Rm * dist / 92955800)/log(10) + 3.05 * (phase_angle) - 1.02 * pow(phase_angle,2) + 1.05 * pow(phase_angle,3));
if (planet_mag[6] == floor(planet_mag[6])) planet_mag[6] += ".0";

/*
thisImage = floor(age / moon_days * 27 + 0.5);
*/

thisImage = floor(age / moon_days * 28);
document.MoonPhase.src = "images/moon_phases/mp" + thisImage.toString() + n_or_s + ".gif";
age = round_10(age);

x = atan(0.996647 * tan(la));
rho_sin_lat = 0.996647 * sin(x) + height * sin(la) / 6378140;
rho_cos_lat = cos(x) + height * cos(la) / 6378140;
r = dist / 3963.2;
ha = proper_ang_rad(gt - lo - ra);
x = atan(rho_cos_lat * sin(ha) / (r * cos(de) - rho_cos_lat * cos(ha)));
ra -= x;
y = ha;
ha += x;
de = atan(cos(ha) * (r * sin(de) - rho_sin_lat) / (r * cos(de) * cos(y) - rho_cos_lat));
ha = proper_ang_rad(gt - lo - ra);
al = asin(sin(de) * sin(la) + cos(de) * cos(la) * cos(ha));
az = acos((sin(de) - sin(la) * sin(al)) / (cos(la) * cos(al)));
if (sin(ha) >= 0) az = 2 * PI - az;

planet_decl[6] = de;
planet_r_a[6] = ra;

planet_dec[9] = "";
planet_ra[9] = "";
planet_dist[9] = "";
planet_dist[6] = "";
planet_phase[9] = "";
planet_size[9] = "";
planet_alt[9] = "";
planet_az[9] = "";

lambda_moon_D = lambda_moon - d_lambda * part_day * 24;
beta_moon_D = beta_moon - d_beta * part_day * 24;

tr = range_1((ra_np * RAD + lo * RAD - g0 * RAD) / 360);
transit = tr * 24;
lambda_transit = lambda_moon_D + transit * d_lambda;
beta_transit = beta_moon_D + transit * d_beta;
de_transit = asin(sin(beta_transit) * cos(oe) + cos(beta_transit) * sin(oe) * sin(lambda_transit));
y = sin(lambda_transit) * cos(oe) - tan(beta_transit) * sin(oe);
x = cos(lambda_transit);
ra_transit = proper_ang_rad(atan2(y,x));
tr = range_1((ra_transit * RAD + lo * RAD - g0 * RAD) / 360);
document.planets.tr6.value = am_pm(range_1(tr + zone / 24 - dt) * 24);

al = al * RAD;
az = az * RAD;
if (al >= 0)
{
al += 1.2 / (al + 2);
}
else
{
al += 1.2 / (abs(al) + 2);
}

planet_altitude[6] = al;
planet_azimuth[6] = az;

de = de * RAD;
ra = ra * RAD / 15;

x = round_10(abs(de));
if (de < 0)
{
planet_dec[9] += "-";
}
else
{
planet_dec[9] += "+";
}
if (x < 10) planet_dec[9] += "0";
planet_dec[9] += x;
if (x == floor(x)) planet_dec[9] += ".0";
planet_dec[9] += "\u00B0";

x = floor(ra);
y = floor((ra - x) * 60 + 0.5);
if (y == 60)
{
x += 1;
y = 0;
}
if (x < 10) planet_ra[9] += "0";
planet_ra[9] += x + "h ";
if (y < 10) planet_ra[9] += "0";
planet_ra[9] += y + "m";

if (age < 10)
planet_dist[6] += "0";
planet_dist[6] += age;
if (age == floor(age)) planet_dist[6] += ".0";
planet_dist[6] += " days";

planet_dist[9] += dist;

size = round_10(size);
planet_size[9] += size;
if (size == floor(size)) planet_size[9] += ".0";
planet_size[9] += "\'";

phase = floor(phase + 0.5);
planet_phase[9] += phase + "%";

moonrise_set = moon_rise_set(la,lo,zone);
rise_str = moonrise_set.substring(0,8);
set_str = moonrise_set.substring(11,19);
planet_alt[9] = rise_str;
planet_az[9] = set_str;


if (twilight_start == "All night")
{
twilight_begin_end = "twilight all night";
}
else if (twilight_start == "No twilight")
{
twilight_begin_end = "Sky dark for 24h";
}
else
{
twilight_begin_end = twilight_start + " / " + twilight_end;
}

u=t/5+.1;
p=proper_ang_rad(4.14473024+52.96910393*t);
q=proper_ang_rad(4.64111846+21.32991139*t);
s=proper_ang_rad(4.2501771+7.478172103*t);
v=5*q-2*p;
z=proper_ang_rad(q-p);
if (v >= 0) 
{
v=proper_ang_rad(v);
}
else
{
v=proper_ang_rad(abs(v))+2*PI;
}

planet_a[1]=0.3870986;
planet_l[1]=proper_ang_rad(3.109811569+2608.814681*t+5.2552e-6*pow(t,2));
planet_e[1]=.20561421+2.046e-5*t-3e-8*pow(t,2);
planet_i[1]=.12222333+3.247708672e-5*t-3.194e-7*pow(t,2);
planet_n[1]=.822851951+.020685787*t+3.035127569e-6*pow(t,2);
planet_m[1]=proper_ang_rad(1.785111938+2608.787533*t+1.22e-7*pow(t,2));
planet_a[2]=0.7233316;
planet_l[2]=proper_ang_rad(5.982413642+1021.352924*t+5.4053e-6*pow(t,2));
planet_e[2]=.00682069-4.774e-5*t+9.1e-8*pow(t,2);
planet_i[2]=.059230034+1.75545e-5*t-1.7e-8*pow(t,2);
planet_n[2]=1.322604346+.0157053*t+7.15585e-6*pow(t,2);
planet_m[2]=proper_ang_rad(3.710626189+1021.328349*t+2.2445e-5*pow(t,2));
planet_a[3]=1.5236883;
planet_l[3]=proper_ang_rad(5.126683614+334.0856111*t+5.422738e-6*pow(t,2));
planet_e[3]=.0933129+9.2064e-5*t-7.7e-8*pow(t,2);
planet_i[3]=.032294403-1.178097e-5*t+2.199e-7*pow(t,2);
planet_n[3]=.851484043+.013456343*t-2.44e-8*pow(t,2)-9.3026e-8*pow(t,3);
planet_m[3]=proper_ang_rad(5.576660841+334.0534837*t+3.159e-6*pow(t,2));
planet_l[4]=proper_ang_rad(4.154743317+52.99346674*t+5.841617e-6*pow(t,2)-2.8798e-8*pow(t,3));
a=.0058*sin(v)-1.1e-3*u*cos(v)+3.2e-4*sin(2*z)-5.8e-4*cos(z)*sin(q)-6.2e-4*sin(z)*cos(q)+2.4e-4*sin(z);
b=-3.5e-4*cos(v)+5.9e-4*cos(z)*sin(q)+6.6e-4*sin(z)*cos(q);
ee=3.6e-4*sin(v)-6.8e-4*sin(z)*sin(q);
planet_e[4]=.04833475+1.6418e-4*t-4.676e-7*pow(t,2)-1.7e-9*pow(t,3);
planet_a[4]=5.202561+7e-4*cos(2*z);
planet_i[4]=.022841752-9.941569952e-5*t+6.806784083e-8*pow(t,2);
planet_n[4]=1.735614994+.017637075*t+6.147398691e-6*pow(t,2)-1.485275193e-7*pow(t,3);
planet_m[4]=proper_ang_rad(3.932721257+52.96536753*t-1.26012772e-5*pow(t,2));
planet_m[4]=proper_ang_rad(planet_m[4]+a-b/planet_e[4]);
planet_l[4]=proper_ang_rad(planet_l[4]+a);
planet_e[4]=planet_e[4]+ee;

planet_a[5]=9.554747;
planet_l[5]=proper_ang_rad(4.652426047+21.35427591*t+5.663593422e-6*pow(t,2)-1.01229e-7*pow(t,3));
a=-.014*sin(v)+2.8e-3*u*cos(v)-2.6e-3*sin(z)-7.1e-4*sin(2*z)+1.4e-3*cos(z)*sin(q);
a=a+1.5e-3*sin(z)*cos(q)+4.4e-4*cos(z)*cos(q);
a=a-2.7e-4*sin(3*z)-2.9e-4*sin(2*z)*sin(q)+2.6e-4*cos(2*z)*sin(q);
a=a+2.5e-4*cos(2*z)*cos(q);
b=1.4e-3*sin(v)+7e-4*cos(v)-1.3e-3*sin(z)*sin(q);
b=b-4.3e-4*sin(2*z)*sin(q)-1.3e-3*cos(q)-2.6e-3*cos(z)*cos(q)+4.7e-4*cos(2*z)*cos(q);
b=b+1.7e-4*cos(3*z)*cos(q)-2.4e-4*sin(z)*sin(2*q);
b=b+2.3e-4*cos(2*z)*sin(2*q)-2.3e-4*sin(z)*cos(2*q)+2.1e-4*sin(2*z)*cos(2*q);
b=b+2.6e-4*cos(z)*cos(2*q)-2.4e-4*cos(2*z)*cos(2*q);
planet_l[5]=proper_ang_rad(planet_l[5]+a);
planet_e[5]=.05589232-3.455e-4*t-7.28e-7*pow(t,2)+7.4e-10*pow(t,3);
planet_i[5]=.043502663-6.839770806e-5*t-2.703515011e-7*pow(t,2)+6.98e-10*pow(t,3);
planet_n[5]=1.968564089+.015240129*t-2.656042056e-6*pow(t,2)-9.2677e-8*pow(t,3);
planet_m[5]=proper_ang_rad(3.062463265+21.32009513*t-8.761552845e-6*pow(t,2));
planet_m[5]=proper_ang_rad(planet_m[5]+a-b/planet_e[5]);
planet_a[5]=planet_a[5]+.0336*cos(z)-.00308*cos(2*z)+.00293*cos(v);
planet_e[5]=planet_e[5]+1.4e-3*cos(v)+1.2e-3*sin(q)+2.7e-3*cos(z)*sin(q)-1.3e-3*sin(z)*cos(q);

for (i=1; i<6; i++)

{

e = planet_m[i];
for (count = 1; count <= 50; count++)
{
de = e - planet_e[i] * sin(e) - planet_m[i];
if (abs(de) <= 5e-8) break;
e = e - de / (1 - planet_e[i] * cos(e));
}
v=2*atan(sqrt((1+planet_e[i])/(1-planet_e[i]))*tan(e/2));
planet_r[i]=planet_a[i]*(1-planet_e[i]*cos(e));
u=proper_ang_rad(planet_l[i]+v-planet_m[i]-planet_n[i]);
x=cos(planet_i[i])*sin(u);
y=cos(u);
y=acos(y/sqrt(pow(x,2)+pow(y,2)));
if (x<0) y=2*PI-y;

hl=proper_ang_rad(y+planet_n[i]);
ha=asin(sin(u)*sin(planet_i[i]));
x=planet_r[i]*cos(ha)*sin(proper_ang_rad(hl-sl));
y=planet_r[i]*cos(ha)*cos(proper_ang_rad(hl-sl))+R;
y=acos(y/sqrt(pow(x,2)+pow(y,2)));
if (x<0) y=2*PI-y;

eg=proper_ang_rad(y+sl);
dr=sqrt(pow(R,2)+pow(planet_r[i],2)+2*planet_r[i]*R*cos(ha)*cos(proper_ang_rad(hl-sl)));
size=ang_at_1au[i]/dr;
il=floor((pow((planet_r[i]+dr),2)-pow(R,2))/(4*planet_r[i]*dr)*100+.5);
phase_angle=acos((pow(planet_r[i],2)+pow(dr,2)-pow(R,2))/(2*planet_r[i]*dr))*RAD;
et=asin(planet_r[i]/dr*sin(ha));
en=acos(cos(et)*cos(proper_ang_rad(eg-sl)));
de=asin(sin(et)*cos(oe)+cos(et)*sin(oe)*sin(eg));
y=cos(eg);
x=sin(eg)*cos(oe)-tan(et)*sin(oe);
y=acos(y/sqrt(pow(x,2)+pow(y,2)));
if (x<0) y=2*PI-y;

ra=y;
ha=proper_ang_rad(gt-lo-ra);
al=asin(sin(la)*sin(de)+cos(la)*cos(de)*cos(ha));
az=acos((sin(de)-sin(la)*sin(al))/(cos(la)*cos(al)));
if (sin(ha)>=0) az=2*PI-az;

planet_decl[i] = de;
planet_r_a[i] = ra;

planet_mag[i]=5*log(planet_r[i]*dr)/log(10);
if (i == 1) planet_mag[i] = -0.42 + planet_mag[i] + 0.038*phase_angle - 0.000273*pow(phase_angle,2) + 0.000002*pow(phase_angle,3); 
if (i == 2) planet_mag[i] = -4.4 + planet_mag[i] + 0.0009*phase_angle + 0.000239*pow(phase_angle,2) - 0.00000065*pow(phase_angle,3);
if (i == 3) planet_mag[i] = -1.52 + planet_mag[i] + 0.016*phase_angle;
if (i == 4) planet_mag[i] = -9.4 + planet_mag[i] + 0.005*phase_angle;
if (i == 5)
{
sat_lat = asin(0.47063*cos(et)*sin(eg-2.9585)-0.88233*sin(et));
planet_mag[i] = -8.88 + planet_mag[i] + 0.044*phase_angle - 2.6*sin(abs(sat_lat)) + 1.25*pow(sin(sat_lat),2);
}
planet_mag[i] = round_10(planet_mag[i]);
if (planet_mag[i] == floor(planet_mag[i])) planet_mag[i] += ".0";
if (planet_mag[i] >= 0) planet_mag[i] = "+" + planet_mag[i];

planet_dec[i] = "";
planet_ra[i] = "";
planet_dist[i] = "";
planet_size[i] = "";
planet_phase[i] = "";
planet_alt[i] = "";
planet_az[i] = "";

y = sin(-0.5667/RAD) - sin(la) * sin(de);
x = cos(la) * cos(de);
if (y/x >= 1)
{
 rise_str = "No rise";
 set_str = "No rise";
 h0 = 0;
}
if (y/x <= -1)
{
 rise_str = "No set";
 set_str = "No set";
 h0 = 0;
}
if (abs(y/x) < 1)
{
 h0 = acos(y/x) * RAD;
 tr = range_1((ra * RAD + lo * RAD - g0 * RAD) / 360);
 rise_str = am_pm(range_1(tr - h0 / 360 + zone / 24 - dt) * 24);
 set_str = am_pm(range_1(tr + h0 / 360 + zone / 24 - dt) * 24);
 tr = am_pm(range_1(tr + zone / 24 - dt) * 24);
 if (i == 1) document.planets.tr1.value = tr;
 if (i == 2) document.planets.tr2.value = tr;
 if (i == 3) document.planets.tr3.value = tr;
 if (i == 4) document.planets.tr4.value = tr;
 if (i == 5) document.planets.tr5.value = tr;
}

al = al * RAD;
az = az * RAD;

planet_altitude[i] = al;
planet_azimuth[i] = az;

de = de * RAD;
ra = ra * RAD / 15;

x = round_10(abs(de));
if (de < 0)
{
planet_dec[i] += "-";
}
else
{
planet_dec[i] += "+";
}
if (x < 10) planet_dec[i] += "0";
planet_dec[i] += x;
if (x == floor(x)) planet_dec[i] += ".0";
planet_dec[i] += "\u00B0";

x = floor(ra);
y = floor((ra - x) * 60 + 0.5);
if (y == 60)
{
x += 1;
y = 0;
}
if (x < 10) planet_ra[i] += "0";
planet_ra[i] += x + "h ";
if (y < 10) planet_ra[i] += "0";
planet_ra[i] += y + "m";

dr = round_100(dr);
if (dr < 10)
planet_dist[i] += "0";
planet_dist[i] += dr;

size = round_10(size);
if (size < 10)
planet_size[i] += "0";
planet_size[i] += size;
if (size == floor(size)) planet_size[i] += ".0";
planet_size[i] += "\"";

planet_phase[i] += il + "%";

planet_alt[i] = rise_str;
planet_az[i] = set_str;

}

dawn_planets = "";
dusk_planets = "";
phenomena = "";

y = sin(-9/RAD) - sin(la) * sin(planet_decl[0]);
x = cos(la) * cos(planet_decl[0]);
if (y/x >= 1)
{
rise_str = "No rise";
set_str = "No rise";
dawn_planets = "-----";
dusk_planets = "-----";
}
if (y/x <= -1)
{
rise_str = "No set";
set_str = "No set";
dawn_planets = "-----";
dusk_planets = "-----";
}
if (abs(y/x) < 1)
{
 h0 = acos(y/x) * RAD;
 tr = range_1((planet_r_a[0] * RAD + lo * RAD - g0 * RAD) / 360);
 dawn = range_1(tr - h0 / 360 - dt);
 dusk = range_1(tr + h0 / 360 - dt);
}
gt_dawn = proper_ang_rad(g0 + dawn * 6.30038808);
gt_dusk = proper_ang_rad(g0 + dusk * 6.30038808);

indx = 0;
morn = 0;
eve = 0;

for (i=0; i<17; i++)
{

if (i < 6)
{
ha = proper_ang_rad(gt_dawn - lo - planet_r_a[i]);
al = asin(sin(la) * sin(planet_decl[i]) + cos(la) * cos(planet_decl[i]) * cos(ha));

if (al >= 0)
{
 if (morn > 0) dawn_planets += ", ";
 dawn_planets += planet_name[i];
 morn ++;
}

ha = proper_ang_rad(gt_dusk - lo - planet_r_a[i]);
al = asin(sin(la) * sin(planet_decl[i]) + cos(la) * cos(planet_decl[i]) * cos(ha));

if (al >= 0)
{
 if (eve > 0) dusk_planets += ", ";
 dusk_planets += planet_name[i];
 eve ++;
}
}

x = round_10(acos(sin(planet_decl[6]) * sin(planet_decl[i]) + cos(planet_decl[6]) * cos(planet_decl[i]) * cos(planet_r_a[6] - planet_r_a[i])) * RAD);

if (x <= 10 && i != 6) 
{
 if (indx > 0) phenomena += " and ";
 if (x < 1)
 {
 phenomena += "less than 1";
 }
 else
 {
 phenomena += floor(x + 0.5);
 }
 phenomena += "\u00B0" + " from " + planet_name[i];
 if (x < 0.5)
 {
 if (i == 0)
 {
 phenomena += " (eclipse possible)";
 }
 else
 {
 phenomena += " (occultation possible)";
 }
 }
indx ++
}
}

if (dawn_planets == "") dawn_planets = "-----";
if (dusk_planets == "") dusk_planets = "-----";

if (indx > 0)
{
 phenomena = "The Moon is " + phenomena + ".  ";
}

indx = 0;
for (i=1; i<16; i++)
{
 for (count=i+1; count<17; count++)
 {
 if (i != 6 && count != 6)
 {
 x = round_10(acos(sin(planet_decl[count]) * sin(planet_decl[i]) + cos(planet_decl[count]) * cos(planet_decl[i]) * cos(planet_r_a[count] - planet_r_a[i])) * RAD);
 if (x <= 5)
 {
 if (indx > 0) phenomena += " and ";
 phenomena += planet_name[count] + " is ";
 if (x < 1)
 {
 phenomena += "less than 1";
 }
 else
 {
 phenomena += floor(x + 0.5);
 }
 phenomena += "\u00B0" + " from " + planet_name[i];
 indx ++
 }
 x = 0;
 }
 }
}
if (indx > 0) phenomena += ".  "

if (jd > 2454048.3007 && jd < 2454048.5078)
{
phenomena += "\nMercury is transiting the face of the Sun. ";
x = round_10((2454048.50704 - jd) * 24);
if (x >= 0.1)
{
phenomena += "The spectacle continues for a further " + x + " hours."
}
}

if (planet_altitude[0] < -18) phenomena += "The sky is dark. ";
if (planet_altitude[0] >= -18 && planet_altitude[0] < -12) phenomena += "The Sun is below the horizon (altitude " + floor(planet_altitude[0] + 0.5) + "\u00B0) and the sky is in deep twilight. ";
if (planet_altitude[0] >= -12 && planet_altitude[0] < -6) phenomena += "The Sun is below the horizon (altitude " + floor(planet_altitude[0] + 0.5) + "\u00B0) and the sky is in twilight. ";
if (planet_altitude[0] >= -6 && planet_altitude[0] < -0.3) phenomena += "The Sun is below the horizon (altitude " + floor(planet_altitude[0] + 0.5) + "\u00B0) and the sky is in bright twilight. ";
if (planet_altitude[0] >= -0.3) phenomena += "The Sun is above the horizon (altitude " + floor(planet_altitude[0] + 0.5) + "\u00B0). ";
if (planet_altitude[6] >= -0.3) phenomena += "The Moon is above the horizon (altitude " + floor(planet_altitude[6] + 0.5) + "\u00B0). ";
if (planet_altitude[6] < -0.3) phenomena += "The Moon is below the horizon. ";
phenomena += "\n\n------------------------------------------------------------------------------------\n";
phenomena += moon_data;
phenomena +="------------------------------------------------------------------------------------\n";

/*
phenomena += "2012 Phenomena (all dates & times are Universal Time)\n\n"
+ "yyyy mm dd hh UT\n"
+ "2011 12 22 05:30 UT Summer (Southern Hemisphere) begins at the solstice\n"
+ "2011 12 22 21 UT    Mercury at greatest illuminated extent (morning)\n"
+ "2011 12 23 04 UT    Mercury at greatest elongation, 21.8\u00B0 west of Sun (morning)\n------------------------------------------------------------------------------------\n";
*/

document.planets.ra1.value = planet_ra[1];
document.planets.dec1.value = planet_dec[1];
document.planets.dist1.value = planet_mag[1];
document.planets.size1.value = planet_size[1];
document.planets.phase1.value = planet_phase[1];
document.planets.alt1.value = planet_alt[1];
document.planets.az1.value = planet_az[1];

document.planets.ra2.value = planet_ra[2];
document.planets.dec2.value = planet_dec[2];
document.planets.dist2.value = planet_mag[2];
document.planets.size2.value = planet_size[2];
document.planets.phase2.value = planet_phase[2];
document.planets.alt2.value = planet_alt[2];
document.planets.az2.value = planet_az[2];

document.planets.ra3.value = planet_ra[3];
document.planets.dec3.value = planet_dec[3];
document.planets.dist3.value = planet_mag[3];
document.planets.size3.value = planet_size[3];
document.planets.phase3.value = planet_phase[3];
document.planets.alt3.value = planet_alt[3];
document.planets.az3.value = planet_az[3];

document.planets.ra4.value = planet_ra[4];
document.planets.dec4.value = planet_dec[4];
document.planets.dist4.value = planet_mag[4];
document.planets.size4.value = planet_size[4];
document.planets.phase4.value = planet_phase[4];
document.planets.alt4.value = planet_alt[4];
document.planets.az4.value = planet_az[4];

document.planets.ra5.value = planet_ra[5];
document.planets.dec5.value = planet_dec[5];
document.planets.dist5.value = planet_mag[5];
document.planets.size5.value = planet_size[5];
document.planets.phase5.value = planet_phase[5];
document.planets.alt5.value = planet_alt[5];
document.planets.az5.value = planet_az[5];

document.planets.dist6.value = planet_dist[6];
document.planets.size6.value = sunrise_set;
document.planets.phase6.value = phenomena;
document.planets.dawn.value = dawn_planets;
document.planets.dusk.value = dusk_planets;
document.planets.size7.value = moonrise_set;
document.planets.phase7.value = twilight_begin_end;

document.planets.ra8.value = planet_ra[8];
document.planets.dec8.value = planet_dec[8];
document.planets.dist8.value = planet_mag[0];
document.planets.size8.value = planet_size[8];
document.planets.alt8.value = planet_alt[8];
document.planets.az8.value = planet_az[8];

document.planets.ra9.value = planet_ra[9];
document.planets.dec9.value = planet_dec[9];
document.planets.dist9.value = planet_mag[6];
document.planets.size9.value = planet_size[9];
document.planets.phase9.value = planet_phase[9];
document.planets.alt9.value = planet_alt[9];
document.planets.az9.value = planet_az[9];

}
}

function moon_rise_set(latitude,longitude,tzone)
{
with (Math) {

var r_a = new Array(3);
var dec = new Array(3);
var dist = new Array(3);
var i, c0, x, y, p1, p2, r1, RAD, k1, b5, l5, h, z0, t, t0;
var s, l, m, f, d, n, g, v, u, w, a5, d5, r5, z1, c, z, m8, w8;
var a0, d0, p, f0, f1, f2, a, b, a2, d2, l0, l2, h0, h2, d1;
var v0=0, v1=0, v2=0, e, t3, rise_str = "", set_str = "", result = "";

p1 = PI;
p2 = 2 * p1;
r1 = PI / 180;
RAD = 1 / r1;
k1 = 15 * r1 * 1.002738;

b5 = latitude * RAD;
l5 = longitude * RAD;
h = tzone;
l5 = -l5 / 360;
z0 = -h / 24;

t = (julian_date_zoned() - 2451545.0);

t0 = t / 36525;
s = (24110.5 + 8640184.813 * t0 + 86636.6 * z0 + 86400 * l5) / 86400;
s = s - floor(s);
t0 = s * 360 * r1;
t = t + z0;

for (i=1; i<4; i++)
{
l = 0.606434 + 0.036601 * t;
m = 0.374897 + 0.036292 * t;
f = 0.259091 + 0.036748 * t;
d = 0.827362 + 0.033863 * t;
n = 0.347343 - 1.470939e-04 * t;
g = 0.993126 + 2.737778e-03 * t;

l = (l - floor(l)) * p2;
m = (m - floor(m)) * p2;
f = (f - floor(f)) * p2;
d = (d - floor(d)) * p2;
n = (n - floor(n)) * p2;
g = (g - floor(g)) * p2;

v = 0.39558*sin(f+n) + 0.082*sin(f) + 0.03257*sin(m-f-n) + 0.01092*sin(m+f+n) + 6.66e-03*sin(m-f) - 6.44e-03*sin(m+f-2*d+n) - 3.31e-03*sin(f-2*d+n) - 3.04e-03*sin(f-2*d) - 2.4e-03*sin(m-f-2*d-n) + 2.26e-03*sin(m+f) - 1.08e-03*sin(m+f-2*d) - 7.9e-04*sin(f-n) + 7.8e-04*sin(f+2*d+n);

u = 1 - 0.10828*cos(m) - 0.0188*cos(m-2*d) - 0.01479*cos(2*d) + 1.81e-03*cos(2*m-2*d) - 1.47e-03*cos(2*m) - 1.05e-03*cos(2*d-g) - 7.5e-04*cos(m-2*d+g);

w = 0.10478*sin(m) - 0.04105*sin(2*f+2*n) - 0.0213*sin(m-2*d) - 0.01779*sin(2*f+n) + 0.01774*sin(n) + 9.87e-03*sin(2*d) - 3.38e-03*sin(m-2*f-2*n) - 3.09e-03*sin(g) - 1.9e-03*sin(2*f) - 1.44e-03*sin(m+n) - 1.44e-03*sin(m-2*f-n) - 1.13e-03*sin(m+2*f+2*n) - 9.4e-04*sin(m-2*d+g) - 9.2e-04*sin(2*m-2*d);

s = w / sqrt(u-v*v);
a5 = l + atan(s / sqrt(1-s*s));
s = v / sqrt(u);
d5 = atan(s / sqrt(1-s*s));
r5 = 60.40974 * sqrt(u);
r_a[i] = a5;
dec[i] = d5;
dist[i] = r5;

t += 0.5;
}

if (r_a[2] < r_a[1]) r_a[2] += p2;
if (r_a[3] < r_a[2]) r_a[3] += p2;
 
z1 = r1 * (90.567 - 41.685 / dist[2]);
s = sin(b5*r1);
c = cos(b5*r1);
z = cos(z1);
m8 = 0;
w8 = 0;
a0 = r_a[1];
d0 = dec[1];

for (c0=0; c0<24; c0++)
{
p = (c0 + 1) / 24;
f0 = r_a[1];
f1 = r_a[2];
f2 = r_a[3];
a = f1 - f0;
b = f2 - f1 - a;
f = f0 + p * (2 * a + b * (2 * p - 1));
a2 = f;

f0 = dec[1];
f1 = dec[2];
f2 = dec[3];
a = f1 - f0;
b = f2 - f1 - a;
f = f0 + p * (2 * a + b * (2 * p - 1));
d2 = f;

l0 = t0 + c0 * k1;
l2 = l0 + k1;
if (a2 < a0) a2 += p2;
h0 = l0 - a0;
h2 = l2 - a2;
h1 = (h2 + h0) / 2;
d1 = (d2 + d0) / 2;
if (c0 < 1) v0 = s * sin(d0) + c * cos(d0) * cos(h0) - z;
v2 = s * sin(d2) + c * cos(d2) * cos(h2) - z;

if (sign_of(v0) != sign_of(v2))
{
 v1 = s * sin(d1) + c * cos(d1) * cos(h1) - z;
 a = 2 * v2 - 4 * v1 + 2 * v0;
 b = 4 * v1 - 3 * v0 - v2;
 d = b * b - 4 * a * v0;
 if (d >= 0)
 {
 d = sqrt(d);
 e = (-b + d) / (2 * a);
 if (e > 1 || e < 0) e = (-b - d) / (2 * a);
 t3 = am_pm(c0 + e);
 if (v0 < 0 && v2 > 0)
 {
  m8 = 1;
  rise_str = t3;
 }
 if (v0 > 0 && v2 < 0)
 {
  w8 = 1;
  set_str = t3;
 }
 }
}
a0 = a2;
d0 = d2;
v0 = v2;
}

if (m8 == 0 && w8 == 0)
{
 if (v2 < 0)
 {
 rise_str = "down 24h";
 set_str = "down 24h";
 }
 if (v2 > 0)
 {
 rise_str = " up 24h ";
 set_str = " up 24h ";
 }
}
else
{
 if (m8 == 0) rise_str = " ------ ";
 if (w8 == 0) set_str = " ------ ";
}

result = rise_str + " / " + set_str;

return result;
}
}

function sun_rise_set(latitude,longitude,tzone)
{
with (Math) {

var r_a = new Array(2);
var dec = new Array(2);
var p1 = PI;
var p2 = 2 * p1;
var dr = p1 / 180;
var RAD = 1 / dr;
var k1 = 15 * dr * 1.0027379;

var b5, l5, h, z0, t, tt, t0, s, l, g, v, u, w;
var a5, d5, r5, z1, c, z, m8, w8, a0, d0, da, dd;
var c0, p, a2, d2, l0, l2, h0, h1, h2, d1;
var v0=0, v1=0, v2=0, a, b, d, e, t3;
var rise_str = "", set_str = "", result = "";

b5 = latitude * RAD;
l5 = longitude * RAD;
h = tzone;
l5 = -l5 / 360;
z0 = -h / 24;

t = (julian_date_zoned() - 2451545.0);

tt = t / 36525 + 1;
t0 = t / 36525;
s = (24110.5 + 8640184.813 * t0 + 86636.6 * z0 + 86400 * l5) / 86400;
s = s - floor(s);
t0 = s * 360 * dr;

t = t + z0;

for (c0=1; c0<3; c0++)
{
l = .779072+.00273790931*t;
g = .993126+.0027377785*t;
l = (l-floor(l))*p2;
g = (g-floor(g))*p2;
v = .39785*sin(l)-.01000*sin(l-g)+.00333*sin(l+g)-.00021*tt*sin(l);
u = 1-.03349*cos(g)-.00014*cos(2*l)+.00008*cos(l);
w = -.00010-.04129*sin(2*l)+.03211*sin(g)+.00104*sin(2*l-g)-.00035*sin(2*l+g)-.00008*tt*sin(g);
s = w/sqrt(u-v*v);
a5 = l+atan(s/sqrt(1-s*s));
s = v/sqrt(u);
d5 = atan(s/sqrt(1-s*s));
r5 = 1.00021*sqrt(u);
r_a[c0] = a5;
dec[c0] = d5;

t += 1;
}

if (r_a[2] < r_a[1]) r_a[2] += p2;
z1 = dr * 90.833;
s = sin(b5 * dr);
c = cos(b5 * dr);
z = cos(z1);
m8 = 0;
w8 = 0;
a0 = r_a[1];
d0 = dec[1];
da = r_a[2] - r_a[1];
dd = dec[2] - dec[1];

for (c0=0; c0<24; c0++)
{
p = (c0 + 1) / 24;
a2 = r_a[1] + p * da;
d2 = dec[1] + p * dd;

l0 = t0 + c0 * k1;
l2 = l0 + k1;
h0 = l0 - a0;
h2 = l2 - a2;
h1 = (h2 + h0) / 2;
d1 = (d2 + d0) / 2;
if (c0 < 1) v0 = s * sin(d0) + c * cos(d0) * cos(h0) - z;
v2 = s * sin(d2) + c * cos(d2) * cos(h2) - z;

if (sign_of(v0) != sign_of(v2))
{
 v1 = s * sin(d1) + c * cos(d1) * cos(h1) - z;
 a = 2 * v2 - 4 * v1 + 2 * v0;
 b = 4 * v1 - 3 * v0 - v2;
 d = b * b - 4 * a * v0;
 if (d >= 0)
 {
 d = sqrt(d);
 e = (-b + d) / (2 * a);
 if (e > 1 || e < 0) e = (-b - d) / (2 * a);
 t3 = am_pm(c0 + e);
 if (v0 < 0 && v2 > 0)
 {
  m8 = 1;
  rise_str = t3;
 }
 if (v0 > 0 && v2 < 0)
 {
  w8 = 1;
  set_str = t3;
 }
 }
}

a0 = a2;
d0 = d2;
v0 = v2;
}

if (m8 == 0 && w8 == 0)
{
 if (v2 < 0)
 {
 rise_str = "down 24h";
 set_str = "down 24h";
 }
 if (v2 > 0)
 {
 rise_str = " up 24h ";
 set_str = " up 24h ";
 }
}
else
{
 if (m8 == 0) rise_str = " ------ ";
 if (w8 == 0) set_str = " ------ ";
}

result = rise_str + " / " + set_str;

return result;
}
}

function caljd(year,month,day)
{
 with (Math) {

 var y0, m0, a, b, b1;

 y0 = year;
 m0 = month;

 if (m0 < 2.5) 
 {
 y0 = y0 - 1;
 m0 = m0 + 12;
 }
 a = floor(y0 / 100);
 b = 0;
 b1 = 2 - a + floor(a / 4);

 if (y0 > 1582) b = b1;
 if (y0 == 1582 && month > 10) b = b1;
 if (y0 == 1582 && month == 10 && day >= 15.0) b = b1;

 return floor(365.25 * (y0 + 4716)) + floor(30.6001 * (m0 + 1)) + day + b - 1524.5;
}
}

function gmst(jd)
{
 with (Math) {

 var a, b, c, d, k, g;

 a = 0.7790572732639;
 b = 1.002737909350795;
 c = 8.07745E-16;
 d = 1.47E-24;
 k = jd - 2451545.0;
 g = a + k * (b + k * (c + k * d));
 return 24 * (g - floor(g));
}
}

function arc_tan(y,x)
{
 with (Math) {
 
 var a;
 
  if (x != 0)
  {a = atan(y / x);}
  else
  {a = PI / 2 * sign_of(y);}
  if (x < 0) a += PI;
  if (a < 0) a += 2 * PI;
  return a;
}
}

function getCookie( name )
{
  var start = document.cookie.indexOf( name + "=" );
  var len = start + name.length + 1;
  if ( ( !start ) && ( name != document.cookie.substring( 0, name.length ) ) ) {
    return null;
  }
  if ( start == -1 ) return null;
  var end = document.cookie.indexOf( ";", len );
  if ( end == -1 ) end = document.cookie.length;
  return unescape( document.cookie.substring( len, end ) );
}

function setCookie( name, value, expires, path, domain, secure )
{
  var today = new Date();
  today.setTime( today.getTime() );
  if ( expires ) {
    expires = expires * 1000 * 60 * 60 * 24;
  }
  var expires_date = new Date( today.getTime() + (expires) );
  document.cookie = name+"="+escape( value ) +
    ( ( expires ) ? ";expires="+expires_date.toGMTString() : "" ) + //expires.toGMTString()
    ( ( path ) ? ";path=" + path : "" ) +
    ( ( domain ) ? ";domain=" + domain : "" ) +
    ( ( secure ) ? ";secure" : "" );
}

function deleteCookie( name, path, domain )
{
  if ( getCookie( name ) ) document.cookie = name + "=" +
    ( ( path ) ? ";path=" + path : "") +
    ( ( domain ) ? ";domain=" + domain : "" ) +
    ";expires=Thu, 01-Jan-1970 00:00:01 GMT";
}

function save_loc()
{
deleteCookie('almanac2latdeg','','');
deleteCookie('almanac2longdeg','','');
deleteCookie('almanac2tzonehours','','');
setCookie('almanac2latdeg',round_1000(latitude),365,'','','');
setCookie('almanac2longdeg',round_1000(longitude),365,'','','');
setCookie('almanac2tzonehours',t_zone,365,'','','');
alert("The current location has been saved.");
}

function load_loc()
{
var full_custom_URL = "custom.html?";
var display_saved_almanac;
var lat_deg = getCookie('almanac2latdeg');
var lng_deg = getCookie('almanac2longdeg');
var time_zone_hours = getCookie('almanac2tzonehours');

if (lat_deg == null && lng_deg == null)
{
 alert ("Sorry, but you haven't saved a previous latitude and longitude. If you want the Almanac to remember the currently displayed location, please click the 'Save this?' link. Alternatively, enter a new latitude and longitude by clicking the 'New?' link.")
}
else
{
 full_custom_URL += "latitude=" + lat_deg + "&";
 full_custom_URL += "longitude=" + lng_deg + "&";
 full_custom_URL += "tzone=" + time_zone_hours + "&";
 full_custom_URL += "UTdate=" + document.planets.date_txt.value + "&";
 full_custom_URL += "UTtime=" + document.planets.ut_h_m.value;
 display_saved_almanac = window.open(full_custom_URL,'_self');
}
}