〓 Mathematica 3 〓

　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.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/

阻止

>>1
算数が苦手なはずのさくらたんがMathematicaとは、これいかに？

そもそも数学板でCCさくらが通じるのか？

>>4
数ヲタにはロリコンしかいないの？ Part10
http://science3.2ch.net/test/read.cgi/math/1114124400/

>>4
「◆ わからない〜」スレを立てたのはさくらたんだって

>>1
乙

>>1
新スレおめでとうございます

　 　, 　 ＿ ﾉ）
　γ∞γ~　 ＼
　 |　 /　从从) ）
　ヽ　| |　l　 l |〃/ＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＮ＼
　 ｀从ﾊ~ ワノ∩　ハニャウェ━━━━━━━━━━━━ブ　>εε=ヽ( `Д´)ﾉ ｳﾜｧｧｧｧﾝ
　　　　　　 ⊃　.ＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＶＮ／

　 　, 　 ＿ ﾉ）
　γ∞γ~　 ＼
　 |　 /　从从) ）　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　人人人人人
　ヽ　| |　l　 l |〃　ﾆｺﾆｺ 　　　　　　　　　　　　　　　　　　　　　　　　　≪ヽ( `Д´)ﾉ　≫　ﾋﾞﾘﾋﾞﾘ
　 ｀从ﾊ~ ワノ）　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ　

　 　, 　 ＿ ﾉ）
　γ∞γ~　 ＼
　 |　 /　从从) ）
　ヽ　| |　l　 l |〃　ﾊﾆｬｰﾝ！　　　　　　　　　　　　　　　　　　　　　　　 　ヽ(・∀・ )ﾉ ﾊﾆｬｰﾝ！
　 ｀从ﾊ~ ワノ∩

