〓 Mathematica 2 〓 - 暇つぶし2ch

〓 Mathematica 2 〓 ..

2:１３２人目の素数さん
04/03/06 10:25
2

3:１３２人目の素数さん
04/03/07 12:27
Mathematicaはただで使うにかぎるよね

4:１３２人目の素数さん
04/03/07 14:25
駒場のiMacでver.5がつかえるようになってる．．やｔｔた

5:１３２人目の素数さん
04/03/07 17:53
みたいだね。アカウントもらうの面倒だし、あそこまで
行くのも面倒だし、MATHEMATICA　５　買ったし（たけーよ！まじで）
駒場のマック館はわたしには不要なり。

6:１３２人目の素数さん
04/03/07 18:20
私は工学部で論文をTEXでなく、Mathematicaで書こうという変わり者です。
数式はショートカットを使えば、Texよりはるかに早く書けますし、
グラフはgnuplotよりも綺麗に作れます。
そして何より計算も出来ます。

しかし……
数式の番号だけがどうも駄目です。
reportのスタイルシート内の
NumberedEquation
を使っているのですが、これは連番対応で、
(1) (2) (3) ……
と言う風にしかなりません。
Texでは章番号も考えられていて
(2.1) (2.2) ……
と出来ます。

誰か、NumberedEquationを章番号を対応したものに拡張してくれませんか？
あと、等号揃えで数式を書く方法があれば教えてください。

7:１３２人目の素数さん
04/03/08 03:50
>>1
算数が苦手なはずのさくらたんがMathematicaとは、これいかに？

8:１３２人目の素数さん
04/03/08 16:25
待てマジか

9:１３２人目の素数さん
04/03/09 15:17
age

10:１３２人目の素数さん
04/03/11 01:16
>>3
同意。
>>5
MATHEMATICA 5をわざわざ買ったのか・・・
はっきりいって馬鹿だな

11:１３２人目の素数さん
04/03/11 01:17
age

12:１３２人目の素数さん
04/03/18 18:18
教えて君で申し訳ありません。Mapの第1引数で指定する関数が、複数の引数をとる場合はどのようにすればいいのでしょうか。

13:１３２人目の素数さん
04/03/22 06:15
age

14:１３２人目の素数さん
04/03/23 20:38
>12
もっと具体的に

15:１３２人目の素数さん
04/03/27 17:07
未だに浮動小数点演算が使えないアカデミック版を使っています。
やはり費用を捻出できません。
Mathematicaと同じようなフリーソフトはあるのでしょうか？
Rとか？

16:１３２人目の素数さん
04/03/27 18:27
>>15
アカデミック版と普通の製品版とで機能の違いは無いはずだけど？？
っていうか浮動小数点演算が出来ないってバージョンいくつだよ

それからRは統計解析ソフトだよね
URLﾘﾝｸ(www.okada.jp.org)

17:１３２人目の素数さん
04/03/28 13:44
>>16
2.2です。
アカデミックと言うかstudents版は浮動小数点演算に87を使用できません。って制限が書いてあった。

18:１３２人目の素数さん
04/03/28 15:13
>>17
現在の最新バージョンは5.0だ。
大学生だったら大学生協で2~3万円くらいで買えるはずだから買っとけ。
話はそれからだ。

あと、オンラインソフトウェアに付いては
使えるオンラインソフトを語ろう@数学板
ｽﾚﾘﾝｸ(math板)l50
MATLAB
ｽﾚﾘﾝｸ(sim板)l50
あたりを参照してごらん。

19:１３２人目の素数さん
04/03/29 02:38
新年度を迎えるにあたって大学のパソ室にMathematica 5.0が
キターーーーーーーーーーーーーーーーーーーーー！！！！！

20:１３２人目の素数さん
04/03/29 03:19
>>17
>浮動小数点演算に87を使用できません

(ソフトが)浮動小数点演算が出来ないのではなく
CPUの浮動小数点演算命令(通称80x87命令)を使わないという意味では？

21:１３２人目の素数さん
04/03/29 23:07
>>20
そう書いたつもりですが．．．
購入したのは学生時代。
なんとかしてアカデミック買っても良いが、>>18さが教えてくれたところを参照してからにします。

22:１３２人目の素数さん
04/03/30 03:29
NYとかMXは？

23:１３２人目の素数さん
04/04/01 00:01
>22
WinnyやWinMXでダウンロード出来ないか？って事
但し、知っている通りMathematicaは非常にガードが高く、精巧にファイルをコピーしてもインストールして使える環境にする事はほぼ不可能。
Math-IDがインストールするパソコンごとに生成されるので、ライセンスと譲られたパスワードがあってもダメ。
ウルフラムリサーチか、販売代理店で新たにインストールしたパソコン専用のパスワード貰わなければいけないため。
これじゃ絶対裏技こけないよ。

24:１３２人目の素数さん
04/04/01 20:07
俺はこけましたが何か？

25:１３２人目の素数さん
04/04/03 00:41
>>24
通報されたいのか？

26:１３２人目の素数さん
04/04/03 03:54
こける=失敗

27:１３２人目の素数さん
04/04/03 03:59
Mathematica 4.2（カラフル）
Mathematica 5.0（黄金）
アイコンはどっちが好き？

28:１３２人目の素数さん
04/04/03 05:38
>>27
俺は4.2

29:１３２人目の素数さん
04/04/09 09:32
明日再放送開始なのでage

30:１３２人目の素数さん
04/04/11 11:53
>>29
何が？

31:１３２人目の素数さん
04/04/13 14:40
教えてください。

関数f[x]をNSolveのように方程式の数値解を用いて定義します。
このf[x]をNMinimizeやFindMinimumを使って最小値を求めようとすると
失敗します。
どうやら、f[x]のxを実数で評価しなくてはいけないのに、NMinimizeが
記号変数として評価しています。

どうしたらいいでしょうか？

32:１３２人目の素数さん
04/04/13 19:50
>>31
f[x_]　:=　NSolve[...]
と定義する。

33:１３２人目の素数さん
04/04/14 10:35
MathIDを出てこない版があるしょ
unsecure

34:１３２人目の素数さん
04/04/15 04:50
>>33
何がいいたい！？

35:１３２人目の素数さん
04/04/18 00:34
>>33
MathIDを要求されるのはスチューデント版だけだと思うんだけど

36:１３２人目の素数さん
04/04/18 22:46
式の中のパラメタ x が実数であることを表明するには Element[x, Reals] とやりますが、
x > 0 を表明したいときはどうすればよいのでしょう？

37:１３２人目の素数さん
04/04/18 22:48
>>36
Simplify[(x^2)^(1/2),　x　>　0]

