トップページ⇒math
983コメント257KB

〓 Mathematica 5 〓

■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん2010/10/01(金) 00:11:44
　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.i　 /|. /.| { i,　 i,　　}.　 }_,,）)
　　　!　|　 ! .,'-.{ !　!|; |`､.}ﾞ!.!　|.　 !　ヽ.
　　　',　',　|Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l !　| 　 ﾞ',
　　　 ヽ､', l:!Kノ}. 　 　 f:_.)iﾞi: ﾘ !　l　ル　
　　　　 | l!iヽﾞ- '　, 　　.!__:ﾉ ﾞ ,ﾘ l ﾘ'´ 　 　　
.　　　　 ',|!!､ 　 　r‐┐ 　 ｀ ノ'. /,ｲ　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ 　
　　　　　 'i!ﾞ､ヽ､　ﾞｰ'　　_, ィ,:',:''´　　　 ＜　 Mathematica に関する話題はここに書いてね！
　　　　　　ﾞ:､ｨ､jヾｰ::: 'iﾍ　.ノ',ﾘ. 　 　 　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　,､- '´　ヽ､ﾞ､　　 {　｀＞"､ 　
　　/＼＼　　　　',　　 }　　 //｀ヽ


Mathematica 8が間もなくリリース

＊統計：市場で最も広範囲の統計分布とデータ可視化機能
＊ソフトウェア開発：組込みのGPUプログラミングサポート，高性能
Cコード生成，SymbolicCサポートおよび拡張された並列処理
＊工学および研究開発：統合された制御系とウェーブレット関数
＊金融：組込みのオプション価格付けソルバ，財務指標とグラフ
＊画像処理：特徴検出を含む拡張された画像解析機能
0322１３２人目の素数さん2011/01/24(月) 18:48:56
住人の怒りがマッハになっている
0323１３２人目の素数さん2011/01/24(月) 21:07:00
>>310です。
研究は無事完成しました。

>>318さん。
ご迷惑おかけしてすいません。
preを関数の引数にしてる時点で固定されてることに気づいてませんでした・・・
ソースコードが長ったらしい件についてですが、簡単にいうと、研究発表の際のネタを増やすためです。
ややこしいことをしてすいません。

>>319>>321さん
ほんとは、情報分野でプログラミングがやりたかったのですが
うちの学校は何故か情報分野はロボットしかやらないのです。（ちなみに高校です。）
ロボットよりソフトウェアのほうに興味があったので、数学科を選んだらMathematicaが使えたので
「せっかく学校側に高いソフトを購入してもらったんだし、使ってみよう」ということです。

ちなみに、プログラムは次のような感じでまとまりました。ご迷惑おかけしました。

limit = Input["自然数で数値を入力してください。"];
st = DateList[];
clo = 0;
Dynamic[limit - clo]
time := IntegerPart[Part[DateList[], 6] - Part[st, 6] + 60*(Part[DateList[], 5] - Part[st, 5]) + 60*60*(Part[DateList[], 4] - Part[st, 4]) + 24*60*60*(Part[DateList[], 3] - Part[st, 3])];
While[limit - clo > 0, If[time != clo, clo = time]];
EmitSound[Sound[{Play[Sin[6000 t], {t, 0, 1}]}]]
0324１３２人目の素数さん2011/01/25(火) 11:17:07
ユーザが定義した変数、関数をずべてクリアするにはどうしたらいいでしょうか
つまり最初のまっさらに戻りたいのです。
0325１３２人目の素数さん2011/01/25(火) 18:50:15


そのくらい、しらべろ
あほう

0326１３２人目の素数さん2011/01/25(火) 18:52:34
再起動すればいいんじゃない？
一括でクリアする方法は知らん
0327１３２人目の素数さん2011/01/25(火) 21:11:53
再起動しないでやるやり方はないのですか？
0328１３２人目の素数さん2011/01/25(火) 21:27:41
あるよ
0329１３２人目の素数さん2011/01/25(火) 22:49:16
MATHEMATICAをふたつはしらせて他方にのりうつる。　ひとつは再起動する。
そうすれば連続してつかえるよ
0330１３２人目の素数さん2011/01/25(火) 22:50:57
>>325
>>328

