From a0f8c026117d1bbe094894d614136efea4b65c97 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Thu, 14 Aug 2003 14:32:00 +0000 Subject: 10 new sickle classes svn path=/trunk/externals/miXed/; revision=846 --- cyclone/sickle/curve.gp | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 cyclone/sickle/curve.gp (limited to 'cyclone/sickle/curve.gp') 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) -- cgit v1.2.1