//---------------------------------------------------------------------------------------
// Massives with nuclear names and decay modes
var CE=new Array("n","H","He","Li","Be","B","C","N","O","F","Ne","Na","Mg","Al","Si","P","S","Cl","Ar","K","Ca","Sc","Ti","V","Cr","Mn","Fe","Co","Ni","Cu","Zn","Ga","Ge","As","Se","Br","Kr","Rb","Sr","Y","Zr","Nb","Mo","Tc","Ru","Rh","Pd","Ag","Cd","In","Sn","Sb","Te","I","Xe","Cs","Ba","La","Ce","Pr","Nd","Pm","Sm","Eu","Gd","Tb","Dy","Ho","Er","Tm","Yb","Lu","Hf","Ta","W","Re","Os","Ir","Pt","Au","Hg","Tl","Pb","Bi","Po","At","Rn","Fr","Ra","Ac","Th","Pa","U","Np","Pu","Am","Cm","Bk","Cf","Es","Fm","Md","No","Lr","Rf","Db","Sg","Bh","Hs","Mt","Ds","Rg","Cn","Nh","Fl","Mc","Lv","Ts","Og","119","120","121","122","123","124","125","126","127","128","129","130","131","132","133","134","135","136","137","138","139","140","141","142","143","144","145","146","147","148","149","150","151","152","153","154","155","156","157","158","159","160","161","162","163","164","165","166","167","168","169","170","171","172","173","174","175","176","177","178","179","180");
var NUCLEI;
NUCLEI=CE.length;

