<?
$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"	;$NR[6]="arséni" ;  $NV[6]="impar";
$N[7]="astato"	;	$S[7]="At"	;
$N[8]="azufre"	;	$S[8]="S"	; $NR[8]="sulf" ; $NV[8]="par";
$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"	; $NR[14]="bor" ; $NV[14]="impar";
$N[15]="bromo"	;	$S[15]="Br"	; $NR[15]="brom";	   $NV[15]="impar";
$N[16]="cadmio"	;	$S[16]="Cd"	;
$N[17]="calcio"	;	$S[17]="Ca"	;
$N[18]="californio"	;	$S[18]="Cf"	;
$N[19]="carbono"	;	$S[19]="C"	;$NR[19]="carbon"; $NV[19]="par";
$N[20]="cerio"	;	$S[20]="Ce"	;
$N[21]="cesio"	;	$S[21]="Cs"	;
$N[22]="cloro"	;	$S[22]="Cl"	; $NR[22]="clor"	;  $NV[22]="impar" ;
$N[23]="cobalto"	;	$S[23]="Co"	;
$N[24]="cobre"	;	$S[24]="Cu"	;
$N[25]="cromo"	;	$S[25]="Cr"	; $NR[25]="crom"	; $NV[14]="par" ;
$N[26]="curio"	;	$S[26]="Cm"	;
$N[27]="darwanzio"	;	$S[27]="Da"	;
$N[28]="disprosio"	;	$S[28]="Dy"	;
$N[29]="dubnio"	;	$S[29]="Db"	;
$N[30]="efelio"	;	$S[30]="El"	;
$N[31]="einstenio"	;	$S[31]="Es"	;
$N[32]="erbio"	;	$S[32]="Er"	;
$N[33]="erristeneo"	;	$S[33]="Eo"	;
$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"	;  $NV[40]="impar"; $NR[40]="fosf";
$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]="hannio"	;	$S[46]="Hn"	;
$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]="madveded"	;	$S[60]="Mv "	;
$N[61]="magnesio"	;	$S[61]="Mg"	;
$N[62]="manganeso"	;	$S[62]="Mn"	; $NR[62]="mangan"	;   $NV[62]="impar";
$N[63]="meitnerio"	;	$S[63]="Mt"	;
$N[64]="mendelevio"	;	$S[64]="Md"	;
$N[65]="mercurio"	;	$S[65]="Hg"	;
$N[66]="molibdeno"	;	$S[66]="Mo"	;  $NR[66]="molibd"	;  $NV[66]="par" ;
$N[67]="nectartén"	;	$S[67]="Nc"	;
$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"	;$NR[73]="nitr"	;   $NV[73]="impar"    ;
$N[74]="nobelio"	;	$S[74]="No"	;
$N[75]="nberón"	;	$S[75]="On"	;
$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]="plutirio"	;	$S[83]="Pl"	;
$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"	;$NR[99]="seleni"; $NV[99]="par" ;
$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"	; $NR[105]="telur"	;  $NV[105]="par" ;
$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]="tusfrano"	;	$S[111]="Tf "	;
$N[112]="uranio"	;	$S[112]="U"	;
$N[113]="vanadio"	;	$S[113]="V"	;  $NR[113]="vanad"	; $NV[113]="impar" ;
$N[114]="Xenón"	;	$S[114]="Xe"	;
$N[115]="yodo"	;	$S[115]="I"	; $NR[115]="yod" ; $NV[115]="impar" ;
$N[116]="cinc"	;	$S[116]="Zn"	;
$N[117]="zirconio"	;	$S[117]="Zr"	;
 $N[118]="amonio"	;	$S[118]="NH4"	;  $NV[118]="impar" ;

