From 56a5f7d890e96ba76606e68f9b1b2ab2ac5a230a Mon Sep 17 00:00:00 2001
From: Frank Barknecht <fbar@users.sourceforge.net>
Date: Sun, 16 Nov 2008 19:26:12 +0000
Subject: trig functions: sinh, cosh and tanh implemented with exp

svn path=/trunk/abstractions/purepd/; revision=10369
---
 cosh.pd | 22 ++++++++++++++++++++++
 sinh.pd | 22 ++++++++++++++++++++++
 tanh.pd | 22 ++++++++++++++++++++++
 3 files changed, 66 insertions(+)
 create mode 100644 cosh.pd
 create mode 100644 sinh.pd
 create mode 100644 tanh.pd

diff --git a/cosh.pd b/cosh.pd
new file mode 100644
index 0000000..1d8be99
--- /dev/null
+++ b/cosh.pd
@@ -0,0 +1,22 @@
+#N canvas 208 87 450 300 10;
+#X obj 88 37 inlet;
+#X obj 88 87 t a a;
+#X obj 88 223 outlet;
+#X obj 120 116 * -1;
+#X obj 120 136 exp;
+#X obj 88 136 exp;
+#X obj 88 199 * 0.5;
+#X text 323 133 2;
+#X obj 88 174 +;
+#X text 272 105 exp(x) + exp(-x);
+#X text 223 117 cosh = ----------------;
+#X obj 88 64 f \$1;
+#X connect 0 0 11 0;
+#X connect 1 0 5 0;
+#X connect 1 1 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 8 1;
+#X connect 5 0 8 0;
+#X connect 6 0 2 0;
+#X connect 8 0 6 0;
+#X connect 11 0 1 0;
diff --git a/sinh.pd b/sinh.pd
new file mode 100644
index 0000000..b0e2e0b
--- /dev/null
+++ b/sinh.pd
@@ -0,0 +1,22 @@
+#N canvas 0 0 450 300 10;
+#X obj 88 37 inlet;
+#X obj 88 87 t a a;
+#X obj 88 223 outlet;
+#X obj 120 116 * -1;
+#X obj 120 136 exp;
+#X obj 88 136 exp;
+#X obj 88 174 -;
+#X obj 88 199 * 0.5;
+#X text 313 133 2;
+#X text 272 105 exp(x) - exp(-x);
+#X text 223 117 sinh = ----------------;
+#X obj 88 64 f \$1;
+#X connect 0 0 11 0;
+#X connect 1 0 5 0;
+#X connect 1 1 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 6 1;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 2 0;
+#X connect 11 0 1 0;
diff --git a/tanh.pd b/tanh.pd
new file mode 100644
index 0000000..84a22ab
--- /dev/null
+++ b/tanh.pd
@@ -0,0 +1,22 @@
+#N canvas 129 16 457 303 10;
+#X obj 105 29 inlet;
+#X obj 105 119 t a a;
+#X obj 105 73 * 2;
+#X obj 105 94 exp;
+#X obj 105 172 / 1;
+#X obj 105 199 outlet;
+#X obj 105 148 - 1;
+#X obj 137 148 + 1;
+#X text 289 97 exp(2x) - 1;
+#X text 290 125 exp(2x) + 1;
+#X text 240 109 tanh = -----------;
+#X obj 105 51 f \$1;
+#X connect 0 0 11 0;
+#X connect 1 0 6 0;
+#X connect 1 1 7 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 6 0 4 0;
+#X connect 7 0 4 1;
+#X connect 11 0 2 0;
-- 
cgit v1.2.1