- 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/
- 185 名前：１３２人目の素数さん [04/06/25 22:16]
- 結局わかる人はここにいないんだね
所詮 似ちゃんなんて その程度だね はははははは
- 186 名前：１３２人目の素数さん [04/06/25 22:17]
- KingOfKingMathematician
あんた持って無いの？ ny にいっぱい(ry
- 187 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/25 22:39]
- Re:>186 吾はmaxima使い。FourierTransformが無いのはちょっと痛いけどね。
- 188 名前：１３２人目の素数さん mailto:sage [04/06/25 22:40]
- Mathematica ４ と Mathematica ５ の違いって何？
- 189 名前：172 mailto:sage [04/06/25 23:42]
- >>174
なるほど>>169の意味も>>172の文意も全く分からないわけね。
頭悪すぎるから諦めた方がいいんじゃないかな。
タグとか言ってるし…
答えてもらえなくて残念だったね。頭が悪くても
人にものを尋ねる態度ぐらいは学習できるかもしれないから、がんばってね。
- 190 名前：１３２人目の素数さん mailto:sage [04/06/26 00:39]
- >>167
1冊何か、なら、マニュアルでもあるWolframの分厚い本ですかね。
あれに書いてないことは「出来ない」ということでしょうから。
初心者用には以下の Mathematica数学の道具箱〈上〉・〈下〉 をすすめます。
www.amazon.co.jp/exec/obidos/ASIN/489242174X/qid=1088177783/sr=1-52/ref=sr_1_2_52/250-9710320-2294634
www.amazon.co.jp/exec/obidos/ASIN/4892421731/qid=1088177783/sr=1-54/ref=sr_1_2_54/250-9710320-2294634
大学１年生くらいでこういう風にグラフを書けることや計算ができることを発見出来ると、人生変わる気がする。
もっとはやく知っとけばよかったと思います。
>>188
このスレに書かれていることに関しては違いが分からない程度。
- 191 名前：KingOfKingMathematician ◆H06dyzvgzA [04/06/26 08:40]
- お勧めトリップ集
KingOfKingMathematicianの後に付けるのがおしゃれ。
H06dWILLhA : #/{\@%YwX
H06djy9xBA : #SgHdO'H%
H06dYXOYLA : #*｢A@?NVF
H06dhKnt9A : #[Aｼsudｾl
H06dWifa1A : #{SfbN(6ｦ
H06dyzvgzA : #QAiEｼEp- ←使用中
- 192 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/26 10:22]
- 誰か201まで回しといてくれ。
- 193 名前：１３２人目の素数さん [04/06/26 23:00]
- ３DPLOTをするとします。そのためにプログラミングを
ノートブックに書きますよね。それを実行したとき、グラフが
プログラムの直ぐ下に表示されるのですが、グラフだけ別のノートブックに
表示させたいのです。どうすればよろしいでしょうか？
- 194 名前：１３２人目の素数さん [04/06/26 23:49]
- Option inspector を見ましょう
"ctr"+"shift"+"o"
で出てきます
- 195 名前：１３２人目の素数さん [04/06/27 18:04]
- 見ましたが、グラフを別のノートブックに表示させるには
どうすればよいのかわかりません。アドバイスをお願いします。
因みに文字やグラフの大きさは調整できました。助かりました。
- 196 名前：１３２人目の素数さん [04/06/27 19:41]
- <<195
ただ単にコピーandペーストすればよいと思います。
- 197 名前：１３２人目の素数さん [04/06/27 21:03]
- >>189
あのー ここに頼らないで自前で完成したよ
結局ここって使えないねー なにも教えてくん無いし
ほらここ
www.geocities.jp/toritsumacro2004/
- 198 名前：１３２人目の素数さん [04/06/27 21:06]
- mathematicaよりもGNU機能が高いソフトを使ったら直感的に簡単に出来た。
このソフトはC言語書く、つまりプログラミングに慣れていないひとには
ちょっと酷過ぎると思いました。
まっただ視覚的にシミュレートしたかっただけなんだけど
- 199 名前：１３２人目の素数さん [04/06/27 21:14]
- 自慢しすぎ〜アホじゃない？
- 200 名前：１３２人目の素数さん mailto:sage [04/06/27 21:16]
- C言語というかプログラミング一般の文法かな？forとかifとか…
あれは知っていたら便利だし、手計算なんかよりも書く文章量が減って(ﾟдﾟ)ｳﾏｰ なんだから、
そこまで酷評するとこでもないよ。
- 201 名前：１３２人目の素数さん [04/06/27 21:18]
- >>198
GNU機能これ何、教えて
- 202 名前：１３２人目の素数さん [04/06/27 21:23]
- GUI が充実しているの間違いだった
- 203 名前：１３２人目の素数さん [04/06/27 21:24]
- Graphical User Interface の略です
- 204 名前：１３２人目の素数さん [04/06/27 21:31]
- Mathematica って使い安いですか？
なんかコマンド覚えるのが苦痛で。
次期バージョンではＣＵＩからＧＵＩへ、
使い勝手の劇的なる向上を 期待してます。
- 205 名前：１３２人目の素数さん [04/06/27 21:33]
- mathematicaでplotした3Dをドロップして拡大縮小したり マウスだけでいろいろな面で
切断できるようにしてほしい
そしてその切断面でアニメを再生できるように
- 206 名前：１３２人目の素数さん [04/06/27 21:35]
- 例えば サインカーブの変動を３次元でいろいろな面に切って観察したいと思いませんか？
この操作がマウスだけでできるようにして欲しいのです
あとマウスで作った立体図形などに 最も近時出来る関数を一発表示してくれるとか
- 207 名前：１３２人目の素数さん [04/06/27 21:38]
- あと面できらずにコサインカーブ面で切ってその表面でのサインカーブの
表面を観察したりして見たい。
マスウだけで
- 208 名前：１３２人目の素数さん [04/06/27 21:42]
- そしてその表面上にある点を設置して
サインカーブの変動と共に移動する点の座標をリアルタイムで観察したい
この面はコサインで切ってあるので消えたり現れたりする
- 209 名前：１３２人目の素数さん [04/06/27 21:44]
- これができると例えば 三次方程式の解の座標を
その係数項の変化と共に観察できるようになる
- 210 名前：１３２人目の素数さん [04/06/27 22:36]
- >>196 「ただ単にコピーandペーストすればよいと思います。」
それでは意味がありません。計算結果をグラフで出力する場所を
別のノートブックに設定したいんです。いちいちコピペしていたのでは
面倒ですし、コピペだとプログラミングの直後にグラフが表示されてしまうことが
解決できません。
どなたかまっとうな答えをご存知ないでしょうか？
評価するたびに別枠でノートブックが自動的に開いて
そこにグラフのみ表示させるようにしたいのです。
MATLABだと簡単にできるのですが、マセマティカではどうするのでしょうか？
- 211 名前：１３２人目の素数さん [04/06/27 22:59]
- mapleでは うまくできますよ
{>がつくところがインプットするところなので
--
|>
|>
|>
|>
|>
--
としてインプットする場所を増やせば下に一括表示されます
ただ1800ドルするのと、販売地域がカナダとアメリカだけなところが痛いです
- 212 名前：１３２人目の素数さん mailto:sage [04/06/27 23:00]
- マセマティカでも
--
|
|
|
|
|
--
とすればいいだけだったんだ 解答になって無いか
- 213 名前：１３２人目の素数さん mailto:sage [04/06/27 23:15]
- https://check.cybernet.co.jp/maple/request/request.shtml
日本語出てるのか
- 214 名前：１３２人目の素数さん mailto:sage [04/06/27 23:22]
- 金持ちの使えるソフトだからマセマティカとは格が違うな
大卒初任給より高い
- 215 名前：１３２人目の素数さん mailto:sage [04/06/27 23:30]
- 今9だけどあそこには英語の7がかろうじてあった
- 216 名前：１３２人目の素数さん mailto:sage [04/06/27 23:32]
- 高校生のとき買っとけば良かった 大学以上だと17万かよ
このライセンスは、学校教育法によって定められた、高等学校・高等専門学校向けに提供されます。
■ シングルライセンス
ライセンス料金
1ユーザ 47,250円（本体価格45,000円）
- 217 名前：１３２人目の素数さん [04/06/27 23:42]
- >>208
できるね
www.cybernet.co.jp/maple/hiroba/nami/nami.html
- 218 名前：１３２人目の素数さん [04/06/28 00:13]
- www.cybernet.co.jp/maple/hiroba/digital_filter/digital_filter.html
なんかよくわかんないけど ものすごいソフトだな これって
- 219 名前：１３２人目の素数さん mailto:sage [04/06/28 01:09]
- >>217-218
この程度ならMathematicaでも簡単に作れるが・・・
インターラクティブにしたいというなら、面倒だな。LiveGraphics3Dなんかと
組み合わせないと。
- 220 名前：１３２人目の素数さん mailto:sage [04/06/28 16:44]
- >>210
こんなものかな？
動きが気に入らなかったらHelp引いて直してくれ。
newNbExec[f_, args___] := Module[{new = NotebookCreate[]},
NotebookWrite[new,
ToString[HoldForm[f]] <> "[" <> ToString[HoldForm[args]] <> "]", All];
SelectionEvaluate[new];]
newNbExec[Plot, Sin[x], {x, 0, 1}]
- 221 名前：１３２人目の素数さん mailto:sage [04/06/28 16:49]
- SetAttributes[newNbExec, HoldAll];
newNbExec[f_] := Module[{new = NotebookCreate[]},
NotebookWrite[new, ToString[HoldForm[f]], All];
SelectionEvaluate[new];]
newNbExec[Plot[Sin[x], {x, 0, 1}]]
のほうが綺麗か。
- 222 名前：１３２人目の素数さん [04/06/28 21:08]
- mathematica4.0とmaple8(5,6)持ってるけど、個人的にはmapleの方が気に入ってる。
mathematicaはもうアップグレードできなくなったし。
- 223 名前：152 [04/06/28 21:28]
- ax,ay,az,bx,by,bz（ｘｙｚは下付けの添字）というシンボルを変数にし
Solve関数を使って多元連立方程式を解いたのですが、解がax,ay,az,bx,by,bzの
順番で出てこないのを、順番通りにしたい場合どうすればいいのでしょうか？
Sort関数などを使ってもダメですよね。
- 224 名前：KingOfKingMathematician ◆H06dC8bpwA [04/06/28 21:44]
- Re:>223 List関数とPart関数を組み合わせて無理やり作るのはだめ？
- 225 名前：UltraMagic ◆NzF73DOPHc [04/06/28 21:45]
- NO!
また名前間違えた。
- 226 名前：１３２人目の素数さん mailto:sage [04/06/28 22:14]
- >>223
> Sort関数などを使ってもダメですよね。
ダメではない。試してないか、Sortの使いかたがわかってないか。
ans = Solve[...]
の答えは {{...}}だから、内側の{...}の中身をソートするためには、
Sort /@ ans
としなくてはならない。
- 227 名前：223です [04/06/29 17:34]
- >>226
ありがとうございます。
どうもまだ、Sort関数の使い方が分かってないみたいです。
Sort[Solve[連立方程式,{変数}]]
や
Solve[連立方程式,{変数}];
Sort[%]
などはやってみたんですがこれではダメなわけですよね。
さらには、
Solve[連立方程式,Solt[{変数}]]
なんていう変なのまで試みたんですが当然ダメでした。
どうもSolveのansの内側の{}をソートするってのがうまくできないんですが
よろしければ、教えていただけないでしょうか。
- 228 名前：１３２人目の素数さん mailto:sage [04/06/29 18:12]
- >>227
？？？>>226に書いてあるように、
ans = Solve[<連立方程式,{変数}>];
Sort /@ ans
と入力すればいいはずだが？
それでできないんなら実際にどういう式をいれたか見せてくれ。
- 229 名前：223です [04/06/29 18:42]
- >>228
何度も申し訳ありませんでした。できました、ありがとうございます！
- 230 名前：１３２人目の素数さん [04/06/29 20:04]
- どなたか教えてください。
p1={a, b, c, d}
p2={e, f, g}
p3={h, i, j, k}
p4={l, m}
の要素数の違うリストp1からp4まで要素をひとつずつ取って、
{a, e, h, l}, {a, e, h, m}, {a, e, i, l} …
のような感じで重複なく全種類の要素数４のリスト作りたいのです。
おねがいします。
- 231 名前：UltraMagic ◆NzF73DOPHc [04/06/29 21:55]
- Re:>230 List関数をPart関数とDo関数を使え。
- 232 名前：１３２人目の素数さん mailto:sage [04/06/30 03:42]
- >>231 泥くさそうだな。
>>230
BindListM[lst_List, f_] := Join @@ Map[f, lst];
ReturnListM[x_] := {x};
MyOuter[] := {{}}
MyOuter[l_List, ls___List] :=
BindListM[l,
Function[x,
BindListM[MyOuter[ls], Function[tl, ReturnListM[Prepend[tl, x]]]]]]
MyOuter[p1,p2,p3]の様に使う。
# このコードが良く分からなければHaskellという言語を
# 通じてMonadを勉強するといい。シンタックスシュガーによって
# Haskellでは上のコードがこう書ける。
# myouter [] = [[]]
# myouter (l:ls) = [(x:tl) | x <- l, tl <- myouter ls]
しかし実は便利な組込み関数Outerがあるので、
Flatten[Outer[List,p1,p2,p3,p4],3]
(後ろの3はpjの個数 - 1)
でよい。
- 233 名前：１３２人目の素数さん mailto:sage [04/06/30 03:51]
- 実用するなら、MyOuter[ls]が何回も計算されないように:
MyOuter[] := {{}}
MyOuter[l_List, ls___List] :=
Module[{xs = MyOuter[ls]},
BindListM[l,
Function[x, BindListM[xs, Function[tl, ReturnListM[Prepend[tl, x]]]]]]]
- 234 名前：230 mailto:sage [04/06/30 15:06]
- ありがとうございます。
Outerを使いたかったので、
Flatten[Outer[List,p1,p2,p3,p4],3]
が大変わかりやすかったです！
- 235 名前：１３２人目の素数さん [04/06/30 18:38]
- なんか昔からMathematica4.0の起動が不安定で
普通に使えるときとか、ダイアログも何も無しに終わっちゃうときとか
パラパラあったんですが、最近どうも起動失敗ばっかりで、
Wolframのサイトのヘルプも試してみたんですがどうもダメで、
他にこんな症状の人います？
- 236 名前：１３２人目の素数さん mailto:sage [04/06/30 18:46]
- 誰か、自分の気に入ってる面白いコマンド教えてくれ
- 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の問題で、
与えられた正則式に対し、文字列がそれに合致するかどうかを
判定する関数を作れ。
というのがあるのですが、どのような方針で関数を作ればいいのかわかり
ません。教科書や参考書もないのでわからないんです。
どうか教えてください。
|
 |