dmode1=new Array();
dmode=new Array();
dmode1[0]=1; dmode[0]='0';
dmode1[1]=1; dmode[1]='00277_';
dmode1[2]=3; dmode[2]='0072727a';
dmode1[3]=4; dmode[3]='66002272_';
dmode1[4]=5; dmode[4]='_9310222_2';
dmode1[5]=7; dmode[5]='636002222_2_2';
dmode1[6]=8; dmode[6]='9333002222222_2';
dmode1[7]=10; dmode[7]='_6330022222222_';
dmode1[8]=12; dmode[8]='9333000222222__';
dmode1[9]=14; dmode[9]='_663302222222___';
dmode1[10]=16; dmode[10]='93330002222______';
dmode1[11]=18; dmode[11]='_633302222222222__';
dmode1[12]=20; dmode[12]='333300022222______';
dmode1[13]=21; dmode[13]='_333330222222______';
dmode1[14]=22; dmode[14]='333333000222222______';
dmode1[15]=24; dmode[15]='____33302222222________';
dmode1[16]=26; dmode[16]='___333000202222_________';
dmode1[17]=28; dmode[17]='____33303022222_________';
dmode1[18]=30; dmode[18]='___33303020222222_______';
dmode1[19]=32; dmode[19]='____333030222222222_____';
dmode1[20]=34; dmode[20]='___3330300020202222_____';
dmode1[21]=36; dmode[21]='____3333302222222_______';
dmode1[22]=38; dmode[22]='___3333300000222________';
dmode1[23]=40; dmode[23]='____3_3333302222________';
dmode1[24]=42; dmode[24]='___33_33030002222_______';
dmode1[25]=44; dmode[25]='______3333302222222_____';
dmode1[26]=45; dmode[26]='____3__330300022222______';
dmode1[27]=48; dmode[27]='_____33333302222222______';
dmode1[28]=50; dmode[28]='______330300020222_2_________';
dmode1[29]=52; dmode[29]='______3333303022222_2________';
dmode1[30]=54; dmode[30]='______3333030002022222222_2__';
dmode1[31]=56; dmode[31]='______33333330202222222222___';
dmode1[32]=58; dmode[32]='______333333030002022222222__';
dmode1[33]=60; dmode[33]='_______333333330222222222222__';
dmode1[34]=65; dmode[34]='____333330300020202222222___';
dmode1[35]=67; dmode[35]='____3333333303022222222222__';
dmode1[36]=69; dmode[36]='___333333030300020222222222__';
dmode1[37]=71; dmode[37]='____3333333333022222222222222___';
dmode1[38]=73; dmode[38]='____33333330300022222222222_____';
dmode1[39]=77; dmode[39]='__3333333333022222222222______';
dmode1[40]=79; dmode[40]='__33333333300020202222222_____';
dmode1[41]=81; dmode[41]='___3_33333330222222222_2______';
dmode1[42]=83; dmode[42]='_____333303000002022222222_____';
dmode1[43]=85; dmode[43]='_____333333332222222222222_____';
dmode1[44]=87; dmode[44]='_____33330300000202222222222____';
dmode1[45]=89; dmode[45]='_____33333333303222222222222_____';
dmode1[46]=91; dmode[46]='____333333303000202022222222_____';
dmode1[47]=94; dmode[47]='__3333333333303022222222222222____';
dmode1[48]=96; dmode[48]='__3_33333303030002020222222222_____';
dmode1[49]=98; dmode[49]='____3333333333303222222222222222222__';
dmode1[50]=100; dmode[50]='____3_33333303000000020202222222222___';
dmode1[51]=103; dmode[51]='______333333333333020222222222222____';
dmode1[52]=106; dmode[52]='_1131333333333030300020202222222_____';
dmode1[53]=108; dmode[53]='__111__333333333332032222222222222___';
dmode1[54]=110; dmode[54]='__13_3333333330303000002020222222222__';
dmode1[55]=112; dmode[55]='__1_33333333333333333032222222222222____';
dmode1[56]=114; dmode[56]='_____3_3_33333330303000002222222222_____';
dmode1[57]=117; dmode[57]='_________33333333333330222222222_______';
dmode1[58]=119; dmode[58]='_________33333333030302022222222_______';
dmode1[59]=121; dmode[59]='___________33333333303222222222__2_____';
dmode1[60]=126; dmode[60]='________3333333300100202022_22______';
dmode1[61]=128; dmode[61]='____3_3_3333333331322222222_________';
dmode1[62]=130; dmode[62]='____3_3333333303111002020222________';
dmode1[63]=132; dmode[63]='____3__3333333333330302222222_______';
dmode1[64]=136; dmode[64]='____33333333131313000002022_______';
dmode1[65]=138; dmode[65]='__33__3333333333333330222222______';
dmode1[66]=140; dmode[66]='__3_333_3313331303030000022222____';
dmode1[67]=142; dmode[67]='______333313333333333330222222____';
dmode1[68]=144; dmode[68]='____33331133333333030300020222____';
dmode1[69]=146; dmode[69]='__333_31111_3333333333303222222___';
dmode1[70]=148; dmode[70]='____3_111333333333330300000202222_';
dmode1[71]=150; dmode[71]='____31111___3333333333333022222222_';
dmode1[72]=154; dmode[72]='___111111___3333333313000002222__';
dmode1[73]=156; dmode[73]='____111_3_333333333333330022222__';
dmode1[74]=158; dmode[74]='__1_11111_3_333333333303000202222';
dmode1[75]=160; dmode[75]='__1_1_____333_3333333333303222222';
dmode1[76]=162; dmode[76]='_____11111333333333333031000020222_';
dmode1[77]=165; dmode[77]='____1_1111111333333333333303022222_';
dmode1[78]=168; dmode[78]='____111111133333333333130300020222_';
dmode1[79]=171; dmode[79]='______11111333333333333333022222_2_';
dmode1[80]=175; dmode[80]='__1111111333333333333030000020222_';
dmode1[81]=177; dmode[81]='__1____113333333333333333302022222';
dmode1[82]=181; dmode[82]='____13333333_333333333313000222222';
dmode1[83]=185; dmode[83]='____11111333_333333333330211222_';
dmode1[84]=190; dmode[84]='__111111111333333311111111111';
dmode1[85]=193; dmode[85]='___111111113131313111111111____';
dmode1[86]=196; dmode[86]='___11111111111111111111111122222_';
dmode1[87]=200; dmode[87]='__11111111111111111111222222222__';
dmode1[88]=203; dmode[88]='___1111111111111111111212222_2__';
dmode1[89]=207; dmode[89]='__111111111111111112222222____';
dmode1[90]=210; dmode[90]='___111111111111111111212222__';
dmode1[91]=213; dmode[91]='___11____11111133212222222__';
dmode1[92]=218; dmode[92]='________111113111112122__';
dmode1[93]=225; dmode[93]='__441333333212222___';
dmode1[94]=228; dmode[94]='____131313111212122_';
dmode1[95]=231; dmode[95]='_4_4__33331212222__';
dmode1[96]=233; dmode[96]='_____33131111111242_';
dmode1[97]=235; dmode[97]='________333313222___';
dmode1[98]=237; dmode[98]='__1111111131111124__';
dmode1[99]=240; dmode[99]='___1311133331111__';
dmode1[100]=242; dmode[100]='_1411111131111414_';
dmode1[101]=245; dmode[101]='___11113_31111__';
dmode1[102]=249; dmode[102]='__111111141___';
dmode1[103]=251; dmode[103]='__11111111___';
dmode1[104]=253; dmode[104]='__1_14141___';
dmode1[105]=255; dmode[105]='__1__1111__';
dmode1[106]=258; dmode[106]='_________';
dmode1[107]=260; dmode[107]='________';
dmode1[108]=263; dmode[108]='_______';
dmode1[109]=265; dmode[109]='_______';
dmode1[110]=267; dmode[110]='_______';
dmode1[111]=272; dmode[111]='_';
dmode1[112]=272; dmode[112]='_';
dmode1[113]=272; dmode[113]='_';
dmode1[114]=272; dmode[114]='_';
dmode1[115]=272; dmode[115]='_';
dmode1[116]=272; dmode[116]='_';
dmode1[117]=272; dmode[117]='_';
dmode1[118]=272; dmode[118]='_';
dmode1[119]=272; dmode[119]='_';
dmode1[120]=272; dmode[120]='_';
dmode1[121]=272; dmode[121]='_';
dmode1[122]=272; dmode[122]='_';
dmode1[123]=272; dmode[123]='_';
dmode1[124]=272; dmode[124]='_';
dmode1[125]=272; dmode[125]='_';
dmode1[126]=272; dmode[126]='_';
dmode1[127]=272; dmode[127]='_';
dmode1[128]=272; dmode[128]='_';
dmode1[129]=272; dmode[129]='_';
dmode1[130]=273; dmode[130]='_';
dmode1[131]=272; dmode[131]='_';
dmode1[132]=272; dmode[132]='_';
dmode1[133]=273; dmode[133]='_';
dmode1[134]=273; dmode[134]='_';
dmode1[135]=273; dmode[135]='_';
dmode1[136]=273; dmode[136]='_';
dmode1[137]=273; dmode[137]='_';
dmode1[138]=273; dmode[138]='_';
dmode1[139]=273; dmode[139]='_';
dmode1[140]=273; dmode[140]='_';
dmode1[141]=273; dmode[141]='_';
dmode1[142]=273; dmode[142]='_';
dmode1[143]=273; dmode[143]='_';
dmode1[144]=273; dmode[144]='_';
dmode1[145]=273; dmode[145]='_';
dmode1[146]=273; dmode[146]='_';
dmode1[147]=273; dmode[147]='_';
dmode1[148]=273; dmode[148]='_';
dmode1[149]=273; dmode[149]='_';
dmode1[150]=273; dmode[150]='_';
dmode1[151]=273; dmode[151]='_';
dmode1[152]=273; dmode[152]='_';
dmode1[153]=273; dmode[153]='_';
dmode1[154]=273; dmode[154]='_';
dmode1[155]=273; dmode[155]='_';
dmode1[156]=273; dmode[156]='_';
dmode1[157]=273; dmode[157]='_';
dmode1[158]=273; dmode[158]='_';
dmode1[159]=273; dmode[159]='_';
dmode1[160]=273; dmode[160]='_';
dmode1[161]=273; dmode[161]='_';
dmode1[162]=273; dmode[162]='_';
dmode1[163]=273; dmode[163]='_';
dmode1[164]=273; dmode[164]='_';
dmode1[165]=273; dmode[165]='_';
dmode1[166]=273; dmode[166]='_';
dmode1[167]=273; dmode[167]='_';
dmode1[168]=273; dmode[168]='_';
dmode1[169]=273; dmode[169]='_';
dmode1[170]=273; dmode[170]='_';
dmode1[171]=273; dmode[171]='_';
dmode1[172]=273; dmode[172]='_';
dmode1[173]=273; dmode[173]='_';
dmode1[174]=273; dmode[174]='_';
dmode1[175]=273; dmode[175]='_';
dmode1[176]=273; dmode[176]='_';
dmode1[177]=273; dmode[177]='_';
dmode1[178]=273; dmode[178]='_';
dmode1[179]=273; dmode[179]='_';
dmode1[180]=273; dmode[180]='_';
//---------------------------------------------------------------------------------------
function get_R_from_r(r,A) {
R=Math.round(1000*r*Math.pow(A,1./3.))/1000;
return(R);
}
//---------------------------------------------------------------------------------------
function get_r_from_R(R,A) {
r=Math.round(1000*R/Math.pow(A,1./3.))/1000;
return(r);
}
//---------------------------------------------------------------------------------------
function getDecayMode(z,a) {
if ((1*dmode1[z]>a)||(1*dmode1[z]+1*dmode[1*z].length-1<a)) u="unknown";
else { 
	s=dmode[z].charAt(a-dmode1[z]);
	if (s=="0") u="stable";
	if (s=="1") u="alpha";
	if (s=="2") u="b_minus";
	if (s=="3") u="b_plus";
	if (s=="4") u="div";
	if (s=="5") u="izo";
	if (s=="6") u="p";
	if (s=="7") u="n";
	if (s=="8") u="t";
	if (s=="9") u="2p";
	if (s=="a") u="2n";
	if (s=="_") u="unknown";
}
return(u);
}
//---------------------------------------------------------------------------------------
function getColorOfDecayMode(z,a) {
if ((1*dmode1[z]>a)||(1*dmode1[z]+1*dmode[1*z].length-1<a)) u="#868686";
else { 
	s=dmode[z].charAt(a-dmode1[z]);
	if (s=="0") u="#000000";
	if (s=="1") u="#FFFF23";
	if (s=="2") u="#0066CC";
	if (s=="3") u="#FF3300";
	if (s=="4") u="#009900";
	if (s=="5") u="#FFFFFF";
	if (s=="6") u="#FFCC33";
	if (s=="7") u="#FF66FF";
	if (s=="8") u="#66CC66";
	if (s=="9") u="#996600";
	if (s=="a") u="#990099";
	if (s=="_") u="#868686";
}
return(u);
}
//---------------------------------------------------------------------------------------
//---------------------------------------------------------------------------------------



