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

〓 Mathematica 伍 〓

■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん2011/11/11(金) 09:02:28.82
　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.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/
〓 Mathematica 3 〓
http://science6.2ch.net/test/read.cgi/math/1121413040/
〓 Mathematica 四 〓
http://kamome.2ch.net/test/read.cgi/math/1197270001/ (鯖飛びでログ消滅)
http://mimizun.com/log/2ch/math/1197270001/
〓 Mathematica 5 〓
http://kamome.2ch.net/test/read.cgi/math/1285859504/
0039１３２人目の素数さん2011/11/18(金) 08:41:37.90
>>38
Hulinks に「ライセンス移したいんですけど」って連絡すればｵｹ。
0040１３２人目の素数さん2011/11/18(金) 14:30:08.07
電波テロ装置の戦争(始)
エンジニアと参加願います公安はサリンオウム信者の子供を40歳まで社会から隔離している
オウム信者が地方で現在も潜伏している
それは新興宗教を配下としている公安の仕事だ
発案で盗聴器を開発したら霊魂が寄って呼ぶ来た
<電波憑依>
スピリチャル全否定なら江原三輪氏、高橋佳子大川隆法氏は、幻聴で強制入院矛盾する日本宗教と精神科
<コードレス盗聴>
2004既に国民20%被害250〜700台数中国工作員3〜7000万円2005ソウルコピー2010ソウルイン医者アカギ絡む<盗聴証拠>
今年５月に日本の警視庁防課は被害者SDカード15分を保持した有る国民に出せ!!<創価幹部>
キタオカ1962年東北生は二十代で2人の女性をレイプ殺害して入信した創価本尊はこれだけで潰せる<<<韓国工作員鸛<<<創価公明党 <テロ装置>>東芝部品)>>ヤクザ<宗教<同和<<公安<<魂複<<官憲>日本終Googl検索
0041１３２人目の素数さん2011/11/18(金) 15:44:04.83
>>34
Piecewise[{{1/(Pi r^2), x^2 + y^2 <= r^2}}]

>>35
Piecewise[{{1/(4 Pi r^2), x^2 + y^2 + z^2 == r^2}}]
0042１３２人目の素数さん2011/11/18(金) 16:22:05.06
魂は幾何学


誰か(アメリカ)気づいた
ソウルコピー機器

テロ装置の再読願います
0043１３２人目の素数さん2011/11/28(月) 21:51:44.50
CUIのMathematicaScriptにパイプ等でソースを食わせることは出来ますか？

例えば、
perl hoge.pl >fuga.m
MathematicaScript -script fuga.m
とやる代わりに
perl hoge.pl | MathematicaScript
や
MathematicaScript -script <(perl hoge.pl)
とするなど。

後者を試そうとするとGet::noopen: Cannot open /dev/fd/63などと怒られてしまいます。
0044１３２人目の素数さん2011/11/28(月) 22:19:50.83
>>43
自己解決しました。
zsh使って
MathematicaScript -script =(perl hoge.pl)
でよいのですね。
0045１３２人目の素数さん2011/12/03(土) 20:26:33.16
項の取り扱いなんだけど
2(a+b)とnoteで入力した場合
mathematicaは2×(a+b)と処理しているのかな？
というかしてないと演算結果がおかしいと思う・・
2cなんかも同じで2×c
項としてはっきりさせるには(2(a+b))と入力しないと駄目なのか
0046１３２人目の素数さん2011/12/03(土) 22:10:00.25
っ
In[1]:= FullForm[2(a+b)] == FullForm[(2(a+b))]
Out[1]= True
0047１３２人目の素数さん2011/12/04(日) 00:03:59.57
式の中に Cos^2[x]+Sin^2[x] が入っている時
これを 1 にするにはどうすれば良いの
0048１３２人目の素数さん2011/12/04(日) 00:46:50.24
Simplify[Sin[x]^2 + Cos[x]^2]
0049１３２人目の素数さん2011/12/04(日) 21:49:24.01
>>46
2(a+b)という表記はmathematicaでは2*(a+b)と同義でそう処理されるようです
ですので
2(a+b)/2(c+d)と(2(a+b))/(2(c+d))はもちろん演算結果が異なります
0050１３２人目の素数さん2011/12/04(日) 21:59:18.27
1/2(c+d)と書いて1/(2(c+d))意味に使われるコンパイラ及びインタプリタには出会った事がないな
0051１３２人目の素数さん2011/12/18(日) 15:36:45.77
mathematicaってﾈｯﾄで放流されてるけどちゃんと使えるの？
0052１３２人目の素数さん2011/12/18(日) 15:49:44.96
木馬入りで良ければ
0053１３２人目の素数さん2011/12/18(日) 17:18:48.17
ウィルス入りなんて嘘だよｗ
mathematica v08なんてたくさん放流されてるから使ってみろ
何万も出すなんて馬鹿みたいだし
個人使用目的なら使っても平気だから、どんどん使えｗ
0054１３２人目の素数さん2011/12/18(日) 17:26:18.41
kegenクレ。日本語版対応のやつ。
それとバイナリ。
0055１３２人目の素数さん2011/12/18(日) 18:00:39.09
そこはｼﾞﾂﾘｷで入手するべきだろｗ
入手できない、インストールできない、設定できないなんて奴はそもそも
タダで使うなんて考えるなｗ
0056１３２人目の素数さん2011/12/18(日) 18:27:49.61
金がないなら脳みそ使え。
脳みそがないなら金払え。
金も脳みそもないなら人生諦めろ。

