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

〓 Mathematica 3 〓

■ このスレッドは過去ログ倉庫に格納されています
0001１３２人目の素数さん2005/07/15(金) 16:37:20
　　　　　　　　_....._{{ 〃
　　　　 　, - ' ,..､､.ヾ{{フ'⌒`ヽ､
　　　　／　 ,:', -‐‐` ´ '´⌒ヽ　ヾ:､
.　　　,'　　 ,'´　,ィ ,ｨ ,' , 　 ｀ヽ',　 ',-<
　 　 ,' 　　.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/
0381１３２人目の素数さん2006/11/03(金) 23:53:46
ttp://webmath.ecip.osakac.ac.jp/webMathematica/MandaiLab/setuheimen.jsp
このサイトのように3Dプロットで複数表示させるにはどのようにすればよいのでしょうか？
0382１３２人目の素数さん2006/11/04(土) 01:48:22
>>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];
0383１３２人目の素数さん2006/11/06(月) 10:03:00
関数じゃなくて、x,y,zの座標が数百点あるときに等高線を書くにはどうしたらいいでしょうか
03843832006/11/06(月) 11:04:41
自己解決しました
0385１３２人目の素数さん2006/11/06(月) 14:33:44
>>382
どうもありがとうございましたby>>381
0386１３２人目の素数さん2006/11/09(木) 10:15:28
今Ver4.2を使ってるんだけどVer6を待つのと、今30万払って5.2にするのと
どっちがいいと思う？
0387１３２人目の素数さん2006/11/12(日) 04:12:28
>>386
アップグレード代を考えると，待った方がいいんじゃないかな？
0388１３２人目の素数さん2006/11/13(月) 13:07:46
>>386
このプレミアサービス１年付きっての買っとけ
買ってから１年以内に新verが出た場合ただでもらえる
ttp://www.hulinks.co.jp/shop/camp_mathe52v4.html
0389１３２人目の素数さん2006/11/13(月) 19:11:46
Ver6いつでるのん？？
0390１３２人目の素数さん2006/11/15(水) 12:09:04
まてまてか
0391１３２人目の素数さん2006/11/15(水) 12:42:55
age
0392１３２人目の素数さん2006/11/15(水) 18:17:11
( A + B )　/ c を　A / c + B / c に変えるという簡単な代数変形ができません。
A,Bは三角関数を含み、数個の文字を使っています。
0393１３２人目の素数さん2006/11/15(水) 20:03:59

Expand
0394１３２人目の素数さん2006/11/15(水) 21:01:07
式の右辺( ( A + B ) / c　) だけをExpandしたらできました。
ありがとうございました。　もし等式の形のまま右辺をExpandできる方法があれば教えてください。
0395１３２人目の素数さん2006/11/15(水) 21:07:51
>>394
シツモンノイミガリカイデキナイ。
03963922006/11/15(水) 21:57:22
E == Expand [ F ]でできました。 Expand [ E==F] ではできなかった。
初心者がおさわがせしました。
0397１３２人目の素数さん2006/11/15(水) 23:41:14
>>396
eq=(F==(A+B)/C)
eq2=(eq[[1]]==Expand[eq[[2]]])
これでeqの右辺だけExpandした式eq2が得られるけど、こんなことする必要性がわからんｗ
0398１３２人目の素数さん2006/11/15(水) 23:44:23
>>397
まあ、まあ、まあー
そう興奮しないで
0399１３２人目の素数さん2006/11/17(金) 13:31:13
>>398
Mathematicaのnotebookで論文書くとかしてるんじゃね？
0400１３２人目の素数さん2006/11/17(金) 13:35:55
Japan Mathematica Conference 2006
12/12（火）東京ビッグサイト
ttp://www.wolfram.co.jp/news/events/JMC2006/
040105192006/11/18(土) 11:52:10
はじめまして。
Mathematica5.2をjavaで遠隔操作しようとしているのですが、行き詰ってしました・・・。
そもそも、あらかじめ作っておいたnbファイルをjavaから実行させて結果を出させることはできるんでしょうか？
もし、ご存知の方がいましたら教えてください。
よろしくお願いします。
0402１３２人目の素数さん2006/11/18(土) 23:53:05
スクリプト書けばできないかな？
040305192006/11/19(日) 00:21:47
返事ありがとうございます。
スクリプトを調べてはみたのですが、分かりやすい物がみつかりませんでした・・・。

すいません。
スクリプトとはどんなものなのでしょうか？
0404１３２人目の素数さん2006/11/19(日) 17:17:31
遠隔操作ってのは，SSHとかで入ってということ？Webサーバ上からということ？
「javaで遠隔操作」ってのは，JSP/サーブレット？それともアプレットとか？
0405１３２人目の素数さん2006/11/21(火) 11:14:08
返事が遅くなってしまい、本当にすいません。
今のところ、Webサーバ上からを考えています。
0406１３２人目の素数さん2006/11/21(火) 12:54:17
>>405
そのWebサーバがイントラネット上ならともかく，インターネット上のサーバの場合，
「nbファイルを実行して結果を得る」行為は，Mathematica のカーネルを不特定多数に使わせることになるので，それは Mathematica のライセンス的にまずい。
そのサイトに自分しか使えないような認証をかけておくなら大丈夫だろうが。

Wolfram的には，そういう用途には webMathematica を使ってくれってことなんだろうね。
0407１３２人目の素数さん2006/11/21(火) 18:53:42
返答ありがとうございます。
なるほど。確かに不特定多数に使わせることになりますね。
私もいろいろと試して見たのですが、やはりサーバ上からの場合はかなり難しいという結論になるんですね･･･。

それでは、同じマシン上でmathematicaとjavaを起動させて、javaからnbファイルを評価させることは可能でしょうか？
連続で質問してしまい、すいません。
0408１３２人目の素数さん2006/11/22(水) 05:20:59
>>407
http://documents.wolfram.com/v5/Add-onsLinks/JLink/Part2.WritingJavaProgramsThatUseMathematica/index.html
これなんかどうでしょうか？
0409１３２人目の素数さん2006/11/22(水) 12:25:23
ありがとうございます。

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

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

0410aki2006/11/22(水) 17:05:07
こんにちわ☆

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

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

もしご存知の方がいましたら、教えてください。
よろしくお願いしますm(__)m
0411１３２人目の素数さん2006/12/06(水) 21:25:58
mage
0412１３２人目の素数さん2006/12/06(水) 21:56:40
学生版買っておいたら、卒業してもそのまま使えるんですか？
0413１３２人目の素数さん2006/12/08(金) 00:45:07
>>412
お前は医学部の一年生でこれから何回も留年するんだろ？
0414１３２人目の素数さん2006/12/09(土) 12:39:48
>>412
駄目に決まってんだろ、あほ
0415１３２人目の素数さん2006/12/10(日) 13:19:49
登録さえすれば、使える。
だけど、卒業してから「パソコンが壊れたから新しいパソコンに入れなおす」
とかは無理。（サポートなし）

卒業後、１年以内であれば、安く最新のプロフェッショナル版に変更できる
ことにも注意。
0416１３２人目の素数さん2006/12/12(火) 02:37:22
プロフェッショナル版っていくらするの？
0417１３２人目の素数さん2006/12/12(火) 11:58:51
>>416
http://amazon.co.jp/dp/B000B6GGC4/
0418１３２人目の素数さん2006/12/12(火) 13:45:34
winのやつで「行列の列を増やす」のショートカットが
効かないんですが、設定かなにかが悪いのでしょうか？
行をふやすのはできます。
0419１３２人目の素数さん2006/12/12(火) 17:50:07
学生版買ったんだけどMathID登録しなくてもなんか機能が働くようになったけど
MathIDを登録しないでインストールしてから２週間するとどうなるの？使えなくなるの？？
0420１３２人目の素数さん2006/12/12(火) 19:50:07
>>419
ばくはつします
0421１３２人目の素数さん2006/12/12(火) 20:10:40
>>420
嘘付き？？
あぶねぇだろｗ
0422１３２人目の素数さん2006/12/13(水) 18:05:36
>>421
常識から言って爆発はしないだろw
0423１３２人目の素数さん2006/12/14(木) 02:56:04
>>415

安くってことは、5,000円ぐらいでアップデートできる？
それくらいなら払えるよ
0424１３２人目の素数さん2006/12/14(木) 08:48:08
Mathematicaで何か新しい発見の役に立った例ってありますか？
0425１３２人目の素数さん2006/12/14(木) 14:39:52
>>412,419,423

ここ読め
ttp://www.varsitywave.co.jp/products/mathematica/pro/index.html
0426１３２人目の素数さん2006/12/14(木) 19:16:29
三種類のグラフを一枚の図に収めて、
それぞれのグラフが何のグラフであるかラベルをつけて
(ラベルのテーブルがあれば尚よい)
表示させるにはどうすればよいでしょうか。
0427１３２人目の素数さん2006/12/15(金) 02:00:49
つ はさみと乗り
0428１３２人目の素数さん2006/12/16(土) 10:22:50
>>424
そういうソフトではありません。計算の確認など、教育の現場では重宝します。
0429１３２人目の素数さん2006/12/16(土) 13:50:50
mathematicaってどうやって不定積分とか求めてるんですか？
0430１３２人目の素数さん2006/12/16(土) 14:21:48
>>429
シンプソン法とか？
0431１３２人目の素数さん2006/12/16(土) 14:27:26
数値積分で不貞積分が求まるわけないだろ（ｗ
0432１３２人目の素数さん2006/12/16(土) 14:57:59
そりゃ不貞積分は存在しないな
04334292006/12/16(土) 15:30:25
mathematicaのドキュメントによると、
"不定積分では被積分関数と積分ともに初等関数，指数積分関数，多対数および他の関連した関数
で表される場合には拡張リシュ(Risch)法が使用される．"
らしいです。
http://www.ti3.tu-harburg.de/paper/rump/Ru04a.pdf （Risch法の説明）

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

でもこんなの読む気にならない・・
04344262006/12/17(日) 18:00:57
再び質問します。

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

もしくは、こういったことがMathematicaで
出来るか出来ないか、お答えお願いします。
0435１３２人目の素数さん2006/12/17(日) 19:03:25
>>434
もう少し状況を詳しく説明して。
「グラフ」というのは，y=x^2のグラフとか，そういう意味？
「ラベル」というのは「y=x^2」という文字列？
「ラベルのテーブル」とは何？
04364342006/12/17(日) 22:46:49
「グラフ」というのは，y=x^2のグラフとか，そういう意味？
>>その通りです。

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

「ラベルのテーブル」とは何？
>>三種類のグラフが何を指すかを示す文字列を表にしたものを言ってます。
0437１３２人目の素数さん2006/12/17(日) 23:25:09
「>>」が2ちゃんでの引用符であって、自分の意見は特別な記号を付けずに書きましょう。
0438１３２人目の素数さん2006/12/18(月) 02:08:37
>>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];
04394342006/12/18(月) 18:58:35
>>438

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