　　　　　　, - '　,､､､.ヽ}},:彡‐-､ ヽ､
　　　　,. '´ 　／-‐- ｀ヽ /　　　＼　`.､
　　　,:' 　　,:'　　,　　, ,　　　　｀ ヽ ', 　 ':,　　
　　,:' 　　,:'　　,:'　 / ,' 　 i　 ､ 　 　 ',　　ﾞ:,,　
　 ,','　,' ,'　　 ,'　 /{ ,'i!　 ,',.　 ',, ',　　',　　 ',',
.　i.i　 ! i ,.　 ,'i　,',,,{.{ |!.　|,,',　 !! }'､　 !　　 i !　
　 '!', |, { l l　l'''; i　 ﾞ､ ',ﾞ､ |. ', .}|}ﾉヾ,　r‐-､ l.|　
　　! ﾞ､ヾ',',ヽ|　_......_　　 ｀ﾞ　V......_　|ﾉ!｀ヽｨl l
　　　　| iヽl　ｯ''ﾞ~~ﾞ'　 　 　 'ﾞ~~ﾞﾞ'ヾ_.,','　　,','
　　　　! ! ||', ⊂⊃　 , 　　 　 ⊂⊃.〃 　.,i
　　　　l ', ii .l 　 　　 ｰ-‐　 　 　 ノ.,' ,　,:'ﾉ
　　　　 ',.',{{ ヽ､　　　　　　　　 _　ノ,:' ,:'´
　　　　　ﾞ､',',|ヽ､ヽ､ 　　　　 , ｨ／"〃ﾘ
　　　　　　 ヾ ヽヾﾞﾞ'｀!' ー ´　|"´ノ'
　　　　　　 　｀ヽ`,｀「´´￣｀｀_, イ
　　　　　_...､--‐‐''´　　　 ____.....〉｀'‐‐--- ､


みんな、さくらの応援ありがとう！

陰関数のplotはImplicitPlot、ちぃ覚えた！

　　,:'´／/7,'　 ,' .,' ,:' 　 !　 } i　 !', ':, 　':, 　　 ﾞ:,.
　 ,' /　,'　{ｌ.　 !　{/ 　 ,ｲ　/ }| 　!|',　!. 　',　 ',　ﾞ,
　ﾊ〃　!　!|　 |　|　 ∠/ ,:'-ﾉ}　/ﾘ l ,ﾑ.　 !　 }　|!
　　ﾊヽ､ゝ!|　 ｌ　| ,:',;='ｨ'､'´ ,'.ノ ﾉ.,;lﾉ=､l .,' ,' ,' ﾉ
　　　　{ 　 l　ｌ ', |'ｦi(_ノ.} 　´ 　 　i(ノ.}ﾞ!ノ,:',:''´
　　　　 ',　 h. ', ',ﾞ､ ':ﾞﾞ_.ﾉ.　　　　　':ﾞ_ﾉ〃ン
　　　　　':, { ',', ':,':, 　 　 　 　　丶 　　,' l .}
　　　　　　ヾ ':,':, ':ヾ､._ 　 　「´/ 　 　,' | .,'　　　5.2リリースおめでとうございます！
　　　　　　　 ｀ヾ-､｀ヽ_ 　 　｀´　_,.ィﾘ.ﾉ ,'
　　　　　　　　 ﾘ';',ヾ| 　｀ ‐┬ ´　_ノノ,'/
　　　　　　　　　 ヾ,､-- ､ _ | 　 　　´ノ'
　　　　　　　　　　f ヾ､..___ ヽ､　ｰ‐''

age

Mathematicaを自宅のPCにインストールしたいんですが、どうすればいいのですか？
無料ですか？

>>13
買う。めちゃくちゃ高い。

>>14
いくらですか？

3万円程度です。（ただし、学生版）
http://www.varsitywave.co.jp/products/mathematica/html/student.html

>>16
高いなぁ・・・
バージョン更新したらもう1度払いなおさないといけないとかはないですよね？
あと、学生版じゃない奴はもっと高いんですか？
機能はそっちのほうがいいんでしょ？

>>17
学生や学校関係者でなければ、\320,706 （税込）
http://www.amazon.co.jp/exec/obidos/ASIN/B0009I9R4S/qid=1122287546/sr=1-16/ref=sr_1_0_16/249-6418441-5801104

機能などについてはWolfram Researchで調べてください。

>>18
16のリンクには機能はプロフェッショナル用と変わらないと書いてありますが、
本当に何も変わらないんですか？10倍も値段が違うのに？
学生には特別安く提供するってだけですか？

人に聞くより自分で調べてください。
http://www.wolfram.com/index.ja.html

>>19
http://www.wolfram.com/products/student/mathforstudents/qa.html#difference

>>21
処理スピード、機能は同等。

ハードコピーのMathematica Bookがついてこない。
プリントアウトすると、下に"Printed by Mathematica for Students"がつく。
学生の証明書が必要。

か。　しかし、ワレマティカって言われるくらいの代物だし（以下自粛。。

>>22

> しかし、ワレマティカって言われるくらいの代物だし（以下自粛。。

詳しく。
何がいけないんですか？

>>22
一番の違いはインストール時にMathIDが要求されること。そのため異なるＰＣにインストールするには新たにMathIDをWolfram Researchに請求する必要がある。

Pro版はMathIDは必要なく原理的には何台でもインストールできる。（もちろんライセンス上問題はあるが…）

複数台にインストールできるからといってMathematicaをMath linkを使って並列計算させようしてもPro版だと確か４台までしかLinkできなかったはず。それ以上を望むならさらに上位バージョンが必要。

検索もできないバカに優しいｽﾚでつね（ｗ

そう思う。

なんにも自分で調べないのに5万や10万を払ってソフトを買うわけがない。

すみません。質問スレから飛んできました。

「３ｘ＋１問題
まず，(1以上の)自然数 n に対して次のような関数 f(n)
f(n) = n/2 : n が偶数の場合
f(n) = 3n+1 : n が奇数の場合
を考える．
これに対し，任意の自然数 n に対して，関数 f を繰り返し適用するといつか必ず 1 になるという「予想」がある．
この予想は真か偽か… というのがこの問題である．
さて，この予想の真偽を体感すべく，上の f(n) を Mathematica で 定義し，
n=1 から n=100 程度まで予想が成り立つかどうか試してみよ．

また、fm(n) = 1 なる最小の m を K(n) と書いたとき，
K(n) がいくつになるか，n=1 から n=100 程度まで調べ，グラフにせよ．」

f(n)の定義までは出来たのですが、K(n)の定義のしかたがわかりません。
どなたかご教授をお願いします。

質問ならageなきゃ。

fmの定義くらい書いてほしいが。

f[n_]:=n/2/;EvenQ[n]
f[n_]:=3n+1/;OddQ[n]
K[n_]:=Length[NestWhileList[f,n,#!=1&]]-1
ListPlot[Table[K[n],{n,100}]];

>>28
ageなくても見てる奴は見てる。２ちゃんねるブラウザがある奴なら

> ２ちゃんねるブラウザ

それ何？

>>31
２ちゃんねるブラウザ の検索結果 約 35,200 件

mathematicaの使い方覚えるのに良い本ってどんなのがあるのでしょうか？

>>33
付属のMathematicaブックを順に読んでいくのが一番良いと思う。ただし、
プログラミングの素養がある程度あるという前提で。

{{0,0,0,0},{0,0,0,1},{0,0,1,0},{0,0,1,1},...,{1,1,1,1}}
のような配列を作りたいのですが、どうすればできますでしょうか？
よろしければヒントお願いします

BinDigits[b_]:=
Module[{s=ToString[BaseForm[b,2]]},
StringDrop[s,{Part[StringPosition[s,"\n"],1,1],-1}]]

BinDigitsN[b_,N_]:=Module[{l=Length[d=Characters[BinDigits[b]]]},
Join[Table[0,{N-l}],d]]

Table[BinDigitsN[n,4],{n,15}]

ちと改造

BinDigits[0]={0};
BinDigits[1]={1};
BinDigits[x_]:=Join[BinDigits[Quotient[x,2]],{Mod[x,2]}]

BinDigitsN[x_,n_]:=Module[{l=Length[d=BinDigits[x]]},Join[Table[0,{n-l}],d]]

Table[BinDigitsN[x,4],{x,15}]

ｽﾏｿ訂正
BinDigits[0]={};
BinDigits[x_]:=Join[BinDigits[Quotient[x,2]],{Mod[x,2]}]
でおｋだた

>>34
ありがとうございます。
mathematicaブックって洋書しか売っていないのでしょうか？
夏休みなので、学校のサーバに自宅からログインして使おうと
思っているので、ヘルプのマセマ本では使いにくいので
実際の本を手元に置いて使いたいのですが。

>>39
第4版は訳書がありますが、第5版は原書しかありません。

>>35
digits[n_] := Table[IntegerDigits[i, 2, n], {i, 0, 2^n - 1}];で
digits[4]とすれば求めるものが得られる。

>>40
ありがとうございました。
やっぱり、ないのですね。
第四版が古本屋で安く手に入らないか、さがしてみます。

http://documents.wolfram.com/v5/で読めるけどそれじゃ駄目なん?

>>43
>>39

グラフのアニメーションについて質問です。
1000x1000くらいの行列を記したファイルを連続で読み込んで、
そのグラフをアニメーションさせるにはどうしたらいいでしょうか。
配列にしてやってDoとShowで回せばいいと思うんですが、
ファイル"f1.dat", "f2.dat", "f3.dat"... とあった場合に
連続でImportさせるにはどうしたらよいのか分からないです・・・。

ファイルにチェインをつければいい

>>46
すみません、ファイルにチェインっていうのが
わからないんですがどういうことでしょうか？？

>ファイルにチェインをつければいい
俺も分からん、教えてんか。

とりあえず、
SetDirectory["データのあるディレクトリ"];
data = Map[Import, FileNames["*.dat"]];
で、できへん？
あ、でもファイル名の数字の部分をを"f01.dat"とかにせんと、順番が変なるわ。

数字の部分の桁数を揃えるって意味な。

>>48-49
> data = Map[Import, FileNames["*.dat"]];
Mapを使ってImportするとき、データは行列なんで"Table"で読み込みたいんですが
どうやって記述したらいいでしょうか。
諦めて手動でやろうと：
f01=Import["f01.dat","Table"];
f02=Import["f02.dat","Table"];
f03.....
として、ListDensityPlot[f01]、ListDensityPlot[f02]...で描いたグラフをアニメーションさせる、ってのは無理でしょうか。
何度もすみません。お願いします。

>>50
とりあえずTable[Import["f"<>ToString[i]<>".dat"],{i,3}]とすればとりあえず
{(f1.datのデータ),(f2.datのデータ),(f3.datのデータ),…}とはできる。

>>50
ファイルの拡張子がdatやったら、自動的にTable形式で読み込むとヘルプに書いとるから
特に指定する必要は無いと思うが、あえてやるんやったら
data = Map[Import[#, "Table"]&, FileNames["f*.dat"]];
て感じか。

>>51
そのやり方（・∀・）ｴｴﾅｧ!!

"Possible spelling error" って出力を抑える方法ってなかったでしょうか？
FAQ のような気がするんだけど、 みつからなかった。

>>36-38,41

遅くなりましたがありがとうございました。
大変勉強になりましたm(_ _)m

>>53
Off[General::spell];

age

この番組ピーターフランクル出てたっけ？
ときどき見てた

それはNHK教育の「マテマティカ」

これはPC用ソフトMathematica(マセマティカ)

>>57-58
ﾜﾗﾀw

複数のリストを対数軸で同じグラフにプロットしたいのですが・・・
MultipleListPlotでは対数軸は扱えないのでしょうか？？何か良い方法ないですかね。

　／⌒ヽ,　　,／⌒丶､　　　　　　　,-
　　　　　　　`,ヾ　　 ／　 　　,;;iiiiiiiiiii;､　　　＼　　　_ノｿ´
　　　　　　　　iｶ ／　　 　,;;´ 　;lllllllllllllii､　　　 ＼　ｉｶ
　　　　　　　　iｻ'　 　 　,;´　 ,;;llllllllllllllllllllii､　　　　ｆｻ
　　　　　　　　 !ｶ､._　 ,=ゞiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii!!　＿_ｆｶﾍ.
　　　　　　　/ 　`ヾｻ;三ミミミミﾐご彡彡彡ミヾｻ`´　'i､
　　　　　　 i' 　　,.＿Ξミミミミミミき彡/////ii＿　　　|
　　　　　　 |　　;ｶ≡|ヾヾヾミミミミミぶ､//巛iﾘ≡ｶi　　|
　　　 　 　 |　　iｻ　 |l lヾヾｼヾミミﾐﾐり|iｉ//三iﾘ　`ｻi　 |
　　　　 　 |　　,ｶ ,ｶll|l l lヾリﾘﾘﾘﾘ川川|爪ミミiﾘllｶ､ｶi　 |
　 　 　 　 |　　;iｻ,ｻ |l l l リﾘ川川川川|爪ミﾐiiﾘ ｻi ｻi　 |
　 　 　 　 | 　 iｶ ;ｶ, |l l ﾘﾘﾘﾘ川川川川l爪ﾐﾐilﾘ ,ｶi ｶi　　|
　　　　 　 | 　iｻ ;ｻ, |ﾘ ﾘﾘ川川川川川l爪ミﾐiﾘ ,ｻi ｻi　　|
　　　　 　 |　 iｻ ;iｶ, | ﾘ彡彡川川川川|爪ﾐﾐｉﾘ　,ｶi :ｻ、　|
　　 　　　　,i厂　ｉｻ, |彡彡彡彡ﾉ|川川|爪ﾐミﾘ　,ｻi　`ヘ､
　　　　　 ,√　　,:ｶ,　|彡彡彡彡ﾉ川川|ゞﾐﾐﾐﾘ 　,ｶi　　 `ヾ
　　　　　´　　 　;ｻ, 　|彡彡彡彡川川ﾘゞﾐミﾘ　　,ｻi
　　　　　　　　　;ｶ,　　|彡彡彡彡リﾘﾘミミミｼ　 　,ｶi
　　　　　　　 　,;ｻ,　 　|彡彡ノリリﾘﾘミミミｼ　　　 ,ｻi
　　　　　　　 ;ﾒ'´　　　　i彡ノリﾘﾘﾘリゞﾐミｼ　　　　　`ﾍ､
　　　　　　　;ﾒ　　　　　　ヾリリﾘﾘノ巛ゞシ　　　　　　 `ﾍ､
　　　　　　;ﾒ　　　　　　　　｀`十≡=十´　　　　　　　　　`ﾍ､

nyでみつけた
感謝

talk:>>62 とりあえずPlot関数とIntegrate関数とFactor関数を自作せよの刑。

Mathematica高すぎだよね

買う人が限られるからな。

入学さえすれば無料でMathematicaを使えるケースもある。

Position[{a, b, c, d, e}, a]

の出力は{{1}}となりますが，1と出力させることはできないのでしょうか？

{{Pos}}=Position[{a, b, c, d, e}, a];
Pos

とすれば一応できますがなんか見苦しいもので。。。

Position[{a, b, c, d, e}, a][[1, 1]]

複数の式を1つの関数にまとめたいのですがどうすればよいでしょうか？
f[x_,y_]:=[expr1;expr2;]としてみたのですができませんでした

>>69
「複数の式を1つの関数にまとめる」の意味がわからないが、
複数の手続きを連続して実行したいなら、

f[x_,y_] := (expr1; expr2;)

{{1},{2},{3},...,{n}}
のようなリストを
{1,2,3,...,n}
としたいのですがどうすればよいですか？
Joinを使おうとしたのですがnが大きいとすべて列挙するのが難しいので・・

よろしくお願いします

talk:>>71 Flatとかいう関数が無かった？あるいはPart関数とリストに要素を追加する関数を組み合わせるか。

talk:>>71 http://documents.wolfram.co.jp/v5/Tour/MathematicaAsAProgrammingLanguage.ja.html

ありがとうございました

基本的なことかもしれませんが・・・
x=n(n=const)
のグラフはどのように描けばよいのでしょうか？
Plot[x = 3, {x, 0, 5}]
としてみたのですがエラーが出てy=3が描画されてしまいます

ParametricPlot[{x=3,y=t},{t,0,5}]
こんな感じで、いかがでしょう?

うまいね

age

sage

age

ﾈﾀくれ

3次元で r = θ の極座標を描きたい。

>>82
SphericalPlot3D?

分散共分散行列を1発で求める関数はありますでしょうか？

CovarianceMatrix or CovarianceMatrixMLE

質問させてください
1×n行列を転置してn×1行列にしたいのですが,
Transpose[matrix]
を使ってもエラーが出てできませんでした
どうすればよいのでしょうか？

In[1]:=Transpose[{{1,2,3}}]
Out[1]={{1},{2},{3}}

>>87
ありがとうございました
参考になりました

もう1つ質問させてください
リストの正数や負数の数をカウントしたいのですがどうすればよいのでしょうか？
Count[list , _>0]やCount[list , # > 0 &]
としてみたのですがうまくいきませんでした

Count[{0, 1, -2, 3, 4, -5}, _?Positive]
Count[{0, 1, -2, 3, 4, -5}, _?(# > 0 &)]

ある計算とその結果を出力させる関数1を別の関数2から実行するとき,
一時的に関数1の出力をなくすようなことはできますか？

age

mage

agenai

今4.1を使っているのですが、5.2にバージョンアップするだけの
価値はありますか？

公式ウェブページ見て、便利そうと思わなければ特に変えなくてもいいと思う。

地味なところでは計算精度・速度の向上もあるが、100*100の行列の演算くらいの大規模計算で無い限り差が分からないと思う。

>>95
ありがとうございます。
あまり利点がなさそうなのでうｐは当分見送ることにします。

>>96
取り敢ず体験版使ってみれば？
日本語化されてるし。

>>97
使ってみました。
特に面白そうなのはなかったんですがReduceだけは便利そうですね。
Sin(x)==Cos(x)みたいなのが解けるっていうのにはちょっと惹かれました。

リストをランダムに並び替えるにはどのようにしたら良いでしょうか？
アドバイスよろしくお願いします

NormalPValueは平均0分散1のときのp値を求めることができるようですが，
任意の平均，分散の正規分布のp値を求めたいときはどうすればいいですか？

　

AxesLabelで軸のラベルを書くとy軸のラベルはy軸と直角に表示されますが，
これを回転してy軸と水平に表示させる方法はありますか？

ListPlotで、離散的な関数を図示しているのですが、
Frame-> Trueの際にTicksを有効にしたいのですが、
なにか名案があったらお教え下さい。

age

N-joy the noiZ


sR=441*4;siZe=sR*75;timeLine=Range[siZe];t=n/siZe;
a=0.41+0.59*Exp[-3*(2t-1)^2]*(Sin[Pi*((6*Abs[t-0.5])!)])^2; mL=5;mR=11;x0=0.98;
yL=Cos[mL*ArcCos[x]];fL=Compile[{x,n},Evaluate[x+a*(yL-x)]];
dL=FoldList[fL,x0,timeLine];
ListPlot[dL,PlotStyle->{RGBColor[0.05,0.2,0.85]}];
yR=Cos[mR*ArcCos[x]];fR=Compile[{x,n},Evaluate[x+a*(yR-x)]];
dR=FoldList[fR,x0,timeLine];
ListPlot[dR,PlotStyle->{RGBColor[0.85,0.2,0.1]}];
ListPlay[{dL,0.5*dR},SampleRate->sR,SampleDepth->16]

ﾜﾚﾏﾃｨｶはどこで拾えますか？（MathID とか聞いてこないやつ）

氏ね

反応するなよ

みんな市んじまえ

>>109
どうした。悩みがあるなら聞くぞ？

>>99>>100>>102>>103
に答えてくれないかな、いや、ください。

x^2 + y^2 = r^2
を
x = rcosθ
y = rsinθ
みたいに媒介変数表示に変換したいです。
上記のような単純な円だといいのですが、
任意の楕円
ax^2 + bxy + cy^2 + dx + ey = 1
とかから媒介変数に変換するにはどうしたらいいんでしょうか？
そもそもmathematicaでできますか？

>>111
　>>99
　　RandomRelist[x_List] := Block[{n = x, p}, Do[p = Random[Integer, {1, i}]; n[[{p, i}]] = n[[{i, p}]], {i, Length[x]}]; n]
　>>100
　　HypothesisTests.mを読む
　>>102
　　RotateLabel

age

ver. 3 くそ
ver. 4 本来３だったもの
ver. 4.1 バグ取り
ver. 4.2 新たなバグ付き
ver. 5 どうでもいい
ver. 5.1 バグ取り
ver. 5.2 新たなバグ付き
ver. 6.0 さらなるバグ付き

でﾜﾚﾏﾃｨｶは？

放流するか

ny使い方わからん

>>117
Student版買ったのに・・・
登録とかしなくて使えんの？

nyはいかん．矢風億がいい．

>>120
億漁ったけどイマイチだな・・・
以前なら自サイトへのリンクとかあって色んなソフト販売してる奴らが多かったから
直接聞くことができたが、今は取り締まりが厳しいのかな。
ライムやっても罠入りばっかだしな・・・。

>>117
お使いのはVersion4や4.1とか4.2でしょうか
もしそうでしたら[email protected]へご連絡いただければ
便利なつーるをおわたしします

変数の値が、0.000000000000001
だった場合に、これを 0.000000000000001　
と出力させる方法はないですか？？
それか、1*10^(-14) と出力する方法はないでしょうか。

mathematica　の出力を 他のプログラムに食わせることを考えてます。
CForm が期待してるものに近いんだけど、そのまま使えないです。いまは、、CForm の出力に、
ラッパーかませてます。おしえてくださいませ。

5.1の日本語が使える鍵genはまだぁ〜

>>123
0.000000000000001 だったら

fooForm[n_] := NumberForm[n, ExponentFunction -> (Null &)]

1*10^(-14) なら

barForm[n_] := NumberForm[n,
NumberFormat -> (SequenceForm[#1, "*", #2, "^", #3] &),
ExponentFunction -> Identity
]

>>124
汗水垂らして働いて買えよ。

鼻水垂らして割れ物あさってまつ

NDsolveで得られた補完関数ってどうやって微分するのでしょうか？

D

http://www.pcsoftoff.com/2bu.htm
Mathematica5.1大安売り

>>130
IPアドレス 219.101.229.147
ホスト名 www.pcsoftoff.com
IPアドレス
　割当国　※ 日本 (JP)

国内IPか。へぇ。

>>130
ACCSに通報しますた。

日本語も使えるのかな？
多分使えないモノだなwww

>>130
高杉。

>130
　日本語も使えます。64ビットのOSなんか使用している人は、いるんですかね。

日本語使えるって、英語版に入力できるだけでしょ
メニューやヘルプは英語
日本語版の管理は厳重
Mathematica万歳

まてまてかっていくらくらいで買えるの？

>>137
ttp://www.amazon.co.jp/exec/obidos/ASIN/B000B6GGC4/

全然わからないのですいませんが質問させてくださいm(_ _)m

p1(r,z)=∫exp[(j*k*r'^2)/2*(1/z-1/D)]*J0((k*r*r')/z)*r'dr'

先生にこの式を鳥瞰図にしてくれって頼まれたのですが
もうずっとわからんままで、先生に聞いても教えてくれんのです(ﾉД`)

j=虚数、k=1500π、D=45,J0=0次ベッセル関数,r=0〜20,z=20〜60
積分は定積分で、範囲は0〜17です。
あ、ソフトはMathcadとMuPADとMathematica5.1とかいろいろためしてます
Mathematica5.1は英語であんまよくわからんのですけどね(´･ω･｀)
どなたかわかる方いたら助けてください（ノ＿・。）

すいませんなんとかできたっぽいです（；´Д｀）

>>140
BesselJ出すのに時間かかったんじゃね？
後学の為にMathematicaの式コピペして

age

>>130
高杉て話にナラナイ。そんな値段なら学割で正規品を買った方がマシかな。

世紀版の方が高いだろ

読み込みんだビットマップ画像のサイズを縮小することはできるでしょうか？
50×50ピクセル　->　25×25ピクセルのようにしたいのですが。。。

画像ソフトでやれ

文字式で
(sqrt{A*B} + sqrt{A*C}) / A
みたいなやつを、分母分子を√Aで割って
(sqrt{B} + sqrt{C}) / sqrt{A}
に変形して表示したい場合はどうすればいいんでしょう？

SimplifyもFullSimplifyも無視されてしまいます、、、

>>147
できたよ
\!\(f = \(\@\(A\ B\) + \@\(A\ C\)\)\/A\)
\!\(PowerExpand[f] /. {\@A -> A\/\@A} // FullSimplify\)
こういう時は新しいRule［→］を作ってやるとうまくいく

ごめん･･･PowerExpand[(sqrt{A*B} + sqrt{A*C}) / A] // Simplifyでも逝けるじゃん･･･吊ってくる　orz

>>148=149 (ですよね？)

御蔭様で、どちらの方法でも完璧にできましたです。
即レスありがとうございました！

age

われまてぃか
万歳

どなたか
http://science4.2ch.net/test/read.cgi/math/1133617862/441
の計算をよろしくお願いします
無知識の者が免許の学科試験に合格する確率です

ttp://www.uploda.org/file/uporg256633.jpg
これでおｋか？つーか海外にはガウス記号って言葉無いんだな('A`)ハジメテシッタ
ttp://blog.livedoor.jp/calc/archives/717594.html

>>154
mathematicaでのガウス関数と等価なのはFloorだよ（床関数）
それでやったらすんなりいくと思われ
再うｐキボンヌ

>>155
ドモ(・ω・)ノ
うちの研究室じゃガウス記号なんて絶対使わないから初めて知ったよｗ
ttp://www.uploda.org/file/uporg257191.jpg

＞無知識の者が免許の学科試験に合格する確率です
絶対受かんないなｗソース希望

ファイルにカンマ区切りで数字を書き出す際、
　 　 　 -6
0.1,1.3 10
みたいになるのをふせぐにはどうしたらいいですか？
0.1,1.3E-6
と扱いやすい形で保存したいです。

>>156
どうもありがとう(・ω・)ノ
確かに絶対受からないねｗ
-19乗オーダーなんて物理とかでしかみたことねーや（電気素量は確かこれぐらいのオーダーだったような）

ソースは441のすぐ上だよ
http://science4.2ch.net/test/read.cgi/math/1133617862/412n-

ListPlotでプロットした際、OlotJoinedをTrueにすると各点が自動的に結ばれますが、
任意の2点を結ぶことはできるのでしょうか？
例えば、
{{x1,y1},{x2,y2},{x3,y3},{x4,y4}}
をプロットしたときに
{x1,y1}と{x2,y2}を、また{x3,y3}と{x4,y4}を結んで
{x2,y2}と{x3,y3}の間は結ばれていない
・・・というのは無理でしょうか？

talk:>>159 線分を描く関数があった気がするから、探してみよう。

>>160
ParametricPlotを使って書くことができました
ありがとうございました

またまた失礼します
x軸にはx1,x2に，y軸には自動で破線の目盛線を入れようと思い、ヘルプの通り

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

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

どうすればよいのでしょうか？
よろしくお願いします

がんがれ!

NDSolveで微分方程式を解くとき、独立変数の区間を指定して解きますが、
従属変数の区間を設定する（もしくはある値を超えたら計算終了とか）
ことは出来ますか？（無限ループになる可能性もあるわけですが...）

気合いでできる
Mathematicaに不可能はない!

【かっこ悪い】建部崩れ、見参！【情けないｗ】
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

884

例えばx^2+y^2<=1の面積を出したいときy=f(x)の形にせずに出すことって
できますか？
x^3+y^3<=3xyとかx^2+y^2+sinx+siny<=1のようなy=f(x)にしずらいような
図形の面積とか出してみたいんですけど。

>>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の場合、ちゃんと計算して
くれない時がある。それから、定義域はある程度自分で面倒を見ないと
いけない。

Integrate[Boole[x^2+y^2+z^2+Sin[4x]+Sin[4y]+Sin[4z]<=1],{x,-∞,∞},{y,-∞,∞},
{z,-∞,∞}]
これをやったら結果は0になった・・・。どうみても体積があるようにみえるんだが・・・。

ある関数を定義して，その実行中になんらかのエラーが発生した場合
処理を途中で止めたいのですがどうすればよいでしょうか？
エラーが発生した場合の戻り値かなにかがあればIfとBreakまたはAbortでできそうなのですが。。。

質問なんですが

x^4=e^x
これの三つの実数解を示すにはどうすればよいのでしょうか
グラフでも数値でもいいので
よろしくお願いします

(・ω・)っ[NSolve]

>>173
ありがとうございます
難しそうですががんばってみます

４０万近くするのではとても買う気がしない。
それだけ金が有れば液晶テレビ「アクオス」３７Ｖ買うよ。
大学生協で偽って安く入手しても、キーを貰うための手続きで
身元を調べられるし、

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

区間[0,W](0<W<1)のデータを区間[0,1]に規格化してPlotしたいんだけど、
どうやってPlotすれば良いですか。

ｆ(ｘ)を−1＜ｘ＜1の範囲内で、sin(nπｘ）及びcos(nπｘ)を用いて級数展開しなさい。
(n=1,2,3,4,5)という問題です。
これはそれぞれフーリエ正弦級数展開、余弦級数展開せよということなのでしょうか。
前者はFourierTrigSeries[f(x),x,5]、
後者はFourierCosSeries[f(x),x,5]で良いのでしょうか。
正弦はTrigで出るらしいのですが余弦は適当なコマンドが見つからなかったので
Cosをつければ出るのかと思って自分で勝手に作ったのですが・・
ｎが５まで＝５次まで展開という意味なのでしょうか。
教えてくださいですいません。よろしくお願いします。

また展開した関数のグラフを元の関数と同じグラフ上にプロットする方法も
御教示いただけるとありがたいです。

うむ、がんばりなさい

数値を任意の桁で四捨五入するにはどうしたらよいでしょうか？
たとえば
Sqrt[0.8]=0.894427
を四捨五入して0.894としたいのですが、
N[Sqrt[0.8],3]としてもできませんでした

(・ω・)っ[SetAccuracy]

>>180
無事できました
ありがとうございましたm(_ _)m

mxnの行列がi個並んだ行列のなかから、それぞれの最大値の行列mxnを取り出すにはどうしたらよいでしょうか？
たとえば{{{1, 2, 1}, {2, 3, 1}},{{3, 0, 1}, {2, 1, 5}}} -> {{3, 2, 1}, {2, 3, 5}}のような。
UnionとかMaxでなんとかなるような気がするのですが。

>>182
こんな感じ？
MapThread[Max, {{{1, 2, 1}, {2, 3, 1}}, {{3, 0, 1}, {2, 1, 5}}}, 2]

>>175
お宅はヴァカ？
鍵genが出回っていること知らないの？
この鍵genで生成されるpassだと英語しか使えないけど、普通は不自由しないよ。

>> 183
ありがとうございます。行列をこねくりまさなきゃいけないかと覚悟してましたが、助かりました。

>>184
ありがとうございました。
通報させていただきました。

一辺がaの正四面体OABCがあります。
OA,OB,OC上に点P,Q,Rをとったところ、
四面体OPQRの体積が四面体ＯＡＢＣの1/3になりました。
このような三角形PQRの周および内部が通過する領域の体積を求めてください。

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

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

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

どのようにしたら良いか分かるかたがいらっしゃいましたら、教えていただけると幸いです。

5.2になりました

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で解けるらしいのですが

アップグレードの料金が高すぎると思う。
MATHEMATICAもMAPLEもなんでこんなに高い値段で売るのだろうか？
そのような高い値段のソフトを学校はサイトライセンスだと安く買える
とかいう理由なのか導入して、それで教育したり教材を作るが、
それは結局価格の高いソフトの広告宣伝塔として学校がソフト会社の
戦略の一翼を担っていることに他ならない。そういうところでほぼ
人生の一時期にでも強制して使用させることで、依存性と習慣性を
高めて、一生ライセンス料とアップグレード料金を吸い上げ続ける
為のイニシエーションの機関となっているのも同然だ。
マイクロソフトのOSやワープロ、表計算、プレゼンテーションツール
に関しても同様だ。学校はそのような外国製のソフトで高額のものに
学生をはめ込み、海外の企業に利益を吸い上げさせる構造を支援している。
　かつてイギリスがインドを植民地として、繊維製品を作ることを禁じ、
イギリス製の綿製品を買わせたり、紅茶に入れる砂糖に重税を課して
いたように。官公庁や特に学校が海外製品でブラックボックスのものを
使うことをほぼ強要するのは、自国民を植民地化させ、自国のソフト産業
を壊滅させるために作業しているようなものである。

フリーのソフトつくって下さい。

つmupad,maxima,risa/asir

質問です。以下のような簡単な定積分の計算をさせたところ、
ものすごい長い、わけわかんない答えが出ました。
何ででしょうか？
Integrate[(beta*t + c)^(1/h), {t, i, j}]

>>193
Assumptionsを使って条件を限定すれば、それなりに短い答えが
返される。

質問です。MathematicaをインストールしていないPCに
Mathematicaからの文字をワードなどにコピペしたものを表示させたいのですが
あいにくフォントがなく文字化けします。
以前はマサチューセッツ工科大学のどこかにフォントリンクが張ってあったようですが
見つけれず…　フォントのありかをご存知の方いますか？

>>195
WRIのサイトからMathReaderをダウンロードして
インストールしてみてはいかがでしょう
画面表示用のFontが入っていたと思います

ただ、MicrosoftWord上で表示できるにしても
うまく文字間隔や１などを再現できるかは
わかりません

wordに貼り付けるときに図で貼ってみれば？

LinuxのPCにインストールした。そのマシン名を仮にPC1としよう。
自宅のLinuxマシン（そのマシン名を仮にPC2としよう）から
SSHでPC1にログインしてPC2上のX画面でそのGUI版のMathematicaをPC1
で起動してやると、PC1上のXの画面上に、Mathematica用のフォントが
ありませんとかいうようなメッセージが出て、数式の表示もおかしいし
いろいろとまともに表示されない。これはどうしたら回避できるのだろうか？
Linuxは両方のマシンで同じFedora Core for AMD64 だ。

FAQだな．PC2にフォントをインストールしろ．

age

>>198
フォントサーバでいけるのでは？

>>190
フリーですが、何か？

>>198
両方にｲﾝｽﾄ。　コレ最強。　鍵gen使えば何台でも桶。

インテルマック版来たね。
人柱よろ。

しこ

mathematica で、XYデータセット（非対称）
における分散（半値全幅でもいい）とか求めたい
のですが、descriptive statisticsをつかえば
良いのはわかります。
具体にどうしたらいいのでしょうか？

亀の動いたあとが、樹のフラクタル図形になるような、亀の始めの動きｔと
置き換えルール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]])
が、前の問題で定義されています。

320

質問なのですが、

y=ax+.....

のグラフをｘ軸を縦に、y軸を横に表示したいのですが
どうすればいいでしょうか？

>>208
頭を90度かたむける

実験データをy=a/x+bの式にフィッティングしたいのですが、
データの中に{x.y}={0、100}を含んでいるので
無限式が出ると言われて上手くいきません。
どのようにすればいいのでしょうか。

>>210
0のでるデータを外す。
普通、実数は0で割れないでしょ。

>>211
ありがとうございます。やはりそうするしかないのでしょうか。
データ数が少ない、かつx=0付近が重要なのでそれは避けたいのですが。

>>210
自分で(フィッテングの)評価関数書いて、評価関数の最適化だけやらせるとか。
自分で書けば、「x=0付近が重要」と云うのも、それなりに盛り込めるでしょ？

そろそろ、新しいMathematicaでるのかな？
http://www.wolfram.co.jp/news/events/JMC2006/

ある数列が与えられていて、それがベータ関数の値であるときに、
元のベータ関数のパラメータはどうやって求めればいいんでしょうか。
V5.2を使っています。

wktk

age

Ver6ﾏﾀﾞｰ

ﾏｰﾀﾞﾀﾞﾖｰ

マスマスティかで不等式を2DPlotで描くにはどうすればいいの？
領域の色づけがヘルプを見ても分からない。

Mathematicaでアイパターン描こうとしているのですがなかなかうまくいきません
やり方としてはNRZのランダムパルスを発生させそれを離散フーリエ変換してナイキストフィルタのリストと乗算
それを逆フーリエ変換して同一平面上にプロットすれば良いと思うのですがほかにやり方あったら教えてください

>>222
filledplot

√(sin 2x＋2cos 5x)のグラフ書くために初めてmathematica使ったんですけど、
グラフがｘ軸に接しないのはなぜでしょうか？

>>224
接するグラフではないのだろう

FindRootの結果をグラフにしたいのですが、なんかスマートな方法ないですか？

普通にFindRootすると戻り値は
{hoge -> 51.6438}
みたいな文字列になってしまってるので困ってます。

>>226
ReplaceAllを使う
x /. FindRoot[x^2 == 2, {x, 1}]
みたいな感じで

>>224
Solve[(Sin[2x] + 2 Cos[5x])^0.5 == 0, x]
の結果、実数の範囲では
{x -> -1.5707963267948966`} {x -> 1.5707963267948966`}

Plotでは限界がある計算をさせてるみたい。

次のMathematicaの情報知ってる人いますか？
4.2から5のときのReduceはすごかったけどそれに匹敵するようなグレードアップ
があるといいなあ。

二つのベクトルから行列を作る方法を教えてください。
v . w^t のような感じで、v.Transpose[w] だとできません。

>>230
Outer[Times, w, v]

x^2(x-3)(2x+3)と２点で接する半径1.5の接点を求めたいのですがどうすればよろしいですか？

このソフトの最新バージョンナンバーはいくつですか？

5.2

ある曲線に、２点で接する円を書きたい時はどうすればいいんですか？

うちの教授が

「マテマチカ」

と呼ぶアプリはこれのことでしょうか？

ループを回して計算しているその途中経過をグラフィカルに表示するにはどうすればいいですか
計算が進むにつれ折れ線グラフがにゅーんと延びていくとかできればベストです。

>>236
その発音も間違いじゃない。

本屋さんの名前と混同してるんだろう

Mathematicaは線形連立方程式を数値的にではなく
代数的に解くことはできますか？
つまり
x=a+b
y=a-b
を解いて
a=(x+y)/2
b=(x-y)/2
のような答を、a,bに具体的な値を入れなくても
返してくれるのでしょうか？

できる

そろそろ、ver6.0が出るのかな？

n==0のとき、 f[x_,n_]:=1
それ以外のとき、f[x_,n_]:=x^n
となるようにf[x_,n_]を定義したいのですが、
どうしたらいいのでしょうか？

ちょっと調べたら見つかった
f[x_, n_] := If[n == 0, 1, x^n]
スレ汚しｽﾏｿ

出力がリストになるような関数をコンパイルするにはどうすればよいのでしょうか。
下記のようにうまくいきません


以下失敗例

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}

>>242
もう機能満載で大きな変化はないんとちゃう？　

Mapleみたいに、外観が変わるんじゃない?

mapleはだんだん教育ツール化している気がする。
mathematicaはどうだろう？

計算ツールになってる。

チュートリアルの例文そのまま
result = NDSolve[{
y''[t] + 0.1 y'[t] == -Sin[y[t]], y[0] == 1, y'[0] == 0}, y, {t, 0, 50}]
をコピペしただけなのに
NDSolve::deqnの最初の引数にはFalseではなく，方程式か方程式のリストが必要です．＼"＼>"}]＼)
とかエラーが出やがるんですがどうしてでしょうか？

>>250
Clear[y];
して再チャレンジ

Mathematicaでアポロニウスの円を書きたいんですけど、どうすればよいでしょうか？

>>252

Print["アポロニウスの円"]

>>252
定義通りに式を書いて、それをPlotすればいいのでは？

噂に聞くMathematicaそのうち買おうと思ってますが、ver.6そろそろ出るそうでないですか。
メジャー ver upによってエンバグされたりすると悲しいので、今のうちに買おうかなと思ってるんですが、
何分はじめてなもんで、この判断が妥当かどうか微妙です。

皆様の過去のver up体験談(4 ==> 5で酷い目にあった or 全く問題なかった)などありましたら
聞かせて頂けないでしょうか

>>255
質問とはそれるけれど、
学生版以外は、Premier Serviceが無料で付くので、
ver.6に無料で変えれるよ。

>>255

ver4.0==>ver5.0(Win)で酷い目にあったこと
・立ち上げたときにピロロロンと鳴らなくなった
・境界条件に文字を含んだ簡単な微分方程式が解けなくなった
などなど

>>257
>立ち上げたときにピロロロンと鳴らなくなった
これは、環境設定のところで音を鳴らすことができる。

ver5.0はバグが多かったなぁ。

お返事ありがとうございました。

>>256
Academic(~20万)で買おうと思っとるんですが、どうもPremier Serviceは別売(~10万)のようです。
(今なら2万円程度おトクのようですが。。。)

>>257,258
むむ、やはり不具合などありましたか。

アドバイスありがとうございます。(比較的)枯れてる現バージョン購入の方向でいってみます

お願いします！！Mathematicaを使って書けっていう問題が出ました・・・
問１　２点からの距離の比が一定な点の軌跡（アポロニウスの円）のグラフをかけ。
問２　１点と１直線から等距離にある点の軌跡（放物線）のグラフを書け。

コマンド教えてください！！
お願いします☆

talk:>>260 軌跡がどうなるかあらかじめ計算して入力すればいいのではないのか？

Mathematica上で、計算していきたいんです!!
お願いします☆

\!\(Appolonius[m_, n_] := Module[{a, b, r}, \[IndentingNewLine]a =
1 + n\^2\/\(m\^2 - n\^2\); \[IndentingNewLine]b =
0; \[IndentingNewLine]r =
1 + n\^2\/\(m\^2 - n\^2\) - m\/\(m + n\); \[IndentingNewLine]Show[
Graphics[{Point[{0, 0}], Point[{1, 0}], Circle[{a, b}, r], Point[{a,
b}]}, AspectRatio -> Automatic]]]\)

Mathematicaで、ｘ軸に垂直な直線を書きたいんですけど、どうすればいいですか？！

お前、それは中学校の数学で習う範囲だろ('A`)
小学生だってx=1とかx=0は知ってる人は知ってる

<<264

ｘ軸に垂直な直線、例えば、x=1 を書きたいとき、

<<Graphics`

ImplicitPlot[x==1,{x,-5,5},{y,-5,5},AspectRatio -> Automatic]

２０行１列のリストをＸ軸に、
もう一つの２０行１列のリストをＹ軸に、といったプロットって出来ますか？
簡単に出来そうに見えて出来ない・・・

>>267
x={{x[1]},...,{x[20]}};
y={{y[1]},...,{y[20]}};
ListPlot[Flatten[Transpose[x_List]],Flatten[Transpose[y_List]]]
でいいんじゃない？

>>268さん
レスありがとうございます。
やってみたのですが、うまくいきませんでした・・・。
前の書き込みでは説明不足だったのですが、
x={{x[1]},...,{x[20]}};
y={{y[1]},...,{y[20]}};
のところは、私がやろうとしていたのは、
Excelのデータから抜き出したデータの羅列、例えば
x={{1},{2},{3}};
y={{3},{4},{5}};
のような感じで、番号を振ることができないのでうまくいかないのかなと思います。
ヘルプから、これらのようなxとyを、
n={{1,3}{2,4}{3,5}};
といった行列に直せば良いことは分かっていたのですが、この変換がクセモノで。。

勉強不足と言われればそれまでですが、
妙案がございましたら、レスしていただけると幸いです。

>>269
そういうnを得たいんだったら、
n=Transpose[{Flatten[x],Flatten[y]}]
でどう？

>>268さん
素早いレスありがとうございます！
希望の通りの行列ができました！！
本当に、ありがとうございます！！

もっと精進していこうと思います。

アルキメデスのらせんを書く方法を教えて下さい。
もうさっぱりです。

極座標で
r=nθ
を表現すればいい。

すいません、極座標の表現の仕方がわかりません。

x:=Cos[θ]
y:=Sin[θ]

とおいて、置換で書いた見たんですが直線になってしまいます。

>>272
<<Graphics`Graphics`
PolarPlot[t,{t,0,2 Pi}];

>>275
書き方がわかりました。
ありがとうございました。

等高線に対しての流線の描き方がわかりません。
よろしくお願いします。

正の整数 N に対して，√N を根号の中ができるだけ小さな整数に
なるように変形して a√b の形に直すとき，この整数 a と b の
求め方を教えて下さい．よろしくお願いします．

>>277,278
かんがれ!

>>278
root[27]で実行すれば、3root[3]とかなるが、こういうことじゃないのか？

あるセルを評価したときに結果がとても膨大になってしまうことってありますよね。
そういうときヘルプの中のセルのように、見出しだけ表示しておいて、
横のところをダブルクリックすると、中身が出てくるようにしたいのですが、
どなたかやり方をご存知の方いらっしゃいますでしょうか。
どうかよろしくお願いいたしますm(_ _)m

>>280
その 3 と 3 とを取り出すにはどうしたらいいですか？

「Print」で出力した数値の羅列を、Excelに出力する方法が分からないよ〜え〜ん。。。

>>282
私も初心者なので分かりませんが。
f[n_]:=If[Head[root[n]===Integer,root[n],If[Head[root[n]===Power,1,root[n][[1]] ]]
でよいはず。

root[27]//FullForm は Times[3,Power[... なので root[27][[1]]=3.

>>283
tsvとかで別ファイルに書き出したらいいのでは？

Piのリストを作りたいのですがどういう関数使えばいいですか？
3.141592653を[3,1,4,1,5,9,2,6,5,3]みたいにしたいです

List

RealDigits

対数関数のグラフの表示方法を教えてください。

Plot

LogPlot[Exp[-x] + 4 Exp[-2x], {x, 0, 6}]
で表示できないのですが…

>>288
どもです！

対数関数のグラフの表示方法を教えてください。
LogPlot[Exp[-x] + 4 Exp[-2x], {x, 0, 6}]
で表示できないのですが…

>>293

<< Graphics`Graphics`
LogPlot[Exp[-x] + 4 Exp[-2x], {x, 0, 6}]

>>294
ありがとう御座います！

<< Graphics`Graphics`はパッケージを読み込むってことですよね？

LogLinearPlot[60-Log[x], {x, 10^0, 10^30}]
y=60-Log[x]
縦軸y（線形）と横軸x（対数）
で表示したいのですが、できませんでした。
どこが問題なのでしょうか？

複素数の計算とかはできないのでしょうか？
たとえば|z|^2をzで微分するとconj(z)になったりとかそういうやつです。

471

「ListPlot3Dはデフォルトで各データ点のx座標とy座標の値が、1から始まる連続する整数であると解釈する」
とあるのですが（ヘルプ）、これを変更する方法をご存知の方はいらっしゃいますか？
教えて頂けるとすごくうれしいです。

具体的に問題点を指摘しておきます。
Plot3D[x^2+y^2,{x,0,1},{y,0,1}]
と同じグラフィックスをListPlot3Dで描くということが課題です。
partition=24;ListPlot3D[Table[x^2+y^2,{x,0,1,1/partition},{y,0,1,1/partition}]]
を描くと、x軸・y軸ともに1から25までの整数値になります。これを0から1までの実数値にすることが課題です。
ちなみにTableのx^2+y^2を{x,y,x^2+y^2}にすればうまくいくかなと思ったのですがダメでした。
２次元（ListPlot）では{x,x^2}とすると思ったような描画ができるのに・・・拡張性が無いですね（改善してほしいです）。

i=1->25⇔i-1=0->24⇔x=(i-1)/24=0->1

>>299
>>298が指摘してる問題点はそういうことではないだろ
具体的にListPlot3Dで課題を実現してみようとすればわかる

>>300
機械は苦手なもので申し訳ありません。
ところで、定義域を{x,0,24}にするのと{x,1,25}にするのでは
目盛りは一緒なのですが、値は違うようです。
たとえば{x,-24,24}なんかにすると分かりやすいですが。

目盛りを変える方法まではわからないなぁ。

>>298
いろいろ試してみたけどむずかしいね
でも「デフォルト」って書いてあるくらいだから変更できるはず

>>301
日本語でおｋ

うーん、あとはTicks->ほにゃららで目盛りをいじる
ことぐらいしか思いつかん。

あー、わかった。

Help で MeshRange をみれ

楕円曲線における解（楕円曲線暗号）の求め方ってどうやるんでしょうか？
教えてください。

教員をやってます。バージョン４です。
初等幾何で表示する図形をマセマティカで表示使用と思っているのですが、
やはり、2次元の座標上に図形の方程式を使ってえがくしかないんでしょうか？
よろしくお願いいたします。

>>306
多分そうだと思う。
初等幾何の図を書くなら、ドローソフトを使った方が良いと思います。

>>304
ｷﾀ*･゜ﾟ･*:.｡..｡.:*･ﾟ(≧∀≦)ﾟ･*:.｡. .｡.:*･゜ﾟ･*!!!!
ｷﾀ*･゜ﾟ･*:.｡..｡.:*･ﾟ(≧∀≦)ﾟ･*:.｡. .｡.:*･゜ﾟ･*!!!!
ｷﾀ*･゜ﾟ･*:.｡..｡.:*･ﾟ(≧∀≦)ﾟ･*:.｡. .｡.:*･゜ﾟ･*!!!!
ｷﾀ*･゜ﾟ･*:.｡..｡.:*･ﾟ(≧∀≦)ﾟ･*:.｡. .｡.:*･゜ﾟ･*!!!!
ｷﾀ*･゜ﾟ･*:.｡..｡.:*･ﾟ(≧∀≦)ﾟ･*:.｡. .｡.:*･゜ﾟ･*!!!!

どうみても0-1区間です。
本当にありがとうございました。

>>306
そういう目的なら、シンデレラが良いかも。フリーじゃないけど、
書籍扱いで安い。
http://www.amazon.co.jp/gp/product/4431711201/
http://www.amazon.co.jp/gp/product/4431709665/

>>309
すまん、一番目のURLのやつはソフトは付いていないようだ。
二番目のやつは付いている。

てふが良い。winTpic

>>311
wintpicは図がめちゃくちゃ汚い。直線が角度の取り方によってギザギザに
なってしまい、見た目が直線ではなくなってしまう。
よって、使えない。

Mathematica 5.2の解説書はありませんか？

NSolveで、虚数を含む高次式の複素解なども早く簡単に導けますが、
どのようなアルゴリズムを使っているか何となく分かる方いらっしゃいませんか？

多分、ニュートン法を使っていると思うのですが、
初期値のとり方などが難しいので、
自分でアルゴリズムを考えて作ろうとすると
答えが全部出なかったりするのです。

>>314
＞ 多項式の根はジェンキンス・トラウブ(Jenkins‐Traub)アルゴリズムに基づく．

>>316
ぬおっ、どうもです！
Jenkins‐Traubアルゴリズムを知りたいのですが、
載っている資料をご存知でしたら教えていただけませんか？
よろしくおねがいします。

ttp://www.google.com/search?ie=Shift_JIS&oe=Shift_JIS&q=Jenkins%81%5DTraub%83A%83%8B%83S%83%8A%83Y%83%80

>>318
そんくらい調べてますって。
それでも具体的なやり方や掲載されている教科書名も無いのです。
論文集の
Algorithm 419,Comm. ACM,vol.15,(1972), p. 97
にはあるみたいですけど、一般的な日本の教科書には
まだ紹介されていないのでしょうか。
さっき本屋で調べたけど見当たりませんでした。
（ベアストウ法、DKA法で大体終わってます）

>>319
本当に調べたか？
http://66.102.7.104/search?q=cache:mNFcla9WEwUJ:oshiete1.goo.ne.jp/kotaeru.php3%3Fq%3D32341+%E3%82%B8%E3%82%A7%E3%83%B3%E3%82%AD%E3%83%B3%E3%82%B9%E3%83%BB%E3%83%88%E3%83%A9%E3%82%A6%E3%83%96&hl=ja&ct=clnk&cd=3&lr=lang_ja

>>320
おおっ！こんなところに！！！
明日本屋に行ってみます。thx

ちょｗｗｗｗｗ
値段高すぎｗｗｗｗ

tanE*cosE

Unix だとカレントディレクトリがパスに入っていて、
定義などもろもろを書いた file が << でゲット出来て楽なのだが、
Windows や MacOSX だとそのままではではそれが出来ない。
どうしたら良いかな？
クリックで起動したらカレントは無理としても、
どこか適当な場所を常に参照できる様にしたい。

そもそもクリックで起動したらカレントなんてないだろ

だからカレントではなく、ホームの Math とかを常にパスに含めたい、って事。

http://documents.wolfram.com/v5/GettingStarted/System-SpecificInformation/FileLayout.ja.html
この辺読んで、初期化ファイルに SetDirectory["...."]みたいに入れておけばできるんじゃね？
やったことないけど。

保守

Ver6の情報ｸﾚ

ヒストグラムを書くコマンドってあるんですか？

エクセルで１回作業してから、その度数見ながらPlotで点を書いているうちに
無駄な作業をしている気がしてきたので質問。
オフィシャルブックにも出ていないんで。

>>322
そんなあなたに割れまてぃか

つかまっちゃってくだたい

>>330
<<Graphics`Graphics`
Histogram[data]

>>332
�dクス

実行してきます。

816

あるベクトルの直交空間の基底を求める方法ってあるでしょうか？
教えてください。

そりゃ普通は直交条件を線型方程式として解いてそこから基底を抜き出す。
一発でやるコマンドは知らない。線形代数パッケージを探せばあるかも。

Solveで普通にやればよいということですね。
どうもありがとうございます。

>>162
このスレッド初めて見ました。
半年以上前の投稿なのでもう解決してる事でしょうし、わざわざレスするのも失礼かと思ったのですが

Clear["Global`*"]
sty1={Dashing[{0.01,0.01}]};
x1=Pi/2;
x2=3Pi/2;
Plot[Sin[x],{x,0,10},GridLines->{{{x1,sty1},{x2,sty1}},{Automatic,sty1}}];

で行けました。違いは、2行目のDashing[{0.01,0.01}]を｛　｝で囲んだだけです。

〓 Mekosujica 69 〓

\!\(TraditionalForm\`\(<< Graphics`ImplicitPlot`\[IndentingNewLine]
Show\[IndentingNewLine]
\([\[IndentingNewLine]Plot[{x, \(-x\), 0}, {x, 3, 4}], \
\[IndentingNewLine]Plot[{x, \(-x\), 0}, {x, \(-4\), \(-3\)}], \
\[IndentingNewLine]ImplicitPlot[{x\^2 + y\^2 == 1, x\^2 + y\^2 ==
4, x == 0}, {x, \(-2\), 2}, {y, \(-4\),
4}], \[IndentingNewLine]\[IndentingNewLine]Axes -> False, AspectRatio ->
1, ImageSize -> 400\[IndentingNewLine]]\)\)\)

\!\(TraditionalForm\`\(<< Graphics`ImplicitPlot`\[IndentingNewLine]
Show[\[IndentingNewLine]Plot[{x, \(-x\), 0}, {x, 3, 4}], \
\[IndentingNewLine]Plot[{x, \(-x\), 0}, {
x, \(-4\), \(-3\)}], \[IndentingNewLine]ImplicitPlot[{x\^2 + y\^2 == 1,
x\^2 + y\^2 == 4, x == 0}, {x, \(-2\), 2}, {
y, \(-4\), 4}], \[IndentingNewLine]\[IndentingNewLine]Axes -> False,
AspectRatio -> 1, ImageSize -> 400\[IndentingNewLine]]\)\)

非常に複雑な複素数　

YY= \!\({{1\/w\^2 - 1\/w\((\[ImaginaryI]\ \((\(-\((\[ImaginaryI]\ w\^9\ \ ......
の絶対値を求めようとAbs[Y]　とすると

\!\({{\(Abs\)\([\)\(1\/w\^2 - 1\/w\((\[ImaginaryI]\ \((\(-\((\(\[ImaginaryI]\)\(\ \)\(w\^9\)\

と、そのまま出てきちゃうんですが、

どうやったら、ちゃんと絶対値を表示してくれるでしょうか？

下付き文字を含んだシンボルを使いたいのですが、どうもうまくいきません。

http://www.kurokichi.net/inside/up/src/up1849.png
↑こうなるようにしたいのですが、
↓こうなってしまいます。
http://www.kurokichi.net/inside/up/src/up1848.png

初歩的な質問ですが、解決方法を教えてください。
よろしくお願いします。

質問です.

A = a^2+2*a*b+b^2
FullSimplify[A]

とした場合,A=(a+b)^2となりますが,
A=a(a+2b+b^2)のように特定の変数でくくることはできますか？

どなたか宜しくお願いします

>>343
無理じゃね？
下付きのスモールエックス（ｘ）をラージエックス（X）
にするぐらいしか思いつかん

>>344
そうゆう問題にはMathematicaは不適格だと思う。
LiveMath Makerを使うのが良いと思う。数式を自分の好みに合わせて変形する
のはこれが一番だと思う。

>>345
無理ですか・・・。
ラージエックスを使う方法は良さそうですね。

自分でいろいろ試行錯誤した結果
http://www.kurokichi.net/inside/up/src/up1860.png
最初に↑これをやっとけば一応希望通りの動作にすることができました。
でもこの割り当て、Clear["Global`*"]をやっても消えないんだよね。
どこに残ってるんだろう。

>>344
そもそもその式が違うじゃねーか（ｗ

Factor[a^2+2a b+a b^2]
=>a(a + 2b + b^2)

なんかはできるけどね。細かい指定をするなら>>346のようなソフトが
良いかと。

>>346 >>348様

レスありがとうございます.
式間違ってましたねww

LiveMath Maker,探してみます

Student版て通販では売ってないのですか。

すいませんここでいいのですね。
ttp://www.varsitywave.co.jp/campaign.html

Mathematicaでググるとなかなかヒットしないもんで。

1-11見ていきなりCCさくらの流れなのに噴いてしまった…

A＝Table[Random[]/2，100]　（重複がないように細工）
Position[A，Min[A]]

とした時に後で最小値の位置を使いたいのですがPositionの時点で
結果がレベル2のリストの中に埋もれてしまいますよね、{{16}}のように。
取り出すのに　％［[1,1]］　とか思いつくのですがどうにもｷﾓｲです。
他のすっきりした方法はないですか？

続き書いてたら自己解決しました、申し訳ない。
別にリストから取り出す必要などなくそのままでいいんですね。

アニメーション書こうとするとエラーがでるんだけど

計算途中で
"重大な数値的エラーが含まれている可能性があります"
という警告が出ても、最後まで計算して結果を返してきますよね。

この場合の計算結果というのは、やはりほとんど信用出来ないのですか？

質問です
極座標でパラメータを与えてベクトル場のグラフ表示をする
方法を教えて下さい

>>357
こんな感じで関数を定義してみたらどう？

<< Graphics`PlotField`
PlotPolarVectorField[{f_, g_}, {r_,rmin_,rmax_}, {theta_, thetamin_, thetamax_}, options__] :=
  Module[{h}, h[x_, y_] :=
   If[rmin <= Norm[{x, y}] <= rmax && thetamin <= Arg[x + y I] <= thetamax, 1, 0];
   PlotVectorField[h[x, y](f{Cos[g], Sin[g]} /.
      {r -> Norm[{x, y}],  theta -> Arg[x + y I] }),
        {x, -rmax, rmax}, {y, -rmax, rmax}, options]]

PlotPolarVectorField[{r, r+theta}, {r, 2, 5}, {theta, -Pi, Pi}, PlotPoints->20]

↑ 極座標で表された各点(r,θ)において，長さr，偏角r+θのベクトルが
生えているようなベクトル場を，円環状領域 2≦r≦5, -π≦θ≦π において
表示するという例。

オプションには PlotVecotrField と同じオプション（ScaleFactor,ScaleFunction, MaxArrowLength, ColorFunction, PlotPoints）
が指定できます。

「マケマシタ６」

Solve[{t4=0.95*t3-u3,
t3=0.95*t2-u2,
t2=0.95*t1-u1,
t4=0,t1=1000000,
u1+u2+u3=1000000
v=0.05*t1+u1=0.05*t2+u2=0.05*t3+u3},{v}]

という連立方程式を解きたいのですが、エラーとなってしまいます。どこがおかしいのでしょうか？

>>360
ヒント：=は代入，==は比較

Solve[{t4:=0.95*t3-u3,
t3:=0.95*t2-u2,
t2:=0.95*t1-u1,
t4:=0,t1:=1000000,
u1+u2+u3:=1000000
v==0.05*t1+u1=0.05*t2+u2=0.05*t3+u3},{v}]

こうですか？今家でちょっとmathematica動かせないです

>>362
何がやりたいのかさっぱり見えないので，
解きたい連立方程式を，普通の数学の記号で書いてもらえないか？

ちなみに，もし連立方程式

t4 == 0.95*t3 - u3
t3 == 0.95*t2 - u2
t2 == 0.95*t1 - u1
t4 == 0
t1 == 1000000
u1 + u2 + u3 == 1000000
v == 0.05*t1 + u1
v == 0.05*t2 + u2
v == 0.05*t3 + u3

を v について解きたいということなら，文字が8個でで式が9本だから，
普通は解なしになる。
実際，Mathematicaに解かしてみても解なしとなった。

t3 == t2 - u3
t2 == t1 - u2
t1 == t0 - u1
t3 == 0
t0 == 1000000
v == 0.05*t0 + u1
v == 0.05*t1 + u2
v == 0.05*t2 + u3

すいません、式はこうでした＞＜

>>365
それなら単に
Solve[{t3 == t2 - u3,
t2 == t1 - u2,
t1 == t0 - u1,
t3 == 0,
t0 == 1000000,
v == 0.05*t0 + u1,
v == 0.05*t1 + u2,
v == 0.05*t2 + u3}]
でOK.
解のリスト
{{t0 -> 1.0*10^6, t3 -> 0,
t1 -> 682791.4353687549,
u1 -> 317208.56463124516,
t2 -> 349722.44250594766,
u2 -> 333068.9928628073,
u3 -> 349722.44250594766,
v -> 367208.56463124504}}
が得られる。

ちなみに，vの値だけが欲しいからといって {v} をつけてはだめ。
v以外の文字が全て文字定数と見なされるため，
未知変数が１個，式が８本ということになって，解無しになってしまう。

また，解を近似値じゃなくて厳密値で求めたい場合は0.05を1/20に変えること。

初歩的な質問なのですが、
グラフに値をプロットすることはできないのでしょうか？
たとえば
y=x+5のグラフにx=1のときの値をグラフ上にプロットできないのでしょうか？

>>336
ほんとうにありがとうございました！

>>367
Clear["Global`*"]
y[x_]=x+5;
x1=1;

gridstyle={Dashing[{0.01,0.01}]};
Plot[y[x],{x,0,5},
GridLines->{{{x1,gridstyle}},{{y[x1],gridstyle}}},
Epilog->{
Text["x="<>ToString[x1],{x1,y[x1]+1},{0,0},Background->GrayLevel[1]],
Text["y="<>ToString[y[x1]],{x1+1,y[x1]},{0,0},Background->GrayLevel[1]]
}
];

>>367
おまけ

Clear["Global`*"]
y[x_] = x + 5;
x1 = 1;

Plot[y[x], {x, 0, 5},
　 Epilog -> {
　 {PointSize[0.02], RGBColor[1, 0, 0], Point[{x1, y[x1]}]},
　 Text["{ x=" <> ToString[ x1] <> ",y=" <> ToString[y[x1]] <> "}", {x1, y[x1] + 0.5}, {0, -1}]
　 }
　 ];

>>358

ありがとうございます．
返事が遅れて申し訳ありません．

早速月曜日にでも試したいと思います．
ありがとうございました．

「条件」のつけ方について教えて下さい。
例えば
Integrate[Exp[-(x - a)^2/2c^2], {x, -Infinity, Infinity}]
とすると
If[Re[c^2] > 0, (答1), (答2)]
と、ご丁寧に条件つきで答を教えてくれるわけですが、
あらかじめこういった条件を前提として与えるにはどうすれば良いのでしょう？

Integrate[...] where Re[c^2]>0
みたいな感じのことをしたいのです。

教えてください。お願いします。
極簡単な例として，y=2xを書きたいグラフの例とします。
このとき鉛直下向きを正のx，水平左向きをyの正の方向
としてグラフを書きたいのですが，どうすればいいのでしょうか？
よろしくお願いします。m(__)m

>>372
Integrate[Exp[-(x-a)^2/2c^2], {x, -Infinity, Infinity}, Assumptions->{c>0}]

>>374
できました！
どうもありがとうございまっす！！

>>373
なかなか難しい問題だった。

MirroringPlot[functions_, {x_, min_, max_}, (opts___)?OptionQ] :=
 Module[{old, newTicks, newLines, new},
    old = Plot[functions, {x, min, max}, opts, DisplayFunction -> Identity];
    newTicks = AbsoluteOptions[old, Ticks][[1, 2]] /.
      {position_, label_, length_, style_} -> {-position, label, length, style};
    newLines = old[[1]] /.
       {pointX_Real, pointY_Real} -> {-pointX, -pointY};
    new = ReplacePart[old, newLines, 1] /.
       {RuleDelayed[DisplayFunction, Identity] -> RuleDelayed[DisplayFunction, $DisplayFunction],
        (Ticks -> _) -> (Ticks -> newTicks)};
    Show[new]]

(* 使用例 *)
MirroringPlot[2x, {x, -2, 2}]
MirroringPlot[{x^2, x^4}, {x, -2, 2}, AspectRatio->Automatic]

上記のように，一度グラフィックスプリミティブを取得して，
その目盛りの出力位置の座標と，曲線のサンプリング点の座標の全てを正負反転させた
グラフィックスプリミティブを作り直し，それを出力するという方法で
関数 MirroringPlot を作成しました。

参考：http://support.wolfram.com/mathematica/graphics/2d/twoaxisgraph.html

おっと，質問と微妙に違った。
>>376 の関数 MirroringPlot は，鉛直下向きをyの正方向，
水平左向きをxの正方向とするプロットだった。

鉛直下向きをxの正方向，水平左向きをyの正方向としてプロットするには，
>>376 の定義を改変してもいいけど，プロットしたい関数の逆関数を，
必要ならば InverseFunction を使って求めて，それを >>376 の
MirroringPlot でプロットするのが簡単かな。

数学っぽくないな・・

>>377
ありがとうございます。
おもいっきり，活用＆勉強(プログラムを)させていただきます。

>>378
すみませんm(__)m

ウルフラム社に就職した奴いる？

ttp://webmath.ecip.osakac.ac.jp/webMathematica/MandaiLab/setuheimen.jsp
このサイトのように3Dプロットで複数表示させるにはどのようにすればよいのでしょうか？

>>381
g1 = Plot3D[x^2 + y^2, {x, -2, 6}, {y, -2, 6},
       ColorFunction->(RGBColor[0, 1, #] &), DisplayFunction->Identity];
g2 = Plot3D[4(x-2) + 4(y-2) + 8, {x, -2, 6}, {y, -2, 6},
       ColorFunction->(RGBColor[1, #, 0] &), DisplayFunction->Identity];
Show[g1, g2, DisplayFunction->$DisplayFunction];

関数じゃなくて、x,y,zの座標が数百点あるときに等高線を書くにはどうしたらいいでしょうか

自己解決しました

>>382
どうもありがとうございましたby>>381

今Ver4.2を使ってるんだけどVer6を待つのと、今30万払って5.2にするのと
どっちがいいと思う？

>>386
アップグレード代を考えると，待った方がいいんじゃないかな？

>>386
このプレミアサービス１年付きっての買っとけ
買ってから１年以内に新verが出た場合ただでもらえる
ttp://www.hulinks.co.jp/shop/camp_mathe52v4.html

Ver6いつでるのん？？

まてまてか

age

( A + B )　/ c を　A / c + B / c に変えるという簡単な代数変形ができません。
A,Bは三角関数を含み、数個の文字を使っています。

Expand

式の右辺( ( A + B ) / c　) だけをExpandしたらできました。
ありがとうございました。　もし等式の形のまま右辺をExpandできる方法があれば教えてください。

>>394
シツモンノイミガリカイデキナイ。

E == Expand [ F ]でできました。 Expand [ E==F] ではできなかった。
初心者がおさわがせしました。

>>396
eq=(F==(A+B)/C)
eq2=(eq[[1]]==Expand[eq[[2]]])
これでeqの右辺だけExpandした式eq2が得られるけど、こんなことする必要性がわからんｗ

>>397
まあ、まあ、まあー
そう興奮しないで

>>398
Mathematicaのnotebookで論文書くとかしてるんじゃね？

Japan Mathematica Conference 2006
12/12（火）東京ビッグサイト
ttp://www.wolfram.co.jp/news/events/JMC2006/

はじめまして。
Mathematica5.2をjavaで遠隔操作しようとしているのですが、行き詰ってしました・・・。
そもそも、あらかじめ作っておいたnbファイルをjavaから実行させて結果を出させることはできるんでしょうか？
もし、ご存知の方がいましたら教えてください。
よろしくお願いします。

スクリプト書けばできないかな？

返事ありがとうございます。
スクリプトを調べてはみたのですが、分かりやすい物がみつかりませんでした・・・。

すいません。
スクリプトとはどんなものなのでしょうか？

遠隔操作ってのは，SSHとかで入ってということ？Webサーバ上からということ？
「javaで遠隔操作」ってのは，JSP/サーブレット？それともアプレットとか？

返事が遅くなってしまい、本当にすいません。
今のところ、Webサーバ上からを考えています。

>>405
そのWebサーバがイントラネット上ならともかく，インターネット上のサーバの場合，
「nbファイルを実行して結果を得る」行為は，Mathematica のカーネルを不特定多数に使わせることになるので，それは Mathematica のライセンス的にまずい。
そのサイトに自分しか使えないような認証をかけておくなら大丈夫だろうが。

Wolfram的には，そういう用途には webMathematica を使ってくれってことなんだろうね。

返答ありがとうございます。
なるほど。確かに不特定多数に使わせることになりますね。
私もいろいろと試して見たのですが、やはりサーバ上からの場合はかなり難しいという結論になるんですね･･･。

それでは、同じマシン上でmathematicaとjavaを起動させて、javaからnbファイルを評価させることは可能でしょうか？
連続で質問してしまい、すいません。

>>407
http://documents.wolfram.com/v5/Add-onsLinks/JLink/Part2.WritingJavaProgramsThatUseMathematica/index.html
これなんかどうでしょうか？

ありがとうございます。

教えていただいたJlinkをがんばってみることにします。

色々とアドバイスしていただき、ありがとうございました。

こんにちわ☆

今、mathematicaをバッチ入力モードにする方法を探してます★

$BatchInput
で確認すると、初期設定ではFalseになっているので、それを変更しようとしています。。
とりあえず分かったことは、起動する際に読み込まれるらしいinit.mというファイルが関係しているようなのですが、
どうすればいいのか分からず困っています。。

もしご存知の方がいましたら、教えてください。
よろしくお願いしますm(__)m

mage

学生版買っておいたら、卒業してもそのまま使えるんですか？

>>412
お前は医学部の一年生でこれから何回も留年するんだろ？

>>412
駄目に決まってんだろ、あほ

登録さえすれば、使える。
だけど、卒業してから「パソコンが壊れたから新しいパソコンに入れなおす」
とかは無理。（サポートなし）

卒業後、１年以内であれば、安く最新のプロフェッショナル版に変更できる
ことにも注意。

プロフェッショナル版っていくらするの？

>>416
http://amazon.co.jp/dp/B000B6GGC4/

winのやつで「行列の列を増やす」のショートカットが
効かないんですが、設定かなにかが悪いのでしょうか？
行をふやすのはできます。

学生版買ったんだけどMathID登録しなくてもなんか機能が働くようになったけど
MathIDを登録しないでインストールしてから２週間するとどうなるの？使えなくなるの？？

>>419
ばくはつします

>>420
嘘付き？？
あぶねぇだろｗ

>>421
常識から言って爆発はしないだろw

>>415

安くってことは、5,000円ぐらいでアップデートできる？
それくらいなら払えるよ

Mathematicaで何か新しい発見の役に立った例ってありますか？

>>412,419,423

ここ読め
ttp://www.varsitywave.co.jp/products/mathematica/pro/index.html

三種類のグラフを一枚の図に収めて、
それぞれのグラフが何のグラフであるかラベルをつけて
(ラベルのテーブルがあれば尚よい)
表示させるにはどうすればよいでしょうか。

つ はさみと乗り

>>424
そういうソフトではありません。計算の確認など、教育の現場では重宝します。

mathematicaってどうやって不定積分とか求めてるんですか？

>>429
シンプソン法とか？

数値積分で不貞積分が求まるわけないだろ（ｗ

そりゃ不貞積分は存在しないな

mathematicaのドキュメントによると、
"不定積分では被積分関数と積分ともに初等関数，指数積分関数，多対数および他の関連した関数
で表される場合には拡張リシュ(Risch)法が使用される．"
らしいです。
http://www.ti3.tu-harburg.de/paper/rump/Ru04a.pdf （Risch法の説明）

http://kako.ics.nara-wu.ac.jp/~kako/education.html　(９章１０章あたり）
がそれっぽい感じです。

でもこんなの読む気にならない・・

再び質問します。

三種類のグラフを一枚の図に収めて、
それぞれのグラフが何のグラフであるかラベルをつけて
(ラベルのテーブルがあれば尚よい)
表示させるにはどうすればよいでしょうか。

もしくは、こういったことがMathematicaで
出来るか出来ないか、お答えお願いします。

>>434
もう少し状況を詳しく説明して。
「グラフ」というのは，y=x^2のグラフとか，そういう意味？
「ラベル」というのは「y=x^2」という文字列？
「ラベルのテーブル」とは何？

「グラフ」というのは，y=x^2のグラフとか，そういう意味？
>>その通りです。

「ラベル」というのは「y=x^2」という文字列？
>>その通りです。

「ラベルのテーブル」とは何？
>>三種類のグラフが何を指すかを示す文字列を表にしたものを言ってます。

「>>」が2ちゃんでの引用符であって、自分の意見は特別な記号を付けずに書きましょう。

>>436
つまりこういうことかな。

f1[x_] := x^2;     x1 = 1.9;  offset1 = {1.2, 0};   label1 = "二次関数";
f2[x_] := x;       x2 = 1.8;  offset2 = {1.2, 0};   label2 = "一次関数";
f3[x_] := Sqrt[x]; x3 = 1.4;  offset3 = {-1, 0.4};  label3 = "無理関数";
boxLeft = 2.2; boxTop  = 4; boxHeight = 1.2; boxWidth = 1.4;

graphLabel[f_, pt_, offset_] :=
  Text["y=" <> ToString[InputForm[f[x]]], {pt, f[pt]}, offset]

graphTableLabel[f_, position_, tableLabel_] :=
  Text["y=" <>ToString[InputForm[f[x]]]<>" "<>tableLabel, position, {-1, 0}];

g = Plot[{f1[x], f2[x], f3[x]}, {x, 0, 2}, DisplayFunction -> Identity];
new = ReplacePart[g, Append[g[[1]], {graphLabel[f1, x1, offset1],
 graphLabel[f2, x2, offset2], graphLabel[f3, x3, offset3]}], 1];

labelTable = Graphics[{Line[{{boxLeft, boxTop},{boxLeft + boxWidth, boxTop},
 {boxLeft + boxWidth, boxTop - boxHeight}, {boxLeft, boxTop - boxHeight},
 {boxLeft, boxTop}}],
  graphTableLabel[f1, {boxLeft + 0.1, boxTop - 0.3}, label1],
  graphTableLabel[f2, {boxLeft + 0.1, boxTop - 0.6}, label2],
  graphTableLabel[f3, {boxLeft + 0.1, boxTop - 0.9}, label3]}];

Show[{new, labelTable}, AspectRatio->Automatic,
  ImageSize->400, DisplayFunction->$DisplayFunction];

>>438

どうもありがとうございます。しかしながら、作成した図を
eps形式で保存し、texで表示させたところ、"("や日本語フォントが
文字化けして表示されます("("は半角)。どうすれば正しく表示されますでしょうか。

追伸

また、3種類のグラフを(白黒の濃淡で)色分けし、
各色がどのグラフを指すかわかるように、
図中のテーブルで指し示すにはどうすればよいでしょうか。
(つまり、頂いたプログラムのテーブル内を、
"y=^x"といった関数の文字列の代わりに、グラフの色で表したい。)

>>439
うちの環境では文字化けは発生しなかったよ。
Windows版の Mathematica 5.0 日本語版 で，図を選択して，
　編集→選択範囲の形式保存→EPS
でEPS保存して，

\documentclass{jarticle}
\usepackage{graphicx}
\begin{document}
\includegraphics{hoge.eps}
\end{document}

をコンパイルしたところ，DVIOUTで日本語部分も含めて正しく表示されました。

>>440
f1[x_] := x^2; x1 = 1.9; offset1 = {1.2, 0};
label1 = "二次関数"; grayLevel1 = GrayLevel[0.6];

f2[x_] := x; x2 = 1.8; offset2 = {1.2, 0};
label2 = "一次関数"; grayLevel2 = GrayLevel[0.3];

f3[x_] := Sqrt[x]; x3 = 1.4; offset3 = {-1, 0.4};
label3 = "無理関数"; grayLevel3 = GrayLevel[0];

boxLeft = 2.2; boxTop = 4; boxHeight = 1.2; boxWidth = 1.4;

graphLabel[f_, pt_, offset_] :=
Text["y=" <> ToString[InputForm[f[x]]], {pt, f[pt]}, offset]

graphTableLabel[position_, tableLabel_] :=
Text[tableLabel, position, {-1, 0}];

g = Plot[{f1[x], f2[x], f3[x]}, {x, 0, 2}, DisplayFunction->Identity,
PlotStyle->{{grayLevel1}, {grayLevel2}, {grayLevel3}}];

>>442の続き

new = ReplacePart[g, Append[g[[1]], {graphLabel[f1, x1, offset1],
graphLabel[f2, x2, offset2], graphLabel[f3, x3, offset3]}], 1];

labelTable = Graphics[{Line[{{boxLeft, boxTop}, {boxLeft + boxWidth, boxTop},
{boxLeft + boxWidth, boxTop - boxHeight}, {boxLeft, boxTop - boxHeight}, {boxLeft, boxTop}}],
grayLevel1, Line[{{boxLeft + 0.1, boxTop - 0.3}, {boxLeft + 0.3, boxTop - 0.3}}],
grayLevel2, Line[{{boxLeft + 0.1, boxTop - 0.6}, {boxLeft + 0.3, boxTop - 0.6}}],
grayLevel3, Line[{{boxLeft + 0.1, boxTop - 0.9}, {boxLeft + 0.3, boxTop - 0.9}}],
graphTableLabel[{boxLeft + 0.4, boxTop - 0.3}, label1],
graphTableLabel[{boxLeft + 0.4, boxTop - 0.6}, label2],
graphTableLabel[{boxLeft + 0.4, boxTop - 0.9}, label3]}];

Show[{new, labelTable}, AspectRatio->Automatic,
ImageSize->400, DisplayFunction->$DisplayFunction];

>>438

どうもありがとうございました。助かりました！

文字化けの問題ですが、当方はMathematica3.0を使っております。
「図を選択して， 編集→選択範囲の形式保存→EPS 」した段階で、
作成されたEPSファイルをViewerで見てみると、すでに文字化けしてました。
どうやらMathematicaの設定かVersionに問題があるのかもしれません。

数式からＣ言語のソースコード生成機能ってありますか？

>>445
これ?
ttp://documents.wolfram.com/v4-ja/MainBook/1.11.8.html
Sum[]とかには対応してるのかな?

グラフィックスの縦横の長さまたは縦横比を得るにはどうすればよいのでしょうか？
例えば
g=Plot[Sin[x],{x,0,2Pi}]
として、
GetWidth[g],GetHeight[g]みたいなのが欲しいのですが存在しないようです。

どなたかご存知の方よろしくお願いします。

>>447
Plot[Sin[x],{x,0,2Pi}];
AbsoluteOptions[%,AspectRatio]

>>448
どうもありがとうございました！

はじめまして。
エラーメッセージで以下の様なメッセージが出るのですが、
何が問題なのでしょうか？
Plot::plnr: m = 1.0204081428571429`*^18においてfWdep[m]は機械サイズの実数ではありません． \
>>

>446
ありがとうございます。もうひとつ聞きたいのですが、多項式をコンピュータに
計算しやすいように出力させることはできるのでしょうか？
たとえば
a*x^3+b*x^2+c*x+d　⇒　((a*x+b)*x+c)*x+d
とか、
a/b+c/b+d/b ⇒ (a+c+d)/b
こういうような式変形は可能ですか？

>>451
それぞれ、HornerとTogetherでできる。

海外の代理店から買うと、サポートを受けることはできますか？
海外からのサポートでも構わないのですが。

できるでしょ
でもなぜ?

日本で買うより安いから

2変数x,yに対する統計データを曲面補間し、曲面の式f(x,y)を求めたいのですが、どうすればいいのでしょうか？

>>453
ライセンス上、英語版は日本でつかっちゃいけないはず。日本語版への変更でン万円。
海外から日本語版が買えるかどうかは知らない。

>>456
FitかFindFit

>>456
ええ。>>456さんのおっしゃってるのは、米国流通ものを
指していらっしゃるのでしょう。確かに米国外ではinter
national版を使わなければならないと思います。
米国版は、確か日本語できなかったと思います。
いわゆる英語版でも、インターナショナル版であれば
日本でお使いいただけるでしょうし、日本語キットを追
加して日本語表示できると思います。

y=f(x),y=g(x)のグラフを描くときに
　y=f(x)のグラフは左側
　y=g(x)のグラフは右側
というように、ひとつの図の中でそれぞれの縦軸を用意して描く方法はありますか？

>>460
http://support.wolfram.com/mathematica/graphics/2d/twoaxisgraph.html

数年前にMathematicaのVer３で実行してあるプレゼンを見たことがあるのですが、３次関数y=x^3-3x^2-9x+10(-3≦x≦4)の導関数、極値を求め、次に増減表をかき、最後にグラフを描く、その手順のプログラムを知りたいのですが、どなたかご教示ください。

孫のせいでスレタイがソフトバンクにしか見えない

Mathematica（5.2）のショートカットキー一覧みたいなのが見たいんですが、
どうも見方がよく分かりません。
ショートカットキー一覧を載せてるHPとかご存知の方おられませんか？？

464:１３２人目の素数さんへ

「Mathematicaのショートカットキー」は、Wolfram Reserch.Inc.のHP
ttp://documents.wolfram.com/v5/FrontEnd/KeyboardShortcuts/MicrosoftWindows/WindowsKeyboardShortcuts.html
（頭は、ｈです。）に幾つか掲載されていますが、このことでしょうか？

6.0sage

出力後にーSurfaceGraphicsーというのを出さない方法ってありませんか？

;

467：１３２人目の素数さんへ
↑468が正解ですよ。
例えば、
Plot3D[Sin[x+y],{x,-1,1},{y,-1,1}];
と
Plot3D[Sin[x+y],{x,-1,1},{y,-1,1}]
では導出力が違うか試してみて！

やだ。

468-469
お〜、できました

低レベルな質問で真にお恥ずかしいのですが
行列ｄ（270×270）と閾値λがあり、
dの閾値以上の要素をそのまま、閾値未満の要素を0とした行列d'を作りたいのですが
ご教授お願いいたします

>>472
こんな感じかな
Map[If[# > lambda, #, 0] &, d, {2}]

カーネルって何ですか？

ケンタッキーのおじさん

>>473
できました。有難うございました。

>>474
線形代数を学んでください。

>>474
カーネルは、Mathematicaのノートブックに命令プログラムを書き、演算を実行する中枢部のことじゃない。途中で演算を中止仕様としてもカーネルを止めないといつまでも計算を実行するので注意が必要ですね。
決して線形代数学に出てくるKerじゃありません!! 実際にMathematicaをRunningさせるのが一番ですよ。

ということはＣ言語でいうとmain()の部分ってことですか？

kernelはkernelで理解した方があとあと便利だと思いますよ。

そもそもこのソフトって何の言語で書かれてるのですか？

　まてまてか高いですね。26000円のパッケージがあったのでこれなら買えるかと思ったら
学生版なんですね、、、通常版は20万くらいとは、、、5万くらいなら考えるんですけど。
　昔のv2.2を使ってます。

>>481
参考になるかどうか分かりませんが、言語は、どうも Lisp に近い言語らしいですよ。

>>481
完全にLispの方言。Lispの強化版。Lispに頭部という概念を追加して
Lispを強化改造している。それにより普通のLispでは函数fの引数xに対する
値は　(f x) で表されるが、Mathematicaではf[x]と通常数学の表記f(x)に近い
形になる。Mathematicaではfを式f[x]の頭部，[x]をボディーと言う。

>>482
放送大学に等を利用するのが良いかと…．
(仕事に使わないのであれば．)
現在も可能かどうかはわかりかねますが．

>>483-484
ありがとうございます。

学生なのですが、学生版の購入を考えています。
式を入れたらグラフが表示されるような機能は最初からついているのでしょうか？それとも自分で言語を使って作るのでしょうか？

For Studentsですが、昔wolframにきいたら、大学の社会人入学はだめだけど、
学習塾はよい、といってましたね

Mathematicaくらい、どっかに落ちてるだろうが。

>>488
MathPass 生成器ちょうだいな

>>486
PlotとかPlot3dとかあるし。

>485,487
　そういうてがありましたか、、、ちょっと調べて見ます！

>>487
それはおかしいね。大学生なら社会人だろうがスネ齧りだろうが
区別はないはずだよ。

>>489
お使いのはVersion4や4.1とか4.2でしょうか
もしそうでしたら[email protected]へご連絡いただければ
便利なつーるをおわたしします

怪しいよ…

FourierSeries[UnitStep[t], t, 5]
と入力しても出力が
FourierSeries[UnitStep[t], t, 5]
とかえってきてしまいます。。

<< Calculus`FourierTransform`
の一文は一番上に入っているのですが、原因わかりますでしょうか？

>>495
FourierSeriesはVer3からVer4.1?あたりから組み込み関数が変更され、当方も困った経験があります。
<< Calculus`FourierTransform`
FourierSeries[UnitStep[t], t, 5]
Plot[%, {t, -1.5, 1.5}];
としてもVer5.2では、OKですが･･･
多分、プログラムを実行する前の別の函数を読み込んでいるので、おまじないをかけてやらなければいけないんじゃないかな？
変数のスコープ
(1)Remove[a, … ]は，シンボルの名前がこれ以降Mathematicaに認識されないようにそのシンボルを完全に除去する．
(2)Remove["a", "a", … ]は，列パターンaのいずれかと適合する名前を持ったシンボルをすべて除去する．
または、割り当て
(3)Clear[a, a, … ]は，aに与えられている値や定義をクリアする．
(4)Clear["a", "a", … ]は，任意の文字列パターン aにマッチした名前を持つ記号の値や定義をクリアする．
で解決するんじゃないでしょうか。

>>496
どうもです。
試してみます。

簡単な質問で申し訳ないのですが，

u=x1^(a) x2^(1-a)
Maximize[{u,x1+x2≦m},{x1,x2}]

これだと，aやmが定数でないなどのエラーが出てしまいます．
どこが悪いのでしょうか？

a,mの数値指定をしないと出ませんね。
例えば、Plot[x^3,{x,a,a+1}];だとグラフは描けませんが、Plot[x^3,{x,-3,4}];だと描けますね。それと一緒ですよ。
具体的に、a,mを指定してみるとa=5,m=0.04
Maximize[{x1^5 ＊x_2^((1 - 5), x1 + x2 <= 0.04}, {x1, x2}]
ならば、厳しいけれどなんとか評価できます。あくまで数式処理システムだという認識が必要ですよ。

申し訳ない。入力ミスm○m　上の例は、Maximize[{x1^5 x2^(1 - 5), x1 + x2 <= 0.04}, {x1, x2}]
だったよ。

ContourPlot3Dを使って等高線付きの曲面を描きたいのですが、
等高線の間隔を狭くするのはどのようなオプションでできますか？

こんなこんじでやりました。
ContourPlot3D[-z + (x^2 + y^2)^2 - 2*x^2 + 2*y^2, {x, -1.5, 1.5}, { y, -1.5, 1.5}, {z, -10, 3}]

>>501
ContourPlot3D[-z+(x^2+y^2)^2-2 x^2+2 y^2,{x,-1.5,1.5},{y,-1.5,1.5},{z,-10,3},PlotPoints{5,5,10}];
でOKだね。

御免PlotPoints→{p,q,r}で各成分の編み目を粗密にするんだった！
ContourPlot3D[-z+(x^2+y^2)^2-2 x^2+2 y^2,{x,-1.5,1.5},{y,-1.5,1.5},{z,-10,3},PlotPoints→{5,5,10}];
でどう？

できなかった＞＜
バージョン4.2.1.0だけど、５じゃないからかな？
こんなエラーでました。
----
{{PlotPoints→{5,5,10}}}は置換則リストあるいは有効なディスパッチ表ではないため，置換に使用できません．
ReplaceAll::reps: {{{3,5}→{5,5,10}}}は置換則リストあるいは有効なディスパッチ表ではないため，置換に使用できません．
Set::shape: \
{Graphics`ContourPlot3D`Private`un,Graphics`ContourPlot3D`Private`vals,\
\[LeftSkeleton]37\[RightSkeleton],\[LeftSkeleton]34\[RightSkeleton],Graphics`\
ContourPlot3D`Private`rec}と{{3,5},{0.},{},True,1}/.\[InvisibleSpace]{{3,5}→{5,\
5,10}}のリストは型が違います．
PlotPoints::contpts: Value of option PlotPoints -> \
Graphics`ContourPlot3D`Private`un is not of the form x, {x, y}, {x, y, z} or \
{{x1, x2}, {y1, y2}, {z1, z2}} where each entry is a positive integer >= 2. \
Using default PlotPoints.
ContourPlot3D::bdval: Value of option Contours -> \
Graphics`ContourPlot3D`Private`vals is not a list of real numbers. Using \
default Contours.
ContourPlot3D::gval: Function value \[LeftSkeleton]1\[RightSkeleton] at grid \
point x = -1.5, y = -1.5, z = -10 is not a real number.
ContourPlot3D::gval: Function value \[LeftSkeleton]1\[RightSkeleton] at grid \
point x = -1.5, y = -1.5, z = -3.5 is not a real number.
ContourPlot3D::gval: Function value \[LeftSkeleton]1\[RightSkeleton] at grid \
point x = -1.5, y = 0.`, z = -10 is not a real number.
General::stop: 計算中，ContourPlot3D::gvalのこれ以上の出力は表示されません．
$RecursionLimit::reclim: 最大再帰回数256を超えています．
Graphics3D::gprim: \
Hold[{Graphics`ContourPlot3D`Private`cstyle}]\
がGraphics3Dプリミティブあるいは指示子が仮定されているところで見つかりました.

>>504
V5.2ならうまくいったけど。確かにVerによって若干異なるからでしょう。
MathematicaのメニューバーのHelpでContourPlot3Dの項目を調べると何かわかるかもしれません。力になれなくて残念。

>>504
ひょっとしたら、原因は、組み込み関数を読み込んでいないのかも知れませんね。
<<Graphics`ContourPlot3D`
として。プログラムを実行する前に、パッケージを先にロードしてみましたか？

追記（蛇足）
>>504
パッケージ<<Graphics`ContourPlot3D`と<<RealTimes3D`を先にロードして
ContourPlot3D[-z+(x^2+y^2)^2-2 x^2+2 y^2,{x,-1.5,1.5},{y,-1.5,1.5},{z,-10,3},PlotPoints→{5,8,10}];
とすると、出力された図形をマウスで自由に有家貸すことが出来るのでやってみるとおもしろいですよ。
ブラジャーみたいな図形が出てきますね。

いろいろりがとうございます！

<<Graphics`ContourPlot3D`
はロードしてます。

<<RealTimes3D`
をローードしょようとすると、
Get::"noopen": "\!\(\"RealTimes3D`\"\)を開くことができません．"
とエラーでできませんでした。

やっぱりバージョン低いからかな？
大学PCで使ってるんで、新バージョン無いのか明日聞いてみます。

ってかこんな時間に卒論やってる漏れバカ？

matlab と
どっちがいいのですか？

>>508
<<RealTimes3D` は、Ver3あたりくらいでは、インストール時にオプションであったと思います。
Ver４位からは、組み込まれていたんじゃないかな？何れにしても上位互換が基本ですから、大学の
PCで試した方がいいと思います。
卒論ですか？もう大昔のことで、あの頃に是非戻りたいですね。若いときの苦労はきっとあなたの
努力として、社会に出てどこかで報われるときがきますよ。大いに奮闘してください!!
大学生時代はPCなんぞなく一教室に大きな電子計算機があるのみでした。フォートランで、カードに
パンチャーでプログラムを打って機械にかけていました。本当に無駄な努力でした。今の学生は恵ま
れていると思います。Mathematicaも勿論、見様見真似です。本屋での立ち読みなどで勉強中です。
仕事があるので厳しいですが、趣味としてやっていますよ。

>>509
　MatLabは、工業系のシーケンス制御などでよく見かけますね。学生版はカナダでないと
購入できなかったんじゃないかな？プログラムして、ディバックしなければならな
いので、慣れないと不便です。
　図は流石にMathmaticaがポストスプリクトで一番綺麗ですね。
　あと、MapleVも扱いやすいし、インド、韓国などのアジア系の人が設計に参入し
て作られているという噂があるようで、Mathematicaより計算は確かに速いですね。
ただし、図は今イチですが･･･。

いろいろなグラフをＢ５に印刷したいんだけど
横にはみでないようにめいっぱい拡大したいんですけど、
マウスで勘で拡大するしかないんでしょうか？
自動化できないんでしょうか？

>>508
パッケージは、「<<RealTime3D`」でした。Sは不要！

>>512
ページ設定でよくない？
（参考）
http://support.wolfram.co.jp/mathematica/interface/print/
あたりが解決のヒントになるのでしょうか？

>513
できたあぁぁぁぁ！
ありがとぉ！！

どおりでRealTimes3Dでヘルプを検索しても
ググっても出てこなかったはずだ。

>>515
すまんのう！
Ver3あたりで始めてパッケージに入ったのでぼけてしまって忘れていた。
便利なのに、洋書には解説があるが、日本語版は何故か解説している物が殆ど見たことがない。
メニューの入力に３Dポイントの設定というのがあるので、自分の一番気に入った視点から図の視点を貼り付けることが出来るので便利だと思うよ。

615

age

Mathematica(一般用Ver4.0日本語対応)をUSBメモリのＵ３領域
とかにぶち込んで使用中。
端末ごとに呪文のようななっがーいパスワード入れにゃいかん
けど、なかなか快適。使用後はMathpassを消去して終了。

いろいろ設定をさわっていたら
Plot3Dで書いたグラフが真っ黒になってしまいした．
どの設定を触ったのか，わからなくなってしまい困っています．
元に戻す方法わかる方いらっしゃいましたら，教えてください．

すみません．
忘れてください．

studentバージョンをインストールしました。
もう学生ではないのでパスワードは無いのですが、ひさびさにマテマテカやりました。
やはり３Ｄなど面白いですね。しかし
使用期限がきてしまいました。ウインドウズの日付を戻したのですが
もう使えないみたいです。
そういうものなんでしょうか？

ﾁﾝｶｽかﾃﾒｰは？
自分が開発者だったらどうするか考えろ！

Wolframから「Mathematica 6へのアップグレードについて」ってメールが来た。

いつ発売なの？

>>525
発売日は書いてない。
メールの内容はこんなの、ようはお布施しろってことか？

過去20年間で最も重要なリリースとなりますMathematica 6へのアップグレードが，
間もなくご案内できる運びとなりました．お客様にはMathematica 5.2の優れた機
能をお使いいただいているかと存じますが，次期バージョンでのさらなる進歩をも
ぜひお試しいただきたく，ここにお知らせいたします．

本年3月30日までにPremier Serviceにご加入いただきますと，Mathematica 6への
アップグレード，およびご加入期間中のすべてのアップグレードが無料となります．

米Ebayで売ってる安いやつって買ってみても大丈夫？

>>527
学生用。「学生」が日本の大学生を含むのかどうかは知らない。

いい事を思いついた。
ＵＳＢにＯＳとマスマティカstudentをインストールする。
そうすれば学校卒業後にＰＣを買い換えてもマスマティカを
使い続けることができるのではないか？

529
Student版はsecuredだからマシンを変えるとMathIDと可変パスワードが変わるぞ。

そこでVirtualPCですよ

http://mathematica6.wordpress.com/

age

要するに、スチューデント用を購入しても使えないということか？

http://search.ebay.com/mathematica_W0QQfkrZ1QQfromZR8

割れ物にすれや

>>534
Wolframの日本法人に訊けば？

http://www.wolfram.com/company/contact.cgi

ASIA
Wolfram Research Asia Ltd.
Address
Oak Ochanomizu Building 5F
3-8 Kanda Ogawa-machi
Chiyoda-ku, Tokyo 101-0052 JAPAN
(Directions and Maps)
Telephone Number
Distributors Only: +81-(0)3-3518-2880
Fax: +81-(0)3-3518-2877
Email Addresses
General Inquires: [email protected]
Technical support: [email protected]
Press inquiries: [email protected]

>>529
いまだにVer3(student版)しかもってない。
けど、キージェネもっているからいつでもインスコ可能w
なんで一般価格になるとあんなに高いんだろう。
貧乏人はMaxima使えって言うんだろうけどw

>>537
古杉、バグだらけ（ｗ

>>538
Student版も買えない乞食？w

Student版でも大丈夫そうという結論か

Student版からProにアップグレードしたけど、
わざわざStudent版をアンインストールしてから
ProをインストールしたのにライセンスがStudent版のままで
印刷するとフッタ部分に「Printed by Mathematica for Students」
と出てしまう。

解析で解けない積分を含んだ関数を数値解法で解いて
そのままグラフへプロットするためには、
どういうコマンドを組めばいいんでしょうか。

f(x)=∫g(x,t)dt　のときの、y=f(x)の様子を確かめたいんです。

あ、「積分」じゃなくて「定積分」でした。

>>542
NIntegrate[]

http://documents.wolfram.com/mathematica/functions/NIntegrate

おー、すごい。出来ました。
どもです。

これだけ落としても普通には使えませんか？

http://page10.auctions.yahoo.co.jp/jp/auction/m38371578

547p6
ええ、まずだめだと思います
サイトライセンスのライセンスマネジャ対応という事なのでしょうか。
ひょっとすると(大学の構内などの)登録済みのＩＰでないと使用でき
なかったりするかもしれません。ライセンスサーバとかがあることが
前提なのではないでしょうか。
ちなみに同様の商品「ＮｃＮ」というのが手元にありますが、私の所
有する数ライセンス分の固定パスワードを投入して見ましたが、いず
れも通りませんでした

>>547
助かりました

>>532
英語でよく分からんが２〜３倍速いところだけは分かった

>>549
NOVAにでも逝け

866

>>523
ということはウインドウズの時計のほかにもう一つの隠された時計がある
ということでしょうか？
左下の時計はダミーということでしょうか？

ばかたり

隠しファイルに書き込んでいるんだよ

>>553
そのファイルを捨てたらいいのでしょうか？
何と言うファイル名なんでしょうか？

隠しファイルだから内緒


ヒント
　インストール前後の違いを調べる

ばかの相手する必要なし
使いたかったら買え

阿久智べーションがついてから
買う気が失せた

それまでは各バージョンを買っていたのになあ

age

なんとか安く購入したいんだけど、なんとかならない？

適当な大学に入れよ

gnutella

放送大学に入学して
学生版買え

Xの2次式=0のxを
Xの3次式に代入した値を計算したいのですが

sol = Solve[xの2次式 == 0, x]
xの3次式 /. sol

としてもX^3が計算されるだけで、うまく行かないのですが
どうしたらいいでしょうか・・・

>>563
sol = Solve[x^2 - 1 == 0, x]
x^3 + x^2 /. sol

Out[1]={{x -> -1}, {x -> 1}}
Out[2]={0, 2}

問題ないと思うけど？

趣味で数学を勉強しているものです。
大学教養程度の数学を勉強していて、いまは小平の解析入門してますが、
だんだんステップアップしていく予定です。
そこで質問です。mathematicaは、勉強には使えるでしょうか？
私は、普段電卓くらいしか使えませんが、数学の学習の助けになるなら、購入しようかと考えています。
よいという噂を聞いても、どう使うのか、何になるのか、いまいち分からないので困っています。
数学の実力をつけるのに役に立つなら購入していじって勉強してみようかと思っています。
どう役に立つのか具体例を出してくれるとありがたいのですが、やさしいひと、お願いします。
それすらも分からないやつには不要なのでしょうか？

趣味だったら面白くやりなさいよ

>>565
とりあえず無料で使えるMaximaとか試してみたら。学習の助けになるかどうかは
本人次第。んなもんなくても勉強できる人もいれば、色々な計算例走らせて
楽しいって人も、コンピュータは面倒だって投げる人もいる。

>>565
ヤフオクで出てる5000円のやつを買えばいいんじゃないか

Ver.6っていつ出るの？

22世紀

October 2007かその前。根拠は
http://www.springer.com/west/home/computer/general?SGWID=4-155-22-97836125-0
という本がOctober 2007にでる予定でその中でver6を使うことが前提にされてる。
といってもこの本の予定自体どうかわかったもんじゃないが。

これを見つけたのは、じれてる人が書いてるブログ。
http://gorithm.blogs.com/gorithm/2007/02/mathematica_6_o.html
予想を立てては裏切られてるのが気の毒というか。。

Mapleに遅れをとっているので
Mathematica 6.0どうしようか

こいつもカスバージョンか

Mathematicaはよくできたシステム。カスなのはベンダーの高飛車な態度。

アクティべーションは正規ユーザをなめてる

>>573
会社はStephen Wolframの延長だからね。

私はver,4.2までしか知らないのですが、mathematicaのアクティベーション
って、どのようなものですか
従来のStudent版などのようにMathID依存のパスワードや、一般の３０桁ぐらいの
パスワードなら経験済みです。
シマンテックのＮＩＳのようにいちいちサーバと通信するのでしょうか

正規ユーザですが
我真致家つかいます

6.0近日リリースあげ

英語版リリース
ttp://www.wolfram.com/products/mathematica/index.en.html
ttp://www.wolfram.com/products/mathematica/newin6/

Mathematica 6 Launched（スラド本家）
ttp://science.slashdot.org/article.pl?sid=07/05/01/1827259

Mathematica
と
メープル
どっちが
つよいの？

互換性ならMathematica。
価格ならMaple。

Mathematicaはプレミアを買わないと特別サービスがないが、
Mapleは予告無しに特別サービスがある事がある。

p=Plot [y1, {x, 0, 0.215}]
lip=ListPlot[];
Show[p,lip]
の洋にplotとlistplotを
同じグラフに書きたいのですが、
コレだとグラフが３っつ表示されてしまいます。
最初の２つを非表示にすることは出来ませんでしょうか？

>583
確か、DisplayFunction->Identity だったような気がする。
Plot, ListPlotなどのオプション。

ShowはDisplayFunctionを無視するので表示される。

すみません。
それでやってみたのですが、
ぜんぶ消えてしまい、Showでも表示されませんでした。

>>583 、585
例えば、
a= Plot[Sin[x], {x, 0, 2 π}, DisplayFunction -> Identity];
b=Plot[Cos[x], {x, 0, 2 π}, DisplayFunction -> Identity];
c=plot2 = Plot[Sin[2 x], {x, 0, 2 π}, DisplayFunction -> Identity];
Show[a, b,c, DisplayFunction -> $DisplayFunction];
のように、最初にDisplayFunction->Identity としておいて、ShowでDisplayFunction -> $DisplayFunction
とするとうまくいくはず。

Mathematicaて
プログラム？
ドイツ語ぽいなｗ

talk:>>587 ドイツ語も書けるだろうな。

>>586
ありがとう。うまくいきました

>>586↑　
お役に立ててよかったです。こちらこそDankeです。擬Lisp言語のMathematicaは、結構楽しめますね。独逸語はあまり得意ではありませんけど。

DisplayFunction
ってわからないなあ

自分では使えなさそう

6になってから何かおもしろい機能増えましたか？4->5のときのReduceの機能拡張
には驚いたけど今回それに匹敵するようなのってあります？

Ver.4からあとはあまり変わってないんちゃう

Mapleに負けてるな

Ver4 -> 5.2 は、見た目の大きな変化が無いけど、
色んな処理がかなり早くなったので、少しくらい大きなデータのロードや
ループなど４では躊躇するような時でもよく使うようになった。

Ver6は、グラフの質があがってる感じしない？WolframのHelpページ。
あと、GUIでパラメーターを変えられるリアルタイムの描画など面白そう。

>>593 そうですか。私はMapleのほうは良く知らないんですがどういったところ
がMathematicaとくらべて得意なんでしょうか？
>>594 確かにグラフィックの質は良くなりましたね。これだけでもかなり遊べそう。
肝心の数式処理のほうでなにか画期的なものはありましたか？

>>595
速いとか、バグ少ないとか、アルゴリズム公開してるとか聞くが、使った
ことが無いので確証はない。デマかも。

　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.i　 /|. /.| { i,　 i,　　}.　 }_,,）)
　　　!　|　 ! .,'-.{ !　!|; |`､.}ﾞ!.!　|.　 !　ヽ.
　　　',　',　|Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l !　| 　 ﾞ',
　　　 ヽ､', l:!Kノ}. 　 　 f:_.)iﾞi: ﾘ !　l　ル
　　　　 | l!iヽﾞ- '　, 　　.!__:ﾉ ﾞ ,ﾘ l ﾘ'´
.　　　　 ',|!!､ 　 　r‐┐ 　 ｀ ノ'. /,ｲ　　　　／￣￣￣￣￣￣￣￣
　　　　　 'i!ﾞ､ヽ､　ﾞｰ'　　_, ィ,:',:''´　　　 ＜　 6.0リリースおめ！！
　　　　　　ﾞ:､ｨ､jヾｰ::: 'iﾍ　.ノ',ﾘ. 　 　 　　 ＼＿＿＿＿＿＿＿＿
　　　,､- '´　ヽ､ﾞ､　　 {　｀＞"､
　　/＼＼　　　　',　　 }　　 //｀ヽ

>>597
どう違うか、どう良いか説明汁！

「近日中」のままリリースされない。高かったプレミエサービスが切れちゃうよお！

あ、メールが届いてる
何々？受講料一人


(　ﾟдﾟ)

(つд⊂)ｺﾞｼｺﾞｼ

(；ﾟдﾟ)

(つд⊂)ｺﾞｼｺﾞｼ
　　_, ._
（；ﾟ Дﾟ）

おれも目を疑った。どんな金持ちが受けるのかねえ。。

しかも「入門コース」だからなあ。これが「上級コース」とかなったら…?

WOLFRAMのHP、全然見れないんですけど。皆さんいかがですか。
いつも5のMathematica bookの日本語ページを開いてるんだけど、
嫌がられたのかなあ・・・orz

いつものとおり「近日リリース」がでてくるよ。

>604
確認有り難うございます。
ping wolfram.comでRequest time outとなってしまって、
今のところ数学用語の英単を増やすとか、ネットワークのお勉強を
かじってみるくらいしかできそうにない。へにょー。
くらいしかできそうにない。

串さしたらいけました。でも重ーい。

6.0いれました(Mac版)。
ぬるいユーザなもんでインターフェースの違いしか分からないんですが、、
グラフとかNotebook内の表示とか、全体的に表示が大幅に綺麗になってる。
あと図をCmd-Cで簡単にPDFとしてコピーできるようになってうれしい。

>>607
旧版のNotebookは怪しいバグが結構あったが。
今度のはどうかな。

>>607
日本語版でたの？　webではいまだ近日中リリースだけど。

榊原先生、肝硬変だったそうですね

だれ？

>>609
英語版。
>>608
んーぬるいユーザなんで・・。
具体的にどういうバグか書いてくれたら試せるけど。

日本では英語版の販売しないと思ったけど、海外から2ch？

612じゃないが海外だと何か問題があるのか?

Fragile?と婉曲に言っているのでは．．．でもMac版だし？

Fragileって何だ?
もしかしてwarez→ワレず→われ物→fragile?

つまり>>613はJIPの人間ってことか。

われまてぃか

JIPPO 日本電子ごにゅごにょ

x^2+y^2+z^2=1 のように，３変数の陰関数で表された曲面を表示させることはできませんか？

できるよ

>>620
確かにContourPlot3Dでできました！ありがとうございました。

>>608のバグってどういうのか教えて。
俺も英語版使ってるから調べたいんだけど。

なんかmathematicaがようやくversion6になったんだって? おくれてんなー、
matlabがversion6になったのいったい何年前だと思ってんだよ(ﾌﾟ

まだなってねーよボーケ。

ある自然数を入れ替える関数を教えてください。

例
123 → 321

12545　→　54521

45200 →　254

>>625
つ Excel

>>626
レスありがとうございます。

やはりマセマティカに入れ替える機能はないのですか？

>>622
自動字下げ関連のバグだろ。空白が入ったら意味が変わって
困るところに強制的空白入れてくれたりする。（FullForm記述で回避
出来る）テキストの文脈依存で、こうするとこうコケるという法則性を
見つけるのが困難。コメントに日本語を使用すると多発するような気がする。

a[x_, n_] := IntegerPart[x*10^(-n + 1)] - IntegerPart[x*10^(-n)]*10;
k[x_] := Length[IntegerDigits[x, 10]];
f[x_] := Sum[a[x, i]*10^(k[x] - i), {i, 1, k[x]}];

>>625 >>629
f[x_] := FromDigits@Reverse@IntegerDigits@x

>629 >630様

ご回答ありがとうございました。
お陰様で大変勉強になりました。

倍数を判定する機能があれば、教えてもらえませんか？

Modのこと?

6って目を引くような機能って追加されましたか？それともただのお布施？
英語版使ってる人どうです？

すみません。
6種類のグラフィックスを、2行3列の行列形式で表示させるには
どうしたらよいでしょうか？

グラフを「行列形式」ってきみ面白いね

>>635
GraphicsArrayでヘルプ検索。

>>634
ウルフラムによると、Ver.1以来の再発明らしい。
英語版は15日トライアル版あるんだから、使ってみて報告頼む。
http://www.wolfram.com/products/mathematica/experience/request.cgi

Ver.6見た目や操作性の品質がかなり良くなってるね。
中身が再発明ってほどに変わってるかどうかはよく分からんけど。

>>633
modでなく、9の倍数や99の倍数など、即座に計算することは可能ですか？

>>640
1から、好きな個数の配列用意して9とか99にかけるだけちゃうんかと。
あいかわらずなにしたいのかわからん。

>>641
書き込みありがとうございます。
実は、N桁の自然数において、元の数と入れ替えた数の
和と差にはある規則性があることに気がつきました。

それを証明するきっかけとして、mathematicaで倍数判定
を自動化することを考えました。　

>>642
元の数と入れ替えたのもとの数がなにかもわからないし、まず、説明方法を考えたほうがいいと
おもうよ。
例えば、関数をつくりたいなら、インプット要素と期待するアウトプットを書くとかね。

>>643
任意の自然数において成り立つ法則だと思うのですが、例えば、

元の数　12
入れ替えた数　21

この2数の和　→　33（11の倍数）
この2数の差　→　9 （9の倍数）

これは2桁の数の例ですが、3桁、4桁、n桁と拡大したときに、
規則的な倍数変化をするように思ったのです。

インプットと期待するアウトプットについて書いておらず、すみません。

インプットは任意のn桁の自然数です。
アウトプット二パターンあり、一パターン目は、そのn桁の自然数を
入れ替えた数との差のが何の倍数になっているか調べることです。
（99の倍数など）

二パターン目は、n桁の自然数と入れ替えた数との和が何の倍数
になっているか結果が帰ってくることです。

>>644
あいかわらずわかりづらいです。
インプットは、N桁の整数
アウトプットは、なに？

あと、33(11の倍数)の3ではなく11のほうを選ぶことも必要なの？その場合、その基準は？

>>647
ニアミス。
アウトプットはわかりました。
何の倍数ってのは、素因数分解じゃなくて、特定のものをかえすひつようがあるの？

>>646
何度もすみません。

>あと、33(11の倍数)の3ではなく11のほうを選ぶことも必要なの？その場合、その基準は？

例えば、二桁の数を 10a+b とおくと、入れ替えた数は 10b+a となります。
その和は 11a+11b なので、11の倍数です。
その差は 9a-9b なので、9の倍数です。

このような11の倍数であるとか、9の倍数であるといったアウトプットが欲しいのです。

>>647
特定のものを返して欲しいです。
詳しくは >648で述べさせていただいたとおりです。

何度もレスを頂きありがとうございます。

>>648
都合のいい例ばかりで一般的な規則がわかりません。
たとえば1392の場合、どんな値をどういう理屈で返すのでしょう？

ついでに13945あたりも知りたいです。

質問です。あくまで一例ですが、

func[r_] := (
　　s = func2[r];　(*func2はなんらかの複雑な処理*)
　　t /. FindRoot[Sin[t] + t == s, {t, 0}]
)

なる関数を定義したとき、逆関数的に

FindRoot[func[r] == 6, {r, 0}];

などとして、返り値tが目的の値になるようなrを求めようとすると
エラーになります。
なにがいけないのでしょうか？

具体的にエラーになる例あげて。

たとえば先ほどのfunc2を挟まない、

func[r_] := (
　　t /. FindRoot[Sin[t] + t == r, {t, 0}]
)
FindRoot[func[r] == 6, {r, 0}];

このコードはエラーになります。
（ただしエラーと共に正しい答えも…？）

ただこのコードだと、Sin[t]+tにt=6入れれば欲しい答えが出ますが、
そうではないという意味でさっきはfunc2を挟みました。
実際にはfuncはrを受け取ってゴニョゴニョしてループとか条件分岐とか
あって、それからFindRootやって、出てきた答えをまたゴニョゴニョして
返す、といったちょっと複雑な関数なため、逆に辿るのは無理です。

つまり、「ちょっと複雑めな関数を外から逆関数的に使いたくて
FindRootしてみたら、その関数の中にあるFindRootでエラーになる。
なんとかならんか」ということです。

そもそもその逆関数はwell-definedなのかい？

well-definedでググってみたけどよく分からない…
上の例はwell-definedではないのでしょうか

実際のfuncの中身は、とある光学系における幾何光学的な光線追跡で、
入射光角度を引数に最終的な到達点の座標を返すものです。
(mathematicaにやらせる仕事じゃないかもしれませんが)
逆にここに到達させるためにはどんな角度で…ってやろうとしたら
行き詰ったわけで。

普通に2stepのloopをプログラムで書けば？
FindRootで逆関数をもとめられてるわけじゃないんだから。

>>657
2分法のプログラムを書いて何とかなりました
どうもです

英語版のトライアルの申し込みしたんですが、２週間以上たっても全くなんの返事も来ません。
皆さんはどうですか？

問い合わせしてみれば？

Ver.6 日本語版ﾏﾀﾞｰ?

age

ノートブックの出力形式について,

指数部が -3<#<3 の時はそのまま
それ以外のときは3の倍数(EngineeringForm形式)

をデフォルトに設定したいのですが，
ヘルプを見てもどこに設定していいやら分かりません。
(オプション Number/Format らしいのですが…)

式は

NumberForm[%, ExponentFunction -> (If[-3 < # < 3, Null, 3 Quotient[#, 3]] &)]

で合っていると思うのですが
設定するオプションの位置をご存知の方
どうぞ宜しくお願いします。

(未だにこの独特のオプション設定ウィンドウの扱い方が分からない…)

漸化式で与えられた数列の一般公を求めたいのですが、ｲﾏｲﾁよくわからん。

漸化式　a_0=0,a_1=1,a[n+1]=a[n]+a[n-1]　で与えられた数列の一般公を求めたいのですが・・・

RSolve[{a[n+1]==a[n]+a[n-1],a[0]==0,a[1]==1},a[n],n]

として shift+enter 押してもできない・・・

↑すみません。やめるつもりが誤って書き込んでしまいました。

>>664
フィボナッチ数って知ってる??

再帰しちゃうからMathematicaで処理できるんだろうか…

Mathematicaはいずれビジネスとしてはうまくいかなくなるだろう。
Mapleがそれに続くだろう。

>>664
それ実行する前にClear[a]とか?

>>664
RSolve[{a[n+1]==a[n]+a[n-1],a[0]==0,a[1]==1},a[n],n] //FullSimplify
でOK

質問です。
2DPlotで横軸に取るプロット数を任意に決める方法はありますか？
たとえば、Plot[Sin[x],{x,-1,1}]において、プロット数を10個に指定して描くことはできますか？
ListPlot以外の方法でどうかお願いします！

>>671
無理。
ListPlotを使って、Plotと同じ引数をもつ関数かけばいいでＦＡ。

>>672
分かりました、有り難うございます。

ところで、こちらがnbファイルをアップして、プログラムの無駄な部分を検証して下さる方はいますか？
計算時間を短くしたいのです。
無理承知で一応。

追記。
用途は大学院の論文作成です。自分の能力からみても営利的な働きはありません。

PlotPoints->10, PlotDivision->1
とか？曲率を保とうとするので、xが等間隔にはならないけど。

連立方程式って行列の式に簡単に直せますか？

>>676
一目見てできる作業にMathematica使う必要ないでしょ。

連立方程式を解きたいんですが、SOLVEだと時間かかるんでガウスザイデルとか使いたいんで行列に分けないといけないのかと思ったんですけど

連立方程式を入力するよりも、その係数を行列として入力するほうが簡単な件について。

やっぱそうですか。
とりあえずやってみます。
ありがとうございました

NSolveも覚えとき。

ありがとうございます。
試してみます

連立方程式が一次連立方程式だとは一言も言及されていない件について。

Mathematicaスレって、質問しっぱなしとか、
やってみますってだけで結果の報告無しとかいうやつが多いね。

自分の宿題が出来てしまえば用はないってことでしょう

そして宿題くらいしかネタがないってことか。

対角成分が０でそれ以外は全て１のn×ｎの行列の作り方を教えてください。

>>687
MM[n_] := MatrixForm[Table[1, {i, n}, {j, n}] - IdentityMatrix[n]]

>>688
できました！
ありがとうございました。

Mathematicaプログラミングを勉強したいのですが、
オススメの本はありますか？

>>688

1 - IdentityMatrix[n]

>>690
ありがとうございます。
こういう書き方もできるのですね。覚えておきます！

でも、実は全成分１ではなく文字列の行列で、
正方行列ではなく、m×ｎの行列を求めたかったんです。
分かり易くシンプルに質問させて頂きました。

IdentityMatrixで作ったｎ×ｎの単位行列とm×ｎの行列の演算ができないので、
ii成分だけ0にするように書き換えてみました。
ちょっと手間かかり過ぎですかね？

>>691
それで期待通りの動作をしてるんならいいんじゃないでしょうか。
ていうか何か聞きたいならコード出すなりもっと具体的に書かないと
めちゃくちゃ親切でヒマな人がいたとしてもどうしようもない。

V6日本語版ｷﾀｰ

Mathematicaって調べたら2次方程式なんかルートのままで答えだしてくれるんですね。
これ使うと高校数学なんかは余裕なの？例えば整数問題苦手なんだけどこれだと問題文
入力するだけで答えが出るとか？

ダメだダメだダメだ！
苦手なものを苦手なまま回答だけ手に入れようと考えているようではダメだ！
ぶっちゃけ、算盤や電卓より高度ではあるが所詮は道具だから
理解をするのは人間の仕事

自然語解析機能はさすがにversion 10ぐらいにならないと。

自分の入力した式が正しいかどうかを判断できる知識は必要。

調べれば調べるほどすげー、カッコいいグラフのようなものまでかけるみたいだし。
参考までにこれ使ってabcd<a+b+c+d a,b,c,d整数ですべて求めよ。みたいな問題解く
ことってできるの？取りあえず2次方程式はだいたい解けるらしいけどこういうのは
どうなのかなって思って。

上のひょっとしたら自然数だったかも

定義の中で「関数を定義する」のはどうすれば良いですか？
感覚的には， g[f[x]_]:=(h[x_]:=f[x])
という感じで・・・ 実際これを使った時
入力：
g[x^2+3];
Print[h[x]]
Print[h[1]]
結果：
x^2+3
4
を得たいということです

その具体例を返す関数なら簡単なんだけど、二つ目の結果が1を代入に決めうちしていいのかね。
その例だけだと、定義の中で関数定義なんて発想にならないと思うので、ちゃんと考えて書いてみて。

>>701
これだとうまくいかないということです
g[s_] := (h[x_] := s);
g[x^2 + 3]
Print[h[x]]
Print[h[1]]
結果
3+x^2
3+x^2
となって3が代入されたことにならない
定義の中で定義したいわけです

>>702
訂正：1が代入されたことにならない

>>702
ぽかーん。

かなり不満ですが・・・自己解決しました

またか。

いちいち書いておく

自己解決した時も、どう解決したのかは書いてくださいよ
ネットで質問する時の基本事項ですよ

>698
それは余裕で。

>>707 それはすごい！調べたら2次方程式の場合はSOLVEってコマンド使うこと
で解けるようですが上の問題もそうなんですか？それとも別のコマンド？
この分ならチャート式くらいの問題は全部コマンドひとつで解けそうで興奮し
てます。

二年。

おれ5.2で十分に満足なんだけど6にするメリット何かあるかな？

>>710
自分も5.2でいい。6はよくわからん。

Integrate[Abs[Sin[x] - Sin[2x]], {x, 0, Pi}]
の実行結果

Mathematica 5.0 Mac 版：2
Mathematica 5.0 Win 版：2 + Abs'[0]/2
Mathematica 5.1 Win 版：5/2
厳密解：5/2

これは Mathematica 5.0 以前のバグ？仕様？

6.0が送られてきたんだけど、License Certificateに記載されていたパスワードが無効だった。
これはまたWebで登録しなきゃいけないの？

自分は長らくマセマチカ4.1を愛用しています。
アップグレードも馬鹿高いし、数学は基本的に完成された学問というイメージが強くて劇的な機能強化があるようにも思えず、
非数学分野の自分としては十分に満足して使っていました。
こんな自分は間違っているでしょうか？
さっさと最新版にアップグレード汁！という方がおられたらご意見をください。

多分おられません

機能に満足してるなら特にアップデートする必要はない。

OS再インスコを数回繰り返したら認証通らなくなった。
あほらし。正規ユーザーなめてる。

はじめての数式処理ソフト　Ｍａｘｉｍａで楽しむ数式計算と物理グラフィック
著者： 竹内薫　発行年月日：2007/07/20　サイズ：新書判　ページ数：198　ISBN：978-4-06-257560-7　価格（税込）：1,260円　近日販売
内容紹介　理系学生なら、絶対必要！ 必ず役立つ！数値計算はもちろん、数式計算やグラフィックまでなんでもこなす、理系学生必携の「数式処理ソフト」。
科学ライターの著者が初心者に向けて、使い方と使いこなしのテクニックを楽しく解説します。「ペンローズのツイスター」にもチャレンジしよう。
高価な市販品に匹敵する数式処理ソフト「Maxima」付き。（Windows Vista，Windows XP対応）
複雑な数値計算から、式の展開や方程式を解く数式処理、さらに計算した値をCGで表示するグラフィックスなどの能力を備えた「数式処理ソフト」は、理系の学生なら是非もっていたいソフトウェアです。
しかし、市販品の数式処理ソフトは大変高価で、簡単に使うことはできません。本書は科学ライターの竹内氏が、Maximaを使って数式処理ソフトの使い方と使いこなしを、分かり易く解説します。
なお、掲載した全てのコードに対応するMathematicaのコードも収録してあるので、Mathematicaのユーザーにも楽しんでいただけます。
目次
1．「数式処理」って何なの？
2．Maximaの概要
3．まずは遊んでみよう
4．コーネル大学の算数問題
5．ファインマン先生の予備知識
6．ペンローズのツイスター
7．超ひもが棲む世界？
8．ボームの量子ポテンシャルを「見る」
9．いろいろな数学の問題に挑戦する

>>717
サポに連絡したらすぐ更新できんじゃないの?
マザボ交換でライセンスの更新が必要になったとき
メールしたらすぐに再発行されたよ。
英語版でWolframの直接サポートだけど。

>>713
License Certificateってパスワード書いてなくね？

二次元のフーリエ変換は出来るのでしょうか？
例えば
(1,2),(2,4),(4,3),(7,1),(8,2),(9,4),(11,2)
見たいなやつ

mathematicaって買うの必須ですかね？
初歩的な質問ですけど
院生です

必要なら買えば？
理系大学ならソフトがあると思う。

>>722
生協でアカデミック版が安く売っているだろ

個人で買う前に研究室などでの共同購入を提案してみてはいかがか？

全然関係ないが、何度見ても「（品物の名）が売っている」には慣れる事ができない・・・

mathematicaでPlot[function,{x,xx,xxx}]とかすると、
よくy軸が変なところになってしまいます。原点から
表示してもらいたいのですが、どうすればよいでしょうか？
どうかよろしくお願いします。

Plotのヘルプは見たのか?
どういうオプションがあるかいろいろ書いてある。

>>727
いま見てみました.

PlotRange->{0,100}
などとすると、できそうです。
ありがとうございました。

>>728
AxesOriginのヘルプも見とき。

６．０を早速送って頂いたのは有難いんですが、
パスワードが通じません。

そりゃ高飛車wolframに聞くしかあんめえ。また our database shows .. うんねんでごねるかもしれんが。

>>728
ありがとうです。

おい、6はスゴイぞ

具体例を述べてください。

Clock[{1,Infinity,1}]//Dynamic

N[1+0.05/365, 200]
とかやっても、２００桁表示されません。
どうやれば２００桁表示してくれるのでしょうか？

0.05を5/100にするとか。

N[1+5/36500, Clock[{1, Infinity, 1}]] // Dynamic

>>734
初回限定版特典のドラマCDが最高だった

誤爆だと信じたい。

>>737
5/100にしたら表示されました。
ありがとうございました。

>>739
それはスゴイ

Mathematica 6を買ったのでつが、
Mac OS X10.2では動かなかったのですね（；＿；）
ttp://www.wolfram.co.jp/products/mathematica/platforms/
届いてインストールして実行してから気が付いた。
＿｜￣｜○

>>743 レポよろ

レポよろとか書くやつってバカ?
こんな大規模ソフトをすみからすみまでレポできるわけない。
何が知りたいのか書けば調べてやってもいいが。
単に旧バージョンとの変更点ならWolframのサイトに書いてある。

data={{100,30,70},{90,20,60},.....{10,2,6}}のような10×3のマトリックスがあって、
3Dのグラフを作りたいのですが、3列の軸を数値ではなく、
太郎、花子、次郎のような文字列にすることはできますか？

軸のラベルの話なのか目盛りの話なのか。

>>747
目盛りです。
ラベルは、「1年3組」
目盛りを、「太郎、花子、次郎」
のような感じにしたいのです。

Ticksオプションで指定すればおｋ。

ヘルプ見たら書いてるような事をわざわざ教えてやる必要無し。

×書いてる
○書いてある
こういうのが気になるのは歳をとったせいなのか

ああ、俺は>>725さ

>>749
できました！ありがとうございました！

>>750
すみません。ヘルプで探したのですが、わからなくて・・・。
うまく使いこなせるように頑張ります。

Mathematicaのヘルプシステムは出来が悪いよね。6.0は知らないけど。

>>749

Built-in Functions -> Graphics and Sound -> Basic Options -> Ticks

素直な場所にあると思うけどな。
もっと分かりやすい構成ってどんな感じのイメージ?

>>754
全文検索が短時間でできる時代に、ヘルプの構成を考えないといけないなんてどうかと思う。
たとえば、Mapleだと、項目名or全文検索で、引っかかるものを一覧表示してくれる。
Mathematicaは検索しても、最初の一個でとまってしまうでしょ。
そもそも検索にひっかかる数がすくない点でもMathematicaのヘルプの評価は低いです。

>>755
言いたいことはよく分かる。

今のHELPの仕様だったら、全文を載せたHTMLを提供した方がよっぽど向いてる。
プログラミング言語Javaのヘルプファイル形式を念頭に語っています。

>>755
言いたいことは分かるが>>746が欲しいの機能を探すのに
全文検索がどれだけ助けになるのかなあ。
>>754に書いたように素直にたどればすぐ見つかる。
全文検索が便利なときももちろんあるけども。
5のヘルプのインターフェース忘れたけど6は全文検索もやってくれてる。

そろそろver.６はここがすげえって話でないかな。

ver.6のここが糞だって話が聞きたい

>759
キーの連続入力が効かないところかなあ。カーソル移動キーとか普通押しっぱなし
にしてたら離すまでカーソルは動くと思うが、6になってから押しっぱなしにしても
1回しか動かなくなった。すげえ編集しづらい。

カーソルキーはリピートきいてるけど
Control-fとかは動かないからそのことかな。
改善要望送った?

>761
あ、矢印キーは効くの?使ってないから知らんかった。emacsキーバインディングの
リピートが効かなくなってる件です。要望出すべきかなあ。

すげえというほどでなくてもココは改善されたって話でもいいっす。どなたか。

大学卒業後にstudentからproへアップグレードしようか迷っているんですが、
通常のpro版と同じなんでしょうか。
あと、linuxとwin両方で使う（同じパソコンに入ってる）のは、ライセンス二つ必要？

学生でなくなったら、student版を使う権利はなくなる。

>763
DynamicとかManipulateとかLocatorとか、インタラクティブ性がすごく上がって
るのは楽しい。Locator使うとプロットの中から値拾ったりするのが凄く自然にで
きるな。あと横軸の単位を日付にできるDateListPlotは地味に便利。この機能
欲しかったんだ。

xに関する実係数１変数多項式f(x)を、
直交多項式系である第1種チェビシェフ(Chebyshev)多項式で展開したいのですが、
そのような関数をMathematicaで組むにはどうしたらよいでしょうか？

このスレで質問するやつって他の一般的なネタのスレとくらべても
遥かに自分で調べる能力が劣るやつが多い気がするんだが、
数学やってるやつってのはそういう能力が欠落してるのかな。
まあMathematicaを手抜きのために使おうとしてるようなやつらだから
結局自分で調べることもせずに人に聞きゃいいやみたいに甘えてんのかね。

>>768
>>767ですが、すみませんでした
出直してきます

>>768
教える気がないのなら黙ってスルーすれば？

>>768
やりたい機能が、どの分野のどういった式で表していいのかが分からないときは誰にでもある。

コンピューターのプログラミングに似てる。

>>771
お前も調べずに書いてるだろ? そういう段階の話じゃない。
>>770
俺は馬鹿な質問したんだなと少しでも早く
質問者が気付けるようにつっこんであげてるんだけど。
お前のレスの方がよっぽど意味が無い。

あなた傲慢ですね。自分の行動を反省できないと、のちのち苦労しますよ。

どこが反省する点ですか?
自分で調べる/考える能力が何よりも重要だと思うからつっこんだ。
質問者にとってそれより良い対応が思いつかないです。

768は数学は良く分からんがプログラムは詳しいので、
プログラミングで威張ってみたいのだろう。

いや、単に質問の意味が分からなくてとりあえず切れてみただけだろう

>>766
ありがとう！

>>775,776
そういうレベルの質問じゃないからつっこんでるんだが
お前ら何も調べずに書いてるだろ。そういうレスこそゴミ。

2chで威張る奴は2chでしか威張れないカス。スルーが良。

//ThruThread

2chでは威張る意味も謙虚になる意味もない。
このゴミの中から有益な情報を拾えるかどうか。

Histogram関数でヒストグラムを書いて、その頻度をｔ分布とフィッティングさせたいのですが、
どのようにしたらよいのでしょうか？
NonlinearFitが使えそうだと思うのですが、うまく行きませんorz

どんなデータなのか、具体的にどうやってどううまくいかなかったのかくらい書け。
こっちから質問してまで君が分かってないところを見つけてくれるような人は
めったにいない。

また来たよ・・・

>>783が上で叩かれてるやつなのかどうか知らないけど
>>782の質問の仕方が悪いってのには同意。

>>782
データの平均と分散だしてみたら？

Linuxで使っているのですが、コマンドラインのインターフェイスでは
ヒストリは使えないのでしょうか？
具体的には、
$ math
として起動させて、ターミナルの中で実行するやつですが、
↑のキーを押したりすると、(Ctrl-Pも試したけどだめだった)、
過去のヒストリを表示してくれるといいな、と思ったのですが、
こういう機能を実現する方法はないでしょうか？

よろしくお願いします。

>>784
ゴミみたいなツッコミだけで何のcontributeもできないならだまってれば?

>>787
ターミナル直接じゃなくてemacsを使ってもよければ
mathematica inferior modeとかで検索するといいかも。
俺は使ったことないから使い勝手は知らない。

こんなのを思い出したｗ

ttp://game11.2ch.net/test/read.cgi/gsaloon/1183533410/
> 4 名前：ゲーム好き名無しさん[] 投稿日：2007/07/04(水) 16:34:32 ID:qO0PN2Rl0
> >>2
> 意味がわからないのに書き込むなら地獄に落ちれば？

>>788
ありがとうございます。emacs は大歓迎です。
mathematica.el というファイルをもらってきました。
これからつかってみて、結果を報告します。

>>790
すばらしいです。
mathematica付属のやつより（僕的には）全然使い勝手がいいです。
いまのところ、Plot[]などのgraphic系の表示ができないのですが、
これはそもそもできないのかこっちのやりかたが悪いのか不明。
emacsの中なので、Ctrl-aやCtrl-eとかでパンパン動けるのがいい。
教えてくれてありがとう。

contribute

disturberばかり。

794 年　平安京に遷都

２を赤色で印字するには

こんにちは、
下記で、２を赤色で印字するにはどうしたら良いでしょうか？

Print[“2”];

ﾜﾛﾀ

Print[Style["2", Red]];

皆がMathematica詣でをして、上納金をバージョンアップの度に収めている額を
日本全体で累積したら相当な額になるだろうな。
日本国内でMathematicaを使ったユーザーの経験とか知識とかバグの問題は
結局最終的には日本国内の知識にはならず、開発元にだけ知識が集まって
いく。こういう構造だと、日本には基本となるソフトの開発のための
知識や人材が貯まらないし、周辺の産業も育たない。
上納金を日本国内に拠点を持つ開発に振り向けて、できればオープンソース
のシステムをOSもアプリケーションも作る方が世のため人のため国のため
世界のためになると思う。

お返事ありがとうございます。

すいません、赤字の”２”が印字されずに、
Style[2,Red]と印字されます。なぜでしょうか？

>>799
Mathematicaのバージョンが古いから。
>>798
誰に対して言ってるのか日本語がよく分からんけども
オープンソースのMathmaticaライクなソフトは既にあるが。

>>800
あっても半端で使えない物が多い。また、基本性能が
良くても、既存のソフト、情報（参考書、利用した教科書）
の量ではMathematicaに勝てず(Mapleがその典型）やはり
使えない。

Maximaのテンソル関係の機能がMathmaticaを圧倒するぐらい
充実すれば利用者がもっと増えるのでは。

英語まで含めたらmapleのほうが本とかの情報量は多くなったよ。

Mathematica6.0になってグラフィックス周り結構かわったね。自動修整が比較的使えるけど
直すところ多いわ。

少し前に話題になってたヘルプについては、まさしくHTMLを用意したのとたいして変わらない
使い勝手になってる。チュートリアルが点在してたりして、まだ構成が頭に入ってないけど。
Mathematica Bookはなくなったのかな。

>>802
だったら、Mapleに乗り換えるか。
安いし、バグ少ないし、速い。

http://maple.bug-list.org/index.php
を見ればわかるけどMapleは、正しい答えを返さないという意味でのバグは多いよ。
Mathematicaは
Integrate[z/(Sinh[2z] + Coth[z]), {z, 0, Infinity}]
をPi/32と返してくれるけど、Mapleだと最新の11でも間違った答えを返してる。
特殊ケースだからあまり出くわさないけど。

derive 6にも負けることがあるし、Java Interfaceのほうでやるとやたらと時間がかかるようになる
計算があったり…と文句ばかり書いてますが普段はMaple使うことのほうが多いです。

>>801
オープンソースなんだから半端でも君が改善していけばいいんじゃないの?
それが君の言う世のため人のためっていう方向なんじゃないのかい?
結局自分ではなんにもやらないけどいいものが無料で欲しいってか。
でオープンソースとか言ってたのにMapleとか言いだすし。なんだこのアホな流れ。

Mapleの話は別の流れだし、有用だったよ。

あーMapleの話は>>801じゃない別の人が言ってるってことね。了解。

>>800

ver5.0ですが、駄目です。まさかver6でしょうか？

Styleはver.6からだよ。

mathematicaって安く買うことって出来ないでしょうかね？
アカデミックパックとかってないですよね？

>>810
数学板だというのに数学に関係ないことばっかり。
せめて検索したらすぐ分かるようなことは自分でどうにかしてくれ。

ver6.0ってプレミアサービス無しだと、たった1台にしかインストールできないのね。

>>809

了解しました。verで印字に色を出す方法を教えて下さい。

>>813
すいません。間違いました。
ver５で印字に色を出す方法を教えて下さい。

>795
StyleForm["2", FontColor -> Red]

>>815

試しましたが駄目です。黒色です。

StyleForm["Jibun de help miro baka", FontColor -> RGBColor[1, 0, 0]]

訂正
×　"Jibun de help miro baka"
○　" You must read the HELP."

>>818
つまらん。お前もバカ。

>>812
詳しく説明して
マイクロソフトとかアドビみたいに認証が必要になったってこと？

>>819
ありがとう。

ver6は、ほとんど新しいアプリに生まれ変わってますね。
（互換性を保ってるのがスゴイ）

>>822
確かに凄いが、値段がそれ以上に凄い！
個人が買うにはあまりにもきびしい、、、。

mathematica(ver4.0から)/maple（V R5から）を個人所有しているが、
バージョンアップだけでも大変。

>>820
6は使ってないけど、5.2ですでにそうだった。インストール過程で
mathIdとかいうPC固有の番号みたいのだして、それをwolfram researchへ
おくるとそれに合わせた文字列を送ってきて、それを入れると動く。

厶ヵ⊃＜
苛々する
あまのじゃく
くそったれ(`o´)
●●●らめ！！







あ〜ちょっとすっきり(--;)失礼しました

>>825
それはStudent版ではなくて一般の個人が買う40万円のパッケージでも同じ？

>827
少なくともStudent版からPremierにアップグレードしたパッケージでは同じだった

おれの5.2はMathID必要ないぞ？

仕事に関係なく、個人で趣味として買ってる人いるのかな…

趣味で買うには高いよ〜

似たようなフリーソフトもあるし。

mathematicaでSinhの計算をしたいのですが
例えばSinh[5]とか入れても入力と同じ答えが
出力されます。
どうすれば具体的な値を計算することが出来るのでしょうか？

N[Sinh[5]]

ドキュメントの最初のほうぐらい読もうぜ

個人の趣味で持ってますが、なにか？

よかったですね。

数学板だというのに使い方レベルの質問とライセンスの質問ばっかだが、
個人で買うほどの>>835がきっと面白いネタを投下してくれる。

ネタと思われてるのかな？本当に買ったんだよ。ビックカメラで。
と書くと余計にネタっぽいが、小田急の新宿西口店に売ってるんだよ。
最近は休日に動画作って遊んでる。

ほんとは割れ物では？

最新版の割れ物出回ってますか？

>>838
>>835がネタだなんて言ってないよ。個人の趣味で買うくらいだから
無理矢理使わされてる学生と違ってちゃんと使ってるんだろうし、
きっと面白い話のネタを投下してくれるだろうと。

8/4=2

遅ればせながらMathematica6にしてみたけど、5で困ったStringFormの挙動
が変化してなくて残念。
StringForm["``", 1`4] とか入力すると

1.`3.9999999999999996

とか珍妙な結果になるんだよなー。まあMathematica的にはもっともな理由がある
のかも知れんが、ここはやっぱり「1.000」と表示して欲しいところ。

Wolframの中の人はStringForm使わんのかな。レポート書きでは実数をフォーマッ
トしてプリントしたいことが頻繁にあるんだが。

昔のVBみたいｗ

>841
835じゃないけど、じゃあ夏休みの宿題でやったネタを投下しよう。fooが何をす
る関数かわかるかなー。(実行すると一発でわかるけど)

foo[n_] :=
If[n <= 1, {{1}},
Module[{m = foo[n - 1],
h = ({#} &) /@ Range[(n - 1)^2 + 1, n^2 - n],
w = Range[n^2 - n + 1, n^2]},
If[EvenQ[n], Prepend[Join[m, Reverse[h], 2], Reverse[w]],
Append[Join[h, m, 2], w]]]];

>>843
君がやりたいのはこうだろ。
StringForm["``", OutputForm[1`4]]

>846
いや、引数にHogeFormをかましてやれば良いのは分かってるけど、書式付き出力
書くたびにいちいちNumberFormとかScientificFormとかEngineeringForm
とか引数毎に10数文字もタイプするのがクソやってらんねーと言う話です。
凝ったオブジェクトならともかく実数くらいデフォルトでそれなりに整形してく
れてもバチはあたんないと思うんだけどなー。

StringFormは、.でraw `とかも意味わからん。

>>847
君がどの書式が欲しいのかは君しか知らないと思うのだが。

せっかくネタを提供してくれた>845に
せめて笑顔をふりまいてあげてください＞＜

(￣ー￣)

Out[1] = ￣ー￣

(＠ｏ＠)

これで3a+5b(a,b>0,整数)が整数でないもの全て求めよって問題とける？

意味が分からん

Σの下にｋ＝１をつけたいんですが
Ctrl - だと右斜め下になってしまいます
解決策はありますか？

>>856
あなたの入力だと、数列などのindexと認識されます。Σの式とは完全に意味が異なります。

インストールしてすぐのdefault状態で出てくる
BasicInput.nb（標準入力）でΣを選び、入力したい項目に式を書いて下さい。

Mathematicaと同じようなことが出来るフリーソフトって何がありますか？

>>858
MuPAD　などがあります。

>>859
ＭｕＰＡＤは売りもの。無料版はもはや存在しない。

>>859
回答ありがとうございます。
コマンドは同じなのでしょうか？

コマンド？

たたかう　 どうぐ
じゅもん　 にげる

>>860 知らなかった。無料版を探しまくるところだったよ。

>>860
無くなったのか…
大学生時代にお世話になったよ・ﾟ・（ﾉД｀）・ﾟ・。

>>856
ありがとうございます。パレットから選ぶしかないんですね・・・
ΣやΠ記号の下の文字を含めて
ショートカットだけで書くことはできないでしょうか・・・

さっき
苦労の末
ベクトルa→　を　a ctrl 7 Esc rule Esc で書けることを知りました。

では、いまは無料ソフトは何があるのでしょうか？

>>865
Esc sum Esc Ctrl+Plus n=1 Ctrl+% 100 Ctrl+Space n
な感じでできると思う。ver.6でしか確認してないけど。intやPiはsumを置き換えてね。

Ctrl+%とCtrl+Spaceは、汎用的なショートカットなので覚えておくと吉。

>>866
いまならMaximaかな。
yacasはさすがにだめか。オレはまだぎりぎり戦力として使ってるけど。

可換代数とか個別分野ではそれぞれ分野ごとによくできたソフトがあります。

と書いてるけど、可換代数と関連する代数幾何以外のソフトがよくできてるか知りません。

>>867
うおぉぉ〜すげ〜

ありがとうございました((ヾ(｡･ω･)ﾉ☆ﾟ+.ｧﾘｶﾞﾄｩ♪
沢山のΣとΠが出てくる数式で・・・
パレットにもううんざりしてたところです

先ほど本屋に行くと

Word2007で数式を書こう！という本が売られていました。
凄い凄いって著者は言うんだけど、パレットのオンパレード
・・・おまけにもちろん式展開などの計算は自分でして
１つ１つ打ち込みしないといけないから・・意味ないですよね・・・

人に読ませる文章ならWordの数式エディタも悪くはないよ。

計算結果込みで、数式がほとんどの文章だとMathematicaが向いてる。
もっとこだわる人はTeXだろうな。

OpenOffice.org Mathはどうですか

いや、計算してくれるものが欲しいのか
WordもTexもOOoMathも計算はできないなｗ

>>871>>873
ありがとうございました。
Wordの方もできることに越したことは無いので少し勉強しようと思います。
かんしゃっです

関数fを定義して、それに０〜５の値を代入した時のｆの値を知りたくて
f/@{0,1,2,3,4,5}]としたら、上手く出力されたんですが
いかんせん{f0,f1,f2,f3,f4,f5}というように、続けて横にズラズラ〜っと
でてきたので見難いです。

これを
f1
f2
f3
f4
f5
というようにタテに表示するにはどうしたらいいですか？

行列、ベクトル表記にしたら？

ところで、みなさん
MathematicaではComputer Modernのフォントって無いんでしょうか？

Ctrl　＋　Shift　＋　T　でも　綺麗じゃないよね・・・
特に　dx　の　ｄ　がいただけない・・・

>>876
それだと（　）が出るんじゃないか？

Grid
Column
いろいろあるよ

DateListPlot: x軸の目盛を時間にする
ListLogPlot: y軸の目盛を対数にする

x軸が時間でy軸が対数の散布図を描きたい時はいったいどうすれば
いいんだ… orz。

WolframはDateListPlotの内部で使っているTicks関数を公開してくれたら良いと
思った。つーか俺が知らないだけ?

なければ、データを対数変換してからプロットすればいいじゃん。

すみません、教えてください。
式の本数と変数の数がnである連立方程式はどうすれば解くことができるでしょうか？
具体的にはx[0]〜x[n-1]を変数とした以下の連立方程式です。kは定数です。

x[0]-3 x[1]-2 x[2]-x[3]==4/k
x[0]+2 x[1]-3 x[2]-2 x[3]-x[4]==5/k

i>=3 && i<=n-3のとき
x[i-3]+2 x[i-2]+3 x[i-1]-3 x[i]-2 x[i+1]-x[i+2]==6/k・・・・(1)

x[n-5]+2 x[n-4]+3 x[n-3]-2 x[n-2]-x[n-1]==5/k
x[n-4]+2 x[n-3]+3 x[n-2]-x[n-1]==4/k
x[n-3]+2 x[n-2]+3 x[n-1]==3/k

です。x[i]を求めることはできるでしょうか。
上記の式をeqnlistに格納して(i>=3 && i<=n-3を除く)
RSolve[eqnlist,x[i],i]でいいような気がしますが、(1)式の差分方程式と他の境界条件の式が矛盾するためダメではないかと思っています。

もちろん、nにこちらで何かしらの定数を与えれば、Solveで解くことができますが、nに何も代入せずnの時の一般解を求めたいです。

よろしくお願いします。

>881
自分で形を見るだけならそれで良いけど、人に見せる用のグラフなのでy軸には
あの対数表記のtickが欲しいのだ。今回は時間もないので結局Excelで描いた。
負けた気分(何にだ)。

とりあえず工夫してみた＞Y軸対数&X軸時間のプロット

ListLogPlotからY軸の目盛りを取り出す

yTicks = (Ticks /. AbsoluteOptions[ListLogPlot[data], Ticks])[[2]];

DateListPlotで対数加工したデータをプロットし、さっきの目盛を合成

DateListPlot[data /. {x_, y_} -> {x, Log[y]},
FrameTicks -> {Automatic, yTicks}]

これでめでたくプロットできる。

逆をやろうとしてDateListPlotからFrameTicksを取り出そうとしたら
AbsoluteOptionsがエラーを吐いて取り出せないのは、中で何か変なこと
してるんだろうか…。

RealDigits関数の仕様が変わってる様子
5.ｘまでは結果を丸めていたようだけど
6では打ち切りになっている

886

Manipulateおもしろいね

お手軽に実験できるのはいいね

ポアソン分布を表示したいのですが

PoissonDistribution[5]

という表記であっていますよね？
なぜか何もアウトプットされないのですが・・

900

>>889
<< Statistics`DiscreteDistributions`は書いたか？

誰か教えて欲しい
混合分布に従う乱数を作ろうとしているんだが、Randomでは
「Real，Integer，あるいはComplexでなければなりません」と出て作れない。
それぞれの乱数を作って合体させたもので最尤推定量を求めると、
混合分布としての式とは数値がかなりずれている。

何かいい手があったら教えて欲しい。V5.2で作成中。

Mathematica　は偶数バージョンがいいねぇ
　Ver.2 , Ver.4 , Ver. 6

特にVer.3はクソだった。Ver.1は機能不足。Ver.5はVer.4とそんなにかわらん

Ver.6いいの？　Premium入ってるんで送られてきたけど、What's newみてもいまいちピンとこない。
インタラクティブうんねんとは関係しない重い計算ごりごりやらせてるだけなんで。

mathematicaと matlabってどう違うのですか？
数学系の人は前者を使う人が多そうですが

Mathematicaは数式処理システム。
Matlabは行列計算システム。

前者は主に記号処理に重点を置いていて、
後者は主に数値計算に重点を置いている。

どっちでもできることもたくさんあるけども
うまく使いわけないと目的によっては非常に効率が悪くなる。

こんにちは、

y=625.733*((2/5)*(1-x)*a2^2-(4/105)*(1+2*x)*a2^3);
があります。
このとき、a2は
a2->-((7*(-1+x))/(1+2*x))-s1;
です。

ｓ１は
nが１のときは、ｓ１＝０
ｎが２以上のときは、s1=(92*n)/(y*10^6)
となります。

ｎを増やして、ｙが5.9に一番、近づいたときの
ｎを計算したいのですが、どのように計算すれば
良いでしょうか？
下記は、ｎを増やして、数値計算で求めたものです。
直接計算する方法を教えて下さい。
x=0.767476;
For[n=1,n<2*10^4,n++,
If[n==1,s1=0];
If[n>1,s1=(92*n)/(y1*10^6)];
y=625.733*((2/5)*(1-x)*a2^2-(4/105)*(1+2*x)*a2^3);
y1=y/.a2->-((7*(-1+x))/(1+2*x))-s1;
If[y1-5.9<0,Print["n=",n]];
If[y1-5.9<0,Print["y1=",y1]];
];

＞＞896
Maple でやってもらうと
問題の式を、x, y, n の関数として
f:= (x,y,n)-> y-(625.733*((2/5)*(1-x)*(-((7*(-1+x))/(1+2*x))-(92*n)/(y*10^6))^2-(4/105)*(1+2*x)*(-((7*(-1+x))/(1+2*x))-(92*n)/(y*10^6))^3));
で定義して、f( 0.767476,5.9,n)=0 の解 n を求めると n=13820.40245、59148.69709 となりました。

ということです。Mathematicaでは

x=0.767476;
z=Solve[y-(625.733*((2/5)*(1-x)*(-((7*(-1+x))/(1+2*x))-(92*n)/(y*10^6))^2-(4/105)*(1+2*x)*(-((7*(-1+x))/(1+2*x))-(92*n)/(y*10^6))^3))-5.9Š0,n];
Simplify[z]

では計算できませんが、どこが悪いのでしょうか？

>897

失礼しました。下記で求まりました。

x=0.767476;
z=Solve[y-(625.733*((2/5)*(1-x)*(-((7*(-1+x))/(1+2*x))-(92*n)/(y*10^6))^2-(4/105)*(1+2*x)*(-((7*(-1+x))/(1+2*x))-(92*n)/(y*10^6))^3))==0,n];
y=5.9
Simplify[z]

>898
やはり、解が一致しませんでした。
y=5.9
のときは、近い値が得られるのですが、
ｙ＝0.1
では答えが異なります。
如何でしょうか？

よく分からないけど
先に y=5.9 ってやってから Solve した方がよさそうですよ
>>898のだと丸め誤差の影響か虚数部がひどいことになりました

y=0.1のときは
{{n -> -347.016}, {n -> 651.842}, {n -> 742.06}}
ではだめなの？

>>900
お返事ありがとうございます。
>ではだめなの？
すいません。駄目なのです。
質問の本質は変更しませんが、
複雑な式は、分かりにくいだけなので止めて、
式を下記に変更したいと思います。
下記が、“０”に一番近づくのは
“７”付近なのですが、
このように数値計算をして求めるのではなく
式（たぶん微分方程式）を
解いて、下記と同様な解を
得るには、どのような式（微分方程式）
を作ればよいでしょうか？

a2=.;
For[n=1,n<2*10^1,n++,
If[n==1,s1=0];
If[n>1,s1=n/y];
y=3/2*a2^2+a2^3;
a2=2-s1;
f=5;
If[y-f<0,Print["n=",n]];
If[y-f<0,Print["y=",N[y]]];
If[y-f<0,Break[]];
];

もし、正しい式が得られましたら、ｆの値を
変更しても、正しい解が得られるはずです。

質問の本質はなんなのさ。

>902
お返事ありがとうございます。
＞質問の本質はなんなのさ。
誤解を招く書き方をして申し訳ございません。
本来の目的は、896に書いたプログラム（数値計算）
から導かれる答えを、数値計算ではなく、式を作って
解いて、同じ答えを導きだしたかったのです。しかし
896に書いたプログラムは、やたら複雑でわかりにくいので
901のとおりプログラムを単純にしました。

私の希望はあくまでも、数値計算で求められる解を
数式を解いて、得ることです。
901で答えをご教示頂きましたら、それをそのまま
896に私が置き換えるつもりです。

教えてください(>_<)
整数a、bを係数とする2次方程式x^2＋ax＋b＝0が有理数の解p/q(p、qは互いに素な整数)をもつならば、その解は必ず整数であることを証明せよ。

>>901
Mathematicaの問題じゃなくなったのでよそでやってくれ。
数学の初心者向けの板で馬鹿にされてくるといいよ。

>>905
お返事ありがとうございます。

>Mathematicaの問題じゃなくなったのでよそでやってくれ。
数％は、mathematicaの問題でもあるのでは？
>数学の初心者向けの板で馬鹿にされてくるといいよ。
まあ、そう言わずに、解っているのなら、せめて
答えだけでも教えて下さいよ！！直ぐに退場します。
この問題は、初心者じゃわからないです、、、
でも、かっこいいこと言って、本当は、答えが？では

ぷ。

答えは必ずあって、方程式には必ず解析解がある。
つまらなそうな世界だな。

Premier入ってホームユーザのアップデートきたんだけど、
パスワードの取得がやっかい。
Webに詳細な個人情報とパスワードが必要な理由ってのを打ち込んだらきたパスワードが４日間だけ有効って代物。

まともなパスワードほしければこれを見ろってんでみたらPDFファイル。
それ印刷して手書きで個人情報書き込んでパスワードがほしい理由を英語で説明して
アメリカへファックスし、approvalが降りるの待てときたもんだ。

何十万も払った上、事務手続きまで要求されるとは。

そんな面倒なこともあるの?
俺もPremierだけど、「あんたはPremierだからこっからダウンロードしてくれ。
ちなみにパスワードはこれ」とか言うメールが来て、別に面倒はなかったけど。

前にダウンロードで失敗したことがある。途中で切れると二回はできない。
お前はもうダウンロードしたからだめと表示される。途中で切れててもね。

連絡して再認可が下るのを待てばいいんだけど、また失敗すると面倒なんで
今回はあえてCD送付を選んだわけ。そしたらこちらは事務仕事が強制だったw


ところで起動して眺めたら、デバッガーがついたみたいだけどこれって前からあったっけ？
もし使いやすいデバッガーなら嬉しい驚きなんで、とりあえず簡単なプログラム
書いて試したけど、やはりマニュアル読まないとだめみたい。
もう使ってみた人いたら感想教えて。

>>908
>つまらなそうな世界だな。
皆様、超多忙にも関わらず、結局結論は出ず、ただ時間の無駄使いでした。
結論：お騒がせしました事をお詫び致します。

誤爆？

>>895
ありがとう。

P[x]という式を長軸a、短軸bの楕円部分で積分するにはどうしたらよいか教えてくれませんか？

>>915
例
Integrate[x^2 y^2 Boole[x^2/a^2 + y^2/b^2 <= 1],{x,-Infinity,Infinity},{y,-Infinity,Infinity},Assumptions->{a>0,b>0}]

>>916
ありがとうございます！実行したらうまくいきました！感謝です！！
｡･ﾟ･(ﾉД`)･ﾟ･｡

連投すんません(´Д｀ヽ)(/´Д｀)/
mathematicaで例えばT[x]とR[x]を畳み込み積分させるにはどうすればいいですか？
ググってもわかりまへんでした(#+_+)

ver.5とver.6って共存できる？

>919
問題なくできる。まあ同じ設定ファイルを読もうとするから書き方に気をつける
必要あるけど

>>920
ありがとう！
ところで、
> まあ同じ設定ファイルを読もうとするから書き方に気をつける
というのは、どういうことでしょうか？
6と5で書き方が異なるということですか？

>921
添付のライブラリの構成が大幅に変わってるので、5で入れてたNeedsとかをその
まま6に読ませるとWarningでまくりってこと。

mathematica6の日本語の体験版がないのはなぜ?

>>922
ご丁寧に有難うございました。気をつけます！

UnitStepを使って半径rの円内部にだけP[x]を掛けたいんだけど
θの範囲(0〜π)の指定ってどうしたら出来ますか？？

[現在の式]
T[x_] :=P[x]*(UnitStep[x+r*Cos[θ]]-UnitStep[x-r*Cos[θ]])

どなたか mathematica 6 のノートブックのファイル形式を
5.2 の形式に変換する方法をご存知の方おられませんか。

一度 6 で開くと 5.2 で開けなくなりました。
もちろん、関数まで自動で書き直してもらう事は期待してません。
（RandomIinteger[] から Random[Integer, x] に戻すとか）

私のやってる計算では、5.2 の方が３倍速いので、6 で書いた
ものを 5.2 のノートブックにしたいのであります。

>>926
やっぱりむやみやたらに６にするのは危険だな。
もう少し待っていよう・・・

拡張子maっていつのバージョンのファイルですあ？

>>926
>>927
すいません、 3倍じゃなくて1.3倍です。ひどいタイポでした・・・
しかし 6 はメモリの消費量もまたすごいです。

.m ファイルにするのはちょっとなあ。

見栄えを浴するためにメモリを食うのかな？　Ｖｉｓｔａ傾向というか。

英語版のmathematica使ってるんやけど
グラフの軸に
X軸距離
って名前つけて、その図をワードにコピペしたらX以外文字化けしました(ToT)
コレどーにかなりませんか？

>>931です
すんません、自己解決しました
Copy As⇒Bitmap
でコピペしたら文字化けせんかったです

数学オリンピックのリーダー格だった開成から
５大会連続で代表が出てないのは異常だな。
選考方法に問題がありそうだな。
まあ詳しく言わないけど。

Mathematica4です。ListPlotでプロットする点を○や△などの記号に変えることはできますか。あと、できれば各記号ごとに中間値で直線を引きたいです。
無理なのでしたら、ほかにどのような方法（座標指定して直接記号入力など）がいいと思いますか。

>934
マニュアルを読むのが良いと思うよ。MultipleListPlotとかPlotJoined->Trueとか
書いてあるから。

Mathematicaを初めて購入しようと検討中ですが
Win用とMac用、どちらが良いでしょうか。
因みにパソは両方あります。

メモリをたくさん使える方。

ParametricPlot3D[{(2 + 0.5Cos[u])Cos[v], (2 + 0.5Cos[u])Sin[v], 0.5Sin[u]}, {u, 0, 2Pi}, {v, 0, 2Pi}]
を使用し３Dの図形を書いたのですが、それをどうすれば回転させることができますでしょうか？よろしくお願いします。

マウスで図形をぐりぐり動かすと言う意味？
Ver6 なら特に設定なしでできるし
Ver5,4あたりなら
<<RealTime3D`
ParametricPlot3D[{(2 + 0.5Cos[u])Cos[v], (2 + 0.5Cos[u])Sin[v], 0.5Sin[u]}, {u, 0, 2Pi}, {v, 0, 2Pi}]
でできたような気がした

Mathematica5.2

・計算終了予想時間を計算中に出力することはできますか？
・カーネルの中身を次回起動時にも参照できるように残すことはできますか？

Ver6ってやっぱお布施だったのか？あんまレビューみたいなのないし

6っていったい何が一番変わったのですか？

メジャーバージョンが奇数から偶数に変わった

グラフはきれいになった。
インタラクティブ性がよくなったそうだけど、使いそうもないのでわからん。
デバッガーが入ったようで喜んだんだけど、使い方がわからない。ヘルブで検索してもWebが呼ばれるだけ、それらしいところ探してたら一巡しちまって結局分からず。
昔のノートブック読み込んでセーブするとver6の形式になりver5ではまともに読めなくなって、これは困った。情報センターのシステムはver5だったりするから。ver5形式でセーブってオプションは見つからなかった。

Iｆ文で、
If[条件,　式1,　式2]
とした場合、式1や式2を複数の式にするにはどうしたらいいんでしょうか？

それだけでは何がしたいのかわからんｗ

>>945
; で継げる. つまり

If[条件, 式 1a; 式1b; 式 1c, 式 2a; 式2b; 式 2c]

TRUE なら 式 1a; 式1b; 式 1c
FALSE なら 式 2a; 式2b; 式 2c

>>947
私も；を使ってみたのですが、そのようにすると、
式 1a、式1b、式 2a、式2bが評価されない答えが返ってきてしまいます。
aからc全て評価されるようにするにはどうしたらよいのでしょうか？

ひょうかはされているのじゃ

studentバージョン
ってどんな制限付くのですか？

その教育機関の学生でないとライセンス違反というだけ。
プログラムに制限はないよ。

>>948
If[条件，a；b；c；｛a，b，c｝，d；e；f；｛d，e，f｝]

TRUE なら{a，b，c}
FALSE なら{d，e，f}
というふうにリスト形式で出力される。

>>950
Studentバージョンの場合、OS再インストールするだけで同じPCでも再認証が必要。
学校の住所、学校の電話番号、学校名、ユーザーの氏名、再認証理由、等をWEB上で書かなければならない。
再認証を何回も繰り返していると、学生証明をFAXで求められる。この場合WEB認証は一時的に不可能になる。

うざいことこの上ないので、バイナリエディタで（ｒｙ

デスクトップとは別に
notePCで使う場合
また金払わないとダメなんじゃん....
知らんかった

ここまで厳格なアカデミックライセンスも凄いね

マイクロソフト様でも
デスクトップとノートの２台にインストールすることを認めてくれているのに

ver6.0（Win）にGTensorM入れてOptionsの内容もちゃんと調整したんだが
たとえばqload[SCHW]でシュバルツシルト計量読ませたら

　xSuperscript[1] = r, xSuperscript[2] = th, xSuperscript[3] = ph, xSuperscript[4] = t

みたいに出て、本来表示されるはずのシュバルツシルト解の数式が

　ds Superscript[2] = ds[SCHW]

って出てきてろくに使い物にならないんだけど、何かもうちょっと設定弄らなきゃダメかな？
卒研で使うことになって、研究室側が買うので入れろってことで初めて入れて今色々弄ってるんだけど。
研究室のPC（ver5）の方で動いてるのは確認したんだが…もしかして6で使えなくなった？

間違えた…GRTensorMね。

どうせ仕様に無い機能使ってプログラムが書いてあるんだろ。
仕様に無い機能は、版が変わって振る舞いが変わっても文句はいえない。

やっぱver6 はだめか。

>>958
あー、やっぱそんなとこか…。

根拠0の憶測を信じるなよ

y(x,t)=A sin(kx-ωt)のアニメーションはどのようにやればいいのでしょうか？
基本的な質問でスマン

Reply:>>962 Javaでなんとかしろ。

y[x_,t_]:=a Sin[k x-\[Omega] t];
Animate[Plot[y[x,t]/.{a->1,k->1,\[Omega]->2\[Pi]},{x,0,10}],{t,0,10}]

あとは適当にいじれ、ただし6.0じゃないと動かんぞ

横軸は同じで、縦軸のスケールが違う２つのグラフ(一方は10000程度、もう一つは20程度)を重ねたいのですが、
どのようにすればいいのでしょうか？
Showだとスケールの同じものしか出来ませんでした

よくみたら Mathematica のスレッドだった。

成分数任意のベクトル関数演算を定義することは可能ですか？

すみません、補足します。

f[指定された多変数]=（任意の多変数からなるスカラー関数）

というタイプの数式を仮定して、入力式に対して「指定された多変数」主体の
Gradや内積をとり、また「任意の多変数」に実際の数値も入力して結果を
出力するようなサブルーチンを作りたいのですが、この場合入力式とは別に

・数式に用いた変数のリスト
・演算に使う変数のリスト
・数式に入力する定数のリスト

を同時に入力させて、リストの長さ、要素の取得などを応用した反復演算などで
地道に組んでいくしかないんでしょうか？

基本的な質問ですみません。

data = {{0, 0}, {1, 10}, {2, 20}, {3, 30}, {4, 100}, {5, 200}};

gr1 = ListPlot[data,
PlotStyle -> {RGBColor[1, 0, 0]}]

上のgr1のグラフと、

Do[Plot[a x ( x - 1), {x, 0, 10},
PlotStyle -> {RGBColor[0, 0, 1]}], {a, 1, 5, 1}]

このようなアニメーションのグラフを重ねて出すには
どうすれば良いのでしょうか？＾＾；
よろしくお願いします。

このような３元連立方程式を解きたいのですが、どのようにすればいいでしょうか。
知恵をお貸しください。

(a - 234.25 + b*c)*(1/1.01713 - 1/1.00036) -
c*(115/1.01713 - 156/1.00036) == 500,
(a - 234.25 + b*c)*(1/1.00973 - 1/1.00077) -
c*(119/1.00973 - 154/1.00077) == 500,
(a - 234.25 + b*c)*(1/1.01027 - 1/1.00005) -
c*(115/1.01027 - 157/1.00005) == 500

>>969
これでどう？

Animate[Show[
Plot[a x (x - 1), {x, 0, 10}, PlotRange -> {{0, 10}, {0, 200}},
PlotStyle -> {RGBColor[0, 0, 1]}], gr1], {a, 1, 5, 1}]

一本買ったら、
自宅用ライセンスというのを
もう一本もらった

自宅でも仕事しろ　ってか

u1=[ [ { arctan( ( 1-k ) * cot( u1*v*w ) -b*tan(u1*v*w) ) } /( 2*a) ] + ( q*π ) ] / [ { arctan( (1-k) * cot(v*w) -b*tan(v*w) ) } / (2*a) ]
u2=[ [ { arctan( ( 1-k ) * cot( u2*v*w ) -b*tan(u2*v*w) ) } /( 2*a) ] + ( r*π ) ] / [ { arctan( (1-k) * cot(v*w) -b*tan(v*w) ) } / (2*a) ]

上の2式において

a=sqrt(k)*(y/x-x/y)
b=k*(y/x)^2-(x/y)^2

mathematica流の書き方じゃなくてすみません。
これら2つの非線型方程式からxとwを数値解として求めるプログラムをつくりたいのですが・・・

x,w 以外の値はすべて既知で、
u1,u2 は 1<u1<u2<=3 である任意の実数
q,rは 0または1
それ以外は任意の正の実数
分母は必ず正の値(になるはず)
最適解を求める際に、分子のarctan(・・・)の項が負の値になってしまう時にはqまたはrを「1」にしてπを加える
それ以外の場合にはq,rは「0」

と、こんな感じなのですが,どなたかサクっと作ってくださいませんでしょうか・・・

おまえ文系だろ

>>965
参考に。
http://support.wolfram.com/mathematica/graphics/2d/twoaxisgraph.ja.html

質問です。

aa={-3,-1,1,2,3,5,2,1,-2,-4,-4,-3,1,5,1,-1,-2}

のようなリストがあるとします。
このaaから

cc={2,8,12,15}

のようなリストを作りたいのですが、これをスマートに行う計算方法を探しています。
現在は、

bb=Table[If[aa[[n]]*aa[[n+1]]<0,n,neednot],{n,1,Length[aa]-1}];
cc=Select[bb,NumberQ];

という感じで処理して計算できてはいるのですが、ちょっと無理やり感があるので、
もっと直接的に行えればよいのですが…

>>976
符号の切り替わる場所のリスト、でいいんだよね？
短くなったけどどうだろうこれ

cc = Join @@ Position[Sign /@ Times @@@ Transpose[{Drop[aa, -1], Drop[aa, 1]}], -1]

たとえば
x^(2/3) (x + (x^2) x^(7/3))
に
x=k y^3　(aは任意の実数)
を代入して全ての括弧を取り払いxの関数に展開したいのですが、どうすればいいでしょうか？

yの関数です、すみません。

>>978
まず、
expr=x^(2/3) (x + (x^2) x^(7/3)) /. x -> k y^3

expr2=Collect[expr,y]

でだめなの？
もし、kもyも実数でいいなら
Collect[expr, y,
Simplify[#,
Assumptions -> k \[Element] Reals && y \[Element] Reals] &]
とすれば簡単になる。aじゃなくてkだよね？

>>977
ありがとうございます！
まだまだ素人なのでちょっと見た感じでは文法が理解できないですが；
週明けに早速試してみようと思います。

>>976-977
0が入っている場合があるのか、あったらどうするのかがちょっと気になる

>>980
だめみたいです。
k^5 y^15 + k y^3 (k y^3)^(2/3)
　　　　　　　　　　　　　↑
　　　　　これが残ってしまって。

次の目的として最高次数を取得したいので、正確に評価できるよう
この部分も開いてしまいたいのですが…。

二年百四十六日。

>>982
えっと、>>976ではわかりやすいよう簡単に書きましたが、
実際のaaにあたる部分は特殊関数を用いた関数をサンプリングしたものなので、
ぴったり0になることは考えていないです。
しかもその関数はただの特殊関数ではなく、色々と複雑な処理を行っている
（さらにパラメータふたつを変えながらTableで回す）ので、
根の近似値を初期値としてFindRootで解くということが（現状の私の技術では）できないのです。
この方法で解いた値を初期値として解く事は勿論可能でしょうが、現状以上に膨大な時間が
かかることになる＆そこまでするほど厳密な値を必要としていないので。