- 1 名前：１３２人目の素数さん mailto:sage [04/03/06 09:51]
- _....._{{ 〃
, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,）)
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´
. ',|!!､ r‐┐ ｀ ノ'. /,ｲ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ＜ Mathematica に関する話題はここに書いてね！
ﾞ:､ｨ､jヾｰ::: 'iﾍ .ノ',ﾘ. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,､- '´ ヽ､ﾞ､ { ｀＞"､
/＼＼ ', } //｀ヽ
★前スレ
〓Mathematica〓
science2.2ch.net/test/read.cgi/math/985023298/
- 237 名前：１３２人目の素数さん [04/06/30 18:50]
- Limit[
Limit[
Integrate[a x/((x - b)^2 + a^2), {x, -L, L}],
{L -> ∞}],
{a -> +0}]
これを現在実行してるんですけど、１５分くらい経つけど答えでないんですよね〜。
バグですかね〜。
普通に問題とけるぞ！って方は教えて頂けるとありがたいです。
- 238 名前：１３２人目の素数さん mailto:sage [04/06/30 19:00]
- >>237
置換で普通にできないべか
- 239 名前：１３２人目の素数さん [04/06/30 19:02]
- >>238
具体的に教えていただけないでしょうか？
- 240 名前：１３２人目の素数さん mailto:sage [04/06/30 19:03]
- >>239
おいおい、わからない質問スレへ行けよ
- 241 名前：１３２人目の素数さん [04/06/30 19:04]
- >>240
わかりました。
- 242 名前：１３２人目の素数さん mailto:sage [04/06/30 19:31]
- >>237
バージョンはいくつ？
4.2.1だと一瞬でb \[Pi]とでるぞ。5以上ならサポートに報告すれ。
Limit[Limit[Integrate[a x/((x - b)^2 + a^2), {x, -L, L}], L -> Infinity],
a -> 0]
- 243 名前：１３２人目の素数さん mailto:sage [04/06/30 19:43]
- ４．０でもｂπ出たぞ。
- 244 名前：１３２人目の素数さん mailto:sage [04/06/30 20:48]
- >>242
5.01だと無限ループに入るみたいだね。
これに限らず、ver5以上は式の簡略化などでフリーズする
確率が高いような気がする。
- 245 名前：１３２人目の素数さん mailto:sage [04/06/30 22:51]
- それはフリーズではなく計算中
- 246 名前：１３２人目の素数さん mailto:sage [04/06/30 23:06]
- >>245
あー、すまん。フリーズじゃなくてカーネルエラーで落ちるの間違い。
前スレにも出したけど、こんな式を評価すると確実に落ちる。
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
- 247 名前：１３２人目の素数さん [04/07/01 22:27]
- いやー、mathematicaは楽しい言語だねー。はまっちゃったよ。
- 248 名前：１３２人目の素数さん mailto:sage [04/07/02 08:27]
- 言語か？
- 249 名前：１３２人目の素数さん [04/07/02 09:20]
- >>248 おいおい、247の言うようにmathematicaはプログラミング言語だよ。
単なる優れた電卓と思ったら大間違いだよ。
「Mathematica 方法と応用」 がお薦め。
- 250 名前：１３２人目の素数さん [04/07/03 20:19]
- ちょいヒマな人教えてくれないかな？Mathmaticaで、次の極限値出せる？
lim[n→∞]∫[0→π/2]｜sin2nx*cosx｜dx
コマンド教えてくれないか？
- 251 名前：１３２人目の素数さん [04/07/03 20:48]
- >>250
Limit[Integrate[Sin[2 n x] Cos[x], {x, 0, Pi/2}], {n -> ∞}]
答えは0でした。
- 252 名前：１３２人目の素数さん mailto:sage [04/07/03 20:48]
- >>251
絶対値は？
- 253 名前：１３２人目の素数さん [04/07/03 20:54]
- >>251
手計算でやったら２/πになったんだけど・・・間違いかな
手計算でやってもかなり莫大な計算量になったから、
Mathematicaのコマンド教えてもらおうと思ったんだけど・・・
- 254 名前：１３２人目の素数さん mailto:sage [04/07/03 20:57]
- >>253
手計算はぜんぜん面倒じゃないだろ。5,6行でできる。
- 255 名前：１３２人目の素数さん [04/07/03 20:59]
- >>254
うそだべや〜めんどいぞ。答えはあってる？
- 256 名前：１３２人目の素数さん [04/07/03 21:00]
- 図で理解したいのなら
Do[
Plot[
Sin[2 n x] Cos[x], {x, 0, Pi/2}, FrameLabel -> {x, Sin[
2 n x]Cos[x], None, None},
Frame -> True,
FormatType -> TraditionalForm,
TextStyle -> {FontSize -> 12},
PlotRange -> {{0, Pi/2}, {-1, 1}},
FrameTicks -> {{{0, 0}, {Pi/2, Pi/2}}, Automatic}
],
{n, 1, 100, 5}
]
- 257 名前：１３２人目の素数さん mailto:sage [04/07/03 21:03]
- >>255
俺も同じになったよ。
つーか、sin2nx*cosxなんかになってるから、
積を和に変換したり、ついついめんどくさい計算をしちゃうんだよな。
少し一般化して、
f(x)を[0,π/2]上連続関数とする。
lim[n→∞]∫[0→π/2] |sin2nx|*f(x) dx を求めよ。
にすれば、簡単になるはずだ。
- 258 名前：１３２人目の素数さん [04/07/03 21:18]
- >>256
うほ、なんかすごいね。そんなことできるのか！
>>257
今考えたけどわかんね・・・
俺は積-和にしてごりごりするしかできなかった・・・orz
概略でいいから教えてくれないか？
- 259 名前：１３２人目の素数さん mailto:sage [04/07/03 21:29]
- >>258
2nx=tと置換して、区間を分割
=Σ_[k=0,n-1]∫[kπ,(k+1)π] |sint|*f(t/(2n)) dt/(2n)
t=y+kπと置換すると
=∫[0,π]siny*(1/(2n))Σ_[k=0,n-1] f((y+kπ)/(2n)) dy
あとはfの一様連続性を使って、f((y+kπ)/(2n))をf(kπ/2n)で評価してやればOK。
（最初の問題 f(x)=cosx の場合なら、cosx の単調減少性を使って、任意の0≦y≦πで
cos((k+1)π/(2n))<cos((y+kπ)/(2n))<cos(kπ/(2n)) だから、評価して挟み撃ち）
- 260 名前：１３２人目の素数さん [04/07/03 21:32]
- >>259
おお、すげーな・・・よく思いついたね。ｻﾝｸｽｺ！
- 261 名前：１３２人目の素数さん [04/07/03 21:43]
- リストやループの練習で
固定ベクトル｛1,2,3｝とｘｙの値が任意の｛n,m,5｝のベクトルを
内積させ、nとmをそれぞれ1から5ぐらいまで変化させたときの合計25個を
計算させてみようとしたのですが、いまいちうまくいかないんです。
手始めにmのほうは固定してｎのみを変化させてみようと以下のような
形にしてみました。
a={1,2,3}
b={For[n=1,n<=5,n=n+1,Part[Range[1, 5],n]],2,3}
a.b
これではうまくいかないんですが、ループの使い方がいまいちよく
分からないんです。最初は
{1,2,3}.{Range[1, 10],2,3}
なんてものでやってみたんですが、"非長方テンソル"がどうのとなって
ダメでした。どういうふうに行えばいいのでしょうか？
それから、僕は今「mathematica数学の道具箱上下」を使ってmathematicaを
使ってみようとやっているんですが、どうもグラフや図を描くことの基礎を
学ぶにはいいみたいなのですが、数式処理はあまりいろんな例を含めて展開
されていない気がするんです。何か初心者が学ぶにいいテキストってありますか？
- 262 名前：１３２人目の素数さん [04/07/03 21:50]
- さっきの極限のやつ直感的に理解しようと思ったら、
Abs[Sin[2 n x]]でできるお山がn個あるわけだ。
それぞれの面積は同じで
Integrate[Sin[2 n x],{x,0,Pi/2/n}]=1/n
そしてそれぞれのお山にお山の頂点の座標に対応するCos[x]をかけて
すべてのお山を足してやればよい。
だから
1/n * Sum[Cos[Pi/(2 n)*(k-1/2)],{k,1,n}]
でｎを適当に大きくしてやればよいのさ
1/n * Sum[Cos[Pi/(2 n)*(k-1/2)],{k,1,n}]/.n->100//N
=0.636626
- 263 名前：262へ [04/07/03 21:59]
- a = {1, 2, 3}
b[n_, m_] := {n, m, 5}
Do[
Print[" m = ", m, " n = ", n, ",", " ", a.b[n, m]],
{n, 1, 5}, {m, 1, 5}
]
- 264 名前：１３２人目の素数さん [04/07/03 22:03]
- ところで皆さんは何歳なんですか？
私はMathematica暦2年
大学4回生です
- 265 名前：UltraMagic ◆NzF73DOPHc [04/07/03 22:05]
- 私はもう20年以上生きてきた。
それでもまだMathematicaは高い。
- 266 名前：１３２人目の素数さん mailto:sage [04/07/03 22:05]
- 割れMathematica
- 267 名前：１３２人目の素数さん [04/07/03 22:10]
- ちなみに私は262だが
かなり精度が良いぞ
1/n * Sum[Cos[Pi/(2 n)*(k-1/2)],{k,1,n}]/.n->10^1000,100]
これで
Pi/2
と90数桁まで一致した
自慢だけどね
- 268 名前：１３２人目の素数さん mailto:sage [04/07/04 10:37]
- >>256
面白い。ForをPlotで使うことの意味がわかったよ。
- 269 名前：１３２人目の素数さん [04/07/04 13:44]
- Plot[Pi/2*Sqrt[(1-x)/(1+x)]]
と入力すると
[Pi/2*Sqrt[(1-x)/(1+x)]は□において機械サイズの実数ではありません
と出て来てしまい、図を表示することができません。
どなたか解決法を教えてくださいませんか。
- 270 名前：UltraMagic ◆NzF73DOPHc [04/07/04 14:02]
- Re:>269 Sqrt関数の定義域ってどうだったっけ？
- 271 名前：１３２人目の素数さん mailto:sage [04/07/04 14:31]
- Plot[Pi/2*Sqrt[(1 - x)/(1 + x)], {x, -1, 1}]
これで普通に出るけど…
- 272 名前：１３２人目の素数さん [04/07/04 14:41]
- ありゃあ？出た！
何で？何で出るの？
さっきまで全然でなかったのに。
まぁ、とにかく、ありがとうございました。
- 273 名前：１３２人目の素数さん [04/07/04 14:52]
- 変数ｘに絶対値をつけて微分したいんですが、どうすればよいでしょう。
Absだと実数以外受け付けてくれないので。
入力したい式は
D[e^-|x|*ArcTan[3x],x]
Absを使うとAbs’という珍妙な定数が出てくるんで。
- 274 名前：UltraMagic ◆NzF73DOPHc [04/07/04 15:56]
- Re:>273
「超関数の意味での微分」と考えればごく自然だよ。
- 275 名前：UltraMagic ◆NzF73DOPHc [04/07/04 15:56]
- Re:>273 それが嫌なら、If関数を使えば？
- 276 名前：１３２人目の素数さん mailto:sage [04/07/04 16:22]
- 単純にEが小文字だからじゃないよな…？
- 277 名前：１３２人目の素数さん [04/07/04 18:24]
- x=Sin[2t]
y=Sin[3t]
といった形でパラメータ表示されたｘ、ｙ、に関するグラフを書きたいのですが、どうしたらよいでしょう？
- 278 名前：１３２人目の素数さん mailto:sage [04/07/04 18:27]
- ParametricPlot[{Sin[2t], Sin[3t]}, {t, -6, 6}]
- 279 名前：１３２人目の素数さん [04/07/04 19:07]
- >>278
ありがとうございました！
- 280 名前：１３２人目の素数さん mailto:sage [04/07/06 05:44]
- >>261
Table[{1, 2, 3}.{n, m, 5}, {n, 1, 5}, {m, 1, 5}]
- 281 名前：１３２人目の素数さん mailto:sage [04/07/06 16:01]
- 3DグラフでZ軸対数とかってできない…？
- 282 名前：１３２人目の素数さん mailto:sage [04/07/06 16:59]
- >>281
そりゃできるだろ。
***の所は自分で埋めるように(ちょっと面倒)。
SetAttributes[LogPlot3D, HoldFirst];
LogTick[min_, max_] := Table[{h, 10^h}, ***]
LogPlot3D[f_, r__] :=
Plot3D[Log[10, f], r, Ticks -> {Automatic, Automatic, LogTick}]
- 283 名前：１３２人目の素数さん [04/07/06 19:07]
- 音の三次元強度分布を出してみようと思って一先ずxyzをパラメータとして
30×30×30の27000個のデータ出すようループさせてみたんですが、へぼ
パソコンなんで大体7,8分ぐらいかかるんです。
噂には聞いてましたが単純中身のループでも、結構時間はかかるものなんですか？
なんか、あの、だだだーーと流れるように表示させるために時間が取られている
気がするんですが、表示にメモリを使わないようにして時間短縮する方法などは
ないのでしょうか？
- 284 名前：１３２人目の素数さん mailto:sage [04/07/06 21:22]
- 式なら最後に ； つければ表示されないと思うけど…
- 285 名前：１３２人目の素数さん [04/07/06 21:56]
- mathematicaの問題で、
与えられた正則式に対し、文字列がそれに合致するかどうかを
判定する関数を作れ。
というのがあるのですが、どのような方針で関数を作ればいいのかわかり
ません。教科書や参考書もないのでわからないんです。
どうか教えてください。
- 286 名前：283 [04/07/07 00:45]
- >>284
一応、27000個のデータ自体はその後MicroAVSなどを使って可視化してみたい
んで、どこかに記録させたいんですよね。他のノートブックに出力するように
しても、完了までの早さは一緒ですよね。
Ｃ言語などでは、27000個ぐらいのループなら入力してから出力したいファイルに
結果がすべて出るまでほとんど瞬間ですから、この一般言語とのギャップを
多少でも補う方法はないのかなと思ったんです。
やっぱりこういうことはＣなどでするのがベストってことでしょうか？
でもmathematicaの組み関数の使いやすさを知った後で、Ｃで同じ数式処理を
させるのはちょっと鬱ですねー。
- 287 名前：１３２人目の素数さん mailto:sage [04/07/07 01:33]
- 実行してれば記録してるんでない？
次のセルに書いてそのセルだけ実行すればいける…
すまん、試してないが適当に言ってみた
>>285
ここよりクラスメートか先生に聞いて来なされ
- 288 名前：１３２人目の素数さん [04/07/07 06:08]
- すんません質問です。
一次元入力したものを二次元で表示するコマンドってありますか？
「２Ｄの作成」じゃなくて、例えば2^2と入力して上付の2を表示させるような。
- 289 名前：１３２人目の素数さん mailto:sage [04/07/07 07:23]
- >>288
よくわからんが
HoldForm[2^2] とか？
- 290 名前：１３２人目の素数さん mailto:sage [04/07/07 07:29]
- >>286
;をつけても評価されるし結果もメモリに記憶される。
表示に時間がかかる場合は>>等でファイルに書けばいいのでは。
- 291 名前：１３２人目の素数さん [04/07/07 11:27]
- >>285
どういう状況を考えているかわからないので、具体的に式をあげて、
どういう出力を得たいのかを教えてください。
- 292 名前：288 mailto:sage [04/07/07 12:27]
- >>289
それです。
ありがとうございました。
- 293 名前：283 [04/07/07 19:54]
- >>290
アドバイスありがとうございます。ファイルに書くとはどういうこと
なのでしょうか？
一応、「；」をつけてみたり、他のノートブックに出力してみたりしたん
ですが、処理中にもう一つ出るウィンドウ、「メッセージウインドウ」っていうんですか!?
そこではやっぱり、「ダダダダダー」と延々と処理していて完了する時間は変わらない
ですよね。これがマセマティカっていうものだということなのかもしれませんが
何か秘策たる方法があるのではという思いもあるんですよね。
- 294 名前：１３２人目の素数さん mailto:sage [04/07/07 22:43]
- Integrate[Csc[1π/2Cos[sita]]^2 Csc[1π/2 Sin[sita]]^2 Sin[5πCos[sita]]^2 Sin[5π Sin[sita]]^2, {sita, 0, 2 Pi}]
こいつを実行したいのだけども
エラー吐いて何もしてくれないのは何故だろう…
分かる方教えて下さい
エラー：Pi*Cos[sita]は有効なシンボルではありません
- 295 名前：１３２人目の素数さん mailto:sage [04/07/08 00:00]
- >>294
5.0使い？
- 296 名前：１３２人目の素数さん mailto:sage [04/07/08 00:51]
- いや、4.0
- 297 名前：１３２人目の素数さん mailto:sage [04/07/08 05:35]
- >>293
?>>
と入力してヘルプを読もう。
普通はメッセージウインドウにはなにも出力されないはずなので、
プログラムを見直したほうがいいのでは。
問題ないなら、Offで出力されないようにできると思う。
- 298 名前：１３２人目の素数さん mailto:sage [04/07/08 05:37]
- >>294
そういう問題の場合は、入力ミスの可能性などもあるので、
Pi -> πにしたりせず、そのままコピペできるものを張れ。
- 299 名前：１３２人目の素数さん mailto:sage [04/07/08 06:24]
- >>298
πはそのままコピペできて、円周率として認識されますよ。
- 300 名前：１３２人目の素数さん mailto:sage [04/07/08 07:06]
- >>299
Linux版だとできないのだ。
- 301 名前：１３２人目の素数さん mailto:sage [04/07/08 10:53]
- ttp://up.isp.2ch.net/up/fd74f265323b.zip
nbファイルで上げて見ました、アドバイスお願い致します
- 302 名前：294 mailto:sage [04/07/08 10:54]
- 301も私です
あと、もと書いてあった式と上げたファイルが違うのは
最終的にやりたいのが上げたファイルということです
- 303 名前：１３２人目の素数さん mailto:sage [04/07/10 12:34]
- >>302
見られん。
24時間以内に消えるようなところに上げるなよ。
- 304 名前：１３２人目の素数さん [04/07/12 00:17]
- 誰か教えてください。
最小化作用素を定義せよ：引数は、｛０、１、・・・９９｝
の元のペアのリストA。値は部分関数ｆ。
という問題なのですが、数式で書くと
A→(μA)(x)=min{y|(x,y)∈A}
になると思います。mathematicaで表記するとどうなるか教えてください。
- 305 名前：１３２人目の素数さん mailto:sage [04/07/12 01:22]
- fとμの関係は？って感じだが。
引数はリストなのかリストの元なのか？
μ がリストを引数として、リスト上の関数を返すような関数
μ : P({0,..,99}^2) \ {φ} -> {{0,..,99}^y | y ⊂ {0,...,99}}
(μ(A))(x)=min{y|(x,y)∈A}
だとして、 その定義。
----
\[Mu][A : {{_Integer, _Integer} ..}] := Function[x,
minimumBy[compare[#1[[2]], #2[[2]]] &, Select[A, Equal[x, First[#]] &]]]
compare[x_, y_] = If[x < y, LT, If[y > x, GT, EQ]];
minimumBy[f_, {x_, xs___}] := Fold[If[f[#1, #2] === LT, #1, #2] &, x, {xs}]
(* Example *)
A = {{1, 3}, {2, 2}, {2, 4}, {1, 1}};
\[Mu][A][1] (* == {1, 1} *)
- 306 名前：304 [04/07/12 01:46]
- >>305 ありがとうございます。
本文中の質問なんですが、
LTやGTやEQの意味は何でしょうか？
初心者ですみません。
- 307 名前：１３２人目の素数さん mailto:sage [04/07/12 13:06]
- 勝手に定義しただけだが、
LT: less than
GT: greater than
EQ: equal
のこと。
- 308 名前：１３２人目の素数さん [04/07/12 22:26]
- 関数をプロットしたものを表示する際、コマンドの直後にグラフが出力される
のですが、そうではなく、評価するたびに、現在使用中のノートブックとは別の
のノートブックが自動的に立ち上がり、その自動的に立ち上がったノートブックに
グラフのみ表示させたいのですが、どうすればいいのでしょう？
関数の評価→グラフ専用のノートブックが立ち上がり出力。としたいんです。
SilabやMatlabだと 結果が数値の場合とグラフの場合は出力先が違って便利なんです。
- 309 名前：１３２人目の素数さん [04/07/13 10:14]
- 大分古いMathematicaを再インストールしたんだけど、レジストリキー
とかライセンスIDを忘れてしまってできません。
なんか解決方法はありませんかね？
- 310 名前：１３２人目の素数さん mailto:sage割れは別な [04/07/13 11:20]
- 思い出す
というかメモを探すしかないと思う
- 311 名前：１３２人目の素数さん mailto:sage [04/07/13 12:16]
- >>310
レスサンクス
ていうか、何でこんな厄介なの。
そこまでするほどすごい技術があると思わんけど
- 312 名前：１３２人目の素数さん [04/07/13 16:37]
- >>308 おとなしくMatlabに乗り換えなさい。
マセマティカなんて使うんじゃない。
- 313 名前：１３２人目の素数さん mailto:sage [04/07/13 19:59]
- >>308>>220は読んだのか?
- 314 名前：１３２人目の素数さん [04/07/14 05:50]
- 教えてください。
Plotしたとき、軸に表示される数字のフォントを変えることは
できるのでしょうか？
- 315 名前：１３２人目の素数さん mailto:sage [04/07/15 13:30]
- >>314
一部のフォントだけを変えるのはPostsciptの該当部分を書き換える
しかないと思う(DisplayStringを使う)。
テキスト部分のフォントを全部置き換えるのは、
Plot[Sin[x], {x, 0, Pi}, TextStyle -> {FontFamily -> "Arial"}]
(Windows/Macの場合)
- 316 名前：かわばた君の友人 mailto:temporaryid@mail.goo.ne.jp [04/07/15 19:26]
- >309
ライセンスID(L9801-9801みたいなもの)と、パスワード
(10桁とか16桁から25桁程度の数字)がないんですか。
私は、以前に学生バージョンのパスワードはわかって
いるけれども、ライセンスIDがわからなくなってしまった
ことがあり、ウルフラムに英語で問い合わせをしたとこ
ろ、数日で教えてくれました。
ご心配のケースでは、登録があれば、日本の代理店や
ウルフラムリサーチにお尋ねになってみてはいかがで
しょうか。
手がなければ、ご連絡くださいませんか。古いライセンス
なら余っていますので、お力になれるかもしれません。
- 317 名前：314 mailto:sage [04/07/15 19:59]
- >>315
ありがとうございました！！
- 318 名前：１３２人目の素数さん [04/07/15 22:07]
- Importした画像やPlotで描いた図などのGraphicsを
画面の中央揃えで表示するにはどうすればいいんでしょう？
Textのスタイルの上に貼り付けたりしたらできるんですけど、
それしか方法はないんでしょうか？
- 319 名前：１３２人目の素数さん mailto:sage [04/07/16 00:04]
- >>318
> それしか方法はないんでしょうか？
いいえ。
Stylesheetか直接CellのImageMarginsを変更すればいい。
MathematicはCellもグラフも全部式なんだから大抵のことは自動化できる。
# >>308
# > 関数の評価→グラフ専用のノートブックが立ち上がり出力。としたいんです。
# > SilabやMatlabだと 結果が数値の場合とグラフの場合は出力先が違って便利なんです。
# 自分で>>220-221を書いといてなんだが、
# 何が便利なんだかさっぱりわからん…というか不便だろう。
# >>308はもうちょっとデフォルトで使ってMathematicaを理解してから
# 考え直したほうがいいのでは。;も知らないとかいう落ちではあるまいか。
- 320 名前：１３２人目の素数さん mailto:sage [04/07/16 00:23]
- tool-ya.ddo.jp/2ch/trash-box/file/20040716002054311.nb
これができないんだけど…
何が原因なんでしょうか？
- 321 名前：319 mailto:sage [04/07/16 00:26]
- >>318
ただし、Windowサイズを変えても中央揃えのままにしたいということなら、
ImageMarginesではできないかもしれない。
BoxDataで囲んでText扱いで表示すればできる。これは
> Textのスタイルの上に貼り付けたりしたらできるんですけど、
このCellの式を見ればわかるだろう。
- 322 名前：１３２人目の素数さん mailto:sage [04/07/16 00:34]
- >>320
>>294のエラーはでないが。
Rは複雑すぎるな。
記号的には積分できないだろう(終わりそうにないので止めた)。
- 323 名前：１３２人目の素数さん mailto:sage [04/07/16 02:17]
- rを固定してsitaで積分してもうまくいかない…
どなたかどうすればよいのか助言下さい…
- 324 名前：318 mailto:sage [04/07/16 09:45]
- >>319
テキストに貼り付けてスタイルだけGraphicsに変えることにしました。
ありがとうございました。
- 325 名前：１３２人目の素数さん mailto:sage [04/07/16 12:24]
- >>324
手でやりたいなら止めはしないが…
自動化するとこうなるだろう。
SetAttributes[PrintCenterd, HoldFirst];
PrintCenterd[f_] :=
Block[{$DisplayFunction = Identity},
CellPrint@
Cell[BoxData[
RowBox[{Cell[GraphicsData["PostScript", DisplayString[f]],
"Graphics"]}]], "Output", TextAlignment -> Center]]
PrintCenterd[Plot[Sin[x], {x, 0, Pi}]]
- 326 名前：１３２人目の素数さん mailto:sage [04/07/16 12:27]
- >>323
Integrateは記号的積分がが失敗して初めて数値積分に挑戦するから
そもそも数値計算でいいのならNIntegrateを使え。
- 327 名前：１３２人目の素数さん mailto:sage [04/07/16 12:34]
- >>323
これPlotPoints->300ぐらいにすると枝わかれがよく見えておもしろいグラフだな。
これは何で出てくる関数？
- 328 名前：１３２人目の素数さん mailto:sage [04/07/16 14:40]
- >>326
本当はsitaで積分してrのグラフを書きたいんだけどねえ…
うまくいかないのは何故だ…orz
>>327
X線回折
- 329 名前：１３２人目の素数さん mailto:sage [04/07/16 17:34]
- >>328
どううまくいかんのだろうか。
最後のIntegrate[..]の行を
Func[x_] := NIntegrate[R /. r -> x , {sita, 0, 2*Pi}]
Plot[Func[x], {x, 0.001, 10}, PlotDivision -> 2]
に変えろ。
元のグラフに特異点があるので(数値積分の)結果の正確さは
まったく保証できないが。
- 330 名前：１３２人目の素数さん [04/07/16 18:29]
- 完全楕円積分なる物を知らないのですが、
EllipticE[2]
ってのは数値として与えられる物なのでしょうか？
数学を知らんのか！っと怒られてしまいそうですが、教えて君に教えて下さい。
- 331 名前：１３２人目の素数さん [04/07/17 14:02]
- 数式を書くときに、二行目インデントして、三行目からは二行目の位置に
揃うようにしたいんですけど、設定あるいは入力やなんかでできますか？
どうしても階段状になるみたいで。
- 332 名前：331 [04/07/17 14:04]
- インデントなしにしてTabで揃える方法はあるんですけど、インデント使って
はできないですか？
- 333 名前：１３２人目の素数さん mailto:sage [04/07/17 14:04]
- mathmaticaを使って動画を作れとの課題が出たのですが、
どこか参考になりそうなサイトはありませんか？
- 334 名前：１３２人目の素数さん mailto:sage [04/07/17 14:21]
- mthematica アニメ
でぐぐれ
- 335 名前：１３２人目の素数さん mailto:sage [04/07/17 14:28]
- ranobe.com/up/updata/up4870.jpg
- 336 名前：１３２人目の素数さん [04/07/17 17:08]
- mticaって文法的に見るときたないし、
プログラムしにくいし、そこら辺 Wolframの悪趣味が出てるよね。
- 337 名前：１３２人目の素数さん [04/07/17 17:15]
-
しかし、コマンド始めの一文字が大文字じゃなきゃだめっていうのは
自殺もんだよな。
少しはmatlab見習えってんだ。
|
 |
