実験データをプロットするまではよいのですが、
近似直線の引き方がわかりません。
近似『曲線』なら引けることがわかったのですが、
最小二乗法を用いた直線から傾きを求めたいのです。
どなたかご存知のかた、教えていただけませんでしょうか?
宜しくお願いします。
来週レポート提出なのです。(泣

このQ&Aに関連する最新のQ&A

A 回答 (2件)

ピント外れでしたね!!


以下のサイトが参考になりませんかね?
1.http://library.wolfram.com/mathgroup/archive/200 …
この質疑応答関連サイトも含めてどうでしょうか?
2.http://www.hs.konan-u.ac.jp/~math/Mathematica/in …
(Mathematica FAQ )
時間が間に合えば、
http://www.wolfram.com/student-support/
ここのサイトで質問してみては如何でしょうか?
3.http://www.lightstone.co.jp/products/origin/orig …
(Origin)
この中に
http://www.lightstone.co.jp/products/origin/nlfu …
(非線形フィット関数の一覧)
があります。
以下の例の中に作成したいFigureと類似のものがありますか?
http://www.lightstone.co.jp/products/origin/gg/e …
http://www.lightstone.co.jp/products/origin/Orig …
また、
http://www.lightstone.co.jp/products/origin/orig …
このページには、
「Excel、LotusIV、Sound、LabTech、MatheMatica、KaleidaGraph等のファイルを直接インポート可能」とあるので、邪道かもしれませんが、以下のサイトからデモ版を
DLしてトライしてみては如何でしょうか?

それとも、あくまでの「Mathematica」のみでというのであれば、以下のサイトからリンク先当たってみては如何でしょうか?
http://search.wolfram.com/index.cgi?config=forum …
このページが表示されなかったら、
http://search.wolfram.com/
で、「Curve-fitting」を入力して結果のサイトを見て検討されてはどうでしょうか?

直接的なお答えではありませんが、ご参考まで。

参考URL:http://www.lightstone.co.jp/products/origin/demo …
    • good
    • 0
この回答へのお礼

MiJunサン大変有用なurlありがとう!!
いままで普通に使っていて何も疑問がなかったので
サイト検索もしませんでしたが、こんなに関連サイトが
あって吃驚です。これから困ったときにrefer出来るページもあってよかった。
ありがとうございました。

お礼日時:-0001/11/30 00:00

表計算ソフトは何かお使いでしょうか?


「Excel」であれば近時曲線が引けて、その係数(傾き等)
もわかると思いますが・・・?
それ以外のフリーソフトのグラフ表示ソフトでの事でしょうか?

補足お願いい足増す。

この回答への補足

えーっと、学校の宿題なもんで…
Mathematicaでないとダメなんです。

それに理論曲線も合わせなきゃならんもので、、、
Excelじゃ理論曲線(y=x;x=Random)は引けないでしょう?

回答有難うございます。

補足日時:2000/11/25 15:07
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QMathematicaで関数の最大値を求める

Mathematicaで複素数の関数S(t)があったとします。
このS(t)の絶対値の最大値が知りたい時、どのように入力すればよいでしょうか?

Aベストアンサー

 S[t]は複素数関数ということですが、絶対値を取ってAbs[S[t]]とすれば結局は実数関数となるので、あとはこの実数関数を最大化すれば良いわけですね。

 ところが、Mathematicaには関数の最大化を行う関数はありません。まあこの点については最小化を行うFindMinimum関数があるため、正負を反転させた関数-Abs[S[t]]の最小化を行えば目的を達成することはできます。

 しかし、問題はFindMinimumで求められるのは局所的最小解であって、大域的最小解ではないということです(そもそも任意の関数の最小値を求める手法は未だ発見されていない)。これについては、幸い目的関数-Abs[S[t]]が1変数関数であるため、Plot関数で最小解がありそうな範囲の見当をつけてからFindMinimumで適切な初期値を与えてやれば、S[t]の絶対値の最大値を求めることができると思います。

Plot[-Abs[S[t]],{t,0,10}]←範囲は適当に変えて下さい
FindMinimum[-Abs[S[t]],{t,t0}]←t0(局所的最適解を求めるための初期点)は適切なものを与えて下さい

 S[t]は複素数関数ということですが、絶対値を取ってAbs[S[t]]とすれば結局は実数関数となるので、あとはこの実数関数を最大化すれば良いわけですね。

 ところが、Mathematicaには関数の最大化を行う関数はありません。まあこの点については最小化を行うFindMinimum関数があるため、正負を反転させた関数-Abs[S[t]]の最小化を行えば目的を達成することはできます。

 しかし、問題はFindMinimumで求められるのは局所的最小解であって、大域的最小解ではないということです(そもそも任意の関数の最小値を...続きを読む

Qmathematicaのグラフの軸

mathematicaで3次元プロット(x、y、z)をしたのですが、z軸だけメモリの間隔が狭くなってしまいます。
範囲はx、y、z軸どれも-500~500なんですが、z軸だけつぶれて表示されてしまい、たとえば球が楕円球のように見えてしまいます。
とても見にくいです。
メモリの間隔を何とかx、yと同じようにはできないでしょうか?
どなたか詳しい方がいらっしゃいましたらお教えください。

Aベストアンサー

BoxRatios -> Automaticで3Dグラフィックスの範囲が座標値の範囲の比に対応しますので,まずはこれを試してみてください.

例:
Plot3D[Sqrt[1 - x^2 - y^2], {x, -1, 1}, {y, -1, 1}, BoxRatios -> Automatic]

これでうまくいかなかったら,PlotRange -> {{-500,500},{-500,500},{-500,500}}とBoxRatios -> {1,1,1}を同時に指定してみてください.

参考URL:http://reference.wolfram.com/mathematica/ref/BoxRatios.html

Q波長(nm)をエネルギー(ev)に変換する式は?

波長(nm)をエネルギー(ev)に変換する式を知っていたら是非とも教えて欲しいのですが。
どうぞよろしくお願いいたします。

Aベストアンサー

No1 の回答の式より
 E = hc/λ[J]
   = hc/eλ[eV]
となります。
波長が nm 単位なら E = hc×10^9/eλ です。
あとは、
 h = 6.626*10^-34[J・s]
 e = 1.602*10^-19[C]
 c = 2.998*10^8[m/s]
などの値より、
 E≒1240/λ[eV]
となります。

>例えば540nmでは2.33eVになると論文には書いてあるのですが
>合っているのでしょうか?
λに 540[nm] を代入すると
 E = 1240/540 = 2.30[eV]
でちょっとずれてます。
式はあっているはずです。

QMathematicaの計算時間について

Mathematicaで時間のかかる計算をしたいんですが、
長く走らせていると青いエラーメッセージのようなものがでます。
プログラムに間違いは無いのですが、
このまま走らせて置いた場合結果はいずれ出力されるのでしょうか?

このような場合何か設定をいじったほうがいいのでしょうか?
もしそうならどこをどういじればよいか教えていただけると助かります。

Mathematica4.1、Windows2000です。

Aベストアンサー

ヘルプでTimeConstraint を調べるとわかります。
Simplifyにかかる時間が標準では300秒を超えるとabortします。
TimeConstraintの数値を変えるか、SimplifyをFullSimplify に変えると大丈夫だと思います。

Qエクセルで計算すると2.43E-19などと表示される。Eとは何ですか?

よろしくお願いします。
エクセルの回帰分析をすると有意水準で2.43E-19などと表示されますが
Eとは何でしょうか?

また、回帰分析の数字の意味が良く分からないのですが、
皆さんは独学されましたか?それとも講座などをうけたのでしょうか?

回帰分析でR2(決定係数)しかみていないのですが
どうすれば回帰分析が分かるようになるのでしょうか?
本を読んだのですがいまいち難しくて分かりません。
教えてください。
よろしくお願いします。

Aベストアンサー

★回答
・最初に『回帰分析』をここで説明するのは少し大変なので『E』のみ説明します。
・回答者 No.1 ~ No.3 さんと同じく『指数表記』の『Exponent』ですよ。
・『指数』って分かりますか?
・10→1.0E+1(1.0×10の1乗)→×10倍
・100→1.0E+2(1.0×10の2乗)→×100倍
・1000→1.0E+3(1.0×10の3乗)→×1000倍
・0.1→1.0E-1(1.0×1/10の1乗)→×1/10倍→÷10
・0.01→1.0E-2(1.0×1/10の2乗)→×1/100倍→÷100
・0.001→1.0E-3(1.0×1/10の3乗)→×1/1000倍→÷1000
・になります。ようするに 10 を n 乗すると元の数字になるための指数表記のことですよ。
・よって、『2.43E-19』とは?
 2.43×1/(10の19乗)で、
 2.43×1/10000000000000000000となり、
 2.43×0.0000000000000000001だから、
 0.000000000000000000243という数値を意味します。

補足:
・E+数値は 10、100、1000 という大きい数を表します。
・E-数値は 0.1、0.01、0.001 という小さい数を表します。
・数学では『2.43×10』の次に、小さい数字で上に『19』と表示します。→http://ja.wikipedia.org/wiki/%E6%8C%87%E6%95%B0%E8%A1%A8%E8%A8%98
・最後に『回帰分析』とは何?下の『参考URL』をどうぞ。→『数学』カテゴリで質問してみては?

参考URL:http://ja.wikipedia.org/wiki/%E5%9B%9E%E5%B8%B0%E5%88%86%E6%9E%90

★回答
・最初に『回帰分析』をここで説明するのは少し大変なので『E』のみ説明します。
・回答者 No.1 ~ No.3 さんと同じく『指数表記』の『Exponent』ですよ。
・『指数』って分かりますか?
・10→1.0E+1(1.0×10の1乗)→×10倍
・100→1.0E+2(1.0×10の2乗)→×100倍
・1000→1.0E+3(1.0×10の3乗)→×1000倍
・0.1→1.0E-1(1.0×1/10の1乗)→×1/10倍→÷10
・0.01→1.0E-2(1.0×1/10の2乗)→×1/100倍→÷100
・0.001→1.0E-3(1.0×1/10の3乗)→×1/1000倍→÷1000
・になります。ようするに 10 を n 乗すると元の数字になるた...続きを読む

Qmathematica, グラフ, 軸設定

mathematicaのグラフの描き方について質問させていただきます.

x=yの3次式
を縦軸y, 横軸xでPlotしたいと考えていますが,
Plot[yの3次式, {yの範囲}]
を実行すれば、横軸yでPlotされるかと思います.

yを変化させ(yをxについて解かずに), 横軸にx, 縦軸にyでPlotしたいのですが、
軸を設定するオプションコマンドなどはありますでしょうか。

よろしくお願い申し上げます。

Aベストアンサー

ParametricPlotを使ったらどうでしょうか.

たとえば,通常のPlot
Plot[y^3 - 2 y^2 - 3 y + 4, {y, 0, 3}, AspectRatio -> 1]
に対し,
ParametricPlot[{y^3 - 2 y^2 - 3 y + 4, y}, {y, 0, 3}, AspectRatio -> 1]
とすればx軸とy軸を反転させたグラフを描けます.

参考URL:http://reference.wolfram.com/mathematica/ref/ParametricPlot.ja.html

Qmathematica 2変数関数

mathematicaで2変数関数f(x,y)を定義し、PLot3Dで表示したいのですが

x=y=0の時のみf(x,y)=0
x=y=0以外はf(x,y)=g(x,y) (g(x,y)は全領域で予め定義されている)

f[x_,y_]:=0;/x=y=0
f[x_,y_]:=g(x,y);/x=y!=0
Plot3D[f[x,y],・・・]

とするとエラーがでてしまいますどうしたらいいでしょうか

Aベストアンサー

場合分け piecewise を使って関数を定義すればいいでしょう。参考URLは1変数関数のplotの例です。

参考URL:http://reference.wolfram.com/mathematica/ref/Piecewise.ja.html


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報