- 1 名前：１３２人目の素数さん mailto:sage [04/03/06 09:51]
- _....._{{ 〃
, - ' ,..､､.ヾ{{フ'⌒`ヽ､
／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､
. ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<
,' .i /|. /.| { i, i, }. }_,,）)
! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.
', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞ',
ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル
| l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´
. ',|!!､ r‐┐ ｀ ノ'. /,ｲ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ＜ Mathematica に関する話題はここに書いてね！
ﾞ:､ｨ､jヾｰ::: 'iﾍ .ノ',ﾘ. ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,､- '´ ヽ､ﾞ､ { ｀＞"､
/＼＼ ', } //｀ヽ
★前スレ
〓Mathematica〓
science2.2ch.net/test/read.cgi/math/985023298/
- 296 名前：１３２人目の素数さん mailto:sage [04/07/08 00:51]
- いや、4.0
- 297 名前：１３２人目の素数さん mailto:sage [04/07/08 05:35]
- >>293
?>>
と入力してヘルプを読もう。
普通はメッセージウインドウにはなにも出力されないはずなので、
プログラムを見直したほうがいいのでは。
問題ないなら、Offで出力されないようにできると思う。
- 298 名前：１３２人目の素数さん mailto:sage [04/07/08 05:37]
- >>294
そういう問題の場合は、入力ミスの可能性などもあるので、
Pi -> πにしたりせず、そのままコピペできるものを張れ。
- 299 名前：１３２人目の素数さん mailto:sage [04/07/08 06:24]
- >>298
πはそのままコピペできて、円周率として認識されますよ。
- 300 名前：１３２人目の素数さん mailto:sage [04/07/08 07:06]
- >>299
Linux版だとできないのだ。
- 301 名前：１３２人目の素数さん mailto:sage [04/07/08 10:53]
- ttp://up.isp.2ch.net/up/fd74f265323b.zip
nbファイルで上げて見ました、アドバイスお願い致します
- 302 名前：294 mailto:sage [04/07/08 10:54]
- 301も私です
あと、もと書いてあった式と上げたファイルが違うのは
最終的にやりたいのが上げたファイルということです
- 303 名前：１３２人目の素数さん mailto:sage [04/07/10 12:34]
- >>302
見られん。
24時間以内に消えるようなところに上げるなよ。
- 304 名前：１３２人目の素数さん [04/07/12 00:17]
- 誰か教えてください。
最小化作用素を定義せよ：引数は、｛０、１、・・・９９｝
の元のペアのリストA。値は部分関数ｆ。
という問題なのですが、数式で書くと
A→(μA)(x)=min{y|(x,y)∈A}
になると思います。mathematicaで表記するとどうなるか教えてください。
- 305 名前：１３２人目の素数さん mailto:sage [04/07/12 01:22]
- fとμの関係は？って感じだが。
引数はリストなのかリストの元なのか？
μ がリストを引数として、リスト上の関数を返すような関数
μ : P({0,..,99}^2) \ {φ} -> {{0,..,99}^y | y ⊂ {0,...,99}}
(μ(A))(x)=min{y|(x,y)∈A}
だとして、 その定義。
----
\[Mu][A : {{_Integer, _Integer} ..}] := Function[x,
minimumBy[compare[#1[[2]], #2[[2]]] &, Select[A, Equal[x, First[#]] &]]]
compare[x_, y_] = If[x < y, LT, If[y > x, GT, EQ]];
minimumBy[f_, {x_, xs___}] := Fold[If[f[#1, #2] === LT, #1, #2] &, x, {xs}]
(* Example *)
A = {{1, 3}, {2, 2}, {2, 4}, {1, 1}};
\[Mu][A][1] (* == {1, 1} *)
- 306 名前：304 [04/07/12 01:46]
- >>305 ありがとうございます。
本文中の質問なんですが、
LTやGTやEQの意味は何でしょうか？
初心者ですみません。
- 307 名前：１３２人目の素数さん mailto:sage [04/07/12 13:06]
- 勝手に定義しただけだが、
LT: less than
GT: greater than
EQ: equal
のこと。
- 308 名前：１３２人目の素数さん [04/07/12 22:26]
- 関数をプロットしたものを表示する際、コマンドの直後にグラフが出力される
のですが、そうではなく、評価するたびに、現在使用中のノートブックとは別の
のノートブックが自動的に立ち上がり、その自動的に立ち上がったノートブックに
グラフのみ表示させたいのですが、どうすればいいのでしょう？
関数の評価→グラフ専用のノートブックが立ち上がり出力。としたいんです。
SilabやMatlabだと 結果が数値の場合とグラフの場合は出力先が違って便利なんです。
- 309 名前：１３２人目の素数さん [04/07/13 10:14]
- 大分古いMathematicaを再インストールしたんだけど、レジストリキー
とかライセンスIDを忘れてしまってできません。
なんか解決方法はありませんかね？
- 310 名前：１３２人目の素数さん mailto:sage割れは別な [04/07/13 11:20]
- 思い出す
というかメモを探すしかないと思う
- 311 名前：１３２人目の素数さん mailto:sage [04/07/13 12:16]
- >>310
レスサンクス
ていうか、何でこんな厄介なの。
そこまでするほどすごい技術があると思わんけど
- 312 名前：１３２人目の素数さん [04/07/13 16:37]
- >>308 おとなしくMatlabに乗り換えなさい。
マセマティカなんて使うんじゃない。
- 313 名前：１３２人目の素数さん mailto:sage [04/07/13 19:59]
- >>308>>220は読んだのか?
- 314 名前：１３２人目の素数さん [04/07/14 05:50]
- 教えてください。
Plotしたとき、軸に表示される数字のフォントを変えることは
できるのでしょうか？
- 315 名前：１３２人目の素数さん mailto:sage [04/07/15 13:30]
- >>314
一部のフォントだけを変えるのはPostsciptの該当部分を書き換える
しかないと思う(DisplayStringを使う)。
テキスト部分のフォントを全部置き換えるのは、
Plot[Sin[x], {x, 0, Pi}, TextStyle -> {FontFamily -> "Arial"}]
(Windows/Macの場合)
- 316 名前：かわばた君の友人 mailto:temporaryid@mail.goo.ne.jp [04/07/15 19:26]
- >309
ライセンスID(L9801-9801みたいなもの)と、パスワード
(10桁とか16桁から25桁程度の数字)がないんですか。
私は、以前に学生バージョンのパスワードはわかって
いるけれども、ライセンスIDがわからなくなってしまった
ことがあり、ウルフラムに英語で問い合わせをしたとこ
ろ、数日で教えてくれました。
ご心配のケースでは、登録があれば、日本の代理店や
ウルフラムリサーチにお尋ねになってみてはいかがで
しょうか。
手がなければ、ご連絡くださいませんか。古いライセンス
なら余っていますので、お力になれるかもしれません。
- 317 名前：314 mailto:sage [04/07/15 19:59]
- >>315
ありがとうございました！！
- 318 名前：１３２人目の素数さん [04/07/15 22:07]
- Importした画像やPlotで描いた図などのGraphicsを
画面の中央揃えで表示するにはどうすればいいんでしょう？
Textのスタイルの上に貼り付けたりしたらできるんですけど、
それしか方法はないんでしょうか？
- 319 名前：１３２人目の素数さん mailto:sage [04/07/16 00:04]
- >>318
> それしか方法はないんでしょうか？
いいえ。
Stylesheetか直接CellのImageMarginsを変更すればいい。
MathematicはCellもグラフも全部式なんだから大抵のことは自動化できる。
# >>308
# > 関数の評価→グラフ専用のノートブックが立ち上がり出力。としたいんです。
# > SilabやMatlabだと 結果が数値の場合とグラフの場合は出力先が違って便利なんです。
# 自分で>>220-221を書いといてなんだが、
# 何が便利なんだかさっぱりわからん…というか不便だろう。
# >>308はもうちょっとデフォルトで使ってMathematicaを理解してから
# 考え直したほうがいいのでは。;も知らないとかいう落ちではあるまいか。
- 320 名前：１３２人目の素数さん mailto:sage [04/07/16 00:23]
- tool-ya.ddo.jp/2ch/trash-box/file/20040716002054311.nb
これができないんだけど…
何が原因なんでしょうか？
- 321 名前：319 mailto:sage [04/07/16 00:26]
- >>318
ただし、Windowサイズを変えても中央揃えのままにしたいということなら、
ImageMarginesではできないかもしれない。
BoxDataで囲んでText扱いで表示すればできる。これは
> Textのスタイルの上に貼り付けたりしたらできるんですけど、
このCellの式を見ればわかるだろう。
- 322 名前：１３２人目の素数さん mailto:sage [04/07/16 00:34]
- >>320
>>294のエラーはでないが。
Rは複雑すぎるな。
記号的には積分できないだろう(終わりそうにないので止めた)。
- 323 名前：１３２人目の素数さん mailto:sage [04/07/16 02:17]
- rを固定してsitaで積分してもうまくいかない…
どなたかどうすればよいのか助言下さい…
- 324 名前：318 mailto:sage [04/07/16 09:45]
- >>319
テキストに貼り付けてスタイルだけGraphicsに変えることにしました。
ありがとうございました。
- 325 名前：１３２人目の素数さん mailto:sage [04/07/16 12:24]
- >>324
手でやりたいなら止めはしないが…
自動化するとこうなるだろう。
SetAttributes[PrintCenterd, HoldFirst];
PrintCenterd[f_] :=
Block[{$DisplayFunction = Identity},
CellPrint@
Cell[BoxData[
RowBox[{Cell[GraphicsData["PostScript", DisplayString[f]],
"Graphics"]}]], "Output", TextAlignment -> Center]]
PrintCenterd[Plot[Sin[x], {x, 0, Pi}]]
- 326 名前：１３２人目の素数さん mailto:sage [04/07/16 12:27]
- >>323
Integrateは記号的積分がが失敗して初めて数値積分に挑戦するから
そもそも数値計算でいいのならNIntegrateを使え。
- 327 名前：１３２人目の素数さん mailto:sage [04/07/16 12:34]
- >>323
これPlotPoints->300ぐらいにすると枝わかれがよく見えておもしろいグラフだな。
これは何で出てくる関数？
- 328 名前：１３２人目の素数さん mailto:sage [04/07/16 14:40]
- >>326
本当はsitaで積分してrのグラフを書きたいんだけどねえ…
うまくいかないのは何故だ…orz
>>327
X線回折
- 329 名前：１３２人目の素数さん mailto:sage [04/07/16 17:34]
- >>328
どううまくいかんのだろうか。
最後のIntegrate[..]の行を
Func[x_] := NIntegrate[R /. r -> x , {sita, 0, 2*Pi}]
Plot[Func[x], {x, 0.001, 10}, PlotDivision -> 2]
に変えろ。
元のグラフに特異点があるので(数値積分の)結果の正確さは
まったく保証できないが。
- 330 名前：１３２人目の素数さん [04/07/16 18:29]
- 完全楕円積分なる物を知らないのですが、
EllipticE[2]
ってのは数値として与えられる物なのでしょうか？
数学を知らんのか！っと怒られてしまいそうですが、教えて君に教えて下さい。
- 331 名前：１３２人目の素数さん [04/07/17 14:02]
- 数式を書くときに、二行目インデントして、三行目からは二行目の位置に
揃うようにしたいんですけど、設定あるいは入力やなんかでできますか？
どうしても階段状になるみたいで。
- 332 名前：331 [04/07/17 14:04]
- インデントなしにしてTabで揃える方法はあるんですけど、インデント使って
はできないですか？
- 333 名前：１３２人目の素数さん mailto:sage [04/07/17 14:04]
- mathmaticaを使って動画を作れとの課題が出たのですが、
どこか参考になりそうなサイトはありませんか？
- 334 名前：１３２人目の素数さん mailto:sage [04/07/17 14:21]
- mthematica アニメ
でぐぐれ
- 335 名前：１３２人目の素数さん mailto:sage [04/07/17 14:28]
- ranobe.com/up/updata/up4870.jpg
- 336 名前：１３２人目の素数さん [04/07/17 17:08]
- mticaって文法的に見るときたないし、
プログラムしにくいし、そこら辺 Wolframの悪趣味が出てるよね。
- 337 名前：１３２人目の素数さん [04/07/17 17:15]
-
しかし、コマンド始めの一文字が大文字じゃなきゃだめっていうのは
自殺もんだよな。
少しはmatlab見習えってんだ。
- 338 名前：１３２人目の素数さん mailto:sage [04/07/17 21:07]
- そう？プログラミング言語として見ても文法的には綺麗だと思うけど。
自分は言語屋だから、全ての命令がリストで構成されているよ
うなところに美しさを感じるのかもしれん。
「見た目」が汚いというなら、同意。でもあまり本質的な話では
ないと思うが。
- 339 名前：１３２人目の素数さん mailto:sage [04/07/17 21:23]
- >>337
そんなことはない。標準で定義済みの関数が大文字ではじまるだけ。
>>338
だよな。言語屋じゃなくても、
プログラミング言語をかじったことのあるひとは
Mathematicaの文法をきれいだと思うだろう。
文法はいいのだが、本来関数型言語なのに、
数式処理の対話的利用のためとはいえ手続き型がミックスされている
ところはちょっときれいでないな。
組込み関数の返り値の型がわからないのもいただけない。
tail-callが普通に書くとジャンプにならないのもいただけない。
しかし言語としての柔軟さは素晴らしい。
- 340 名前：１３２人目の素数さん [04/07/18 20:31]
- 誰か教えてください
n番目の素数を与える関数を作れ
っていう問題です
- 341 名前：１３２人目の素数さん mailto:sage [04/07/18 20:35]
- f[n_] := Prime[n]
- 342 名前：１３２人目の素数さん [04/07/18 21:17]
- i=0
Do while R>0
i=p(n-1)+2
For j=3 to n-1
R=i-[i/p(j)]*p(j)
next j
if R=0 then print i
end do
- 343 名前：１３２人目の素数さん [04/07/18 21:19]
- i=0
i=p(n-1)
Do while R>0
i=i+2
For j=3 to n-1
R=i-[i/p(j)]*p(j)
next j
if R=0 then print i
end do
- 344 名前：１３２人目の素数さん [04/07/19 13:15]
- こんな馬鹿な質問するのも気が引けるんですが、
Cos[x/5-1]
と入力して答を返させると、なぜか
Cos[1-x/5]
と、Cosの中身が正負反転して出てくるんですが、これは一体どういった対策をとればよいのでしょうか
- 345 名前：１３２人目の素数さん mailto:sage [04/07/19 14:35]
- 別に答えかえさせなくても良くないか？
Cos[x]=Cos[-x]
だからかまわんと思うんだけど
- 346 名前：１３２人目の素数さん mailto:sage [04/07/19 15:19]
- >>344
で？何がやりたいの？
- 347 名前：１３２人目の素数さん [04/07/19 15:24]
- >>344
うん、それはおかしいね。
- 348 名前：１３２人目の素数さん [04/07/19 15:40]
- >>344
数式中の変数の順番を気にするとMathematicaはダメだなあ。
a+b と b+a を区別する新しい数学を構成したらどうなるのかな。
右から足すとか左から足すとか言って。
- 349 名前：１３２人目の素数さん [04/07/20 06:53]
- r^2=3Cos[5Θ](0<=5Θ<=2π)
と言うグラフを書きたいのですが、どうしたらよいでしょうか？
- 350 名前：UltraMagic ◆NzF73DOPHc [04/07/20 07:02]
- Re:>349
ParametricPlot
- 351 名前：１３２人目の素数さん mailto:sage [04/07/20 07:37]
- 極座標の関数を利用して、シンプルに描きたいところだな。
- 352 名前：304 [04/07/20 12:57]
- >>305
遅いレスですみません。305さんに教えてもらったプログラムを実行
したのですが、エラーが出てしまいました。どこにミスがあったの
でしょうか？？完璧なプログラムにしたいです。教えてください。
お願いします。
- 353 名前：１３２人目の素数さん mailto:sage [04/07/20 14:04]
- >>329
できませんでした…orz
エラー出まくり…
- 354 名前：１３２人目の素数さん [04/07/20 17:31]
- >>351
極座標関数ってどうやって描くんですか？
- 355 名前：１３２人目の素数さん [04/07/20 17:43]
- スイマセン、354の続きです。
ParametricPlotよく分からないんです。
xとyで表されていればかけるんですが、
rを引っ張り出されると全然訳分らんなります。
- 356 名前：１３２人目の素数さん [04/07/20 17:49]
- 344
積分したいんです。
不定積分なんで、結果は手計算でも簡単にわかるんですが、
パソコンに計算させる意図で出題された問題なので。
後々つっかかってしまうかもしれんし。
- 357 名前：１３２人目の素数さん mailto:sage [04/07/20 20:21]
- >>355
とりあえず手書きで書いてみるべし
あと、極座標は教科書読めば書いてある
>>356
普通に積分すれば問題なし
- 358 名前：１３２人目の素数さん [04/07/20 20:40]
- >>357
Mathematicaでグラフ、というかリサージュ図形を描きたいんです。
なんて入力したらいいですかね？
ParametricPlotで自力で何とかしようとしましたが、全然分からんかったっす。
- 359 名前：１３２人目の素数さん mailto:sage [04/07/20 20:53]
- >>358
>>278
- 360 名前：１３２人目の素数さん mailto:sage [04/07/20 21:09]
- >>348
通常の+の記号から想定される性質(可換)を持たないので
普通の人は別の記号で書くだろうな。
>>352
>>305の----より下をそのままコピペすると正しく{1,1}が表示されるが、
どのようなエラーが出るのか？
>>353
waringと混同するな & してないならエラーメッセージを貼れ。
- 361 名前：１３２人目の素数さん mailto:sage [04/07/20 21:11]
- >>356
Cos[x/5 - 1] = Cos[1-x/5]
なんだからどっちを積分しようと同じだろ。
- 362 名前：１３２人目の素数さん [04/07/20 21:21]
- >>349
Plot[{Sqrt[3 Cos[x]],-Sqrt[3 Cos[x]]},{x,0,Pi/2}]
とか
>>358
ParametricPlot[{Sin[x],Sin[4 x]},{x,0,2 Pi}]
とか
ウルフラムのマニュアルを見れば直ぐにわかるよ。
- 363 名前：１３２人目の素数さん mailto:sage [04/07/20 22:14]
- >>349
Cos[5 \[Theta]]が負のときrをどうしたいのかわからないので、
Cos[\[Theta]]のことだったとして:
<<Graphics`
f[\[Theta]_] = Sqrt[3 Cos[\[Theta]]];
PolarPlot[{f[t], -f[t]}, {t, 0, 2 Pi/5}]
- 364 名前：１３２人目の素数さん mailto:sage [04/07/20 23:20]
- >>360
要するに有る点に置いて0/0が発生するのが問題のようです
値は収束するんだけど、そこをまたいだ積分をやりたい
どうすればいいですかね？
- 365 名前：１３２人目の素数さん mailto:sage [04/07/20 23:47]
- >>364
要するに>>329のとおりには実行してないわけだ。
自分で書き換えて、
>>353
> できませんでした…orz
> エラー出まくり…
どんなエラーメッセージも書かず、
どんなプログラムなのかも知らせずに、
>>364
> 要するに有る点に置いて0/0が発生するのが問題のようです
「要するに」で疑わしい要約をして
> 値は収束するんだけど、そこをまたいだ積分をやりたい
「値は収束する」と「そこ」か。一体なんの話なんだろうか。
…エスパー降臨待ちだな。
- 366 名前：１３２人目の素数さん mailto:sage [04/07/21 00:15]
- >>365
>>329の通りに変えたのですができませんでした
同じような問題が発生しそうな
NIntegrate[Sin[x]/x, {x, -1, 1}]
も、x=0の点でエラーが出るようです
(Power::"infy" ) "無限式(1/0)が見つかりました．")
"被積分関数\!\(Indeterminate\)は\!\({x}\) = \!\({0}\)では数値でありません．"
たとえば今書いた式の場合、どう対処すれば良いのでしょうか？
- 367 名前：362 [04/07/21 10:12]
- >>349
Cos が負の部分も描かせたい（複素数として）のなら次のようにする。
f[x_]:=Sqrt[3 Cos[x]]
a=ParametricPlot3D[{{x,Re[f[x]],Im[f[x]]},{x,-Re[f[x]],-Im[f[x]]}},{x,0,Pi/2}]
b=ParametricPlot3D[{{x,Re[f[x]],Im[f[x]]},{x,-Re[f[x]],-Im[f[x]]}},{x,Pi/2,3 Pi/2}]
c=ParametricPlot3D[{{x,Re[f[x]],Im[f[x]]},{x,-Re[f[x]],-Im[f[x]]}},{x,3 Pi/2,2 Pi}]
Show[a,b,c]
プロットの範囲を一挙に {x,0,2 Pi} とすると Cos[x] の正負が反転するところで
勾配が無限大になって誤差が出ます。これは PlotPoints->1000 程度では
誤魔化せないので、上のように部分に分けて描かせました。
- 368 名前：１３２人目の素数さん [04/07/21 10:32]
- >>366
特異点（？）の場所を指示して
NIntegrate[Sin[x]/x,{x,-1,0,1}]
あるいは解析解を求めてから数値化する
N[Integrate[Sin[x]/x,{x,-1,1}]]
ではどうでしょうか？
- 369 名前：１３２人目の素数さん mailto:sage [04/07/21 13:22]
- >>366
>>329で動かないということは、Mathematicaのバージョンが違うのだろうか。
特異点もどきの場所が正確に特定できるなら>>368の一行目が利用できるが、
そうでないなら、オプションにMethod -> MonteCarloを指定すると
解決するかもしれない。
- 370 名前：１３２人目の素数さん [04/07/21 17:24]
- >>366
f[x_] := If[x == 0, 0.0, Sin[x]/x];
NIntegrate[f[x], {x, -1, 1}]
とすれば大丈夫
- 371 名前：１３２人目の素数さん [04/07/21 17:49]
- >>370
x -> 0 で Sin[x]/x -> 1 だから、
g[x_]:=If[x==0,1.0,Sin[x]/x]
としてみると
f[x_]:=If[x==0,0.0,Sin[x]/x]
の積分と僅かに違います
正しいグループは
N[Integrate[Sin[x]/x,{x,-1,1}]]
NIntegrate[g[x],{x,-1,1}]
別なグループは
NIntegrate[Sin[x]/x,{-1,0,1}]
NIntegrate[f[x],{x,-1,1}]
でグループ間の差は 2.2*10^(-16) でした。
面白いですね。
- 372 名前：１３２人目の素数さん mailto:sage [04/07/21 18:57]
- >>371
面白いか？
アルゴリズムの都合でちょっと誤差がでただけだろ
(どっちも通常の意味の積分値は同じ)。
誤差が少ないところは流石なのかもしれないが。
- 373 名前：１３２人目の素数さん mailto:sage [04/07/21 22:23]
- ちょっと調べれば解るような学校の宿題をここで質問するのはやめてくれないか？
- 374 名前：１３２人目の素数さん [04/07/23 21:57]
- Mathematicaで地図の等高線を作ることはできるの？(色付き、茶色、緑とか)
- 375 名前：１３２人目の素数さん [04/07/24 12:01]
- >>370 ミステイク
f[x_]:=If[x==0,1.0,Sin[x]/x] の間違いでした。すんません。
- 376 名前：すいません教えてください [04/07/24 19:26]
- モンテカルロ法により、
[0,1]でe＾xの積分の近似値を求めその値を実際の積分の値と比較せよ。
ってゆうもんだいなんですけどどうやったらいいんですか？誰か教えてくださいませんか？？おねがいします
- 377 名前：１３２人目の素数さん mailto:sage [04/07/24 20:53]
- 先生と友達に聞いたらいいと思うよ
- 378 名前：すいません教えてください [04/07/24 21:02]
- 友達もわかんないんですよ
- 379 名前：KingOfKingMathematician ◆H06dYXOYLA mailto:sage [04/07/25 09:32]
- ver4.0のシリアル教えろ
なくして困っている
- 380 名前：１３２人目の素数さん mailto:sage [04/07/25 12:35]
- 5.0買え
- 381 名前：１３２人目の素数さん [04/07/27 17:38]
- >>374
ContourPlotで行けるんでね？
- 382 名前：１３２人目の素数さん mailto:sage [04/07/27 17:47]
- >>379
バーカ、市ね。くたばれ
- 383 名前：１３２人目の素数さん [04/07/28 03:25]
- TraditionalForm[
Cos[x/5-1]
]
いじょ
- 384 名前：１３２人目の素数さん [04/07/28 03:27]
- \!\(TraditionalForm[Cos[x\^2 + x/5 - 1]]\)
- 385 名前：１３２人目の素数さん [04/07/29 23:30]
- ArcTan(163/217)でArcTanを求めるにはどのようにすればいいのでしょうか？
最終的に" ° "で答えが欲しいのですが...
今日体験版を落として、触っているのですが分からなくて・・・
- 386 名前：１３２人目の素数さん [04/07/29 23:35]
- 電卓で計算
- 387 名前：385 mailto:sage [04/07/29 23:41]
- 簡素化して書いているので実際はもう少し複雑で代入を繰り返さなければならないのでなんとか教えて頂けないでしょうか・・・
- 388 名前：385 mailto:sage [04/07/29 23:56]
- すみません、間違ってました。
ArcTan(163/217)の答えを出したいのですが
答えも ArcTan(163/217)とでて" ° "で答えが欲しいのですが...
- 389 名前：１３２人目の素数さん [04/07/29 23:59]
- >>338
\!\(N[ArcTan[163\/217]\ 180\/π]\)
- 390 名前：385 mailto:sage [04/07/30 00:10]
- 本当に助かりました！どうもありがとうございましたm(_ _)m
- 391 名前：１３２人目の素数さん mailto:sage [04/07/31 16:43]
- おれはN[]よりも//Nの方を良く使うな
- 392 名前：１３２人目の素数さん [04/08/11 01:33]
- 461
- 393 名前：１３２人目の素数さん [04/08/12 01:54]
- mathematica student 4.1を使っていたのですが今年の3月で卒業になったので、
５．０proにup gradeすることに決めました。
そこで聞きたいのですが
今現在パソコンを買い換えたのでmathematica student版が
インストールされていません
こういう場合でもアップグレードできるのでしょうか？
- 394 名前：１３２人目の素数さん [04/08/12 17:14]
- >>393
大丈夫。
とりあえずここら辺でも見ておけ。
ttp://www.varsitywave.co.jp/products/mathematica/html/math-upgrade.html
- 395 名前：１３２人目の素数さん [04/08/19 17:36]
- x軸として x={x1,x2,x3,...}
y軸として y={y1,y2,y3,....}
という感じにデータセットがあるんですが（要素数は同じ）、
これを
test = { {x1,y1}, {x2,y2},},....} といった感じのx,yを対応させたリストに
するにはどうしたらいいでしょうか。すべてただの実数です。
どなたかご教示願います・・・。
- 396 名前：１３２人目の素数さん [04/08/19 22:48]
- 254
|
 |
