ファイル:Rational Elliptic Functions (xi varied, x=(-1,1)).svg
ナビゲーションに移動
検索に移動
この SVG ファイルのこの PNG プレビューのサイズ: 720 × 460 ピクセル. その他の解像度: 320 × 204 ピクセル | 640 × 409 ピクセル | 1,024 × 654 ピクセル | 1,280 × 818 ピクセル | 2,560 × 1,636 ピクセル。
元のファイル (SVG ファイル、720 × 460 ピクセル、ファイルサイズ: 96キロバイト)
| 解説 |
English: A graph of the fourth-degree rational elliptic function, R4(ξ,x) on the interval [−1,1]. ξ is the selectivity factor, and is varied in this graph. |
||
| 日付 | |||
| 原典 | 投稿者自身による著作物 | ||
| 作者 | 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];
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
];
Plot[
Table[
r4[xi, x],
{xi, {1.0001, 1.001, 1.01, 1.1, Infinity}}],
{x, -1, 1},
Axes -> False]
ファイルの履歴
過去の版のファイルを表示するには、その版の日時をクリックしてください。
| 日時 | サムネイル | 寸法 | 利用者 | コメント | |
|---|---|---|---|---|---|
| 現在の版 | 2009年1月29日 (木) 05:02 | | 720 × 460 (96キロバイト) | wikimediacommons>Inductiveload | fixed y-axis title |
ファイルの使用状況
以下のページがこのファイルを使用しています:
).svg){kind=link}