トップページ⇒math
1001コメント292KB

〓 Mathematica 3 〓

■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん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/
0152１３２人目の素数さん2005/12/08(木) 20:55:35
われまてぃか
万歳
0153１３２人目の素数さん2005/12/09(金) 01:10:39
どなたか
http://science4.2ch.net/test/read.cgi/math/1133617862/441
の計算をよろしくお願いします
無知識の者が免許の学科試験に合格する確率です
0154１３２人目の素数さん2005/12/09(金) 12:16:04
ttp://www.uploda.org/file/uporg256633.jpg
これでおｋか？つーか海外にはガウス記号って言葉無いんだな('A`)ハジメテシッタ
ttp://blog.livedoor.jp/calc/archives/717594.html
0155１３２人目の素数さん2005/12/09(金) 13:44:06
>>154
mathematicaでのガウス関数と等価なのはFloorだよ（床関数）
それでやったらすんなりいくと思われ
再うｐキボンヌ
0156１３２人目の素数さん2005/12/10(土) 02:10:17
>>155
ドモ(・ω・)ノ
うちの研究室じゃガウス記号なんて絶対使わないから初めて知ったよｗ
ttp://www.uploda.org/file/uporg257191.jpg

＞無知識の者が免許の学科試験に合格する確率です
絶対受かんないなｗソース希望
0157１３２人目の素数さん2005/12/10(土) 18:53:48
ファイルにカンマ区切りで数字を書き出す際、
　 　 　 -6
0.1,1.3 10
みたいになるのをふせぐにはどうしたらいいですか？
0.1,1.3E-6
と扱いやすい形で保存したいです。
0158１３２人目の素数さん2005/12/10(土) 19:56:39
>>156
どうもありがとう(・ω・)ノ
確かに絶対受からないねｗ
-19乗オーダーなんて物理とかでしかみたことねーや（電気素量は確かこれぐらいのオーダーだったような）

ソースは441のすぐ上だよ
http://science4.2ch.net/test/read.cgi/math/1133617862/412n-
0159１３２人目の素数さん2005/12/13(火) 19:43:54
ListPlotでプロットした際、OlotJoinedをTrueにすると各点が自動的に結ばれますが、
任意の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:59
talk:>>159 線分を描く関数があった気がするから、探してみよう。
01611592005/12/14(水) 12:44:58
>>160
ParametricPlotを使って書くことができました
ありがとうございました
01621592005/12/15(木) 16:55:55
またまた失礼します
x軸にはx1,x2に，y軸には自動で破線の目盛線を入れようと思い、ヘルプの通り

sty1=Dashing[{0.05,0.05}]
Plot[... , GridLines->{{{x1,sty1},{x2,sty1}},{Automatic,sty1}}]

としたのですが，y軸の目盛は破線になっていたのですが，
x軸の目盛はデフォルトの青線でも指定した破線でもなく
黒の実線で表示されてしまいます。

どうすればよいのでしょうか？
よろしくお願いします
0163１３２人目の素数さん2005/12/15(木) 22:04:04
がんがれ!
0164１３２人目の素数さん2005/12/28(水) 15:26:34
NDSolveで微分方程式を解くとき、独立変数の区間を指定して解きますが、
従属変数の区間を設定する（もしくはある値を超えたら計算終了とか）
ことは出来ますか？（無限ループになる可能性もあるわけですが...）
0165１３２人目の素数さん2005/12/31(土) 12:31:32
気合いでできる
Mathematicaに不可能はない!
0166１３２人目の素数さん2005/12/31(土) 14:32:03
【かっこ悪い】建部崩れ、見参！【情けないｗ】
http://science4.2ch.net/test/read.cgi/math/1135765594
【夢vs】結果を出せば職はある？ｗ【現実】
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
0167１３２人目の素数さん2006/01/02(月) 05:14:25
884
0168１３２人目の素数さん2006/01/13(金) 14:23:41
例えばx^2+y^2<=1の面積を出したいときy=f(x)の形にせずに出すことって
できますか？
x^3+y^3<=3xyとかx^2+y^2+sinx+siny<=1のようなy=f(x)にしずらいような
図形の面積とか出してみたいんですけど。
0169１３２人目の素数さん2006/01/13(金) 23:37:03
>>168
<< 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の場合、ちゃんと計算して
くれない時がある。それから、定義域はある程度自分で面倒を見ないと
いけない。
0170１３２人目の素数さん2006/01/19(木) 14:04:47
Integrate[Boole[x^2+y^2+z^2+Sin[4x]+Sin[4y]+Sin[4z]<=1],{x,-∞,∞},{y,-∞,∞},
{z,-∞,∞}]
これをやったら結果は0になった・・・。どうみても体積があるようにみえるんだが・・・。
0171１３２人目の素数さん2006/01/20(金) 17:55:08
ある関数を定義して，その実行中になんらかのエラーが発生した場合
処理を途中で止めたいのですがどうすればよいでしょうか？
エラーが発生した場合の戻り値かなにかがあればIfとBreakまたはAbortでできそうなのですが。。。
0172１３２人目の素数さん2006/01/22(日) 00:24:56
質問なんですが

x^4=e^x
これの三つの実数解を示すにはどうすればよいのでしょうか
グラフでも数値でもいいので
よろしくお願いします
0173１３２人目の素数さん2006/01/22(日) 04:50:15
(・ω・)っ[NSolve]
01741722006/01/24(火) 15:19:49
>>173
ありがとうございます
難しそうですががんばってみます
0175１３２人目の素数さん2006/01/26(木) 19:29:32
４０万近くするのではとても買う気がしない。
それだけ金が有れば液晶テレビ「アクオス」３７Ｖ買うよ。
大学生協で偽って安く入手しても、キーを貰うための手続きで
身元を調べられるし、

○○nnyで
最新バージョン5.2日本語版。たまに検索で引っ掛かるけど
どうせMathIDやらLicenceNumberで正規の番号入れないと
キーを貰えないからダウンロードしても意味ないよな。
数式処理系で少し性能が劣ると思うけど、フリーウェアの
MuPAD2.5でガマンするか

0176１３２人目の素数さん2006/01/27(金) 19:05:11
区間[0,W](0<W<1)のデータを区間[0,1]に規格化してPlotしたいんだけど、
どうやってPlotすれば良いですか。
0177１３２人目の素数さん2006/01/27(金) 19:24:36
ｆ(ｘ)を−1＜ｘ＜1の範囲内で、sin(nπｘ）及びcos(nπｘ)を用いて級数展開しなさい。
(n=1,2,3,4,5)という問題です。
これはそれぞれフーリエ正弦級数展開、余弦級数展開せよということなのでしょうか。
前者はFourierTrigSeries[f(x),x,5]、
後者はFourierCosSeries[f(x),x,5]で良いのでしょうか。
正弦はTrigで出るらしいのですが余弦は適当なコマンドが見つからなかったので
Cosをつければ出るのかと思って自分で勝手に作ったのですが・・
ｎが５まで＝５次まで展開という意味なのでしょうか。
教えてくださいですいません。よろしくお願いします。

また展開した関数のグラフを元の関数と同じグラフ上にプロットする方法も
御教示いただけるとありがたいです。
0178１３２人目の素数さん2006/01/28(土) 21:18:44
うむ、がんばりなさい
0179１３２人目の素数さん2006/01/28(土) 22:36:27
数値を任意の桁で四捨五入するにはどうしたらよいでしょうか？
たとえば
Sqrt[0.8]=0.894427
を四捨五入して0.894としたいのですが、
N[Sqrt[0.8],3]としてもできませんでした
0180１３２人目の素数さん2006/01/29(日) 03:31:14
(・ω・)っ[SetAccuracy]
0181１３２人目の素数さん2006/01/29(日) 03:36:41
>>180
無事できました
ありがとうございましたm(_ _)m
0182１３２人目の素数さん2006/01/31(火) 00:45:39
mxnの行列がi個並んだ行列のなかから、それぞれの最大値の行列mxnを取り出すにはどうしたらよいでしょうか？
たとえば{{{1, 2, 1}, {2, 3, 1}},{{3, 0, 1}, {2, 1, 5}}} -> {{3, 2, 1}, {2, 3, 5}}のような。
UnionとかMaxでなんとかなるような気がするのですが。
0183１３２人目の素数さん2006/01/31(火) 01:12:30
>>182
こんな感じ？
MapThread[Max, {{{1, 2, 1}, {2, 3, 1}}, {{3, 0, 1}, {2, 1, 5}}}, 2]
0184１３２人目の素数さん2006/01/31(火) 03:11:14
>>175
お宅はヴァカ？
鍵genが出回っていること知らないの？
この鍵genで生成されるpassだと英語しか使えないけど、普通は不自由しないよ。
01851822006/01/31(火) 23:24:20
>> 183
ありがとうございます。行列をこねくりまさなきゃいけないかと覚悟してましたが、助かりました。
0186１３２人目の素数さん2006/02/01(水) 22:22:44
>>184
ありがとうございました。
通報させていただきました。
0187１３２人目の素数さん2006/02/02(木) 15:21:42
一辺がaの正四面体OABCがあります。
OA,OB,OC上に点P,Q,Rをとったところ、
四面体OPQRの体積が四面体ＯＡＢＣの1/3になりました。
このような三角形PQRの周および内部が通過する領域の体積を求めてください。

今↑の問題を解くためにMathematicaを使おうと考えています（普通に解けるぞ！という方いらしましたらご解答お願いしますm(_ _)m）。

上の方の相似比1/3(体積比1/27)の領域は通らないことはわかっています。
それで、下の方の「ぽっこりした領域」も通らないことがわかっています。
で、この「ぽっこりした領域」の体積を求めることができれば、
（四面体の体積）−（相似比1/3の領域）−（ぽっこりした領域）＝求める領域
なので、この「ぽっこりした領域」の体積を求めようとしています。

これが相当むずかしくて、なかなか求められませんので、なにか知見を得るために
Mathematicaにこのぽっこり領域を描画させていろいろ切断してみたいなぁと考えています。

どのようにしたら良いか分かるかたがいらっしゃいましたら、教えていただけると幸いです。
0188１３２人目の素数さん2006/02/04(土) 14:09:22
5.2になりました
0189１３２人目の素数さん2006/02/07(火) 09:45:02
ArcTan(x)=0,初期値X=1から始まる方程式を「再帰的に」解くプログラムを書け。
という問題です。使用するソフトはマスマティカです。
級数展開などいろいろすると
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で解けるらしいのですが

0190１３２人目の素数さん2006/02/09(木) 23:56:25
アップグレードの料金が高すぎると思う。
MATHEMATICAもMAPLEもなんでこんなに高い値段で売るのだろうか？
そのような高い値段のソフトを学校はサイトライセンスだと安く買える
とかいう理由なのか導入して、それで教育したり教材を作るが、
それは結局価格の高いソフトの広告宣伝塔として学校がソフト会社の
戦略の一翼を担っていることに他ならない。そういうところでほぼ
人生の一時期にでも強制して使用させることで、依存性と習慣性を
高めて、一生ライセンス料とアップグレード料金を吸い上げ続ける
為のイニシエーションの機関となっているのも同然だ。
マイクロソフトのOSやワープロ、表計算、プレゼンテーションツール
に関しても同様だ。学校はそのような外国製のソフトで高額のものに
学生をはめ込み、海外の企業に利益を吸い上げさせる構造を支援している。
　かつてイギリスがインドを植民地として、繊維製品を作ることを禁じ、
イギリス製の綿製品を買わせたり、紅茶に入れる砂糖に重税を課して
いたように。官公庁や特に学校が海外製品でブラックボックスのものを
使うことをほぼ強要するのは、自国民を植民地化させ、自国のソフト産業
を壊滅させるために作業しているようなものである。
0191１３２人目の素数さん2006/02/11(土) 15:30:28
フリーのソフトつくって下さい。
0192１３２人目の素数さん2006/02/12(日) 01:49:43
つmupad,maxima,risa/asir
0193１３２人目の素数さん2006/02/14(火) 20:26:09
質問です。以下のような簡単な定積分の計算をさせたところ、
ものすごい長い、わけわかんない答えが出ました。
何ででしょうか？
Integrate[(beta*t + c)^(1/h), {t, i, j}]
0194１３２人目の素数さん2006/02/14(火) 22:50:44
>>193
Assumptionsを使って条件を限定すれば、それなりに短い答えが
返される。
0195１３２人目の素数さん2006/02/15(水) 23:25:35
質問です。MathematicaをインストールしていないPCに
Mathematicaからの文字をワードなどにコピペしたものを表示させたいのですが
あいにくフォントがなく文字化けします。
以前はマサチューセッツ工科大学のどこかにフォントリンクが張ってあったようですが
見つけれず…　フォントのありかをご存知の方いますか？
0196◇ゾンビ＠Linuxザウルス : ◆mzpjBMNq3U 2006/02/16(木) 11:20:18
>>195
WRIのサイトからMathReaderをダウンロードして
インストールしてみてはいかがでしょう
画面表示用のFontが入っていたと思います

ただ、MicrosoftWord上で表示できるにしても
うまく文字間隔や１などを再現できるかは
わかりません
0197１３２人目の素数さん2006/02/16(木) 18:13:07
wordに貼り付けるときに図で貼ってみれば？
0198１３２人目の素数さん2006/02/16(木) 23:53:54
LinuxのPCにインストールした。そのマシン名を仮にPC1としよう。
自宅のLinuxマシン（そのマシン名を仮にPC2としよう）から
SSHでPC1にログインしてPC2上のX画面でそのGUI版のMathematicaをPC1
で起動してやると、PC1上のXの画面上に、Mathematica用のフォントが
ありませんとかいうようなメッセージが出て、数式の表示もおかしいし
いろいろとまともに表示されない。これはどうしたら回避できるのだろうか？
Linuxは両方のマシンで同じFedora Core for AMD64 だ。
0199１３２人目の素数さん2006/02/17(金) 10:17:49
FAQだな．PC2にフォントをインストールしろ．
0200１３２人目の素数さん2006/02/18(土) 08:44:56
age
0201１３２人目の素数さん2006/02/18(土) 09:10:28
>>198
フォントサーバでいけるのでは？
0202１３２人目の素数さん2006/02/22(水) 06:48:56
>>190
フリーですが、何か？

>>198
両方にｲﾝｽﾄ。　コレ最強。　鍵gen使えば何台でも桶。
0203１３２人目の素数さん2006/02/22(水) 16:25:57
インテルマック版来たね。
人柱よろ。
0204１３２人目の素数さん2006/02/23(木) 10:28:26
しこ
0205１３２人目の素数さん2006/02/23(木) 16:57:47
mathematica で、XYデータセット（非対称）
における分散（半値全幅でもいい）とか求めたい
のですが、descriptive statisticsをつかえば
良いのはわかります。
具体にどうしたらいいのでしょうか？
0206１３２人目の素数さん2006/02/27(月) 10:53:29
亀の動いたあとが、樹のフラクタル図形になるような、亀の始めの動きｔと
置き換えルールrule6を定義し、作図せよ。・・・さっぱりわかりません。
ヒント：枝の部分をｘとおき、この部分を置き換えるルールを考えよ。だそうですが。
あと,
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]])
が、前の問題で定義されています。
0207１３２人目の素数さん2006/03/02(木) 19:11:52
320
0208１３２人目の素数さん2006/03/04(土) 15:26:25
質問なのですが、

