diff options
| author | N.N. <krzyszcz@users.sourceforge.net> | 2003-08-14 14:32:00 +0000 |
|---|---|---|
| committer | N.N. <krzyszcz@users.sourceforge.net> | 2003-08-14 14:32:00 +0000 |
| commit | a0f8c026117d1bbe094894d614136efea4b65c97 (patch) | |
| tree | 26fe6a8efad5dddc42a5986084606fddbf1e057a /cyclone/sickle/curve.gp | |
| parent | 053845e60bc1f6143e7c50aa10069a18405c2161 (diff) | |
10 new sickle classes
svn path=/trunk/externals/miXed/; revision=846
Diffstat (limited to 'cyclone/sickle/curve.gp')
| -rw-r--r-- | cyclone/sickle/curve.gp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/cyclone/sickle/curve.gp b/cyclone/sickle/curve.gp new file mode 100644 index 0000000..be5dacb --- /dev/null +++ b/cyclone/sickle/curve.gp @@ -0,0 +1,9 @@ +h(p) = (((p + 1e-20) * 1.2) ** .41) * .91 +f(p) = h(p) / (1 - h(p)) +g(x, p) = (exp(f(p) * x) - 1) / (exp(f(p)) - 1) +splot [0:1] [0:1] g(x, y) +pause -1 +plot [0:1] g(.25, x), g(.5, x), g(.75, x) +pause -1 +plot [0:1] g(x, 0), g(x, .25), g(x, .5), g(x, .75), g(x, 1) +print g(.5, 0) |