〓 Mathematica 3 〓
■ このスレッドは過去ログ倉庫に格納されています
0001132人目の素数さん
2005/07/15(金) 16:37:20, - ' ,..、、.ヾ{{フ'⌒`ヽ、
/ ,:', -‐‐` ´ '´⌒ヽ ヾ:、
. ,' ,'´ ,ィ ,ィ ,' , `ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,))
! | ! .,'-.{ ! !|; |`、.}゙!.! |. ! ヽ.
', ', |Vァ=、゙、 `゙、!-_:ト,リ', l ! | ゙',
ヽ、', l:!Kノ}. f:_.)i゙i: リ ! l ル
| l!iヾ- ' , .!__:ノ ゙ ,リ l リ'´
. ',|!!、 r‐┐ ` ノ'. /,イ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
'i!゙、ヽ、 ゙ー' _, ィ,:',:''´ < Mathematica に関する話題はここに書いてね!
゙:、ィ、jヾー::: 'iヘ .ノ',リ. \___________________
,、- '´ ヽ、゙、 { `>"、
/\\ ', } //`ヽ
★前スレ
〓Mathematica〓
http://science2.2ch.net/test/read.cgi/math/985023298/
〓 Mathematica 2 〓
http://science3.2ch.net/test/read.cgi/math/1078534285/
0112132人目の素数さん
2005/10/29(土) 16:59:19を
x = rcosθ
y = rsinθ
みたいに媒介変数表示に変換したいです。
上記のような単純な円だといいのですが、
任意の楕円
ax^2 + bxy + cy^2 + dx + ey = 1
とかから媒介変数に変換するにはどうしたらいいんでしょうか?
そもそもmathematicaでできますか?
0113132人目の素数さん
2005/10/30(日) 01:16:21>>99
RandomRelist[x_List] := Block[{n = x, p}, Do[p = Random[Integer, {1, i}]; n[[{p, i}]] = n[[{i, p}]], {i, Length[x]}]; n]
>>100
HypothesisTests.mを読む
>>102
RotateLabel
0114132人目の素数さん
2005/10/31(月) 05:23:470115132人目の素数さん
2005/11/01(火) 12:00:22ver. 4 本来3だったもの
ver. 4.1 バグ取り
ver. 4.2 新たなバグ付き
ver. 5 どうでもいい
ver. 5.1 バグ取り
ver. 5.2 新たなバグ付き
ver. 6.0 さらなるバグ付き
0116132人目の素数さん
2005/11/01(火) 20:49:470117132人目の素数さん
2005/11/04(金) 22:35:230118132人目の素数さん
2005/11/04(金) 23:08:310119132人目の素数さん
2005/11/05(土) 18:30:42Student版買ったのに・・・
登録とかしなくて使えんの?
0120132人目の素数さん
2005/11/06(日) 01:53:510121132人目の素数さん
2005/11/06(日) 06:20:31億漁ったけどイマイチだな・・・
以前なら自サイトへのリンクとかあって色んなソフト販売してる奴らが多かったから
直接聞くことができたが、今は取り締まりが厳しいのかな。
ライムやっても罠入りばっかだしな・・・。
0122名無しさん@Mathematica
2005/11/06(日) 13:04:32お使いのはVersion4や4.1とか4.2でしょうか
もしそうでしたら[email protected]へご連絡いただければ
便利なつーるをおわたしします
0123132人目の素数さん
2005/11/07(月) 01:29:29だった場合に、これを 0.000000000000001
と出力させる方法はないですか??
それか、1*10^(-14) と出力する方法はないでしょうか。
mathematica の出力を 他のプログラムに食わせることを考えてます。
CForm が期待してるものに近いんだけど、そのまま使えないです。いまは、、CForm の出力に、
ラッパーかませてます。おしえてくださいませ。
0124132人目の素数さん
2005/11/07(月) 07:26:440125132人目の素数さん
2005/11/07(月) 13:55:240.000000000000001 だったら
fooForm[n_] := NumberForm[n, ExponentFunction -> (Null &)]
1*10^(-14) なら
barForm[n_] := NumberForm[n,
NumberFormat -> (SequenceForm[#1, "*", #2, "^", #3] &),
ExponentFunction -> Identity
]
0126132人目の素数さん
2005/11/08(火) 01:20:26汗水垂らして働いて買えよ。
0127132人目の素数さん
2005/11/09(水) 18:52:430128132人目の素数さん
2005/11/10(木) 19:35:060129132人目の素数さん
2005/11/14(月) 19:11:110130132人目の素数さん
2005/11/16(水) 22:11:26Mathematica5.1大安売り
0131132人目の素数さん
2005/11/17(木) 00:08:24IPアドレス 219.101.229.147
ホスト名 www.pcsoftoff.com
IPアドレス
割当国 ※ 日本 (JP)
国内IPか。へぇ。
0132132人目の素数さん
2005/11/17(木) 02:34:42ACCSに通報しますた。
0133132人目の素数さん
2005/11/17(木) 13:59:11多分使えないモノだなwww
0134132人目の素数さん
2005/11/17(木) 16:04:50高杉。
0135132人目の素数さん
2005/11/18(金) 17:43:32日本語も使えます。64ビットのOSなんか使用している人は、いるんですかね。
0136132人目の素数さん
2005/11/20(日) 08:26:07メニューやヘルプは英語
日本語版の管理は厳重
Mathematica万歳
0137132人目の素数さん
2005/11/20(日) 08:53:140138132人目の素数さん
2005/11/20(日) 20:23:54ttp://www.amazon.co.jp/exec/obidos/ASIN/B000B6GGC4/
0139132人目の素数さん
2005/11/24(木) 14:58:37p1(r,z)=∫exp[(j*k*r'^2)/2*(1/z-1/D)]*J0((k*r*r')/z)*r'dr'
先生にこの式を鳥瞰図にしてくれって頼まれたのですが
もうずっとわからんままで、先生に聞いても教えてくれんのです(ノД`)
j=虚数、k=1500π、D=45,J0=0次ベッセル関数,r=0〜20,z=20〜60
積分は定積分で、範囲は0〜17です。
あ、ソフトはMathcadとMuPADとMathematica5.1とかいろいろためしてます
Mathematica5.1は英語であんまよくわからんのですけどね(´・ω・`)
どなたかわかる方いたら助けてください(ノ_・。)
0140139
2005/11/25(金) 18:14:250141132人目の素数さん
2005/11/25(金) 18:56:49BesselJ出すのに時間かかったんじゃね?
後学の為にMathematicaの式コピペして
0142132人目の素数さん
2005/11/26(土) 07:39:160143132人目の素数さん
2005/11/28(月) 22:02:53高杉て話にナラナイ。そんな値段なら学割で正規品を買った方がマシかな。
0144132人目の素数さん
2005/12/01(木) 21:36:180145132人目の素数さん
2005/12/02(金) 18:21:3250×50ピクセル -> 25×25ピクセルのようにしたいのですが。。。
0146132人目の素数さん
2005/12/04(日) 09:48:100147132人目の素数さん
2005/12/06(火) 23:00:26(sqrt{A*B} + sqrt{A*C}) / A
みたいなやつを、分母分子を√Aで割って
(sqrt{B} + sqrt{C}) / sqrt{A}
に変形して表示したい場合はどうすればいいんでしょう?
SimplifyもFullSimplifyも無視されてしまいます、、、
0148132人目の素数さん
2005/12/07(水) 00:16:02できたよ
\!\(f = \(\@\(A\ B\) + \@\(A\ C\)\)\/A\)
\!\(PowerExpand[f] /. {\@A -> A\/\@A} // FullSimplify\)
こういう時は新しいRule[→]を作ってやるとうまくいく
0149147
2005/12/07(水) 00:20:470151132人目の素数さん
2005/12/07(水) 19:58:190152132人目の素数さん
2005/12/08(木) 20:55:35万歳
0153132人目の素数さん
2005/12/09(金) 01:10:39http://science4.2ch.net/test/read.cgi/math/1133617862/441
の計算をよろしくお願いします
無知識の者が免許の学科試験に合格する確率です
0154132人目の素数さん
2005/12/09(金) 12:16:04これでおkか?つーか海外にはガウス記号って言葉無いんだな('A`)ハジメテシッタ
ttp://blog.livedoor.jp/calc/archives/717594.html
0155132人目の素数さん
2005/12/09(金) 13:44:06mathematicaでのガウス関数と等価なのはFloorだよ(床関数)
それでやったらすんなりいくと思われ
再うpキボンヌ
0156132人目の素数さん
2005/12/10(土) 02:10:17ドモ(・ω・)ノ
うちの研究室じゃガウス記号なんて絶対使わないから初めて知ったよw
ttp://www.uploda.org/file/uporg257191.jpg
>無知識の者が免許の学科試験に合格する確率です
絶対受かんないなwソース希望
0157132人目の素数さん
2005/12/10(土) 18:53:48-6
0.1,1.3 10
みたいになるのをふせぐにはどうしたらいいですか?
0.1,1.3E-6
と扱いやすい形で保存したいです。
0158132人目の素数さん
2005/12/10(土) 19:56:39どうもありがとう(・ω・)ノ
確かに絶対受からないねw
-19乗オーダーなんて物理とかでしかみたことねーや(電気素量は確かこれぐらいのオーダーだったような)
ソースは441のすぐ上だよ
http://science4.2ch.net/test/read.cgi/math/1133617862/412n-
0159132人目の素数さん
2005/12/13(火) 19:43:54任意の2点を結ぶことはできるのでしょうか?
例えば、
{{x1,y1},{x2,y2},{x3,y3},{x4,y4}}
をプロットしたときに
{x1,y1}と{x2,y2}を、また{x3,y3}と{x4,y4}を結んで
{x2,y2}と{x3,y3}の間は結ばれていない
・・・というのは無理でしょうか?
0160GiantLeaves ◆6fN.Sojv5w
2005/12/13(火) 20:49:590162159
2005/12/15(木) 16:55:55x軸にはx1,x2に,y軸には自動で破線の目盛線を入れようと思い、ヘルプの通り
sty1=Dashing[{0.05,0.05}]
Plot[... , GridLines->{{{x1,sty1},{x2,sty1}},{Automatic,sty1}}]
としたのですが,y軸の目盛は破線になっていたのですが,
x軸の目盛はデフォルトの青線でも指定した破線でもなく
黒の実線で表示されてしまいます。
どうすればよいのでしょうか?
よろしくお願いします
0163132人目の素数さん
2005/12/15(木) 22:04:040164132人目の素数さん
2005/12/28(水) 15:26:34従属変数の区間を設定する(もしくはある値を超えたら計算終了とか)
ことは出来ますか?(無限ループになる可能性もあるわけですが...)
0165132人目の素数さん
2005/12/31(土) 12:31:32Mathematicaに不可能はない!
0166132人目の素数さん
2005/12/31(土) 14:32:03http://science4.2ch.net/test/read.cgi/math/1135765594
【夢vs】結果を出せば職はある?w【現実】
http://science4.2ch.net/test/read.cgi/math/1134888899
【事実】研究しても、ポスト無し!【愕然】
http://science4.2ch.net/test/read.cgi/math/1134089493
関連:【建部 】斎藤毅先生【Invent】
http://science4.2ch.net/test/read.cgi/math/1134743220
0167132人目の素数さん
2006/01/02(月) 05:14:250168132人目の素数さん
2006/01/13(金) 14:23:41できますか?
x^3+y^3<=3xyとかx^2+y^2+sinx+siny<=1のようなy=f(x)にしずらいような
図形の面積とか出してみたいんですけど。
0169132人目の素数さん
2006/01/13(金) 23:37:03<< Calculus`Integration`;
NIntegrate[Boole[x^2+y^2<=1],{x,-∞,∞},{y,-∞,∞}]
NIntegrate[Boole[x^3+y^3<=3x y],{x,0,∞},{y,0,∞}]
こんなのとか。NIntegrateでなくIntegrateの場合、ちゃんと計算して
くれない時がある。それから、定義域はある程度自分で面倒を見ないと
いけない。
0170132人目の素数さん
2006/01/19(木) 14:04:47{z,-∞,∞}]
これをやったら結果は0になった・・・。どうみても体積があるようにみえるんだが・・・。
0171132人目の素数さん
2006/01/20(金) 17:55:08処理を途中で止めたいのですがどうすればよいでしょうか?
エラーが発生した場合の戻り値かなにかがあればIfとBreakまたはAbortでできそうなのですが。。。
0172132人目の素数さん
2006/01/22(日) 00:24:56x^4=e^x
これの三つの実数解を示すにはどうすればよいのでしょうか
グラフでも数値でもいいので
よろしくお願いします
0173132人目の素数さん
2006/01/22(日) 04:50:150175132人目の素数さん
2006/01/26(木) 19:29:32それだけ金が有れば液晶テレビ「アクオス」37V買うよ。
大学生協で偽って安く入手しても、キーを貰うための手続きで
身元を調べられるし、
○○nnyで
最新バージョン5.2日本語版。たまに検索で引っ掛かるけど
どうせMathIDやらLicenceNumberで正規の番号入れないと
キーを貰えないからダウンロードしても意味ないよな。
数式処理系で少し性能が劣ると思うけど、フリーウェアの
MuPAD2.5でガマンするか
0176132人目の素数さん
2006/01/27(金) 19:05:11どうやってPlotすれば良いですか。
0177132人目の素数さん
2006/01/27(金) 19:24:36(n=1,2,3,4,5)という問題です。
これはそれぞれフーリエ正弦級数展開、余弦級数展開せよということなのでしょうか。
前者はFourierTrigSeries[f(x),x,5]、
後者はFourierCosSeries[f(x),x,5]で良いのでしょうか。
正弦はTrigで出るらしいのですが余弦は適当なコマンドが見つからなかったので
Cosをつければ出るのかと思って自分で勝手に作ったのですが・・
nが5まで=5次まで展開という意味なのでしょうか。
教えてくださいですいません。よろしくお願いします。
また展開した関数のグラフを元の関数と同じグラフ上にプロットする方法も
御教示いただけるとありがたいです。
0178132人目の素数さん
2006/01/28(土) 21:18:440179132人目の素数さん
2006/01/28(土) 22:36:27たとえば
Sqrt[0.8]=0.894427
を四捨五入して0.894としたいのですが、
N[Sqrt[0.8],3]としてもできませんでした
0180132人目の素数さん
2006/01/29(日) 03:31:140181132人目の素数さん
2006/01/29(日) 03:36:41無事できました
ありがとうございましたm(_ _)m
0182132人目の素数さん
2006/01/31(火) 00:45:39たとえば{{{1, 2, 1}, {2, 3, 1}},{{3, 0, 1}, {2, 1, 5}}} -> {{3, 2, 1}, {2, 3, 5}}のような。
UnionとかMaxでなんとかなるような気がするのですが。
0183132人目の素数さん
2006/01/31(火) 01:12:30こんな感じ?
MapThread[Max, {{{1, 2, 1}, {2, 3, 1}}, {{3, 0, 1}, {2, 1, 5}}}, 2]
0184132人目の素数さん
2006/01/31(火) 03:11:14お宅はヴァカ?
鍵genが出回っていること知らないの?
この鍵genで生成されるpassだと英語しか使えないけど、普通は不自由しないよ。
0185182
2006/01/31(火) 23:24:20ありがとうございます。行列をこねくりまさなきゃいけないかと覚悟してましたが、助かりました。
0186132人目の素数さん
2006/02/01(水) 22:22:44ありがとうございました。
通報させていただきました。
0187132人目の素数さん
2006/02/02(木) 15:21:42OA,OB,OC上に点P,Q,Rをとったところ、
四面体OPQRの体積が四面体OABCの1/3になりました。
このような三角形PQRの周および内部が通過する領域の体積を求めてください。
今↑の問題を解くためにMathematicaを使おうと考えています(普通に解けるぞ!という方いらしましたらご解答お願いしますm(_ _)m)。
上の方の相似比1/3(体積比1/27)の領域は通らないことはわかっています。
それで、下の方の「ぽっこりした領域」も通らないことがわかっています。
で、この「ぽっこりした領域」の体積を求めることができれば、
(四面体の体積)−(相似比1/3の領域)−(ぽっこりした領域)=求める領域
なので、この「ぽっこりした領域」の体積を求めようとしています。
これが相当むずかしくて、なかなか求められませんので、なにか知見を得るために
Mathematicaにこのぽっこり領域を描画させていろいろ切断してみたいなぁと考えています。
どのようにしたら良いか分かるかたがいらっしゃいましたら、教えていただけると幸いです。
0188132人目の素数さん
2006/02/04(土) 14:09:220189132人目の素数さん
2006/02/07(火) 09:45:02という問題です。使用するソフトはマスマティカです。
級数展開などいろいろすると
ArcTan(x)=∫1/(1+t^2)dt
=(Σ (2k - 2)! / (2k - 1)!){x^(2k - 1) / (1 + x^2)^k}
となる所まで辿り着きました。
階乗が出ているからここから再帰的に解くプログラムを何とか作れるような予感はするのですが、
Σ (2k - 2)! / (2k - 1)!に関して、
f[k]をf[k-1]の式で表す、つまり漸化式のような形にして解けばいいのでしょうか。
再帰方程式自体はコマンドRsolveで解けるらしいのですが
0190132人目の素数さん
2006/02/09(木) 23:56:25MATHEMATICAもMAPLEもなんでこんなに高い値段で売るのだろうか?
そのような高い値段のソフトを学校はサイトライセンスだと安く買える
とかいう理由なのか導入して、それで教育したり教材を作るが、
それは結局価格の高いソフトの広告宣伝塔として学校がソフト会社の
戦略の一翼を担っていることに他ならない。そういうところでほぼ
人生の一時期にでも強制して使用させることで、依存性と習慣性を
高めて、一生ライセンス料とアップグレード料金を吸い上げ続ける
為のイニシエーションの機関となっているのも同然だ。
マイクロソフトのOSやワープロ、表計算、プレゼンテーションツール
に関しても同様だ。学校はそのような外国製のソフトで高額のものに
学生をはめ込み、海外の企業に利益を吸い上げさせる構造を支援している。
かつてイギリスがインドを植民地として、繊維製品を作ることを禁じ、
イギリス製の綿製品を買わせたり、紅茶に入れる砂糖に重税を課して
いたように。官公庁や特に学校が海外製品でブラックボックスのものを
使うことをほぼ強要するのは、自国民を植民地化させ、自国のソフト産業
を壊滅させるために作業しているようなものである。
0191132人目の素数さん
2006/02/11(土) 15:30:280192132人目の素数さん
2006/02/12(日) 01:49:430193132人目の素数さん
2006/02/14(火) 20:26:09ものすごい長い、わけわかんない答えが出ました。
何ででしょうか?
Integrate[(beta*t + c)^(1/h), {t, i, j}]
0194132人目の素数さん
2006/02/14(火) 22:50:44Assumptionsを使って条件を限定すれば、それなりに短い答えが
返される。
0195132人目の素数さん
2006/02/15(水) 23:25:35Mathematicaからの文字をワードなどにコピペしたものを表示させたいのですが
あいにくフォントがなく文字化けします。
以前はマサチューセッツ工科大学のどこかにフォントリンクが張ってあったようですが
見つけれず… フォントのありかをご存知の方いますか?
0196◇ゾンビ@Linuxザウルス : ◆mzpjBMNq3U
2006/02/16(木) 11:20:18WRIのサイトからMathReaderをダウンロードして
インストールしてみてはいかがでしょう
画面表示用のFontが入っていたと思います
ただ、MicrosoftWord上で表示できるにしても
うまく文字間隔や1などを再現できるかは
わかりません
0197132人目の素数さん
2006/02/16(木) 18:13:070198132人目の素数さん
2006/02/16(木) 23:53:54自宅のLinuxマシン(そのマシン名を仮にPC2としよう)から
SSHでPC1にログインしてPC2上のX画面でそのGUI版のMathematicaをPC1
で起動してやると、PC1上のXの画面上に、Mathematica用のフォントが
ありませんとかいうようなメッセージが出て、数式の表示もおかしいし
いろいろとまともに表示されない。これはどうしたら回避できるのだろうか?
Linuxは両方のマシンで同じFedora Core for AMD64 だ。
0199132人目の素数さん
2006/02/17(金) 10:17:490200132人目の素数さん
2006/02/18(土) 08:44:560201132人目の素数さん
2006/02/18(土) 09:10:28フォントサーバでいけるのでは?
0202132人目の素数さん
2006/02/22(水) 06:48:56フリーですが、何か?
>>198
両方にインスト。 コレ最強。 鍵gen使えば何台でも桶。
0203132人目の素数さん
2006/02/22(水) 16:25:57人柱よろ。
0204132人目の素数さん
2006/02/23(木) 10:28:260205132人目の素数さん
2006/02/23(木) 16:57:47における分散(半値全幅でもいい)とか求めたい
のですが、descriptive statisticsをつかえば
良いのはわかります。
具体にどうしたらいいのでしょうか?
0206132人目の素数さん
2006/02/27(月) 10:53:29置き換えルールrule6を定義し、作図せよ。・・・さっぱりわかりません。
ヒント:枝の部分をxとおき、この部分を置き換えるルールを考えよ。だそうですが。
あと,
move[z]:=(p={{0,0},{0,1}};p[[1]])
move[f]:=(p[[1]]=p[[1]]+p[[2]];p[[1]])
kaiten[th_]:=p[[2]]={{Cos[th],Sin[th]},{-Sin[th],Cos[th]}}.p[[2]]
move[r]:=(kaiten[Pi/3];p[[1]])
move[l]:=(kaiten[-Pi/3];p[[1]])
が、前の問題で定義されています。
0207132人目の素数さん
2006/03/02(木) 19:11:520208132人目の素数さん
2006/03/04(土) 15:26:25y=ax+.....
のグラフをx軸を縦に、y軸を横に表示したいのですが
どうすればいいでしょうか?
0209132人目の素数さん
2006/03/05(日) 13:04:55頭を90度かたむける
0210132人目の素数さん
2006/03/16(木) 22:50:48データの中に{x.y}={0、100}を含んでいるので
無限式が出ると言われて上手くいきません。
どのようにすればいいのでしょうか。
0211132人目の素数さん
2006/03/16(木) 23:20:230のでるデータを外す。
普通、実数は0で割れないでしょ。
■ このスレッドは過去ログ倉庫に格納されています