〓 Mathematica 5 〓
■ このスレッドは過去ログ倉庫に格納されています
0001132人目の素数さん
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サポートおよび拡張された並列処理
*工学および研究開発:統合された制御系とウェーブレット関数
*金融:組込みのオプション価格付けソルバ,財務指標とグラフ
*画像処理:特徴検出を含む拡張された画像解析機能
0051132人目の素数さん
2010/10/25(月) 22:05:500052132人目の素数さん
2010/10/26(火) 18:30:300053132人目の素数さん
2010/10/26(火) 19:16:430054猫に小判 ◆MuKUnGPXAY
2010/10/26(火) 19:23:220055132人目の素数さん
2010/10/26(火) 22:24:16Hage-math-ca?
0056132人目の素数さん
2010/10/28(木) 18:57:40(x-)=4 (y-)=a b ただしa.bは定数とする。
1) x yの値をaを用いて表せ。
2) (x-y-)の値をbを用いて表せ。
0057132人目の素数さん
2010/10/28(木) 19:18:120058132人目の素数さん
2010/10/28(木) 19:57:11「はふぁ ち 〜〜」
八はイラン
七で必要十分
0059132人目の素数さん
2010/10/28(木) 20:35:0211月15日までにプレミアサービスを申し込んだ方には発売後すぐにお届けします
みたいなメールが来ていたから、その直後ぐらいだろうね。
0060134
2010/10/28(木) 20:35:03高1の数学の問題です。
不等式x^2-x-2≦0・・・Aと二次関数f(x)=x^2+2ax+3a+4がある。
(3) 不等式Aと不等式f(x)≦0をともに満たすxが存在するようなaの値の範囲を求めよ。
お願いします。
悪魔で高1問題なので高1でも分かるように説明の方よろしくお願い致します。
0061132人目の素数さん
2010/10/28(木) 20:39:16BSplineFunctionを使っていろいろやってみたけど、微分するとどうしても不連続になってしまう。
ver8で改善されているといいな。
スレチだけどスプライン閉曲線を滑らかに描く方法をご存じの方は教えて下さい。
0062132人目の素数さん
2010/10/28(木) 22:09:50f(x)=x^2+2ax+3a+4≦0
x^2-x-2<=(-2a-1)x-3a-6<=0
(x-.5)^2-2.25>=-2.25
-2.25<=(-2a-1)x-3a-6<=0
0063134人目の奇数さん
2010/10/28(木) 22:16:303行目からなにしてるんですか?
0064132人目の素数さん
2010/10/28(木) 23:00:480065134人目の奇数さん
2010/10/30(土) 07:52:01A=xy-2 . B=2 . C=xy のとき 次の値を求めよ。
1) A-C
2) ABC
3) C/A-(B/A)
0066134人目の奇数さん
2010/10/31(日) 20:25:23Doctorの6文字を横一列に並べる並び方の総数について考える。次の問に答えよ。
1) すべての並べかた
2) cがrより左側にくる並べかた
3) 2つのoのうち、どちらか一方が奇数番目にくる並べかた
という問題なのですが
1) 2) は余裕なのですが
3)にきて 苦戦してしまいました。
助けてアンパンマン。
0067難問bbc.
2010/10/31(日) 22:50:21その結果
A=2 B=0
となった。 このときα、βの値を求めよ。
(ただしα、βは0ではない定数とする。)
という問題についてなのですが やり方が全く分かりません。
どのようにすればいいのでしょうか?
A、Bの式は展開するのでしょうか?
お願いします。
0068132人目の素数さん
2010/10/31(日) 22:59:49質問すれできけ
0069132人目の素数さん
2010/10/31(日) 23:11:380070132人目の素数さん
2010/11/01(月) 16:59:13(a b c)^a=6
(a b c)^b=36
(a b c)^c=216
a.b.cの値を求めよ。
この問題は どう扱えばいいのでしょう。
お願いします。
0071132人目の素数さん
2010/11/01(月) 16:59:54ミス
(a+b+c)^a
以下同様に +が見えていません。
0072132人目の素数さん
2010/11/01(月) 18:12:29どあほ
0073132人目の素数さん
2010/11/01(月) 18:23:55君もw
0074132人目の素数さん
2010/11/01(月) 22:31:53x^x=6*36*216
mathematicaでxをといたら、
x=Log[46656]/ProductLog[Log[46656]]=6だって。
0075132人目の素数さん
2010/11/01(月) 22:40:25っあ、はい......
0076132人目の素数さん
2010/11/03(水) 14:43:230077132人目の素数さん
2010/11/04(木) 18:19:00a 5≦a^3
この命題は真か偽か
0078132人目の素数さん
2010/11/04(木) 23:48:38被積分関数にデルタ関数が掛かっている項しかなければ,計算されるのですが,
被積分関数にデルタ関数が掛かっていない項が含まれていると,計算されずに,
デルタ関数のまま残ってしまいます.
これは,なぜでしょうか?
また,回避する方法はありますか?
0079132人目の素数さん
2010/11/04(木) 23:51:09Integrate[f[x]*DeracDelta[x-a],{x,-∞,∞}]=f[a]
の性質を利用した計算です.
0080132人目の素数さん
2010/11/05(金) 01:35:46デラックデルタになってるからじゃねww
Mathematica5.2だが次のようにまともに答え帰ってくる.
In[1]:=
Integrate[f[x]*DiracDelta[x-a],{x,-∞,∞}]
Out[1]=
If[a∈Reals,f[a],Integrate[
DiracDelta[-a+x] f[x],{x,-∞,∞},Assumptions\[Rule]a?Reals]]
Dirac関数をDirac関数足らしめるには,f(x)が"良い関数"である必要があることを思い出せばいい.
0081132人目の素数さん
2010/11/05(金) 06:07:30http://www.wolfram.com/mathematica-8-coming-soon.html
0082132人目の素数さん
2010/11/05(金) 10:58:08/:::::::ヽ____/::::::::ヽ、
丿 ::.__ .::::::::::::: __ ::::ヽ_
/ /。 ヽ_ヽv /: /。ヽ ::::::ヽ
-┼- 丿~~~| / / ̄ ̄√___丶  ̄ ̄\ ::::| ■ ■
-┼- /~~~~/ ━━━ | .:::::::::: / / tーーー|ヽ ..::::: ::|━━━━━━ ▼ ▼
.| 丿 | .:::::. ..: | |ヽ ::| ● ●
| ::: | |⊂ニヽ| | :::::| \
/ /| : | | |:::T::::| ! .::| \ \\
/ / \: ト--^^^^^┤ 丿 \\\ \\\
0083132人目の素数さん
2010/11/05(金) 16:00:54例えば
a∈Realsにおいて
Integrate[f[x]*DiracDelta[x-a],{x,-∞,∞}]
=f[a]
となるのに対し,
Integrate[f[x]*DiracDelta[x-a]+g[x],{x,-∞,∞}]
=Integrate[f[x]*DiracDelta[x-a]+g[x],{x,-∞,∞}]
となります.
なにがまずいんでしょうか?
008483
2010/11/05(金) 16:06:10もう少し考えて見ます.
0085132人目の素数さん
2010/11/05(金) 16:15:25Integrate[f[x]*DiracDelta[x - a] + g[x], {x, 0, l}]]
実行結果が
f[a]+Integrate[g[x], {x, 0, l}]]
のようになってほしいのですが,計算されずに,
Integrate[f[x]*DiracDelta[x - a] + g[x], {x, 0, l}]]
のようになります.
ちなみに,Mathematicaのバージョンは7です.
所望の動作をさせるには,どのようにすればいいのでしょうか.
0086132人目の素数さん
2010/11/05(金) 17:03:22http://kamome.2ch.net/test/read.cgi/math/1285859504
/\ /\
/:::::::ヽ____/::::::::ヽ、
丿 ::.__ .::::::::::::: __ ::::ヽ_
/ /。 ヽ_ヽv /: /。ヽ ::::::ヽ
-┼- 丿~~~| / / ̄ ̄√___丶  ̄ ̄\ ::::| ■ ■
-┼- /~~~~/ ━━━ | .:::::::::: / / tーーー|ヽ ..::::: ::|━━━━━━ ▼ ▼
.| 丿 | .:::::. ..: | |ヽ ::| ● ●
| ::: | |⊂ニヽ| | :::::| \
/ /| : | | |:::T::::| ! .::| \ \\
/ / \: ト--^^^^^┤ 丿 \\\ \\\
0087132人目の素数さん
2010/11/05(金) 21:48:00は12月リリース
日本語版は正月リリース
0088132人目の素数さん
2010/11/05(金) 22:14:45おー
0089Flunk
2010/11/05(金) 23:54:58f[x]*DiracDelta[x - a] + GG Exp[-x^2/2]/((2 Pi)^(1/2)), {x, -∞, ∞}] /.
GG -> Integrate[g[x], {x, -∞, ∞}]
面倒でも、論理的にあとからこまることがないようにでしょうね
0090132人目の素数さん
2010/11/06(土) 16:18:33残ってしまうのですが,Mathematicaとはこういうものなのですか?
0091132人目の素数さん
2010/11/06(土) 16:58:30バージョン上がるごとにだんだん改善されてるけどね
Mapleと併用するのが吉
0092132人目の素数さん
2010/11/06(土) 17:29:38Mathematicaを使い始め,
あまりの便利さに驚きつつも,
ところどころ,疑問に思うことがありました.
Mapleについて調べてみます.
0093132人目の素数さん
2010/11/06(土) 18:28:31KITAKAZE
0094132人目の素数さん
2010/11/07(日) 15:46:02を部分積分したいのですが、やはり自分で関数を作ってやるしかないのでしょうか。
関数形のまま扱いたいのです。
0095132人目の素数さん
2010/11/08(月) 01:40:130096132人目の素数さん
2010/11/08(月) 18:18:29そういうのはどちらを積分してどちらを微分するか定まらないから、Kernelさんの計算のしようがないのでは?
>>90
Simplify[%]とかやってもダメ?
0097132人目の素数さん
2010/11/08(月) 18:22:03(1-√3)x>3 解け。
0098132人目の素数さん
2010/11/09(火) 13:12:09a=x/.%[[1]]
a=(3+y)/(1 - 3^(1/2))
D[a,y]<0
x< a/.y->0
x< 3/(1-3^(1/2))
0099132人目の素数さん
2010/11/09(火) 21:43:22そうなんです.
そこを無理やり計算してもらうために,自分で関数を作るしかないのかと思いまして.
>>90
なんとか解決いたしました.
「積分区間が同じものをまとめて」,Simplify[%]すればいけました.
「積分区間が同じものをまとめて」という操作をどうすればいいのか,検索してみたところ,
このような記述がありました.
ttp://oshiete.goo.ne.jp/qa/6303337.html
0100132人目の素数さん
2010/11/10(水) 02:22:42組み込みが強力であるのが望ましいだけのこと
0101132人目の素数さん
2010/11/10(水) 04:04:010102132人目の素数さん
2010/11/10(水) 08:15:260103132人目の素数さん
2010/11/10(水) 08:33:04→シリアルだけメモしてVMバックアップに戻す→ウマー
0104不等式 難問
2010/11/11(木) 23:36:19α(β-1)(β-α)≧2
β(α-1)(α-β)≦4
この二つをともに満たす α、βをもとめよ。
0105132人目の素数さん
2010/11/12(金) 18:18:47あほう
0106猫は幻獣¬(・ω・¬) ◆MuKUnGPXAY
2010/11/12(金) 18:23:40猫
0107132人目の素数さん
2010/11/14(日) 18:11:52英語版が11月上旬で日本語版が12月上旬って言ってたぞ
0108132人目の素数さん
2010/11/14(日) 20:50:240109132人目の素数さん
2010/11/14(日) 22:42:12それとも予算消化を心配してる?
0110132人目の素数さん
2010/11/15(月) 09:04:16"CDImage M-MULT-L 8.0.0 1805734. Approved for final." There's a new
Mathematica on the way, and it's big...
0111132人目の素数さん
2010/11/16(火) 01:15:05見られなくなってるんだけどわたしだけ?
昨日までは見れたんだけど・・・
0112猫は馬鹿釣り ◆MuKUnGPXAY
2010/11/16(火) 01:19:300113熊はバカ猫が大嫌い ◆fNAeHj7ZSs
2010/11/16(火) 02:52:47はよ死ね
熊
0114猫はチョンチョン ◆MuKUnGPXAY
2010/11/16(火) 03:08:47猫
0115132人目の素数さん
2010/11/16(火) 05:21:52http://blog.wolfram.com/2010/11/15/mathematica-8/
Mathematica 8 is released today! It’s a huge and important release. With dramatic
breakthroughs?and major broadening of the whole scope of Mathematica.
0116132人目の素数さん
2010/11/16(火) 19:10:050117132人目の素数さん
2010/11/19(金) 21:46:35上旬か下旬かといえばギリギリ上旬だな。
許してやるか。適切には中旬だが。
日本語版の12月上旬という情報も、
英語版+1ヶ月と考えて、15日あたりの中旬だろう。
011859
2010/11/19(金) 23:50:590119132人目の素数さん
2010/11/20(土) 18:09:05パラメタを取り出そうと思ってます。
mathematicaを使うのは初めてで色々調べながら進めていたのですが、
Needs["Statistics`NonlinearFit`"];
g = a*Exp[-((x - b)/c)^2] + d;
result=NonlinearFit[data, g, x, {a, b, c, d}];
Plot[result, {x, -10, 10}];
このような例に対して、データの所にcsvファイルを入れたところ
恐らくですがベクトル表記になっていないためのミス と警告されました。
csvファイルを(1、csvの最初の値)、(2、csvの二番目の値)・・・
のように表示するような方法はありますか?
また、今扱ってるcsvファイルはデータが数千から二万程のデータ数を持っていて、
データを表示するだけでかなり時間がかかっていたのですが
パラメタを取り出すにあたってmathematicaは適当なものなのでしょうか?
これまでエクセルのマクロとVBAをある程度触っただけなので戸惑っています。
くだらない質問かもしれず申し訳ありませんが、ぜひよろしくお願いします。
0120132人目の素数さん
2010/11/20(土) 18:52:00話はそれからだ
0121132人目の素数さん
2010/11/20(土) 19:50:19例えば
list={a,b,c,d,e,f,g,h,i,j}
に対して
{{a,b},{a,c},{a,d},…,{i,j}}
を返す(要素数はC(10,2)=45)
0122132人目の素数さん
2010/11/20(土) 20:57:00返信ありがとうございます。
ただ単にdataのところにかわりに
c:\\example\\01.csv
みたいにいれただけだったのですが…
場所の書き方が間違ってるのかと思い、その後
!!''c:\\example\\01.csv''
とすると、全てのデータがコンマで区切られた形で連続に出てきたので書き方は間違ってないと考えたのですが…
0123132人目の素数さん
2010/11/20(土) 21:28:13Permutations[{a, b, c, d, e, f, g, h, i, j}, {2}]
して、
Select[%, OrderedQ]
で取り出す、とかどう?
0124132人目の素数さん
2010/11/21(日) 06:28:25>>121じゃないけど、勉強になった。ありがとう。
0125132人目の素数さん
2010/11/21(日) 17:46:44いきなりcsvたべさせたら腹こわすじゃろ...
data=Import["file","csv"]
で呼び込んだとき、
{{data1,data2,data3,...}}
の場合は、
MapIndexed[{#2[[1]], #1} &, Flatten[data]]
で、
{{1,data1},{2,data2},{3,data3},...}
となります。
0126132人目の素数さん
2010/11/21(日) 18:48:31>>リストの中から2個とる組合せを返す組込み関数ってある?
単純には、
Subsets[{a, b, c, d, e, f, g, h, i, j}, {2}]
かな...
% // Length ->45
0127132人目の素数さん
2010/11/21(日) 20:17:47おれも121じゃないけど、勉強になった。ありがとう。
0128132人目の素数さん
2010/11/21(日) 21:35:08>Assuming[{a, l} ∈ Reals && 0 < a < l,
>Integrate[f[x]*DiracDelta[x - a] + g[x], {x, 0, l}]]
>実行結果が
>f[a]+Integrate[g[x], {x, 0, l}]]
>のようになってほしいのですが…
単純にThreadで、分配側を実行すればよろしある
Assuming[{a, l} ∈ Reals && 0 < a < l,
Thread[Integrate[f[x]*DiracDelta[x - a] + g[x], {x, 0, l}], Plus]]
0129132人目の素数さん
2010/11/22(月) 14:43:55>>123の方法だが、一般に
「欲しいデータを含むデータを用意して、そこからフィルタリング」
というのは計算速度を落とすので好ましくない(少なくとも俺は好きではない)
あと、OrderedQでのフィルタリングも一般性が無さそう
俺がSubsetsの存在を知るまでに書いてたコード
list = {a, b, c, d, e, f, g, h, i, j}
n = Length[list]
index = Join @@ Table[{i, j}, {i, 1, n - 1}, {j, i + 1, n}]
list[[#]] & /@ index
この方法を拡張すれば一般に
「n個の要素を含むリストからr個とった組合せを返す関数」
は容易に作れるけど、これだけ基本的な機能なんだから
組込み関数にあるはずだと思ってたんだよね。でも見つからなかった。
>>126ナイス!
がんばって自作コードを書いても、
既に組込み関数として存在してるってことがよくあるから
みんなも気をつけような
0130132人目の素数さん
2010/11/22(月) 15:19:530131132人目の素数さん
2010/11/22(月) 16:02:15`*。 *・
☆*:。.*:。.:.。*゚
┃ `*。セックル
∧∧ ∩ 。:*゚ バカは猫に因数分解されてね.。*゚
* '``・*...。.(*゚ー゚) /。*・
゚*:。:**。⊂:。.*:。).。.:。. *
と ) ノ 。..。.+゚
。:*゚*。し'+。*・ ゚
0132猫は口先だけ ◆MuKUnGPXAY
2010/11/22(月) 17:08:28猫
0133132人目の素数さん
2010/11/22(月) 21:02:530134132人目の素数さん
2010/11/22(月) 21:43:37引数の扱いを説明してください
0135132人目の素数さん
2010/11/23(火) 21:19:170136132人目の素数さん
2010/11/23(火) 21:43:11は万能
なんでもできる
0137Fランク受験生
2010/11/23(火) 23:52:38Subsets か?
むかし 組み合わせでみたけど
Subsets[l_list]:=GrayCode[l]
Subsets[n_Integer]:=GrayCode[Range[n]]
かな
いまは新しいのあるの?
0138132人目の素数さん
2010/11/24(水) 02:55:050139132人目の素数さん
2010/11/24(水) 15:47:330140132人目の素数さん
2010/11/24(水) 15:48:31(x,y)->0
的な意味で
0141132人目の素数さん
2010/11/24(水) 15:56:14(x,y)->(0,0)ね(0じゃなくてもいいけど)
0142132人目の素数さん
2010/11/24(水) 16:36:04x->0 y->0
lim lim f(x,y)
y->0 z->0
0143132人目の素数さん
2010/11/25(木) 18:50:07Limit[f[a t,b t],t->0]
でa,bをいろいろ変えるしかないんじゃないか?
0144132人目の素数さん
2010/11/25(木) 20:19:16違うからね。
0145132人目の素数さん
2010/11/26(金) 16:45:360146132人目の素数さん
2010/11/26(金) 19:27:22Limit[f[a t,b t],t->0]
したらどう?
0147132人目の素数さん
2010/11/26(金) 20:20:17>>144のいってるのは、初等関数でもある。
0148132人目の素数さん
2010/11/27(土) 10:13:06limx→0, y→0 (x y^n)/(x^2 + y^2n) は, y^n = a x (a: const) に沿って
x→0 とする時 (x y^n)/(x^2 + y^2n) = a/(1 + a^2) となるので, 不定で
ある。
0149132人目の素数さん
2010/11/27(土) 19:37:58どうしてわざわざ複雑にするわけ?
教科書にのってたやつをそのまま書いたのか?
0150132人目の素数さん
2010/11/27(土) 22:57:040151132人目の素数さん
2010/11/30(火) 19:12:57ttp://rikunabi-next.yahoo.co.jp/tech/docs/ct_s04100.jsp?p=google_q2
まずは正解を見ずに自分でトライしてもらいたい。
1時間考えても分からないという人は正解を見てみよう。
正解を見ても意味が分からないという人は↓の書き込みを見て見よう(考え中の人は↓を見ないように!)。
■ このスレッドは過去ログ倉庫に格納されています