38:１３２人目の素数さん
04/04/19 07:50
>>23
keygenがあるだろ。　もっとちゃんと調べてくださーい。

39:１３２人目の素数さん
04/04/19 13:44
4.1が私の環境ではうまく動作しなかった(RSolve)のですが、
5の金色アイコンになってからはスムーズになった。
5は英語版を使用しているため、
5のmanualと、4.1用の日本語manualとを見比べながら使ってます。
英語力、特に数学英語力の無さを心から恥じる。

40:１３２人目の素数さん
04/04/19 18:07
mathematicaを起動しても、In[1]:が出てきません。どうすればいいの？

41:１３２人目の素数さん
04/04/19 19:34
FindRoot[f[x],{x,100}]により求まった解x->1.414を他の式に代入する場合は、
a=FindRoot[f[x],{x,100}]と他の変数に置換した上で使いまわせばよいのでしょうか？
この方法だと何か上手くいかず、例えば3aを計算しようとすると、
3a$7968->1.414みたいになってしまいます。

42:１３２人目の素数さん
04/04/19 21:05
>>37 サンクス！

43:１３２人目の素数さん
04/04/19 22:25
>>41
x　/.　FindRoot[f[x],　{x,　100}]

44:１３２人目の素数さん
04/04/20 07:26
>>43
ありがとう

45:44
04/04/20 07:33
しかし、今試してみたら出来ませんでした。
解がx$189->1.414であれば、x=x$189置換されているようです。

46:１３２人目の素数さん
04/04/20 07:57
>>45
何がいいたいのかわからん。x=x$189置換、って？
答えがx$189　->　1.414　なのにx$189が含まれていない式
に代入するってなにがやりたい？

x　->　hoge　==　Rule[x,　hoge]であって、
f　/.　Rule[x,hoge]　はf中のxをhogeに置換(xにhogeを代入)するものだ。

47:１３２人目の素数さん
04/04/20 18:54
球座標で球を描く方法はありませんか？

例えばr,θ,φをx、y、zに変換して3Dで描くことはできたのですが。
r,θ,φをそのまま使って3Dを書きたいのです。

48:１３２人目の素数さん
04/04/20 19:45
>>47
>　球座標で球を描く方法はありませんか？
意味がわからないが
<<Graphics`Shapes`
Show@Graphics3D@Sphere[1,30,30]
とか？

>　r,θ,φをそのまま使って3Dを書きたいのです。
無理。関数の内部で変換するようにしろ。

49:１３２人目の素数さん
04/04/21 20:56
>>47
ParametricPlot3Dとかじゃやだ？

50:44
04/04/21 22:30
何とかできました。
ﾚｽ下さった方どうもありがとう。

51:１３２人目の素数さん
04/04/22 16:46
Vine Linux の上では、なぜか LINUX版のMathematicaがうまく動かないのですが、
(起動はするけど、画面がおかしい)だれか、コツを教えて欲しいです。
Vine って RHじゃないから、だめなのかな?

52:１３２人目の素数さん
04/04/22 18:39
いろいろとVineは古いんじゃない？
Linux板の方がいいと思う。

53:１３２人目の素数さん
04/04/22 18:48
Vine Mathematica で検索すると動いているようだけど。

54:１３２人目の素数さん
04/04/25 11:39
>>1
昨日のさくらたんには萌え狂ったよ。スレ違いｽﾏｿ。

55:age
04/05/01 09:17
age

56:教えて下さい。
04/05/03 03:31
みなさんは、MATHEMATICAをどんなLINUXの上で実際に利用しているのでしょうか?

57:１３２人目の素数さん
04/05/03 03:32
おいらはゲイツのOS使ってますが何か？

58:１３２人目の素数さん
04/05/04 23:53
Mathematicaのアカデミック版は自分が学生のときしか使えないような
仕組みになっているのですか？毎年どこかへ登録しないといけないとか。

59:１３２人目の素数さん
04/05/05 18:15
>>58
アカデミック版とスチューデント版とはまた別物だよ。
詳しい説明を書いていたんだけど途中でブラウザが飛んでしまい、
再び書く元気が無い。
wolfram.co.jpとかhulinks.co.jpあたりをみて自分で調べてみてくれ。

60:58
04/05/05 23:42
>>59
なんかアマゾンみたところ20万以上するみたいなんですが
このソフト使用可能なのは1ユーザですか？
高いですね。

61:１３２人目の素数さん
04/05/07 16:01
大規模な計算ができなかったり、Mathlinkだかが制限されてるのがスチューデント版で
フルパッケージがアカデミックな職業に就いてる人や学生に割引されてるのが
アカデミック版
たしかこんな感じ

前者は３万くらいで、後者は１０万以上するはず。
割引なしだともっと高いけど

62:１３２人目の素数さん
04/05/07 17:13
随分前から機能制限はないはずだが>>student版

63:１３２人目の素数さん
04/05/07 17:38
>>61,62
URLﾘﾝｸ(wolfram.co.jp)

64:１３２人目の素数さん
04/05/07 23:33
ようするにアカデミックとスチューデントの違いは何？

65:１３２人目の素数さん
04/05/08 02:50
>63の説明を読む限り、購入時に学生証が必要なくらいか？
オフィシャルで敢えてマイナス面を書かない可能性もあるけど。

66:１３２人目の素数さん
04/05/08 04:41
>>60
Mathematicaは、WinXPのようにアクチが必要だが、Winと違いアクチに必要な
keygenが世に出回っている。　バイナリも探せばある。

67:１３２人目の素数さん
04/05/08 17:05
>>64
スチューデント版は要学生証コピーで、実際にインストールして使用するには
WolframにE-mail（英語）でMath IDなるものを申請する必要がある。
このMath IDはインストールし直したりすると変わってしまうので、その際には
再びWolframにその旨を説明して再取得しなくてはならない。
また、契約では大学を卒業したら使ってはいけないことになっている。
そのかわり廉価で一般製品版にアップグレードが可能。

アカデミック版は学位授与機関に所属している教職員向けのディスカウント版。
Math IDの申請とかは不要。

だいたいこんな感じかな？

68:１３２人目の素数さん
04/05/08 21:50
なるほど性能に制限はないけど
他の部分に制限があるんですね。
3.0の頃から変わったもんだ

69:１３２人目の素数さん
04/05/14 21:31
NumberedEquationを使っている方はどれぐらいいらっしゃいますか？

Section 1
x = 1 (1)
y = 2 (2)
x + y = 3 (3)
Section 2
x y = 2 (4)

