1 名前:132人目の素数さん [2001/03/20(火) 02:34] ないので立てました。 Mathematicaについて語るスレです。 大学で初めて出会った時は感動したなぁ。(NeXT版…) Plot3Dでよく遊んだものです。 四次方程式の一般解を出力して、壁に貼ったりしてました(w
910 名前:837 mailto:sage [04/01/18 00:07] >>908 逆ラプラス変換についてはわからないど素人ですが、 私のmathematica4で計算させましたところ、こんなんでました。 3/2 E^((1/2 - 3I) t) (1 + E^(6I t)) >>909 だって保存しているのが同じ名前だから 二つめのWMFFileが上書きされてしまうでしょう。 受け取ったWMFFileを保存するさいの名前を別のにしましょう。
911 名前:132人目の素数さん [04/01/18 00:56] お願いがあります。 どなたかSech[at]のフーリエ変換をしてください。 FourierTransform[Sech[at], t, \[Omega]]
912 名前:837 mailto:sage おらおらおらおら [04/01/18 01:57] In[6]:= FourierTransform[Sech[t], t, ω] Out[6]= \!\(\@\(π\/2\)\ Sech[\(π\ ω\)\/2]\) In[7]:= FourierTransform[Sech[a t], t, ω] Out[7]= \!\(\(\@\(π\/2\)\ Sech[\(π\ ω\)\/\(2\ a\)]\)\/a\)
913 名前:132人目の素数さん mailto:sage [04/01/18 07:27] フーリエ変換の係数は指定できます。ヘルプ参照。
914 名前:908 mailto:sage [04/01/18 13:06] >>910 ごちゃごちゃ検算とかしてみたところ、ただのじぶんの計算ミスだった みたいです。mathematicaマンセー。 ラプラス変換を使うと微分方程式が簡単に解ける。(宿題) 1.DSolveで解く DSolve[ {4y''[t] - 4y'[t] + 37y[t] == 0, y[0] == 3, y'[0] == 3/2} , y[t] , t ] 2.InverseLaplaceTransformしてFullSimplifyしてみる InverseLaplaceTransform[ (12s - 6)/(4s^2 - 4s + 37) , s , t ] FullSimplify[%] 結果 3Exp(t/2) * Cos(3t) ってかんじで2通りの方法で検算してみますた。
915 名前:908 mailto:sage [04/01/18 13:15] (12s - 6)/(4s^2 - 4s + 37)を部分分数分解するところで A/(s−α) + B/(s−β)とやったのがまずかったみたいです。 分母の最高次の係数を1にしないとダメぽです。 1/4 * [A/(s−α) + B/(s−β)]が正しい。 部分分数分解なんて大嫌いだ〜〜 ttp://www12.plala.or.jp/ksp/formula/mathFormula/html/node60.htmlの ”三つにわかれるもの 1”が参考になりますた。インターネット、マンセー
916 名前:911 [04/01/18 14:25] >>912 感謝。
917 名前:844 mailto:sage [04/01/18 17:35] >>837 さん レスありがとうございます 保存というのはどこで行っているのでしょうか? fopen関数でメタデータが入ったtempファイルを読み出して SetWinMetaFileBitsでメタファイルを作成しているんですよね? その作成したメタファイルを保存しているのでしょうか? 自分の見たところどこでは保存しているのかちょっとわからないです・・・
918 名前:132人目の素数さん [04/01/19 12:59] コピーに厳しいMathematicaより コピーに優しいMapleだろ、やっぱ
919 名前:837 mailto:sage おらおらおらおら [04/01/20 02:09] >>917 きっとテンポラリファイルを作る関数で作ってるよ。 fopenで開いているのであれば、fopenで渡す引数が生まれたところだ。 生まれた場所へ誰もが還るのよ……。 >>918 Mapleは>>894 ,897,898の問題は解けますか。 解けるのであれば速攻移行します。またMathLinkみたいな プログラムがMapleを呼び出すインターフェイスはありますか?
920 名前:844 mailto:sage [04/01/20 21:01] >>919 さん レスありがとうございます たびたびすみません tempファイルを作る関数ってありますでしょうか? DISPLAYENDPKTが返ってきたときにtempファイルのフルパスが入ったOutputStringを取得し, それをOpenWMFFile関数のfopenにおくっていると思うのですが。 ちなみにフルパスを確認したところ,tempファイルは2つ作られていて上書きされてはいませんでした
921 名前:837 mailto:sage おらおらおらおら [04/01/21 00:19] >>920 たぶん、きちんと二つのWMFファイルをメモリ上に読みこんでいないのでは。 いちおう二つめのWMFファイルを手に入れる前に 新たにtempfileとして一つ目のファイルをコピーしてから、メモリ上に読みこんでおき、 そして二つめのWMFファイルも同じく 新たにtempfileとしてコピーしてからメモリ上に読みこんでおき、 描画メッセージが送られてきた時に表示するようにするのが言いと思います。 ピクチャボックスならHANDLEとして渡している部分がきっとあるでしょう。 そして必要なくなったらHANDLEを閉じて、読みこんだメモリを削除して、 コピーしたtempfile達も削除すると。
922 名前:132人目の素数さん mailto:sage [04/01/21 11:45] science2.2ch.net/test/read.cgi/math/1074420890/323 です。誘導されてきました。 mathematicaを使って解かなければならないのですが ------------ 番号iのつけられた壺が無限個ある。( i = 0, 1, 2, 3, ... ) 色だけが違う同じ大きさの赤玉と黒玉が無限個あり,0番目の壺にはnTotal個の玉が入っている。 その内nRed0個は赤玉である。 残りの壺の中にそれぞれnTotal個の玉を順次,次の手順で入れる。 [手順] i 番目の壺に玉を入れるときには,( i - 1 ) 番目の壺から nTotal 回玉を復元抽出し, 抽出するたびに抽出された玉と同じ色の玉を 1 個選び i 番目の壺に入れる。 試行のたびごとに確率的に定まるある番号iFixがあり,その番号iFixから先の壺の中の玉はすべて同じ色になる。 このことを色固定と呼び,最初に色固定が起こる壺の番号iFixを色固定番号と呼ぶ。 また,色固定が起こった壺の中の玉の色fixColorを固定色と呼ぶ。 固定色fixColorと色固定番号iFixはnTotalとnRed0を与えると定まる確率変数である。 その分布をmathematicaによって調べよ。(玉入れ試行を多数回行い,その結果を統計的に整理せよ。) ヒント: ・一回の玉入れ試行は,色固定が起これば,その壺で終了してよい。 ・固定色fixColorが赤である確率pRedを求めよ。 ・色固定番号iFixの平均meanIFixと分散varIFixを求めよ。 ・nTotalは10 〜 100程度を考えよ。 nRed0は0からnTotalまで変化させることができる。結果はnRed0にどのように依存するか調べよ。 ------------- ご教授よろしくお願いします。
923 名前:132人目の素数さん mailto:sage [04/01/21 18:33] どこまでわかってるの?
924 名前:132人目の素数さん mailto:sage [04/01/21 19:00] >>922 実験のフレームワークと1番目の解答まで書いてみよう。 (* GetBall : get a ball from the vase given as the args. *) GetBall[Vase[nTotal_Integer, nRed_Integer]] := If[Random[Integer, {1, nTotal}] <= nRed, Red, Black] (* Onestep : {n, n-th vase} -> {n+1, (n+1)-th vase} *) OneStep[{nth_Integer, v : Vase[nTotal_, nRed_]}] := {nth + 1, (#[v] &) /@ Table[GetBall, {i, nTotal}] // Vase[nTotal, Count[#, Red]] &} (* Trial returns {iFix, fixColor} *) Trial[nTotal_, nRed0_] := NestWhile[OneStep, {1, Vase[nTotal, nRed0]}, #[[2, 2]] != 0 && #[[2, 2]] != nTotal &] /. {Vase[nTotal, 0] -> Black, Vase[nTotal, nTotal] -> Red} (* pRed *) pRed[trys_][nTotal_, nRed0_] := Count[Table[Trial[nTotal, nRed0], {trys}], {_, Red}] / trys // N
925 名前:924 mailto:sage [04/01/21 19:07] 機能に影響は無いがちょっと修正 args -> arg {i, nTotal} -> {nTotal}
926 名前:132人目の素数さん mailto:sage [04/01/21 23:27] 正直、>>924 さんのを見て驚愕しています。 mathematicaの基本的な使い方しか授業では習っていなかったもので....。 この問題も解法の見当がつかない次第でした。 明日大学で>>924 さんのを入力してみます。ありがとうございます
927 名前:837 mailto:sage [04/01/22 14:00] 面白いなぁ。おいらには答えられない。
928 名前:844 mailto:sage [04/01/27 17:14] >>837 さん 遅レスですがどうもありがとうございました tempファイルをコピーしておいて,ピクチャボックスのプロシージャや メタファイルハンドル2つ用意してやってみたらなんとかできました また何かありましたらよろしくです^^;
929 名前:132人目の素数さん mailto:sage [04/01/27 20:42] mapleスレがないのでこちらで質問させていただきます。 mapleのワークシートの背景を変更することはできないのでしょうか。 白だと目が痛いです・・・。
930 名前:132人目の素数さん mailto:sage [04/01/27 22:43] Mathematica4で、ListPlotでx軸が0から1までの2次元の折れ線グラフを書いているのですが、 x軸とy軸の交点の部分の0を表示させたいです。 それと、x軸の数字というか、刻みが0.2刻みで、0.2,0.4,0.6,0.8,1とグラフが刻まれているのですが、 これを0,0.5,1の、0.5刻みにしたいです。 どのようなパラメータを与えれば、これらができるのでしょうか? よろしくお願いします。
931 名前:837 mailto:sage [04/01/28 00:45] >>928 ガン( ゚д゚)ガレ >>929 ヘルプファイルを熟読した後、 Mapleのスレを建ててください。 もしくは数学ソフト一般(Mathematica以外?)のスレ。 >>930 (* x の 目盛りだけを指定する *) SetOptions[ListPlot, Ticks -> {{0, 0.5, 1}, Automatic}] (* ↑だと0が表示されないので、原点を少しずらす *) SetOptions[ListPlot, AxesOrigin -> {-0.0001, -0.0001}] (* またこれでもいい *) ListPlot[{{0.0, 0.0}, {0.1, 0.5}, {0.3, 0.3}, {0.5, 0.4}, {1.0, 0.6}}, PlotJoined -> True, AxesOrigin -> {-0.0001, -0.0001}, Ticks -> {{0, 0.5, 1}, Automatic}] (* こんなOptionも発見した *) tl = ListPlot[{5, 3, 4, 6}, DisplayFunction -> Identity]; Show[tl, DisplayFunction -> $DisplayFunction];
932 名前:132人目の素数さん mailto:sage [04/01/28 01:26] 深さ優先探索 擬似コード 局所変数:g,start,edgeOrdering,adjList,checked search(v) checked[[v]]←True for each u∈N(v) do if checked[[u]] = False then Append(edgeOrdering,{v,u}) search(u) depthFirstSearch(G,start) for each vertex v∈V do checked[[v]]←False search(start) Return edgeOrdering depthFirstSearchで定義される局所変数はsearchで使用する。 そのためdepthFirstSearchはBlockとする必要がある。 隣接リストを使った方が楽である。 上記の擬似コードのMathematicaのプログラムを教えて下さいm(_ _)m
933 名前:132人目の素数さん mailto:sage [04/01/28 01:57] >>931 オオ!完璧です! あいらぶゆー
934 名前:132人目の素数さん mailto:sage [04/01/28 16:22] スミマセン、私もListPlotで点を連結して2Dの折れ線グラフを書いてるんですが、 複数のグラフを重ねてShowで表示させ、グラフ同士を比較したいのですが、 どれがどのグラフなのかがわかりにくくなってしまいます。 そこで、各グラフの右端、つまりx軸の最大値に対してPlotした点の右脇に、 グラフの番号を表示させて、グラフを重ねてもグラフ同士の区別がつくようにしたいのですが、 どうやればいいんでしょうか…。 親切な方、教えて下さいm(_)m
935 名前:132人目の素数さん mailto:sage [04/01/28 22:36] >>934 ていうか色をつければいいのでは。
936 名前:132人目の素数さん mailto:sage [04/01/28 23:02] >>935 印刷するのでカラー使えないんですよ…。 いよいよ方法がないとなったら、MSペイントか何かで直接画像に数字書き込めばいいんで そんなせっぱ詰まってもないんですけど…。
937 名前:132人目の素数さん mailto:sage [04/01/29 14:45] >>936 じゃあ、Legendをヘルプで。
938 名前:132人目の素数さん mailto:sage [04/01/29 19:22] >>870 ちなみにkeygenはネットに出回ってるよ。5.0でも使える奴が。
939 名前:132人目の素数さん mailto:sage [04/01/29 22:50] オイラー閉路の問題なんですが、 アルゴリズム 入力:オイラー閉路を持つグラフG 出力:Gのオイラー閉路 手順:任意の頂点Sから出発して、次の規則に従いたどれる辺が無くなるまで辺をたどる (1)たどった辺はGから除く (2)ほかにたどる辺が無い場合以外は橋をだどらない。 上のオイラー閉路を見つけるためのアルゴリズムを使った、アニメーションプログラムを教えて下さい!
940 名前:132人目の素数さん [04/01/31 00:14] 有限体GF(2)上の拡大体GF(2^8)の256個(0,1,α,α^2,・・・,α^254)の元 を8次元ベクトル表示した表が欲しいのですがどうすればいいか分かりません。 教えてください。よろしくお願いします。 (αは原始元,既約多項式はX^8+X^4+X^3+X^2+1です)
941 名前:837 mailto:sage [04/01/31 01:25] >>932 擬似コードってなんですか。 >>939 この辺かな mathworld.wolfram.com/EulerianCircuit.html mathworld.wolfram.com/KoenigsbergBridgeProblem.html >>940 有限体がよくわからないので、とりあえずここで検索してみてください。 mathworld.wolfram.com/ 手計算で求められるのであれば、式を書きこんでおいてください。 誰かがmathematica上のプログラムに変換してくれます。
942 名前:940 [04/01/31 02:28] >>941 アドバイス感謝します。 α^0=(0,0,0,0,0,0,0,1) α^1=(0,0,0,0,0,0,1,0) α^2=(0,0,0,0,0,1,0,0) α^3=(0,0,0,0,1,0,0,0) α^4=(0,0,0,1,0,0,0,0) α^5=(0,0,1,0,0,0,0,0) α^6=(0,1,0,0,0,0,0,0) α^7=(1,0,0,0,0,0,0,0) α^8はα^8+α^4+α^3+α^2+1=0より,α^8=α^4+α^3+α^2+1 α^8=(0,0,0,1,1,1,0,1) α^9=α^5+α^4+α^3+αより α^9=(0,0,1,1,1,0,1,0) とずっと計算していくとα^255=1 となります。こういうのmathematicaの関数で計算できないですかねえ?
943 名前:837 mailto:sage [04/01/31 19:29] α^ 8=α^4+α^3+α^2+1 =(00011101) α^ 9=α^5+α^4+α^3+α^1=(00111010) α^10=α^6+α^5+α^4+α^2=(01110100) α^11=α^7+α^6+α^5+α^3=(11101000) α^12=α^8+α^7+α^6+α^4 =α^7+α^6+2*α^4+α^3+α^2+1=(11010000)+(00011101) =(11011101) || (11001101) α^12の答えはどっちだろう。 どちらにしろビット演算の繰り返しっぽいですね。
944 名前:132人目の素数さん mailto:sage [04/02/02 11:37] アニメーションGIFについて質問です. Export["filename",graphics,"GIF"] で出力はするのですが,それをPOWER POINTに貼り付けても動いてくれません. Windows 画像とFAXビューアでも「描画できませんでした」と表示されます. Internet Explorerで開いたときはちゃんと動くのですが...(しかし,ループはしません) どうすればPOWER POINTで動くようにできるのでしょうか? ご存知の方よろしくお願いします.
945 名前:837 mailto:sage [04/02/03 00:23] >>944 animation GIFのloop flagがたっていないだけだから、 手ごろなanimation gif editorで、flagを立てた上に スレ違いなのでヘルプ読め GIF アニメーションの図をスライドに挿入する
946 名前:944 mailto:sage [04/02/03 12:37] >>837 スレ違いなのに答えてくれてありがとうございます. 今からエディターでやってみます.
947 名前:132人目の素数さん mailto:sage [04/02/05 23:23] Mathematicaって他のソフトと違ってバグフィックスのアップデータないけど バグらしいバグなんてないのかな? それはそれですごいと思うけど。
948 名前:132人目の素数さん mailto:sage [04/02/05 23:42] >>947 あるけど直さないだけ。おれも何個も見つけた。
949 名前:132人目の素数さん mailto:sage [04/02/07 16:10] >>948 へ〜 どんなのです? 再現性はありますか? 試してみたい。
950 名前:132人目の素数さん mailto:sage [04/02/08 15:07] >>940 単にAlgebra`FiniteFields`を使えばいいのでは? ヘルプ読んでみた?
951 名前:132人目の素数さん [04/02/08 15:27] >>940 << Algebra`FiniteFields` fld = GF[2, {1, 0, 1, 1, 1, 0, 0, 0, 1}] α = fld[{0, 1, 0, 0, 0, 0, 0, 0, 0}] Table[α^n, {n, 255}]
952 名前:132人目の素数さん mailto:sage [04/02/08 21:24] >>949 個人情報があれなので、俺(も発見した)が報告したわけではないやつを。 Integrate[D[f[x, y, t], x, t] + D[f[x, y, t], y, t], t] が f^(0,1,0)[x,y,t] を返す(V4.2)
953 名前:132人目の素数さん mailto:sage [04/02/09 11:33] f^(0,1,0)[x,y,t]+f^(1,0,0)[x,y,t]を返す(V3.0)
954 名前:mathematicant [04/02/09 16:10] >952 >個人情報があれなので つまり、御禁制品を使用していると・・・
955 名前:132人目の素数さん mailto:sage [04/02/09 16:24] >>954 どういうロジックでそうなるんだ? レポートしたから、おれが誰だか分かってしまうと言う意味だ。
956 名前:837 mailto:sage [04/02/10 08:10] >>950 ,951 ( ・∀・)つ〃∩ スゲェースゲェースゲェースゲェースゲェー 出てくるまでちょっと時間がかかるのと、bit列が左と右が逆なので注意。
957 名前:132人目の素数さん mailto:sage [04/02/13 18:48] >>952 へ〜 バグですね ほかのバグありますか?
958 名前:132人目の素数さん mailto:sage [04/02/14 22:38] Table[f[i], {i, 4}] −> {f[1],f[2],f[3],f[4]} ですが、 中カッコを外した形式 f[1],f[2],f[3],f[4] を得るにはどうすればいいですか?
959 名前:132人目の素数さん mailto:sage [04/02/15 01:23] >>958 Sequence@@Table[f[i], {i,4}] (* Example *) Plus[Sequence@@Table[f[i], {i,4}]]
960 名前:132人目の素数さん mailto:sage [04/02/16 20:25] うちのMathematica5.0ではこの式を評価すると確実に落ちるのだが、 バグだろうか。 7910*Csc[(4*Pi)/15]*Sqrt[((-(1 - Cos[82000/797267]^2))*Sin[(4*Pi)/15]^2 +Sqrt[(1 - Cos[82000/797267]^2)^2*Sin[(4*Pi)/15]^4 - (-1 + Cos[82000/797267]^2)*Sin[(4*Pi)/15]^2*(Cos[82000/797267]^2 - Sin[(4*Pi)/15]^2)])/(Cos[82000/797267]^2 - Sin[(4*Pi)/15]^2)]//FullSimplify
961 名前:132人目の素数さん mailto:sage [04/02/16 23:06] >>960 うちの5.0でもカーネルが落ちる。 なんでかねぇ。 フロントエンドは落ちないけど。
962 名前: ◆BhMath2chk mailto:sage [04/02/17 16:00] MuPAD使用開始から三日。
963 名前:132人目の素数さん [04/02/19 11:16] 教えてください。 Mathematica5.0を使っています。 Eigenvalueを使って固有値を計算させているのですが、結果が「#1」といった 引数を含む表現になってしまい,計算結果を利用して解析を進めることができません。 結果の中の引数を展開する方法をお教え願えないでしょうか?
964 名前:132人目の素数さん mailto:sage [04/02/21 00:36] >>963 変数でも入ってたの? 何をやったか書いてよ。
965 名前:837 mailto:sage [04/02/22 15:46] >>963 そうだそうだ。 どの式がうまくいかないのかinputの式をここに書いてくれ。 君の姿は見えないんだ。help meと聞こえてもどう助けていいかわからない。
966 名前:132人目の素数さん mailto:sage [04/02/22 17:12] >>963 ふと君がなにをいってるのか推測できた。 5次以上の行列で、固有多項式の根がRootオブジェクトになったんだろうな。 あれはRoot[関数, 引数]というもので、全体は関数じゃなくて値。 数値が欲しいならEigenvalue[A] // Nとかしとけ。
967 名前:132人目の素数さん [04/02/26 05:25] 多項式のGalois群を計算するMathematicaのパッケージってありますか? Mapleだとgalois()って関数があるんだが。
968 名前:132人目の素数さん mailto:sage [04/02/28 09:15] >>967 Ver.5のHelpを検索すると標準パッケージでついているようだが。 Galois fields, Algebra`FiniteFields` , Algebra`PolynomialPowerMod`
969 名前:132人目の素数さん [04/02/29 15:24] >>938 keygenってlinuxでも動きますか?
970 名前:132人目の素数さん [04/02/29 19:54] >Galois fields Ver.4にもある。が整式のがろあ群を出してくれるかはしらん ただの有限体じゃないの >keygen win用じゃ。linuxで動かないだろ、えみゅでも使え MathematicaのStudent版、アカデミック版、Highschool版だかは バージョンが二つ前のやつは、Math IDに対するパスワードを 発行してくれないようだな。アカ版はぢかうか 以後、自分で買うのはよして、大学のをつかうことにしよう。
971 名前:132人目の素数さん [04/02/29 20:11] >>968 Galois field(= Finite field = 有限体) ≠Galois group なんですが・・・。代数の教科書読んでね。 で、結局、Galois群を計算するパッケージってあるの? (標準のものでも誰かが自分で作ったんでもいいんだが)
972 名前:968 mailto:sage [04/02/29 20:29] >>971 すまんね、勉強不足で。 library.wolfram.com/infocenter/Articles/2872/
973 名前:132人目の素数さん [04/02/29 23:18] >>972 情報サンクス。 だけど、ざっと見たところこれは、 Mathematicaを使って特定の多項式のGalois群を頑張って計算してみました、 って感じのもの見たいね・・・ Maple (俺が持ってるのはV5R4)だと > galois(x^5 - 5*x + 12); +D5, 10, {(1 2 3 4 5), (2 5)(3 4)} こんなふうに、任意の(7次以下の)多項式のQ上のGalois群をさくっと 出してくれるんだが・・・
974 名前:132人目の素数さん mailto:sage [04/03/01 00:04] >>973 5次なら、 library.wolfram.com/infocenter/TechNotes/158/ にあるが。 MathematicaはMapleとは方向性が違うからな。 ライブラリにある機能しかつかわない人にはMapleのほうがいいだろう。
975 名前:132人目の素数さん mailto:sage [04/03/01 00:26] >>973 www.google.com/search?num=100&hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&q=%22Galois+groups%22+mathematica+package&btnG=Google+ 検索&lr=
976 名前:132人目の素数さん [04/03/01 00:41] >>975 googleで検索してもガイシュツのものしか見つからないんだが。
977 名前:132人目の素数さん mailto:sage [04/03/01 01:17] 5のアイコンより4.2のアイコンの方がよくない?
978 名前:132人目の素数さん [04/03/01 19:17] どっちでもいいから せこいコピー風呂テクと止めれ 正規ユーザがばかをみてるぞ Wolfram
979 名前:132人目の素数さん mailto:sage [04/03/01 21:16] カオス理論の本読んでたらこのソフトの作者がでてきた。 意外なつながりだ。
980 名前:132人目の素数さん mailto:sage [04/03/03 02:38] >>978 どういうこと?
981 名前:132人目の素数さん mailto:sage [04/03/06 09:51] 次スレですよ〜 〓 Mathematica 2 〓 science2.2ch.net/test/read.cgi/math/1078534285/
982 名前:132人目の素数さん mailto:sage [04/03/07 09:51] 982。
983 名前:132人目の素数さん mailto:sage [04/03/08 09:51] 983。
984 名前:132人目の素数さん mailto:sage [04/03/08 10:15] 984
985 名前:132人目の素数さん [04/03/08 11:32] age
986 名前:132人目の素数さん mailto:sage [04/03/08 15:49] Maple >>>(超えられない壁) >> Mathemetica >>> Maxima >> mupad
987 名前:132人目の素数さん mailto:sage [04/03/08 22:23] うめー
988 名前:132人目の素数さん mailto:sage [04/03/08 22:24] うめー
989 名前:132人目の素数さん mailto:sage [04/03/08 22:25] うめー
990 名前:132人目の素数さん mailto:sage [04/03/08 22:26] うめー
991 名前:132人目の素数さん mailto:sage [04/03/08 22:27] うめー
992 名前:132人目の素数さん mailto:sage [04/03/08 22:28] うめー
993 名前:132人目の素数さん mailto:sage [04/03/08 22:29] うめー
994 名前:132人目の素数さん mailto:sage [04/03/08 22:30] うめー
995 名前:132人目の素数さん mailto:sage [04/03/08 22:31] うめー
996 名前:132人目の素数さん mailto:sage [04/03/08 22:32] うめー
997 名前:132人目の素数さん mailto:sage [04/03/08 22:33] うめー
998 名前:132人目の素数さん mailto:sage [04/03/08 22:34] うめー
999 名前:132人目の素数さん mailto:sage [04/03/08 22:35] うめー
1000 名前:132人目の素数さん mailto:sage [04/03/08 22:36] うめー
1001 名前:1001 [Over 1000 Thread] このスレッドは1000を超えました。 もう書けないので、新しいスレッドを立ててくださいです。。。