function isNum(numeCamp)
{
	var OK,re
	var  nat,retVal
	retVal = true
	re=/^\s*\d*$/
	OK=re.exec(numeCamp.value)
	if (!OK) 
	{
		alert("Introduceti un numar intreg in campul marcat !")
		numeCamp.focus()
		numeCamp.select()
		retVal=false
	}
	return retVal
}

function calcoua() 
{
  		if (isNum(document.all("cant")))
  		{
 			inmcst(document.all("cant"), 0.75, document.all("fert"));
  			inmcst(document.all("fert"), 0.75, document.all("pui0"));
			inmcst(document.all("pui0"), 0.75, document.all("pui1"));
			inmcst(document.all("pui1"), 0.75, document.all("adulti"));
		
		
		if (isNum(document.all("cincou")))
		{
  			inmulteste(document.all("fert"), document.all("cincou"), document.all("aux"));
  			if (isNum(document.all("pretou")))
  			{
  				inmulteste(document.all("cant"), document.all("pretou"), document.all("ctinc"));
  				aduna(document.all("aux"), document.all("ctinc"), document.all("ctinc"));
  		  		
  				if (isNum(document.all("cnutcapita")))
  				{
  					if (isNum(document.all("altccapita")))
  					{
  						aduna(document.all("cnutcapita"), document.all("altccapita"), document.all("cti"));
  						if (isNum(document.all("ctrspcapita")))
  						{
  							aduna(document.all("cti"), document.all("ctrspcapita"), document.all("cti"));
  							inmulteste(document.all("cti"), document.all("adulti"), document.all("cti"));
  							aduna(document.all("ctinc"), document.all("cti"), document.all("ctp"));
  							if (isNum(document.all("pvc")))
  							{
  								inmulteste(document.all("pvc"), document.all("adulti"), document.all("ptv"));
  							}
  						}
  					}
  				}
  			}
  		}
  		}          
       //CALCULUL PROFITULUI
       scade(document.all("ptv"), document.all("ctp"), document.all("profit"));
       imparte(document.all("ptv"), document.all("ctp"), document.all("ratap"));
       inmcstrest(document.all("ratap"), 100, document.all("ratap"));

}

function calcpui() 
{
         //CALCULUL NUMARULUI DE ADULTI
     		if (isNum(document.all("pui1")))
     		{
          	inmcst(document.all("pui1"), 0.75, document.all("adulti"));
	     		if (isNum(document.all("pui2")))
	     		{
          		inmcst(document.all("pui2"), 0.80, document.all("aux"));
          		aduna(document.all("adulti"), document.all("aux"), document.all("adulti"));
  		     		if (isNum(document.all("pui3")))
  		     		{
	          		inmcst(document.all("pui3"), 0.90, document.all("aux"));
          			aduna(document.all("aux"), document.all("adulti"), document.all("adulti"));
          
           //CALCULUL COSTULUI TOTAL
          		if (isNum(document.all("cap1")))
          		{
          			inmulteste(document.all("pui1"), document.all("cap1"), document.all("cta"));
          			if (isNum(document.all("cap2")))
          			{
          				inmulteste(document.all("pui2"), document.all("cap2"), document.all("aux"));
          				aduna(document.all("cta"), document.all("aux"), document.all("cta"));
          				if (isNum(document.all("cap3")))
          				{
          					inmulteste(document.all("pui3"), document.all("cap3"), document.all("aux"));
          					aduna(document.all("aux"), document.all("cta"), document.all("cta"));
          					if (isNum(document.all("cnutcapita")))
          					{
          						if (isNum(document.all("altccapita")))
          						{
						      		aduna(document.all("cnutcapita"), document.all("altccapita"), document.all("cti"));
						      		if (isNum(document.all("ctrspcapita")))
						      		{
          								aduna(document.all("cti"), document.all("ctrspcapita"), document.all("cti"));
          								inmulteste(document.all("cti"), document.all("adulti"), document.all("cti"));
          
          								aduna(document.all("cta"), document.all("cti"), document.all("ctp"));
                                //CALCULUL PROFITULUI
                                 inmulteste(document.all("pvc"), document.all("adulti"), document.all("ptv"));
                                 scade(document.all("ptv"), document.all("ctp"), document.all("profit"));
                                 imparte(document.all("ptv"), document.all("ctp"), document.all("ratap"));
                                 inmcstrest(document.all("ratap"), 100, document.all("ratap"));
                                 
                                 //CALCULUL SIGURANTEI PROFITULUI
                                 inmcstrest(document.all("pui1"), 0.75, document.all("sigur"));
                                 inmcstrest(document.all("pui2"), 0.80, document.all("aux"));
                                 aduna(document.all("sigur"), document.all("aux"), document.all("aux"));
                                 inmcstrest(document.all("pui3"), 0.90, document.all("sigur"));
                                 aduna(document.all("sigur"), document.all("aux"), document.all("sigur"));
                                 aduna(document.all("pui1"), document.all("pui2"), document.all("aux"));
                                 aduna(document.all("pui3"), document.all("aux"), document.all("aux"));
                                 imparte(document.all("sigur"), document.all("aux"), document.all("sigur"));
                                 inmcstrest(document.all("sigur"), 100, document.all("sigur"));							
          							}
          						}
          					}
          				}
          			}
          			}
          		}
          	}
          }         
}

