$N[1]="actinio" ;$S[1]="Ac" ; $N[2]="aluminio";$S[2]="Al" ; $N[3]= "americio" ; $S[3]="Am" ; $N[4]="Antimonio" ; $S[4]="Sb" ; $N[5]="argón" ; $S[5]="Ar" ; $N[6]="arsénico" ; $S[6]="As" ; $N[7]="astato" ; $S[7]="At" ; $N[8]="azufre" ; $S[8]="S" ; $N[9]="bario" ; $S[9]="Ba" ; $N[10]="berkelio" ; $S[10]="Bk" ; $N[11]="berilio" ; $S[11]="Be" ; $N[12]="bismuto" ; $S[12]="Bi" ; $N[13]="bohrio" ; $S[13]="Bh" ; $N[14]="boro" ; $S[14]="B" ; $N[15]="bromo" ; $S[15]="Br" ; $N[16]="cadmio" ; $S[16]="Cd" ; $N[17]="calcio" ; $S[17]="Ca" ; $N[18]="californio" ; $S[18]="Cf" ; $N[19]="carbono" ; $S[19]="C" ; $N[20]="cerio" ; $S[20]="Ce" ; $N[21]="cesio" ; $S[21]="Cs" ; $N[22]="cloro" ; $S[22]="Cl" ; $N[23]="cobalto" ;$S[23]="Co" ; $N[24]="cobre" ; $S[24]="Cu" ; $N[31]="copernicio" ; $S[31]="Cn"; $N[25]="cromo" ; $S[25]="Cr" ; $N[26]="curio" ; $S[26]="Cm" ; $N[27]="darmstadio" ; $S[27]="Ds" ; $N[28]="disprosio" ; $S[28]="Dy" ; $N[29]="dubnio" ; $S[29]="Db" ; $N[30]="einstenio" ; $S[30]="Es" ; ; $N[32]="erbio" ; $S[32]="Er" ; $N[33]="cinc" ; $S[33]="Zn" ; $N[34]="escandio" ; $S[34]="Sc" ; $N[35]="estaño" ; $S[35]="Sn" ; $N[36]="estroncio" ; $S[36]="Sr" ; $N[37]="europio" ; $S[37]="Eu" ; $N[38]="fermio" ; $S[38]="Fm" ; $N[39]="flúor" ; $S[39]="F" ; $N[40]="fósforo" ; $S[40]="P" ; $N[41]="francio" ; $S[41]="F " ; $N[42]="gadolinio" ; $S[42]="Gd" ; $N[43]="galio" ; $S[43]="Ga" ; $N[44]="germanio" ; $S[44]="Ge" ; $N[45]="hafnio" ; $S[45]="Hf" ; $N[46]="hassio" ; $S[46]="Hs" ; $N[47]="helio" ; $S[47]="He" ; $N[48]="hidrógeno" ;$S[48]="H"; $N[49]="hierro" ; $S[49]="Fe" ; $N[50]="holmio" ; $S[50]="Ho" ; $N[51]="indio" ; $S[51]="In" ; $N[52]="iridio" ; $S[52]="Ir" ; $N[53]="iterbio" ;$S[53]="Yb"; $N[54]="itrio" ; $S[54]="Y"; $N[55]="kryptón" ;$S[55]="Kr" ; $N[56]="lantano" ;$S[56]="La" ; $N[57]="lawrencio" ;$S[57]="Lr" ; $N[58]="litio" ; $S[58]="Li" ; $N[59]="lutecio" ;$S[59]="Lu"; $N[60]="zirconio" ;$S[60]="Zr" ; $N[61]="magnesio" ; $S[61]="Mg" ; $N[62]="manganeso" ; $S[62]="Mn" ; $N[63]="meitnerio" ; $S[63]="Mt" ; $N[64]="mendelevio" ; $S[64]="Md" ; $N[65]="mercurio" ; $S[65]="Hg" ; $N[66]="molibdeno" ; $S[66]="Mo" ; $N[67]="roentgenio" ; $S[67]="Rg" ; $N[68]="neodimio" ; $S[68]="Nd" ; $N[69]="neón" ; $S[69]="Ne" ; $N[70]="neptunio" ; $S[70]="Np" ; $N[71]="niobio" ; $S[71]="Nb" ; $N[72]="níquel" ; $S[72]="Ni" ; $N[73]="nitrógeno" ; $S[73]="N" ; $N[74]="nobelio" ; $S[74]="No" ; $N[75]="yodo" ; $S[75]="I" ; $N[76]="oro" ; $S[76]="Au" ; $N[77]="osmio" ; $S[77]="Os" ; $N[78]="oxígeno" ; $S[78]="O" ; $N[79]="paladio" ; $S[79]="Pd" ; $N[80]="plata " ; $S[80]="Ag" ; $N[81]="platino" ; $S[81]="Pt" ; $N[82]="plomo" ; $S[82]="Pb" ; $N[83]="Xenón" ; $S[83]="Xe" ; $N[84]="plutonio" ; $S[84]="Pu" ; $N[85]="polonio" ; $S[85]="Po" ; $N[86]="potasio" ; $S[86]="K" ; $N[87]="praseodimio" ; $S[87]="Pr" ; $N[88]="prometio" ; $S[88]="Pm" ; $N[89]="protactinio" ; $S[89]="Pa" ; $N[90]="radio" ; $S[90]="Ra" ; $N[91]="radón" ; $S[91]="Rn" ; $N[92]="renio" ; $S[92]="Re" ; $N[93]="rodio" ; $S[93]="Rh" ; $N[94]="rubidio" ; $S[94]="Rb" ; $N[95]="rutenio" ; $S[95]="Ru" ; $N[96]="rutherfordio" ; $S[96]="Rf" ; $N[97]="samario" ; $S[97]="Sm" ; $N[98]="seaborgio" ; $S[98]="Sg" ; $N[99]="selenio" ; $S[99]="Se" ; $N[100]="silicio" ; $S[100]="Si" ; $N[101]="sodio" ; $S[101]="Na" ; $N[102]="talio" ; $S[102]="Tl" ; $N[103]="tántalo" ; $S[103]="Ta" ; $N[104]="tecnecio" ; $S[104]="Tc" ; $N[105]="teluro" ; $S[105]="Te" ; $N[106]="terbio" ; $S[106]="Tb" ; $N[107]="titanio" ; $S[107]="Ti" ; $N[108]="torio" ; $S[108]="Th" ; $N[109]="tulio" ; $S[109]="Tm" ; $N[110]="wolframio" ; $S[110]="W" ; $N[111]="uranio" ; $S[111]="U" ; $N[112]="vanadio" ; $S[112]="V" ; ?> $ok=$_POST["ok"]; If($ok=="ok"){ $E1=$_POST["E1"]; $N1=$_POST["N1"]; for ($i=1; $i<=117; $i++) { if($E1==$S[$i]){$NN=$N[$i];} if($N1==$N[$i]){$SS=$S[$i];} } } ?>