また、3種類のグラフを(白黒の濃淡で)色分けし、
各色がどのグラフを指すかわかるように、
図中のテーブルで指し示すにはどうすればよいでしょうか。
(つまり、頂いたプログラムのテーブル内を、
"y=^x"といった関数の文字列の代わりに、グラフの色で表したい。)
04414382006/12/19(火) 01:05:58
>>439
うちの環境では文字化けは発生しなかったよ。
Windows版の Mathematica 5.0 日本語版 で，図を選択して，
　編集→選択範囲の形式保存→EPS
でEPS保存して，

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

をコンパイルしたところ，DVIOUTで日本語部分も含めて正しく表示されました。
04424382006/12/19(火) 01:10:58
>>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}}];
04434382006/12/19(火) 01:12:36
>>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];
04444342006/12/20(水) 08:49:04
>>438

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

文字化けの問題ですが、当方はMathematica3.0を使っております。
「図を選択して， 編集→選択範囲の形式保存→EPS 」した段階で、
作成されたEPSファイルをViewerで見てみると、すでに文字化けしてました。
どうやらMathematicaの設定かVersionに問題があるのかもしれません。
0445１３２人目の素数さん2006/12/21(木) 01:42:22
数式からＣ言語のソースコード生成機能ってありますか？
0446１３２人目の素数さん2006/12/21(木) 07:45:39
>>445
これ?
ttp://documents.wolfram.com/v4-ja/MainBook/1.11.8.html
Sum[]とかには対応してるのかな?
0447１３２人目の素数さん2006/12/22(金) 12:39:53
グラフィックスの縦横の長さまたは縦横比を得るにはどうすればよいのでしょうか？
例えば
g=Plot[Sin[x],{x,0,2Pi}]
として、
GetWidth[g],GetHeight[g]みたいなのが欲しいのですが存在しないようです。

