<!-- Beginvar A=Array();var B=Array();var lig=0;var col=0;var n=0;var m=0;var p=0;var q=0;var dim=100;var precis=0;var R=Array();for(var i=1;i<=dim;i++){A[i]=Array();B[i]=Array();R[i]=Array();};function reponse(form){for(var i=0;i<form.length;i++){if(form[i].checked){break}}var repondu=""if(i<form.length){repondu=form[i].value}return repondu;}function lirea(form){var auteur="Arnaud Saint-Martin de www.homeomath.com";var rep="";var typ=reponse(form.nomb);n=eval(form.n.value);m=eval(form.m.value);for(var i=1;i<=n;i++){for(var j=1;j<=m;j++){if(isNaN(A[i][j])){rep=prompt("Entrez la valeur de a"+i+j+" = ","?");}else{rep=prompt("Modifier la valeur de a"+i+j+" = ",A[i][j]);};if(rep==null){break;}else{A[i][j]=rep;};};if(rep==null){break;};};}function lireb(form){var auteur="Arnaud Saint-Martin de www.homeomath.com";var rep="";p=eval(form.p.value);q=eval(form.q.value);for(var i=1;i<=p;i++){for(var j=1;j<=q;j++){if(isNaN(B[i][j])){rep=prompt("Entrez la valeur de b"+i+j+" = ","?");}else{rep=prompt("Modifier la valeur de b"+i+j+" = ",B[i][j]);};if(rep==null){break;}else{B[i][j]=rep;};};if(rep==null){break;};};}function affichage(form){var donnee="";n=eval(form.n.value);m=eval(form.m.value);p=eval(form.p.value);q=eval(form.q.value);donnee=editmat("<b>matrice A :</b>",A,n,m);donnee=donnee+"<br>"+editmat("<b>matrice B :</b>",B,p,q);soluce(donnee);}function entier(x){var entier=Math.round(eval(x-0.5));return entier;};function arrondi(x,choix){var retour=eval(x*choix);var tronc=Math.round(retour);tronc=eval(tronc/choix);return tronc;}function soluce(txtsoluce){var largeur=500;var hauteur=250;var txte="<html><head><title>Homeomath : Fenêtre de résultats</title></head><body background=\"images/theme.gif\"></p>"+txtsoluce+"</p></body></html>";var wsoluce=open("","remarque","menubar=no,toolbar=no,scrollbars=yes,status=no,resizable=yes,width="+largeur+",height="+hauteur);wsoluce.document.open();wsoluce.document.write(txte);wsoluce.document.close();}function editmat(titre,A,n,m){var haut=eval(n*25);var texte="";texte=texte+titre+"<br><table width=\"5%\" border=\"0\" cellspacing=\"4\">";for(var i=1;i<=n;i++){texte=texte+"<tr>";for(var j=1;j<=m;j++){if((i==1)&&(j==1)){texte=texte+"<td rowspan=\""+n+"\" width=\"21\"><img border=\"0\" src=\"images/mata6.gif\" width=\"16\" height=\""+haut+"\"></td>";};texte=texte+"<td width=\"5%\" nowrap><div align=\"center\">"+A[i][j]+"</div></td>";if((i==1)&&(j==m)){texte=texte+"<td rowspan=\""+n+"\" width=\"21\"><img border=\"0\" src=\"images/mata3.gif\" width=\"16\" height=\""+haut+"\"></td>";};};texte=texte+"</tr>";};texte=texte+"</table>";return texte;}function transpose(M,n){TM=Array();for(var i=1;i<=n;i++){TM[i]=Array();};for(var i=1;i<=n;i++){for(var j=1;j<=n;j++){TM[i][j]=M[j][i];};};return TM;}function somme(form){var doc="";var typ=reponse(form.nomb);n=eval(form.n.value);m=eval(form.m.value);p=eval(form.p.value);q=eval(form.q.value);if(typ=="reel"){with(Math){for(var i=1;i<=n;i++){for(var j=1;j<=m;j++){A[i][j]=eval(A[i][j]);};};for(var i=1;i<=p;i++){for(var j=1;j<=q;j++){B[i][j]=eval(B[i][j]);};};};};if((n!=p)||(m!=q)){alert("On ne peut pas ajouter ces deux matrices !");}else{if(typ=="reel"){for(var i=1;i<=n;i++){for(var j=1;j<=m;j++){R[i][j]=eval(A[i][j]+"+"+B[i][j]);};};doc=editmat("A + B =",R,n,m);lig=n;col=m;soluce(doc);}else{for(var i=1;i<=n;i++){for(var j=1;j<=m;j++){R[i][j]=somfrac(A[i][j],B[i][j]);};};doc=editmat("A + B =",R,n,m);lig=n;col=m;soluce(doc);};};}function produit(form){var doc="";var typ=reponse(form.nomb);n=eval(form.n.value);m=eval(form.m.value);p=eval(form.p.value);q=eval(form.q.value);if(m!=p){alert("On ne peut pas multiplier ces deux matrices !");}else{if(typ=="reel"){for(var i=1;i<=n;i++){for(var j=1;j<=q;j++){R[i][j]=0;for(var l=1;l<=p;l++){R[i][j]=eval(eval(R[i][j])+"+"+eval(eval(A[i][l])*eval(B[l][j])));};};};doc=editmat("A x B =",R,n,q);lig=n;col=q;soluce(doc);}else{for(var i=1;i<=n;i++){for(var j=1;j<=q;j++){R[i][j]="0";for(var l=1;l<=p;l++){R[i][j]=somfrac(R[i][j],prodfrac(A[i][l],B[l][j]));};};};doc=editmat("A x B =",R,n,q);lig=n;col=q;soluce(doc);};};}function resulta(form){n=lig;m=col;for(var i=1;i<=n;i++){for(var j=1;j<=m;j++){A[i][j]=R[i][j];};};document.formulaire.n.value=n;document.formulaire.m.value=m;}function resultb(form){p=lig;q=col;for(var i=1;i<=p;i++){for(var j=1;j<=q;j++){B[i][j]=R[i][j];};};document.formulaire.p.value=p;document.formulaire.q.value=q;}function transposa(form){n=eval(form.n.value);m=eval(form.m.value);for(var j=1;j<=m;j++){for(var i=1;i<=n;i++){R[j][i]=A[i][j];};};lig=m;col=n;doc=editmat("transposée de A =",R,lig,col);soluce(doc);}function transposb(form){p=eval(form.p.value);q=eval(form.q.value);for(var j=1;j<=q;j++){for(var i=1;i<=p;i++){R[j][i]=B[i][j];};};lig=q;col=p;doc=editmat("transposée de B =",R,lig,col);soluce(doc);}function pgcd(a,b){var p=0;var reste=b%a;var quot=eval(eval(b-reste)/a);var divis=eval(a);var divid=eval(b);var produit=eval(a*b);while(reste!=0){divid=eval(divis);divis=eval(reste);reste=divid%divis;quot=eval(eval(divid-reste)/divis);};p=divis;return p;}function arrondi(x,choix){var retour=eval(x*choix);var tronc=Math.round(retour);tronc=eval(tronc/choix);return tronc;}function numerateur(chaine){var ch=chaine.toString();var pos=ch.indexOf("/");var num="";if(pos!=-1){num=eval(ch.substring(0,pos));}else{num=ch.replace(".","");};return num;}function denominateur(chaine){var ch=chaine.toString();var pos=ch.indexOf("/");var long=ch.length;var den="";if(pos!=-1){den=ch.substring(pos+1,long);}else{pos=ch.indexOf(".");if(pos!=-1){den=Math.pow(10,eval(long-pos-1));}else{den=1;};};return den;}function reduction(chaine){var nume=numerateur(chaine);var deno=denominateur(chaine);var reduc="";var pg=0;if((nume!=0)&&(deno!=0)){pg=Math.abs(pgcd(nume,deno));nume=Math.round(nume/pg);deno=Math.round(deno/pg);if(deno<0){deno=Math.abs(deno);nume=eval(-nume);};if(deno==1){reduc=nume;}else{reduc=nume+"/"+deno;};};if(deno==0){reduc="Erreur !";};if((nume==0)&&(deno!=0)){reduc="0";};return reduc;}function somfrac(fraca,fracb){var numa=numerateur(fraca);var numb=numerateur(fracb);var dena=denominateur(fraca);var denb=denominateur(fracb);var fracs="";var nums=eval(numa*denb+numb*dena);var dens=eval(dena*denb);if(dens<0){dens=Math.abs(dens);nums=eval(-nums);};fracs=nums+"/"+dens;fracs=reduction(fracs);return fracs;}function prodfrac(fraca,fracb){var numa=numerateur(fraca);var numb=numerateur(fracb);var dena=denominateur(fraca);var denb=denominateur(fracb);var fracp="";var nump=eval(numa*numb);var denp=eval(dena*denb);if(denp<0){denp=Math.abs(denp);nump=eval(-nump);};fracp=nump+"/"+denp;fracp=reduction(fracp);return fracp;}function moins(fraca,fracb){var numa=numerateur(fraca);var numb=numerateur(fracb);var dena=denominateur(fraca);var denb=denominateur(fracb);var fracm="";var nums=eval(numa*denb-numb*dena);var dens=eval(dena*denb);if(dens<0){dens=Math.abs(dens);nums=eval(-nums);};fracs=nums+"/"+dens;fracs=reduction(fracs);return fracs;}function division(fraca,fracb){var numa=numerateur(fraca);var numb=numerateur(fracb);var dena=denominateur(fraca);var denb=denominateur(fracb);var fracp="";var nump=eval(numa*denb);var denp=eval(dena*numb);if(denp<0){denp=Math.abs(denp);nump=eval(-nump);};fracp=nump+"/"+denp;fracp=reduction(fracp);return fracp;}function decimal(den){var de=den;var deci=true;var div2=eval(de%2==0);var div5=eval(de%5==0);while(div2){de=Math.round(de/2);div2=eval(de%2==0);};while(div5){de=Math.round(de/5);div5=eval(de%5==0);};if(de!=1){deci=false;};return deci;}
