function mensualite(form)  { 

     

	P=document.form_mensualite.principal.value; 

	A=document.form_mensualite.apport.value; 

	I=document.form_mensualite.taux.value; 

	N=document.form_mensualite.months.value; 

	 

	P= P - A; 

	 

	// Affichage du montant à financer 

 

	form.afinancer.value=P; 

 

	J = I/1200;  N;  S = J + 1;   

	W = J; 

 

	V=Math.pow(S, -(N*12)); 

	V = 1 - V; 

 

	Q = W/V; 

	M = P*Q; 

	 

	M = Math.round(M); 

	form.answer.value=M; 



        if (form.answer.value=="NaN") {

        alert("Veulliez écrire le taux avec un point et non une virgule");

        }

        }

 
 
function get_formulaire(doc, moteur)
{
	var id_formulaire = "recherche";

	if (moteur == "extranet")
		id_formulaire = "extranet_moteur";
	else if (moteur == "gauche")
		id_formulaire = "form_moteur_g";

	return doc.getElementById(id_formulaire);
}

function get_quartier_field(doc, moteur)
{
	var id_field = "fieldquartier";

	if (moteur == "extranet")
		id_field = "fieldquartier_e";
	else if (moteur == "gauche")
		id_field = "fieldquartier_g";

	return doc.getElementById(id_field);
}

function get_quartier_carte(doc, moteur)
{
	var id_field = "cartequartier";

	if (moteur == "extranet")
		id_field = "cartequartier_e";
	else if (moteur == "gauche")
		id_field = "cartequartier_g";

	return doc.getElementById(id_field);
}

// Affiche la carte des secteurs
function affiche_carte_secteurs(moteur)
{
	var hauteur = 576;
	var largeur = 396;

	var top = (screen.height-hauteur) / 2;
	var left = (screen.width-largeur) / 2;

	//window.open("/apfi/site/templates/fichiers/"+moteur+"/","","top="+top+",left="+left+",width="+largeur+",height="+hauteur);
	window.open("/templates/fichiers/"+moteur+"/","","top="+top+",left="+left+",width="+largeur+",height="+hauteur);
}

// Affiche la carte des quartiers
function affiche_carte_quartiers(moteur)
{
	var hauteur = 542;
	var largeur = 480;

	var top = (screen.height-hauteur) / 2;
	var left = (screen.width-largeur) / 2;

	var select = get_formulaire(document, moteur).secteur;
	var secteur = select.options[select.selectedIndex].text.toLowerCase()

	window.open("/carte-quartiers/"+moteur+"/"+secteur+"/","","top="+top+",left="+left+",width="+largeur+",height="+hauteur);
}

// Clic sur un secteur depuis une carte
function secteur(nb_sect, moteur)
{
	var options = get_formulaire(window.opener.document, moteur).secteur;
	options.value = nb_sect;
	change_secteur(window.opener.document, moteur)
	self.close();
}

// Clic sur un quartier depuis une carte
function quartier(nb_sect, moteur)
{
	var options = get_formulaire(window.opener.document, moteur).quartier;
	options.value = nb_sect;
    self.close();
}

// Le secteur a été modifié
function change_secteur(doc, moteur)
{
	var form = get_formulaire(doc, moteur)
	var qfield = get_quartier_field(doc, moteur)
	var qcarte = get_quartier_carte(doc, moteur)
	var secteur = form.secteur.options[form.secteur.selectedIndex].text.toLowerCase();
	var n = 0;
	var options = form.quartier;
	if (options != null)
	{
		for (var i = 1; i < options.options.length; i++)
		{
			var option = options.options[i];
			if (option.value.lastIndexOf(secteur.concat("_")) == 0)
			{
				option.style.display = "block";
				n++;
			}
			else
			{
				option.style.display = "none";
			}
		}
		if (n == 0)
		{
			qfield.style.display = "none";
	   		options.selectedIndex = 0;
		}
		else
		{
			qcarte.src = '/static/images/carte-quartiers-mini-'+secteur+'.png';
			qfield.style.display = "list-item";
	    	if (options.options[options.selectedIndex].style.display == "none")
	    	{
	    		options.selectedIndex = 0;
	    	}
		}
	}
}

// Fonction à appeler pour corriger les quartiers en fonction du secteur initial
function find_change_secteur() {
	try
	{
		change_secteur(document, "carte");
	}
	catch (e)	{	}
	try
	{
		change_secteur(document, "gauche");
	}
	catch (e)	{	}
	try
	{
		change_secteur(document, "extranet");
	}
	catch(e)	{	}
}