ほんとはしらないんだろ
ふるえているぞ
0331１３２人目の素数さん2011/01/25(火) 23:00:32
ほんとうに知っているがおまえには教えたくない

おまえが有益な情報を提供すれば話は別だがな
0332１３２人目の素数さん2011/01/25(火) 23:24:55
サンダースさんを退場させるんだよ
0333１３２人目の素数さん2011/01/26(水) 02:59:24
はいはい　太い注射をしませうね>>331
0334１３２人目の素数さん2011/01/26(水) 05:30:11
このコマンドは現行の Mathematica セッションで作成された定義をすべてクリアする：
Clear["Global`*"]
0335１３２人目の素数さん2011/01/26(水) 10:45:58
MathematicaのヘルプはM$のヘルプと違って使いやすいんだから，
取り敢えずヘルプぐらい見ろよと思う．

Clear["Global`*"]も「クリア」で検索すればすぐ出てくるしね．
0336１３２人目の素数さん2011/01/27(木) 11:02:01
maximaのテンソル計算パッケージに相当するものはあるのでしょうか
0337１３２人目の素数さん2011/01/28(金) 23:51:21
>>334
ありがとうございます。
>>335
ClearAll だと思っていたので。。。
Clear["Global`*"]は、怖くてつかわなかった。
0338１３２人目の素数さん2011/01/29(土) 00:11:29
バインドは、消えるけど変数はのこるんですね>>334-335
0339１３２人目の素数さん2011/01/29(土) 18:50:12
>>338

おまえの人生まっくらだ
Remove["Global`*"]
0340１３２人目の素数さん2011/01/29(土) 18:59:54
初心者はかくな>>339
0341１３２人目の素数さん2011/01/29(土) 19:04:14
はっ！？
0342１３２人目の素数さん2011/01/29(土) 19:04:36
サンダース＝カーネル、　退場＝終了
0343１３２人目の素数さん2011/01/29(土) 19:09:51
カーネルの再起動なんてめんどくせーだろうがよ>>340=>>342
俺の方法の方がてっとりばやいんだよ>>339
>>338と>>340=>>342は初心者なんだからもう書き込むんじゃないぞ
0344１３２人目の素数さん2011/01/29(土) 19:14:00
はっ！？ 　ほいきた！？
0345１３２人目の素数さん2011/01/29(土) 19:20:35
とりあえず初心者と低脳は半年ロムれ
疑問がわいたらドキュメントをしっかり調査しろ
この条件をアンドで満たしてから初めてこのスレに書き込め
0346１３２人目の素数さん2011/01/29(土) 23:59:50
↑　この主張をプログラムし、その非合理特性をサンダース＝カーネルに報告せよ
0347１３２人目の素数さん2011/01/30(日) 01:26:25
もう報告済み
0348１３２人目の素数さん2011/02/08(火) 18:16:00
マセマティカについてなのだけど…

ベクトルｂを
ｂ＝{-Sin[ｔ]、Cos[ｔ]、2/9}とします
ｂのNormをマセマティカで計算したところ、
Norm[ｂ]＝√{(4/81)＋Abs(Cos[ｔ])^2＋Abs(Sin[ｔ])^2}
となって
Abs(Cos[ｔ])^2＋Abs(Sin[ｔ])^2＝1
と計算してくれないのですが、何故でしょうか

0349１３２人目の素数さん2011/02/08(火) 18:22:40
>>348
Simplify[Norm[b],Assumptions->Im[t]==0]
0350１３２人目の素数さん2011/02/08(火) 18:26:44
>>349
ありがとう

