In der Loesung liegt auch das Problem, zwei sich ueberschneidende Map-Bereiche voneinander zu trennen. Das erledigt
man z.B. mit :
Mathematica 2.2 for SPARC
Copyright 1988-94 Wolfram Research, Inc.
-- Open Look graphics initialized --
In[1]:= KLG[{e__Equal},v_List]:=
{Function[xxx,Coefficient[#,xxx]]/@v&/@First/@{e},Last/@{e}}
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}}
Mit freundlichen Gruessen
Hans-Joachim Spitzer
|