〓Mathematica〓 - 暇つぶし2ch

〓Mathematica〓 ..

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山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

次ページ