y=ax+.....

のグラフをｘ軸を縦に、y軸を横に表示したいのですが
どうすればいいでしょうか？
0209１３２人目の素数さん2006/03/05(日) 13:04:55
>>208
頭を90度かたむける
0210１３２人目の素数さん2006/03/16(木) 22:50:48
実験データをy=a/x+bの式にフィッティングしたいのですが、
データの中に{x.y}={0、100}を含んでいるので
無限式が出ると言われて上手くいきません。
どのようにすればいいのでしょうか。
0211１３２人目の素数さん2006/03/16(木) 23:20:23
>>210
0のでるデータを外す。
普通、実数は0で割れないでしょ。
02122102006/03/17(金) 20:11:16
>>211
ありがとうございます。やはりそうするしかないのでしょうか。
データ数が少ない、かつx=0付近が重要なのでそれは避けたいのですが。
0213１３２人目の素数さん2006/03/23(木) 09:38:11
>>210
自分で(フィッテングの)評価関数書いて、評価関数の最適化だけやらせるとか。
自分で書けば、「x=0付近が重要」と云うのも、それなりに盛り込めるでしょ？
0214１３２人目の素数さん2006/03/26(日) 15:03:14
0215１３２人目の素数さん2006/04/03(月) 21:43:37
そろそろ、新しいMathematicaでるのかな？
http://www.wolfram.co.jp/news/events/JMC2006/
0216１３２人目の素数さん2006/04/05(水) 17:20:18
ある数列が与えられていて、それがベータ関数の値であるときに、
元のベータ関数のパラメータはどうやって求めればいいんでしょうか。
V5.2を使っています。
0217１３２人目の素数さん2006/04/14(金) 21:03:53
wktk
0218１３２人目の素数さん2006/04/15(土) 12:01:53
age
0219１３２人目の素数さん2006/04/16(日) 01:39:42
0220１３２人目の素数さん2006/04/17(月) 01:42:18
Ver6ﾏﾀﾞｰ
0221１３２人目の素数さん2006/04/23(日) 22:59:53
ﾏｰﾀﾞﾀﾞﾖｰ
0222１３２人目の素数さん2006/04/29(土) 22:05:27
マスマスティかで不等式を2DPlotで描くにはどうすればいいの？
領域の色づけがヘルプを見ても分からない。
0223１３２人目の素数さん2006/05/01(月) 10:41:08
Mathematicaでアイパターン描こうとしているのですがなかなかうまくいきません
やり方としてはNRZのランダムパルスを発生させそれを離散フーリエ変換してナイキストフィルタのリストと乗算
それを逆フーリエ変換して同一平面上にプロットすれば良いと思うのですがほかにやり方あったら教えてください

