〓Mathematica〓 - 暇つぶし2ch

〓Mathematica〓 ..

613:１３２人目の素数さん
03/08/07 14:59
>>612
Solve[Sin[a Degree] == 1/2, a]
で
Solve[Sin[a] == 1/2, a]
と同じ程度に、求めることができているので、
質問者が何を求めているのかよくわからない。

Solve[Sin[a Degree] == 1/2, a] // N
ってのが欲しいのか。

614:１３２人目の素数さん
03/08/07 15:25
>>613
スペースが必要だったのか。ありがとう。

615:１３２人目の素数さん
03/08/09 12:52
>>614
そういう誤解か。
a\[Degree]はそれ自体がシンボルだから、
Solve[Sin[a\[Degree]] == 1/2, a\[Degree]]
はできるが、aは求められない。

スペース(かけ算)が見た目に嫌なら、
a\[InvisibleTimes]\[Degree]とすればよし。

616:１３２人目の素数さん
03/08/09 15:56
>>597
だれも書かないな。
$DisplayFunction = Identity

617:１３２人目の素数さん
03/08/12 22:43
>616
正確にいきましょう。

p1 = ListPlot[Table[{i, i*Random[]}, {i, 1, 8}],
PlotStyle -> RGBColor[1, 0, 0], DisplayFunction -> Identity];
p2 = Plot[Exp[x], {x, -2, 2},
PlotStyle -> RGBColor[0, 0, 1], DisplayFunction -> Identity];
Show[{p1, p2}, DisplayFunction -> $DisplayFunction];

618:１３２人目の素数さん
03/08/13 00:54
>>617
それのどこが正確なんだ？
PlotStyleなんて何の関係もないし。
# 意味がわかってないままコピペしているようにしかみえないのだが。

で、これのどこが正確でないんだ？
$DisplayFunction = Identity;
Plot[Sin[x],{x,0,1}];
# オプションの方がいい場合「も」あるがな。

619:１３２人目の素数さん
03/08/13 01:56
>>617-618
要はオプションを関数の中で指定しているかグローバルに指定しているかの違いだろ。

620:１３２人目の素数さん
03/08/13 03:57
>>619
違う。
$DisplayFunction は DisplayFunctionというオプションのデフォルト設定
を与えるものであって、オプションそのものではない。
オプションを設定することと、
(オプションが省略された時の)デフォルトを変更することは、厳密には別のことだ。

オプションを関数の外で設定するというのは
SetOptions[Plot, DisplayFunction -> Identity]
だ。

621:山崎渉
03/08/15 18:32
　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

622:１３２人目の素数さん
03/08/18 18:59
おーい、Ver5持ってる奴
x^100-1==0
を解いて、根の絶対値を調べてくれ。
１にならないから。

623:tebe
03/08/18 19:06
半年間もかけてMathematicaの使い方を学ぶという
非常にエグイ授業を大学でやったよ。
Mathematicaって機能ありすぎて、僕みたいな素人
には宝の持ち腐れって感じだな

624:１３２人目の素数さん
03/08/18 19:11
｢今私のオッパイ見てたでしょう。｣ってそりゃ見ますって。
これだけの立派なオッパイが目の前にあったら。
淫乱女教師がフェラ、パイズリで同僚の先生を責めまくります。
挿入部のアップも豊富なのでオマンコもモロ見えですよ。
無料動画をどうぞ
URLﾘﾝｸ(www.exciteroom.com)

625:１３２人目の素数さん
03/08/18 19:19
Mathematicaの有名なバグ

Integrate[1/x^2, {x, -1, 1}]

古いバージョンだと２と評価してくれるんですが
新しいバージョンだと∞になってしまいます。
Ｖｅｒ５だとどうなんでしょうか？

626:１３２人目の素数さん
03/08/18 21:50
>>625
はぁ？
バグってるのはあなたの頭では？

627:１３２人目の素数さん
03/08/20 01:54
　1　　　　　　　　1
∫(1/x^2)dx＝-1/x｜＝-1/1-(-1/(-1))＝－２
　-1　　　　　　　-1

じゃないの？

628:１３２人目の素数さん
03/08/20 01:56
>>627
ずれた
　1　　　　　　　　　　1
∫(1/x^2)dx＝-1/x｜＝-1/1-(-1/(-1))＝－２
　-1　　　　　　　　　-1

じゃないの？

629:１３２人目の素数さん
03/08/20 01:59
>>628
1/x^2>0だから積分値は正だろ？

630:_
03/08/20 02:03
URLﾘﾝｸ(homepage.mac.com)

631:１３２人目の素数さん
03/08/20 02:06
>>625-629
ｘ＝０で発散しているから∞だろ

632:１３２人目の素数さん
03/08/20 08:37
625がまぬけだったということでよろしいでつか

633:１３２人目の素数さん
03/08/20 10:12
>>632
否、これは確かに古いバージョンでは２ではないが－２と評価しているぞ。
いまのバージョンだと∞に修正されてはいるが。

634:supermathmania ◆ViEu89Okng
03/08/20 10:50
発散積分の有限部分は確かに-2になる。
Integrate関数は超関数積分なども一部サポートしている。
これとは関係ないが、主値積分もオプション指定でできる。

ついでに、Integrate[Exp[1/(1-x^2)],{x,-1,1}]と
NIntegrate[Exp[1/(1-x^2)],{x,-1,1}]の結果を報告していただきたい。
期待しないで待っているぞ。

635:１３２人目の素数さん
03/08/20 18:05
>>625は古いバージョンと新しいバージョンの挙動の違いを言ってるだけだろ
積分値が正しい間違ってるの話をしているわけではないと思われ

636:132人目の素数さん
03/08/20 19:54
>>634
NIntegrate[Exp[1/(1-x^2)],{x,-0.998,0.998}]=3.88057*10^103でつた。
Integrate[Exp[1/(1-x^2)],{x,-1,1}]は、答えが帰ってきません（；＿；）
mathematica 4.2 for Linux-PPC

637:１３２人目の素数さん
03/08/20 20:50
ちなみにMapleの結果

int(exp(1/(1-x^2)),x);

/infinity \
| ----- 2 |
| \ hypergeom([1/2, _k1], [3/2], x )|
x | ) --------------------------------|
| / GAMMA(1 + _k1) |
| ----- |
\_k1 = 0 /