//---------------------------------------------------------------------------------------
// Set picture decay mode for Z and A
function ShowPic(ImgName,Z,A) {
v="w="+varname+".value";
eval(ImgName+".src='"+BASEURL+"common/show_pic.php?Z="+Z+"&A="+A+"';");
}
//---------------------------------------------------------------------------------------
// 2011-12-08
// Find most usefull A for any Z
function get_a_for_z(z) {
if (z<=92)	a=Math.floor(2*z+6.38e-3*z*z);
else a=Math.floor(126.15+0.3630*z+9.270e-3*z*z);
return(a);
}
//---------------------------------------------------------------------------------------
// 2011-12-09
// делает перерасчет энергий в зависимости от n=1,2,3
// E_LAB=document.f1.E_LAB и т.д.
// AP=document.f1.AP.value
function energy_recalculate(E_LAB,E_CM,E_EA,AP,AT,n) {
if (n==1) { // E_ELAB changed
	E_CM.value=Math.round(1000.*AT/(1*AT+AP)*E_LAB.value)/1000;
	E_EA.value=Math.round(1000.*E_LAB.value/AP)/1000;
}
if (n==2) { // E_CM changed
	E_LAB.value=Math.round(1000.*(1*AT+AP)/AT*E_CM.value)/1000;
	E_EA.value=Math.round(1000.*E_LAB.value/AP)/1000;
}
if (n==3) { // E_EA changed
	E_LAB.value=Math.round(1000.*E_EA.value*AP)/1000;
	E_CM.value=Math.round(1000.*AT/(1*AT+AP)*E_LAB.value)/1000;
}
}
//---------------------------------------------------------------------------------------
// 2012-02-08
function round(val,digits) {
val=Math.round(val*Math.pow(10,digits))/Math.pow(10,digits);
return(val);
}
//---------------------------------------------------------------------------------------
//2012-06-14
function change_projectile(zname,aname,picname,whatchanged,zmin,zmax,amin,amax) {
var a,u,s,z,v,res;
c=document.f1;
d=document;
// Находим z
v="z="+zname+".selectedIndex;"; eval(v);
// Находим a
v="a="+aname+".selectedIndex;"; eval(v); a=1*a+1;
// Проверяем все ли в норме
if (z<zmin) z=zmin;
if (z>zmax) z=zmax;
if (whatchanged==0) {
	if (z<=92) a=Math.floor(2*z+6.38e-3*z*z);
	else a=Math.floor(126.15+0.3630*z+9.270e-3*z*z);
}
else {
  if (z>a) z=Math.round(a/2);
}
if (a<amin) a=amin;
if (a>amax) a=amax;
// Присваиваем z
v=zname+".selectedIndex=z;"; eval(v);
// Присваиваем a
if (a>300) a=300;
v=aname+".selectedIndex=a-1;"; eval(v);
// Меняем картинку
v=picname+".src='"+BASEURL+"webnrv/common/show_pic.php?Z="+z+"&A="+a+"';"; eval(v);
v=picname+".width=10;"; eval(v);
v=picname+".height=10;"; eval(v);
}
//---------------------------------------------------------------------------------------
// Добавлена 2012-06-14
// Возвращает значение COOKIE	
function get_cookie(name){
cookie_name = name + "=";
cookie_length = document.cookie.length;
cookie_begin = 0;
while (cookie_begin < cookie_length) {
	value_begin = cookie_begin + cookie_name.length;
	if (document.cookie.substring(cookie_begin, value_begin) == cookie_name){
		var value_end = document.cookie.indexOf (";", value_begin);
		if (value_end == -1) value_end = cookie_length;
		return unescape(document.cookie.substring(value_begin, value_end));
	}
	cookie_begin = document.cookie.indexOf(" ", cookie_begin) + 1;
	if (cookie_begin == 0) break;
}
return null;
}
//---------------------------------------------------------------------------------------
// Добавлена 2012-06-14
// Устанавливает значение в SELECT'е
function setIndexByVal(id,val) {
	obj=document.getElementById(id);
	for (i=0;i<obj.length;i++) {
//		alert(elem.options[i].text+" "+val);
		if (obj.options[i].value==val) { obj.selectedIndex=i; return; }
	}
}
//---------------------------------------------------------------------------------------
// Добавлена 2012-10-05
// Устанавливает значение в SELECT'е
function setIndexByText(id,val) {
	obj=document.getElementById(id);
	for (i=0;i<obj.length;i++) {
		if (obj.options[i].text==val) { obj.selectedIndex=i; return; }
	}
}
//---------------------------------------------------------------------------------------
// Добавлена 2012-06-14
// Проверяет значение в элементе INPUT и при необходимости вызывает напоследок "func_call"
function check_value(min,max,type,def,varname,func_call) {
// type 0-int, 1-float
// redraw 1-redraw_applet();
var w,v;
v="w="+varname+".value";
eval(v);
if (isNaN(w)) w=def; else if (w=="") w=def;
if (w<min) w=min;
if (w>max) w=max;
if (type==0) w=Math.floor(w);
v=varname+".value=w";
eval(v);
if (func_call!="") eval("func_call");
}
//----------------------------------------------------------------------------------------
function setCookie (name, value, expires, path, domain, secure) {
      document.cookie = name + "=" + escape(value) +
        ((expires) ? "; expires=" + expires : "") +
        ((path) ? "; path=" + path : "") +
        ((domain) ? "; domain=" + domain : "") +
        ((secure) ? "; secure" : "");
}

