trig functions: sinh, cosh and tanh implemented with exp

svn path=/trunk/abstractions/purepd/; revision=10369

3 files changed, 66 insertions, 0 deletions

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;