こんな風にセクションが変わっても連番が続いていくのが嫌なんですが
Section 1
x = 1 (1.1)
y = 2 (1.2)
x + y = 3 (1.3)
Section 2
x y = 2 (2.1)
こういう風にするやり方を知りませんか？

70:１３２人目の素数さん
04/05/14 22:11
StyleSeetを編集しろアホ！

71:１３２人目の素数さん
04/05/20 13:18
質問です。
2Dグラフのｙ軸をx軸に対して60°傾けたいのですが方法がわかりません。
教えてください。

72:１３２人目の素数さん
04/05/21 12:52
71補足　つまり斜交系座標を2Dで書きたいんです。

73:１３２人目の素数さん
04/05/21 18:05
>>71-72
<<　Graphics`Graphics`
Show[SkewGraphics[
　　　　FullGraphics@Plot[Sin[x],　{x,　0,　2　Pi},　
　　　　　　　　DisplayFunction　->　Identity],　{{1,　1/2},　{0,　Sqrt[3]/2}}],
　　DisplayFunction　->　$DisplayFunction,　AspectRatio　->　Automatic]

74:１３２人目の素数さん
04/05/22 23:32
Mathematica5を初めて入れたんですが
起動時に音がないんですが…
これって無くなっちゃったの？（泣）

75:１３２人目の素数さん
04/05/23 08:50
無いけど、ver4以前にはあったの？

76:１３２人目の素数さん
04/05/23 23:28
>>75
はい、ありました。
設定をいじったら起動音がつきました。
やっぱりこれがないとMathematicaって気がしません。

77:１３２人目の素数さん
04/05/24 16:14
またまた、すいません。
斜交座標系についてなのですが、sinのグラフで教えていただいたのですが
単位円で斜交座標系にするのも教えていただけませんか？
他力本願なのはわかっていますが、初心者なもので勘弁してください。

78:１３２人目の素数さん
04/05/25 00:14
>>77
<<　Graphics`ImplicitPlot`
<<　Graphics`Graphics`
Show[SkewGraphics[
　　　　FullGraphics@
　　　　　　Graphics@ImplicitPlot[x^2　+　y^2　==　1,　{x,　-1.2,　1.2},　{y,　-1.2,　1.2},　
　　　　　　　　　　DisplayFunction　->　Identity],　{{1,　1/2},　{0,　Sqrt[3]/2}}],　
　　DisplayFunction　->　$DisplayFunction,　AspectRatio　->　Automatic]

79:１３２人目の素数さん
04/05/25 10:27
＞＞78　
ありがとうございました。
ほんとに助かりました。

80:１３２人目の素数さん
04/05/26 13:16
すいませんが、振り子の運動のグラフィックスを書きたいのですがわかりません。
どなたかよろしくお願いします。

81:１３２人目の素数さん
04/05/26 15:26
(1) x^5 - 2x^4 + 3x^3 + x^2 - x + 1 = 0
(2) e^x - 3sinx - 5 = 0
(3) e^x + 1/(1-x^2) = 0
これら3つの方程式の解とグラフが出せません。　Solve　や　Plot　だけではできませんでした。
ど～か、教えてください。　

82:１３２人目の素数さん
04/05/26 16:42
固有空間の基底を求める際に、たとえば、
NullSpace[λE－A]とか使ったら、求まるんですが、
求めた結果、行ベクトル（複数あれば複数個）で出力されますよね。
でも、そうではなく、たった一つの基底の例を列ベクトルで出力させるコマンドってありませんか？

「基底１組を列ベクトルとして出力させよ」って言われたんですけど、調べてもわからなくて。

83:KingMathematician ◆5lHaaEvFNc
04/05/26 16:43
Re:>>81
出来ないはずはない。
Plot[x^5-2x^4+3x^3+x^2-x+1,{x,-3,3}]
Plot[Exp[x]-3Sin[x]-5,{x,-3,3}]
Plot[Exp[x]+1/(1-x^2),{x,-3,3}]
NSolve[x^5-2x^4+3x^3+x^2-x+1==0,x]
NSolve[Exp[x]-3Sin[x]-5==0,x]
NSolve[Exp[x]+1/(1-x^2)==0,x]
(現在手許にMathematicaが無いのでこれで大丈夫かどうか…。)

84:KingMathematician ◆5lHaaEvFNc
04/05/26 16:44
Re:>>82 転置のコマンドを探してくれ。

85:１３２人目の素数さん
04/05/26 16:48
>>84
転置のコマンドってTransposeのほかにあるんすか？
Transpose使ったら、列ベクトルとして出力されずに、行列になっちゃうんですよね。
行列としてではなく、列ベクトルで表示したいんですよ。
基底の組が二つなら、列ベクトルが二つ出力されるような。

86:KingMathematician ◆5lHaaEvFNc
04/05/26 16:51
Re:>>85 Mathematicaのリストは、縦横の区別が無かったような気がするが…。
行列でいいんじゃないの？

87:１３２人目の素数さん
04/05/26 16:53
>>86
やっぱりそうですか・・・俺もそう思うんですよね。
そんなコマンドどう考えてもないような気がして。

88:KingMathematician ◆5lHaaEvFNc
04/05/26 16:54
Re:>>87
あるいは、行列を得たうえ、
MatrixForm関数で出力してみるとか…。

89:１３２人目の素数さん
04/05/26 20:01
８０に答えてエラい人

90:１３２人目の素数さん
04/05/26 20:42
89なのですが、振り子でなくて振り子時計の作り方教えて下さい。
振り子が振れるごとに針が動くような。
お願いします(ToT)

91:１３２人目の素数さん
04/05/27 06:28
>>90
もっと問題点を絞ってくれよう。

振り子の運動方程式がわからないのか、方程式の解き方がわからないのか、
グラフィックの描き方があわからないのか、アニメーションにしたいのか・・・

92:１３２人目の素数さん
04/05/27 10:26
>>91
すいません。グラフィックが書きたいです。
できれば、振り子が一回振れるごとに秒針が一秒進んでいくような時計を作りたいと思っています。
どなたか宜しくお願いしますm(_ _)m
他人の力に頼りすぎというのは分かってますが、どこから始めていいのか分からないです。

93:１３２人目の素数さん
04/05/27 10:29
92です。何度もすいません。グラフィックでなくて、アニメーションを書きたいです。

94:１３２人目の素数さん
04/05/27 12:31
NSolve[Exp[x]-3Sin[x]-5==0,x]
NSolve[Exp[x]+1/(1-x^2)==0,x]
で、計算させると次のような注意をされてしまいます。

Solve::tdep:
本質的に非代数的な方法で解かれる変数が方程式に含まれているようです

