5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

〓 Mathematica 3 〓

1 :132人目の素数さん: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/

2 :132人目の素数さん:2005/07/15(金) 16:40:03
阻止

3 :132人目の素数さん:2005/07/15(金) 22:30:46
>>1
算数が苦手なはずのさくらたんがMathematicaとは、これいかに?

4 :132人目の素数さん:2005/07/15(金) 23:43:08
そもそも数学板でCCさくらが通じるのか?

5 :132人目の素数さん:2005/07/16(土) 00:13:36
>>4
数ヲタにはロリコンしかいないの? Part10
http://science3.2ch.net/test/read.cgi/math/1114124400/

6 :132人目の素数さん:2005/07/16(土) 02:02:42
>>4
「◆ わからない〜」スレを立てたのはさくらたんだって

7 :132人目の素数さん:2005/07/16(土) 02:07:01
>>1


8 :132人目の素数さん:2005/07/16(土) 08:28:44
>>1
新スレおめでとうございます

   ,   _ ノ)
 γ∞γ~  \
  |  / 从从) )
 ヽ | | l  l |〃/VVVVVVVVVVVVVVVVVVVVVVVVN\
  `从ハ~ ワノ∩ ハニャウェ━━━━━━━━━━━━ブ >εε=ヽ( `Д´)ノ ウワァァァァン
       ⊃ .VVVVVVVVVVVVVVVVVVVVVVVVVN/

   ,   _ ノ)
 γ∞γ~  \
  |  / 从从) )                               人人人人人
 ヽ | | l  l |〃 ニコニコ                          ≪ヽ( `Д´)ノ ≫ ビリビリ
  `从ハ~ ワノ)                                ^Y^Y^Y^Y^Y 

   ,   _ ノ)
 γ∞γ~  \
  |  / 从从) )
 ヽ | | l  l |〃 ハニャーン!                         ヽ(・∀・ )ノ ハニャーン!
  `从ハ~ ワノ∩

9 :132人目の素数さん:2005/07/16(土) 16:52:22
      , - ' ,、、、.ヽ}},:彡‐-、 ヽ、
    ,. '´  /-‐- `ヽ /   \ `.、
   ,:'   ,:'  ,  , ,    ` ヽ ',   ':,  
  ,:'   ,:'  ,:'  / ,'   i  、     ',  ゙:,, 
  ,',' ,' ,'   ,'  /{ ,'i!  ,',.  ',, ',  ',   ',',
