02/01/14 16:32
Pariなんてどーなの？
151:１３２人目の素数さん
02/01/19 23:24
>>146-147
おお！
ありがとう！
僕もそれで悩んでた（ｗ
152:１３２人目の素数さん
02/01/19 23:36
ある文字列があるとする。
それが半角か全角か調べるにはどうすればいいのでしょうか？
また、半角が何文字、全角が何文字かわかればもっといいのですが・・・。
わかる方教えていただけないでしょうか？
153:１３２人目の素数さん
02/01/19 23:59
ふつうに数えたんじゃダメなの？いち、に、さん、って。
154:１３２人目の素数さん
02/01/20 00:53
一文字づつ読めとって文字コードを調べればいいじゃん。
155:１３２人目の素数さん
02/01/20 01:04
シフトジスなら頭から１バイトずつ読んでいって十六進で８０台９０台
Ｅ０台Ｆ０台のバイトがあったらそれと次のバイトとを全角文字として
処理すればよくてそれを頭から最後までやれば文字数が数えれる。
普通のジスならもっと楽、同様に１バイトずつ読んでいってＫＩとＫＯ
にはさまれてるところを全角として文字数を数える。
156:132人目の素数さん
02/01/22 02:53
質問があります。
Mathematica4.0が、インストールしてしばらくすると、起動時に「エラー160」というメッセージを出して逝ってしまわれるのですが、どうしたらいいんでしょうか？
157:
02/01/22 09:47
待て待てか
158:１３２人目の素数さん
02/01/23 22:50
mathematicaをWINｍｘでｕｐしても使えないってマジか？
サーチしたらあったんだけど。レッドだったのが痛いが。
159:
02/01/24 20:44
WebMathematicaって何がどうなってるの？
160:１３２人目の素数さん
02/01/25 00:11
>>158
買えば良いじゃん。
161:１３２人目の素数さん
02/01/29 15:26
Mathematica for Mac OS Xリリースage
URLﾘﾝｸ(www.wri.com)
「Mac OS X用 Mathematica の動作は実に美しい．効率的で目的のはっきりしたソフトウェア．．．確かに，入手可能な最高のプラットフォームで起動する世界でも最も優れたアプリケーションの1つだ．まるで光沢のあるロシア産のミンクのようだ」
今まで大学のｳｲｿで使ってただけだけど、これは買ってしまいそう。
でもこのスレにはﾏｶｰはあまりいなさそうだ。
162:
02/01/31 16:25
MAXIMAがソース突きでGPLだから、いいぞ。
163:１３２人目の素数さん
02/01/31 18:45
MaTX ってどうなの？
URLﾘﾝｸ(www.matx.org)
164:１３２人目の素数さん
02/02/07 13:47
Mathematicaのバージョンアップってどうなってるのか良く分からない。
Mac用の3.0日本語版、スチューデントを買ったんだけど、
Mac OS X版にバージョンアップするには、幾らかかかるんだろう？
165:Wi○MX
02/02/10 12:58
○in○XでMa○hemaica4.0と日本語化○ット2を手に入れてインストールは
できたのですが、「現在使用中のMathematica用パスワードでは、英語以外
の言語を使うことができません。・・・」と表示され日本語化できません。
どうか解決方法を教えてください。
166:１３２人目の素数さん
02/02/10 21:21
>>164
URLﾘﾝｸ(software.univcoop.or.jp)
盛況のページにかいてあった。
167:１３２人目の素数さん
02/02/16 11:48
積分方程式が解けるソフトない？
168:１３２人目の素数さん
02/02/27 02:30
age
169:１３２人目の素数さん
02/03/02 00:14
>>167
解いてやるから、式書いてAmsLaTeXでいいよ
170:１３２人目の素数さん
02/03/02 16:17
>>167
なんだか、昔「TeXというソフトがあって、聞くところによると
論文を書いてくれるそうだ。それをつかうと誰でも完璧な論文が
自動的にできて、あっというまに印刷されるとか。アメリカの
人工知能はすごいねえ」という笑い話に似ている。
171:ポコチン大王
02/03/03 00:50
Mathematica3.0 は WindowsXPで動くのか？動かないのか？
誰か答えろやｺﾞﾙｧ！
172:１３２人目の素数さん
02/03/03 20:21
>>171
2000なら動いたよ。
173:
02/03/04 00:38
＞164
バージョンアップするよりヤフオクで最新版買う方が安くつく場合もある。
今試しに検索してみたが、マカー用は3.0しかでてないね。Winなら4.1あったけど。
でも、ヤフオクのアラート機能で"mathematica"に反応するように設定しておくと、出物が出たときにメールで知らせてくれるよ。
174:１３２人目の素数さん
02/03/04 00:40
＞171
2000で動くソフトは大概XPで動くと思われ。
割れじゃないのならサポートに聞いてみれば？
175:１３２人目の素数さん
02/03/04 01:29
ﾏｶｰ用って結局Carbonアプリなんだよね。
Cocoaになったら飼おう。
176:１３２人目の素数さん
02/03/04 04:37
>>173
何たら用って言うのは、マニュアルが違うだけでCD-ROMの内容は同じじゃないかな？
少なくとも3.0 for MacにはWindows用、Linux用etc全種類のMathematicaが入っていた。
177:名無しさん＠Ｅｍａｃｓ
02/03/05 16:12
>>176
そのとおりなのだが、Licence NumberとMath IDがね。
178:１３２人目の素数さん
02/03/05 16:19
>171
普通に動きます。
179:１３２人目の素数さん
02/03/05 16:26
>165
多分、尻アル生成ソフトで尻を生成したのでしょうが、
その尻アル生成ソフトを作ったのがフランス人（だったと思う）
なので英語版にしか対応していません。
180:１３２人目の素数さん
02/03/05 16:29
プログラムを書けば計算できます。
ただ、ソースを載せたいのですが積分方程式の種類によって
多少処理が違うので・・・。
多分ラプラス変換あたりの計算方法でＯＫと思われますので
計算手順をそのまま書いてください。
181:１３２人目の素数さん
02/03/05 16:36
↑
>>167 さんへ
182:１３２人目の素数さん
02/03/07 13:54
>>169
数値的に解くアルゴリズムが欲しいです。
解析的にはどうも無理そうなので・・・
（核の部分には、数値積分しかできない部分が
山のように入っています）
>>170
なるほど。Mathematicaでも解けないんですね。
>>180
第一種volterra型積分方程式の数値解を求めたいのです。
いまは、微分して、第二種に変形して、積分を
台形公式で近似して微分方程式にしてRungeKutta法で解いています。
概ね答えがでているように見えるのですが最大誤差
の評価がうまくできないので不満が残ります。
他にも第一種のままで、解y(t)を、
y(t0),t(t0+dt),y(t0+2dt)・・・というベクトル
に、積分を行列で近似して解く方法も考えましたが、
うまく解がでませんでした。
他にどんな方法があるのですか？
ラプラス方程式の方法が気になります。
183:kawabata君の友人
02/03/07 16:06
>>164 >>173
Mathematicaフルバージョンには複数の種類のCDがあります
フルセット版，アカデミック版（ここで言うアカデミックとは大学の教職員
向けのものであってMathematica for Studentsではありません）この２つの版
が１種類，もう１種類は見かけは全くそっくりでTeacher'sEditionやClassroom
Packにつかわれるものです。
じゃあ，見かけはそっくりで実際のところナニが違うかというと，パスワード
の発行形態がちがうのです。
前者は１５けた程度からなる 39889-*****-*****-***というパスワードがLicense
Certificateにあらかじめ印刷されており，これを入力すればすぐに使い始めること
ができます。またWindowsからMacといった異人種でないかぎり，お友達の
マシン上でも，お得意先でもどこでもポータブルですから，すぐにMathematica
が起動します
一方Teachersや学生版のＣＤは総背番号制です。
実際に使用するマシン固有の$MachineIDが表示されますから，これをＷＲI
に伝えます，すると「あなたのマシンだけで使用できる10けたのﾊﾟｽﾜｰﾄﾞ」を
教えてくれます。これを打ち込めば「あなたのマシン」でだけ起動します
ﾃﾞフラグをかけたりすると「もういちど」新しいMachineIDが表示され
ﾊﾟｽﾜｰﾄﾞを取り直しとなります
どちらがよいかは，好みが分かれるでしょうね
184:１３２人目の素数さん
02/03/08 09:27
>>182
Numerical Recipes に書いてある方法じゃだめなの？
185:１３２人目の素数さん
02/03/10 19:52
昔、Mathematicaをつかってリーマン予想を解くというような論文があると
聞いたことがあるけど、どうやって攻略できるのかな？
186:１３２人目の素数さん
02/03/11 15:24
mathmediaはいかが？
187:１３２人目の素数さん
02/03/12 16:39
>>162
URLﾘﾝｸ(phe.phyas.aichi-edu.ac.jp)
を見てMaxima（Windows版）を入れてみたのだが、
すんません、１＋１＝２を計算させるにはどうすればいいんですか？
188:Maxima
02/03/12 18:27
>>187
1+1;
そんなことより、
t:5;
とやってしまったあとに、integrate(t,t);
を求めたくなったときの処理をおしえてたも。
189:１３２人目の素数さん
02/03/31 08:40
Interateの途中式を得ることは出来ますか？
URLﾘﾝｸ(www.calc101.com)では、Mathematicaを使っていて
積分過程の英語による解説がつくんですが。
どなたかご教授願えませんでしょうか。
190:189
02/03/31 09:37
無理っぽいですね。
ありがとうございました。
191:１３２人目の素数さん
02/04/13 06:18
age
192:１３２人目の素数さん
02/04/30 09:55
193:１３２人目の素数さん
02/05/05 10:25
(;´Д`)ﾊｧﾊｧ
194:１３２人目の素数さん
02/05/21 03:58
(;´Д`)ﾊｧﾊｧ
195:１３２人目の素数さん
02/05/30 17:29
Maxima --- GNU Macsyma!!!!!!!!!!!!!!!!!!!
196:１３２人目の素数さん
02/06/13 21:27
保守。
うちの高校には、Mathematicaの使えるパソコンが
何台かあるんだけど、「パソコン室」という迷宮の奥深くに封印され、
その姿を目にした者は数えるほどしかいないという罠。
197:nanashi
02/06/14 06:21
195のやつ、知らなかったんだけどなかなか良さげ。
使ってる人いる？
198:１３２人目の素数さん
02/06/24 20:53
聞かないねぇ
199:１３２人目の素数さん
02/06/26 02:57
200:１３２人目の素数さん
02/06/26 10:46
MAXIMA
ｽﾚﾘﾝｸ(sim板)l50
201:１３２人目の素数さん
02/06/28 15:29
202:１３２人目の素数さん
02/06/28 19:09
Mathematicaを極めたいんだけど
どうしたらいい？
あとどっかお勧めのサイトおしえて？
203:１３２人目の素数さん
02/06/30 02:40
204:１３２人目の素数さん
02/07/01 10:46
205:１３２人目の素数さん
02/07/01 14:43
206:１３２人目の素数さん
02/07/03 14:07
海女損からA NEW KIND OF SCIENCE届きますた
おもい
207:１３２人目の素数さん
02/07/06 22:33
Mathematicaっていくらすんの？
そして，どこでどうやって入手すんの？
208:１３２人目の素数さん
02/07/06 22:41
生協で買え!
209:１３２人目の素数さん
02/07/06 22:43
>>208
売ってねー．(京大）
210:円周率で彼女ができました！【ﾅｼﾞ】
02/07/07 00:06
マジなんですよ～。
円周率を２にするのは問題がある、という教育上の理念が一致して
彼女になったんだ。これがまたSEX能力が高いので毎日が楽しいでやんの！
211:１３２人目の素数さん
02/07/07 11:57
>209
とりよせてもらえるしょ
大学生協事業連合はいってるら
212:１３２人目の素数さん
02/07/07 12:16
mathematica関連のお薦め本
①mathematicaハンドブック 木村
②はやわかりmathematica第２版 榊原
③Mathematica プログラミング技法 メーダー
213:１３２人目の素数さん
02/07/08 19:41
>>212
①mathematicaハンドブック 木村
これさースゲー間違い多いよ
買って損した
214:１３２人目の素数さん
02/07/10 02:38
どこに間違いありました？教えて
英語のメーリングリストに登録すると、たくさんメールがくるよ。
初心者も投稿しているし、親切に答えてくれるし、すごくいいよ
215:１３２人目の素数さん
02/07/11 18:19
>>214
ここにいけばわかる
URLﾘﾝｸ(www.melt.kyutech.ac.jp)
216:１３２人目の素数さん
02/07/15 23:41
x<0の時はf(x)=2で、x≧0の時はf(x)=1となる関数を定義したいんですが、
どうやればいいでしょうか？
----------
|
|
|
------------
グラフを書くとこんな感じの関数です。
217:１３２人目の素数さん
02/07/16 14:01
↑
UnitStepって知ってるか?
218:１３２人目の素数さん
02/07/19 18:58
I(x)とW(x)をxの関数とし、
O(x)=I(x)*W(x) (*はたたみ込み積分)で、-1≦x≦1でO(x)のグラフを
書きたいんですが、次のようなエラーが出ました。
Plot::plnr: O is not a machine-size real number at x = -1..
General::"stop": "Further output of Plot :: plnr will be suppressed during this calculation.
下の様に書いたんですが、どこが間違ってるんでしょうか？
W = 2 * x
I = Exp[x]
O = FourierTransform[I, t, ω, FourierParameters -> {-1, 1}] *
FourierTransform[W, t, ω, FourierParameters -> {-1, 1}]
Plot[O, {x, -1, 1}]
219:nanashi
02/07/19 19:09
>>216
UnitStep 使っても良いし、
f[x_]:=If[x<0,2,1]
とやっても良いと思うのだが。
220:nanashi
02/07/19 19:32
>>218
なんか、突込みどころの多い式だな。
・I は虚数、O はオーダを表す予約語だから、使うな。
・W,I,Oは関数だから、宣言するときはW[x]=.... のように書け。
・というか、：＝で定義しておいた方が良い。
・FourierTransform,Plot の中で関数を呼び出すときも、I[t]、W[t]などの
ように書く。
・IやOの引数がxだったりtだったりしているが、統一した方が良い。結果には
影響ないが。
・そもそも、I*Wはグラフに描けるような関数なのだろうか・・・(無限大に発散
するのでは？)
221:218
02/07/19 20:16
>>220
式をそのように直してやってみたんですが、
Plot::plnr: O is not a machine-size real number at x = -1..
General::"stop": "Further output of Plot :: plnr will be suppressed during this calculation.
このエラーが消えてくれません。フーリエ変換の部分をこのように
Syu[t] := Integrate[w[t - x] * Nyu[x], {x, -∞, ∞}]
-∞から∞(もしくは負の大きい数から正の大きい数)
に直してやってみても同じでした。これは結果が発散しているということ
なんでしょうか？
URLﾘﾝｸ(www.elc.nias.ac.jp)
こんな感じで、入力I(x)と重み関数W(x)から出力O(x)I(x)*W(x)を
求めたいんですが…。
222:nanashi
02/07/19 20:19
>>221
ちゃんと
Plot[Syu[t]・・・・
になってる？O がどーのこーのっていうエラーが出てるから、
そのまま残っているのではないかと。
223:218
02/07/19 20:31
あ、>>218と同じエラーだったんで上からコピーしてきて
その部分直すの忘れてました。上のエラーでOの部分がSyu[t]となってます。
224:nanashi
02/07/19 20:43
すまん、
定義のときの左辺は_ をつけた方が良いな。ヘルプ参照。
f[x_]:=・・・
みたいに。
あと、畳み込み積分なら、最後に逆フーリエ変換しなきゃだめだよ。
ちょっと作ってみた。
f[t_] := Sin[t]
g[t_] := 1/(1 + t*t)
a[tt_] :=
InverseFourierTransform[
FourierTransform[f[t], t, w]*FourierTransform[g[t], t, w], w, tt]
Plot[a[t], {t, -10, 10}]
統一した方が良いって書いたけど、a の定義では区別しなきゃ
いけないから別の変数を使わなきゃいけなかった。
225:nanashi
02/07/19 20:48
直接たたみこみ積分やるばあいは、
a[t_] = Integrate[f[x]g[t - x], {x, -Infinity, Infinity}]
Plot[a[t], {t, -10, 10}]
こんな感じ。＝と：＝が入り乱れているけど、このあたりは
ヘルプ読んで。
226:１３２人目の素数さん
02/07/20 01:46
各分野毎にお勧めの書籍ってないですか？
上では はやわかりmathematica と Mathematica プログラミング技法があがってましたが
227:218
02/07/20 12:18
フーリエ変換を使う方法でやってみたところ、以下のようなエラーが出ました。
I(x)は短形波、W(x)はx=0から遠ざかるにつれて、x<0なら正の方向から、
x>0なら負の方向から0に限りなく近づく関数で、x=0のときは約2.3となります。
これらをたたみ込み積分して、-5から5の範囲でPlotしたんですが…。
Integrate::optx: Unknown option WorkingPrecision in (Integrate[
<< 1 >>]).
NIntegrate::precw :
The precision of the argument function
(e^(0.x(10^-15)i×(-1.593892×10^-23)[x]) is less than
WorkingPrecision (25).
NIntegrate::inum :
Integrand 4.0000000000000000
(-1.593892×10^-23)[-1.00000000000000000]
is not numerical at {x} = {-1.000000000000000000000}.
NIntegrate::precw :
The precision of the argument function
(2.71828^(0.x(10^-15)i×(-<<24>>)[x]) is
less than WorkingPrecision (25).
General::stop: Further output of NIntegrate :: precw will be
suppressed during this calculation.
General::stop: Further output of NIntegrate :: inum will be
suppressed during this calculation.
Integrate::optx: Unknown option WorkingPrecision in Integrate[
<< 1 >>].
Integrate::optx: Unknown option WorkingPrecision in << 1 >>.
General::stop: Further output of Integrate :: optx will be
suppressed during this calculation.
NIntegrate::slwcon: Numerical integration converging too slowly; suspect
one of the following: singularity, value of the integration being 0,
oscillatory integrand, or insufficient WorkingPrecision. If your integrand is
oscillatory try using the option Method->Oscillatory in NIntegrate.
NIntegrate::ncvb :
NIntegrate failed to converge to prescribed accuracy after 7
recursive bisections in x near x =
-2.28833×10^56).)
General::stop: Further output of NIntegrate :: slwcon will be
suppressed during this calculation.
General::stop: Further output of NIntegrate :: ncvb will be
suppressed during this calculation.
Plot::plnr: Syu[t] is not a machine-size real number at t =
-4.999999.
General::stop: Further output of Plot :: plnr will be suppressed
during this calculation.
228:１３２人目の素数さん
02/07/24 14:07
質問。Mathematica for MacOS Xって
なんかすごいグラフィックができた気がするんだけど、誰か
そのソースきぽんぬ。
229:１３２人目の素数さん
02/07/25 18:39
>>228
>>2より凄いやつ？
230:１３２人目の素数さん
02/07/25 20:20
>229
ゼリービーンズみたいな奴がたくさん
ぐにゅぐにゅするのです。
231:１３２人目の素数さん
02/07/27 23:00
Mathematica 4.1で TeX形式で保存したやつを Windowsで表示したいのですが
フォントの zwcymとか zwcvbとかが表示できません。
これらのファイルはどこで手にはいるんでしょうか。
232:１３２人目の素数さん
02/07/31 14:13
233:１３２人目の素数さん
02/08/01 17:26
Mathematica
234:１３２人目の素数さん
02/08/03 02:10
Mathematica 4.1 for win を一旦立ち上げちゃうと、
IME が激重になるんだけど、
対処の仕方誰か教えてください。
win2000 です。
確定 enter 押してから、ちゃんと入力完了するまで
とても待たされます。
Mathematica 終了させても症状が続く。
enter 押さなきゃいいみたいなんだけど・・・
235:１３２人目の素数さん
02/08/03 03:24
>>234
アンインストールという言葉を知っていますか？
236:１３２人目の素数さん
02/08/03 03:26
アンインストール以外の対処法を (T_T)
237:１３２人目の素数さん
02/08/03 04:03
Mathematicaはトラブル多い印象だね
カーネルがOS引きずってハングするし。
必要だから使ってるけど鎖、なんとかしてほしいぞ
げろげろWolfram
238:235
02/08/05 10:28
>>236
確かMathematicaは、Mathematica Kernel (計算機構) と
フロントエンド (ワープロ風の操作を実現している見かけコントロールソフト)
の2つのソフトの間を、Mathlinkとかいう技術で通信しながら
働いていたはず。
そのKernelの方が正しく終了せずに悪さをしているのでは？
Ctrl+Alt+Deleteでプロセスが残ってないか確かめてみたら？
もちろん、プロセスをちゃんと見ることのできるソフトを持ってれば
もっと正確にわかるわけだけど。
Unix系の移植にいくつかあったけど、純粋なWin2K用も URLﾘﾝｸ(www.vector.co.jp)
で探せばあるのでは？
239:１３２人目の素数さん
02/08/06 20:53
座標データを与えて、それをListPlot[data, PlotJoined -> True]で
グラフを書いたんですが、できたグラフをコピーしてBMP形式にしたところ、
Texに貼って印刷すると、グラフがガタガタというかギザギザというか、
滑らかでなくなって、グラフとして機能しなくなってしまいました。
BMPにした後にTexで拡大したのが原因だと思うので、Mathematicaで
グラフを描く時点で、印刷するときの大きさまで拡大して描けば問題ないと
思うのですが…。FormatのMagnificationで拡大しても駄目なようです。
Mathematicaで描いたグラフを都合の良い大きさに引き伸ばして印刷するためには
どのようにすればいいんでしょうか？
240:１３２人目の素数さん
02/08/06 22:40
かりきゅれーしょん・せんたー2ってのが売っていたが、
あれもMathematicaみたいにpassword入れんと動かんのか
教えちくり
241:１３２人目の素数さん
02/08/07 00:27
初心者の為 困っています．どなたかMathematicaに詳しい方が
いらっしゃいましたら教えてください．
やりたいことは，変数を純実数として定義することです．
これができないと，例えば，
x=I*a;
Re[x]
Out[1]=-Im[a]
となってしまいます．（これはaが複素数として扱われているからです）
私としては，aを純実数として扱って，Re[x]=0という解に
なって欲しかったのです．
（aには数値を代入したりするのではなく，文字の変数として扱います．）
どなたか博識な方，教えていただけませんでしょうか？
242:１３２人目の素数さん
02/08/07 01:03
あげ
243:１３２人目の素数さん
02/08/07 01:29
>>241
ここにも立ててたんか。
とりあえずこれ参照。
URLﾘﾝｸ(documents.wolfram.com)
244:１３２人目の素数さん
02/08/07 01:56
>>243
どうもです．
結構切羽詰ってるもんで．
仮眠とってから，色々試してみます．
245:１３２人目の素数さん
02/08/08 20:58
3つ以上の二次元座標データを与えて、左から3点を放物線の
始点、頂点、終点として、いくつかの放物線が連結されたグラフ
(というかニュートン・コーツの複合シンプソン則のグラフ)を
描きたいんですけど、Listplotでは座標を直線で結ぶことしかできない
みたいなんですが、どうすればできますか？
最初スプライン曲線で書こうと思ったんですが、調べてみたらそれも
できないみたいだし・・・。
レポートの締め切りがあれなんでちょっと急いでます（；´Д`）
246:１３２人目の素数さん
02/08/09 00:42
age
247:１３２人目の素数さん
02/08/22 23:36
演算子の差を作りたいんです。
(f-g)[x]
を計算させてやりたんですが Through すると
f[x] + (-g)[x]
になってしまいます。
どーやったら
f[x] - g[x]
なんてのを返してくれるようになりましょう？
248:１３２人目の素数さん
02/09/04 11:02
249:１３２番目の素数でしゅ。
02/09/12 19:40
agetemimasu,mazuha
250:１３２番目の素数でしゅ。
02/09/12 20:07
graph=Plot[Sin[x],{x,0,2Pi}];
Show[Graphics[{Thickness[0.001],Map[Line[{{#[[1]],0},#}]&,graph[[1,1,1,1]]]}],Axes->True]
上のようなプログラムを打つと、実はSinカーブのグラフとそのPlotPointsの位置を調べるものなのですが、Map以降のこのプログラムの動き方がよくわかりません。
誰か、教えてください。
251:１３２番目の素数さん
02/09/12 20:18
サッカーボールの描き方を教えてください。ちゃんと白黒２色刷りのものです。お願いします。
252:１３２人目の素数さん
02/09/13 17:00
>>251
紙とコンパス、定規、鉛筆、カッターは用意できましたか？
それでは (以下略)
253:１３２番目の素数さん
02/09/13 23:00
ありがとう。がんがります。
254:１３２人目の素数さん
02/09/14 11:09
>>251
サッカーボール描くのに、カッターは何に使うのでしょうか？
255:１３２人目の素数さん
02/09/17 05:36
いや、描いたらその後組み立てるのだとばかり。
R.マドリードの読売G軍化はんたーい。
256:１３２人目の素数さん
02/09/21 15:32
５万円以内で買う方法ないですか？はっきりいって余計な機能は
要らない。計算エンジンだけがほすい。
昔はStudent pack とかいって2-3万で売ってたよな。今は無いです…
それに学生じゃないし。
257:１３２人目の素数さん
02/09/21 19:43
どうしてもmathmaticaでないとダメなの？
無料の数式処理ソフトなら他にも色々あるよ
258:１３２人目の素数さん
02/09/21 19:48
数学記号をクリックで入力できるパレットが表示できん！
表示の仕方教えて-。
明日提出なのー。
259:２５６
02/09/21 21:16
>>257
昔、Mathematica3.0.1を使った事あるんですが、やりたい事は
優先順位を付けて書くと
1. 線形１次方程式の解を代数的に求めて欲しい。-> Solve
3,4次まででなく、５，６次以降でも方程式でも解けるなら解いて
欲しい。係数は整数値だけ。
具体的にはLLLアルゴリズムで求めた方程式を代数的に解くのに
使います。それなんで、かなりこのエンジンが強い方がうれしい。
2. Σとか含まれる式が、有理数だったり、πとかeで表せる式なら
その値に変換して欲しい。これは数式処理ソフトのデーターベース
がどれだけあるかが重要なんですが、Mathematica3.0.1同等なら満足
です。
3. 数式の簡略化
4. 簡単なプログラミング機能。
なんですが、これらを満たす無料のソフトがありますでしょうか。
260:１３２人目の素数さん
02/09/23 10:18
>>257
数式処理ソフト
URLﾘﾝｸ(home.att.ne.jp)
Maple7（学生版）
URLﾘﾝｸ(www.cybernet.co.jp)
261:１３２人目の素数さん
02/09/28 17:36
Mathematicaのキーバインディングかなり使いにくいんだけど誰か
変えた人いる？
262:１３２人目の素数さん
02/10/05 19:56
Mac & Win は、日本国内では今後日本語版のみしか販売しないそうだ。
日本語版は英語版の機能を包括するって。。。
はあぁ。。。
263:１３２人目の素数さん
02/10/06 00:08
>>259
MuPadがいいのでは？
264:263
02/10/06 00:15
URLﾘﾝｸ(www.xmath.ous.ac.jp)
とか見てください。
あと最近本も出たみたいです。
265:１３２人目の素数さん
02/10/06 19:15
これね
URLﾘﾝｸ(www.amazon.co.jp)
はじめてのMuPAD―MuPAD Pro2.0 forWindows
赤間 世紀 (著)
出版社/著者からの内容紹介
MuPADは，ドイツの Paderborn 大学で開発された数式処理システムです．イ
ンターネット上のホームページで誰でも簡単に入手できます．また学習・教
育・研究目的の個人使用の場合に限り，フリーでも使用可能なので，世界的
に人気が上昇しているソフトウェアです．本書は，Windows 版の MuPAD Pro
version 2.0 を対象に，そのダウンロード方法から実際の利用方法までを実例
に基づいてわかりやすく解説した入門書です．微積分学と線形代数学から豊
富な例題を扱い，さらにグラフィックスとプログラミングの機能についても説明
しています．本書を通じて読者は，コンピュータ代数の概要とその大きな可能
性までをも実感することができるでしょう．
266:１３２人目の素数さん
02/10/14 17:57
エクセルのソルバーで制約式の量が多くてエラーが出て困ってます。
そこで、Mathmaticaでやろうかと思ったのですが、
Mathmaticaで最適化は可能なのでしょうか？
またその方法を教えてください。
関数とか教えてくださればあとは自分で調べます。
お願いします。
267:１３２人目の素数さん
02/10/15 22:22
>>266
可能です。
Excel ソルバー感覚なら別売りの最適化のアドオンソフト。
後は自分でコツコツ作る。。。
ただ、 Excel ソルバーに慣れている感覚では
手に負えないと思います。
268:266
02/10/16 00:42
>>267
レスありがとうございます。
いちおＣ言語はかじったことがあるのでプログラムに関しては、
できると思います。
問題は近くにmathmaticaをできる人がいないので、
方向性がまったくわからないと言うことです。
別売りのアドオンは、「Mathematica Link for Excel 」でしょうか？
これを購入してがんばってみるしかないかな。
269:１３２人目の素数さん
02/10/16 03:22
誰か、Mathematica で Barnes のG-関数、あるいは
多重ガンマ関数の計算をする方法を知りませんか？
270:１３２人目の素数さん
02/10/16 19:53
>>268
別売りのアドオンはそれではありません。
それは、 Mathematica と Excel を On the Fly で
つなぐソフトです。
別売りのパッケージというのは、
Global Optimization 4.2
Reliable Global Optimization for Constrained and Unconstrained Nonlinear Functions
多分十数万円ぐらいするのではなかったでしょうか。日本だと
Hulinks が扱っている記憶があります。
Excel ソルバーを使っていたならば、 Mathematica
ではなく、 Excel Add-on のソルバー What's Best!
を使う方が実践的のように思えます。
もっとも僕は What's Best! は見たことしかないので
自信を持って薦められる訳ではないです。
271:266
02/10/17 23:07
>>270
詳細thx!!
個人で買うにはちょっと高いですね。
Excel Add-on のソルバー What's Best! の評価版を
ＤＬして使ってみようと思ったのですが、英語なのでさっぱりです。
日本語の解説サイトもないみたいですし、WEB翻訳を駆使しながらやるしかないですね。
Mathematicaハンドブックを買ってきましたが、最適化のプログラムに関して、
何も書いてなかったので拍子抜けでした。
Mathematica4.2だと最適化が組み込まれる見たいですが、
もっているのは4.1のstudent版です。
日本語ヘルプを見ながらいじくってみたいと思います。
ありがとうございました
272:１３２人目の素数さん
02/10/19 15:28
6×6行列のハウスホルダー変換を行いたいのですが、
Mathematicaでは、どうやったらできますか？
273:１３２人目の素数さん
02/10/22 21:39
>>269
ふつうにPolyGammaでいいんじゃないの？
274:１３２人目の素数さん
02/10/22 23:03
ﾏｽﾏﾃｨｶとCどっち勉強しよう…
275:１３２人目の素数さん
02/10/22 23:08
両方、すれ!
276:１３２人目の素数さん
02/10/24 21:35
フーリエ級数展開はどうするんですか？
helpみたいに
<<Calculus`FourierTransform`
FourierTrigSeries[t,t,4]
としても出来ません。
277:１３２人目の素数さん
02/10/30 19:56
278:１３２人目の素数さん
02/10/30 22:27
Mathematicaで微分を解く際に、初期条件が必要となる
理由を教えてください
279:１３２人目の素数さん
02/10/30 22:38
初期条件なしで一般解求まるのもあるよ。
280:Mathematica
02/10/30 23:06
>272
QRDecomposition[m]
は使えないのだろうか？
281:１３２人目の素数さん
02/10/30 23:30
>>278
コンピュータは頭が悪い
以上
282:１３２人目の素数さん
02/11/01 17:39
Mathematicaを買おうと考えているのですが、
姉妹製品（？）として、CalculationCenterというのがあります。
URLﾘﾝｸ(software.univcoop.or.jp)
お使いの方がいらっしゃいましたら、評価を聞かせてください。
283:１３２人目の素数さん
02/11/01 21:08
>>282
やめれ
Mathematica - 数式処理 - 関数型プログラミング
という縮小版。まず別物ね。
Win なら値段も手ごろな mupad をお勧め。
もっともリスト処理プログラミングを希望なら
mathematica しかないけど。
284:GO_MAXIMA
02/11/01 21:23
数式処理システムなら MAXIMAにしなはれ。
ｽﾚﾘﾝｸ(sim板)
これが使いこなせれば 商用のシステムはいらんよ。
リスト処理もらくらく。
285:１３２人目の素数さん
02/11/01 23:48
>>284
いつも別スレッド見てます。かな？
準備の手間さえ惜しまなければそうかもしれませんね。
Mathematica は日本での価格はどんどん高くなって
当たり前だが、もう単なる一個人は眼中無し。業務用っす。
ず～と使い続けられるのかが、所属組織に依存するのは
あまりほめられたツールではないっすね。
中も全部解読可能な MAXIMA は、大学生の
数学処理環境として、チャレンジに値するかも。。。
と思います。まあ MAXIMA すること自体が
目的となる本末転倒にならないように
という感じですか。
286:１３２人目の素数さん
02/11/02 00:33
多項式 \sum_{k=0}^N a_k x^k に対して、2回微分したものを
\sum_{k=0}^{n-2} k(k-1) x^k とsimplifyすることってできますか？
mapleではできそうにないし、
assume(n>10);assume(m<10); #実は意味無し
S := x -> sum(a[k]*x^k, k=1..n);
として、
coeff(S(x), x^m);coeff(S(x),x^3);coeff(diff(S(x),x), x^3);
ってやるとどれもエラーになります。nに具体的な値が入ってれば
x^3の係数は求められるのですが。
mathematicaでは同じようなことができますか？
287:１３２人目の素数さん
02/11/02 07:28
MapleとMathcadについてはどうですか？Mathematicaと比べると
288:282
02/11/03 22:59
多数のレスありがとうございます。
>>283
マイナス数式処理というのが痛そうです。
プログラミングまでは手を出すかは分かりません。
宝の持ち腐れにならないように、買うと決めたら頑張ります。
mupadも調べておきます。
聞いたことはありますが、それほど意識はしていませんでした。
>>284
MAXIMAは初耳です。
これも調べておきます。
情報ありがとうございます。
>>285
Mathematica高いですね。
いま、大学に在学しているから手が出ますが
卒業してからも使い続けようと思ったら大変ですね。
>>287
MapleとMathematica、古いバージョンでは
Mapleは計算が速いが、解けない問題が結構ある、
ような感じはしました。
その後、両者ともに改善はしているとは思います。
Mapleの計算の速さは、円周率の計算とか
下手に自分でC言語で書いたマチンの公式なんかより
ずっと高速で驚かされたものです。
289:283
02/11/19 21:50
>288
ー数式処理というのはちょっと言い過ぎで
ーαx数式処理 但し 0<α<1 です。
Integrate[x^n,x] が 1(/n+1) x^(n+1) になるのに
Inregrate[x^2,x] が 0.3333333 x^3 になるのは
ちょっと制約付け過ぎだろ。。。
まあ値段が割高の気がするけど、アウトライン機能付
数式清書システムもついていると思うと悪くないのかも。
ただ PowerPoint みたいなプレゼン資料中心だと
Mathcad やカルキングみたいな Draw ソフトベースの
方がいいでしょう。
290:１３２人目の素数さん
02/11/20 03:41
Mathematica4.1とMathType5.0でデータをやり取りしたいんですがどうすればいいのでしょうか？
291:１３２人目の素数さん
02/11/21 21:53
目立つように揚げ
292:１３２人目の素数さん
02/11/22 01:26
Mathematica3.0Student版からProfessional版へのアップグレードなら108,000円で済む
URLﾘﾝｸ(software.univcoop.or.jp)
ちなみに、バージョン 3.0からのアップグレード受付は、2002年12月25日をもって終了とのこと
おれはとりあえずこれでアップグレードしといたんでパスワードをわざわざ入手する必用は
なくなったけど、まあ、この値段は高いっちゃ高いね。（普通に買うよりは安いが・・・）
293:１３２人目の素数さん
02/11/30 00:23
Mapleかな
294:１３２人目の素数さん
02/12/01 08:30
Mathematicaのバージョンってこのまま、(4.2→)4.3→4.4→・・・って
上がっていくの？
295:１３２人目の素数さん
02/12/01 10:13
そりゃ、上げていって昔のバージョンを陳腐化させ、
常に１０万程度の更新料を取っていかないと
会社として成り立たないからね。
296:１３２人目の素数さん
02/12/01 10:43
CalculationCenterですが、
再インストールは
Mathematicaのように新しいパスワード発行してもらう必要がありますか?
297:１３２人目の素数さん
02/12/01 10:50
質問です。十進数を２進数に変換するのに
BaseFormというコマンドがありますが、
出力が10100_2とかなってしまいます。(_2は下付添え字)
結果を各桁のリストでほしいのですが。
なんかありませんか?
298:長文ごめんなさい。
02/12/01 11:33
こんにちは。TeX形式へのエクスポートについて質問させてください。
成功した方はいらっしゃいますか？
tex形式でのセーブは行えるのですが、DVIに変換すると、
>GUI-Shell Message: できあがった文書で期待した文字が使用されていない可能性があります。
>LaTeX Font Warning: Font shape `JT1/mc/b/n' undefined
>(Font) using `JT1/mc/m/n' instead on input line XX.
というメッセージがでてしまいます。
できあがったDVIを見ると、積分記号などが表示されません。
C:\Program Files\Wolfram Research\Mathematica\4.0\SystemFiles\IncludeFiles\TeX\texmf
以下のフォントやスタイルのファイルをTeXのフォルダーにコピーしたのですが、
（ >>231さんが悩んでいる部分は解決！ ）
そのあとに何か設定などが必要なのでしょうか。
URLﾘﾝｸ(support.wolfram.com)
ここでTeX関係を調べたのですが、うまくいきませんでした。
Mathemateicaのバージョン4.0で、TeXは最近角藤さんのところで落としてきたLaTeXです。
どなたかアドバイスよろしくお願いします。
299:１３２人目の素数さん
02/12/01 13:06
>297
Help で BaseForm 引いたら、関連項目で出てくるよ
>298
僕も今苦戦中。僕の場合は pdflatex なんだけど
font が使えないとのアラート。
Type1 のフォントは部分ダウンロードすると駄目
らしいのでフォントの対応関係を部分ダウンロード
に変更する必要があるようです。
詳しくは wolfram で TeX をキーワードにして
検索するとわかります。
後、ファイルの更新ですがこれは大丈夫そうですよね。
300:１３２人目の素数さん
02/12/01 13:10
>296
一般用だとパスワード発行手続きはありません。
教育用はしらない。
301:298
02/12/01 18:26
仲間発見！これは心強いです。
アドバイスどうもです。
奥村さんの掲示板の過去ログ読んでたんですが。
どうやら彼の本にMathematicaのフォント関係の内容も載ってるそうです。
明日、立ち読んできますね。
302:１３２人目の素数さん
02/12/01 19:31
?>301
奥村さんの掲示板は知らなかった。
なお僕のエラーはまだまだ少ない pdflatex のため
以下のようになっています。
Warning: pdftex (file Math4.pfa): cannot open Type 1 font file for reading
いわゆる dvips とは違うみたいですね。
これってプロテクト君の話なのかな？？
でも t1disasm できるんだね。。。
303:１３２人目の素数さん
02/12/01 21:30
>300
Thanks!
Calculation Center2買います
304:１３２人目の素数さん
02/12/01 21:34
>299
IntegerDigitsですね。
感謝
305:１３２人目の素数さん
02/12/03 22:25
ｎ の値を具体的に定めない状態で ｎ 行n 列の行列の計算はできないんですか？
一般公式を求めるみたいなことがしたいのですが Array[a, n, n]は ｎ が空のまま
では使えませんでした。
306:１３２人目の素数さん
02/12/04 13:30
MAXIMAをダウンロードして使ってみました。(Windows版(ﾟДﾟ；)
macsymaのGNU版っていうことでよろしいでしょうか？
すんばらしい！
フリーでこんないいソフトが使えるんならほとんどの人には
これで十分じゃ あーりませんか
307:１３２人目の素数さん
02/12/04 13:41
>>306
なんですと！
もっと詳しくおしえてほしいなり
308:１３２人目の素数さん
02/12/04 13:46
これか？
数式処理システムMaxima
URLﾘﾝｸ(www.geocities.co.jp)
309:１３２人目の素数さん
02/12/04 15:01
zeta(3);
を実行したら・・・・・・
prime(2003);は実行不可。
でもただだからいいよ、maxima
310:GO MAXIMA
02/12/04 15:23
primep(2003);
でtrueが 返って来るだろうが。
helpは describe(prime); 読める
primeは廃止でprimepになったとあるだろうが
まあ シュミレート版のMAXIMAスレをみろよ
311:１３２人目の素数さん
02/12/04 17:09
go-maximap(読む（空気））=nill
312:１３２人目の素数さん
02/12/04 17:16
>>311 うまい! 100点
313:１３２人目の素数さん
02/12/04 17:21
>310
> まあ シュミレート版のMAXIMAスレをみろよ
おっ、そんなスレが！
さっそく逝ってみよう
314:１３２人目の素数さん
02/12/05 12:57
Re[z]
ってやると{}で出てくる場合があるんだけど､それって
虚数をとった値ですよ
ってことなのですか？
315:１３２人目の素数さん
02/12/05 13:11
実部のこと?
zがなんだか、
具体的に書いてくれ。
316:１３２人目の素数さん
02/12/05 13:56
REALPART (exp) のことれすかー
317:１３２人目の素数さん
02/12/05 19:29
計算でたとえば偶数だけたしていきたい時ってどのようにプログラムするんですか?
例として
1/(n!)
でnが偶数のときのみを求めたいのですが･･･．
おながいします。
318:298
02/12/05 23:39
いろいろ試したのですが、どうやら俺にはできなさそうです。
成功された方の登場を気長に待ちます。
Windows環境で、
MathematicaのTeX形式でセーブしたデータを、
LaTeXを使い、DVI表示させる。
俺がしたいのはそれだけです。
毎日このスレ見に来るので、成功された方は一言アドバイスお願いします♪
319:１３２人目の素数さん
02/12/09 11:02
>>318
windows環境じゃないけど。
wolfram.map では *.pfb なのについてきたフォントはpfaで、
pfb形式のフォントが無かったから、pfb形式に変換したら
うまくいったよ。
ちなみに
>LaTeX Font Warning: Font shape `JT1/mc/b/n' undefined
>(Font) using `JT1/mc/m/n' instead on input line XX.
は関係ないです。xdviがエラーをはいてるはず。
320:１３２人目の素数さん
02/12/09 11:19
>>317
Apply[Plus,Table[1/n!, {n,0,10,2}]]とか、
f[n_?EvenQ] := 1/n!;f[n_] := 0; Sum[f[n],{n,0,10}]とかいうこと？
321:319
02/12/09 11:36
訂正。 wolfram.mapのpfbをpfaに書き換えるほうがいいかもしれません。
322:１３２人目の素数さん
02/12/09 23:53
>319
Mac OS X 版についてきた wolfram.map は
pfa なんですよ。 < を << にしてゼーンブ
ダウンロードにしたんですけどね。
read 用に開けないってプロテクトか？？
323:TeXFan
02/12/10 01:31
>318
MathmaticaのどれをTeXで表示したいかによります。
式だけとかグラフだけとかをTeXで表示したいならば、
Mathmatica のnotebook画面で、
TeXForm[式]とすれば、TeXで書いた式が出力されるので、それをカット
アンドコピーすればいいですし、そうではなくて、mathmaticaのnotebook
画面そのものをTeXにしたいというのであれば、まず、Mathematicaの
フォルダーにあるTeX関連フォントファイル(Type1,vf,tmf)をそれぞれ
TeXmf/fonts/以下のファイルにコピーします。
さらにwolfram.mapファイルをエディターで開き、
Math1 Math1 <Math1.pfa
...
と書かれているので、
＜Math1.pfa
を消す。以下同様にする。
さらに、type1にコピーしたmathmaticaのType1フォントの中にあるファイ
ルのうち、今のmapファイルに書かれていないフォントの名前を上の要領
で追加する。
そうしてこのmapファイルの名前をたとえば
mma.map
という名前で/texmf/dvips/condig/に保存して、
この/configデイレクとリーにある、
config.ps
に
p +mma.map
という一行を追加する。
こうすれば、
mathmaticaのnotebook画面に表示されているものを、
File->Sabe as Special->TeX
で（拡張子を.texにして）保存すればよい。
324:１３２人目の素数さん
02/12/10 05:00
>>323
TeXFormの場合もフォントその他の設定は必要です。
325:TeX愛好家
02/12/10 15:17
＞324
必ずしも必要ではありません。
たとえば、
In[1]=(x +y)^2 /Sqrt[x t]
を実行した結果を
In[2]=TeXForm[%]
で出力すると、
Out[3]/TexForm=
\frac{x^2\,y^2}{{\sqrt{x\,y}}}
となって、この改行された部分だけを、TeXファイルにコピーすればよい
からです。
TeXSaveの場合は、別です。この場合は当然フォントがインストールされ
ていなければなりません。
de
326:１３２人目の素数さん
02/12/10 16:41
で、あるか
327:319
02/12/11 07:57
>>322
プロテクトってのはありえません。
たんにフォントが見つからないってことだと思います。
mktexlsr相当のものでls-Rを更新してないか、dvips相当のことをする
もの設定ファイルが適切に書きかわってないか。
dvipsの種類によって設定ファイルが、
config/config.psでなくてbase/config.psだったりするから
pdftexそのへんも注意。
verbose/debugオプションとかをつかって調査してはどうでしょう。
328:１３２人目の素数さん
02/12/11 09:44
【質問】CalculationCenter2で、分数の計算をすると
数値になってしまいます。対処法はありますか?
例 1/2+1/3
0.8333333333
定積分も同じです。
Mathematicaのkernelを使っているので、文字計算はできるので
設定で替わるのかと思ったのですが。
329:１３２人目の素数さん
02/12/11 15:49
まったくわからないので、わかる人いたら、助けてください。宿題なのですが、、、
[問題]
ClassPoints[{0,0}]:=0
ClassPoints[{x_,0}]:=-1
ClassPoints[{0,y_}]:=-2
ClassPoints[{x_,y_}]:=1/;x>0&&y>0
ClassPoints[{x_,y_}]:=2/;x<0&&y>0
ClassPoints[{x_,y_}]:=3/;x>0&&y<0
ClassPoints[{x_,y_}]:=4/(*/;x>0&&y<0*)
上記の複文節による定義をそれぞれIf及びWhichを使って書き換えよ。
引数が(-1,-2)であるような場合について最終結果を得るまでに行われる
比較の回数を述べよ。更にどのようにすれば効率化されるか検討し、
実際に比較回数を減らした定義を行え。この場合、IfもWhichも双方ネスト
して使われる。
という問題です。初心者なので、さっぱりわかりません。よろしくお願いします。
m(__)m
330:329
02/12/11 15:58
訂正します。
ClassPoints[{0,0}]:=0
ClassPoints[{x_,0}]:=-1
ClassPoints[{0,y_}]:=-2
ClassPoints[{x_,y_}]:=1/;x>0&&y>0
ClassPoints[{x_,y_}]:=2/;x<0&&y>0
ClassPoints[{x_,y_}]:=3/;x<0&&y<0 ←ここ間違いでした。
ClassPoints[{x_,y_}]:=4/(*/;x>0&&y<0*)
331:初心者
02/12/11 22:08
Mathemaicaのプログラミングについて、詳しく書いてある本
知りませんか。日本語、英語可。
332:１３２人目の素数さん
02/12/11 22:54
Mathematica買うくらいならC++の入門書買った方がよくないですか？
Mathematicaって10万以上するんでしょ？
333:１３２人目の素数さん
02/12/11 23:30
>332 学生版なら３万、教授なら２５万、社会人なら３５万。
>331 探せば数冊出てくるが。。。 Amazon か Wolfram で探す
>330
分からないのは書き換え？
Help の Which や If 見ればわかると思うが。。。
それとも効率化？
場合分けの木（二分木）を書いてみるとわかるかも
334:１３２人目の素数さん
02/12/11 23:37
>330
１）ClassPoints は、なにをしているのかは分かりますよね？
２）等号／不等号は合っています？
１）をふまえると、ちょっと違和感を感じるのです。
些細な事ですけどね。
335:１３２人目の素数さん
02/12/12 09:28
>>332
Kazaaに死ぬほど出回ってるよ
336:298
02/12/12 20:01
>>319さん >>323さん >>323さん >>325さん
ありがとうございます♪
いくつか質問させてください。
フォントのコピーと、wolfram.mapの編集まではできたのですが、
wolfram.mapはどこに置けばいいのでしょうか？
また「p +wolfram.map」と追加する必要はないのでしょうか？
質問する前に、あらゆるパターンで実行してみたのですが、
積分やシグマ記号だけが表示されなかったり、
フォントを作ってる途中で「応答なし」になったり、
pkファイルのエラーで強制的に閉じたりしました。
質問ばかりで申し訳ないですが、もう少しだけお付き合いください。
どなたかアドバイスお願いします。
あと、dviへの変換時に、
(c:/TeX/share/texmf/tex/latex/wolfram/ot1zwar.fd)
! Not two-byte family.
<to be read again>
\relax
というエラーが出ます。
表示されない原因に直接は関係していないと思いますが、
これについての情報がありましたらお願いします。
337:TeXFan
02/12/12 22:12
>336
wolfram.mapは、/texmf.dvips/configにコピーします。p +wolfram.mapは、texmf/dvips/config/にあるconfig.psに追加します。エラーメッセージについ
ては、わたしもこれがでてかなりなやまされましたが/texmf/fonts/type1/worflam
に這入っている*.pfaフォントの名前をすべて、wolfram.mapの
Math5Mono Math5Mono
Math5Mono-Bold Math5Mono-Bold
の後に、
cour cour.pfa
courb courb.pfa
couri couri.pfa
Swiss721BT-Bold Swiss721BT-Bord.pfa
Swiss721BT-BoldItaric Swiss721BT-BordItaric.pfa
Swiss721BT-Itaric Swiss721BT-Itaric.pfa
Swiss721BT-Roman Swiss721BT-Roman.pfa
UTB___ UTB___.pfa
UTBI___ UTBI___.pfa
UTI___ UTI___.pfa
UTRG___ UTRG___.pfa
c0632bt_ c0632bt_.pfa
c0633bt_ c0633bt_.pfa
c0648bt_ c0648bt_.pfa
c0649bt_ c0649bt_.pfa
を付け加えて表示できるようになりました。
なお、Type1にフォントがあるのでDVIOUTでうまく表示できなくても、
ｐｓファイルやｐｄｆファイルに変換すると、きれいに表示できます。
338:298
02/12/13 00:52
早速のアドバイス本当にありがとうございます！
その方法も試したのですが、DVIOUTがフォントを作る画面で固まってしまうという、
いちばんタチの悪いエラーになっちゃいますね。
もう少しいじってみますね。
せっかく丁寧なアドバイスをいただいたのに申し訳ないです。
339:319
02/12/14 06:12
windows環境でやってみました。
321の修正をすると
> platex hoge.tex
> dvips hoge.dvi
> gswin32 hoge.ps
で正常に表示できるようになったよ。
pdftex.cfgにもp +wolfram.mapをつけくわえると、
> pdflatex hoge.tex
でpdfをつくるのもOK。
dvioutはいれてません。
340:319
02/12/14 07:34
dvioutいれてみました。MathematicaのFontも
BaKoMaと同様の問題があるらしく、
dvioutの設定のTEXPKの欄にある
*.tfmを含む部分を全部消すと、文字化けせずに表示できます。
# Integral[f[x],{x,0,1}]だけのファイルでテスト。
# でもpdftexがあればdvioutって使う必要無いような。
まとめると、
0) Includefiles/TeX/texmf 以下のファイルを(dvips/,pdftex/以外)を $TEXDIR/texmf/ にコピー。fdファイルの入っているtex/も忘れずに。
1) $TEXDIR/texmf/dvips/config/ に wolfram.mapをコピーし、pfb -> pfaに変換。
2) config.psにp +wolfram.mapを追加。
これでdvipsk(338のdvipsはdvipskの誤記)
でpsが生成できる。さらにdvioutで表示したいなら、
3) dvioutのFont設定のTEXPKの欄にある*.tfmを含む部分を全部消す。
341:298
02/12/14 14:32
ありがとうございます♪
今からバイトなので帰ってから試してみますね。
ひとまず今はお礼だけ。
dvioutを使わないというのは目からウロコでした！
教わった方法でうまくいかなかったときは、dvioutを使わない方法も試してみますね。
342:１３２人目の素数さん
02/12/15 02:55
BaKoMaフォントを使わせる方法ってないですか？
343:１３２人目の素数さん
02/12/17 16:00
Mathematica 正規ユーザです。
こんなのもおもしろいかも
ＴＩ92+の後継機
Voyage200 注文しました。
URLﾘﾝｸ(www.naoco.com)
昨日注文して今日到着予定です。
見積もりメールサンプル
-------------------------------------
subject: (値段問合わせ)voyage200
to: ti-calc@naoco.com
おいくらでしょうか？
voyage200 1台
--
氏名
------------------------------------
そうすると丁寧なメールが返ってくるので「注文します」って
また返信します。代金は後払い（２週間以内）です。
31,800＋消費税のはずどす。
344:１３２人目の素数さん
02/12/19 11:08
コヒーレント状態の総和を無限大まで取ると1に収束できるのですが、
スクイズド状態だとエルミート多項式のせいで500辺りで止まってしまいます。
無限まで固まらずに求められる方法を知ってる人がいましたらおながいします。
ちなみに、優先度は高にしていますし、仮想メモリも十分に取ってます。
345:１３２人目の素数さん
02/12/19 12:35
>343
業者の方ですか?
Mathematicaがあれば全く不要と思います
346:３４３
02/12/19 17:26
業者の者ではあらしまへん
「昔のＰＣ」板 ポケコン総合スレッドでｖｏｙａｇｅ２００を知り
衝撃買いをしてしまった者です。
mathematicaも持っていますが電卓の手軽さで数式処理
までできてしまう。
このスレにも紹介したくなったですよ。
347:１３２人目の素数さん
02/12/19 21:35
LX200 に Derive 入れた人も結構いたな
348:１３２人目の素数さん
02/12/19 22:15
mathmaticaって高スペックじゃないとダメかな？？
おせーてください
349:１３２人目の素数さん
02/12/20 03:26
>>348
計算量による。
職場じゃPenII&384MBで使ってるけど、
MALTAB自体が重いことはない。
350:349
02/12/20 03:32
MATLABじゃねぇ、mathmaticaだ
鬱
351:１３２人目の素数さん
02/12/20 10:17
>348
「ダメ」というのがどれ以上がダメなのか？
こういう計算が何秒以内ならＯＫでそれ以上ならダメとかいう指標が
ないと主観の問題だからね
高性能すぎて困ることはないから今だとPentium4 3.06GHz(Hyper threding)＆メモリ１ＧＢ
くらいにしとけば誰も文句は言わない
Mathematicaってマルチスレッドの恩恵に預かる場面ってあったっけ
352:１３２人目の素数さん
02/12/22 10:54
>>349
職場でmathematica使ってるなんて凄いね。
俺なんか、職場ではexcel（分析ツールなし）とwindows標準の電卓（普通の方）
で事足りる。技術職だけど。
353:１３２人目の素数さん
02/12/22 11:19
>352
ＭＡＬＴＡＢ（ＭＡＴＬＡＢの綴りまちがい）だって言ってるんだよボクェ！
354:山崎渉
03/01/11 12:31
（＾＾）
355:１３２人目の素数さん
03/01/14 22:18
すいません。質問なのですが研究室で
mathematicaで波動関数のアニメーションを作ろうと思うのですが現在の環境
clerone 1.3G
memory 512MB
VGA G550 (1024x768)
windows 2000 SP3
液晶ディスプレイ
の環境で動かすとコマ数が64にすると画面やけのような現象が起こり、
ついにはハングアップしてしまいます。
それで充分な描画表示能力のあるハードを買おうと思います。
理想としては256コマを裁けるような感じにしたいのです。大体どのくらいのスペックが必要なのでしょうか?
あまりコストがかかるようならば、ある程度は妥協したいと思ってます。
宜しくお願いします。
356:１３２人目の素数さん
03/01/20 04:35
357:１３２人目の素数さん
03/01/20 10:46
(･∀･)ｹﾞﾊﾊﾊﾊ
358:１３２人目の素数さん
03/02/02 09:04
359:教えて君
03/02/02 18:26
リストの操作で mogi={23,43,59,66,33,25,56,89,51,45.66}
からi番目の要素からｊ番目の要素を足すという操作を自動で行いたい時は、どうしたら
いいのですか。
数列ならシグマをつかえばいいのですが、それに似たことです
360:１３２人目の素数さん
03/02/02 18:37
Sum[mogi[[k]], {k, i, j}]
361:１３２人目の素数さん
03/02/02 23:35
マスキャドを電卓がわりに使ってます。
後、メイプル（微分方程式の解析解なんか求めるとき）
mathematicaはつかいずらい、印象があります。
本はいっぱいでてるけど・・・
362:教えて君
03/02/03 18:18
A*x=0 ここで Aは、11*11 の行列 でこの線形方程式を解くには、どの関数を
使ったらいいですか
363:１３２人目の素数さん
03/02/04 01:05
外国の数学本を読む人へ ５冊（入門書から一般書まで）
URLﾘﾝｸ(page3.auctions.yahoo.co.jp)
364:１３２人目の素数さん
03/02/04 14:44
関数の定義で、1つの変数をあたえて、２つの戻り値を得ようと思います。
関数の内容は、自分で定義した関数やSolveなど２１個の評価を行い、最終的には
2つ値を求めるものです。1つの式にできれば、問題ないのですが、それはできません
お願いします
365:１３２人目の素数さん
03/02/04 22:30
>364
単にリストにすればいいような気がするが。。。
366:１３２人目の素数さん
03/02/04 23:49
364のものです。
foo[n_] := Module[{}, ]を使って解決しました。
367:１３２人目の素数さん
03/02/05 17:16
A.x=0 Aは係数行列 ｘは変数ベクトルをあらわします。
この方程式をとくのに、最適な関数を、教えてください
368:通りがかり
03/02/05 19:14
>367
NullSpace[A]:
Ax=0を満たす自明でない解となるベクトルのリスト
369:通りがかり
03/02/06 00:03
>362
>367
>368 の方法で良いけど、ここも参考になるかも。
URLﾘﾝｸ(www53.tok2.com)
370:１３２人目の素数さん
03/02/06 01:21
>362（=>367だとは思うが）
det(A)≠0なら
x=(0,0,0,0,0,0,0,0,0,0,0)'
det(A)=0なら
NullSpace[A]で基本解の導出
371:１３２人目の素数さん
03/02/07 18:13
mathematica でPlotしたグラフをWordで表示する方法を教えてもらえませんか
372:１３２人目の素数さん
03/02/07 19:05
プロットしたグラフを右クリックして
copy as より bitmap で保存して word に貼り付ければ？
373:１３２人目の素数さん
03/02/07 20:20
372さん、ありがとうございます
374:１３２人目の素数さん
03/02/08 01:15
ボイコット・ザ・Mathematica。
もっとフリーソフトをつかう、作るべし。
MathematicaにせよMapleにせよ囲い込まれるだけだし、
ある日突然サポートがとまったりするリスクを考えよ。
バージョンアップで毎年金を毟り取られるのに快感を覚えるな。
他と著しく違う変なシンタックスに染まっても、システムが
替われば、そのスキルは無用の長物。
もっと全数式処理ユーザーが結束して、どうでもよいところは
共通仕様化することを要求していくべきだし、なるべくフリーな
ソースのある、内部で採用で採用されているアルゴリズムが
公開されているものをつかうようにしないと、本当に中世の
暗黒時代が再来するだけだよ。
375:１３２人目の素数さん
03/02/08 09:54
どなたか
Mathematicaの入門書を教えてください
どうしても自力じゃ使いこなせません
よろしくお願いします
あるていど使いこなしてみたいんです
376:１３２人目の素数さん
03/02/08 13:57
はやわかり Mathematica 第２版 榊原 進
は、どうですか
377:１３２人目の素数さん
03/02/08 14:09
メイプル マスキャド
と比較してどうなんでしょ？
378:１３２人目の素数さん
03/02/08 14:16
ますます出来るMathmatica ＝標準版＝って
どうですか
わかりやすいですか？
でも14000は高いですよね？
379:１３２人目の素数さん
03/02/08 22:59
>374 じゃ、 MAXIMA ね。
まあ、正直僕も Mathematica の税金的な面は痛い所。
昔は３万円！でバージョンアップしてくれたのにね。。。
特に日本だと代理店経由しないとだめで、個人の気楽な
用途からどんどん遠ざかります。
>375
何したいのかによりますよ。
あ）とにかく操作入門レベル。コンピューター使用暦ゼロに近い
い）直面した問題に対処したい。コンピューター使用暦数年。
う）情報処理系的側面重視。コンピュータープログラミング要望。
でいろいろありますね。
まあ自分が知っている分野で、 Mathematica という言葉が
表題にあれば、大抵簡単な入門はのっているよ
380:１３２人目の素数さん
03/02/08 23:32
理工系の教養としての情報科学―Mathematicaによる入門
ローマン メーダー (著), Roman Maeder (原著), 時田 節 (翻訳)
URLﾘﾝｸ(www.amazon.co.jp)
381:１３２人目の素数さん
03/02/08 23:33
>>380
Mathematicaでのプログラミングにはお勧め
382:１３２人目の素数さん
03/02/09 11:42
Mathematicaって
普通のアプリにあるようなバグフィックスのアップデータって無いの？
バグなんか無いって事なんだろうか。
383:１３２人目の素数さん
03/02/09 12:20
>>382
バージョンアップ時に小出しにバグフィックス致します。
バージョンアップ料金は１０万円以上かかります。
384:１３２人目の素数さん
03/02/09 12:40
俺の持ってるのは3.0.1.1xってなってる
3.0.0.0持ってる人もいるの？
385:１３２人目の素数さん
03/02/09 15:02
MuPADってだめなの？
386:１３２人目の素数さん
03/02/09 19:36
まてぃまてぃかで
世界征服したいんですけど？
387:１３２人目の素数さん
03/02/11 18:22
Plot した図を Showで表示します。
２つの違う関数を表示するのだけど、その線がどっちかって説明とA4に印刷するた
めの方法を教えてもらえませんか。
簡単に言えば、レポートに提出するためのものです
388:１３２人目の素数さん
03/02/11 22:38
>>385
フリーなのは学生と教員だけだろ。
389:１３２人目の素数さん
03/02/11 23:24
>387
help に線の太さやパターンを変える方法がのってるよ。
wolfram のサイトにいけば、日本語で読める可能性有り。
390:１３２人目の素数さん
03/02/15 23:16
>>388
個人利用はフリーと聞いたが
391:１３２人目の素数さん
03/02/21 15:50
URLﾘﾝｸ(risa.cs.ehime-u.ac.jp)
392:１３２人目の素数さん
03/03/01 00:06
mathematicaのstudent版って卒業してしまうと使えなくなってしまうのですか？
買ってから４年間、みたいな制約があるんでしょうか？
393:Lisper
03/03/08 15:57
>>392 GNU Maximaなら永遠に無料でつ．シミュレーション板Maxima擦れを参照．
どうせMathematicaをそれ程クリティカルな業務に使ってないのでしょうから，Maximaで十分でつよ．
3Dグラフがマウスでぐりぐり回せますぜ．どうでつか．
394:山崎渉
03/03/13 13:23
（＾＾）
395:１３２人目の素数さん
03/03/16 08:28
396:とある馬鹿 ◆BAKAB.w.so
03/03/16 12:33
Mathematica を早く使いこなせるように私はなりたい ううう ( つДT)
大学でしかできないからなぁ・・・
やっぱり自腹で買ったほうがいいのかな
それとも研究室の金で買ったほうがいいのかな･･･
397:１３２人目の素数さん
03/03/16 13:00
大学でできれば十分ジャン。
たまには家に帰りたいもんだ。
398:とある馬鹿 ◆BAKAB.w.so
03/03/16 14:16
>たまには家に帰りたいもんだ
なんか（・∀・）ｶｺｲｲ!!!!!
399:質問！
03/03/16 14:27
（関数を定義する）
仮に・・・a_{i}:実数
s[a_{1},a_{2},....,a_{n}]:＝a_{n-1} ： 与えられた数のn-1番目を取り出す
という関数sを定義したいですが，変数をリストとしてではなく，
与えたいと思ってます．どうすれば良いのでしょうか？
ちなみに，一般のｎについてできるようにしたいです．
ちょうど，Max[a_{1},a_{2},....,a_{n}]の入力の仕方で
答えを得るようにしたいということです．
s[{a_{1},a_{2},....,a_{n}}]から，a_{n-1}を得るのは，簡単ですけど，
s[a_{1},a_{2},....,a_{n}]：これのときは？＃ｎ：一般の自然数＃
400:399
03/03/16 18:21
誰かわかる方いませんか？
401:１３２人目の素数さん
03/03/16 20:27
>>399-400
これでいいだろ。
In[10]:=
s[x__]:=List[x][[-2]]
In[11]:=
s[1,2,3,4,5,6]
Out[11]=
5
402:１３２人目の素数さん
03/03/16 20:40
これでもいい。
In[16]:=
s[x__]:={x}[[-2]]
In[15]:=
s[1,2,3,4,5,6]
Out[15]=
{1,2,3,4,5,6}
403:402訂正
03/03/16 20:53
In[16]:=
s[x__]:={x}[[-2]]
In[17]:=
s[1,2,3,4,5,6]
Out[17]=
5
404:399-400
03/03/16 21:43
なるほど！！！
そういうことで回避できるんだー！
401-403 : ありがとうございました!
うーんこれは使える・・・
405:１３２人目の素数さん
03/03/18 22:30
>>183
先生, 質問です.
StudentからProfessionalにUpgradeすると,
パスワードの発行形態は後者に準じたものに変わるのでしょうか?
406:１３２人目の素数さん
03/03/18 22:39
>>393
使えるのなら、使っていいんじゃないの？
version3.0 for Students を持っているけど、いまだに使っているよ。
インストールしなおす時には、もちろん、きーじぇ・・・スミマセン。
407:kawabata君の友人
03/03/19 00:48
>>405
はい、発行形態がかわります。
ただし、Proffessionalへアップグレードしても
(１)ホームユース(名前は確かじゃないですが「一本」のライセンスで、
いつも使用している研究室や職場だけでなく、自宅でも使用することが
できるシステム)(この場合は自宅の端末専用に1年間有効のMathIDベースの
パスワードが発行されます。当然ＣＤもMathID仕様のものが追加で交付
されます。１年ごとに追加料金がかかります
(２)そのほかにも北米ライセンスを、一時的に他の地域で使用する場合、
または、その逆で、インターナショナルライセンスを北米で使う場合
などにも、時限パスワードが追加交付されるはずです
408:１３２人目の素数さん
03/03/19 01:24
マス 書いてもいいか
409:１３２人目の素数さん
03/03/19 09:47
>>407
ということは,
For StudentからProffessionalへアップグレードしても"MathIDは常に必要"ということですか?
最初からProffessionalの場合みたく, 実質的には(自分の所有する)複数のPCに入れ放題ということにはならないのか……
410:kawabata君の友人
03/03/20 00:43
>>409
プロフェッショナルはMathID依存でない１８桁～２５桁のパスワードがでる
はずです。しかしホームユースや地域外での利用に対しては、別途料金がかかり
その料金徴収、有効期限管理、追加で使用を認めるマシンを限定し特定する必要
があるため、MathID形態のＣＤ並びにパスワードを追加交付しているのでしょう。
411:baggio
03/03/20 02:06
質問です。mathematicaを使って、非線形連立方程式を解きたいのですが、どうしたら
いいのでしょうか？初心者の質問で申し訳ないですが、教えてください。
412:１３２人目の素数さん
03/03/20 22:41
>410
うーん。通常の Professional ではなく、プレミアサポート
（定価３０％、PC版なら約１０万）でホームユースが
出来る、と考えた方がいいでしょう。
413:１３２人目の素数さん
03/03/20 23:44
>411
代数方程式なら
Solve[方程式のリスト，未知数のリスト]
とします。
それ以外の場合はFindRootを使います。
その場合は解の初期近似を与える必要があります。
FindRoot[方程式のリスト，{未知数,その初期値}のリスト]
414:１３２人目の素数さん
03/03/23 03:14
Mathematicaで整数計画問題解けますか？
415:baggio
03/03/28 01:10
>413 132人目の素数さんありがとうございます。
一回やってみます。わざわざ解答ありがとうでした。
416:１３２人目の素数さん
03/04/15 01:53
Linux版のMathematicaで、スタンドアローンのプロフェッショナル版を
買おうかと思っているのですが、Ｌｉｎｕｘのバージョンをアップデート
したり、あるいはハードを変更したり、マザボードやＣＰＵをとりかえたり
ネットワークカードを変えたり、ＩＰアドレスを変えたりしたら、
使えなくなってしまうのではないかと恐れています。
何が、保存されていれば（たとえばＭＡＣアドレスとかＩＰアドレス）、
環境を変化させても、ライセンスを取り直さなくても使えるのでしょうか？
417:１３２人目の素数さん
03/04/15 16:13
MathematicaではLogListPlotやLogLogListPlotのような片対数グラフや両対数グラフを
表示できて便利なんですけど、エラーバー付きのLogListPlotやLogLogListPlotのような
ものはないんでしょうか？
対数表示でない通常のエラーバー付きグラフならErrorListPlotがあるんですが
ErrorLogListPlotやErrorLogLogListPlotのようなものがないのか知りたいです。
418:１３２人目の素数さん
03/04/15 16:25
>>417
臭うぞ！ Q.manの臭いがプンプンするッ！
419:mathmania ◆uvIGneQQBs
03/04/15 16:45
>> 417
Exp,Log,ErrorListPlotを組み合わせて自分で関数を作れ。
>> 418
417がQ.manならば、Q.manは変数変換の公式なぞろくに使えないだろう。
420:１３２人目の素数さん
03/04/15 18:01
Q.manってだれ
421:Q.man
03/04/15 18:23
ゎたすがQ.manです。
422:１３２人目の素数さん
03/04/16 10:14
あっそ
423:P.man
03/04/16 23:09
ゎたすがP.manです。
424:１３２人目の素数さん
03/04/19 18:31
(･∀･)ｹﾞﾊﾊﾊﾊ
425:山崎渉
03/04/20 03:59
∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
426:apico
03/04/23 20:52
Mathematicaで３次元のグラフを表示させる方法を教えて下さい。
以前販売元へ質問状をFAXとメール送ったのですが、その後連絡がありません。
日本人には冷たいのかな？？
閑話休題、
[1]曲面z=Sqrt[x*y]と３平面z=0,x=2,y=3によって囲まれた立体を表示させたい
のと
[2]曲面z=Sqrt[a^2-y^2](y≧a/2)と４平面x=0,x=2a,y=a/2,z=0によって囲まれる
立体を表示させたいのです。
表示させようと思ってすでに半年。自分でもどうやって聞いたらよいのか分からな
いまま経ってしまいました。もしこれが無理なら日本語でこういった質問の出来る
メールアドレスを教えて下さい。御願いします。
427:mathmania ◆uvIGneQQBs
03/04/25 18:11
>> 426
表示しようと思って半年もかかるくらいなら、手書きの方が正確で早い。
だが、それでもコンピュータで表示したいなら、
? Plot3D
を使うか、
あるいは
<< Graphics`をやって
? ParametricPlot3D
でヘルプを出して関数を理解してくれ。
428:１３２人目の素数さん
03/04/25 18:50
>>426
誰でも、すぐできることだから。
429:１３２人目の素数さん
03/04/25 19:45
はじめまして
今日mathematica 4.2 for students買ってきました
今後お世話になるかもしれませんがよろぴく
430:１３２人目の素数さん
03/04/27 20:40
>>427, 428
「囲まれた立体」を表示させるのは
Plot3Dでは不可能だし
ParametricPlot3Dでも[1], [2]を表示するのはすくなくとも困難だ。
まぁ428には不可能だな。
431:１３２人目の素数さん
03/04/28 22:16
>>426
? ClipFill
432:１３２人目の素数さん
03/04/29 07:49
ClipFillねー
これでいいのかな？
Plot3D[Sqrt[x*y],{x,0,2},{y,0,3},
PlotRange->{0,3},
PlotPoints->30,
ClipFill->Automatic,
BoxRatios->{2,3,3}]
433:１３２人目の素数さん
03/04/29 22:25
>>432
Clipしてないのだが？
434:１３２人目の素数さん
03/05/01 18:17
mathematicaって将来性あるの？
435:１３２人目の素数さん
03/05/02 08:41
MaximaやMuPADなど無料のソフトがもっと
グレードアップしてくると
今の商売は難しくなるね。
我々はその方が有り難いけど。
436:１３２人目の素数さん
03/05/02 08:42
優良スレに認定されてます
◇ 「知」の欺瞞
ｽﾚﾘﾝｸ(philo板)
◇ アーベル賞にセール
ｽﾚﾘﾝｸ(newsplus板)
◇ 数学の本
ｽﾚﾘﾝｸ(math板)
◇ 代数学
ｽﾚﾘﾝｸ(math板)
◇ 数学セミナー
ｽﾚﾘﾝｸ(math板)
◇ Poincare 予想 解決
ｽﾚﾘﾝｸ(math板)
◇ Lie群・Lie環
ｽﾚﾘﾝｸ(math板)
◇ グロタンディック
ｽﾚﾘﾝｸ(math板)
◇ 基礎論
ｽﾚﾘﾝｸ(math板)
◇ アーベル賞にセール
ｽﾚﾘﾝｸ(math板)
◇ 素数判定は「決定的」多項式時間
ｽﾚﾘﾝｸ(math板)
◇ スペクトル系列
ｽﾚﾘﾝｸ(math板)
◇ unix と数学
ｽﾚﾘﾝｸ(unix板)
437:１３２人目の素数さん
03/05/03 20:39
いまいち盛り上がらないので。
Mathematica programmingコンテスト。
お題は、
トランプ(Range[52])をシャッフルする関数を書け。
とか言ってみる。
438:１３２人目の素数さん
03/05/03 20:43
＞４３７
ドナルド・トランプですか？
439:437
03/05/03 20:53
>>438
普通のトランプです。
ドナルドさんが52人おられるのでしたらそれでも結構です。
440:１３２人目の素数さん
03/05/15 01:19
>>437
こんなのとか。
Shuffle[x_List] :=
Prepend[Shuffle[Rest[#]], First[#]] &@
RotateLeft[x, Random[Integer, Length[x] - 1]]
Shuffle[{}] = {}
Shuffle[Range[52]]
441:山崎渉
03/05/21 22:59
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
442:１３２人目の素数さん
03/05/25 05:59
29
443:山崎渉
03/05/28 14:44
∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎―◎ 山崎渉
444:１３２人目の素数さん
03/06/02 16:04
Mathematicaが原因でMATHEMATICA.EXEにエラーが発生しました。
Mahtmeticaは終了します。
問題が解決しない場合は、コンピュータを再起動してください。
と出たので再起動したのですが、何回再起動しても同じエラーが出て
起動してくれません。
フォント関係の設定をいじった後このエラーが出たので
元に戻したいと思っているのですが
設定ファイルはどこにあるかわかりませんか？
レジストリは探してみたのですが、わかりませんでした。
Windows MeでMathemtica4.2のシングルライセンスのを使っています。
445:１３２人目の素数さん
03/06/02 18:40
再インストールしる!
446:１３２人目の素数さん
03/06/02 20:41
Mathematicaって使いにくくない？ライブラリとか凄いとは思うけど
447:mathmania ◆uvIGneQQBs
03/06/02 20:46
コマンドが長いのは確かに使いづらい。
もっとも、私は最近Mathematicaをやっていない。
C言語(ForTranも少し)を使ってる。
理由はというと、、、Mathematicaが使えなくなったから。
まぁ、使いやすさの面でいえば、大きなプログラムには、C言語の方がいいだろう。
448:444
03/06/02 23:50
>>445
再インストールしても同じエラーが出るんです。
設定ファイルが残ってるんじゃないかと疑ってるのですが
その場所が分かりません。
449:１３２人目の素数さん
03/06/03 22:42
>>446
原始的なプログラミング言語と不統一な仕様の
mapleよりは使いやすいと思う。
言語としてつかえてなんぼだから
素人にはお薦めできない、って感じはあるかもね。
>>447
補完機能をつかうべし。
450:１３２人目の素数さん
03/06/07 17:45
初心者にお勧めのMathemticaの
本は何でしょうか？
451:１３２人目の素数さん
03/06/07 21:09
>448
OSを再インストールしる!
それでだいじょうぶだ! 安心しろ
>450
白石さんのがいいぞ!
安心して買え
452:１３２人目の素数さん
03/06/07 21:25
あなたが探してるのってこれだよね？二日間無料だしね♪
URLﾘﾝｸ(alink3.uic.to)
453:１３２人目の素数さん
03/06/07 22:15
mathmaniaスレかと思った
と言ってみる
454:１３２人目の素数さん
03/06/08 00:02
>>450
Mathematicaプログラミング J.ゲイロード･N.カーミン･R.ウエリン
を読んで、その後で
プログラミングMATHEMATICA. Ｒ・メーダー 著、時田 節
を読むとよくわかると思われ。
特にメーダーの本は(全くの初心者以外には)一読の価値あり。
非常に下手な翻訳だけど。
455:１３２人目の素数さん
03/06/08 00:09
>>248
Windows Me はやめた方がいいですよ。
2KかXPにしましょう。
（マジレス）
456:１３２人目の素数さん
03/06/08 02:09
Mathematicaって有効数字が６桁の表示で、例えば
1.23456789とか1234.56789って直接入力すると
1.23456や1234.56と表示されます。
＃ 表示だけがそうなるだけで内部的には入力した数のままです
これを以降の入力からすべて指定した有効数字で表示させたいのですが
どうやったら良いのでしょうか？NumberFormではそれで指定した場合だけ
表示されるのでこれを以降の入力すべてで有効にしたいのでよろしく
お願いいたします。
457:１３２人目の素数さん
03/06/08 10:38
>>451 >>454
どうもありがとう！
458:１３２人目の素数さん
03/06/08 10:49
>>456
ちょっと邪魔くさいけど、関数を定義すればどう？たとえば
F[x_]:=N[x, 30];
F[E^3]
とするとe^3が30桁表示されるはず。
459:mathmania ◆uvIGneQQBs
03/06/08 13:02
456の方法でも有効数字は確かに表示される。
だが、SetPrecision[E^3,Infinity]か、SetAccuracy[E^3,Infinity]はどうだろう？
まぁ、分数表示になるが、その数に2^52(?)を掛ければ小数点表示がわかるだろう。
あぁ、それと、私はMathematica復活したわけではないので。
460:444
03/06/08 21:28
>>451
結局OS再インストールしましたよ。。。
したくなかったけど。
>>455
大学のPCだから自由にできません。
経費で2000買ってくれなかった。
461:１３２人目の素数さん
03/06/09 17:46
>>458-459
Mathematicaでの以降の入力すべてで指定した有効数字で表示させたいということ
でしょうから、その方法ではその関数内の引数にだけ有効であって意味がありません。
何かシステムの設定でできそうな気もしますがそれらしいものが見当たりませんね。
どうやるんだろうか？
462:１３２人目の素数さん
03/06/09 18:00
>>461
SetPrecisionは計算精度を変更させるだけであってその表示は依然として
有効数字６桁です。
463:１３２人目の素数さん
03/06/10 19:55
>>456
編集→環境設定→書式設定→式の書式→表示設定→PrintPrecision
464:１３２人目の素数さん
03/06/10 23:57
>>463
書式設定でしたか。見落としてました。大変助かりました。ありがとうございます。
465:mathmania
03/06/17 23:17
駄スレ漏れスレage
466:１３２人目の素数さん
03/06/18 00:04
あなたが探してるのってこれだよね？この中にあったよ♪
URLﾘﾝｸ(endou.kir.jp)
467:１３２人目の素数さん
03/06/21 17:16
4次元データを視覚化したいのですが、mathematicaに限らず
何かよい方法(ツール)はありませんか?
等高線図を複数枚、平行になるよう並べて
ナナメ上から見下ろすようにすればよいと思うのですが、
よいアプリケーションを探しています。
他の方法でも、可能ならば何でもいいです。
468:１３２人目の素数さん
03/06/22 17:01
>>467
いってることが良くわかりません。等高線図を斜めから見下ろす？
mathematicaでの実現ならば、三次元にスライスしたときの
データをどうやって表示するかという話になるのだろうけど、
それはデータの形式に依存するからなんともいえないし。
469:467
03/06/23 13:26
>>468
間違いがありました。すみません。
まず画面に出したいのは4次元データ中の3次元分なので、
「3次元データを表示したい」と訂正します。
データは格子状データです。
古い人間なのでfortran形式で言うと
do k=1,nz
do j=1,ny
do i=1,nx
write(6,*) x(i),y(j),z(k),data(i,j,k)
end do
end do
end do
の形式の等間隔のデータと思って下さい。
やりたいのは、これまた解かりにくい表現かもしれませんが
gnuplotで
set contour base
unset surface
set view 60,10
くらいの時にプロットした等高線図を複数枚、一つの画像にプロットしたいのです。
470:１３２人目の素数さん
03/06/23 20:03
>>469
gnuplot云々はわかりませんが、
ListContourPlot3Dかな?
471:１３２人目の素数さん
03/06/24 22:42
Ver.5 ですね。
それに $1880 5.0 Eng vs \448800 日本語版 4.2only
US ってこれでも Premier Service 付きだって。。。。
潮時かね
472:467
03/06/26 18:39
忙しかったので、見るの遅くなって済みません。
>>470
>ListContourPlot3Dかな?
手持ちのマニュアルには
ListContourPlotとListPlot3Dしか見付かりません。。
(ver5からの新機能ですか?)
それら二つから推測すると、
ListContourPlot3D[{{{},{}},{{},{}}}]
のような3重ネストの配列を入れてプロットするのでしょうか?
値段高い…
473:１３２人目の素数さん
03/06/26 23:19
>>472
4.2にはあります。
Onlinehelpで出てくるはずです。
または、
<<Graphics`
?ListContourPlot3D
474:467
03/06/27 14:28
みなさま、御親切に
本当にありがとうございます！
ちょっといろいろ試してみます。
475:１３２人目の素数さん
03/06/27 15:22
足してnになる1以上の整数の組み合わせを並べる時、並べ方が最大になるような
整数の組み合わせをMathematica（あるいはC言語でも）で求める方法を教えてください。
わかりにくいので例を挙げますと n=5 のとき
足して5になる1以上の整数の組み合わせは
5, 41, 32, 311, 221, 2111, 11111 であり
並べ方が何通りあるかはそれぞれ 1, 2, 2, 3, 3, 4, 1
で最大値は 2111 の場合で 4 に、
n=6の場合は 321 と 2211 の場合で最大値は 6 になります。
一般に、数字の個数（311なら3個、11111なら5個）がm個、1がk_1個、2がk_2個、…nがk_n個の
場合、並べ方はm!/(k_1!・k_2!・・・k_n!)になります。
476:mathmania ◆uvIGneQQBs
03/06/27 15:36
Re:>475
最大値をどうやって計算するかは分かるだろう。
あとは、k_1,…,k_nの与え方だが、
これはk_n,k_{n-1},…,k_2,k_1の順に再帰的に与えればいいのではないか？
n=5のときを例に挙げると、
まず、k_5=1ととり、1*k_1+2*k_2+3*k_3+4*k_4=0になるk_1,k_2,k_3,k_4の組合わせは0,0,0,0しかない。
次にk_5=0ととるとき、1*k_1+2*k_2+3*k_3+4*k_4=5となるk_1,k_2,k_3,k_4を選ぶことを考える。(a)
(a)の中でk_4=1ととり、1*k_1+2*k_2+3*k_3=1となるようにk_1,k_2,k_3を選ぶようにする。(k_1=0,k_2=k_3=0しかない。)
(a)の中で、今度はk_4=0ととり、1*k_1+2*k_2+3*k_3=5となるようにk_1,k_2,k_3を選ぶ。(b)
(b)の中で、k_3=1ととると、(k_2,k_1)=(1,0)と(k_2,k_1)=(0,2)となる。
(b)の中で、k_3=0ととると、k_2=2,1,0の3通りにわかれる。
k_2=2ととるとき、k_1=1となり、k_2=1ととるとき、k_1=3となり、k_2=0ととると、k_1=5となる。
この文では分かりにくいかもしれないが、とにかくやってみてくれ。
477:474
03/06/27 16:10
>>476
その考え方はわかりました。
初心者のものでプログラムの書き方を勉強してきます。
478:１３２人目の素数さん
03/06/27 16:11
477=475です
479:１３２人目の素数さん
03/06/27 17:06
>>475
どうぞ。
<< DiscreteMath`Combinatorica`
<< Statistics`DataManipulation`
Max @@ ((Length[#]!)/(Times @@ (#[[1]]! &) /@ Frequencies[#]) &) /@
Partitions[5]
480:１３２人目の素数さん
03/06/27 20:12
Mathematica Ver.5の情報はどこにあるんですか?
何が変わるのでしようか
おしえてね!
481:１３２人目の素数さん
03/06/27 20:24
過去にレスがついていなかったのですが、
ますます出来るMATHEMATICA-標準偏-
URLﾘﾝｸ(www.catkk.co.jp)
どうでしょうか？
482:１３２人目の素数さん
03/06/27 20:25
>>480
URLﾘﾝｸ(www.wolfram.com)
483:475
03/06/27 23:37
>>479
よくわからないのですが、Partitions[5]の 5 を n に変えれば
足してnになる1以上の整数の組み合わせの並べ方が最大に
なる整数の組み合わせが求められるんでしょうか？
484:483
03/06/27 23:39
すいません。” 5 を ｎ に” は ” 5 を任意の整数に”という意味です
485:１３２人目の素数さん
03/06/27 23:43
>>483
f[n_Integer] := Max @@ ((Length[#]!)/(Times @@ (#[[1]]! &) /@ Frequencies[#]) &) /@
Partitions[n]
ってこと?
もしかして、数学っぽいnについての式を欲しがってるんですか?
それならそれは数学の問題。
プログラムで求めることはできません。
Cでなんて論外。
486:479 == 485
03/06/27 23:45
>>484
See f in >>485.
487:475
03/06/27 23:54
>>486
ありがとうございます。手元にMathematicaがないので
少し勉強して、学校ので試してみたいと思います。
数学的に（nを使って）解くことが出来たらそれが一番いいのですが、
それはここで聞くことではないので他のスレで聞いてみます。
488:１３２人目の素数さん
03/07/04 13:36
再セットアップしたらアクティベーションできなくなった
489:１３２人目の素数さん
03/07/04 19:39
URLﾘﾝｸ(www.wolfram.com)
うわーん!
Ver.4.2の情報しかないじゃないか。
しかも日本語だー
490:１３２人目の素数さん
03/07/05 01:36
>489
どこかに English ってあるからそこから英語ページへ。
トップにあるよ。
まあ大規模行列と数値計算の速度改良が主ですね。
試行錯誤でアルゴリズム作るときは、全作業時間において
コンパイル系とためはるつもりなのかな
なお日本では日本語版のみしか売れない。
誰だよな日本語ヘルプキット強制バンドル計画したやつは。
491:１３２人目の素数さん
03/07/05 21:11
URLﾘﾝｸ(www.wolfram.com)
に五版の概要がありますね。
英語版でいいから新しいやつを動かしてみたいねえ。
ほんと。
492:１３２人目の素数さん
03/07/05 23:02
私が作りました♪
URLﾘﾝｸ(nuts.free-city.net)
493:488
03/07/07 15:52
誰か助けてくれ
494:１３２人目の素数さん
03/07/07 19:47
>>493
サポートに連絡しろ。
495:１３２人目の素数さん
03/07/08 01:13
>>494
わかったやってみる
㌧くす
496:475
03/07/08 16:22
>>479
Max @@ ((Length[#]!)/(Times @@ (#[[1]]! &) /@ Frequencies[#]) &) /@
Partitions[5] を実行したところ
Part::"partd": "パート指定5[[1]]の長さはオブジェクトの深さを超えています．"
1/5[[1]]!
となったのですが、直すべきところがわからないので教えてください。
497:１３２人目の素数さん
03/07/08 21:15
>>496
ちゃんと上の二行を入力してください。
# そのエラーはPartitions[5]が評価されていないため。
498:１３２人目の素数さん
03/07/08 22:23
最大尤度法で推定をしていて、結構複雑なモデルなんですが、推定したい変数が５個
あるんです。それで、尤度関数を作って、偏微分してFindRootつかって求めようした
んですが、出来ないんです。
そこで、正規分布使って、普通に正規分布を推定してみようって思って、同じような
方法を使ったんですが、これでもうまくいきません。エラーとしては
{{初期値の尤度}},{{初期値の尤度}}は、｛a,b}={1,2}では長さ２のリストになって
いません
というような感じです。最大尤度法をやってるプログラムのサンプルどっかないかなあ
って探したんですが、見つからないし・・・・。泣きそうなんですけど、どなたかお助け
ください。
499:１３２人目の素数さん
03/07/08 22:43
>>498
その説明で他人がなにかわかると思うか？
> んですが、出来ないんです。
ふーん出来ないんだ。(どこがどう出来ないのか全くわからん)
> {{初期値の尤度}},{{初期値の尤度}}は、｛a,b}={1,2}では長さ２のリストになって
文法間違いだな。 (syntax errorなんだからソース見ないとどうしようもない)
> って探したんですが、見つからないし・・・・。泣きそうなんですけど、どなたかお助け
まぁ冷静になれ。
500:１３２人目の素数さん
03/07/08 23:08
>>497
わかりました。
501:498
03/07/08 23:11
そうですか・・・・すいません。どっかサンプルプログラム探すしかない
ですかね・・・
正規分布を推定する場合、乱数を出して、その後、尤度関数を出せたとして
K1[a_,b_]=D[L[a,b],a]
K2[a_,b_]=D[L[a,b],b]
として、
FindRoot[{K1=0,K2=0},{a,-1},{b,2}]
としてるんですけど。。この部分では、間違いがないとは思ってるんですが
尤度関数が間違ってるのかな・・・・。はあー泣きそう。。。
502:１３２人目の素数さん
03/07/08 23:12
☆頑張ってまーす！！☆女の子が作ったサイトです☆
☆見て見て！！
URLﾘﾝｸ(yahooo.s2.x-beat.com)
503:１３２人目の素数さん
03/07/08 23:20
>>501
Mathematicaの基礎からやりなおしってかんじ。
とりあえずダメなところは指摘しとくが、
マニュアルか教科書(上でも挙がってる)読み直せ。
> K1[a_,b_]=D[L[a,b],a]
= と := の違いが良くわかってるのなら何もいわないが。
> FindRoot[{K1=0,K2=0},{a,-1},{b,2}]
K1 = 0 は K1 という変数を 0にする。
書くなら {K1[a, b] == 0, K2[a,b] == 0} 。
504:498
03/07/08 23:20
あー勿論
FindRoot[{K1[a,b]=0,K2[a,b]=0},{a,-1},{b,2}]
としてます。。。。。
サンプルプログラム載ってるサイトってないですかねえ・・・・。。。
505:503
03/07/08 23:22
>>504
その2行目をもういちど読み直せ。
506:498
03/07/08 23:23
:=と=の違いってえーと、すみません、良く分ってないです。。。
確か:=は、なんか固定するみたいな意味だった気が・・・・
507:498
03/07/08 23:25
>>505
==ですね・・・すみません、それは、やってます・・・・。
508:503
03/07/08 23:28
>>506
で、聞いてる方としてはあいかわらずどこがうまく行かないのか
わからないんだが。
で、どううまくいかいの？
エラーメッセージは？
509:498
03/07/08 23:37
エラーメッセージは、FindRootのところなんですよー。
>>498に書いたようなエラーメッセージが出ます。
FindRootの文法は、合ってると思うんですが。。。
510:503
03/07/08 23:45
>>509
498を読んだところでは第一パラグラフと第二パラグラフは
別の手段を試してるようにしか読めない(FindRootで失敗したから別の手段)。
どの関数でエラーが出力されたかもわからない。
エラーがあなたの言語に翻訳されているがそれが適切かどうかわからない。
すでに書いたがsyntax errorはソースをみないと何もわからない。
技術的なことを質問する方法をしらない、
シンタックスエラーが自分で解決できない、
レベルだったらソース張るべきだよ。
変にプライドがあるのかそういう「初心者」は多いけどね。
情報を出さずに、自分のやってることは間違ってない!、みたいな。
たんに誰かが作ったライブラリが欲しいのなら、
まず、googleなりwolframのサイトなりを検索し、
もっと適切な質問のしかたをすべき。
おれは今日はもう寝ます。
511:503
03/07/09 00:02
>>509
寝ようと思ってたが気づいたので。
多分 L が リストを返してるからだ。
512:１３２人目の素数さん
03/07/09 14:24
ndist2=NormalDistribution[0,4];
p1=Table[ Random[ndist2],{100}];
L[a_,b_] = Product[(1/(Sqrt[2*π]*a))*Exp[(-({p1[[i]] - b}^2/(2 *a^2)))],{i,1,100}]
K1[a_,b_]=D[L[a,b],a]
K2[a_,b_]=D[L[a,b],b]
FindRoot[{R1[a,b]==0,R2[a,b]==0},{a,{1,2}},{b,{-2,4}}]
ソースは、これです。
>>511
あーそれは、どうすれば、解消できますかね。リストで返さずに関数として認識
してもらわないとつらいっすね・・・。
513:498
03/07/09 15:12
あっ最後の式は、
FindRoot[{K1[a,b]==0,K2[a,b]==0},{a,{1,2}},{b,{-2,4}}]
です。
514:１３２人目の素数さん
03/07/09 16:05
今課題をやっています。
誰か偏微分係数の出し方を教えてください。
ちなみにMathematika 4.1を使用しています。
ヘルプの使い方がわからなくて・・・
515:514
03/07/09 16:19
解決すますた。
失礼。
516:503
03/07/09 17:37
>>498
ソースはコピペしてそのまま張れ。
タイプミスもあるしな。
πってPiだよな？
<<Statistics`NormalDistribution`
してるんだよな？
原因はp1のまえにある'{'だ。'{'はリスト構築子。
L[a_,b_] = Product[(1/(Sqrt[2*π]*a))*Exp[(-({p1[[i]] - b}^2/(2 *a^2)))],{i,1,100}]
↓におきかえろ。
L[a_,b_] = Product[(1/(Sqrt[2*π]*a))*Exp[(-((p1[[i]] - b)^2/(2 *a^2)))],{i,1,100}]
517:１３２人目の素数さん
03/07/09 21:13
このスレッドの人から見てＳ言語はどうですか？
社会学系だとmatlabやmathematicaより使われていますが…
518:498
03/07/10 16:44
>>516
ありがとうございました。それで正規分布の推定は、できました。ただ、本当に
求めたいのは、
L[a1_, a2_, b1_, b2_, b3_] = Sum[y1[[i]]*Log[F[a1 - (b1*
x1[[i]] + b2*x2[[i]] + b3* x3[[i]])]] +
y2[[i]]*
Log[F[a2 - (b1*x1[[i]] + b2*x2[[i]] + b3*x3[[i]])] - F[
a1 - (b1*x1[[i]] + b2*x2[[i]] +
b3*x3[[i]])]] +
y3[[i]]*Log[
1 - F[a2 - (b1*x1[[i]] + b2*x2[[i]] + b3*x3[[i]])]], {i, 1,
100}];
という結構複雑なもので、これも｛を（にしてみたんですが、やはりリストで返してる
みたいです。Sumの扱い方が悪いんでしょうか・・・・
てか、見にくくてすみません。
519:１３２人目の素数さん
03/07/10 19:28
>>518
a1,a2,b1,b2,b3,F,y1,... のどれかにリストが入ってんだろ…
同じことを何度も書くが、部分だけ張るなよ…
プログラミング自体初めてなのかも知れないが、レベル低すぎる。
一冊Mathematicaの本読め。
520:498
03/07/10 21:10
すみません、一遍に貼れないんで２回に分けますけど、これが全部です。。。
<<Statistics`ContinuousDistributions`
ndist=NormalDistribution[0,1];
x1=Table[ Random[ndist],{100}];
x2=Table[ Random[ndist],{100}];
x3=Table[ Random[ndist],{100}];
y=Table[2*x1[[i]]+3*x2[[i]]-x3[[i]],{i,100}];
y1=Table[If[y[[i]]<=-5,1,0],{i,100}];
y2=Table[If[-5<y[[i]]<=5,1,0],{i,100}];
y3=Table[If[5<y[[i]],1,0],{i,100}];
521:498
03/07/10 21:11
F[x_] = Integrate[Exp[z]/{1 + Exp[z]}^2, {z, -Infinity, x}];
L[a1_,a2_,b1_,b2_,b3_]=Sum[y1[[i]]*Log[F[a1-(
b1*x1[[i]]+b2*x2[[i]]+b3*
x3[[i]])]]+
y2[[i]]*Log[F[a2-(b1*x1[[i]]+b2*x2[[i]]+b3*x3[[i]])]-
F[a1-(b1*x1[[i]]+b2*x2[[i]]+
b3*x3[[i]])]]+y3[[i]]*Log[1-
F[a2-(b1*x1[[i]]+b2*x2[[i]]+b3*x3[[i]])]],{i,1,100}];
K1[a1_,a2_,b1_,b2_,b3_]=D[L[a1,a2,b1,b2,b3],a1];
K2[a1_,a2_,b1_,b2_,b3_]=D[L[a1,a2,b1,b2,b3],a2];
K3[a1_,a2_,b1_,b2_,b3_]=D[L[a1,a2,b1,b2,b3],b1];
K4[a1_,a2_,b1_,b2_,b3_]=D[L[a1,a2,b1,b2,b3],b2];
K5[a1_,a2_,b1_,b2_,b3_]=D[L[a1,a2,b1,b2,b3],b3];
FindRoot[
{K1[a1,a2,b1,b2,b3]\[Equal]0,
K2[a1,a2,b1,b2,b3]\[Equal]0,
K3[a1,a2,b1,b2,b3]\[Equal]0,
K4[a1,a2,b1,b2,b3]\[Equal]0,
K5[a1,a2,b1,b2,b3]\[Equal]0},
{a1,0},{a2,1},{b1,1},{b2,3},{b3,1}
]