?>





        <HTML>
        <FORM ACTION="" METHOD="POST">
        <BODY LANG="es-ES"  BGCOLOR="#000000"  DIR="LTR">
        <DIV ALIGN=center>
        <FONT FACE="arial">
        <INPUT NAME="E1" TYPE=TEXT STYLE="width: 0.7cm; height: 0.6cm" value="E1" SIZE=1>
        <INPUT NAME="N1" TYPE=TEXT STYLE="width: 0.7cm; height: 0.6cm" value="n" SIZE=1>

 <FONT FACE="arial"><b>  <FONT COLOR="#ffffff"> <font size=5> (
  </font><INPUT NAME="E2" TYPE=TEXT STYLE="width: 0.7cm; height: 0.6cm" value="E2" SIZE=1>
      <INPUT NAME="N2" TYPE=TEXT STYLE="width: 0.7cm; height: 0.6cm" value="l" SIZE=1>
      
   <INPUT NAME="E3" TYPE=TEXT STYLE="width: 0.7cm; height: 0.6cm" value="E3" SIZE=1>
   <INPUT NAME="N3" TYPE=TEXT STYLE="width: 0.7cm; height: 0.6cm" value="m" SIZE=1>
   <FONT FACE="arial">  <FONT COLOR="#ffffff"> <font size=5>)</font><INPUT NAME="N4" TYPE=TEXT STYLE="width: 0.7cm; height: 0.6cm" value="k" SIZE=1>
      
      

     <br><br> <INPUT TYPE=SUBMIT VALUE="=" STYLE="width: 1.9cm; height: 0.5cm">
     <INPUT TYPE=HIDDEN NAME="ok" VALUE="ok">
      

      
      <?
              $ok=$_POST["ok"];


             If($ok=="ok"){  print   "<br><br><div align=center>
    <TABLE WIDTH=290 BORDER=0.5 BORDERCOLOR=#000000 CELLPADDING=4 CELLSPACING=0 >
	<COL WIDTH=280>
	<TR>
		<TD WIDTH=200 BGCOLOR=#ffff00 >";

           $E1=$_POST["E1"];
            $N1=$_POST["N1"];
              $E2=$_POST["E2"];
                 $N2=$_POST["N2"];
                     $E3=$_POST["E3"];
                       $N3=$_POST["N3"];
                         $N4= $_POST["N4"];
                          if($N4=="k") $N4=1;
                       
                       

                        For ($i=1; $i<=118; $i++)
                          {

                        if($E1==$S[$i]) {$nombre1=$N[$i];}
                        }
                        
                           For ($i=1; $i<=117; $i++)
                          {

                        if($E2==$S[$i]) {$nombre2=$N[$i];$raiz=$NR[$i];$V=$NV[$i];}
                        }
                              For ($i=1; $i<=117; $i++)
                          {
                        if($E3==$S[$i]) {$nombre3=$N[$i];$raiz2=$NR[$i];}

                       }


                       if($nombre1=="") {print"E1 erróneo"; exit();}
                          if($nombre2=="") {print"E2 erróneo"; exit();}
                              if($nombre3=="") {print"E3 erróneo"; exit();}
                              
                                   if($E3=="H" and $E2="O")
                                {

                             if($N4==1){$P1="mono";$stok="(I)";};
                               if($N4==2){$P1="di";$stok ="(II)";};
                                   if($N4==3){$P1="tri";$stok="(III)";};
                                       if($N4==4){$P1="tetra";$stok="(IV)";};
                                          if($N4==5){$P1="penta";$stok="(V)";};
                                              if($N4==6){$P1="hexa";$stok="(VI)";};
                                                   if($N4==7){$P1="hepta";$stok="(VII)";};
                                                   
                                     if($E1=="Li" )  $stok="";
                                             if($E1=="Na" )  $stok="";
                                               if($E1=="K" )   $stok="";
                                                 if($E1=="Rb" )  $stok="";
                                                   if($E1=="Cs" )   $stok="";
                                                     if($E1=="Fr" )     $stok="";
                                                         if($E1=="Be" )  $stok="";
                                                            if($E1=="Mg" )   $stok="";
                                                                if($E1=="Ca" ) $stok="";
                                                                   if($E1=="Sr" )   $stok="";
                                                                     if($E1=="Ba" ) $stok="";
                                                                        if($E1=="Ra" )$stok="";

                                                                         if($E1=="Al" ) $stok="";
                                                                             if($E1=="Ga" ) $stok="";
                                                                              if($E1=="In" )  $stok="";




                             print $P1."hidróxido de mono" .$nombre1;
                                   print "<br>hidróxido de " .$nombre1.$stok;

                                          
                               }
                                else{

                                      }
                                      
                                      
                                      
                                      
                                      
                                          

                                 if($E1=="H")

                                    {
                                             if($E2=="C") {print "ácido ".$raiz."ico";}
                                              else{

                                  $stok = 2*$N3-1*$N1/$N2;
                                  



                                  


                                   if($stok==7) print "ácido per".$raiz."ico";
                                      if($stok==5) print "ácido ".$raiz."ico";
                                           if($stok==3) print "ácido ".$raiz."oso";
                                               if($stok==1) print "ácido hipo".$raiz."oso";
                                               
                                               
                                    If ($E2=="S"){
                                         if($stok==6) print "ácido ".$raiz."úrico";
                                           if($stok==4) print "ácido ".$raiz."uroso";
                                               if($stok==2) print "ácido hipo".$raiz."uroso";}

                                       else{
                                      if($stok==6) print "ácido ".$raiz."ico";
                                           if($stok==4) print "ácido ".$raiz."oso";
                                               if($stok==2) print "ácido hipo".$raiz."oso";
                                                  }
                                               
                                     }

                                               
                              if($stok==1){$stok="(I)";};
                               if($stok==2){$stok ="(II)";};
                                   if($stok==3){$stok="(III)";};
                                       if($stok==4){$stok="(IV)";};
                                          if($stok==5){$stok="(V)";};
                                              if($stok==6){$stok="(VI)";};
                                                   if($stok==7){$stok="(VII)";};
                                                   
                             if($N3==1)$P1="mon";
                                 if($N3==2)$P1="di";
                                    if($N3==3)$P1="tri";
                                        if($N3==4)$P1="tetra";
                                          if($N3==5)$P1="penta";

                                          
                                       if($N1==1)$P2="mono";
                                          if($N1==2)$P2="di";
                                           if($N1==3)$P2="tri";
                                            if($N1==4)$P2="tetra";
                                            

                                            

                           print "<br>".$P1."oxo".$raiz."ato".$stok." de ".$P2.$nombre1; exit();
                           }

                              if($E3=="O") {


                              if($V=="par"){$stok1=($N3*2)-2;}
                                  else{
                              $stok1=$N3*2-1;
                                             }
                                $stok2=($N3*2-$stok1*$N2)*$N4/$N1;
                                
                                if($stok2==1){$stok2="(I)";};
                                  if($stok2==2){$stok2 ="(II)";};
                                   if($stok2==3){$stok2="(III)";};
                                       if($stok2==4){$stok2="(IV)";};
                                          if($stok2==5){$stok2="(V)";};
                                              if($stok2==6){$stok2="(VI)";};
                                                if($stok2==7){$stok2="(VII)";};
                                                   
                                           if($E1=="Li" )  $stok2="";
                                             if($E1=="Na" )  $stok2="";
                                               if($E1=="K" )   $stok2="";
                                                 if($E1=="Rb" )  $stok2="";
                                                   if($E1=="Cs" )   $stok2="";
                                                     if($E1=="Fr" )     $stok2="";
                                                         if($E1=="Be" )  $stok2="";
                                                            if($E1=="Mg" )   $stok2="";
                                                                if($E1=="Ca" ) $stok2="";
                                                                   if($E1=="Sr" )   $stok2="";
                                                                     if($E1=="Ba" ) $stok2="";
                                                                        if($E1=="Ra" )$stok2="";

                                                                         if($E1=="Al" ) $stok2="";
                                                                             if($E1=="Ga" ) $stok2="";
                                                                              if($E1=="In" )  $stok2="";
                                                                                  if($E1=="NH4" )  $stok2="";
                                                   
                                                   
                                                   


                                
                                
                                
                                    if($E2=="C")    {print $raiz."ato de ".$nombre1.$stok2;}
                                   else{
                                
                                    if($stok1==7)     print "per".$raiz."ato de ".$nombre1.$stok2;
                                      if($stok1==5)              print $raiz."ato de ".$nombre1.$stok2;
                                           if($stok1==3)        print $raiz."ito de ".$nombre1.$stok2;
                                               if($stok1==1)      print "hipo".$raiz."ito de ".$nombre1.$stok2;


                                    If ($E2=="S"){
                                         if($stok1==6)       print "sulfato de ".$nombre1.$stok2;
                                           if($stok1==4)      print "sulfito de ".$nombre1.$stok2;
                                               if($stok1==2)    print "hiposulfito de ".$nombre1.$stok2;
                                             }
                                    else{
                                      if($stok1==6)            print $raiz."ato de ".$nombre1.$stok2;
                                           if($stok1==4)          print $raiz."ito de ".$nombre1.$stok2;
                                               if($stok1==2)         print "hipo".$raiz."ito de ".$nombre1.$stok2;
                                                 }
                                
                                    }
                                
                                
                                
                                
                                
                                
                                
                                
                                
                                     if($stok1==1){$stok1="(I)";};
                               if($stok1==2){$stok1 ="(II)";};
                                   if($stok1==3){$stok1="(III)";};
                                       if($stok1==4){$stok1="(IV)";};
                                          if($stok1==5){$stok1="(V)";};
                                              if($stok1==6){$stok1="(VI)";};
                                                   if($stok1==7){$stok1="(VII)";};

                                          if($stok2==1){$stok2="(I)";};
                                             if($stok2==2){$stok2 ="(II)";};
                                   if($stok2==3){$stok2="(III)";};
                                       if($stok2==4){$stok2="(IV)";};
                                          if($stok2==5){$stok2="(V)";};
                                              if($stok2==6){$stok2="(VI)";};
                                                   if($stok2==7){$stok2="(VII)";};

                               if($N3==1)$P1="mon";
                                 if($N3==2)$P1="di";
                                    if($N3==3)$P1="tri";
                                        if($N3==4)$P1="tetra";
                                          if($N3==5)$P1="penta";

                            print "<br>".$P1."oxo".$raiz."ato".$stok1." de ".$nombre1.$stok2;
                                  
                               }
                                  
                            If($E2=="H" and $E3=="Te"){ print "teluro de mono".$nombre1." y  de monohidrógeno" ;
                                print "<br>biteluro de ".$nombre1;}

                                     else    {  If($E2=="H"){
                                          print $raiz2."uro de mono".$nombre1." y  de monohidrógeno" ;
                                If($E2=="H") print "<br>bi".$raiz2."uro de ".$nombre1;}

                                         }



    }
  ?>