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/latoomutgamma.hpp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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

diff --git a/chaos/src/latoomutgamma.hpp b/chaos/src/latoomutgamma.hpp
index b4f3bf8..d83059e 100644
--- a/chaos/src/latoomutgamma.hpp
+++ b/chaos/src/latoomutgamma.hpp
@@ -58,6 +58,19 @@ public:
 		m_data[1] = CHAOS_ABS(sin(x1*a)) + tmp*tmp;
 	}
 
+
+	/* 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