解決策はありますか？　
Plotの方は上手く行ったみたいなのですが・・・。
お願いします。

95:１３２人目の素数さん
04/05/27 13:28
>>94
FindRoot[Exp[x]　-　3Sin[x]　-　5　==　0,　{x,　2}]
ヘルプを引け。See　alsoぐらい読め。

96:１３２人目の素数さん
04/05/27 16:13
＞＞95
遂に、怒られてしまった。
でも、ありがとうございます。

97:１３２人目の素数さん
04/05/27 17:43
>>78
SkewGrafphicsじゃ出ないんですけど。
>>79
コピペしてできたんですか？

98:１３２人目の素数さん
04/05/27 18:22
>>97
Graphicsも綴れない上にコピペすらできないとは
さすが教えて君ですね。

99:１３２人目の素数さん
04/05/28 00:40
>>92を教えて頂ける神はいませんか？

100:１３２人目の素数さん
04/05/28 01:35
>>98
当たり前じゃないか！これが教えて君のすごさ。
SkewGraphicsだとできないのよ～。なんで～？
>>79
微分積分をなめるな！

101:１３２人目の素数さん
04/05/28 01:36
>>100を教えて頂ける神はいませんか？

102:１３２人目の素数さん
04/05/28 07:56
神は>100の愚かさを嘆いておられます

103:92
04/05/28 08:28
100がそんなことするから教えてもらえないじゃないか！

104:１３２人目の素数さん
04/05/28 09:01
>>103
そういう問題じゃないよ。
要求するグラフィックのレベルがわからんし、激しく面倒。
掲示板でちょこっと張れるレベルじゃない。

PolygonとかLineとかつかって地道に描け。
あるいは外部のドローソフトやモデラーでつくって取り込むか。

シンプルな2Dでよければ、Arrow,　Circle,　Rectangleあたりを組あわせて、
時計を描いて、振り子の運動方程式にしたがって振り子部分を動かす。

105:１３２人目の素数さん
04/05/28 11:30
>>104すいません。やっぱり、そうですよね。自力で頑張ってみます。
分からないことがあったら、聞きますので、その時はよろしくお願いします。

106:１３２人目の素数さん
04/05/28 13:55
>>100
コピペで書けますけど・・・。
微分積分はライフワークですよね！
教えて君に救いの手を・・・。

107:１３２人目の素数さん
04/05/28 13:57
>>100
>>78はコピペで出来ますよ。

教えて君に救いの手を・・・。

108:１３２人目の素数さん
04/05/28 15:15
>>107
あれ？できた！！できたぞー！！

109:１３２人目の素数さん
04/05/29 01:02
すいませんが、振り子の運動方程式を教えて頂けないでしょうか。
バカですいません。

110:KingMathematician ◆5lHaaEvFNc
04/05/29 09:26
Re:>>109
振り子は、運動がある球面に束縛されていると考えると良いだろう。
当然、滑らかな束縛である。

111:１３２人目の素数さん
04/05/29 09:42
>>110
式で具体的に書くとどうなりますでしょうか？

教えて君ですいません。

112:KingMathematician ◆5lHaaEvFNc
04/05/29 20:42
Re:>>111
とりあえず、重力加速度は一定の値gをとることにしよう。
振り子の質量をmとして、rを振り子の長さとして、振り子の鉛直下向きからの角度をθとすると、
振り子に働く張力と重力の合成は、
mgsin(θ)という大きさで、
方向は振り子の「軸」に向かう接線であり、
向きは下に向かう方向である。(θ=0,πの場合は0だから方向も向きもない。)
とりあえず、振り子の中心を、三次元空間の原点にもってきて、
鉛直上向きを三次元方向の正の向きとすると、
(x,y,z)(ただし、x^2+y^2+z^2=r^2)における振り子の運動方程式(振り子の座標が(x,y,z)である。)は、
m(x'',y'',z'')=-mgsin(θ)(cos(φ)z/√(x^2+y^2+z^2),sin(φ)z/√(x^2+y^2+z^2),√(x^2+y^2)/√(x^2+y^2+z^2))
但し、φ=Arctan(y/x)(x>0),Arctan(y/x)+π(x<0),π/2(y>0,x=0),3π/2(y<0,x=0)であり、
θ=Arctan(z/√(x^2+y^2))(x^2+y^2>0),0(z=-r),π(z=r)である。
検算よろしく。

113:１３２人目の素数さん
04/05/29 23:49
>>112
ありがとうございます。２Ｄで書こうと思ってるので、z座標は考えなくていいですよね。
本当にありがとうございました。

114:１３２人目の素数さん
04/06/05 10:04
いつの間にか4.0から5.0にバージョンアップできなくなってた。

115:１３２人目の素数さん
04/06/11 20:07
755

116:１３２人目の素数さん
04/06/17 23:35
LiveGraphics3Dでアニメ書こうとしてるんですけど
URLﾘﾝｸ(up.isp.2ch.net)
こう書いてるのに正しいファイルが出力されない…

どなたか原因分かる方いらっしゃいませんか？
Mathematica4の日本語化したものです

117:１３２人目の素数さん
04/06/18 17:44
>>116
>　こう書いてるのに正しいファイルが出力されない…
プログラムは正常に動作しているようだが、
君の脳内「正しいファイル」というのを他人にもわかるように
説明してくれないか。

いったい何がやりたいわけ？

118:１３２人目の素数さん
04/06/18 18:12
関数f1,f2,f3…
が有って
その和を取りたいのですが

Σfi

とやるとf*1＋f*2…と認識されるのですが
どうすれば良いのでしょうか…

119:KingMathematician ◆5lHaaEvFNc
04/06/18 22:05
Re:>>118
f1,f2,f3,などもまたシンボルとなる。
第i項をfiなどとは書けない。
これは、素直にf1+f2+f3+…
と書くのが早いだろう。
関数がとても多い場合は、
f[i,x]のように関数を定義し直した方がいいと思う。
他にも方法はあるかもしれない。

120:１３２人目の素数さん
04/06/18 22:09
>>119

121:１３２人目の素数さん
04/06/18 22:35
>119のやり方が一番分かりやすいかな。
f[i,x]と、擬似的な２変数関数にするのは上手い方法ですね。

122:１３２人目の素数さん
04/06/19 00:55
>>118
f[i][x]と定義するのが良い。

123:１３２人目の素数さん
04/06/19 09:07
できました！ありがとうございます

124:１３２人目の素数さん
04/06/19 21:14
最近大学に入って使い始めたのですが、
計算の途中式を吐かせることはできるんでしょうか