. i.i  ! i ,.  ,'i ,',,,{.{ |!. |,,',  !! }'、  !   i ! 
  '!', |, { l l l'''; i  ゙、 ',゙、 |. ', .}|}ノヾ, r‐-、 l.| 
  ! ゙、ヾ',',ヽ| _......_   `゙ V......_ |ノ!`ヽィl l
    | iヽl ッ''゙~~゙'      '゙~~゙゙'ヾ_.,','  ,','
    ! ! ||', ⊂⊃  ,      ⊂⊃.〃  .,i
    l ', ii .l      ー-‐      ノ.,' , ,:'ノ
     ',.',{{ ヽ、         _ ノ,:' ,:'´
     ゙、',',|ヽ、ヽ、      , ィ/"〃リ
       ヾ ヽヾ゙゙'`!' ー ´ |"´ノ'
        `ヽ`,`「´´ ̄``_, イ
     _...、--‐‐''´    ____.....〉`'‐‐--- 、


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

10 :132人目の素数さん:2005/07/16(土) 20:29:51
陰関数のplotはImplicitPlot、ちぃ覚えた!

11 :132人目の素数さん:2005/07/19(火) 06:43:44
  ,:'´//7,'  ,' .,' ,:'   !  } i  !', ':,  ':,    ゙:,.
  ,' / ,' {l.  ! {/   ,イ / }|  !|', !.  ',  ', ゙,
 ハ〃 ! !|  | |  ∠/ ,:'-ノ} /リ l ,ム.  !  } |!
  ハヽ、ゝ!|  l | ,:',;='ィ'、'´ ,'.ノ ノ.,;lノ=、l .,' ,' ,' ノ
    {   l l ', |'ヲi(_ノ.}  ´    i(ノ.}゙!ノ,:',:''´
     ',  h. ', ',゙、 ':゙゙_.ノ.     ':゙_ノ〃ン
     ':, { ',', ':,':,         丶   ,' l .}
      ヾ ':,':, ':ヾ、._    「´/    ,' | .,'   5.2リリースおめでとうございます!
        `ヾ-、`ヽ_    `´ _,.ィリ.ノ ,'
         リ';',ヾ|  ` ‐┬ ´ _ノノ,'/
          ヾ,、-- 、 _ |     ´ノ'
          f ヾ、..___ ヽ、 ー‐''

12 :132人目の素数さん:2005/07/23(土) 05:26:36
age

13 :132人目の素数さん:2005/07/25(月) 17:29:42
Mathematicaを自宅のPCにインストールしたいんですが、どうすればいいのですか?
無料ですか?

14 :132人目の素数さん:2005/07/25(月) 17:35:39
>>13
買う。めちゃくちゃ高い。

15 :132人目の素数さん:2005/07/25(月) 17:43:35
>>14
いくらですか?

16 :132人目の素数さん:2005/07/25(月) 19:04:15
3万円程度です。(ただし、学生版)
http://www.varsitywave.co.jp/products/mathematica/html/student.html

17 :132人目の素数さん:2005/07/25(月) 19:12:05
>>16
高いなぁ・・・
バージョン更新したらもう1度払いなおさないといけないとかはないですよね?
あと、学生版じゃない奴はもっと高いんですか?
機能はそっちのほうがいいんでしょ?

18 :132人目の素数さん:2005/07/25(月) 19:34:47
>>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で調べてください。

19 :132人目の素数さん:2005/07/25(月) 19:47:46
>>18
16のリンクには機能はプロフェッショナル用と変わらないと書いてありますが、
本当に何も変わらないんですか?10倍も値段が違うのに?
学生には特別安く提供するってだけですか?


20 :132人目の素数さん:2005/07/25(月) 20:16:57
人に聞くより自分で調べてください。
http://www.wolfram.com/index.ja.html

21 :132人目の素数さん:2005/07/25(月) 20:23:37
>>19
http://www.wolfram.com/products/student/mathforstudents/qa.html#difference

22 :ニコちゃん ◆9COufv/UGU :2005/07/25(月) 20:46:49
>>21
処理スピード、機能は同等。

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

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

23 :132人目の素数さん:2005/07/25(月) 21:13:34
>>22

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

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

24 :132人目の素数さん:2005/07/25(月) 23:41:49
>>22
一番の違いはインストール時にMathIDが要求されること。そのため異なるPCにインストールするには新たにMathIDをWolfram Researchに請求する必要がある。

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

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

25 :132人目の素数さん:2005/07/26(火) 03:00:45
検索もできないバカに優しいスレでつね(w

26 :132人目の素数さん:2005/07/26(火) 11:54:21
そう思う。

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

27 :132人目の素数さん:2005/07/27(水) 07:04:49
すみません。質問スレから飛んできました。

「3x+1問題
まず,(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)の定義のしかたがわかりません。
どなたかご教授をお願いします。


28 :132人目の素数さん:2005/07/27(水) 08:55:59
質問ならageなきゃ。

29 :132人目の素数さん:2005/07/27(水) 09:32:58
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}]];

30 :132人目の素数さん:2005/07/27(水) 10:40:51
>>28
ageなくても見てる奴は見てる。2ちゃんねるブラウザがある奴なら

31 :132人目の素数さん:2005/07/28(木) 16:28:20
> 2ちゃんねるブラウザ

それ何?

32 :132人目の素数さん:2005/07/28(木) 17:33:58
>>31
2ちゃんねるブラウザ の検索結果 約 35,200 件

33 :132人目の素数さん:2005/07/29(金) 00:04:49
mathematicaの使い方覚えるのに良い本ってどんなのがあるのでしょうか?

34 :132人目の素数さん:2005/07/29(金) 02:17:50
>>33
付属のMathematicaブックを順に読んでいくのが一番良いと思う。ただし、
プログラミングの素養がある程度あるという前提で。

35 :132人目の素数さん:2005/07/29(金) 11:58:26
{{0,0,0,0},{0,0,0,1},{0,0,1,0},{0,0,1,1},...,{1,1,1,1}}
のような配列を作りたいのですが、どうすればできますでしょうか?
よろしければヒントお願いします

36 :132人目の素数さん:2005/07/29(金) 15:15:36
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}]

37 :さくらタン:2005/07/29(金) 15:47:23
ちと改造

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}]

38 :さくらタン:2005/07/29(金) 15:54:48
スマソ訂正
BinDigits[0]={};
BinDigits[x_]:=Join[BinDigits[Quotient[x,2]],{Mod[x,2]}]
でおkだた

39 :132人目の素数さん:2005/07/29(金) 21:46:19
>>34
ありがとうございます。
mathematicaブックって洋書しか売っていないのでしょうか?
夏休みなので、学校のサーバに自宅からログインして使おうと
思っているので、ヘルプのマセマ本では使いにくいので
実際の本を手元に置いて使いたいのですが。

40 :132人目の素数さん:2005/07/30(土) 01:09:35
>>39
第4版は訳書がありますが、第5版は原書しかありません。

41 :132人目の素数さん:2005/07/30(土) 01:12:28
>>35
digits[n_] := Table[IntegerDigits[i, 2, n], {i, 0, 2^n - 1}];で
digits[4]とすれば求めるものが得られる。

42 :132人目の素数さん:2005/07/30(土) 22:23:53
>>40
ありがとうございました。
やっぱり、ないのですね。
第四版が古本屋で安く手に入らないか、さがしてみます。

43 :132人目の素数さん:2005/07/31(日) 01:42:52
http://documents.wolfram.com/v5/で読めるけどそれじゃ駄目なん?

44 :132人目の素数さん:2005/07/31(日) 02:08:55
>>43
>>39

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

46 :132人目の素数さん:2005/08/02(火) 19:51:10
ファイルにチェインをつければいい

47 :132人目の素数さん:2005/08/03(水) 15:53:48
>>46
すみません、ファイルにチェインっていうのが
わからないんですがどういうことでしょうか??

48 :さくらタン:2005/08/03(水) 16:32:04
>ファイルにチェインをつければいい
俺も分からん、教えてんか。

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

49 :さくらタン:2005/08/03(水) 16:34:51
数字の部分の桁数を揃えるって意味な。

50 :132人目の素数さん:2005/08/03(水) 17:35:33
>>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]...で描いたグラフをアニメーションさせる、ってのは無理でしょうか。
何度もすみません。お願いします。

51 :132人目の素数さん:2005/08/03(水) 19:36:25
>>50
とりあえずTable[Import["f"<>ToString[i]<>".dat"],{i,3}]とすればとりあえず
{(f1.datのデータ),(f2.datのデータ),(f3.datのデータ),…}とはできる。

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

>>51
そのやり方(・∀・)エエナァ!!

53 :132人目の素数さん:2005/08/07(日) 22:52:20
"Possible spelling error" って出力を抑える方法ってなかったでしょうか?
FAQ のような気がするんだけど、 みつからなかった。

54 :35:2005/08/08(月) 14:08:45
>>36-38,41

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

55 :132人目の素数さん:2005/08/09(火) 08:41:43
>>53
Off[General::spell];

56 :132人目の素数さん:2005/08/10(水) 23:08:50
age

57 :132人目の素数さん:2005/08/11(木) 00:34:02
この番組ピーターフランクル出てたっけ?
ときどき見てた

58 :132人目の素数さん:2005/08/11(木) 01:28:50
それはNHK教育の「マテマティカ」

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

59 :132人目の素数さん:2005/08/11(木) 17:48:08
>>57-58
ワラタw

60 :132人目の素数さん:2005/08/16(火) 17:42:49
複数のリストを対数軸で同じグラフにプロットしたいのですが・・・
MultipleListPlotでは対数軸は扱えないのでしょうか??何か良い方法ないですかね。

61 :132人目の素数さん:2005/08/16(火) 17:45:18
 /⌒ヽ,  ,/⌒丶、       ,-
       `,ヾ   /    ,;;iiiiiiiiiii;、   \   _ノソ´
        iカ /    ,;;´  ;lllllllllllllii、    \ iカ
        iサ'     ,;´  ,;;llllllllllllllllllllii、    fサ
         !カ、._  ,=ゞiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii!! __fカヘ.
       /  `ヾサ;三ミミミミミご彡彡彡ミヾサ`´ 'i、
       i'   ,._Ξミミミミミミき彡/////ii_   |
       |  ;カ≡|ヾヾヾミミミミミぶ、//巛iリ≡カi  |
        |  iサ  |l lヾヾシヾミミミミり|ii//三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
         ,;サ,   |彡彡ノリリリリミミミシ    ,サi
        ;メ'´    i彡ノリリリリリゞミミシ     `ヘ、
       ;メ      ヾリリリリノ巛ゞシ       `ヘ、
      ;メ        ``十≡=十´         `ヘ、


62 :132人目の素数さん:2005/08/16(火) 21:13:28
nyでみつけた
感謝

63 :GiantLeaves ◆6fN.Sojv5w :2005/08/16(火) 22:08:45
talk:>>62 とりあえずPlot関数とIntegrate関数とFactor関数を自作せよの刑。

64 :132人目の素数さん:2005/08/17(水) 02:02:08
Mathematica高すぎだよね

65 :132人目の素数さん:2005/08/17(水) 07:55:51
買う人が限られるからな。

66 :GiantLeaves ◆6fN.Sojv5w :2005/08/17(水) 08:25:25
入学さえすれば無料でMathematicaを使えるケースもある。

67 :132人目の素数さん:2005/08/18(木) 17:33:42
Position[{a, b, c, d, e}, a]

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

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

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

68 :132人目の素数さん:2005/08/18(木) 18:15:19
Position[{a, b, c, d, e}, a][[1, 1]]

69 :132人目の素数さん:2005/08/21(日) 21:49:19
複数の式を1つの関数にまとめたいのですがどうすればよいでしょうか?
f[x_,y_]:=[expr1;expr2;]としてみたのですができませんでした

70 :132人目の素数さん:2005/08/21(日) 22:49:18
>>69
「複数の式を1つの関数にまとめる」の意味がわからないが、
複数の手続きを連続して実行したいなら、

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

71 :132人目の素数さん:2005/08/22(月) 20:47:11
{{1},{2},{3},...,{n}}
のようなリストを
{1,2,3,...,n}
としたいのですがどうすればよいですか?
Joinを使おうとしたのですがnが大きいとすべて列挙するのが難しいので・・

よろしくお願いします

72 :GiantLeaves ◆6fN.Sojv5w :2005/08/22(月) 21:41:33
talk:>>71 Flatとかいう関数が無かった?あるいはPart関数とリストに要素を追加する関数を組み合わせるか。

73 :GiantLeaves ◆6fN.Sojv5w :2005/08/22(月) 21:44:02
talk:>>71 http://documents.wolfram.co.jp/v5/Tour/MathematicaAsAProgrammingLanguage.ja.html

74 :132人目の素数さん:2005/08/23(火) 10:13:35
ありがとうございました

75 :132人目の素数さん:2005/08/25(木) 13:57:06
基本的なことかもしれませんが・・・
x=n(n=const)
のグラフはどのように描けばよいのでしょうか?
Plot[x = 3, {x, 0, 5}]
としてみたのですがエラーが出てy=3が描画されてしまいます

76 :132人目の素数さん:2005/08/26(金) 21:54:12
ParametricPlot[{x=3,y=t},{t,0,5}]
こんな感じで、いかがでしょう?

77 :132人目の素数さん:2005/08/30(火) 19:20:33
うまいね

78 :132人目の素数さん:2005/08/31(水) 00:29:31
age

79 :132人目の素数さん:2005/09/08(木) 21:52:47
sage

80 :132人目の素数さん:2005/09/09(金) 00:25:59
age

81 :132人目の素数さん:2005/09/09(金) 02:34:09
ネタくれ

82 :132人目の素数さん:2005/09/09(金) 12:12:43
3次元で r = θ の極座標を描きたい。

83 :132人目の素数さん:2005/09/10(土) 01:23:23
>>82
SphericalPlot3D?

84 :132人目の素数さん:2005/09/16(金) 12:53:36
分散共分散行列を1発で求める関数はありますでしょうか?

85 :132人目の素数さん:2005/09/16(金) 16:44:11
CovarianceMatrix or CovarianceMatrixMLE

86 :132人目の素数さん:2005/09/18(日) 16:31:55
質問させてください
1×n行列を転置してn×1行列にしたいのですが,
Transpose[matrix]
を使ってもエラーが出てできませんでした
どうすればよいのでしょうか?


87 :132人目の素数さん:2005/09/18(日) 18:36:47
In[1]:=Transpose[{{1,2,3}}]
Out[1]={{1},{2},{3}}

88 :132人目の素数さん:2005/09/18(日) 22:15:06
>>87
ありがとうございました
参考になりました

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

89 :132人目の素数さん:2005/09/19(月) 08:06:03
Count[{0, 1, -2, 3, 4, -5}, _?Positive]
Count[{0, 1, -2, 3, 4, -5}, _?(# > 0 &)]

90 :132人目の素数さん:2005/09/19(月) 19:48:04
ある計算とその結果を出力させる関数1を別の関数2から実行するとき,
一時的に関数1の出力をなくすようなことはできますか?

91 :132人目の素数さん:2005/09/20(火) 09:04:00
age

92 :132人目の素数さん:2005/09/30(金) 02:57:30
mage

93 :132人目の素数さん:2005/09/30(金) 13:25:36
agenai

94 :132人目の素数さん:2005/10/02(日) 14:20:05
今4.1を使っているのですが、5.2にバージョンアップするだけの
価値はありますか?

95 :132人目の素数さん:2005/10/02(日) 15:29:26
公式ウェブページ見て、便利そうと思わなければ特に変えなくてもいいと思う。

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

96 :94:2005/10/03(月) 17:56:08
>>95
ありがとうございます。
あまり利点がなさそうなのでうpは当分見送ることにします。

97 :132人目の素数さん:2005/10/04(火) 00:42:27
>>96
取り敢ず体験版使ってみれば?
日本語化されてるし。

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

99 :132人目の素数さん:2005/10/07(金) 12:38:29
リストをランダムに並び替えるにはどのようにしたら良いでしょうか?
アドバイスよろしくお願いします

100 :132人目の素数さん:2005/10/07(金) 16:18:44
NormalPValueは平均0分散1のときのp値を求めることができるようですが,
任意の平均,分散の正規分布のp値を求めたいときはどうすればいいですか?

101 :132人目の素数さん:2005/10/15(土) 06:41:18
 

102 :132人目の素数さん:2005/10/18(火) 17:11:12
AxesLabelで軸のラベルを書くとy軸のラベルはy軸と直角に表示されますが,
これを回転してy軸と水平に表示させる方法はありますか?

103 :132人目の素数さん:2005/10/19(水) 18:54:43
ListPlotで、離散的な関数を図示しているのですが、
Frame-> Trueの際にTicksを有効にしたいのですが、
なにか名案があったらお教え下さい。

104 :132人目の素数さん:2005/10/20(木) 20:00:43
age

105 :132人目の素数さん:2005/10/23(日) 23:52:15
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]


106 :132人目の素数さん:2005/10/25(火) 02:26:22
ワレマティカはどこで拾えますか?(MathID とか聞いてこないやつ)

107 :132人目の素数さん:2005/10/25(火) 18:34:26
氏ね

108 :132人目の素数さん:2005/10/25(火) 19:42:44
反応するなよ

109 :132人目の素数さん:2005/10/25(火) 19:57:35
みんな市んじまえ

110 :132人目の素数さん:2005/10/26(水) 10:35:52
>>109
どうした。悩みがあるなら聞くぞ?

111 :132人目の素数さん:2005/10/26(水) 20:57:03
>>99>>100>>102>>103
に答えてくれないかな、いや、ください。

112 :132人目の素数さん:2005/10/29(土) 16:59:19
x^2 + y^2 = r^2

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

113 :132人目の素数さん:2005/10/30(日) 01:16:21
>>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

114 :132人目の素数さん:2005/10/31(月) 05:23:47
age

115 :132人目の素数さん:2005/11/01(火) 12:00:22
ver. 3 くそ
ver. 4 本来3だったもの
ver. 4.1 バグ取り
ver. 4.2 新たなバグ付き
ver. 5 どうでもいい
ver. 5.1 バグ取り
ver. 5.2 新たなバグ付き
ver. 6.0 さらなるバグ付き

116 :132人目の素数さん:2005/11/01(火) 20:49:47
でワレマティカは?

117 :132人目の素数さん:2005/11/04(金) 22:35:23
放流するか

118 :132人目の素数さん:2005/11/04(金) 23:08:31
ny使い方わからん

119 :132人目の素数さん:2005/11/05(土) 18:30:42
>>117
Student版買ったのに・・・
登録とかしなくて使えんの?

120 :132人目の素数さん:2005/11/06(日) 01:53:51
nyはいかん.矢風億がいい.

121 :132人目の素数さん:2005/11/06(日) 06:20:31
>>120
億漁ったけどイマイチだな・・・
以前なら自サイトへのリンクとかあって色んなソフト販売してる奴らが多かったから
直接聞くことができたが、今は取り締まりが厳しいのかな。
ライムやっても罠入りばっかだしな・・・。

122 :名無しさん@Mathematica:2005/11/06(日) 13:04:32
>>117
お使いのはVersion4や4.1とか4.2でしょうか
もしそうでしたらtemporaryid@mail.goo.ne.jpへご連絡いただければ
便利なつーるをおわたしします

123 :132人目の素数さん:2005/11/07(月) 01:29:29
変数の値が、0.000000000000001
だった場合に、これを 0.000000000000001 
と出力させる方法はないですか??
それか、1*10^(-14) と出力する方法はないでしょうか。

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

124 :132人目の素数さん:2005/11/07(月) 07:26:44
5.1の日本語が使える鍵genはまだぁ〜

125 :132人目の素数さん:2005/11/07(月) 13:55:24
>>123
0.000000000000001 だったら

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

1*10^(-14) なら

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

126 :132人目の素数さん:2005/11/08(火) 01:20:26
>>124
汗水垂らして働いて買えよ。

127 :132人目の素数さん:2005/11/09(水) 18:52:43
鼻水垂らして割れ物あさってまつ

128 :132人目の素数さん:2005/11/10(木) 19:35:06
NDsolveで得られた補完関数ってどうやって微分するのでしょうか?

129 :132人目の素数さん:2005/11/14(月) 19:11:11
D


130 :132人目の素数さん:2005/11/16(水) 22:11:26
http://www.pcsoftoff.com/2bu.htm
Mathematica5.1大安売り

131 :132人目の素数さん:2005/11/17(木) 00:08:24
>>130
IPアドレス 219.101.229.147
ホスト名 www.pcsoftoff.com
IPアドレス
 割当国 ※ 日本 (JP)

国内IPか。へぇ。

132 :132人目の素数さん:2005/11/17(木) 02:34:42
>>130
ACCSに通報しますた。

133 :132人目の素数さん:2005/11/17(木) 13:59:11
日本語も使えるのかな?
多分使えないモノだなwww

134 :132人目の素数さん:2005/11/17(木) 16:04:50
>>130
高杉。

135 :132人目の素数さん:2005/11/18(金) 17:43:32
>130
 日本語も使えます。64ビットのOSなんか使用している人は、いるんですかね。

136 :132人目の素数さん:2005/11/20(日) 08:26:07
日本語使えるって、英語版に入力できるだけでしょ
メニューやヘルプは英語
日本語版の管理は厳重
Mathematica万歳

137 :132人目の素数さん:2005/11/20(日) 08:53:14
まてまてかっていくらくらいで買えるの?

138 :132人目の素数さん:2005/11/20(日) 20:23:54
>>137
ttp://www.amazon.co.jp/exec/obidos/ASIN/B000B6GGC4/

139 :132人目の素数さん:2005/11/24(木) 14:58:37
全然わからないのですいませんが質問させてください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 :139:2005/11/25(金) 18:14:25
すいませんなんとかできたっぽいです(;´Д`)

141 :132人目の素数さん:2005/11/25(金) 18:56:49
>>140
BesselJ出すのに時間かかったんじゃね?
後学の為にMathematicaの式コピペして

142 :132人目の素数さん:2005/11/26(土) 07:39:16
age

143 :132人目の素数さん:2005/11/28(月) 22:02:53
>>130
高杉て話にナラナイ。そんな値段なら学割で正規品を買った方がマシかな。

144 :132人目の素数さん:2005/12/01(木) 21:36:18
世紀版の方が高いだろ

145 :132人目の素数さん:2005/12/02(金) 18:21:32
読み込みんだビットマップ画像のサイズを縮小することはできるでしょうか?
50×50ピクセル -> 25×25ピクセルのようにしたいのですが。。。


146 :132人目の素数さん:2005/12/04(日) 09:48:10
画像ソフトでやれ

147 :132人目の素数さん:2005/12/06(火) 23:00:26
文字式で
(sqrt{A*B} + sqrt{A*C}) / A
みたいなやつを、分母分子を√Aで割って
(sqrt{B} + sqrt{C}) / sqrt{A}
に変形して表示したい場合はどうすればいいんでしょう?

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

148 :132人目の素数さん:2005/12/07(水) 00:16:02
>>147
できたよ
\!\(f = \(\@\(A\ B\) + \@\(A\ C\)\)\/A\)
\!\(PowerExpand[f] /. {\@A -> A\/\@A} // FullSimplify\)
こういう時は新しいRule[→]を作ってやるとうまくいく

149 :147:2005/12/07(水) 00:20:47
ごめん・・・PowerExpand[(sqrt{A*B} + sqrt{A*C}) / A] // Simplifyでも逝けるじゃん・・・吊ってくる orz

150 :147:2005/12/07(水) 02:27:21
>>148=149 (ですよね?)

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

151 :132人目の素数さん:2005/12/07(水) 19:58:19
age

152 :132人目の素数さん:2005/12/08(木) 20:55:35
われまてぃか
万歳

153 :132人目の素数さん:2005/12/09(金) 01:10:39
どなたか
http://science4.2ch.net/test/read.cgi/math/1133617862/441
の計算をよろしくお願いします
無知識の者が免許の学科試験に合格する確率です

154 :132人目の素数さん:2005/12/09(金) 12:16:04
ttp://www.uploda.org/file/uporg256633.jpg
これでおkか?つーか海外にはガウス記号って言葉無いんだな('A`)ハジメテシッタ
ttp://blog.livedoor.jp/calc/archives/717594.html

155 :132人目の素数さん:2005/12/09(金) 13:44:06
>>154
mathematicaでのガウス関数と等価なのはFloorだよ(床関数)
それでやったらすんなりいくと思われ
再うpキボンヌ

156 :132人目の素数さん:2005/12/10(土) 02:10:17
>>155
ドモ(・ω・)ノ
うちの研究室じゃガウス記号なんて絶対使わないから初めて知ったよw
ttp://www.uploda.org/file/uporg257191.jpg

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


157 :132人目の素数さん:2005/12/10(土) 18:53:48
ファイルにカンマ区切りで数字を書き出す際、
      -6
0.1,1.3 10
みたいになるのをふせぐにはどうしたらいいですか?
0.1,1.3E-6
と扱いやすい形で保存したいです。

158 :132人目の素数さん:2005/12/10(土) 19:56:39
>>156
どうもありがとう(・ω・)ノ
確かに絶対受からないねw
-19乗オーダーなんて物理とかでしかみたことねーや(電気素量は確かこれぐらいのオーダーだったような)

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

159 :132人目の素数さん:2005/12/13(火) 19:43:54
ListPlotでプロットした際、OlotJoinedをTrueにすると各点が自動的に結ばれますが、
任意の2点を結ぶことはできるのでしょうか?
例えば、
{{x1,y1},{x2,y2},{x3,y3},{x4,y4}}
をプロットしたときに
{x1,y1}と{x2,y2}を、また{x3,y3}と{x4,y4}を結んで
{x2,y2}と{x3,y3}の間は結ばれていない
・・・というのは無理でしょうか?

160 :GiantLeaves ◆6fN.Sojv5w :2005/12/13(火) 20:49:59
talk:>>159 線分を描く関数があった気がするから、探してみよう。

161 :159:2005/12/14(水) 12:44:58
>>160
ParametricPlotを使って書くことができました
ありがとうございました

162 :159:2005/12/15(木) 16:55:55
またまた失礼します
x軸にはx1,x2に,y軸には自動で破線の目盛線を入れようと思い、ヘルプの通り

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

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

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

163 :132人目の素数さん:2005/12/15(木) 22:04:04
がんがれ!

164 :132人目の素数さん:2005/12/28(水) 15:26:34
NDSolveで微分方程式を解くとき、独立変数の区間を指定して解きますが、
従属変数の区間を設定する(もしくはある値を超えたら計算終了とか)
ことは出来ますか?(無限ループになる可能性もあるわけですが...)

165 :132人目の素数さん:2005/12/31(土) 12:31:32
気合いでできる
Mathematicaに不可能はない!


166 :132人目の素数さん:2005/12/31(土) 14:32:03
【かっこ悪い】建部崩れ、見参!【情けないw】
http://science4.2ch.net/test/read.cgi/math/1135765594
【夢vs】結果を出せば職はある?w【現実】
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

167 :132人目の素数さん:2006/01/02(月) 05:14:25
884

168 :132人目の素数さん:2006/01/13(金) 14:23:41
例えばx^2+y^2<=1の面積を出したいときy=f(x)の形にせずに出すことって
できますか?
x^3+y^3<=3xyとかx^2+y^2+sinx+siny<=1のようなy=f(x)にしずらいような
図形の面積とか出してみたいんですけど。

169 :132人目の素数さん:2006/01/13(金) 23:37:03
>>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の場合、ちゃんと計算して
くれない時がある。それから、定義域はある程度自分で面倒を見ないと
いけない。

170 :132人目の素数さん:2006/01/19(木) 14:04:47
Integrate[Boole[x^2+y^2+z^2+Sin[4x]+Sin[4y]+Sin[4z]<=1],{x,-∞,∞},{y,-∞,∞},
{z,-∞,∞}]
これをやったら結果は0になった・・・。どうみても体積があるようにみえるんだが・・・。

171 :132人目の素数さん:2006/01/20(金) 17:55:08
ある関数を定義して,その実行中になんらかのエラーが発生した場合
処理を途中で止めたいのですがどうすればよいでしょうか?
エラーが発生した場合の戻り値かなにかがあればIfとBreakまたはAbortでできそうなのですが。。。


172 :132人目の素数さん:2006/01/22(日) 00:24:56
質問なんですが

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

173 :132人目の素数さん:2006/01/22(日) 04:50:15
(・ω・)っ[NSolve]

174 :172:2006/01/24(火) 15:19:49
>>173
ありがとうございます
難しそうですががんばってみます

175 :132人目の素数さん:2006/01/26(木) 19:29:32
40万近くするのではとても買う気がしない。
それだけ金が有れば液晶テレビ「アクオス」37V買うよ。
大学生協で偽って安く入手しても、キーを貰うための手続きで
身元を調べられるし、

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



176 :132人目の素数さん:2006/01/27(金) 19:05:11
区間[0,W](0<W<1)のデータを区間[0,1]に規格化してPlotしたいんだけど、
どうやってPlotすれば良いですか。

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

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

178 :132人目の素数さん:2006/01/28(土) 21:18:44
うむ、がんばりなさい


179 :132人目の素数さん:2006/01/28(土) 22:36:27
数値を任意の桁で四捨五入するにはどうしたらよいでしょうか?
たとえば
Sqrt[0.8]=0.894427
を四捨五入して0.894としたいのですが、
N[Sqrt[0.8],3]としてもできませんでした

180 :132人目の素数さん:2006/01/29(日) 03:31:14
(・ω・)っ[SetAccuracy]

181 :132人目の素数さん:2006/01/29(日) 03:36:41
>>180
無事できました
ありがとうございましたm(_ _)m

182 :132人目の素数さん:2006/01/31(火) 00:45:39
mxnの行列がi個並んだ行列のなかから、それぞれの最大値の行列mxnを取り出すにはどうしたらよいでしょうか?
たとえば{{{1, 2, 1}, {2, 3, 1}},{{3, 0, 1}, {2, 1, 5}}} -> {{3, 2, 1}, {2, 3, 5}}のような。
UnionとかMaxでなんとかなるような気がするのですが。

183 :132人目の素数さん:2006/01/31(火) 01:12:30
>>182
こんな感じ?
MapThread[Max, {{{1, 2, 1}, {2, 3, 1}}, {{3, 0, 1}, {2, 1, 5}}}, 2]

184 :132人目の素数さん:2006/01/31(火) 03:11:14
>>175
お宅はヴァカ?
鍵genが出回っていること知らないの?
この鍵genで生成されるpassだと英語しか使えないけど、普通は不自由しないよ。

185 :182:2006/01/31(火) 23:24:20
>> 183
ありがとうございます。行列をこねくりまさなきゃいけないかと覚悟してましたが、助かりました。

186 :132人目の素数さん:2006/02/01(水) 22:22:44
>>184
ありがとうございました。
通報させていただきました。


187 :132人目の素数さん:2006/02/02(木) 15:21:42
一辺がaの正四面体OABCがあります。
OA,OB,OC上に点P,Q,Rをとったところ、
四面体OPQRの体積が四面体OABCの1/3になりました。
このような三角形PQRの周および内部が通過する領域の体積を求めてください。

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

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

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

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

188 :132人目の素数さん:2006/02/04(土) 14:09:22
5.2になりました

189 :132人目の素数さん:2006/02/07(火) 09:45:02
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で解けるらしいのですが



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

191 :132人目の素数さん:2006/02/11(土) 15:30:28
フリーのソフトつくって下さい。

192 :132人目の素数さん:2006/02/12(日) 01:49:43
つmupad,maxima,risa/asir

193 :132人目の素数さん:2006/02/14(火) 20:26:09
質問です。以下のような簡単な定積分の計算をさせたところ、
ものすごい長い、わけわかんない答えが出ました。
何ででしょうか?
Integrate[(beta*t + c)^(1/h), {t, i, j}]

194 :132人目の素数さん:2006/02/14(火) 22:50:44
>>193
Assumptionsを使って条件を限定すれば、それなりに短い答えが
返される。

195 :132人目の素数さん:2006/02/15(水) 23:25:35
質問です。MathematicaをインストールしていないPCに
Mathematicaからの文字をワードなどにコピペしたものを表示させたいのですが
あいにくフォントがなく文字化けします。
以前はマサチューセッツ工科大学のどこかにフォントリンクが張ってあったようですが
見つけれず… フォントのありかをご存知の方いますか?

196 :◇ゾンビ@Linuxザウルス : ◆mzpjBMNq3U :2006/02/16(木) 11:20:18
>>195
WRIのサイトからMathReaderをダウンロードして
インストールしてみてはいかがでしょう
画面表示用のFontが入っていたと思います

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

197 :132人目の素数さん:2006/02/16(木) 18:13:07
wordに貼り付けるときに図で貼ってみれば?

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

199 :132人目の素数さん:2006/02/17(金) 10:17:49
FAQだな.PC2にフォントをインストールしろ.

200 :132人目の素数さん:2006/02/18(土) 08:44:56
age

201 :132人目の素数さん:2006/02/18(土) 09:10:28
>>198
フォントサーバでいけるのでは?

202 :132人目の素数さん:2006/02/22(水) 06:48:56
>>190
フリーですが、何か?

>>198
両方にインスト。 コレ最強。 鍵gen使えば何台でも桶。

203 :132人目の素数さん:2006/02/22(水) 16:25:57
インテルマック版来たね。
人柱よろ。

204 :132人目の素数さん:2006/02/23(木) 10:28:26
しこ

205 :132人目の素数さん:2006/02/23(木) 16:57:47
mathematica で、XYデータセット(非対称)
における分散(半値全幅でもいい)とか求めたい
のですが、descriptive statisticsをつかえば
良いのはわかります。
具体にどうしたらいいのでしょうか?

206 :132人目の素数さん:2006/02/27(月) 10:53:29
亀の動いたあとが、樹のフラクタル図形になるような、亀の始めの動きtと
置き換えルールrule6を定義し、作図せよ。・・・さっぱりわかりません。
ヒント:枝の部分をxとおき、この部分を置き換えるルールを考えよ。だそうですが。
あと,
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]])
が、前の問題で定義されています。

207 :132人目の素数さん:2006/03/02(木) 19:11:52
320

208 :132人目の素数さん:2006/03/04(土) 15:26:25
質問なのですが、

y=ax+.....

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

209 :132人目の素数さん:2006/03/05(日) 13:04:55
>>208
頭を90度かたむける

210 :132人目の素数さん:2006/03/16(木) 22:50:48
実験データをy=a/x+bの式にフィッティングしたいのですが、
データの中に{x.y}={0、100}を含んでいるので
無限式が出ると言われて上手くいきません。
どのようにすればいいのでしょうか。

211 :132人目の素数さん:2006/03/16(木) 23:20:23
>>210
0のでるデータを外す。
普通、実数は0で割れないでしょ。

212 :210:2006/03/17(金) 20:11:16
>>211
ありがとうございます。やはりそうするしかないのでしょうか。
データ数が少ない、かつx=0付近が重要なのでそれは避けたいのですが。

213 :132人目の素数さん:2006/03/23(木) 09:38:11
>>210
自分で(フィッテングの)評価関数書いて、評価関数の最適化だけやらせるとか。
自分で書けば、「x=0付近が重要」と云うのも、それなりに盛り込めるでしょ?

214 :132人目の素数さん:2006/03/26(日) 15:03:14


215 :132人目の素数さん:2006/04/03(月) 21:43:37
そろそろ、新しいMathematicaでるのかな?
http://www.wolfram.co.jp/news/events/JMC2006/

216 :132人目の素数さん:2006/04/05(水) 17:20:18
ある数列が与えられていて、それがベータ関数の値であるときに、
元のベータ関数のパラメータはどうやって求めればいいんでしょうか。
V5.2を使っています。

217 :132人目の素数さん:2006/04/14(金) 21:03:53
wktk

218 :132人目の素数さん:2006/04/15(土) 12:01:53
age

219 :132人目の素数さん:2006/04/16(日) 01:39:42


220 :132人目の素数さん:2006/04/17(月) 01:42:18
Ver6マダー

221 :132人目の素数さん:2006/04/23(日) 22:59:53
マーダダヨー

222 :132人目の素数さん:2006/04/29(土) 22:05:27
マスマスティかで不等式を2DPlotで描くにはどうすればいいの?
領域の色づけがヘルプを見ても分からない。

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

>>222
filledplot

224 :132人目の素数さん:2006/05/10(水) 12:56:10
√(sin 2x+2cos 5x)のグラフ書くために初めてmathematica使ったんですけど、
グラフがx軸に接しないのはなぜでしょうか?

225 :132人目の素数さん:2006/05/10(水) 22:20:26
>>224
接するグラフではないのだろう

226 :132人目の素数さん:2006/05/11(木) 16:36:46
FindRootの結果をグラフにしたいのですが、なんかスマートな方法ないですか?

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

227 :132人目の素数さん:2006/05/11(木) 21:16:10
>>226
ReplaceAllを使う
x /. FindRoot[x^2 == 2, {x, 1}]
みたいな感じで

228 :132人目の素数さん:2006/05/13(土) 12:15:14
>>224
Solve[(Sin[2x] + 2 Cos[5x])^0.5 == 0, x]
の結果、実数の範囲では
{x -> -1.5707963267948966`} {x -> 1.5707963267948966`}

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

229 :132人目の素数さん:2006/05/13(土) 21:21:13
次のMathematicaの情報知ってる人いますか?
4.2から5のときのReduceはすごかったけどそれに匹敵するようなグレードアップ
があるといいなあ。

230 :132人目の素数さん:2006/05/14(日) 23:33:37
二つのベクトルから行列を作る方法を教えてください。
v . w^t のような感じで、v.Transpose[w] だとできません。


231 :132人目の素数さん:2006/05/15(月) 01:30:13
>>230
Outer[Times, w, v]


232 :132人目の素数さん:2006/05/18(木) 17:30:12
x^2(x-3)(2x+3)と2点で接する半径1.5の接点を求めたいのですがどうすればよろしいですか?

233 :132人目の素数さん:2006/05/20(土) 00:31:01
このソフトの最新バージョンナンバーはいくつですか?

234 :132人目の素数さん:2006/05/20(土) 00:34:29
5.2

235 :132人目の素数さん:2006/05/22(月) 16:22:35
ある曲線に、2点で接する円を書きたい時はどうすればいいんですか?

236 :132人目の素数さん:2006/05/24(水) 19:52:20
うちの教授が

「マテマチカ」

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

237 :132人目の素数さん:2006/05/25(木) 16:19:16
ループを回して計算しているその途中経過をグラフィカルに表示するにはどうすればいいですか
計算が進むにつれ折れ線グラフがにゅーんと延びていくとかできればベストです。

238 :132人目の素数さん:2006/05/25(木) 19:41:40
>>236
その発音も間違いじゃない。

239 :132人目の素数さん:2006/05/26(金) 08:58:14
本屋さんの名前と混同してるんだろう

240 :132人目の素数さん:2006/05/27(土) 06:35:34
Mathematicaは線形連立方程式を数値的にではなく
代数的に解くことはできますか?
つまり
x=a+b
y=a-b
を解いて
a=(x+y)/2
b=(x-y)/2
のような答を、a,bに具体的な値を入れなくても
返してくれるのでしょうか?


241 :132人目の素数さん:2006/05/27(土) 06:40:20
できる

242 :132人目の素数さん:2006/05/27(土) 12:10:53
そろそろ、ver6.0が出るのかな?


243 :132人目の素数さん:2006/05/29(月) 23:55:30
n==0のとき、 f[x_,n_]:=1
それ以外のとき、f[x_,n_]:=x^n
となるようにf[x_,n_]を定義したいのですが、
どうしたらいいのでしょうか?


244 :243:2006/05/30(火) 00:03:13
ちょっと調べたら見つかった
f[x_, n_] := If[n == 0, 1, x^n]
スレ汚しスマソ

245 :132人目の素数さん:2006/05/31(水) 14:40:52
出力がリストになるような関数をコンパイルするにはどうすればよいのでしょうか。
下記のようにうまくいきません


以下失敗例

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}


246 :132人目の素数さん:2006/06/06(火) 21:04:38
>>242
もう機能満載で大きな変化はないんとちゃう? 

247 :132人目の素数さん:2006/06/07(水) 21:13:56
Mapleみたいに、外観が変わるんじゃない?

248 :132人目の素数さん:2006/06/10(土) 08:40:56
mapleはだんだん教育ツール化している気がする。
mathematicaはどうだろう?

249 :132人目の素数さん:2006/06/11(日) 15:07:04
計算ツールになってる。

250 :132人目の素数さん:2006/06/15(木) 01:51:12
チュートリアルの例文そのまま
result = NDSolve[{
y''[t] + 0.1 y'[t] == -Sin[y[t]], y[0] == 1, y'[0] == 0}, y, {t, 0, 50}]
をコピペしただけなのに
NDSolve::deqnの最初の引数にはFalseではなく,方程式か方程式のリストが必要です.\"\>"}]\)
とかエラーが出やがるんですがどうしてでしょうか?

251 :羽村:2006/06/15(木) 16:20:27
>>250
Clear[y];
して再チャレンジ

252 :UNI:2006/06/16(金) 23:17:15
Mathematicaでアポロニウスの円を書きたいんですけど、どうすればよいでしょうか?

253 :132人目の素数さん:2006/06/17(土) 11:53:30
>>252

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

254 :132人目の素数さん:2006/06/17(土) 13:04:14
>>252
定義通りに式を書いて、それをPlotすればいいのでは?

255 :132人目の素数さん:2006/06/17(土) 20:57:27
噂に聞くMathematicaそのうち買おうと思ってますが、ver.6そろそろ出るそうでないですか。
メジャー ver upによってエンバグされたりすると悲しいので、今のうちに買おうかなと思ってるんですが、
何分はじめてなもんで、この判断が妥当かどうか微妙です。

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

256 :132人目の素数さん:2006/06/17(土) 21:18:10
>>255
質問とはそれるけれど、
学生版以外は、Premier Serviceが無料で付くので、
ver.6に無料で変えれるよ。

257 :132人目の素数さん:2006/06/17(土) 21:52:50
>>255

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


258 :132人目の素数さん:2006/06/17(土) 22:31:22
>>257
>立ち上げたときにピロロロンと鳴らなくなった
これは、環境設定のところで音を鳴らすことができる。

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

259 :255:2006/06/17(土) 23:52:01
お返事ありがとうございました。

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

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

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

260 :UNI:2006/06/19(月) 22:46:12
お願いします!!Mathematicaを使って書けっていう問題が出ました・・・
問1 2点からの距離の比が一定な点の軌跡(アポロニウスの円)のグラフをかけ。
問2 1点と1直線から等距離にある点の軌跡(放物線)のグラフを書け。

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

261 :GiantLeaves ◆6fN.Sojv5w :2006/06/20(火) 08:13:45
talk:>>260 軌跡がどうなるかあらかじめ計算して入力すればいいのではないのか?

262 :UNI:2006/06/20(火) 15:40:06
Mathematica上で、計算していきたいんです!!
お願いします☆

263 :132人目の素数さん:2006/06/20(火) 20:08:33
\!\(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]]]\)

264 :UNI:2006/06/25(日) 11:54:58
Mathematicaで、x軸に垂直な直線を書きたいんですけど、どうすればいいですか?!


265 :132人目の素数さん:2006/06/25(日) 20:57:35
お前、それは中学校の数学で習う範囲だろ('A`)
小学生だってx=1とかx=0は知ってる人は知ってる

266 :132人目の素数さん:2006/06/25(日) 23:48:54
<<264

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

<<Graphics`

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

267 :132人目の素数さん:2006/06/26(月) 17:29:00
20行1列のリストをX軸に、
もう一つの20行1列のリストをY軸に、といったプロットって出来ますか?
簡単に出来そうに見えて出来ない・・・

268 :132人目の素数さん:2006/06/27(火) 02:18:25
>>267
x={{x[1]},...,{x[20]}};
y={{y[1]},...,{y[20]}};
ListPlot[Flatten[Transpose[x_List]],Flatten[Transpose[y_List]]]
でいいんじゃない?

269 :267:2006/06/27(火) 12:48:02
>>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}};
といった行列に直せば良いことは分かっていたのですが、この変換がクセモノで。。

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

270 :268:2006/06/27(火) 13:00:27
>>269
そういうnを得たいんだったら、
n=Transpose[{Flatten[x],Flatten[y]}]
でどう?

271 :267:2006/06/27(火) 13:28:27
>>268さん
素早いレスありがとうございます!
希望の通りの行列ができました!!
本当に、ありがとうございます!!

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

272 :132人目の素数さん:2006/06/28(水) 03:08:19
アルキメデスのらせんを書く方法を教えて下さい。
もうさっぱりです。

273 :132人目の素数さん:2006/06/28(水) 08:23:47
極座標で
r=nθ
を表現すればいい。

274 :132人目の素数さん:2006/06/28(水) 21:09:38
すいません、極座標の表現の仕方がわかりません。

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

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

275 :268:2006/06/29(木) 03:02:00
>>272
<<Graphics`Graphics`
PolarPlot[t,{t,0,2 Pi}];

276 :132人目の素数さん:2006/06/29(木) 19:31:46
>>275
書き方がわかりました。
ありがとうございました。

277 :132人目の素数さん:2006/06/30(金) 12:55:28
等高線に対しての流線の描き方がわかりません。
よろしくお願いします。

278 :132人目の素数さん:2006/07/04(火) 12:10:11
正の整数 N に対して,√N を根号の中ができるだけ小さな整数に
なるように変形して a√b の形に直すとき,この整数 a と b の
求め方を教えて下さい.よろしくお願いします.

279 :132人目の素数さん:2006/07/04(火) 23:50:17
>>277,278
かんがれ!

280 :132人目の素数さん:2006/07/06(木) 14:23:48
>>278
root[27]で実行すれば、3root[3]とかなるが、こういうことじゃないのか?

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

282 :132人目の素数さん:2006/07/13(木) 23:07:49
>>280
その 3 と 3 とを取り出すにはどうしたらいいですか?

283 :132人目の素数さん:2006/07/13(木) 23:49:23
「Print」で出力した数値の羅列を、Excelに出力する方法が分からないよ〜え〜ん。。。

284 :132人目の素数さん:2006/07/14(金) 01:14:15
>>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.

285 :132人目の素数さん:2006/07/15(土) 10:59:08
>>283
tsvとかで別ファイルに書き出したらいいのでは?

286 :132人目の素数さん:2006/07/22(土) 01:53:35
Piのリストを作りたいのですがどういう関数使えばいいですか?
3.141592653を[3,1,4,1,5,9,2,6,5,3]みたいにしたいです

287 :132人目の素数さん:2006/07/22(土) 04:37:25
List

288 :132人目の素数さん:2006/07/22(土) 14:46:38
RealDigits

289 :132人目の素数さん:2006/07/22(土) 15:58:10
対数関数のグラフの表示方法を教えてください。

290 :132人目の素数さん:2006/07/22(土) 16:12:38
Plot

291 :132人目の素数さん:2006/07/22(土) 16:17:34
LogPlot[Exp[-x] + 4 Exp[-2x], {x, 0, 6}]
で表示できないのですが…

292 :286:2006/07/22(土) 16:24:56
>>288
どもです!

293 :132人目の素数さん:2006/07/22(土) 16:45:05
対数関数のグラフの表示方法を教えてください。
LogPlot[Exp[-x] + 4 Exp[-2x], {x, 0, 6}]
で表示できないのですが…

294 :132人目の素数さん:2006/07/22(土) 16:58:21
>>293

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

295 :132人目の素数さん:2006/07/22(土) 17:22:50
>>294
ありがとう御座います!

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

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

296 :132人目の素数さん:2006/07/27(木) 23:52:08
複素数の計算とかはできないのでしょうか?
たとえば|z|^2をzで微分するとconj(z)になったりとかそういうやつです。

297 :132人目の素数さん:2006/07/28(金) 18:41:40
471

298 :132人目の素数さん:2006/07/31(月) 01:56:04
「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}にすればうまくいくかなと思ったのですがダメでした。
2次元(ListPlot)では{x,x^2}とすると思ったような描画ができるのに・・・拡張性が無いですね(改善してほしいです)。


299 :132人目の素数さん:2006/07/31(月) 10:03:02
i=1->25⇔i-1=0->24⇔x=(i-1)/24=0->1

300 :132人目の素数さん:2006/07/31(月) 10:38:17
>>299
>>298が指摘してる問題点はそういうことではないだろ
具体的にListPlot3Dで課題を実現してみようとすればわかる

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

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

302 :132人目の素数さん:2006/07/31(月) 15:50:02
>>298
いろいろ試してみたけどむずかしいね
でも「デフォルト」って書いてあるくらいだから変更できるはず

>>301
日本語でおk

303 :132人目の素数さん:2006/07/31(月) 22:31:08
うーん、あとはTicks->ほにゃららで目盛りをいじる
ことぐらいしか思いつかん。

304 :132人目の素数さん:2006/07/31(月) 22:53:17
あー、わかった。

Help で MeshRange をみれ

305 :132人目の素数さん:2006/08/01(火) 00:38:00
楕円曲線における解(楕円曲線暗号)の求め方ってどうやるんでしょうか?
教えてください。

306 :132人目の素数さん:2006/08/01(火) 00:40:40
教員をやってます。バージョン4です。
初等幾何で表示する図形をマセマティカで表示使用と思っているのですが、
やはり、2次元の座標上に図形の方程式を使ってえがくしかないんでしょうか?
よろしくお願いいたします。

307 :132人目の素数さん:2006/08/01(火) 00:52:56
>>306
多分そうだと思う。
初等幾何の図を書くなら、ドローソフトを使った方が良いと思います。

308 :298:2006/08/01(火) 04:16:47
>>304
キタ*・゜゚・*:.。..。.:*・゚(≧∀≦)゚・*:.。. .。.:*・゜゚・*!!!!
キタ*・゜゚・*:.。..。.:*・゚(≧∀≦)゚・*:.。. .。.:*・゜゚・*!!!!
キタ*・゜゚・*:.。..。.:*・゚(≧∀≦)゚・*:.。. .。.:*・゜゚・*!!!!
キタ*・゜゚・*:.。..。.:*・゚(≧∀≦)゚・*:.。. .。.:*・゜゚・*!!!!
キタ*・゜゚・*:.。..。.:*・゚(≧∀≦)゚・*:.。. .。.:*・゜゚・*!!!!

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

309 :132人目の素数さん:2006/08/01(火) 23:03:59
>>306
そういう目的なら、シンデレラが良いかも。フリーじゃないけど、
書籍扱いで安い。
http://www.amazon.co.jp/gp/product/4431711201/
http://www.amazon.co.jp/gp/product/4431709665/

310 :309:2006/08/01(火) 23:09:59
>>309
すまん、一番目のURLのやつはソフトは付いていないようだ。
二番目のやつは付いている。

311 :132人目の素数さん:2006/08/01(火) 23:18:46
てふが良い。winTpic

312 :132人目の素数さん:2006/08/02(水) 01:01:09
>>311
wintpicは図がめちゃくちゃ汚い。直線が角度の取り方によってギザギザに
なってしまい、見た目が直線ではなくなってしまう。
よって、使えない。

313 :132人目の素数さん:2006/08/03(木) 19:27:37
Mathematica 5.2の解説書はありませんか?

314 :132人目の素数さん:2006/08/05(土) 09:20:30
NSolveで、虚数を含む高次式の複素解なども早く簡単に導けますが、
どのようなアルゴリズムを使っているか何となく分かる方いらっしゃいませんか?

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

316 :132人目の素数さん:2006/08/05(土) 12:00:10
>>314
> 多項式の根はジェンキンス・トラウブ(Jenkins‐Traub)アルゴリズムに基づく.

317 :132人目の素数さん:2006/08/05(土) 14:35:30
>>316
ぬおっ、どうもです!
Jenkins‐Traubアルゴリズムを知りたいのですが、
載っている資料をご存知でしたら教えていただけませんか?
よろしくおねがいします。

318 :132人目の素数さん:2006/08/05(土) 16:36:34
ttp://www.google.com/search?ie=Shift_JIS&oe=Shift_JIS&q=Jenkins%81%5DTraub%83A%83%8B%83S%83%8A%83Y%83%80

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

320 :132人目の素数さん:2006/08/06(日) 00:12:34
>>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

321 :314:2006/08/06(日) 00:17:35
>>320
おおっ!こんなところに!!!
明日本屋に行ってみます。thx

322 :314:2006/08/06(日) 00:18:47
ちょwwwww
値段高すぎwwww

323 :132人目の素数さん:2006/08/06(日) 14:11:15
tanE*cosE

324 :132人目の素数さん:2006/08/07(月) 13:56:19
Unix だとカレントディレクトリがパスに入っていて、
定義などもろもろを書いた file が << でゲット出来て楽なのだが、
Windows や MacOSX だとそのままではではそれが出来ない。
どうしたら良いかな?
クリックで起動したらカレントは無理としても、
どこか適当な場所を常に参照できる様にしたい。

325 :132人目の素数さん:2006/08/07(月) 14:18:41
そもそもクリックで起動したらカレントなんてないだろ

326 :132人目の素数さん:2006/08/07(月) 16:42:21

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

327 :132人目の素数さん:2006/08/07(月) 21:40:00
http://documents.wolfram.com/v5/GettingStarted/System-SpecificInformation/FileLayout.ja.html
この辺読んで、初期化ファイルに SetDirectory["...."]みたいに入れておけばできるんじゃね?
やったことないけど。

328 :132人目の素数さん:2006/08/20(日) 15:39:58
保守

329 :132人目の素数さん:2006/08/22(火) 20:09:27
Ver6の情報クレ

330 :132人目の素数さん:2006/08/22(火) 22:58:08
ヒストグラムを書くコマンドってあるんですか?

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

331 :132人目の素数さん:2006/08/23(水) 00:11:21
>>322
そんなあなたに割れまてぃか

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

332 :132人目の素数さん:2006/08/23(水) 22:54:20
>>330
<<Graphics`Graphics`
Histogram[data]

333 :132人目の素数さん:2006/08/24(木) 11:41:28
>>332
dクス

実行してきます。

334 :132人目の素数さん:2006/08/30(水) 17:25:51
816

335 :132人目の素数さん:2006/08/30(水) 17:59:24
あるベクトルの直交空間の基底を求める方法ってあるでしょうか?
教えてください。

336 :132人目の素数さん:2006/08/31(木) 18:39:57
そりゃ普通は直交条件を線型方程式として解いてそこから基底を抜き出す。
一発でやるコマンドは知らない。線形代数パッケージを探せばあるかも。

337 :132人目の素数さん:2006/09/01(金) 11:08:50
Solveで普通にやればよいということですね。
どうもありがとうございます。

338 :132人目の素数さん:2006/09/02(土) 21:34:36
>>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}]を{ }で囲んだだけです。

339 :132人目の素数さん:2006/09/03(日) 03:05:53
〓 Mekosujica 69 〓

340 :132人目の素数さん:2006/09/09(土) 02:50:26
\!\(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]]\)\)\)

341 :こうだった:2006/09/09(土) 02:51:54
\!\(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]]\)\)

342 :132人目の素数さん:2006/09/09(土) 09:17:47
非常に複雑な複素数 

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

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

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

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


343 :132人目の素数さん:2006/09/11(月) 03:16:54
下付き文字を含んだシンボルを使いたいのですが、どうもうまくいきません。

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

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


344 :132人目の素数さん:2006/09/11(月) 03:31:17
質問です.

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

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

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

345 :132人目の素数さん:2006/09/11(月) 12:30:31
>>343
無理じゃね?
下付きのスモールエックス(x)をラージエックス(X)
にするぐらいしか思いつかん

346 :132人目の素数さん:2006/09/11(月) 15:30:18
>>344
そうゆう問題にはMathematicaは不適格だと思う。
LiveMath Makerを使うのが良いと思う。数式を自分の好みに合わせて変形する
のはこれが一番だと思う。


347 :343:2006/09/11(月) 18:09:30
>>345
無理ですか・・・。
ラージエックスを使う方法は良さそうですね。

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


348 :132人目の素数さん:2006/09/11(月) 23:19:43
>>344
そもそもその式が違うじゃねーか(w

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

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


349 :132人目の素数さん:2006/09/12(火) 04:11:06
>>346 >>348

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

LiveMath Maker,探してみます

350 :132人目の素数さん:2006/09/15(金) 07:31:24
Student版て通販では売ってないのですか。



351 :132人目の素数さん:2006/09/15(金) 07:33:58
すいませんここでいいのですね。
ttp://www.varsitywave.co.jp/campaign.html

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

352 :132人目の素数さん:2006/09/16(土) 00:46:00
1-11見ていきなりCCさくらの流れなのに噴いてしまった…

A=Table[Random[]/2,100] (重複がないように細工)
Position[A,Min[A]]

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

353 :132人目の素数さん:2006/09/16(土) 01:13:58
続き書いてたら自己解決しました、申し訳ない。
別にリストから取り出す必要などなくそのままでいいんですね。

354 :132人目の素数さん:2006/09/30(土) 20:46:27
アニメーション書こうとするとエラーがでるんだけど

355 :132人目の素数さん:2006/10/03(火) 02:43:15


356 :132人目の素数さん:2006/10/04(水) 03:08:39
計算途中で
"重大な数値的エラーが含まれている可能性があります"
という警告が出ても、最後まで計算して結果を返してきますよね。

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

357 :132人目の素数さん:2006/10/13(金) 02:39:51
質問です
極座標でパラメータを与えてベクトル場のグラフ表示をする
方法を教えて下さい


358 :132人目の素数さん:2006/10/17(火) 09:57:50
>>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)
が指定できます。

359 :132人目の素数さん:2006/10/17(火) 22:28:30

「マケマシタ6」


360 :132人目の素数さん:2006/10/17(火) 23:06:07
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}]

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

361 :132人目の素数さん:2006/10/17(火) 23:19:40
>>360
ヒント:=は代入,==は比較

362 :132人目の素数さん:2006/10/17(火) 23:27:47
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動かせないです

363 :132人目の素数さん:2006/10/18(水) 00:58:22
>>362
何がやりたいのかさっぱり見えないので,
解きたい連立方程式を,普通の数学の記号で書いてもらえないか?

364 :132人目の素数さん:2006/10/18(水) 01:04:32
ちなみに,もし連立方程式

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に解かしてみても解なしとなった。

365 :362:2006/10/18(水) 02:12:11
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

すいません、式はこうでした><

366 :132人目の素数さん:2006/10/18(水) 02:57:14
>>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以外の文字が全て文字定数と見なされるため,
未知変数が1個,式が8本ということになって,解無しになってしまう。

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

367 :132人目の素数さん:2006/10/18(水) 17:13:31
初歩的な質問なのですが、
グラフに値をプロットすることはできないのでしょうか?
たとえば
y=x+5のグラフにx=1のときの値をグラフ上にプロットできないのでしょうか?

368 :362:2006/10/18(水) 18:04:58
>>336
ほんとうにありがとうございました!

369 :132人目の素数さん:2006/10/18(水) 20:19:53
>>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]]
}
];


370 :132人目の素数さん:2006/10/18(水) 20:45:17
>>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}]
  }
  ];

371 :132人目の素数さん:2006/10/21(土) 10:12:58
>>358

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

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


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

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

373 :132人目の素数さん:2006/10/25(水) 02:01:54
教えてください。お願いします。
極簡単な例として,y=2xを書きたいグラフの例とします。
このとき鉛直下向きを正のx,水平左向きをyの正の方向
としてグラフを書きたいのですが,どうすればいいのでしょうか?
よろしくお願いします。m(__)m

374 :132人目の素数さん:2006/10/25(水) 12:15:25
>>372
Integrate[Exp[-(x-a)^2/2c^2], {x, -Infinity, Infinity}, Assumptions->{c>0}]

375 :372:2006/10/25(水) 13:40:49
>>374
できました!
どうもありがとうございまっす!!

376 :132人目の素数さん:2006/10/25(水) 19:26:52
>>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


377 :376:2006/10/25(水) 19:35:41
おっと,質問と微妙に違った。
>>376 の関数 MirroringPlot は,鉛直下向きをyの正方向,
水平左向きをxの正方向とするプロットだった。

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

378 :132人目の素数さん:2006/10/25(水) 20:41:16
数学っぽくないな・・

379 :132人目の素数さん:2006/10/25(水) 22:04:33
>>377
ありがとうございます。
おもいっきり,活用&勉強(プログラムを)させていただきます。

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

380 :132人目の素数さん:2006/10/31(火) 17:20:08
ウルフラム社に就職した奴いる?

381 :132人目の素数さん:2006/11/03(金) 23:53:46
ttp://webmath.ecip.osakac.ac.jp/webMathematica/MandaiLab/setuheimen.jsp
このサイトのように3Dプロットで複数表示させるにはどのようにすればよいのでしょうか?

382 :132人目の素数さん: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];

383 :132人目の素数さん:2006/11/06(月) 10:03:00
関数じゃなくて、x,y,zの座標が数百点あるときに等高線を書くにはどうしたらいいでしょうか

384 :383:2006/11/06(月) 11:04:41
自己解決しました

385 :132人目の素数さん:2006/11/06(月) 14:33:44
>>382
どうもありがとうございましたby>>381

386 :132人目の素数さん:2006/11/09(木) 10:15:28
今Ver4.2を使ってるんだけどVer6を待つのと、今30万払って5.2にするのと
どっちがいいと思う?


387 :132人目の素数さん:2006/11/12(日) 04:12:28
>>386
アップグレード代を考えると,待った方がいいんじゃないかな?

388 :132人目の素数さん:2006/11/13(月) 13:07:46
>>386
このプレミアサービス1年付きっての買っとけ
買ってから1年以内に新verが出た場合ただでもらえる
ttp://www.hulinks.co.jp/shop/camp_mathe52v4.html

389 :132人目の素数さん:2006/11/13(月) 19:11:46
Ver6いつでるのん??

390 :132人目の素数さん:2006/11/15(水) 12:09:04
まてまてか

391 :132人目の素数さん:2006/11/15(水) 12:42:55
age

392 :132人目の素数さん:2006/11/15(水) 18:17:11
( A + B ) / c を A / c + B / c に変えるという簡単な代数変形ができません。
A,Bは三角関数を含み、数個の文字を使っています。

393 :132人目の素数さん:2006/11/15(水) 20:03:59

Expand

394 :132人目の素数さん:2006/11/15(水) 21:01:07
式の右辺( ( A + B ) / c ) だけをExpandしたらできました。
ありがとうございました。 もし等式の形のまま右辺をExpandできる方法があれば教えてください。

395 :132人目の素数さん:2006/11/15(水) 21:07:51
>>394
シツモンノイミガリカイデキナイ。

396 :392:2006/11/15(水) 21:57:22
E == Expand [ F ]でできました。 Expand [ E==F] ではできなかった。
初心者がおさわがせしました。

397 :132人目の素数さん:2006/11/15(水) 23:41:14
>>396
eq=(F==(A+B)/C)
eq2=(eq[[1]]==Expand[eq[[2]]])
これでeqの右辺だけExpandした式eq2が得られるけど、こんなことする必要性がわからんw

398 :132人目の素数さん:2006/11/15(水) 23:44:23
>>397
まあ、まあ、まあー
そう興奮しないで

399 :132人目の素数さん:2006/11/17(金) 13:31:13
>>398
Mathematicaのnotebookで論文書くとかしてるんじゃね?

400 :132人目の素数さん:2006/11/17(金) 13:35:55
Japan Mathematica Conference 2006
12/12(火)東京ビッグサイト
ttp://www.wolfram.co.jp/news/events/JMC2006/

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

402 :132人目の素数さん:2006/11/18(土) 23:53:05
スクリプト書けばできないかな?

403 :0519:2006/11/19(日) 00:21:47
返事ありがとうございます。
スクリプトを調べてはみたのですが、分かりやすい物がみつかりませんでした・・・。

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


404 :132人目の素数さん:2006/11/19(日) 17:17:31
遠隔操作ってのは,SSHとかで入ってということ?Webサーバ上からということ?
「javaで遠隔操作」ってのは,JSP/サーブレット?それともアプレットとか?

405 :132人目の素数さん:2006/11/21(火) 11:14:08
返事が遅くなってしまい、本当にすいません。
今のところ、Webサーバ上からを考えています。

406 :132人目の素数さん:2006/11/21(火) 12:54:17
>>405
そのWebサーバがイントラネット上ならともかく,インターネット上のサーバの場合,
「nbファイルを実行して結果を得る」行為は,Mathematica のカーネルを不特定多数に使わせることになるので,それは Mathematica のライセンス的にまずい。
そのサイトに自分しか使えないような認証をかけておくなら大丈夫だろうが。

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

407 :132人目の素数さん:2006/11/21(火) 18:53:42
返答ありがとうございます。
なるほど。確かに不特定多数に使わせることになりますね。
私もいろいろと試して見たのですが、やはりサーバ上からの場合はかなり難しいという結論になるんですね・・・。

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


408 :132人目の素数さん:2006/11/22(水) 05:20:59
>>407
http://documents.wolfram.com/v5/Add-onsLinks/JLink/Part2.WritingJavaProgramsThatUseMathematica/index.html
これなんかどうでしょうか?

409 :132人目の素数さん:2006/11/22(水) 12:25:23
ありがとうございます。

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

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



410 :aki:2006/11/22(水) 17:05:07
こんにちわ☆

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

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

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

411 :132人目の素数さん:2006/12/06(水) 21:25:58
mage

412 :132人目の素数さん:2006/12/06(水) 21:56:40
学生版買っておいたら、卒業してもそのまま使えるんですか?

413 :132人目の素数さん:2006/12/08(金) 00:45:07
>>412
お前は医学部の一年生でこれから何回も留年するんだろ?

414 :132人目の素数さん:2006/12/09(土) 12:39:48
>>412
駄目に決まってんだろ、あほ

415 :132人目の素数さん:2006/12/10(日) 13:19:49
登録さえすれば、使える。
だけど、卒業してから「パソコンが壊れたから新しいパソコンに入れなおす」
とかは無理。(サポートなし)

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

416 :132人目の素数さん:2006/12/12(火) 02:37:22
プロフェッショナル版っていくらするの?

417 :132人目の素数さん:2006/12/12(火) 11:58:51
>>416
http://amazon.co.jp/dp/B000B6GGC4/


418 :132人目の素数さん:2006/12/12(火) 13:45:34
winのやつで「行列の列を増やす」のショートカットが
効かないんですが、設定かなにかが悪いのでしょうか?
行をふやすのはできます。


419 :132人目の素数さん:2006/12/12(火) 17:50:07
学生版買ったんだけどMathID登録しなくてもなんか機能が働くようになったけど
MathIDを登録しないでインストールしてから2週間するとどうなるの?使えなくなるの??

420 :132人目の素数さん:2006/12/12(火) 19:50:07
>>419
ばくはつします

421 :132人目の素数さん:2006/12/12(火) 20:10:40
>>420
嘘付き??
あぶねぇだろw

422 :132人目の素数さん:2006/12/13(水) 18:05:36
>>421
常識から言って爆発はしないだろw

423 :132人目の素数さん:2006/12/14(木) 02:56:04
>>415

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

424 :132人目の素数さん:2006/12/14(木) 08:48:08
Mathematicaで何か新しい発見の役に立った例ってありますか?


425 :132人目の素数さん:2006/12/14(木) 14:39:52
>>412,419,423

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

426 :132人目の素数さん:2006/12/14(木) 19:16:29
三種類のグラフを一枚の図に収めて、
それぞれのグラフが何のグラフであるかラベルをつけて
(ラベルのテーブルがあれば尚よい)
表示させるにはどうすればよいでしょうか。


427 :132人目の素数さん:2006/12/15(金) 02:00:49
つ はさみと乗り

428 :132人目の素数さん:2006/12/16(土) 10:22:50
>>424
そういうソフトではありません。計算の確認など、教育の現場では重宝します。

429 :132人目の素数さん:2006/12/16(土) 13:50:50
mathematicaってどうやって不定積分とか求めてるんですか?

430 :132人目の素数さん:2006/12/16(土) 14:21:48
>>429
シンプソン法とか?

431 :132人目の素数さん:2006/12/16(土) 14:27:26
数値積分で不貞積分が求まるわけないだろ(w

432 :132人目の素数さん:2006/12/16(土) 14:57:59
そりゃ不貞積分は存在しないな

433 :429:2006/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 (9章10章あたり)
がそれっぽい感じです。

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

434 :426:2006/12/17(日) 18:00:57
再び質問します。

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

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

435 :132人目の素数さん:2006/12/17(日) 19:03:25
>>434
もう少し状況を詳しく説明して。
「グラフ」というのは,y=x^2のグラフとか,そういう意味?
「ラベル」というのは「y=x^2」という文字列?
「ラベルのテーブル」とは何?

436 :434:2006/12/17(日) 22:46:49
「グラフ」というのは,y=x^2のグラフとか,そういう意味?
>>その通りです。

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

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

437 :132人目の素数さん:2006/12/17(日) 23:25:09
「>>」が2ちゃんでの引用符であって、自分の意見は特別な記号を付けずに書きましょう。

438 :132人目の素数さん: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];

439 :434:2006/12/18(月) 18:58:35
>>438

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

440 :434:2006/12/18(月) 19:08:21
追伸

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

441 :438:2006/12/19(火) 01:05:58
>>439
うちの環境では文字化けは発生しなかったよ。
Windows版の Mathematica 5.0 日本語版 で,図を選択して,
 編集→選択範囲の形式保存→EPS
でEPS保存して,

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

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

442 :438:2006/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}}];

443 :438:2006/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];


444 :434:2006/12/20(水) 08:49:04
>>438

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

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

445 :132人目の素数さん:2006/12/21(木) 01:42:22
数式からC言語のソースコード生成機能ってありますか?

446 :132人目の素数さん:2006/12/21(木) 07:45:39
>>445
これ?
ttp://documents.wolfram.com/v4-ja/MainBook/1.11.8.html
Sum[]とかには対応してるのかな?

447 :132人目の素数さん:2006/12/22(金) 12:39:53
グラフィックスの縦横の長さまたは縦横比を得るにはどうすればよいのでしょうか?
例えば
g=Plot[Sin[x],{x,0,2Pi}]
として、
GetWidth[g],GetHeight[g]みたいなのが欲しいのですが存在しないようです。

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

448 :132人目の素数さん:2006/12/23(土) 00:40:12
>>447
Plot[Sin[x],{x,0,2Pi}];
AbsoluteOptions[%,AspectRatio]

449 :132人目の素数さん:2006/12/23(土) 05:03:31
>>448
どうもありがとうございました!

450 :math素人:2006/12/24(日) 10:56:54
はじめまして。
エラーメッセージで以下の様なメッセージが出るのですが、
何が問題なのでしょうか?
Plot::plnr: m = 1.0204081428571429`*^18においてfWdep[m]は機械サイズの実数ではありません. \
>>

451 :445:2006/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
こういうような式変形は可能ですか?


452 :132人目の素数さん:2006/12/24(日) 15:58:12
>>451
それぞれ、HornerとTogetherでできる。

453 :132人目の素数さん:2006/12/25(月) 02:26:43
海外の代理店から買うと、サポートを受けることはできますか?
海外からのサポートでも構わないのですが。

454 :132人目の素数さん:2006/12/27(水) 00:20:41
できるでしょ
でもなぜ?

455 :132人目の素数さん:2006/12/27(水) 03:36:07
日本で買うより安いから

456 :132人目の素数さん:2006/12/28(木) 20:26:19
2変数x,yに対する統計データを曲面補間し、曲面の式f(x,y)を求めたいのですが、どうすればいいのでしょうか?

457 :132人目の素数さん:2006/12/28(木) 23:31:49
>>453
ライセンス上、英語版は日本でつかっちゃいけないはず。日本語版への変更でン万円。
海外から日本語版が買えるかどうかは知らない。

458 :132人目の素数さん:2006/12/28(木) 23:55:08
>>456
FitかFindFit

459 :◇宮城200か12-54@Linuxザウルス : ◆mzpjBMNq3U :2006/12/29(金) 12:44:18
>>456
ええ。>>456さんのおっしゃってるのは、米国流通ものを
指していらっしゃるのでしょう。確かに米国外ではinter
national版を使わなければならないと思います。
米国版は、確か日本語できなかったと思います。
いわゆる英語版でも、インターナショナル版であれば
日本でお使いいただけるでしょうし、日本語キットを追
加して日本語表示できると思います。

460 :132人目の素数さん:2006/12/31(日) 11:19:43
y=f(x),y=g(x)のグラフを描くときに
 y=f(x)のグラフは左側
 y=g(x)のグラフは右側
というように、ひとつの図の中でそれぞれの縦軸を用意して描く方法はありますか?


461 :132人目の素数さん:2006/12/31(日) 19:50:52
>>460
http://support.wolfram.com/mathematica/graphics/2d/twoaxisgraph.html


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

463 :132人目の素数さん:2007/01/02(火) 01:55:58
孫のせいでスレタイがソフトバンクにしか見えない

464 :132人目の素数さん:2007/01/04(木) 00:14:34
Mathematica(5.2)のショートカットキー一覧みたいなのが見たいんですが、
どうも見方がよく分かりません。
ショートカットキー一覧を載せてるHPとかご存知の方おられませんか??

465 :習い始め:2007/01/08(月) 19:42:16
464:132人目の素数さんへ

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

466 :132人目の素数さん:2007/01/11(木) 22:18:16
6.0sage

467 :132人目の素数さん:2007/01/13(土) 05:13:27
出力後にーSurfaceGraphicsーというのを出さない方法ってありませんか?


468 :132人目の素数さん:2007/01/13(土) 08:41:29
;

469 :習い始め:2007/01/13(土) 09:22:52
467:132人目の素数さんへ
↑468が正解ですよ。
例えば、
Plot3D[Sin[x+y],{x,-1,1},{y,-1,1}];

Plot3D[Sin[x+y],{x,-1,1},{y,-1,1}]
では導出力が違うか試してみて!

470 :132人目の素数さん:2007/01/13(土) 09:24:10
やだ。

471 :132人目の素数さん:2007/01/13(土) 20:09:41
468-469
お〜、できました

472 :132人目の素数さん:2007/01/18(木) 15:28:50
低レベルな質問で真にお恥ずかしいのですが
行列d(270×270)と閾値λがあり、
dの閾値以上の要素をそのまま、閾値未満の要素を0とした行列d'を作りたいのですが
ご教授お願いいたします


473 :132人目の素数さん:2007/01/18(木) 19:11:12
>>472
こんな感じかな
Map[If[# > lambda, #, 0] &, d, {2}]

474 :132人目の素数さん:2007/01/19(金) 05:42:06
カーネルって何ですか?

475 :132人目の素数さん:2007/01/19(金) 10:28:42
ケンタッキーのおじさん

476 :472:2007/01/19(金) 18:21:51
>>473
できました。有難うございました。

477 :132人目の素数さん:2007/01/22(月) 19:57:56
>>474
線形代数を学んでください。

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

479 :132人目の素数さん:2007/01/23(火) 06:23:23
ということはC言語でいうとmain()の部分ってことですか?

480 :132人目の素数さん:2007/01/23(火) 09:23:55
kernelはkernelで理解した方があとあと便利だと思いますよ。

481 :132人目の素数さん:2007/01/23(火) 11:40:07
そもそもこのソフトって何の言語で書かれてるのですか?

482 :132人目の素数さん:2007/01/23(火) 21:35:06
 まてまてか高いですね。26000円のパッケージがあったのでこれなら買えるかと思ったら
学生版なんですね、、、通常版は20万くらいとは、、、5万くらいなら考えるんですけど。
 昔のv2.2を使ってます。


483 :習い始め:2007/01/24(水) 00:29:05
>>481
参考になるかどうか分かりませんが、言語は、どうも Lisp に近い言語らしいですよ。

484 :132人目の素数さん:2007/01/24(水) 00:45:10
>>481
完全にLispの方言。Lispの強化版。Lispに頭部という概念を追加して
Lispを強化改造している。それにより普通のLispでは函数fの引数xに対する
値は (f x) で表されるが、Mathematicaではf[x]と通常数学の表記f(x)に近い
形になる。Mathematicaではfを式f[x]の頭部,[x]をボディーと言う。

485 :132人目の素数さん:2007/01/24(水) 01:56:35
>>482
放送大学に等を利用するのが良いかと….
(仕事に使わないのであれば.)
現在も可能かどうかはわかりかねますが.


486 :132人目の素数さん:2007/01/24(水) 13:06:54
>>483-484
ありがとうございます。

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

487 :◇宮城200か12-54@Linuxザウルス : ◆mzpjBMNq3U :2007/01/24(水) 13:36:19
For Studentsですが、昔wolframにきいたら、大学の社会人入学はだめだけど、
学習塾はよい、といってましたね

488 :132人目の素数さん:2007/01/24(水) 16:18:38
Mathematicaくらい、どっかに落ちてるだろうが。

489 :132人目の素数さん:2007/01/24(水) 16:21:38
>>488
MathPass 生成器ちょうだいな

490 :132人目の素数さん:2007/01/24(水) 22:37:35
>>486
PlotとかPlot3dとかあるし。

491 :482:2007/01/25(木) 00:13:23
>485,487
 そういうてがありましたか、、、ちょっと調べて見ます!

492 :132人目の素数さん:2007/01/25(木) 00:33:23
>>487
それはおかしいね。大学生なら社会人だろうがスネ齧りだろうが
区別はないはずだよ。

493 :Nobody:2007/01/26(金) 05:20:04
>>489
お使いのはVersion4や4.1とか4.2でしょうか
もしそうでしたらtemporaryid@mail.goo.ne.jpへご連絡いただければ
便利なつーるをおわたしします



494 :132人目の素数さん:2007/01/26(金) 12:11:11
怪しいよ…

495 :132人目の素数さん:2007/01/26(金) 18:55:42
FourierSeries[UnitStep[t], t, 5]
と入力しても出力が
FourierSeries[UnitStep[t], t, 5]
とかえってきてしまいます。。

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

496 :習い始め:2007/01/26(金) 20:36:52
>>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にマッチした名前を持つ記号の値や定義をクリアする.
で解決するんじゃないでしょうか。


497 :132人目の素数さん:2007/01/26(金) 21:01:40
>>496
どうもです。
試してみます。

498 :132人目の素数さん:2007/01/27(土) 10:49:27
簡単な質問で申し訳ないのですが,

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

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

499 :習い始め:2007/01/28(日) 13:18:10
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}]
ならば、厳しいけれどなんとか評価できます。あくまで数式処理システムだという認識が必要ですよ。


500 :習い始め:2007/01/28(日) 19:49:10
申し訳ない。入力ミスm○m 上の例は、Maximize[{x1^5 x2^(1 - 5), x1 + x2 <= 0.04}, {x1, x2}]
だったよ。

501 :MiZU ◆MiZUEnr0BY :2007/01/31(水) 17:11:09 ?2BP(20)
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}]

502 :習い始め:2007/01/31(水) 20:55:53
>>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だね。

503 :習い始め:2007/01/31(水) 20:59:27
御免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}];
でどう?

504 :MiZU ◆MiZUEnr0BY :2007/01/31(水) 23:03:07 ?2BP(20)
できなかった><
バージョン4.2.1.0だけど、5じゃないからかな?
こんなエラーでました。
----
{{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プリミティブあるいは指示子が仮定されているところで見つかりました.

505 :習い始め:2007/01/31(水) 23:17:26
>>504
V5.2ならうまくいったけど。確かにVerによって若干異なるからでしょう。
MathematicaのメニューバーのHelpでContourPlot3Dの項目を調べると何かわかるかもしれません。力になれなくて残念。

506 :習い始め:2007/01/31(水) 23:23:26
>>504
ひょっとしたら、原因は、組み込み関数を読み込んでいないのかも知れませんね。
<<Graphics`ContourPlot3D`
として。プログラムを実行する前に、パッケージを先にロードしてみましたか?

507 :習い始め:2007/01/31(水) 23:41:36
追記(蛇足)
>>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}];
とすると、出力された図形をマウスで自由に有家貸すことが出来るのでやってみるとおもしろいですよ。
ブラジャーみたいな図形が出てきますね。


508 :MiZU ◆MiZUEnr0BY :2007/02/01(木) 00:17:33 ?2BP(20)
いろいろりがとうございます!

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

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

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

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

509 :132人目の素数さん:2007/02/01(木) 00:28:06
matlab と
どっちがいいのですか?

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




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

512 :132人目の素数さん:2007/02/03(土) 00:11:15
いろいろなグラフをB5に印刷したいんだけど
横にはみでないようにめいっぱい拡大したいんですけど、
マウスで勘で拡大するしかないんでしょうか?
自動化できないんでしょうか?

513 :習い始め:2007/02/04(日) 09:32:23
>>508
パッケージは、「<<RealTime3D`」でした。Sは不要!


514 :習い始め:2007/02/04(日) 09:56:15
>>512
ページ設定でよくない?
(参考)
http://support.wolfram.co.jp/mathematica/interface/print/
あたりが解決のヒントになるのでしょうか?

515 :MiZU ◆MiZUEnr0BY :2007/02/04(日) 15:03:50 ?2BP(20)
>513
できたあぁぁぁぁ!
ありがとぉ!!

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

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

517 :132人目の素数さん:2007/02/05(月) 19:35:53
615

518 :132人目の素数さん:2007/02/05(月) 19:39:26
age

519 :◇宮城200か12-54@Linuxザウルス : ◆mzpjBMNq3U :2007/02/06(火) 02:07:01
Mathematica(一般用Ver4.0日本語対応)をUSBメモリのU3領域
とかにぶち込んで使用中。
端末ごとに呪文のようななっがーいパスワード入れにゃいかん
けど、なかなか快適。使用後はMathpassを消去して終了。


520 :132人目の素数さん:2007/02/08(木) 21:51:40
いろいろ設定をさわっていたら
Plot3Dで書いたグラフが真っ黒になってしまいした.
どの設定を触ったのか,わからなくなってしまい困っています.
元に戻す方法わかる方いらっしゃいましたら,教えてください.

521 :520:2007/02/09(金) 02:51:28
すみません.
忘れてください.

522 :132人目の素数さん:2007/02/15(木) 23:44:14
studentバージョンをインストールしました。
もう学生ではないのでパスワードは無いのですが、ひさびさにマテマテカやりました。
やはり3Dなど面白いですね。しかし
使用期限がきてしまいました。ウインドウズの日付を戻したのですが
もう使えないみたいです。
そういうものなんでしょうか?

523 :132人目の素数さん:2007/02/17(土) 11:44:23
チンカスかテメーは?
自分が開発者だったらどうするか考えろ!

524 :132人目の素数さん:2007/02/20(火) 11:17:29
Wolframから「Mathematica 6へのアップグレードについて」ってメールが来た。

525 :132人目の素数さん:2007/02/20(火) 22:10:42
いつ発売なの?

526 :132人目の素数さん:2007/02/21(水) 13:39:55
>>525
発売日は書いてない。
メールの内容はこんなの、ようはお布施しろってことか?

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

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

527 :132人目の素数さん:2007/02/22(木) 22:10:51
米Ebayで売ってる安いやつって買ってみても大丈夫?

528 :132人目の素数さん:2007/02/22(木) 22:12:46
>>527
学生用。「学生」が日本の大学生を含むのかどうかは知らない。

529 :132人目の素数さん:2007/02/22(木) 23:24:11
いい事を思いついた。
USBにOSとマスマティカstudentをインストールする。
そうすれば学校卒業後にPCを買い換えてもマスマティカを
使い続けることができるのではないか?

530 :◇宮城200か12-54@Linuxザウルス : ◆mzpjBMNq3U :2007/02/23(金) 10:17:03
529
Student版はsecuredだからマシンを変えるとMathIDと可変パスワードが変わるぞ。

129 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)