by sherif rofael (15 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 19th July 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
solves 3 simultinous in 3 unknowns
'---------------------------------------------------------------
' 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