〓Mathematica〓
■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん
NGNGMathematicaについて語るスレです。
大学で初めて出会った時は感動したなぁ。(NeXT版…)
Plot3Dでよく遊んだものです。
四次方程式の一般解を出力して、壁に貼ったりしてました（ｗ
0554１３２人目の素数さん
NGNG> 目を付けた点は悪くはないのでは、とちょっと擁護
何がやりたいのかわかりにくい、バグに弱い、
一般的な状況(a^2 + aを求めるとか)では使えない…
センス悪すぎるよ。
0555１３２人目の素数さん
NGNGんですけど、どーすればいいですか？
0556１３２人目の素数さん
NGNGMathematicaのルールどおりだからバグに弱くない
おまえがセンス悪、
それとも正確ﾜﾙか
0557１３２人目の素数さん
NGNG,. '" ｀丶、
／ ` ､
,..-‐/ ...: ,ｨ ,.ｉ .∧ , ヽ.
. ,:' .l .::;',. :::;/..://:: /,':/ ', l､ .i ヽ
. ,' ..::| .::;',' :;:','フ'７フ''7/ ',.ﾄ',_|, , ',.',
,' .::::::!'''l/!:;'／ /'ﾞ / '! ﾞ;:|:､.|､| 'l
. ,'. .:::::::{ ｌ'.l/ ､_ _,. 'l/',|.';|
ｌ :::::::::::';、ヾ ￣ `‐-‐'/! ';. '
. ! :::::::::::/ `‐､ ゝ |'ﾞ |
| ::::::::／ ＼ ､＿, _.,.,_ ﾉ::: !
|::::／. _rl｀': ､_ ///;ﾄ,ﾞ;:::::./ マターリと良スレ。
.. `´ /＼＼ `i;┬:////ﾞlﾞl ヾ/ 数ヲタがうなぎを食べられますように・・・
,.:く::::::::`:､＼ 〉lﾞ:l / !.|
. ／:.:.:.:＼:.:.:.:.`:､ｿ/:.:| | |
/.:.:.:.:.:.:.:.:.:＼:.:.:.:У:.:;l /./
. /:.:.:.:.:.:.:.ｒ'´`‐,`､:/.,.:‐{ | !`:､
,'.:.:.:.:.:.:.:.:.';_,ﾟ.,ﾉ.:./,:':.:.:.:', | |`､:|
!:.:.:.:.:.:.:.:.:.:.ﾞ､:.::／:.:.:.:.:.:.ヽ, / ,!:.:`､
0558１３２人目の素数さん
NGNG0559１３２人目の素数さん
NGNG0560１３２人目の素数さん
NGNG> Mathematicaのルールどおりだからバグに弱くない
あきれますな。悪いこと言わんからもっと謙虚になれ。
プログラムくんだ経験自体無いだろ？
たとえばFindRootで解が見付からなくてそのまま式自体が
かえったらどうなる？
[[]]ってのはかなりError proneだぞ。
0561１３２人目の素数さん
NGNGtensor_a[..., Table[1+10 i,{i,0,5}], ....]
てな感じ。ポイントは添字指定で数字ではなく
リストを使うこと。
0562550
NGNG/. でも FindRoot そのままの式が返ってくると
あまりうれしくない気がするけど。。。
/. を使うと a^2+a /. みたいな純関数的使い方が出来て
見通しが良くなるのは確かに同意。
つまり /. と -> はペアで使うのが基本なのは当然だけど
Lisp 的な感覚として式の木構造を考えることが出来る [[]]も
無下に NG とするのもどうかも。。。。
あきらめ悪いっすかね
0563１３２人目の素数さん
NGNGModule[{i, j},
ans = {};
Do[
Do[
ans = Append[ans, {i, j}], {j, i + 1, 3}
], {i, 2}
]
ans
]
を実行すると
{{Null, 2 Null}, {Null, 3 Null}, {2 Null, 3 Null}}
と変なNullという文字が引っ付いてくるのですが、
どうすれば、まともな答えが戻ってくるのでしょうか？
0564１３２人目の素数さん
NGNGエラーメッセージが出て、文字がそのままかえってくる
のと、
「何も言わずに、間違った答えがかえってくる」
のでは大違いだぞ。
全ては式である、ということの一例として[[]]がつかえることを
理解していることは必要だが、無闇に使うのは否定すべきだよ。
0565１３２人目の素数さん
NGNG]
ans
->
];
ans
0566１３２人目の素数さん
NGNGおれは>>534だから一応Tableによる解決を書いておく。
このほうがすくなくとも数倍速い。
UpperInds[n_Integer] := Flatten[Table[Table[{i,j},{j, i + 1, n}],{i,n - 1}],1]
0567563
NGNGありがとうございます。解決ししました。
>>566
ありがとうございます。
じつは、「内側のループのなかで、i,jを使った条件判定をやった結果、条件
を満たした時のみ、i,jに依存する要素をansに加えていく」というのがやりたい
ことなので、ちょっとそのままでは教えていただいたやりかたは使えないよう
です。
0568１３２人目の素数さん
NGNGそれなら
UpperInd[n_Integer] := Module[
{ConvertFunc = Sin[#[[1]] + #[[2]]] &, CondFunc = EvenQ[#[[2]]] &},
ConvertFunc /@ Flatten[Table[
Select[Table[{i, j}, {j, i + 1, n}], CondFunc], {i, n - 1}], 1]]
あるいは、
Table[If[..., ..., Gomi],...]としてあとでGomiを除くとか。
綺麗なのは、
ConvertFunc /@ Select[Flatten[Table[{i,j},{i,n},{j,n}],1], CondFunc]
(CondFuncのなかで#[[1]] < #[[2]]も判定)
みたいなやつかな。
0569１３２人目の素数さん
NGNG非線形の最適化ってできるのですか？
お願いします。
0570１３２人目の素数さん
NGNGセルオ−トマトンの原理で宇宙の起源を解明しようとしてるらしい
一体どうしちゃったんだろうか
0571１３２人目の素数さん
NGNG0572１３２人目の素数さん
NGNGa[1]=1
a[n+2]=a[a+1]+a[n]
みたいな漸化式を使ってa[100]とかを求めるにはどうすればいいですか？
0573１３２人目の素数さん
NGNG0574１３２人目の素数さん
NGNGa[0] = 0;
a[1] = 1;
a[n_] := a[n - 1] + a[n - 2]
0575574
NGNG100は計算回数(2^100)が多すぎる求められんと思うぞ。
計算結果を覚えながらやれば別だが:
b[0] = 0;
b[1] = 1;
b[n_] := (b[n] = b[n - 1] + b[n - 2])
みたいに。
0576１３２人目の素数さん
NGNG早速やってみます
0577１３２人目の素数さん
NGNG0578１３２人目の素数さん
NGNGxy=-1
というとても簡単な連立方程式を解かせたいのですが、
Solve[{x + y == 1, x - y == -1}, {x, y}]
とやっても上手くいきません。どうすればよいでしょうか？
0579１３２人目の素数さん
NGNGミスったｗ
Solve[{x + y == 1, x y == -1}, {x, y}]
これでやって出来なかったです。お願いします。
0580１３２人目の素数さん
NGNGできるけど。
0581１３２人目の素数さん
NGNG0582１３２人目の素数さん
NGNG0583１３２人目の素数さん
NGNGb[1244]まではそれで出るんですけど、
b[1245]以降はHoldなんたらとか出て計算できないんですが
どうすればもっと大きい数まで表示出来るようになるでしょうか？
0584math.1st ◆M9pCfogc9g
NGNG使用メモリを増やして計算すると大きい数も表示できて、速い。
0585１３２人目の素数さん
NGNGありがとうございます。
もうひとつ質問させてください。
n≦10の時
a[n_]:=a[n-1]+2
n＞10の時
a[n_]:=a[n-1]+1
のように、範囲を指定したい時はどうすれば良いでしょうか？
0586１３２人目の素数さん
NGNGそんな問題Cでやった方が速い。2^32進数の作り方もついでに勉強。
まったく典型的「ユーザさん」だね。
あなた甲南大学とやらの学生ですか？
そういう丸投げ的利用法は、あとあとためにならないですよ。
0587585
NGNGいえ、高校生です。
0588１３２人目の素数さん
NGNG0589１３２人目の素数さん
NGNG末尾再帰にすれば良い(演習問題)。
関数型言語では、関数は全て再帰で書く。
末尾再帰に書き換えないのであれば、
$RecursionLimit=3000
などと再帰の上限階数を増やす。
末尾再帰については自分で調べろ。
>>584
くだらんレスをするな。
>>585
例えば:
a[n_] /; n <= 10 := a[n - 1] + 2
a[n_] /; n > 10 := a[n - 1] + 1
>>586
丸なげ反対はわかるが、
> のように、範囲を指定したい時はどうすれば良いでしょうか？
これは言語仕様について聞いているんだろう。
0590１３２人目の素数さん
NGNGその後 FullForm で、出てくる式の構造を暇な時に見ると
将来、ひょっとしたら役に立つ可能性があるかもしれない。
0591585
NGNGありがとうございます。
末尾再帰ってのは調べてみたんですけどよく分かりませんでした…。
n = 2000; a = 0; b = 1; While[n >= 1,
If[n ≠ 1, a = a + b; n--, Print[b]; Break[]];
If[n ≠ 1, b = a + b; n--, Print[a]; Break[]]]; If[n == 0, Print[0]]
結局上のを書いてみたんですが改良点が有ったらご指摘お願いします。
f[n_]:=a = 0; b = 1; While[n >= 1,
If[n ≠ 1, a = a + b; n--, Print[b]; Break[]];
If[n ≠ 1, b = a + b; n--, Print[a]; Break[]]]; If[n == 0, Print[0]]
あと、上のようにやってf[2000]とかやっても0とか出ちゃうんですけど、
何が間違ってるのでしょうか…。
0592１３２人目の素数さん
NGNG凄いな
さっぱりわからないんで教えていただけないでしょうか？
ワイブル分布において
平均Mean[dist] == 1と標準偏差StandardDeviation[dist] ==1/3の連立方程式を
αとβについてSolveで解こうとしたんですが、
『逆関数が使用されています．値は多価逆関数のため失われている可能性があります．』
と出て解けないんですよ。
これってどうすればいいのでしょうか？
0594１３２人目の素数さん
NGNG0595１３２人目の素数さん
NGNG解けないんじゃなくて、そのメッセージの後に代表値は出てるよな？（ｗ
0596１３２人目の素数さん
NGNGトップページ(http://www.wolfram.co.jp/)ってさ、リロードするたびに違う
種類の画像とキャッチコピーが表示されるじゃん。キャッチコピーは
「世界の計算方法」とか「数学、科学、工学、教育における革新的言語」
とか色々あるんだけど。あれの中の一つに「技術計算の未来を定義」
ってのがあったのね。それを読んだときに「未来を予測する最良の方法
は、それを発明してしまうことだ」っていうAlan C. Kayの言葉を思い出し
て、「ああそうか、数学で何か発明するってはまさしく何か定義すること
だな」と思って少し感慨を覚えたんだよ。どうでもいい話だけど。
ってか英語の方のトップページ見たらMathematica5って書いてあるじゃん！
6/23に出たのか。全く知らなかった。
0597１３２人目の素数さん
NGNGp1=Plot[Sin[x],{x,-10,10}];
というように最後にセミコロン「；」を付けてもグラフが表示されてしまうのですが
これを表示させないようにするにはどうすればよいのですか？
0598ビッグバン宇宙論は完全に間違いでした！！！！！
NGNGビッグバン宇宙論は完全に間違いだった！
科学の原則を無視した、デタラメのインチキ理論だったのだ。
そして、そのビッグバン宇宙論の世界的な浸透は
アメリカ、ユダヤ・キリスト教勢力による世界支配のための思想的な戦略なのだ！
また、ビッグバン宇宙論の思想によって戦争が起こり、
貧富の差がひらき、終末的な絶望感が世界に蔓延しているのだ。
ビッグバン宇宙論は世界の平和を揺るがす、悪の元凶となっているのだ。
ビッグバン宇宙論とは、
「宇宙は『無』からビッグバン（大爆発）によって誕生した」という理論である。
この理論は、ユダヤ・キリスト教の創造神話（神が天地を創造した）そのものである。
ビッグバン宇宙論の実態は、科学理論ではなく宗教思想なのである。
『無』は科学的に証明できるものではなく、
そして、『無からの誕生』も科学では証明できるものではないのだ。
ビッグバン宇宙論が科学の正統であるという思想を、世界中の人々に
浸透させる戦略が成功したことにより、ユダヤ・キリスト教勢力の
世界における優位性が確立されていったのだ。（２０世紀に）
そして、その思想的支配の最大の例が、アメリカやイギリスによる
イラク戦争なのだ。
ビッグバン宇宙論の浸透により、世界中に終末思想（世界の終わり）が蔓延してしまっている。
そのことにより、自己中心的、せつな的、短絡的な考え方が社会に広がっている。
科学的に間違っているビッグバン宇宙論から脱却しなければならない。
そして、宇宙は無限だということを理解しなければならない。
人間は本当の宇宙観、世界観を構築し、
新しい時代に進んでいかなければならないのだ。
ビッグバン宇宙論が世界を支配している限り、平和な世界にはならないのだ。
そのことを科学者は重く受けとめるべきである。
平和な世界を！！！！！！！！！！！！！！！！！！！！！！！
0599１３２人目の素数さん
NGNG/ ）ｧﾍ / }
／ ,ｨ ,.ﾆｨ /´ヽo‐´
／＿〈 ﾚ'´∠-‐‐- ､__ / ｌ
ﾄ<,__,＞ _ ,,,,, _ ＜/ |
（ ＼_ ､__∠-､‐､‐ヽ ､ .l ｌ /
〉／ _.ィ‐'´ヽﾄ､Alヽﾄ､ヽｌヽl |
イァ ﾉ.ｲ'"_ ;==､ ヽ ｌ L._
,ｲ | ｌ /lﾊ }Viゝ } /| ｌ:.:.ヽ
／.:L.ヽﾊ ﾄﾞ上! ﾞ‐' ﾉ ﾄ､ レ' {
〈-‐'´.-'´ >ゝ" ` _ ....、´ ´7/､ ｀ー'´ .ｲ
ヽ‐'´,-／ィヘ、 ヽ _ﾉ ,彳 ｀ｰ-‐'´ /
｀´l ﾉィﾍｨ＞､__,.. ‐'´ { l. /
l ! /〈__.L..､ﾉ __.-‐'´| ! 〈
. l ! ＞'´-､イ⌒'ｰ-‐'´ 、 /
| /＿,ィ´i l. . : : : : . . ,' ｀ｰ./
〉､: : :.l _,イ: : : : : : : : ! /
/. :! : ´ : : : : : :/ /
l: : : /
/. : _. -‐- ._ . : : : :.〈
／_,.ィ´ ｀ ｰ-､;_: : : :|
＼::ﾉ j __. -‐ ‐- エ＞
/‐ '' "__,... -‐‐ｒｰ､-､_|
／-‐ｧ' ´/ | l ヽ ` 、
.／ ／ / l ! `、 ヽ、
0600１３２人目の素数さん
NGNG0601ぼるじょあ ◆yBEncckFOU
NGNGﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
0602１３２人目の素数さん
NGNG> n = 2000; a = 0; b = 1; While[n >= 1,
> ...
論外なのでコメントできん。一冊以上Mathematicaの本を読め。
末尾再帰を用いた解答
f[n_] := f[n, 0, 1];
f[0, r1_ , r2_ ] := r1;
f[n_, r1_, r2_] := f[n - 1, r2, r1 + r2];
> f[n_]:=a = 0; b = 1; While[n >= 1,
a = 0;のセミコロンで文が切れている。
f[n_] : = a
b = 1;
と入力しているのと同じだ。
0603１３２人目の素数さん
NGNG論外ですかｗ
そうゆう本高そうで…。今度学校の図書館で詠んでみます。
ありがとうございました。
0604１３２人目の素数さん
NGNG0605１３２人目の素数さん
NGNG0606１３２人目の素数さん
NGNG日本国内向けに日本語文書作業中。
もっとも買う人がいないから強制バンドル
価格Up 中。
日本は非英語で高度な技術内容が学べ得るけど
その分仲介業者が入る余地が多くなってしまった。。。。
0607１３２人目の素数さん
NGNG起動直後にガイドが出るくらいで
見た目はそんなに変わってない。
0608１３２人目の素数さん
NGNGhttp://endou.kir.jp/marimo/link.html
0609１３２人目の素数さん
NGNGいつもすまして歩いてるあの娘が
乱れまくり！！
http://www.j-girlmovie.com/
0610１３２人目の素数さん
NGNGSolve[Sin[a°]==1/2]では求められませんでした。
0611１３２人目の素数さん
NGNG0612１３２人目の素数さん
NGNG違う。
0613１３２人目の素数さん
NGNGSolve[Sin[a Degree] == 1/2, a]
で
Solve[Sin[a] == 1/2, a]
と同じ程度に、求めることができているので、
質問者が何を求めているのかよくわからない。
Solve[Sin[a Degree] == 1/2, a] // N
ってのが欲しいのか。
0614１３２人目の素数さん
NGNGスペースが必要だったのか。ありがとう。
0615１３２人目の素数さん
NGNGそういう誤解か。
a\[Degree]はそれ自体がシンボルだから、
Solve[Sin[a\[Degree]] == 1/2, a\[Degree]]
はできるが、aは求められない。
スペース(かけ算)が見た目に嫌なら、
a\[InvisibleTimes]\[Degree]とすればよし。
0616１３２人目の素数さん
NGNGだれも書かないな。
$DisplayFunction = Identity
0617１３２人目の素数さん
NGNG正確にいきましょう。
p1 = ListPlot[Table[{i, i*Random[]}, {i, 1, 8}],
PlotStyle -> RGBColor[1, 0, 0], DisplayFunction -> Identity];
p2 = Plot[Exp[x], {x, -2, 2},
PlotStyle -> RGBColor[0, 0, 1], DisplayFunction -> Identity];
Show[{p1, p2}, DisplayFunction -> $DisplayFunction];
0618１３２人目の素数さん
NGNGそれのどこが正確なんだ？
PlotStyleなんて何の関係もないし。
# 意味がわかってないままコピペしているようにしかみえないのだが。
で、これのどこが正確でないんだ？
$DisplayFunction = Identity;
Plot[Sin[x],{x,0,1}];
# オプションの方がいい場合「も」あるがな。
0619１３２人目の素数さん
NGNG要はオプションを関数の中で指定しているかグローバルに指定しているかの違いだろ。
0620１３２人目の素数さん
NGNG違う。
$DisplayFunction は DisplayFunctionというオプションのデフォルト設定
を与えるものであって、オプションそのものではない。
オプションを設定することと、
(オプションが省略された時の)デフォルトを変更することは、厳密には別のことだ。
オプションを関数の外で設定するというのは
SetOptions[Plot, DisplayFunction -> Identity]
だ。
0621山崎 渉
NGNG│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
0622１３２人目の素数さん
NGNGx^100-1==0
を解いて、根の絶対値を調べてくれ。
１にならないから。
0623tebe
NGNG非常にエグイ授業を大学でやったよ。
Mathematicaって機能ありすぎて、僕みたいな素人
には宝の持ち腐れって感じだな
0624１３２人目の素数さん
NGNGこれだけの立派なオッパイが目の前にあったら。
淫乱女教師がフェラ、パイズリで同僚の先生を責めまくります。
挿入部のアップも豊富なのでオマンコもモロ見えですよ。
無料動画をどうぞ
http://www.exciteroom.com/
0625１３２人目の素数さん
NGNGIntegrate[1/x^2, {x, -1, 1}]
古いバージョンだと２と評価してくれるんですが
新しいバージョンだと∞になってしまいます。
Ｖｅｒ５だとどうなんでしょうか？
0626１３２人目の素数さん
NGNGはぁ？
バグってるのはあなたの頭では？
0627１３２人目の素数さん
NGNG∫(1/x^2)dx＝-1/x｜＝-1/1-(-1/(-1))＝−２
-1 -1
じゃないの？
0628１３２人目の素数さん
NGNGずれた
1 1
∫(1/x^2)dx＝-1/x｜＝-1/1-(-1/(-1))＝−２
-1 -1
じゃないの？
0629１３２人目の素数さん
NGNG1/x^2>0だから積分値は正だろ？
0630_
NGNG0631１３２人目の素数さん
NGNGｘ＝０で発散しているから∞だろ
0632１３２人目の素数さん
NGNG0633１３２人目の素数さん
NGNG否、これは確かに古いバージョンでは２ではないが−２と評価しているぞ。
いまのバージョンだと∞に修正されてはいるが。
0634supermathmania ◆ViEu89Okng
NGNGIntegrate関数は超関数積分なども一部サポートしている。
これとは関係ないが、主値積分もオプション指定でできる。
ついでに、Integrate[Exp[1/(1-x^2)],{x,-1,1}]と
NIntegrate[Exp[1/(1-x^2)],{x,-1,1}]の結果を報告していただきたい。
期待しないで待っているぞ。
0635１３２人目の素数さん
NGNG積分値が正しい間違ってるの話をしているわけではないと思われ
0636132人目の素数さん
NGNGNIntegrate[Exp[1/(1-x^2)],{x,-0.998,0.998}]=3.88057*10^103でつた。
Integrate[Exp[1/(1-x^2)],{x,-1,1}]は、答えが帰ってきません（；＿；）
mathematica 4.2 for Linux-PPC
0637１３２人目の素数さん
NGNGint(exp(1/(1-x^2)),x);
/infinity \
| ----- 2 |
| \ hypergeom([1/2, _k1], [3/2], x )|
x | ) --------------------------------|
| / GAMMA(1 + _k1) |
| ----- |
\_k1 = 0 /
0638１３２人目の素数さん
NGNGタイーホされてほしい。
0639１３２人目の素数さん
NGNG通報すれ
0640１３２人目の素数さん
NGNGそんなの超幾何関数使って元の積分を表現しただけじゃん。
0641１３２人目の素数さん
NGNGって入力して実行すると
0.11111111111111111111111111
って出て、それをクリックしてエンター押すと
0.1111111111111111111111111099999999999964597
って出るんですがどうゆう意味があるのでしょうか？かなり気になるんですが。
0642１３２人目の素数さん
NGNG0643１３２人目の素数さん
NGNGネタで言ってるのかどうか知らんが・・・
機械精度の演算がどういう仕組みで行われているかを一度考えて見れ。
0644１３２人目の素数さん
NGNG0645supermathmania ◆ViEu89Okng
NGNGNIntegrate[Exp[1/(x^2-1),{x,-1,1}]
と云おうとしたら、間違えてしまった。
これなら計算できるのかな？
0646１３２人目の素数さん
NGNGあのさ、Mathematica では小数点を付けた数値は機械精度
で計算されるとマニュアルに書いてあるから、
0.11111111111111111111111111
と書いた時点でこれは
11111111111111111111111111/100000000000000000000000000
とは全然違う値になるわけだ。だから、もし
0.11111111111111111111111110000000000000000000
とかになったら、Mathematicaは機械精度の計算を唄っておきながら
実際にはサポートされていないことになる。
この前も同じような質問があったけど、今の大学って数値計算の理論
とか教えないんだろうか。もし習ったことが無いなら、そういう技術者や
科学者にとって必要最小限のことも教えない大学なんて行く意味がないよ。
>>641や>>642、>>644が通っている大学の学長は、こういう不祥事（と
言っても良いよね）に対する記者会見を開いても良いぐらいだと思う。鶴を
燃やした事件みたいにさ。高校生だったら、まあ仕方ないけど。
いや、今日は社会人になっても、２次方程式の解を計算するルーチンで
解の公式をそのまま使うような馬鹿に遭遇したんで、イライラしてるのかも
しれん。桁落ちが起きるだろ、アホが！お前の先輩の文型出身の奴でも
ちゃんと場合わけして回避してたぞ。
0647１３２人目の素数さん
NGNG=0.443994
ですな。
0648１３２人目の素数さん
NGNGそんなもんやってる時間があったら、
純粋数学やるわいな
数学専攻ならな
0649１３２人目の素数さん
NGNG俺は高校生です。仕方ないです。
0650１３２人目の素数さん
NGNG> あのさ、Mathematica では小数点を付けた数値は機械精度
> で計算されるとマニュアルに書いてあるから、
こんなことは書いてない。
おまえの書いた
0.11111111111111111111111111
はArbitrary-Precision Numberだ。
つまり、多倍長数の内部表現が二進であるか十進であるかという実装の問題だ。
偉そうなこと書くんだったらもっと勉強しろ。
一目見たらdoubleで書けないことぐらいわかれよ。
64bit以上のCPUつかってんだったら機械精度かも知れんがどっちにしろ
嘘だしな。
0651650
NGNG# 上の馬鹿といっしょにされてはかなわん
0652１３２人目の素数さん
NGNG0653644
NGNGおいおいパターソン&ヘネシーくらい読んだことあるぜ。
0.1111111111111111111111111 != 111111111111111111111/1000000000000000000
(桁は適当ね)になっている実装がクソだと言ってるの。
機械精度なんて本来は一切要らないんだから。
そんなものこの時代のマシン特有の都合だろ？
もちろんMathematicaブックを読めば$MachinePrecisionや
N[]や12.3`なんかについてあれこれ載っている(はず)。
しかし、精度という基本的なことがらに付いてあれこれ頭を悩ませる実装および
言語体系が「クソですな。改善できそうなもんだが」というわけ。
掲示板の書き込みで憂さ晴らすのは不健康だね。
■ このスレッドは過去ログ倉庫に格納されています