|
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 |