function initcodes()  {
	raceid = new Array(5);		sexid = new Array(2);

	raceid[0] = "White";	raceid[1] = "Black";	raceid[2] = "Nat Am";
	raceid[3] = "Asian";	raceid[4] = "Other";
	sexid[0] = "M";		sexid[1] = "F";
}

function change_data(ch_cnty)  {   //* Load the data depending on the radio button chosen *//
	if (ch_cnty=="Ashland") {
		arrsize = 144;
		npopn = 16327;
		ashdata();
	} else if (ch_cnty=="Bayfield") {
		arrsize = 160;
		npopn = 14008;
		baydata();
		}  else if (ch_cnty=="Both") {
			arrsize = 173;
			npopn = 30335;
			bothab();
			}
}

function finddata(form, nsmpl,s,srace,ssex,sage)  {
	for (i=0; i<=(nsmpl-1); i++) {
		k=1;
		while(s[i]>cum[k]) {k++};
		srace[i] = race[k];
		ssex[i] = sex[k];
		sage[i] = beginage[k]*1 + rnd_int(numages[k]);
		form.calc.value="#" + i + " Done";
	}
}		

function printsmpl(form, srace, ssex, sage) {
	form.calc.value="Writing";
	initcodes();
	form.out.value = "AGE\tRACE\tSEX\n";
	for (i=0;i<=(nsmpl-1);i++)  {
		form.out.value += sage[i] + "\t";
		form.out.value += raceid[srace[i]] + "\t ";
		form.out.value += sexid[ssex[i]] + "\n";
	}
}

function printstat(form, srace, ssex, sage) {
	form.prace.value = prop(srace,0);
	form.psex.value = prop(ssex,0);
	form.mage.value = mean(sage);
}

