Hier ist die von Rolf Mertig vorgeschlagene Loesung leicht aufgepeppt und
auch Version 2.0-faehig. Den inhomognenen Teil der Gleichung gebe ich
allerdings als Vektor und nicht als 1*n-Matrix aus.
In[9]:= KLG[{e__Equal}, v_List] :=
{Outer[Coefficient, First/@{e},v], Last/@{e}}
In[10]:= KLG[{a x+b y == e,c x+d y == f},{x,y}]
Out[10]= {{{a, b}, {c, d}}, {e, f}}
In[11]:= KLG[{a x+b y == e,c x+d y == f, z==g},{x,y,z}]
Out[11]= {{{a, b, 0}, {c, d, 0}, {0, 0, 1}}, {e, f, g}}
Markus van Almsick
----------------------------------------------------------------
Max-Planck-Institut fuer Biophysik, Frankfurt am Main
|