Version 3.0

STK/JetTabl.cpp

@@ -0,0 +1,36 @@
+/**********************************************/
+/* Jet Table Object by Perry R. Cook, 1995-96 */
+/* Consult Fletcher and Rossing, Karjalainen, */
+/*       Cook, more, for information.         */
+/* This, as with many other of my "tables",   */
+/* is not a table, but is computed by poly-   */
+/* nomial calculation.                        */
+/**********************************************/
+
+#include "JetTabl.h"
+
+JetTabl :: JetTabl()
+{
+    lastOutput = (MY_FLOAT) 0.0;
+}
+
+JetTabl :: ~JetTabl()
+{
+}
+
+MY_FLOAT JetTabl :: lookup(MY_FLOAT sample) /*   Perform "Table Lookup"    */
+{                                       /*   By Polynomial Calculation */
+    lastOutput = sample * 
+                (sample*sample - (MY_FLOAT)  1.0);  /* (x^3 - x) approximates sigmoid of jet */
+    if (lastOutput > 1.0) 
+        lastOutput = (MY_FLOAT) 1.0;    /* Saturation at +/- 1.0       */
+    if (lastOutput < -1.0) 
+        lastOutput = (MY_FLOAT) -1.0; 
+    return lastOutput;
+}
+
+MY_FLOAT JetTabl :: lastOut()
+{
+    return lastOutput;
+}
+