RE: Button Help Example

*To*: mathgroup at smc.vnet.net*Subject*: [mg81260] RE: [mg81238] Button Help Example*From*: "%uvt_fullname%" <>*Date*: Tue, 18 Sep 2007 00:33:40 -0400 (EDT)*References*: <200709170734.DAA15516@smc.vnet.net>

Dear All, I am facing the following problem: 1) I have a system of m=12 linear equations, with n=11 variables. 2) I want to identify those linearly dependent equations and drop them from the system to have a solution. 3) I applied the following code (somebody from MathGroup provided this last year), which is the Gram-Schmidt method of orthogonalization: Clear[V]; equ = {i - 0.4 p == 0, k - 0.16 z == 0, m - 0.9 p == 0, c - 0.83 r == 0, x - 0.7 p ==0, p + m - i - c - k - x == 0, y - p + i == 0, s - r + c == 0, b - m + x == 0, y - r == 0, k - s - b == 0, z - p - m == 0}; {h1, V} = CoefficientArrays[equ, {p, m, i, k, x, c, y, r, s, b, z}]; Do[Do[If[V[[n]] != {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, V[[m]] = (V[[n]].V[[n]]) V[[m]] - (V[[n]].V[[m]]) V[[n]]], {n, 1, m - 1}], {m, 2, 12}] Map[If[# != {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, "keep", "discard"] &, V] This Code always indicates the 6th row to be discarded no matter which order you input the equations in "equ". Isn't there a problem with this code or maybe I am missing something. Your help is appreciated... Tugrul

**References**:**Button Help Example***From:*"David Park" <djmpark@comcast.net>