ってやつだわな。
0057１３２人目の素数さん2011/12/18(日) 18:45:34.03
短大高校職員向けだかは
今だけ2万5千円くらいで売ってるぞ
知り合いに買ってもらえ
0058１３２人目の素数さん2011/12/18(日) 22:07:03.38
結局ｸﾚｸﾚ厨には扱えない代物ってことだなｗｗ
無料で使いこなす奴ってどんな奴なんだ？
0059１３２人目の素数さん2011/12/19(月) 21:36:03.64
突然なんですが質問させて下さい。
あるリストに対して、一番大きい要素が一番右に来るようにrotateさせたいんですが、なにかコマンドはあるのでしょうか？
例えば{0,1,1,3,2,4,2,2,1}を{2,2,1,0,1,1,3,2,4}となるようにしたいんです。
For文使って、一つづつ確かめるということもあるのでしょうが、簡単にやりたいです。
0060１３２人目の素数さん2011/12/19(月) 21:59:08.53
>>59

こんなんでどうだろ。

rotatemaxright[lst_] := Which[
　Max[lst] == Last[lst], lst,
　True, rotatemaxright[RotateRight[lst]]];

Forでなくて再帰使ってるけど。3行で。
0061１３２人目の素数さん2011/12/19(月) 22:25:37.38
別解
{0, 1, 1, 3, 2, 4, 2, 2, 1} //
RotateRight[#, (Length[#] - Max[Position[#, Max[#]]])] &
まぁ、Maxが複数ある場合の多様性は、お題にないからパスです。
0062１３２人目の素数さん2011/12/19(月) 22:57:39.59
RotateLeft[lst,Flatten[Position[lst,Max[lst]]]]
でどう？
0063１３２人目の素数さん2011/12/19(月) 23:45:38.40
>>61

0, 1, 5, 3, 2, 4, 5, 2, 1} //
RotateRight[#, (Length[#] - Position[#, Max[#]][[1]])] &

効率はどう違うのですか？
0064１３２人目の素数さん2011/12/19(月) 23:48:06.59
>>62
Maxが複数あるときうざい
0065１３２人目の素数さん2011/12/20(火) 00:24:13.54
>>63
この場合のMaxは、効率の問題ではなく、Positionの
Max(右端)をとるという意味です。その意味でMaxを
使う必要はありません。

ただし[[1]]ですと、listに同じMaxがある場合に、
左端の(Min)が選定されます。

つまり>>63の例{0, 1, 5, 3, 2, 4, 5, 2, 1}では、
右シフトの場合に、右から3番目の5でとまるべき
ですが、それをこえて、Max左側の5まで周って、
{3, 2, 4, 5, 2, 1, 0, 1, 5}
となります。

>>Maxが複数ある場合の多様性は、お題にないから
>>パスです。

と書いたのは、この意味です。
0066１３２人目の素数さん2011/12/20(火) 00:50:29.08
おぅ>>62！
確かに左にシフトすりゃ、Positionで左からの
位置が既知じゃけん、Lengthもいらんばぃ…

じゃが、お題は右シフトじゃけん！つか、その
コードのままだと、マセがゲリピーおこすど！


、
0067１３２人目の素数さん2011/12/20(火) 01:54:27.48
>>65
了解しました。
ありがとうございます。
0068１３２人目の素数さん2011/12/20(火) 06:29:32.17
じゃ、Lastを加えて
RotateLeft[lst,Last[Flatten[Position[lst,Max[lst]]]]]
ということで
0069１３２人目の素数さん2011/12/20(火) 07:49:55.25
ラストオーダー
0070１３２人目の素数さん2011/12/20(火) 17:12:02.32
考えてみたらMathematicaでfor文て一度も使ったことがないな。
0071１３２人目の素数さん2011/12/21(水) 15:53:45.61
昨日質問したものです。ありがとうございました！
関連して質問です。
{1,4,1,1}と{1,1,4,1},そして{1,1,1,4}は回転させれば同じものなので、{1,1,1,4}に統一したいのですが、
どうすればいいでしょうか？
0072１３２人目の素数さん2011/12/21(水) 16:01:27.78
>>71
Sortしちゃいかんの？
0073１３２人目の素数さん2011/12/21(水) 16:11:18.07
それこそ、
RotateLeft[lst,Last[Flatten[Position[lst,Max[lst]]]]]
でok。

もしかしたら、{1,4,1,4,1,1}を上の式に通すと、{1,1,1,4,1,4}
回転させれば同じものになる{4,1,1,1,4,1}を通すと、{1,4,1,1,1,4}
と、異なってしまうが、どちらかに統一されるようにするにはどうすればいいか？
という疑問なのか？
0074１３２人目の素数さん2011/12/21(水) 18:17:35.46
返信ありがとうございます。
>>72
このlistだとSortでもいいんですが、{1231}と{1321}の場合は分けたいんです。

>>73
その疑問もあります。

最初から具体的に言えば、
{{1, 1, 1, 5}, {1, 1, 2, 4}, {1, 1, 3, 3}, {1, 1, 4, 2}, {1, 1, 5,
1}, {1, 2, 1, 4}, {1, 2, 2, 3}, {1, 2, 3, 2}, {1, 2, 4, 1}, {1, 3,
1, 3}, {1, 3, 2, 2}, {1, 3, 3, 1}, {1, 4, 1, 2}, {1, 4, 2, 1}, {1,
5, 1, 1}, {2, 2, 2, 2}, {2, 2, 3, 1}, {2, 3, 2, 1}}

のlistのうち、回転させて同じものは一つとしてまとめたいと考えていまして、
上手く回転したあと、Unionを適用させようと思っていたのですが、その回転をどうしたらいいのかという疑問と、
僕の知識たらずだけで、そういった回転させて同じものを出すとか検索するといったコマンドがあるのではと思って質問しました。
0075１３２人目の素数さん2011/12/21(水) 18:43:14.10
円順列の数え上げみたいな問題ですね。リストの長さが4程度なら、発想を変えて、次のような方法はどうですか？

１．counter=0、「リスト保存庫」のリセット
２．新しいリスト候補(=t0)の作成
３．２で作成したリストを一つ回転させたリスト(=t1)、２つ回転させたリスト(=t2)、
　 　３つ回転させたリスト(=t3)をつくる。（リストの長さ分だけ用意する）
４．リスト保存庫の中に、t0からt4と一致するものがないかチェック
５．４であれば、２へ
６．counterを1増やす。リスト保存庫に２で作成したリストを追加
７．２へ
0076１３２人目の素数さん2011/12/21(水) 23:17:40.45
>>74
直裁的なコマンドはあるのかな…しらんばい！
とりあえず速攻版の案です。
list要素の頭を、sublist={a,b,c,d}として、
sublist〜Join〜sublistでsublist2
{a,b,c,d,a,b,c,d}
をつくる。
後続にsublistをシフトされた{c,d,a,b}があっても、
このパターンはsublist2の中に現れる。

強引ですが、これは例えば、
sublist〜Join〜sublist /. {___,c,d,a,b,___}
-> True
で検知はできます。

マッチ部分を残して、残りを再帰で呼び出すかな。

Orderlessを拡張した、75指摘のような円順列属性
が設定できれば簡単だけどな…
0077１３２人目の素数さん2011/12/22(木) 08:11:24.74
等式をある変数に注目して変形するにはどうすれば良いでしょうか？
例えばx=(3^y)coszをz=の式にするにはどうすれば良いでしょうか
0078１３２人目の素数さん2011/12/22(木) 09:42:34.77
Reduce[x==3^y Cos[z],z]
→
z == ArcCos[x/3^y] || 3y == 0 && x == 0 && z == ArcCos[Cos[z]]
0079１３２人目の素数さん2011/12/22(木) 14:16:18.68
>>78
ありがとうございます。
0080１３２人目の素数さん2011/12/22(木) 16:41:52.81
>>74

>>60 の rotatemaxright を使って、

Union[Map[rotatemaxright, lst]]
0081１３２人目の素数さん2011/12/23(金) 09:26:23.27
もしくは >>68 を使って、

Union[Map[RotateLeft[#, Last[Flatten[Position[#, Max[#]]]]] &, lst]]
0082１３２人目の素数さん2011/12/23(金) 12:32:35.11
Series で展開した後に、たとえば Residue を計算したくて、
Residue[Series[f[z,q],{q,0,100}],{z,0}] としたいのですが、
Series で出てくるO(q^100) みたいなのが邪魔するようで、Residue を計算してくれないのですが
どうしたらいいでしょうか？
0083１３２人目の素数さん2011/12/23(金) 13:39:53.11
>>82
うちでは0って出るけどそれじゃダメなの？
0084１３２人目の素数さん2011/12/23(金) 14:40:00.47
>O(q^100) みたいなのが邪魔...
そりは、らんだうのＯだぎゃ〜
SeriesのＯはNormal使うぎゃ！
ex.
Residue[Normal[Series[1/(z + q), {q, 0, 10}]], {z, 0}]
0085１３２人目の素数さん2011/12/24(土) 00:50:28.85
x^2 + y^2 = 1 のグラフを描く方法のひとつとして

ParametricPlot[Cos[t], Sin[t], {t, 0, 2Pi}]

がありますが，媒介変数表示を使わずダイレクトに
x^2 + y^2 == 1 と関数を指定して描く方法はないでしょうか？
円のような単純な形なら媒介変数表示でも問題ないですが
複雑な関数形になるといちいち媒介変数表示に変換するのも大変なので。
0086１３２人目の素数さん2011/12/24(土) 00:54:48.46
>>85
ContourPlot で如何
0087１３２人目の素数さん2011/12/24(土) 01:14:05.69
>>86
おおベリーサンクス！
Axes->True,Frame->Falseをつけたら完璧になりました。
0088１３２人目の素数さん2011/12/24(土) 15:43:16.50
>>84
ありがとうございました！
ランダウの記号（って言うんですね）を除いてコピペしてたので、
その手間がなくなりました！！
0089１３２人目の素数さん2011/12/26(月) 03:34:34.45
モバイル環境でMathematicaを使いたいのですが、ウルトラブックで動かすのは厳しいですか？
ノートで動かす場合は相当ハイスペックじゃないとダメ？
0090１３２人目の素数さん2011/12/26(月) 07:58:26.41
pentium4推奨
0091１３２人目の素数さん2011/12/26(月) 11:06:01.65
えっpen4？ｗ
0092１３２人目の素数さん2011/12/26(月) 16:24:27.96
ファイル管理に関して、
cで言うファイルを選択するダイアログボックスを表示させることはできますか？
0093１３２人目の素数さん2011/12/26(月) 19:52:24.59
>>89
>モバイル環境でMathematicaを使いたいのですが、ウルトラブックで動かすのは厳しいですか？
>ノートで動かす場合は相当ハイスペックじゃないとダメ？

MacBookAirで使ってる
快適
0094１３２人目の素数さん2011/12/26(月) 20:29:28.89
Manipulate[
r=RandomReal[ { -1 , 1 } , { 100 , 2 } ];
Graphics[Point[r]]
,{n,1,10,1} ]
このように記述しても、nが変化しても、乱数をその都度作成しません
どのようにすればnが１増えるごとに乱数を作成するようにできますか？
0095１３２人目の素数さん2011/12/26(月) 21:24:56.99
>>94
っSeedRandom
0096１３２人目の素数さん2011/12/26(月) 21:44:50.14
>>95
ありがとうございます
0097１３２人目の素数さん2011/12/27(火) 10:46:05.17
>>93
MBAいいな
今、Mathematica Windows版使ってるから、
買い直さなきゃいけないし無理だなぁ
0098１３２人目の素数さん2011/12/27(火) 11:25:56.02
ダメ元でヒューリンクスのサポセンに聞いてみればいいんじゃね。
0099１３２人目の素数さん2011/12/27(火) 15:44:28.39
ウィンドウズ版とmac版はインストーラー同じだから
インストーラーあれば入るんじゃない？
0100１３２人目の素数さん2011/12/27(火) 18:41:35.07
>>97

OS移行はできるでしょ
0101１３２人目の素数さん2011/12/27(火) 18:47:29.71
過去に某粉飾決算で風説の流布といって叩かれた企業があるが、
フジテレビでも木村、安藤、滝川の報じた内容は、
フジテレビ自体が、フジテレビの株主にとっても
風説の流布と思われる。
どうしたら、ホリエモンと同罪の犯人を捕まえられますか？
0102１３２人目の素数さん2011/12/27(火) 23:30:47.19
>>94
Manipulate[r = RandomReal[{-1, 1}, {100, 2}];
n;
Graphics[Point[r]], {n, 1, 10, 1}]

だとできるみたいだよ、、。
nがどこか陽に入ってないと、
変更が無いと勝手に解釈するのかね？
0103972011/12/28(水) 23:18:24.26
>>98-100
ヒューリンクスじゃない代理店を通して買ったけど、前に問い合わせたときはダメだった
学生版だからかな？
0104１３２人目の素数さん2011/12/28(水) 23:34:49.29
まだ学生なら買いなおせ
三万しないだろ
0105１３２人目の素数さん2011/12/29(木) 07:59:15.81
学生だからこそ3万はキツいよな
0106１３２人目の素数さん2011/12/29(木) 10:07:53.10
「じゃ使うな
　元がいくらだと思ってるんだ」

販売元
0107１３２人目の素数さん2011/12/29(木) 10:08:36.19
このソフトって内外価格差がすごいんでしょ？

公正取引委員会に言った方がいいんじゃね？
0108１３２人目の素数さん2011/12/29(木) 10:09:38.49
並行輸入妨害だよね？
0109１３２人目の素数さん2011/12/29(木) 10:18:04.78
>>107
>このソフトって内外価格差がすごいんでしょ？

超円高だからなおさらだね。
HomeEditionなら2.29894015万円で買えるはずなのに。
0110１３２人目の素数さん2011/12/29(木) 16:13:22.71
公取委にいった？
0111１３２人目の素数さん2011/12/29(木) 21:45:08.89
結局、西欧諸国では安いけど、日本でだけ高いの？
やっぱり人種差別？
0112１３２人目の素数さん2011/12/31(土) 14:57:52.56
カンファレンスで弁当出すくらいなら価格下げてくれ
0113１３２人目の素数さん2012/01/04(水) 10:08:58.03
Mathematicaの生みの親、スティーブン・ウルフラムの才能と実力には惚れるしかけがえのないモノを感じる。
これからも全力注いでMathematicaへ魂を吹き込んでと応援したいけど、
何度も既出されているがWolfram Research社の販売体制が気に食わない。

日本へはここまで高く売りつけるし、新バージョンが出る及び購入後９０日以上経ったらサポート終了とか・・・
日本はDQNやノー天野郎が全人口に占める割合が年々多くなっていて、そんなバカが多い国には通常の価格で販売するのはゴメンだとでも言うのか。
全世界から見れば日本はまだまだ優秀な発展国だけどね。
0114１３２人目の素数さん2012/01/04(水) 10:28:02.92
日本以外にこんな差別的値段で売られているところはあるの？
0115１３２人目の素数さん2012/01/06(金) 21:34:53.85
こんな体制だから海賊版が大人気なんだね！
0116１３２人目の素数さん2012/01/06(金) 21:37:24.44
菅公法しか相手にしてないから
0117１３２人目の素数さん2012/01/07(土) 07:03:09.19
それでも大儲けしているから改善しない
0118１３２人目の素数さん2012/01/07(土) 10:48:34.65
内外価格差がひどいもんだ

英語版を個人輸入しようにも、妨害されています

問題ありますよね？
0119１３２人目の素数さん2012/01/07(土) 10:49:36.34
日本はDQNやノー天野郎が全人口に占める割合が年々多くなっていて、そんなバカが多い国には通常の価格で販売するのはゴメンだとでも言うのか。



激しく同意
0120１３２人目の素数さん2012/01/07(土) 10:59:44.65
たしかにね　１０００兆円借金があり
毎年４４兆円も赤字国債を新規に発行しているのに
消費税増税反対とか言っている国民はアホだね
１％上げても、税収は２兆５千億円増えるだけなんだからw

それに、都市に住んでいる世帯では家賃と教育費で年間２５０万円くらい
つかっておるやろ？　家賃も教育費にも消費税はかからないw
他に使う金って、２００万円くらいやろ？　これに５％かかっても
わずか１０万円やw

子供に携帯を持たせてるなら１台解約すればすむくらいやでw
その程度のことで、増税嫌だなんて言っている国民はDQNやw
0121１３２人目の素数さん2012/01/07(土) 21:09:17.23
>>119
120みたいな奴の事だね
0122１３２人目の素数さん2012/01/07(土) 21:13:51.73
>>120
一カキコいくら？
0123１３２人目の素数さん2012/01/07(土) 22:45:09.42
とっとと増税しろよ

>>121=122のようなDQNが下らんことをほざいておるからな
0124１３２人目の素数さん2012/01/07(土) 22:46:03.47
>>120 正論だ　感服した。
0125１３２人目の素数さん2012/01/07(土) 22:48:25.89
悔しいのおw
0126１３２人目の素数さん2012/01/08(日) 03:27:59.64
　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.i　 /|. /.| { i,　 i,┼┼}. }_,,）) ピキピキ。。。　
　　　!　|　 ! .,'-.{ !　!|; |`､.}ﾞ!.!　|.　 !　ヽ. Mathematicaの話題でお願いね！
　　　',　',　|Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l !　| 　 ﾞ',
　　　 ヽ､', l:!Kノ}. 　 　 f:_.)iﾞi: ﾘ !　l　ル　
　　　　 | l!iヽﾞ- '　, 　　.!__:ﾉ ﾞ ,ﾘ l ﾘ'´ 　 　　
.　　　　 ',|!!､ 　 　r‐┐ 　 ｀ ノ'. /,ｲ　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　 'i!ﾞ､ヽ､　ﾞｰ'　　_, ィ,:',:''´　　　 ＜　 馬鹿は、こうちゃんスレにかいてね！
　　　　　　ﾞ:､ｨ､jヾｰ::: 'iﾍ　.ノ',ﾘ. 　 　 　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　,､- '´　ヽ､ﾞ､　　 {　｀＞"､ 　
　　/＼＼　　　　',　　 }　　 //｀ヽ
│
0127１３２人目の素数さん2012/01/15(日) 13:00:53.52
お助け願いたい！
正四面体やその他正多面体を描きたいんですが、Show[Polyhedron[Tetrahedron]]使うと、余計な座標の為のブロックと、面の色があるじゃないですか？
もっとシンプルに、点と線だけで描きたいんですが何か良い方法はありませんか？
0128１３２人目の素数さん2012/01/15(日) 14:21:23.42
増税しようが何をしようが手遅れだよ。
この国は沈むだけ。
0129１３２人目の素数さん2012/01/15(日) 15:41:07.69
Ver8しか確認していないけど
Graphics3D[{Opacity[0.5], Glow[White], EdgeForm[Gray],PolyhedronData["Tetrahedron", "Faces"]}, Boxed -> False, Lighting -> None]
でどうよ
0130１３２人目の素数さん2012/01/15(日) 17:31:58.69
>>129　最高です！
ただ画像をEPS保存すると対辺が写らなくなるんですけど、これってどうにかなりませんか？
0131１３２人目の素数さん2012/01/15(日) 17:56:07.06
じゃあこれは？
Graphics3D[{Opacity[0], Glow[None], EdgeForm[Gray],PolyhedronData["Tetrahedron", "Faces"]}, Boxed -> False,Lighting -> None]

Opacityの値と色を透明に変えた
0132１３２人目の素数さん2012/01/16(月) 03:37:11.69
>>131完璧ですありがとうございました！
0133１３２人目の素数さん2012/01/16(月) 07:10:31.71
Mathematica 8についての情報はどこで集めたらいいでしょうか
2ちゃんの様なレベルの低い場所以外を教えて下さい
0134１３２人目の素数さん2012/01/16(月) 08:02:50.35
ヘルプが充実しているから、ヘルプの例などでver.8独自の機能を調べる
後はウルフラムのデモを眺めてやりたいことと似ている部分を抜き出す
テキストは追いついている物はないんじゃないか？
0135１３２人目の素数さん2012/01/16(月) 10:30:09.35
ツーチャンネラーの割りにはまともなレスですね
参考にします
ありがとうございました
0136１３２人目の素数さん2012/01/16(月) 19:46:57.49
>>133 >>135
なんか色々可哀相だな
将来頑張って生きていけよ
0137１３２人目の素数さん2012/01/22(日) 19:19:33.48
Alt+/でその行全体がコメントアウトされるのか…
すげー便利だ．
0138１３２人目の素数さん2012/01/22(日) 21:44:09.03
>>137
もしかしてver8？それだったら涙目
■ このスレッドは過去ログ倉庫に格納されています