125:１３２人目の素数さん
04/06/19 21:35
もっと具体的に書いてくれないと。

126:１３２人目の素数さん
04/06/19 23:00
例えば微分をやらせるときに
sin(2x^2)というときに
(2x^2)'*cos(2x^2)
＝4xcos(2x^2)
などという風に途中の計算を入れるということはできるのでしょうか

127:１３２人目の素数さん
04/06/20 04:57
d1 = D[Sin[2x^2], x]
x = n;
d2 = d1

これじゃだめかな？

128:１３２人目の素数さん
04/06/20 15:48
Plotで大きな数（1e5以上）をプロットするとき、目盛の数字に対して
NumberFormのExponentStepみたいなオプションを指定して、
指数表記させないことってできるのですか？
ぐぐっていろいろ調べたけど、どこにも書いてなくて....
ご存知の方、教えてください。
環境：Ver 5.0.1（OS X）

129:１３２人目の素数さん
04/06/20 15:54
URLﾘﾝｸ(www.google.co.jp)

ここに色々あるから見てみると良いと思う

130:１３２人目の素数さん
04/06/20 17:30
>>129

うぅ～ん、やはりでていないですね。
日本語サイトはだいたい見たとこばかりだし...

どうもありがとう。

131:１３２人目の素数さん
04/06/21 12:52
すいません教えていただきたいのですが。

Solve関数などを用いて、導いた複数の解をそのまま次の演算に用いたい場合、
どうすればいいのでしょうか？
例えば
Solve[{2x+3y+5z==12,
5x-3y-4z==4,
3x+2y-z==-2},{x, y, z}]

などとして方程式を解かせ、その直後にこの解を下のような式に代入させ計算したいとします

　　x^2+y^3+z

どういう風にやればいいのでしょうか？初歩的ですいませんが、教えてください。お願いします。

132:１３２人目の素数さん
04/06/21 21:06
図を書きたいのですが、球を書かせるような命令はないのでしょうか？
ParametricPlot3Dで書くとどうもギザギザで…

133:KingOfKingMathematician ◆H06dC8bpwA
04/06/21 22:34
Re:>132
PlotPointsとかいうオプションなかったっけ？

134:１３２人目の素数さん
04/06/21 23:53
>>126
組込み関数の途中計算を知ることはできない。
Mathematicaの式として定義されているものならTraceで見れる。

MyD[x_^n_,　x_]　:=　n　x^(n　-　1)
MyD[f_　g_,　x_]　:=　MyD[f,　x]g　+　f　MyD[g,　x]
MyD[f_,　x_]　/;　FreeQ[f,　x]　:=　0

MyD[2　x^2,　x]　Cos[2　x^2]　//　Trace

>>128
自分でFormatを定義せよ。
Format[MyForm[expr_]]　:=　FromDigits[RealDigits[expr]]
Plot[10^x,　{x,0,10},　FormatType　->　MyForm]

>>131
x^2　+　y^3　+　z　/.　Solve[...]

135:１３２人目の素数さん
04/06/22 05:48
>>132
<<Graphics`
Sphere[1,30,30]//Graphics3D//Show

136:128
04/06/22 06:20
>>134

ありがとうございます！
勉強します。

137:KingOfKingMathematician ◆H06dcQwwvA
04/06/22 08:10
H06dCeRArc : #VC)Q%ult
H06dF0OtH. : #px:wSH,c
H06ddWXDNY : #um1m+｢MN
H06dcuQgY2 : #B45L0K\y
H06deD4siU : #6Oｦj*ｾ?ｻ
H06d2xYhm6 : #Fｻn4wJ+.
H06dQfJLXY : #3)H0x'U/
H06dgGdMtc : #W5IBF@Gz
H06dWwDj/. : #@=c\X8｣x
H06d4z7h8. : #8,:M0Fwf
H06d/CP0JY : #=!7｣*~mp
H06dpnDLQ6 : #xTfjQF3b
H06dhKAsgc : #,2C1n{5-
H06dEu.odw : #WYmH+?Sq

138:KingOfKingMathematician ◆H06dC8bpwA
04/06/22 09:25
誰か147まで回しといてくれ。

139:１３２人目の素数さん
04/06/22 09:56
Mathematica 4.2のシリアルなくしてしまった
鬱だ

140:１３２人目の素数さん
04/06/22 09:59
4.0.2.0ならしってたのにおしえないけど。

141:１３２人目の素数さん
04/06/22 17:39
5.0を買って無問題

142:128
04/06/22 23:16
>>136

Formatで書式を指定する方法ではPlotLabel、FrameLabelを設定していると
エラーになってしまいます...
ということで、いろいろ悩んでFrameTicksのオプションを保存して書き換える
方法で解決しました。MathematicaのFAQに書いてありました。

fticks = FullOptions[gl1, FrameTicks];
newfticks = fticks /. {
x_, x_, {0.00625,
0.}, {GrayLevel[0.], AbsoluteThickness[0.25]}} :> {
x, FromDigits[RealDigits[x]], {
0.00625, 0.}, {GrayLevel[0.], AbsoluteThickness[0.25]}};
Show[gl1, FrameTicks -> newfticks]

もっと簡潔な方法ってありますか？

143:KingOfKingMathematician ◆H06dcQwwvA
04/06/23 01:09
H06dzQx4rY : #:g3cAOOS
H06dABjF.Q : #S\_I//x｢
H06dligu62 : #E?ｦｻy4E6
H06dUsR8lg : #｣%'ｼ|｢N2
H06dRCIVrg : #F?Z3vｦa7
H06dhLHyjw : #0\SE8.99
H06dgb.cI6 : #sｻ.Z[vb0
H06d/75ZQQ : #*Kl]U67h
H06dS8zXQQ : #S:g5xxr]

144:１３２人目の素数さん
04/06/23 02:05
>>142
型毎に違う出力をするFormatを書く。

Format[MyForm[expr_Real]]　:=　FromDigits[RealDigits[expr]]
Format[MyForm[expr_]]　:=　OutputForm[expr]

Plot[10^x,　{x,　0,　10},　PlotLabel　->　"10^x",　Frame　->　True,　
　　FrameLabel　->　{Bottom,　Left,　Top,　Right},　FormatType　->　MyForm]

145:128
04/06/23 05:58
>>144

ありがとうございます。
なるほど、型ごとの指定というのが当然ながら可能なのですね。
大変勉強になります。
ヘルプ、オンライン等で確認しましたが、その他expr_*で指定できる型に
ついて参照することができませんでした。探し方が悪いのでしょうか。
ヘルプならどこを参照すればよろしいでしょうか。

146:１３２人目の素数さん
04/06/23 07:08
>>145
Mathematicaの言語としての基礎だ。
Principles　of　Mathematicaを全部読めといいたいところだが、
とりあえず、必ず「Expressionsの章を読んでから」、Patternsの章、
特に、2.3.4を読め。

147:KingOfKingMathematician ◆H06dC8bpwA
04/06/23 08:39
誰か153まで回しといてくれ。

148:１３２人目の素数さん
04/06/23 16:38
>>147
何をやっとるのか知らんがスレ違いでうざい。

149:KingOfKingMathematician ◆H06dyzvgzA
04/06/23 22:26
回し。

トリップ　ザ　ベスト

H06dWILLhA : #/{\@%YwX
H06djy9xBA : #SgHdO'H%
H06dYXOYLA : #*｢A@?NVF
H06dhKnt9A : #[Aｼsudｾl
H06dWifa1A : #{SfbN(6ｦ
H06dyzvgzA : #QAiEｼEp- 　　←使用中

150:KingOfKingMathematician ◆H06dC8bpwA
04/06/23 22:34
誰か159まで回しといてくれ。

151:１３２人目の素数さん
04/06/23 22:49
あの、せめてMathematicaについても一言書いたらどうでしょうか。

p[x_] = a[x + i];
q[x_] = b[x + n - i];

(*Cauchyの積級数*)
Sum[Sum[p[x] q[x], {i, 0, n}], {n, 0, Infinity}]

152:１３２人目の素数さん
04/06/23 23:23
Utilities`Notationを利用して添字変数のベクトルを作って計算する練習を
しようとしているのですが、どうもうまくいきません。
バージョンは4.1です。

