DMUG-Archiv 1998

Frühere

 

Chronologischer Index

 

Spätere

Vorherige

 

Thematischer Index

 

Nächste

Re: Koeffizienten eines linearen Gleichungssystems

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



Antworten:
Re: Koeffizienten eines linearen Gleichungssystems
Markus van Almsick, 29.11.1996
Verweise:
Koeffizienten eines linearen Gleichungssystems
Dr. Markus Faust, 28.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