単に
Simplify[Abs(cos[ｔ])^2＋Abs(Sin[ｔ])^2]
としても、1にはならないのですが、何故でしょうか
0351１３２人目の素数さん2011/02/08(火) 18:30:43
>>350
t が複素数の可能性を考える
0352１３２人目の素数さん2011/02/10(木) 14:16:19
日本国内でせめて１０万で買えないものか
0353１３２人目の素数さん2011/02/10(木) 15:47:02
mathmaticaではmatlabにはあるパッケージを自分で書かないといけないのかあ
0354１３２人目の素数さん2011/02/10(木) 18:45:50
>>352
せっかくの円高なのに１０万はきついです。
Home Editionなら５万でもぼったくりと思うが、
それくらいならがまんして騙されてやってもよい。
0355１３２人目の素数さん2011/02/12(土) 01:53:38
５年前のヴァージョンでもいい、１万円で売ってくれ
0356１３２人目の素数さん2011/02/12(土) 12:05:20
方々に転がってるだろ
0357１３２人目の素数さん2011/02/12(土) 14:35:02
正式なライセンスを安価に買いたいってことだよ
0358１３２人目の素数さん2011/02/12(土) 14:57:21
大学生協でアカデミック版を買う
0359１３２人目の素数さん2011/02/14(月) 20:52:50
アメリカでWolfram総裁のこのブログ記事が話題らしいんだがみんなで輪読しないか？
http://blog.stephenwolfram.com/2011/01/jeopardy-ibm-and-wolframalpha/
0360１３２人目の素数さん2011/02/14(月) 21:35:25
くだらん
0361１３２人目の素数さん2011/02/14(月) 21:37:01
のぼらん
0362１３２人目の素数さん2011/02/15(火) 20:28:09
マセマティカについてなのだけど…
リストＬを
ｘ(ｘ−1)(ｘ−2)のｘ＝0、0.01、0.02、…1.99、2での値を要素にもつリストと定義します

Ｌから最初の項(ｘ＝0での値)を取り除いてえられるリストをＬ1とします

Ｌから最後の項(ｘ＝2での値)を取り除いてえられるリストをＬ2とします

Plus@@(Ｌ1＋Ｌ2)*0.5*0.01

と
(Plus@@Ｌ1＋Plus@@Ｌ2)*0.5*0.01
の値は一致するはずですが、前者は０にならず後者が０になりました…
何故一致しないのですか？理由教えてください。
0363１３２人目の素数さん2011/02/15(火) 20:47:44
>>362
両方０になる。入力ミスでは？
0364１３２人目の素数さん2011/02/15(火) 21:10:20
>>362
前煮質問してたすれみた？
0365１３２人目の素数さん2011/02/16(水) 14:06:40
baka
0366１３２人目の素数さん2011/02/18(金) 11:13:45
mathematicaセミナー行きたいんだけど
学生はいけないのかな？
0367１３２人目の素数さん2011/02/18(金) 14:24:43
関係ないと思うよ
必要なら先生の派遣助手にしてもらったら
あるいは自分の会社をつくるとか
0368１３２人目の素数さん2011/02/22(火) 01:13:18.21
>>362
ともにゼロばぃ！
Ver5.2では機械精度の誤差がでるな…
つか機械精度の比較ならChopせんかぃ！
0369１３２人目の素数さん2011/02/22(火) 11:28:39.98
>>368
x=1/100, 2/100, … と有理数でやれば数値誤差なし
0370１３２人目の素数さん2011/02/22(火) 20:09:17.97
スレ違いな感じがしますが質問させて頂きます。