function calcpre() 
{
     		if (isNum(document.all("pre1")))
     		{
          	//CALCULUL NUMARULUI DE REPRODUCATORI
          	inmcst(document.all("pre1"), 0.8, document.all("rep"));
 	     		if (isNum(document.all("pre2")))
 	     		{
          		aduna(document.all("rep"), document.all("pre2"), document.all("rep"));
          
               // CALCULUL PERIOADEI DE VALORIFICARE
           		if (isNum(document.all("ncp")))
           		{
          			calcperval(document.all("pre1"), document.all("pre2"), document.all("ncp"), document.all("perval"));
          
                  //CALCULUL COSTULUI DE ACHIZITIE
              		if (isNum(document.all("cap1")))
              		{
                    inmulteste(document.all("pre1"), document.all("cap1"), document.all("cta"));
                 		if (isNum(document.all("cap2")))
                 		{
                       inmulteste(document.all("pre2"), document.all("cap2"), document.all("aux"));
                       aduna(document.all("cta"), document.all("aux"), document.all("cta"));
                         
                      //CALCULUL COSTULUI DE CRESTERE PANA LA VARSTA DE REPRODUCTIE
                      if (isNum(document.all("cnutcapita")))
                      {
                      	if (isNum(document.all("altccapita")))
                      	{
                      		aduna(document.all("cnutcapita"), document.all("altccapita"), document.all("aux"));
                        	inmulteste(document.all("aux"), document.all("pre1"), document.all("car1"));
                        	inmcst(document.all("car1"), 2, document.all("car1"));
                         
                         	inmulteste(document.all("aux"), document.all("pre2"), document.all("car2"));
                         	aduna(document.all("car1"), document.all("car2"), document.all("ctc"));
                        
                         	//CALCULUL COSTULUI DE CRESTERE PENTRU N CICLURI
                         	inmulteste(document.all("aux"), document.all("rep"), document.all("aux2"));
                         	inmulteste(document.all("ncp"), document.all("aux2"), document.all("aux2"));
                         	aduna(document.all("aux2"), document.all("ctc"), document.all("ctc"));
                         
                         	//CALCULUL COSTULUI TOTAL DE PRODUCTIE
                         	aduna(document.all("cta"), document.all("ctc"), document.all("ctp"));      
                         
                         	//CALCULUL VALORII TOTALE PRODUSE
                         	if (isNum(document.all("nmpc")))
                         	{
                         		inmulteste(document.all("nmpc"), document.all("rep"), document.all("vtp"));
                         		if (isNum(document.all("vmpc")))
                         		{
                         			inmulteste(document.all("vmpc"), document.all("vtp"), document.all("vtp"));
                         			inmulteste(document.all("ncp"), document.all("vtp"), document.all("vtp"));
                         
                         			//CALCULUL PROFITULUI
                         			scade(document.all("vtp"), document.all("ctp"), document.all("profit"));
                         			imparte(document.all("vtp"), document.all("ctp"), document.all("ratap"));
                         			inmcstrest(document.all("ratap"), 100, document.all("ratap"));
                         		}
                         	}
                         }
                        }
                       }
                      }
                     }
                    }
                   }

}

function calcrep() 
{
     		if (isNum(document.all("rep")))
     		{
           if (isNum(document.all("cap")))
           {
           		//CALCULUL COSTULUI DE ACHIZITIE
           		inmulteste(document.all("rep"), document.all("cap"), document.all("cta"));
           		if (isNum(document.all("cnutcapita")))
           		{ 
             		//CALCULUL COSTULUI DE CRESTERE PENTRU N CICLURI
             		if (isNum(document.all("altccapita")))
             		{
             			aduna(document.all("cnutcapita"), document.all("altccapita"), document.all("aux"));         
             			inmulteste(document.all("aux"), document.all("rep"), document.all("ctc"));
             			if (isNum(document.all("ncp")))
             			{
             				inmulteste(document.all("ncp"), document.all("ctc"), document.all("ctc"));       
             
             				//CALCULUL COSTULUI TOTAL DE PRODUCTIE
             				aduna(document.all("cta"), document.all("ctc"), document.all("ctp"));
             				
             				if (isNum(document.all("nmpc")))             
             				{
                        	//CALCULUL VALORII TOTALE PRODUSE
                        	inmulteste(document.all("nmpc"), document.all("rep"), document.all("vtp"));
                        	if (isNum(document.all("vmpc")))
                        	{
                        		inmulteste(document.all("vmpc"), document.all("vtp"), document.all("vtp"));
                        		inmulteste(document.all("ncp"), document.all("vtp"), document.all("vtp"));
                        
                        		//CALCULUL PROFITULUI
                        		scade(document.all("vtp"), document.all("ctp"), document.all("profit"));
                        		imparte(document.all("vtp"), document.all("ctp"), document.all("ratap"));
                        		inmcstrest(document.all("ratap"), 100, document.all("ratap"));
                        	}
                        }
                       }
                      }
                     }
                    }
                   }

}