function getCookie(name) {
	var cookie = " " + document.cookie;
	var search = " " + name + "=";
	var setStr = null;
	var offset = 0;
	var end = 0;
	if (cookie.length > 0) {
		offset = cookie.indexOf(search);
		if (offset != -1) {
			offset += search.length;
			end = cookie.indexOf(";", offset)
			if (end == -1) {
				end = cookie.length;
			}
			setStr = unescape(cookie.substring(offset, end));
		}
	}
	return(setStr);
}
//----------------------------------------------------------------------------------------
function checkValue(min,max,type,def,varname) {
// type 0-int, 1-float
var w,v;
v="w="+varname+".value";
eval(v);
if (isNaN(w)) w=def; else if (w=="") w=def;
if (w<min) w=min;
if (w>max) w=max;
if (type==0) w=Math.floor(w);
v=varname+".value=w";
eval(v);
}
//---------------------------------------------------------------------------
function draw1(canvasName) {
	var canvas = document.getElementById(canvasName);	
    var context = canvas.getContext('2d');
	context.font = '40pt Calibri';
    context.fillStyle = 'blue';
    context.fillText('Hello World! '+canvas.width+"*"+canvas.height, 50, 100);
}
//---------------------------------------------------------------------------
function drawTopo(canvasName,A,M,N) {
	var canvas = document.getElementById(canvasName);	
    var context = canvas.getContext('2d');
	var min,max,dx,dy;
	// Минимум максимум
	min=A[0];
	max=A[0];
	for (i=1;i<M*N;i++) {
		if (A[i]>max) max=A[i];
		if (A[i]<min) min=A[i];
	}
	dx=1*1+Math.round(canvas.width/(M-1));
	dy=1*1+Math.round(canvas.height/(N-1));
	// Цикл по Y
	for (j=0;j<N;j++) {
		// Цикл по X
		for (i=0;i<M;i++) {
			// Находим значение ф-ии
			// Определяем цвет
			color=Math.round(255*(A[i+j*M]-min)/(max-min));
			// Выводим пиксел
			context.fillStyle="rgb("+color+",0,0)";
			context.fillRect(i*canvas.width/(M-1),j*canvas.height/(N-1),dx,dy);
		}
	}
}
//---------------------------------------------------------------------------