ファイル:Rational Elliptic Function (abs, n=3, x=(0,5)).svg
ナビゲーションに移動
検索に移動
この SVG ファイルのこの PNG プレビューのサイズ: 720 × 460 ピクセル. その他の解像度: 320 × 204 ピクセル | 640 × 409 ピクセル | 1,024 × 654 ピクセル | 1,280 × 818 ピクセル | 2,560 × 1,636 ピクセル。
元のファイル (SVG ファイル、720 × 460 ピクセル、ファイルサイズ: 84キロバイト)
| 解説 |
English: A graph of thr absolute value of the third-order rational elliptic function, R3(ξ,x) over the interval [0,5]. Here, ξ (the selectivity factor) is 1.4. Also shown is the discrimination factor, Ln. |
||
| 日付 | |||
| 原典 | 投稿者自身による著作物 | ||
| 作者 | Inductiveload | ||
| 許可 (ファイルの再利用) |
|
).svg){kind=link}
Mathematica Code
xp2[xi_] :=
Module[{g, num, den},
g = Sqrt[4*xi^2 + (4*xi^2*(xi^2 - 1))^(2/3)];
num = 2*xi^2*Sqrt[g];
den = Sqrt[8*xi^2*(xi^2 + 1) + 12*g*xi^2 - g^3] - Sqrt[g^3];
num/den
];
xz2[xi_] := xi^2/xp2[xi];
t[xi_] := Sqrt[1 - 1/xi^2];
(*Use the particular forms for these low-order REFs*)
r1[xi_, x_] := x;
r2[xi_, x_] := ((t[xi] + 1)*x^2 - 1)/((t[xi] - 1)*x^2 + 1);
r3[xi_, x_] :=
x*((1 - xp2[xi])*(x^2 - xz2[xi]))/((1 - xz2[xi])*(x^2 -
xp2[xi]));
r4[xi_, x_] :=
Module[{num, den},
num = (1 + t[xi]) (1 + Sqrt[t[xi]])^2*x^4 -
2 (1 + t[xi]) (1 + Sqrt[t[xi]])*x^2 + 1;
den = (1 + t[xi]) (1 - Sqrt[t[xi]])^2*x^4 -
2 (1 + t[xi]) (1 - Sqrt[t[xi]])*x^2 + 1;
num/den
];
LogPlot[
xi = 1.4;
Abs[r3[xi, x]],
{x, 0, 5},
PlotRange -> {0.01, 1000}]
ファイルの履歴
過去の版のファイルを表示するには、その版の日時をクリックしてください。
| 日時 | サムネイル | 寸法 | 利用者 | コメント | |
|---|---|---|---|---|---|
| 現在の版 | 2009年1月29日 (木) 06:00 | | 720 × 460 (84キロバイト) | wikimediacommons>Inductiveload | changed to exponent y-labels |
ファイルの使用状況
以下のページがこのファイルを使用しています:
).svg){kind=link}