<< Utilities`Notation`
Symbolize[expr_x]
Symbolize[expr_y]
Symbolize[expr_z]

p={px,py,pz}
q={qx,qy,qz}

p.q

（xyzは下付けの添字）

をやってみたのですが、どうもシンボル化ができていないみたいで、必ず強制終了
することになりうまくいきません。expr_を使わず変数を一つずつSymboliseに入れてみても
もだめでした。よくは分からないんですが<< Utilities`Notation`をNeeds["Utilities`Notation`"]　
にしても変化なしです。サポートページにキーボードでなくパレットから、とあった
ので基本的にSymbolizeはパレットから持ってきています。ただ、一応キーボードで
やってみてもだめでした。

何をどうすればいいのでしょうか？

153:１３２人目の素数さん
04/06/24 00:18
>>152
パレットのSymbolizeをクリック。
ノートブックにフォーカスを写して
expr_<Ctrl+->x<Shift+Enter>
これで定義される。
ただし、<A+B>はキーAを押しながらキーBを押すことをあらわす。

a<Ctrl+->x　//　FullForm
でa_Subscript_xとなることを確認。

154:152
04/06/24 22:56
>>153
ありがとうございます。できました！

ただ、152の計算で定義したあと一度目のShift+Enterでは

入力ミスではないですか。q_Subscript_ｙはp_Subscript_ｙに似ています
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
と似たようなエラーがいくつか出たんですが、消してもう一度Shift+Enter
を押したらちゃんとできました。
よく分かりませんが、使えるよう勉強させてもらいます。

155:１３２人目の素数さん
04/06/24 23:01
>>154
>　入力ミスではないですか。q_Subscript_ｙはp_Subscript_ｙに似ています

入力ミスじゃないんだから無視しろ。

156:１３２人目の素数さん
04/06/25 00:29
どうでもいいよ。

157:155
04/06/25 01:16
わかりにくかったか。
>>152
そのメッセージはwarningであってerrorじゃない。親切に入力ミスの可能性を
指摘してくれているだけで、変数の定義自体は正常に行われているので、
入力ミスでない今回の場合は無視すれば良い。

158:152
04/06/25 01:51
>>155
アドバイスありがとうございます。
そんな親切な機能があったのですね、分かりました。

159:１３２人目の素数さん
04/06/25 02:29
mathmatica で　需要関数　Y= いろいろな定数/P　の分析で

マネーサプライが増えた時と　ぴグー効果が起こった時　の状態を描きたいんですが
まったくわかりません

とにかく　
plot してみたんだけど　グラフが　ショボイっていうか軸により過ぎててわかんない
どうやって調整するんでしょうか
あと　それぞれのグラフを色分けしたいんですが　タグがまったくわからん
ひとつでも間違うとちんぷんかんぷん

ISLM分析　にPを付け加えた　3次元分析でも　それぞれの定数が変化した時に起こる
需要曲線の傾き変動をきれいに江が北印ですが

だれか　
ここにタグ貼ってください　よろしくお願いします

160:１３２人目の素数さん
04/06/25 02:39
たとえば　plot[Y=1/p,2/p,1/(2p),(p,0,10)]
という基本タグ
をどのように拡張して行けば　それぞれの線をきれいに色分けして　きれいなグラフで
シフトがわかるようになるのかということです

161:１３２人目の素数さん
04/06/25 02:40
あと　IS-LM モデルのpを加えた三次元表示で　P軸できった　総需要曲線が
どのようにシフトするか分析するために

三次現プロットしなければ生けないんですがこのタグも出来たらわかるかたいませんかね

162:１３２人目の素数さん
04/06/25 10:50
こんなの見つけてきました
例えば　コブダグラス型の生産関数です
ほんとは　k=1/3 l=2/3　なんですが

z = 60 x^0.6 y^0.4
g = Plot3D[z, {x, 0, 10}, {y, 0, 10}, ViewPoint -> {-1, -3, 0.7}]
ContourPlot[z, {x, 0, 10}, {y, 0, 10}, PlotPoints -> 30]

163:１３２人目の素数さん
04/06/25 11:22
Lmもどき

r = 4 - 0.5y
g = Plot3D[r, {x, 0, 10}, {y, 0, 10}, ViewPoint -> {1.5, 0.5, 0.7}]
ContourPlot[r, {x, 0, 10}, {y, 0, 10}, PlotPoints -> 30]

164:１３２人目の素数さん
04/06/25 11:35
r = 10y - p^2
g = Plot3D[r, {p, 0, 10}, {y, 0, 10}, ViewPoint -> {1.5, 1, 0.7}]
ContourPlot[r, {p, 0, 10}, {y, 0, 10}, PlotPoints -> 30]

isもどき　1/pなんた゜か゜　なんだかエラーになってしまうので変えた

165:１３２人目の素数さん
04/06/25 11:40
でこれを重ねようとすると　エラーになる

166:１３２人目の素数さん
04/06/25 12:35
ちょっと聞いてくれ
夜露死苦って素数なんだぜ！
分かりにくく答えが出しにくい青春時代を良く表してるよね！

