From 2393d5bab1917825e806871d9050ca54dc3041f3 Mon Sep 17 00:00:00 2001
From: Tim Blechmann <timblech@users.sourceforge.net>
Date: Sat, 12 Feb 2005 08:58:21 +0000
Subject: stability improvement and others

svn path=/trunk/externals/tb/; revision=2568
---
 chaos/src/latoomutalpha.hpp | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'chaos/src/latoomutalpha.hpp')

diff --git a/chaos/src/latoomutalpha.hpp b/chaos/src/latoomutalpha.hpp
index 6926d1b..015eddf 100644
--- a/chaos/src/latoomutalpha.hpp
+++ b/chaos/src/latoomutalpha.hpp
@@ -61,6 +61,18 @@ public:
 		m_data[1] = sin(x1*a) + tmp1*tmp1 + tmp2*tmp2*tmp2;
 	}
 
+	/* function has a fix point for x1 == x2 == 0 */
+	virtual void m_verify() 
+	{
+		for (int i = 0; i != get_num_eq(); ++i)
+		{
+#ifndef DOUBLE_PRECISION
+			if (PD_BIGORSMALL(m_data[i]))
+				m_data[i] = 0.01;
+#endif
+		}
+	};
+
 	CHAOS_SYSVAR_FUNCS(x1, 0);
 	CHAOS_SYSVAR_FUNCS(x2, 1);
 
-- 
cgit v1.2.1