Solve a System of Linear Equations
Pääsivu>Webmasters>Javascript>Laskimet
[ Edellinen | Seuraava ]
(Minulla ei ole mitään havaintoa tämän toiminnasta, kysykää joltakin viisaammalta!)
Laita sivun <head> osaan Valitse kaikki <script language="JavaScript"> <!-- function initArray() { this.length = initArray.arguments.length for (var i = 0; i < this.length; i++) this[i+1] = initArray.arguments[i] } function solve (m) { var a1 = new initArray(parseFloat(document.matrix.a11.value, 10), parseFloat(document.matrix.a12.value, 10), parseFloat(document.matrix.a13.value, 10), parseFloat(document.matrix.a14.value, 10)) var a2 = new initArray(parseFloat(document.matrix.a21.value, 10), parseFloat(document.matrix.a22.value, 10), parseFloat(document.matrix.a23.value, 10), parseFloat(document.matrix.a24.value, 10)) var a3 = new initArray(parseFloat(document.matrix.a31.value, 10), parseFloat(document.matrix.a32.value, 10), parseFloat(document.matrix.a33.value, 10), parseFloat(document.matrix.a34.value, 10)) var t1=a1; var t2=a2; var t3=a3; if (a1[1] == 0) { alert("\rThere is a 0 in the first entry of the Matrix you "+ "entered\r\rI can't handle that at this time\r\rPlease "+ "Re-Enter the Matrix\r ") } if (a1[1] != 0) { var temp = a1[1] for (var i=1; i<=4; i++) a1[i]=a1[i]/temp; } var temp=-a2[1] for (var i=1; i<=4; i++) a2[i]=a2[i]+(a1[i]*temp); var temp=-a3[1] for (var i=1; i<=4; i++) a3[i]=a3[i]+(a1[i]*temp); if (a2[2] == 0 ) { for (var i=2; i<=4; i++) { var temp=a2[i] a2[i] = a3[i] a3[i] = temp } } if (a2[2] != 0 ) { var temp = a2[2] a2[2] = a2[2] / temp a2[3] = a2[3] / temp a2[4] = a2[4] / temp var temp = -a3[2] for (var i=2; i<=4; i++) a3[i]=a3[i]+(a2[i]*temp); var temp = -a1[2] for (var i=2; i<=4; i++) a1[i]=a1[i]+(a2[i]*temp); } if (a3[3] != 0 ) { var temp = a3[3] a3[3]=a3[3]/temp a3[4]=a3[4]/temp var temp = -a2[3] a2[3]=a2[3]+(a3[3]*temp) a2[4]=a2[4]+(a3[4]*temp) var temp=-a1[3] a1[3]=a1[3]+(a3[3]*temp) a1[4]=a1[4]+(a3[4]*temp) } if (t1[1] * a1[4] + t1[2] * a2[4] + t1[3]*a3[4] != t1[4] ) { alert("\rThe Solution I found does not check out\r\rYou may "+ "have entered a system of equations which\r have no solution, "+ "or infinite solutions.") } if (t2[1] * a1[4] + t2[2] * a2[4] + t2[3]*a3[4] != t2[4] ) { alert("\rThe Solution I found does not check out\r\rYou may have "+ "entered a system of equations which\r have no solution, or "+ "infinite solutions.") } if (t3[1] * a1[4] + t3[2] * a2[4] + t3[3]*a3[4] != t3[4] ) { alert("\rThe Solution I found does not check out\r\rYou may have "+ "entered a system of equations which\r have no solution, or "+ "infinite solutions.") } m.x1.value=a1[4]; m.x2.value=a2[4]; m.x3.value=a3[4]; } //--> </script>