| Algorithm 1. Lyapunov exponent adjustment procedure | |
| 1: | procedureAdjust_Lyapunov_Exponent (, , , ) |
| 2: | for i: = 1 to step by 1 do |
| 3: | : = Estimate_Lyapunov_Exponent (); |
| 4: | : = ; |
| 5: | : = Absolute_Value (); |
| 6: | //stop if: estimated value is within the tolerance range |
| 7: | //or does not change between iterations |
| 8: | if () OR () then |
| 9: | break for i loop; |
| 10: | end if |
| 11: | if (Sign () Sign ()) then |
| 12: | ; |
| 13: | end if |
| 14: | Compute_Spectral_Radius (); |
| 15: | //adjust spectral radius to |
| 16: | if (Sign ()) then |
| 17: | Set_Spectral_Radius (); |
| 18: | else |
| 19: | Set_Spectral_Radius (); |
| 20: | end if |
| 21: | end for i |
| 22: | i_out: = Index_of_Minimum_Value (); |
| 23: | return { }; |
| end procedure | |