- 1 名前：１３２人目の素数さん [2001/03/20(火) 02:34]
- ないので立てました。
Mathematicaについて語るスレです。
大学で初めて出会った時は感動したなぁ。(NeXT版…)
Plot3Dでよく遊んだものです。
四次方程式の一般解を出力して、壁に貼ったりしてました（ｗ
- 929 名前：１３２人目の素数さん mailto:sage [04/01/27 20:42]
- mapleｽﾚがないのでこちらで質問させていただきます。
mapleのワークシートの背景を変更することはできないのでしょうか。
白だと目が痛いです・・・。
- 930 名前：１３２人目の素数さん mailto:sage [04/01/27 22:43]
- Mathematica4で、ListPlotでx軸が0から1までの2次元の折れ線グラフを書いているのですが、
x軸とy軸の交点の部分の0を表示させたいです。
それと、x軸の数字というか、刻みが0.2刻みで、0.2,0.4,0.6,0.8,1とグラフが刻まれているのですが、
これを0,0.5,1の、0.5刻みにしたいです。
どのようなパラメータを与えれば、これらができるのでしょうか？
よろしくお願いします。
- 931 名前：837 mailto:sage [04/01/28 00:45]
- >>928
ｶﾞﾝ( ﾟдﾟ)ｶﾞﾚ
>>929
ヘルプファイルを熟読した後、
Mapleのスレを建ててください。
もしくは数学ソフト一般（Mathematica以外？）のスレ。
>>930
(* x の 目盛りだけを指定する *)
SetOptions[ListPlot, Ticks -> {{0, 0.5, 1}, Automatic}]
(* ↑だと０が表示されないので、原点を少しずらす *)
SetOptions[ListPlot, AxesOrigin -> {-0.0001, -0.0001}]
(* またこれでもいい *)
ListPlot[{{0.0, 0.0}, {0.1, 0.5}, {0.3, 0.3}, {0.5, 0.4}, {1.0, 0.6}},
PlotJoined -> True, AxesOrigin -> {-0.0001, -0.0001},
Ticks -> {{0, 0.5, 1}, Automatic}]
(* こんなOptionも発見した *)
tl = ListPlot[{5, 3, 4, 6}, DisplayFunction -> Identity];
Show[tl, DisplayFunction -> $DisplayFunction];
- 932 名前：１３２人目の素数さん mailto:sage [04/01/28 01:26]
- 深さ優先探索
擬似コード
局所変数：g,start,edgeOrdering,adjList,checked
search(v)
checked[[v]]←True
for each u∈N(v) do
if checked[[u]] = False then
Append(edgeOrdering,{v,u})
search(u)
depthFirstSearch(G,start)
for each vertex v∈V do
checked[[v]]←False
search(start)
Return edgeOrdering
depthFirstSearchで定義される局所変数はsearchで使用する。
そのためdepthFirstSearchはBlockとする必要がある。
隣接リストを使った方が楽である。
上記の擬似コードのMathematicaのプログラムを教えて下さいm(_ _)m
- 933 名前：１３２人目の素数さん mailto:sage [04/01/28 01:57]
- >>931
オオ！完璧です！
あいらぶゆー
- 934 名前：１３２人目の素数さん mailto:sage [04/01/28 16:22]
- スミマセン、私もListPlotで点を連結して2Dの折れ線グラフを書いてるんですが、
複数のグラフを重ねてShowで表示させ、グラフ同士を比較したいのですが、
どれがどのグラフなのかがわかりにくくなってしまいます。
そこで、各グラフの右端、つまりx軸の最大値に対してPlotした点の右脇に、
グラフの番号を表示させて、グラフを重ねてもグラフ同士の区別がつくようにしたいのですが、
どうやればいいんでしょうか…。
親切な方、教えて下さいm(＿)m
- 935 名前：１３２人目の素数さん mailto:sage [04/01/28 22:36]
- >>934
ていうか色をつければいいのでは。
- 936 名前：１３２人目の素数さん mailto:sage [04/01/28 23:02]
- >>935
印刷するのでカラー使えないんですよ…。
いよいよ方法がないとなったら、MSペイントか何かで直接画像に数字書き込めばいいんで
そんなせっぱ詰まってもないんですけど…。
- 937 名前：１３２人目の素数さん mailto:sage [04/01/29 14:45]
- >>936
じゃあ、Legendをヘルプで。
- 938 名前：１３２人目の素数さん mailto:sage [04/01/29 19:22]
- >>870
ちなみにkeygenはネットに出回ってるよ。5.0でも使える奴が。
- 939 名前：１３２人目の素数さん mailto:sage [04/01/29 22:50]
- オイラー閉路の問題なんですが、
アルゴリズム
入力：オイラー閉路を持つグラフＧ
出力：Ｇのオイラー閉路
手順：任意の頂点Ｓから出発して、次の規則に従いたどれる辺が無くなるまで辺をたどる
（１）たどった辺はＧから除く
（２）ほかにたどる辺が無い場合以外は橋をだどらない。
上のオイラー閉路を見つけるためのアルゴリズムを使った、アニメーションプログラムを教えて下さい！
- 940 名前：１３２人目の素数さん [04/01/31 00:14]
- 有限体GF(2)上の拡大体GF(2^8)の256個(0,1,α,α^2,・・・,α^254)の元
を8次元ベクトル表示した表が欲しいのですがどうすればいいか分かりません。
教えてください。よろしくお願いします。
(αは原始元，既約多項式はX^8+X^4+X^3+X^2+1です)
- 941 名前：837 mailto:sage [04/01/31 01:25]
- >>932
擬似コードってなんですか。
>>939
この辺かな
mathworld.wolfram.com/EulerianCircuit.html
mathworld.wolfram.com/KoenigsbergBridgeProblem.html
>>940
有限体がよくわからないので、とりあえずここで検索してみてください。
mathworld.wolfram.com/
手計算で求められるのであれば、式を書きこんでおいてください。
誰かがmathematica上のプログラムに変換してくれます。
- 942 名前：940 [04/01/31 02:28]
- >>941
アドバイス感謝します。
α^0=(0,0,0,0,0,0,0,1) α^1=(0,0,0,0,0,0,1,0) α^2=(0,0,0,0,0,1,0,0)
α^3=(0,0,0,0,1,0,0,0) α^4=(0,0,0,1,0,0,0,0) α^5=(0,0,1,0,0,0,0,0)
α^6=(0,1,0,0,0,0,0,0) α^7=(1,0,0,0,0,0,0,0)
α^8はα^8+α^4+α^3+α^2+1=0より，α^8=α^4+α^3+α^2+1
α^8=(0,0,0,1,1,1,0,1)
α^9=α^5+α^4+α^3+αより
α^9=(0,0,1,1,1,0,1,0)
とずっと計算していくとα^255=1
となります。こういうのmathematicaの関数で計算できないですかねえ？
- 943 名前：837 mailto:sage [04/01/31 19:29]
- α^ 8=α^4+α^3+α^2+1 =(00011101)
α^ 9=α^5+α^4+α^3+α^1=(00111010)
α^10=α^6+α^5+α^4+α^2=(01110100)
α^11=α^7+α^6+α^5+α^3=(11101000)
α^12=α^8+α^7+α^6+α^4
=α^7+α^6+2*α^4+α^3+α^2+1=(11010000)+(00011101)
=(11011101) || (11001101)
α^12の答えはどっちだろう。
どちらにしろビット演算の繰り返しっぽいですね。
- 944 名前：１３２人目の素数さん mailto:sage [04/02/02 11:37]
- アニメーションGIFについて質問です．
Export["filename",graphics,"GIF"]
で出力はするのですが，それをPOWER POINTに貼り付けても動いてくれません．
Windows 画像とFAXビューアでも「描画できませんでした」と表示されます．
Internet Explorerで開いたときはちゃんと動くのですが．．．（しかし，ループはしません）
どうすればPOWER POINTで動くようにできるのでしょうか？
ご存知の方よろしくお願いします．
- 945 名前：837 mailto:sage [04/02/03 00:23]
- >>944
animation GIFのloop flagがたっていないだけだから、
手ごろなanimation gif editorで、flagを立てた上に
スレ違いなのでヘルプ読め
GIF アニメーションの図をスライドに挿入する
- 946 名前：944 mailto:sage [04/02/03 12:37]
- >>837
スレ違いなのに答えてくれてありがとうございます．
今からエディターでやってみます．
- 947 名前：１３２人目の素数さん mailto:sage [04/02/05 23:23]
- Mathematicaって他のソフトと違ってバグフィックスのアップデータないけど
バグらしいバグなんてないのかな？
それはそれですごいと思うけど。
- 948 名前：１３２人目の素数さん mailto:sage [04/02/05 23:42]
- >>947
あるけど直さないだけ。おれも何個も見つけた。
- 949 名前：１３２人目の素数さん mailto:sage [04/02/07 16:10]
- >>948
へ〜
どんなのです？
再現性はありますか？
試してみたい。
- 950 名前：１３２人目の素数さん mailto:sage [04/02/08 15:07]
- >>940
単にAlgebra`FiniteFields`を使えばいいのでは？
ヘルプ読んでみた？
- 951 名前：１３２人目の素数さん [04/02/08 15:27]
- >>940
<< Algebra`FiniteFields`
fld = GF[2, {1, 0, 1, 1, 1, 0, 0, 0, 1}]
α = fld[{0, 1, 0, 0, 0, 0, 0, 0, 0}]
Table[α^n, {n, 255}]
- 952 名前：１３２人目の素数さん mailto:sage [04/02/08 21:24]
- >>949
個人情報があれなので、俺(も発見した)が報告したわけではないやつを。
Integrate[D[f[x, y, t], x, t] + D[f[x, y, t], y, t], t]
が f^(0,1,0)[x,y,t] を返す(V4.2)
- 953 名前：１３２人目の素数さん mailto:sage [04/02/09 11:33]
- f^(0,1,0)[x,y,t]+f^(1,0,0)[x,y,t]を返す(V3.0)
- 954 名前：mathematicant [04/02/09 16:10]
- >952
>個人情報があれなので
つまり、御禁制品を使用していると・・・
- 955 名前：１３２人目の素数さん mailto:sage [04/02/09 16:24]
- >>954
どういうロジックでそうなるんだ？
レポートしたから、おれが誰だか分かってしまうと言う意味だ。
- 956 名前：837 mailto:sage [04/02/10 08:10]
- >>950,951
( ･∀･)つ〃∩ ｽｹﾞｪｰｽｹﾞｪｰｽｹﾞｪｰｽｹﾞｪｰｽｹﾞｪｰ
出てくるまでちょっと時間がかかるのと、bit列が左と右が逆なので注意。
- 957 名前：１３２人目の素数さん mailto:sage [04/02/13 18:48]
- >>952
へ〜
バグですね
ほかのバグありますか？
- 958 名前：１３２人目の素数さん mailto:sage [04/02/14 22:38]
- Table[f[i], {i, 4}] −> {f[1],f[2],f[3],f[4]}
ですが、
中カッコを外した形式
f[1],f[2],f[3],f[4]
を得るにはどうすればいいですか？
- 959 名前：１３２人目の素数さん mailto:sage [04/02/15 01:23]
- >>958
Sequence@@Table[f[i], {i,4}]
(* Example *)
Plus[Sequence@@Table[f[i], {i,4}]]
- 960 名前：１３２人目の素数さん mailto:sage [04/02/16 20:25]
- うちのMathematica5.0ではこの式を評価すると確実に落ちるのだが、
バグだろうか。
7910*Csc[(4*Pi)/15]*Sqrt[((-(1 -
Cos[82000/797267]^2))*Sin[(4*Pi)/15]^2 +Sqrt[(1 -
Cos[82000/797267]^2)^2*Sin[(4*Pi)/15]^4 - (-1 +
Cos[82000/797267]^2)*Sin[(4*Pi)/15]^2*(Cos[82000/797267]^2
- Sin[(4*Pi)/15]^2)])/(Cos[82000/797267]^2 -
Sin[(4*Pi)/15]^2)]//FullSimplify
- 961 名前：１３２人目の素数さん mailto:sage [04/02/16 23:06]
- >>960
うちの5.0でもカーネルが落ちる。
なんでかねぇ。
フロントエンドは落ちないけど。
- 962 名前： ◆BhMath2chk mailto:sage [04/02/17 16:00]
- ＭｕＰＡＤ使用開始から三日。
- 963 名前：１３２人目の素数さん [04/02/19 11:16]
- 教えてください。
Mathematica5.0を使っています。
Eigenvalueを使って固有値を計算させているのですが、結果が「#1」といった
引数を含む表現になってしまい，計算結果を利用して解析を進めることができません。
結果の中の引数を展開する方法をお教え願えないでしょうか？
- 964 名前：１３２人目の素数さん mailto:sage [04/02/21 00:36]
- >>963
変数でも入ってたの？
何をやったか書いてよ。
- 965 名前：837 mailto:sage [04/02/22 15:46]
- >>963
そうだそうだ。
どの式がうまくいかないのかinputの式をここに書いてくれ。
君の姿は見えないんだ。help meと聞こえてもどう助けていいかわからない。
- 966 名前：１３２人目の素数さん mailto:sage [04/02/22 17:12]
- >>963
ふと君がなにをいってるのか推測できた。
5次以上の行列で、固有多項式の根がRootオブジェクトになったんだろうな。
あれはRoot[関数, 引数]というもので、全体は関数じゃなくて値。
数値が欲しいならEigenvalue[A] // Nとかしとけ。
- 967 名前：１３２人目の素数さん [04/02/26 05:25]
- 多項式のGalois群を計算するMathematicaのパッケージってありますか？
Mapleだとgalois()って関数があるんだが。
- 968 名前：１３２人目の素数さん mailto:sage [04/02/28 09:15]
- >>967
Ver.5のHelpを検索すると標準パッケージでついているようだが。
Galois fields, Algebra`FiniteFields` , Algebra`PolynomialPowerMod`
- 969 名前：１３２人目の素数さん [04/02/29 15:24]
- >>938
keygenってlinuxでも動きますか？
- 970 名前：１３２人目の素数さん [04/02/29 19:54]
- >Galois fields
Ver.4にもある。が整式のがろあ群を出してくれるかはしらん
ただの有限体じゃないの
>keygen
win用じゃ。linuxで動かないだろ、えみゅでも使え
MathematicaのStudent版、アカデミック版、Highschool版だかは
バージョンが二つ前のやつは、Math IDに対するパスワードを
発行してくれないようだな。アカ版はぢかうか
以後、自分で買うのはよして、大学のをつかうことにしよう。
- 971 名前：１３２人目の素数さん [04/02/29 20:11]
- >>968
Galois field（= Finite field = 有限体）
≠Galois group
なんですが･･･｡代数の教科書読んでね｡
で、結局、Galois群を計算するパッケージってあるの？
（標準のものでも誰かが自分で作ったんでもいいんだが）
- 972 名前：968 mailto:sage [04/02/29 20:29]
- >>971
すまんね、勉強不足で。
library.wolfram.com/infocenter/Articles/2872/
- 973 名前：１３２人目の素数さん [04/02/29 23:18]
- >>972
情報サンクス。
だけど、ざっと見たところこれは、
Mathematicaを使って特定の多項式のGalois群を頑張って計算してみました、
って感じのもの見たいね・・・
Maple （俺が持ってるのはV5R4）だと
> galois(x^5 - 5*x + 12);
+D5, 10, {(1 2 3 4 5), (2 5)(3 4)}
こんなふうに、任意の（7次以下の）多項式のQ上のGalois群をさくっと
出してくれるんだが・・・
- 974 名前：１３２人目の素数さん mailto:sage [04/03/01 00:04]
- >>973
5次なら、
library.wolfram.com/infocenter/TechNotes/158/
にあるが。
MathematicaはMapleとは方向性が違うからな。
ライブラリにある機能しかつかわない人にはMapleのほうがいいだろう。
- 975 名前：１３２人目の素数さん mailto:sage [04/03/01 00:26]
- >>973
www.google.com/search?num=100&hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&q=%22Galois+groups%22+mathematica+package&btnG=Google+検索&lr=
- 976 名前：１３２人目の素数さん [04/03/01 00:41]
- >>975
googleで検索してもガイシュツのものしか見つからないんだが。
- 977 名前：１３２人目の素数さん mailto:sage [04/03/01 01:17]
- 5のアイコンより4.2のアイコンの方がよくない？
- 978 名前：１３２人目の素数さん [04/03/01 19:17]
- どっちでもいいから
せこいコピー風呂テクと止めれ
正規ユーザがばかをみてるぞ Wolfram
- 979 名前：１３２人目の素数さん mailto:sage [04/03/01 21:16]
- カオス理論の本読んでたらこのソフトの作者がでてきた。
意外なつながりだ。
- 980 名前：１３２人目の素数さん mailto:sage [04/03/03 02:38]
- >>978
どういうこと？
- 981 名前：１３２人目の素数さん mailto:sage [04/03/06 09:51]
- 次スレですよ〜
〓 Mathematica 2 〓
science2.2ch.net/test/read.cgi/math/1078534285/
- 982 名前：１３２人目の素数さん mailto:sage [04/03/07 09:51]
- ９８２。
- 983 名前：１３２人目の素数さん mailto:sage [04/03/08 09:51]
- ９８３。
- 984 名前：１３２人目の素数さん mailto:sage [04/03/08 10:15]
- 984
- 985 名前：１３２人目の素数さん [04/03/08 11:32]
- age
- 986 名前：１３２人目の素数さん mailto:sage [04/03/08 15:49]
- Maple >>>(超えられない壁) >> Mathemetica >>> Maxima >> mupad
- 987 名前：１３２人目の素数さん mailto:sage [04/03/08 22:23]
- うめー
- 988 名前：１３２人目の素数さん mailto:sage [04/03/08 22:24]
- うめー
- 989 名前：１３２人目の素数さん mailto:sage [04/03/08 22:25]
- うめー
- 990 名前：１３２人目の素数さん mailto:sage [04/03/08 22:26]
- うめー
- 991 名前：１３２人目の素数さん mailto:sage [04/03/08 22:27]
- うめー
- 992 名前：１３２人目の素数さん mailto:sage [04/03/08 22:28]
- うめー
- 993 名前：１３２人目の素数さん mailto:sage [04/03/08 22:29]
- うめー
- 994 名前：１３２人目の素数さん mailto:sage [04/03/08 22:30]
- うめー
- 995 名前：１３２人目の素数さん mailto:sage [04/03/08 22:31]
- うめー
- 996 名前：１３２人目の素数さん mailto:sage [04/03/08 22:32]
- うめー
- 997 名前：１３２人目の素数さん mailto:sage [04/03/08 22:33]
- うめー
- 998 名前：１３２人目の素数さん mailto:sage [04/03/08 22:34]
- うめー
- 999 名前：１３２人目の素数さん mailto:sage [04/03/08 22:35]
- うめー
- 1000 名前：１３２人目の素数さん mailto:sage [04/03/08 22:36]
- うめー
- 1001 名前：１００１ [Over 1000 Thread]
- このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
|
 |
