• Home
 · 
• Math/Dates
 · 
• solves 3 simultinous in 3 unknowns

solves 3 simultinous in 3 unknowns

solves 3 simultinous in 3 unknowns

Rate solves 3 simultinous in 3 unknowns

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'---------------------------------------------------------------
'   a   		b  		c     		m
'   a1 			b1 		c1     		k
'   a2 			b2 		c2     		l	

' having a set of simultanous equation like that above
' the solution will be given as bellow using crammer rule

'by sherif rofael 

' mailto: [email protected]

' http://vbsherif.memebers.easyspace.com

' visit it and download any of my 25 programs there.




Private Sub CommandButton1_Click()

 Let d = a * (b1 * c2 - c1 * b2) + b * (c1 * a2 - a1 * c2) + c * (a1 * b2 - b1 * a2)
 Let d1 = m * (b1 * c2 - c1 * b2) + l * (c * b2 - b * c2) + k * (c1 * b - b1 * c)
 Let d2 = m * (a2 * c1 - a1 * c2) + l * (c2 * a - c * a2) + k * (a1 * c - a * c1)
 Let d3 = m * (a1 * b2 - b1 * a2) + l * (b * a2 - a * b2) + k * (a * b1 - b * a1)
 Let x = d1 / d
 Let y = d2 / d
 Let z = d3 / d
 
Open "c:\windows\desktop\crammer.txt" For Output As #1    ' Open file for output.
Print #1, "This is a test"    ' Print text to file.
Print #1, x, y, z
End Sub