ÿþf u n c t i o n   v y p s a n i ( )  
 {  
 j m e n o 1   =   s e l f . d o c u m e n t . f o r m s . s p o c i t a n i . j m e n o 1 . v a l u e ;  
 d e n 1   =   s e l f . d o c u m e n t . f o r m s . s p o c i t a n i . d e n 1 . v a l u e ;  
 m e s i c 1   =   s e l f . d o c u m e n t . f o r m s . s p o c i t a n i . m e s i c 1 . v a l u e ;  
 r o k 1   =   s e l f . d o c u m e n t . f o r m s . s p o c i t a n i . r o k 1 . v a l u e ;  
  
 j m e n o 2   =   s e l f . d o c u m e n t . f o r m s . s p o c i t a n i . j m e n o 2 . v a l u e ;  
 d e n 2   =   s e l f . d o c u m e n t . f o r m s . s p o c i t a n i . d e n 2 . v a l u e ;  
 m e s i c 2   =   s e l f . d o c u m e n t . f o r m s . s p o c i t a n i . m e s i c 2 . v a l u e ;  
 r o k 2   =   s e l f . d o c u m e n t . f o r m s . s p o c i t a n i . r o k 2 . v a l u e ;  
  
 f u n c t i o n   r o z d i l V e D n e c h ( p r v n i ,   d r u h e )  
 {  
 r e t u r n   M a t h . a b s ( ( d r u h e . g e t T i m e ( )   -   p r v n i . g e t T i m e ( ) )   /   ( 1 0 0 0 * 6 0 * 6 0 * 2 4 ) ) ;  
 }  
 v a r   p r v n i   =   n e w   D a t e ( r o k 1 , m e s i c 1 - 1 , d e n 1 ) ;  
 v a r   d r u h e   =   n e w   D a t e ( r o k 2 , m e s i c 2 - 1 , d e n 2 ) ;  
 v a r   r z d   =   r o z d i l V e D n e c h ( p r v n i ,   d r u h e ) ;  
  
 a   =   r z d / 2 3 ;  
 a   =   M a t h . f l o o r ( a ) ;  
 f y z _ z b   =   r z d % 2 3 ;  
  
 b   =   r z d / 2 8 ;  
 b   =   M a t h . f l o o r ( b ) ;  
 p s c _ z b   =   r z d % 2 8 ;  
  
 c   =   r z d / 3 3 ;  
 c   =   M a t h . f l o o r ( c ) ;  
 i n t _ z b   =   r z d % 3 3 ;  
  
 f y z     =   M a t h . r o u n d ( M a t h . a b s ( ( 1 1 . 5   -   f y z _ z b )   /   0 . 1 1 5 ) ) ;  
 p s c     =   M a t h . r o u n d ( M a t h . a b s ( ( 1 4   -   p s c _ z b )   /   0 . 1 4 ) ) ;  
 i n t     =   M a t h . r o u n d ( M a t h . a b s ( ( 1 6 . 5   -   i n t _ z b )   /   0 . 1 6 5 ) ) ;  
  
 i f ( d e n 1 = = ' '   | |   m e s i c 1 = = ' '   | |   r o k 1 = = ' '   | |   d e n 2 = = ' '   | |   m e s i c 2 = = ' '   | |   r o k 2 = = ' ' )  
 d o c u m e n t . g e t E l e m e n t B y I d ( ' i n f o ' ) . i n n e r H T M L   =   " N a   n c o   j s t e   z a p o m n l i " ;  
 e l s e  
 {  
  
 d o c u m e n t . g e t E l e m e n t B y I d ( ' c e l e k ' ) . s t y l e . d i s p l a y   =   " n o n e " ;  
 d o c u m e n t . g e t E l e m e n t B y I d ( ' n a d p - j m e n o 1 ' ) . s t y l e . d i s p l a y   =   " i n l i n e " ;  
 d o c u m e n t . g e t E l e m e n t B y I d ( ' n a d p - j m e n o 2 ' ) . s t y l e . d i s p l a y   =   " i n l i n e " ;  
  
  
 d o c u m e n t . g e t E l e m e n t B y I d ( ' n a d p - j m e n o 1 ' ) . i n n e r H T M L   =   j m e n o 1 + "   -   " + d e n 1 + " .   " + m e s i c 1 + " .   " + r o k 1 + " < b r   / > " ;  
 d o c u m e n t . g e t E l e m e n t B y I d ( ' n a d p - j m e n o 2 ' ) . i n n e r H T M L   =   j m e n o 2 + "   -   " + d e n 2 + " .   " + m e s i c 2 + " .   " + r o k 2 ;  
  
  
 i f ( f y z   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' n a d p - v e t y 1 ' ) . i n n e r H T M L   =   " U s t e d   e s   t e s t i g o   d e   a c o n t e c i m i e n t o   h i s t ó r i c o .   D e   p a r t i r   d e   h o y   e n   n u e s t r o   c o n o c i m i e n t o   n o   r e f l e x i o n a   l a   c a s u a l i d a d   p e r o   l a   C   I   E   N   C   I   A   ¡ ! !   " ;  
 i f ( f y z   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' n a d p - v e t y 2 ' ) . i n n e r H T M L   =   " N u e s t r o   o r d e n a d o r   l e   c a l c u l a   d e   l a   f e c h a   d e   n a c i m i e n t o   d e   l a   p a r e j a   h a s t a   c u a l   h a r m o n í a   p u e d e n   l l e g a r . " ;  
 i f ( f y z   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' n a d p - v e t y 3 ' ) . i n n e r H T M L   =   " H e   c a l c u l a d o   s o b r e   l a   b a s e   d e   e x p e r i e n c i a   q u e   t e n g o   s o b r e   l a   a r m o n í a   d e   l a   p a r e j a : " ;  
  
 i f ( f y z   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' n a d p - j m e n o 1 ' ) . i n n e r H T M L   =   j m e n o 1 + "   -   " + d e n 1 + " .   " + m e s i c 1 + " .   " + r o k 1 + " < b r   / > " ;  
 i f ( f y z   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' n a d p - j m e n o 2 ' ) . i n n e r H T M L   =   j m e n o 2 + "   -   " + d e n 2 + " .   " + m e s i c 2 + " .   " + r o k 2 ;  
  
 i f ( f y z   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' f y z - v e t y 1 ' ) . i n n e r H T M L   =   " H A R M O N Í A   F Í S I C A " ;  
 i f ( f y z   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' f y z - p o d t r ' ) . i n n e r H T M L   =   " - - - - - - - - - - - - - - - - - - - - " ;  
 i f ( f y z   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' f y z - v e t y 2 ' ) . i n n e r H T M L   =   " L a   h a r m o n í a   f í s i c a   e s   u n o   d e   l o s   f a c t o r e s   m á s   i m p o r t a n t e s   q u e   a f e c t a n   s u   v i d a   s e x u a l . " ;  
 i f ( f y z   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' f y z - v e t y 3 ' ) . i n n e r H T M L   =   " S u   a c u e r d o   f í s i c o   f u e   a   " + f y z + " % . < b r / > " ;  
 i f ( f y z   <   1 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' f y z - v e t y ' ) . i n n e r H T M L   =   " U s t e d   n o   d i s f r u t a   m u c h o   e n   s u   c a m a ,   ¿ e h ? " ;  
 i f ( f y z   >   0 9   & &   f y z   <   3 5 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' f y z - v e t y ' ) . i n n e r H T M L   =   " S u   v i d a   s e x u a l   n o   e s   m u y   d i v e r t i d a   p e r o   m e j o r   a l g o   q u e   n a d a . C o m o   s e   d i c e      l o s   p e c e s   p e q u e ñ o s   s o n   t a m b i é n   p e s c a d o . " ;  
 i f ( f y z   >   3 4   & &   f y z   <   6 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' f y z - v e t y ' ) . i n n e r H T M L   =   " C e n t r o   d e   o r o .   S u   v i d a   s e x u a l     s e r á   r u t i n a   p r o b a b l e m e n t e   p e r o   n o   s e   q u e j a n ,   h a y   c a s o s   p e o r e s . " ;  
 i f ( f y z   >   5 9   & &   f y z   <   8 5 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' f y z - v e t y ' ) . i n n e r H T M L   =   " U s t e d   n o   l o   t i e n e   t a n   m a l .   A   v e c e s   s u   s e x u a l i d a d   p u e d e   t e n e r   c u l m i n a c i ó n   e x i t o s a . " ;  
 i f ( f y z   >   8 4   & &   f y z   <   1 0 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' f y z - v e t y ' ) . i n n e r H T M L   =   " L e s   f e l i c i t o   p e r o   u s t e d e s   t i e n e n   d a r s e   l a   c o n c i e n c i a   q u e   e l   s e x o   n o   e s   t o d o . " ;  
 i f ( f y z   >   9 9 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' f y z - v e t y ' ) . i n n e r H T M L   =   " U s t e d e s   t i e n e n   h a c e r   e l   s e x o   c o m o   l o c o s .   U s t e d e s   d e b e r í a n   u s a r   s u   t a l e n t o   p a r a   l a s   p r e s e n t a c i o n e s   p ú b l i c a s .   " ;  
  
 i f ( p s c   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - v e t y 1 ' ) . i n n e r H T M L   =   " H A R M O N Í A   P S Í Q U I C A " ;  
 i f ( p s c   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - p o d t r ' ) . i n n e r H T M L   =   " - - - - - - - - - - - - - - - - - - - - " ;  
 i f ( p s c   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - v e t y 2 ' ) . i n n e r H T M L   =   " N o   s o l o   d e l   s e x o   e s   v i v o   e l   h o m b r e .   P a r a   q u e   h a y   h a r m o n í a   e n t r e   l a   p a r e j a   e s   m u y   i m p o r t a n t e   l o   e s p i r i t u a l   t a m b i é n . " ;  
 i f ( p s c   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - v e t y 3 ' ) . i n n e r H T M L   =   " C o m o   u s t e d e s   e s t á n   e n   h a r m o n í a   p o r   e s t e   l a d o ,   s e   m u e s t r a   e n   e s t a   c o i n c i d e n c i a : " ;  
 i f ( p s c   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - v e t y 4 ' ) . i n n e r H T M L   =   " S u   c o i n c i d e n c i a   m e n t a l   e s t a   e n   " + p s c + " % . < b r / > " ;  
 i f ( p s c   <   1 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - v e t y ' ) . i n n e r H T M L   =   " ¿ U s t e d e s   n o   s e   m a t a r o n   t o d a v í a ?   M e   e x t r a ñ a   m u c h o . " ;  
 i f ( p s c   >   0 9   & &   p s c   <   3 5 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - v e t y ' ) . i n n e r H T M L   =   " ¡ S u   p a r e j a   n o   l e   e n t i e n d e   p a r a   n a d a ,   e n c u e n t r e   o t r o   p e r o   e n s e g u i d a ! " ;  
 i f ( p s c   >   3 4   & &   p s c   <   6 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - v e t y ' ) . i n n e r H T M L   =   " U s t e d e s   s e   e n t i e n d e n   m á s   o   m e n o s   p e r o   n o   e s   n i n g ú n   m i l a g r o . " ;  
 i f ( p s c   >   5 9   & &   p s c   <   8 5 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - v e t y ' ) . i n n e r H T M L   =   " E s   s o l a m e n t e   p r o m e d i o   p e r o   s e   p u e d e   v i v i r   a s í . " ;  
 i f ( p s c   >   8 4   & &   p s c   <   1 0 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - v e t y ' ) . i n n e r H T M L   =   " U s t e d e s   n o   t i e n e n   n i n g u n a   r a z ó n   q u e j a r s e .   U s t e d e s   s o n   u n a   p a r e j a   e q u i l i b r a d a . " ;  
 i f ( p s c   >   9 9 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' p s c - v e t y ' ) . i n n e r H T M L   =   " D e   v e r d a d   m u y   b u e n o .   U s t e d e s   t i e n e n   e s t a r   c o m o   d o s   p a l o m a s .   E s o   e s   l a   u n i d a d   d e   d o s   a l m a s . " ;  
  
 i f ( i n t   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - v e t y 1 ' ) . i n n e r H T M L   =   " H A R M O N Í A   I N T E L E C T U A L " ;  
 i f ( i n t   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - p o d t r ' ) . i n n e r H T M L   =   " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - " ;  
 i f ( i n t   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - v e t y 2 ' ) . i n n e r H T M L   =   " A   v e c e s   e s   m u y   i m p o r t a n t e   p a r a   e l   h o m b r e   t e n e r   l a   c o n v e r s a c i ó n   e n   e l   n i v e l   i n t e l e c t u a l   a l t o . " ;  
 i f ( i n t   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - v e t y 3 ' ) . i n n e r H T M L   =   " S i   u s t e d e s   t i e n e n   l a   o p o r t u n i d a d   l e   m u e s t r a   e s t a   c o i n c i d e n c i a " ;  
 i f ( i n t   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - v e t y 4 ' ) . i n n e r H T M L   =   " S u   c o i n c i d e n c i a   i n t e l e c t u a l   s a l i ó   a   " + i n t + " % . < b r / > " ;  
 i f ( i n t   <   1 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - v e t y ' ) . i n n e r H T M L   =   " ¡ C a d a   u n o   d e   u s t e d e s   e s   t o n t o   d e   l a   m a n e r a   d i f e r e n t e   e n t o n c e s   n o   l e   v a   f u n c i o n a r   j u n t o s ! " ;  
 i f ( i n t   >   0 9   & &   i n t   <   3 5 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - v e t y ' ) . i n n e r H T M L   =   " ¡ U s t e d e s   p u e d e n   c h a r l a r   d e   l a   v i d a   d e   u n   e s c a r a b a j o   p e r o   n a d a   m á s ! " ;  
 i f ( i n t   >   3 4   & &   i n t   <   6 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - v e t y ' ) . i n n e r H T M L   =   " P r o m e d i o   s a n o .     P a r a   l a s   c o n v e r s a c i o n e s   n o   d i f í c i l e s   e s   s u f i c i e n t e . " ;  
 i f ( i n t   >   5 9   & &   i n t   <   8 5 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - v e t y ' ) . i n n e r H T M L   =   " A q u í   h a y   u n a   p o s i b i l i d a d   p a r a   l a   c o n v e r s a c i ó n   d e   n i v e l   m u y   a l t a .   U s t e d e s   s o n   m u y   p a r e c i d o s   i n t e l e c t u a l m e n t e . " ;  
 i f ( i n t   >   8 4   & &   i n t   <   1 0 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - v e t y ' ) . i n n e r H T M L   =   " S u   i n t e l e c t o   s u e n a   d e   l a   m i s m a   c u e r d a .   D e   v e r d a d ,   p o c o   f r e c u e n t e . " ;  
 i f ( i n t   >   9 9 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' i n t - v e t y ' ) . i n n e r H T M L   =   " U n a   p a l a b r a   e s   s u f i c i e n t e   y   s u   p a r e j a   l e   e n t i e n d e .   F a n t á s t i c o . " ;  
  
 c e k   =   M a t h . r o u n d ( M a t h . a b s ( ( f y z   +   p s c   +   i n t )   /   3 ) ) ;  
  
 i f ( c e k   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' c e k - v e t y 1 ' ) . i n n e r H T M L   =   " H A R M O N Í A   G E N E R A L " ;  
 i f ( c e k   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' c e k - p o d t r ' ) . i n n e r H T M L   =   " - - - - - - - - - - - - - - - - - - - - " ;  
 i f ( c e k   <   1 0 1 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' c e k - v e t y 2 ' ) . i n n e r H T M L   =   " S u   a r m o n í a   e n   t o t a l   s a l i ó   a   " + c e k + " % . < b r / > " ;  
 i f ( c e k   <   1 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' c e k - v e t y ' ) . i n n e r H T M L   =   " E n   e l   m u n d o   a n d a   t a n t a   g e n t e .   ¡ E s   m e j o r   s i   u s t e d   b u s c a   a l g u i e n   o t r o ! " ;  
 i f ( c e k   >   0 9   & &   c e k   <   3 5 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' c e k - v e t y ' ) . i n n e r H T M L   =   " N o   c r e o   q u e   u s t e d e s   s e a n   l a   p a r e j a   i d e a l .   ¿ U s t e d e s   s i ? " ;  
 i f ( c e k   >   3 4   & &   c e k   <   6 0 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' c e k - v e t y ' ) . i n n e r H T M L   =   " U s t e d e s   s o n   l a   p a r e j a   p r o m e d i a .   C o m o   l a   m a y o r í a   d e   l a s   p a r e j a s " ;  
 i f ( c e k   >   5 9   & &   c e k   <   8 5 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' c e k - v e t y ' ) . i n n e r H T M L   =   " M u c h a   g e n t e   d e b e r í a   t e n e r   e n v i d i a   c o m o   f u n c i o n a   s u   r e l a c i ó n . " ;  
 i f ( c e k   >   8 4 )   d o c u m e n t . g e t E l e m e n t B y I d ( ' c e k - v e t y ' ) . i n n e r H T M L   =   " U s t e d e s   e s   l a   p a r e j a   i d e a l .   U s t e d e s   t i e n e n   e s t a r   j u n t o s   y   n o   l o   v a n   l a m e n t a r . " ;  
  
 }  
  
 } 
