|
In[1]:= KLG[{e__Equal}, v_List] := {Map[Coefficient[#,v]&, First/@{e}], List/@Last/@{e}} /;
$VersionNumber>=3.0
In[2]:= KLG[{a x+b y == e,c x+d y == f},{x,y}]
Out[2]= {{{a, b}, {c, d}}, {{e}, {f}}}
In[3]:= KLG[{a x+b y == e,c x+d y == f, z==g},{x,y,z}]
Out[3]= {{{a, b, 0}, {c, d, 0}, {0, 0, 1}}, {{e}, {f}, {g}}}
|