>>222
filledplot
0224１３２人目の素数さん2006/05/10(水) 12:56:10
√(sin 2x＋2cos 5x)のグラフ書くために初めてmathematica使ったんですけど、
グラフがｘ軸に接しないのはなぜでしょうか？
0225１３２人目の素数さん2006/05/10(水) 22:20:26
>>224
接するグラフではないのだろう
0226１３２人目の素数さん2006/05/11(木) 16:36:46
FindRootの結果をグラフにしたいのですが、なんかスマートな方法ないですか？

普通にFindRootすると戻り値は
{hoge -> 51.6438}
みたいな文字列になってしまってるので困ってます。
0227１３２人目の素数さん2006/05/11(木) 21:16:10
>>226
ReplaceAllを使う
x /. FindRoot[x^2 == 2, {x, 1}]
みたいな感じで
0228１３２人目の素数さん2006/05/13(土) 12:15:14
>>224
Solve[(Sin[2x] + 2 Cos[5x])^0.5 == 0, x]
の結果、実数の範囲では
{x -> -1.5707963267948966`} {x -> 1.5707963267948966`}

Plotでは限界がある計算をさせてるみたい。
0229１３２人目の素数さん2006/05/13(土) 21:21:13
次のMathematicaの情報知ってる人いますか？
4.2から5のときのReduceはすごかったけどそれに匹敵するようなグレードアップ
があるといいなあ。
0230１３２人目の素数さん2006/05/14(日) 23:33:37
二つのベクトルから行列を作る方法を教えてください。
v . w^t のような感じで、v.Transpose[w] だとできません。
0231１３２人目の素数さん2006/05/15(月) 01:30:13
>>230
Outer[Times, w, v]
0232１３２人目の素数さん2006/05/18(木) 17:30:12
x^2(x-3)(2x+3)と２点で接する半径1.5の接点を求めたいのですがどうすればよろしいですか？
0233１３２人目の素数さん2006/05/20(土) 00:31:01
このソフトの最新バージョンナンバーはいくつですか？
0234１３２人目の素数さん2006/05/20(土) 00:34:29
5.2
0235１３２人目の素数さん2006/05/22(月) 16:22:35
ある曲線に、２点で接する円を書きたい時はどうすればいいんですか？
0236１３２人目の素数さん2006/05/24(水) 19:52:20
うちの教授が