function ashdata() {
	race = new Array(144);
	sex = new Array(144);
	numages = new Array(144);
	beginage = new Array(144);
	cum = new Array(144);

race[1]="0"; sex[1]="0"; numages[1]="1"; beginage[1]="0"; cum[1]="123";
race[2]="0"; sex[2]="0"; numages[2]="1"; beginage[2]="1"; cum[2]="224";
race[3]="0"; sex[3]="0"; numages[3]="1"; beginage[3]="2"; cum[3]="325";
race[4]="0"; sex[4]="0"; numages[4]="1"; beginage[4]="3"; cum[4]="439";
race[5]="0"; sex[5]="0"; numages[5]="1"; beginage[5]="4"; cum[5]="553";
race[6]="0"; sex[6]="0"; numages[6]="1"; beginage[6]="5"; cum[6]="648";
race[7]="0"; sex[7]="0"; numages[7]="1"; beginage[7]="6"; cum[7]="736";
race[8]="0"; sex[8]="0"; numages[8]="1"; beginage[8]="7"; cum[8]="859";
race[9]="0"; sex[9]="0"; numages[9]="1"; beginage[9]="8"; cum[9]="982";
race[10]="0"; sex[10]="0"; numages[10]="1"; beginage[10]="9"; cum[10]="1104";
race[11]="0"; sex[11]="0"; numages[11]="1"; beginage[11]="10"; cum[11]="1246";
race[12]="0"; sex[12]="0"; numages[12]="1"; beginage[12]="11"; cum[12]="1388";
race[13]="0"; sex[13]="0"; numages[13]="1"; beginage[13]="12"; cum[13]="1500";
race[14]="0"; sex[14]="0"; numages[14]="1"; beginage[14]="13"; cum[14]="1611";
race[15]="0"; sex[15]="0"; numages[15]="1"; beginage[15]="14"; cum[15]="1721";
race[16]="0"; sex[16]="0"; numages[16]="1"; beginage[16]="15"; cum[16]="1814";
race[17]="0"; sex[17]="0"; numages[17]="1"; beginage[17]="16"; cum[17]="1911";
race[18]="0"; sex[18]="0"; numages[18]="1"; beginage[18]="17"; cum[18]="2025";
race[19]="0"; sex[19]="0"; numages[19]="1"; beginage[19]="18"; cum[19]="2123";
race[20]="0"; sex[20]="0"; numages[20]="1"; beginage[20]="19"; cum[20]="2260";
race[21]="0"; sex[21]="0"; numages[21]="1"; beginage[21]="20"; cum[21]="2392";
race[22]="0"; sex[22]="0"; numages[22]="1"; beginage[22]="21"; cum[22]="2490";
race[23]="0"; sex[23]="0"; numages[23]="1"; beginage[23]="22"; cum[23]="2578";
race[24]="0"; sex[24]="0"; numages[24]="1"; beginage[24]="23"; cum[24]="2665";
race[25]="0"; sex[25]="0"; numages[25]="1"; beginage[25]="24"; cum[25]="2752";
race[26]="0"; sex[26]="0"; numages[26]="5"; beginage[26]="25"; cum[26]="3269";
race[27]="0"; sex[27]="0"; numages[27]="5"; beginage[27]="30"; cum[27]="3815";
race[28]="0"; sex[28]="0"; numages[28]="5"; beginage[28]="35"; cum[28]="4413";
race[29]="0"; sex[29]="0"; numages[29]="5"; beginage[29]="40"; cum[29]="4815";
race[30]="0"; sex[30]="0"; numages[30]="5"; beginage[30]="45"; cum[30]="5202";
race[31]="0"; sex[31]="0"; numages[31]="5"; beginage[31]="50"; cum[31]="5508";
race[32]="0"; sex[32]="0"; numages[32]="5"; beginage[32]="55"; cum[32]="5752";
race[33]="0"; sex[33]="0"; numages[33]="2"; beginage[33]="60"; cum[33]="5879";
race[34]="0"; sex[34]="0"; numages[34]="3"; beginage[34]="62"; cum[34]="6081";
race[35]="0"; sex[35]="0"; numages[35]="5"; beginage[35]="65"; cum[35]="6369";
race[36]="0"; sex[36]="0"; numages[36]="5"; beginage[36]="70"; cum[36]="6695";
race[37]="0"; sex[37]="0"; numages[37]="5"; beginage[37]="75"; cum[37]="6900";
race[38]="0"; sex[38]="0"; numages[38]="5"; beginage[38]="80"; cum[38]="7101";
race[39]="0"; sex[39]="0"; numages[39]="12"; beginage[39]="85"; cum[39]="7233";
race[40]="0"; sex[40]="1"; numages[40]="1"; beginage[40]="0"; cum[40]="7298";
race[41]="0"; sex[41]="1"; numages[41]="2"; beginage[41]="1"; cum[41]="7464";
race[42]="0"; sex[42]="1"; numages[42]="2"; beginage[42]="3"; cum[42]="7690";
race[43]="0"; sex[43]="1"; numages[43]="1"; beginage[43]="5"; cum[43]="7782";
race[44]="0"; sex[44]="1"; numages[44]="1"; beginage[44]="6"; cum[44]="7901";
race[45]="0"; sex[45]="1"; numages[45]="3"; beginage[45]="7"; cum[45]="8283";
race[46]="0"; sex[46]="1"; numages[46]="2"; beginage[46]="10"; cum[46]="8481";
race[47]="0"; sex[47]="1"; numages[47]="2"; beginage[47]="12"; cum[47]="8694";
race[48]="0"; sex[48]="1"; numages[48]="1"; beginage[48]="14"; cum[48]="8774";
race[49]="0"; sex[49]="1"; numages[49]="1"; beginage[49]="15"; cum[49]="8896";
race[50]="0"; sex[50]="1"; numages[50]="1"; beginage[50]="16"; cum[50]="8986";
race[51]="0"; sex[51]="1"; numages[51]="1"; beginage[51]="17"; cum[51]="9051";
race[52]="0"; sex[52]="1"; numages[52]="1"; beginage[52]="18"; cum[52]="9174";
race[53]="0"; sex[53]="1"; numages[53]="1"; beginage[53]="19"; cum[53]="9263";
race[54]="0"; sex[54]="1"; numages[54]="1"; beginage[54]="20"; cum[54]="9343";
race[55]="0"; sex[55]="1"; numages[55]="1"; beginage[55]="21"; cum[55]="9488";
race[56]="0"; sex[56]="1"; numages[56]="3"; beginage[56]="22"; cum[56]="9739";
race[57]="0"; sex[57]="1"; numages[57]="5"; beginage[57]="25"; cum[57]="10253";
race[58]="0"; sex[58]="1"; numages[58]="5"; beginage[58]="30"; cum[58]="10838";
race[59]="0"; sex[59]="1"; numages[59]="5"; beginage[59]="35"; cum[59]="11343";
race[60]="0"; sex[60]="1"; numages[60]="5"; beginage[60]="40"; cum[60]="11784";
race[61]="0"; sex[61]="1"; numages[61]="5"; beginage[61]="45"; cum[61]="12104";
race[62]="0"; sex[62]="1"; numages[62]="5"; beginage[62]="50"; cum[62]="12437";
race[63]="0"; sex[63]="1"; numages[63]="5"; beginage[63]="55"; cum[63]="12748";
race[64]="0"; sex[64]="1"; numages[64]="2"; beginage[64]="60"; cum[64]="12882";
race[65]="0"; sex[65]="1"; numages[65]="3"; beginage[65]="62"; cum[65]="13130";
race[66]="0"; sex[66]="1"; numages[66]="5"; beginage[66]="65"; cum[66]="13520";
race[67]="0"; sex[67]="1"; numages[67]="5"; beginage[67]="70"; cum[67]="13897";
race[68]="0"; sex[68]="1"; numages[68]="5"; beginage[68]="75"; cum[68]="14281";
race[69]="0"; sex[69]="1"; numages[69]="5"; beginage[69]="80"; cum[69]="14545";
race[70]="0"; sex[70]="1"; numages[70]="12"; beginage[70]="85"; cum[70]="14812";
race[71]="1"; sex[71]="0"; numages[71]="1"; beginage[71]="21"; cum[71]="14819";
race[72]="1"; sex[72]="1"; numages[72]="1"; beginage[72]="19"; cum[72]="14827";
race[73]="2"; sex[73]="0"; numages[73]="1"; beginage[73]="0"; cum[73]="14846";
race[74]="2"; sex[74]="0"; numages[74]="2"; beginage[74]="1"; cum[74]="14861";
race[75]="2"; sex[75]="0"; numages[75]="2"; beginage[75]="3"; cum[75]="14904";
race[76]="2"; sex[76]="0"; numages[76]="1"; beginage[76]="5"; cum[76]="14927";
race[77]="2"; sex[77]="0"; numages[77]="1"; beginage[77]="6"; cum[77]="14951";
race[78]="2"; sex[78]="0"; numages[78]="3"; beginage[78]="7"; cum[78]="15003";
race[79]="2"; sex[79]="0"; numages[79]="2"; beginage[79]="10"; cum[79]="15033";
race[80]="2"; sex[80]="0"; numages[80]="2"; beginage[80]="12"; cum[80]="15058";
race[81]="2"; sex[81]="0"; numages[81]="1"; beginage[81]="14"; cum[81]="15074";
race[82]="2"; sex[82]="0"; numages[82]="1"; beginage[82]="15"; cum[82]="15087";
race[83]="2"; sex[83]="0"; numages[83]="1"; beginage[83]="16"; cum[83]="15106";
race[84]="2"; sex[84]="0"; numages[84]="1"; beginage[84]="17"; cum[84]="15130";
race[85]="2"; sex[85]="0"; numages[85]="1"; beginage[85]="18"; cum[85]="15151";
race[86]="2"; sex[86]="0"; numages[86]="1"; beginage[86]="19"; cum[86]="15153";
race[87]="2"; sex[87]="0"; numages[87]="1"; beginage[87]="20"; cum[87]="15163";
race[88]="2"; sex[88]="0"; numages[88]="1"; beginage[88]="21"; cum[88]="15180";
race[89]="2"; sex[89]="0"; numages[89]="3"; beginage[89]="22"; cum[89]="15209";
race[90]="2"; sex[90]="0"; numages[90]="5"; beginage[90]="25"; cum[90]="15297";
race[91]="2"; sex[91]="0"; numages[91]="5"; beginage[91]="30"; cum[91]="15352";
race[92]="2"; sex[92]="0"; numages[92]="5"; beginage[92]="35"; cum[92]="15377";
race[93]="2"; sex[93]="0"; numages[93]="5"; beginage[93]="40"; cum[93]="15414";
race[94]="2"; sex[94]="0"; numages[94]="5"; beginage[94]="45"; cum[94]="15446";
race[95]="2"; sex[95]="0"; numages[95]="5"; beginage[95]="50"; cum[95]="15474";
race[96]="2"; sex[96]="0"; numages[96]="5"; beginage[96]="55"; cum[96]="15487";
race[97]="2"; sex[97]="0"; numages[97]="2"; beginage[97]="60"; cum[97]="15490";
race[98]="2"; sex[98]="0"; numages[98]="3"; beginage[98]="62"; cum[98]="15505";
race[99]="2"; sex[99]="0"; numages[99]="5"; beginage[99]="65"; cum[99]="15529";
race[100]="2"; sex[100]="0"; numages[100]="5"; beginage[100]="70"; cum[100]="15543";
race[101]="2"; sex[101]="0"; numages[101]="5"; beginage[101]="75"; cum[101]="15546";
race[102]="2"; sex[102]="0"; numages[102]="5"; beginage[102]="80"; cum[102]="15548";
race[103]="2"; sex[103]="0"; numages[103]="12"; beginage[103]="85"; cum[103]="15552";
race[104]="2"; sex[104]="1"; numages[104]="1"; beginage[104]="0"; cum[104]="15583";
race[105]="2"; sex[105]="1"; numages[105]="2"; beginage[105]="1"; cum[105]="15609";
race[106]="2"; sex[106]="1"; numages[106]="2"; beginage[106]="3"; cum[106]="15646";
race[107]="2"; sex[107]="1"; numages[107]="1"; beginage[107]="5"; cum[107]="15666";
race[108]="2"; sex[108]="1"; numages[108]="1"; beginage[108]="6"; cum[108]="15677";
race[109]="2"; sex[109]="1"; numages[109]="3"; beginage[109]="7"; cum[109]="15713";
race[110]="2"; sex[110]="1"; numages[110]="2"; beginage[110]="10"; cum[110]="15749";
race[111]="2"; sex[111]="1"; numages[111]="2"; beginage[111]="12"; cum[111]="15789";
race[112]="2"; sex[112]="1"; numages[112]="1"; beginage[112]="14"; cum[112]="15801";
race[113]="2"; sex[113]="1"; numages[113]="1"; beginage[113]="15"; cum[113]="15810";
race[114]="2"; sex[114]="1"; numages[114]="1"; beginage[114]="16"; cum[114]="15826";
race[115]="2"; sex[115]="1"; numages[115]="1"; beginage[115]="17"; cum[115]="15855";
race[116]="2"; sex[116]="1"; numages[116]="1"; beginage[116]="18"; cum[116]="15867";
race[117]="2"; sex[117]="1"; numages[117]="1"; beginage[117]="19"; cum[117]="15887";
race[118]="2"; sex[118]="1"; numages[118]="1"; beginage[118]="20"; cum[118]="15901";
race[119]="2"; sex[119]="1"; numages[119]="1"; beginage[119]="21"; cum[119]="15910";
race[120]="2"; sex[120]="1"; numages[120]="3"; beginage[120]="22"; cum[120]="15943";
race[121]="2"; sex[121]="1"; numages[121]="5"; beginage[121]="25"; cum[121]="16003";
race[122]="2"; sex[122]="1"; numages[122]="5"; beginage[122]="30"; cum[122]="16061";
race[123]="2"; sex[123]="1"; numages[123]="5"; beginage[123]="35"; cum[123]="16114";
race[124]="2"; sex[124]="1"; numages[124]="5"; beginage[124]="40"; cum[124]="16165";
race[125]="2"; sex[125]="1"; numages[125]="5"; beginage[125]="45"; cum[125]="16194";
race[126]="2"; sex[126]="1"; numages[126]="5"; beginage[126]="50"; cum[126]="16231";
race[127]="2"; sex[127]="1"; numages[127]="5"; beginage[127]="55"; cum[127]="16266";
race[128]="2"; sex[128]="1"; numages[128]="2"; beginage[128]="60"; cum[128]="16272";
race[129]="2"; sex[129]="1"; numages[129]="3"; beginage[129]="62"; cum[129]="16275";
race[130]="2"; sex[130]="1"; numages[130]="5"; beginage[130]="65"; cum[130]="16283";
race[131]="2"; sex[131]="1"; numages[131]="5"; beginage[131]="70"; cum[131]="16291";
race[132]="2"; sex[132]="1"; numages[132]="5"; beginage[132]="75"; cum[132]="16296";
race[133]="2"; sex[133]="1"; numages[133]="5"; beginage[133]="80"; cum[133]="16301";
race[134]="2"; sex[134]="1"; numages[134]="12"; beginage[134]="85"; cum[134]="16303";
race[135]="3"; sex[135]="0"; numages[135]="2"; beginage[135]="12"; cum[135]="16305";
race[136]="3"; sex[136]="1"; numages[136]="1"; beginage[136]="21"; cum[136]="16309";
race[137]="3"; sex[137]="1"; numages[137]="5"; beginage[137]="45"; cum[137]="16310";
race[138]="4"; sex[138]="0"; numages[138]="3"; beginage[138]="7"; cum[138]="16312";
race[139]="4"; sex[139]="0"; numages[139]="1"; beginage[139]="21"; cum[139]="16319";
race[140]="4"; sex[140]="0"; numages[140]="5"; beginage[140]="25"; cum[140]="16320";
race[141]="4"; sex[141]="0"; numages[141]="5"; beginage[141]="50"; cum[141]="16321";
race[142]="4"; sex[142]="1"; numages[142]="3"; beginage[142]="7"; cum[142]="16323";
race[143]="4"; sex[143]="1"; numages[143]="2"; beginage[143]="12"; cum[143]="16325";
race[144]="4"; sex[144]="1"; numages[144]="5"; beginage[144]="30"; cum[144]="16327";
}