167:１３２人目の素数さん
04/06/25 18:44
「ますます出来るMathematica」
URLﾘﾝｸ(www.catkk.co.jp)

これ使うと勉強効率あがるかしら？

168:１３２人目の素数さん
04/06/25 19:03
付属のヘルプを読む方がはるかにためになるだろうな。

169:１３２人目の素数さん
04/06/25 19:31
ようやく合成表示がわかったのに　エラー　なんだけど

r = 2
g = Plot3D[r, {x, 0, 10}, {y, 0, 10}, ViewPoint -> {1.5, 0.5, 0.7}]
s = y
g = Plot3D[s, {p, 0, 10}, {y, 0, 10}, ViewPoint -> {1.5, 1, 0.7}]
gjy = Show[r, s]

Show::"gcomb": "\!$Show[\(\(2, \
y$\)]\)のグラフィックオブジェクトの合成処理においてエラーが発生しました．"

170:１３２人目の素数さん
04/06/25 19:36
いやー難しい

ミクロのコブダグラス関数しか表示してるサイト無い

ISLM分析から接線をADであらわしてるサイトなんて無い

だれか　うまくシミュレートできるタグわからないかな

171:１３２人目の素数さん
04/06/25 19:39
タグ覚えるのがこれまた大変なソフトだな

もう使いたく無い

Flash MX よりかは扱いやすいが　

ヘルプは醜くて拉致があかない

ミクロ分析の解説本はで照るみたいだけど

マクロも出るの解説本でてないかな

172:１３２人目の素数さん
04/06/25 19:40
>>169
r　=　2,　s　=　y　なんだから　Show[r,　s]　=　Show[2,　y]だね。
Show[2,y]でなにが表示されると？
ここまでの書き込みを読んでいても思ったのだが、君もうちょっと頭使わないと。

173:KingOfKingMathematician ◆H06dyzvgzA
04/06/25 20:18
お勧めトリップ集
KingOfKingMathematicianの後に付けるのがおしゃれ。

H06dWILLhA : #/{\@%YwX
H06djy9xBA : #SgHdO'H%
H06dYXOYLA : #*｢A@?NVF
H06dhKnt9A : #[Aｼsudｾl
H06dWifa1A : #{SfbN(6ｦ
H06dyzvgzA : #QAiEｼEp- 　　←使用中

174:１３２人目の素数さん
04/06/25 20:48
>>172
できませんよ
あなたこそちゃんとタグの使い方マスターしてくださいね

Show::"gcomb": "\!$Show[\(\(2, \
y$\)]\)のグラフィックオブジェクトの合成処理においてエラーが発生しました．"

175:１３２人目の素数さん
04/06/25 21:11
簡単に行ってしまうと
マスマティカで　きれいに需要曲線の変化を描きたいんですよ

たとえば　
ケインジアン交差図と投資関数から導かれるIS曲線
Y=C(Y-T)+I(r)+G　=　a+b(Y-T) + c-dr + G
⇔Y=(1/1-b){a+c+G-bT-dr}
流動性選好理論から導かれるLM曲線
Ld(r.Y)=eY-fr≡Ld(M/P)

これらを　(r.p.y)空間上で交差させて

この交点から導かれる総需要曲線
Y=(z/1-b)[a+c+G-bT-{d/f-fb)}(M/P)}]
z=f/[f+de/(1-b)]

をその接点を切り取る形で表示して

これに　政府がマネーサプライを増加させたときや
租税を増加させたときどのような変化がおこるか
わかりやすく図示したいんです

またピグー効果が起こった時　C(Y-T,M/P)　=　a+b(Y-T) +ν(M/P)
と消費関数がなるわけですが
このとき　総需要関数がどのように変化するかもわかりやすく
示したいんです

でもmatematica で　数理的に説明するよりも
自分で勝手に三次元グラフを作ってしまったほうが手っ取り早いんですね

176:１３２人目の素数さん
04/06/25 21:13
簡単に行ってしまうと
マスマティカで　きれいに需要曲線の変化を描きたいんですよ

たとえば　
ケインジアン交差図と投資関数から導かれるIS曲線
Y=C(Y-T)+I(r)+G　=　a+b(Y-T) + c-dr + G
⇔Y=(1/1-b){a+c+G-bT-dr}
流動性選好理論から導かれるLM曲線
Ld(r.Y)=eY-fr≡Ld(M/P)
⇔r=(e/f) - (1/f)(M/P)

これらを　(r.p.y)空間上で交差させて

この交点から導かれる総需要曲線
Y=(z/1-b)[a+c+G-bT-{d/f-fb)}(M/P)}]
z=f/[f+de/(1-b)]

をその接点を切り取る形で表示して

これに　政府がマネーサプライを増加させたときや
租税を増加させたときどのような変化がおこるか
わかりやすく図示したいんです

またピグー効果が起こった時　C(Y-T,M/P)　=　a+b(Y-T) +ν(M/P)
と消費関数がなるわけですが
このとき　総需要関数がどのように変化するかもわかりやすく
示したいんです

でもmatematica で　数理的に説明するよりも
自分で勝手に三次元グラフを作ってしまったほうが手っ取り早いんですね

177:１３２人目の素数さん
04/06/25 21:17
Y=(z/1-b)[a+c+G-bT-{d/f-fb)}(M/P)}]

この式から見て　Mの増加や

C(Y-{T+kY})　=　a+b(Y-{T+kY}) となる累進課税時に

曲線の傾きがどうなるかは簡単にわかりますが
実際にグラフで視覚的に体験して見たいのです

178:１３２人目の素数さん
04/06/25 21:19
Mの増加は　LM曲線を左方にシフトさせますが
それが需要曲線の変動とどうつながるか
三次元グラフを使って立体的に示したいんです

179:１３２人目の素数さん
04/06/25 21:20
「マスマティカ」じゃなくて「マセマティカ」だから、あしからず。

180:KingOfKingMathematician ◆H06dC8bpwA
04/06/25 22:13
Mathematicaは普通の電卓の代わりに使うのは少し難しい。

181:KingOfKingMathematician ◆H06dC8bpwA
04/06/25 22:14
一般人が受け入れられるもの、それは関数電卓でもない。

182:KingOfKingMathematician ◆H06dC8bpwA
04/06/25 22:15
だから高い。

183:KingOfKingMathematician ◆H06dC8bpwA
04/06/25 22:15
10年後はどうだろう？

184:KingOfKingMathematician ◆H06dyzvgzA
04/06/25 22:16
回し。