「マテマチカ」

と呼ぶアプリはこれのことでしょうか？
0237１３２人目の素数さん2006/05/25(木) 16:19:16
ループを回して計算しているその途中経過をグラフィカルに表示するにはどうすればいいですか
計算が進むにつれ折れ線グラフがにゅーんと延びていくとかできればベストです。
0238１３２人目の素数さん2006/05/25(木) 19:41:40
>>236
その発音も間違いじゃない。
0239１３２人目の素数さん2006/05/26(金) 08:58:14
本屋さんの名前と混同してるんだろう
0240１３２人目の素数さん2006/05/27(土) 06:35:34
Mathematicaは線形連立方程式を数値的にではなく
代数的に解くことはできますか？
つまり
x=a+b
y=a-b
を解いて
a=(x+y)/2
b=(x-y)/2
のような答を、a,bに具体的な値を入れなくても
返してくれるのでしょうか？
0241１３２人目の素数さん2006/05/27(土) 06:40:20
できる
0242１３２人目の素数さん2006/05/27(土) 12:10:53
そろそろ、ver6.0が出るのかな？
0243１３２人目の素数さん2006/05/29(月) 23:55:30
n==0のとき、 f[x_,n_]:=1
それ以外のとき、f[x_,n_]:=x^n
となるようにf[x_,n_]を定義したいのですが、
どうしたらいいのでしょうか？
02442432006/05/30(火) 00:03:13
ちょっと調べたら見つかった
f[x_, n_] := If[n == 0, 1, x^n]
スレ汚しｽﾏｿ
0245１３２人目の素数さん2006/05/31(水) 14:40:52
出力がリストになるような関数をコンパイルするにはどうすればよいのでしょうか。
下記のようにうまくいきません