g = Import[ "/Users/Open/Desktop/rei.bmp"]
k = ColorConvert[g, "GrayScale"]
p = ImageDimensions[k]
nx = p[[ 1 ]]
ny = p[[ 2 ]]
ix = Ceiling[ nx/8 ]
jy = Ceiling[ ny/8 ]
Do[ j0 = If[ j < jy, (j - 1)*8 + 1, ny - 8 + 1 ];
Do[ i0 = If[i < ix, (i - 1)*8 + 1, nx - 8 + 1 ];
List1 = Take[ k, {j0, j0 + 7}, {i0, i0 + 7} ], {i, 1,
ix} ];, {j, 1, jy} ];

目的としては画像を8*8 画素を１ブロックとし分割を行いたいのです。
Do文により{{1,8},{1,8}} ,{{1,8},{9,16}},,,,,,,,,,,,,,,{{121,128},{121,128}} といったようにブロックを抽出しようと試みたのですが、実行結果は最後の{{121,128},{121,128}} ブロックのみがList1 に割り当てられた状態です。
Takeの動作がList1 にどんどん上書きされていき、最終のブロックのみが記憶されている感じなのかなと推測していますが自力で解決できずにいます。
詳しい方おられましたら原因もしくは解決方法をご教授いただけませんでしょうか？
よろしくお願いします。
0371１３２人目の素数さん2011/02/22(火) 20:24:40.53
>>370
Take というより = の動作。
> j0 = If[ j < jy, (j - 1)*8 + 1, ny - 8 + 1 ];
ここでは j0 がどんどん上書きされてるんでしょ？それと同じ。
0372１３２人目の素数さん2011/02/23(水) 01:09:49.21
>>370
あんなぁ、rei.bmpの中身ってなんかい！
Import["***",ImageSize"]で8*8に切れるんか？
k(ColorConvert[g, "GrayScale"])をTakeかぁ？

画像分割ImageSize->{100, 138}の一例は、
Import["http://woman-in-japan.darth.bz/aidamomo/images/0003_s.jpg"];
ImagePartition[%, 16] // Grid
0373１３２人目の素数さん2011/02/23(水) 19:00:04.27
test
0374１３２人目の素数さん2011/03/09(水) 04:25:58.88
今度の連休に釜山までフェリーで行って
ホームエディション買ってこようかと思うんだけど
日本国内に持ってきたとたん動かないなんてことあるのかな
0375１３２人目の素数さん2011/03/09(水) 10:37:34.47
>>374
え？？？韓国ではホームエディション買えるの？
0376１３２人目の素数さん2011/03/09(水) 23:11:07.03
日本以外では買えるじゃないの？
0377１３２人目の素数さん2011/03/10(木) 07:16:33.92
>>376
先進国でしか買えないみたいだから、、、。
0378猫は村八分 ◆MuKUnGPXAY 2011/03/10(木) 10:57:01.33
いや、村八分や。

猫
0379１３２人目の素数さん2011/03/10(木) 11:13:32.06
糞利権団体、商社とかが邪魔してるんだ、、、。
0380１３２人目の素数さん2011/03/10(木) 12:44:29.82
>>377
日本は先進国じゃなかったんだなｗ
0381猫は村八分 ◆MuKUnGPXAY 2011/03/10(木) 12:51:28.83
>>380
日本は２ちゃんの糞馬鹿のせいで後進国や。

猫
0382１３２人目の素数さん2011/03/10(木) 14:31:11.73
朝鮮人はパチモンしか使いまへん
0383１３２人目の素数さん2011/03/10(木) 14:40:52.94

日本は２ちゃんの馬鹿猫のせいで後進国や。

糞
0384猫は村八分 ◆MuKUnGPXAY 2011/03/10(木) 14:44:27.85
そうなんです。だからこの馬鹿猫が『責任を以て』ですね、馬鹿が集う
この２ちゃんに攻撃を仕掛けてるんですワ。そやからココの皆さんは今
後もずっとこの馬鹿猫に苦しめられるんだと思いますね。

アーメン。

猫
0385１３２人目の素数さん2011/03/10(木) 14:49:32.90
>>384
猫よ、２ちゃん攻撃の準備をするのだ。
http://www.youtube.com/watch?v=1ohR_CvfOak&feature=youtube_gdata_player
0386１３２人目の素数さん2011/03/13(日) 11:39:49.93
速度（30）t）どどすこすこすこどどすこすこすこどどすこすこすこ/ら/ぶ/ちゅうぅにゅうぅぅ
0387１３２人目の素数さん2011/03/16(水) 18:09:17.71
不謹慎ご
0388１３２人目の素数さん2011/03/16(水) 22:22:49.70
ありが東電
0389１３２人目の素数さん2011/03/23(水) 12:26:08.14
mathematicaって式の変形の始めの形と最後の形を入れると
変形の仕方をおしえてくれますか？
また、方程式を解いたりするときに途中のやり方もおしえてくれますか？
もしできるのならどうやってやるのか教えてください。
0390１３２人目の素数さん2011/03/23(水) 18:58:49.61
>>389
むりぽっぽ(*’ω’*)
0391１３２人目の素数さん2011/03/23(水) 23:16:47.12
>>389
試験とかで要求される途中過程はむりです。。。
expr評価途中に現れた式のリストはTrace[expr]
0392１３２人目の素数さん2011/04/13(水) 00:31:49.28
バージョン8.0.1日本語版リリース記念カキコ

一体どこが変わったんだろう・・・・・・？
0393１３２人目の素数さん2011/04/13(水) 17:42:26.49
Mathematica って LISP の M 式だろ？
0394１３２人目の素数さん2011/04/13(水) 23:09:05.12
>>392
DLちゅう、なんかサイズでかいな｡｡｡
>Mathematicaバージョン8.0.1日本語版ダウンロード開始のお知らせ
>バージョン8.0.1には，機能，安定性，性能の向上，ドキュメントの
>アップデートを含む500以上の改良点が含まれています．
変更点は判りませんし、調べていませんが、小数点二桁目のマイナー
変更ですので、たぶんバグフィックス版｡｡｡

としても修正履歴は、ほしいなぁ
0395１３２人目の素数さん2011/04/14(木) 09:20:26.85
mathematicaは５０万円くらいですか？

みなさんセレブですなぁ、、、。
0396１３２人目の素数さん2011/04/14(木) 09:31:31.44
フリーソフトだろ
0397１３２人目の素数さん2011/04/14(木) 09:40:08.40
>>396
え？そうだったんですか。
じゃあ、日本の代理店は５０万もピンハネしていたんですね！
0398１３２人目の素数さん2011/04/14(木) 10:38:59.63
日本の代理店て、ダフ屋だったんだ。
0399１３２人目の素数さん2011/04/14(木) 11:09:33.55
めーぷるなんかもカナダの大学で買った方が安いで
0400１３２人目の素数さん2011/04/14(木) 12:40:35.72
そんな彼方まで買いに行ったら高くつくで
0401１３２人目の素数さん2011/04/14(木) 13:09:01.39
笑
0402１３２人目の素数さん2011/04/14(木) 13:41:39.41
笑笑
0403１３２人目の素数さん2011/04/15(金) 17:07:26.20
PlotやPlot3DでPlotLabelやAxesLabelで数式や文字列を含んだグラフをepsファイルに出力したんだが、
どうも数式や文字列のフォントのデータをepsファイルに埋めこめられるみたいで
そのepsファイルを含んだLaTeXの論文やレポートを最終的にdvipdfmxでpdfに変換するときに、
変換時間やpdfファイルの容量がとんでもないことになってしまう（epsファイルが多ければ多いほど）

何か解決策はないだろうか
ちなみにバージョンは8.0で、6.0のときはこんな問題はなかった
04044032011/04/15(金) 17:09:12.07
あ、ちなみにビットマップで出力はしたくない
0405１３２人目の素数さん2011/04/15(金) 17:25:06.54
>>403
GSviewからepsファイルを読み込んで、Convet(Device:epswrite, Resolution:300)してみたら？
あと、イラストレーターなどで保存する時、フォントを埋め込まない設定にする。
0406１３２人目の素数さん2011/04/16(土) 01:25:38.17
mathe->eps->LaTeX->dvipdfmxでpdfとな？
えっとパス大杉でフィルタに期待しすぎ！
04074032011/04/16(土) 11:04:44.82
>>405
GSViewでの変換をやってみましたが容量が元ファイルサイズの10倍になってしまいました
0408１３２人目の素数さん2011/04/16(土) 11:42:48.53
Mathematicaで保存したepsファイルをそのまま使うのはうまくいかないと思う。
自分はイラストレーターで読み込んだ後、
背面に設定、透明化、固定して別レイヤーでトレースする。
04094032011/04/16(土) 11:46:59.30
うーん、イラストレーター持ってないです

結局pdfにするんだから、epsじゃなくてpdfで保存したほうがいいのかな
試してみたがやはりMathematicaの吐き出すpdfは重い(4MB)
04104082011/04/16(土) 15:26:23.45
自分のやった方法しか分からないけど、安いorフリーのドローイングソフト探せば？
あとはggrksとしか言えない。
そういう方法を自分で探すのも論文を書く能力の一部だよ。
04114082011/04/16(土) 18:02:22.89
Inkscapeを使っているんだけど、
epsファイルにフォントが埋め込まれているはずなんだけど(Mathematicaでのepsファイル保存時に指定しているから)
Inkscapeでは文字化けする

もうちょっと原因探してみる
04124092011/04/16(土) 18:04:06.08
名前間違えた
04134112011/04/18(月) 11:39:40.52
Mathematicaから出力したsvgファイルをInkscapeで編集しようとすると
軸のラベルの文字（ギリシャ文字など）が化ける問題は解決した（Mathematicaのフォントではない気がするが）

Mathematicaの編集→環境設定→詳細→オプションインスペクタを開く
→フォント設定→PrivateFontOptions→OperatorSubstitutionのオプション設定をFalseに

一応いるかどうかわからないがこれから困る人に参考していただければ
これでInkscapeでグレースケールなどに編集したepsファイルを貼り付けたpdfが数百kbまでに落ちた
0414１３２人目の素数さん2011/04/20(水) 22:20:18.94
数学板にMathematicaスレはあってもMapleスレはないのな
Maple15がリリースされたというのに…
0415１３２人目の素数さん2011/04/20(水) 22:44:41.86
教授が研究室用にmathematica買ってくれると言ったんだけど
俺以外の人がエクセルで十分だしとか言って見送りになった
0416１３２人目の素数さん2011/04/20(水) 22:56:28.02
>>415
俺さんの影響力(´・ω・`)
0417１３２人目の素数さん2011/04/20(水) 22:58:22.31
>>416
工学部なんだけど、俺以外使わないからな・・・
でもガッカリ
0418１３２人目の素数さん2011/04/20(水) 23:04:00.14
エｗクｗセｗルｗでｗ十分ｗｗｗｗｗｗｗ
0419１３２人目の素数さん2011/04/21(木) 01:13:02.49
かくいう私も，工学部でね・・・・

0420１３２人目の素数さん2011/04/21(木) 11:19:00.67
学生とかは安く買えるんじゃないの？
自腹で買って損はないんじゃないの？
0421１３２人目の素数さん2011/04/22(金) 19:53:51.29
てか理系学部がある大学なら大学がライセンス買ってるっしょ。
学部生向けにパソコンを解放してるとこ(うちの大学では情報処理センターとか呼んでた)
へ行ってそこのスタッフに聞いてみるといいよ。
MathematicaのインストールCD貸し出してくれるはず。

でもって
http://www.amazon.co.jp/dp/4873114837/
この本がよさげなんだが買った人いたら感想聞かせてくれ。
■ このスレッドは過去ログ倉庫に格納されています