数式処理システム Maxima

(Since Feb.15,2001)

(C1) expand((x+y)^6);

           6        5       2  4       3  3       4  2      5      6
(D1)      y  + 6 x y  + 15 x  y  + 20 x  y  + 15 x  y  + 6 x  y + x
(C2)

(C2) factor(d1);

                                          6
(D2)                               (y + x)
(C3) 

(C3) save("~/");

Error: Cannot create the file ~/.
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by CATCH.
Broken at MACSYMA-TOP-LEVEL.  Type :H for Help.
MAXIMA>>

MAXIMA>>:Q

(C4) 

(C4) quit();

(C1) expand((x+y)^6);

           6        5       2  4       3  3       4  2      5      6
(D1)      y  + 6 x y  + 15 x  y  + 20 x  y  + 15 x  y  + 6 x  y + x
(C2) diff(%,x);

                5         4       2  3       3  2       4        5
(D2)         6 y  + 30 x y  + 60 x  y  + 60 x  y  + 30 x  y + 6 x
(C3) integrate(1/(1+x^3),x);

                                         2 x - 1
                       2            ATAN(-------)
                  LOG(x  - x + 1)        SQRT(3)    LOG(x + 1)
(D3)            - --------------- + ------------- + ----------
                         6             SQRT(3)          3
(C4) 

(C4) DISPLAY2D:FALSE;

(D4) FALSE
(C5) d3;

(D5) -LOG(x^2-x+1)/6+ATAN((2*x-1)/SQRT(3))/SQRT(3)+LOG(x+1)/3
(C6) fortran((d3)*(d1));

      (-LOG(x**2-x+1)/6.0+ATAN((2*x-1)/SQRT(3))/SQRT(3)+LOG(x+1)/3.0)*(y
     1   **6+6*x*y**5+15*x**2*y**4+20*x**3*y**3+15*x**4*y**2+6*x**5*y+x*
     2   *6)
(D6) DONE

(C7) DISPLAY2D:TRUE;

(D7)                                 TRUE
(C8) linsolve( [ 3*x + 4*y = 7, 2*x + a*y = 13], [x,y]);

                               7 a - 52        25
(D8)                      [x = --------, y = -------]
                               3 a - 8       3 a - 8
(C9) solve( x^3 - 3*x^2 + 5*x = 15, x);

(D9)               [x = - SQRT(5) %I, x = SQRT(5) %I, x = 3]
(C10) 

(C10) eq1: x^2 + 3*x*y + y^2 = 0$

(C11) eq2: 3*x + y = 1$

(C12) solve([eq1, eq2],[y,x]);

              3 SQRT(5) + 7      SQRT(5) + 3
(D12) [[y = - -------------, x = -----------], 
                    2                 2

                                             3 SQRT(5) - 7        SQRT(5) - 3
                                        [y = -------------, x = - -----------]]
                                                   2                   2
(C13) 

(C13) save("test.lsp",ALL);

(D13)                              test.lsp
(C14) quit();

Maxima 5.6 2001年 6月16日 (土) 23:50:05 JST (with enhancements by W. Schelter).
Licensed under the GNU Public License (see file COPYING)
(C1) load("test.lsp");

Loading ./test.lsp
Finished loading ./test.lsp
(D13)                             ./test.lsp
(C14) 

(C14) playback(26);

(C1) EXPAND((x+y)^6);

           6        5       2  4       3  3       4  2      5      6
(D1)      y  + 6 x y  + 15 x  y  + 20 x  y  + 15 x  y  + 6 x  y + x

(C2) DIFF(%,x);

                5         4       2  3       3  2       4        5
(D2)         6 y  + 30 x y  + 60 x  y  + 60 x  y  + 30 x  y + 6 x

(C3) INTEGRATE(1/(1+x^3),x);
                                  :
                                 (略)
                                  :
              3 SQRT(5) + 7      SQRT(5) + 3
(D12) [[y = - -------------, x = -----------], 
                    2                 2

                                             3 SQRT(5) - 7        SQRT(5) - 3
                                        [y = -------------, x = - -----------]]
                                                   2                   2

(C13) SAVE("test.lsp",ALL);

(D13)                             ./test.lsp
(D14)                                DONE
(C15) 

(C15) tex(d1);

$$-{{\log \left(x^{2}-x+1\right)}\over{6}}+{{\arctan {{2\>x-1}\over{
 \sqrt{3}}}}\over{\sqrt{3}}}+{{\log \left(x+1\right)}\over{3}}\leqno{\tt (D1)}$$
(D15)                                 (D1)

Maxima 5.4 2001年 2月16日 (金) 08:27:12 JST (with enhancements by W. Schelter).
Licensed under the GNU Public License (see file COPYING)
(C1) batch("batch.bat");

batching #/home1/kitty/src/maxima/tmp/batch.bat
(C2) 
                                  2            2
(C2)                       eq1 : y  + 3 x y + x  = 0
                               2            2
(D2)                          y  + 3 x y + x  = 0
(C3) 
(C3)                           eq2 : y + 3 x = 1
(D3)                              y + 3 x = 1
(C4) 
(C4)                           SOLVE([eq1, eq2])
             3 SQRT(5) + 7      SQRT(5) + 3
(D4) [[y = - -------------, x = -----------], 
                   2                 2

                                             3 SQRT(5) - 7        SQRT(5) - 3
                                        [y = -------------, x = - -----------]]
                                                   2                   2

(C5) plot2d([atan(x), erf(x), tanh(x)], [x,-5,5]);

(YMIN -3.0 YMAX 3.0 0.29999999999999999) 
(YMIN -3.0 YMAX 3.0 0.29999999999999999) 
(YMIN -3.0 YMAX 3.0 0.29999999999999999)

(C6) plot3d(sin(sqrt(x^2+y^2))/sqrt(x^2+y^2),[x,-12,12],[y,-12,12]);

hoge@hoge% pstoedit -f tgif sdfplot.ps > sdfplot.obj

hoge@hoge% tgif sdfplot.obj &

パッケージ名	ファイル	デモファイル	説明
EIGEN	eigen.mc	eigen.dem eigen.de1	高速・省メモリな固有値計算．縮退(?)固有値と固有ベクトルも扱える．
FUNCTS	functs.mc	functs.dem	特殊な数学関数を扱えるようにするパッケージ．
TRIGSIMP	trgsmp.mc	trgsmp.dmo	三角関数，双曲線関数(sinh,cosh)の最適化．Maximaを起動するとすでにloadされている．

パッケージ名	ファイル	デモファイル	説明
ABSIMP	absimp.mc	absimp.dem
ASYMP	?	asymp.dm1 asymp.dm2 asymp.dm3	ファインマン・ダイアグラムの漸近的振舞いを計算するパッケージ．
DBLINT	dblint.mc	dblint.dem	シンプソンの公式を使った方法で2重積分をする．
DIMEN	dimen.mc	dimen.dem	自動で物理量の次元解析をする．
RNCOMBINE	rncomb.mc	rncomb.dem	分数を通分する．
SUMCONTRACT	?	sumcon.dmo

パッケージ名	ファイル	デモファイル	説明
ANTID	antid.mc	antid.dmo
LRATS	lrats.mc	lrats.dem
PFAFF	pfaff.mc	pfaff.dem

■Maxima News

■Maximaで何ができる？

■GUIはあるの？

■インストール

■ Maxima を使ってみよう．

■展開と因数分解．

■微分，積分．

■方程式を解かせる．

■セーブとロード，プレイバック．

■TeXのソースに変換．

■バッチ処理．

■グラフの作成，編集．

■付属パッケージ動作確認一覧．

■Maximaリンク集．