DMUG-Archiv 1998

Frühere

 

Chronologischer Index

 

Spätere

Vorherige

 

Thematischer Index

 

Nächste

Re: Koeffizienten eines linearen Gleichungssystems

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


Verweise:
Koeffizienten eines linearen Gleichungssystems
Dr. Markus Faust, 28.11.1996
Re: Koeffizienten eines linearen Gleichungssystems
Rolf Mertig, 29.11.1996

Frühere

 

Chronologischer Index

 

Spätere

Vorherige

 

Thematischer Index

 

Nächste

DMUG-Archiv, http://www.mathematica.ch/dmug-liste.html; Letzte Änderung: 08.09.2003 20:44