- ベストアンサー
Mathematica LegendreP
siegmundの回答
- siegmund
- ベストアンサー率64% (701/1090)
申し訳ありません，ちょっと間違えました． 締め切ってなくてよかった． > 量子力学をご存知なら，kexe さんの例は水素様原子のｄ軌道の一つ， > l=2，m=0 の角度部分です． は削除してください． ちょっと式を見間違えました． Cos[Phi] がなければ上のことは正しいです． 他にもミスタイプがありました． integral {x=-1～1} {Pn(x)}2 dx = 2/(2n+1) （n＝mのとき） の {Pn(x)}2 は {Pn(x)}^2 です． 「余弦定」は「余弦定理」です．理がどこか行っちゃいました． シュミットの直交化法は，大学１年次の線形代数のテキストに 載っていると思います． ベクトル空間の要素が {x^n}， 内積の定義が -1 から１までの積分． で，順に正規直交基底を構成してゆく，という話です．
関連するQ&A
- Mathematica マセマティカで絵を描きたいです。
Mathematica マセマティカで絵を描きたいです。 マセマティカを授業で習い、グラフや図を描く練習をしました。 そこで、マセマティカを応用して絵を描くことにチャレンジをしたいと思います。 例で、りんごでも猿でもドラえもんでもなんでもいいので式を書いていただけませんか？ それを参考に式を見て自分で絵を描きたいです。よろしくお願いします。
- ベストアンサー
- 数学・算数
- Mathematicaでの計算結果にて
工学系の学生です。 卒業研究の為にMathematicaで計算をしています。 解きたいのは5次方程式なのですが計算すると解によくわからない記号がでてきます。 （例） x→[a^3+a^3#1^2+a^3b#1^3+2a#1^3-a^2b#1^4+#1^5 &, 1] x→[a^3+a^3#1^2+a^3b#1^3+2a#1^3-a^2b#1^4+#1^5 &, 2] x→[a^3+a^3#1^2+a^3b#1^3+2a#1^3-a^2b#1^4+#1^5 &, 3] x→[a^3+a^3#1^2+a^3b#1^3+2a#1^3-a^2b#1^4+#1^5 &, 4] x→[a^3+a^3#1^2+a^3b#1^3+2a#1^3-a^2b#1^4+#1^5 &, 5] 分からないのはこの#1^nの部分です。 Mathematicaのヘルプを読むと #nの部分と後半の&, n で純関数を置き換えているという説明があったのですがまず純関数というものがよく理解できないでいます。 また、この例の場合、解はどのように形になるのでしょうか。 分かる方どうかよろしくおねがいします。
- ベストアンサー
- 数学・算数
- Mathematicaの問題について
Mathematicaという数式処理システムについて、授業ではほとんど教わっておらず、説明なども飛ばし飛ばしで、一体何をやっているのだか、言っているのだか全く分からないまま課題が出されて、何をどうしてよいのか分からず、手が出ない状況で困っています。課題の内容を載せますので、どなたか解答を教えていただきたいです。出来れば何をどうしているのかも教えて頂けたら嬉しいのですが、解答だけでも十分ありがたいので、長くなってしまいますが、どうかよろしくお願いします。 １．分散を計算する以下の関数には、誤りがある。誤りを 指摘し、正しく動くよう修正しなさい。 myVariance[ arg1 ] : = ( xbar = Mean[arg1] ; temp1 = Table[ {i, 1, Length[arg1]}, (arg1[[i]] – xbar)^2]; N[ Apply[Plus, temp1] / Length[arg1] ] ) ２．正規分布の確率密度関数を描く関数grNormal を以下に 定義する。 (1)と(2)を埋めて関数を完成させなさい。 関数の入力引数は、平均mu, 標準偏差sigma, グラフを描く範囲(－xrange～xrange)の３つとする。 grNormal[mu_, sigma_, xrange_] := (1) ＿＿[{ndist, pdfunc, ymin=-0.01, ymax=0.43}, (2) ＿＿＿＿＿＿＿＿＿; pdfunc = PDF[ndist, x]; Plot[pdfunc,{x, -xrange, xrange}, Frame->True,PlotRange->{{-xrange, xrange}, {ymin, ymax}}] ] ３．複合式を用いて平均を求める関数を以下に定義する。 (1) と(2)を埋めて関数を完成させなさい myMean[(1) ＿＿] := (data1 = Apply[Plus, arg1]; data2 = Length[arg1]; average = (2) ＿＿) ４．data1 は，10 人の学生の統計学試験の点数とその度数をリストで示したも のである．このデータからMathematica を用いて統計学試験の分散を求める関 数を2 通りの方法により以下に作成した．(1)と(2)の下線を埋めて完成させなさ い． また，それぞれがどのような方法か説明しなさい 【手法１】 data1 = List[40, 40, 40, 50, 50, 50, 50] myVari[arg1_] := (xbar = Mean[arg1]; temp1 = Table[(arg1[[i]]-xbar)^2,{i,1,Length[arg1]}]; (1) ＿＿＿＿＿) Vari = myVari[data1] 【手法２】 data1 = List[40, 40, 40, 50, 50, 50, 50] myVari[arg1_] := (xbar = Mean[arg1]; temp1 = Table[(arg1[[i]])^2,{i,1,Length[arg1]}]; (2) ＿＿＿＿＿) Vari = myVari[data1] ５．data1 は，10 人の学生の統計学試験の点数とその度数をリストで示した ものである．このデータからMathematica を用いて統計学試験の分散を 求める関数を以下に作成した．誤りを指摘し，正しく動作するよう修正 しなさい. data1 = List[40, 40, 40, 50, 50, 50, 50, 60, 70, 80] myVari[arg1] := (xbar = Mean[arg1]; temp1 = Table[(arg1[[i]]-xbar),{i,1,Length[arg1]}]; N[Apply[Plus, temp1] – xbar^2]) Vari = myVari[data1] ６．data1 は10 名の学生の右握力と球投げの結果を2 次元のリストで示したものである. このデータからMathematica を用いて共分散を求める関数を以下に作成した．下線 (1) と(2) を埋めて完成させなさい．なお, myC の第１引数には右握力(grip), 第2 引数には砲丸投げ(shot) の値を与えるものとする. data = List[{26,16},{26,11},{26,14},{27,16},{28,18}, {29,16},{32,18},{29,21},{24,14},{26,19}] <<Statistics’MultiDescriptiveStatistics’ TableForm[data1] grip = Table[data3[[i,1]],{i,1,10}] shot = Table[data3[[i,2]],{i,1,10}] myC[arg1_,arg2_] := (xbar = Mean[arg1]; ybar = Mean[arg2]; temp1= (1)______________________________________________; (2)____________________________________________________) myCorrelation = myC[grip,shot]
- ベストアンサー
- 数学・算数
- 電界の球座標（Fortran）
FDTD法で求めたex(i,j,k), ey(i,j,k), ez(i,j,k) を使ってEr, Eθ,Eφを求めたいのですが、以下のプログラムではうまくいきません。式自体が間違っているのでしょうか？ 詳しい方がいらっしゃったら教えて下さい。よろしくお願いします。 subroutine efield_spherical use consts use fdtd implicit none integer :: i, j, k, n, td real(8) :: e_r, e_the, e_phi real(8) :: r, theta, phi, s real(8) :: sx, sy, sz real(8) :: tx, ty, tz real(8) :: rx, ry open(10,file="e_r.dat") open(20,file="e_the.dat") open(30,file="e_phi.dat") sx = sin(theta)*cos(phi) sy = sin(theta)*sin(phi) sz = cos(theta) tx = cos(theta)*cos(phi) ty = cos(theta)*sin(phi) tz = sin(theta) rx = sin(phi) ry = cos(phi) theta = 0.0d0 s = pi/180d0 do n = 0, 360 phi = s*n ! Er e_r = ex(i,j,k)*sx+ey(i,j,k)*sy+ez(i,j,k)*sz ! E_theta e_the = ex(i,j,k)*tx+ey(i,j,k)*ty-ez(i,j,k)*tz ! E_phi e_phi = -ex(i,j,k)*rx+ey(i,j,k)*ry write(10,*) e_r write(20,*) e_the write(30,*) e_phi enddo close(10) close(20) close(30) return end subroutine
- ベストアンサー
- その他（プログラミング・開発）
- EXCEL2002で,ABS関数に似た何らかの関数式を使い、負の数(-1)⇒正の数(1.)に＋－の記号だけを入れ換える方法とは？
EXCEL2002で,ABS関数に似た何らかの関数式を使い、負の数(-1)⇒正の数(1.)に＋－の記号だけを入れ換える方法とは？ わかり難いので、例を記します。 例 －１ ⇒ １ １ ⇒－１ というように、＋－の正負の記号だけを入れ換えたいのですが、何か良い方法はないでしょうか？
- ベストアンサー
- オフィス系ソフト
- 複素数や極限について
先日、初めて複素数や極限を習いましたが 授業自体が学校の授業ではあったものの少し特殊で 全くついて行けず、板書とプリントをノートに書き写すだけで終わりました。 で、質問は 複素数に出てくるcos, sin, θ 極限に出てくるf(x)に関してです。 極限は一部因数分解の知識を使うところがあったので、そこぐらいは分かった物の それ以外はほぼほぼ分からず 疑問を先生に聞いたところで、説明をされても、その説明さえ理解できないレベルです。 ただ、問題の解説や途中式を見ていて思ったのですが cos,sin,θ,f(x)に意味は無いのでしょうか？ こういう書き方をするとニュアンスが違ってしまうと思うのですが その前の三角関数からつまづいており（三角関数→ベクトル→複素数→極限の順で習いました） 三角関数だとcos30°はいくつとか計算しますよね。 cosは底辺/斜辺とか、sinは高さ/斜辺とか。 この意味は複素数に出てくるcosやsinも同じ意味を持っているのでしょうか？ 問題の途中式から結果まで数字が1個も出てこないとか普通にあったので 分数になって分子に1が来るとか、2乗だからという意味でcos2θとかなるのは除いて。 最後までずっとcos,sin,θ,iだけで終わったりして 答えも数字では無いので、違和感があり、気になったので質問しました。 後、上記で意味は無いのでしょうか？と書いたのはcos,sin,θよりも ここから書くf(x)について、かなりそう思っているところはあるのですが 問題などにfがあったらこれは関数だという判断だけに使うものであって fにはあまり意味が無いというように見えたのですが 違いますか？ 中学の数学ぐらいしか分かりませんが（高校では因数分解・展開の残りの公式とか、√のところをやったぐらいで中退しました） 中学で習った範囲で、これと意味というか、捉え方が一緒というものがあったらそれを例に出していただけると分かりやすくて助かります。 例えばy=xという感じで。 （xは知ってるけど、yが急に登場するようになったら、ｙってどういうことだか分からないですよね？だから捉え方としてはｘと同じだよと言われると、私だったら分かりやすいです）
- ベストアンサー
- 数学・算数
- 二つの円の重なっている部分の面積
半径r1,r2の二つの円があって、その中心間の距離をdとするとき、二つの円が重なっている部分の面積は、r1,r2,dの関数としてどのように表すことができるでしょうか。 重なっている部分の面積Sは、 S = r1*r1 (θ1 + sinθ1 * cosθ1) + r2*r2 (θ2 + sinθ2 * cosθ2) cosθ1 = a / r1 cosθ2 = b / r2 d = a + b として表すことができるのですが、式が４つありますので、θ1,θ2,a,bを消して、 Sをr1,r2,dの関数として表すことができると思うのですが、 どのようになりますでしょうか。
- ベストアンサー
- 数学・算数
- 三角関数の合成が考えられた背景はなんですか？
三角関数の合成は重要だと高校の授業で習いましたが、具体的にどんなところが重要なのですか？ 別になくても平気っちゃ平気ですよね？ sinとcosが式に両方入っていると扱いにくいからとかでしょうか？ 一つにまとめると何かが楽だからですか？
- ベストアンサー
- 数学・算数
お礼
あっ量子力学の件は自分で気付きました。 というのもCos[Phi]をなくしたパターンも すでにやっていたんです。だからたぶんそうなんじゃないかと。 ミスタイプはそこまでの問題じゃないからいいですよ わざわざありがとおうございます。 僕生物系でパソコン関係は趣味に近いんですσ(^◇^;) だから数学系の授業ってないんですよ 図書館かどっかで勉強してきます。ありがとうございました。 p.s.ポイントはお二方ともに20Point入れたいのですが無理なんで 投稿の早い順にさせてもらいました。m(__)m