どなたかご存知の方よろしくお願いします。
0448１３２人目の素数さん2006/12/23(土) 00:40:12
>>447
Plot[Sin[x],{x,0,2Pi}];
AbsoluteOptions[%,AspectRatio]
0449１３２人目の素数さん2006/12/23(土) 05:03:31
>>448
どうもありがとうございました！
0450math素人2006/12/24(日) 10:56:54
はじめまして。
エラーメッセージで以下の様なメッセージが出るのですが、
何が問題なのでしょうか？
Plot::plnr: m = 1.0204081428571429`*^18においてfWdep[m]は機械サイズの実数ではありません． \
>>
04514452006/12/24(日) 15:30:55
>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
こういうような式変形は可能ですか？
0452１３２人目の素数さん2006/12/24(日) 15:58:12
>>451
それぞれ、HornerとTogetherでできる。
0453１３２人目の素数さん2006/12/25(月) 02:26:43
海外の代理店から買うと、サポートを受けることはできますか？
海外からのサポートでも構わないのですが。
0454１３２人目の素数さん2006/12/27(水) 00:20:41
できるでしょ
でもなぜ?
0455１３２人目の素数さん2006/12/27(水) 03:36:07
日本で買うより安いから
0456１３２人目の素数さん2006/12/28(木) 20:26:19
2変数x,yに対する統計データを曲面補間し、曲面の式f(x,y)を求めたいのですが、どうすればいいのでしょうか？
0457１３２人目の素数さん2006/12/28(木) 23:31:49
>>453
ライセンス上、英語版は日本でつかっちゃいけないはず。日本語版への変更でン万円。
海外から日本語版が買えるかどうかは知らない。
0458１３２人目の素数さん2006/12/28(木) 23:55:08
>>456
FitかFindFit
0459◇宮城200か12-54＠Linuxザウルス : ◆mzpjBMNq3U 2006/12/29(金) 12:44:18
>>456
ええ。>>456さんのおっしゃってるのは、米国流通ものを
指していらっしゃるのでしょう。確かに米国外ではinter
national版を使わなければならないと思います。
米国版は、確か日本語できなかったと思います。
いわゆる英語版でも、インターナショナル版であれば
日本でお使いいただけるでしょうし、日本語キットを追
加して日本語表示できると思います。
0460１３２人目の素数さん2006/12/31(日) 11:19:43
y=f(x),y=g(x)のグラフを描くときに
　y=f(x)のグラフは左側
　y=g(x)のグラフは右側
というように、ひとつの図の中でそれぞれの縦軸を用意して描く方法はありますか？
0461１３２人目の素数さん2006/12/31(日) 19:50:52
>>460
http://support.wolfram.com/mathematica/graphics/2d/twoaxisgraph.html
0462習い始め2007/01/01(月) 13:43:06
数年前にMathematicaのVer３で実行してあるプレゼンを見たことがあるのですが、３次関数y=x^3-3x^2-9x+10(-3≦x≦4)の導関数、極値を求め、次に増減表をかき、最後にグラフを描く、その手順のプログラムを知りたいのですが、どなたかご教示ください。
0463１３２人目の素数さん2007/01/02(火) 01:55:58
孫のせいでスレタイがソフトバンクにしか見えない
0464１３２人目の素数さん2007/01/04(木) 00:14:34
Mathematica（5.2）のショートカットキー一覧みたいなのが見たいんですが、
どうも見方がよく分かりません。
ショートカットキー一覧を載せてるHPとかご存知の方おられませんか？？
0465習い始め2007/01/08(月) 19:42:16
464:１３２人目の素数さんへ

「Mathematicaのショートカットキー」は、Wolfram Reserch.Inc.のHP
ttp://documents.wolfram.com/v5/FrontEnd/KeyboardShortcuts/MicrosoftWindows/WindowsKeyboardShortcuts.html
（頭は、ｈです。）に幾つか掲載されていますが、このことでしょうか？
0466１３２人目の素数さん2007/01/11(木) 22:18:16
6.0sage
0467１３２人目の素数さん2007/01/13(土) 05:13:27
出力後にーSurfaceGraphicsーというのを出さない方法ってありませんか？
0468１３２人目の素数さん2007/01/13(土) 08:41:29
;
0469習い始め2007/01/13(土) 09:22:52
467：１３２人目の素数さんへ
↑468が正解ですよ。
例えば、
Plot3D[Sin[x+y],{x,-1,1},{y,-1,1}];
と
Plot3D[Sin[x+y],{x,-1,1},{y,-1,1}]
では導出力が違うか試してみて！
0470１３２人目の素数さん2007/01/13(土) 09:24:10
やだ。
0471１３２人目の素数さん2007/01/13(土) 20:09:41
468-469
お〜、できました
0472１３２人目の素数さん2007/01/18(木) 15:28:50
低レベルな質問で真にお恥ずかしいのですが
行列ｄ（270×270）と閾値λがあり、
dの閾値以上の要素をそのまま、閾値未満の要素を0とした行列d'を作りたいのですが
ご教授お願いいたします
0473１３２人目の素数さん2007/01/18(木) 19:11:12
>>472
こんな感じかな
Map[If[# > lambda, #, 0] &, d, {2}]
0474１３２人目の素数さん2007/01/19(金) 05:42:06
カーネルって何ですか？
0475１３２人目の素数さん2007/01/19(金) 10:28:42
ケンタッキーのおじさん
04764722007/01/19(金) 18:21:51
>>473
できました。有難うございました。
0477１３２人目の素数さん2007/01/22(月) 19:57:56
>>474
線形代数を学んでください。
0478習い始め2007/01/22(月) 23:30:59
>>474
カーネルは、Mathematicaのノートブックに命令プログラムを書き、演算を実行する中枢部のことじゃない。途中で演算を中止仕様としてもカーネルを止めないといつまでも計算を実行するので注意が必要ですね。
決して線形代数学に出てくるKerじゃありません!! 実際にMathematicaをRunningさせるのが一番ですよ。
0479１３２人目の素数さん2007/01/23(火) 06:23:23
ということはＣ言語でいうとmain()の部分ってことですか？
0480１３２人目の素数さん2007/01/23(火) 09:23:55
kernelはkernelで理解した方があとあと便利だと思いますよ。
0481１３２人目の素数さん2007/01/23(火) 11:40:07
そもそもこのソフトって何の言語で書かれてるのですか？
■ このスレッドは過去ログ倉庫に格納されています