以下失敗例

In[1]:= test[X_, Y_] := {X + Y, X - Y}
In[2]:= comp = Compile[{X, Y}, test[X, Y]]
Out[2]= CompiledFunction[{X, Y}, ttest[X, Y], "-CompiledCode-"]
In[3]:= comp[1, 2]
CompiledFunction::cfse: コンパイルされた式(3.,-1.)はmachine-size real numberであるべきです.
CompiledFunction::cfex: "式2の外部評価においてエラーが発生しました．コンパイルなしで評価を続行します．"
Out[3]={3, -1}
0246１３２人目の素数さん2006/06/06(火) 21:04:38
>>242
もう機能満載で大きな変化はないんとちゃう？　
0247１３２人目の素数さん2006/06/07(水) 21:13:56
Mapleみたいに、外観が変わるんじゃない?
0248１３２人目の素数さん2006/06/10(土) 08:40:56
mapleはだんだん教育ツール化している気がする。
mathematicaはどうだろう？
0249１３２人目の素数さん2006/06/11(日) 15:07:04
計算ツールになってる。
0250１３２人目の素数さん2006/06/15(木) 01:51:12
チュートリアルの例文そのまま
result = NDSolve[{
y''[t] + 0.1 y'[t] == -Sin[y[t]], y[0] == 1, y'[0] == 0}, y, {t, 0, 50}]
をコピペしただけなのに
NDSolve::deqnの最初の引数にはFalseではなく，方程式か方程式のリストが必要です．＼"＼>"}]＼)
とかエラーが出やがるんですがどうしてでしょうか？
0251羽村2006/06/15(木) 16:20:27
>>250
Clear[y];
して再チャレンジ
■ このスレッドは過去ログ倉庫に格納されています