Berechnung mit Mathematica


In[1]:= e1 = {3 x, -1 y , 2 z, +5};

In[2]:= e2 = {7 x, +2 y , 1 z, -4};

In[3]:= e3 = {6 x, -3 y , 5 z, +2};

In[4]:= e2 = e2*3-e1*7;

In[5]:= e3 = e3*3-e1*6;

In[6]:= MatrixForm[{e1,e2,e3}]

Out[6]//MatrixForm= 3 x     -y      2 z     5

                    0       13 y    -11 z   -47

                    0       -3 y    3 z     -24

In[7]:= e3 = e3*13+e2*3;

In[8]:= MatrixForm[{e1,e2,e3}]

Out[8]//MatrixForm= 3 x     -y      2 z     5

                    0       13 y    -11 z   -47

                    0       0       6 z     -453

In[9]:= e2 = e2*6+e3*11;

In[10]:= e1 = e1*6-e3*2;

In[11]:= MatrixForm[{e1,e2,e3}]

Out[11]//MatrixForm= 18 x    -6 y    0       936

                     0       78 y    0       -5265

                     0       0       6 z     -453

In[12]:= e1 = e1*78+e2*6;

In[13]:= MatrixForm[{e1,e2,e3}]

Out[13]//MatrixForm= 1404 x   0        0        41418

                     0        78 y     0        -5265

                     0        0        6 z      -453

In[14]:= e1 = e1/1404;

In[15]:= e2 = e2/78;

In[16]:= e3 = e3/6;

In[17]:= MatrixForm[{e1,e2,e3}]

Out[17]//MatrixForm=                            59
                                                --
                     x        0        0        2

                                                  135
                                                -(---)
                     0        y        0           2

                                                  151
                                                -(---)
                     0        0        z           2


mathe online        Rechnen mit Mathematica