638:１３２人目の素数さん
03/08/21 01:41
オクで割れマセマティカを5000円で売ってるやつがいる。
タイーホされてほしい。

639:１３２人目の素数さん
03/08/21 01:55
>>638
通報すれ

640:１３２人目の素数さん
03/08/21 02:06
>>637
そんなの超幾何関数使って元の積分を表現しただけじゃん。

641:１３２人目の素数さん
03/08/21 03:33
0.11111111111111111111111111
って入力して実行すると
0.11111111111111111111111111
って出て、それをクリックしてエンター押すと
0.1111111111111111111111111099999999999964597
って出るんですがどうゆう意味があるのでしょうか？かなり気になるんですが。

642:１３２人目の素数さん
03/08/21 03:40
意味はない。Mathematicaが糞なだけ。（ｗ

643:１３２人目の素数さん
03/08/21 05:45
>>641
ネタで言ってるのかどうか知らんが・・・

機械精度の演算がどういう仕組みで行われているかを一度考えて見れ。

644:１３２人目の素数さん
03/08/21 07:45
それにしてもクソですな。そのくらい改善できそうなものだが。

645:supermathmania ◆ViEu89Okng
03/08/21 15:58
Integrate[Exp[1/(x^2-1),{x,-1,1}]
NIntegrate[Exp[1/(x^2-1),{x,-1,1}]
と云おうとしたら、間違えてしまった。
これなら計算できるのかな？

646:１３２人目の素数さん
03/08/21 19:01
>>644
あのさ、Mathematica では小数点を付けた数値は機械精度
で計算されるとマニュアルに書いてあるから、
0.11111111111111111111111111
と書いた時点でこれは
11111111111111111111111111/100000000000000000000000000
とは全然違う値になるわけだ。だから、もし
0.11111111111111111111111110000000000000000000
とかになったら、Mathematicaは機械精度の計算を唄っておきながら
実際にはサポートされていないことになる。

この前も同じような質問があったけど、今の大学って数値計算の理論
とか教えないんだろうか。もし習ったことが無いなら、そういう技術者や
科学者にとって必要最小限のことも教えない大学なんて行く意味がないよ。
>>641や>>642、>>644が通っている大学の学長は、こういう不祥事（と
言っても良いよね）に対する記者会見を開いても良いぐらいだと思う。鶴を
燃やした事件みたいにさ。高校生だったら、まあ仕方ないけど。

いや、今日は社会人になっても、２次方程式の解を計算するルーチンで
解の公式をそのまま使うような馬鹿に遭遇したんで、イライラしてるのかも
しれん。桁落ちが起きるだろ、アホが！お前の先輩の文型出身の奴でも
ちゃんと場合わけして回避してたぞ。

647:１３２人目の素数さん
03/08/21 20:13
NIntegrate[Exp[1/(x^2-1)],{x,-1,1}]
=0.443994

ですな。

648:１３２人目の素数さん
03/08/21 20:14
数値解析の講義なんか、あったって選択だろ。
そんなもんやってる時間があったら、
純粋数学やるわいな
数学専攻ならな

649:１３２人目の素数さん
03/08/21 20:35
>>646
俺は高校生です。仕方ないです。

650:１３２人目の素数さん
03/08/21 22:29
>>646
> 　あのさ、Mathematica では小数点を付けた数値は機械精度
> 　で計算されるとマニュアルに書いてあるから、

こんなことは書いてない。
おまえの書いた
　 0.11111111111111111111111111
はArbitrary-Precision Numberだ。
つまり、多倍長数の内部表現が二進であるか十進であるかという実装の問題だ。
偉そうなこと書くんだったらもっと勉強しろ。
一目見たらdoubleで書けないことぐらいわかれよ。

64bit以上のCPUつかってんだったら機械精度かも知れんがどっちにしろ
嘘だしな。

651:650
03/08/21 22:34
一応書いとくが、二進で結構だと考えてるよ。
# 上の馬鹿といっしょにされてはかなわん

652:１３２人目の素数さん
03/08/22 05:18
このスレ、人を罵倒するやつが多いな。

653:644
03/08/22 06:20
>>646
おいおいパターソン&ヘネシーくらい読んだことあるぜ。
0.1111111111111111111111111 != 111111111111111111111/1000000000000000000
(桁は適当ね)になっている実装がクソだと言ってるの。
機械精度なんて本来は一切要らないんだから。
そんなものこの時代のマシン特有の都合だろ？
もちろんMathematicaブックを読めば$MachinePrecisionや
N[]や12.3`なんかについてあれこれ載っている(はず)。
しかし、精度という基本的なことがらに付いてあれこれ頭を悩ませる実装および
言語体系が「クソですな。改善できそうなもんだが」というわけ。

掲示板の書き込みで憂さ晴らすのは不健康だね。

654:１３２人目の素数さん
03/08/22 06:49
よくわからんがマスマティカはくそってことでつか？

655:１３２人目の素数さん
03/08/22 06:50
>>653
６４６は書きすぎだと思うが、

> 機械精度なんて本来は一切要らないんだから。
> そんなものこの時代のマシン特有の都合だろ？

それは無いだろー

656:１３２人目の素数さん
03/08/22 11:57
>>646
知りもしないものを「クソ」あつかいか…
それに少し上のレスぐらい読め。
機械精度なんて関係ないんだよ。

計算機の上では有限の精度しか実現できないことをしっているよな？
0.1111111111111111111111111 == 111111111111111111111/1000000000000000000
にしたところで何か計算したとたんにほぼ確実に10進数表示での
数学的な等号は成立しなくなるんだぞ。
何か意味があるか？
精度の保証だけしとけば十分だろ。

Precision, Accuracyについてマニュアルを読め。

657:１３２人目の素数さん
03/08/22 12:09
>>646
この時代のマシンのことを無視してプログラム書いてどうすんだよ。

おまえが書くプログラムってどれも実用には耐えないんだろうな。

658:１３２人目の素数さん
03/08/22 20:32
私は高校生なので優しくしてください。
0.1111111111111111111111111を任意精度として扱ってもらう簡単な方法はないですか？
いちいち111111111111111111111/1000000000000000000のように入力しなおさいと正しい結果が得られないのは不便なんですけど。

659:644
03/08/22 21:53
さあ香ばしくなってまいりました。これも5発売フィーバーか？

>>658 に優しいアシストをすると、そういう小数でどんな計算したいのかを言えば、
より有益なレスがつくのではないかな？ていうか小数なの？有理数なの？
ちなみに手もとのMathematicaブックには「0.142が近似値でなく
厳密な値であるならば、142/1000と有理数として入力しなければならない」
という記述をハケーン。
あと0.11111111111111111111`200 で200桁の有効数字が、
0.1111111111111111111111''200で小数点以下200桁までの正確さが保証されるんだと。
それで十分かな？どうよ？

>>656
> 　にしたところで何か計算したとたんにほぼ確実に10進数表示での
> 　数学的な等号は成立しなくなるんだぞ。
おいおいそれこそ「計算」次第だろ。アタマ疲れてない？
>>657
> 　おまえが書くプログラムってどれも実用には耐えないんだろうな。
CやF90で書くのとMmaで書くのとには違いが出て当然だろ。言語3～4種しか知らん人？

660:１３２人目の素数さん
03/08/22 22:35
>>659
ありがとう。

661:１３２人目の素数さん
03/08/22 23:36
こんなところでしかストレス発散できないやつ。

662:１３２人目の素数さん
03/08/22 23:55
>>659
つっこみどころ満載だけどおまえにはどんな反論しても
無駄みたいだからやめとく

663:１３２人目の素数さん
03/08/23 00:51
＞　つっこみどころ満載だけどおまえにはどんな反論しても
というと
＞　さあ香ばしくなってまいりました。これも5発売フィーバーか？
の辺りか？(w >659のカキコそのものはべつに間違った内容はないんじゃないの？

ていうか5出るのか。洩れのマスマティカブック4.2版どうなるんだろう。
5対応版買った人に～とか＋'の項目だけ写させてもらおうかな。
みなさんどうしますか？ちなみに洩れはサイトライセンスで使ってる人ね。

664:１３２人目の素数さん
03/08/23 00:53
なんでこんなにｲﾀｲんだろう・・・
自覚ないのか？

665:１３２人目の素数さん
03/08/23 01:17
>>663
大分前に出たかと

666:１３２人目の素数さん
03/08/23 02:48
Mathematicaを持ってない貧乏人がひがんでるスレってここでつか？（ｗ

667:１３２人目の素数さん
03/08/23 14:08
>>659
>> 　にしたところで何か計算したとたんにほぼ確実に10進数表示での
>> 　数学的な等号は成立しなくなるんだぞ。
> 　おいおいそれこそ「計算」次第だろ。アタマ疲れてない？

だからほぼ確実に、ってかいてんだよ。日本語ぐらい読めるようになろうね。
割算もできないしSinやCosも計算できないし、かけ算したらどんどん
桁が増えてくし、どうすんの？

> 　CやF90で書くのとMmaで書くのとには違いが出て当然だろ。言語3～4種しか知らん人？

Mathematicaの設計の話をしてんだよ。

>>660
0.1111111111111111111111111は>>656で書いてあるように自動的に任意精度と
してあつかわれている。
例えば、
x = 0.1111111111111111111111111
y = 1000 x - 111
Precision[x]
Precision[Sin[x]]
Precision[y]
とか入力すると、Mathematicaが精度保証して計算してるのがわかるよ。

高校生だからわからないのだろうが、>>644はアホだぞ。

668:１３２人目の素数さん
03/08/23 15:31
なんかこのへんのフレームは、任意精度と厳密数値(Schemeでいうexactnum)との
混同に基づいているような気がする。
ということで、高校生君に
> 　0.11111111111111111111111111
> 　って出て、それをクリックしてエンター押すと
> 　0.1111111111111111111111111099999999999964597
> 　って出るんですがどうゆう意味があるのでしょうか？かなり気になるんですが。
の理由を分かりやすく教えてあげれ > 誰か
多倍長整数や高精度近似数は2^16または2^32進数(整数要素の配列)らしい。
あとMathematicaBookの「3.1数」には
　123.4 機械精度
　123.4567890123456789 システムによっては任意精度 <- なんじゃそりゃ
　123.4567890123456789` 機械精度
　123.456`200 200桁の任意精度 <- precision
　123.456``200 200桁の任意確度 <- accuracy
　1.234*^6 機械精度
　1.234`200*^6 200桁の精度 <- 任意精度ととっていいのか？
とあるね。しかしこの例が微妙に分かり辛い...
リファレンス「入力の文法」にはdigits.digitsは「近似数」としか書かれてない。
これは任意精度なの？機械精度？だれか教えてくれますか？
わたしは普段整数しか扱わないので知らないままだった。

669:１３２人目の素数さん
03/08/23 16:23
0.111... を 1/2^n の和で作ってみると一番近い数が
そのゴミがついた数字になる、というのが一番簡単な
説明だよね。
まあいくつ項を取るかというのは気になる点だろうけどね。

670:１３２人目の素数さん
03/08/23 16:54
どうも高校生です。
1-0.999999999999=9.99978*10^-13
ってなるのが嫌なんです。これは分数で書くしかないですよね。
999999999999/1000000000000って書いたりするには桁数数えなければなりません。
かなり苦痛なので分数に書き換えるプログラムを書いてみました。
For[i = 0, x ≠ IntegerPart[x], x *= 10; i++]; Rationalize[x]/10^i
xに厳密な数値に直したい小数を入れて、実行すればOKです。

671:
03/08/23 19:37
ある演算をさせて結果がたとえば
If[x>0,・・・,～～～]
のようになったとき、・・・の部分だけをある変数に代入するにはどうすればいいのでしょうか？

672:１３２人目の素数さん
03/08/23 20:33
>>668
> 　 123.4567890123456789 システムによっては任意精度 <- なんじゃそりゃ
わかってて書いてるのかも知れないが、システムによって機械精度の桁が違うから。
計算速度のために機械精度で扱える時はあつかおうとするという
Mathematicaの設計の結果。

> 　リファレンス「入力の文法」にはdigits.digitsは「近似数」としか書かれてない。
digits.digitsって？

>>670
そのプログラムバグってるぞ。
x = 0.9999999999999999999999999
で試してみ。
# というかRationalize[x,0]の不完全版を回りくどくやっているだけ。
欲しいのは
FromDigits[RealDigits[x], 10]
あたりか？

>>671
状況が良くわからないが、
If[x > 0, ..., ...][[2]]
とか、もしかしたら
Simplify[If[x > 0, ..., ...], x > 0]
とか。

673:１３２人目の素数さん
03/08/23 20:36
>>668
わかった > 　digits.digits
機械精度にしろ任意精度にしろ近似数、ということ。
# 内部表現が2進なら必然的にそうなるな。

674:671
03/08/23 21:46
>>672
Simplify[If[x > 0, ..., ...], x > 0]
でできました！
ありがとうございました

675:１３２人目の素数さん
03/08/23 22:40
>>672
あれー、なんぜバグっちゃうんだろー。
Rationalize[0.42857142857142857142857142857]とかの場合3/7になっちゃうから
そうならない版を作ったつもりだったんだけど…。
FromDigits[RealDigits[x], 10]かあ。すごいです。つーか、こんな関数しらなかった…。

676:１３２人目の素数さん
03/08/24 16:33
Mathematicaで平方完成する方法を教えてください

677:１３２人目の素数さん
03/08/24 17:41
降ベキの順に表示させる方法ってないの？

678:１３２人目の素数さん
03/08/24 20:18
>>676
H[f_, x_] /; PolynomialQ[f, x] :=
　 Module[{r, b, c},
　　 r = (x - b)^2 + c; r /. Flatten[SolveAlways[f == r, x]]]

Example: H[x^2 + 3 x + 2, x]

>>677
TraditionalFormか、別の方法としては、
HoldFormをもちいた並び替え関数を書く。

679:１３２人目の素数さん
03/08/24 20:56
二次の係数は?

680:１３２人目の素数さん
03/08/24 21:09
>>679
それぐらいは自分で直せよ…。

681:１３２人目の素数さん
03/08/24 21:11
日本語ﾍﾙﾌﾟ欲しーーーーーーーーーーー！。
いちいちmathematicaの公式サイトみるの大変…。
つーか、日本語版欲しい。

682:１３２人目の素数さん
03/08/24 22:12
>681
日本語キット(Help 日本語) が \50k ぐらいで売ってるよ。
というか、もう日本語ヘルプ強制バンドル品しか買えない。

Mathematica のヘルプの英語ぐらいは読めるように
しておいた方が何かと便利だと思うんですけど。。。
やっぱり日本語ヘルプのニーズは多いのかなぁ。

683:１３２人目の素数さん
03/08/25 00:02
>>682
高すぎ…。

684:１３２人目の素数さん
03/08/25 00:36
>>678
Mathematicaの関数としては、ないわけですね。自分で作るしかないってことか。

ありがとうございました。

685:１３２人目の素数さん
03/08/25 01:37
このソフトの中の人って頭良いけどちょっと融通が利かないというか…。

686:１３２人目の素数さん
03/08/25 02:29
>>685
人が入ってたのかよｗ

687:中の人
03/08/25 12:20
ユーザにもっと勉強してもらいたいものだ

688:１３２人目の素数さん
03/08/25 16:52
>>687
sin[x]とかやった時に
「Sin[x]じゃないですか？」
とか言ってる暇があったらそれで計算しろカス

689:１３２人目の素数さん
03/08/25 17:29
>>688みたいなカス(例えば>>644)が多いなこのスレ。

実際はMathematicaの中の人は他の同系統のソフトの人と比べると、
「頭(知識)は普通(以下？)だが凄く融通が効く」
人だよ。

690:１３２人目の素数さん
03/08/25 18:22
>>689
人の平均から比べたら融通が利かない方だと思われ

691:１３２人目の素数さん
03/08/25 18:46
>>689は日本語を覚えたウルフラム

692:１３２人目の素数さん
03/08/25 22:32
まあ日本国内在住人にとっては腹の立つほど値段が高いこと、
それ以外は悪くないと思いますけどね。

もっともあの英語マニュアルを通して読めたのは
暇だった学生だったからなので、普通の生活では
ちと厳しいかな。

国産の RISA/ASIR も１０万くらい払っていいから
他の商用並の使い勝手にならんかな。

693:１３２人目の素数さん
03/08/25 22:36
>>690
それはそうだな。でもプログラミング言語ってのは厳密さがいいんだよ。
「sin?どうせSinと同じだろ」とか「+? ここは普通-だろ」とかやられたら
実際困る。

694:１３２人目の素数さん
03/08/25 22:48
>>692
要はMathematicaの買えない貧乏人のひがみだろｗ

695:１３２人目の素数さん
03/08/25 23:23
>>693
もちろんそんなのは分かってる。所謂ジョークだよ。

696:１３２人目の素数さん
03/08/26 14:19
list={{Aaa[a],Aaa[b],Aaa[c]},{Aaa[d],Aaa[e],Aaa[f]},{Aaa[g],Aaa[h],Aaa[i]}}
というリストがあって(ホントはもっと長い)、こいつを
{{a,b,c},{d,e,f},{g,h,i}}
にしたいのですが、エレガントな方法を教えてつかあさい。
Tableは使わないでね。

697:１３２人目の素数さん
03/08/26 15:32
>>696
(#[[1]] & /@ # &) /@ list

698:697
03/08/26 15:35
>>696
Map[First, list, {2}]
のほうがいいな。

699:１３２人目の素数さん
03/08/26 20:09
>697
>698
できました。Thanks
さすがですねぇ

700:１３２人目の素数さん
03/08/26 20:23
教えてつかあさい。

701:１３２人目の素数さん
03/08/27 01:40
mathematicaの初心者講座やって下さい。

702:１３２人目の素数さん
03/08/27 02:54
yada

703:１３２人目の素数さん
03/08/27 07:25
>>701
Shift+Enter

704:１３２人目の素数さん
03/08/27 10:06
MacではEnterだけで実行!

705:supermathmania ◆ViEu89Okng
03/08/27 11:35
Re:>701 MathematicaにはHelpが付いているはずだ。それを読むといいだろう。
まずは、Shift+EnterとExit[]と、+-*/^という演算子と、関数の引数は四角括弧で採ることを覚えよう。

706:１３２人目の素数さん
03/08/27 19:21
>>705
Exit[]知らなかった！！

707:706
03/08/27 19:22
つーか、何の意味があるの？DOSみたいに終了するのかと思いきやしないし。

708:１３２人目の素数さん
03/08/27 20:22
Quit[]
とすると、カーネルが終了するのだ
わかったかね

709:１３２人目の素数さん
03/08/27 20:41
>>708
カーネルってなんですか？あとそれ以前にExitはどんなときに役に立つのですか？

710:abc
03/08/27 21:37

おかねもうけ情報見つけました

URLﾘﾝｸ(pocket.muvc.net)

711:１３２人目の素数さん
03/08/28 02:03
Windowsです
[スタート]の[プログラム]メニューにあるMathematicaでカーネルを２まで同時に立ち上げることができる。
（プロフェッショナル版）

712:１３２人目の素数さん
03/08/28 07:48
xyではなくてx*yを使うの？

713:１３２人目の素数さん
03/08/28 09:37
カーネルってのは、
フライドチキンのおじさんのことだ
覚えておけよ

714:１３２人目の素数さん
03/08/28 22:04
普通乗算はスペースだよな。

715:１３２人目の素数さん
03/08/31 21:04
Random[]で出る結果は何通りくらいある？

716:１３２人目の素数さん
03/09/01 06:52
>>715
意味わかんね

717:１３２人目の素数さん
03/09/01 18:06
>>716
Random[]で出る数は何種類から選ばれるかということです。
多ければ多いほど優秀、と。

718:１３２人目の素数さん
03/09/01 23:07
>715
Help に書いてないか？

まあ書いてないとして高々二桁 bit なんで十進数で
33 桁程度ではないか？基本的には剰余だろうから。。。

719:１３２人目の素数さん
03/09/03 03:14
>>718
ありがとう。
ピッタリ1とかピッタリ0ってありますか？

720:１３２人目の素数さん
03/09/03 17:31
SeedRandom[Random[]]ってやるとかなり増える？

721:１３２人目の素数さん
03/09/03 22:21
>719
ぴったりですか。。。原理的にはあるんだけど
実数乱数なら無いとしたほうがよく
整数乱数なら有りそうね。でもこれも Help に書いて無いか？

>720
基本的には Random[] は余りを周期的に利用していると考えて
そう外れがない。
SeedRandom は、この周期のどこから始めるかを指定する
だけなので、増えんよ。

722:１３２人目の素数さん
03/09/05 15:45
Mathematica Ver.5日本語版リリース! あげ
URLﾘﾝｸ(www.wolfram.com)

でも代理店はどこもVer.4のままれす

723:１３２人目の素数さん
03/09/11 18:05
Ver.5
クラスルームってのは特別定価４万６千円だとよ

724:１３２人目の素数さん
03/09/17 09:30
mathematicaで計算実行したら、
”Internal counter overflow.
Some expression evaluations may not run to their
final fixed points. Try redoing your computation
on a 64-bit enhanced version of Mathematica.”
こんなエラー出てしまって計算やってくれないのですが、これってどういうことですか？
ちなみにVer.4です

725:EXCITE 翻訳
03/09/18 03:00
内部カウンタのオーバーフロー。いくつかの表現評価はそれらの最終固定
小数点で実行不可能かもしれません。Mathematicaの64ビット増強された
バージョン中のあなたの計算をやり直してみてください。

726:１３２人目の素数さん
03/09/18 14:35
k1=1/12; k2=1/6;

g[t_] = 2.30743*Exp[t^3.30352]*t^2.30352

h[t_] = (t*(k2+Sqrt[k2^2-t*k1^3]))^(1/3)

k[t_] = h[g[t]] + k1*g[t]/h[g[t]]

のとき、

NSolve[Integrate[h[t], {t, 0, tk}] == 1, {tk}]

を解きたいのですが、式が複雑すぎてエラーの嵐でした。
FindRootでもできませんでした。
先生によれば工夫すればできるらしいのですが、さっぱりわかりません・・・
どなたか教えていただけないでしょうか？

あと、g[t]の値はある計算結果なのですがそのままだと
2.30743*Exp[0.t^3.30352]*t^2.30352
となっているんですが、
0.t^3.30352　= t^3.30352
でいいんですよね？見たことない表現なので戸惑ったのですが・・・
なんでこんな表現になるんでしょうか？

727:１３２人目の素数さん
03/09/18 22:18
>>726
g も k も関係ない。

解けないのは式が複雑だからじゃなくて、使いかたが間違っているから。
NSolveはpolynomialを解くものであって、一般の式は解けない。

数値解は
FindRoot[NIntegrate[h[t], {t, 0, tk}] == 1, {tk, {1, 2}}]
等。(ただし、Sqrtの中身が負にならないtの範囲で)

0.t に見えたのは0. tで、0. * tだろう。その解釈は間違い。

728:726
03/09/18 23:20
>>727
レスどうもです。
726にも書きましたがFindRootでもできませんでした・・・

また、0. * tって0*tとは違うんですよね・・・？
0. ＝桁数の小さい小数ってことですか？

729:726
03/09/18 23:31
>>727

書き込んでくださった
FindRoot[NIntegrate[h[t], {t, 0, tk}] == 1, {tk, {1, 2}}]
でやってみたところできました。
FindRoot[Integrate[h[t], {t, 0, tk}] == 1, {tk, 1}]
でやったらできなかったのですが、なぜこれだとできなかったのでしょうか・・・？

730:１３２人目の素数さん
03/09/18 23:36
>>729
0.が常に0と区別できないRealsを表すのかどうかは知らない。
FullFormすればその0.の値はわかるけれど。

HelpのFindRootの項を読みなさい。

731:726
03/09/20 02:02
>>730
FindRootについて勉強してみます
ありがとうございました

732:１３２人目の素数さん
03/09/20 12:51
>>731
ヘルプ読むのに10分もかからんだろ。そして読んだら、
> FindRoot[Integrate[h[t], {t, 0, tk}] == 1, {tk, 1}]
でもできないとおかしいと気づくはず。
答えが大体わかってたから、数値計算だけでもとめられる{tk,{1,2}}の
指定をしただけだ。

{tk,1}と指定すると、ニュートン法を行おうとする。
Integrate[h[t], {t,0,tk}]の微分は計算できる(h[t])から、
ニュートン法が適用できるはずだ。

実際遅いだけで、(Ver. 4.2では)解ける。

733:１３２人目の素数さん
03/09/22 17:36
どなたか教えて頂けないでしょうか。ほとほと困り果てております。
「1カラム→実数、　2カラム→複素数」
のテキストファイルをリストとして読み込ませるためには、どのよう
にしたらよいのでしょうか？

734:supermathmania ◆ViEu89Okng
03/09/22 17:44
Re:>733 C言語なら楽勝だよ。

735:１３２人目の素数さん
03/09/22 17:59
>733
何のリストに読み込ませたいんだい？

736:１３２人目の素数さん
03/09/22 18:03
>733
Excelに貼り付けて文字列関数でCONCATENATEを使って結合すれば？
括弧の部分とかは、固定の文字列として入れればいい。

737:１３２人目の素数さん
03/09/22 18:43
>>735
Mathematicaで読み込ませたいです。

738:１３２人目の素数さん
03/09/22 18:45
リストはこんな感じです。
　　　　　↓
実数　複素数
1　　3+I2
2 　　4+I5
3 　　8+I9

739:１３２人目の素数さん
03/09/22 19:26
>>739
data.datの中身が、
1　　　3+2I 　
2 　　　4+5I 　
3 　　　8+9I
なら、
ReadList["data.dat", {Number, Expression}]

I2, I5, I9などとなっていたら、Symbolと理解されてしまうので、
あらかじめ加工しておくか、Stringで読み込んでMathematica内でパースする。

740:１３２人目の素数さん
03/09/23 10:48
>>739
本当にありがとうございます。これから試してみます！

741:１３２人目の素数さん
03/09/23 17:38
Readlist[#,Record]& で読み込み
Characters でばらす。

742:１３２人目の素数さん
03/09/25 00:45
灯台に再びサイトライセンスで導入されるようだな。
1年の解析Bを取る連中は、課題を解く手間がずいぶん少なくなるだろう。

743:１３２人目の素数さん
03/09/27 13:12
今入ってないのか

教官が授業で使っててずっけーって思ってた

744:１３２人目の素数さん
03/10/05 21:23
f[x_] :=
Print[b];
Return[x]

という関数を定義したとき
f[6]と入れても
bとプリントされるだけで、6が返ってきません。
どこが問題なのか分かる方教えてください。

745:744
03/10/05 21:37
f[x_] :=
Module[{},
Print[b];
Return[x]
]

こう定義し直したら
f[6]を実行した時
bがプリントされて、６が返ってくるようになりました。

どうしてよくなったかは分からないですが…

746:１３２人目の素数さん
03/10/05 22:00
>>745
>>602を見ろ。

747:744
03/10/05 23:02
>>746
ありがとうございます。
こう定義し直して、うまく行くことが分かりました。

f[x_] :=
(
Print[b];
Return[x]
)

748:１３２人目の素数さん
03/10/07 23:53
y^2=x^3-2 (-2<=x<=2)このグラフが書きたいのですが･･･
Plot[Sqrt[x^3 - 2], {x, -2, 2}]こう書くと上手くいきません。
どなたか教えてくださいませm(__)m

749:１３２人目の素数さん
03/10/08 02:02
>>748
そりゃあ、x^3-2<0の部分は書けないに決まってる。

750:１３２人目の素数さん
03/10/08 15:25
>>748
<<Graphics`ImplicitPlot`
ImplicitPlot[y^2 == x^3 - 2, {x, -2, 2}, AspectRatio -> 1]

751:748
03/10/08 21:53
>>749さん
>>750さん
（ﾟ´Д｀ﾟ）どうもありがとうございます。助かりました。

752:１３２人目の素数さん
03/10/12 18:49
だれかWebMathematicaを使ってWeb上で数式処理が無料でできるサイトを構築してください！
俺にはMathematicaを個人的に買える予算などないんです！学生じゃないし！

753:１３２人目の素数さん
03/10/13 02:23
おとなしくみゅーぱっどでも使っとれ

754:１３２人目の素数さん
03/10/15 23:37
>>753

プロ版じゃないと見栄えが悪いと言ってみる。

755:１３２人目の素数さん
03/10/16 09:39
じゃ、MAXIMA使えばぁ

756:１３２人目の素数さん
03/10/16 12:08
フリーウェアでほとんどの数式をグラフにしてくれるソフトあるよね。
どんな極方程式もグラフにしてくれるやつ。すげー楽しい

757:１３２人目の素数さん
03/10/19 14:52
Functionのコマンドについて質問です
ｘ＾２＋ｙ＾２が０になるときのｘを求めるもので
条件としてｙはすでにリストになっています（例えば、y[[1]]=1,y[[2]]=2）
そこで、functionを使ってｘについての方程式をつくり求めようとしました
が、
A=Table[0,2];
Do[
A[[i]]=Function[{x,y},x^2+y^2][x,y];,{i,1,2}
];
として、A[[1]][1]と出力した場合にx^2+1[1]となってしまい、ｘに１を代入してくれません
理想としては１＋１（=2）となってほしいのです
どのようにすれば、求めることが出来るのでしょうか？
よろしくおねがいします

758:１３２人目の素数さん
03/10/19 16:28
>>757
貼っても動かない上に全く意味不明だ。
Table[0,2]とはなんだ。
(x^2 + y^2)[1]でなにがやりたいのだろうか。

759:１３２人目の素数さん
03/10/19 16:38
x^2 + y^2 が0になるような整数は(0,0)しかない。

760:７５７
03/10/19 18:15
すいませんでした。実際ｘはもっと複雑な関数でして、わかりやすくするために
ｘにしてしまいました。
つまりやりたいことは、ある２つの変数（ｘ、ｙ）をもった式があります
条件としてｙはすでに決まっていてリスト化されています（例：ｙの１番目＝１、２番目＝２、ｎ番目・・・）
そこで、ｙがｎ番目の時に式＝０となるときのｘを求めたいのです

761:１３２人目の素数さん
03/10/19 20:33
y = Range[10];
A := Table[Function[x, x^2 + 　y[[i]]^2 // Evaluate], {i, 1, 10}];

A[[1]][1]

なんども書き込んでるんだけど反映されない…

762:１３２人目の素数さん
03/10/19 21:17
Plotを使ってグラフを描いたときに目盛りに書かれる数字を大きくする方法ってあるんでしょうか。
グラフを大きくしたいときに表示されている部分の角をマウスでドラッグして大きさを変えているんですが、
目盛りの数字が大きくならないんです。
最初に描かれるグラフの大きさも変えたいんですがこちらも分かりません。
全然数学な内容でなくて申し訳ありませんが教えてもらえないでしょうか。

763:757
03/10/19 22:29
ありがとうございます。そのやり方でできました。
あの、そこで例えばx＾2+y^2=100と置いた時に
x^2+1=100, x^2+4=100 ・・・ x^2+100=100と１０個のリスト化された式がでます
そこで、xを求めるためにFindRootを使ったのですがリスト化されたものに対して
答えを出そうとするとうまく行きません
答えをリストとして出すためにはどのようにすればいいのでしょうか
よろしくおねがいします

764:１３２人目の素数さん
03/10/19 23:09
少しは自分で考えろ。

765:１３２人目の素数さん
03/10/19 23:25
>>762
DefaultFont -> {"Bold", 10}

766:１３２人目の素数さん
03/10/19 23:50
>>765
ありがとうございます。明日早速試してみます。
>>764
すみません、Plot周りのオプションで探してはみていたのですが
「それじゃ見つかるわけがない」と猛反省しています。

767:772
03/10/20 14:05
自己解決いたしました。ありがとうございました

768:１３２人目の素数さん
03/10/22 20:19
mathematica5のStudent版買った人いる？

769:１３２人目の素数さん
03/10/26 20:25
買ったよ。パスワード申請が相変わらず(｀×´)丿ウザイ!!

770:１３２人目の素数さん
03/10/26 23:26
最近のMathematicaも
Windows版、Mac版、Linux版とかは一枚のCDで提供されているんですか？
少なくとも3.0の頃はNeXTとかも一緒に入っていて
プラットフォームの乗り換えの時、便利でしたが。

771:１３２人目の素数さん
03/10/27 00:45
Winnyで落としたんだけど、なんかパスワードだか必要で使えん
意味ねー

772:１３２人目の素数さん
03/10/27 01:08
>>771
keyGeneratorがついてるだろ

773:１３２人目の素数さん
03/10/27 01:23
>>772
そんなアドバイスしてどうする…

774:１３２人目の素数さん
03/10/27 02:52
>>769
ネットでできるようになったんじゃなかったけ？

775:１３２人目の素数さん
03/10/27 03:04
ImportやExportのデフォルトのフォルダを指定する方法ありませんか？
初期設定は、Mathematica.exeと同じフォルダになってるけど
そこだと毎回面倒なので、デスクトップとかマイドキュメントに変えたいです。

今はImport["C:\Documents and Settings\galois\My Documents\sound.wav"]
とか書いてます。

776:１３２人目の素数さん
03/10/27 08:51
今日アクティベーションが切れた。
来年から社会人だから糞高い値段かわんといけんのかと思うと鬱

777:１３２人目の素数さん
03/10/28 17:17
会社で買ってもらえ（ｗ

778:１３２人目の素数さん
03/10/28 20:59
Yahooオークションで安いの出てるよ
でもたぶん違法だと思うが

779:１３２人目の素数さん
03/10/30 00:57
高いねぇ、教員やっていても無茶苦茶高い。しかもバージョンアップが
毎年あって、その価格もとても高い。こんなのを学校で教育に使うという
ことは、ＭＡＴＨＥＭＡＴＩＣＡの会社に貢物をしているようなもので
正気じゃない。卒業生が馬鹿高いソフトを買うように仕込んで協力している
ようなものだよ。そんな金があるのなら、優等な学生に奨学金を出すべきだ。

780:眠い
03/10/30 01:29
残念なことに、知ってる範囲のMathematicaユーザは優等生を兼ねてるね
優等生は金持の息子が多い、生活に余裕がないと自由に勉強する余裕がないからそうなる

781:１３２人目の素数さん
03/10/30 20:19
貧乏人はフリーのMuPad,maximaを使えってことでつか
Mathematicaを持っているおいらはバージョンアップしないで
古いやつを大事にしまつ

782:１３２人目の素数さん
03/10/30 22:06
忘れるな、MuPadは無料だが中身はブラックボックスだ。その点Mathematicaと一緒。

それと古いMathematicaのバグや劣ったアルゴリズムは懐で温めても直らんよ。

783:１３２人目の素数さん
03/10/30 23:08
激しく既出だが、mupadはmathematicaよりmapleの方に近い。
ところで、mathematica4.0を持っているのだが、バージョンアップできるのは
5.0までか？それとも、5.1、5.2まで待てるか？

784:１３２人目の素数さん
03/10/30 23:33
4.0のupは5.0までだとDMにあったような

785:１３２人目の素数さん
03/10/31 23:29
オープンソースの数式処理ソフトって何?

786:１３２人目の素数さん
03/11/05 20:16
東西南北に行けるという2次元ランダムウォークをなんとか自力で組み立てた
んですが、格子のない（今いるところから半径１の円周上に動く）ランダムウォークが
どうしてもつくれないんですけど、どうしたら作れますか？アドバイス下さい。
当方まだmathematicaさわってまだ1ヶ月なもんでさっぱり知識ありません(^^;
自分で調べようにもいきなり学校でやれっていわれたもんなんで参考書すらないのです･･･
参考(?)までに格子のあるランダムウォークの肝心な所を載せます↓
Walk2D[n_] :=
FoldList[Plus, {0, 0}, {{1, 0}, {0, 1}, {0, -1}, {-1, 0}}
[[Table[Random[Integer, {1, 4}], {n}]]]]

いきなり長文＆質問すいませんです

787:１３２人目の素数さん
03/11/05 21:33
>>768
Walk2D[n_Integer] :=
　 FoldList[Plus, {0,0},
　　 {Cos[#], Sin[#]}& /@ Table[Random[Real,{0,2 Pi}], {n}]]

ListPlot[Walk2D[60], PlotJoined->True]

788:786
03/11/07 01:22
>>787
おぉ、すごい！！本当にランダムな角度で動いてますね！！！！
皆さんこんなの朝飯前ぐらいな問題ですか？

どーもありがとうございましたm(_ _)mﾍﾟｺ

789:１３２人目の素数さん
03/11/07 21:57
教えてつかあさい。

URLﾘﾝｸ(phong.informatik.uni-leipzig.de)
ここにあるMathGL3d for MacOS X
というのを使いたいのですが、
インストールできません

MacOS XのMathematicaはパッケージなんで
サブフォルダに必要なファイルを入れることができないんです
??

790:１３２人目の素数さん
03/11/08 00:04
>789
拡張子
.app
を取ると、フォルダになります。

それでいいのかわかりませんが

791:１３２人目の素数さん
03/11/08 13:26
SolveやNSolveなどで複素数の答えがでてしまう式があります。

答えをCases[%, _Real]などで実数の範囲内を出すことができますが、
答えを編集するのではなく
もともとの式の変数の範囲を固定して
計算の高速化なり、入力する式達の簡略化はできるのでしょうか？

速度は不満ではないのですが、少し気になったので。

792:１３２人目の素数さん
03/11/08 18:48
>789
コントロールキーを押しながら
Mathematicaのアイコンをクリック

793:１３２人目の素数さん
03/11/13 19:23
Mathematica でバイナリファイルを読み込もうと

In[1]:= Needs["Utilities`BinaryFiles`"]
In[2]:= ReadListBinary["filename",Int16]

としているんですが処理が全然終わらないんです。
webで検索して
URLﾘﾝｸ(library.wolfram.com)
をみつけたのですが、mccがうまく動いていないのか

% mcc binary.tm -o binary
"binary.tm", line 189.15: 1506-195 (S) Integral constant expression with a value greater than zero is required.
(このあともいっぱい似たようなのが表示されます)

となりビルドできません。
実は読もうとしているデータはエンディアンが違い、
読めた後も一工夫しなければいけなさそうでそちらを相談したかったんですが、
それ以前に読めなくて行き詰まってしまっています。
どなたかこの原因をご存知の方、対処法を教えていただけないでしょうか。
Mathematicaのバージョンは Mathematica 4.1 for IBM AIX です。

794:大学生
03/11/13 22:57
大学で課題がでたんですがみなさんの案で私を助けてください！

問題（例えば高校の参考書の問題や例題、大学の問題でも可）をあげてそれの解答の一部分をマスマティカを使って
視覚的に解説せよ。（アニメーションを使うと理想的）

ってのがでたんですが、イイ案ありませんか？人とはちがったのをやりたいんですが・・・
私には知識がありません。おねがいします。

アド載せとくんでマスマティカのソースファイルなんかを添付してくれれば一生感謝します。
どうかおねがいします！もちろん書き込みしてくれても感謝ですｍ（＿＿）ｍ

795:大学生
03/11/13 23:03
>>794です。アド載ってませんでした。

796:１３２人目の素数さん
03/11/14 02:54
y=-x/(x^2+2)のグラフとその接点と接線を書きたいのですが、グラフと接点をtableとshowを使って
動かすのまではうまくいくのですが、接線が動きません、てか接線だけすら表示できません。教えてください。

797:朝から呑んでる大学生
03/11/14 09:41
>>796
暇つぶしになんとなく
Do[{
bmp=Graphics[{RGBColor[1,0,0],PointSize[0.02],
Point[{x,x/(x^2+2)}],{RGBColor[0,1,0],
Line[Table[{k,k/(k^2+2)},{k,-10,10,.2}]]},{RGBColor[0,0,1],
Line[Table[{p,(2-x^2) p/(x^2+2)^2+2 x^3/(x^2+2)^2},{p,-10,
10,.2}]]}}];
Show[bmp]},{x,-10,10}]

798:１３２人目の素数さん
03/11/14 10:10
>>797
何呑んでるの？

799:１３２人目の素数さん
03/11/14 19:45
ｘ軸とｙ軸を描いてy=-x/(x^2+2)のグラフを固定し接線を動かすにはAxes->Trueとなにを使えばいいんですか？

800:１３２人目の素数さん
03/11/14 20:22
>>799
PlotRange

801:797
03/11/14 21:00
>>798
マサイの戦士

802:１３２人目の素数さん
03/11/14 23:21
>>801
「呑んでる」言うから酒かと思ったらソフトドリンクかい

803:１３２人目の素数さん
03/11/17 17:40
>>802
マサイの戦士は「ソフト」ドリンクですか？？

804:マティカの戦士
03/11/18 11:05
>>803
こんな飲み物
URLﾘﾝｸ(www.otsuka.co.jp)

805:狼
03/11/18 22:27
あのーサイクロイドをマスマティカで書きたいんですがどうすればいいですか？？
てかサイクロイドって円の一点を固定（？）して円を転がしてその一点の動いた軌跡じゃないですか？
私は円を転がしてその軌跡が描かれていく様子をアニメーションを使って表そうとしてるんですが、
うまくいきません。円と一点と軌跡をShowをつかってあらわしたいんです。
どうかだれか教えてください。（日本語下手ですいません）

806:１３２人目の素数さん
03/11/18 22:52
>>805
Mathematicaのヘルプにサンプルがあるだろ

807:狼
03/11/18 23:30
help英語でわかりません。コピペしていただけたらありがたいです

808:１３２人目の素数さん
03/11/18 23:59
XpでMathematica5を使ってると，ときどきカーネルが落ちるんだけど，
同じような人いる？

809:１３２人目の素数さん
03/11/19 00:16
>>808
重い計算させてりゃＸＰでなくてもカーネルは落ちる

810:１３２人目の素数さん
03/11/19 10:42
>>808
カーネルの中の人も大変だからな

811:supermathmania ◆ViEu89Okng
03/11/19 12:51
いいこと教えてあげよう。
Mathematicaを使うときは、なるべく他のアプリケーションは切る。
これを守れば今日からジンセイバラ色(?)

812:supermathmania ◆ViEu89Okng
03/11/19 12:54
私がいつかやってしまった事だが、
TeXのdviファイルのプレビューと、Mathmaticaを同時に動かしたとき、フリーズした。
気をつけよう。

次ページ