ÿþf u n c t i o n   c h e c k ( s t r )   { 
 	 v a r   i   =   s t r . l e n g t h ; 
 	 w h i l e   ( i   >   0 )   { 
 	 	 i f   ( s t r . c h a r A t ( i   -   1 )   > =   ' 0 '   & &   s t r . c h a r A t ( i   -   1 )   < =   ' 9 ' ) 
 	 	 	 i - - ; 
 	 	 e l s e   i f   ( ( s t r . c h a r A t ( i   -   1 )   = =   ' . ' )   & &   i   >   1 )   { 
 	 	 	 i - - ; 
 	 	 	 w h i l e   ( i   >   0 )   { 
 	 	 	 	 i f   ( s t r . c h a r A t ( i   -   1 )   > =   ' 0 '   & &   s t r . c h a r A t ( i   -   1 )   < =   ' 9 ' ) 
 	 	 	 	 	 i - - ; 
 	 	 	 	 e l s e 
 	 	 	 	 	 r e t u r n   t r u e ; 
 	 	 	 } 
 	 	 } 
 	 	 e l s e 
 	 	 	 r e t u r n   t r u e ; 
 	 } 
 	 r e t u r n   f a l s e ; 
 } 
 
 f u n c t i o n   c a l c u l a t e ( f o r m )   { 
 	 v a r   e r r o r   =   f a l s e ; 
 	 v a r   e r r o r M e s s a g e   =   n e w   A r r a y ( ) ; 
 	 v a r   F V   =   0 ; 
 	 v a r   i   =   0 ; 
 	 v a r   r e f   =   0 ; 
 	 f o r   ( v a r   c   =   0 ;   c   <   f o r m . l e n g t h ;   c + + )   { 
 	 	 v a r   e   =   f o r m . e l e m e n t s [ c ] ; 
 	 	 s w i t c h ( e . n a m e )   { 
 	 	 c a s e   " P V " : 
 	 	 	 v a r   P V   =   M a t h . a b s ( p a r s e F l o a t ( e . v a l u e ) ) ; 
 	 	 	 i f   ( i s N a N ( P V )   | |   c h e c k ( e . v a l u e ) )   { 
 	 	 	 	 e r r o r   =   t r u e ; 
 	 	 	 	 e r r o r M e s s a g e . p u s h ( " W p r o w a d z  p o p r a w n   k w o t   w k Ba d u ! " ) ; 
 	 	 	 } 
 	 	 	 b r e a k ; 
 	 	 c a s e   " r " : 
 	 	 	 v a r   r   =   M a t h . a b s ( p a r s e F l o a t ( e . v a l u e ) ) ; 
 	 	 	 i f   ( i s N a N ( r )   | |   c h e c k ( e . v a l u e ) )   { 
 	 	 	 	 e r r o r   =   t r u e ; 
 	 	 	 	 e r r o r M e s s a g e . p u s h ( " W p r o w a d z  p o p r a w n e   o p r o c e n t o w a n i e   n o m i n a l n e ! " ) ; 
 	 	 	 } 
 	 	 	 r   / =   1 0 0 ; 
 	 	 	 b r e a k ; 
 	 	 c a s e   " n " : 
 	 	 	 v a r   n   =   M a t h . a b s ( p a r s e F l o a t ( e . v a l u e ) ) ; 
 	 	 	 i f   ( i s N a N ( n )   | |   c h e c k ( e . v a l u e ) )   { 
 	 	 	 	 e r r o r   =   t r u e ; 
 	 	 	 	 e r r o r M e s s a g e . p u s h ( " W p r o w a d z  p o p r a w n   l i c z b   m i e s i c y ! " ) ; 
 	 	 	 } 
 	 	 	 n   / =   1 2 ; 
 	 	 	 b r e a k ; 
 	 	 c a s e   " m " : 
 	 	 	 i f   ( f o r m . m [ 0 ] . c h e c k e d ) 
             	 	 	 m   =   1 2 ; 
 	 	 	 e l s e   i f   ( f o r m . m [ 1 ] . c h e c k e d ) 
             	 	 	 m   =   4 ; 
 	 	 	 e l s e   i f   ( f o r m . m [ 2 ] . c h e c k e d ) 
             	 	 	 m   =   2 ; 
 	 	 	 e l s e   i f   ( f o r m . m [ 3 ] . c h e c k e d ) 
             	 	 	 m   =   1 ; 
 	 	 	 e l s e   { 
 	 	 	 	 e r r o r   =   t r u e ; 
 	 	 	 	 e r r o r M e s s a g e . p u s h ( " W p r o w a d z  p o p r a w n   l i c z b   k a p i t a l i z a c j i ! " ) ; 
 	 	 	 } 
 	 	 	 b r e a k ; 
 	 	 c a s e   " F V " : 
 	 	 	 v a r   F V   =   c ; 
 	 	 	 b r e a k ; 
 	 	 c a s e   " i " : 
 	 	 	 v a r   i   =   c ; 
 	 	 	 b r e a k 
 	 	 c a s e   " r e f " : 
 	 	 	 v a r   r e f   =   c ; 
 	 	 	 b r e a k 
 	 	 d e f a u l t : 
 	 	 	 b r e a k ; 
 	 	 } 
 	 } 
 	 i f   ( e r r o r )   { 
 	 	 a l e r t ( e r r o r M e s s a g e . j o i n ( " \ n " ) ) ; 
 	 	 f o r m . e l e m e n t s [ F V ] . v a l u e   =   " " ; 
 	 	 f o r m . e l e m e n t s [ i ] . v a l u e   =   " " ; 
 	 	 f o r m . e l e m e n t s [ r e f ] . v a l u e   =   " " ; 
 	 	 r e t u r n   f a l s e ; 
 	 } 
 	 f o r m . e l e m e n t s [ F V ] . v a l u e   =   M a t h . r o u n d ( 1 0 0   *   P V   *   M a t h . p o w ( 1   +   r   /   m ,   n   *   m ) )   /   1 0 0 ; 
 	 f o r m . e l e m e n t s [ i ] . v a l u e   =   M a t h . r o u n d ( 1 0 0   *   ( f o r m . e l e m e n t s [ F V ] . v a l u e   -   P V ) )   /   1 0 0 ; 
 	 f o r m . e l e m e n t s [ r e f ] . v a l u e   =   M a t h . r o u n d ( 1 0 0 0 0   *   ( M a t h . p o w ( 1   +   ( r   /   m ) ,   m )   -   1 ) )   /   1 0 0 ; 
 	 r e t u r n   f a l s e ; 	 / / z m i e D  n a   t r u e   j e |e l i   c h c e s z   p r z e s Ba   n a   s e r w e r 
 } 
