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