H06dWILLhA : #/{\@%YwX
H06djy9xBA : #SgHdO'H%
H06dYXOYLA : #*｢A@?NVF
H06dhKnt9A : #[Aｼsudｾl
H06dWifa1A : #{SfbN(6ｦ
H06dyzvgzA : #QAiEｼEp- 　　←使用中

185:１３２人目の素数さん
04/06/25 22:16
結局わかる人はここにいないんだね
所詮　似ちゃんなんて　その程度だね　はははははは

186:１３２人目の素数さん
04/06/25 22:17
KingOfKingMathematician

あんた持って無いの？　ny にいっぱい(ry

187:KingOfKingMathematician ◆H06dC8bpwA
04/06/25 22:39
Re:>186 吾はmaxima使い。FourierTransformが無いのはちょっと痛いけどね。

188:１３２人目の素数さん
04/06/25 22:40
Mathematica ４と Mathematica ５の違いって何？

189:172
04/06/25 23:42
>>174
なるほど>>169の意味も>>172の文意も全く分からないわけね。
頭悪すぎるから諦めた方がいいんじゃないかな。
タグとか言ってるし…

答えてもらえなくて残念だったね。頭が悪くても
人にものを尋ねる態度ぐらいは学習できるかもしれないから、がんばってね。

190:１３２人目の素数さん
04/06/26 00:39
>>167
1冊何か、なら、マニュアルでもあるWolframの分厚い本ですかね。
あれに書いてないことは「出来ない」ということでしょうから。

初心者用には以下の　Mathematica数学の道具箱〈上〉・〈下〉をすすめます。
URLﾘﾝｸ(www.amazon.co.jp)
URLﾘﾝｸ(www.amazon.co.jp)

大学１年生くらいでこういう風にグラフを書けることや計算ができることを発見出来ると、人生変わる気がする。
もっとはやく知っとけばよかったと思います。

>>188
このスレに書かれていることに関しては違いが分からない程度。

191:KingOfKingMathematician ◆H06dyzvgzA
04/06/26 08:40
お勧めトリップ集
KingOfKingMathematicianの後に付けるのがおしゃれ。

H06dWILLhA : #/{\@%YwX
H06djy9xBA : #SgHdO'H%
H06dYXOYLA : #*｢A@?NVF
H06dhKnt9A : #[Aｼsudｾl
H06dWifa1A : #{SfbN(6ｦ
H06dyzvgzA : #QAiEｼEp- 　　←使用中

192:KingOfKingMathematician ◆H06dC8bpwA
04/06/26 10:22
誰か201まで回しといてくれ。

193:１３２人目の素数さん
04/06/26 23:00
３DPLOTをするとします。そのためにプログラミングを
ノートブックに書きますよね。それを実行したとき、グラフが
プログラムの直ぐ下に表示されるのですが、グラフだけ別のノートブックに
表示させたいのです。どうすればよろしいでしょうか？

194:１３２人目の素数さん
04/06/26 23:49
Option inspector を見ましょう
"ctr"+"shift"+"o"
で出てきます

195:１３２人目の素数さん
04/06/27 18:04
見ましたが、グラフを別のノートブックに表示させるには
どうすればよいのかわかりません。アドバイスをお願いします。
因みに文字やグラフの大きさは調整できました。助かりました。

196:１３２人目の素数さん
04/06/27 19:41
<<195
ただ単にコピーandペーストすればよいと思います。

197:１３２人目の素数さん
04/06/27 21:03
>>189
あのー　ここに頼らないで自前で完成したよ
結局ここって使えないねー　なにも教えてくん無いし

ほらここ
URLﾘﾝｸ(www.geocities.jp)

198:１３２人目の素数さん
04/06/27 21:06
mathematicaよりもGNU機能が高いソフトを使ったら直感的に簡単に出来た。
このソフトはC言語書く、つまりプログラミングに慣れていないひとには
ちょっと酷過ぎると思いました。

まっただ視覚的にシミュレートしたかっただけなんだけど

199:１３２人目の素数さん
04/06/27 21:14
自慢しすぎ～アホじゃない？

200:１３２人目の素数さん
04/06/27 21:16
C言語というかプログラミング一般の文法かな？forとかifとか…

あれは知っていたら便利だし、手計算なんかよりも書く文章量が減って(ﾟдﾟ)ｳﾏｰなんだから、
そこまで酷評するとこでもないよ。

201:１３２人目の素数さん
04/06/27 21:18
>>198
GNU機能これ何、教えて

202:１３２人目の素数さん
04/06/27 21:23
GUI 　が充実しているの間違いだった

203:１３２人目の素数さん
04/06/27 21:24
Graphical User Interface　の略です

204:１３２人目の素数さん
04/06/27 21:31
Mathematica　って使い安いですか？
なんかコマンド覚えるのが苦痛で。
次期バージョンではＣＵＩからＧＵＩへ、
使い勝手の劇的なる向上を期待してます。

205:１３２人目の素数さん
04/06/27 21:33
mathematicaでplotした3Dをドロップして拡大縮小したり　マウスだけでいろいろな面で
切断できるようにしてほしい
そしてその切断面でアニメを再生できるように

206:１３２人目の素数さん
04/06/27 21:35
例えば　サインカーブの変動を３次元でいろいろな面に切って観察したいと思いませんか？
この操作がマウスだけでできるようにして欲しいのです

あとマウスで作った立体図形などに　最も近時出来る関数を一発表示してくれるとか

207:１３２人目の素数さん
04/06/27 21:38
あと面できらずにコサインカーブ面で切ってその表面でのサインカーブの
表面を観察したりして見たい。

マスウだけで

208:１３２人目の素数さん
04/06/27 21:42
そしてその表面上にある点を設置して
サインカーブの変動と共に移動する点の座標をリアルタイムで観察したい
この面はコサインで切ってあるので消えたり現れたりする

209:１３２人目の素数さん
04/06/27 21:44
これができると例えば　三次方程式の解の座標を
その係数項の変化と共に観察できるようになる

210:１３２人目の素数さん
04/06/27 22:36
>>196 「ただ単にコピーandペーストすればよいと思います。」
それでは意味がありません。計算結果をグラフで出力する場所を
別のノートブックに設定したいんです。いちいちコピペしていたのでは
面倒ですし、コピペだとプログラミングの直後にグラフが表示されてしまうことが
解決できません。
どなたかまっとうな答えをご存知ないでしょうか？
評価するたびに別枠でノートブックが自動的に開いて
そこにグラフのみ表示させるようにしたいのです。
MATLABだと簡単にできるのですが、マセマティカではどうするのでしょうか？

次ページ