i2、i3、i_n、e_nに関して同様の計算し、すべてを足し合わせるとSTになる・・・はず。係数を引っ張り出すでは係数を引っ張り出して見ましょう。係数は英語でcoefficientですから、coeff~という関数がありそうです。coeffとinputと書かれているところに入力します。Series.Enterspace-separatednumbers,ALLorNONE:なにやらありましたね。番号を押せと書いているので早速0と入力してください。falseさてさて、目標にぴったりあった内容になってます。英語が嫌いという人は、ponpoko氏の日本語訳を参照してください。これをみると、ちゃんとした計算結果が出るためには、あらかじめ因数分解か展開をしておいてということなので、まず、あらかじめ展開をしておきます。いままでのnoise.macに次のように追加します。tem1:expand(RHS(eqn1*fac))$ここでRHSというのは右辺(RightHandSide)のことです。これで、「tem1はeq1の右辺を展開したものである」という意味になります。行末の$は計算結果を表示しないときにつかいます。展開なんかされた結果なんか見たってわかんないですからね。eqn1などの定義も表示されるのがだんだんうるさくなってきたので、;を$に変えておきましょう。c0:ratsimp((coeff(tem1,e_n)));c1:ratsimp((coeff(tem1,i_n)));c2:ratsimp((coeff(tem1,i1)));c3:ratsimp((coeff(tem1,i2)));c4:ratsimp((coeff(tem1,i3)));ここでratsimp(~)というのは~を一番簡単な形にするという関数で、Mathematicaで言うところのFullSimplifyに対応したようなものです。キーワードでヘルプが見られるので目的の関数があるか探す。英語が面倒な人はponpoko氏のマニュアルを探す。coeff、ratsimp、RHS、LHSのヘルプをさがしてください。実際にやってみたらここまでの内容をnoise.mac.txtにアップしておきました。