/ *   
 
   *   P R O J E C T :   N y A R T o o l k i t C S ( E x t e n s i o n ) 
 
   *   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
   *   T h e   N y A R T o o l k i t C S   i s   J a v a   e d i t i o n   A R T o o l K i t   c l a s s   l i b r a r y . 
 
   *   C o p y r i g h t   ( C ) 2 0 0 8 - 2 0 0 9   R y o   I i z u k a 
 
   * 
 
   *   T h i s   p r o g r a m   i s   f r e e   s o f t w a r e :   y o u   c a n   r e d i s t r i b u t e   i t   a n d / o r   m o d i f y 
 
   *   i t   u n d e r   t h e   t e r m s   o f   t h e   G N U   G e n e r a l   P u b l i c   L i c e n s e   a s   p u b l i s h e d   b y 
 
   *   t h e   F r e e   S o f t w a r e   F o u n d a t i o n ,   e i t h e r   v e r s i o n   3   o f   t h e   L i c e n s e ,   o r 
 
   *   ( a t   y o u r   o p t i o n )   a n y   l a t e r   v e r s i o n . 
 
   *   
 
   *   T h i s   p r o g r a m   i s   d i s t r i b u t e d   i n   t h e   h o p e   t h a t   i t   w i l l   b e   u s e f u l , 
 
   *   b u t   W I T H O U T   A N Y   W A R R A N T Y ;   w i t h o u t   e v e n   t h e   i m p l i e d   w a r r a n t y   o f 
 
   *   M E R C H A N T A B I L I T Y   o r   F I T N E S S   F O R   A   P A R T I C U L A R   P U R P O S E .     S e e   t h e 
 
   *   G N U   G e n e r a l   P u b l i c   L i c e n s e   f o r   m o r e   d e t a i l s . 
 
   * 
 
   *   Y o u   s h o u l d   h a v e   r e c e i v e d   a   c o p y   o f   t h e   G N U   G e n e r a l   P u b l i c   L i c e n s e 
 
   *   a l o n g   w i t h   t h i s   p r o g r a m .     I f   n o t ,   s e e   < h t t p : / / w w w . g n u . o r g / l i c e n s e s / > . 
 
   *   
 
   *   F o r   f u r t h e r   i n f o r m a t i o n   p l e a s e   c o n t a c t . 
 
   * 	 h t t p : / / n y a t l a . j p / n y a t o o l k i t / 
 
   * 	 < a i r m a i l ( a t ) e b o n y . p l a l a . o r . j p >   o r   < n y a t l a ( a t ) n y a t l a . j p > 
 
   *   
 
   * / 
 
 u s i n g   S y s t e m ; 
 
 u s i n g   S y s t e m . D i a g n o s t i c s ; 
 
 n a m e s p a c e   j p . n y a t l a . n y a r t o o l k i t . c s . c o r e 
 
 { 
 
 
 
 
 
 
 
         / * * 
 
           *   S0n0000k0o00ez_0O0pe0[W0~0Y00
 
           * / 
 
         p u b l i c   c l a s s   N y A R E q u a t i o n S o l v e r 
 
         { 
 
                 / * * 
 
                   *   S0n0peo00  N!kez_( a x ^ 2 + b x + c = 0 ) 0D0f00[9hn000ԏW0~0Y00
 
                   *   @ p a r a m   i _ a 
 
                   *   Opea n0$P
 
                   *   @ p a r a m   i _ b 
 
                   *   Opeb n0$P
 
                   *   @ p a r a m   i _ c 
 
                   *   Opec n0$P
 
                   *   @ p a r a m   o _ r e s u l t 
 
                   *   ㉒0SQ0S0MR02  }N
Ng0B00N0
 
                   *   @ r e t u r n 
 
                   *   o _ r e s u l t k0<h
}W0_0[9hn0pe0
 
                   * / 
 
                 p u b l i c   s t a t i c   i n t   s o l v e 2 E q u a t i o n ( d o u b l e   i _ a ,   d o u b l e   i _ b ,   d o u b l e   i _ c ,   d o u b l e [ ]   o _ r e s u l t ) 
 
                 { 
 
                         D e b u g . A s s e r t ( i _ a   ! =   0 ) ; 
 
                         r e t u r n   s o l v e 2 E q u a t i o n ( i _ b   /   i _ a ,   i _ c   /   i _ a ,   o _ r e s u l t ,   0 ) ; 
 
                 } 
 
                 / * * 
 
                   *   S0n0peo00  N!kez_( x ^ 2 + b x + c = 0 ) 0D0f00[9hn000ԏW0~0Y00
 
                   *   @ p a r a m   i _ b 
 
                   *   Opeb n0$P
 
                   *   @ p a r a m   i _ c 
 
                   *   Opec n0$P
 
                   *   @ p a r a m   o _ r e s u l t 
 
                   *   ㉒0SQ0S0MR02  }N
Ng0B00N0
 
                   *   @ r e t u r n 
 
                   *   o _ r e s u l t k0<h
}W0_0[9hn0pe0
 
                   * / 
 
                 p u b l i c   s t a t i c   i n t   s o l v e 2 E q u a t i o n ( d o u b l e   i _ b ,   d o u b l e   i _ c ,   d o u b l e [ ]   o _ r e s u l t ) 
 
                 { 
 
                         r e t u r n   s o l v e 2 E q u a t i o n ( i _ b ,   i _ c ,   o _ r e s u l t ,   0 ) ; 
 
                 } 
 
                 / * * 
 
                   *   S0n0peo00  N!kez_( x ^ 2 + b x + c = 0 ) 0D0f00[9hn000ԏW0~0Y00
 
                   *   @ p a r a m   i _ b 
 
                   *   Opeb n0$P
 
                   *   @ p a r a m   i _ c 
 
                   *   Opec n0$P
 
                   *   @ p a r a m   o _ r e s u l t 
 
                   *   ㉒0SQ0S0MR0
 
                   *   @ p a r a m   i _ r e s u l t _ s t 
 
                   *   o _ r e s u l t n0<h
}0YY0000000juS
 
                   *   @ r e t u r n 
 
                   *   o _ r e s u l t k0<h
}W0_0[9hn0pe0
 
                   * / 
 
                 p u b l i c   s t a t i c   i n t   s o l v e 2 E q u a t i o n ( d o u b l e   i _ b ,   d o u b l e   i _ c ,   d o u b l e [ ]   o _ r e s u l t ,   i n t   i _ r e s u l t _ s t ) 
 
                 { 
 
                         d o u b l e   t   =   i _ b   *   i _ b   -   4   *   i _ c ; 
 
                         i f   ( t   <   0 ) 
 
                         { 
 
                                 / / Zpe9h
 
                                 r e t u r n   0 ; 
 
                         } 
 
                         i f   ( t   = =   0 ) 
 
                         { 
 
                                 / / ͑9h
 
                                 o _ r e s u l t [ i _ r e s u l t _ s t   +   0 ]   =   - i _ b   /   ( 2 ) ; 
 
                                 r e t u r n   1 ; 
 
                         } 
 
                         / / [9hP
 
                         t   =   M a t h . S q r t ( t ) ; 
 
                         o _ r e s u l t [ i _ r e s u l t _ s t   +   0 ]   =   ( - i _ b   +   t )   /   ( 2 ) ; 
 
                         o _ r e s u l t [ i _ r e s u l t _ s t   +   1 ]   =   ( - i _ b   -   t )   /   ( 2 ) ; 
 
                         r e t u r n   2 ; 
 
                 } 
 
 
 
                 / * * 
 
                   *   S0n0peo00!kez_( a * x ^ 3 + b * x ^ 2 + c * x + d = 0 ) n0[9h0{W0~0Y00	   
 
                   *   S0n0000o00h t t p : / / a o k i 2 . s i . g u n m a - u . a c . j p / J a v a S c r i p t / s r c / 3 j i s i k i . h t m l 0CQk0W0f0D0~0Y00
 
                   *   @ p a r a m   i _ a 
 
                   *   X ^ 3 n0Ope
 
                   *   @ p a r a m   i _ b 
 
                   *   X ^ 2 n0Ope
 
                   *   @ p a r a m   i _ c 
 
                   *   X ^ 1 n0Ope
 
                   *   @ p a r a m   i _ d 
 
                   *   X ^ 0 n0Ope
 
                   *   @ p a r a m   o _ r e s u l t 
 
                   *   [9h0d o u b l e [ 3 ] 0c[Y00S0h00
 
                   *   @ r e t u r n 
 
                   *   ԏtSW0_0[9hn0pe0
 
                   * / 
 
                 p u b l i c   s t a t i c   i n t   s o l v e 3 E q u a t i o n ( d o u b l e   i _ a ,   d o u b l e   i _ b ,   d o u b l e   i _ c ,   d o u b l e   i _ d ,   d o u b l e [ ]   o _ r e s u l t ) 
 
                 { 
 
                         D e b u g . A s s e r t ( i _ a   ! =   0 ) ; 
 
                         r e t u r n   s o l v e 3 E q u a t i o n ( i _ b   /   i _ a ,   i _ c   /   i _ a ,   i _ d   /   i _ a ,   o _ r e s u l t ) ; 
 
                 } 
 
                 / * * 
 
                   *   S0n0peo00!kez_( x ^ 3 + b * x ^ 2 + c * x + d = 0 ) n0[9h0{W0~0Y00	   
 
                   *   S0n0000o00h t t p : / / a o k i 2 . s i . g u n m a - u . a c . j p / J a v a S c r i p t / s r c / 3 j i s i k i . h t m l 0CQk0W0f0D0~0Y00
 
                   *   @ p a r a m   i _ b 
 
                   *   X ^ 2 n0Ope
 
                   *   @ p a r a m   i _ c 
 
                   *   X ^ 1 n0Ope
 
                   *   @ p a r a m   i _ d 
 
                   *   X ^ 0 n0Ope
 
                   *   @ p a r a m   o _ r e s u l t 
 
                   *   [9h0d o u b l e [ 3 ] 0c[Y00S0h00
 
                   *   @ r e t u r n 
 
                   *   ԏtSW0_0[9hn0pe0
 
                   * / 
 
                 p u b l i c   s t a t i c   i n t   s o l v e 3 E q u a t i o n ( d o u b l e   i _ b ,   d o u b l e   i _ c ,   d o u b l e   i _ d ,   d o u b l e [ ]   o _ r e s u l t ) 
 
                 { 
 
                         d o u b l e   t m p ,   b ,   p ,   q ; 
 
                         b   =   i _ b   /   ( 3 ) ; 
 
                         p   =   b   *   b   -   i _ c   /   3 ; 
 
                         q   =   ( b   *   ( i _ c   -   2   *   b   *   b )   -   i _ d )   /   2 ; 
 
                         i f   ( ( t m p   =   q   *   q   -   p   *   p   *   p )   = =   0 ) 
 
                         { 
 
                                 / /   ͑9h
 
                                 q   =   N y A R M a t h . c u b e R o o t ( q ) ; 
 
                                 o _ r e s u l t [ 0 ]   =   2   *   q   -   b ; 
 
                                 o _ r e s u l t [ 1 ]   =   - q   -   b ; 
 
                                 r e t u r n   2 ; 
 
                         } 
 
                         e l s e   i f   ( t m p   >   0 ) 
 
                         { 
 
                                 / /   [9h1 , Z9h2 
 
                                 d o u b l e   a 3   =   N y A R M a t h . c u b e R o o t ( q   +   ( ( q   >   0 )   ?   1   :   - 1 )   *   M a t h . S q r t ( t m p ) ) ; 
 
                                 d o u b l e   b 3   =   p   /   a 3 ; 
 
                                 o _ r e s u l t [ 0 ]   =   a 3   +   b 3   -   b ; 
 
                                 / /   Z9h: - 0 . 5 * ( a 3 + b 3 ) - b , M a t h . a b s ( a 3 - b 3 ) * M a t h . s q r t ( 3 . 0 ) / 2 
 
                                 r e t u r n   1 ; 
 
                         } 
 
                         e l s e 
 
                         { 
 
                                 / /   [9h3 
 
                                 t m p   =   2   *   M a t h . S q r t ( p ) ; 
 
                                 d o u b l e   t   =   M a t h . A c o s ( q   /   ( p   *   t m p   /   2 ) ) ; 
 
                                 o _ r e s u l t [ 0 ]   =   t m p   *   M a t h . C o s ( t   /   3 )   -   b ; 
 
                                 o _ r e s u l t [ 1 ]   =   t m p   *   M a t h . C o s ( ( t   +   2   *   M a t h . P I )   /   3 )   -   b ; 
 
                                 o _ r e s u l t [ 2 ]   =   t m p   *   M a t h . C o s ( ( t   +   4   *   M a t h . P I )   /   3 )   -   b ; 
 
                                 r e t u r n   3 ; 
 
                         } 
 
                 } 
 
 
 
 
 
 
 
                 / * * 
 
                   *   S0n0peo004 !kez_( a x ^ 4 + b x ^ 3 + b * c x ^ 2 + d * x + e = 0 ) n0[9h0{W0~0Y00	   
 
                   *   @ p a r a m   i _ a 
 
                   *   X ^ 4 n0Ope
 
                   *   @ p a r a m   i _ b 
 
                   *   X ^ 3 n0Ope
 
                   *   @ p a r a m   i _ c 
 
                   *   X ^ 2 n0Ope
 
                   *   @ p a r a m   i _ d 
 
                   *   X ^ 1 n0Ope
 
                   *   @ p a r a m   i _ e 
 
                   *   X ^ 0 n0Ope
 
                   *   @ p a r a m   o _ r e s u l t 
 
                   *   [9h0d o u b l e [ 4 ] 0c[Y00S0h00
 
                   *   @ r e t u r n 
 
                   *   ԏtSW0_0[9hn0pe0
 
                   * / 
 
                 p u b l i c   s t a t i c   i n t   s o l v e 4 E q u a t i o n ( d o u b l e   i _ a ,   d o u b l e   i _ b ,   d o u b l e   i _ c ,   d o u b l e   i _ d ,   d o u b l e   i _ e ,   d o u b l e [ ]   o _ r e s u l t ) 
 
                 { 
 
                         D e b u g . A s s e r t ( i _ a   ! =   0 ) ; 
 
                         d o u b l e   A 3 ,   A 2 ,   A 1 ,   A 0 ,   B 3 ; 
 
                         A 3   =   i _ b   /   i _ a ; 
 
                         A 2   =   i _ c   /   i _ a ; 
 
                         A 1   =   i _ d   /   i _ a ; 
 
                         A 0   =   i _ e   /   i _ a ; 
 
                         B 3   =   A 3   /   4 ; 
 
                         d o u b l e   p ,   q ,   r ; 
 
                         d o u b l e   B 3 _ 2   =   B 3   *   B 3 ; 
 
                         p   =   A 2   -   6   *   B 3 _ 2 ; / / A 2 - 6 * B 3 * B 3 ; 
 
                         q   =   A 1   +   B 3   *   ( - 2   *   A 2   +   8   *   B 3 _ 2 ) ; / / A 1 - 2 * A 2 * B 3 + 8 * B 3 * B 3 * B 3 ; 
 
                         r   =   A 0   +   B 3   *   ( - A 1   +   A 2   *   B 3 )   -   3   *   B 3 _ 2   *   B 3 _ 2 ; / / A 0 - A 1 * B 3 + A 2 * B 3 * B 3 - 3 * B 3 * B 3 * B 3 * B 3 ; 
 
                         i f   ( q   = =   0 ) 
 
                         { 
 
                                 d o u b l e   r e s u l t _ 0 ,   r e s u l t _ 1 ; 
 
                                 / / N!k_
 
                                 i n t   r e s   =   s o l v e 2 E q u a t i o n ( p ,   r ,   o _ r e s u l t ,   0 ) ; 
 
                                 s w i t c h   ( r e s ) 
 
                                 { 
 
                                         c a s e   0 : 
 
                                                 / / hQf0Zpe
 
                                                 r e t u r n   0 ; 
 
                                         c a s e   1 : 
 
                                                 / / ͑9h
 
                                                 / / o00 , 1 , 2 n0UO0K00
 
                                                 r e s u l t _ 0   =   o _ r e s u l t [ 0 ] ; 
 
                                                 i f   ( r e s u l t _ 0   <   0 ) 
 
                                                 { 
 
                                                         / / hQf0Zpe
 
                                                         r e t u r n   0 ; 
 
                                                 } 
 
                                                 / / [9h1 P
 
                                                 i f   ( r e s u l t _ 0   = =   0 ) 
 
                                                 { 
 
                                                         / / N C 
 
                                                         o _ r e s u l t [ 0 ]   =   0   -   B 3 ; 
 
                                                         r e t u r n   1 ; 
 
                                                 } 
 
                                                 / / [9h2 P
 
                                                 r e s u l t _ 0   =   M a t h . S q r t ( r e s u l t _ 0 ) ; 
 
                                                 o _ r e s u l t [ 0 ]   =   r e s u l t _ 0   -   B 3 ; 
 
                                                 o _ r e s u l t [ 1 ]   =   - r e s u l t _ 0   -   B 3 ; 
 
                                                 r e t u r n   2 ; 
 
                                         c a s e   2 : 
 
                                                 / / [9hP`0K00t = = t 2 = = 0 o0B00H0j0D00( c a s e 1 ) 
 
                                                 / / o000 , 2 , 4 n0UO0K00
 
                                                 r e s u l t _ 0   =   o _ r e s u l t [ 0 ] ; 
 
                                                 r e s u l t _ 1   =   o _ r e s u l t [ 1 ] ; 
 
                                                 i n t   n u m b e r _ o f _ r e s u l t   =   0 ; 
 
                                                 i f   ( r e s u l t _ 0   >   0 ) 
 
                                                 { 
 
                                                         / / N C 
 
                                                         r e s u l t _ 0   =   M a t h . S q r t ( r e s u l t _ 0 ) ; 
 
                                                         o _ r e s u l t [ 0 ]   =   r e s u l t _ 0   -   B 3 ; 
 
                                                         o _ r e s u l t [ 1 ]   =   - r e s u l t _ 0   -   B 3 ; 
 
                                                         n u m b e r _ o f _ r e s u l t   + =   2 ; 
 
                                                 } 
 
                                                 i f   ( r e s u l t _ 1   >   0 ) 
 
                                                 { 
 
                                                         / / N C 
 
                                                         r e s u l t _ 1   =   M a t h . S q r t ( r e s u l t _ 1 ) ; 
 
                                                         o _ r e s u l t [ n u m b e r _ o f _ r e s u l t   +   0 ]   =   r e s u l t _ 1   -   B 3 ; 
 
                                                         o _ r e s u l t [ n u m b e r _ o f _ r e s u l t   +   1 ]   =   - r e s u l t _ 1   -   B 3 ; 
 
                                                         n u m b e r _ o f _ r e s u l t   + =   2 ; 
 
                                                 } 
 
                                                 r e t u r n   n u m b e r _ o f _ r e s u l t ; 
 
                                         d e f a u l t : 
 
                                                 t h r o w   n e w   N y A R E x c e p t i o n ( ) ; 
 
                                 } 
 
                         } 
 
                         e l s e 
 
                         { 
 
                                 / / ]00NY
 
                                 / /  giS0000: 
 
                                 / / u ^ 3     +   ( 2 * p ) * u ^ 2     + ( ( -   4 * r ) + ( p ^ 2 ) ) * u   - q ^ 2 =   0 
 
                                 d o u b l e   u   =   s o l v e 3 E q u a t i o n _ 1 ( ( 2   *   p ) ,   ( - 4   *   r )   +   ( p   *   p ) ,   - q   *   q ) ; 
 
                                 i f   ( u   <   0 ) 
 
                                 { 
 
                                         / / hQf0Zpe
 
                                         r e t u r n   0 ; 
 
                                 } 
 
                                 d o u b l e   r u   =   M a t h . S q r t ( u ) ; 
 
                                 / / 2 !kez_0D0f0y 0{(  giS0000) 
 
                                 i n t   r e s u l t _ 1 s t ,   r e s u l t _ 2 n d ; 
 
                                 r e s u l t _ 1 s t   =   s o l v e 2 E q u a t i o n ( - r u ,   ( p   +   u )   /   2   +   r u   *   q   /   ( 2   *   u ) ,   o _ r e s u l t ,   0 ) ; 
 
                                 / / MROD0VW0n0_00k00	Ypek0 
 
                                 s w i t c h   ( r e s u l t _ 1 s t ) 
 
                                 { 
 
                                         c a s e   0 : 
 
                                                 b r e a k ; 
 
                                         c a s e   1 : 
 
                                                 o _ r e s u l t [ 0 ]   =   o _ r e s u l t [ 0 ]   -   B 3 ; 
 
                                                 b r e a k ; 
 
                                         c a s e   2 : 
 
                                                 o _ r e s u l t [ 0 ]   =   o _ r e s u l t [ 0 ]   -   B 3 ; 
 
                                                 o _ r e s u l t [ 1 ]   =   o _ r e s u l t [ 1 ]   -   B 3 ; 
 
                                                 b r e a k ; 
 
                                         d e f a u l t : 
 
                                                 t h r o w   n e w   N y A R E x c e p t i o n ( ) ; 
 
                                 } 
 
                                 r e s u l t _ 2 n d   =   s o l v e 2 E q u a t i o n ( r u ,   ( p   +   u )   /   2   -   r u   *   q   /   ( 2   *   u ) ,   o _ r e s u l t ,   r e s u l t _ 1 s t ) ; 
 
                                 / / 0 , 1 juvk0<h
}
 
                                 s w i t c h   ( r e s u l t _ 2 n d ) 
 
                                 { 
 
                                         c a s e   0 : 
 
                                                 b r e a k ; 
 
                                         c a s e   1 : 
 
                                                 o _ r e s u l t [ r e s u l t _ 1 s t   +   0 ]   =   o _ r e s u l t [ r e s u l t _ 1 s t   +   0 ]   -   B 3 ; 
 
                                                 b r e a k ; 
 
                                         c a s e   2 : 
 
                                                 o _ r e s u l t [ r e s u l t _ 1 s t   +   0 ]   =   o _ r e s u l t [ r e s u l t _ 1 s t   +   0 ]   -   B 3 ; 
 
                                                 o _ r e s u l t [ r e s u l t _ 1 s t   +   1 ]   =   o _ r e s u l t [ r e s u l t _ 1 s t   +   1 ]   -   B 3 ; 
 
                                                 b r e a k ; 
 
                                         d e f a u l t : 
 
                                                 t h r o w   n e w   N y A R E x c e p t i o n ( ) ; 
 
                                 } 
 
                                 r e t u r n   r e s u l t _ 1 s t   +   r e s u l t _ 2 n d ; 
 
                         } 
 
                 } 
 
                 / * * 
 
                   *   3 !kez_n0[9h0P`0Q0Bl000
 
                   *   4 W[ez_g0OF00
 
                   *   @ p a r a m   i _ b 
 
                   *   @ p a r a m   i _ c 
 
                   *   @ p a r a m   i _ d 
 
                   *   @ p a r a m   o _ r e s u l t 
 
                   *   @ r e t u r n 
 
                   * / 
 
                 p r i v a t e   s t a t i c   d o u b l e   s o l v e 3 E q u a t i o n _ 1 ( d o u b l e   i _ b ,   d o u b l e   i _ c ,   d o u b l e   i _ d ) 
 
                 { 
 
                         d o u b l e   t m p ,   b ,   p ,   q ; 
 
                         b   =   i _ b   /   ( 3 ) ; 
 
                         p   =   b   *   b   -   i _ c   /   3 ; 
 
                         q   =   ( b   *   ( i _ c   -   2   *   b   *   b )   -   i _ d )   /   2 ; 
 
                         i f   ( ( t m p   =   q   *   q   -   p   *   p   *   p )   = =   0 ) 
 
                         { 
 
                                 / /   ͑9h
 
                                 q   =   N y A R M a t h . c u b e R o o t ( q ) ; 
 
                                 r e t u r n   2   *   q   -   b ; 
 
                         } 
 
                         e l s e   i f   ( t m p   >   0 ) 
 
                         { 
 
                                 / /   [9h1 , Z9h2 
 
                                 d o u b l e   a 3   =   N y A R M a t h . c u b e R o o t ( q   +   ( ( q   >   0 )   ?   1   :   - 1 )   *   M a t h . S q r t ( t m p ) ) ; 
 
                                 d o u b l e   b 3   =   p   /   a 3 ; 
 
                                 r e t u r n   a 3   +   b 3   -   b ; 
 
                         } 
 
                         e l s e 
 
                         { 
 
                                 / /   [9h3 
 
                                 t m p   =   2   *   M a t h . S q r t ( p ) ; 
 
                                 d o u b l e   t   =   M a t h . A c o s ( q   /   ( p   *   t m p   /   2 ) ) ; 
 
                                 r e t u r n   t m p   *   M a t h . C o s ( t   /   3 )   -   b ; 
 
                         } 
 
                 } 
 
                 / * 
 
                         p u b l i c   s t a t i c   v o i d   m a i n ( S t r i n g [ ]   a r g s ) 
 
                         { 
 
                                 N y A R E q u a t i o n S o l v e r   n   =   n e w   N y A R E q u a t i o n S o l v e r ( ) ; 
 
                                 i n t   l = 0 ; 
 
                                 d o u b l e [ ]   r   =   n e w   d o u b l e [ 1 0 ] ; 
 
                                 t r y { 
 
                                         l = n . s o l v e 4 E q u a t i o n ( 1 ,   9 ,   - 1 8 ,   - 6 8 ,   1 2 0 ,   r ) ; 
 
                                 } c a t c h ( E x c e p t i o n   e ) { 
 
                                         e . p r i n t S t a c k T r a c e ( ) ; 
 
                                 } 
 
                                 S y s t e m . o u t . p r i n t l n ( l ) ; 
 
                         } * / 
 
         } 
 
 } 