- 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/
- 792 名前：１３２人目の素数さん mailto:sage [05/02/11 23:37:15 ]
- リストの関数ってのは定義可能？たとえば
Risuto2[y_,z_]: =
CoefficientList[Normal[Series[Lc[x, y, z], {x, 0, 8}]]],x]
それとも
FirstCoeff[y_,z_]: =
CoefficientList[Normal[Series[Lc[x, y, z], {x, 0, 8}]]],x][[1]]
??
- 793 名前：１３２人目の素数さん mailto:sage [05/02/12 00:12:37 ]
- >>792
リストを引数に取ることも戻り値にすることも出来る。
- 794 名前：788 mailto:sage [05/02/12 13:55:56 ]
- 吸いません・・・ すごいおちでした。
datafの定義の中の式を{}で囲んでました…
だめだもうむりぽ。
- 795 名前：１３２人目の素数さん [05/02/12 18:56:38 ]
- 複数のリストをひとつのグラフに表示したいです。
l1 = Table[x, {x, 0, Pi, 0.1}];
l2 = Table[Sin[x], {x, 0, Pi, 0.1}];
ListPlot[{l1, l2}]
↑エラー。
どうすれば表示できますか？あほですいませんお願いします。
- 796 名前：１３２人目の素数さん mailto:sage [05/02/12 21:12:41 ]
- >>795
<< Graphics`MultipleListPlot`
l1 = Table[x, {x, 0, Pi, 0.1}];
l2 = Table[Sin[x], {x, 0, Pi, 0.1}];
MultipleListPlot[{l1, l2}]
- 797 名前：796 mailto:sage [05/02/12 22:08:15 ]
- >>795
もしパッケージを使いたくなかったら以下。DisplayFunctionのヘルプの
中の例にまんま載ってるし。Mathematicaはヘルプが最高の資料だぜぃ。
l1 = Table[x, {x, 0, Pi, 0.1}];
l2 = Table[Sin[x], {x, 0, Pi, 0.1}];
p1 = ListPlot[l1, DisplayFunction -> Identity];
p2 = ListPlot[l2, DisplayFunction -> Identity];
Show[{p1, p2}, DisplayFunction -> $DisplayFunction];
- 798 名前：１３２人目の素数さん mailto:sage [05/02/13 00:28:19 ]
- >>Mathematicaはヘルプが最高の資料
同意
- 799 名前：１３２人目の素数さん [05/02/14 07:27:23 ]
- << Graphics`MultipleListPlot`
lis={1,2,3};
MultipleListPlot[lis,lis/4]
を実行すると
MultipleListPlot[{1,2,3},{1/4,1/2,3/4}]
という結果しか帰って来ません。
どうすればグラフが表示されますか。
- 800 名前：１３２人目の素数さん mailto:sage [05/02/14 07:56:30 ]
- >>799
自分の頭使えよ。ヘルプでMultipleListPlotやそれらしきものを探したか？
多分バージョンが古いんだろうな。
- 801 名前：１３２人目の素数さん [05/02/14 10:59:53 ]
- マニュアル以外に
お勧めの本は無いのでしょうか？
テンプレも無いみたいでしたが
- 802 名前：名無しさん@Vim%Chalice [05/02/14 11:42:21 ]
- >>801
プログラミングMATHEMATICA - バージョン3&4対応
www.amazon.co.jp/exec/obidos/ASIN/4894711613/qid=1108348626/sr=1-8/ref=sr_1_10_8/250-5779356-1145006
内容が言語の根幹にかかわることなので、5でも変わりない。
- 803 名前：１３２人目の素数さん [05/02/14 19:26:34 ]
- 画像をImportして、その画像に対して中心を原点、四隅に対してx軸、y軸の値を設定したいんですが、
どうしたらいいんでしょうか。
- 804 名前：１３２人目の素数さん mailto:sage [05/02/15 20:55:20 ]
- 初心者です．お教えください
フーリエ変換するときに，係数をデフォルト値と変えるために，毎回，FourieParametersを打ち込んでます．
こんなカンジ
FourierTransform[1, t, w, FourierParameters -> {1, -1}]
毎回 FourierParameters -> {1, -1} を打ち込むのが面倒なんで，どこかに記憶することはできませんか？
記憶させた後は，
FourierTransform[1, t, w]
をやれば，上と同じ結果が出てくれるとうれしいです．
- 805 名前：１３２人目の素数さん mailto:sage [05/02/15 21:36:23 ]
- >>804
できます。SetOptions。
起動時に読み込まれるファイルで設定することもできます。
- 806 名前：804 mailto:sage [05/02/15 22:27:22 ]
- SetOptionsできたー！ >>805さんくす！
おこがましいですが、起動時に読み込まれるファイルで設定する方法って
どうするか教えていただけませんか？おねがいします。
- 807 名前：１３２人目の素数さん [05/02/17 05:24:12 ]
- 1から10の間にある乱数を20個発生させて、
それらのうちで｢3以上8以下｣の範囲にある値の数を数えたいです。
前半は
Table[Random[Real, {1, 10}], {20}]
で出来たのですが、後半の数える部分が上手くいきません。
Countを使うのでしょうが、｢3以上8以下｣が設定できません・・。
どのように設定すればいいのか教えていただけませんか？
よろしくお願いします。
- 808 名前：１３２人目の素数さん [05/02/17 07:59:31 ]
- >>807
risuto2[risuto1_]:=which[n<3,0,n<8,1,true,0];
Print[sum[risuto2]];
how about this?
- 809 名前：１３２人目の素数さん mailto:sage [05/02/17 15:52:01 ]
- >>807
Countを使うなら:
Count[Table[Random[Real, {1, 10}], {20}], n_?(3 <= # <= 8 &)]
Length@Select[...]も悪くはない。
- 810 名前：１３２人目の素数さん mailto:sage [05/02/17 15:53:16 ]
- nは要らなかった。_?(...)
- 811 名前：１３２人目の素数さん mailto:sage [05/02/17 16:19:54 ]
- >>808
risutoはねぇだろ
- 812 名前：807 mailto:sage [05/02/17 17:51:15 ]
- >>808-811
ありがとうございました。809さんので無事にできました。
- 813 名前：１３２人目の素数さん mailto:sage [05/02/17 19:52:30 ]
- >>811
榊原さんの教科書風にしたわ
- 814 名前：１３２人目の素数さん mailto:sage [05/02/18 12:56:39 ]
- 軽蔑すべき輩だと思う
- 815 名前：１３２人目の素数さん [05/02/18 19:15:37 ]
- わざとだろ(w
突っ込まれるの待ってたんじゃね?
- 816 名前：１３２人目の素数さん mailto:sage [05/02/19 16:26:06 ]
- 質問なんですが
ttp://documents.wolfram.com/v5/Built-inFunctions/NumericalComputation/EquationSolving/FurtherExamples/NBMLImages/NDSolve/NDSolve_79.ja.gif
この画像の3行目の頭にある
u(1,0)[1,t]
はInputFormではどう書くのですか？
- 817 名前：１３２人目の素数さん mailto:sage [05/02/19 16:47:28 ]
- Derivative[1, 0][u][1, t]
でした。スマソorz..
- 818 名前：１３２人目の素数さん [05/02/19 20:18:09 ]
- Mathematicaからまともな表を表示する方法はありますか？
ちなみにLinkForExcelは可変長リストを返す関数に関して糞なのでダメ。
TeX系はインタラクティブじゃないのでイヤです。
- 819 名前：１３２人目の素数さん [05/02/19 21:42:06 ]
- Do[Plot…],{i,0,100}]
って感じでパラメーター変えながら100枚ほどプロットしたのですが、
それぞれのグラフのタイトルとして i=1 とかって表示させるにはどうしたらいいですか？
- 820 名前：１３２人目の素数さん mailto:sage [05/02/19 22:46:20 ]
- >>818
これじゃだめかい？だめだろうねぇ。
t = Table[Subscript[a, i, j], {i, 5}, {j, 5}];
DisplayForm[FrameBox[GridBox[t, RowLines -> True, ColumnLines -> True]]]
>>819
Table[Plot[Sin[i x], {x, 0, 2π}, PlotLabel -> "i=" <> ToString[i]], {i, 3}]
- 821 名前：１３２人目の素数さん mailto:sage [05/02/19 23:43:40 ]
- >>818
Javaで自作。
Link for Excelが標準的な解なわけだから、
> 可変長リストを返す関数に関して糞
とやらをなんとかして使うのがいいと思うが。
- 822 名前：819 mailto:sage [05/02/19 23:43:50 ]
- >>820
多謝
- 823 名前：１３２人目の素数さん mailto:sage [05/02/20 08:58:22 ]
- こんど、PC新しくするんだけど、Mathematicaには
Pentium4とAthlon64のどちらが向いていますか？
今のところ考えているのはPen4 3.4GHz(EM64T)か
Athlon64 3500+くらいのやつです。
- 824 名前：１３２人目の素数さん mailto:sage [05/02/20 11:08:39 ]
- Linuxなら64bitのMathematicaがあるよ。Windowsは知らん。
- 825 名前：818 mailto:sage [05/02/20 18:08:45 ]
- >>820-821
ありがとうございます。
とりあえずはLinkForExcel+Excel上のグチャグチャで凌ごうと思います。
- 826 名前：１３２人目の素数さん mailto:sage [05/02/21 10:41:09 ]
- >>824
なるほど64bit版ですか。今のところ32bit Windows版を考えてるんですが、安定してるなら
64bit Linux版に乗り換えたいところですね。
どなたかPen4とAthlon64の両方で使っているという方がいましたら、感想などよろしくお願いします。
- 827 名前：１３２人目の素数さん [05/02/22 12:56:28 ]
- << Statistics'Continuous Distributions'
で入れると、どうやっても
Get::noopen: Statistics'Continuousを開くことができません．
でエラー返されちゃうんですが。
バージョンは4です。
- 828 名前：１３２人目の素数さん mailto:sage [05/02/22 13:00:44 ]
- >>827
<<Statistics`ContinuousDistributions`
じゃないの？ ContinuousとDistributionsの間に空白が入るのはおかしい。
- 829 名前：827 mailto:sage [05/02/22 15:01:59 ]
- >>828
解決しました。
「'」と「`」が間違っていました。
ありがとうございました。
- 830 名前：１３２人目の素数さん mailto:sage [05/02/22 16:25:36 ]
- >>829
バックダッシュは間違えやすいよね
- 831 名前：１３２人目の素数さん mailto:sage [05/02/22 19:15:36 ]
- >>830
バッククウォートと言います。
ダッシュってのは横線。'をダッシュというのは日本の中高校数学だけ。
- 832 名前：１３２人目の素数さん mailto:sage [05/02/23 02:32:07 ]
- ちなみに'の正式名称は"prime"ね。
- 833 名前：１３２人目の素数さん [05/02/27 19:33:25 ]
- 上の方と同じような質問なのですが
<< Graphics`ImplicitPlot`
ImplicitPlot[x y - y^2 == 3, {x, -2, 2}]
と打つと
Set::"write": \
"\!\(Options[ImplicitPlot]\)のタグ\!\(ImplicitPlot\)\
はプロテクトされています．"
とでるのですが何がいけなかったでしょうか･･
- 834 名前：１３２人目の素数さん mailto:sage [05/02/27 22:21:26 ]
- >>833
俺んとこではでないぞ@Mathematica5
- 835 名前：１３２人目の素数さん mailto:sage [05/02/28 22:28:13 ]
- Mathematica link for Excel使っている人いる？
- 836 名前：１３２人目の素数さん mailto:sage [05/03/02 21:39:17 ]
- すまへん。LOG[1+a x]にフェルミ分布関数の微分をかけたような
被積分関数を０から無限大まで数値積分したい。
そのとき、Methodはどれを選ぶと早いのでしょうか？実際は
もっと複雑な被積分関数なので、まあまあのせいどで
現実的な時間に終わってほしい。台形？やっぱり？
リカーションとか分割とかナイスな設定あったら教えて。
- 837 名前：１３２人目の素数さん mailto:sage [05/03/03 05:56:09 ]
- >>835
持ってるけど使ってないぞ。
- 838 名前：１３２人目の素数さん [05/03/03 11:00:48 ]
- age
- 839 名前：１３２人目の素数さん [05/03/03 15:32:07 ]
- やっぱり計算が遅い。対数関数と指数関数の積をインテグランドに
したものはやっぱり計算が遅い。前者の対数関数を
ｘの多項式で近似し、後者をガウス関数で近似すればええのんかな？
今のところ、積分区間をゼロから無限大まで引っ張っているけど
どうせ重要な積分区間は限られているし、その狭い区間だけ
計算させるようにすれば格段に短縮されるのかな？もう本当
つらい。
- 840 名前：１３２人目の素数さん [05/03/03 16:59:32 ]
- Do[式, {i, min_i, max_i, step_i}]
→ step_i おきに i を min_i から max_i まで変えながら式を繰り返す．
てなこっちゃけど、結果を対数表示させたいので、min_i*step_i^n
ってループさせる方法は？
- 841 名前：１３２人目の素数さん mailto:sage [05/03/03 19:46:19 ]
- >>840
式をそう書いたら言いやん。
- 842 名前：１３２人目の素数さん [05/03/11 15:57:38 ]
- ＞＞376
全く下らん問題やな。数値積分にして、メソッドのところを
モンテカルロにしたら？次にインテグレートで出力結果をえる。
そして二つを比較。
- 843 名前：１３２人目の素数さん mailto:sage [05/03/12 01:59:26 ]
- >>842
230日前のレスにレスする君に脱帽。
- 844 名前：１３２人目の素数さん mailto:sage [05/03/12 15:33:27 ]
- 5.1.1のうpでーたが来たよう
- 845 名前：１３２人目の素数さん [05/03/13 07:05:41 ]
- Mathematicaってどこの数学科でも授業で使い方教えてくれるんですか？
- 846 名前：１３２人目の素数さん [05/03/18 22:57:03 ]
- 円周率の平方根は有理数だそうです。
In[1] := Limit[x - Sqrt[Pi],
x -> 19151686109235253480650512155425821931577/
10805181810206786582137323831443648757793]
Out[1] = 0
- 847 名前：１３２人目の素数さん mailto:sage [05/03/18 23:26:28 ]
- >>846
Block[
{$MaxExtraPrecision=100},
Limit[x-Sqrt[Pi], x-> 19151686109235253480650512155425821931577/
10805181810206786582137323831443648757793]
]
- 848 名前：１３２人目の素数さん mailto:sage [05/03/19 03:48:57 ]
- >>846
4.2だとそうはならんな。
- 849 名前：１３２人目の素数さん mailto:sage [05/03/19 17:04:04 ]
- 昨年卒業したので、Ｓｔｕｄｅｎｔ版からＰｒｏ版へのアップグレード
期限がもうすぐなんだけど、卒業証明書って必須なの？実家に置いてきちゃったよ・・・。
- 850 名前：１３２人目の素数さん mailto:sage [05/03/19 23:37:44 ]
- >>849
バーシティーウェーブに問い合わせしたら？
- 851 名前：１３２人目の素数さん [2005/03/24(木) 17:06:51 ]
- 保守上げ
- 852 名前：１３２人目の素数さん mailto:sage [2005/03/24(木) 22:16:56 ]
- >>849
後輩か教授に金渡して買ってもらえ。
- 853 名前：１３２人目の素数さん [2005/03/28(月) 07:56:51 ]
- interpolation function
良い感じ。
しかし
NIntegrateInterpolatingFunction 意味不明
どうやったら積分収束がはやくなるの
- 854 名前：１３２人目の素数さん [2005/03/29(火) 03:50:46 ]
- MATLAB とかMAPLEをサイトライセンスで入れていると、
MATHEMATICAのサイトライセンスの料金を高くするというような
公正な競争を阻害するライセンスの販売システムになっている。
大学ではみんなボイコットして、MAPLEに乗り換えよう。
- 855 名前：１３２人目の素数さん mailto:sage [2005/03/30(水) 22:12:03 ]
- Mathematicaが直感的に操作できて（ﾟдﾟ）ｳﾏｰ
- 856 名前：１３２人目の素数さん mailto:sage [2005/03/31(木) 01:37:06 ]
- Mathematica 高すぎ
- 857 名前：１３２人目の素数さん mailto:sage [2005/03/31(木) 14:09:32 ]
- Export[ , ,"GIF"]
が動きません。
こんなエラーが出ます。
Export::fmterr: 無効なPNM形式です
"GIF" 以外はJPEGでもBMPでも動くようです。
documents.wolfram.com/v4-ja/RefGuide/Export.html
一体なにが問題なのか分るかたお教えください。
- 858 名前：つづき mailto:sage [2005/03/31(木) 14:14:15 ]
- documents.wolfram.com/mathematica/functions/Export
ここを見ても、正しいことをしているようです。
バージョン5.1です
- 859 名前：１３２人目の素数さん [皇紀2665/04/01(金) 14:51:23 ]
- >>818
昔作った関数でこういうのがあった。
TF = TableForm[PaddedForm[#, {6, 5}] & /@ # & /@ #,
Alignments -> Right, TableSpacing -> {0, 0}] &;
Table[…]//TF
みたいな使い方をしてる。
もう忘れたから、
Mathematicaに貼り付けて
「選択項目のヘルプ」でしらべてちょ。
- 860 名前：１３２人目の素数さん [2005/04/02(土) 21:13:23 ]
- 二分木なデータ構造をMathematicaでやろうとしたらどう実装すればいいですか？
Lisp風なリスト？
- 861 名前：１３２人目の素数さん mailto:sage [2005/04/02(土) 23:30:44 ]
- Mathematica自体がLisp風な訳だが。
- 862 名前：１３２人目の素数さん [2005/04/03(日) 11:01:02 ]
- >>861
でも、リストの深いところを破壊しようとすると全部書き換える事になって遅くなりませんか？
- 863 名前：862 mailto:sage [2005/04/03(日) 11:24:11 ]
- つうかリストの破壊が基本的にできない気がしてきました。書き換えしかない。
- 864 名前：１３２人目の素数さん mailto:sage [2005/04/03(日) 12:19:28 ]
- >>862
二分木のデータを変更すると、そこに至るための上の部分の木も再生成されるが、log(n)だ。
だから、普通Schemeで二分木使う時はset!でデータ書き換えたりしないと思うのだが。
Mathematicaでは「書き換え」はシンボルに対してしかできないだろう。
一部を書き換えると全部が「コピー」または「再生成」される。
どうしても書き換えたいなら、シンボルによる二分木を作っておいて、あとでシンボルに値を
アサインするようにすればいいんじゃないか。
- 865 名前：862 mailto:sage [2005/04/03(日) 22:19:37 ]
- >>864
そうですよね、「コピー」または「再生成」しかできない。
（ちょっとこっちな言語の用語に詳しくないもんで、すいません。）
Unique[]ってのがあるみたいなんで、それでノードを乱打して繋げてみます。
ありがとうございます。
#今日リストの大コピー合戦で実装してみたら、
#Length[Flatten[リスト]] = 10000あたりでもう超ウルトラ遅い。
#ノード数は200ぐらいなのにorz
- 866 名前：１３２人目の素数さん mailto:sage [2005/04/06(水) 23:34:24 ]
- 教えてください
Simplify[Abs[a + b*I], {a ∈ Reals, b ∈ Reals}]
とすると，
Abs[a + I b]
という答えが返ってきて困っています．aもbも実数と言ってるんだから，もっと簡単になるだろ！
Sqrt[a^2 + b^2]
という解を得るには，どうしたらよいのでしょうか？
- 867 名前：１３２人目の素数さん mailto:sage [2005/04/07(木) 00:35:10 ]
- >>866
機械にとっては、次のどちらが簡単だと考える方が自然かね？
Abs[Plus[a, Times[Complex[0, 1], b]]]
Power[Plus[Power[a, 2], Power[b, 2]], Rational[1, 2]]
- 868 名前：866 mailto:sage [2005/04/07(木) 01:36:28 ]
- 自己解決しました．867さん，ご意見ありがとう
ComplexExpand[Abs[a + b*I]]
でやってくれました
- 869 名前：１３２人目の素数さん [2005/04/08(金) 13:02:41 ]
- >>868
> 自己解決
自己解凍みたいw
- 870 名前：博士 ◆OBpuRHyGa. mailto:もっちーＡＧＥ [2005/04/08(金) 14:58:47 ]
- lim f(x)=sin∫f(x)となるようなf(x)をヒルベルト空間を用いて
x→∞
求めよ。バナハ空間でもよい。
- 871 名前：１３２人目の素数さん [2005/04/08(金) 15:17:58 ]
- >>870
積分の範囲は？
- 872 名前：博士 ◆OBpuRHyGa. mailto:もっちーＡＧＥ [2005/04/08(金) 16:12:06 ]
- 0→∞
- 873 名前：１３２人目の素数さん mailto:sage [2005/04/08(金) 20:41:10 ]
- >>870
なんでヒルベルト空間なんているんだよ。
lim[n→∞]f(x)=0
∫[0,∞]f(x)dx=0
にすればいいだけじゃん。
たとえば
f[x]=(-1)^[x]/[1+x/2]
- 874 名前：873 mailto:sage [2005/04/08(金) 20:45:48 ]
- >>873
lim[n→∞]f(x)=0
↓
lim[x→∞]f(x)=0
- 875 名前：１３２人目の素数さん [2005/04/14(木) 15:41:02 ]
- >>868
MyRe[H_] :=
1/2*(ComplexExpand[H, TargetFunctions -> {Re, Im}] +
ComplexExpand[Conjugate[H], TargetFunctions -> {Re, Im}])
- 876 名前：１３２人目の素数さん [2005/04/24(日) 10:50:44 ]
- 保守のため、上昇
- 877 名前：１３２人目の素数さん [2005/04/28(木) 00:33:04 ]
- Simplify[Conjugate[a + I b], a ∈ Reals && b ∈ Reals]で
Conjugate[a + I b]となり, a-I bにならないのですがどうしてでしょう？
ちなみに、
Simplify[Conjugate[I b], a ∈ Reals && b ∈ Reals]は
-i b になるし、
Simplify[Conjugate[a+I ], a ∈ Reals && b ∈ Reals]は
-i+a になります。
- 878 名前：１３２人目の素数さん mailto:sage [2005/04/28(木) 19:14:20 ]
- >>877
Simplify[Conjugate[a + I b], a ∈ Reals && b ∈ Reals]でa - I bになるが。
@Mathematica 5.0
- 879 名前：１３２人目の素数さん [2005/04/28(木) 19:55:03 ]
- >>878
Mathematica4.0.1 mac版
では
Simplify[Conjugate[a + I b], a ∈ Reals && b ∈ Reals]は
Conjugate[a + I b]
です。878さんのはwindows版ですか？
- 880 名前：878 mailto:sage [2005/04/29(金) 19:29:24 ]
- >>879
Win版だけど、バージョンの違いだと思われ。OS変えるだけで
わざわざカーネルのソース書き換えないだろう。
- 881 名前：１３２人目の素数さん mailto:sage [2005/05/01(日) 10:16:29 ]
- Simplify[Conjugate[a + I b], a ∈ Reals && b ∈ Reals, ComplexityFunction -> LeafCount]
V4系にはConjugate[..]のほうが単純に見えるんだろう。
- 882 名前：１３２人目の素数さん [2005/05/03(火) 10:00:50 ]
- age
- 883 名前：１３２人目の素数さん [2005/05/10(火) 20:25:40 ]
- hos
- 884 名前：１３２人目の素数さん [2005/05/11(水) 19:13:01 ]
- ちょっと質問なのでが
Mathematicaを使ってアイパターンを描画させたいのですがMathematicaでできるでしょうか？
gnuplot使っていたのですがアイパターンを描けずMathematicaに移行したいと思っています
- 885 名前：１３２人目の素数さん mailto:sage [2005/05/11(水) 21:38:09 ]
- gnuplotでできなかったのは、誰にも聞かなかったからで、
Mathematicaでできたとしたら、それは誰かに教えてもらえたからでしょうね。
- 886 名前：１３２人目の素数さん [2005/05/12(木) 17:56:57 ]
- プログラム板でレスなかったのでこちらで質問させてください。
CUIで使ってるときに、1行に表示される文字数を変更する方法はありませんか？
例えば、
In[1]:= N[Pi,100]
Out[1]= 3.1415926535897932384626433832795028841971693993751058209749445923078\
> 16406286208998628034825342117068
としたときに、結果を改行せずに表示してほしいのですが。
- 887 名前：１３２人目の素数さん mailto:sage [2005/05/12(木) 18:51:26 ]
- Mathematica 5.01のMac版とSolaris版で試したのですが、
In[22]:= 1. 10^(-309) +0.0
Out[22]= 0.
上のようになるのはバグでなく機械精度の問題ですか？
また、この結果を
1. 10^(-309)
となるようにする方法ってありますか？
- 888 名前：887 mailto:sage [2005/05/12(木) 19:18:22 ]
- すいません
In[22]:= 1. 10^(-309) +0.0
Out[22]= 0.
こうなるのは、有効桁数のこと考えたら当たり前ですね。逝ってきまつ
- 889 名前：１３２人目の素数さん mailto:sage [2005/05/12(木) 21:03:13 ]
- >>886
無理
- 890 名前：１３２人目の素数さん [2005/05/15(日) 10:27:27 ]
- さっきランダムウォークの
コードを書いた。はろうか
- 891 名前：１３２人目の素数さん [2005/05/15(日) 10:57:05 ]
- 今起きたばかりで
コンドームと一瞬読めてしまった俺ｶﾞｲﾙ
- 892 名前：１３２人目の素数さん mailto:sage [2005/05/15(日) 16:55:26 ]
- 迷ってるのなら、貼れ
|
 |
