Manual - Euler Math Toolbox

28/08/13
Euler Math Toolbox - Referencia
Euler Referencia
Maxima 5.26.0 Manual

M a x i m ae su ns i s t e m ad ec l c u l os i m b l i c oe s c r i t oe nL i s p . M a x i m as ed e r i v ad e ls i s t e m ad eM a c s y m a ,d e s a r r o l l a d op o re lM I Te ne l a o s1 9 6 8a1 9 8 2c o m op a r t ed e lP r o y e c t oM A C .M I Tp a s u n ac o p i a d e lc d i g of u e n t ea lD O Ee lD e p a r t a m e n t od eE n e r g ae n1 9 8 2 ,q u e v e r s i nc o n o c i d ac o m oD O EM a c s y m a .U n ac o p i ad e lD O EM a c s y m ae r a m a n t e n i d ap o re lP r o f e s o rW i l l i a mF .S c h e l t e rd el aU n i v e r s i d a dd eT e x a s d e s d e1 9 8 2h a s t as um u e r t ee n2 0 0 1 .E n1 9 9 8 ,o b t u v oS c h e l t e r e lp e r m i s od e lD e p a r t a m e n t od eE n e r g ap a r al i b e r a re lD O EM a c s y m a c d i g of u e n t eb a j ol al i c e n c i ap b l i c aG N U ,ye n2 0 0 0s ei n i c i l a P r o y e c t oM a x i m ae nS o u r c e F o r g ep a r am a n t e n e ryd e s a r r o l l a rD O EM a c s y m a ,a h o r a e ln o m b r ed eM a x i m a . I n f r a e s t r u c t u r ad eM a x i m a I n t r o d u c c i naM a x i m a m u e s t r as e s i o n e sd eM a x i m a . D e t e c c i nei n f o r m ed ef a l l o sE n c o n t r a rye r r o r e se nM a x i m ai n f o r m e s . A y u d a p e d i ra y u d ad e s d ed e n t r od eu n as e s i nd eM a x i m a . l n e ad ec o m a n d o sd e s i n t a x i sd el n e ad ec o m a n d o sd eM a x i m a ,d ee n t r a d ayd es a l i d a . T i p o sd ed a t o sye s t r u c t u r a sd e n m e r o s ,c a d e n a s ,l i s t a s ,A r r a y sye s t r u c t u r a s . E x p r e s i o n e s E x p r e s i o n e se nM a x i m a . O p e r a d o r e s O p e r a d o r e su t i l i z a d o se ne x p r e s i o n e sd eM a x i m a . E v a l u a c i n L ae v a l u a c i nd ee x p r e s i o n e s . S i m p l i f i c a c i n S i m p l i f i c a c i nd ee x p r e s i o n e s . F u n c i o n e sm a t e m t i c a s F u n c i o n e sm a t e m t i c a se nM a x i m a . M a x i m aD a t a b a s e D e c l a r a c i o n e s ,C o n t e x t o s ,h e c h o syp r o p i e d a d e s . T r a z a d o d es a l i d ag r f i c a2 Dy3 D . E n t r a d ays a l i d ad ea r c h i v o s d ee n t r a d ays a l i d ad ea r c h i v o s . E la p o y oal a s r e a se s p e c f i c a sd el a sm a t e m t i c a s P o l i n o m i o s F o r m u l a r i o sn o r m a l i z a d o sp a r ap o l i n o m i o s ,y f u n c i o n e sq u eo p e r a ne ne l l o s . F u n c i o n e se s p e c i a l e s F u n c i o n e se s p e c i a l e s F u n c i o n e se l p t i c a s F u n c i o n e sei n t e g r a l e se l p t i c a s L m i t e s L m i t e sd ee x p r e s i o n e s . D i f e r e n c i a c i n C l c u l od i f e r e n c i a l . I n t e g r a c i n c l c u l oi n t e g r a l . E c u a c i o n e s D e f i n i c i nyr e s o l u c i nd ee c u a c i o n e s . E c u a c i o n e sD i f e r e n c i a l e s D e f i n i c i nyr e s o l u c i nd ee c u a c i o n e sd i f e r e n c i a l e s . n u m r i c a i n t e g r a c i nn u m r i c a ,F o u r i e r t r a n s f o r m a c i o n e s ,e t c M a t r i c e sye l l g e b r al i n e a lo p e r a c i o n e sm a t r i c i a l e s . A f f i n e i t e n s o r m a n i p u l a c i ni n d e x a d ad et e n s o r e s . c t e n s o r c o m p o n e n t e sM a n i p u l a c i nT e n s o r . a t e n s o r M a n i p u l a c i na l g e b r a i c ad et e n s o r e s . *S u m a sP r o d u c t o sys e r i e s: :S u m a s ,p r o d u c t o s ,s e r i e sd ep o t e n c i a syd eT a y l o r . T e o r ad en m e r o s T e o r ad en m e r o s . S i m e t r a s G r u p o s l g e b r aa b s t r a c t a . I n s t a l a c i o n e sa v a n z a d a syp r o g r a m a c i n E n t o r n od eE j e c u c i n P e r s o n a l i z a c i nd e le n t o r n od eM a x i m a . O p c i o n e sv a r i a s o p c i o n e sc o nu ne f e c t og l o b a ls o b r eM a x i m a . N o r m a syP a t r o n e s p a t r nd e f i n i d op o re lu s u a r i oaj u e g oy r e g l a sd es i m p l i f i c a c i n . E s t a b l e c e m a n i p u l a c i nd ec o n j u n t o s . D e f i n i c i nd el af u n c i n D e f i n i rf u n c i o n e s . F l u j od e lP r o g r a m a D e f i n i rp r o g r a m a sd eM a x i m a . D e p u r a c i nd e p r o g r a m a sD e p u r a c i nd eM a x i m a . P a q u e t e sa d i c i o n a l e s a s y m p a a u g m e n t e d _ l a g r a n g i a n B e r n s t e i n b o d e c o b y l a c o n t r i b _ o d e d e s c r i p t i v o s d i a g d i s t r i b d i b u j a r d r a w d f d i n m i c a e z u n i t s f 9 0 f i n a n c i e n f r a c t a l e s g g f g r f i c o s g r o b n e r i m p d i f f i n t e r p o l L A P A C K l b f g s
a s i n t t i c aa n l i s i sp a q u e t e p a q u e t ea u g m e n t e d _ l a g r a n g i a n . B e r n s t e i np o l i n o m i o s . B o d eg a n a n c i ayg r f i c o sd ef a s e . o p t i m i z a c i nn ol i n e a lc o nr e s t r i c c i o n e sd ed e s i g u a l d a d . r u t i n a sa d i c i o n a l e sp a r aE D O s E s t a d s t i c o sd e s c r i p t i v o s . m a t r i c e sd eJ o r d a n . D i s t r i b u c i o n e sd ep r o b a b i l i d a d . u n ai n t e r f a zM a x i m a G n u p l o t . c a m p o sd ed i r e c c i nc o nG n u p l o t . d eg r f i c o sp a r as i s t e m a sd i n m i c o syf r a c t a l e s . c a n t i d a d e sd i m e n s i o n a l e s . M a x i m af o r t r a nt r a d u c t o r . p a q u e t ef i n a n c i e r o . F r a c t a l e s . f u n c i nd eg e n e r a c i nd es e c u e n c i a s . p a q u e t et e o r ad eg r a f o s . F u n c i o n e sp a r at r a b a j a rc o nb a s e sd eG r o e b n e r . d e r i v a d o si m p l c i t o s . p a q u e t ed ei n t e r p o l a c i n . f u n c i o n e sL A P A C Kp a r ae l l g e b r al i n e a l . L B F G Sp a q u e t ed em i n i m i z a c i ns i nr e s t r i c c i o n e s .
file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html
1/633
28/08/13
l i n d s t e d t l i n e a r a l g e b r a l s q u a r e s m a k e O r d e r s M I N P A C K m n e w t o n n u m e r i c a l i o o p s u b s t o r t h o p o l y p l o t d f R o m b e r g s i m p l e x s i m p l i f i c a c i n s o l v e _ r e c E s t a d s t i c a s s t i r l i n g s t r i n g p r o c t o _ p o l y _ s o l v e u n i d a d z e i l b e r g e r

p a q u e t eL i n d s t e d t . f u n c i o n e sd e l g e b r al i n e a l . m n i m o sc u a d r a d o s . u t i l i d a dp o l i n m i c a . f u n c i o n e sM I N P A C Kd em i n i m i z a c i nyr a c e s N e w t o nd em t o d o . L e c t u r aye s c r i t u r ad ea r c h i v o s . u t i l i d a dS u s t i t u c i o n e s . p o l i n o m i o so r t o g o n a l e s . D i r e c t i o nc a m p o sp a r c e l a s . R o m b e r gm t o d od ei n t e g r a c i nn u m r i c a . p r o g r a m a c i n .l i n e a l e s r e g l a sd es i m p l i f i c a c i nyf u n c i o n e s . r e c u r r e n c i a sl i n e a l e s . p a q u e t ed ei n f e r e n c i ae s t a d s t i c a . f r m u l ad eS t i r l i n g. p r o c e s a m i e n t oS t r i n g . t o _ p o l y _ s o l v ep a q u e t e . U n i d a d e sf s i c a syd i m e n s i o n e s . F u n c i o n e sp a r al as u m ah i p e r g e o m t r i c a .
n d i c e *F u n c i nyV a r i a b l e n d i c e: :I n d e x . -L i s t a d od e t a l l a d od el o sn o d o sI n t r o d u c c i n I n t r o d u c c i naM a x i m a E r r o r e s D e t e c c i nei n f o r m ed ef a l l o s A y u d a r D o c u m e n t a c i n F u n c i o n e syv a r i a b l e sp a r al aa y u d a L n e ad ec o m a n d o s I n t r o d u c c i nal al n e ad ec o m a n d o s F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a T i p o sye s t r u c t u r a sd ed a t o s N m e r o s C u e r d a s C o n s t a n t e s L i s t a s m a t r i c e s E s t r u c t u r a s E x p r e s i o n e s I n t r o d u c c i nal a se x p r e s i o n e s N o m b r e syv e r b o s I d e n t i f i c a d o r e s d e s i g u a l d a d F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s O p e r a d o r e s I n t r o d u c c i nal o so p e r a d o r e s a r i t m t i c o so p e r a d o r e s r e l a c i o n a l e so p e r a d o r e s l g i c o sL o so p e r a d o r e s O p e r a d o r e sd ee c u a c i o n e s A s i g n a c i no p e r a d o r e s o p e r a d o r e sd e f i n i d o sp o re lu s u a r i o E v a l u a c i n F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n S i m p l i f i c a c i n F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n F u n c i o n e sm a t e m t i c a s F u n c i o n e sp a r aN m e r o sd e F u n c i o n e sp a r aN m e r o sC o m p l e j o s F u n c i o n e sc o m b i n a t o r i a s *R a ze x p o n e n c i a l e syl o g a r t m i c a sF u n c i o n e s: : F u n c i o n e st r i g o n o m t r i c a s N m e r o sA l e a t o r i o s B a s ed ed a t o sM a x i m a s I n t r o d u c c i naM a x i m aB a s ed ed a t o s F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s F u n c i o n e syv a r i a b l e sp a r aD a t o s F u n c i o n e syv a r i a b l e sp a r ap r e d i c a d o s T r a z a d o I n t r o d u c c i na lt r a z a d o T r a z a d of o r m a t o s F u n c i o n e syv a r i a b l e sp a r ag r f i c o s T r a z a d oO p c i o n e s O p c i o n e sG n u p l o t g n u p l o t _ p i p e sf u n c i o n e sd ef o r m a t o E n t r a d ays a l i d ad ea r c h i v o s C o m e n t a r i o s A r c h i v o s F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s
2/633
28/08/13
F u n c i o n e syv a r i a b l e sp a r al as a l i d aT e X F u n c i o n e syv a r i a b l e sp a r aF o r t r a ns a l i d a P o l i n o m i o s I n t r o d u c c i nal o sP o l i n o m i o s F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s
F u n c i o n e se s p e c i a l e s I n t r o d u c c i nal a sF u n c i o n e se s p e c i a l e s F u n c i o n e sd eB e s s e l F u n c i o n e sd eA i r y F u n c i o n e sG a m m ayf a c t o r i a l I n t e g r a l e se x p o n e n c i a l e s e r r o rd ef u n c i n F u n c i o n e sd eS t r u v e F u n c i o n e sh i p e r g e o m t r i c a s c i l i n d r o p a r a b l i c o sF u n c i o n e s F u n c i o n e syv a r i a b l e sp a r al a sf u n c i o n e se s p e c i a l e s F u n c i o n e se l p t i c a s I n t r o d u c c i nal a sf u n c i o n e sei n t e g r a l e se l p t i c a s F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s F u n c i o n e syv a r i a b l e sp a r ai n t e g r a l e se l p t i c a s L m i t e s F u n c i o n e syv a r i a b l e sp a r al m i t e s D i f e r e n c i a c i n F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n I n t e g r a c i n I n t r o d u c c i nal aI n t e g r a c i nd e F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n E c u a c i o n e s F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s E c u a c i o n e sD i f e r e n c i a l e s I n t r o d u c c i nal a sE c u a c i o n e sD i f e r e n c i a l e s F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e sd i f e r e n c i a l e s N u m r i c o I n t r o d u c c i nal at r a n s f o r m a d ar p i d ad eF o u r i e r F u n c i o n e syv a r i a b l e sp a r al at r a n s f o r m a d ar p i d ad eF o u r i e r I n t r o d u c c i nal a ss e r i e sd eF o u r i e r F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r M a t r i c e sye l l g e b r al i n e a l I n t r o d u c c i nal a sm a t r i c e sye l l g e b r al i n e a l *D o t: : *V e c t o r e s: : *E i g e n: : F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l A f i n e s I n t r o d u c c i nal o sa f i n e s F u n c i o n e syv a r i a b l e sp a r aA f i n e s i t e n s o r I n t r o d u c c i nai t e n s o r F u n c i o n e syv a r i a b l e sp a r ai t e n s o r c t e n s o r I n t r o d u c c i nac t e n s o r F u n c i o n e syv a r i a b l e sp a r ac t e n s o r a t e n s o r I n t r o d u c c i naa t e n s o r F u n c i o n e syv a r i a b l e sp a r aa t e n s o r S u m a s ,p r o d u c t o syS e r i e s S u m a syP r o d u c t o s I n t r o d u c c i nal aS e r i e F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s s e r i e sd eP o i s s o n T e o r ad eN m e r o s F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s S i m e t r a s I n t r o d u c c i naS i m e t r a s F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s G r u p o s F u n c i o n e syv a r i a b l e sp a r aG r u p o s R u n t i m eE n v i r o n m e n t I n t r o d u c c i np a r aR u n t i m eE n v i r o n m e n t A l a r m a s F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n O p c i o n e sv a r i a s I n t r o d u c c i nal am i s c e l n e ad eo p c i o n e s C o m p a r t i r F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s R e g l a syp a t r o n e s
3/633
28/08/13

I n t r o d u c c i nar e g l a syp a t r o n e s F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s J u e g o s I n t r o d u c c i nal o sc o n j u n t o sd e F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s D e f i n i c i nd el af u n c i n I n t r o d u c c i nal ad e f i n i c i nd ef u n c i n F u n c i n m a c r o s F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s F l u j od e lP r o g r a m a L i s pyM a x i m a G a r b a g eC o l l e c t i o n I n t r o d u c c i nal ap r o g r a m a c i n F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n D e p u r a c i n F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n a s y m p a I n t r o d u c c i naa s y m p a F u n c i o n e syv a r i a b l e sp a r aa s y m p a a u g m e n t e d _ l a g r a n g i a n F u n c i o n e syv a r i a b l e sp a r aa u g m e n t e d _ l a g r a n g i a n B e r n s t e i n F u n c i o n e syv a r i a b l e sp a r aB e r n s t e i n p r e s a g i a r F u n c i o n e syv a r i a b l e sp a r ab o d e c o b y l a I n t r o d u c c i nac o b y l a F u n c i o n e syv a r i a b l e sp a r ac o b y l a E j e m p l o sd ec o b y l a c o n t r i b _ o d e I n t r o d u c c i nac o n t r i b _ o d e F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e m e j o r a sp o s i b l e sac o n t r i b _ o d e c a s o sd ep r u e b ap a r ac o n t r i b _ o d e R e f e r e n c i a sp a r ac o n t r i b _ o d e d e s c r i p t i v o I n t r o d u c c i nal ad e s c r i p t i v o s F u n c i o n e syv a r i a b l e sp a r al am a n i p u l a c i nd ed a t o s F u n c i o n e syv a r i a b l e sp a r al ae s t a d s t i c ad e s c r i p t i v a F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s d i a g F u n c i o n e syv a r i a b l e sp a r ad i a g d i s t r i b I n t r o d u c c i nad i s t r i b F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s d i b u j a r I n t r o d u c c i nad i b u j a r F u n c i o n e syv a r i a b l e sp a r ad i b u j a r F u n c i o n e syv a r i a b l e sp a r al a si m g e n e s F u n c i o n e syv a r i a b l e sp a r aw o r l d m a p d r a w d f I n t r o d u c c i nad r a w d f F u n c i o n e syv a r i a b l e sp a r ad r a w d f d i n m i c a I n t r o d u c c i nal ad i n m i c a F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a e z u n i t s I n t r o d u c c i nae z u n i t s I n t r o d u c c i nap h y s i c a l _ c o n s t a n t s F u n c i o n e syv a r i a b l e sp a r ae z u n i t s f 9 0 F u n c i o n e syv a r i a b l e sp a r af 9 0 f i n a n c i a r I n t r o d u c c i nal af i n a n c i a c i n F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s f r a c t a l e s I n t r o d u c c i nal o sf r a c t a l e s D e f i n i c i o n e sp a r af r a c t a l e sI F S D e f i n i c i o n e sp a r af r a c t a l e sc o m p l e j a s d e f i n i c i o n e sd el o sc o p o sd en i e v ed eK o c h D e f i n i c i o n e sd em a p a sP e a n o g g f F u n c i o n e syv a r i a b l e sp a r ag g f
4/633
28/08/13
g r f i c a s I n t r o d u c c i nal o sg r f i c o s F u n c i o n e syv a r i a b l e sp a r ag r f i c o s g r o b n e r I n t r o d u c c i nag r o b n e r F u n c i o n e syv a r i a b l e sp a r ag r o b n e r i m p d i f f F u n c i o n e syv a r i a b l e sp a r ai m p d i f f i n t e r p o l I n t r o d u c c i nal ai n t e r p o l F u n c i o n e syv a r i a b l e sp a r ai n t e r p o l l a p a c k I n t r o d u c c i naL A P A C K F u n c i o n e syv a r i a b l e sp a r al a p a c k l b f g s I n t r o d u c c i nal b f g s F u n c i o n e syv a r i a b l e sp a r al b f g s l i n d s t e d t F u n c i o n e syv a r i a b l e sp a r al i n d s t e d t l i n e a r a l g e b r a I n t r o d u c c i nal i n e a r a l g e b r a F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a l s q u a r e s I n t r o d u c c i nal s q u a r e s F u n c i o n e syv a r i a b l e sp a r al s q u a r e s m a k e O r d e r s F u n c i o n e syv a r i a b l e sp a r am a k e O r d e r s M I N P A C K I n t r o d u c c i naM I N P A C K F u n c i o n e syv a r i a b l e sp a r aM I N P A C K m n e w t o n I n t r o d u c c i nam n e w t o n F u n c i o n e syv a r i a b l e sp a r am n e w t o n
n u m e r i c a l i o I n t r o d u c c i nan u m e r i c a l i o F u n c i o n e syv a r i a b l e sp a r ae n t r a d ad et e x t os i nf o r m a t oys a l i d a F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ab i n a r i a o p s u b s t F u n c i o n e syv a r i a b l e sp a r ao p s u b s t o r t h o p o l y I n t r o d u c c i nal o sp o l i n o m i o so r t o g o n a l e s F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s p l o t d f I n t r o d u c c i nap l o t d f F u n c i o n e syv a r i a b l e sp a r ap l o t d f R o m b e r g F u n c i o n e syv a r i a b l e sp a r aR o m b e r g s i m p l e x I n t r o d u c c i nas i m p l e x F u n c i o n e syv a r i a b l e sp a r as i m p l e x s i m p l i f i c a c i n I n t r o d u c c i nal as i m p l i f i c a c i n d e lp a q u e t ea b s i m p p a q u e t ef a c e x p p a q u e t ef u n c t s p a q u e t eI n e q p a q u e t er d u c o n p a q u e t es c i f a c p a q u e t es q d n s t s o l v e _ r e c I n t r o d u c c i nas o l v e _ r e c F u n c i o n e syv a r i a b l e sp a r as o l v e _ r e c E s t a d s t i c a s I n t r o d u c c i nal aE v o l u c i n F u n c i o n e syv a r i a b l e sp a r ai n f e r e n c e _ r e s u l t F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e se s p e c i a l e s s t i r l i n g F u n c i o n e syv a r i a b l e sp a r as t i r l i n g s t r i n g p r o c I n t r o d u c c i na lp r o c e s a m i e n t od ec a d e n a s F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s
5/633
28/08/13
t o _ p o l y _ s o l v e F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e u n i d a d I n t r o d u c c i nal a sU n i d a d e s F u n c i o n e syv a r i a b l e sp a r al a su n i d a d e s z e i l b e r g e r I n t r o d u c c i naz e i l b e r g e r F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r
1 Introduccin a Maxima
I n i c i a rM a x i m ac o ne lc o m a n d o" m a x i m a " .M a x i m am o s t r a r l av e r s i n i n f o r m a c i nyu n as o l i c i t u d .T e r m i n a rc a d ac o m a n d oM a x i m ac o nu np u n t oyc o m a . T e r m i n a rl as e s i nc o ne lc o m a n d o" q u i t( ) ; " .H ea q u u n as e s i nd ee j e m p l o : [ W f s@c r o m o ]$m a x i m a M a x i m a5 . 9 . 1h t t p : / / m a x i m a . s o u r c e f o r g e . n e t U s a n d oL i s pC M UC o m m o nL i s p1 9 a D i s t r i b u i d ob a j ol aL i c e n c i aP b l i c aG N U .C o n s u l t ee la r c h i v od el ac o p i a . D e d i c a d oal am e m o r i ad eW i l l i a mS c h e l t e r . E s t ae su n av e r s i nd ed e s a r r o l l od eM a x i m a .E lb u g _ r e p o r tf u n c t i o n( ) p r o p o r c i o n ai n f o r m a c i nd ei n f o r m e sd ee r r o r e s . ( %I 1 )F a c t o r( 1 0 ! ) ; 842 ( %O 1 )2357 ( %I 2 )e x p a n d( ( x+y )^6 ) ; 6524334256 ( %O 2 )y+6x yx y+1 5+2 0+1 5x yx y+x y+6x ( %I 3 )f a c t o r( x^6 1 ) ; 22 ( %O 3 )( x-1 )( x+1 )( x-x+1 )( x+x+1 ) ( %I 4 )q u i t( ) ; [ W f s@c r o m o ]$ M a x i m ap u e d eb u s c a re nl a sp g i n a sd ei n f o r m a c i n .U t i l i c ee lc o m a n d o` d e s c r i b e' a m o s t r a ri n f o r m a c i ns o b r ee lc o m a n d ool o sc o m a n d o syv a r i a b l e s q u ec o n t i e n eu n ac a d e n a .E ls i g n od ei n t e r r o g a c i n' ? '( B s q u e d ae x a c t a )yd o b l e s p r e g u n t aS u p r i m i r` ?' ( B s q u e d aa p r o x i m a d a )s o na b r e v i a t u r a sp a r ad e s c r i b i r` ' : ( %I 1 ) ?i n t e g 0 :F u n c i o n e syv a r i a b l e sp a r ai n t e g r a l e se l p t i c a s 1 :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n 2 :I n t r o d u c c i nal a sf u n c i o n e sei n t e g r a l e se l p t i c a s 3 :I n t r o d u c c i nal aI n t e g r a c i n 4 :( F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n )a s k i n t e g e r 5 :i n t e g e r p( F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s ) 6 :i n t e g e r _ p a r t i t i o n s( F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s ) 7 :( F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n )i n t e g r a ra 8 :i n t e g r a t e _ u s e _ r o o t s o f( F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n ) 9 :( F u n c i o n e syv a r i a b l e sp a r ai n t e g r a t i o n _ c o n s t a n t _ c o u n t e r I n t e g r a c i n ) 1 0 :( F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a )n o n n e g i n t e g e r p I n t r o d u z c as e p a r a d o sp o re s p a c i o sn m e r o s ,` t o d o s' o 'n o n e' :54 -F u n c i n :i n t e g e r p( e x p r ) D e v u e l v e` t r u e' s ie x p re su nn m e r oe n t e r oy ,e nc a s oc o n t r a r i o ' F a l s e ' . ` I n t e g e r p' d e v u e l v ef a l s es is ua r g u m e n t oe su ns m b o l o ,i n c l u s os ie l a r g u m e n t os ed e c l a r ae n t e r o . E j e m p l o s : ( %I 1 )i n t e g e r p( 0 ) ; ( %O 1 )t r u e ( %I 2 )i n t e g e r p( 1 ) ; ( %O 2 )t r u e ( %I 3 )i n t e g e r p( 1 7 ) ; ( %O 3 )t r u e ( %I 4 )i n t e g e r p( 0 . 0 ) ; ( %O 4 )f a l s e ( %I 5 )i n t e g e r p( 1 , 0 ) ; ( %O 5 )f a l s e ( %I 6 )i n t e g e r p( %p i ) ; ( %O 6 )f a l s e ( %I 7 )i n t e g e r p( n ) ; ( %O 7 )f a l s e ( %I 8 )d e c l a r e( n ,e n t e r o ) ; ( %O 8 )h e c h o ( %I 9 )i n t e g e r p( n ) ; ( %O 9 )f a l s e -F u n c i n :a s k i n t e g e r( e x p r ,e n t e r o ) -F u n c i n :a s k i n t e g e r( e x p r ) -F u n c i n :a s k i n t e g e r( e x p r ,i n c l u s o ) -F u n c i n :a s k i n t e g e r( e x p r ,i m p a r ) ` A s k i n t e g e r( e x p r ,e n t e r o )' t r a t ad ed e t e r m i n a re l ` A s u m i r "l ab a s ed ed a t o ss ie x p re su ne n t e r o .` A s k i n t e g e r' s o l i c i t aa lu s u a r i os in os ep u e d ed e c i ro t r ac o s a ,yt r a t a rd e i n s t a l a rl ai n f o r m a c i ne nl ab a s ed ed a t o ss ie sp o s i b l e .` A s k i n t e g e r ( E x p r )' e se q u i v a l e n t ea 'a s k i n t e g e r( e x p r ,e n t e r o ) .
6/633
28/08/13

` A s k i n t e g e r( e x p r ,a )' y à s k i n t e g e r( e x p r ,i m p a r ) ' a s i m i s m ot r a t a rd ed e t e r m i n a rs ie x p re su ne n t e r op a roi m p a r n m e r oe n t e r o ,r e s p e c t i v a m e n t e . ( %O 1 )t r u e P a r au s a ru nr e s u l t a d od ef o r m ap o s t e r i o r ,s ep u e d ea s i g n a rau n v a r i a b l eor e f e r i r s ea lp o rm e d i od el ae t i q u e t a .E n A d e m s ,' % ' s er e f i e r ea lr e s u l t a d oc a l c u l a d om sr e c i e n t e : ( %I 1 )u :e x p a n d( ( x+y )^6 ) ; 6524334256 ( %O 1 )y+6x yx y+1 5+2 0+1 5x yx y+x y+6x ( %I 2 )d i f f( u ,x ) ; 54233245 ( %O 2 )6y+3 0x yx y+6 0+6 0+3 0x yx y+6x ( %I 3 )F a c t o r( %o 2 ) ; 5 ( %O 3 )6( y+x ) M a x i m as i nn i n g np r o b l e m an m e r o sc o m p l e j o syc o n s t a n t e sn u m r i c a s : ( %I 1 )c o s( %p i ) ; ( %O 1 )-1 ( %I 2 )e x p( %i* %p i ) ; ( %O 2 )-1 M a x i m ap u e d eh a c e rd e r i v a d a sei n t e g r a l e s : ( %I 1 )u :e x p a n d( ( x+y )^6 ) ; 6524334256 ( %O 1 )y+6x yx y+1 5+2 0+1 5x yx y+x y+6x ( %I 2 )D i f e r e n c i a( % ,x ) ; 54233245 ( %O 2 )6y+3 0x yx y+6 0+6 0+3 0x yx y+6x ( %I 3 )i n t e g r a t e( 1/( 1+x^3 ) ,x ) ; 2x-1 2a t a n( ) l o g( x-x+1 )s q r t( 3 )l o g( x+1 ) ( %O 3 )-+--+ 6s q r t( 3 )3 M a x i m ap u e d er e s o l v e rs i s t e m a sd ee c u a c i o n e sl i n e a l e syc b i c a s : ( %I 1 )l i n s o l v e( [ 3*4*x+y=7 ,2*x+a*y=1 3 ] ,[ x ,y ] ) ; 7a-5 22 5 ( %O 1 )[ x-= ,y=] 3a-83a-8 ( %I 2 )s o l v e( x^3 3*x^2+5*x=1 5 ,x ) ; ( %O 2 )[ x=-s q r t( 5 ) %i ,x=s q r t( 5 ) %i ,x=3 ] M a x i m ap u e d er e s o l v e rs i s t e m a sd ee c u a c i o n e sn ol i n e a l e s .T e n g ae nc u e n t aq u es in ol oh a c e q u i e r e nu nr e s u l t a d oi m p r e s o ,p u e d ef i n a l i z a re lc o m a n d oc o n' $ 'e nl u g a rd e ` ;' . ( %I 1 )e q _ 1 :x^2+3*x*y+y^2=0$ ( %I 2 )e q _ 2 :3*x+y=1$ ( %I 3 )s o l v e( [ e q _ 1 ,e q _ 2 ] ) ; 3s q r t( 5 )+7s q r t( 5 )+3 ( %O 3 )[ [ y=-x=] , 22 3s q r t( 5 )-7s q r t( 5 )-3 [ Y=,x=] ] 22 M a x i m ap u e d eg e n e r a rg r f i c o sd eu n aom sf u n c i o n e s : ( %I 1 )p l o t 2 d( s i n( x )/x ,[ x ,2 0 ,2 0 ] )$ ( %I 2 )p l o t 2 d( [ a t a n( x ) ,e r f( x ) ,t a n h( x ) ] ,[ x ,5 ,5 ] ,[ y ,1 , 5 ,2 ] )$ ( %I 3 )p l o t 3 d( s i n( s q r t( x^2+y^2 ) )/s q r t( x^2+y^2 ) , [ X ,1 2 ,1 2 ] ,[ Y ,1 2 ,1 2 ] )$
2 Deteccin e informe de fallos

F u n c i o n e syv a r i a b l e sp a r al ad e t e c c i nei n f o r m ed ef a l l o s
2.1 Funciones y variables para la deteccin e informe de fallos

F u n c i n :r u n _ t e s t s u i t e( [ < o p c i o n e s > ] ) E j e c u t ae lc o n j u n t od ep r u e b a sd eM a x i m a .L a sp r u e b a sp r o d u c e nl a sr e s p u e s t a sd e s e a d a ss o n c o n s i d e r a" p a s a " ,c o m os o nl a sp r u e b a sd eq u en op r o d u c e ne ld e s e a d o r e s p o n d e r ,p e r os em a r c a nc o m oe r r o r e sc o n o c i d o s . ` R u n _ t e s t s u i t e' t o m al o ss i g u i e n t e sa r g u m e n t o sd ep a l a b r ac l a v eo p c i o n a l e s
7/633
28/08/13

< d i s p l a y _ a l l > M o s t r a rt o d a sl a sp r u e b a s .N o r m a l m e n t e ,n os em u e s t r a nl a sp r u e b a s , an os e rq u en op a s al ap r u e b a .( E lv a l o rp r e d e t e r m i n a d oe s' f a l s o ' ) . < d i s p l a y _ k n o w n _ b u g s > M u e s t r al a sp r u e b a sq u ee s t nm a r c a d o sc o m of a l l o sc o n o c i d o s .( E lv a l o rp r e d e t e r m i n a d oe s ' F a l s e ' ) . < t e s t s > E s t ae su n al i s t ad el a sp r u e b a sq u es ed e b e ne j e c u t a r .C a d ap r u e b ap u e d es e r e s p e c i f i c a d op o ru n ac a d e n aou ns m b o l o .P o rd e f e c t o ,t o d o sl o s l a sp r u e b a ss ep r a c t i c a n .E lc o n j u n t oc o m p l e t od ep r u e b a se se s p e c i f i c a d op o r ` T e s t s u i t e _ f i l e s' . < h o r a > M o s t r a ri n f o r m a c i nd et i e m p o .S i` t r u e' ,e lt i e m p on e c e s a r i op a r ac a d a A p a r e c ea r c h i v od ep r u e b a .S i` a l l' ,e lt i e m p od ec a d a p r u e b ai n d i v i d u a ls em u e s t r as i` d i s p l a y _ a l l' e s `t r u e ' .L a p r e d e t e r m i n a d oe s' f a l s o ' ,a s q u en oh a yi n f o r m a c i nd et i e m p os em u e s t r a . P o re j e m p l o` r u n _ t e s t s u i t e( d i s p l a y _ k n o w n _ b u g s=t r u e , p r u e b a s=[ r t e s t 5 ] )' c o r r es o l op r o b a r` r t e s t 5 'ym u e s t r al ap r u e b a q u ee s t nm a r c a d o sc o m of a l l o sc o n o c i d o s . ` R u n _ t e s t s u i t e( d i s p l a y _ a l l=t r u e ,p r u e b a s=[ "r t e s t 1" ,r t e s t 1 a ] ) "v o l u n t a d e j e c u t a rp r u e b a sr t e s t 1` ' y `r t e s t 2 ' ,ym u e s t r ac a d ap r u e b a . ` R u n _ t e s t s u i t e' c a m b i ae le n t o r n od eM a x i m a .T p i c a m e n t e ,u n ap r u e b a s c r i p ts ee j e c u t a` k i l l' p a r ae s t a b l e c e ru ne n t o r n oc o n o c i d o( e sd e c i r , u n os i nf u n c i o n e syv a r i a b l e sd e f i n i d a sp o re lu s u a r i o )yl u e g od e f i n e f u n c i o n e syv a r i a b l e sa p r o p i a d a sp a r ae lt e s t . ` R u n _ t e s t s u i t e' d e v u e l v e 'H e c h o' .
V a r i a b l eo p c i o n a l :t e s t s u i t e _ f i l e s ` T e s t s u i t e _ f i l e s' e se lc o n j u n t od ep r u e b a sac a r g od e `r u n _ t e s t s u i t e ' . E su n al i s t ad en o m b r e sd el o sa r c h i v o sq u ec o n t i e n e nl a sp r u e b a ss ee j e c u t e n . S ia l g u n ad el a sp r u e b a se nu na r c h i v os o nc o n o c i d o saf a l l a r ,e n t o n c e se nv e zd e i n d i c a n d oe ln o m b r ed e la r c h i v o ,u n al i s t aq u ec o n t i e n ee ln o m b r ed e la r c h i v oy e ln m e r od ep r u e b a sq u en os eu t i l i z a . P o re j e m p l o ,e s t oe su n ap a r t ed e lc o n j u n t op r e d e t e r m i n a d od ep r u e b a s : [ " R t e s t 1 3 s " ,[ " r t e s t 1 4 " ,5 7 ,6 3 ] ] E s p e c i f i c ae lb a n c od ep r u e b a sc o n s t ad el o sa r c h i v o s" r t e s t 1 3 s "y " R t e s t 1 4 " ,p e r o" r t e s t 1 4 "c o n t i e n ed o sp r u e b a sq u es es a b eq u e f a l l a r :5 7y6 3 .
F u n c i n :b u g _ r e p o r t( ) I m p r i m eM a x i m ayn m e r o sd ev e r s i nd eL i s pyp r o p o r c i o n au ne n l a c ea l ap g i n ad e lp r o y e c t od ei n f o r m ed ee r r o rM a x i m aw e b .L ai n f o r m a c i nd el av e r s i n e se lm i s m oq u ei n f o r m p o r` b u i l d _ i n f o' . C u a n d os ei n f o r m ad eu ne r r o r ,e s t i lp a r ac o p i a re lM a x i m ayL i s p i n f o r m a c i nd el av e r s i ne ne li n f o r m ed ee r r o r . ` B u g _ r e p o r t' d e v u e l v eu n ac a d e n av a c a ' "" ' .
F u n c i n :b u i l d _ i n f o( ) I m p r i m eu nr e s u m e nd el o sp a r m e t r o sd el aM a x i m ab u i l d . ` B u i l d _ i n f o' d e v u e l v eu n ac a d e n av a c a ' "" ' .C o n s u l t et a m b i n` b u g _ r e p o r t' .
3 Ayuda
D o c u m e n t a c i n F u n c i o n e syv a r i a b l e sp a r al aa y u d a
3.1 Documentacin
E lm a n u a lM a x i m ao n l i n ed e lu s u a r i op u e d es e rv i s t od ed i f e r e n t e sm a n e r a s . D e s d ee lm o d oi n t e r a c t i v o ,M a x i m a ,e lm a n u a ld eu s u a r i oe sv i s t oc o m o t e x t op l a n op o re l' ? 'c o m a n d o( e sd e c i r ,l af u n c i n` d e s c r i b i r " ) .L a M a n u a ld e lu s u a r i os ev ec o m o` i n f o' h i p e r t e x t op o re l ì n f o 'e s p e c t a d o r p r o g r a m ayc o m ou n ap g i n aw e bm e d i a n t ec u a l q u i e rn a v e g a d o rw e bn o r m a l . ' E j e m p l o 'm u e s t r ae j e m p l o sp a r am u c h a sf u n c i o n e sM a x i m a .P o re j e m p l o , ( %I 1 )e j e m p l o( i n t e g r a t e ) ;
8/633
28/08/13
r e n d i m i e n t o s
( %I 2 )p r u e b a( f ) :=b l o q u e( [ u ] ,u :i n t e g r a t e( f ,x ) ,r a t s i m p( f d i f f( u ,x ) ) ) ( %O 2 )p r u e b a( f ) :=b l o q u e( [ u ] ,u :i n t e g r a t e( f ,x ) , r a t s i m p( f-d i f f( u ,x ) ) ) ( %I 3 )p r u e b a( s i n( x ) ) ( %O 3 )0 ( %I 4 )p r u e b a( 1/( x1 ) ) ( %O 4 )0 ( %I 5 )p r u e b a( 1/( x^21 ) ) ( %O 5 )0 yd es a l i d aa d i c i o n a l .
3.2 Funciones y variables para la ayuda

F u n c i n :a p r o p o s( < c a d e n a > ) B u s c an o m b r e sd eM a x i m aq u eh a n< c a d e n a >q u ea p a r e c e ne nc u a l q u i e rl u g a r d e n t r od ee l l o s .P o rl ot a n t o ,` a p r o p o s( e x p )' d e v u e l v eu n al i s t ad et o d o sl o s b a n d e r a syf u n c i o n e sq u et e n g a ne x p` ' c o m op a r t ed es u sn o m b r e s , c o m o' e x p a n d i r ' ,' e x p 'y` e x p o n e n t i a l i z e' .A s ,s is l os ep u e d e r e c u e r d ap a r t ed e ln o m b r ed ea l g oq u es ep u e d eu t i l i z a re s t ec o m a n d op a r a e n c o n t r a re lr e s t od e ln o m b r e .D e lm i s m om o d o ,s ep o d r ad e c i r` a p r o p o s ( T r _ )' p a r ae n c o n t r a ru n al i s t ad em u c h o sd el o sp a r m e t r o sr e l a t i v o sal a t r a d u c t o r ,l am a y o r ad el a sc u a l e sc o m i e n z a nc o n` t r _' . ` A p r o p o s( "" )' d e v u e l v eu n al i s t ac o nt o d o sl o sn o m b r e sd eM a x i m a . ` A p r o p o s' d e v u e l v el al i s t a `[ ]v a c a" ,s in os ee n c u e n t r au nn o m b r e . E j e m p l o : M o s t r a rt o d o sl o ss m b o l o sM a x i m ae nl o sc u a l e s` "g a m m a" "e ne ln o m b r e : ( %I 1 )a p r o p o s( " g a m m a " ) ; ( %O 1 )[ %g a m m a ,g a m m a ,g a m m a l i m ,g a m m a _ e x p a n d ,g a m m a _ g r e e k , g a m m a _ i n c o m p l e t e ,g a m m a _ i n c o m p l e t e _ g e n e r a l i z e d , g a m m a _ i n c o m p l e t e _ r e g u l a r i z e d ,G a m m a ,l o g _ g a m m a ,m a k e g a m m a , p r e f e r _ g a m m a _ i n c o m p l e t e , g a m m a _ i n c o m p l e t e _ g e n e r a l i z e d _ r e g u l a r i z e d ]
F u n c i n :D e m o( < f i l e n a m e > ) E v a l al a se x p r e s i o n e sd eM a x i m ae n< f i l e n a m e >ym u e s t r ae l r e s u l t a d o s .' D e m o 'p a u s a sd e s p u sd ee v a l u a rc a d ae x p r e s i ny c o n t i n ad e s p u sd eq u ee lu s u a r i oi n t r o d u c eu nr e t o r n od ec a r r o .( S is ee j e c u t ae n X m a x i m a ,' d e m o 'p u e d en e c e s i t a rv e rau np u n t oyc o m a' ; 's e g u i d od eu n r e t o r n od ec a r r o . ) ' D e m o 'b u s c ae nl al i s t ad ed i r e c t o r i o s` f i l e _ s e a r c h _ d e m o' p a r ae n c o n t r a r ` F i l e n a m e' .S ie la r c h i v ot i e n ee ls u f i j od e m` ' ,e ls u f i j op u e d es e r o m i t i d o .C o n s u l t et a m b i n` f i l e _ s e a r c h' . ' D e m o 'e v a l as u sa r g u m e n t o s .' D e m o 'd e v u e l v ee ln o m b r ed el a a r c h i v od ed e m o s t r a c i n . E j e m p l o : ( %I 1 )d e m o( " d i s o l " ) ; l o t e s/h o m e/w f s/m a x i m a/s h a r e/s i m p l i f i c a c i n/d i s o l . d e m E ne li n d i c a d o r_ ,e s c r i b a' ; 's e g u i d od eE N T E Rp a r ac o n s e g u i ra ll a d od ed e m o s t r a c i n ( %I 2 )l o a d( d i s o l ) _ ( %I 3 )e x p 1 :a( e( g+f )+b( d+c ) ) ( %O 3 )a( e( g+f )+b( d+c ) ) _ ( %I 4 )d i s o l a t e( e x p 1 ,a ,b ,e ) ( %T 4 )d+c ( %T 5 )g+f ( %O 5 )a( %t 5e+ %t 4b ) _
F u n c i n :d e s c r i b i r( < c a d e n a > ) F u n c i n :d e s c r i b i r( < c a d e n a > ,e x a c t o s ) F u n c i n :d e s c r i b i r( < c a d e n a > ,i n e x a c t a ) ` D e s c r i b e( < c a d e n a > )' e se q u i v a l e n t ea 'd e s c r i b i r( < c a d e n a > ,e x a c t o s ) . ` D e s c r i b e( < c a d e n a > ,e x a c t o )' e n c u e n t r au na r t c u l oc o ne lt t u l oi g u a l ( M a y s c u l a sym i n s c u l a s )p a r a< c a d e n a > ,s ih a ya l g u n od ee s o se l e m e n t o s . ` D e s c r i b e( < c a d e n a > ,i n e x a c t a s )' b u s c at o d o sl o se l e m e n t o sd o c u m e n t a d o sq u e
9/633
28/08/13

c o n t e n e r< c a d e n a >e ns u st t u l o s .S ih a ym sd eu n od et a l e s o p c i n ,M a x i m ap r e g u n t a r a lu s u a r i os e l e c c i o n a ru ne l e m e n t ooe l e m e n t o sp a r am o s t r a r . E ne lm o d oi n t e r a c t i v o ,` ?f o o' ( c o nu ne s p a c i oe n t r e ' ?' y ` F o o' )e se q u i v a l e n t ea `d e s c r i b e( " f o o " ,e x a c t o ) 'y` ?f o o' e s e q u i v a l e n t ea` d e s c r i b e( "f o o" ,i n e x a c t a ) . ` D e s c r i b e( "" ,i n e x a c t a s )' p r o d u c eu n al i s t ad et o d o sl o st e m a sd o c u m e n t a d o se n e lm a n u a le nl n e a . ' D e s c r i b i r 'c i t aas ua r g u m e n t o .' D e s c r i b i r 'd e v u e l v e' t r u e 's ia l g u n o s d o c u m e n t a c i ns ee n c u e n t r a ,d el oc o n t r a r i o` f a l s e' . T a m b i nv e rn o t aD o c u m e n t a c i n: : . E j e m p l o : ( %I 1 ) ?i n t e g 0 :F u n c i o n e syv a r i a b l e sp a r ai n t e g r a l e se l p t i c a s 1 :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n 2 :I n t r o d u c c i nal a sf u n c i o n e sei n t e g r a l e se l p t i c a s 3 :I n t r o d u c c i nal aI n t e g r a c i n 4 :( F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n )a s k i n t e g e r 5 :i n t e g e r p( F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s ) 6 :i n t e g e r _ p a r t i t i o n s( F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s ) 7 :( F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n )i n t e g r a ra 8 :( F u n c i o n e syv a r i a b l e sp a r ai n t e g r a t e _ u s e _ r o o t s o f I n t e g r a c i n ) 9 :( F u n c i o n e syv a r i a b l e sp a r ai n t e g r a t i o n _ c o n s t a n t _ c o u n t e r I n t e g r a c i n ) 1 0 :( F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a )n o n n e g i n t e g e r p I n t r o d u z c as e p a r a d o sp o re s p a c i o sn m e r o s ,` t o d o s' o 'n o n e' :78 -F u n c i n :i n t e g r a t e( e x p r ,< x > ) -F u n c i n :i n t e g r a t e( e x p r ,< x >< a > ) L o si n t e n t o sd ec a l c u l a rs i m b l i c a m e n t el ai n t e g r a ld ee x p rc o n r e s p e c t oa< x > .' I n t e g r a t e( e x p r ,< x > ) 'e si n d e f i n i d o i n t e g r a l ,m i e n t r a sq u e' i n t e g r a t e( e x p r ,< x >< a > ) 'e su n i n t e g r a ld e f i n i d a ,[ . . . ] -V a r i a b l eo p c i o n a l :i n t e g r a t e _ u s e _ r o o t s o f V a l o rp o rd e f e c t o :f a l s e' C u a n d o` i n t e g r a t e _ u s e _ r o o t s o f' e s `t r u e 'ye ld e n o m i n a d o rd e u n af u n c i nr a c i o n a ln os ep u e d ef a c t o r i z a r ,' i n t e g r a r 'r e g r e s a l ai n t e g r a le nu n af o r m aq u ee su n as u m as o b r el a sr a c e s( t o d a v an o c o n o c i d a )d e ld e n o m i n a d o r . [ . . . ] E ne s t ee j e m p l o ,s es e l e c c i o n a r o nl o sp u n t o s7y8( l as a l i d as ea c o r t a c o m os ei n d i c ap o r` [ . . . ]' .T o d a son i n g u n ad el a so p c i o n e sp u e d e ns e r s e l e c c i o n a d a se s c r i b i e n d o` a l l' o 'n o n e' ,q u es ep u e d ea b r e v i a r à ' o' n ' ,r e s p e c t i v a m e n t e .
F u n c i n :e j e m p l o( < t e m a > ) F u n c i n :e j e m p l o( ) ` E j e m p l o( < t o p i c > )' m u e s t r aa l g u n o se j e m p l o sd e< t o p i c > ,q u ee su n a s m b o l oou n ac a d e n a .P a r ao b t e n e re j e m p l o sd eo p e r a d o r e sc o m o` i f' , 'h a c e r' , o' l a m b d a 'e la r g u m e n t od e b es e ru n ac a d e n a ,p o re j e m p l o ,` e j e m p l o( "h a c e r" ) . ' E j e m p l o 'n od i s t i n g u ee n t r em a y s c u l a sym i n s c u l a s .L am a y o r ad el o st e m a ss o nn o m b r e sd ef u n c i o n e s . ` E j e m p l o( )' d e v u e l v el al i s t ad et o d o sl o st e m a sr e c o n o c i d o s . E ln o m b r ed e la r c h i v oq u ec o n t i e n el o se j e m p l o ss ed ap o re l o p c i ng l o b a lv a r i a b l e` m a n u a l _ d e m o' ,q u ep o rd e f e c t oe s ` "M a n u a l . d e m o" . ' E j e m p l o 'e v a l as ua r g u m e n t o .` E j e m p l o' d e v u e l v e 'h e c h o' am e n o sq u en o e j e m p l o ss ee n c u e n t r a non oh a ya r g u m e n t o ,e nc u y oc a s o' e j e m p l o ' d e v u e l v el al i s t ad et o d o sl o st e m a sc o n o c i d o s . E j e m p l o s : ( %I 1 )e j e m p l o( a p p e n d ) ; ( %I 2 )a p p e n d( [ x+y ,0 ,3 , 2 ] ,[ 2 . 5 e+ 2 0 ,x ] ) ( %O 2 )[ y+x ,0 ,-3 , 2 ,2 , 5E+ 2 0 ,x ] ( %O 2 )d o n e ( %I 3 )e j e m p l o( " l a m b d a " ) ; ( %I 4 )l a m b d a( [ x ,y ,z ] ,z^2+y^2+x^2 ) 222 ( %O 4 )l a m b d a( [ x ,y ,z ] ,z+y+x ) ( %I 5 ) %( 1 , 2 ,a ) 2 ( %O 5 )a+5 ( %I 6 )u n21 ( %O 6 )a+3 ( %O 6 )h e c h o
V a r i a b l eo p c i o n a l :m a n u a l _ d e m o
10/633
28/08/13
V a l o rp o rd e f e c t o :" m a n u a l . d e m o "'
` M a n u a l _ d e m o' e s p e c i f i c ae ln o m b r ed e la r c h i v oq u ec o n t i e n el a e j e m p l o sp a r al af u n c i n` e j e m p l o' .V a s ee le j e m p l o` ' .
4 Lnea de comandos
I n t r o d u c c i nal al n e ad ec o m a n d o s F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a
4.1 Introduccin a Command Line 4.2 Funciones y variables para la lnea de comandos
V a r i a b l ed e ls i s t e m a :_ _ ` _ _' E sl ae x p r e s i nd ee n t r a d aq u es ee s t e v a l u a n d oa c t u a l m e n t e .E sd e c i r , m i e n t r a ss ee v a l al ae x p r e s i ne x p rd ee n t r a d a ,' _ _ 'e s e x p r . ` _ _' S el ea s i g n al ae x p r e s i nd ee n t r a d aa n t e sd el ae n t r a d ae s s i m p l i f i c a d aoe v a l u a d a .S i ne m b a r g o ,e lv a l o rd e` _ _' s es i m p l i f i c a ( P e r on os ee v a l a )c u a n d os em u e s t r a . ` _ _' E sr e c o n o c i d op o rl o t e ` 'y' c a r g a ' .E nu na r c h i v op r o c e s a d o p o rl o t e` ' , `_ _ 't i e n ee lm i s m os i g n i f i c a d oq u ee ne lm o d oi n t e r a c t i v o . E nu nf i c h e r oe sp r o c e s a d op o r` c a r g a' , `_ _ 'e s t u n i d oal ae n t r a d a e x p r e s i ne n t r p o r l t i m av e ze ne lm o d oi n t e r a c t i v o ,b i e ne nu n a r c h i v op o rl o t e s ,` _ _' n oe s t v i n c u l a d oal a se x p r e s i o n e sd ee n t r a d ae ne la r c h i v o s i e n d op r o c e s a d a .E np a r t i c u l a r ,c u a n d ol o a d( < f i l e n a m e > )' e s e j e c u t a d od e s d ee lm o d oi n t e r a c t i v o ,' _ _ 's eu n ea' c a r g a r ( < f i l e n a m e > )" M i e n t r a ss ep r o c e s ae la r c h i v o . C o n s u l t et a m b i n` _' y ' %' . E j e m p l o s : ( %I 1 )p r i n t( " f u il l a m a d oc o m o " ,_ _ ) ; F u il l a m a d oc o m oi m p r e s i n( s em el l a m c o m o ,_ _ ) ( %O 1 )p r i n t( If u el l a m a d oas e r ,_ _ ) ( %I 2 )f o o( _ _ ) ; ( %O 2 )f o o( f o o( _ _ ) ) ( %I 3 )g( x ) :=( p r i n t( " e x p r e s i nd ee n t r a d aa c t u a l= " ,_ _ ) ,0 ) ; ( %O 3 )g( x ) :=( p r i n t( " e x p r e s i nd ee n t r a d aa c t u a l= " ,_ _ ) ,0 ) ( %I 4 )[ a a :1 ,b b :2 ,c c :3 ] ; ( %O 4 )[ 1 ,2 ,3 ] ( %I 5 )( a a+b b+c c )/( d de e++g( x ) ) ; c c+b b+a a E x p r e s i nd ee n t r a d aa c t u a l=g( x )++e ed d 6 ( %O 5 )e e+d d
V a r i a b l ed e ls i s t e m a :_ ` _' E sl a l t i m ae x p r e s i nd ee n t r a d a( p o re j e m p l o , ` %i 1 ' ,' %i 2 ' , ` %I 3' ,. . . ) . ` _' S el ea s i g n al ae x p r e s i nd ee n t r a d aa n t e sd el ae n t r a d ae s s i m p l i f i c a d aoe v a l u a d a .S i ne m b a r g o ,e lv a l o rd e` _' s es i m p l i f i c a ( P e r on os ee v a l a )c u a n d os em u e s t r a . ` _' E sr e c o n o c i d op o rl o t e ` 'y' c a r g a ' .E nu na r c h i v op r o c e s a d o p o rl o t e` ' , `_ 't i e n ee lm i s m os i g n i f i c a d oq u ee ne lm o d oi n t e r a c t i v o . E nu nf i c h e r oe sp r o c e s a d op o rl o a d' , '_' s eu n eal ae x p r e s i nd ee n t r a d a m sr e c i e n t e m e n t ee v a l u a d ae ne lm o d oi n t e r a c t i v o ,b i e ne nu nl o t e a r c h i v o ;` _' n oe s t v i n c u l a d oal a se x p r e s i o n e sd ee n t r a d ae ne la r c h i v oq u es ee s t p r o c e s a d a . V a s et a m b i n' _ _ 'y' % ' . E j e m p l o s : ( %I 1 )1 3+2 9 ; ( %O 1 )4 2 ( %I 2 ) :l i s p$_ ( ( M P L U S )1 32 9 ) ( %I 2 )_ ; ( %O 2 )4 2 ( %I 3 )s i n( %p i/2 ) ; ( %O 3 )1 ( %I 4 ) :l i s p$_ ( ( %S I N )( ( M Q U O T I E N T )$ %P I2 ) ) ( %I 4 )_ ; ( %O 4 )1 ( %I 5 )a :1 3$
11/633
28/08/13
( %I 6 )b :2 9$ ( %I 7 )a+b ; ( %O 7 )4 2 ( %I 8 ) :l i s p$_ ( ( M P L U S )$A$B ) ( %I 8 )_ ; ( %O 8 )b+a ( %I 9 )a+b ; ( %O 9 )4 2 ( %I 1 0 )e v( _ ) ; ( %O 1 0 )4 2
V a r i a b l ed e ls i s t e m a :% ' % 'E sl ae x p r e s i nd es a l i d a( p o re j e m p l o ,` %o 1' , ' %o 2' , ` %o 3 ' ,. . . )m s r e c i e n t e m e n t ec a l c u l a d ap o rM a x i m a ,on os ev i s u a l i z a . ' % 'E sr e c o n o c i d op o rl o t e` ' y 'c a r g a' .E nu na r c h i v op r o c e s a d o p o rl o t e` ' , ' %' t i e n ee lm i s m os i g n i f i c a d oq u ee ne lm o d oi n t e r a c t i v o . E nu nf i c h e r oe sp r o c e s a d op o rl o a d' , ' %' s eu n eal as a l i d a e x p r e s i nc a l c u l a d am sr e c i e n t e m e n t ee ne lm o d oi n t e r a c t i v o ,b i e ne n u na r c h i v op o rl o t e s ,` %' n oe s t v i n c u l a d oal a se x p r e s i o n e sd es a l i d ae ne la r c h i v o s i e n d op r o c e s a d a . C o n s u l t et a m b i n` _' , ` % % ' ,y` %t h' .
V a r i a b l ed e ls i s t e m a :% % E ns e n t e n c i ac o m p u e s t a ,c o m o` b l o q u e' , 'l a m b d a' ,o `( < s _ 1 > , . . . ,< s _ n > )' ,` % % 'E se lv a l o rd el as e n t e n c i ap r e v i a . E nl ap r i m e r as e n t e n c i ad eu n as e n t e n c i ac o m p u e s t a ,of u e r ad eu n s e n t e n c i ac o m p u e s t a ,` % %' n oe s t d e f i n i d o . ` % %' E sr e c o n o c i d op o rl o t e ` 'y' c a r g a ' ,yt i e n el am i s m a e sd e c i r ,q u ee ne lm o d oi n t e r a c t i v o . V a s et a m b i n' % ' . E j e m p l o s : L o ss i g u i e n t e sd o se j e m p l o sd a ne lm i s m or e s u l t a d o . ( %I 1 )b l o q u e( i n t e g r a c i n( x^5 ,x ) ,e v( % % ,x=2 )-e v( % % ,x=1 ) ) ; 2 1 ( %O 1 )2 ( %I 2 )b l o q u e( [ a n t e r i o r ] ,p r e v :i n t e g r a t e( x^5 ,x ) , e v( p r e v ,x=2 )-e v( p r e v ,x=1 ) ) ; 2 1 ( %O 2 )2 U n as e n t e n c i ac o m p u e s t ap u e d ec o n t e n e ro t r a ss e n t e n c i a sc o m p u e s t a s . S iu n as e n t e n c i as e as i m p l eoc o m p u e s t o ,` % %' e se lv a l o rd e l ad e c l a r a c i na n t e r i o r . ( %I 3 )b l o q u e( b l o q u e( a^n , %*4 2 % ) , % %/6 ) ; n ( %O 3 )u n7 D e n t r od eu n as e n t e n c i ac o m p u e s t a ,e lv a l o rd e` % %' S ep u e d ec o n s u l t a re n u n ap r o n t ar u p t u r a ,q u es ea b r ea le j e c u t a re l' b r e a k ' f u n c i n .P o re j e m p l o ,s ie s c r i b e` % % ,' e ne ls i g u i e n t ee j e m p l o l o sr e n d i m i e n t o sd e` 4 2 ' . ( %I 4 )b l o q u e( A :4 2 ,b r e a k( ) )$ I n t r o d u c c i nd eu np u n t od ei n t e r r u p c i nd eM a x i m a .' E x i t ;" T i p od er e a n u d a r . _ % % ; 4 2 _
F u n c i n :%t h( ) E lv a l o rd et he x p r e s i nd es a l i d aa n t e r i o r .E sd e c i r ,s i l as i g u i e n t ee x p r e s i nac a l c u l a re sl a< n >' t hs a l i d a` %t h ( < m > )' E sl a( < n >-< m > ) 't hs a l i d a . ` %T h "e sr e c o n o c i d op o rl o t e` ' y 'c a r g a' .E nu na r c h i v op r o c e s a d o p o rl o t e` ' , ` %t h 't i e n ee lm i s m os i g n i f i c a d oq u ee ne li n t e r a c t i v o S o l i c i t a r .E nu nf i c h e r oe sp r o c e s a d op o rl o a d' ,` %t h 's er e f i e r eal ap r o d u c c i n e x p r e s i o n e sm sr e c i e n t e m e n t ed e s d ee lm o d oi n t e r a c t i v o ,b i e ne n u na r c h i v op o rl o t e s ,` %t h' n os er e f i e r eal ae x p r e s i nd ee n t r a d ad e l a r c h i v oq u es ee s t p r o c e s a n d o . V a s et a m b i n' % 'y' % % ' . E j e m p l o :
12/633
28/08/13

` %T h' e s t i le n `l o t e s" a r c h i v o sop a r ar e f e r i r s eau ng r u p od e e x p r e s i o n e sd es a l i d a .E s t ee j e m p l oe s t a b l e c e` s' al as u m ad el a l t i m a c i n c oe x p r e s i o n e sd es a l i d a . ( %I 1 )1 ,2 ,3 ,4 ,5 ; ( %O 1 )1 ( %O 2 )2 ( %O 3 )3 ( %O 4 )4 ( %O 5 )5 ( %I 6 )b l o q u e( s :0 ,p a r ai :1 5d os :s+ %t h( i ) ,s ) ; ( %O 6 )1 5
S m b o l oe s p e c i a l :? C o m op r e f i j od eu n af u n c i non o m b r ed ev a r i a b l e ,' ? 's i g n i f i c aq u ee l E su nn o m b r ed eL i s p ,n od eM a x i m a .P o re j e m p l o ,` ?R e d o n d a' s i g n i f i c al af u n c i nL i s p` R O U N D' .*V e rn o t aL i s pyM a x i m a: : p a r am si n f o r m a c i ns o b r ee s t ep u n t o . L an o t a c i n` ?p a l a b r a" ( u ns i g n od ei n t e r r o g a c i ns e g u i d od eu n ap a l a b r ays e p a r a d o s p o re s p a c i o se nb l a n c o )e se q u i v a l e n t ea` d e s c r i b e( "p a l a b r a" ) .L ac u e s t i n m a r c ad e b eo c u r r i ra lc o m i e n z od eu n al n e ad ee n t r a d a ,d el oc o n t r a r i o ,e s n os er e c o n o c ec o m ou n as o l i c i t u dd ed o c u m e n t a c i n .V a s et a m b i n ` D e s c r i b i r " .
S m b o l oe s p e c i a l :? L an o t a c i n` ? ?p a l a b r a' ( ` ? 's e g u i d od eu n ap a l a b r a ,s e p a r a d o sp o r e s p a c i o )e q u i v a l ea` d e s c r i b e( "p a l a b r a" ,i n e x a c t a ) .L a s i g n od ei n t e r r o g a c i nd e b ee s c r i b i r s ea lc o m i e n z od eu n al n e ad ee n t r a d a ; d el oc o n t r a r i o ,n os er e c o n o c ec o m ou n as o l i c i t u dd ed o c u m e n t a c i n . C o n s u l t et a m b i n` d e s c r i b i r " .
V a r i a b l eo p c i o n a l :i n c h a r V a l o rp o rd e f e c t o : %i' ` I n c h a r' e se lp r e f i j od el a se t i q u e t a sd el a se x p r e s i o n e si n t r o d u c i d a sp o re l u s u a r i o .M a x i m ac r e aa u t o m t i c a m e n t eu n ae t i q u e t ap a r ac a d ae n t r a d a e x p r e s i nc o n c a t e n a n d oi n c h a r` ' y `l i n e n u m ' . ` I n c h a r' p u e d ea s i g n a rc u a l q u i e rs m b o l ooc a d e n a ,n on e c e s a r i a m e n t eu n c a r c t e ri n d i v i d u a l .D e b i d oaq u ei n t e r n a m e n t eM a x i m as o l ot i e n ee nc u e n t a s l oe lp r i m e rc a r c t e rd e lp r e f i j o ,l o sp r e f i j o si n c h a r` ' , O u t c h a r` ' y `l i n e c h a r 'd e b e nt e n e ru np r i m e rc a r c t e rd i f e r e n t e . D el oc o n t r a r i oa l g u n o sc o m a n d o sc o m o' m a t a r( i n l a b l e s ) 'n of u n c i o n a nc o m o e s p e r a d o . V e rt a m b i n` e t i q u e t a s . E j e m p l o : ( %I 1 )i n c h a r :" d ee n t r a d a " ; ( %O 1 )d ee n t r a d a ( I N P U T 2 )e x p a n s i n( ( a+b )^3 ) ; 3223 ( %O 2 )b+3a b+3a b+a ( I n p u t 3 )
V a r i a b l ed e ls i s t e m a :i n f o l i s t s V a l o rp o rd e f e c t o :[ ]' I n f o l i s t s` ' e su n al i s t ad el o sn o m b r e sd et o d a sl a sl i s t a sd ei n f o r m a c i n e nM a x i m a .E s t o ss o n : ` E t i q u e t a s' T o d ou n i d o` %i' , ' %s ' ,yl a se t i q u e t a sd e ` %T ' . ` V a l o r e s' T o d o sl o s t o m o sq u es o nv a r i a b l e sd eu s u a r i o ,n oo p c i o n e sd eM a x i m a os w i t c h e s ,c r e a d op o r' : 'o` : :' ou n i nf u n c i o n a l . ' F u n c i o n e s ' =' O 'd e f i n i r' :f u n c i o n e s ,c r e a d a sp o r` T o d od e f i n i d op o re lu s u a r i o . ` A r r a y s' T o d o sl o sa r r a y sd e c l a r a d o syn od e c l a r a d o s ,c r e a d op o r' : ' ,` : :' ,o ` :=' . ` M a c r o s' T o d o sd e f i n i d op o re lu s u a r i of u n c i o n e sd em a c r o ,c r e a d op o r` : :=' . ` M y o p t i o n s' T o d a sl a so p c i o n e sq u en u n c af u e r o nr e c o n f i g u r a d a sp o re lu s u a r i o( s is o non os o n p o s t e r i o r m e n t er e c u p e r a rl o sv a l o r e sp o rd e f e c t o ) .
13/633
28/08/13

` R e g l a s' T o d a sl a sr e g l a sd e f i n i d a sp o re lu s u a r i op a t r o n e sys i m p l i f i c a c i n , c r e a d op o rt e l l s i m p` ' , `t e l l s i m p a f t e r ' ,` d e f m a t c h' o ` D e f r u l e' . ` A l i a s ' T o d o sl o s t o m o sq u et i e n e nu na l i a sd e f i n i d o sp o re lu s u a r i o ,c r e a d op o rl a ` A l i a s ' , O r d e r g r e a t` ' , ò r d e r l e s s" f u n c i o n e sod e c l a r a n d ol a t o m oc o m ou n' n o m b r e 'c o n' d e c l a r a r ' . ' D e p e n d e n c i a s ' t o m o sq u et i e n e nd e p e n d e n c i a sf u n c i o n a l e s ,c r e a d o sp o re l ' D e p e n d e 'o` g r a d e f "f u n c i o n e s . ` G r a d e f s' T o d a sl a sf u n c i o n e sq u et i e n e nd e r i v a d a sd e f i n i d a sp o re lu s u a r i o ,c r e a d op o r l af u n c i n` g r a d e f' . ` P r o p s' T o d o sl o s t o m o sq u et i e n e nc u a l q u i e ro t r ob i e nd i s t i n t od el o sm e n c i o n a d o s a n t e r i o r m e n t e ,c o m ol a se s t a b l e c i d a sp o ra t v a l u e` ' o ` M a t c h d e c l a r e' ,e t c ,a s c o m ol a sp r o p i e d a d e se s t a b l e c i d a se n l af u n c i n` d e c l a r a r' . ` L e t _ r u l e _ p a c k a g e s' T o d o sl o sp a q u e t e sd er e g l a sd e f i n i d a sp o re lu s u a r i o` l e t' a d e m sd el ae s p e c i a l p a q u e t e` d e f a u l t _ l e t _ r u l e _ p a c k a g e' . ( ` D e f a u l t _ l e t _ r u l e _ p a c k a g e' e se ln o m b r ed e lp a q u e t ed er e g l a s u t i l i z ac u a n d on os eu s en i n g ne x p l c i t a m e n t ep o re lu s u a r i o . )
F u n c i n :m a t a r( < a _ 1 > ,. . . ,< a _ n > ) F u n c i n :m a t a r( e t i q u e t a s ) F u n c i n :m a t a r( i n l a b e l s ,o u t l a b e l s ,l i n e l a b e l s ) F u n c i n :m a t a r( < n > ) F u n c i n :m a t a r( [ < m > ,< n > ] ) F u n c i n :m a t a r( v a l o r e s ,f u n c i o n e s ,m a t r i c e s ,. . . ) F u n c i n :m a t a r( t o d o s ) F u n c i n :m a t a r( a l l b u t( < a _ 1 > ,. . . ,< a _ n > ) ) E l i m i n at o d a sl a sa s i g n a c i o n e s( v a l o r ,f u n c i n ,a r r e g l oor e g l a )d el a a r g u m e n t o s< a _ 1 > ,. . . ,< a _ n > .U n< a _ k >a r g u m e n t op u e d es e ru ns m b o l oo u ne l e m e n t od eu na r r a y .C u a n d o< a _ k >e su ne l e m e n t od eu na r r a y , ` K i l l' d e s e n l a z ae s ee l e m e n t os i na f e c t a ral o so t r o se l e m e n t o s d el am a t r i z . S er e c o n o c e nv a r i o sa r g u m e n t o se s p e c i a l e s .D i f e r e n t e st i p o sd e a r g u m e n t o sp u e d e ns e rc o m b i n a d o s ,p o re j e m p l o ,` K i l l( i n l a b e l s ,f u n c i o n e s , a l l b u t( f o o ,b a r ) ) . ` K i l l( l a b e l s )' e l i m i n at o d a sl a se n t r a d a s ,s a l i d a sei n t e r m e d i o s e t i q u e t a sd ee x p r e s i o n e sc r e a d o sh a s t aa h o r a .` K i l l( i n l a b e l s ) "s l od e s a t a e t i q u e t a sd ee n t r a d aq u ec o m i e n z a nc o ne lv a l o ra c t u a ld e` i n c h a r' . A s i m i s m o ,` k i l l( o u t l a b e l s )' e l i m i n a n i c a m e n t el a se t i q u e t a sd es a l i d aq u e c o m e n z a rc o ne lv a l o ra c t u a ld e` o u t c h a r' y `k i l l ( L i n e l a b e l s )' d e s e n l a z ae t i q u e t a sd ee x p r e s i o n e si n t e r m e d i a sq u es l o c o m e n z a rc o ne lv a l o ra c t u a ld e` l i n e c h a r' . ` K i l l( < n > )' ,d o n d e< n >e su ne n t e r o ,e l i m i n al a s< n >m sr e c i e n t e e t i q u e t a sd ee n t r a d ayd es a l i d a . ` K i l l( [ < m > ,< n > ] )' e l i m i n al aa s i g n a c i nd ee n t r a d ays a l i d ad el a se t i q u e t a sat r a v s< m > < n > . ` K i l l( )' ,d o n d ee sc u a l q u i e re l e m e n t od e ì n f o l i s t s ' ( P o re j e m p l o ,` v a l o r e s' , 'f u n c i o n e s' ,o 'a r r a y s' )e l i m i n at o d o sl o sa r t c u l o s e n .V e rt a m b i n` i n f o l i s t s . ` K i l l( a l l )' d e s a t at o d o sl o se l e m e n t o se nt o d o si n f o l i s t s .` K i l l( a l l )' h a c e N or e s t a b l e z c al a sv a r i a b l e sg l o b a l e sas u sv a l o r e sp o rd e f e c t o ,v a s e` r e s e t' s o b r ee s t ep u n t o . ` K i l l( a l l b u t( < a _ 1 > ,. . . ,< a _ n > ) )' e l i m i n at o d a sl a sc o s a se nt o d o sl o s i n f o l i s t se x c e p t o< a _ 1 > ,. . . ,< a _ n > .` K i l l( a l l b u t ( ) )' D e s a t at o d o sl o sa r t c u l o sae x c e p c i nd el o sq u ee s t ne n ,d o n d ee s' v a l o r e s ' , ` F u n c i o n e s' , à r r a y s" ,e t c L am e m o r i ao c u p a d ap o ru n ap r o p i e d a de n l a z a d an os el i b e r ah a s t aq u et o d o s s m b o l o ss em a n t i e n e ns i nc o n s o l i d a rd ee l l a .E np a r t i c u l a r ,p a r al i b e r a rl am e m o r i a t o m a d op o re lv a l o rd eu ns m b o l o ,u n ad e s a t al ae t i q u e t ad es a l i d a q u em u e s t r ae lv a l o re n l a z a d o ,a s c o m od e s v i n c u l a re ls m b o l o e ns . ` K i l l' n oe v a l as u sa r g u m e n t o s .E lo p e r a d o rc o m i l l a c o m i l l a` ' '' d e r r o t a sc o t i z a c i n . ` K i l l( < s y m b o l > )' e l i m i n at o d a sl a sp r o p i e d a d e sd e< s y m b o l > .P o re lc o n t r a r i o , l a sf u n c i o n e sr e m v a l u e` ' , `r e m f u n c t i o n ' , R e m a r r a y` ' y `r e m r u l e 'd e s a t a nu n ap r o p i e d a de s p e c f i c a .
14/633
28/08/13

` K i l l' s i e m p r ed e v u e l v e `h e c h o ' ,i n c l u s os iu na r g u m e n t on ot i e n ec a r c t e rv i n c u l a n t e .
F u n c i n :e t i q u e t a s( < s y m b o l > ) V a r i a b l ed e ls i s t e m a :e t i q u e t a s D e v u e l v el al i s t ad ee n t r a d a ,s a l i d aoe x p r e s i ni n t e r m e d i a e t i q u e t a sq u ec o m i e n z a nc o n< s y m b o l > .N o r m a l m e n t e< s y m b o l >e se lv a l o r d e` i n c h a r' , ò u t c h a r ' ,o` l i n e c h a r' .E lc a r c t e rd el ae t i q u e t a s ep u e d ea d m i n i s t r a rc o nos i ns i g n od ep o r c e n t a j e ,p o rl oq u e ,p o re j e m p l o ,' i ' y` %i' p r o d u c e ne lm i s m or e s u l t a d o . S in i n g u n ae t i q u e t ae m p i e z ac o n< s y m b o l > :' e t i q u e t a s 'd e v u e l v eu n al i s t av a c a . L af u n c i n' e t i q u e t a s 'e v a l as ua r g u m e n t o .L ac i t a c i t a o p e r a d o r` ' '' aq u es er e a l i c e .P o re j e m p l o ,` l a b e l s( ' 'i n c h a r )' d e v u e l v el a se t i q u e t a sd ee n t r a d aq u ee m p i e z a nc o nl ae t i q u e t ad ee n t r a d aa c t u a l c a r c t e r . L a se t i q u e t a sd e` ' v a r i a b l e sp u e d ev e rl al i s t ad ee n t r a d a ,s a l i d ay e t i q u e t a sd ee x p r e s i o n e si n t e r m e d i a s ,i n c l u y e n d ot o d a sl a se t i q u e t a sa n t e r i o r e se ne lc a s o I n c h a r` ' , ò u t c h a r ' ,o` l i n e c h a r' f u e r o nr e d e f i n i d o s . P o rd e f e c t o ,M a x i m am u e s t r ae lr e s u l t a d od ec a d ae n t r a d ad e lu s u a r i o e x p r e s i n ,a s i g n a n d oa lr e s u l t a d ou n ae t i q u e t ad es a l i d a .L ap a n t a l l ad es a l i d a e s t s u p r i m i d at e r m i n a n d ol ae n t r a d ac o n' $ '( s i g n od ed l a r ) e nl u g a rd e` ;' ( p u n t oyc o m a ) .U n ae t i q u e t ad es a l i d as ec o n s t r u y ey o b l i g a d oae lr e s u l t a d o ,p e r on os em u e s t r a ,yl ae t i q u e t ap u e d es e r s eh a c er e f e r e n c i ae nl am i s m af o r m aq u el a se t i q u e t a sd es a l i d am o s t r a d a s .V a s et a m b i n ' % ' ,' % % ' ,Y` %t h' . E t i q u e t a sd ee x p r e s i o n e si n t e r m e d i a sp u e d e ns e rg e n e r a d a sp o ra l g u n a sf u n c i o n e s . L ao p c i nv a r i a b l e` p r o g r a m m o d e' c o n t r o l as i `r e s o l v e r 'y a l g u n a so t r a sf u n c i o n e sg e n e r a ne t i q u e t a sd ee x p r e s i o n e si n t e r m e d i a s e nl u g a rd ed e v o l v e ru n al i s t ad ee x p r e s i o n e s .A l g u n a so t r a sf u n c i o n e s , c o m o` l d i s p l a y' ,s i e m p r eg e n e r a ne x p r e s i ni n t e r m e d i a e t i q u e t a s . C o n s u l t et a m b i n` i n c h a r' , ò u t c h a r ' ,` l i n e c h a r' y ì n f o l i s t s .
V a r i a b l eo p c i o n a l :l i n e c h a r V a l o rp o rd e f e c t o : %t' ` L i n e c h a r' e se lp r e f i j od el a se t i q u e t a sd el a se x p r e s i o n e si n t e r m e d i a s g e n e r a d ap o rM a x i m a .M a x i m ac r e a r u n ae t i q u e t ap a r ac a d a e x p r e s i ni n t e r m e d i a( s is em u e s t r a )a lc o n c a t e n a r` l i n e c h a r' y` l i n e n u m' . ` L i n e c h a r' p u e d ea s i g n a rc u a l q u i e rs m b o l ooc a d e n a ,n on e c e s a r i a m e n t eu n c a r c t e ri n d i v i d u a l .D e b i d oaq u ei n t e r n a m e n t eM a x i m as o l ot i e n ee nc u e n t a s l oe lp r i m e rc a r c t e rd e lp r e f i j o ,l o sp r e f i j o si n c h a r` ' , O u t c h a r` ' y `l i n e c h a r 'd e b e nt e n e ru np r i m e rc a r c t e rd i f e r e n t e . D el oc o n t r a r i oa l g u n o sc o m a n d o sc o m o' m a t a r( i n l a b l e s ) 'n of u n c i o n a nc o m o e s p e r a d o . L a se x p r e s i o n e si n t e r m e d i a sp u e d e non op u e d e nm o s t r a r .V e r P r o g r a m m o d e` ' y è t i q u e t a s .
V a r i a b l ed e ls i s t e m a :l i n e n u m E ln m e r od el n e ad el ap a r e j aa c t u a ld el ae n t r a d ays a l i d a e x p r e s i o n e s .
V a r i a b l ed e ls i s t e m a :m y o p t i o n s V a l o rp o rd e f e c t o :[ ]' ` M y o p t i o n s' p u e d ev e rl al i s t ad et o d a sl a so p c i o n e sr e s t a b l e c ea l g u n av e zp o re lu s u a r i o , a u n q u e s t a sh a y a ns i d or e c o n f i g u r a d a sas uv a l o rp r e d e t e r m i n a d o .
V a r i a b l eo p c i o n a l :n o l a b e l s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` n o l a b e l s' e s `t r u e ' ,e t i q u e t a sd ee n t r a d ayd es a l i d a( r e s u l t a d o` %i' y` %s' ,r e s p e c t i v a m e n t e )s em u e s t r a n ,p e r ol a se t i q u e t a sn os o n v i n c u l a d o sal o sr e s u l t a d o s ,yl a se t i q u e t a sn os ei n c o r p o r a nal o s' e t i q u e t a s ' l i s t a .D a d oq u el a se t i q u e t a sn oe s t nv i n c u l a d o sal o sr e s u l t a d o s ,r e c o l e c c i nd eb a s u r a p u e d er e c u p e r a rl am e m o r i ao c u p a d ap o rl o sr e s u l t a d o s . D el oc o n t r a r i oe t i q u e t a sr e s u l t a d od ee n t r a d ays a l i d ae s t nv i n c u l a d o sal o sr e s u l t a d o s ,y l a se t i q u e t a ss ea g r e g a nal al i s t a' e t i q u e t a s ' . E t i q u e t a sd ee x p r e s i o n e si n t e r m e d i a s( %t` ' )n os ev e na f e c t a d o sp o r
15/633
28/08/13

` N o l a b e l s' ;s i `n o l a b e l s 'e s` t r u e' o 'f a l s e' ,i n t e r m e d i o e t i q u e t a sd ee x p r e s i o n e se s t nc o n s o l i d a d a sya a d e nal al i s t ad e' e t i q u e t a s ' . V a s et a m b i n' b a t c h ' ,' c a r g a 'y` e t i q u e t a s .
V a r i a b l eo p c i o n a l :o p t i o n s e t V a l o rp o rd e f e c t o :f a l s e' C u a n d o` o p t i o n s e t' e s `t r u e ' ,M a x i m ai m p r i m eu nm e n s a j ec a d av e zq u eu n O p c i nd eM a x i m ae sr e c o n f i g u r a d a .E s t oe s t i ls ie lu s u a r i od u d ad e l ao r t o g r a f ad ea l g u n ao p c i nyq u i e r ea s e g u r a r s ed eq u ee l v a r i a b l e ss el ea s i g n au nv a l o rd ev e r d a df u eu n av a r i a b l eo p c i n . E j e m p l o : ( %I 1 )o p t i o n s e t :t r u e ; a s i g n a c i n :l aa s i g n a c i nal ao p c i no p t i o n s e t ( %O 1 )t r u e ( %I 2 )g a m m a _ e x p a n d :t r u e ; a s i g n a c i n :l aa s i g n a c i nal ao p c i ng a m m a _ e x p a n d ( %O 2 )t r u e
V a r i a b l eo p c i o n a l :o u t c h a r V a l o rp o rd e f e c t o : %s" ` O u t c h a r' e se lp r e f i j od el a se t i q u e t a sd el a se x p r e s i o n e sc a l c u l a d a sp o r M a x i m a .M a x i m ac r e aa u t o m t i c a m e n t eu n ae t i q u e t ap a r ac a d ac o m p u t a r i z a d a e x p r e s i nc o n c a t e n a n d oo u t c h a r` ' y `l i n e n u m ' . ` O u t c h a r' p u e d ea s i g n a rc u a l q u i e rs m b o l ooc a d e n a ,n on e c e s a r i a m e n t eu n c a r c t e ri n d i v i d u a l .D e b i d oaq u ei n t e r n a m e n t eM a x i m as o l ot i e n ee nc u e n t a s l oe lp r i m e rc a r c t e rd e lp r e f i j o ,l o sp r e f i j o si n c h a r` ' , O u t c h a r` ' y `l i n e c h a r 'd e b e nt e n e ru np r i m e rc a r c t e rd i f e r e n t e . D el oc o n t r a r i oa l g u n o sc o m a n d o sc o m o' m a t a r( i n l a b l e s ) 'n of u n c i o n a nc o m o e s p e r a d o . V e rt a m b i n` e t i q u e t a s . E j e m p l o : ( %I 1 )o u t c h a r :" s a l i d a " ; ( S a l i d a1 )S a l i d ad e ( %I 2 )e x p a n s i n( ( a+b )^3 ) ; 3223 ( S a l i d a2 )b+3a b+3a b+a ( %I 3 )
F u n c i n :R e p r o d u c c i n( ) F u n c i n :R e p r o d u c c i n( < n > ) F u n c i n :l ar e p r o d u c c i n( [ < m > ,< n > ] ) F u n c i n :l ar e p r o d u c c i n( [ < m > ] ) F u n c i n :l ar e p r o d u c c i n( e n t r a d a ) F u n c i n :l ar e p r o d u c c i n( l e n t o ) F u n c i n :l ar e p r o d u c c i n( t i e m p o ) F u n c i n :R e p r o d u c c i n( g r i n d ) M u e s t r ad ee n t r a d a ,s a l i d aye x p r e s i o n e si n t e r m e d i a ss i n r e c a l c u l a r l a s .` R e p r o d u c c i n' s l om u e s t r al a se x p r e s i o n e sa s o c i a d a s l a se t i q u e t a s ;c u a l q u i e ro t r as a l i d a( t a lc o m ot e x t oi m p r e s op o r` p r i n t' o ` D e s c r i b e n "om e n s a j e sd ee r r o r )n os em u e s t r a .V a s et a m b i n ` E t i q u e t a s " . ` R e p r o d u c c i n' e v a l as u sa r g u m e n t o s .E lo p e r a d o rc o m i l l a c o m i l l a` ' '' d e r r o t a sc o t i z a c i n .` R e p r o d u c c i n' s i e m p r ed e v u e l v e `h e c h o ' . ` R e p r o d u c c i n( )( s i na r g u m e n t o s )m u e s t r at o d a sl a se n t r a d a s ,s a l i d a sy e x p r e s i o n e si n t e r m e d i a sg e n e r a d a sh a s t ae lm o m e n t o .U n ae x p r e s i nd es a l i d a s em u e s t r ai n c l u s os if u es u p r i m i d ap o re l$' t e r m i n a t o r 'c u a n d o q u ef u eo r i g i n a l m e n t ec o m p u t a d o . ` R e p r o d u c c i n( < n > )' m u e s t r al a sm sr e c i e n t e se x p r e s i o n e s< n > .C a d a e n t r a d a ,s a l i d a ,yl ae x p r e s i ni n t e r m e d i ac u e n t ac o m ou n a . ` P l a y b a c k( [ < m > ,< n > ] )' p a n t a l l a sd ee n t r a d a ,s a l i d aei n t e r m e d i o s e x p r e s i o n e sc o nn m e r o sd e l< m >t r a v s< n > ,i n c l u s i v e . ` P l a y b a c k( [ < m > ] )' e se q u i v a l e n t ea 'p l a y b a c k( [ < m > ,< m > ] ) " ,l oq u e u s u a l m e n t ei m p r i m eu np a rd ee x p r e s i o n e sd ee n t r a d ayd es a l i d a . ` P l a y b a c k( i n p u t )' m u e s t r at o d a sl a se x p r e s i o n e sd ee n t r a d ag e n e r a d a sh a s t ae lm o m e n t o . ` L ar e p r o d u c c i n( l e n t o )' p a u s a se n t r ee x p r e s i o n e sye s p e r aaq u ee l u s u a r i op u l s e' e n t e r ' .E s t ec o m p o r t a m i e n t oe ss i m i l a ral ad e m o s t r a c i n` ' . ` P l a y b a c k( s l o w )' e s t i le nc o n j u n c i nc o n 'g u a r d a r' o ` S t r i n g o u t' c u a n d os ec r e au na r c h i v os e c u n d a r i od ea l m a c e n a m i e n t oc o ne lf i nd e e l e g i rc u i d a d o s a m e n t el a se x p r e s i o n e s t i l e s .
16/633
28/08/13

` R e p r o d u c c i n( t i e m p o ) " ,s em o s t r a r e lt i e m p od ec l c u l op a r ac a d a e x p r e s i n . ` P l a y b a c k( g r i n d )' m u e s t r al a se x p r e s i o n e sd ee n t r a d ae ne lm i s m of o r m a t o c o m ol af u n c i n` r u t i n a' .L a se x p r e s i o n e sd es a l i d an os ev e na f e c t a d o sp o r l ao p c i n' g r i n d ' .C o n s u l t e` r u t i n a' . L o sa r g u m e n t o sp u e d e ns e rc o m b i n a d o s ,p o re j e m p l o ,` p l a y b a c k( [ 5 ,1 0 ] ,g r i n d ,t i m e , l e n t o )' .
V a r i a b l eo p c i o n a l :i n d i c a d o r V a l o rp o rd e f e c t o :` _' ` R p i d o' e se ls m b o l od e ls i s t e m ad e l `d e m o 'f u n c i n' d er e p r o d u c c i n ( L e n t o )" m o d oye lb u c l ed ei n t e r r u p c i nd eM a x i m a( e lq u es ei n v o c ap o r `b r e a k' ) .
F u n c i n :d e j a rd ef u m a r( ) T e r m i n al as e s i nd eM a x i m a .T e n g ae nc u e n t aq u el af u n c i nd e b es e r i n v o c a d ac o m o' q u i t( ) ; 'o' q u i t( )$ ' ,n o' r e n u n c i a r 'p o rs m i s m o . P a r ap a r a ru nc l c u l o ,e lt i p od ec o n t r o l` C' .E lv a l o rp o rd e f e c t o a c c i ne sv o l v e ra li n d i c a d o rd eM a x i m a .S i` *d e b u g g e r h o o k*' e s ` N i l' , `C o n t r o l Ca b r i r e ld e p u r a d o rd eL i s p .T a m b i nv e rn o t a D e p u r a c i n: : .
F u n c i n :l e c t u r a( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) P r i n t s< e x p r _ 1 > ,. . . ,< e x p r _ n >y ac o n t i n u a c i nl e eu n ae x p r e s i nd e s d ee l c o n s o l ayd e v u e l v el ae x p r e s i ne v a l u a d a .L ae x p r e s i ne s t e r m i n ac o nu np u n t oyc o m a' ; 'os i g n od ed l a r' $ ' . V a s et a m b i n' s l ol e c t u r a ' E j e m p l o : ( %I 1 )f o o :4 2$ ( %I 2 )f o o :r e a d( " f o o " ,f o o ," -n u e v ov a l o r . " )$ f o oe s4 2-n u e v ov a l o r . ( A+b )^3 ; ( %I 3 )f o o ; 3 ( %O 3 )( b+a )
F u n c i n :s l ol e c t u r a( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) P r i n t s< e x p r _ 1 > ,. . . ,< e x p r _ n >y ac o n t i n u a c i nl e eu n ae x p r e s i nd e s d ee l c o n s o l ayd e v u e l v el ae x p r e s i n( s i ne v a l u a c i n ) .L a e x p r e s i nt e r m i n ac o nu n' ; '( p u n t oyc o m a )o' $ '( d l a r f i r m a r ) . V a s et a m b i n' l e d o s ' . E j e m p l o s : ( %I 1 )a a :$7 ( %I 2 )f o o :s l ol e c t u r a( " I n t r o d u z c au n ae x p r e s i n : " ) ; E s c r i b au n ae x p r e s i n : 2â a ; a a ( %O 2 )2 ( %I 3 )f o o :r e a d( " I n t r o d u z c au n ae x p r e s i n : " ) ; E s c r i b au n ae x p r e s i n : 2â a ; ( %O 3 )1 2 8
F u n c i n :R e s e t( ) R e s t a b l e c em u c h a sv a r i a b l e syo p c i o n e sg l o b a l e sya l g u n a so t r a s v a r i a b l e sas u sv a l o r e sp o rd e f e c t o . ` R e s e t' p r o c e s al a sv a r i a b l e se nl al i s t aL i s p ` *V a r i a b l ei n i c i a ll o sv a l o r e s*' .L am a c r oL i s p` d e f m v a r' p o n e L a sv a r i a b l e sd ee s t al i s t a( e n t r eo t r a sa c c i o n e s ) .M u c h o s ,p e r on ot o d o s , v a r i a b l e syo p c i o n e sg l o b a l e ss o nd e f i n i d a sp o rd e f m v a r` ' ,ya l g u n o s v a r i a b l e sd e f i n i d a sp o r` d e f m v a r' n os o nv a r i a b l e sn io p c i o n e sg l o b a l e s .
V a r i a b l eo p c i o n a l :s h o w t i m e V a l o rp o rd e f e c t o :f a l s e'
17/633
28/08/13

C u a n d o' s h o w t i m e 'e s` t r u e' ,e lt i e m p od ec l c u l oye lt i e m p ot r a n s c u r r i d oe s i m p r e s ac o ns a l i d ad ec a d ae x p r e s i n . E lt i e m p od ec l c u l os ea l m a c e n as i e m p r e ,p o rl oq u e' t i e m p o 'y' r e p r o d u c c i n ' p u e d ev i s u a l i z a re lt i e m p od ec l c u l oi n c l u s oc u a n d os h o w t i m e` ' e s 'f a l s e' . V a s et a m b i n' t i m e r ' .
F u n c i n :t o _ l i s p( ) E n t r ae ne ln i v e lL i s p .` ( T o m a x i m a )' v u e l v ea M a x i m a . E j e m p l o : D e f i n i ru n af u n c i nye n t r a re ne ln i v e lL i s p .L a d e f i n i c i ns ei n s p e c c i o n ae nl al i s t ad ep r o p i e d a d e s ,e n t o n c e sl af u n c i n d e f i n i c i ns ee x t r a e ,s ei n c l u y e nys ea l m a c e n ae nl av a r i a b l e $R e s u l t a d o .L av a r i a b l es ep u e d eu t i l i z a re nM a x i m ad e s p u sd ev o l v e ra M a x i m a . ( %I 1 )f( x ) :=x^2+x ; 2 ( %O 1 )f( x ) :=x+x ( %I 2 )t o _ l i s p( ) ; T i p o( t o m a x i m a )p a r ar e i n i c i a r ,( $q u i t )p a r as a l i rd eM a x i m a . M A X I M A >( s m b o l o p l i s t" $f ) ( M P R O P S( N I LM E X P R( ( l a m b d a )( ( m l i s t )$X ) ( ( M P L U S )( ( M E X P T )$X2 )$X ) ) ) ) M A X I M A >( s e t q$r e s u l t( $f a c t o r e s( c a d d r( m g e t' $f 'm e x p r ) ) ) ) ( ( M t i m e sS I M Pf a c t o r i z a d a )$X( ( M P L U SS I M PI R R E D U C T I B L E )1X ) ) M A X I M A >( t o m a x i m a ) V o l v i e n d oaM a x i m a ( %O 2 )t r u e ( %I 3 )r e s u l t a d o ; ( %O 3 )x( x+1 )
V a r i a b l ed e ls i s t e m a :l o sv a l o r e s V a l o ri n i c i a l :` [ ]' ' V a l o r e s 'e su n al i s t ad et o d a sl a sv a r i a b l e sq u ee lu s u a r i o( n oo p c i o n e sd eM a x i m a oi n t e r r u p t o r e s ) .L al i s t ai n c l u y el o ss m b o l o sv i n c u l a d o sp o r' : 'o` : :' . S ie lv a l o rd eu n av a r i a b l es ee l i m i n ac o nl o sc o m a n d o s` m a t a r' , ` E l i m i n a r' o `r e m v a l u e 'l av a r i a b l es ee l i m i n ad e l` v a l o r e s' . C o n s u l t e` f u n c i o n e s "p a r ao b t e n e ru n al i s t ad ef u n c i o n e sd e f i n i d a sp o re lu s u a r i o . E j e m p l o s : E np r i m e rl u g a r ,' v a l o r e s 'm u e s t r al o ss m b o l o s` a' , 'b' y 'c' ,p e r on o 'd' , n oe s t v i n c u l a d oau nv a l o r ,yn oa lu s u a r i ol af u n c i n` f' .L a l o sv a l o r e ss ee l i m i n a nd el a sv a r i a b l e s .' V a l o r e s 'e sl al i s t av a c a . ( %I 1 )[ a :9 9 ,b: :A 9 0 ,c :a b ,d ,f( x ) :=x^2 ] ; 2 ( %O 1 )[ 9 9 ,9 ,9 0 ,d ,f( x ) :=x ] ( %I 2 )v a l o r e s ; ( %O 2 )[ a ,b ,c ] ( %I 3 )[ k i l l( a ) ,r e m o v e( b ,v a l o r ) ,r e m v a l u e( c ) ] ; ( %O 3 )[ h a c e r ,h a c e r ,[ c ] ] ( %I 4 )v a l o r e s ; ( %O 4 )[ ]
4.3 Funciones y variables para la pantalla

V a r i a b l eo p c i o n a l :%e d i s p f l a g V a l o rp o rd e f e c t o :f a l s e' C u a n d o` %e d i s p f l a g' e s `t r u e ' ,M a x i m am u e s t r a` %E' au nv a l o rn e g a t i v o e x p o n e n t ec o m ou nc o c i e n t e .P o re j e m p l o ,` %e^ x' s em u e s t r ac o m o ` 1/ %e^ x' .C o n s u l t et a m b i n` e x p t d i s p f l a g' . E j e m p l o : ( %I 1 ) %e^ 1 0 ; ( %O 1 ) %e ( %I 2 ) %e d i s p f l a g :t r u e$ ( %I 3 ) %e^ 1 0 ; ( %O 3 )1 0 %E
-1 0
18/633
28/08/13
V a r i a b l eo p c i o n a l :a b s b o x c h a r V a l o rp o rd e f e c t o :' !
` A b s b o x c h a r' e lc a r c t e rau t i l i z a rp a r ad i b u j a rl o ss i g n o sd ev a l o ra b s o l u t o u n ae x p r e s i nq u eo c u p am sd eu n al n e ad ea l t o . E j e m p l o : ( %I 1 )a b s( ( x^3+1 ) ) ; !3 ! ( %O 1 ) !X+1 !
F u n c i n :d i s p( < e x p r _ 1 > ,< e x p r _ 2 > ,. . . ) e sc o m o' d i s p l a y ' ,p e r os l oe lv a l o rd el o sa r g u m e n t o ss o n v i s u a l i z a d oe nl u g a rd ee c u a c i o n e s .E s t oe s t i lp a r ac o m p l i c a d a a r g u m e n t o sq u en ot i e n e nn o m b r eoe ns l oe lv a l o rd el a a r g u m e n t oe sd es ui n t e r syn oe ln o m b r e . C o n s u l t et a m b i n` l d i s p' y `p r i n t ' . E j e m p l o : ( %I 1 )b[ 1 , 2 ] :x x^2$ ( %I 2 )x :1 2 3$ ( %I 3 )d i s p( x ,b[ 1 , 2 ] ,s i n( 1 . 0 ) ) ; 1 2 3 2 x-x 0 . 8 4 1 4 7 0 9 8 4 8 0 7 8 9 6 5 ( %O 3 )d o n e
F u n c i n :p a n t a l l a( < e x p r _ 1 > ,< e x p r _ 2 > ,. . . ) M u e s t r al a se c u a c i o n e sc u y o si z q u i e r d ae s t s i ne v a l u a r< e x p r _ i >y c u y ol a d od e r e c h oe se lv a l o rd el ae x p r e s i nc e n t r a d oe nl a l i n e .E s t af u n c i ne s t i le nl o sb l o q u e sye s t a d o s` p a r a' e n f i nd em o s t r a rr e s u l t a d o si n t e r m e d i o s .L o sa r g u m e n t o sd e ` V e r' s u e l e ns e r t o m o s ,v a r i a b l e sc o ns u b n d i c e ,ol af u n c i n l l a m a d a s . C o n s u l t et a m b i n` l d i s p l a y' , `d i s p 'y` l d i s p' . E j e m p l o : ( %I 1 )b[ 1 , 2 ] :x x^2$ ( %I 2 )x :1 2 3$ ( %I 3 )d i s p l a y( x ,b[ 1 , 2 ] ,s i n( 1 . 0 ) ) ; x=1 2 3 2 b=x-x 1 ,2 s i n( 1 , 0 )=0 . 8 4 1 4 7 0 9 8 4 8 0 7 8 9 6 5 ( %O 3 )d o n e
V a r i a b l eo p c i o n a l :d i s p l a y 2 d V a l o rp o rd e f e c t o :t r u e' C u a n d o` d i s p l a y 2 d' e s 'f a l s e' ,l ap a n t a l l ad el ac o n s o l ae su n ac a d e n a ( 1 d i m e n s i o n a l )f o r m a nm sq u eu n af o r m ad el ap a n t a l l a( 2d i m e n s i o n e s ) . C o n s u l t et a m b i n` l e f t j u s t' p a r ac a m b i a re n t r eu n ai z q u i e r d ayu n aj u s t i f i c a d a p a n t a l l ad ec e n t r a d od ee c u a c i o n e s . E j e m p l o : ( %I 1 )x/( x^2+ 1 ) ; x ( %O 1 )2 x+1 ( %I 2 )d i s p l a y 2 d :f a l s e$ ( %I 3 )x /( x^21 ) ; ( %O 3 )x/( x^2+ 1 )
V a r i a b l eo p c i o n a l :d i s p l a y _ f o r m a t _ i n t e r n a l V a l o rp o rd e f e c t o :f a l s e'
19/633
28/08/13

C u a n d o` d i s p l a y _ f o r m a t _ i n t e r n a l' e s `t r u e ' ,s em u e s t r a ne x p r e s i o n e s s i ns e rt r a n s f o r m a d od em a n e r aq u eo c u l t e ne li n t e r i o r r e p r e s e n t a c i nm a t e m t i c a .E nl ap a n t a l l as ec o r r e s p o n d ec o nl oq u e " R e t o r n o se nv e zd e' p a r t e ' ì n p a r t . E j e m p l o s : P a r t ei n p a r tu s u a r i o a b ,a-b a+( -1 )b a-1 a/b ,-a b b 1 / 2 s q r t( x ) ;s q r t( x )x 4X4 X*4 / 3 ;-X 33
F u n c i n :d i s p t e r m s( e x p r ) M u e s t r ae x p re np a r t e su n ad e b a j od el ao t r a .E sd e c i r ,l ap r i m e r a s em u e s t r ae lo p e r a d o rd ee x p r ,l u e g oc a d at r m i n od el as u m ao f a c t o re nu np r o d u c t o ,op a r t ed eu n ae x p r e s i nm sg e n e r a le s m u e s t r ap o rs e p a r a d o .E s t oe s t i ls i< e x p r >e sd e m a s i a d og r a n d ep a r as e r m o s t r a d a sd eo t r am a n e r a .P o re j e m p l o ,s i' P 1 ' ,' P 2 ' ,. . .s o nm u y e x p r e s i o n e sg r a n d e s ,e n t o n c e se lp r o g r a m ad er e p r e s e n t a c i np u e d es u p e r a rd ea l m a c e n a m i e n t o e s p a c i op a r at r a t a rd em o s t r a r` P 1+P 2+. . .'t o d o sal av e z .S i ne m b a r g o , ` D i s p t e r m s( P 1+P 2+. . . )' m u e s t r a 'P 1' ,yl u e g op o rd e b a j od ee l l a 'P 2' , e t cC u a n d on ou t i l i c e` d i s p t e r m s' ,s iu n ae x p r e s i ne x p o n e n c i a le s d e m a s i a d og r a n d ep a r am o s t r a r s ec o m o` A^B' q u ea p a r e c ec o m o è x p t( A ,B ) '( o c o m o` n c e x p t( A ,B ) "e ne lc a s od e' A^^B ' ) . E j e m p l o : ( %I 1 )d i s p t e r m s( 2*a*s i n( x )+ %e^ x ) ; + 2d es i n( x ) x %E ( %O 1 )h e c h o
S m b o l oe s p e c i a l :e x p t( < a > ) S m b o l oe s p e c i a l :n c e x p t( < a > ) S iu n ae x p r e s i ne x p o n e n c i a le sd e m a s i a d og r a n d ep a r am o s t r a r s ec o m o ` < a >^' A p a r e c ec o m o è x p t( < a > ) '( oc o m o` n c e x p t( < a > , )' e ne lc a s od e` < a >^^ ' ) . E x p t` ' y `n c e x p t 'n os er e c o n o c e ne nl ae n t r a d a . V a r i a b l eo p c i o n a l :e x p t d i s p f l a g V a l o rp o rd e f e c t o :t r u e' C u a n d o` e x p t d i s p f l a g' e s `t r u e ' ,M a x i m am u e s t r al a se x p r e s i o n e sc o n e x p o n e n t e sn e g a t i v o sc o m oc o c i e n t e s .C o n s u l t et a m b i n` %e d i s p f l a g' . E j e m p l o : ( %I 1 )e x p t d i s p f l a g :t r u e ; ( %O 1 )t r u e ( %I 2 )1 0^ x ; 1 ( %O 2 )x 1 0 ( %I 3 )e x p t d i s p f l a g :f a l s e ; ( %O 3 )f a l s e ( %I 4 )1 0^ x ; -X ( %O 4 )1 0
F u n c i n :g r i n d( e x p r ) V a r i a b l eo p c i o n a l :g r i n d L af u n c i nd e' g r i n d 'i m p r i m ee x p re nl ac o n s o l ae nf o r m a a d e c u a d oc o m oe n t r a d ap a r aM a x i m a .' G r i n d 's i e m p r ed e v u e l v e` h e c h o' . C u a n d oe x p re se ln o m b r ed eu n af u n c i nom a c r o ,' g r i n d 'i m p r i m ee l f u n c i nom a c r od e f i n i c i ne nl u g a rd es l oe ln o m b r e . V a s et a m b i n' c a d e n a ' ,q u ed e v u e l v eu n ac a d e n ae nl u g a rd ei m p r i m i rl a d es a l i d a .L o si n t e n t o sd e` r u t i n ap a r ai m p r i m i rl ae x p r e s i nd ef o r m a l oc u a ll oh a c eu np o c om sf c i ld el e e rq u el as a l i d ad e` c a d e n a' .
20/633
28/08/13

C u a n d oe l` g r i n dv a r i a b l e "e s` t r u e' ,l as a l i d ad e `c a d e n a 'y ` S t r i n g o u t' t i e n ee lm i s m of o r m a t oq u ee ld e 'g r i n d' ,d el oc o n t r a r i on o s eh a c es ef o r m a t e al as a l i d ad ee s a sf u n c i o n e s . E lv a l o rp r e d e t e r m i n a d od el av a r i a b l ed e' g r i n d 'e s' f a l s e ' . ' G r i n d 't a m b i ns ep u e d ee s p e c i f i c a rc o m oa r g u m e n t od e' r e p r o d u c c i n ' . C u n d o ' G r i n d 'e s t p r e s e n t e ,' r e p r o d u c c i n 'i m p r i m el a se x p r e s i o n e sd ee n t r a d ae ne lm i s m o f o r m a t oc o m ol af u n c i n` r u t i n a' .D el oc o n t r a r i o ,n os eh a c en i n g ni n t e n t od e e s p e c i a l m e n t ef o r m a t e a re x p r e s i o n e sd ee n t r a d a . ' G r i n d 'e v a l as u sa r g u m e n t o s . E j e m p l o s : ( %I 1 )a a+1 7 2 9 ; ( %O 1 )a a+1 7 2 9 ( %I 2 )r u t i n a( % ) ; a a1 . 7 2 9$ ( %O 2 )d o n e ( %I 3 )[ a a ,1 7 2 9 ,a a+1 7 2 9 ] ; ( %O 3 )[ a a ,1 7 2 9 ,1 7 2 9a a+ ] ( %I 4 )r u t i n a( % ) ; [ A a ,1 7 2 9 ,a a1 7 2 9 ]$ ( %O 4 )h e c h o ( %I 5 )m a t r i z( [ a a ,1 7 ] ,[ 2 9 ,b b ] ) ; [ A a1 7 ] ( %O 5 )[ ] [ 2 9b b ] ( %I 6 )r u t i n a( % ) ; m a t r i z( [ a a ,1 7 ] ,[ 2 9 ,b b ] )$ ( %O 6 )h e c h o ( %I 7 )s e t( a a ,1 7 ,2 9 ,b b ) ; ( %O 7 ){ 1 7 ,2 9 ,a a ,b b } ( %I 8 )r u t i n a( % ) ; { 1 7 , 2 9 ,a a ,b b }$ ( %O 8 )h e c h o ( %I 9 )e x p( a a/( b b+1 7 )^2 9 ) ; a a 2 9 ( B b+1 7 ) ( %O 9 ) %e ( %I 1 0 )r u t i n a( % ) ; %E^( a a/( b b1 7 )^2 9 )$ ( %O 1 0 )d o n e ( %I 1 1 )e x p r :e x p a n d( ( a a+b b )^1 0 ) ; 1 09283746 ( %O 1 1 )b b+1 0+4 5a ab ba ab b+b b+1 2 0a a2 1 0a ab b 55647823 +2 5 2a ab b+b b+2 1 0a a1 2 0a ab b+4 5a ab b 91 0 +1 0a ab b+a a ( %I 1 2 )g r i n d( e x p r ) ; b b^1 0*1 0*a ab b^9*4 5^2*a ab b^81 2 0*a ab b^3*^72 1 0*4*â ab b^6 2 5 2*a a^5*b b^52 1 0*a a^6*4b b^1 2 0*â ab b^7*3*4 5^8*a ab b^2 1 0*9*â ab b+a a^1 0$ ( %O 1 2 )d o n e ( %I 1 3 )p a l a b r a( e x p r ) ; ( %O 1 3 )b b^1 0*1 0*a ab b^9*4 5^2*a ab b^81 2 0*a ab b^3*^72 1 0*4*â ab b^6\ 2 5 2*a a^5*b b^52 1 0*a a^6*4b b^1 2 0*â ab b^7*3*4 5^8*a ab b^2*a a1 0^9*\ b b+a a^1 0 ( %I 1 4 )c h o l e s k y( A ) :=b l o q u e( [ n :l o n g i t u d( A ) ,L :c o p y m a t r i x( A ) , p :m a k e L i s t( 0 ,i ,1 ,l o n g i t u d( A ) ) ] ,at r a v sd einh a c e r p a r aj :it h r unh a c e r ( X :L[ i ,j ] ,x :x-s u m a( L[ j ,k ]*L[ i ,k ] ,k ,1 ,i-1 ) , s ii=je n t o n c e sp[ i ] :1/s q r t( x )e l s eL[ j ,i ] :x*p[ i ] ) , at r a v sd eind oL[ i ,i ] :1/p[ i ] , at r a v sd einh a c e rp a r aj :i+1a lnd oL[ i ,j ] :0 ,L )$ ( %I 1 5 )r u t i n a( c h o l e s k y ) ; c h o l e s k y( A ) :=b l o q u e( [ N :l o n g i t u d( A ) ,L :c o p y m a t r i x( A ) , p :m a k e L i s t( 0 ,i ,1 ,l o n g i t u d( A ) ) ] , p o r q u ey ol oh a g oat r a v sd en ( P a r ajd e s d eit h r unh a c e r ( X :L[ i ,j ] ,x :x s u m( L[ j ,k ]*L[ i ,k ] ,k ,1 ,i 1 ) , s ii=je n t o n c e sp[ i ] :1 / s q r t( x ) m sL[ j ,i ] :x*p[ i ] ) ) , at r a v sd eind oL[ i ,i ] :1/p[ i ] , at r a v sd einh a c e r( p a r ajd e s d ei+ 1at r a v sd enh a c e rL[ i ,j ] :0 ) ,L )$ ( %O 1 5 )d o n e ( %I 1 6 )p a l a b r a( F U N D E F( c h o l e s k y ) ) ; ( %O 1 6 )c h o l e s k y( A ) :=b l o q u e( [ n :l o n g i t u d( A ) ,L :c o p y m a t r i x( A ) ,p :m a k e l i s\ t( 0 ,i ,1 ,l o n g i t u d( A ) ) ] ,at r a v sd einh a c e r( p a r ajd e s d eit h r unh a c e r( x :L\ [ I ,j ] ,x :x s u m( L[ j ,k ]*L[ i ,k ] ,k ,1 ,i 1 ) ,s ii=je n t o n c e sp[ i ] :1 / s q r t( x\ )E l s eL[ j ,i ] :x*p[ i ] ) ) ,at r a v sd eind oL[ i ,i ] :1/p[ i ] ,at r a v sd ei\ nh a c e r( p a r ajd e s d ei+ 1at r a v sd end oL[ i ,j ] :0 ) ,L )
V a r i a b l eo p c i o n a l :i b a s e V a l o rp o rd e f e c t o :1 0' ` I b a s e' e sl ab a s ed eM a x i m al e ev a l o r e se n t e r o s . ` I b a s e' p u e d ea s i g n a rc u a l q u i e re n t e r oe n t r e2y3 6( d e c i m a l ) ,
21/633
28/08/13

I n c l u i d o .C u a n d o` i b a s e' e sm a y o rq u e1 0 ,l o sn m e r o sc o m p r e n d e n L o sn m e r o sd e c i m a l e sd e l0a l9 ,m sl a sl e t r a sd e la l f a b e t oA , B ,C ,. . . ,s e g ns e an e c e s a r i op a r ah a c e rq u el o sd g i t o s` i b a s e' e na b s o l u t o .L a sc a r t a ss o n i n t e r p r e t a d oc o m od g i t o ss l os ie lp r i m e rd g i t oe s0a l9 . L a sl e t r a sm a y s c u l a sym i n s c u l a sn os ed i s t i n g u e n .L a c i f r a se nb a s e3 6 ,l ab a s eq u ea c e p t aM a x i m a ,c o m p r e n d e n0 a l9yd el aAal aZ . C u a l q u i e r aq u es e ae lv a l o rd e` i b a s e' ,c u a n d ou nn m e r oe n t e r os et e r m i n ap o ru n a p u n t od e c i m a l ,s ei n t e r p r e t a r e nb a s e1 0 . C o n s u l t et a m b i n` o b a s e . E j e m p l o s : ` I b a s e' m e n o sd e1 0 . ( %I 1 )i b a s e :$2 ( %I 2 )o b a s e ; ( %O 2 )1 0 ( %I 3 )1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; ( %O 3 )6 5 5 3 5 ` I b a s e' s u p e r i o ra1 0 .L a sl e t r a ss ei n t e r p r e t a nc o m os l od g i t o s s ie lp r i m e rd g i t oe s0a l9 . ( %I 1 )i b a s e :1 6$ ( %I 2 )o b a s e ; ( %O 2 )1 0 ( %I 3 )1 0 0 0 ; ( %O 3 )4 0 9 6 ( %I 4 )a b c d ; ( %O 4 )a b c d ( %I 5 )s y m b o l p( a b c d ) ; ( %O 5 )t r u e ( %I 6 )0 a b c d ; ( %O 6 )4 3 9 8 1 ( %I 7 )s y m b o l p( 0 a b c d ) ; ( %O 7 )f a l s e C u a n d ou ne n t e r ot e r m i n ac o nu np u n t od e c i m a l ,e s i n t e r p r e t a d oe nb a s e1 0 . ( %I 1 )i b a s e :3 6$ ( %I 2 )o b a s e ; ( %O 2 )1 0 ( %I 3 )1 2 3 4 ; ( %O 3 )4 9 3 6 0 ( %I 4 )1 2 3 4 . ; ( %O 4 )1 2 3 4
F u n c i n :l d i s p( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) M u e s t r al a se x p r e s i o n e s< e x p r _ 1 > ,. . . ,< e x p r _ n >e nl ac o n s o l a s a l i d ai m p r e s a .` L d i s p' a s i g n au n ae t i q u e t ad ee x p r e s i ni n t e r m e d i a ac a d aa r g u m e n t oyd e v u e l v el al i s t ad ee t i q u e t a s . C o n s u l t et a m b i n` d i s p' , 'd i s p l a y' y `l d i s p l a y ' . E j e m p l o s : ( %I 1 )e :( a+b )^3 ; 3 ( %O 1 )( b+a ) ( %I 2 )f :a m p l i a r( e ) ; 3223 ( %O 2 )b+3a b+3a b+a ( %I 3 )l d i s p( e ,f ) ; 3 ( %T 3 )( b+a ) 3223 ( %T 4 )b+3a b+3a b+a ( %O 4 )[ %t 3 ,t 4 % ] ( %I 4 ) %T 3 ; 3 ( %O 4 )( b+a ) ( %I 5 ) %t 4 ; 3223 ( %O 5 )b+3a b+3a b+a
F u n c i n :l d i s p l a y( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) M u e s t r al a se x p r e s i o n e s< e x p r _ 1 > ,. . . ,< e x p r _ n >e nl ac o n s o l a s a l i d ai m p r e s a .C a d ae x p r e s i ns em u e s t r ac o m ou n ae c u a c i nd el a f o r m a` l h s=r h s "e nl aq u el h s` ' e su n od el o sa r g u m e n t o sd e L d i s p l a y` ' y `d c h" e ss uv a l o r .N o r m a l m e n t e ,c a d aa r g u m e n t oe su n v a r i a b l e .` L d i s p' a s i g n au n ae t i q u e t ad ee x p r e s i ni n t e r m e d i ad e c a d ae c u a c i nyd e v u e l v el al i s t ad ee t i q u e t a s . V a s et a m b i n' m o s t r a r ' ,` d i s p' y `l d i s p ' .
22/633
28/08/13
E j e m p l o s : ( %I 1 )e :( a+b )^3 ;
3 ( %O 1 )( b+a ) ( %I 2 )f :a m p l i a r( e ) ; 3223 ( %O 2 )b+3a b+3a b+a ( %I 3 )l d i s p l a y( e ,f ) ; 3 ( %T 3 )e=( b+a ) 3223 ( %T 4 )f=b+3+3a ba b+a ( %O 4 )[ %t 3 ,t 4 % ] ( %I 4 ) %T 3 ; 3 ( %O 4 )e=( b+a ) ( %I 5 ) %t 4 ; 3223 ( %O 5 )f=b+3a b+3a b+a
V a r i a b l eo p c i o n a l :l e f t j u s t V a l o rp o rd e f e c t o :f a l s e' C u a n d o` l e f t j u s t' e s `t r u e ' ,e c u a c i o n e se n2 D p a n t a l l as ed i b u j a ni z q u i e r d a j u s t i f i c a d oe nl u g a rd ec e n t r a d o . C o n s u l t et a m b i n` d i s p l a y 2 d' p a r ac a m b i a re n t r e1 Dy2 D d i s p l a y . E j e m p l o : ( %I 1 )e x p a n d( ( x+ 1 )^3 ) ; 32 ( %O 1 )x+3x3+x+1 ( %I 2 )l e f t j u s t :t r u e$ ( %I 3 )a m p l i a r( ( x+ 1 )^3 ) ; 32 ( %O 3 )x+3x3+x+1
V a r i a b l eo p c i o n a l :l i n e l V a l o rp o rd e f e c t o :7 9' ` L i n e l' e sl aa n c h u r a( m e d i d ae nc a r a c t e r e s )d el ac o n s o l a s em u e s t r ap a r ae lp r o p s i t od em o s t r a re x p r e s i o n e s .` L i n e l "p u e d es e r c u a l q u i e rv a l o ra s i g n a d op o re lu s u a r i o ,a u n q u em u yp e q u e oom u yg r a n d e L o sv a l o r e sp u e d e ns e rp o c op r c t i c a s .E lt e x t oi m p r e s op o ru n af u n c i nd eM a x i m a f u n c i o n e s ,c o m om e n s a j e sd ee r r o ryl a ss a l i d a sd e' d e s c r i b i r ' , n os ev ea f e c t a d ap o r` l i n e l' .
V a r i a b l eo p c i o n a l :l i s p d i s p V a l o rp o rd e f e c t o :f a l s e' C u a n d o` l i s p d i s p' e s `t r u e ' ,l o ss m b o l o sd eL i s ps em u e s t r a nc o nu n c o n d u c ep r e g u n t aS u p r i m i r` ?' .D el oc o n t r a r i o ,s em u e s t r a ns m b o l o sL i s p s i ne s t am a r c a . E j e m p l o s : ( %I 1 )l i s p d i s p :f a l s e$ ( %I 2 )f o o+b a r ? ? ; ( %O 2 )f o o+b a r ( %I 3 )l i s p d i s p :t r u e$ ( %I 4 )f o o+b a r ? ? ; ( %O 4 ) ?F o o+ ?B a r
V a r i a b l eo p c i o n a l :n e g s u m d i s p f l a g V a l o rp o rd e f e c t o :t r u e' C u a n d o` n e g s u m d i s p f l a g' e s `t r u e ' ,` X-Y' s em u e s t r ac o m o `x-y ' e nl u g a rd ec o m o` -y+x' .S is ee s t a b l e c ee n' f a l s e 'h a c eq u ee le s p e c i a l c o m p r o b a re nl ap a n t a l l ad el ad i f e r e n c i ad ed o se x p r e s i o n e sq u en os e a n h e c h o .U n ad el a sa p l i c a c i o n e se sq u et a n t o` a+ %i*b' y à%i*b 'p u e d e a m b a sd el am i s m am a n e r a .
V a r i a b l eo p c i o n a l :o b a s e V a l o rp o rd e f e c t o :1 0'
23/633
28/08/13

` O b a s e' e sl ab a s ed el o se n t e r o sm o s t r a d o sp o rM a x i m a . ` O b a s e' p u e d ea s i g n a rc u a l q u i e re n t e r oe n t r e2y3 6( d e c i m a l ) , I n c l u i d o .C u a n d o` o b a s e' e sm a y o rq u e1 0 ,l o sn m e r o sc o m p r e n d e n l o sn m e r o sd e c i m a l e sd e l0a l9 ,m sl a sl e t r a sm a y s c u l a sd el a a l f a b e t oA ,B ,C ,. . . ,s e g ns e an e c e s a r i o .S em u e s t r au np r i m e rd g i t o0 s ie lp r i m e rd g i t oe sd eo t r am a n e r au n ac a r t a .L a sc i f r a se nb a s e 3 6 ,l ab a s eq u ea c e p t aM a x i m a ,c o m p r e n d e nd e0a9yA al aZ . V a s et a m b i ni b a s e` ' . E j e m p l o s : ( %I 1 )o b a s e :2 ; ( %O 1 )1 0 ( %I 2 )2^8-1 ; ( %O 1 0 )1 1 1 1 1 1 1 1 ( %I 3 )o b a s e :8 ; ( %O 3 )1 0 ( %I 4 )8^8-1 ; ( %O 4 )7 7 7 7 7 7 7 7 ( %I 5 )o b a s e :1 6 ; ( %O 5 )1 0 ( %I 6 )1 6^8-1 ; ( %O 6 )0 F F F F F F F F ( %I 7 )o b a s e :3 6 ; ( %O 7 )1 0 ( %I 8 )3 6^8-1 ; ( %O 8 )0 Z Z Z Z Z Z Z Z
V a r i a b l eo p c i o n a l :p f e f o r m a t V a l o rp o rd e f e c t o :f a l s e' C u a n d o` p f e f o r m a t' e s `t r u e ' ,s em u e s t r au n ar e l a c i nd en m e r o se n t e r o sc o n e lc a r c t e rb a r r ao b l i c u a( d i a g o n a l ) ,yu ne n t e r od e n o m i n a d o r ` N' s em u e s t r ac o m ou nt r m i n om u l t i p l i c a t i v ol d e r `1/n" . E j e m p l o s : ( %I 1 )p f e f o r m a t :f a l s e$ ( %I 2 )2^1 6 / 7^3 ; 6 5 5 3 6 ( %O 2 )3 4 3 ( %I 3 )( a+b )/8 ; b+a ( %O 3 )8 ( %I 4 )p f e f o r m a t :t r u e$ ( %I 5 )2^1 6 / 7^3 ; ( %O 5 )6 5 5 3 6 / 3 4 3 ( %I 6 )( a+b )/8 ; ( %O 6 )1 / 8( b+a )
V a r i a b l eo p c i o n a l :p o w e r d i s p V a l o rp o rd e f e c t o :f a l s e' C u a n d o` p o w e r d i s p' e s `t r u e ' ,s em u e s t r a nl a ss u m a sc o ns u st r m i n o se n o r d e nc r e c i e n t ed ee n e r g a .P o rl ot a n t o ,u np o l i n o m i os em u e s t r ac o m ou n a t r u n c a d as e r i ed ep o t e n c i a s ,c o ne lt r m i n oc o n s t a n t ea n t el a m a y o rp o t e n c i aa lf i n a l . D ef o r m ap r e d e t e r m i n a d a ,l o st r m i n o sd eu n as u m as em u e s t r a ne no r d e nd e c r e c i e n t ed e d ee n e r g a . E j e m p l o : ( %I 1 )p o w e r d i s p :t r u e ; ( %O 1 )t r u e ( %I 2 )x^2+x^3+x^4 ; 234 ( %O 2 )x+x+x ( %I 3 )p o w e r d i s p :f a l s e ; ( %O 3 )f a l s e ( %I 4 )x^2+x^3+x^4 ; 432 ( %O 4 )x+x+x
F u n c i n :p r i n t( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) E v a l aym u e s t r a< e x p r _ 1 > ,. . . ,< e x p r _ n >u n ot r a so t r o , d ei z q u i e r d aad e r e c h a ,e m p e z a n d op o re lb o r d ei z q u i e r d od el ac o n s o l a m o s t r a r . E lv a l o rd e v u e l t op o r` p r i n t' e se lv a l o rd es u l t i m oa r g u m e n t o . ` P r i n t' n og e n e r ae t i q u e t a sd ee x p r e s i o n e si n t e r m e d i a s .
24/633
28/08/13

V a s et a m b i n' d i s p l a y ' ,` d i s p' , `l d i s p l a y 'y` l d i s p' .A q u e l l o s f u n c i o n e sm u e s t r a nu n ae x p r e s i np o rl n e a ,m i e n t r a sq u el o si n t e n t o s` p r i n t' p a r am o s t r a rd o som se x p r e s i o n e sp o rl n e a . P a r av i s u a l i z a re lc o n t e n i d od eu na r c h i v o ,c o n s u l t e` p r i n t f i l e' . E j e m p l o s : ( %I 1 )r :p r i n t( " ( a+b )^3e s "a m p l i a r( ( a+b )^3 ) ," l o g( a^1 0/b )e s " r a d c a n( l o g( a^1 0/b ) ) )$ 3223 ( A+b )^3e sB+3+3a ba b+al o g( a^1 0/b )e s 1 0l o g( a )-l o g( b ) ( %I 2 )r ; ( %O 2 )1 0l o g( a )-l o g( b ) ( %I 3 )d i s p( " ( a+b )^3e s "a m p l i a r( ( a+b )^3 ) ," l o g( a^1 0/b )e s " r a d c a n( l o g( a^1 0/b ) ) )$ ( A+b )^3e s 3223 b+3a b+3a b+a l o g( a^1 0/b )e s 1 0l o g( a )-l o g( b )
V a r i a b l eo p c i o n a l :s q r t d i s p f l a g V a l o rp o rd e f e c t o :t r u e' C u a n d o` s q r t d i s p f l a g' e s 'f a l s e' ,h a c eq u e `s q r t 'p a r av i s u a l i z a rc o n e x p o n e n t em e d i o .
V a r i a b l eo p c i o n a l :s t a r d i s p V a l o rp o rd e f e c t o :f a l s e' C u a n d o` s t a r d i s p' e s `t r u e ' ,l am u l t i p l i c a c i ns em u e s t r ac o nu n a s t e r i s c o' * 'e n t r el o so p e r a n d o s .
V a r i a b l eo p c i o n a l :t t y o f f V a l o rp o rd e f e c t o :f a l s e' C u a n d o` t t y o f f' e s `t r u e ' ,n os em u e s t r a nl a se x p r e s i o n e sd es a l i d a . L a se x p r e s i o n e sd es a l i d aa ns ec a l c u l a nya s i g n a ne t i q u e t a s .V e r ` E t i q u e t a s " . E lt e x t oi m p r e s op o rf u n c i o n e sd eM a x i m ai n c o r p o r a d o s ,t a l e sc o m om e n s a j e sd ee r r o r yl as a l i d ad e` d e s c r i b i r " ,n os ev ea f e c t a d ap o r` t t y o f f' .
5 Tipos y estructuras de datos

N m e r o s C u e r d a s C o n s t a n t e s L i s t a s m a t r i c e s E s t r u c t u r a s
5.1 Nmeros
*I n t r o d u c c i naN m e r o s: : *F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s: :
F u n c i n :b f l o a t( e x p r ) C o n v i e r t et o d o sl o sn m e r o syf u n c i o n e sd el o sn m e r o se n< e x p r >a d e c i m a l e sg r a n d e sn m e r o s .E ln m e r od ec i f r a ss i g n i f i c a t i v a se ne l b i g f l o a t sr e s u l t a n t e ss ee s p e c i f i c am e d i a n t el av a r i a b l eg l o b a l` f p p r e c' . C u a n d o` f l o a t 2 b f' e s 'f a l s e' u nm e n s a j ed ea v i s oc u a n d ou n n m e r od ep u n t of l o t a n t es ec o n v i e r t eau nn m e r ob i g f l o a t( d e s d e e s t op u e d ec o n d u c i ral ap r d i d ad ep r e c i s i n ) .
F u n c i n :b f l o a t p( e x p r )
25/633
28/08/13

D e v u e l v e` t r u e' s ie x p re su nn m e r ob i g f l o a t ,d el oc o n t r a r i o `f a l s e ' .
V a r i a b l eo p c i o n a l :b f t o r a t V a l o rp o rd e f e c t o :f a l s e' ` B f t o r a t' c o n t r o l al ac o n v e r s i nd eb f l o a t san m e r o sr a c i o n a l e s . C u a n d o` b f t o r a t' e s 'f a l s e' , `r a t e p s i l o n 's eu t i l i z ap a r ac o n t r o l a r l ac o n v e r s i n( l oc u a lr e s u l t ae nr e l a t i v a m e n t ep e q u e ar a c i o n a l n m e r o s ) .C u a n d o` b f t o r a t' e s `t r u e ' ,e ln m e r or a c i o n a lg e n e r a d o s er e p r e s e n t a nc o ne x a c t i t u dl ab f l o a t . N o t a :` b f t o r a t' n ot i e n ee f e c t oe nl at r a n s f o r m a c i nar a c i o n a l n m e r o sc o nl af u n c i n' r a c i o n a l i z a r ' . E j e m p l o : ( %I 1 )r a t e p s i l o n :1 e 4 ; ( %O 1 )1 . e 4 ( %I 2 )r a t a( b f l o a t( 1 1 1 1 1 / 1 1 1 1 1 1 ) ) ,b f t o r a t :f a l s e ; ' R a t a 's u s t i t u y e9 . 9 9 9 9 0 9 9 9 9 9 1 B 2e n1 / 1 0=1 . 0 B 1 1 ( %O 2 )/R/1 0 ( %I 3 )r a t a( b f l o a t( 1 1 1 1 1 / 1 1 1 1 1 1 ) ) ,b f t o r a t :t r u e ; ' R a t a 's u s t i t u y e9 . 9 9 9 9 0 9 9 9 9 9 1 B 2p o r1 1 1 1 1 / 1 1 1 1 1 1=9 . 9 9 9 9 0 9 9 9 9 9 1 B 2 1 1 1 1 1 ( %O 3 )/R/1 1 1 1 1 1
V a r i a b l eo p c i o n a l :b f t r u n c V a l o rp o rd e f e c t o :t r u e' ` B f t r u n c' c a u s ac e r o se nn m e r o sd e c i m a l e sg r a n d e sn on u l o sp a r aq u en o q u es em o s t r a r .P o rl ot a n t o ,s i` b f t r u n c' e s 'f a l s e' , `b f l o a t( 1 ) ' s em u e s t r ac o m o` 1 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 B 0' .D el oc o n t r a r i o ,e s t os em u e s t r ac o m o ` 1 . 0 B 0 .
F u n c i n :e v e n p( e x p r ) D e v u e l v e` t r u e' s ie x p re su ne n t e r op a r .` F a l s es ed e v u e l v e' e nl o sd e m sc a s o s .
F u n c i n :f l o a t( e x p r ) C o n v i e r t el o se n t e r o s ,n m e r o sr a c i o n a l e syd e c i m a l e sg r a n d e se n< e x p r >a n m e r o sd ep u n t of l o t a n t e .E st a m b i nu n` e v f l a g' , `f l o a t 'c a u s a s n m e r o sr a c i o n a l e sn oe n t e r o syn m e r o sd e c i m a l e sg r a n d e sp a r as e rc o n v e r t i d o s d ep u n t of l o t a n t e .
V a r i a b l eo p c i o n a l :f l o a t 2 b f V a l o rp o rd e f e c t o :t r u e' C u a n d o` f l o a t 2 b f' e s 'f a l s e' ,s ei m p r i m eu nm e n s a j ed ea d v e r t e n c i ac u a n d ou n n m e r od ep u n t of l o t a n t es ec o n v i e r t eau nn m e r ob i g f l o a t( d e s d e e s t op u e d ec o n d u c i ral ap r d i d ad ep r e c i s i n ) .E lv a l o rp o rd e f e c t oe s` t r u e' .
F u n c i n :f l o a t n u m p( e x p r ) D e v u e l v e` t r u e' s ie x p re su nn m e r od ep u n t of l o t a n t e ,e nc a s o ' F a l s e ' .
V a r i a b l eo p c i o n a l :f p p r e c V a l o rp o rd e f e c t o :1 6 ` F p p r e c' e se ln m e r od ed g i t o ss i g n i f i c a t i v o se nl aa r i t m t i c ac o n d e c i m a l e sg r a n d e sn m e r o s .` F p p r e c' n oa f e c t aal o sc l c u l o sd e n m e r o sd ep u n t of l o t a n t eo r d i n a r i o s . C o n s u l t et a m b i n` b f l o a t' y `f p p r i n t p r e c ' .
V a r i a b l eo p c i o n a l :f p p r i n t p r e c V a l o rp o rd e f e c t o :0
26/633
28/08/13

` F p p r i n t p r e c' e se ln m e r od ed g i t o sai m p r i m i rd e d e c i m a lo r d i n a r i oon m e r ob i g f l o a t . P a r al o sn m e r o sd ep u n t of l o t a n t eo r d i n a r i o s ,c u a n d o` f p p r i n t p r e c' t i e n eu n v a l o re n t r e2y1 6( i n c l u s i v e ) ,e ln m e r od ed g i t o si m p r e s o s e si g u a la` f p p r i n t p r e c' .D el oc o n t r a r i o ,` f p p r i n t p r e c' e s0 ,o m a y o rd e1 6a o s ,ye ln m e r od ed g i t o sai m p r i m i r1 6 . P a r al o sn m e r o sd e c i m a l e sg r a n d e s ,c u a n d o` f p p r i n t p r e c' t i e n eu nv a l o re n t r e2y ` F p p r e c' ( i n c l u s i v e ) ,e ln m e r od ed g i t o sq u es ei m p r i m e ne si g u a la ` F p p r i n t p r e c' .D el oc o n t r a r i o ,` f p p r i n t p r e c' e s0 ,om a y o rq u e F p p r e c` ' ,ye ln m e r od ed g i t o sq u es ei m p r i m e ne si g u a la `f p p r e c ' . ` F p p r i n t p r e c' n op u e d es e r1 .
F u n c i n :i n t e g e r p( e x p r ) D e v u e l v e` t r u e' s ie x p re su nn m e r oe n t e r oy ,e nc a s oc o n t r a r i o ' F a l s e ' . ` I n t e g e r p' d e v u e l v e 'f a l s e' s is ua r g u m e n t oe su ns m b o l o ,i n c l u s os i e la r g u m e n t os ed e c l a r ae n t e r o . E j e m p l o s : ( %I 1 )i n t e g e r p( 0 ) ; ( %O 1 )t r u e ( %I 2 )i n t e g e r p( 1 ) ; ( %O 2 )t r u e ( %I 3 )i n t e g e r p( 1 7 ) ; ( %O 3 )t r u e ( %I 4 )i n t e g e r p( 0 . 0 ) ; ( %O 4 )f a l s e ( %I 5 )i n t e g e r p( 1 , 0 ) ; ( %O 5 )f a l s e ( %I 6 )i n t e g e r p( %p i ) ; ( %O 6 )f a l s e ( %I 7 )i n t e g e r p( n ) ; ( %O 7 )f a l s e ( %I 8 )d e c l a r e( n ,e n t e r o ) ; ( %O 8 )h e c h o ( %I 9 )i n t e g e r p( n ) ; ( %O 9 )f a l s e
V a r i a b l eo p c i o n a l :v a r i a b l em 1 p b r a n c h V a l o rp o rd e f e c t o :f a l s e' ` L av a r i a b l em 1 p b r a n c h' e sl ar a m ap r i n c i p a ld e `1 'au n ap o t e n c i a . C a n t i d a d e st a l e sc o m o` ( 1 )^( 1 / 3 )' ( e sd e c i r ,u n a "e x t r a a" r a c i o n a l e x p o n e n t e )y' ( 1 )^( 1 / 4 )" ( e sd e c i r ,u n "p a r" e x p o n e n t er a c i o n a l ) s em a n e j a nd el as i g u i e n t em a n e r a : d o m i n i o :b i e n e s ( 1 )^( 1 / 3 ) :1 ( 1 )^( 1 / 4 ) :( 1 )^( 1 / 4 ) D o m i n i o :C o m p l e j o v a r i a b l em 1 p b r a n c h :f a l s eL av a r i a b l em 1 p b r a n c h :t r u e ( 1 )^( 1 / 3 )1 / 2+ %i*s q r t( 3 )/2 ( 1 )^( 1 / 4 )s q r t( 2 )/2+ %i*s q r t( 2 )/2
F u n c i n :n o n n e g i n t e g e r p( < n > ) V o l v e r` t r u e' s iys l os i `< n > >=0 'y< n >e su ne n t e r o .
F u n c i n :n u m b e r p( e x p r ) D e v u e l v e` t r u e' s ie x p re su ne n t e r o ,n m e r or a c i o n a ll i t e r a l , n m e r od ep u n t of l o t a n t e ,ob i g f l o a t ,d el oc o n t r a r i o` f a l s e' . ` N u m b e r p' d e v u e l v e 'f a l s e' s is ua r g u m e n t oe su ns m b o l o ,i n c l u s os ie l a r g u m e n t oe su nn m e r os i m b l i c oc o m o %p i` ' o ` %i ' ,os ed e c l a r a s e r` i n c l u s o' , 'e x t r a o' , è n t e r o ' ,' r a c i o n a l ' ,' i r r a c i o n a l ' ,' r e a l ' ' I m a g i n a r i o ' ,o` c o m p l e j a' . E j e m p l o s : ( %I 1 )n u m b e r p( 4 2 ) ; ( %O 1 )t r u e ( %I 2 )n u m b e r p( 1 3 / 1 9 ) ; ( %O 2 )t r u e ( %I 3 )n u m b e r p( 3 , 1 4 1 5 9 ) ; ( %O 3 )t r u e ( %I 4 )n u m b e r p( 1 7 2 9 b 4 ) ;
27/633
28/08/13

( %O 4 )t r u e ( %I 5 )m a p a( n u m b e r p ,[ %e , %p i , %i , %p h i ,i n f ,m i n f ] ) ; ( %O 5 )[ f a l s o ,f a l s o ,f a l s o ,f a l s o ,f a l s o ,f a l s o ] ( %I 6 )d e c l a r e( a ,i n c l u s o ,b ,i m p a r ,c ,e n t e r o ,d ,r a c i o n a l , e ,i r r a c i o n a l ,f ,r e a l ,g ,i m a g i n a r i o ,h ,c o m p l e j o ) ; ( %O 6 )h e c h o ( %I 7 )m a p a( n u m b e r p ,[ a ,b ,c ,d ,e ,f ,g ,h ] ) ; ( %O 7 )[ f a l s o ,f a l s o ,f a l s o ,f a l s o ,f a l s o ,f a l s o ,f a l s o ,f a l s o ]
V a r i a b l eo p c i o n a l :n u m e r ` N u m e r' c a u s aq u ea l g u n a sf u n c i o n e sm a t e m t i c a s( i n c l u y e n d o p o t e n c i a c i n )c o na r g u m e n t o sn u m r i c o ss e a ne v a l u a d o sc o m o p u n t of l o t a n t e .H a c eq u el a sv a r i a b l e se ne x p r` ' ,q u eh a ns i d o a s i g n a d ou nn m e r os e a ns u s t i t u i d a sp o rs u sv a l o r e s .T a m b i ne s t a b l e c ee l ' F l o t a r 'e nA c t i v a r . C o n s u l t et a m b i n` %e n u m e r' . E j e m p l o s : ( %I 1 )[ s q r t( 2 ) ,s i n( 1 ) ,1/( 1+s q r t( 3 ) ) ] ; 1 ( %O 1 )[ s q r t( 2 ) ,s i n( 1 )] s q r t( 3 )+1 ( %I 2 )[ s q r t( 2 ) ,s i n( 1 )1/( 1+s q r t( 3 ) ) ] ,n u m e r ; ( %O 2 )[ 1 . 4 1 4 2 1 3 5 6 2 3 7 3 0 9 5 ,0 . 8 4 1 4 7 0 9 8 4 8 0 7 8 9 6 5 ,0 . 3 6 6 0 2 5 4 0 3 7 8 4 4 3 8 7 ]
V a r i a b l eo p c i o n a l :n u m e r _ p b r a n c h V a l o rp o rd e f e c t o :f a l s e' L av a r i a b l eo p c i n` n u m e r _ p b r a n c h' c o n t r o l ae ln u m r i c a e v a l u a c i nd el ap o t e n c i ad eu ne n t e r on e g a t i v o ,r a c i o n a l ,o n m e r od ep u n t of l o t a n t e .C u a n d o` n u m e r _ p b r a n c h' e s `t r u e 'ye l e x p o n e n t ee su nn m e r od ep u n t of l o t a n t eol av a r i a b l eo p c i n` n u m e r' e s` t r u e' t a m b i n ,M a x i m ae v a l ae lr e s u l t a d on u m r i c ou t i l i z a n d oe l r a m ap r i n c i p a l .D el oc o n t r a r i ou n as i m p l i f i c a d o ,p e r on ou n ae v a l u a d o r e s u l t a d os ed e v u e l v e . E j e m p l o s : ( %I 1 )( 2 )^0 . 7 5 ; ( %O 1 )( 2 )^0 . 7 5 ( %I 2 )( 2 )^0 . 7 5 ,n u m e r _ p b r a n c h :t r u e ; ( %O 2 )1 . 1 8 9 2 0 7 1 1 5 0 0 2 7 2 1* %i 1 . 1 8 9 2 0 7 1 1 5 0 0 2 7 2 1 ( %I 3 )( 2 )^( 3 / 4 ) ; ( %O 3 )( 1 )^( 3 / 4 )*2^( 3 / 4 ) ( %I 4 )( 2 )^( 3 / 4 ) ,n u m e r ; ( %O 4 )1 . 6 8 1 7 9 2 8 3 0 5 0 7 4 2 9*( 1 )^0 . 7 5 ( %I 5 )( 2 )^( 3 / 4 ) ,n u m e r ,n u m e r _ p b r a n c h :t r u e ; ( %O 5 )1 . 1 8 9 2 0 7 1 1 5 0 0 2 7 2 1* %i 1 . 1 8 9 2 0 7 1 1 5 0 0 2 7 2 1
F u n c i n :n u m e r v a l( < x _ 1 > ,< e x p r _ 1 > ,. . . ,< v a r _ n > ,< e x p r _ n > ) D e c l a r al a sv a r i a b l e sx _ 1` ' ,. . . ,< x _ n >t e n e rv a l o r e sn u m r i c o s i g u a la` e x p r1' ,. . . , 'e x p r _ n' .S ee v a l ae lv a l o rn u m r i c o ys u s t i t u i d op o rl av a r i a b l ee nc u a l q u i e re x p r e s i ne nl aq u ee l v a r i a b l e ss ep r o d u c es ie l` n u m e r' b a n d e r ae s `t r u e ' .V a s et a m b i n' e v ' . L a se x p r e s i o n e se x p r _ 1` ' ,. . . , 'e x p r _ n' p u e d e ns e re x p r e s i o n e s , n on e c e s a r i a m e n t en u m r i c a s .
F u n c i n :o d d p( e x p r ) e s` t r u e' s ie x p re su ne n t e r oi m p a r .' F a l s e 's ed e v u e l v ee nt o d a o t r o sc a s o s .
V a r i a b l eo p c i o n a l :r a t e p s i l o n V a l o rp o rd e f e c t o :2 . 0 e 1 5' ` R a t e p s i l o n' e sl at o l e r a n c i au t i l i z a d ae nl ac o n v e r s i nd ef l o t a r n m e r o sd ep u n t oan m e r o sr a c i o n a l e s ,c u a n d ol av a r i a b l ed eo p c i n ` B f t o r a t' t i e n ee lv a l o r 'f a l s e' .C o n s u l t e` b f t o r a t "p a r au ne j e m p l o .
F u n c i n :r a c i o n a l i z a r( e x p r )
28/633
28/08/13

C o n v e r t i rt o d o sl o sf l o t a d o r e sd o b l e syg r a n d e sc a r r o z a se nl am x i m ae x p r e s i n < e x p r >as u se q u i v a l e n t e sr a c i o n a l e se x a c t a s .S in oe s t f a m i l i a r i z a d oc o nl ar e p r e s e n t a c i nb i n a r i ad el o sn m e r o sd ep u n t of l o t a n t e , p u e d eq u es es o r p r e n d ad eq u e` r a c i o n a l i z a r( 0 . 1 )' n oe si g u a la 1 / 1 0 .E s t ec o m p o r t a m i e n t on oe s n i c od eM a x i m a ,-e ln m e r o1 / 1 0t i e n e u n ar e p e t i c i n ,n ou n af o r m ab i n a r i a . ( %I 1 )r a c i o n a l i z a r( 0 . 5 ) ; 1 ( %O 1 )2 ( %I 2 )r a c i o n a l i z a r( 0 , 1 ) ; 1 ( %O 2 )1 0 ( %I 3 )f p p r e c :5$ ( %I 4 )r a c i o n a l i z a r( 0 . 1 b 0 ) ; 2 0 9 7 1 5 ( %O 4 )2 0 9 7 1 5 2 ( %I 5 )f p p r e c :2 0$ ( %I 6 )r a c i o n a l i z a r( 0 . 1 b 0 ) ; 2 3 6 1 1 8 3 2 4 1 4 3 4 8 2 2 6 0 6 8 5 ( %O 6 )2 3 6 1 1 8 3 2 4 1 4 3 4 8 2 2 6 0 6 8 4 8 ( %I 7 )r a c i o n a l i z a r( s i n( x+0 . 1*5 . 6 ) ) ; x2 8 ( %O 7 )s e n( -+) 1 05 E j e m p l od eu s o : ( %I 1 )u n i t f r a c( r ) :=b l o q u e( [ u f :[ ] ,q ] , s in o( r a t n u m p( r ) )ac o n t i n u a c i n , e r r o r( " L ae n t r a d a' u n i t f r a c 'd e b es e ru nn m e r or a c i o n a l " ) , m i e n t r a sq u er#0h a c e r( u f :c o n s( q :1 / c e i l i n g( 1/r ) ,u f ) , r :r-q ) , i n v e r s a( u f ) )$ ( %I 2 )u n i t f r a c( 9 / 1 0 ) ; 111 ( %O 2 )[ ,,] 231 5 ( %I 3 )s ea p l i c a n( " + " , % ) ; 9 ( %O 3 )1 0 ( %I 4 )u n i t f r a c( 9 / 1 0 ) ; 1 ( %O 4 )[ -1 ,] 1 0 ( %I 5 )s ea p l i c a n( " + " , % ) ; 9 ( %O 5 )1 0 ( %I 6 )u n i t f r a c( 3 6 / 3 7 ) ; 11111 ( %O 6 )[ ,,,,] 2386 96 8 0 8 ( %I 7 )s ea p l i c a n( " + " , % ) ; 3 6 ( %O 7 )3 7
F u n c i n :r a t n u m p( e x p r ) D e v u e l v e` t r u e' s ie x p re su ne n t e r ol i t e r a lou n af r a c c i nd e ll i t e r a l n m e r o se n t e r o s ,d el oc o n t r a r i o` f a l s o' .
5.2 Cuerdas
*I n t r o d u c c i nal a sc a d e n a s: : *F u n c i o n e syv a r i a b l e sp a r aS t r i n g s: :
F u n c i n :c o n c a t( < a r g _ 1 > ,< a r g _ 2 > ,. . . ) C o n c a t e n as u sa r g u m e n t o s .L o sa r g u m e n t o sd e b e ns e rt o d o s t o m o s . E lv a l o rd er e t o r n oe su ns m b o l os ie lp r i m e ra r g u m e n t oe su ns m b o l oy u n ac a d e n ad eo t r am a n e r a . ' C o n c a t 'e v a l as u sa r g u m e n t o s .L ac o m i l l as i m p l e` ' 'i m p i d e e v a l u a c i n . ( %I 1 )y :7$ ( %I 2 )z :8 8$ ( %I 3 )c o n c a t( y ,z/2 ) ; ( %O 3 )7 4 4 ( %I 4 )c o n c a t( ' y ,z/2 ) ; ( %O 4 )y 4 4
29/633
28/08/13

U ns m b o l oc o n s t r u i d op o rc o n c a t` ' s el ep u e d ea s i g n a ru nv a l o ry a p a r e c e r e nl a se x p r e s i o n e s .L a: :' ( d o sp u n t o sd o b l e s )A s i g n a c i n` o p e r a d o re v a l as ul a d oi z q u i e r d o . ( %I 5 )u n :c o n c a t( ' y ,z/2 ) ; ( %O 5 )y 4 4 ( %I 6 )u n: :1 2 3 ; ( %O 6 )1 2 3 ( %I 7 )y 4 4 ; ( %O 7 )1 2 3 ( %I 8 )bâ ; y 4 4 ( %O 8 )b ( %I 9 ) % ,n u m e r ; 1 2 3 ( %O 9 )b T e n g ae nc u e n t aq u ea u n q u e` c o n c a t( 1 ,2 )' p a r e c eu nn m e r o ,e su n c a d e n a . ( %I 1 0 )c o n c a t( 1 ,2 )+3 ; ( %O 1 0 )1 2+3
F u n c i n :s c o n c a t( < a r g _ 1 > ,< a r g _ 2 > ,. . . ) C o n c a t e n as u sa r g u m e n t o se nu n ac a d e n a .Ad i f e r e n c i ad e' c o n c a t ' ,l a a r g u m e n t o sn on e c e s i t a ns e r t o m o s . ( %I 1 )s c o n c a t( " x x[ " ,3" ] : " ,e x p a n d i r( ( x+y )^3 ) ) ; ( %O 1 )x x[ 3 ] :3y^3*x*y^23*x^2*y+x^3
F u n c i n :s t r i n g( e x p r ) C o n v i e r t ee x p r` ' al an o t a c i nl i n e a ld eM a x i m a ,t a lc o m os ih u b i e r as i d o e s c r i t op u l g E lv a l o rd er e t o r n od e' s e r i e 'e su n ac a d e n a ,p o rl oq u en op u e d es e r u t i l i z a d oe nu nc l c u l o .
V a r i a b l eo p c i o n a l :s t r i n g d i s p V a l o rp o rd e f e c t o :f a l s e' C u a n d o` s t r i n g d i s p' e s `t r u e ' ,l a sc a d e n a ss em u e s t r a ne n c e r r a d o se n c o m i l l a sd o b l e s .D el oc o n t r a r i o ,n os em u e s t r a nl a sc o m i l l a s . ` S t r i n g d i s p' s i e m p r ee s `t r u e 'c u a n d ov e au n af u n c i n D e f i n i c i n . E j e m p l o s : ( %I 1 )s t r i n g d i s p :f a l s e$ ( %I 2 )" E s t ae su n ac a d e n ad ee j e m p l o . " ; ( %O 2 )S et r a t ad eu n ac a d e n ad ee j e m p l o . ( %I 3 )f o o( ) := p r i n t( " E s t ae su n ac a d e n ae nu n ad e f i n i c i nd ef u n c i n . " ) ; ( %O 3 )f o o( ) := p r i n t( " E s t ae su n ac a d e n ae nu n ad e f i n i c i nd ef u n c i n . " ) ( %I 4 )s t r i n g d i s p :t r u e$ ( %I 5 )" E s t ae su n ac a d e n ad ee j e m p l o . " ; ( %O 5 )" E s t ae su n ac a d e n ad ee j e m p l o " .
5.3 Constantes
*F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s: :
C o n s t a n t e :%e ` %E' r e p r e s e n t al ab a s ed e ll o g a r i t m on a t u r a l ,t a m b i nc o n o c i d oc o m o E ln m e r od eE u l e r .E lv a l o rn u m r i c od e` %E' e se ld o b l ep r e c i s i n 2 . 7 1 8 2 8 1 8 2 8 4 5 9 0 4 5 d 0v a l o rd ep u n t of l o t a n t e .
C o n s t a n t e :%i ` %I "r e p r e s e n t al au n i d a di m a g i n a r i a ,s q r t( -1 ) .
C o n s t a n t e :f a l s e
30/633
28/08/13

` F a l s e' r e p r e s e n t al ac o n s t a n t eB o o l e a nd e lm i s m on o m b r e .M a x i m a i m p l e m e n t a` f a l s e' p o re lv a l o rn i le nL i s p .
C o n s t a n t e :%d eg a m m a L ac o n s t a n t ed eE u l e r M a s c h e r o n i ,0 . 5 7 7 2 1 5 6 6 4 9 0 1 5 3 2 9. . . .
C o n s t a n t e :i n d ` I n d' r e p r e s e n t au nr e s u l t a d oa c o t a d oi n d e t e r m i n a d o . V a s et a m b i n' l m i t e ' . E j e m p l o : ( %I 1 )l i m i t( s i n( 1/x ) ,x ,0 ) ; ( %O 1 )i n d
C o n s t a n t e :i n f ' I n f 'r e p r e s e n t aa li n f i n i t or e a lp o s i t i v o .
C o n s t a n t e :e li n f i n i t o ' I n f i n i t y 'r e p r e s e n t aa li n f i n i t oc o m p l e j o .
C o n s t a n t e :m i n f ` M i n f' r e p r e s e n t ar e a lm e n o s( e sd e c i r ,n e g a t i v o )i n f i n i t o .
:C o n s t a n t ep h i % ` %P h i' r e p r e s e n t ae ll l a m a d om e d i od eo r o ,( 1+s q r t( 5 ) )/2 .L a v a l o rn u m r i c od e` %p h i "e se ld o b l ep r e c i s i nd ep u n t of l o t a n t e 1 . 6 1 8 0 3 3 9 8 8 7 4 9 8 9 5 d 0v a l o r . ` F u n c i nf i b t o p h i' e x p r e s al o sn m e r o sd eF i b o n a c c i `f i b( n )" e nt r m i n o sd e ` %P h i . P o rd e f e c t o ,M a x i m ad e s c o n o c el a sp r o p i e d a d e sa l g e b r a i c a sd e ` %P h i .D e s p u sd ee v a l u a r` t e l l r a t( %p h i^2%p h i-1 )' y ` A l g e b r a i c a :t r u e' , `r a t s i m p 'p u e d es i m p l i f i c a ra l g u n a se x p r e s i o n e s q u ec o n t i e n e` %p h i . E j e m p l o s : ` F u n c i nf i b t o p h i' e x p r e s al o sn m e r o sd eF i b o n a c c i `f i b( n )" e nt r m i n o sd e ` %p h i . ( %I 1 )f u n c i nf i b t o p h i( f i b( n ) ) ; n n %P h i-( 1%p h i ) ( %O 1 )2 %p h i-1 ( %I 2 )f i b( n 1 )+f i b( n )-f i b( n+ 1 ) ; ( %O 2 )-f i b( n+1 )+f i b( n )+f i b( n-1 ) ( %I 3 )f u n c i nf i b t o p h i( % ) ; n+1n+1n n %P h i-( 1%p h i ) %p h i-( 1%p h i ) ( %O 3 )-+-2 %p h i-12 %p h i-1 n-1n-1 %P h i-( 1%p h i ) +2 %p h i-1 ( %I 4 )r a t s i m p( % ) ; ( %O 4 )0 P o rd e f e c t o ,M a x i m ad e s c o n o c el a sp r o p i e d a d e sa l g e b r a i c a sd e ` %P h i .D e s p u sd ee v a l u a r` t e l l r a t( %p h i^2%p h i-1 )' y ` A l g e b r a i c a :t r u e' , `r a t s i m p 'p u e d es i m p l i f i c a ra l g u n a se x p r e s i o n e s q u ec o n t i e n e` %p h i . ( %I 1 )e :e x p a n d( ( %p h i^2%p h i-1 )*( A+1 ) ) ; 22 ( %O 1 ) %p h iA%p h iA-A+ %p h i%p h i-1 ( %I 2 )r a t s i m p( e ) ; 22 ( %O 2 )( %p h i%p h i-1 )A+ %p h i%p h i-1 ( %I 3 )t e l l r a t( %p h i^2%p h i-1 ) ; 2 ( %O 3 )[ %p h i%p h i-1 ] ( %I 4 )a l g e b r a i c a :t r u e ;
31/633
28/08/13
( %O 4 )t r u e ( %I 5 )r a t s i m p( e ) ; ( %O 5 )0
C o n s t a n t e :%p i ` %P i' r e p r e s e n t al ar e l a c i ne n t r ee lp e r m e t r od eu nc r c u l oas u d i m e t r o .E lv a l o rn u m r i c od e` %p i "e se ld o b l ep r e c i s i n 3 . 1 4 1 5 9 2 6 5 3 5 8 9 7 9 3 d 0v a l o rd ep u n t of l o t a n t e .
C o n s t a n t e :c i e r t o ` T r u e' r e p r e s e n t al ac o n s t a n t eB o o l e a nd e lm i s m on o m b r e .M a x i m a i m p l e m e n t a` t r u e' p o re lv a l o rd e `T 'e nL i s p .
C o n s t a n t e :u n d ` U n d' r e p r e s e n t au nr e s u l t a d oi n d e f i n i d o . V a s et a m b i n' l m i t e ' . E j e m p l o : ( %I 1 )l m i t e( x*s i n( x ) ,x ,i n f ) ; ( %O 1 )u n d
C o n s t a n t e :z e r o a ` Z e r o a' r e p r e s e n t au ni n f i n i t e s i m a lm a y o rq u ec e r o .` Z e r o a "p u e d es e r s eu t i l i z ae nl a se x p r e s i o n e s .` L i m i t' s i m p l i f i c ae x p r e s i o n e sq u ec o n t i e n e n i n f i n i t e s i m a l e s . C o n s u l t et a m b i n` z e r o b' y 'l m i t e' . E j e m p l o : ` L i m i t' s i m p l i f i c ae x p r e s i o n e sq u ec o n t i e n e ni n f i n i t e s i m a l e s : ( %I 1 )l i m i t( z e r o a ) ; ( %O 1 )0 ( %I 2 )l m i t e( x+z e r o a ) ; ( %O 2 )x
C o n s t a n t e :z e r o b ` Z e r o b' r e p r e s e n t au ni n f i n i t e s i m a lp o rd e b a j od ec e r o .` Z e r o b "p u e d es e r s eu t i l i z ae nl a se x p r e s i o n e s .` L i m i t' s i m p l i f i c ae x p r e s i o n e sq u ec o n t i e n e n i n f i n i t e s i m a l e s . C o n s u l t et a m b i n` z e r o a' y 'l m i t e' .
5.4 Listas
*I n t r o d u c c i nal a sl i s t a s: : *F u n c i o n e syv a r i a b l e sp a r al i s t a s: :
O p e r a d o r :[ O p e r a d o r :] ` [ ' Y ' ]' m a r c a re lc o m i e n z oye lf i n a l ,r e s p e c t i v a m e n t e ,d eu n al i s t a . ` [ ' Y ' ]' t a m b i ne n c i e r r a nl o ss u b n d i c e sd eu n al i s t a ,m a t r i zd eh a s h m a t r i zof u n c i na r r a y . E j e m p l o s : ( %I 1 )x :[ a ,b ,c ] ; ( %O 1 )[ a ,b ,c ] ( %I 2 )x[ 3 ] ; ( %O 2 )c ( %I 3 )m a t r i z( y ,f i x n u m ,3 ) ; ( %O 3 )y ( %I 4 )y[ 2 ] : %p i ; ( %O 4 ) %p i ( %I 5 )y[ 2 ] ; ( %O 5 ) %p i ( %I 6 )z[ ' f o o ] : 'b a r ; ( %O 6 )b a r ( %I 7 )z[ ' f o o ] ;
32/633
28/08/13

( %O 7 )b a r ( %I 8 )g[ k ] :=1/( k^21 ) ; 1 ( %O 8 )g :=k2 k+1 ( %I 9 )g[ 1 0 ] ; 1 ( %O 9 )1 0 1
F u n c i n :a p p e n d( < l i s t _ 1 > ,. . . ,< l i s t _ n > ) D e v u e l v eu n al i s t ad el o se l e m e n t o sd e< l i s t _ 1 >s e g u i d op o re l e l e m e n t o sd e< l i s t _ 2 > ,. . .` A p p e n d' t a m b i nf u n c i o n ae ng e n e r a l , e x p r e s i o n e s ,p o re j e m p l o ,` a p p e n d( f( a ,b ) ,f( c ,d ,e ) ) ;' r e n d i m i e n t o s ` F( a ,b ,c ,d ,e )' . H a g a` e j e m p l o( a p p e n d ) ; "p a r au ne j e m p l o .
F u n c i n :a s o c( < k e y > ,< l i s t > ,< d e f a u l t > ) F u n c i n :a s o c( < k e y > ,< l i s t > ) E s t af u n c i nb u s c ae l< k e y >e ne ll a d oi z q u i e r d od el a e n t r a d a< l i s t >d el af o r m a` [ x ,y ,z ,. . . ]' ,d o n d ec a d au n od el o s< l i s t > e l e m e n t o se su n ae x p r e s i nd eu no p e r a d o rb i n a r i oy2e l e m e n t o s .P a r a e j e m p l o` x=1' , `2^3 ' ,` [ a ,b ]' ,e t cE l< k e y >s ec o m p a r ac o n e lp r i m e ro p e r a n d o .` A s o c' d e v u e l v ee ls e g u n d oo p e r a n d os ie l ` L l a v e' s ee n c u e n t r a .S in os ee n c u e n t r al a` l l a v e' t a m p o c od e v u e l v ee l v a l o r< d e f a u l t > .< d e f a u l t >e so p c i o n a lyp o rd e f e c t oe s` f a l s o' .
F u n c i n :c o n s( e x p r ,< l i s t > ) D e v u e l v eu n an u e v al i s t ae nl aq u ee le l e m e n t oe x p rc o m os up r i m e r a e l e m e n t o ,s e g u i d op o rl o se l e m e n t o sd e< l i s t > .` C o n s' t a m b i nt r a b a j ae n o t r a se x p r e s i o n e s ,p o re j e m p l o ,` c o n t r a s( x ,f( a ,b ,c ) ) ;' > `f( x ,a ,b ,c ) ' .
F u n c i n :l i s t ad ec o p i a( < l i s t > ) D e v u e l v eu n ac o p i ad el al i s t a< l i s t > .
F u n c i n :c r e a t e _ l i s t( < f o r m > ,< x _ 1 > ,< l i s t _ 1 > ,. . . ,< x _ n > ,< l i s t _ n > ) C r e eu n al i s t am e d i a n t el ae v a l u a c i n< f o r m >c o n< x _ 1 >l i g a d o se n t r e e l e m e n t od e< l i s t _ 1 > ,yp a r ac a d au n od et a l e s< x _ 2 >b i n d i n gac a d au n o e l e m e n t od e< l i s t _ 2 > ,. . .E ln m e r od ee l e m e n t o se ne lr e s u l t a d o s e r e lp r o d u c t od e ln m e r od ee l e m e n t o se nc a d al i s t a .C a d a < x _ i >v a r i a b l ed e b es e re nr e a l i d a du ns m b o l o-n os e r e v a l u a d o .L al i s t ad ea r g u m e n t o ss e r e v a l u a d au n av e za l ap a r t i rd el ai t e r a c i n . ( %I 1 )c r e a t e _ l i s t( xî ,i ,[ 1 ,3 ,7 ] ) ; 37 ( %O 1 )[ x ,x ,x ] C o nu n ad o b l ei t e r a c i n : ( %I 1 )c r e a t e _ l i s t( [ i ,j ] ,i ,[ a ,b ] ,j ,[ e ,f ,h ] ) ; ( %O 1 )[ [ a ,e ] ,[ a ,f ] ,[ a ,h ] ,[ b ,e ] ,[ b ,f ] ,[ b ,h ] ] E nl u g a rd e< l i s t _ i >d o sa r g u m e n t o sp u e d e ns u m i n i s t r a r s ec a d au n od el o sc u a l e sd e b e e v a l u a rau nn m e r o .E s t o ss e r nl o si n c l u s i v ei n f e r i o rys u p e r i o r l m i t e sp a r al ai t e r a c i n . ( %I 1 )c r e a t e _ l i s t( [ i ,j ] ,i ,[ 1 ,2 ,3 ] ,j ,1 ,i ) ; ( %O 1 )[ [ 1 ,1 ] ,[ 2 ,1 ] ,[ 2 ,2 ] ,[ 3 ,1 ] ,[ 3 ,2 ] ,[ 3 ,3 ] ] T e n g ae nc u e n t aq u el o sl m i t e sol i s t ap a r al av a r i a b l e` j' p u e d e nd e p e n d e rd e e lv a l o ra c t u a ld e` i' .
F u n c i n :d e l e t e( < e x p r _ 1 > ,< e x p r _ 2 > ) F u n c i n :d e l e t e( < e x p r _ 1 > ,< e x p r _ 2 > ,< n > ) ` D e l e t e( < e x p r _ 1 > ,< e x p r _ 2 > )' q u i t ad e< e x p r _ 2 >n i n g na r g u m e n t o d es uo p e r a d o rd ep r i m e rn i v e l ,q u es o nl a sm i s m a s( s e g nl od e t e r m i n a d op o r " = " )C o m o< e x p r _ 1 > .T e n g ae nc u e n t aq u e" = "l a sp r u e b a sd el ai g u a l d a df o r m a l ,n o e q u i v a l e n c i a .T e n g ae nc u e n t at a m b i nq u el o sa r g u m e n t o sd es u b e x p r e s i o n e sn os o n a f e c t a d o s . < e x p r _ 1 >p u e d es e ru n t o m oou n ae x p r e s i nn oa t m i c a .< e x p r _ 2 >m a y o s e rc u a l q u i e re x p r e s i nn oa t m i c a .` D e l e t e' d e v u e l v eu n an u e v ae x p r e s i n ; n om o d i f i c a< e x p r _ 2 > .
33/633
28/08/13

` D e l e t e( < e x p r _ 1 > ,< e x p r _ 2 > ,< n > )' q u i t ad e< e x p r _ 2 >l ap r i m e r a a r g u m e n t o s< n >d e lo p e r a d o rd ea l t on i v e lq u es o nl o sm i s m o sq u e < e x p r _ 1 > .S ih a ym e n o sd e< n >t a l e sa r g u m e n t o s ,e n t o n c e st o d o s s ee l i m i n a ne s o sa r g u m e n t o s . E j e m p l o s : E x t r a c c i nd el o se l e m e n t o sd eu n al i s t a . ( %I 1 )d e l e t e( y ,[ w ,x ,y ,z ,z ,y ,x ,w ] ) ; ( %O 1 )[ w ,x ,z ,z ,x ,w ] E x t r a c c i nd et r m i n o sd eu n as u m a . ( %I 1 )d e l e t e( s i n( x ) ,x+s e n( x )+y ) ; ( %O 1 )y+x E x t r a c c i nd el o sf a c t o r e sd eu np r o d u c t o . ( %I 1 )d e l e t e( u-x ,( u-w )*( u-x )*( u-y )*( u-z ) ) ; ( %O 1 )( u-w )( u-y )( u-z ) E x t r a c c i nd el o sa r g u m e n t o sd eu n ae x p r e s i na r b i t r a r i a . ( %I 1 )d e l e t e( a ,f o o( a ,b ,c ,d ,a ) ) ; ( %O 1 )f o o( b ,c ,d ) L i m i t ee ln m e r od ea r g u m e n t o se x t r a d o s . ( %I 1 )d e l e t e( a ,f o o( a ,b ,a ,c ,d ,a ) ,2 ) ; ( %O 1 )f o o( b ,c ,d ,a ) Y as e aq u el o sa r g u m e n t o ss o nl o sm i s m o sq u e< e x p r _ 1 >s ed e t e r m i n ap o r" = " . A r g u m e n t o sq u es o n' i g u a l e s ' ,p e r on o" = "n os ee l i m i n a n . ( %I 1 )[ e s( i g u a l( 0 ,0 ) ) ,e s( i g u a l( 0 ,0 , 0 ) ) ,e s( i g u a l( 0 ,0 b 0 ) ) ] ; r a t a :0 , 0r e e m p l a z a d op o r0 / 1=0 , 0 ' R a t a 'r e e m p l a z a d op o r0 . 0 B 00 / 1=0 . 0 B 0 ( %O 1 )[ t r u e ,t r u e ,t r u e ] ( %I 2 )[ e s( 0=0 ) ,e s( 0=0 , 0 ) ,e s( 0=0 b 0 ) ] ; ( %O 2 )[ t r u e ,f a l s e ,f a l s e ] ( %I 3 )d e l e t e( 0 ,[ 0 ,0 . 0 ,0 B 0 ] ) ; ( %O 3 )[ 0 . 0 ,0 . 0 b 0 ] ( %I 4 )e s( i g u a l( ( x+y )*( x-y ) ,x^2-y^2 ) ) ; ( %O 4 )t r u e ( %I 5 )e s( ( x+y )*( x-y )=x^2-y^2 ) ; ( %O 5 )f a l s e ( %I 6 )B o r r a r( ( x+y )*( x-y ) ,[ ( x+y )*( x-y ) ,x^2-y^2 ] ) ; 22 ( %O 6 )[ X-Y ]
F u n c i n :o c t a v a( e x p r ) D e v u e l v ee le l e m e n t o8 ' t hd ee x p r e s i nol i s t ad ee x p r .C o n s u l t e` p r i m e r o' p a r am sd e t a l l e s .
F u n c i n :e n d c o n s( e x p r ,< l i s t > ) D e v u e l v eu n an u e v al i s t af o r m a d ap o rl o se l e m e n t o sd el a` l i s t a' s e g u i d op o r e x p r .` E n d c o n s' t a m b i no p e r ac o ne x p r e s i o n e sg e n e r a l e s ,p o re j e m p l o , ` E n d c o n s( x ,f( a ,b ,c ) ) ;' > `f( a ,b ,c ,x ) ' .
F u n c i n :q u i n t a( e x p r ) D e v u e l v ee le l e m e n t o5 ' t hd ee x p r e s i nol i s t ad ee x p r .C o n s u l t e` p r i m e r o' p a r am sd e t a l l e s .
F u n c i n :p r i m e r a( e x p r ) D e v u e l v el ap r i m e r ap a r t ed e< e x p r >q u ep u e d er e s u l t a re nl ap r i m e r a e l e m e n t od eu n al i s t a ,l ap r i m e r af i l ad eu n am a t r i z ,e lp r i m e rt r m i n od eu n a s u m ,e t cT e n g ae nc u e n t aq u e` p r i m e r o' ys u sf u n c i o n e sr e l a c i o n a d a s , 'd e s c a n s o' y ` P a s a d o ,e lt r a b a j oe nl af o r m ad ee x p rq u es em u e s t r an oe sl af o r m a q u es ee s c r i b ee nl ae n t r a d a .S ie l` i n f l a g' v a r i a b l es ee s t a b l e c ee n ` T r u e' S i ne m b a r g o ,e s t a sf u n c i o n e ss ev e r e nl af o r m ai n t e r n ad e e x p r .T e n g ae nc u e n t aq u ee ls i m p l i f i c a d o rr e o r d e n ae x p r e s i o n e s .A s ` P r i m e r o( x+y )' s e r 'x' s i ì n f l a g 'e s` t r u e' y 'y' s i ì n f l a g ' e s' f a l s e '( ' f i r s t( y+x )d ae lm i s m or e s u l t a d o ) .L a sf u n c i o n e s ' S e g u n d o '. . .` X' d a re ls e g u n d oat r a v sd el ad c i m ap a r t ed e s ua r g u m e n t od ee n t r a d a .
F u n c i n :c u a r t o( e x p r ) D e v u e l v ee le l e m e n t o4 ' t hd ee x p r e s i nol i s t ad ee x p r .C o n s u l t e` p r i m e r o'
34/633
28/08/13
p a r am sd e t a l l e s .
F u n c i n :u n i r( < l > ,< m > ) C r e au n an u e v al i s t aq u ec o n t i e n el o se l e m e n t o sd el a sl i s t a s< L >y< m > , i n t e r c a l a d o s .E lr e s u l t a d ot i e n ee l e m e n t o s` [ < l >[ 1 ] ,< m >[ 1 ] ,< l >[ 2 ] , < m >[ 2 ] ,. . . ] .E l< l >l i s t a sy< m >p u e d e nc o n t e n e rc u a l q u i e rt i p od e e l e m e n t o s . S il a sl i s t a ss o nd ed i f e r e n t el o n g i t u d ,' u n i r 'h a c ec a s oo m i s od el o se l e m e n t o sd el a l i s t am sl a r g a . M a x i m as eq u e j as i< l >o< m >n oe su n al i s t a . E j e m p l o s : ( %I 1 )L 1 :[ !U n a ,s e n( b ) ,c ,d-1 ] ; ( %O 1 )[ a ,s e n( b ) ,c ,d-1 ] ( %I 2 )j o i n( L 1 ,[ 1 ,2 ,3 ,4 ] ) ; ( %O 2 )[ a ,1 ,s e n( b ) ,2 ,c ,3 ,d-1 ,4 ] ( %I 3 )j o i n( L 1 ,[ a a ,b b ,c c ,d d ,e e ,f f ] ) ; ( %O 3 )[ A ,A A ,s e n( b ) ,b b ,c ,c c ,d-1 ,d d ]
F u n c i n :p a s a d o( e x p r ) D e v u e l v el a l t i m ap a r t e( t r m i n o ,f i l a ,e l e m e n t o ,e t c )d el ae x p r .
F u n c i n :l o n g i t u d( e x p r ) R e t u r n s( p o rd e f e c t o )e ln m e r od ep a r t e se ne le x t e r i o r ( S ev i s u a l i z a )f o r m ad ee x p r .P a r al a sl i s t a se se ln m e r od e e l e m e n t o s ,p o rm a t r i c e se se ln m e r od ef i l a syd el a ss u m a sq u e e se ln m e r od et r m i n o s( v a s e` d i s p f o r m' ) . L al o n g i t u dd e` ' c o m a n d os ev ea f e c t a d ap o re l ì n f l a g 'i n t e r r u p t o r .A s ,p o re j e m p l o , ` L o n g i t u d( a/( b*c ) ) ;' d a2s i ì n f l a g 'e s' f a l s e '( A s u m i e n d o ` E x p t d i s p f l a g' e s `t r u e ' ) ,p e r o3s i` i n f l a g' e s `t r u e '( e l r e p r e s e n t a c i ni n t e r n ae s` a*b^1*c^1' ) .
V a r i a b l eo p c i o n a l :l i s t a r i t h V a l o rp o rd e f e c t o :t r u e' S i` f a l s e' h a c eq u es er e a l i c e no p e r a c i o n e sa r i t m t i c a sc o nl i s t a sp a r as e r s u p r i m i d o s ,c u a n d o` t r u e' ,l a so p e r a c i o n e sc o nl i s t a sym a t r i c e ss o nc o n t a g i o s a s c a u s a n d ol i s t a sp a r as e rc o n v e r t i d a se nm a t r i c e sp r o d u c i e n d ou nr e s u l t a d oq u e e ss i e m p r eu n am a t r i z .S i ne m b a r g o ,l a so p e r a c i o n e sd el i s t ac o nl i s t a sd e v o l v e r n l i s t a s .
F u n c i n :l i s t p( e x p r ) D e v u e l v e` t r u e' s ie x p re su n al i s t am s 'f a l s e' .
F u n c i n :m a k e L i s t( ) F u n c i n :m a k e L i s t( e x p r ,< n > ) F u n c i n :m a k e L i s t( e x p r , , ) F u n c i n :m a k e L i s t( e x p r , , , ) F u n c i n :m a k e L i s t( e x p r , , , ,< s t e p > ) F u n c i n :m a k e L i s t( e x p r ,< x >< l i s t > ) L ap r i m e r af o r m a ,` m a k e L i s t( )' ,c r e au n al i s t av a c a .L as e g u n d a f o r m a ,` m a k e L i s t( e x p r )' ,c r e au n al i s t ac o n< e x p r >c o m o n i c o e l e m e n t o .` M a k e L i s t( e x p r ,< n > )' c r e au n al i s t ad ee l e m e n t o s< n > g e n e r a d aap a r t i rd e< e x p r > . L af o r m am sg e n e r a l ,` m a k e L i s t( e x p r , , , , < s t e p > )' ,d e v u e l v el al i s t ad ee l e m e n t o so b t e n i d o sc u a n d o` e v( e x p r , =< j > )' s ea p l i c aal a< j >e l e m e n t o sd el as e c u e n c i a : , +< s t e p > ,+2*< s t e p > ,. . . ,c o n< |j| >m e n o ro i g u a la< |I _ m x| > . E l< s t e p >i n c r e m e n t op u e d es e ru nn m e r o( p o s i t i v oon e g a t i v o )ou n e x p r e s i n .S is eo m i t e ,s eu t i l i z a r e lv a l o rp o rd e f e c t o1 .S i t a n t oy< s t e p >s eo m i t e n ,q u ea m b o st i e n e nu nd e f e c t o v a l o rd e1 . ` M a k e L i s t( e x p r ,< x >< l i s t > )' d e v u e l v eu n al i s t a ,e l ' 't h `j d ec u y o se l e m e n t o se si g u a la` e v( e x p r ,< x >=< l i s t >[ j ] )' p a r a `j ' i g u a la1a` l o n g i t u d( < l i s t > ) . E j e m p l o s :
35/633
28/08/13

( %I 1 )m a k e L i s t( c o n c a t( x ,i ) ,i ,6 ) ; ( %O 1 )[ x 1 ,x 2 ,x 3 ,x 4 ,x 5 ,x 6 ] ( %I 2 )m a k e L i s t( x=y ,y ,[ a ,b ,c ] ) ; ( %O 2 )[ x=a ,x=b ,x=c ] ( %I 3 )m a k e L i s t( x^2 ,x ,3 ,2* %p i ,2 ) ; ( %O 3 )[ 9 ,2 5 ] ( %I 4 )m a k e L i s t( a la z a r( 6 ) ,4 ) ; ( %O 4 )[ 2 ,0 ,2 ,5 ] ( %I 5 )a p l a n a r( m a k e L i s t( m a k e L i s t( i^2 ,3 ) ,i ,4 ) ) ; ( %O 5 )[ 1 ,1 ,1 ,4 ,4 ,4 ,9 ,9 ,9 ,1 6 ,1 6 ,1 6 ] ( %I 6 )a p l a n a r( m a k e L i s t( m a k e L i s t( i^2 ,i ,3 ) ,4 ) ) ; ( %O 6 )[ 1 ,4 ,9 ,1 ,4 ,9 ,1 ,4 ,9 ,1 ,4 ,9 ]
F u n c i n :m i e m b r o( < e x p r _ 1 > ,< e x p r _ 2 > ) D e v u e l v e` t r u e' s i 'e s( < e x p r _ 1 >=< a > )' p o ra l g u n a< a >e l e m e n t o ` A r g s( < e x p r _ 2 > )' ,d el oc o n t r a r i od e v u e l v e 'f a l s e' . ` E x p r _ 2' e st p i c a m e n t eu n al i s t a ,e nc u y oc a s o à r g s( < e x p r _ 2 > )= < e x p r _ 2 >' y 'e s( < e x p r _ 1 >=< a > )' p o ra l g u n a< a >e l e m e n t o ` E x p r _ 2' e sl ap r u e b a . ' M i e m b r o 'n oi n s p e c c i o n al a sp a r t e sd el o sa r g u m e n t o sd e` e x p r _ 2' ,p o rl oq u e p u e d ed e v o l v e r` f a l s e' i n c l u s os ie x p r _ 1 ` 'e su n ap a r t ed eu na r g u m e n t od e ` E x p r _ 2' . C o n s u l t et a m b i n` e l e m e n t p' . E j e m p l o s : ( %I 1 )m i e m b r o( 8 ,[ 8 ,8 . 0 ,8 b 0 ] ) ; ( %O 1 )t r u e ( %I 2 )m i e m b r o( 8 ,[ 8 . 0 ,8 b 0 ] ) ; ( %O 2 )f a l s e ( %I 3 )m i e m b r o( b ,[ a ,b ,c ] ) ; ( %O 3 )t r u e ( %I 4 )m i e m b r o( b ,[ [ a ,b ] ,[ b ,c ] ] ) ; ( %O 4 )f a l s e ( %I 5 )m i e m b r o( [ b ,c ] ,[ [ a ,b ] ,[ b ,c ] ] ) ; ( %O 5 )t r u e ( %I 6 )F( 1 ,1 / 2 ,1 / 4 ,1 / 8 ) ; 111 ( %O 6 )F( 1 ,,,) 248 ( %I 7 )m i e m b r o( 1 / 8 , % ) ; ( %O 7 )t r u e ( %I 8 )m i e m b r o( " a b " ,[ " a a " ," a b " ,e lp e c a d o( 1 ) ,a+b ] ) ; ( %O 8 )t r u e
F u n c i n :n o n o( e x p r ) D e v u e l v ee le l e m e n t o9 ' t hd ee x p r e s i nol i s t ad ee x p r .C o n s u l t e` p r i m e r o' p a r am sd e t a l l e s .
F u n c i n :p o p( < l i s t > ) ` P o p' q u i t ae lp r i m e re l e m e n t od el al i s t ayv u e l v e< l i s t > e s t ee l e m e n t o .< l i s t >d e b es e ru ns m b o l o ,q u es eu n eau n al i s t a yn oal ap r o p i al i s t a . S ie la r g u m e n t o< l i s t >n oe s t v i n c u l a d aau n al i s t aol al i s t ae s v a c o ,M a x i m ag e n e r a r u nm e n s a j ed ee r r o r . C o n s u l t et a m b i n` p u s h' p a r av e re j e m p l o s . P a r au t i l i z a re s t af u n c i n ,e lp a q u e t ea d i c i o n a l" b s i c o "s ed e b ec a r g a r p r i m e r o :` l o a d( "b s i c o" ) .
F u n c i n :e m p u j e( ,< l i s t > ) ' P u s h 'a n t e p o n el ae l e m e n t oal al i s t a< l i s t >yd e v u e l v eu n c o p i ad el an u e v al i s t a .< l i s t >d e b es e ru ns m b o l o ,q u ee s t o b l i g a d oa u n al i s t ayn ol ap r o p i al i s t a .p u e d es e rc u a l q u i e rs m b o l oM a x i m a oe x p r e s i n . S ie la r g u m e n t o< l i s t >n oe s t v i n c u l a d aau n al i s t a ,M a x i m ag e n e r au n m e n s a j ed ee r r o r . V a s et a m b i n' p o p 'p a r ae l i m i n a re lp r i m e re l e m e n t od eu n al i s t a . ( " B s i c o " ) c a r g a s `c a r g ae s t af u n c i n . E j e m p l o s : ( %I 1 )l o a d( " b s i c o " )$ ( %I 2 )l l :[ ] ; ( %O 2 )[ ]
36/633
28/08/13
( %I 3 )p u s h( x ,l l ) ; ( %O 3 )[ x ] ( %I 4 )p u s h( x^2+y ,l l ) ;
2 ( %O 4 )[ y+x ,x ] ( %I 5 )a :p u s h( " s t r i n g " ,l l ) ; 2 ( %O 5 )[ c a d e n a ,y+x ,x ] ( %I 6 )p o p( l l ) ; ( %O 6 )s t r i n g ( %I 7 )p o p( l l ) ; 2 ( %O 7 )y+x ( %I 8 )p o p( l l ) ; ( %O 8 )x ( %I 9 )l l ; ( %O 9 )[ ] ( %I 1 0 )u n a ; 2 ( %O 1 0 )[ c a d e n a ,y+x ,x ]
F u n c i n :r e s t o( e x p r ,< n > ) F u n c i n :r e s t o( e x p r ) D e v u e l v ee x p rc o ns u sp r i m e r o se l e m e n t o s< n >q u i t a rs ie s< n > p o s i t i v oys u s l t i m o s` -E l e m e n t o s< n >' q u i t a rs i< n >e sn e g a t i v o . S i< n >e s1p u e d es e ro m i t i d o .e x p rp u e d es e ru n al i s t a ,m a t r i zo o t r ae x p r e s i n .
F u n c i n :i n v e r s o( < l i s t > ) I n v i e r t ee lo r d e nd el o sm i e m b r o sd el a< l i s t >( n ol o sm i e m b r o s e l l o sm i s m o s ) .` A t r s' t a m b i no p e r ac o ne x p r e s i o n e sg e n e r a l e s ,p o re j e m p l o , ` R e v e r s e( a=b ) ;' d a `b=a .
F u n c i n :s e g u n d o( e x p r ) D e v u e l v ee le l e m e n t o2 ' n dd ee x p r e s i nol i s t ad ee x p r .C o n s u l t e` p r i m e r o' p a r am sd e t a l l e s .
F u n c i n :s p t i m o( e x p r ) D e v u e l v ee la r t c u l o7' t hd ee x p r e s i nol i s t ad ee x p r .C o n s u l t e` p r i m e r o' p a r am sd e t a l l e s .
F u n c i n :s e x t o( e x p r ) D e v u e l v ee le l e m e n t o6' t hd ee x p r e s i nol i s t ad ee x p r .C o n s u l t e` p r i m e r o' p a r am sd e t a l l e s .
F u n c i n :t i p o( < L > , ) F u n c i n :t i p o( < L > ) ' O r d e n au n a< L >l i s t ad ea c u e r d oau np r e d i c a d o` P ' `s o r t( < L > , )d e d o sa r g u m e n t o sq u ed e f i n eu ne s t r i c t oo r d e nd b i le nl o se l e m e n t o sd e < L > .S i` ( a ,b )' e s `t r u e ' ,yl u e g o' a 'a p a r e c ea n t e sd e` b' e ne l c o m or e s u l t a d o .S in i n g u n od el o s` ( a ,b )' n i `( b ,a ) 's o n' t r u e ' ,e n t o n c e s ` A' y 'b' s o ne q u i v a l e n t e s ,ya p a r e c e ne ne lr e s u l t a d od el am i s m a o r d e nq u ee nl ae n t r a d a .E sd e c i r ,` t i p o' e su n ae s p e c i ee s t a b l e . S i` ( a ,b )' y `( b ,a )" s o nal av e z `t r u e 'p a r aa l g u n o se l e m e n t o s d e< L > ,e n t o n c e sn oe su np r e d i c a d oe s p e c i ev l i d a ,ye lr e s u l t a d oe s i n d e f i n i d o .S i` ( a ,b )' e sa l g om sq u e `t r u e 'o ' F a l s e ' ,' t i p o 's e a l au ne r r o r . E lp r e d i c a d os ep u e d ee s p e c i f i c a rc o ne ln o m b r ed eu n af u n c i nob i n a r i o o p e r a d o ri n f i j o ,oc o m ou n ae x p r e s i nl a m b d a` ' .S is ee s p e c i f i c ac o m ol a n o m b r ed eu no p e r a d o r ,e ln o m b r ed e b ei re n t r ec o m i l l a sd o b l e s . L al i s t ao r d e n a d as ed e v u e l v ec o m ou no b j e t on u e v o ,e la r g u m e n t oe s< L > s i nm o d i f i c a r . ` S o r t( < L > )' e se q u i v a l e n t ea `s o r t( < L > ,o r d e r l e s s p ) . E lo r d e nd ec l a s i f i c a c i np r e d e t e r m i n a d oe sa s c e n d e n t e ,s e g nl od e t e r m i n e ` O r d e r l e s s p' .E lp r e d i c a d o' t i p o` o r d e r g r e a t pu n al i s t ad e o r d e nd e s c e n d e n t e . T o d o sl o s t o m o sye x p r e s i o n e sd eM a x i m as o nc o m p a r a b l e sb a j o` o r d e r l e s s p' y` o r d e r g r e a t p' . O p e r a d o r e s` < ' y ' >' n m e r o sd eo r d e n ,c o n s t a n t e syc o n s t a n t e s
37/633
28/08/13

e x p r e s i o n e sd em a g n i t u d .T e n g ae nc u e n t aq u e` o r d e r l e s s p "y ` O r d e r g r e a t p "n op i d a sn m e r o s ,c o n s t a n t e syc o n s t a n t e s e x p r e s i o n e sd em a g n i t u d . ` O r d e r m a g n i t u d e p' o r d e n an m e r o s ,c o n s t a n t e syc o n s t a n t e s e x p r e s i o n e sd e lm i s m oc o m o` < ' ,yt o d o sl o so t r o se l e m e n t o sd el am i s m ac o m o ` O r d e r l e s s p' . E j e m p l o s : T i p o` s o r t' u n al i s t ad ea c u e r d oc o nu np r e d i c a d od ed o sa r g u m e n t o s q u ed e f i n eu ne s t r i c t oo r d e nd b i le nl o se l e m e n t o sd el al i s t a . ( %I 1 )s o r t( [ 1 ,a ,b ,2 ,3 ,c ] ,' o r d e r l e s s p ) ; ( %O 1 )[ 1 ,2 ,3 ,a ,b ,c ] ( %I 2 )t i p o( [ 1 ,a ,b ,2 ,3 ,c ] ,' o r d e r g r e a t p ) ; ( %O 2 )[ c ,b ,a ,3 ,2 ,1 ] E lp r e d i c a d os ep u e d ee s p e c i f i c a rc o ne ln o m b r ed eu n af u n c i nob i n a r i o o p e r a d o ri n f i j o ,oc o m ou n ae x p r e s i nl a m b d a` ' .S is ee s p e c i f i c ac o m ol a n o m b r ed eu no p e r a d o r ,e ln o m b r ed e b ei re n t r ec o m i l l a sd o b l e s . ( %I 1 )L :[ [ 1 ,x ] ,[ 3 ,y ] ,[ 4 ,w ] ,[ 2 ,z ] ] ; ( %O 1 )[ [ 1 ,x ] ,[ 3 ,y ] ,[ 4 ,w ] ,[ 2 ,z ] ] ( %I 2 )f o o( a ,b ) :=a[ 1 ] >b[ 1 ] ; ( %O 2 )f o o( a ,b ) :=a >b 11 ( %I 3 )s o r t( L ,' f o o ) ; ( %O 3 )[ [ 4 ,w ] ,[ 3 ,y ] ,[ 2 ,z ] ,[ 1 ,x ] ] ( %I 4 )i n f i j a( " > > " ) ; ( %O 4 )> > ( %I 5 )a> >b :=a[ 1 ] >b[ 1 ] ; ( %O 5 )a> >b :=a >b 11 ( %I 6 )s o r t( L ," > > " ) ; ( %O 6 )[ [ 4 ,w ] ,[ 3 ,y ] ,[ 2 ,z ] ,[ 1 ,x ] ] ( %I 7 )s o r t( L ,l a m b d a( [ a ,b ] ,a[ 1 ] >b[ 1 ] ) ) ; ( %O 7 )[ [ 4 ,w ] ,[ 3 ,y ] ,[ 2 ,z ] ,[ 1 ,x ] ] ` S o r t( < L > )' e se q u i v a l e n t ea `s o r t( < L > ,o r d e r l e s s p ) . ( %I 1 )L :[ a ,b*2 ,5 ,7 ,1+ %e , %p i ] ; ( %O 1 )[ a ,2b ,-5 ,7 , %e+1 , %p i ] ( %I 2 )s o r t( L ) ; ( %O 2 )[ -5 ,7 , %e+1 , %p i ,a ,2b ] ( %I 3 )s o r t( L' o r d e r l e s s p ) ; ( %O 3 )[ -5 ,7 , %e+1 , %p i ,a ,2b ] E lo r d e nd ec l a s i f i c a c i np r e d e t e r m i n a d oe sa s c e n d e n t e ,s e g nl od e t e r m i n e ` O r d e r l e s s p' .E lp r e d i c a d o' t i p o` o r d e r g r e a t pu n al i s t ad e o r d e nd e s c e n d e n t e . ( %I 1 )L :[ a ,b*2 ,5 ,7 ,1+ %e , %p i ] ; ( %O 1 )[ a ,2b ,-5 ,7 , %e+1 , %p i ] ( %I 2 )s o r t( L ) ; ( %O 2 )[ -5 ,7 , %e+1 , %p i ,a ,2b ] ( %I 3 )s o r t( L' o r d e r g r e a t p ) ; ( %O 3 )[ 2b ,a , %p i , %e+1 ,7 ,-5 ] T o d o sl o s t o m o sye x p r e s i o n e sd eM a x i m as o nc o m p a r a b l e sb a j o` o r d e r l e s s p' y` o r d e r g r e a t p' . ( %I 1 )L :[ 1 1 ,1 7 ,2 9 b 0 ,9*c ,7 , 5 5 ,f o o( x ,y ) ,5/2 ,b+a ] ; 5 ( %O 1 )[ 1 1 ,-1 7 ,2 . 9 b 1 ,9c ,7 , 5 5 ,f o o( x ,y ) ,,b+a ] 2 ( %I 2 )s o r t( L ,o r d e r l e s s p ) ; 5 ( %O 2 )[ -1 7 ,,7 , 5 5 ,1 1 ,2 . 9 b 1 ,b+a ,9c ,f o o( x ,y ) ] 2 ( %I 3 )s o r t( L ,o r d e r g r e a t p ) ; 5 ( %O 3 )[ f o o( x ,y ) ,9c ,b+a ,2 . 9 b 1 ,1 1 ,7 , 5 5 ,,-1 7 ] 2 O p e r a d o r e s` < ' y ' >' n m e r o sd eo r d e n ,c o n s t a n t e syc o n s t a n t e s e x p r e s i o n e sd em a g n i t u d .T e n g ae nc u e n t aq u e` o r d e r l e s s p "y ` O r d e r g r e a t p "n op i d a sn m e r o s ,c o n s t a n t e syc o n s t a n t e s e x p r e s i o n e sd em a g n i t u d . ( %I 1 )L :[ %p i ,3 ,4 , %e , %g a m m a ] ; ( %O 1 )[ %p i ,3 ,4 , %e , %d eg a m m a ] ( %I 2 )s o r t( L ," > " ) ; ( %O 2 )[ 4 , %p i ,3 , %e , %g a m m a ] ( %I 3 )s o r t( L ,o r d e r g r e a t p ) ; ( %O 3 )[ %p i , %g a m m a , %e ,4 ,3 ] ` O r d e r m a g n i t u d e p' o r d e n an m e r o s ,c o n s t a n t e syc o n s t a n t e s e x p r e s i o n e sd e lm i s m oc o m o` < ' ,yt o d o sl o so t r o se l e m e n t o sd el am i s m ac o m o ` O r d e r l e s s p' . ( %I 1 )L :[ %i , %i+1 ,2*x ,m i n f ,i n f , %e ,s i n( 1 ) ,0 ,1 ,2 ,3 ,1 . 0 ,1 . 0 B 0 ] ; ( %O 1 )[ %i , %i+1 ,x2 ,m i n f ,i n f , %e ,s i n( 1 ) ,0 ,1 ,2 ,3 ,1 . 0 , 1 . 0 B 0 ] ( %I 2 )s o r t( L ,o r d e r m a g n i t u d e p ) ; ( %O 2 )[ m i n f ,0 ,s i n( 1 ) ,1 ,1 . 0 ,1 . 0 B 0 ,2 , %e ,3 ,i n f , %i , %I+1 ,2x ]
38/633
28/08/13

( %I 3 )s o r t( L ,o r d e r l e s s p ) ; ( %O 3 )[ 0 ,1 ,1 . 0 ,2 ,3 , %e , %i , %i+1 ,i n f ,m i n f ,s i n( 1 ) , 1 . 0 B 0 ,2x ]
F u n c i n :s u b l i s t a( < l i s t > , ) D e v u e l v el al i s t ad ee l e m e n t o sd e< l i s t >p a r al o sq u ee lp r e d i c a d o` p' d e v u e l v e` t r u e' . E j e m p l o : ( %I 1 )L :[ 1 ,2 ,3 ,4 ,5 ,6 ] ; ( %O 1 )[ 1 ,2 ,3 ,4 ,5 ,6 ] ( %I 2 )s u b l i s t a( L ,e v e n p ) ; ( %O 2 )[ 2 ,4 ,6 ]
F u n c i n :s u b l i s t _ i n d i c e s( < L > , ) D e v u e l v el o s n d i c e sd el o se l e m e n t o sd e' x 'd el al i s t ap a r al aq u e< L > e lp r e d i c a d o` q u i z ( ( x ) )' d e v u e l v e 't r u e' ,l oq u ee x c l u y e ` D e s c o n o c i d o' ,a s c o m o 'f a l s e' .P u e d es e re ln o m b r ed eu n af u n c i n ou n ae x p r e s i nl a m b d a .< L >D e b es e ru n al i s t al i t e r a l . E j e m p l o s : ( %I 1 )s u b l i s t _ i n d i c e s( ' [ a ,b ,b ,c ,1 ,2 ,b ,3 ,b ] , l a m b d a( [ x ] ,x=' b ) ) ; ( %O 1 )[ 2 ,3 ,7 ,9 ] ( %I 2 )s u b l i s t _ i n d i c e s( ' [ a ,b ,b ,c ,1 ,2 ,b ,3 ,b ] ,s y m b o l p ) ; ( %O 2 )[ 1 ,2 ,3 ,4 ,7 ,9 ] ( %I 3 )s u b l i s t _ i n d i c e s( [ 1 >0 ,1< 0 ,2< 1 ,2 >1 ,2 >0 ] , i d e n t i d a d ) ; ( %O 3 )[ 1 ,4 ,5 ] ( %I 4 )a s u m i r ( x< 1 ) ; ( %O 4 )[ x< -1 ] ( %I 5 )m a p a( t a lv e z ,[ x >0 ,x< 0 ,x< 2 ] ) ; ( %O 5 )[ f a l s o ,v e r d a d e r o ,d e s c o n o c i d o ] ( %I 6 )s u b l i s t _ i n d i c e s( [ x >0 ,x< 0 ,x< 2 ] ,i d e n t i d a d ) ; ( %O 6 )[ 2 ]
F u n c i n : n i c a( < L > ) D e v u e l v el o se l e m e n t o s n i c o sd el al i s t a< L > . C u a n d ot o d o sl o se l e m e n t o sd e< L >s o n n i c o s ,` n i c o' d e v u e l v eu n c o p i as u p e r f i c i a l< L > ,n o< L >s . S i< L >n oe su n al i s t a ,` n i c o' v u e l v e< L > . E j e m p l o : ( %I 1 ) n i c o( [ 1 , %p i ,a+b ,2 ,1 , %e , %p i ,a+b ,[ 1 ] ] ) ; ( %O 1 )[ 1 ,2 , %e , %p i ,[ 1 ] ,b+a ] F u n c i n :d c i m o( e x p r ) D e v u e l v ee le l e m e n t o1 0 ' t hd ee x p r e s i nol i s t ad ee x p r .C o n s u l t e` p r i m e r o' p a r am sd e t a l l e s .
F u n c i n :t e r c e r a( e x p r ) D e v u e l v ee le l e m e n t o3 ' r dd ee x p r e s i nol i s t ad ee x p r .C o n s u l t e` p r i m e r o' p a r am sd e t a l l e s .
5.5 Matrices
*F u n c i o n e syv a r i a b l e sp a r aA r r a y s: :
F u n c i n :a r r a y( < n o m b r e > ,< d i m _ 1 > ,. . . ,< d i m _ n > ) F u n c i n :a r r a y( < n o m b r e > ,< t i p o > ,< d i m _ 1 > ,. . . ,< d i m _ n > ) F u n c i n :a r r a y( [ < n a m e _ 1 > ,. . . ,< n a m e _ m > ] ,< d i m _ 1 > ,. . . ,< d i m _ n > ) C r e au n am a t r i zn d i m e n s i o n a l .np u e d es e ri n f e r i o roi g u a la5 . L o ss u b n d i c e sd el ai s i m ad i m e n s i ns o ne n t e r o sq u e d e0a< d i m _ i > . ` A r r a y( < n o m b r e > ,< d i m _ 1 > ,. . . ,< d i m _ n > )' c r e au n am a t r i zg e n e r a l . ` A r r a y( < n o m b r e > ,< t i p o > ,< d i m _ 1 > ,. . . ,< d i m _ n > )' c r e au n am a t r i z , c o ne l e m e n t o sd eu nt i p oe s p e c i f i c a d o .< t i p o >p u e d es e r` f i x n u m' p a r a n m e r o se n t e r o sd et a m a ol i m i t a d oo` f l o n u m' p a r al o sn m e r o sd ep u n t of l o t a n t e .
39/633
28/08/13

` A r r a y( [ < n a m e _ 1 > ,. . . ,< n a m e _ m > ] ,< d i m _ 1 > ,. . . ,< d i m _ n > )' c r e a ma r r a y s ,t o d o sd el a sm i s m a sd i m e n s i o n e s . S ie lu s u a r i oa s i g n aau n av a r i a b l ec o ns u b n d i c ea n t e sd ed e c l a r a rl a a r r a yc o r r e s p o n d i e n t e ,s ec r e au na r r a yn od e c l a r a d o .S i nd e c l a r a r a r r a y s ,t a m b i nc o n o c i d o sc o m oc o n j u n t o sd eh a s h( p o rc d i g oh a s he s h e c h oe nl o ss u b n d i c e s ) ,s o nm sg e n e r a l e sq u el o sa r r a y sd e c l a r a d o s . E lu s u a r i on on e c e s i t ad e c l a r a rs ut a m a om x i m oyp u e d e ni rc r e c i e n d o d i n m i c a m e n t eh a s hc o m om se l e m e n t o st i e n e nv a l o r e sa s i g n a d o s .L a s u b n d i c e sd ea r r a y sn od e c l a r a d o sn on e c e s i t a ns e rn m e r o s .S i ne m b a r g o , am e n o sq u eu na r r e g l oe sm sb i e ne s c a s a ,e sp r o b a b l e m e n t em se f i c i e n t e d e c l a r a r l os e ap o s i b l ea n t e sq u ed e j a r l oc o m on od e c l a r a d o .E l` a r r a y' f u n c i ns ep u e d eu t i l i z a rp a r at r a n s f o r m a ru na r r a yn od e c l a r a d oe nu n a d e c l a r a d oc o n j u n t o .
F u n c i n :a r r a y a p p l y( < A > ,[ ,. . . , ] ) E v a l a` < A >[ ,. . . , ]' ,d o n d e< A >e su n am a t r i zy ,. . . ,s o nn m e r o se n t e r o s . E s t oe su n ar e m i n i s c e n c i ad e' a p l i c a r ' ,e x c e p t oe lp r i m e ra r g u m e n t oe su n m a t r i ze nl u g a rd eu n af u n c i n .
F u n c i n :a r r a y i n f o( < A > ) D e v u e l v ei n f o r m a c i ns o b r ee l< A >m a t r i z .E la r g u m e n t op u e d es e r< A > u na r r a yd e c l a r a d o ,u na r r a yn od e c l a r a d o( h a s h e d ) ,u n af u n c i na r r a y , ou n af u n c i nd es u b n d i c e . P a r aa r r a y sd e c l a r a d o s ,` a r r a y i n f o' d e v u e l v eu n al i s t aq u ec o n t i e n ee l t o m o ` D e c l a r a d o' ,e ln m e r od ed i m e n s i o n e s ,ye lt a m a od ec a d au n o d i m e n s i n .L o se l e m e n t o sd el am a t r i z ,t a n t ol o sq u en o ,s o n d e v u e l t op o r` l i s t a r r a y' . D ea r r a y sn od e c l a r a d o s( h a s h e da r r a y s ) ,` a r r a y i n f o' d e v u e l v eu n al i s t a q u ec o m p r e n d ee l t o m od e` h a s h' ,e ln m e r od es u b n d i c e s ,ye l s u b n d i c e sd ec a d ae l e m e n t oq u et i e n eu nv a l o r .L o sv a l o r e ss o n d e v u e l t op o r` l i s t a r r a y' . P a r al a sf u n c i o n e sd em a t r i z ,` a r r a y i n f o' d e v u e l v eu n al i s t aq u ec o n t i e n ee l t o m o ` H a s h' ,e ln m e r od es u b n d i c e syl o ss u b n d i c e sp a r al o s q u ea l l s ea l m a c e n a nv a l o r e sd el af u n c i n .L af u n c i na l m a c e n a d a L o sv a l o r e ss o nd e v u e l t o sp o r` l i s t a r r a y' . P a r al a sf u n c i o n e sd es u b n d i c e ,` a r r a y i n f o' d e v u e l v eu n al i s t aq u ec o m p r e n d e e l t o m od e` h a s h' ,e ln m e r od es u b n d i c e s ,yc u a l q u i e rs u b n d i c e l o sv a l o r e sp a r al o sq u eh a ye x p r e s i o n e sl a m b d a .L al a m b d a e x p r e s i o n e ss o nd e v u e l t o sp o r` l i s t a r r a y' . C o n s u l t et a m b i n` l i s t a r r a y' . E j e m p l o s : A r r a y i n f o` ' y `l i s t a r r a y 'a p l i c a d oau na r r a yd e c l a r a d o . ( %I 1 )m a t r i z( A A ,2 ,3 ) ; ( %O 1 )a a ( %I 2 )b i s[ 2 ,3 ] : %p i ; ( %O 2 ) %p i ( %I 3 )a a[ 1 ,2 ] : %e ; ( %O 3 ) %e ( %I 4 )a r r a y i n f o( a a ) ; ( %O 4 )[ d e c l a r a d o ,2 ,[ 2 ,3 ] ] ( %I 5 )l i s t a r r a y( a a ) ; ( %O 5 )[ ##### ,##### ,##### ,##### ,##### ,##### , %e ,##### , ##### ,##### ,##### , %P i ] A r r a y i n f o` ' y `l i s t a r r a y 'a p l i c a d oau nn od e c l a r a d o( h a s h ) a r r a y . ( %I 1 )b b[ F O O ] :( a+b )^2 ; 2 ( %O 1 )( b+a ) ( %I 2 )b b[ B A R ] :( c-d )^3 ; 3 ( %O 2 )( c-d ) ( %I 3 )a r r a y i n f o( b b ) ; ( %O 3 )[ h a s h ,1 ,[ B A R ] ,[ F O O ] ] ( %I 4 )l i s t a r r a y( b b ) ; 32 ( %O 4 )[ ( c-d ) ,( B+A ) ] A r r a y i n f o` ' y `l i s t a r r a y 'a p l i c a d oau n af u n c i na r r a y . ( %I 1 )c c[ x ,y ] :=y/x ; y ( %O 1 )c c :=x ,y x ( %I 2 )c c[ u ,v ] ; v ( %O 2 )u
40/633
28/08/13
( %I 3 )c c[ 4 ,z ] ;

z ( %O 3 )4 ( %I 4 )a r r a y i n f o( c c ) ; ( %O 4 )[ h a s h ,2 ,[ 4 ,z ] ,[ u ,v ] ] ( %I 5 )l i s t a r r a y( c c ) ; z v ( %O 5 )[ ,] 4u A r r a y i n f o` ' y `l i s t a r r a y 'a p l i c a d oau n af u n c i nd es u b n d i c e . ( %I 1 )d d[ x ]( y ) :=y^x ; x ( %O 1 )d d( y ) :=y x ( %I 2 )d d[ a+b ] ; b+a ( %O 2 )l a m b d a( [ y ] ,y ) ( %I 3 )d d[ v-u ] ; v-u ( %O 3 )l a m b d a( [ y ] ,y ) ( %I 4 )a r r a y i n f o( d d ) ; ( %O 4 )[ h a s h ,1 ,[ b+a ] ,[ v-u ] ] ( %I 5 )l i s t a r r a y( d d ) ; b+a v-u ( %O 5 )[ l a m b d a( [ y ] ,y ) ,l a m b d a( [ y ] ,y ) ]
F u n c i n :a r r a y m a k e( < A > ,[ ,. . . , ] ) D e v u e l v el ae x p r e s i n` < A >[ ,. . . , ]' .E lr e s u l t a d oe su n a s i ne v a l u a rr e f e r e n c i aau na r r a y . A r r a y m a k e` ' e su n ar e m i n i s c e n c i ad e l `f u n m a k e ' ,e x c e p t oe lv a l o rd er e t o r n o e su n ar e f e r e n c i aau na r r a yn oe v a l u a d ae nl u g a rd eu n an oe v a l u a d o l l a m a d ad ef u n c i n . E j e m p l o s : ( %I 1 )a r r a y m a k e( A ,[ 1 ] ) ; ( %O 1 )U n 1 ( %I 2 )a r r a y m a k e( A ,[ k ] ) ; ( %O 2 )A k ( %I 3 )a r r a y m a k e( A ,[ i ,j ,3 ] ) ; ( %O 3 )A i ,j ,3 ( %I 4 )m a t r i z( A ,f i x n u m ,1 0 ) ; ( %O 4 )U n ( %I 5 )f i l l a r r a y( A ,m a k e L i s t( i^2 ,i ,1 ,1 1 ) ) ; ( %O 5 )U n ( %I 6 )a r r a y m a k e( A ,[ 5 ] ) ; ( %O 6 )U n 5 ( %I 7 ) ' ' % ; ( %O 7 )3 6 ( %I 8 )L :[ a ,b ,c ,d ,e ] ; ( %O 8 )[ a ,b ,c ,d ,e ] ( %I 9 )a r r a y m a k e( ' L ,[ n ] ) ; ( %O 9 )L n ( %I 1 0 ) ' ' % ,n=3 ; ( %O 1 0 )c ( %I 1 1 )A 2 :m a k e _ a r r a y( f i x n u m ,1 0 ) ; ( %O 1 1 ){ a r r a y :#( 0000000000 ) } ( %I 1 2 )f i l l a r r a y( A 2 ,[ 1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,1 0 ] ) ; ( %O 1 2 ){ M a t r i z :#( 1234567891 0 ) } ( %I 1 3 )a r r a y m a k e( ' A 2 ,[ 8 ] ) ; ( %O 1 3 )A 2 8 ( %I 1 4 ) ' ' % ; ( %O 1 4 )9
V a r i a b l ed e ls i s t e m a :a r r a y s V a l o rp o rd e f e c t o :[ ]' ' A r r a y s 'e su n al i s t ad ea r r e g l o sq u eh a ns i d oa s i g n a d o s .E s t o s c o m p r e n d e na r r a y sd e c l a r a d o sp o r` a r r a y' ,h a s h e da r r a y sc o n s t r u i d o sp o r d e f i n i c i ni m p l c i t a( a s i g n a n d oa l g oau ne l e m e n t od el am a t r i z ) ,y u na r r e g l od ef u n c i o n e sd e f i n i d a sp o r` :=' y 'd e f i n i r' .L o sa r r a y sd e f i n i d o sp o r ` M a k e _ a r r a y' n oe s t ni n c l u i d o s . C o n s u l t et a m b i n` a r r a y' , à r r a y a p p l y ' ,` a r r a y i n f o' , A r r a y m a k e` ' , `f i l l a r r a y ' ,` l i s t a r r a y' y `r e A r r a y ' . E j e m p l o s : ( %I 1 )a r r a y( a a ,5 ,7 ) ; ( %O 1 )a a
41/633
28/08/13
( %I 2 )b b[ F O O ] :( a+b )^2 ;

2 ( %O 2 )( b+a ) ( %I 3 )c c[ x ] :=x / 1 0 0 ; x ( %O 3 )c c :=x1 0 0 ( %I 4 )d d :m a k e _ a r r a y( ' n i n g u n a ,7 ) ; ( %O 4 ){ a r r a y :#( N I LN I LN I LN I LN I LN I LN I L ) } ( %I 5 )m a t r i c e s ; ( %O 5 )[ a a ,b b ,c c ]
F u n c i n :f i l l a r r a y( < A > , ) R e l l e n aa r r a y< A >d e ,q u ee su n al i s t aou n am a t r i z . S iu nt i p oe s p e c f i c of u ed e c l a r a d ap o r< A >m o m e n t od es uc r e a c i n ,s e s l os ep u e d el l e n a rc o ne l e m e n t o sd ee s em i s m ot i p o ,s i n oq u ee su ne r r o r s is eh a c eu ni n t e n t od ec o p i a ru ne l e m e n t od eu nt i p od i f e r e n t e . S il a sd i m e n s i o n e sd el a sm a t r i c e s< A >ys o nd i f e r e n t e s ,e s< A > r e l l e n a d od el a sf i l a sp e d i d o .S in oh a ys u f i c i e n t e se l e m e n t o se n E l l t i m oe l e m e n t os eu t i l i z ap a r ar e l l e n a re lr e s t od e< A > .S i h a yd e m a s i a d o s ,s ei g n o r a nl a sr e s t a n t e s . ` F i l l a r r a y' d e v u e l v es up r i m e ra r g u m e n t o . E j e m p l o s : C r e a ru nc o n j u n t od e9e l e m e n t o syp o s t e r i o rr e l l e n od eu n al i s t a . ( %I 1 )a r r a y( a 1 ,f i x n u m ,8 ) ; ( %O 1 )a 1 ( %I 2 )l i s t a r r a y( A 1 ) ; ( %O 2 )[ 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ] ( %I 3 )f i l l a r r a y( a 1 ,[ 1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ] ) ; ( %O 3 )a 1 ( %I 4 )l i s t a r r a y( a 1 ) ; ( %O 4 )[ 1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ] C u a n d on oh a ys u f i c i e n t e se l e m e n t o sp a r ac u b r i re la r r a y ,e l l t i m o e l e m e n t os er e p i t e .C u a n d oh a yd e m a s i a d o se l e m e n t o sa d i c i o n a l e s ,l a s et i e n e ne nc u e n t ae l e m e n t o s . ( %I 1 )a 2 :m a k e _ a r r a y( f i x n u m ,8 ) ; ( %O 1 ){ a r r a y :#( 00000000 ) } ( %I 2 )f i l l a r r a y( a 2 ,[ 1 ,2 ,3 ,4 ,5 ] ) ; ( %O 2 ){ a r r a y :#( 12345555 ) } ( %I 3 )f i l l a r r a y( a 2 ,[ 4 ] ) ; ( %O 3 ){ M a t r i z :#( 44444444 ) } ( %I 4 )f i l l a r r a y( a 2 ,m a k e L i s t( i ,i ,1 ,1 0 0 ) ) ; ( %O 4 ){ M a t r i z :#( 12345678 ) } M u l t p l e d i m e n s i na r r a y ss el l e n a ne nl af i l a m a y o ro r d e n . ( %I 1 )a 3 :m a k e _ a r r a y( f i x n u m ,2 ,5 ) ; ( %O 1 ){ a r r a y :#2 A( ( 00000 )( 00000 ) ) } ( %I 2 )f i l l a r r a y( a 3 ,[ 1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,1 0 ] ) ; ( %O 2 ){ M a t r i z :#2 A( ( 12345 )( 67891 0 ) ) } ( %I 3 )A 4 :m a k e _ a r r a y( f i x n u m ,5 ,2 ) ; ( %O 3 ){ a r r a y :#2 A( ( 00 )( 00 )( 00 )( 00 )( 00 ) ) } ( %I 4 )f i l l a r r a y( a 4 ,a 3 ) ; ( %O 4 ){ M a t r i z :#2 A( ( 12 )( 34 )( 56 )( 78 )( 91 0 ) ) }
F u n c i n :l i s t a r r a y( < A > ) D e v u e l v eu n al i s t ad el o se l e m e n t o sd el a< A >m a t r i z .E la r g u m e n t o< A > p u e d es e ru na r r a yd e c l a r a d o ,u na r r a yn od e c l a r a d o( h a s h e d ) ,u n am a t r i z f u n c i nou n af u n c i nd es u b n d i c e . L o se l e m e n t o ss ee n u m e r a ne ne lo r d e nd el a sf i l a s .E sd e c i r ,l o se l e m e n t o se s t n o r d e n a d o sd ea c u e r d oc o ne lp r i m e r n d i c e ,ac o n t i n u a c i n ,d ea c u e r d oc o nl as e g u n d a n d i c e ,ya s s u c e s i v a m e n t e .E lo r d e nd ec l a s i f i c a c i nd el o sv a l o r e sd e n d i c ee se lm i s m oq u e e lo r d e ne s t a b l e c i d op o r` o r d e r l e s s' . P a r aa r r a y sn od e c l a r a d o s ,f u n c i o n e sa r r a yyf u n c i o n e ss u b n d i c e , l o se l e m e n t o sc o r r e s p o n d e nal o sv a l o r e sd e n d i c ed e v u e l t o sp o r ` A r r a y i n f o' . L o se l e m e n t o sd el o sa r r a y sd e c l a r a d o s( e sd e c i r ,n o` f i x n u m' yn o` f l o n u m' )s ed e v u e l v e nc o m o `#####" .L o se l e m e n t o ss i n d e c l a r a d a` f i x n u m' o `f l o n u m 'a r r a y ss ed e v u e l v e nc o m o00 , 0 , r e s p e c t i v a m e n t e .L o se l e m e n t o sd el o sa r r a y sn od e c l a r a d o s ,a r r a y f u n c i o n e syf u n c i o n e ss u b i n d i c a d a sn os ed e v u e l v e n . E j e m p l o s : L i s t a r r a y` ' y à r r a y i n f o 'a p l i c a d a sau na r r a yd e c l a r a d o . ( %I 1 )m a t r i z( A A ,2 ,3 ) ; ( %O 1 )a a ( %I 2 )b i s[ 2 ,3 ] : %p i ; ( %O 2 ) %p i ( %I 3 )a a[ 1 ,2 ] : %e ;
42/633
28/08/13

( %O 3 ) %e ( %I 4 )l i s t a r r a y( a a ) ; ( %O 4 )[ ##### ,##### ,##### ,##### ,##### ,##### , %e ,##### , ##### ,##### ,##### , %P i ] ( %I 5 )a r r a y i n f o( a a ) ; ( %O 5 )[ d e c l a r a d o ,2 ,[ 2 ,3 ] ] L i s t a r r a y` ' y à r r a y i n f o 'a p l i c a d o sau nn od e c l a r a d o( h a s h ) a r r a y . ( %I 1 )b b[ F O O ] :( a+b )^2 ; 2 ( %O 1 )( b+a ) ( %I 2 )b b[ B A R ] :( c-d )^3 ; 3 ( %O 2 )( c-d ) ( %I 3 )l i s t a r r a y( b b ) ; 32 ( %O 3 )[ ( c-d ) ,( B+A ) ] ( %I 4 )a r r a y i n f o( b b ) ; ( %O 4 )[ h a s h ,1 ,[ B A R ] ,[ F O O ] ] L i s t a r r a y` ' y à r r a y i n f o 'a p l i c a d a sau n af u n c i na r r a y . ( %I 1 )c c[ x ,y ] :=y/x ; y ( %O 1 )c c :=x ,y x ( %I 2 )c c[ u ,v ] ; v ( %O 2 )u ( %I 3 )c c[ 4 ,z ] ; z ( %O 3 )4 ( %I 4 )l i s t a r r a y( c c ) ; z v ( %O 4 )[ ,] 4u ( %I 5 )a r r a y i n f o( c c ) ; ( %O 5 )[ h a s h ,2 ,[ 4 ,z ] ,[ u ,v ] ] L i s t a r r a y` ' y à r r a y i n f o 'a p l i c a d a sau n af u n c i nd es u b n d i c e . ( %I 1 )d d[ x ]( y ) :=y^x ; x ( %O 1 )d d( y ) :=y x ( %I 2 )d d[ a+b ] ; b+a ( %O 2 )l a m b d a( [ y ] ,y ) ( %I 3 )d d[ v-u ] ; v-u ( %O 3 )l a m b d a( [ y ] ,y ) ( %I 4 )l i s t a r r a y( d d ) ; b+a v-u ( %O 4 )[ l a m b d a( [ y ] ,y ) ,l a m b d a( [ y ] ,y ) ] ( %I 5 )a r r a y i n f o( d d ) ; ( %O 5 )[ h a s h ,1 ,[ b+a ] ,[ v-u ] ]
F u n c i n :m a k e _ a r r a y( < t i p o > ,< d i m _ 1 > ,. . . ,< d i m _ n > ) C r e ayd e v u e l v eu na r r a yd eL i s p .< t i p o >p u e d es e r` n i n g u n a' , `f l o n u m ' , F i x n u m` ' , `h a s h 'o' f u n c i o n a l ' .H a y n d i c e sn ,ye l n d i c ei s i m ov ad e0a< d i m _ i >-1 . L av e n t a j ad e` m a k e _ a r r a y' s o b r e à r r a y 'e sq u ee lr e t o r n o v a l o rn ot i e n eu nn o m b r e ,yu n av e zq u eu np u n t e r oae l l ad e s a p a r e c e , T a m b i nv aad e s a p a r e c e r .P o re j e m p l o ,s i` y :m a k e _ a r r a y( . . . )' ,e n t o n c e s `y ' a p u n t aau no b j e t oq u eo c u p ae s p a c i o ,p e r od e s p u sd e` y :f a l s e' , ` Y' y an oa p u n t aae s eo b j e t o ,p o rl oq u ee lo b j e t op u e d es e rb a s u r a r e c o g i d o . E j e m p l o s : ( %I 1 )A 1 :m a k e _ a r r a y( f i x n u m ,1 0 ) ; ( %O 1 ){ a r r a y :#( 0000000000 ) } ( %I 2 )A 1[ 8 ] :1 7 2 9 ; ( %O 2 )1 7 2 9 ( %I 3 )A 1 ; ( %O 3 ){ a r r a y :#( 000000001 , 7 2 90 ) } ( %I 4 )A 2 :m a k e _ a r r a y( f l o n u m ,1 0 ) ; ( %O 4 ){ a r r a y :#( 0 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 0 ) } ( %I 5 )A 2[ 2 ] :2 . 7 1 8 2 8 1 8 2 8 ; ( %O 5 )2 , 7 1 8 2 8 1 8 2 8 ( %I 6 )A 2 ; ( %O 6 ) { A r r a y :#( 0 , 02 , 7 1 8 2 8 1 8 2 80 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 0 ) } ( %I 7 )A 3 :m a k e _ a r r a y( n i n g u n a ,1 0 ) ; ( %O 7 ){ a r r a y :#( N I LN I LN I LN I LN I LN I LN I LN I LN I LN I L ) } ( %I 8 )A 3[ 4 ] : x-y-z ; ( %O 8 )-z-y+x ( %I 9 )A 3 ; ( %O 9 ){ a r r a y :#( N I LN I LN I LN I L( ( M P L U SS I M P )$X( ( m t i m e sS I M P )\
43/633
28/08/13

1$S )( ( m t i m e sS I M P )1$Z ) ) N I LN I LN I LN I LN I L ) } ( %I 1 0 )A 4 :m a k e _ a r r a y( f i x n u m ,2 ,3 ,5 ) ; ( %O 1 0 ){ a r r a y :#3 A( ( ( 00000 )( 00000 )( 00000 ) )( ( 00\ 000 )( 00000 )( 00000 ) ) ) } ( %I 1 1 )f i l l a r r a y( A 4 ,m a k e L i s t( i ,i ,1 ,2*3*5 ) ) ; ( %O 1 1 ){ M a t r i z :#3 A( ( ( 12345 )( 67891 0 )( 1 11 21 31 41 5 ) ) ( ( 1 61 71 81 92 0 )( 2 12 22 32 42 5 )( 2 62 72 82 93 0 ) ) ) } ( %I 1 2 )A 4[ 0 ,2 ,1 ] ; ( %O 1 2 )1 2
F u n c i n :r e A r r a y( < A > ,< d i m _ 1 > ,. . . ,< d i m _ n > ) C a m b i al a sd i m e n s i o n e sd eu n am a t r i z .L an u e v ag a m as el l e n a r c o nl o se l e m e n t o sd el aa n t i g u ae nf i l a m a y o ro r d e n .S ie la n t i g u o m a t r i ze r ad e m a s i a d op e q u e o ,l o se l e m e n t o sr e s t a n t e ss er e l l e n a nc o n ` F a l s o' , `0 . 0 'o` 0' ,d e p e n d i e n d od e lt i p od el am a t r i z .L a t i p od el am a t r i zn os ep u e d ec a m b i a r .
F u n c i n :r e m a r r a y( < A _ 1 > ,. . . ,< A _ n > ) F u n c i n :r e m a r r a y( t o d o s ) E l i m i n al a sm a t r i c e syf u n c i o n e sa s o c i a d a sm a t r i zyl i b e r al a a l m a c e n a m i e n t oo c u p a d o .L o sa r g u m e n t o sp u e d e ns e ra r r a y sd e c l a r a d o s , a r r a y sn od e c l a r a d o s( h a s h ) ,f u n c i o n e sa r r a yys u b n d i c e s f u n c i o n e s . ` R e m a r r a y( t o d o s )' e l i m i n at o d o sl o se l e m e n t o sd el al i s t a à r r a y sg l o b a l e s" . P u e d es e rn e c e s a r i ou t i l i z a re s t af u n c i ns is ed e s e a r e d e f i n i rl o sv a l o r e sd eu n am a t r i zh a s h . ` R e m a r r a y' d e v u e l v el al i s t ad el o sa r r a y sb o r r a d o s . ` R e m a r r a y' e v a l as u sa r g u m e n t o s .
F u n c i n :s u b v a r( < x > ) E v a l al ae x p r e s i ns u b n d i c e` < x >[ ]' . ` S u b v a r' e v a l as u sa r g u m e n t o s . ` A r r a y m a k e( < x >[ ]' c o n s t r u y el ae x p r e s i n `< x >[ ] ' ,p e r o n oe v a l u a r l a . E j e m p l o s : ( %I 1 )x :f o o$ ( %I 2 )i :3$ ( %I 3 )s u b v a r( x ,i ) ; ( %O 3 )f o o 3 ( %I 4 )f o o :[ a a ,b b ,c c ,d d ,e e ]$ ( %I 5 )s u b v a r( x ,i ) ; ( %O 5 )c c ( %I 6 )a r r a y m a k e( x ,[ i ] ) ; ( %O 6 )f o o 3 ( %I 7 ) ' ' % ; ( %O 7 )c c
F u n c i n :s u b v a r p( e x p r ) D e v u e l v e` t r u e' s ie x p re su n av a r i a b l ec o ns u b n d i c e ,p o re j e m p l o , ` A[ i ]' .
V a r i a b l eo p c i o n a l :u s e _ f a s t _ a r r a y s S i` t r u e' ,e n t o n c e ss er e c o n o c e ns l od o st i p o sd em a t r i c e s : 1 .E la r s e n a la r t e q( te nC o m m o nL i s p ) ,q u ep u e d et e n e rv a r i o s d i m e n s i o n e si n d e x a d o sp o re n t e r o s ,yp u e d ec o n t e n e rc u a l q u i e rL i s po O b j e t oM a x i m ac o m ou n ae n t r a d a .P a r al ac o n s t r u c c i nd ee s t et i p od em a t r i z ,e s c r i b a ` A :m a k e _ a r r a y( c u a l q u i e r a ,3 , 4 ) ,' yl u e g o 'a' t e n d r c o m ov a l o r ,u n m a t r i zc o nd o c er a n u r a s ,yl ai n d e x a c i ns eb a s ac e r o . 2 .L am a t r i zt a b l a _ h a s hq u ee se lt i p op r e d e t e r m i n a d od el am a t r i z c r e a d os in o` b[ x+ 1 ] :y^2' ( y 'b' n oe sy au n m a t r i z ,u n al i s t aou n am a t r i z-s if u e r au n od ee l l o su ne r r o r s e r ac a u s a d od e s d e` x+ 1 'n os e r au ns u b n d i c ev l i d a p a r au n ag r a nv a r i e d a dd ea r t eq ,u n al i s t aou n am a t r i z ) .S u s n d i c e s( t a m b i n c o n o c i d a sc o m oc l a v e s )p u e d es e rc u a l q u i e ro b j e t o .S l os en e c e s i t au n ac l a v ee nu n t i e m p o( ` b[ x1 ,u ] :y' s e r ai g n o r a rl a ù ' ) .R e f e r e n c i a d oe s r e a l i z a d op o r` b[ x+ 1 ]= = >y^2' .P o rs u p u e s t o ,l ac l a v ep u e d es e ru n al i s t a , p o re j e m p l o ,` b[ [ x1 ,u ] ] :y' s e r av l i d o .E s t oe si n c o m p a t i b l e
44/633
28/08/13

c o nl a sv i e j a sM a x i m aa r r a y sd eh a s h ,p e r oa h o r r aC o n s i n g . U n av e n t a j ad ea l m a c e n a rl a sm a t r i c e sd ev a l o r e sc o m oe ls m b o l oe sq u e l a sc o n v e n c i o n e sh a b i t u a l e ss o b r el a sv a r i a b l e sl o c a l e sd eu n af u n c i ns ea p l i c a na m a t r i c e st a m b i n .E lt i p ot a b l a _ h a s ht a m b i nu t i l i z am e n o sye sC o n s i n g m se f i c i e n t eq u ee lv i e j ot i p od eM a x i m ah a s h a r .P a r ao b t e n e r c o m p o r t a m i e n t oc o h e r e n t ee ne lc o n j u n t od ec d i g ot r a d u c i d oyc o m p i l a d o ` T r a n s l a t e _ f a s t _ a r r a y s' p a r as e r 't r u e' .
5.6 Estructuras
*I n t r o d u c c i nal a sE s t r u c t u r a s: : *F u n c i o n e syv a r i a b l e sp a r aE s t r u c t u r a s: :
V a r i a b l eg l o b a l :l a se s t r u c t u r a s ' E s t r u c t u r a s 'p u e d ev e rl al i s t ad el a se s t r u c t u r a sd e f i n i d a sp o re lu s u a r i od e f i n i d o sp o r ` D e f s t r u c t' .
F u n c i n :d e f s t r u c t( < S >( < a _ 1 > ,. . . ,< a _ n > ) ) F u n c i n :d e f s t r u c t( < S >( < a _ 1 >=< v _ 1 > ,. . . ,< a _ n >< v _ n >= ) ) D e f i n i ru n ae s t r u c t u r a ,q u ee su n al i s t ad el o sc a m p o sd en o m b r e< a _ 1 > ,. . . , < a _ n >a s o c i a d oc o nu n< S >s m b o l o .U ne j e m p l od eu n ae s t r u c t u r ae s s l ou n ae x p r e s i nq u et i e n e< S >o p e r a d o rye x a c t a m e n t e` n' a r g u m e n t o s .` N e w( < S > )' c r e au n an u e v ai n s t a n c i ad el ae s t r u c t u r a< S > . U na r g u m e n t oq u es ee n c u e n t r aa< a >s m b o l oe s p e c i f i c ae ln o m b r ed eu n c a m p o .U na r g u m e n t oq u ee su n ae c u a c i n` < a >=< v >' e s p e c i f i c ae l n o m b r ed e lc a m p o< a >ys u< v >v a l o rp r e d e t e r m i n a d o .E lv a l o rp o rd e f e c t op u e d e s e rc u a l q u i e re x p r e s i n . ` D e f s t r u c t' p o n e< S >e nl al i s t ad el a se s t r u c t u r a sd e f i n i d a sp o re lu s u a r i o , ` E s t r u c t u r a s " . ` K i l l( < S > )' < S >e l i m i n ad el al i s t ad el a se s t r u c t u r a sd e f i n i d a sp o re lu s u a r i o , ye l i m i n al ad e f i n i c i nd ee s t r u c t u r a . E j e m p l o s : ( %I 1 )d e f s t r u c t( f o o( a ,b ,c ) ) ; ( %O 1 )[ f o o( a ,b ,c ) ] ( %I 2 )e s t r u c t u r a s ; ( %O 2 )[ f o o( a ,b ,c ) ] ( %I 3 )n u e v a( f o o ) ; ( %O 3 )f o o( a ,b ,c ) ( %I 4 )d e f s t r u c t( b a r r a( v ,w ,x=1 2 3 ,y=p i % ) ) ; ( %O 4 )[ b a r( v ,w ,x=1 2 3 ,y=p i % ) ] ( %I 5 )e s t r u c t u r a s ; ( %O 5 )[ f o o( a ,b ,c ) ,b a r( v ,w ,x=1 2 3 ,y=p i % ) ] ( %I 6 )n u e v a( b a r ) ; ( %O 6 )b a r( v ,w ,x=1 2 3 ,y= %p i ) ( %I 7 )k i l l( f o o ) ; ( %O 7 )h e c h o ( %I 8 )e s t r u c t u r a s ; ( %O 8 )[ b a r( v ,w ,x=1 2 3 ,y=p i % ) ]
F u n c i n :n u e v o( < S > ) F u n c i n :n u e v o( < S >( < v _ 1 > ,. . . ,< v _ n > ) ) ` N u e v a' c r e an u e v a si n s t a n c i a sd el a se s t r u c t u r a s . ` N e w( < S > )' c r e au n an u e v ai n s t a n c i ad el ae s t r u c t u r a< S >e ne lq u ec a d a c a m p os el ea s i g n as uv a l o rp o rd e f e c t o ,s il oh a y ,on i n g nv a l o re na b s o l u t os i n ot i e n ev a l o rp r e d e t e r m i n a d os ee s p e c i f i c ae nl ad e f i n i c i nd el ae s t r u c t u r a . ` N e w( < S >( < v _ 1 > ,. . . ,< v _ n > ) ) "c r e au n an u e v ai n s t a n c i ad e< S >e n q u c a m p o ss ea s i g n a nl o sv a l o r e sd e< v _ 1 > ,. . . ,< v _ n > . E j e m p l o s : ( %I 1 )d e f s t r u c t( f o o( w ,x= %e ,y=4 2 ,z ) ) ; ( %O 1 )[ f o o( w ,x= %e ,y=4 2 ,z ) ] ( %I 2 )n u e v a( f o o ) ; ( %O 2 )f o o( w ,x= %e ,y=4 2 ,z ) ( %I 3 )n u e v a( f o o( 1 ,2 ,4 ,8 ) ) ; ( %O 3 )f o o( w=1 ,x=2 ,y=4 ,z=8 )
O p e r a d o r :@ ' @ 'E se lc a m p oo p e r a d o rd ea c c e s oal ae s t r u c t u r a .L ae x p r e s i n` < x >@ < a >' s er e f i e r ea lv a l o rd e< a > m b i t od el ai n s t a n c i ad el ae s t r u c t u r a < x > .E ln o m b r ed e lc a m p on os ee v a l a .
45/633
28/08/13

S ie l< a >c a m p oe n< x >n os eh aa s i g n a d ou nv a l o r ,` < x >@< a >' e v a l aas m i s m o . ` K i l l( < x >@< a > )' e l i m i n ae lv a l o rd e< a >c a m p oe n< x > . E j e m p l o s : ( %I 1 )d e f s t r u c t( f o o( x ,y ,z ) ) ; ( %O 1 )[ f o o( x ,y ,z ) ] ( %I 2 )u :n u e v o( f o o( 1 2 3 ,a-b , %p i ) ) ; ( %O 2 )f o o( x=1 2 3 ,y=a-b ,z= %p i ) ( %I 3 )u@z ; ( %O 3 ) %p i ( %I 4 )u@z : %e ; ( %O 4 ) %e ( %I 5 )u ; ( %O 5 )f o o( x=1 2 3 ,y=a-b ,z= %e ) ( %I 6 )k i l l( u@z ) ; ( %O 6 )h e c h o ( %I 7 )u ; ( %O 7 )f o o( x=1 2 3 ,y=a-b ,z ) ( %I 8 )u@z ; ( %O 8 )u@z E ln o m b r ed e lc a m p on os ee v a l a . ( %I 1 )d e f s t r u c t( b a r( g ,h ) ) ; ( %O 1 )[ b a r( g ,h ) ] ( %I 2 )x :n u e v o( b a r ) ; ( %O 2 )b a r( g ,h ) ( %I 3 )x @h :4 2 ; ( %O 3 )4 2 ( %I 4 )h :1 2 3 ; ( %O 4 )1 2 3 ( %I 5 )x@h ; ( %O 5 )4 2 ( %I 6 )x@h :1 9 ; ( %O 6 )1 9 ( %I 7 )x ; ( %O 7 )b a r( g ,h=1 9 ) ( %I 8 )h ; ( %O 8 )1 2 3
6 Expresiones
I n t r o d u c c i nal a se x p r e s i o n e s N o m b r e syv e r b o s I d e n t i f i c a d o r e s d e s i g u a l d a d F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s
6.1 Introduccin a las expresiones

H a yu nn m e r od ep a l a b r a sr e s e r v a d a sq u en os ed e b e nu t i l i z a rc o m o n o m b r e sd ev a r i a b l e s .S uu s op o d r ac a u s a ru ne r r o rs i n t c t i c o s . i n t e g r a rs i g u i e n t ed e ld i f f e ne lp l a z oq u es u m a yac o n t i n u a c i n ,p a r ae l s e i f Q u eo t r a sc o s a sos i m e n o sq u ee lp r o d u c t o ,m i e n t r a sq u eat r a v s p a s o L am a y o r ad el a sc o s a se nM a x i m as o ne x p r e s i o n e s .U n as e c u e n c i ad ee x p r e s i o n e s s ep u e d ec o n v e r t i re nu n ae x p r e s i n ,s e p a r n d o l a sp o rc o m a syc o l o c a n d o p a r n t e s i sa l r e d e d o rd ee l l a s .E s t oe ss i m i l a ral ae x p r e s i nc o nc o m aC . ( %I 1 )x :3$ ( %I 2 )( x :x1 ,x :x^2 ) ; ( %O 2 )1 6 ( %I 3 )( s ie s( x >1 7 )yl u e g o2m s4 ) ; ( %O 3 )4 ( %I 4 )( s ie s( x >1 7 )e n t o n c e sx :2m sy :4 ,y+x ) ; ( %O 4 )2 0 I n c l u s ol o sb u c l e se nM a x i m as o ne x p r e s i o n e s ,a u n q u ee lv a l o rq u er e t o r n a n e su nf u t u r on om u y t i l` h e c h o' . ( %I 1 )y :( x :1 ,p a r aid e s d e1h a s t a1 0h a c e r( x :x*i ) )$ ( %I 2 )y ; ( %O 2 )d o n e M i e n t r a sq u el oq u er e a l m e n t eq u i e r ee sp r o b a b l e m e n t ep a r ai n c l u i ru nt e r c e rt r m i n oe n l ae x p r e s i nc o nc o m ap a r aq u ed e v u e l v ae lv a l o r . ( %I 3 )y :( x :1 ,p a r aid e s d e1h a s t a1 0h a c e r( x :x*i ) ,x )$ ( %I 4 )y ; ( %O 4 )3 6 2 8 8 0 0
46/633
28/08/13
6.2 Nombres y verbos

M a x i m ad i s t i n g u ee n t r eo p e r a d o r e sq u es o n" n o m b r e s "yo p e r a d o r e s q u es o n" v e r b o s " .U nv e r b oe su no p e r a d o rq u ep u e d es e re j e c u t a d o .L a n o m b r ee su no p e r a d o rq u ea p a r e c ec o m ou ns m b o l oe nu n ae x p r e s i n ,s i n s e re j e c u t a d o .D ef o r m ap r e d e t e r m i n a d a ,l o sn o m b r e sd ef u n c i o n e ss o nv e r b o s .U nv e r b op u e d es e r c o n v e r t i d oe nu ns u s t a n t i v oi n d i c a n d oe ln o m b r ed el af u n c i nol aa p l i c a c i nd el a F u n c i n` n o u n i f y' .U nn o m b r ep u e d et r a n s f o r m a r s ee nv e r b oa p l i c a n d ol a F u n c i n` v e r b i f y' .L ae v a l u a c i nb a n d e r a` n o m b r e s' h a c e 'e v' p a r a e v a l u a rl o ss u s t a n t i v o se nu n ae x p r e s i n . L af o r m av e r b a ls ed i s t i n g u ep o ru ns i g n od ed l a rl d e r' $ 'e ne l c o r r e s p o n d i e n t es m b o l od eL i s p .P o re lc o n t r a r i o ,l af o r m an o m i n a ls ed i s t i n g u e p o ru ni m p o r t a n t es i g n od ep o r c e n t a j e' % 'e ne ls m b o l oL i s pc o r r e s p o n d i e n t e .A l g u n o s s u s t a n t i v o st i e n e np r o p i e d a d e sd ev i s u a l i z a c i ne s p e c i a l e s ,t a l e sc o m o` ' i n t e g r a r 'y ` ' D e r i v a d o '( d e v u e l t op o r `d i f f' ) ,p e r ol am a y o r an o .P o rd e f e c t o ,e l s u s t a n t i v oyv e r b of o r m a sd eu n af u n c i ns o ni d n t i c a sc u a n d os em u e s t r a n .L a i n d i c a d o rg l o b a l` n o u n d i s p' h a c eq u eM a x i m am u e s t r el o sn o m b r e sc o nu n ac i t am a r c a` ' 'l d e r . V a s et a m b i n' n o m i n a l ' ,` n o m b r e s' , `n o u n i f y 'y` v e r b i f y' . E j e m p l o s : ( %I 1 )f o o( x ) :=x^2 ; 2 ( %O 1 )f o o( x ) :=x ( %I 2 )f o o( 4 2 ) ; ( %O 2 )1 7 6 4 ( %I 3 )' f o o( 4 2 ) ; ( %O 3 )f o o( 4 2 ) ( %I 4 )' f o o( 4 2 ) ,l o ss u s t a n t i v o s ; ( %O 4 )1 7 6 4 ( %I 5 )d e c l a r e( b a r ,s u s t a n t i v o ) ; ( %O 5 )h e c h o ( %I 6 )b a r( x ) :=X / 1 7 ; x ( %O 6 ) ' 'b a r( x ) :=1 7 ( %I 7 )b a r( 5 2 ) ; ( %O 7 )b a r( 5 2 ) ( %I 8 )b a r( 5 2 ) ,l o ss u s t a n t i v o s ; 5 2 ( %O 8 )1 7 ( %I 9 )i n t e g r a t e( 1/x ,x ,1 ,4 2 ) ; ( %O 9 )l o g( 4 2 ) ( %I 1 0 )' i n t e g r a t e( 1/x ,x ,1 ,4 2 ) ; 4 2 / [ 1 ( %O 1 0 )I-d x ]X / 1 ( %I 1 1 )e v( % ,s u s t a n t i v o s ) ; ( %O 1 1 )l o g( 4 2 )
6.3 Identificadores
M a x i m ai d e n t i f i c a d o r e sp u e d e nc o n t e n e rc a r a c t e r e sa l f a b t i c o s ,a d e m sd el a n m e r o sd e l0a l9yc u a l q u i e ro t r oc a r c t e rp r e c e d i d od el a c a r c t e rb a r r ai n v e r t i d a' \ ' . U nn m e r op u e d es e re lp r i m e rc a r c t e rd eu ni d e n t i f i c a d o rs ie s p r e c e d i d od eu n ab a r r ai n v e r t i d a .N m e r o sq u es o nl as e g u n d aop o s t e r i o r p e r s o n a j e sn ot i e n e nq u es e rp r e c e d i d od eu n ab a r r ai n v e r t i d a . C a r a c t e r e sp u e d e nd e c l a r a r s ec o m oa l f a b t i c o sc o nl af u n c i nd e c l a r e` ' .S i d e c l a r a d oa s ,n on e c e s i t a ni rp r e c e d i d od eu n ab a r r ai n v e r t i d ae nu ni d e n t i f i c a d o r . L o sc a r a c t e r e sa l f a b t i c o ss o nl a sl e t r a s' A 'a' Z ' ,' a 'al a ` Z' , ' %' y '_' . M a x i m ad i s t i n g u ee n t r em a y s c u l a sym i n s c u l a s .L o si d e n t i f i c a d o r e s` f o o' , `F O O 'y` F o o' s o nd i s t i n t a s .*V e rn o t aL i s pyM a x i m a: :P a r am si n f o r m a c i ns o b r ee s t ep u n t o . U ni d e n t i f i c a d o rM a x i m ae su ns m b o l oL i s pq u ec o m i e n z ac o nu ns i g n od ed l a r ' $ ' .C u a l q u i e ro t r os m b o l oL i s pv ap r e c e d i d od eu ns i g n od ei n t e r r o g a c i n' ? 'c u a n d os e a p a r e c ee nM a x i m a .*V e rn o t aL i s pyM a x i m a: :P a r am si n f o r m a c i ns o b r ee s t ep u n t o . E j e m p l o s : ( %I 1 ) %a n _ o r d i n a r y _ i d e n t i f i e r 4 2 ; ( %O 1 ) %a n _ o r d i n a r y _ i d e n t i f i e r 4 2 ( %I 2 )e m b e d d e d\e s p a c i o s\i n\u n\i d e n t i f i c a d o r ; E s p a c i o s( %o 2 )e m b e b i d o se nu ni d e n t i f i c a d o r ( %I 3 )s y m b o l p( % ) ; ( %O 3 )t r u e ( %I 4 )[ f o o+b a r ,f o o\+b a r ] ; ( %O 4 )[ f o o+b a r ,f o o+b a r ] ( %I 5 )[ 1 7 2 9 ,\1 7 2 9 ] ; ( %O 5 )[ 1 7 2 9 ,1 7 2 9 ] ( %I 6 )[ s y m b o l p( f o o\+b a r ) ,s y m b o l p( \1 7 2 9 ) ] ;
47/633
28/08/13

( %O 6 )[ t r u e ,t r u e ] ( %I 7 )[ e s( f o o\b a r+=f o o+b a r ) ,e s( \1 7 2 9=1 7 2 9 ) ] ; ( %O 7 )[ f a l s o ,f a l s e ] ( %I 8 )b a z\~q u u x ; ( %O 8 )b a z~q u u x ( %I 9 )d e c l a r e( " ~ " ,a l f a b t i c o ) ; ( %O 9 )h e c h o ( %I 1 0 )b a z~q u u x ; ( %O 1 0 )b a z~q u u x ( %I 1 1 )[ e s( f o o=F O O ) ,e s( F O O=f o o ) ,e s( F o of o o= ) ] ; ( %O 1 1 )[ f a l s o ,f a l s o ,f a l s o ] ( %I 1 2 ) :l i s p( d e f v a r*m y l i s pv a r i a b l e*' $f o o ) *M Y L I S P V A R I A B L E* ( %I 1 2 )\*m i\ l i s p\v a r i a b l e\* ? ; ( %O 1 2 )f o o
6.4 Desigualdad
M a x i m at i e n el o so p e r a d o r e sd ed e s i g u a l d a d` < ' , '< =' , ' >=' , ` > ' ,' # ' ,y ` N o t e q u a l' .C o n s u l t e` i f' p a r ao b t e n e ru n ad e s c r i p c i nd el a se x p r e s i o n e sc o n d i c i o n a l e s .
6.5 Funciones y variables para expresiones

F u n c i n :a l i a s( < n e w _ n a m e _ 1 > ,< o l d _ n a m e _ 1 > ,. . . ,< n e w _ n a m e _ n > ,< o l d _ n a m e _ n > ) p r o p o r c i o n au nn o m b r ea l t e r n a t i v op a r au n af u n c i n( u s u a r i oos i s t e m a ) , v a r i a b l e ,a r r e g l o ,e t cC u a l q u i e rn m e r op a rd ea r g u m e n t o sp u e d es e ru s a d o .
V a r i a b l ed e ls i s t e m a :a l i a s V a l o rp o rd e f e c t o :[ ]' ` A l i a s ' e sl al i s t ad e t o m o sq u et i e n e nu na l i a sd e f i n i d op o re lu s u a r i o ( C r e a d op o rl o s` a l i a s' , ò r d e r g r e a t ' ,f u n c i o n e s' o` o r d e r l e s s d e c l a r a n d oe l t o m oc o m ou n' n o m b r e 'c o n' d e c l a r a r ' .)
P a l a b r ac l a v e :a l l b u t t r a b a j ac o nl o s' c o m a n d o s( e sd e c i r ,l ap a r t e` ' `p a r t e , I n p a r t` ' , `s u b s t p a r t ' ,` s u b s t i n p a r t' , D p a r t` ' y `l p a r t ' ) .P o re j e m p l o , ( %I 1 )e x p r :e+d+c+b+a ; ( %O 1 )e+d+c+b+a ( %I 2 )p a r t e( e x p r ,[ 2 ,5 ] ) ; ( %O 2 )d+a m i e n t r a s ( %I 1 )e x p r :e+d+c+b+a ; ( %O 1 )e+d+c+b+a ( %I 2 )p a r t e( e x p r ,a l l b u t( 2 ,5 ) ) ; ( %O 2 )e+c+b A l l b u t` ' e st a m b i nr e c o n o c i d op o r 'm a t a r' . ( %I 1 )[ a a :1 1 ,b b :2 2c c :3 3 ,d d :4 4 ,e e :5 5 ] ; ( %O 1 )[ 1 1 ,2 2 ,3 3 ,4 4 ,5 5 ] ( %I 2 )k i l l( a l l b u t( c c ,d d ) ) ; ( %O 0 )h e c h o ( %I 1 )[ a a ,b b ,c c ,d d ] ; ( %O 1 )[ a a ,b b ,3 3 ,4 4 ] ` K i l l( a l l b u t( < a _ 1 > ,< a _ 2 > ,. . . ) ) "t i e n ee le f e c t od e` k i l l( a l l )' e x c e p t oq u en om a t aa l< a _ 1 >s m b o l o s ,< a _ 2 > ,. . . F u n c i n :a r g s( e x p r ) D e v u e l v el al i s t ad ea r g u m e n t o sd e` e x p r' ,q u ep u e d es e rc u a l q u i e rt i p od e e x p r e s i nq u en os e au n t o m o .S l ol o sa r g u m e n t o sd el a o p e r a d o rd ep r i m e rn i v e ls o ne x t r a d o s ;a p a r e c e ns u b e x p r e s i o n e sd ee x p r' ' c o m oe l e m e n t o sos u b e x p r e s i o n e sd el o se l e m e n t o sd el al i s t ad ea r g u m e n t o s . E lo r d e nd el o se l e m e n t o sd el al i s t ap u e d ed e p e n d e rd el am a r c ag l o b a l ` I n f l a g' . ` A r g s( e x p r )' e se q u i v a l e n t ea 's u b s t p a r t( "[ " ,e x p r ,0 ) . C o n s u l t et a m b i n` s u b s t p a r t' y ò p .
F u n c i n : t o m o( e x p r ) D e v u e l v e` t r u e' s ie x p re su n t o m o( n m e r o ,n o m b r eoc a d e n a ) E l s e` f a l s e' .A s ` t o m o( 5 )' e s `t r u e 'm i e n t r a sq u e` t o m o( a[ 1 ] )yd e
48/633
28/08/13

` t o m o( s i n( x ) )' s o n 'f a l s e' ( s u p o n i e n d o à[ 1 ] 'y' x 's em a n t i e n e ns i nc o n s o l i d a r ) .
F u n c i n :c a j a( e x p r ) F u n c i n :c a j a( e x p r ,< a > ) D e v u e l v ee x p re n c e r r a d ae nu n ac a j a .E lv a l o rd er e t o r n oe su n e x p r e s i nc o nl a` c a j a' c o m oo p e r a d o rye x p rc o m oa r g u m e n t o . U nc u a d r os ed i b u j ae nl ap a n t a l l ac u a n d o` d i s p l a y 2 d' e s `t r u e ' . ` B o x( e x p r ,< a > )' e n c i e r r ae x p re nu n ac a j ae t i q u e t a d ac o ne l < a >s m b o l o .L ae t i q u e t as er e c o r t as ie sm sl a r g oq u ee la n c h o d el ac a j a . ` C a j a' e v a l as u sa r g u m e n t o s .S i ne m b a r g o ,u n ae x p r e s i ne n c e r r a d an os e e v a l u a ras uc o n t e n i d o ,l a se x p r e s i o n e sp a r ac a j a ss o ne f e c t i v a m e n t e e x c l u i d a sd el o sc l c u l o s . ` B o x c h a r' e lc a r c t e rau t i l i z a rp a r ad i b u j a rl ac a j ae nl a `c a j a 'ye n e l` d p a r t' y `l p a r t" f u n c i o n e s . E j e m p l o s : ( %I 1 )c a j a( a^2+b^2 ) ; " "" "" "" "" " 22 " ( %O 1 )" b+a " " "" "" "" "" ( %I 2 )a :1 2 3 4 ; ( %O 2 )1 2 3 4 ( %I 3 )b :c-d ; ( %O 3 )c-d ( %I 4 )c a j a( a^2+b^2 ) ; " "" "" "" "" "" "" "" "" "" " " 2 " ( %O 4 )" ( c-d )+1 5 2 2 7 5 6 " " "" "" "" "" "" "" "" "" "" " ( %I 5 )c a j a( a^2+b^2 ,t e r m _ 1 ) ; t e r m _ 1" "" "" "" "" "" "" " " 2 " ( %O 5 )" ( c-d )+1 5 2 2 7 5 6 " " "" "" "" "" "" "" "" "" "" " ( %I 6 )1 7 2 9-c a j a( 1 7 2 9 ) ; " "" "" " ( %O 6 )1 7 2 9-" 1 7 2 9 " " "" "" " ( %I 7 )b o x c h a r :" " ; ( %O 7 )( %I 8 )c a j a( s i n( x )+c o s( y ) ) ; ( %O 8 ) c o s( y )+s e n( x )-
V a r i a b l eo p c i o n a l :b o x c h a r V a l o rp o rd e f e c t o :" " ` B o x c h a r' e lc a r c t e rau t i l i z a rp a r ad i b u j a rl ac a j ae ne l 'b o x' ye ne l` d p a r t' y `l p a r t" f u n c i o n e s . T o d a sl a sc a j a se nu n ae x p r e s i ns ed i b u j a nc o ne lv a l o ra c t u a ld e ` B o x c h a r' ,c a r c t e rq u en os ea l m a c e n ac o nl ac a j a e x p r e s i n .
F u n c i n :c o l a p s o( e x p r ) C o n t r a e< e x p r >h a c i e n d oq u et o d as uc o m n( e sd e c i r ,l ai g u a l d a d ) s u b e x p r e s i o n e se na c c i n( e sd e c i r ,u t i l i z a rl a sm i s m a sc l u l a s ) ,c o ne lc o n s i g u i e n t ea h o r r o e s p a c i o .( ' C o l l a p s e 'e su ns u b p r o g r a m aq u eu t i l i z ae l' o p t i m i z a r ' c o m a n d o . )P o rl ot a n t o ,l l a m a r` c o l a p s o' p u e d es e r t i ld e s p u sd el ac a r g ae n u na r c h i v o` s a v e' .U s t e dp u e d ec o n t r a e rv a r i a se x p r e s i o n e su n i d a sp o r ` c o l a p s ou s a n d o( [ < e x p r _ 1 > ,. . . ,< e x p r _ n > ] ) .D e lm i s m om o d o ,s ep u e d e c o l a p s a rl o se l e m e n t o sd el am a t r i z` A' d eh a c e r `c o l a p s o ( L i s t a r r a y( ' A ) ) .
F u n c i n :d i s o l a t e( e x p r ,< x _ 1 > ,. . . ,< x _ n > ) e ss i m i l a ra` a i s l a r( < e x p r > ,< x > )' ,e x c e p t oq u ep e r m i t el a u s u a r i oa i s l a rm sd eu n av a r i a b l es i m u l t n e a m e n t e .E s t op o d r a s e r t i l ,p o re j e m p l o ,s iu n oe s t u v i e r at r a t a n d od ec a m b i a rl a sv a r i a b l e s e nu n ai n t e g r a c i nm l t i p l e ,yq u et a l e sv a r i a b l e sd e p e n d a nd ed ed o s om sd el a sv a r i a b l e sd ei n t e g r a c i n .E s t af u n c i ns ec a r g aa u t o m t i c a m e n t e d e s d e` s i m p l i f i c a t i o n/d i s o l . m a c' .U n ad e m oe s t d i s p o n i b l e ` D e m o( "d i s o l" )$ .
49/633
28/08/13
F u n c i n :d i s p f o r m( e x p r ) F u n c i n :d i s p f o r m( < e x p r > ,t o d o s )
D e v u e l v el ar e p r e s e n t a c i ne x t e r n ad ee x p r . ` D i s p f o r m( e x p r )' d e v u e l v el ar e p r e s e n t a c i ne x t e r n ac o n c o nr e s p e c t oal a( n i v e ls u p e r i o r )o p e r a d o rp r i n c i p a l .` D i s p f o r m( e x p r ,t o d o s )' d e v u e l v el ar e p r e s e n t a c i ne x t e r i o rc o nr e s p e c t oat o d o sl o so p e r a d o r e s e ne x p r . V a s et a m b i n' p a r t e ' ,` i n p a r t' y ì n f l a g ' . E j e m p l o s : L ar e p r e s e n t a c i ni n t e r n ad e` -x' e s "n e g a t i v av e c e s` x ' " m i e n t r a sq u el ar e p r e s e n t a c i ne x t e r n ae s" m e n o s `x' " . ( %I 1 )-x ; ( %O 1 )-x ( %I 2 )F o r m a t o( t r u e ," ~S~ % " , % ) ? ; ( ( M t i m e sS I M P )1$X ) ( %O 2 )f a l s e ( %I 3 )d i s p f o r m( -x ) ; ( %O 3 )-X ( %I 4 )F o r m a t o( t r u e ," ~S~ % " , % ) ? ; ( ( M M I N U SS I M P )$X ) ( %O 4 )f a l s e L ar e p r e s e n t a c i ni n t e r n ad e` s q r t( x ) "e s" `x' al ap o t e n c i a1 / 2" m i e n t r a sq u el ar e p r e s e n t a c i ne x t e r n ae s" l ar a zc u a d r a d ad e' x ' " . ( %I 1 )s q r t( x ) ; ( %O 1 )s q r t( x ) ( %I 2 )F o r m a t o( t r u e ," ~S~ % " , % ) ? ; ( ( M E X P TS I M P )$X( ( S I M PR A T )12 ) ) ( %O 2 )f a l s e ( %I 3 )d i s p f o r m( s q r t( x ) ) ; ( %O 3 )s q r t( x ) ( %I 4 )F o r m a t o( t r u e ," ~S~ % " , % ) ? ; ( ( %S I M PS Q R T )$X ) ( %O 4 )f a l s e E lu s od e la r g u m e n t oo p c i o n a l` a l l' . ( %I 1 )e x p r :s i n( s q r t( x ) ) ; ( %O 1 )s e n( s q r t( x ) ) ( %I 2 )f r e e o f( s q r t ,e x p r ) ; ( %O 2 )t r u e ( %I 3 )f r e e o f( s q r t ,d i s p f o r m( e x p r ) ) ; ( %O 3 )t r u e ( %I 4 )f r e e o f( s q r t ,d i s p f o r m( e x p r ,t o d o s ) ) ; ( %O 4 )f a l s e
F u n c i n :d p a r t( e x p r ,< n _ 1 > ,. . . ,< n _ k > ) S e l e c c i o n al am i s m ae x p r e s i nc o m o' p a r t e ' ,p e r oe nl u g a rd e d e v o l v e re s es u b e x p r e s i nc o m os uv a l o r ,d e v u e l v ee lc o n j u n t o e x p r e s i nc o nl as u b e x p r e s i ns e l e c c i o n a d ad e n t r od eu n ac a j a . L ac a j ae se nr e a l i d a dp a r t ed el ae x p r e s i n . ( %I 1 )d p a r t( x+y/z^2 ,1 ,2 ,1 ) ; y ( %O 1 )-+x 2 " "" " Z " " ""
V a r i a b l eo p c i o n a l :e x p t i s o l a t e V a l o rp o rd e f e c t o :f a l s e' ` E x p t i s o l a t e' ,c u a n d o 't r u e' ,h a c eq u e à i s l a r( e x p r ,v a r ) 'a e x p o n e n t e sd e t o m o s( c o m o` %E' )q u ec o n t i e n e n 'v a r' .
V a r i a b l eo p c i o n a l :e x p t s u b s t V a l o rp o rd e f e c t o :f a l s e' ` E x p t s u b s t' ,c u a n d o 't r u e' ,p e r m i t el as u s t i t u c i nc o m o `y 'p a r a ` %E^x' e n ` %e^ ( a x ) .
F u n c i n :f r e e o f( < x _ 1 > ,. . . ,< x _ n > ,e x p r ) ` F r e e o f( < x _ 1 > ,e x p r )' d e v u e l v e 't r u e' s in os u b e x p r e s i nd e e x p re si g u a la< x _ 1 >os i< x _ 1 >s ep r o d u c es l oc o m ou nm a n i q u v a r i a b l e se ne x p r ,os i< x _ 1 >e sn ie ln o m b r en if o r m av e r b a l
50/633
28/08/13

d ec u a l q u i e ro p e r a d o rd ee x p ryd e v u e l v e' f a l s e 'e nc a s oc o n t r a r i o . ` F r e e o f( < x _ 1 > ,. . . ,< x _ n > ,e x p r )' e se q u i v a l e n t ea 'f r e e o f ( < x _ 1 > ,E x p r )y. . .yf r e e o f( < x _ n > ,e x p r )' . E l< x _ 1 >a r g u m e n t o s ,. . . ,< x _ n >p u e d e ns e rn o m b r e sd ef u n c i o n e sy v a r i a b l e s ,n o m b r e ss u b n d i c e ,o p e r a d o r e s( e n c e r r a d o se n t r ed o b l e c i t a s )oe x p r e s i o n e sg e n e r a l e s .` F r e e o f' e v a l as u sa r g u m e n t o s . ` F r e e o f' s l of u n c i o n ae ne x p re ns uf o r m aa c t u a l( d e s p u sd e s i m p l i f i c a c i nye v a l u a c i n )yn ot r a t a rd ed e t e r m i n a r s ia l g u n ae x p r e s i ne q u i v a l e n t ed a r au nr e s u l t a d od i f e r e n t e .E n e np a r t i c u l a r ,l as i m p l i f i c a c i np u e d ed a ru ne q u i v a l e n t ep e r od i f e r e n t e e x p r e s i nq u ec o m p r e n d ea l g u n o se l e m e n t o sd i f e r e n t e sq u ee l f o r m ao r i g i n a ld ee x p r . U n av a r i a b l ee su n av a r i a b l em u d ae nu n ae x p r e s i ns in ot i e n e v i n c u l a n t ef u e r ad el ae x p r e s i n .V a r i a b l em u d a sr e c o n o c i d a sp o r ` F r e e o f' s o ne l n d i c ed eu n as u m aop r o d u c t o ,l av a r i a b l el m i t ee n ` L i m i t' ,l av a r i a b l ed ei n t e g r a c i ne nf o r m ai n t e g r a ld e f i n i d a d e' i n t e g r a r ' ,l av a r i a b l eo r i g i n a le nl a p l a c e` ' ,f o r m a l v a r i a b l e se n" e x p r e s i o n e sya r g u m e n t o se n' l a m b d a ' à e x p r e s i o n e s . L af o r m ai n d e f i n i d ad e' i n t e g r a r 'n oe s t l i b r ed es uv a r i a b l ed e l ai n t e g r a c i n . E j e m p l o s : L o sa r g u m e n t o ss o nn o m b r e sd ef u n c i o n e s ,v a r i a b l e s ,n o m b r e sd es u b n d i c e , o p e r a d o r e sye x p r e s i o n e s .` F r e e o f( a ,b ,e x p r )' e se q u i v a l e n t ea ` F r e e o f( a ,e x p r )yf r e e o f( b ,e x p r )' . ( %I 1 )e x p r :z^3*c o s( a[ 1 ] )*b^( c+d ) ; d+c3 ( %O 1 )c o s( a )b z 1 ( %I 2 )f r e e o f( z ,e x p r ) ; ( %O 2 )f a l s e ( %I 3 )f r e e o f( c o s ,e x p r ) ; ( %O 3 )f a l s e ( %I 4 )f r e e o f( a[ 1 ] ,e x p r ) ; ( %O 4 )f a l s e ( %I 5 )f r e e o f( c o s( a[ 1 ] ) ,e x p r ) ; ( %O 5 )f a l s e ( %I 6 )f r e e o f( b^( c+d ) ,e x p r ) ; ( %O 6 )f a l s e ( %I 7 )f r e e o f( " ^ " ,e x p r ) ; ( %O 7 )f a l s e ( %I 8 )f r e e o f( w ,e lp e c a d o ,a[ 2 ] ,s i n( a[ 2 ] ) ,b*( c+d ) ,e x p r ) ; ( %O 8 )t r u e ` F r e e o f' e v a l as u sa r g u m e n t o s . ( %I 1 )e x p r :( a+b )^5$ ( %I 2 )c :a$ ( %I 3 )f r e e o f( c ,e x p r ) ; ( %O 3 )f a l s e ` F r e e o f' n ot i e n ee nc u e n t ae x p r e s i o n e se q u i v a l e n t e s .S i m p l i f i c a c i n p u e d ep r o d u c i ru n ae x p r e s i ne q u i v a l e n t ep e r od i f e r e n t e . ( %I 1 )e x p r :( a+b )^5$ ( %I 2 )e x p a n d( e x p r ) ; 54233245 ( %O 2 )b+5+a b1 0a b1 0a b+a b+5+a ( %I 3 )f r e e o f( a+b , % ) ; ( %O 3 )t r u e ( %I 4 )f r e e o f( a+b ,e x p r ) ; ( %O 4 )f a l s e ( %I 5 )e x p( x ) ; x ( %O 5 ) %e ( %I 6 )f r e e o f( e x p ,e x p( x ) ) ; ( %O 6 )t r u e U ns u m a t o r i ooi n t e g r a ld e f i n i d ae s t l i b r ed es uv a r i a b l em u d a . U n ai n t e g r a li n d e f i n i d an oe s t l i b r ed es uv a r i a b l ed ei n t e g r a c i n . ( %I 1 )f r e e o f( i ,' s u m a( f( i ) ,i ,0 ,n ) ) ; ( %O 1 )t r u e ( %I 2 )f r e e o f( x ,' i n t e g r a t e( x^2 ,x ,0 ,1 ) ) ; ( %O 2 )t r u e ( %I 3 )f r e e o f( x ,' i n t e g r a t e( x^2 ,x ) ) ; ( %O 3 )f a l s e
V a r i a b l eo p c i o n a l :i n f l a g V a l o rp o rd e f e c t o :f a l s e' C u a n d o` i n f l a g' e s `t r u e ' ,l a sf u n c i o n e sd ee x t r a c c i nd ep a r t e si n s p e c c i o n a nl a f o r m ai n t e r n ad ee x p r` ' . T e n g ae nc u e n t aq u ee ls i m p l i f i c a d o rr e o r d e n ae x p r e s i o n e s .P o rl ot a n t o` p r i m e r a( x+ y )' d e v u e l v e 'x' s i` i n f l a g 'e s `t r u e' y 'y' s i` i n f l a g 'e s
51/633
28/08/13

' F a l s e ' .( ` P r i m e r a( y+x )' d al o sm i s m o sr e s u l t a d o s . ) A d e m s ,e le s t a b l e c i m i e n t od e` i n f l a g' a 't r u e' yl l a m a n d o 'p a r t e' o `s u b s t p a r t ' e sl om i s m oq u el l a m a r` i n p a r t' o `s u b s t i n p a r t ' . F u n c i o n e sa f e c t a d a sp o re la j u s t ed e l` i n f l a g' s o n : 'p a r t e' , ` S u b s t p a r t' , 'p r i m e r o' , 'd e s c a n s o' , `p a s a d o , ' L e n g t h ' ,e l' p o r '. . .` E n' c o n s t r u i r , 'm a p a' , `f u l l m a p ' , M a p l i s t` ' , `r e v e l a 'y` p i c k a p a r t' .
F u n c i n :i n p a r t( e x p r ,< n _ 1 > ,. . . ,< n _ k > ) e ss i m i l a ra' p a r t e ' ,p e r ot r a b a j ac o nl ar e p r e s e n t a c i ni n t e r n ad e l ae x p r e s i ne nl u g a rd el af o r m am o s t r a d ayp o rl ot a n t op u e d es e r m sr p i d o ,y aq u en os er e a l i z ae lf o r m a t e o .S ed e b et e n e rc u i d a d oc o n r e s p e t a re lo r d e nd es u b e x p r e s i o n e se ns u m a syp r o d u c t o s( y a e lo r d e nd el a sv a r i a b l e se nl af o r m ai n t e r n ae sam e n u d od i f e r e n t e d eq u ee ne lf o r m u l a r i oq u es em u e s t r a )ye ne lt r a t oc o nm e n o su n a r i o , r e s t ayd i v i s i n( y aq u ee s t o so p e r a d o r e ss ee l i m i n a nd e l ae x p r e s i n ) .` P a r t e( x+y ,0 )' o ì n p a r t( x+y ,0 ) 'c e d e r' + ' , a u n q u ep a r ar e f e r i r s ea lo p e r a d o rq u ed e b ei re n t r e" s . P o re j e m p l o` . . .s ii n p a r t( %o 9 ,0 )=" + "e n t o n c e s. . ." . E j e m p l o s : ( %I 1 )x+y+w*z ; ( %O 1 )w z+y+x ( %I 2 )i n p a r t( % ,3 ,2 ) ; ( %O 2 )z ( %I 3 )p a r t e( %t h( 2 ) ,1 ,2 ) ; ( %O 3 )z ( %I 4 )L m i t e' ( f( x )^g( x+ 1 ) ,x ,0 ,m e n o s ) ; g( x+1 ) ( %O 4 )L m i t ed ef( x ) x>0( %I 5 )i n p a r t( % ,1 ,2 ) ; ( %O 5 )g( x+1 )
F u n c i n :a i s l a r( e x p r ,< x > ) D e v u e l v ee x p rc o ns u b e x p r e s i o n e sq u es o ns u m a syq u en oh a c e r c o n t i e n e n< v a r >r e e m p l a z a d a sp o re t i q u e t a sd ee x p r e s i o n e si n t e r m e d i a s( e s t o s s i e n d os m b o l o sa t m i c o sc o m o` %t 1' , ' %t 2' ,. . . ) .E s t oe sam e n u d o t i lp a r ae v i t a rl ae x p a n s i ni n n e c e s a r i ad es u b e x p r e s i o n e sq u e n oc o n t i e n e nl av a r i a b l ed ei n t e r s .D e s d ee li n t e r m e d i o e t i q u e t a se s t nd e s t i n a d a sal a ss u b e x p r e s i o n e st o d o se l l o sp u e d e ns e rs u s t i t u i d o s u n ac o p i ad el ae v a l u a c i nd el ae x p r e s i ne nl aq u es ep r o d u c e n . ` E x p t i s o l a t e "( v a l o rp o rd e f e c t o :' f a l s e ' )i f` t r u e' c a u s a r ' A i s l a r 'ae x p o n e n t e sd e t o m o s( c o m o` %E' )q u ec o n t i e n e n < v a r > . ` ' T a m b i na i s l a ri s o l a t e _ w r t _ t i m e s 's i `t r u e' ,yl u e g o 'a i s l a r c o nr e s p e c t oal o sp r o d u c t o s .C o n s u l t e` i s o l a t e _ w r t _ t i m e s' . H a g a` e x a m p l e( i s o l a t e )' p a r av e re j e m p l o s .
V a r i a b l eo p c i o n a l :i s o l a t e _ w r t _ t i m e s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` i s o l a t e _ w r t _ t i m e s' e s 't r u e' , 'a i s l a r' t a m b i na i s l a r c o nr e s p e c t oal o sp r o d u c t o s .P o re j e m p l o ,c o m p a r a rl o sd o sv a l o r e sd el a e n c e n d e r ( %I 1 )i s o l a t e _ w r t _ t i m e s :t r u e$ ( %I 2 )a i s l a r( e x p a n d( ( a+b+c )^2 ) ,c ) ; ( %T 2 )u n2
V a r i a b l eo p c i o n a l :l i s t c o n s t v a r s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` l i s t c o n s t v a r s' e s `t r u e ' ,h a r q u e` l i s t o f v a r s' a i n c l u i r` %E' , ` %p i ' ,` %i' ,yc u a l q u i e rv a r i a b l ed e c l a r a d ac o n s t a n t ed e l al i s t aq u ed e v u e l v es ia p a r e c e ne nl ae x p r e s i n` l i s t o f v a r s' e s t l l a m a d a .E lv a l o rp r e d e t e r m i n a d oe so m i t i re s t o s .
V a r i a b l eo p c i o n a l :l i s t d u m m y v a r s V a l o rp o rd e f e c t o :t r u e'
52/633
28/08/13

C u a n d o` l i s t d u m m y v a r s' e s 'f a l s e' , "v a r i a b l e sf i c t i c i a s" e ne l e x p r e s i nn os e r i n c l u i d oe nl al i s t ad e v u e l t ap o r ` L i s t o f v a r s' .( E ls i g n i f i c a d od e" v a r i a b l e sm u d a s "e sc o m os ed ae n ` F r e e o f' ." V a r i a b l e sm u d a s "s o no b j e t o sm a t e m t i c o sc o m oe l n d i c ed eu n as u m aop r o d u c t o ,u n av a r i a b l el m i t e ,yl ad e f i n i t i v a v a r i a b l ed ei n t e g r a c i n . ) E j e m p l o : ( %I 1 )l i s t d u m m y v a r s :t r u e$ ( %I 2 )l i s t o f v a r s( ' s u m a( f( i ) ,i ,0 ,n ) ) ; ( %O 2 )[ i ,n ] ( %I 3 )l i s t d u m m y v a r s :f a l s e$ ( %I 4 )l i s t o f v a r s( ' s u m a( f( i ) ,i ,0 ,n ) ) ; ( %O 4 )[ n ]
F u n c i n :l i s t o f v a r s( e x p r ) D e v u e l v eu n al i s t ad el a sv a r i a b l e se ne x p r . ` L i s t c o n s t v a r s' s i `t r u e 'h a c eq u e` l i s t o f v a r s' p a r ai n c l u i r ` %E ' , ` %P i' , ` %i ' ,yc u a l q u i e rv a r i a b l ed e c l a r a d ac o n s t a n t ed el al i s t a , d e v o l u c i o n e ss ia p a r e c e ne ne x p r .E lv a l o rp r e d e t e r m i n a d oe so m i t i re s t o s . V a s et a m b i nl ao p c i nv a r i a b l e` l i s t d u m m y v a r s' p a r ae x c l u i roi n c l u i r " V a r i a b l e sm u d a s "d el al i s t ad ev a r i a b l e s . ( %I 1 )l i s t o f v a r s( f( x[ 1 ]+y )/g^( 2+a ) ) ; ( %O 1 )[ G ,A ,X ,Y ] 1
F u n c i n :l f r e e o f( < l i s t > ,e x p r ) P a r ac a d am i e m b r od e l< m >< l i s t > ,l a sl l a m a d a s` f r e e o f( < m > ,e x p r )' .L o d e v u e l v e` f a l s e' s ic u a l q u i e rl l a m a d aa `f r e e o f 'h a c ey` t r u e' e nc a s oc o n t r a r i o .
F u n c i n :l p a r t( < l a b e l > ,e x p r ,< n _ 1 > ,. . . ,< n _ k > ) e ss i m i l a ra` d p a r t' p e r ou t i l i z au n ac a j ae t i q u e t a d a .U n ac a s i l l ae s s i m i l a ral ap r o d u c i d ap o r` d p a r t' p e r ot i e n eu nn o m b r ee ne l l n e as u p e r i o r .
P r o p i e d a d :m a i n v a r S ep u e d e nd e c l a r a rv a r i a b l e sp a r as e r` m a i n v a r' .L ae s c a l ad ep e d i d o sp a r a t o m o se s :n m e r o s< c o n s t a n t e s( p o re j e m p l o ,` %E' , ` %p i ' )< e s c a l a r e s< o t r a sv a r i a b l e s< m a i n v a r s .P o re j e m p l o ,c o m p a r e` a m p l i a r ( ( X+Y )^4 )' c o n '( d e c l a r e( x ,m a i n v a r ) ,a m p l i a r( ( x+y )^4 ) ) . ( N o t a :S ed e b et e n e rc u i d a d os iu s t e de l i g eu t i l i z a rl af u n c i na n t e r i o r . P o re j e m p l o ,s is er e s t au n ae x p r e s i ne nl aq u e' x 'e su n' m a i n v a r ' d ea q u e le ne lq u e` x' n oe su n `m a i n v a r ' ,p o re j e m p l or e s i m p l i f i c a t i o n c o n` e v( e x p r ,s i m p )' p u e d es e rn e c e s a r i os il ac a n c e l a c i ne s o c u r r i r .A d e m s ,s is eg u a r d au n ae x p r e s i ne nl aq u e' x 'e su n ` M a i n v a r' ,p r o b a b l e m e n t et a m b i nd e b e r ag u a r d a r `x ' . )
P r o p i e d a d :s u s t a n t i v o ` N o m b r e' e su n ad el a so p c i o n e sd e l `d e c l a r a r 'c o m a n d o .S eh a c eu n a f u n c i ns ed e c l a r ec o m o" n o m b r e " ,l oq u es i g n i f i c aq u en os e r e v a l u a d o a u t o m t i c a m e n t e . E j e m p l o : ( %I 1 )F a c t o r( 1 2 3 4 5 6 7 8 ) ; 2 ( %O 1 )234 71 45 9 3 ( %I 2 )d e c l a r a n( f a c t o r ,s u s t a n t i v o ) ; ( %O 2 )d o n e ( %I 3 )F a c t o rd e( 1 2 3 4 5 6 7 8 ) ; ( %O 3 )F a c t o r( 1 2 3 4 5 6 7 8 ) ( %I 4 ) ' ' % ,l o ss u s t a n t i v o s ; 2 ( %O 4 )234 71 45 9 3
V a r i a b l eo p c i o n a l :n o u n d i s p V a l o rp o rd e f e c t o :f a l s e' C u a n d o` n o u n d i s p' e s `t r u e ' ,l o sn o m b r e ss em u e s t r a nc o nu n ac o m i l l as i m p l e . E s t ei n t e r r u p t o re ss i e m p r e` t r u e' c u a n d ov e al a sd e f i n i c i o n e sd ef u n c i o n e s .
53/633
28/08/13
F u n c i n :n o u n i f y( < f > )
D e v u e l v el af o r m an o m i n a ld e ln o m b r ed el af u n c i n< f > .E s t oe sn e c e s a r i os i s eq u i e r ah a c e rr e f e r e n c i aa ln o m b r ed eu n af u n c i nv e r b oc o m os is et r a t a r ad eu n s u s t a n t i v o .T e n g ae nc u e n t aq u ea l g u n a sf u n c i o n e sv e r b a l e sd e v o l v e r ns uf o r m an o m i n a l s in op u e d e ns e re v a l u a d a sp a r ac i e r t o sa r g u m e n t o s .E s t ee st a m b i n e lf o r m u l a r i od e v u e l t os iu n al l a m a d ad ef u n c i ne s t p r e c e d i d ap o ru n ac i t a . C o n s u l t et a m b i n` v e r b i f y' .
F u n c i n :n T e r m s( e x p r ) D e v u e l v ee ln m e r od et r m i n o sq u ee x p rt e n d r as if u e r at o t a l m e n t e e x p a n d i e r o nh a c i af u e r ayn os eh a np r o d u c i d oc a n c e l a c i o n e sn ic o m b i n a c i o n e sd et r m i n o s . N t e s eq u ee x p r e s i o n e sc o m o` s i n( e x p r )' , `s q r t( e x p r ) ' ,' e x p ( E x p r )' ,e t cc u e n t a nc o m ou ns o l op l a z o ,i n d e p e n d i e n t e m e n t ed el ac a n t i d a dd e t r m i n o s< e x p r >h a( s is et r a t ad eu n as u m a ) .
F u n c i n :o p( e x p r ) D e v u e l v ee lo p e r a d o rp r i n c i p a ld el ae x p r e s i ne x p r .` O p( e x p r )' e se q u i v a l e n t ea` p a r t e( e x p r ,0 ) . ' O p 'd e v u e l v eu n ac a d e n as ie lo p e r a d o rp r i n c i p a le su ni n t e g r a d oo p r e f i j od e f i n i d op o re lu s u a r i o ,b i n a r i oon a r yi n f i xop o s t f i x ,m a t c h f i xo o p e r a d o rn o f i x .D el oc o n t r a r i o ,s ie x p re su n af u n c i nd es u b n d i c e e x p r e s i n ,` o p' d e v u e l v el af u n c i nd es u b n d i c e ,e ne s t ec a s o e lv a l o rd e v u e l t on oe su n t o m o .D el oc o n t r a r i o ,e x p re su n am a t r i z f u n c i noe x p r e s i nd el af u n c i nn o r m a l ,y' o p 'd e v u e l v eu n s m b o l o . ' O p 'o b s e r v ae lv a l o rd el ab a n d e r a` i n f l a gg l o b a l " . ' O p 'e v a l as u sa r g u m e n t o s . V a s et a m b i n' a r g s ' . E j e m p l o s : ( %I 1 )s t r i n g d i s p :t r u e$ ( %I 2 )o p( a*b*c ) ; ( %O 2 )" * " ( %I 3 )o p( a*b+c ) ; ( %O 3 )" + " ( %I 4 )o p( ' s i n( a+b ) ) ; ( %O 4 )s i n ( %I 5 )o p( a ! ) ; ( %O 5 )" ! " ( %I 6 )o p( a ) ; ( %O 6 )" " ( %I 7 )o p( [ a ,b ,c ] ) ; ( %O 7 )" [ " ( %I 8 )o p( ' ( s ia >be n t o n c e scm sd ) ) ; ( %O 8 )" s i " ( %I 9 )o p( ' f o o( a ) ) ; ( %O 9 )f o o ( %I 1 0 )p r e f i j o( f o o ) ; ( %O 1 0 )" f o o " ( %I 1 1 )o p( f o oa ) ; ( %O 1 1 )" f o o " ( %I 1 2 )o p( F[ x ,y ]( a ,b ,c ) ) ; ( %O 1 2 )F x ,y ( %I 1 3 )o p( G[ u ,v ,w ] ) ; ( %O 1 3 )G
F u n c i n :o p e r a t o r p( e x p r ,< o p > ) F u n c i n :o p e r a t o r p( e x p r ,[ < o p _ 1 > ,. . . ,< o p _ n > ] ) ` O p e r a t o r p( e x p r ,< o p > )' d e v u e l v e 't r u e' s i< o p >e si g u a lal a o p e r a d o rd ee x p r . ` O p e r a t o r p( e x p r ,[ < o p _ 1 > ,. . . ,< o p _ n > ] )' d e v u e l v e 't r u e' s ia l g u n o s < o p _ 1 >e l e m e n t o ,. . . ,< o p _ n >e si g u a la lo p e r a d o rd ee x p r .
V a r i a b l eo p c i o n a l :o p s u b s t V a l o rp o rd e f e c t o :t r u e' C u a n d o` o p s u b s t' e s 'f a l s e' , `s u b s t 'n oi n t e n t as u s t i t u i r e ne lo p e r a d o rd eu n ae x p r e s i n .P o re j e m p l o ,` ( o p s u b s t :f a l s e ,s u b s t ( X^2 ,r ,r+r[ 0 ] ) )' f u n c i o n a r .
F u n c i n :o p t i m i z a r( e x p r )
54/633
28/08/13

D e v u e l v eu n ae x p r e s i nq u ep r o d u c ee lm i s m ov a l o rye ll a d o e f e c t o sq u ee x p r ,p e r ol oh a c ed em a n e r am se f i c i e n t ea le v i t a rl a r e c a l c u l a rs u b e x p r e s i o n e sc o m u n e s .' O p t i m i z a r 't a m b i nt i e n ee l e f e c t os e c u n d a r i od e" c o l a p s a r "s ua r g u m e n t op a r aq u et o d o sl o sc o m u n e s s ec o m p a r t e ns u b e x p r e s i o n e s .H a g a` e x a m p l e( o p t i m i z e )' p a r av e re j e m p l o s .
V a r i a b l eo p c i o n a l :v a r i a b l eo p t i m p r e f i x V a l o rp o rd e f e c t o :' % ' ` V a r i a b l eo p t i m p r e f i x' e se lp r e f i j ou t i l i z a d op a r al o ss m b o l o sg e n e r a d o sp o re l C o m a n d o' o p t i m i z a r ' .
F u n c i n :o r d e r g r e a t( < v _ 1 > ,. . . ,< v _ n > ) F u n c i n :o r d e r l e s s( < v _ 1 > ,. . . ,< v _ n > ) ` O r d e r g r e a t' c a m b i ae lo r d e nc a n n i c od el a se x p r e s i o n e sd eM a x i m a d et a lm a n e r aq u e< v _ 1 >t i e n e x i t o< v _ 2 >l o g r a. . .l o g r a< v _ n >y < v _ n > x i t oc u a l q u i e ro t r os m b o l oq u en os em e n c i o n ac o m ou na r g u m e n t o . ' C a m b i o s` o r d e r l e s se lo r d e nc a n n i c od el a se x p r e s i o n e sd eM a x i m a d et a lm a n e r aq u e< v _ 1 >p r e c e d e< v _ 2 >p r e c e d e. . .< v _ n >p r e c e d e ,y < v _ n >p r e c e d eac u a l q u i e ro t r av a r i a b l en om e n c i o n a d ac o m oa r g u m e n t o . E lo r d e ne s t a b l e c i d op o ro r d e r g r e a t` ' y ò r d e r l e s s 's ed i s u e l v e p o r` u n o r d e r' .O r d e r g r e a t` ' y ò r d e r l e s s 's l os ep u e d e nl l a m a r c a d av e z ,am e n o sq u es el l a m a` u n o r d e r' ,s l ol a l t i m al l a m a d aa O r d e r g r e a t` ' y ò r d e r l e s s 't i e n en i n g ne f e c t o . C o n s u l t et a m b i n` o r d e r g r e a t p' .
F u n c i n :o r d e r g r e a t p( < e x p r _ 1 > ,< e x p r _ 2 > ) F u n c i n :o r d e r l e s s p( < e x p r _ 1 > ,< e x p r _ 2 > ) ` O r d e r g r e a t p' d e v u e l v e 't r u e' s i< e x p r _ 1 > x i t o< e x p r _ 2 >e ne l o r d e nc a n n i c od el a se x p r e s i o n e sd eM a x i m a ,y ` f a l s e' e nc a s oc o n t r a r i o . ` O r d e r l e s s p' d e v u e l v e 't r u e' s i< e x p r _ 1 >p r e c e d e< e x p r _ 2 >e ne l o r d e nc a n n i c od el a se x p r e s i o n e sd eM a x i m a ,y ` f a l s e' e nc a s oc o n t r a r i o . T o d o sl o s t o m o sye x p r e s i o n e sd eM a x i m as o nc o m p a r a b l e s O r d e r g r e a t p` ' y ò r d e r l e s s p ' ,a u n q u en oe s t na i s l a d o s e j e m p l o sd ee x p r e s i o n e sp a r al a sc u a l e se s t o sp r e d i c a d o sn oe s t n t r a n s i t i v a ,e s t oe su ne r r o r . E lo r d e nc a n n i c od el o s t o m o s( s m b o l o s ,n m e r o sl i t e r a l e s ,y c a d e n a s )e sl as i g u i e n t e . ( E n t e r o syf l o t a n t e s )p r e c e d e na( b i g f l o a t s )p r e c e d e na( d e c l a r a d o c o n s t a n t e s )p r e c e d e na( s t r i n g s )p r e c e d e na( e s c a l a r e sd e c l a r a d o s )p r e c e d e n ( P r i m e ra r g u m e n t od e` o r d e r l e s s' )p r e c e d e. . .p r e c e d e( l t i m a a r g u m e n t od e` o r d e r l e s s' )p r e c e d e( o t r o ss m b o l o s )p r e c e d e na( l a l t i m a a r g u m e n t od e` o r d e r g r e a t' )p r e c e d e. . .p r e c e d e( p r i m e ra r g u m e n t o a` o r d e r g r e a t' )p r e c e d e( p r i n c i p a l e sv a r i a b l e sd e c l a r a d a s ) P a r al a se x p r e s i o n e sn oa t m i c a s ,e lo r d e nc a n n i c os ed e r i v ad e e lo r d e nd el o s t o m o s .P a r al af u n c i nd e' + '' * 'y' ^ ' o p e r a d o r e s ,e lo r d e nn oe sf c i ld er e s u m i r .P o ro t r a i n c o r p o r a d oe nl o so p e r a d o r e syt o d a sl a sd e m sf u n c i o n e syo p e r a d o r e s , e x p r e s i o n e ss eo r d e n a np o rs u sa r g u m e n t o s( e m p e z a n d op o re l p r i m e ra r g u m e n t o ) ,ac o n t i n u a c i n ,p o re ln o m b r ed e lo p e r a d o rof u n c i n .E n e lc a s od ee x p r e s i o n e sc o ns u b n d i c e s ,e ls m b o l os u b n d i c ee s c o n s i d e r aq u ee lo p e r a d o rye ls u b n d i c es ec o n s i d e r au n a r g u m e n t o . E lo r d e nc a n n i c od el a se x p r e s i o n e se sm o d i f i c a d op o rl a sf u n c i o n e s O r d e r g r e a t` ' y ò r d e r l e s s 'ye l` m a i n v a r' , D e c l a r a c i o n e s` c o n s t a n t e' è s c a l a r e sy . V e rt a m b i n` s o r t' . E j e m p l o s : O r d e ns m b o l o sc o m u n e syc o n s t a n t e s .T e n g ae nc u e n t aq u e` %p i "n oe s o r d e n a d o sd ea c u e r d oas uv a l o rn u m r i c o . ( %I 1 )s t r i n g d i s p :t r u e ; ( %O 1 )t r u e ( %I 2 )s o r t( [ %p i ,3 B 0 ,3 , 0 ,x ,X ," f o o " ,3 ,4 ," b a r " ,4 . 0 ,4 B 0 ] ) ; ( %O 2 )[ 3 ,3 . 0 ,4 ,4 . 0 ,3 . 0 b 0 ,4 . 0 b 0 , %p i ," b a r e s " ," f o o " ,a ,x ,X ] E f e c t od el a sf u n c i o n e s` o r d e r g r e a t' y ò r d e r l e s s ' . ( %I 1 )s o r t( [ M ,H ,K ,T ,E ,W ,G ,A ,P ,J ,S ] ) ; ( %O 1 )[ A ,E ,G ,H ,J ,K ,M ,P ,S ,T ,W ] ( %I 2 )o r d e r g r e a t( S ,J ) ; ( %O 2 )d o n e ( %I 3 )o r d e r l e s s( M ,H ) ;
55/633
28/08/13

( %O 3 )d o n e ( %I 4 )s o r t( [ M ,H ,K ,T ,E ,W ,G ,A ,P ,J ,S ] ) ; ( %O 4 )[ M ,H ,A ,E ,G ,K ,P ,T ,W ,J ,S ] E f e c t od e l` m a i n v a r' , 'c o n s t a n t e' ,yl a sd e c l a r a c i o n e sd e è s c a l a r e s . ( %I 1 )s o r t( [ a a ,f o o ,b a r ,b b ,b a z ,q u u x ,c c ,d d ,A 1 ,B 1 ,C 1 ] ) ; ( %O 1 )[ a a ,b a r ,b a z ,b b ,c c ,d d ,f o o ,q u u x ,A 1 ,B 1 ,C 1 ] ( %I 2 )d e c l a r e( a a ,m a i n v a r ) ; ( %O 2 )d o n e ( %I 3 )d e c l a r e( [ b a z ,q u u x ] ,c o n s t a n t e ) ; ( %O 3 )d o n e ( %I 4 )d e c l a r e( [ A 1 ,B 1 ] ,e s c a l a r ) ; ( %O 4 )h e c h o ( %I 5 )s o r t( [ a a ,f o o ,b a r ,b b ,b a z ,q u u x ,c c ,d d ,A 1 ,B 1 ,C 1 ] ) ; ( %O 5 )[ b a z ,q u u x ,A 1 ,B 1 ,b a r ,b b ,c c ,d d ,f o o ,C 1 ,a a ] O r d e ne x p r e s i o n e sn oa t m i c a s . ( %I 1 )t i p o( [ 1 ,2 ,n ,f( 1 ) ,f( 2 ) ,f( 2 ,1 ) ,g( 1 ) ,g( 1 ,2 ) ,g( n ) , f( n ,1 ) ] ) ; ( %O 1 )[ 1 ,2 ,f( 1 ) ,g( 1 ) ,g( 1 ,2 ) ,f( 2 ) ,f( 2 ,1 ) ,n ,g( n ) , f( n ,1 ) ] ( %I 2 )s o r t( [ f o o( 1 ) ,X[ 1 ] ,X[ k ] ,f o o( k ) ,1 ,k ] ) ; ( %O 2 )[ 1 ,f o o( 1 ) ,X ,k ,f o o( k ) ,X ] 1k
F u n c i n :p a r t e( e x p r ,< n _ 1 > ,. . . ,< n _ k > ) D e v o l u c i o n e sp a r t e sd e lf o r m u l a r i oq u es em u e s t r ad e l` e x p r .S eo b t i e n el a p a r t ed e` e x p r' c o m os ee s p e c i f i c ae ne l< n _ 1 > n d i c e s ,. . . ,< n _ k > . S eo b t i e n el ap r i m e r ap a r t e< n _ 1 >d e' e x p r ' ,e n t o n c e sp a r t e< n _ 2 >d ee s o , e t cE lr e s u l t a d oe sp a r t e< n _ k >d e. . .p a r t e< n _ 2 >d ep a r t ed e< n _ 1 > ` E x p r .S in os ee s p e c i f i c a nl o s n d i c e ss ed e v u e l v e` e x p r . ` P a r t e' s ep u e d eu t i l i z a rp a r ao b t e n e ru ne l e m e n t od eu n al i s t a ,u n af i l ad eu n m a t r i z ,e t c S ie l l t i m oa r g u m e n t od el af u n c i n` p a r t e' e su n al i s t ad el o s n d i c e sd ec o n t i n u a c i n s et o m a nv a r i a ss u b e x p r e s i o n e sac a b o ,c a d au n oc o r r e s p o n d i e n t eau n n d i c ed el al i s t a .P o rl ot a n t o` p a r t e( x+y+z ,[ 1 ,3 ] )' e s `z+x ' . ` P i e z a' g u a r d al a l t i m ae x p r e s i ns e l e c c i o n a d ap o re l 'p a r t e' f u n c i o n e s .S ee s t a b l e c ed u r a n t el ae j e c u c i nd el af u n c i nyp o rl ot a n t o p u e d es e rr e f e r i d oal af u n c i ne ns ,c o m os em u e s t r aac o n t i n u a c i n . S i` p a r t s w i t c h' e s t a j u s t a d oa 't r u e' s ed e v u e l v e è n d 'c u a n d ou n p a r t es e l e c c i o n a d ad eu n ae x p r e s i nn oe x i s t e ,d el oc o n t r a r i ou ne r r o r s ed am e n s a j e . C o n s u l t et a m b i n` i n p a r t' , `s u b s t p a r t ' ,` s u b s t i n p a r t' , D p a r t` ' y `l p a r t ' . E j e m p l o s : ( %I 1 )p a r t e( z2*y+a ,2 ) ; ( %O 1 )y2 ( %I 2 )p a r t e( z2*y+a ,[ 1 , 3 ] ) ; ( %O 2 )z+a ( %I 3 )p a r t e( z2*y+a ,2 , 1 ) ; ( %O 3 )2 ` E x a m p l e( p a r t )' m u e s t r am se j e m p l o s .
F u n c i n :p a r t i c i n( e x p r ,< x > ) D e v u e l v eu n al i s t ac o nd o se x p r e s i o n e s .E l l o ss o n( 1 )l o sf a c t o r e sd e < e x p r >( s is et r a t ad eu np r o d u c t o ) ,l o st r m i n o sd ee x p r( s is et r a t ad eu n as u m a ) , ol al i s t a( s is et r a t ad eu n al i s t a )q u en oc o n t i e n e n< x >y ,( 2 )l a f a c t o r e s ,t r m i n o sol i s t aq u eh a c e n . E j e m p l o s : ( %I 1 )p a r t i c i n( 2*a*x*f( x ) ,x ) ; ( %O 1 )[ 2u n ,x f( x ) ] ( %I 2 )p a r t i c i n( a+b ,x ) ; ( %O 2 )[ b+a ,0 ] ( %I 3 )p a r t i c i n( [ a ,b ,f( a ) ,c ] ,a ) ; ( %O 3 )[ [ b ,c ] ,[ a ,f( a ) ] ]
V a r i a b l eo p c i o n a l :p a r t s w i t c h V a l o rp o rd e f e c t o :f a l s e' C u a n d o` p a r t s w i t c h' e s 't r u e' , 's ed e v u e l v ee n d' c u a n d ou ns e l e c c i o n a d o p a r t ed eu n ae x p r e s i nn oe x i s t e ,d el oc o n t r a r i ou nm e n s a j ed ee r r o re s d a d o .
56/633
28/08/13
F u n c i n :p i c k a p a r t( e x p r ,< n > )
A s i g n ae t i q u e t a sd ee x p r e s i o n e si n t e r m e d i a sas u b e x p r e s i o n e sd ee x p r < n >e np r o f u n d i d a d ,u nn m e r oe n t e r o .S u b e x p r e s i o n e se nm a y o rom e n o r p r o f u n d i d a d e sn os ea s i g n a ne t i q u e t a s .` P i c k a p a r t' d e v u e l v eu n ae x p r e s i n e nt r m i n o sd ee x p r e s i o n e si n t e r m e d i a se q u i v a l e n t eal ao r i g i n a l < e x p r >e x p r e s i n . V a s et a m b i n' p a r t e ' ,` d p a r t' , `l p a r t ' , ` I n p a r t' ,y 'r e v e l a n' . E j e m p l o s : ( %I 1 )e x p r :( a+b )/2+s e n( x^2 )/3-l o g( 1+s q r t( x1 ) ) ; 2 s i n( x )b+a ( %O 1 )-l o g( s q r t( x+1 )+1 )+-+32 ( %I 2 )p i c k a p a r t( e x p r ,0 ) ; 2 s i n( x )b+a ( %T 2 )-l o g( s q r t( x+1 )+1 )+-+32 ( %O 2 ) %t 2 ( %I 3 )p i c k a p a r t( e x p r ,1 ) ; ( %T 3 )-l o g( s q r t( x+1 )+1 )
V a r i a b l ed e ls i s t e m a :p i e z a M a n t i e n el a l t i m ae x p r e s i ns e l e c c i o n a d ap o re l' p a r t e ' f u n c i o n e s .S ee s t a b l e c ed u r a n t el ae j e c u c i nd el af u n c i ny p o rl ot a n t op u e d es e rd e n o m i n a d oe nl ap r o p i af u n c i n .
F u n c i n :p s u b s t( < l i s t > ,e x p r ) F u n c i n :p s u b s t( < a > ,e x p r ) ` P s u b s t( < a > ,e x p r )' e ss i m l i a ra `s u b s t .C o n s u l t e` s u b s t . Ad i f e r e n c i ad e l` s u b s t "l af u n c i n` p s u b s t' h a c ep a r a l e l o s u s t i t u c i o n e s ,s ie lp r i m e ra r g u m e n t o< l i s t >e su n al i s t ad ee c u a c i o n e s . V a s et a m b i n` s u b l i s' p a r ah a c e rs u s t i t u c i o n e se np a r a l e l o . E j e m p l o : E lp r i m e re j e m p l om u e s t r al as u s t i t u c i np a r a l e l oc o n` p s u b s t' .L a s e g u n d oe j e m p l om u e s t r ae lr e s u l t a d od el af u n c i n` s u b s t' ,q u e h a c eu nc a m b i od es e r i e . ( %I 4 )p s u b s t( [ A^2=b ,b=a ] ,s e n( a^2 )+s e n( b ) ) ; ( %O 4 )s i n( b )+s i n( a ) ( %I 5 )s u b s t( [ A^2=b ,b=a ] ,s e n( a^2 )+s e n( b ) ) ; ( %O 5 )2s e n( a )
F u n c i n :l l a m a d ar e m b o x( e x p r ,s i nm a r c a r ) F u n c i n :l l a m a d ar e m b o x( e x p r ,< l a b e l > ) F u n c i n :l l a m a d ar e m b o x( e x p r ) E l i m i n ac a j a sd ee x p r . ` L l a m a d ar e m b o x( e x p r ,s i nm a r c a r ) "e l i m i n at o d a sl a sc a j a sn oe t i q u e t a d a sd e e x p r . ` L l a m a d ar e m b o x( e x p r ,< l a b e l > )' s l oe l i m i n al a sc a j a sq u el l e v a n< l a b e l > . ` L l a m a d ar e m b o x( e x p r )' e l i m i n at o d a sl a sc a j a s ,e t i q u e t a d a sys i ne t i q u e t a r . L a sc a j a ss o nd i b u j a d a sp o rl a` c a j a' , `d p a r t 'y` l p a r t' f u n c i o n e s . E j e m p l o s : ( %I 1 )e x p r :( a*d-b*c )/h^2+s i n( %p i*x ) ; a d-b c ( %O 1 )s i n( %p ix )+2 h ( %I 2 )d p a r t( d p a r t( e x p r ,1 ,1 ) ,2 ,2 ) ; " "" "" "" A d-b c ( %O 2 )s i n( " %p ix " )+" "" "" "" "" "" " 2 " " H " " "" " ( %I 3 )e x p r 2 :l p a r t( B A R ,l p a r t( F O O , % ,1 ) ,2 ) ; F O O" "" "" "" "" "" B A R "" "" "" ""
57/633
28/08/13

" "" "" "" "" "A d-bc" ( %O 3 )" s i n( " %p ix" ) "+" " " "" "" "" "" "" "" "" " "" "" "" "" "" "" "" "2" " " "H" " " "" "" " " "" "" "" "" "" ( %I 4 )l l a m a d ar e m b o x( e x p r 2 ,s i nm a r c a r ) ; B A R" "" "" "" " F O O" "" "" "" "" "a d-bc" ( %O 4 )" s i n( %p ix ) "+" " " "" "" "" "" "" "" 2 " " H " " "" "" "" "" "" ( %I 5 )l l a m a d ar e m b o x( e x p r 2 ,F O O ) ; B A R" "" "" "" " " "" "" "" "A d-bc" ( %O 5 )s i n( " %p ix " )+" " " "" "" "" "" "" "" " "2" " " "H" " " "" "" " " "" "" "" "" "" ( %I 6 )l l a m a d ar e m b o x( e x p r 2 ,B A R ) ; F O O" "" "" "" "" "" " "" "" "" "" A d-b c ( %O 6 )" s i n( " %p ix" ) "+" "" "" "" "" "" "" " "" "" "" "" "" "" "" 2 " " H " " "" " ( %I 7 )l l a m a d ar e m b o x( e x p r 2 ) ; a d-b c ( %O 7 )s i n( %p ix )+2 h
F u n c i n :r e v e a l( e x p r , ) R e e m p l a z ap a r t e sd ee x p ra le n t e r oe s p e c i f i c a d oc o n r e s m e n e sd e s c r i p t i v o s . *L a ss u m a syr e s t a ss er e e m p l a z a np o r' S u m( < n > ) 'd o n d e< n >e s e ln m e r od et r m i n o sd el as u m a . *L o sp r o d u c t o ss er e e m p l a z a np o r' p r o d u c t o( < n > ) 'd o n d e< n >e se l n m e r od ef a c t o r e sd e lp r o d u c t o . *L a sp o t e n c i a ss er e e m p l a z a np o rE x p t` ' . *L o sc o c i e n t e ss er e e m p l a z a np o r' c o c i e n t e . *N e g a c i nu n a r i os es u s t i t u y ep o r` N e g t e r m' . *L a sl i s t a ss o nr e e m p l a z a d a sp o r` L i s t( < n > )' d o n d e< n >i s te ln m e r od e e l e m e n t o sd el al i s t a . C u a n d oe sm a y o rq u eoi g u a lal ap r o f u n d i d a dm x i m ad e < e x p r > ,` r e v e l a r( e x p r , )' d e v u e l v ee x p rs i nm o d i f i c a r . ` R e v e l a' e v a l as u sa r g u m e n t o s .` R e v e l a n' d e v u e l v ee lr e s u m e n e x p r e s i n . E j e m p l o : ( %I 1 )e :a m p l i a r( ( a-b )^2 )/a m p l i a r( ( e x p( a )+e x p( b ) )^2 ) ; 22 b-2a b+a ( %O 1 )b+a2b2a 2 %e+e+ % %e ( %I 2 )r e v e l a r( e ,1 ) ; ( %O 2 )C o c i e n t e ( %I 3 )r e v e l a n( e ,2 ) ; S u m( 3 ) ( %O 3 )S u m( 3 ) ( %I 4 )r e v e l a r( E ,3 ) ; E x p .+N e g t e r m+E x p . ( %O 4 )P r o d u c t o( 2 )+E x p .+E x p . ( %I 5 )r e v e l a n( e ,4 ) ; 22 b-P r o d u c t o( 3 )+a ( %O 5 )P r o d u c t o( 2 )P r o d u c t o s( 2 ) 2E x p .+e+ % %e ( %I 6 )r e v e l a r( e ,5 ) ; 22 b-2a b+a ( %O 6 )S u m( 2 )2b2a 2 %e+e+ % %e ( %I 7 )r e v e l a n( e ,6 ) ; 22
58/633
28/08/13

b-2a b+a ( %O 7 )b+a2b2a 2 %e+e+ % %e
F u n c i n :s u b l i s( < l i s t > ,e x p r ) R e a l i z as u s t i t u c i o n e sm l t i p l e se np a r a l e l oe nu n ae x p r e s i n .< l i s t > e su n al i s t ad ee c u a c i o n e s .E ll a d oi z q u i e r d od el a se c u a c i o n e sd e b e s e ru n t o m o . E l` s u b l i s _ a p p l y _ l a m b d a "v a r i a b l ec o n t r o l al as i m p l i f i c a c i nd e s p u s ` S u b l i s' . V a s et a m b i n` p s u b s t' p a r ah a c e rs u s t i t u c i o n e se np a r a l e l o . E j e m p l o : ( %I 1 )s u b l i s( [ a=b ,b=a ] ,s e n( a )+c o s( b ) ) ; ( %O 1 )s e n( b )+c o s( a )
V a r i a b l eo p c i o n a l :s u b l i s _ a p p l y _ l a m b d a V a l o rp o rd e f e c t o :t r u e' C o n t r o l as il o sl a m b d a ' '` ss u s t i t u i d o ss o na p l i c a d o se n s i m p l i f i c a c i nd e s p u sd e` s u b l i s' s eu t i l i z aos iu s t e dt i e n eq u eh a c e ru n ` E v' p a r ah a c e rl a sc o s a sq u es ea p l i c a n .` T r u es i g n i f i c a' h a c e rl as o l i c i t u d .
V a r i a b l eo p c i o n a l :s u b n u m s i m p V a l o rp o rd e f e c t o :f a l s e' S i` t r u e' ,e n t o n c e sl a sf u n c i o n e s `s u b s t 'y` p s u b s t' p u e d e ns u s t i t u i r u n av a r i a b l ec o ns u b n d i c e` f[ x ]' c o nu nn m e r o ,c u a n d os l oe ls m b o l o S ed a` f' . C o n s u l t et a m b i n` s u b s t . ( %I 1 )s u b s t( 1 0 0 ,g ,g[ x ]2 ) ; s u b s t :n op u e d es u s t i t u i ra1 0 0gp a r ae lo p e r a d o re nl ae x p r e s i ng x -U ne r r o r .P a r ad e p u r a re s t ei n t e n t o :d e b u g m o d e( t r u e ) ; ( %I 2 )s u b s t( 1 0 0 ,g ,g[ x ]2 ) ,s u b n u m s i m p :t r u e ; ( %O 2 )1 0 2
F u n c i n :s u b s t( < a > ,< c > ) S u p l e n t e s< A >e n< c > .d e b es e ru n t o m oou n ac o m p l e t a s u b e x p r e s i nd e< c > .P o re j e m p l o ,` x+y+z' e su n ac o m p l e t a s u b e x p r e s i nd e` 2*( x+y+z )/w' m i e n t r a sq u e `x+y 'n ol oe s .C u a n d oh a c e n ot i e n ee s t a sc a r a c t e r s t i c a s ,u n oav e c e sp u e d eu s a r` s u b s t p a r t' o` r a t s u b s t' ( v e rm sa b a j o ) .A l t e r n a t i v a m e n t e ,s ie sd el af o r m a ` E/f "e n t o n c e ss ep o d r au s a r` s u b s t( a*f ,e ,c )' ,m i e n t r a sq u es ie sd e l af o r m a` e^( 1/f )' ,e n t o n c e ss ep o d r au t i l i z a r `s u b s t( a^f ,e ,c ) .L a ` S u b s t' c o m a n d ot a m b i nd i s c i e r n el a `x^y 'e n' x^ y 'l oq u e' s u b s t ( A ,s q r t( x ) ,1 / s q r t( x ) )' r e n d i m i e n t o s` 1/A ' .< a >yT a m b i np u e d eh a b e r o p e r a d o r e sd eu n ae x p r e s i n` e n c e r r a d o se nc o m i l l a sd o b l e s "" o p u e d e ns e rn o m b r e sd el a sf u n c i o n e s .S is eq u i e r es u s t i t u i rl a v a r i a b l ei n d e p e n d i e n t ee nf o r m a sd e r i v a d a se n t o n c e sl af u n c i n` a t' ( V e rm sa b a j o )d e b es e ru t i l i z a d o . ` S u b s t' e su na l i a sd e `s u s t i t u t o ' . L o sc o m a n d o s` s u b s t( < e q _ 1 > ,e x p r )' o `s u b s t( [ < e q _ 1 > ,. . . , < e q _ k > ] ,e x p r )' s o no t r a sf o r m a sp e r m i s i b l e s .E l< e q _ i >s o n e c u a c i o n e sq u ei n d i c a nl a ss u s t i t u c i o n e sar e a l i z a r .P a r ac a d ae c u a c i n , e ll a d od e r e c h os e r s u s t i t u i d ap o rl ai z q u i e r d ae nl ae x p r e s i n e x p r .L a se c u a c i o n e ss es u s t i t u y e ne ns e r i ed ei z q u i e r d aa j u s t oe ne x p r .V e rl a sf u n c i o n e s` s u b l i s' y `p s u b s t" p a r a h a c i e n d os u s t i t u c i o n e se np a r a l e l o . ` E x p t s u b s t' s i `t r u e 'p e r m i s o sd es u s t i t u c i o n e sc o m o` y' p a r a ' %e^ x' e n` %e^ ( a*x )' q u et e n d r l u g a r . C u a n d o` o p s u b s t' e s 'f a l s e' , `s u b s t 'n op r e t e n d es u s t i t u i r e ne lo p e r a d o rd eu n ae x p r e s i n .P o re j e m p l o ,` ( o p s u b s t :f a l s e ,s u b s t ( X^2 ,r ,r+r[ 0 ] ) )' f u n c i o n a r . E j e m p l o s : ( %I 1 )s u b s t( a ,x+y ,x+( x+y )^2+y ) ; 2 ( %O 1 )y+x+a ( %I 2 )s u b s t( %i , %i ,a+b* %i ) ;
59/633
28/08/13
( %O 2 )a%i b
L as u s t i t u c i ns er e a l i z ae ns e r i ep a r au n al i s t ad ee c u a c i o n e s . C o m p a r ee s t oc o nu nc a m b i op a r a l e l o : ( %I 3 )s u b s t( [ a=b ,b=c ] ,a+b ) ; ( %O 3 )2c ( %I 4 )s u b l i s( [ a=b ,b=c ] ,a+b ) ; ( %O 4 )c+b P a r am se j e m p l o s ,h a g a` e j e m p l o( s u b s t ) .
F u n c i n :s u b s t i n p a r t( < x >< e x p r > ,< n _ 1 > ,. . . ,< n _ k > ) A li g u a lq u e` s u b s t p a r t' ,p e r o `s u b s t i n p a r t 't r a b a j ae ne li n t e r i o r r e p r e s e n t a c i nd e< e x p r > . E j e m p l o s : ( %I 1 )x .' D i f f( f( x ) ,x ,2 ) ; 2 d ( %O 1 )x .( -( F( x ) ) ) 2 d x ( %I 2 )s u b s t i n p a r t( d^2 , % ,2 ) ; 2 ( %O 2 )x .d ( %I 3 )s u b s t i n p a r t( f 1 ,f[ 1 ]( x+1 ) ,0 ) ; ( %O 3 )f 1( x+1 ) S ie l l t i m oa r g u m e n t od el af u n c i n` p a r t e' e su n al i s t ad el o s n d i c e sd ec o n t i n u a c i n s et o m a nv a r i a ss u b e x p r e s i o n e sac a b o ,c a d au n oc o r r e s p o n d i e n t eau n n d i c ed el al i s t a .A s ( %I 1 )p a r t e( x+y+z ,[ 1 ,3 ] ) ; ( %O 1 )z+x ` P i e z a' t i e n ee lv a l o rd el a l t i m ae x p r e s i ns e l e c c i o n a d a u t i l i z a n d ol a sf u n c i o n e s` p a r t e .S ee s t a b l e c ed u r a n t el ae j e c u c i nd el a f u n c i nyp o rl ot a n t op u e d es e rd e n o m i n a d oe nl ap r o p i af u n c i nc o m o s em u e s t r aac o n t i n u a c i n .S i` p a r t s w i t c h' e s t a j u s t a d oa 't r u e' y `f i n a l 'e s d e v u e l v ec u a n d ou n ap a r t es e l e c c i o n a d ad eu n ae x p r e s i nn oe x i s t e , d el oc o n t r a r i os ed au nm e n s a j ed ee r r o r . ( %I 1 )e x p r :2 7*y^3+5 4*x*y^2+3 6*x^2*y+y+8*x^3+x+1 ; 3223 ( %O 1 )2 7y+5 4+3 6x yx y+y+8x+x+1 ( %I 2 )p a r t e( e x p r ,2 ,[ 1 ,3 ] ) ; 2 ( %O 2 )5 4y ( %I 3 )s q r t( p i e c e / 5 4 ) ; ( %O 3 )a b s( y ) ( %I 4 )s u b s t p a r t( f a c t o rd e( p i e z a ) ,e x p r ,[ 1 ,2 ,3 ,5 ] ) ; 3 ( %O 4 )( 3y+2x )+y+x+1 ( %I 5 )e x p r :1/x+y/x-1/z ; 1y1 ( %O 5 )-+-+z x x ( %I 6 )s u b s t p a r t( f u n c i nx t h r u( p i e c e ) ,e x p r ,[ 2 ,3 ] ) ; y+11 ( %O 6 )x z A d e m s ,e s t a b l e c el ao p c i n` i n f l a g' a `t r u e 'yl l a m a n d o` p a r t e' o` s u b s t p a r t' e sl om i s m oq u el l a m a r ì n p a r t 'o` s u b s t i n p a r t' .
F u n c i n :s u b s t p a r t( < x >< e x p r > ,< n _ 1 > ,. . . ,< n _ k > ) S u p l e n t e s< x >p a r al as u b e x p r e s i nd e t e r m i n a d ap o re lr e s t od el a a r g u m e n t o se n' p a r t e ' .S ed e v u e l v ee ln u e v ov a l o rd ee x p r .< x > p u e d es e ru no p e r a d o ras e rs u s t i t u i d op o ru no p e r a d o rd ee x p r . E na l g u n o sc a s o s< x >n e c e s i t as e re n c e r r a d oe n t r ec o m i l l a s' " '( p o re j e m p l o , ` S u b s t p a r t( "+" ,a*b ,0 )' r e n d i m i e n t o 'b+a' ) . E j e m p l o : ( %I 1 )1/( x^2+2 ) ; 1 ( %O 1 )2 x+2 ( %I 2 )s u b s t p a r t( 3 / 2 , % ,2 ,1 ,2 ) ; 1 ( %O 2 )3 / 2 x+2 ( %I 3 )a*x+f( b ,y ) ; ( %O 3 )a x+f( b ,y ) ( %I 4 )s u b s t p a r t( " + " , % ,1 ,0 ) ;
60/633
28/08/13
( %O 4 )x+f( b ,y )+a
A d e m s ,e s t a b l e c el ao p c i n` i n f l a g' a `t r u e 'yl l a m a n d o` p a r t e' o` s u b s t p a r t' e sl om i s m oq u el l a m a r ì n p a r t 'o` s u b s t i n p a r t' .
F u n c i n :s y m b o l p( e x p r ) D e v u e l v e` t r u e' s ie x p re su ns m b o l o ,d el oc o n t r a r i o `f a l s e ' .E ne f e c t o , ` S y m b o l p( x )e se q u i v a l e n t eal a ` t o m od ep r e d i c a d o( x )yn o n u m b e r p( x )' . T a m b i nv e rI d e n t i f i c a d o r e sn o t a: : .
F u n c i n :u n o r d e r( ) D e s a c t i v al a sa s o c i a c i o n e sc r e a d a sp o rl a l t i m au t i l i z a c i nd el ao r d e n a c i n c o m a n d o s` o r d e r g r e a t' y ò r d e r l e s s ' .` O r d e r g r e a t "y ` O r d e r l e s s' n os ep u e d eu s a rm sd eu n av e zs i n l l a m a r` u n o r d e r' .` U n o r d e r' n os u s t i t u y ed en u e v oe n l a se x p r e s i o n e sd el o ss m b o l o so r i g i n a l e sp a r al o sa l i a si n t r o d u c i d o sp o r O r d e r g r e a t` ' y ò r d e r l e s s ' .P o rl ot a n t o ,d e s p u sd el ae j e c u c i nd el o s ` U n o r d e r' l o sa l i a sa p a r e c ee nl a se x p r e s i o n e sa n t e r i o r e s . C o n s u l t et a m b i n` o r d e r g r e a t' y ò r d e r l e s s ' . E j e m p l o s : ` O r d e r g r e a t( a )' i n t r o d u c eu na l i a sp a r ae ls m b o l o à ' .P o rl ot a n t o , l ad i f e r e n c i ad e` %o 2' y ` %o 4" n od e s a p a r e c e .` U n o r d e r' h a c e N os u s t i t u y ad en u e v oe ls m b o l o` a' ye la l i a sa p a r e c ee nl a s a l i d a` %o 7' . ( %I 1 )u n o r d e r( ) ; ( %O 1 )[ ] ( %I 2 )b*x+a^2 ; 2 ( %O 2 )b x+a ( %I 3 )o r d e r g r e a t( a ) ; ( %O 3 )d o n e ( %I 4 )b*x+a^2 ; 2 ( %O 4 )a+b x ( %I 5 ) %t h( 1 )%t h( 3 ) ; 22 ( %O 5 )u n-u n ( %I 6 )u n o r d e r( ) ; ( %O 6 )[ a ] ( %I 7 ) %t h( 2 ) ; 22 ( %O 7 )_ 1 0 1 a-u n a
F u n c i n :v e r b i f y( < f > ) D e v u e l v el af o r m av e r b a ld e ln o m b r ed ef u n c i n< f > .V a s et a m b i n' v e r b o ' , ` N o m b r e' ,y `n o u n i f y ' . E j e m p l o s : ( %I 1 )v e r b i f y( ' f o o ) ; ( %O 1 )f o o ( %I 2 ) :l i s p$ % $F O O ( %I 2 )n o u n i f y( f o o ) ; ( %O 2 )f o o ( %I 3 ) :l i s p$ % %F O O
7 Operadores
I n t r o d u c c i nal o so p e r a d o r e s a r i t m t i c o so p e r a d o r e s r e l a c i o n a l e so p e r a d o r e s l g i c o sL o so p e r a d o r e s O p e r a d o r e sd ee c u a c i o n e s A s i g n a c i no p e r a d o r e s o p e r a d o r e sd e f i n i d o sp o re lu s u a r i o
7.1 Introduccin a los operadores

E sp o s i b l ed e f i n i rn u e v o so p e r a d o r e sc o nu n ap r e c e d e n c i ae s p e c i f i c a d a , e l i m i n a rl ad e f i n i c i nd el o so p e r a d o r e se x i s t e n t e s ,op a r ar e d e f i n i rl ap r e c e d e n c i ad el o sa c t u a l e s o p e r a d o r e s .U no p e r a d o rp u e d es e rd et i p op r e f i j ou n a r i oop o s t f i j ou n a r i o ,b i n a r i o
61/633
28/08/13

i n f i j o ,i n f i j on a r i o ,m a t c h f i xon o f i x ." B i f i j o "s er e f i e r eau np a rd e s m b o l o sq u ee n c i e r r a ns uos u sa r g u m e n t o s ,y" f i j o "e su n o p e r a d o rq u en on e c e s i t aa r g u m e n t o s .C o m oe j e m p l o sd el o sd i f e r e n t e st i p o s d el o so p e r a d o r e s ,h a yl as i g u i e n t e . p r e f i j ou n a r i o n e g a c i n` -u n' p o s t f i j ou n a r i o f a c t o r i a ld eu n` !' b i n a r i oi n f i j o e x p o n e n c i a c i n` a^b' n a r yi n f i x A d e m s` a+b' m a t c h f i x c o n s t r u c c i nl i s t` [ a ,b ]' ( N oh a yu n af u n c i nd eo p e r a d o r e sn o f i xs o n ,p a r au ne j e m p l od ee s t et i p od e o p e r a d o r ,c o n s u l t e` n o f i x' . ) E lm e c a n i s m op a r ad e f i n i ru nn u e v oo p e r a d o re ss e n c i l l o .E s s l oe sn e c e s a r i op a r ad e c l a r a ru n af u n c i nc o m ou no p e r a d o r ,e lo p e r a d o r f u n c i np u e d eon op u e d es e rd e f i n i d o . U ne j e m p l od el o so p e r a d o r e sd e f i n i d o sp o re lu s u a r i oe se ls i g u i e n t e .T e n g ae nc u e n t aq u e l al l a m a d ad ef u n c i ne x p l c i t a` "d d" ( a ) "e se q u i v a l e n t ea` d da' ,d e lm i s m om o d o ` "< -" ( A ,b )' e se q u i v a l e n t ea à< -b ' .T e n g ae nc u e n t at a m b i nq u el a sf u n c i o n e s ` "D d" ' y ' "< -" ' s o nd e f i n i d a se ne s t ee j e m p l o . ( %I 1 )p r e f i j o( " d d " ) ; ( %O 1 )d d ( %I 2 )D Da ; ( %O 2 )D du n ( %I 3 )" d d "( a ) ; ( %O 3 )d Du n ( %I 4 )i n f i j a( " < " ) ; ( %O 4 )< ( %I 5 )u n< -d db ; ( %O 5 )a< -d db ( %I 6 )" < "( u n ," d d "( b ) ) ; ( %O 6 )a< -d db L a sf u n c i o n e sd eM a x i m aq u ed e f i n e nn u e v o so p e r a d o r e ss er e s u m e ne nl a e s t at a b l a ,i n d i c a n d ol o sp o d e r e sv i n c u l a n t e sd e f e c t od e r e c h aei z q u i e r d a( l b py r b p ,r e s p e c t i v a m e n t e ) .( L af u e r z ad ee n l a c ed e t e r m i n al ap r e c e d e n c i ad eo p e r a d o r e s . S i ne m b a r g o ,p u e s t oq u el a sf u e r z a sd el i g a d u r aai z q u i e r d ayd e r e c h ap u e d e ns e rd i f e r e n t e s ,l af u e r z ad ee n l a c e e sa l g om sq u el as i m p l ep r e c e d e n c i a . )A l g u n o sd el ao p e r a c i n f u n c i o n e sd ed e f i n i c i nt o m a na r g u m e n t o sa d i c i o n a l e s ,c o n s u l t el af u n c i nd e d e s c r i p c i o n e sd el o sd e t a l l e s . ` P r e f i j o' r b p=1 8 0 ` P o s t f i x' l b p=1 8 0 ` I n f i j o' l b p=1 8 0 ,r b p=1 8 0 ` N a r' l b p=1 8 0 ,r b p=1 8 0 ` M a t c h f i x' ( N os ea p l i c al af u e r z ad ee n l a c e ) ` N o f i x' ( N os ea p l i c al af u e r z ad ee n l a c e ) P a r al ac o m p a r a c i n ,h ea q u a l g u n o so p e r a d o r e si n t e g r a d o sys ui z q u i e r d ay f u e r z a sd el i g a d u r aal ad e r e c h a . O p e r a d o rl b pr b p :1 8 02 0 2 0: :1 8 0 :=1 8 02 0 : :=1 8 02 0 !1 6 0 !1 6 0 ^1 4 01 3 9 .1 3 01 2 9 *1 2 0 /1 2 01 2 0 +1 0 01 0 0 -1 0 01 3 4 =8 08 0 #8 08 0 >8 08 0 >=8 08 0 < 8 08 0 < =8 08 0 n o7 0 y6 5 o6 0
62/633
28/08/13
,1 0 $1 ;1
` Q u i t a r' y 'm a t a r' e l i m i n a np r o p i e d a d e sd eo p e r a d o r e sd eu n t o m o . ` R e m o v e( "< a >" ,o p )' e l i m i n as l ol a sp r o p i e d a d e sd eo p e r a d o rd e< a > . ` K i l l( "< a >" ) "e l i m i n at o d a sl a sp r o p i e d a d e sd e< a > ,i n c l u y e n d oe lo p e r a d o r p r o p i e d a d e s .T e n g ae nc u e n t aq u ee ln o m b r ed e lo p e r a d o rd e b ei re n t r e c o m i l l a s . ( %I 1 )i n f i j a( " ## " ) ; ( %O 1 )## ( %I 2 )" ## "( a ,b ) :=a^b ; b ( %O 2 )a##b :=a ( %I 3 )5##3 ; ( %O 3 )1 2 5 ( %I 4 )r e m o v e( " ## " ,o p ) ; ( %O 4 )h e c h o ( %I 5 )5##3 ; S i n t a x i si n c o r r e c t a :#n oe su no p e r a d o rp r e f i j o 5## ^ ( %I 5 )" ## "( 5 ,3 ) ; ( %O 5 )1 2 5 ( %I 6 )i n f i j a( " ## " ) ; ( %O 6 )## ( %I 7 )5##3 ; ( %O 7 )1 2 5 ( %I 8 )k i l l( " ## " ) ; ( %O 8 )h e c h o ( %I 9 )5##3 ; S i n t a x i si n c o r r e c t a :#n oe su no p e r a d o rp r e f i j o 5## ^ ( %I 9 )" ## "( 5 ,3 ) ; ( %O 9 )##( 5 ,3 )
7.2 Operadores aritmticos

O p e r a d o r :+ O p e r a d o r :O p e r a d o r :* O p e r a d o r :/ O p e r a d o r :^ L o ss m b o l o s' + '' * '` /' y `^ 'r e p r e s e n t a na d e m s , m u l t i p l i c a c i n ,d i v i s i nye x p o n e n c i a c i n ,r e s p e c t i v a m e n t e .L a L o sn o m b r e sd ee s t o so p e r a d o r e ss o n` "+" ' `" * " '` "/" ' y ' "^" ' ,q u e p u e d ea p a r e c e rc u a n d os er e q u i e r ee ln o m b r ed eu n af u n c i nuo p e r a d o r . L o ss m b o l o s' + 'y' 'r e p r e s e n t a rp o s i t i v oyn e g a t i v ou n a r i o , r e s p e c t i v a m e n t e ,yl o sn o m b r e sd ee s t o so p e r a d o r e ss o n` "+" ' y ' "-" ' , r e s p e c t i v a m e n t e . R e s t a` a-b' s er e p r e s e n t ae nm a x i m ac o m os u m a , à+ ( -B ) .E x p r e s i o n e st a l e sc o m o` a+( -b ) "s em u e s t r a nc o m o r e s t a .M a x i m ar e c o n o c e` "-" "s l oc o m oe ln o m b r ed el au n a r i o o p e r a d o rd en e g a c i n ,yn oc o m oe ln o m b r ed el as u s t r a c c i nb i n a r i a o p e r a d o r . D i v i s i n` a/b' s er e p r e s e n t ae nm a x i m ac o m ol am u l t i p l i c a c i n , ` A*b^( -1 )' .E x p r e s i o n e st a l e sc o m o` a*b^( -1 ) "s em u e s t r a nc o m o d i v i s i n .M a x i m ar e c o n o c e" / "' ` c o m oe ln o m b r ed el ad i v i s i n o p e r a d o r . L as u m ayl am u l t i p l i c a c i ns o nn a r i a ,l o so p e r a d o r e sc o n m u t a t i v o s . D i v i s i nyl ae x p o n e n c i a c i ns o no p e r a d o r e sn oc o n m u t a t i v o sb i n a r i o s . M a x i m ao r d e n al o so p e r a n d o sd el o so p e r a d o r e sc o n m u t a t i v o sp a r af o r m a ru n r e p r e s e n t a c i nc a n n i c a .P a r ae la l m a c e n a m i e n t oi n t e r n o ,l ao r d e n a c i ne s d e t e r m i n a d op o r` o r d e r l e s s p' .P a r al av i s u a l i z a c i n ,e lo r d e nd e A d e m ss ed e t e r m i n ap o ro r d e r g r e a t p` ' ,yd el am u l t i p l i c a c i n , e se lm i s m oq u ee lo r d e n a m i e n t oi n t e r n o . L o sc l c u l o sa r i t m t i c o ss er e a l i z a nc o nn m e r o sl i t e r a l e s ( E n t e r o s ,r a c i o n a l e s ,r e a l e so r d i n a r i o syd e c i m a l e sg r a n d e s ) .E x c e p t o e x p o n e n c i a c i n ,t o d a sl a so p e r a c i o n e sa r i t m t i c a sc o nn m e r o ss o n s i m p l i f i c a d aal o sn m e r o s .E x p o n e n c i a c i nd ac o m or e s u l t a d ou nn m e r o s ia l g u n od el o so p e r a n d o se su nf l o t a d o ro r d i n a r i oon m e r od e c i m a lg r a n d eos ie lr e s u l t a d o e su nn m e r oe n t e r oor a c i o n a l ,d el oc o n t r a r i o ,l ae x p o n e n c i a c i np u e d e s i m p l i f i c a ra l` s q r t' ,c o m oo t r ap o t e n c i aoh a c i al ai z q u i e r d a s i nc a m b i o s . C o n t a g i od ep u n t of l o t a n t es ea p l i c aal o sc l c u l o sa r i t m t i c o s :s i c u a l q u i e ro p e r a n d oe su nn m e r od e c i m a lg r a n d e ,e lr e s u l t a d oe su nn m e r od e c i m a lg r a n d e ,d el oc o n t r a r i o ,s i c u a l q u i e ro p e r a n d oe su nd e c i m a lo r d i n a r i o ,e lr e s u l t a d oe su nf l o t a d o ro r d i n a r i a ; d el oc o n t r a r i o ,l o so p e r a n d o ss o nr a c i o n a l e soe n t e r o sye lr e s u l t a d o e su ns e rr a c i o n a loe n t e r o . L o sc l c u l o sa r i t m t i c o ss o nu n as i m p l i f i c a c i n ,n ou n ae v a l u a c i n . P o rl ot a n t oa r i t m t i c as el l e v aac a b oe ne lc i t a d o( p e r os es i m p l i f i c a ) e x p r e s i o n e s . L a so p e r a c i o n e sa r i t m t i c a ss ea p l i c a ne l e m e n t oae l e m e n t od el a sl i s t a sc u a n d o
63/633
28/08/13

e li n d i c a d o rg l o b a l` l i s t a r i t h' e s `t r u e ' ,ys ea p l i c as i e m p r e e l e m e n t op o re l e m e n t od em a t r i c e s .C u a n d ou no p e r a n d oe su n al i s t ao m a t r i zyl ao t r ae su no p e r a n d od ea l g no t r ot i p o ,l ao t r a o p e r a n d os ec o m b i n ac o nc a d au n od el o se l e m e n t o sd el al i s t ao m a t r i z . E j e m p l o s : L as u m ayl am u l t i p l i c a c i ns o nn a r i a ,l o so p e r a d o r e sc o n m u t a t i v o s . M a x i m ao r d e n al o so p e r a n d o sp a r ac o n s t r u i ru n ar e p r e s e n t a c i nc a n n i c a . L o sn o m b r e sd ee s t o so p e r a d o r e ss o n` "+" ' y ' "*" ' . ( %I 1 )c+g+d+a+b+e+f ; ( %O 1 )g+f+e+d+c+b+a ( %I 2 )[ O P( % ) ,a r g s( % ) ] ; ( %O 2 )[ + ,[ g ,f ,e ,d ,c ,b ,a ] ] ( %I 3 )c*g*d*a*b*e*f ; ( %O 3 )a b c d e f g ( %I 4 )[ O P( % ) ,a r g s( % ) ] ; ( %O 4 )[ * ,[ a ,b ,c ,d ,e ,f ,g ] ] ( %I 5 )s ea p l i c a n( " + " ,[ a ,8 ,x ,2 ,9 ,x ,x ,a ] ) ; ( %O 5 )3x+2a+1 9 ( %I 6 )s ea p l i c a n( " * " ,[ a ,8 ,x ,2 ,9 ,x ,x ,a ] ) ; 23 ( %O 6 )1 4 4a x D i v i s i nyl ae x p o n e n c i a c i ns o no p e r a d o r e sn oc o n m u t a t i v o sb i n a r i o s . L o sn o m b r e sd ee s t o so p e r a d o r e ss o n` "/" ' y ' "^" ' . ( %I 1 )[ a/b ,a^b ] ; a b ( %O 1 )[ ,a ] b ( %I 2 )[ M a p a( o p , % ) ,m a p a s( a r g s , % ) ] ; ( %O 2 )[ [ / ,^ ] ,[ [ a ,b ] ,[ a ,b ] ] ] ( %I 3 )[ A p l i c a r( " / " ,[ a ,b ] ) ,s ea p l i c a n( " ^ " ,[ a ,b ] ) ] ; a b ( %O 3 )[ ,a ] b L ar e s t ayl ad i v i s i ns er e p r e s e n t a ni n t e r n a m e n t ee nt r m i n o sd e s u m ayl am u l t i p l i c a c i n ,r e s p e c t i v a m e n t e . ( %I 1 )[ i n p a r t( a-b ,0 ) ,i n p a r t( a-b ,1 ) ,i n p a r t( a-b ,2 ) ] ; ( %O 1 )[ + ,u n a ,-b ] ( %I 2 )[ i n p a r t( a/b ,0 ) ,i n p a r t( a/b ,1 ) ,i n p a r t( a/b ,2 ) ] ; 1 ( %O 2 )[ * ,a ,] b L o sc l c u l o ss er e a l i z a nc o nn m e r o sl i t e r a l e s .C o m af l o t a n t e S ep r o d u c ee lc o n t a g i o . ( %I 1 )1 7+b-( 1 / 2 )*2 9+1 1^( 2 / 4 ) ; 5 ( %O 1 )b+s q r t( 1 1 )+2 ( %I 2 )[ 1 7+2 9 ,1 7+2 9 , 0 ,1 7+2 9 b 0 ] ; ( %O 2 )[ 4 6 ,4 6 . 0 ,4 . 6 b 1 ] L o sc l c u l o sa r i t m t i c o ss o nu n as i m p l i f i c a c i n ,n ou n ae v a l u a c i n . ( %I 1 )s i m p :f a l s e ; ( %O 1 )f a l s e ( %I 2 )' ( 1 7+2 9*1 1 / 7-53 ) ; 2 91 13 ( %O 2 )1 7+-5 7 ( %I 3 )s i m p :t r u e ; ( %O 3 )t r u e ( %I 4 )' ( 1 7+2 9*1 1 / 7-53 ) ; 4 3 7 ( %O 4 )7 A r i t m t i c as er e a l i z ae l e m e n t oae l e m e n t oe nl a sl i s t a s( e nf u n c i n e l` l i s t a r i t h " )ym a t r i c e s . ( %I 1 )m a t r i z( [ a ,x ] ,[ h ,u ] )-m a t r i z( [ 1 ,2 ] ,[ 3 ,4 ] ) ; [ A-1x-2 ] ( %O 1 )[ ] [ H-3u-4 ] ( %I 2 )5*m a t r i z( [ a ,x ] ,[ h ,u ] ) ; [ 5d e5x ] ( %O 2 )[ ] [ 5h5u ] ( %I 3 )l i s t a r i t h :f a l s e ; ( %O 3 )f a l s e ( %I 4 )[ a ,c ,m ,t ]/[ 1 ,7 ,2 ,9 ] ; [ A ,c ,m ,t ] ( %O 4 )[ 1 ,7 ,2 ,9 ] ( %I 5 )[ a ,c ,m ,t ]^x ; x ( %O 5 )[ a ,c ,m ,t ] ( %I 6 )l i s t a r i t h :t r u e ; ( %O 6 )t r u e
64/633
28/08/13

( %I 7 )[ a ,c ,m ,t ]/[ 1 ,7 ,2 ,9 ] ; c m t ( %O 7 )[ a ,,,] 729 ( %I 8 )[ a ,c ,m ,t ]^x ; x x x x ( %O 8 )[ a ,c ,m ,t ]
O p e r a d o r :* * O p e r a d o rd ee x p o n e n c i a c i n .M a x i m ar e c o n o c e` * *' c o m oe lm i s m o o p e r a d o r` ^' e nl ae n t r a d a ,ys em u e s t r ac o m o `^ 'e n S a l i d a1 d i m e n s i o n a l ,oc o l o c a n d oe le x p o n e n t ec o m ou ns u p e r n d i c e e nl ap r o d u c c i nd e2 d i m e n s i o n a l . L af u n c i nf o r t r a n` ' m u e s t r ae lo p e r a d o rd ee x p o n e n c i a c i nc o m o ` * *' ,S is et r a t a b ad ee n t r a d ac o m o `* * 'o` ^' . E j e m p l o s : ( %I 1 )e s( a* *b=a^b ) ; ( %O 1 )t r u e ( %I 2 )x* *y+x^z ; z y ( %O 2 )x+x ( %I 3 )s t r i n g( x* *y+x^z ) ; ( %O 3 )x^z+x^y ( %I 4 )f o r t r a n( x* *y+x^z ) ; x* *z+x* *y ( %O 4 )h e c h o
O p e r a d o r :^^ O p e r a d o rd ee x p o n e n c i a c i nn oc o n m u t a t i v a .' ^^ 'E se l o p e r a d o rd ee x p o n e n c i a c i nn oc o n m u t a t i v ac o r r e s p o n d i e n t ea ` m u l t i p l i c a c i n .' ,a li g u a lq u ee lo p e r a d o rd ee x p o n e n c i a c i no r d i n a r i o ` ^' C o r r e s p o n d eal am u l t i p l i c a c i nc o n m u t a t i v a `* ' . E x p o n e n c i a c i nn oc o n m u t a t i v as ev i s u a l i z a' ^^ 'e n S a l i d a1 d i m e n s i o n a l ,yc o l o c a n d oe le x p o n e n t ec o m ou ns u p e r n d i c e e n t r ec o r c h e t e sa n g u l a r e s` < > "e nl as a l i d a2 d i m e n s i o n a l . E j e m p l o s : ( %I 1 )a .u n .b .b .b+a*a*a*b*b ; 32< 2 >< 3 > ( %O 1 )a b+a .b ( %I 2 )p a l a b r a( aabbb+a*a*a*b*b . . . . ) ; ( %O 2 )a^3*b^2+a^^2 .b^^3
O p e r a d o r :. E lo p e r a d o rd ep u n t o ,p a r al am u l t i p l i c a c i nd em a t r i c e s( n oc o n m u t a t i v o ) . C u a n d o" . "' S eu t i l i z a` d ee s t am a n e r a ,s ed e j a r ne s p a c i o st a n t oe n l a d o sd el am i s m a ,p o re j e m p l o ,` U n a .B' .E s t ol od i s t i n g u ec l a r a m e n t ed eu n p u n t od e c i m a le nu nn m e r od ep u n t of l o t a n t e . V a s et a m b i n' p u n t o ' ,` d o t 0 n s c s i m p' , `d o t 0 s i m p ' ,` d o t 1 s i m p' , `d o t a s s o c ' , D o t c o n s t r u l e s` ' , `d o t d i s t r i b ' ,` d o t e x p t s i m p' , `d o t i d e n t ' ,y ` D o t s c r u l e s' .
7.3 Operadores relacionales

O p e r a d o r :< O p e r a d o r :< = O p e r a d o r :>= O p e r a d o r :> L o ss m b o l o s' < '` < =' ' >=' y ' >' r e p r e s e n t a nm e n o rq u e ,m e n o rq u e oi g u a l ,m a y o rq u eoi g u a l ,ym a y o rq u e ,r e s p e c t i v a m e n t e . L o sn o m b r e sd ee s t o so p e r a d o r e ss o n" < "' y '" ' "=< " ' `" = > "" > "' ` , q u ep u e d e na p a r e c e re ne ln o m b r ed eu n af u n c i nuo p e r a d o re s r e q u e r i d a . E s t o so p e r a d o r e sr e l a c i o n a l e ss o nt o d o so p e r a d o r e sb i n a r i o s ;c o n s t r u c c i o n e s t a l e sc o m o` a< b< c' n os o nr e c o n o c i d o sp o rM a x i m a . E x p r e s i o n e sr e l a c i o n a l e sd e v u e l v e nv a l o r e sb o o l e a n o sp o re l f u n c i o n e s' e s 'y' l om e j o r ' ,yd el a ss e n t e n c i a sc o n d i c i o n a l e s` i f' , ` W h i l e' ,y 'm e n o s' .L a se x p r e s i o n e sr e l a c i o n a l e sn os o n d el oc o n t r a r i oe v a l u a d oos i m p l i f i c a d op a r av a l o r e sb o o l e a n o s ,a u n q u ee l s ee v a l a nl o sa r g u m e n t o sd ee x p r e s i o n e sr e l a c i o n a l e s( c u a n d ol ae v a l u a c i n n os ei m p i d ed eo t r am a n e r ap o rl ac i t a ) . C u a n d ou n ae x p r e s i nr e l a c i o n a ln os ep u e d ee v a l u a ra` t r u e' o ' F a l s e ' ,e lc o m p o r t a m i e n t od e` e s' y 's i' e s t ng o b e r n a d a sp o re lm u n d i a l
65/633
28/08/13

b a n d e r a` p r e d e r r o r .C u a n d op r e d e r r o r` ' e s 't r u e' , 'e s' y 's i' d e s e n c a d e n a ru ne r r o r .C u a n d op r e d e r r o r` ' e s 'f a l s e' , 'e s' r e g r e s a ` D e s c o n o c i d o' ,y 's i' d e v u e l v eu n ap a r c i a l m e n t ee v a l u a d ac o n d i c i o n a l e x p r e s i n . ` Q u i z ' s ec o m p o r t as i e m p r ec o m os ip r e d e r r o r ` 'e r a n' f a l s e 'y` w h i l e' y' m e n o s 's i e m p r es ec o m p o r t a nc o m os ip r e d e r r o r` ' e r a n `t r u e ' . L o so p e r a d o r e sr e l a c i o n a l e sn os ed i s t r i b u y e nat r a v sd el i s t a sod eo t r ot i p o a g r e g a d o s . V a s et a m b i n' = ' ,' # ' ,' i g u a l ' ,y` n o t e q u a l' . E j e m p l o s : E x p r e s i o n e sr e l a c i o n a l e sd e v u e l v e nv a l o r e sb o o l e a n o sp o ra l g u n o s f u n c i o n e syc o n s t r u c c i o n e sd ep r o g r a m a c i n . ( %I 1 )[ x ,y ,z ] :[ 1 2 3 ,4 5 6 ,7 8 9 ] ; ( %O 1 )[ 1 2 3 ,4 5 6 ,7 8 9 ] ( %I 2 )e s( x< y ) ; ( %O 2 )t r u e ( %I 3 )T a lv e z( y >z ) ; ( %O 3 )f a l s e ( %I 4 )s ix >z=0e n t o n c e s1 ; ( %O 4 )0 ( %I 5 )b l o q u e( [ S ] ,S :0 ,p a r ai :1w h i l ei< =1 0 0h a c e rS :S+i , r e t o r n o( S ) ) ; ( %O 5 )5 0 5 0 L a se x p r e s i o n e sr e l a c i o n a l e sn os ee v a l a nos i m p l i f i c a d a sd eo t r om o d o p a r av a l o r e sb o o l e a n o s ,a u n q u el o sa r g u m e n t o sd er e l a c i o n a l s ee v a l a nl a se x p r e s i o n e s . ( %O 1 )[ 1 2 3 ,4 5 6 ,7 8 9 ] ( %I 2 )[ x< y ,y< =z ,z >=y ,y >z ] ; ( %O 2 )[ 1 2 3< 4 5 6 ,4 5 6< =7 8 9 ,7 8 9 >=4 5 6 ,4 5 6 >7 8 9 ] ( %I 3 )m a p a( e sd e c i r , % ) ; ( %O 3 )[ t r u e ,t r u e ,t r u e ,f a l s e ]
7.4 Operadores lgicos

O p e r a d o r :y E lo p e r a d o rd ec o n j u n c i nl g i c a .` Y' e su nn a r yi n f i x o p e r a d o r ;s u so p e r a n d o ss o ne x p r e s i o n e sb o o l e a n a sys ur e s u l t a d oe s u nv a l o rb o o l e a n o . ` Y' e v a l u a c i n( i g u a lq u e 'e s' )d eu n oom so p e r a n d o s ,y p u e d ef o r z a rl ae v a l u a c i nd et o d o sl o so p e r a n d o s . L o so p e r a n d o ss ee v a l a ne ne lo r d e ne ne lq u ea p a r e c e n .` Y' s l oe v a l at a n t o so p e r a n d o sc o m os e an e c e s a r i op a r ad e t e r m i n a r e lr e s u l t a d o .S ic u a l q u i e ro p e r a n d oe s' f a l s e ' ,e lr e s u l t a d oe s' f a l s e 'y s ee v a l a nm so p e r a n d o s . L ab a n d e r a` p r e d e r r o rg l o b a l "g o b i e r n ae lc o m p o r t a m i e n t od e' y 'c u a n d ou n o p e r a n d oe v a l u a d o sn op u e d e ns e rr e s u e l t o sas e r' t r u e 'o' f a l s e ' . ` Y' i m p r i m eu nm e n s a j ed ee r r o rc u a n d op r e d e r r o r ` 'e s` t r u e' . D el oc o n t r a r i o ,l o so p e r a n d o sq u en os ee v a l a nc o m o` t r u e' o 'f a l s e' s o n a c e p t a d a ,ye lr e s u l t a d oe su n ae x p r e s i nb o o l e a n a . ` Y' n oe sc o n m u t a t i v o : àyb 'p u e d en os e ri g u a la` by u n" d e b i d oa lt r a t a m i e n t od eo p e r a n d o si n d e t e r m i n a d o s .
O p e r a d o r :N o E lo p e r a d o rd en e g a c i nl g i c a .` N o' e su no p e r a d o rp r e f i j o ;s u o p e r a n d oe su n ae x p r e s i nb o o l e a n ays ur e s u l t a d oe su nv a l o rl g i c o . ` N o' i m p o n el ae v a l u a c i n( i g u a lq u e è s ' )d es uo p e r a n d o . L ab a n d e r a` p r e d e r r o rg l o b a l "g o b i e r n ae lc o m p o r t a m i e n t od e` n o' c u a n d os u o p e r a n d on os ep u e d ed e t e r m i n a rq u e` t r u e' o 'f a l s e' .` N o' i m p r i m eu nm e n s a j ed ee r r o rc u a n d op r e d e r r o r` ' e s `t r u e ' .D el oc o n t r a r i o , o p e r a n d o sq u en os ee v a l a nc o m o` t r u e' o 'f a l s e' s ea c e p t a n , ye lr e s u l t a d oe su n ae x p r e s i nb o o l e a n a .
O p e r a d o r :o E lo p e r a d o rd ed i s y u n c i nl g i c a .` O' e su no p e r a d o ri n f i j on a r i o ; s u so p e r a n d o ss o ne x p r e s i o n e sb o o l e a n a sys ur e s u l t a d oe su nb o o l e a n o v a l o r . ` O' e v a l u a c i n( i g u a lq u e 'e s' )d eu n oom so p e r a n d o s ,y p u e d ef o r z a rl ae v a l u a c i nd et o d o sl o so p e r a n d o s . L o so p e r a n d o ss ee v a l a ne ne lo r d e ne ne lq u ea p a r e c e n .` O r' s l oe v a l at a n t o so p e r a n d o sc o m os e an e c e s a r i op a r ad e t e r m i n a r
66/633
28/08/13

e lr e s u l t a d o .S ic u a l q u i e ro p e r a n d oe s` t r u e' ,e lr e s u l t a d oe s `t r u e 'yn o s ee v a l a nm so p e r a n d o s . L ab a n d e r a` p r e d e r r o rg l o b a l "g o b i e r n ae lc o m p o r t a m i e n t od e' o 'c u a n d ou n o p e r a n d oe v a l u a d o sn op u e d e ns e rr e s u e l t o sas e r' t r u e 'o' f a l s e ' . ` O' i m p r i m eu nm e n s a j ed ee r r o rc u a n d op r e d e r r o r ` 'e s` t r u e' . D el oc o n t r a r i o ,l o so p e r a n d o sq u en os ee v a l a nc o m o` t r u e' o 'f a l s e' s o n a c e p t a d a ,ye lr e s u l t a d oe su n ae x p r e s i nb o o l e a n a . ` O' n oe sc o n m u t a t i v o : àob 'p u e d en os e ri g u a la` bo' d e b i d oa lt r a t a m i e n t od eo p e r a n d o si n d e t e r m i n a d o s .
7.5 Operadores de ecuaciones

O p e r a d o r :# R e p r e s e n t al an e g a c i nd el ai g u a l d a ds i n t c t i c a' = ' . T e n g ae nc u e n t aq u ed e b i d oal a sr e g l a sd ee v a l u a c i nd ep r e d i c a d o s e x p r e s i o n e s( s o b r et o d op o r q u en o` e x p r' o b l i g aal ae v a l u a c i n d ee x p r ) ,` n o< a >=' e se q u i v a l e n t ea 'e s( < a ># )' , e nl u g a rd e` < a >#' . E j e m p l o s : ( %I 1 )a=b ; ( %O 1 )a=b ( %I 2 )e s( a=b ) ; ( %O 2 )f a l s e ( %I 3 )a#b ; ( %O 3 )a#b ( %I 4 )n oa=b ; ( %O 4 )t r u e ( %I 5 )e s( a#b ) ; ( %O 5 )t r u e ( %I 6 )e s( n oa=b ) ; ( %O 6 )t r u e
O p e r a d o r := E lo p e r a d o rd el ae c u a c i n . U n ae x p r e s i n` < a >=' ,p o rs s o l a ,r e p r e s e n t au ns i ne v a l u a r e c u a c i n ,l oq u ep o d r aon op o d r as o s t e n e r s e .L a se c u a c i o n e ss i ne v a l u a r p u e d e na p a r e c e rc o m oa r g u m e n t o sp a r a` r e s o l v e r' y à l g s y s 'oa l g no t r o f u n c i o n e s . L af u n c i n` s e' e v a l a '=' e nu nv a l o rb o o l e a n o .` E s( < a >= )' e v a l a` < a >= 'a' t r u e 'c u a n d o< a >ys o n i d n t i c a .E sd e c i r ,< a >ys o n t o m o sq u es o ni d n t i c o s ,o q u en os o n t o m o sys u so p e r a d o r e ss o ni d n t i c o sys u a r g u m e n t o ss o ni d n t i c o s .D el oc o n t r a r i o ,' e s( < a >= ) 's ee v a l ac o m o ' F a l s e ' ,n u n c as ee v a l ac o m o' d e s c o n o c i d o ' .C u a n d o` e s( < a >= )' e s ` T r u e' ,< a >ys ed i c eq u es o ns i n t c t i c a m e n t ei g u a l e s ,e n c o n t r a s t ec o ne x p r e s i o n e se q u i v a l e n t e s ,p a r al o sc u a l e s` i s( e q u a l( < a > , ) )' e s` t r u e ' .L a se x p r e s i o n e sp u e d e ns e re q u i v a l e n t e syn o s i n t c t i c a m e n t ei g u a l e s . L an e g a c i nd e` =' e s t r e p r e s e n t a d op o r '#' . A li g u a lq u ec o n' = ' ,u n ae x p r e s i n` < a >#' ,p o rs s o l a ,n oe s e v a l u a d o .` E s( < a ># )' e v a l a `< a ># 'a' t r u e 'o ' F a l s e ' . A d e m sd e` e s' ,o t r o so p e r a d o r e se v a l a n `= 'y' # 'p a r a ` T r u e' o 'f a l s e' ,e sd e c i r 's i' , 'y' , ` O' ,y 'n o' . T e n g ae nc u e n t aq u ed e b i d oal a sr e g l a sd ee v a l u a c i nd ep r e d i c a d o s e x p r e s i o n e s( s o b r et o d op o r q u en o` e x p r' o b l i g aal ae v a l u a c i n d ee x p r ) ,` n o< a >=' e se q u i v a l e n t ea 'e s( < a ># )' , e nl u g a rd e` < a >#' . ` D c h a .' y `l h s 'd e v u e l v e nl o sl a d o sd e r e c h oei z q u i e r d o , r e s p e c t i v a m e n t e ,d eu n ae c u a c i noi n e c u a c i n . V a s et a m b i n' i g u a l 'y` n o t e q u a l' . E j e m p l o s : U n ae x p r e s i n` < a >=' ,p o rs s o l a ,r e p r e s e n t au ns i ne v a l u a r e c u a c i n ,l oq u ep o d r aon op o d r as o s t e n e r s e . ( %I 1 )e q _ 1 :a*x-5*y=1 7 ; ( %O 1 )a x-5y=1 7 ( %I 2 )e q _ 2 :b*x+3*y=2 9 ; ( %O 2 )3y+b x=2 9 ( %I 3 )s o l v e( [ e q _ 1 ,e q _ 2 ] ,[ x ,y ] ) ; 1 9 62 9a-1 7b ( %O 3 )[ [ x-= ,y=] ]
67/633
28/08/13

5b+3a5b+3a ( %I 4 )s u b s t( % ,[ e q _ 1 ,e q _ 2 ] ) ; 1 9 6a5( 2 9a-1 7b ) ( %O 4 )[ -=1 7 , 5b+3a5b+3a 1 9 6b3( 2 9a-1 7b ) -+-=2 9 ] 5b+3a5b+3a ( %I 5 )r a t s i m p( % ) ; ( %O 5 )[ 1 7=1 7 ,2 9=2 9 ] ` E s( < a >= )' e v a l a `< a >= 'a' t r u e 'c u a n d o< a >y s o ns i n t c t i c a m e n t ei g u a l e s( e sd e c i r ,i d n t i c o s ) .L a se x p r e s i o n e sp u e d e ns e r e q u i v a l e n t e s ,p e r on os i n t c t i c a m e n t ei g u a l e s . ( %I 1 )A :( x+1 )*( x-1 ) ; ( %O 1 )( x-1 )( x+1 ) ( %I 2 )b :x^2-1 ; 2 ( %O 2 )x-1 ( %I 3 )[ e s( a=b ) ,e s( a#b ) ] ; ( %O 3 )[ f a l s e ,t r u e ] ( %I 4 )[ e s( i g u a l( a ,b ) ) ,e s( n o t e q u a l( a ,b ) ) ] ; ( %O 4 )[ t r u e ,f a l s e ] A l g u n o so p e r a d o r e se v a l a n` =' y '#' a 't r u e' o 'f a l s e' . ( %I 1 )s ia m p l i a r( ( x+y )^2 )=x^2+2*x*y+y^2ac o n t i n u a c i n ,F O Om s B A R ; ( %O 1 )F O O ( %I 2 )e q _ 3 :2*x*x=3 ; ( %O 2 )2x=3x ( %I 3 )e q _ 4 :e x p( 2 )= %e^ 2 ; 22 ( %O 3 ) %e= %e ( %I 4 )[ e q _ 3ye q _ 4 ,e q _ 3oe q _ 4 ,n oe q _ 3 ] ; ( %O 4 )[ f a l s e ,t r u e ,t r u e ] P o r q u e` n o< e x p r >' h a c eq u el ae v a l u a c i nd ee x p r , `n o< a >= ' e se q u i v a l e n t ea` e s( < a ># ) . ( %I 1 )[ 2*x*x#3 ,n o( 2*x*x=3 ) ] ; ( %O 1 )[ 2x#3x ,t r u e ] ( %I 2 )e s( 2*x*x#3 ) ; ( %O 2 )t r u e
7.6 Los operadores de asignacin

O p e r a d o r :: O p e r a d o rd ea s i g n a c i n . C u a n d oe ll a d oi z q u i e r d oe su n av a r i a b l es i m p l e( n os u b n d i c e ) ,` :' e v a l as um a n od e r e c h aya s i g n ae s ev a l o ral a am a n oi z q u i e r d a . C u a n d oe ll a d oi z q u i e r d oe su ne l e m e n t os u b n d i c ed eu n al i s t a , m a t r i z ,a r r a yd e c l a r a d od eM a x i m aoa r r a yd eL i s p ,e ll a d od e r e c h o s ea s i g n aae s ee l e m e n t o .E ls u b n d i c ed e b en o m b r a rau n ay ae x i s t e n t e e l e m e n t o ,t a l e so b j e t o sn op u e d e na m p l i a r s en o m b r a n d oi n e x i s t e n t e e l e m e n t o s . C u a n d oe ll a d oi z q u i e r d oe su ne l e m e n t od eu ns u b n d i c en od e c l a r a d o M a t r i zd eM a x i m a ,e ll a d od el ad e r e c h as ea s i g n aae s ee l e m e n t o ,s i q u ey ae x i s t e ,ou nn u e v oe l e m e n t os ea s i g n a ,s in ol oh a c e y ae x i s t e n . C u a n d ol ap a r t ei z q u i e r d ah a yu n al i s t ad es i m p l e sy/os u b n d i c e v a r i a b l e s ,e ll a d od e r e c h od e b e ne v a l u a r s ec o m ou n al i s t a ,yl a e l e m e n t o sd el ap a r t ed e r e c h as ea s i g n a nal o se l e m e n t o sd e e ll a d oi z q u i e r d o ,e np a r a l e l o . C o n s u l t et a m b i n` m a t a r' y `r e m v a l u e ' ,q u ed e s h a c e nl a sa s o c i a c i o n e s e n t r ee ll a d oi z q u i e r d oys uv a l o r . E j e m p l o s : L aa s i g n a c i nau n av a r i a b l es i m p l e . ( %I 1 )a ; ( %O 1 )u n ( %I 2 )a :1 2 3 ; ( %O 2 )1 2 3 ( %I 3 )a ; ( %O 3 )1 2 3 L aa s i g n a c i nau ne l e m e n t od eu n al i s t a . ( %I 1 )b :[ 1 ,2 ,3 ] ; ( %O 1 )[ 1 ,2 ,3 ] ( %I 2 )b[ 3 ] :4 5 6 ; ( %O 2 )4 5 6 ( %I 3 )b ; ( %O 3 )[ 1 ,2 ,4 5 6 ]
68/633
28/08/13

A s i g n a c i nc r e au na r r a yn od e c l a r a d o . ( %I 1 )c[ 9 9 ] :7 8 9 ; ( %O 1 )7 8 9 ( %I 2 )c[ 9 9 ] ; ( %O 2 )7 8 9 ( %I 3 )c ; ( %O 3 )c ( %I 4 )a r r a y i n f o( c ) ; ( %O 4 )[ h a s h ,1 ,[ 9 9 ] ] ( %I 5 )l i s t a r r a y( c ) ; ( %O 5 )[ 7 8 9 ] A s i g n a c i nm l t i p l e . ( %I 1 )[ a ,b ,c ] :[ 4 5 ,6 7 ,8 9 ] ; ( %O 1 )[ 4 5 ,6 7 ,8 9 ] ( %I 2 )a ; ( %O 2 )4 5 ( %I 3 )b ; ( %O 3 )6 7 ( %I 4 )c ; ( %O 4 )8 9 L aa s i g n a c i nm l t i p l es el l e v aac a b oe np a r a l e l o .L o sv a l o r e sd e' a ' y' b 's ei n t e r c a m b i a ne ne s t ee j e m p l o . ( %I 1 )[ a ,b ] :[ 3 3 ,5 5 ] ; ( %O 1 )[ 3 3 ,5 5 ] ( %I 2 )[ a ,b ] :[ B ,A ] ; ( %O 2 )[ 5 5 ,3 3 ] ( %I 3 )a ; ( %O 3 )5 5 ( %I 4 )b ; ( %O 4 )3 3
O p e r a d o r :: : O p e r a d o rd ea s i g n a c i n . ` : :' E sl om i s m oq u e ` : '( q u ev e r ) ,e x c e p t oq u e` : :' s ee v a l a s um a n oi z q u i e r d ays um a n od e r e c h a . E j e m p l o s : ( %I 1 )x :' f o o ; ( %O 1 )f o o ( %I 2 )x: :1 2 3 ; ( %O 2 )1 2 3 ( %I 3 )f o o ; ( %O 3 )1 2 3 ( %I 4 )x :' [ a ,b ,c ] ; ( %O 4 )[ a ,b ,c ] ( %I 5 )x: :[ 1 1 ,2 2 ,3 3 ] ; ( %O 5 )[ 1 1 ,2 2 ,3 3 ] ( %I 6 )a ; ( %O 6 )1 1 ( %I 7 )b ; ( %O 7 )2 2 ( %I 8 )c ; ( %O 8 )3 3
O p e r a d o r :: := M a c r of u n c i nd eo p e r a d o rd ed e f i n i c i n .` : :=' D e f i n eu n af u n c i n ( L l a m a d ou n" m a c r o "p o rr a z o n e sh i s t r i c a s ) ,q u ec i t aas u a r g u m e n t o s ,yl ae x p r e s i nq u er e t o r n a( l l a m a d oe l" m a c r o e x p a n s i n" )s ee v a l ae ne lc o n t e x t od el ac u a ll am a c r of u e l l a m a d a .U n af u n c i nm a c r oe sd el oc o n t r a r i ol am i s m ac o m ou no r d i n a r i o f u n c i n . ` M a c r o e x p a n d' d e v u e l v eu n ae x p a n s i nd el am a c r o( s i ne v a l u a rl ae x p r e s i n ) . ` M a c r o e x p a n d( f o o( x ) )' s e g u i d od e ' % ' '' e se q u i v a l e n t ea `f o o ( X )" c u a n d o `f o o' e su n af u n c i nm a c r o . ` : :=' P o n ee ln o m b r ed el an u e v af u n c i nm a c r oe nl al i s t ag l o b a l ` M a c r o s' .` K i l l' , 'q u i t a r' y `r e m f u n c t i o n ' d e s v i n c u l a c i nm a c r od e f i n i c i o n e sd ef u n c i o n e sye l i m i n a rn o m b r e sd em a c r o s` ' . F U N D E F` ' o `d i s p f u n 'd e v u e l v e nl ad e f i n i c i nol af u n c i nm a c r o a s i g n a r l eu n ae t i q u e t a ,r e s p e c t i v a m e n t e . L a sf u n c i o n e sm a c r on o r m a l m e n t ec o n t i e n e nb u i l d q` ' y 'e m p a l m e' e x p r e s i o n e sp a r ac o n s t r u i ru n ae x p r e s i n ,q u es ee v a l aac o n t i n u a c i n . E j e m p l o s U n am a c r oc i t a sf u n c i nd es u sa r g u m e n t o s ,l oq u ee lm e n s a j e( 1 )m u e s t r a` yz' ,n oe lv a l o rd e` y-z ' .L ae x p a n s i nd el am a c r o( e lc i t a d o e x p r e s i n` ' ( i m p r e s i n( "( 2 )xe si g u a la" ,x ) ) 's ee v a l ae ne l
69/633
28/08/13

c o n t e x t oe ne lq u ef u el l a m a d oe lm a c r o ,e lm e n s a j ed ei m p r e s i n( 2 ) . ( %I 1 )x : %p i$ ( %I 2 )y :1 2 3 4$ ( %I 3 )z :1 7 2 9*w$ ( %I 4 )p r i n t q 1( x ): :=b l o q u e( i m p r e s i n( " ( 1 )xe si g u a la " ,x ) , ' ( I m p r e s i n( " ( 2 )xe si g u a la " ,x ) ) )$ ( %I 5 )p r i n t q 1( y-z ) ; ( 1 )xe si g u a lay-z ( 2 )xe si g u a la %p i ( %O 5 ) %p i U n af u n c i no r d i n a r i ae v a l as u sa r g u m e n t o s ,l oq u ee lm e n s a j e( 1 )m u e s t r a e lv a l o rd e` y-z' .E lv a l o rd er e t o r n on os ee v a l a ,p o rl o m e n s a j e( 2 )n os ei m p r i m eh a s t aq u el ae v a l u a c i ne x p l c i t a ' '` %' . ( %I 1 )x : %p i$ ( %I 2 )y :1 2 3 4$ ( %I 3 )z :1 7 2 9*w$ ( %I 4 )p r i n t e 1( x ) :=b l o q u e( i m p r e s i n( " ( 1 )xe si g u a la " ,x ) , ' ( I m p r e s i n( " ( 2 )xe si g u a la " ,x ) ) )$ ( %I 5 )p r i n t e 1( y-z ) ; ( 1 )xe si g u a la1 7 3 4 / 2 9w ( %O 5 )i m p r e s i n( ( 2 )xe si g u a la ,x ) ( %I 6 ) ' ' % ; ( 2 )xe si g u a la %p i ( %O 6 ) %p i ` M a c r o e x p a n d' d e v u e l v eu n ae x p a n s i nd el am a c r o .` M a c r o e x p a n d( f o o( x ) )' s e g u i d od e` ' ' %' e se q u i v a l e n t ea `f o o( x )" c u a n d o `f o o 'e su n am a c r o f u n c i n . ( %I 1 )x : %p i$ ( %I 2 )y :1 2 3 4$ ( %I 3 )z :1 7 2 9*w$ ( %I 4 )g( x )=: :b u i l d q( [ x ] ,i m p r e s i n( " xe si g u a la " ,x ) )$ ( %I 5 )m a c r o e x p a n d( g( y-z ) ) ; ( %O 5 )p r i n t( xe si g u a la ,y-z ) ( %I 6 ) ' ' % ; xe si g u a la1 2 3 4-1 7 2 9w ( %O 6 )1 2 3 4 1 7 2 9w ( %I 7 )g( y-z ) ; xe si g u a la1 2 3 4-1 7 2 9w ( %O 7 )1 2 3 4 1 7 2 9w
O p e r a d o r ::= E lo p e r a d o rd ed e f i n i c i nd el af u n c i n .` < f >( < x _ 1 > ,. . . ,< x _ n > ) := < e x p r >' d e f i n eu n af u n c i nl l a m a d a< f >c o na r g u m e n t o s< x _ 1 > ,. . . , < x _ n >ye lc u e r p od el af u n c i n< e x p r > .` :=' N os ee v a l al af u n c i n c u e r p o( am e n o sq u ee x p l c i t a m e n t ee v a l u a d o sp o rd o sc o m i l l a s` ' '' ) .L a f u n c i nd em a n e r ad e f i n i d ap u e d es e ru n af u n c i no r d i n a r i ad eM a x i m a( c o n a r g u m e n t o se n c e r r a d o se n t r ep a r n t e s i s )ou n af u n c i na r r a y( c o n a r g u m e n t o se n t r ec o r c h e t e s ) . C u a n d oe l l t i m oo n i c oa r g u m e n t o< x _ n >e su n al i s t ad eu n o e l e m e n t o ,l af u n c i nd e f i n i d ap o r` :=' a c e p t au nn m e r ov a r i a b l ed e a r g u m e n t o s .A r g u m e n t o sr e a l e ss ea s i g n a nu n oau n oal of o r m a l a r g u m e n t o s< x _ 1 > ,. . . ,< x _ ( n 1 ) > ,a s c o m oc u a l q u i e ro t r ar e a l a r g u m e n t o s ,s ie s t p r e s e n t e ,s ea s i g n a na< x _ n >c o m ou n al i s t a . T o d a sl a sd e f i n i c i o n e sd ef u n c i o n e sa p a r e c e ne ne lm i s m oe s p a c i od en o m b r e s ,q u ed e f i n eu n f u n c i n` f' d e n t r od eo t r af u n c i n `g 'n oa u t o m t i c a m e n t e l i m i t a re la l c a n c ed e` f' a 'g' .S i ne m b a r g o ,` l o c a l e s( f )' h a c eq u ee l d e f i n i c i nd el af u n c i nf' e f e c t i v a 's l od e n t r od e lb l o q u eo d ee x p r e s i o n e se nl aq u ea p a r e c e` l o c a l e s' . S ia l g u n a< x _ k >a r g u m e n t of o r m a le su ns m b o l oc i t a d o ,l af u n c i n d e f i n i d op o r` :=' n oe v a l ae lc o r r e s p o n d i e n t er e a l a r g u m e n t o .S in os ee v a l a nt o d o sl o sa r g u m e n t o sr e a l e s . C o n s u l t et a m b i n` d e f i n e' y `: := ' . E j e m p l o s : ` :=' N oe v a l ae lc u e r p od el af u n c i n( am e n o sq u ee x p l c i t a m e n t e e v a l u a d op o rd o sc o m i l l a ss i m p l e s ) . ( %I 1 )e x p r :c o s( y )-s i n( x ) ; ( %O 1 )c o s( y )-s i n( x ) ( %I 2 )F 1( x ,y ) :=e x p r ; ( %O 2 )F 1( x ,y ) :=e x p r ( %I 3 )F 1( a ,b ) ; ( %O 3 )c o s( y )-s i n( x ) ( %I 4 )F 2( x ,y ) := ' 'e x p r ; ( %O 4 )F 2( x ,y ) :=c o s( y )-s e n( x ) ( %I 5 )F 2( a ,b ) ; ( %O 5 )c o s( b )-s e n( a ) L af u n c i nd e f i n i d ap o r` :=' p u e d es e ru n af u n c i noo r d i n a r i ad eM a x i m a u n af u n c i na r r a y . ( %I 1 )G 1( x ,y ) :=X Y-Y X ; ( %O 1 )G 1( x ,y ) :=x .y-y .x ( %I 2 )G 2[ x ,y ] :=X Y-Y X ;
70/633
28/08/13
( %O 2 )G 2 :=x .y-y .x x ,y
C u a n d oe l l t i m oo n i c oa r g u m e n t o< x _ n >e su n al i s t ad eu n o e l e m e n t o ,l af u n c i nd e f i n i d ap o r` :=' a c e p t au nn m e r ov a r i a b l ed e a r g u m e n t o s . ( %I 1 )H( [ L ] ) :=a p p l y( " + " ,L ) ; ( %O 1 )H( [ L ] ) :=a p p l y( " + " ,L ) ( %I 2 )H( a ,b ,c ) ; ( %O 2 )c+b+a ` L o c a l e s' h a c eu n ad e f i n i c i nd ef u n c i nl o c a l . ( %I 1 )f o o( x ) :=1-x ; ( %O 1 )f o o( x ) :=1-x ( %I 2 )f o o( 1 0 0 ) ; ( %O 2 )-9 9 ( %I 3 )b l o q u e( l o c a l( f o o ) ,f o o( x ) :=2*x ,f o o( 1 0 0 ) ) ; ( %O 3 )2 0 0 ( %I 4 )f o o( 1 0 0 ) ; ( %O 4 )-9 9
7.7 El usuario define operadores

F u n c i n :i n f i j a( < o p > ) F u n c i n :i n f i j a( < o p > ,< l b p > ,< r b p > ) F u n c i n :i n f i j a( < o p > ,< l b p > ,< r b p > ,< l p o s > ,< r p o s > , ) D e c l a r a< o p >s e ru no p e r a d o ri n f i j o .U no p e r a d o ri n f i j oe su n a f u n c i nd ed o sa r g u m e n t o s ,c o ne ln o m b r ed el af u n c i ne s c r i t a e n t r el o sa r g u m e n t o s .P o re j e m p l o ,e lo p e r a d o rd er e s t a` -' e su no p e r a d o ri n f i j o . ` I n f i j a( < o p > )' d e c l a r a< o p >s e ru no p e r a d o ri n f i j oc o nd e f e c t o p o d e r e sv i n c u l a n t e s( i z q u i e r d ayd e r e c h ai g u a l e sa1 8 0 )yp a r t e sd e h a b l a( i z q u i e r d ayd e r e c h ai g u a l e sa` n i n g u n a' ) . ` I n f i j a( < o p > ,< l b p > ,< r b p > )' d e c l a r a< o p >p a r as e ru no p e r a d o ri n f i j o c o np o d e r e sd el i g a d u r aai z q u i e r d ayd e r e c h ae s t a b l e c i d o syp a r t e sp o rd e f e c t od e h a b l a( i z q u i e r d ayd e r e c h ai g u a l e sa` n i n g u n a' ) . ` I n f i j a( < o p > ,< l b p > ,< r b p > ,< l p o s > ,< r p o s > , )' d e c l a r a< o p > p a r as e ru no p e r a d o ri n f i j oc o nf u e r z a sd el i g a d u r aai z q u i e r d ayd e r e c h ae s t a b l e c i d o s yp a r t e sd e< l p o s >d i s c u r s o ,< r p o s >yp a r al ai z q u i e r d a o p e r a n d o ,e lo p e r a n d od e r e c h o ,ye lr e s u l t a d od e lo p e r a d o r ,r e s p e c t i v a m e n t e . " P a r t ed el ao r a c i n " ,e nr e f e r e n c i aal a sd e c l a r a c i o n e sd e lo p e r a d o r ,s i g n i f i c a t i p od ee x p r e s i n .S er e c o n o c e nt r e st i p o s :` e x p r' , 'c l u s u l a' , y' n i n g u n a ' ,l oq u ei n d i c au n ae x p r e s i na l g e b r a i c a ,u nb o o l e a n o e x p r e s i n ,oc u a l q u i e rt i p od ee x p r e s i n ,r e s p e c t i v a m e n t e .M a x i m ap u e d e d e t e c t a ra l g u n o se r r o r e ss i n t c t i c o sc o m p a r a n d ol o st i p o sd e c l a r a d o sd ee x p r e s i n au n ae x p r e s i nr e a l . L ap r e c e d e n c i ad e< o p >c o nr e s p e c t oao t r o so p e r a d o r e sd e r i v a d el a sf u e r z a sd el i g a d u r aai z q u i e r d ayd e r e c h ad el o so p e r a d o r e s c u e s t i n .S il a sf u e r z a sd el i g a d u r aai z q u i e r d ayd e r e c h ad e< o p >s o nt a n t o m a y o r e sq u el a sf u e r z a sd el i g a d u r aai z q u i e r d ayd e r e c h ad eo t r oo p e r a d o r , e n t o n c e s< o p >t i e n ep r i o r i d a ds o b r ee lo t r oo p e r a d o r .S ie l f u e r z a sd el i g a d u r an os o na m b a sm a y o r e som e n o s ,u np o c om sc o m p l i c a d o r e l a c i ns em a n t i e n e . L aa s o c i a t i v i d a dd e< o p >d e p e n d ed el a sf u e r z a sd el i g a d u r a .M a y o r p o d e rv i n c u l a n t ei z q u i e r d a( < l b p > )i m p l i c au n ai n s t a n c i ad e< o p >e s e v a l u a d oa n t e sq u eo t r o so p e r a d o r e sas ui z q u i e r d ae nl ae x p r e s i n , m i e n t r a sq u em a y o rf u e r z av i n c u l a n t eal ad e r e c h a( < r b p > )i m p l i c au n ai n s t a n c i ad e < o p >e se v a l u a d oa n t e sq u eo t r o so p e r a d o r e sas ud e r e c h ae nu n e x p r e s i n .P o rl ot a n t ou n am a y o r< l b p >h a c e< o p >a s o c i a t i v op o rl ad e r e c h a , m i e n t r a sm a y o r< r b p >h a c e< o p >a s o c i a t i v op o rl ai z q u i e r d a .S ie s< l b p > i g u a la< r b p > ,< o p >e sa s o c i a t i v op o rl ai z q u i e r d a . V a s et a m b i nl an o t a*I n t r o d u c c i nal o so p e r a d o r e s .: : E j e m p l o s : S il a sf u e r z a sd el i g a d u r aai z q u i e r d ayd e r e c h ad e< o p >s o nt a n t om a y o re sl a f u e r z a sd el i g a d u r aai z q u i e r d ayd e r e c h ad eo t r oo p e r a d o r ,e n t o n c e s< o p > t i e n ep r i o r i d a ds o b r ee lo t r oo p e r a d o r . ( %I 1 ) :l i s p( g e t' $+ 'l b p ) 1 0 0 ( %I 1 ) :l i s p( g e t' $+ 'r b p ) 1 0 0 ( %I 1 )i n f i j a( " ## " ,1 0 1 ,1 0 1 ) ; ( %O 1 )## ( %I 2 )" ## "( a ,b ) :=s c o n c a t( " ( " ,u n" , " ,b ," ) " ) ; ( %O 2 )( a##b ) :=s c o n c a t( " ( "a" , "b ," ) " ) ( %I 3 )+1a##b+2 ; ( %O 3 )( a ,b )+3 ( %I 4 )i n f i j a( " ## " ,9 9 ,9 9 ) ; ( %O 4 )## ( %I 5 )+1a##b+2 ; ( %O 5 )( a+ 1 ,b+ 2 )
71/633
28/08/13

M a y o r< l b p >h a c e< o p >a s o c i a t i v op o rl ad e r e c h a ,m i e n t r a sq u eu n am a y o r< r b p > h a c e< o p >a s o c i a t i v op o rl ai z q u i e r d a . ( %I 1 )i n f i j a( " ## " ,1 0 0 ,9 9 ) ; ( %O 1 )## ( %I 2 )" ## "( a ,b ) :=s c o n c a t( " ( " ,u n" , " ,b ," ) " )$ ( %I 3 )f o o##B a r##b a z ; ( %O 3 )( f o o( b a r ,b a z ) ) ( %I 4 )i n f i j a( " ## " ,1 0 0 ,1 0 1 ) ; ( %O 4 )## ( %I 5 )f o o##B a r##b a z ; ( %O 5 )( ( f o o ,b a r )b a z ) M a x i m ap u e d ed e t e c t a ra l g u n o se r r o r e ss i n t c t i c o sc o m p a r a n d ol o st i p o sd e c l a r a d o s p a r t ed el ao r a c i nau n ae x p r e s i nr e a l . ( %I 1 )i n f i j a( " ## " ,1 0 0 ,9 9 ,e x p r ,e x p r ,e x p r ) ; ( %O 1 )## ( %I 2 )s ix##ye n t o n c e s10 ; S i n t a x i si n c o r r e c t a :e x p r e s i na l g e b r a i c aE n c o n t r a d oe nl g i c a e x p r e s i nd el oe s p e r a d o s ix##yl u e g o ^ ( %I 2 )i n f i j a( " ## " ,1 0 0 ,9 9 ,e x p r ,e x p r ,c l u s u l a ) ; ( %O 2 )## ( %I 3 )s ix##ye n t o n c e s10 ; ( %O 3 )s ix##ye n t o n c e s10
F u n c i n :m a t c h f i x( < l d e l i m i t e r > ,< r d e l i m i t e r > ) F u n c i n :m a t c h f i x( < l d e l i m i t e r > ,< r d e l i m i t e r > ,< a r g _ p o s > , ) D e c l a r au no p e r a d o rm a t c h f i xc o nd e l i m i t a d o r e si z q u i e r d oyd e r e c h o < l d e l i m i t e r >y< r d e l i m i t e r > .L o sd e l i m i t a d o r e ss o n c a d e n a s . U no p e r a d o r" m a t c h f i x "e su n af u n c i nd eu n as e r i ed ea r g u m e n t o s , d et a lm a n e r aq u es ep r o d u c e ne n t r el o sa r g u m e n t o sq u ee m p a r e j a ni z q u i e r d ayd e r e c h a d e l i m i t a d o r e s .L o sd e l i m i t a d o r e sp u e d e ns e rc u a l q u i e rc a d e n a ,s i e m p r eq u ee l a n a l i z a d o re sc a p a zd ed i s t i n g u i rl o sd e l i m i t a d o r e sd el o so p e r a n d o syo t r o s e x p r e s i o n e syo p e r a d o r e s .E nl ap r c t i c ae s t oe x c l u y en os ep u e d e na n a l i z a r d e l i m i t a d o r e sc o m o' % ' ,' , ' ,' $ 'y' ; ' ,yp u e d er e q u e r i r a i s l a rl o sd e l i m i t a d o r e sc o ne s p a c i o se nb l a n c o .E ld e l i m i t a d o rd e r e c h o p u e d es e re lm i s m ood i f e r e n t ed e ld e l i m i t a d o ri z q u i e r d o . U nd e l i m i t a d o ri z q u i e r d op u e d ee s t a ra s o c i a d oc o nu ns o l od e l i m i t a d o rd el ad e r e c h a ; d o so p e r a d o r e sm a t c h f i xd i f e r e n t e sn op u e d e nt e n e rl am i s m ai z q u i e r d a d e l i m i t a d o r . E lo p e r a d o ry ae x i s t e n t ep u e d ed e c l a r a r s ec o m oo p e r a d o rm a t c h f i x s i nc a m b i a rs u so t r a sp r o p i e d a d e s .E np a r t i c u l a r ,u n af u n c i nd e o p e r a d o r e sc o m os u m a' + 's ep u e d e nd e c l a r a rm a t c h f i x ,p e r o f u n c i o n e sd eo p e r a d o rn os ep u e d e nd e f i n i rp a r al o so p e r a d o r e si n t e g r a d o s . E l` m a t c h f i xc o m a n d o s( < l d e l i m i t e r > ,< r d e l i m i t e r > ,< a r g _ p o s > , )d e c l a r ae l< a r g _ p o s >p a r t ed ed i s c u r s oa r g u m e n t oye lr e s u l t a d o p a r t ed ed i s c u r s o ,ye l< l d e l i m i t e r >d e l i m i t a d o r e sy < r d e l i m i t e r > . " P a r t ed el ao r a c i n " ,e nr e f e r e n c i aal a sd e c l a r a c i o n e sd e lo p e r a d o r ,s i g n i f i c a t i p od ee x p r e s i n .S er e c o n o c e nt r e st i p o s :` e x p r' , 'c l u s u l a' , y' n i n g u n a ' ,l oq u ei n d i c au n ae x p r e s i na l g e b r a i c a ,u nb o o l e a n o e x p r e s i n ,oc u a l q u i e rt i p od ee x p r e s i n ,r e s p e c t i v a m e n t e .M a x i m ap u e d e d e t e c t a ra l g u n o se r r o r e ss i n t c t i c o sc o m p a r a n d ol o st i p o sd e c l a r a d o sd ee x p r e s i n au n ae x p r e s i nr e a l . L af u n c i np a r al l e v a rac a b ou n ao p e r a c i nd em a t c h f i xe su no r d i n a r i o f u n c i nd e f i n i d ap o re lu s u a r i o .L af u n c i nd eo p e r a d o rs ed e f i n ee nl a f o r m ah a b i t u a lc o nl af u n c i nd ed e f i n i c i nd eo p e r a d o r' := 'o' d e f i n i r ' . L o sa r g u m e n t o sp u e d e ne s c r i b i r s ee n t r el o sd e l i m i t a d o r e s ,oc o ne l d e l i m i t a d o ri z q u i e r d oc o m ou n ac a d e n ae n t r ec o m i l l a syl o sa r g u m e n t o ss i g u i e n d o p a r n t e s i s .` D i s p f u n( < l d e l i m i t e r > ) "m u e s t r al af u n c i n D e f i n i c i n . E l n i c oo p e r a d o ri n t e g r a d om a t c h f i xe se lc o n s t r u c t o rl i s t` [ ]' . L o sp a r n t e s i s' ( ) 'yc o m i l l a sd o b l e s' " " 'a c t a nc o m om a t c h f i x o p e r a d o r e s ,p e r on os o nt r a t a d o sc o m ot a l e sp o re la n a l i z a d o rs i n t c t i c od eM a x i m a . ` M a t c h f i x' e v a l as u sa r g u m e n t o s .` M a t c h f i x' d e v u e l v es up r i m e r a a r g u m e n t o ,< l d e l i m i t e r > . E j e m p l o s : L o sd e l i m i t a d o r e sp u e d e ns e rp r a c t i c a m e n t ec u a l q u i e rc a d e n a . ( %I 1 )m a t c h f i x( " @@ " ," ~ " ) ; ( %O 1 )@@ ( %I 2 )@@a ,b ,c~ ; ( %O 2 )@@a ,b ,c~ ( %I 3 )m a t c h f i x( " > > " ," < < " ) ; ( %O 3 )> > ( %I 4 )> >a ,b ,c< < ; ( %O 4 )> >a ,b ,c< < ( %I 5 )m a t c h f i x( " f o o " ," u f " ) ; ( %O 5 )f o o ( %I 6 )f o oa ,b ,co o f ;
72/633
28/08/13

( %O 6 )f o o A ,b ,C O O F ( %I 7 )> >w+f o ox ,yu f+z< </@@p ,q~ ; > >Z+F o o x ,y o o f+w< < ( %O 7 )@@P ,q~ O p e r a d o r e sm a t c h f i xs o nf u n c i o n e sd e f i n i d a sp o re lu s u a r i oc o m n . ( %I 1 )m a t c h f i x( " " ," " ) ; ( %O 1 )" " ( %I 2 )-x ,y!:=X/y-y/x ; x y ( %O 2 ) ! X ,y !:=y x ( %I 3 )d e f i n e( , ,x/y-y/x x !Y ! ) ; x y ( %O 3 ) ! X ,y !:=y x ( %I 4 )d e f i n e( -( x ,y ) ,x/y-y/x" ! " ) ; x y ( %O 4 ) ! X ,y !:=y x ( %I 5 )d i s p f u n( " " ) ; x y ( %T 5 ) ! X ,y !:=y x ( %O 5 )h e c h o !( %I 6 )3 ,5! ; 1 6 ( %O 6 )1 5 ( %I 7 )-( 3 ,5 )" " ; 1 6 ( %O 7 )1 5
F u n c i n :n a r y( < o p > ) F u n c i n :n a r y( < o p > , ,< a r g _ p o s > , ) U no p e r a d o rn a r i o` ' s eu t i l i z ap a r ad e n o t a ru n af u n c i nd ec u a l q u i e rn m e r od e a r g u m e n t o s ,c a d au n od el o sc u a l e se s t s e p a r a d op o ru n aa p a r i c i nd el a o p e r a d o r ,p o re j e m p l o ,A+BoA+B+C .L af u n c i n` n a r y( "x" ) "e su n f u n c i nd ee x t e n s i nd el as i n t a x i sp a r ad e c l a r a r` x' s e ru nn a r y ` 'o p e r a d o r . L a sf u n c i o n e sp u e d e ns e rd e c l a r a d a s` n a r' .S i` d e c l a r e( j ,n a r y ) ; "e s h a c e ,e s t ol ei n d i c aa ls i m p l i f i c a d o rd es i m p l i f i c a r ,p o re j e m p l o ` J( j( a ,b ) ,j( c ,d ) )' a `j( a ,b ,c ,d ) ' . V a s et a m b i nl an o t a*I n t r o d u c c i nal o so p e r a d o r e s .: :
F u n c i n :n o f i x( < o p > ) F u n c i n :n o f i x( < o p > , ) O p e r a d o r e s` n o f i x "s eu t i l i z a np a r ar e f e r i r s eal a sf u n c i o n e sd en i n g na r g u m e n t o . L am e r ap r e s e n c i ad et a lo p e r a d o re nu nc o m a n d oc a u s a r q u ee l f u n c i nc o r r e s p o n d i e n t eae v a l u a r .P o re j e m p l o ,c u a n d ou n o t i p o s" e x i t ; "p a r as a l i rd eu n ai n t e r r u p c i nd eM a x i m a ," e x i t "s ee s t c o m p o r t a n d o s i m i l a rau no p e r a d o r` n o f i x' .L af u n c i n` n o f i x( "x" ) "e su n f u n c i nd ee x t e n s i nd el as i n t a x i sq u es ed e c l a r a` x' s e au n `n o f i x ' o p e r a d o r . V a s et a m b i nl an o t a*I n t r o d u c c i nal o so p e r a d o r e s .: :
F u n c i n :P o s t f i x( < o p > ) F u n c i n :P o s t f i x( < o p > ,< l b p > ,< l p o s > , ) ' O p e r a d o r e sc o m oe lp r e f i j o` ' `p o s t f i xv a r i e d a dd e n o t a nf u n c i o n e sd eu n s o l oa r g u m e n t o ,p e r oe ne s t ec a s oe la r g u m e n t od ei n m e d i a t o p r e c e d eu n ao c u r r e n c i ad e lo p e r a d o re nl ac a d e n ad ee n t r a d a ,p o re j e m p l o , 3 ! .E l` P o s t f i x( "x" ) "f u n c i ne su n af u n c i nd ee x t e n s i nd el as i n t a x i sd e d e c l a r a r` x' s e r `s u f i j o o p e r a d o r . V a s et a m b i nl an o t a*I n t r o d u c c i nal o so p e r a d o r e s .: :
F u n c i n :p r e f i j o( < o p > ) F u n c i n :p r e f i j o( < o p > ,< r b p > ,< r p o s > , ) U no p e r a d o rd ep r e f i j o` ' e su n oq u ei n d i c au n af u n c i nd eu n o a r g u m e n t o ,d i c h oa r g u m e n t ov i e n ei n m e d i a t a m e n t el ao c u r r e n c i ad e l o p e r a d o r .` P r e f i j o( "x" )' e su n ae x t e n s i nd el af u n c i ns y n t a xp a r ad e c l a r a r ` X' s e au n 'p r e f i j o' o p e r a d o r . V a s et a m b i nl an o t a*I n t r o d u c c i nal o so p e r a d o r e s .: :
8 Evaluacin
file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html 73/633
28/08/13
F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n
8.1 Funciones y variables para la evaluacin

O p e r a d o r :" E lo p e r a d o rc o m i l l as i m p l e ' '' e v i t al ae v a l u a c i n . A p l i c a d oau ns m b o l o ,l ac o m i l l as i m p l ee v i t al ae v a l u a c i nd e l s m b o l o . A p l i c a d oau n al l a m a d aal af u n c i n ,l ac o m i l l as i m p l ee v i t al ae v a l u a c i n d el af u n c i nl l a m a d a ,ap e s a rd el o sa r g u m e n t o sd el af u n c i ns o n s i e n d oe v a l u a d o( s il ae v a l u a c i nn os ee v i t ed eo t r am a n e r a ) .L a r e s u l t a d oe sl af o r m an o m i n a ld el af u n c i nl l a m a d a . A p l i c a d oau n ae x p r e s i nc o np a r n t e s i s ,l ac o m i l l as i m p l ee v i t a e v a l u a c i nd et o d o sl o ss m b o l o syl l a m a d a saf u n c i o n e se nl ae x p r e s i n . P o re j e m p l o ,` ' ( f( x ) ) 's i g n i f i c an oe v a l u a rl ae x p r e s i n `f( x ) . ` ' F( x )( c o nl ac o m i l l as i m p l ea p l i c a d aa 'f' e nv e zd e `f( x ) ' ) m e d i o sd e v u e l v e nl af o r m an o m i n a ld e` f' a p l i c a d oa `[ x ] . L ac o m i l l as i m p l en oe v i t al as i m p l i f i c a c i n . C u a n d oe li n d i c a d o rg l o b a l` n o u n d i s p' e s `t r u e ' ,l o sn o m b r e ss em u e s t r a nc o nu n c o m i l l as i m p l e .E s t ei n t e r r u p t o re ss i e m p r e` t r u e' c u a n d ov e a d e f i n i c i nd ef u n c i o n e s . V e rt a m b i ne lo p e r a d o rc o m i l l a c o m i l l a ' '` ' y `s u s t a n t i v o s . E j e m p l o s : A p l i c a d oau ns m b o l o ,l ac o m i l l as i m p l ee v i t al ae v a l u a c i nd e l s m b o l o . ( %I 1 )a a :1 0 2 4 ; ( %O 1 )1 0 2 4 ( %I 2 )a a^2 ; ( %O 2 )1 0 4 8 5 7 6 ( %I 3 )' a a^2 ; 2 ( %O 3 )a a ( %I 4 ) ' ' % ; ( %O 4 )1 0 4 8 5 7 6 A p l i c a d oau n al l a m a d aal af u n c i n ,l ac o m i l l as i m p l ee v i t al ae v a l u a c i n d el al l a m a d ad ef u n c i n .E lr e s u l t a d oe sl af o r m an o m i n a ld el af u n c i n l l a m a r . ( %I 1 )x 0 ,5 ; ( %O 1 )5 ( %I 2 )x 1 :7 ; ( %O 2 )7 ( %I 3 )i n t e g r a t e( x^2 ,x ,x 0 ,x 1 ) ; 2 1 8 ( %O 3 )3 ( %I 4 )' i n t e g r a t e( x^2 ,x ,x 0 ,x 1 ) ; 7 / [ 2 ( %O 4 )Ixd x ] / 5 ( %I 5 ) % ,l o ss u s t a n t i v o s ; 2 1 8 ( %O 5 )3 A p l i c a d oau n ae x p r e s i nc o np a r n t e s i s ,l ac o m i l l as i m p l ee v i t a e v a l u a c i nd et o d o sl o ss m b o l o syl l a m a d a saf u n c i o n e se nl ae x p r e s i n . ( %I 1 )a a :1 0 2 4 ; ( %O 1 )1 0 2 4 ( %I 2 )b b :1 9 ; ( %O 2 )1 9 ( %I 3 )s q r t( a a )b b+ ; ( %O 3 )5 1 ( %I 4 )' ( s q r t( a a )+b b ) ; ( %O 4 )b b+s q r t( a a ) ( %I 5 ) ' ' % ; ( %O 5 )5 1 L ac o m i l l as i m p l en oe v i t al as i m p l i f i c a c i n . ( %I 1 )s i n( 1 7* %p i )+c o s( 1 7* %p i ) ; ( %O 1 )-1 ( %I 2 )' ( s i n( 1 7* %p i )+c o s( 1 7* %p i ) ) ; ( %O 2 )-1 M a x i m ac o n s i d e r ao p e r a c i o n e sd ep u n t of l o t a n t ep o rs ui n c o r p o r a d o f u n c i o n e sm a t e m t i c a sp a r as e ru n as i m p l i f i c a c i n .
74/633
28/08/13
( %I 1 )s i n( 1 . 0 ) ; ( %O 1 )0 . 8 4 1 4 7 0 9 8 4 8 0 7 8 9 6 5 ( %I 2 )' ( s i n( 1 . 0 ) ) ; ( %O 2 )0 . 8 4 1 4 7 0 9 8 4 8 0 7 8 9 6 5
O p e r a d o r :" E lo p e r a d o rc o m i l l a c o m i l l a ' '` ' ( d o sc o m i l l a ss i m p l e s )m o d i f i c a E v a l u a c i nd ee x p r e s i o n e sd ee n t r a d a . A p l i c a d oau n ae x p r e s i ng e n e r a le x p r ,l a sd o sc o m i l l a sh a c eq u ee l v a l o rd e< e x p r >q u es e rs u s t i t u i d op o r< e x p r >e nl ae n t r a d a e x p r e s i n . A p l i c a d oa lo p e r a d o rd eu n ae x p r e s i n ,l a sd o sc o m i l l a sc a m b i ae l o p e r a d o rd eu ns u s t a n t i v oau nv e r b o( s in oe s t y au nv e r b o ) . E lo p e r a d o rc o m i l l a c o m i l l ae sa p l i c a d op o re la n a l i z a d o rs i n t c t i c od ee n t r a d a ,n oe s a l m a c e n a d oc o m op a r t ed eu n ae x p r e s i nd ee n t r a d aa n a l i z a d a .L ac i t a c i t a o p e r a d o rs ea p l i c as i e m p r et a np r o n t oc o m oe sd e t e c t a d o ,yn op u e d es e r c i t a d o .A s ,d o sc o m i l l a ss i m p l e sh a c e nl ae v a l u a c i n ,c u a n d ol ae v a l u a c i ne s d el oc o n t r a r i os u p r i m i d a ,t a l e sc o m oe nl a sd e f i n i c i o n e sd ef u n c i o n e s ,l a m b d a m a n i f e s t a c i o n e sye x p r e s i o n e sc o nu n ac o m i l l as i m p l e` ' ' . L ad o b l ec o m i l l ae sr e c o n o c i d op o rl o t e` ' y 'c a r g a' . V e rt a m b i ne lo p e r a d o rc o m i l l as i m p l e ' 'y` `s u s t a n t i v o s . E j e m p l o s : A p l i c a d oau n ae x p r e s i ng e n e r a le x p r ,l a sd o sc o m i l l a sh a c eq u ee l v a l o rd e< e x p r >q u es e rs u s t i t u i d op o r< e x p r >e nl ae n t r a d a e x p r e s i n . ( %I 1 )e x p a n s i n( ( a+b )^3 ) ; 3223 ( %O 1 )b+3a b+3a b+a ( %I 2 )[ _ ,_ ' ' ] ; 33223 ( %O 2 )[ a m p l i a r( ( b+a ) ) ,b+3+3a ba b+a ] ( %I 3 )[ %i 1 , %i 1 ' ' ] ; 33223 ( %O 3 )[ a m p l i a r( ( b+a ) ) ,b+3+3a ba b+a ] ( %I 4 )[ a a :c c ,b b :d d ,c c :1 7 ,d d :2 9 ] ; ( %O 4 )[ c c ,d d ,1 7 ,2 9 ] ( %I 5 )F O O _ 1( x ) :=A A-B B*x ; ( %O 5 )F O O _ 1( x ) :=a a-b bx ( %I 6 )F O O _ 1( 1 0 ) ; ( %O 6 )c c-1 0d d ( %I 7 ) ' ' % ; ( %O 7 )-2 7 3 ( %I 8 ) ' '( F O O _ 1( 1 0 ) ) ; ( %O 8 )-2 7 3 ( %I 9 )F O O _ 2( x ) := ' 'a a' 'b b*x ; ( %O 9 )F O O _ 2( x ) :=c c-d dx ( %I 1 0 )F O O _ 2( 1 0 ) ; ( %O 1 0 )-2 7 3 ( %I 1 1 )[ x 0 :x 1 ,x 1 :x 2 ,x 2 :x 3 ] ; ( %O 1 1 )[ x 1 ,x 2 ,x 3 ] ( %I 1 2 )x 0 ; ( %O 1 2 )x 1 ( %I 1 3 ) ' 'x 0 ; ( %O 1 3 )x 2 ( %I 1 4 ) ' ' ' 'x 0 ; ( %O 1 4 )x 3 A p l i c a d oa lo p e r a d o rd eu n ae x p r e s i n ,l a sd o sc o m i l l a sc a m b i ae l o p e r a d o rd eu ns u s t a n t i v oau nv e r b o( s in oe s t y au nv e r b o ) . ( %I 1 )d e c l a r e( f o o ,n o m b r e ) ; ( %O 1 )h e c h o ( %I 2 )f o o( x ) :=x-1 7 2 9 ; ( %O 2 ) ' 'f o o( x ) :=x-1 7 2 9 ( %I 3 )f o o( 1 0 0 ) ; ( %O 3 )f o o( 1 0 0 ) ( %I 4 ) ' 'f o o( 1 0 0 ) ; ( %O 4 )-1 6 2 9 E lo p e r a d o rc o m i l l a c o m i l l ae sa p l i c a d op o re la n a l i z a d o rs i n t c t i c od ee n t r a d a ,n oe s a l m a c e n a d oc o m op a r t ed eu n ae x p r e s i nd ee n t r a d aa n a l i z a d a . ( %I 1 )[ a a :b b ,c c :d d ,b b :1 2 3 4 ,d d :5 6 7 8 ] ; ( %O 1 )[ b b ,d d ,1 2 3 4 ,5 6 7 8 ] ( %I 2 )a a+c c ; ( %O 2 )d d+b b ( %I 3 )P a n t a l l a( _ ,o p( _ ) ,a r g s( _ ) ) ; _=C c+a a o p( c c+a a )=+ a r g s( c c+a a )=[ c c ,a a ] ( %O 3 )d o n e ( %I 4 ) ' '( a a+c c ) ;
75/633
28/08/13

( %O 4 )6 9 1 2 ( %I 5 )p a n t a l l a( _ ,o p( _ ) ,a r g s( _ ) ) ; _=D d+b b o p( d d+b b )=+ a r g s( d d+b b )=[ d d ,b b ] ( %O 5 )h e c h o L ad o b l ec o m i l l ap r o v o c al ae v a l u a c i nc u a n d ol ae v a l u a c i ne sd eo t r am a n e r a s u p r i m i d o ,p o re j e m p l o ,e nl ad e f i n i c i nd ef u n c i o n e s ,e x p r e s i o n e sl a m b d a yl a se x p r e s i o n e sc i t a d a sp o rc o m i l l a ss i m p l e s` ' ' . ( %I 1 )f o o _ 1 a( x ) := ' '( i n t e g r a t e( l o g( x ) ,x ) ) ; ( %O 1 )f o o _ 1 a( x ) :=xl o g( x )-x ( %I 2 )f o o _ 1 b( x ) :=i n t e g r a t e( l o g( x ) ,x ) ; ( %O 2 )f o o _ 1 b( x ) :=i n t e g r a t e( l o g( x ) ,x ) ( %I 3 )d i s p f u n( f o o _ 1 a ,f o o _ 1 b ) ; ( %T 3 )f o o _ 1 a( x ) :=xl o g( x )-x ( %T 4 )f o o _ 1 b( x ) :=i n t e g r a t e( l o g( x ) ,x ) ( %O 4 )[ %t 3 ,t 4 % ] ( %I 5 )i n t e g r a t e( l o g( x ) ,x ) ; ( %O 5 )xl o g( x )-x ( %I 6 )f o o _ 2 a( x ) := % ' ' ; ( %O 6 )f o o _ 2 a( x ) :=xl o g( x )-x ( %I 7 )f o o _ 2 b( x ) := % ; ( %O 7 )f o o _ 2 b( x ) := % ( %I 8 )d i s p f u n( f o o _ 2 a ,f o o _ 2 b ) ; ( %T 8 )f o o _ 2 a( x ) :=xl o g( x )-x ( %T 9 )f o o _ 2 b( x ) := % ( %O 9 )[ %t 7 ,t 8 % ] ( %I 1 0 )F :l a m b d a( [ u ] ,d i f f( s e n( u ) ,u ) ) ; ( %O 1 0 )l a m b d a( [ u ] ,d i f f( s i n( u ) ,u ) ) ( %I 1 1 )G :l a m b d a( [ u ] ' '( d i f f( s i n( u ) ,u ) ) ) ; ( %O 1 1 )l a m b d a( [ u ] ,c o s( u ) ) ( %I 1 2 )' ( s u m ad e( a[ k ] ,k ,1 ,3 )+s u m a( b[ k ] ,k ,1 ,3 ) ) ; ( %O 1 2 )s u m a( b ,k ,1 ,3 )+s u m a( a ,k ,1 ,3 ) k k ( %I 1 3 )' ( ' '( s u m ad e( a[ k ] ,k ,1 ,3 ) ) ' '+( s u m a( b[ k ] ,k ,1 ,3 ) ) ) ; ( %O 1 3 )b+a+b+a+b+a 332211
F u n c i n :e v( e x p r ,< a r g _ 1 > ,. . . ,< a r g _ n > ) E v a l al ae x p r e s i ne x p re ne le n t o r n oe s p e c i f i c a d op o re l a r g u m e n t o s< a r g _ 1 > ,. . . ,< a r g _ n > .L o sa r g u m e n t o ss o ni n t e r r u p t o r e s ( V a r i a b l e sB o o l e a n a s ) ,m i s i o n e s ,e c u a c i o n e syf u n c i o n e s .` E v' d e v u e l v ee lr e s u l t a d o( o t r ae x p r e s i n )d el ae v a l u a c i n . L ae v a l u a c i ns el l e v aac a b oe ne t a p a s ,c o m os i g u e . 1 .E np r i m e rl u g a re lm e d i oa m b i e n t es ec o n f i g u r am e d i a n t ee le s c a n e od el o sa r g u m e n t o s q u ep u e d es e rc u a l q u i e r aot o d o sd el o ss i g u i e n t e s . *` S i m p "h a c eq u ee x p rs e as i m p l i f i c a d as i ni m p o r t a re l a j u s t ed e li n t e r r u p t o rs i m p` ' q u ei n h i b e s i m p l i f i c a c i ns i` f a l s e' . *` N o e v a l' s u p r i m el af a s ed ee v a l u a c i nd ee v ` '( v a s e e lp a s o( 4 )m sa b a j o ) .E s t oe s t i le nc o n j u n c i nc o nl a o t r o si n t e r r u p t o r e sye nl ac a u s ad ee x p rq u er e s i m p l i f i c a d a s i ns e rr e e v a l u a d a . *` N o m b r e s' h a c eq u el ae v a l u a c i nd el a sf o r m a sn o m i n a l e s( t p i c a m e n t e f u n c i o n e ss i ne v a l u a rt a l e sc o m o` ' i n t e g r a r 'o `' d i f f ' ) e ne x p r . *` E x p a n d i r' h a c eq u el ae x p a n s i n . *` A m p l i a r( < m > ,< n > )' p r o v o c al ae x p a n s i n ,e le s t a b l e c i m i e n t od el o sv a l o r e s d e` m a x p o s e x' y `m a x n e g e x 'a< m >y< n > r e s p e c t i v a m e n t e . *` D e t o u t "h a c eq u ec u a l e s q u i e r am a t r i c e si n v e r s a sc a l c u l a d a se ne x p r q u ec o n s e r v e ns ud e t e r m i n a n t ef u e r ad el ai n v e r s a e nl u g a rd ed i v i d i rat r a v sd ec a d ae l e m e n t o . *` D i f f' t o d a sl a sd i f e r e n c i a c i o n e si n d i c a d a se ne x p r ar e a l i z a r . *` D e r i v l i s t( < x >< y > ,< z > ,. . . ) "h a c eq u es l o d i f e r e n c i a c i o n e sc o nr e s p e c t oal ai n d i c a d a v a r i a b l e s .C o n s u l t et a m b i n` d e r i v l i s t' . *` R i s c h' c a u s ai n t e g r a l e se ne x p rs ee v a l e nm e d i a n t e e la l g o r i t m od eR i s c h .C o n s u l t e` r i s c h' .L an o r m a r u t i n ad ei n t e g r a c i nq u es ei n v o c ac u a n d os eu t i l i z ae le s p e c i a l s m b o l o` s u s t a n t i v o s " . *' F l o a t 'c a u s an m e r o sr a c i o n a l e sn oe n t e r o sp a r as e r
76/633
28/08/13

c o n v e r t i d oac o m af l o t a n t e . *` N u m e r' h a c ea l g u n a sf u n c i o n e sm a t e m t i c a s( i n c l u y e n d o p o t e n c i a c i n )c o na r g u m e n t o sn u m r i c o ss e a ne v a l u a d o s e nc o m af l o t a n t e .E s t oc a u s aq u el a sv a r i a b l e se n< e x p r >q u e h a ns i d od e c l a r a d a sc o m ov a r i a b l e sn u m r i c a sp a r as e rr e e m p l a z a d op o rs u v a l o r e s .T a m b i ne s t a b l e c ee li n t e r r u p t o r' f l o a t 'o n . *` P r e d c a u s a sp r e d i c a d o s( e x p r e s i o n e sq u es ee v a l a nc o m o ` T r u e' o 'f a l s e' )p a r as e re v a l u a d o . *` E v a l' h a c eu n ap o s t e v a l u a c i ne x t r ad ee x p ra o c u r r i r .( V e ae lp a s o( 5 )ac o n t i n u a c i n . )` E v a l' p u e d e no c u r r i rm l t i p l e s v e c e s .P a r ac a d ai n s t a n c i ad e` e v a l' ,l ae x p r e s i ne s e v a l u a d od en u e v o . *` A' ,d o n d e À 'e su n t o m od e c l a r a d oc o m ou n ae v a l u a c i n b a n d e r a` e v f l a g' c a u s a 'A' q u es eu n ea `t r u e 'e n l ae v a l u a c i nd e< e x p r > . *` V :E x p r e s i n "( oa l t e r n a t i v a m e n t eV=e x p r e s i o n` ' )c a u s a ` V' q u eq u e d a r v i n c u l a d oa lv a l o rd e è x p r e s i n 'd u r a n t ee l E v a l u a c i nd e< e x p r > .T e n g ae nc u e n t aq u es i` V' e su nM a x i m a o p c i n ,e n t o n c e sl ae x p r e s i n" s eu s a `c o m os uv a l o rd u r a n t e l ae v a l u a c i nd e< e x p r > .S im sd eu na r g u m e n t op a r a ` E v' e sd ee s t et i p oac o n t i n u a c i n ,l au n i ns eh a c ee n p a r a l e l a s .S i` V' e su n ae x p r e s i nn oa t m i c ae n t o n c e su n s u s t i t u c i ne nl u g a rd eu n au n i ns el l e v aac a b o . *` F' ,d o n d e `F ' ,u nn o m b r ed ef u n c i n ,h as i d od e c l a r a d o u n af u n c i nd ee v a l u a c i n` e v f u n' c a u s a 'F' q u es ea p l i c a r a< e x p r > . *C u a l q u i e ro t r on o m b r ed ef u n c i n ,p o re j e m p l o ,' s u m a ' ,l ae v a l u a c i nc a u s a d eo c u r r e n c i a sd ee s o sn o m b r e se ne x p rc o m os i f u e r a nv e r b o s . *A d e m sd eu n af u n c i no c u r r ae ne x p r( d i g a m o s` F( x )' ) p u e d es e rd e f i n i d al o c a l m e n t ep a r ae lp r o p s i t od ee s t e E v a l u a c i nd e< e x p r >d a n d o` F( x ) :=e x p r e s i n' c o m o u na r g u m e n t op a r a` e v' . *S iu n t o m on om e n c i o n a d oa n t e r i o r m e n t eou n av a r i a b l ec o ns u b n d i c e oe x p r e s i ns u b n d i c ef u ed a d oc o m ou na r g u m e n t o , s ee v a l ays ie lr e s u l t a d oe su n ae c u a c i no a s i g n a c i nac o n t i n u a c i n ,l au n i nos u s t i t u c i ne s r e a l i z a d o .S ie lr e s u l t a d oe su n al i s t aac o n t i n u a c i n ,l o sm i e m b r o sd e l al i s t as et r a t a nc o m os if u e r a na d i c i o n a l a r g u m e n t o sd a d o sa` e v' .E s t op e r m i t eu n al i s t ad el o s a r g u m e n t o ss e ap a s a d a( p o re j e m p l o ,` [ X=1 ,Y=A* *2 ]' )ou n al i s t a d el o sn o m b r e sd el a se c u a c i o n e s( p o re j e m p l o ,' [ %t 1 , %t 2 ] ' ,d o n d e` %t 1' y` %t 2' s o ne c u a c i o n e s )t a lc o m oe ld e v u e l t op o r ' R e s o l v e r ' .
S m b o l oe s p e c i a l :e v a l C o m oa r g u m e n t oe nu n al l a m a d aa` e v( e x p r )' , 'e v a l' p r o v o c au ne x t r a E v a l u a c i nd e< e x p r > .C o n s u l t e` e v' . E j e m p l o : ( %I 1 )[ a :b ,b :c ,c :d ,d :e ] ; ( %O 1 )[ b ,c ,d ,e ] ( %I 2 )a ; ( %O 2 )b ( %I 3 )E V( a ) ; ( %O 3 )c ( %I 4 )e v( a ) ,e v a l ; ( %O 4 )e ( %I 5 )a ,e v a ,e v a ; ( %O 5 )e
P r o p i e d a d :e v f l a g C u a n d ou n< x >s m b o l ot i e n el ap r o p i e d a d` e v f l a g' ,l a se x p r e s i o n e s ` E v( e x p r ,< x > )' y è x p r ,< x > '( e nm o d oi n t e r a c t i v o ) s o ne q u i v a l e n t e sa` e v( e x p r ,< x >=t r u e ) .E s oe s ,< x >e s t o b l i g a d o a` t r u e' ,m i e n t r a sq u es ee v a l ae x p r . L ae x p r e s i n` d e c l a r e( < x >e v f l a g )' d al a è v f l a g" p r o p i e d a d al a< x >v a r i a b l e . L a sb a n d e r a sq u et i e n e nl ap r o p i e d a d` e v f l a g' p o rd e f e c t os o ne l s i g u i e n d o : a l g e b r a i c ac a u c h y s u md e m o i v r e d o t s c r u l e s %e m o d e %e n u m e r e x p o n e n t i a l i z ee x p t i s o l a t ef a c t o r f l a g h a l f a n g l e sf l o t a d o ri n f e v a l i s o l a t e _ w r t _ t i m e sk e e p f l o a tl e t r a t l i s t a r i t hl o g a b sl o g a r c l o g e x p a n dl o g n e g i n t
77/633
28/08/13

p r o g r a m m o d en u m e r _ p b r a n c hv a r i a b l em 1 p b r a n c h r a d e x p a n dr a t a l g d e n o mr a t f a c r a t m xr a t s i m p e x p o n ss i m p s i m p p r o d u c tv a l g as i m p s u ms u m e x p a n d t r i g e x p a n d E j e m p l o s : ( %I 1 )s e n( 1 / 2 ) ; 1 ( %O 1 )s i n( ) 2 ( %I 2 )s i n( 1 / 2 ) ,f l o a t ; ( %O 2 )0 . 4 7 9 4 2 5 5 3 8 6 0 4 2 0 3 ( %I 3 )s i n( 1 / 2 ) ,f l o a t=t r u e ; ( %O 3 )0 . 4 7 9 4 2 5 5 3 8 6 0 4 2 0 3 ( %I 4 )s i m p :f a l s e ; ( %O 4 )f a l s e ( %I 5 )1+1 ; ( %O 5 )1+1 ( %I 6 )1+1 ,s i m p ; ( %O 6 )2 ( %I 7 )s i m p :t r u e ; ( %O 7 )t r u e ( %I 8 )s u m a( 1/k^2 ,k ,1 ,i n f ) ; i n f = = = = \1 ( %O 8 ) >/2 = = = =K k=1 ( %I 9 )s u m a( 1 / 2^k ,k ,1 ,i n f ) ,s i m p s u m ; 2 %P i ( %O 9 )6 ( %I 1 0 )d e c l a r e( a a ,e v f l a g ) ; ( %O 1 0 )d o n e ( %I 1 1 )s ia a=t r u ee n t o n c e sS IN Od e m s ; ( %O 1 1 )N O ( %I 1 2 )s ia a=t r u ee n t o n c e sS IN Ol od e m s ,a a ; ( %O 1 2 )S
P r o p i e d a d :e v f u n C u a n d ou n< F >f u n c i nt i e n el ap r o p i e d a d` e v f u n' ,l a se x p r e s i o n e s ` E v( e x p r ,< F > )' y è x p r ,< F > '( e nm o d oi n t e r a c t i v o ) s o ne q u i v a l e n t e sa` < F >( e v( e x p r ) )' . S is ee s p e c i f i c a nd o som sf u n c i o n e s` e v f u n' < F > ,< G > ,e t c , l a sf u n c i o n e sq u es ea p l i c a ne ne lo r d e ne nq u es ee s p e c i f i c a n . L ae x p r e s i n` d e c l a r e( < F > ,e v f u n )' d al a è v f u n 'p r o p i e d a d l a< F >f u n c i n .L a sf u n c i o n e sq u et i e n e nl ap r o p i e d a d` e v f u n' p o r p o rd e f e c t os o nl o ss i g u i e n t e s : b f l o a tf a c t o rd ef u l l r a t s i m p l o g c o n t r a c tp o l a r f o r mr a d c a n r a t e x p a n dr a t s i m pr e c t f o r m r o o t s c o n t r a c tt r i g e x p a n dt r i g r e d u c e E j e m p l o s : ( %I 1 )x^3-1 ; 3 ( %O 1 )x-1 ( %I 2 )x^3-1 ,e lf a c t o r ; 2 ( %O 2 )( x-1 )( x+x+1 ) ( %I 3 )f a c t o r( x^3-1 ) ; 2 ( %O 3 )( x-1 )( x+x+1 ) ( %I 4 )c o s( 4*x )/s e n( x )^4 ; c o s( 4x ) ( %O 4 )4 s e n( x ) ( %I 5 )c o s( 4*x )/s e n( x )^4 ,t r i g e x p a n d ; 4224 s e n( x )-6c o s( x )s i n( x )+c o s( x ) ( %O 5 )4 s e n( x ) ( %I 6 )c o s( 4*x )/s e n( x )^4 ,t r i g e x p a n d ,r a t e x p a n d ; 24 6c o s( x )c o s( x ) ( %O 6 )-+-+1 24 s e n( x )s i n( x ) ( %I 7 )r a t e x p a n d( t r i g e x p a n d( c o s( 4*x )/s e n( x )^4 ) ) ; 24 6c o s( x )c o s( x ) ( %O 7 )-+-+1 24
78/633
28/08/13

s e n( x )s i n( x ) ( %I 8 )d e c l a r e( [ F ,G ] ,e v f u n ) ; ( %O 8 )h e c h o ( %I 9 )( a a :b b ,b b :c c ,c c :d d ) ; ( %O 9 )d d ( %I 1 0 )a a ; ( %O 1 0 )b b ( %I 1 1 )a a ,F ; ( %O 1 1 )F( c c ) ( %I 1 2 )F( a a ) ; ( %O 1 2 )F( b b ) ( %I 1 3 )F( e v( a a ) ) ; ( %O 1 3 )F( c c ) ( %I 1 4 )a a ,F ,G ; ( %O 1 4 )G( F( c c ) ) ( %I 1 5 )G( F( e v( a a ) ) ) ; ( %O 1 5 )G( F( c c ) )
V a r i a b l eo p c i o n a l :i n f e v a l A c t i v ae lm o d od e" e v a l u a c i ni n f i n i t a " .` E v' r e p e t i d a m e n t ee v a l u au n a e x p r e s i n ,h a s t aq u ed e j ad ec a m b i a r .P a r ae v i t a rq u eu n av a r i a b l e ,d i g a m o s ` X' ,s e ae v a l u a d as i np a r a re ne s t em o d o ,s i m p l e m e n t ei n c l u y a `X= 'X' c o m oa r g u m e n t op a r a` e v' .D el a se x p r e s i o n e sd ec u r s o st a l e sc o m o` e v( X , X=X+ 1 ,i n f e v a l )' g e n e r a r u nb u c l ei n f i n i t o .
S m b o l oe s p e c i a l :n o e v a l ` N o e v a l' s u p r i m el af a s ed ee v a l u a c i nd ee v ` ' .E s t i le nc o n j u n c i nc o no t r a sv a r i a b l e si n t e r r u p t o ryc a u s a n e x p r e s i o n e sq u es er e s i m p l i f i c a d as i ns e rr e e v a l u a d a .
S m b o l oe s p e c i a l :l o sn o m b r e s ` N o m b r e s' e su n è v f l a g ' .C u a n d os eu t i l i z ac o m ou n ao p c i np a r ae l` e v' c o m a n d o ,` n o m b r e s' c o n v i e r t et o d a sl a sf o r m a s "s u s t a n t i v o" q u eo c u r r e ne ne l e x p r e s i ne s` e vd ' 'a "v e r b o s" ,e sd e c i r ,l a se v a l a .V a s et a m b i n ` N o m b r e' , `n o u n i f y ' ,' v e r b o 'y` v e r b i f y' .
S m b o l oe s p e c i a l :p r e d C o m oa r g u m e n t oe nu n al l a m a d aa` e v( e x p r )' , `p r e d" c a u s a s p r e d i c a d o s( e x p r e s i o n e sq u es ee v a l a nc o m o` t r u e' o 'f a l s e' )p a r as e r e v a l u a d o .C o n s u l t e` e v' . E j e m p l o : ( %I 1 )1< 2 ; ( %O 1 )1< 2 ( %I 2 )1< 2 ,P r e d ; ( %O 2 )t r u e
9 Simplificacin
F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n
9.1 Funciones y variables para simplificacin

P r o p i e d a d :a d i t i v o S i` d e c l a r e( f ,a a d i r )' h as i d oe j e c u t a d o ,e n t o n c e s : ( 1 )S i` f' e su n i v a r i a n t e ,c a d av e zq u ee ls i m p l i f i c a d o re n c u e n t r e `f ' a p l i c a d aau n as u m a ,' f 's e r d i s t r i b u i d ab a j oe s t as u m a .E sd e c i r , ` F( y+x )s er e d u c i r a `f( a )+f( x ) . ( 2 )S i` f' e su n af u n c i nd e2om sa r g u m e n t o s ,a d i t i v a m e n t ee s d e f i n i d oc o m oa d i t i v i d a de ne lp r i m e ra r g u m e n t oa` f' ,c o m oe ne lc a s o d e' s u m a 'o' i n t e g r a r ' ,e sd e c i r ,` f( h( x )+g( x ) ,x )s er e d u c i r a ` F( h( x ) ,x )+f( g( x ) ,x ) .E s t as i m p l i f i c a c i nn os ep r o d u c ec u a n d o ` F' s ea p l i c aae x p r e s i o n e sd el af o r m a ` S u m( x[ i ] ,i , ,l m i t es u p e r i o rd e ll m i t ei n f e r i o r ) . E j e m p l o : ( %I 1 )F 3( a+b+c ) ; ( %O 1 )F 3( c+b+a ) ( %I 2 )d e c l a r e( F 3 ,a d i t i v o s ) ; ( %O 2 )d o n e ( %I 3 )F 3( a+b+c ) ;
79/633
28/08/13

( %O 3 )F 3( c )F 3+( b )+F 3( a )
P r o p i e d a d :a n t i s i m t r i c a ` S id e c l a r e( h ,a n t i s i m t r i c a )' s eh a c e ,e s t ol ei n d i c aa ls i m p l i f i c a d o r q u e` h' e sa n t i s i m t r i c a .P o re j e m p l o ,` h( x ,z ,y )s es i m p l i f i c a r a `h( x ,y ,z )' .E sd e c i r ,s el ed a r ( 1 )^np o re lr e s u l t a d od a d o p o r` s i m t r i c a' o `c o n m u t a t i v a ' ,d o n d ene se ln m e r od e i n t e r c a m b i o sn e c e s a r i o sd ed o sa r g u m e n t o sp a r ac o n v e r t i r l eae s t af o r m a . E j e m p l o s : ( %I 1 )S( b ,a ) ; ( %O 1 )S( b ,a ) ( %I 2 )d e c l a r e( S ,s i m t r i c a ) ; ( %O 2 )d o n e ( %I 3 )S( b ,a ) ; ( %O 3 )S( a ,b ) ( %I 4 )S( a ,c ,e ,d ,b ) ; ( %O 4 )S( a ,b ,c ,d ,e ) ( %I 5 )T( B ,A ) ; ( %O 5 )T( b ,a ) ( %I 6 )d e c l a r e( T ,a n t i s i m t r i c a ) ; ( %O 6 )h e c h o ( %I 7 )T( B ,A ) ; ( %O 7 )-T( a ,b ) ( %I 8 )T( a ,c ,e ,d ,b ) ; ( %O 8 )T( a ,b ,c ,d ,e )
F u n c i n :c o m b i n e( e x p r ) S i m p l i f i c al as u m ae x p rc o m b i n a n d ot r m i n o sd ec o nl am i s m a d e n o m i n a d o rr e d u c i n d o l o sau n n i c ot r m i n o .
P r o p i e d a d :c o n m u t a t i v a ` S id e c l a r e( h ,c o n m u t a t i v a )' s eh a c e ,e s t ol ei n d i c aa ls i m p l i f i c a d o r q u e` h' e su n af u n c i nc o n m u t a t i v a .P o re j e m p l o ,` h( x ,z ,y )s e s i m p l i f i c a ra l` h( x ,y ,z ) .
F u n c i n :d e m o i v r e( e x p r ) V a r i a b l eo p c i o n a l :d e m o i v r e L af u n c i n` d e m o i v r e( e x p r )' c o n v i e r t eu n ae x p r e s i ns i n e s t a b l e c i e n d ol av a r i a b l eg l o b a l` d e m o i v r e' . C u a n d oe l` d e m o i v r e' e s `t r u e ' ,e x p o n e n c i a l e sc o m p l e j o ss o n c o n v e r t i d oe ne x p r e s i o n e se q u i v a l e n t e se nt r m i n o sd ec i r c u l a r f u n c i o n e s :` e x p( a+b* %i ) "s i m p l i f i c aa` %e^ a*( c o s( b )+ %I*s i n( b ) )' s i 'b' e s t l i b r ed e` %i ' .` A' y 'b' n os ee x p a n d e n . E lv a l o rp o rd e f e c t od e` d e m o i v r e' e s 'f a l s e' . ` E x p o n e n t i a l i z e' c o n v i e r t ef u n c i o n e st r i g o n o m t r i c a seh i p e r b l i c a sa f o r m ae x p o n e n c i a l .D e m o i v r e` ' y è x p o n e n t i a l i z e 'n op u e d e ns e ra m b o s v e r d a d e r a sa lm i s m ot i e m p o .
F u n c i n :d i s t r i b( e x p r ) D i s t r i b u y es u m a ss o b r ep r o d u c t o s .S ed i f e r e n c i ad el a' e x p a n s i n 'e ne s e f u n c i o n as l oe ne ln i v e ls u p e r i o rd eu n ae x p r e s i n ,e sd e c i r ,n ol oh a c e r e c u r s eye sm sr p i d oq u e` a m p l i a r .S ed i f e r e n c i ad e ` M u l t t h r u' e nq u ee x p a n d et o d a sl a ss u m a se ne s en i v e l . E j e m p l o s : ( %I 1 )d i s t r i b( ( a+b )*( c+d ) ) ; ( %O 1 )b d+a d+b c+a c ( %I 2 )m u l t t h r u( ( a+b )*( c+d ) ) ; ( %O 2 )( b+a )+d( b+a )c ( %I 3 )d i s t r i b( 1/( ( a+b )*( c+d ) ) ) ; 1 ( %O 3 )( B+a )( d+c ) ( %I 4 )e x p a n s i n( 1/( ( a+b )*( c+d ) ) ,1 ,0 ) ; 1 ( %O 4 )b d+a d+b c+a c
V a r i a b l eo p c i o n a l :d i s t r i b u t e _ o v e r V a l o rp o rd e f e c t o :t r u e'
80/633
28/08/13

` D i s t r i b u t e _ o v e r' c o n t r o l al aa s i g n a c i nd ef u n c i o n e sat r a v sd el a sb o l s a sc o m o l i s t a s ,m a t r i c e sye c u a c i o n e s .E ne s t em o m e n t on ot o d o sl o sm x i m o s f u n c i o n e st i e n e ne s t ap r o p i e d a d .S ep u e d ec o n s u l t a re s t a p r o p i e d a dc o nl a sp r o p i e d a d e sd ec o m a n d o` ' . L aa s i g n a c i nd el a sf u n c i o n e se s t a p a g a d o ,a le s t a b l e c e r ` D i s t r i b u t e _ o v e r' c o ne lv a l o r 'f a l s e' . E j e m p l o s : L o s` p e c a d o' m a p a sd ef u n c i nm sd eu n al i s t a : ( %I 1 )s i n( [ x ,1 , 1 . 0 ] ) ; ( %O 1 )[ s i n( x ) ,s i n( 1 ) ,0 . 8 4 1 4 7 0 9 8 4 8 0 7 8 9 6 5 ] ' M o d 'e su n af u n c i nc o nd o sa r g u m e n t o sq u el o sm a p a sm sl i s t a s . M a p p i n gs o b r el i s t a sa n i d a d a se sp o s i b l et a m b i n : ( %I 2 )m o d( [ x ,u n1 1 , 2* ] ,1 0 ) ; ( %O 2 )[ m o d( x ,1 0 ) ,1 ,2m o d( a ,5 ) ] ( %I 3 )m o d( [ [ x ,y ,z ] ,u n1 1 , 2* ] ,1 0 ) ; ( %O 3 )[ [ m o d( x ,1 0 ) ,m o d( y ,1 0 ) ,m o d( z ,1 0 ) ] ,1 ,2m o d( a ,5 ) ] M a p e od el af u n c i n` p i s o' s o b r eu n am a t r i zyu n ae c u a c i n : ( %I 4 )p i s o( m a t r i z( [ a ,b ] ,[ c ,d ] ) ) ; [ P i s o( a )p l a n t a( b ) ] ( %O 4 )[ ] [ ( C )p l a n t ab a j a( d ) ] ( %I 5 )p i s o( a=b ) ; ( %O 5 )p l a n t a( a )=p i s o( b ) F u n c i o n e sc o nm sd eu nm a p ad i s c u s i ns o b r ea l g u n od el o s a r g u m e n t o sot o d o sl o sa r g u m e n t o s : ( %I 6 )e x p i n t e g r a l _ e( [ 1 , 2 ] ,[ x ,y ] ) ; ( %O 6 )[ [ e x p i n t e g r a l _ e( 1 ,x ) ,e x p i n t e g r a l _ e( 1 ,y ) ] , [ E x p i n t e g r a l _ e( 2 ,x ) ,e x p i n t e g r a l _ e( 2 ,y ) ] ] C o m p r o b a rs iu n af u n c i nt i e n el ad i s t r i b u t e _ o v e rp r o p i e d a d : ( %I 7 )P r o p i e d a d e s( a b s ) ; ( %O 7 )[ i n t e g r a l ,d i s t r i b u y em sd eb o l s a s ,s u s t a n t i v o ,r e g l a ,g r a d e f ]
V a r i a b l eo p c i o n a l :d o m i n i o V a l o rp o rd e f e c t o :` v e r d a d e r o' C u a n d o` d o m i n i o' e s t e n `c o m p l e j a ' ,` s q r t( x^2 )' p e r m a n e c e r `s q r t ( X^2 )' e nv e zd ev o l v e r` a b s( x ) ' .
P r o p i e d a d :e v e n f u n p r o p i e d a d :e v e n f u n ` D e c l a r e( f ,e v e n f u n' o `d e c l a r e( f ,e v e n f u n 'H a c eq u eM a x i m a r e c o n o c e rl af u n c i n` f' c o m ou n af u n c i np a roi m p a r . E j e m p l o s : ( %I 1 )o( -x )+o( x ) ; ( %O 1 )O( x )+o( -x ) ( %I 2 )d e c l a r e( o ,e v e n f u n ) ; ( %O 2 )d o n e ( %I 3 )o( -x )+o( x ) ; ( %O 3 )0 ( %I 4 )e( -x )-E( X ) ; ( %O 4 )e( -x )-e( x ) ( %I 5 )d e c l a r e( e ,e v e n f u n ) ; ( %O 5 )h e c h o ( %I 6 )e( -x )-E( X ) ; ( %O 6 )0 F u n c i n :a m p l i a r( e x p r ) F u n c i n :a m p l i a r( e x p r , ,< n > ) A m p l i a r< e x p r >e x p r e s i n .L o sp r o d u c t o sd es u m a sys u m a sc o ne x p o n e n t e s s em u l t i p l i c a nf u e r a ,n u m e r a d o r e sd el a se x p r e s i o n e sr a c i o n a l e sq u es o n s u m a ss es e p a r a ne ns u sr e s p e c t i v o st r m i n o s ,yl am u l t i p l i c a c i n ( C o n m u t a t i v ayn oc o n m u t a t i v a )s ed i s t r i b u y e ns o b r el a ss u m a se n t o d o sl o sn i v e l e sd ee x p r . P a r ap o l i n o m i o se sm sa c o n s e j a b l eu t i l i z a r` r a t e x p a n d " ,q u eu t i l i z au n m sa l g o r i t m oe f i c i e n t e . M a x n e g e x` ' y `m a x p o s e x" c o n t r o lm x i m on e g a t i v oy e x p o n e n t e sp o s i t i v o s ,r e s p e c t i v a m e n t e ,q u es ea m p l i a r . ` E x p a n d i r( e x p r , ,< n > )' s ee x p a n d ee x p r ,u t i l i z a n d op a r a ` M a x p o s e x "y< n >p a r a` m a x n e g e x' .E s t oe s t i lc o ne lf i nd e a m p l i a rp a r t ep e r on ot o d o sd eu n ae x p r e s i n .
81/633
28/08/13

` E x p o n' -e le x p o n e n t ed el am a y o rp o t e n c i an e g a t i v aq u ee s e x p a n d i r a u t o m t i c a m e n t e( i n d e p e n d i e n t e m e n t ed el a sl l a m a d a sa' a m p l i a r ' ) .P a r a e j e m p l o ,s ie x p o n` ' e s4e n t o n c e s `( x+ 1 )^( 5 ) 'n os e r e x p a n d i r a u t o m t i c a m e n t e . ` E x p o p' -e lm sa l t oe x p o n e n t ep o s i t i v oq u ee sa u t o m t i c a m e n t e a m p l i a d o .A s ` ( x+ 1 )^3' ,c u a n d oe s c r i b e ,s e r a u t o m t i c a m e n t e e x p a n d i d os l os i` e x p o p' e sm a y o rq u eoi g u a la3 .S is et r a t a d e s e at e n e r` ( x+ 1 )^n' a m p l i a d od o n d e `n 'e sm a y o rq u e ` E x p o p' l u e g oe j e c u t a r è x p a n d( ( x+ 1 )^n )s ed e s a r r o l l a r s l os i ` M a x p o s e x' n oe si n f e r i o ra `n ' . ` E x p a n d( e x p r ,0 ,0 )' h a c eu nr e s i m p l i f i c a t i o nd e 'e x p r' .` E x p r' N os ev u e l v eae v a l u a r .Ad i f e r e n c i ad e l` e v( e x p r ,n o e v a l ) u n s ee l i m i n al ar e p r e s e n t a c i ne s p e c i a l( p o re j e m p l o ,u n af o r m aC R E ) .V a s et a m b i n ` E v' . L a" b a n d e r au t i l i z a d ap o r è v' ` a m p l i a rp r o v o c al ae x p a n s i n . C o m p a r t i re la r c h i v o` /s i m p l i f i c a c i n/f a c e x p . m a c' c o n t i e n ev a r i a s f u n c i o n e sr e l a c i o n a d a s( e np a r t i c u l a rf a c s u m` ' , `f a c t o r f a c s u m" y ` C o l l e c t t e r m s' ,q u es ec a r g a na u t o m t i c a m e n t e )yl a sv a r i a b l e s ( ` N e x t l a y e r f a c t o r' y `f a c s u m _ c o m b i n e ' )q u ep r o p o r c i o n a na lu s u a r i o l ac a p a c i d a dd ee s t r u c t u r a re x p r e s i o n e sp o re x p a n s i nc o n t r o l a d a . B r e v e sd e s c r i p c i o n e sd el a sf u n c i o n e se s t nd i s p o n i b l e se n ` S i m p l i f i c a t i o n/f a c e x p . u s g' .U n ad e m o s t r a c i ne s t d i s p o n i b l ea lh a c e r ` D e m o( "f a c e x p" ) . E j e m p l o s : ( %I 1 )e x p r :( x+ 1 )^2*( y+ 1 )^3 ; 23 ( %O 1 )( x+1 )( y+1 ) ( %I 2 )e x p a n d( e x p r ) ; 233322222 ( %O 2 )x yx y+2+y3+x y+6x y+y+33x y 2 6+x y+3y+x+2x+1 ( %I 3 )e x p a n d( e x p r ,2 ) ; 2333 ( %O 3 )x( Y+1 )+2x( y+1 )+( y+1 ) ( %I 4 )e x p r :( x+ 1 )^2*( y+ 1 )^3 ; 3 ( Y+1 ) ( %O 4 )2 ( X+1 ) ( %I 5 )e x p a n d( e x p r ) ; 32 y3a3a1 ( %O 5 )-+-+-+-2222 x+2x+1x2+x+1x2+x+1x2+x+1 ( %I 6 )e x p a n d( e x p r ,2 , 2 ) ; 3 ( Y+1 ) ( %O 6 )2 x+2x+1 R e s i m p l i f yu n ae x p r e s i ns i ne x p a n s i n : ( %I 7 )e x p r :( 1+x )^2*s e n( x ) ; 2 ( %O 7 )( x+1 )s i n( x ) ( %I 8 )e x p o n e n t i a l i z e :t r u e ; ( %O 8 )t r u e ( %I 9 )e x p a n d( e x p r ,0 , 0 ) ; 2 %i x%i x %I( x+1 )( %e%e ) ( %O 9 )2
F u n c i n :e x p a n d w r t( e x p r ,< x _ 1 > ,. . . ,< x _ n > ) S ee x p a n d el ae x p r e s i ne x p r` ' c o nr e s p e c t oal a< x _ 1 >l a sv a r i a b l e s , . . . ,< x _ n > .A p a r e c e nt o d o sl o sp r o d u c t o sr e l a c i o n a d o sc o nl a sv a r i a b l e s e x p l c i t a m e n t e .E lr e s u l t a d oq u es el i b r ed el o sp r o d u c t o sd es u m a sd e e x p r e s i o n e sq u en oe s t nl i b r e sd el a sv a r i a b l e s .< x _ 1 > ,. . . ,< x _ n > p u e d e ns e rv a r i a b l e s ,o p e r a d o r e soe x p r e s i o n e s . P o rd e f e c t o ,n os ee x p a n d e nl o sd e n o m i n a d o r e s ,p e r oe s t op u e d es e r c o n t r o l a d ap o rm e d i od el a` e x p a n d w r t _ d e n o m' i n t e r r u p t o r . E s t af u n c i ns ec a r g aa u t o m t i c a m e n t ed e` s i m p l i f i c a t i o n/s t o p e x . m a c' .
V a r i a b l eo p c i o n a l :e x p a n d w r t _ d e n o m V a l o rp o rd e f e c t o :f a l s e' ` E x p a n d w r t _ d e n o m' c o n t r o l ae lt r a t a m i e n t od ee x p r e s i o n e sr a c i o n a l e s p o r` e x p a n d w r t' .S i` t r u e' ,t a n t oe ln u m e r a d o rc o m oe l
82/633
28/08/13

d e n o m i n a d o rd el ae x p r e s i ns ea m p l i a r d ea c u e r d oc o nl a a r g u m e n t o sd e` e x p a n d w r t' ,p e r os i è x p a n d w r t _ d e n o m 'e s' f a l s e ' , ac o n t i n u a c i n ,s l oe ln u m e r a d o rs ea m p l i a r e ne s af o r m a .
F u n c i n :e x p a n d w r t _ f a c t o r e d( e x p r ,< x _ 1 > ,. . . ,< x _ n > ) e ss i m i l a ra` e x p a n d w r t' ,p e r ot r a t aal a se x p r e s i o n e sq u es o np r o d u c t o s a l g od i f e r e n t e .` E x p a n d w r t _ f a c t o r e d' e x p a n d es l oa q u e l l o s f a c t o r e sd e` e x p r' q u ec o n t i e n el a< x _ 1 >l a sv a r i a b l e s ,. . . ,< x _ n > . E s t af u n c i ns ec a r g aa u t o m t i c a m e n t ed e` s i m p l i f i c a t i o n/s t o p e x . m a c' .
V a r i a b l eo p c i o n a l :e x p o n V a l o rp o rd e f e c t o :0 ` E x p o n' e se le x p o n e n t ed el am a y o rp o t e n c i an e g a t i v aq u ee s e x p a n d i r a u t o m t i c a m e n t e( i n d e p e n d i e n t e m e n t ed el a sl l a m a d a sa' a m p l i a r ' ) .P a r a e j e m p l o ,s ie x p o n` ' e s4e n t o n c e s `( x+ 1 )^( 5 ) 'n os e r e x p a n d i r a u t o m t i c a m e n t e .
F u n c i n :e x p o n e n t i a l i z e( e x p r ) V a r i a b l eo p c i o n a l :e x p o n e n t i a l i z e L af u n c i n` e x p o n e n t i a l i z e( e x p r )' c o n v i e r t ec i r c u l a ry f u n c i o n e sh i p e r b l i c a sd ee x p rae x p o n e n c i a l e s ,s i ne s t a b l e c e r l av a r i a b l eg l o b a l` e x p o n e n t i a l i z e' . C u a n d ol av a r i a b l e` e x p o n e n t i a l i z e' e s `t r u e ' ,t o d oc i r c u l a ry f u n c i o n e sh i p e r b l i c a ss ec o n v i e r t e naf o r m ae x p o n e n c i a l .L a v a l o rp r e d e t e r m i n a d oe s' f a l s o ' . ` D e m o i v r e' c o n v i e r t ee x p o n e n c i a l e sc o m p l e j a se nf u n c i o n e sc i r c u l a r e s . E x p o n e n t i a l i z e` ' y `d e m o i v r e 'n op u e d es e ra m b a sv e r d a d e r a sa lm i s m o t i e m p o .
V a r i a b l eo p c i o n a l :e x p o p V a l o rp o rd e f e c t o :0 ` E x p o p "e se lm sa l t oe x p o n e n t ep o s i t i v oq u ee sa u t o m t i c a m e n t e a m p l i a d o .A s ` ( x+1 )^3' ,c u a n d oe s c r i b e ,s e r a u t o m t i c a m e n t e e x p a n d i d os l os i` e x p o p' e sm a y o rq u eoi g u a la3 .S is et r a t a d e s e at e n e r` ( x+1 )^n' a m p l i a d od o n d e `n 'e sm a y o rq u e ` E x p o p' l u e g oe j e c u t a r è x p a n d( ( x+1 )^n )s ed e s a r r o l l a r s l os i ` M a x p o s e x' n oe sm e n o rq u en .
P r o p i e d a d :l a s s o c i a t i v e ` D e c l a r e( g ,l a s s o c i a t i v e )' l ed i c ea ls i m p l i f i c a d o rd eM a x i m aq u e `g 'e s a s o c i a t i v op o rl ai z q u i e r d a .P o re j e m p l o ,` g( g( a ,b ) ,g( c ,d ) ) "s er e d u c i r a ` G( g( g( a ,b ) ,c ) ,d )' .
P r o p i e d a d :l i n e a l U n ad el a sp r o p i e d a d e sd eo p e r a d o r e sd eM a x i m a .P a r a` fu n i v a r i a d o' p a r a d e c l a r ," e x p a n s i n "` f( x+y )' r e n d i m i e n t o 'f( x )+f( y )' , 'f( a*x ) r e n d i m i e n t o s` a*f( x )t i e n el u g a rd o n d e' a 'e su n a "c o n s t a n t e" .P a r a f u n c i o n e sd ed o som sa r g u m e n t o s ," l i n e a l i d a d "s ed e f i n ec o m o c o m oe ne lc a s od es u m a` ' o ì n t e g r a r ' ,e sd e c i r ,` f( a*x+b ,x )' r e n d i m i e n t o s` a*f( x ,x )+b*f( 1 ,x )' p a r a 'a' y 'b' s i n 'x' . ` L i n e a r' e se q u i v a l e n t ea 'a d i t i v o' y ò u t a t i v e ' .V a s et a m b i n ` O p p r o p e r t i e s' . E j e m p l o : ( %I 1 )' s u m a( F( k )+G( k ) ,k ,1 ,i n f ) ; i n f = = = = \ ( %O 1 ) >( G( k )+F( k ) ) / = = = = k=1 ( %I 2 )d e c l a r e( n o u n i f y( s u m a ) ,l i n e a l ) ; ( %O 2 )d o n e ( %I 3 )' s u m a( F( k )+G( k ) ,k ,1 ,i n f ) ; i n fi n f = = = = = = = = \\ ( %O 3 ) >G( k )+ >F( k )
83/633
28/08/13

// = = = = = = = = k=1k=1
V a r i a b l eo p c i o n a l :m a x n e g e x V a l o rp o rd e f e c t o :1 0 0 0 ` M a x n e g e x' e se lm a y o re x p o n e n t en e g a t i v oq u es e r e x p a n d i d o p o re l` a m p l i a r' c o m a n d o( v e rt a m b i n 'm a x p o s e x' ) .
V a r i a b l eo p c i o n a l :m a x p o s e x V a l o rp o rd e f e c t o :1 0 0 0 ` M a x p o s e x' e se lm a y o re x p o n e n t eq u es ea m p l i a r c o ne l ` A m p l i a r' c o m a n d o( v e rt a m b i n 'm a x n e g e x' ) .
P r o p i e d a d :m u l t i p l i c a t i v o ` D e c l a r e( f ,m u l t i p l i c a t i v e )' l ed i c ea ls i m p l i f i c a d o rd eM a x i m aq u e 'f' e sm u l t i p l i c a t i v o . 1 .S i` f' e su n i v a r i a n t e ,c a d av e zq u ee ls i m p l i f i c a d o re n c u e n t r e `f ' a p l i c a d oau np r o d u c t o ,` f' d i s t r i b u y em sd ee s ep r o d u c t o . P o re j e m p l o ,' f( x*y ) 's i m p l i f i c aa' f( x )*f( y ) ' . 2 .S i` f' e su n af u n c i nd e2om sa r g u m e n t o s ,m u l t i p l i c a b i l i d a d s ed e f i n ec o m om u l t i p l i c a b i l i d a de ne lp r i m e ra r g u m e n t oa' f ' , p o re j e m p l o ,' f( g( x )*h( x ) ,x )s es i m p l i f i c aa` f( g( x ) ,x )*f ( H( x ) ,x )' . E s t as i m p l i f i c a c i nn os ep r o d u c ec u a n d o` f' s ea p l i c aa e x p r e s i o n e sd e l` p r o d u c tf o r m a( x[ i ] ,i ,m ,n )' . E j e m p l o : ( %I 1 )F 2( a*b*c ) ; ( %O 1 )F 2( a b c ) ( %I 2 )d e c l a r e( F 2 ,m u l t i p l i c a t i v o ) ; ( %O 2 )d o n e ( %I 3 )F 2( a*b*c ) ; ( %O 3 )F 2( a )F 2( b )F 2( c )
F u n c i n :m u l t t h r u( e x p r ) F u n c i n :m u l t t h r u( < e x p r _ 1 > ,< e x p r _ 2 > ) M u l t i p l i c au nf a c t o r( l ac u a ld e b es e ru n as u m a )d ee x p rp o rl ao t r a f a c t o r e sd e< e x p r > .E s t oe s ,e x p re s` < f _ 1 >< f _ 2 >. . .< f _ n >' d o n d ea lm e n o su nf a c t o r ,< f _ i >d e c i r ,e su n as u m ad et r m i n o s .C a d a t r m i n oe ne s t as u m as em u l t i p l i c ap o rl o so t r o sf a c t o r e se ne l p r o d u c t o .( E sd e c i r ,t o d o sl o sf a c t o r e se x c e p t o< f _ i > ) .` M u l t t h r u' h a c e s ee x p a n d es u m a se l e v a d a sae x p o n e n t e s .E s t af u n c i ne sl am a n e r am sr p i d a p a r ad i s t r i b u i rp r o d u c t o s( s e a non oc o n m u t a t i v o s )s o b r es u m a s . P u e s t oq u el o sc o c i e n t e ss er e p r e s e n t a nc o m op r o d u c t o s` ' s ep u e d eu s a rm u l t t h r u p a r ad i v i d i rs u m a se n t r ep r o d u c t o st a m b i n . ` M u l t t h r u( < e x p r _ 1 > ,< e x p r _ 2 > )' m u l t i p l i c ac a d at r m i n od e< e x p r _ 2 > ( Q u ed e b es e ru n as u m aou n ae c u a c i n )p o r< e x p r _ 1 > .S i< e x p r _ 1 > n oe se ns m i s m au n as u m ae n t o n c e se s t af o r m ae se q u i v a l e n t ea` m u l t t h r u ( < e x p r _ 1 >*< e x p r _ 2 > ) . ( %I 1 )x/( x y )^2-1/( x y )-f( x )/( x y )^3 ; 1x f( x ) ( %O 1 )-+x-y23 ( X-y )( x-y ) ( %I 2 )m u l t t h r u( ( x y )^3 % ) ; 2 ( %O 2 )-( x-y )+x( x-y )-f( x ) ( %I 3 )r a t e x p a n d( % ) ; 2 ( %O 3 )-y+x y-f( x ) ( %I 4 )( ( a+b )^1 0*s^2+2*a*b*s+( a*b )^2 )/( a *b*s^2 ) ; 1 0222 ( B+a )s+2+a b d o m i n a l e sa b ( %O 4 )2 a b d o m i n a l e s ( %I 5 )m u l t t h r u( % )/*c u e n t aq u ee s t en os ee x p a n d e( b+a )^1 0*/ 1 0 2a b( b+a ) ( %O 5 )-+-+s2a b s ( %I 6 )m u l t t h r u( A .( b+c( d+e ) +f ) . ) ; ( %O 6 )a .f+a .c .( E+d )+a .b
84/633
28/08/13

( %I 7 )e x p a n s i n( a .( b+c( d+e ) +f ) . ) ; ( %O 7 )a .f+a .c .e+a .c .d+a .b
P r o p i e d a d :n a r y ` D e c l a r e( f ,n a r y )' H a c eq u eM a x i m ar e c o n o z c al af u n c i n `f 'c o m ou n f u n c i nn a r i a . E ln a r i o` ' d e c l a r a c i nn oe sl om i s m oq u el l a m a ral a `n a r ' f u n c i n .E l n i c oe f e c t od e` d e c l a r e( f ,n a r y )' e si n s t r u i r a ls i m p l i f i c a d o rd eM a x i m ar e d u z c ae x p r e s i o n e sa n i d a d a s ,p o re j e m p l o , p a r as i m p l i f i c a r` f o o( x ,f o o( y ,z ) )' a `f o o( x ,y ,z ) .V a s et a m b i n ` D e c l a r a r' . E j e m p l o : ( %I 1 )H( H( a ,b ) ,H( C ,H( d ,e ) ) ) ; ( %O 1 )H( H( a ,b ) ,H( C ,H( d ,e ) ) ) ( %I 2 )d e c l a r e( H ,n a r y ) ; ( %O 2 )d o n e ( %I 3 )H( H( a ,b ) ,H( C ,H( d ,e ) ) ) ; ( %O 3 )H( a ,b ,c ,d ,e ) V a r i a b l eo p c i o n a l :n e g d i s t r i b V a l o rp o rd e f e c t o :t r u e' C u a n d o` n e g d i s t r i b' e s `t r u e ' ,1s ed i s t r i b u y es o b r eu n ae x p r e s i n . P o re j e m p l o ,` -( x+y )' s ec o n v i e r t ee n `-y-x ' .S is ee s t a b l e c ee n' f a l s e 's e p e r m i t i r` -( x+y )' q u es em o s t r a r e le s t i l o .E s t oe sav e c e s t i l ,p e r ot e n e rm u c h oc u i d a d o :a li g u a lq u el ab a n d e r a` s i m p' ,e s t ae su n ab a n d e r a u s t e dn od e s e ae s t a b l e c e ra' f a l s e 'c o m ou n ac u e s t i nd er u t i n ao n e c e s a r i a m e n t ep a r ao t r ou s ol o c a le ne lM a x i m a .
V a r i a b l ed e ls i s t e m a :o p p r o p e r t i e s ` O p p r o p e r t i e s' e sl al i s t ad el a sp r o p i e d a d e se s p e c i a l e sd e lo p e r a d o r r e c o n o c i d op o re ls i m p l i f i c a d o rd eM a x i m a :` l i n e a r' , 'a d i t i v o' , ` M u l t i p l i c a t i v o' , ò u t a t i v e ' ,` e v e n f u n' , è v e n f u n ' ,` c o n m u t a t i v a " , ' S i m t r i c a ' ,` a n t i s i m t r i c a' , `n a r ' ,` l a s s o c i a t i v e' , ` R a s s o c i a t i v e' .
P r o p i e d a d :o u t a t i v e ` D e c l a r e( f ,o u t a t i v e )' i n d i c aa ls i m p l i f i c a d o rd eM a x i m aq u el ac o n s t a n t e f a c t o r e se ne la r g u m e n t od e' f 's ep u e d es a c a r . 1 .S i` f' e su n i v a r i a n t e ,c a d av e zq u ee ls i m p l i f i c a d o re n c u e n t r e `f ' a p l i c a d oau np r o d u c t o ,e s ep r o d u c t os ed i v i d ee n f a c t o r e sq u es o nc o n s t a n t e syf a c t o r e sq u en os o nye l f a c t o r e sc o n s t a n t e ss er e t i r a r o n .P o re j e m p l o ,' f( a*x )s e s i m p l i f i c a ra l` a*f( x )' ,d o n d e 'a' e su n ac o n s t a n t e .N oa t m i c a f a c t o r e sc o n s t a n t e sn os ep u e d e ns a c a r . 2 .S i` f' e su n af u n c i nd e2om sa r g u m e n t o s ,e s t ap r o p i e d a de s s ed e f i n ec o m oe ne lc a s od es u m a` ' o ì n t e g r a r ' ,e sd e c i r ,` f ( A*g( x ) ,x )s er e d u c i r a` a*f( g( x ) ,x )' p a r a 'a' l i b r e d e' x ' . ' S u m a ' ,' i n t e g r a r ' ,y' l i m i t a r 'e st o d o` o u t a t i v e' . E j e m p l o : ( %I 1 )F 1( 1 0 0*x ) ; ( %O 1 )F 1( 1 0 0x ) ( %I 2 )d e c l a r e( F 1 ,o u t a t i v e ) ; ( %O 2 )d o n e ( %I 3 )F 1( 1 0 0*x ) ; ( %O 3 )1 0 0F 1( x ) ( %I 4 )d e c l a r e( z z ,c o n s t a n t e ) ; ( %O 4 )h e c h o ( %I 5 )F 1( z z*y ) ; ( %O 5 )z zF 1( y )
F u n c i n :r a d c a n( e x p r ) S i m p l i f i c ae x p r ,q u ep u e d ec o n t e n e rl o g a r i t m o s ,e x p o n e n c i a l e sy r a d i c a l e s ,p o rs uc o n v e r s i ne nu n af o r m aq u ee sc a n n i c am sd eu n g r a nc l a s ed ee x p r e s i o n e syu no r d e nd a d od ev a r i a b l e s ;q u e E sd e c i r ,t o d a sl a sf o r m a sf u n c i o n a l m e n t ee q u i v a l e n t e ss er e d u c e ne nu n n i c o f o r m u l a r i o .P a r au n ac l a s eu np o c om sg r a n d ed ee x p r e s i o n e s ,` r a d c a n' p r o d u c eu n af o r m ar e g u l a r .D o se x p r e s i o n e se q u i v a l e n t e se ne s t ac l a s e n on e c e s a r i a m e n t et i e n e ne lm i s m oa s p e c t o ,p e r os ud i f e r e n c i a s ep u e d es i m p l i f i c a rp o r` r a d c a n' ac e r o . P a r aa l g u n a se x p r e s i o n e s` r a d c a n' e sb a s t a n t et i e m p o .E s e lc o s t od ee x p l o r a rc i e r t a sr e l a c i o n e se n t r el o sc o m p o n e n t e s
85/633
28/08/13

d el ae x p r e s i np a r as i m p l i f i c a c i o n e sb a s a d a se nf a c t o r i z a c i o n e sy e x p a n s i o n e sp a r c i a l e sd ef r a c c i o n e sd ee x p o n e n t e s . E j e m p l o s : ( %I 1 )r a d c a n( ( l o g( x+x^2 ) l o g( x ) )û n/l o g( 1+x )^( a/2 ) ) ; a/2 ( %O 1 )l o g( x+1 ) ( %I 2 )r a d c a n( ( l o g( 12*a^x+a^( 2*x ) )/l o g( 1+a^x ) ) ) ; ( %O 2 )2 ( %I 3 )r a d c a n( ( %e^ x 1 )/( 1+ %e^ ( x/2 ) ) ) ; x/2 ( %O 3 ) %e-1
V a r i a b l eo p c i o n a l :r a d e x p a n d V a l o rp o rd e f e c t o :t r u e' ` R a d e x p a n d' c o n t r o l aa l g u n a ss i m p l i f i c a c i o n e sd er a d i c a l e s . C u a n d o` r a d e x p a n d' e s 't o d o' ,h a c eq u el a sr a c e sn s i m a sd el o sf a c t o r e sd eu np r o d u c t o q u es e a np o t e n c i a sd ens ee x t r a e nd e lr a d i c a l .P o re j e m p l o ,s i ` R a d e x p a n d' e s 't o d o' , `s q r t( 1 6*x^2 ) 's i m p l i f i c aa` 4*x' . M se np a r t i c u l a r ,c o n s i d e r e` s q r t( x^2 )' . *S ir a d e x p a n d` ' e s à l l 'o' s u p o n e r( x >0 ) 'h as i d oe j e c u t a d o , ` S q r t( x^2 )' s i m p l i f i c aa 'x' . *S ir a d e x p a n d` ' e s `t r u e 'y' d o m i n i o 'e s' d ev e r d a d '( s u p o rd e f e c t o ) ,` s q r t( x^2 )' s i m p l i f i c aa à b s( x ) ' . *S ir a d e x p a n d` ' e s 'f a l s e' o `r a d e x p a n d 'e s` t r u e' y ' D o m i n i o 'e s' c o m p l e j a ' ,` s q r t( x^2 )' n os es i m p l i f i c a . T e n g ae nc u e n t aq u e` d o m i n i o' s l oi m p o r t ac u a n d o `r a d e x p a n d 'e s` t r u e' .
P r o p i e d a d :r a s s o c i a t i v e ` D e c l a r e( g ,r a s s o c i a t i v e )' l ed i c ea ls i m p l i f i c a d o rd eM a x i m aq u e `g ' e sa s o c i a t i v op o rl ad e r e c h a .P o re j e m p l o ,` g( g( a ,b ) ,g( c ,d ) )' s i m p l i f i c aa ` G( a ,g( b ,g( c ,d ) ) )' .
F u n c i n :s c s i m p( e x p r ,< r u l e _ 1 > ,. . . ,< r u l e _ n > ) S i m p l i f i c a c i nc o m p a r a t i v os e c u e n c i a l( m t o d od e b i d oaS t o u t e ) . I n t e n t o s` s c s i m p' p a r as i m p l i f i c a re x p rd ea c u e r d oc o nl a sn o r m a s < r u l e _ 1 > ,. . . ,< r u l e _ n > .S is eo b t i e n eu n ae x p r e s i nm sp e q u e a ,l a p r o c e s os er e p i t e .D el oc o n t r a r i od e s p u sd eh a b e ri n t e n t a d ot o d a sl a ss i m p l i f i c a c i o n e s , d e v u e l v el ar e s p u e s t ao r i g i n a l . ` E j e m p l o( s c s i m p )' m u e s t r aa l g u n o se j e m p l o s .
V a r i a b l eo p c i o n a l :s i m p V a l o rp o rd e f e c t o :t r u e' ` S i m p' p e r m i t el as i m p l i f i c a c i n .E s t ae sl an o r m a .S i m p` ' e s t a m b i nu n` e v f l a g' ,q u ee sr e c o n o c i d ap o rl af u n c i ne v ` ' .V e r ` E v' . C u a n d os i m p' s eu t i l i z ac o m ou n a` e v f l a g ' `c o nu nv a l o r` f a l s o' ,l a s i m p l i f i c a c i ns es u p r i m es l od u r a n t el af a s ed ee v a l u a c i nd e u n ae x p r e s i n .L ab a n d e r an os ep u e d es u p r i m i rl as i m p l i f i c a c i nq u e s i g u el af a s ed ee v a l u a c i n . E j e m p l o s : L as i m p l i f i c a c i ns ea p a g at o d oe lm u n d o .L ae x p r e s i n ` P e c a d o( 1 , 0 )' n os es i m p l i f i c aas uv a l o rn u m r i c o .L a ` S i m p 'b a n d e r ac a m b i al as i m p l i f i c a c i ns u c e s i v a m e n t e . ( %I 1 )s i m p :f a l s e ; ( %O 1 )f a l s e ( %I 2 )s e n( 1 , 0 ) ; ( %O 2 )s i n( 1 . 0 ) ( %I 3 )s i n( 1 . 0 ) ,s i m p ; ( %O 3 )0 . 8 4 1 4 7 0 9 8 4 8 0 7 8 9 6 5 L as i m p l i f i c a c i ns ev u e l v eae n c e n d e r .E ls i m p 'b a n d e r a` n op u e d e s u p r i m i rl as i m p l i f i c a c i nc o m p l e t a m e n t e .E lr e s u l t a d om u e s t r au n a e x p r e s i ns i m p l i f i c a d a ,p e r oe l` x' v a r i a b l et i e n eu nn os i m p l i f i c a d a e x p r e s i nc o m ou nv a l o r ,p o r q u es eh ap r o d u c i d ol ac e s i nd u r a n t e l af a s ed ee v a l u a c i nd el ae x p r e s i n . ( %I 4 )s i m p :t r u e ;
86/633
28/08/13

( %O 4 )t r u e ( %I 5 )x :s i n( 1 . 0 ) ,s i m p :f a l s e ; ( %O 5 )0 . 8 4 1 4 7 0 9 8 4 8 0 7 8 9 6 5 ( %I 6 ) :l i s p$X ( ( %S I N )1 . 0 )
P r o p i e d a d :s i m t r i c a ` D e c l a r e( h ,s i m t r i c a )' l ed i c ea ls i m p l i f i c a d o rd eM a x i m aq u e `h 'e su n f u n c i ns i m t r i c a .P o re j e m p l o ,` h( x ,z ,y )s es i m p l i f i c aa `h( x ,y , z ) . ` C o n m u t a t i v a' e ss i n n i m od e 's i m t r i c a' .
F u n c i n :f u n c i nx t h r u( e x p r ) C o m b i n at o d o sl o st r m i n o sd ee x p r( q u ed e b es e ru n as u m a )s o b r eu nc o m n d e n o m i n a d o rs i ne x p a n d i rp r o d u c t o sn is u m a se l e v a d a sae x p o n e n t e sa l ` R a t s i m p' h a c e .` F u n c i nx t h r u' c a n c e l af a c t o r e sc o m u n e se ne ln u m e r a d o r ye ld e n o m i n a d o rd ee x p r e s i o n e sr a c i o n a l e s ,p e r os l os il o sf a c t o r e s s o ne x p l c i t o s . Av e c e se sm e j o ru s a r` f u n c i nx t h r u' a n t e s 'r a t s i m p ' i n gu n e x p r e s i nc o ne lf i nd eh a c e rq u el o sf a c t o r e se x p l c i t o sd e ld i v i s o rd e l n u m e r a d o rye ld e n o m i n a d o rd es e rc a n c e l a d a ss i m p l i f i c a n d oa s e l e x p r e s i nq u es ev a` r a t s i m p ' e d . E j e m p l o s : ( %I 1 )( ( x2 )^2 0-2*y )/( x+y )^2 0+( x+y )^( 1 9 )-x/( x+y )^2 0 ; 2 0 1( x+2 )-2y x ( %O 1 )-+1 92 02 0 ( Y+x )( y+x )( y+x ) ( %I 2 )f u n c i nx t h r u( % ) ; 2 0 ( X+2 )-y ( %O 2 )2 0 ( Y+x )
10 Funciones matemticas
F u n c i o n e sp a r aN m e r o sd e F u n c i o n e sp a r aN m e r o sC o m p l e j o s F u n c i o n e sc o m b i n a t o r i a s *R a ze x p o n e n c i a l e syl o g a r t m i c a sF u n c i o n e s: : F u n c i o n e st r i g o n o m t r i c a s N m e r o sA l e a t o r i o s
10.1 Funciones para los nmeros

F u n c i n :a b d o m i n a l e s( < z > ) L af u n c i n` a b d o m i n a l e s' r e p r e s e n t ae lv a l o ra b s o l u t om a t e m t i c a f u n c i nyo b r a sd el o sv a l o r e st a n t on u m r i c o sys i m b l i c o s .S ie l a r g u m e n t o ,< z > ,e su nn m e r or e a loc o m p l e j o ,` a b d o m i n a l e s' d e v u e l v ee l v a l o ra b s o l u t od e< z > .S ie sp o s i b l e ,l a se x p r e s i o n e ss i m b l i c a su t i l i z a n d oe l f u n c i nd ev a l o ra b s o l u t ot a m b i ns es i m p l i f i c a n . M a x i m ap u e d ed i f e r e n c i a r ,i n t e g r a ryc a l c u l a rl o sl m i t e sd e e x p r e s i o n e sq u ec o n t i e n e n` a b d o m i n a l e s " .E l' p a q u e t e` a b s _ i n t e g r a t em s e x t i e n d el ac a p a c i d a dd eM a x i m ap a r ac a l c u l a ri n t e g r a l e sq u ei n v o l u c r a nl o sa b d o m i n a l e s f u n c i n .V e r( %i 1 2 )e nl o se j e m p l o ss i g u i e n t e s . C u a n d os ea p l i c aau n al i s t aom a t r i z ,' A B S 'd i s t r i b u y ea u t o m t i c a m e n t e e nl o st r m i n o s .D e lm i s m om o d o ,s ed i s t r i b u y eaa m b o sl a d o sd eu n a e c u a c i n .P a r am o d i f i c a re s t ec o m p o r t a m i e n t o ,c o n s u l t el av a r i a b l e ` D i s t r i b u t e _ o v e r' . E j e m p l o s : C l c u l od e l` a b d o m i n a l e s' p a r al o sn m e r o sr e a l e syc o m p l e j o s ,i n c l u y e n d o c o n s t a n t e sn u m r i c a syd i v e r s o si n f i n i t o s .E lp r i m e re j e m p l o m u e s t r ac m o` a b d o m i n a l e s' d i s t r i b u y eat r a v sd el o se l e m e n t o sd eu n al i s t a . ( %I 1 )a b s( [ 4 ,0 ,1 ,1+ %i ] ) ; ( %O 1 )[ 4 ,0 ,1 ,s q r t( 2 ) ] ( %I 2 )a b s( ( 1+ %i )*( 1%i ) ) ; ( %O 2 )2 ( %I 3 )a b s( %e+ %i ) ; 2 ( %O 3 )s q r t( %e+1 ) ( %I 4 )a b s( [ i n f ,i n f i n i t o ,m i n f ] ) ;
87/633
28/08/13
( %O 4 )[ i n f ,i n f ,i n f ]
S i m p l i f i c a c i nd ee x p r e s i o n e sq u ec o n t e n g a n` a b d o m i n a l e s' : ( %I 5 )a b s( x^2 ) ; 2 ( %O 5 )x ( %I 6 )a b s( x^3 ) ; 2 ( %O 6 )xa b s( x ) ( %I 7 )a b s( a b s( x ) ) ; ( %O 7 )a b s( x ) ( %I 8 )A B S( c o n j u g a d o( x ) ) ; ( %O 8 )a b s( x ) I n t e g r a c i nyd i f e r e n c i a c i nc o nl af u n c i n` a b d o m i n a l e s .T e n g ae nc u e n t aq u e m si n t e g r a l e sq u ei m p l i c a nl af u n c i nA B S` ' s ep u e d e nr e a l i z a r ,s i s ec a r g ae lp a q u e t e` a b s _ i n t e g r a t e' .E l l t i m oe j e m p l om u e s t r ae l T r a n s f o r m a d ad eL a p l a c ed e' A B S ' :v e r` L a p l a c e . ( %I 9 )d i f f( x*a b s( x ) ,x ) ,e x p a n d a ; ( %O 9 )2a b s( x ) ( %I 1 0 )i n t e g r a t e( a b s( x ) ,x ) ; xa b s( x ) ( %O 1 0 )2 ( %I 1 1 )i n t e g r a t e( x*a b s( x ) ,x ) ; / [ ( %O 1 1 )Ixa b s( x )d x ] / ( %I 1 2 )l o a d( a b s _ i n t e g r a t e )$ ( %I 1 3 )i n t e g r a t e( x*a b s( x ) ,x ) ; 23 xa b s( x )xs i g n u m( x ) ( %O 1 3 )26 ( %I 1 4 )i n t e g r a t e( a b s( x ) ,x ,2 , %p i ) ; 2 %P i ( %O 1 4 )-+2 2 ( %I 1 5 )L a p l a c e( a b s( x ) ,x ,s ) ; 1 ( %O 1 5 )2 s
F u n c i n :t e c h o( < x > ) C u a n d o< x >e su nn m e r or e a l ,d e v u e l v ee lm e n o re n t e r o m a y o rq u eoi g u a la< x > . S i< x >e su n ae x p r e s i nc o n s t a n t e( ` 1 0* %p i' ,p o re j e m p l o ) , ' T e c h o 'e v a l a< x >c o nn m e r o sd ep u n t of l o t a n t eg r a n d e sy a p l i c a' t e c h o 'al ag r a nf l o t a d o rr e s u l t a n t e .P o r q u e` t e c h o' h a c ee v a l u a c i o n e se nc o m af l o t a n t e ,e sp o s i b l e ,a u n q u ep o c op r o b a b l e , q u e' t e c h o 'p o d r ad e v o l v e ru nv a l o re r r n e od ec o n s t a n t e e n t r a d a s .P a r ae v i t a re s t o se r r o r e s ,l ae v a l u a c i ne np u n t of l o t a n t ee s r e a l i z a d ou t i l i z a n d ot r e sv a l o r e sp a r a` f p p r e c' . P a r al a se n t r a d a sn oc o n s t a n t e s ,' t e c h o 'i n t e n t ad e v o l v e ru n as i m p l i f i c a d o v a l o r .E s t o ss o ne j e m p l o sd el a ss i m p l i f i c a c i o n e sq u e' t e c h o ' s a b es o b r e : ( %I 1 )t e c h o( c e i l i n g( x ) ) ; ( %O 1 )c e i l i n g( x ) ( %I 2 )t e c h o( f l o o r( x ) ) ; ( %O 2 )f l o o r( x ) ( %I 3 )d e c l a r e( n ,e n t e r o )$ ( %I 4 )[ t e c h o( n ) ,e lt e c h o( a b s( n ) ) ,e lt e c h o( m a x( n ,6 ) ) ] ; ( %O 4 )[ n ,a b s( n ) ,m a x( n ,6 ) ] ( %I 5 )a s u m i r ( x >0 ,x< 1 )$ ( %I 6 )c e i l i n g( x ) ; ( %O 6 )1 ( %I 7 )t e x( t e c h o( a ) ) ; $$\L e f t\l c e i lu n\d e r e c h o\r c e i l$$ ( %O 7 )f a l s e L af u n c i n' t e c h o 'n os ee x t i e n d ea u t o m t i c a m e n t eal i s t a so m a t r i c e s .P o r l t i m o ,p a r at o d a sl a se n t r a d a sq u es o nm a n i f i e s t a m e n t ec o m p l e j a , ' T e c h o 'd e v u e l v eu n af o r m an o m i n a l . S ie lr a n g od eu n af u n c i ne su ns u b c o n j u n t od el o sn m e r o se n t e r o s ,p u e d es e r d e c l a r q u e` i n t e g e r v a l u e d' .T a n t oe l' t e c h o 'y' b a j a ' f u n c i o n e ss ep u e d e nu s a re s t ai n f o r m a c i n ,p o re j e m p l o : ( %I 1 )d e c l a r e( f ,i n t e g e r v a l u e d )$
88/633
28/08/13
( %I 2 )p l a n t a( f( x ) ) ; ( %O 2 )f( x ) ( %I 3 )t e c h o( f( x )-1 ) ; ( %O 3 )f( x )-1
F u n c i n :e n t i e r( < x > ) D e v u e l v ee lm a y o re n t e r om e n o roi g u a la< x >d o n d e< x >e s n u m r i c o .` F i x' ( c o m oe n 'f i x n u m' )e su ns i n n i m o ,d em o d o ` F i x( < x > )' e se x a c t a m e n t el am i s m a .
F u n c i n :b a j a( < x > ) C u a n d o< x >e su nn m e r or e a l ,d e v u e l v ee lm a y o re n t e r oq u ee sm e n o r q u eoi g u a la< x > . S i< x >e su n ae x p r e s i nc o n s t a n t e( ` 1 0* %p i' ,p o re j e m p l o ) , 'p i s o' < x >e v a l ae lu s od en m e r o sd ep u n t of l o t a n t eg r a n d e s ,ys ea p l i c a ` B a j a' al ag r a nf l o t a d o rr e s u l t a n t e .P o r q u e` b a j a' u t i l i z af l o t a n t e E v a l u a c i nm o m e n t o ,e sp o s i b l e ,a u n q u ep o c op r o b a b l e ,q u e` p i s o' p o d r ad e v o l v e ru nv a l o re r r n e op a r ae n t r a d a sc o n s t a n t e s .P a r ap r o t e g e r s e c o n t r al o se r r o r e s ,l ae v a l u a c i ne np u n t of l o t a n t es er e a l i z am e d i a n t et r e s v a l o r e sp a r a` f p p r e c' . P a r al a se n t r a d a sn oc o n s t a n t e s ,` b a j a' i n t e n t ad e v o l v e ru n as i m p l i f i c a d o v a l o r .E s t o ss o ne j e m p l o sd el a ss i m p l i f i c a c i o n e sq u e` p i s o' s a b es o b r e : ( %I 1 )p i s o( t e c h o( x ) ) ; ( %O 1 )c e i l i n g( x ) ( %I 2 )p i s o( f l o o r( x ) ) ; ( %O 2 )f l o o r( x ) ( %I 3 )d e c l a r e( n ,e n t e r o )$ ( %I 4 )[ p i s o( n ) ,s u e l o s( a b s( n ) ) ,s u e l o s( m i n( n ,6 ) ) ] ; ( %O 4 )[ n ,a b s( n ) ,m i n( n ,6 ) ] ( %I 5 )a s u m i r ( x >0 ,x< 1 )$ ( %I 6 )f l o o r( x ) ; ( %O 6 )0 ( %I 7 )t e x( p i s o( a ) ) ; $$\L e f t\l f l o o ru n\d e r e c h o\r f l o o r$$ ( %O 7 )f a l s e L af u n c i n` b a j a' n os ee x t i e n d ea u t o m t i c a m e n t eal i s t a so m a t r i c e s .P o r l t i m o ,p a r at o d a sl a se n t r a d a sq u es o nm a n i f i e s t a m e n t ec o m p l e j a , ` B a j a' d e v u e l v eu n af o r m an o m i n a l . S ie lr a n g od eu n af u n c i ne su ns u b c o n j u n t od el o sn m e r o se n t e r o s ,p u e d es e r d e c l a r q u e` i n t e g e r v a l u e d' .T a n t oe l' t e c h o 'y' b a j a ' f u n c i o n e ss ep u e d e nu s a re s t ai n f o r m a c i n ,p o re j e m p l o : ( %I 1 )d e c l a r e( f ,i n t e g e r v a l u e d )$ ( %I 2 )p l a n t a( f( x ) ) ; ( %O 2 )f( x ) ( %I 3 )t e c h o( f( x )-1 ) ; ( %O 3 )f( x )-1
F u n c i n :f i x( < x > ) U ns i n n i m od e` e n t i e r( < x > ) .
F u n c i n :l m a x( < L > ) C u a n d o< L >e su n al i s t aoc o n j u n t o ,d e v u e l v e` a p p l y( ' m a x ,a r g s( < L > ) ) ' . C u a n d o< L >n oe su n al i s t aoc o n j u n t o ,d e v u e l v eu ne r r o r .C o n s u l t et a m b i n` l m i n' y' m a x ' .
F u n c i n :l m i n( < L > ) C u a n d o< L >e su n al i s t aoc o n j u n t o ,d e v u e l v e` a p p l y( ' m i n ,a r g s( < L > ) ) ' . C u a n d o< L >n oe su n al i s t aoc o n j u n t o ,d e v u e l v eu ne r r o r .C o n s u l t et a m b i n` l m a x' y' m i n ' .
F u n c i n :m a x( < x _ 1 > ,. . . ,< x _ n > ) D e v u e l v eu nv a l o rs i m p l i f i c a d od el am a y o rd el a se x p r e s i o n e s< x _ 1 > at r a v s< x _ n > .C u a n d o` g e t( t r y l e v e l ,m a x m i n )' ,e s2om s , ` M a x' u t i l i z al as i m p l i f i c a c i n `m a x( e , e )>|e| ' .C u a n d o` g e t ( T r y l e v e l ,m a x m i n )' e s3om a y o r ,< m a x >t r a t ad ee l i m i n a r e x p r e s i o n e sq u ee s t ne n t r eo t r o sd o sa r g u m e n t o s ,p o re j e m p l o , ` M a x( x ,x2* ,3*x )>m a x( x ,3x ) .P a r ae s t a b l e c e re lv a l o rd e ` T r y l e v e l' a2 ,u t i l i c e `p u t( t r y l e v e l ,2 ,m a x m i n ) .
89/633
28/08/13
V a s et a m b i n' m i n 'y' I m a x ' .
F u n c i n :m i n( < x _ 1 > ,. . . ,< x _ n > ) D e v u e l v eu nv a l o rs i m p l i f i c a d od el am e n o rd el a se x p r e s i o n e s` x _ 1' at r a v sd e` x _ n .C u a n d o` g e t( t r y l e v e l ,m a x m i n )' ,e s2om s , ' M i n 'u t i l i z al as i m p l i f i c a c i n` m i n( e , e )>-|e|' .C u a n d o` g e t ( T r y l e v e l ,m a x m i n )' e s3om a y o r , 'm i n' t r a t ad ee l i m i n a r e x p r e s i o n e sq u ee s t ne n t r eo t r o sd o sa r g u m e n t o s ,p o re j e m p l o , ` M i n( x ,x2* ,3*x )>m i n( x ,3x ) .P a r ae s t a b l e c e re lv a l o rd e ` T r y l e v e l' a2 ,u t i l i c e `p u t( t r y l e v e l ,2 ,m a x m i n ) . V a s et a m b i n' m a x 'y` l m i n' .
F u n c i n :r e d o n d a( < x > ) C u a n d o< x >e su nn m e r or e a l ,d e v u e l v ee ln m e r oe n t e r om sc e r c a n oa< x > . L o sm l t i p l o sd e1 / 2s er e d o n d e a na le n t e r op a rm sc e r c a n o . E v a l u a c i nd e< x >e ss i m i l a ra' b a j a 'y' t e c h o ' .
F u n c i n :s i g n u m( < x > ) P a r ac u a l q u i e r ad el o sn m e r o sr e a l e soc o m p l e j o s< x > ,l af u n c i nd e v u e l v es i g n u m 0s i< x >e sc e r o ,p o r q u eu n a< x >e n t r a d an u m r i c ad i s t i n t od ec e r o ,e ls i g n u m f u n c i nd e v u e l v e` a b s( x )/x' . P a r al a se n t r a d a sn on u m r i c o s ,M a x i m ai n t e n t ad e t e r m i n a re ls i g n od e l ae n t r a d a .C u a n d oe ls i g n oe sn e g a t i v o ,c e r oop o s i t i v o ,' s i g n u m ' v u e l v e1 , 0 ,1 ,r e s p e c t i v a m e n t e .P a r at o d o sl o sd e m sv a l o r e sd el as e a l , ` S i g n u m "u n af o r m as i m p l i f i c a d a ,p e r oe q u i v a l e n t e .L a ss i m p l i f i c a c i o n e s i n c l u i rl ar e f l e x i n( ` s i g n u m( x )' d a ' s i g n u m( x )' )y i d e n t i d a dm u l t i p l i c a t i v a( ` s i g n u m( x*y )' d a 's i g n u m( x )* s i g n u m( y )' ) . L af u n c i n' s i g n u m 'd i s t r i b u y em sd eu n al i s t a ,u n am a t r i z ,ou n e c u a c i n .C o n s u l t e` d i s t r i b u t e _ o v e r' .
10.2 Funciones para los nmeros complejos

F u n c i n :c a b s( e x p r ) C a l c u l ae lv a l o ra b s o l u t od eu n ae x p r e s i nq u er e p r e s e n t au n a n m e r oc o m p l e j o .Ad i f e r e n c i ad el af u n c i n` A B S' ,l o s 't a x i s' f u n c i n s i e m p r es ed e s c o m p o n es ua r g u m e n t oe nu nr e a lyu n ap a r t ei m a g i n a r i a . S i' x 'y' y 'r e p r e s e n t a nl a sv a r i a b l e sr e a l e soe x p r e s i o n e s ,l o s' t a x i s ' f u n c i nc a l c u l ae lv a l o ra b s o l u t od e` x+ %i*Y' c o m o 22 s q r t( y+x ) L af u n c i n` t a x i s' p u e d eu t i l i z a rl a sp r o p i e d a d e sc o n o c i d a sc o m os i m e t r a p r o p i e d a d e sd el a sf u n c i o n e sc o m p l e j a sp a r aa y u d a rac a l c u l a rl aa b s o l u t a v a l o rd eu n ae x p r e s i n .S ie x i s t e nt a l e si d e n t i d a d e s ,q u ep u e d e ns e r a n u n c i a na` t a x i s' c o np r o p i e d a d e sf u n c i o n a l e s .L a ss i m e t r a s q u e` c a b s' e n t i e n d es o n :s i m e t r ae s p e c u l a r ,l af u n c i nc o n j u g a d a yl ac a r a c t e r s t i c ac o m p l e j a . ` T a x i s' e su n af u n c i nd ev e r b oyn oe sa d e c u a d op a r as i m b l i c a c l c u l o s .P a r ae s t o sc l c u l o s( i n c l u y e n d ol ai n t e g r a c i n , d i f e r e n c i a c i nyt e n i e n d ol m i t e sd ee x p r e s i o n e sq u ec o n t i e n e n v a l o r e sa b s o l u t o s ) ,u t i l i c e` a b d o m i n a l e s . E lr e s u l t a d od e' t a x i s 'p u e d ei n c l u i rl af u n c i nd ev a l o ra b s o l u t o , ` A b d o m i n a l e s " ,ye la r c ot a n g e n t e ,` a t a n 2' . C u a n d os ea p l i c aau n al i s t aom a t r i z ,' t a x i s 'd i s t r i b u y ea u t o m t i c a m e n t e e nl o st r m i n o s .D e lm i s m om o d o ,s ed i s t r i b u y eaa m b o sl a d o sd eu n a e c u a c i n . P a r am sm a n e r a sd ec a l c u l a rc o nn m e r o sc o m p l e j o s ,v e al a sf u n c i o n e s R e c t f o r m` ' , `r e a l p a r t ' ,` i m a g p a r t' , ` C a r g' , 'c o n j u g a d o' y `p o l a r f o r m ' . E j e m p l o s : E j e m p l o sc o n` s q r t' ye l `p e c a d o ' . ( %I 1 )T a x i s( s q r t( 1+ %i*x ) ) ; 21 / 4 ( %O 1 )( x+1 ) ( %I 2 )t a x i s( s i n( x+ %i*y ) ) ; 2222 ( %O 2 )s q r t( c o s( x )s e n h( y )+s e n( x )c o s h( y ) ) L af u n c i nd ee r r o r ,e r f` ' ,t i e n es i m e t r ad ee s p e j o ,q u es eu t i l i z a a q u e ne lc l c u l od e lv a l o ra b s o l u t oc o nu nc o m p l e j o
90/633
28/08/13
a r g u m e n t o :
( %I 3 )t a x i s( e r f( x+ %i*y ) ) ; 2 ( E r f( %i y+x )-e r f( %i y-x ) ) ( %O 3 )s q r t( 4 2 ( E r f( %i y+x )+e r f( %i y-x ) ) ) 4 M a x i m ac o n o c el a si d e n t i d a d e sc o m p l e j a sp a r al a sf u n c i o n e sd eB e s s e l ,q u e d e j eq u es ec a l c u l ae lv a l o ra b s o l u t op a r aa r g u m e n t o sc o m p l e j o s . A q u h a yu ne j e m p l od e` b e s s e l _ j' . ( %I 4 )T a x i s( b e s s e l _ j( 1 , %i ) ) ; ( %O 4 )a b s( b e s s e l _ j( 1 , %i ) )
F u n c i n :c a r g( < z > ) D e v u e l v ee la r g u m e n t oc o m p l e j od e< z > .E la r g u m e n t oc o m p l e j oe su n n g u l ot h e t a` ' e n `( %p i , %p i ] 't a lq u ee x p` r( t h e t a %i )=< z >' d o n d e` r' e sl am a g n i t u dd e< z > . ` C a r g' e su n af u n c i nd ec l c u l o ,n ou n af u n c i ns i m p l i f i c a . V a s et a m b i n' a b d o m i n a l e s '( m a g n i t u dc o m p l e j a ) ,` p o l a r f o r m' , R e c t f o r m` ' , `r e a l p a r t 'y` i m a g p a r t' . E j e m p l o s : ( %I 1 )c a r g( 1 ) ; ( %O 1 )0 ( %I 2 )c a r g( 1+ %i ) ; %P i ( %O 2 )4 ( %I 3 )c a r g( e x p( %i ) ) ; ( %O 3 )1 ( %I 4 )c a r g( e x p( %p i* %i ) ) ; ( %O 4 ) %p i ( %I 5 )c a r g( e x p( 3 / 2* %p i* %i ) ) ; %P i ( %O 5 )2 ( %I 6 )c a r g( 1 7*e x p( 2* %i ) ) ; ( %O 6 )2
F u n c i n :c o n j u g a d o( < x > ) D e v u e l v ee lc o n j u g a d oc o m p l e j od e< x > . ( %I 1 )d e c l a r e( [ a a ,b b ] ,r e a l ,c c ,c o m p l e j o ,i i ,i m a g i n a r i o ) ; ( %O 1 )h e c h o ( %I 2 )c o n j u g a d o( a a+b b* %i ) ; ( %O 2 )a a%ib b ( %I 3 )c o n j u g a d o( c c ) ; ( %O 3 )c o n j u g a d o( c c ) ( %I 4 )c o n j u g a d o( i i ) ; ( %O 4 )-i i ( %I 5 )c o n j u g a d o( x x+y y ) ; ( %O 5 )c o n j u g a d o( a a )+c o n j u g a d o( x x )
F u n c i n :i m a g p a r t( e x p r ) D e v u e l v el ap a r t ei m a g i n a r i ad el ae x p r e s i ne x p r . I m a g p a r t` ' e su n af u n c i nd ec l c u l o ,n ou n af u n c i ns i m p l i f i c a . V a s et a m b i n' a b d o m i n a l e s ' ,` c a r g' , `p o l a r f o r m ' , R e c t f o r m` ' y `r e a l p a r t ' .
F u n c i n :p o l a r f o r m( e x p r ) D e v u e l v eu n ae x p r e s i n` r %e^ ( %it h e t a ) "e q u i v a l e n t eae x p r ,t a l e s q u e` r' y 't h e t a' s o np u r a m e n t er e a l .
91/633
28/08/13
F u n c i n :r e a l p a r t( e x p r )
D e v u e l v el ap a r t er e a ld ee x p r .R e a l p a r t` ' y ì m a g p a r tl av o l u n t a d t r a b a j a rc o ne x p r e s i o n e sq u ec o n t e n g a nt r i g o n o m t r i c a seh i p e r b l i c a s f u n c i o n e s ,a s c o m ol a sr a c e sc u a d r a d a s ,l o g a r i t m o sye x p o n e n t e s .
F u n c i n :r e c t f o r m( e x p r ) D e v u e l v eu n ae x p r e s i n` a+b %i' e q u i v a l e n t eae x p r ,d em a n e r aq u e < a >ys o np u r a m e n t er e a l .
10.3 Funciones combinatorias

O p e r a d o r :! E lo p e r a d o rf a c t o r i a ld o b l e . P a r au nn m e r oe n t e r o ,p u n t of l o t a n t eor a c i o n a ln m e r o` n' , 'n !'e v a l a e lp r o d u c t o` n( n 2 )( n 4 )( n 6 ). . .( N-2( k 1 ) )' ,d o n d e` k 'e s i g u a la` e n t i e r( n/2 )' ,q u ee s ,e lm a y o re n t e r om e n o ro i g u a la` n/2' .T e n g ae nc u e n t aq u ee s t ad e f i n i c i nn oc o i n c i d ec o n o t r a sd e f i n i c i o n e sp u b l i c a d a sp a r aa r g u m e n t o sq u en os o nn m e r o se n t e r o s . P a r au np a r( oi m p a r )e n t e r o` n' , 'n !'s ee v a l u ae lp r o d u c t od e t o d o sl o sn m e r o se n t e r o sc o n s e c u t i v o sp a r e s( oi m p a r e s )d e2( o1 )at r a v sd e I n c l u s i v e` n' . P a r au na r g u m e n t o` n' ,q u en oe su nn m e r oe n t e r o ,p u n t of l o t a n t eor a c i o n a l , ` N !'l o sr e n d i m i e n t o sd eu n af o r m an o m i n a l' g e n f a c t( n ,n/2 ,2 ) .
F u n c i n :b i n o m i a l( < x >< y > ) E lc o e f i c i e n t eb i n o m i a l` < x >/ !( < y >( < x >- < y > ) )' .S i< x >y < y >s o nn m e r o se n t e r o s ,e n t o n c e se lv a l o rn u m r i c od el ab i n o m i a l c o e f i c i e n t es ec a l c u l a .S i< y >o< x y > ,e su ne n t e r o ,e l c o e f i c i e n t eb i n o m i a ls ee x p r e s ac o m ou np o l i n o m i o . E j e m p l o s : ( %I 1 )b i n o m i a l( 1 1 ,7 ) ; ( %O 1 )3 3 0 ( %I 2 )1 1 !/7 !/( 1 1 7 ) ! ; ( %O 2 )3 3 0 ( %I 3 )b i n o m i a l( x ,7 ) ; ( X-6 )( x-5 )( x-4 )( x-3 )( x-2 )( x-1 )x ( %O 3 )-5 0 4 0 ( %I 4 )b i n o m i a l( x+7 ,x ) ; ( X+1 )( x+2 )( x+3 )( x+4 )( x+5 )( x+6 )( x+7 ) ( %O 4 )-5 0 4 0 ( %I 5 )b i n o m i a l( 1 1 ,y ) ; ( %O 5 )b i n o m i a l( 1 1 ,y )
F u n c i n :f a c t c o m b( e x p r ) T r a t ad ec o m b i n a rl o sc o e f i c i e n t e sd el o sf a c t o r i a l e sd ee x p rc o nl a m i s m o sf a c t o r i a l e s ,c o n v i r t i e n d o ,p o re j e m p l o ,' ( n+1 )*n ! ' e n` ( n+1 ) !' . ` S u m s p l i t f a c t "s ie n` f a l s e' h a r 'm i n f a c t o r i a l "s e r a p l i c a d ad e s p u sd eu n` f a c t c o m b' .
F u n c i n :f a c t o r i a l O p e r a d o r :! R e p r e s e n t al af u n c i nf a c t o r i a l .M a x i m ac o n s i d e r a` f a c t o r i a l( < x > )' l am i s m ac o m o` < x > !' . P a r ac u a l q u i e rn m e r oc o m p l e j o` x' ,e x c e p t op a r ae n t e r o sn e g a t i v o s ,x ` ! 'e s d e f i n i d oc o m o` g a m m a( x1 )' . P a r au n a` xn m e r oe n t e r o' , 'x's i m p l i f i c ae lp r o d u c t od el o sn m e r o se n t e r o s d e l1a li n c l u s i v a` x' .` 0's i m p l i f i c aa1 .P a r au n ar e a lo n m e r oc o m p l e j oe nd e c i m a l e sd ec o m af l o t a n t e` x' , 'x's i m p l i f i c a p a r ae lv a l o rd e` g a m m a( x1 )' .P a r a` x' i g u a la `n/2 ' ,d o n d e` n' e s u ne n t e r oi m p a r ,` x's i m p l i f i c aav e c e se lf a c t o r` s q r tr a c i o n a l ( %P i )' ( d e s d e` g a m m a( 1 / 2 ) 'e si g u a la `s q r t( %p i )' ) . L a sv a r i a b l e so p c i n` f a c t l i m' y `g a m m a l i m" c o n t r o ld e l e v a l u a c i nn u m r i c ad el o sf a c t o r i a l e sd en m e r o se n t e r o syr a c i o n a l e s a r g u m e n t o s .L a sf u n c i o n e sm i n f a c t o r i a l` ' y `f a c t c o m b ' s i m p l i f i c ae x p r e s i o n e sq u ec o n t i e n e nf a c t o r i a l e s .
92/633
28/08/13

L a sf u n c i o n e s' g a m m a ' ,` b f f a c' y `c b f f a c" s o nv a r i e d a d e sd e l af u n c i ng a m m a .B f f a c` ' y `c b f f a c" l l a m ai n t e r n a m e n t ea ' G a m m a 'p a r ae v a l u a rl af u n c i ng a m m ae ns e r i oyc o m p l e j o n m e r o sd e c i m a l e sd ec o m ae nl ap r e c i s i n . ` ' S u s t i t u t o s 'g a m m a' m a k e g a m m ap a r af a c t o r i a l e sya f i n e s f u n c i o n e s . M a x i m ac o n o c el ad e r i v a d ad el af u n c i nf a c t o r i a lye l l m i t e sd el o sv a l o r e se s p e c f i c o sc o m ol o se n t e r o sn e g a t i v o s . L av a r i a b l eo p c i n` f a c t o r i a l _ e x p a n d' c o n t r o l ae l s i m p l i f i c a c i nd ee x p r e s i o n e sc o m o' ( n+x ) ! ' ,d o n d e' n 'e su n n m e r oe n t e r o . V a s et a m b i n` b i n o m i o' . E lf a c t o r i a ld eu ne n t e r os er e d u c eau nn m e r oe x a c t o am e n o sq u ee lo p e r a n d oe sm a y o rq u e` f a c t l i m' .E lf a c t o r i a ld e n m e r o sr e a l e syc o m p l e j o ss ee v a l ae nf l o a tob i g f l o a t p r e c i s i n . ( %I 1 )f a c t l i m :1 0 ; ( %O 1 )1 0 ( %I 2 )[ 0 ,( 7 / 2 ) ,8 ,2 0 ! ] ; 1 0 5s q r t( %p i ) ( %O 2 )[ 1 ,,4 03 2 0 ,2 0 ! ] 1 6 ( %I 3 )[ 4 . 7 7 ,( 1 . 0 %+i ) ! ] ; ( %O 3 )[ 8 1 . 4 4 6 6 8 0 3 7 9 3 1 1 9 7 , 0 . 3 4 3 0 6 5 8 3 9 8 1 6 5 4 5 4 %i+0 . 6 5 2 9 6 5 4 9 6 4 2 0 1 6 6 5 ] ( %I 4 )[ 2 . 8 6 b 0 ,( 1 . 0 B 0+ %i ) ! ] ; ( %O 4 )[ 5 . 0 4 6 6 3 5 5 8 6 9 1 0 0 1 2 b 0 , 3 . 4 3 0 6 5 8 3 9 8 1 6 5 4 5 4 b 1 %i+6 . 5 2 9 6 5 4 9 6 4 2 0 1 6 6 7 b 1 ] E lf a c t o r i a ld eu n ae x p r e s i nc o n s t a n t e ,oe ng e n e r a ln oe sc o n o c i d a s i m p l i f i c a d a .A u na s ,p u e d es e rp o s i b l er e d u c i re lf a c t o r i a l d e s p u sd ee v a l u a re lo p e r a n d o . ( %I 1 )[ ( %i+1 ) , %p i , %e ,( c o s( 1 )+s i n( 1 ) ) ! ! ! ] ; ( %O 1 )[ ( %i+1 ) ! , %P i ! , %E ! ,( S i n( 1 )+c o s( 1 ) ) ! ] ( %I 2 )e v( % ,n u m e r , %e n u m e r ) ; ( %O 2 )[ 0 . 3 4 3 0 6 5 8 3 9 8 1 6 5 4 5 4 %i+0 . 6 5 2 9 6 5 4 9 6 4 2 0 1 6 6 5 , 7 . 1 8 8 0 8 2 7 2 8 9 7 6 0 3 1 , 4 . 2 6 0 8 2 0 4 7 6 3 5 7 0 0 3 ,1 . 2 2 7 5 8 0 2 0 2 4 8 6 8 1 9 ] F a c t o r i a l e ss o ns i m p l i f i c a d o s ,n oe v a l u a d o s .P o rl ot a n t o` x !'p u e d es e r r e e m p l a z a d oe nu n ae x p r e s i ne n t r ec o m i l l a s . ( %I 1 )" ( [ 0 ,( 7 / 2 ) ,4 . 7 7 ,8 ,2 0 ! ! ! ] ) ; 1 0 5s q r t( %p i ) ( %O 1 )[ 1 ,,8 1 . 4 4 6 6 8 0 3 7 9 3 1 1 9 9 ,4 0 3 2 0 , 1 6 2 4 3 2 9 0 2 0 0 8 1 7 6 6 4 0 0 0 0 ] M a x i m ac o n o c el ad e r i v a d ad el af u n c i nf a c t o r i a l . ( %I 1 )d i f f( x ! ,x ) ; ( %O 1 )x !p s i( x+1 ) 0 L av a r i a b l eo p c i n` f a c t o r i a l _ e x p a n d' c o n t r o l al ae x p a n s i ny s i m p l i f i c a c i nd ee x p r e s i o n e sc o nl af u n c i nf a c t o r i a l . !( %I 1 )( n+ 1 )/n ,f a c t o r i a l _ e x p a n d :t r u e ; ! ( %O 1 )n+1
V a r i a b l eo p c i o n a l :f a c t l i m V a l o rp o rd e f e c t o :1 ` F a c t l i m' e s p e c i f i c ae lm a y o rf a c t o r i a lq u ee sa u t o m t i c a m e n t e a m p l i a d o .S ie s1 ,e n t o n c e st o d o sl o sn m e r o se n t e r o ss ee x p a n d e n .
V a r i a b l eo p c i o n a l :f a c t o r i a l _ e x p a n d V a l o rp o rd e f e c t o :f a l s e L av a r i a b l eo p c i n` f a c t o r i a l _ e x p a n d' c o n t r o l al as i m p l i f i c a c i n d ee x p r e s i o n e sc o m o' ( n+ 1 ) ! ' ,d o n d e' n 'e su nn m e r oe n t e r o .V e r ' F a c t o r i a l 'p a r au ne j e m p l o .
F u n c i n :g e n f a c t( < x >< y > ,< z > ) D e v u e l v ee lf a c t o r i a lg e n e r a l i z a d o ,d e f i n i d oc o m o` x( x z )( x-2z ) . . .( X-( y-1 )z ) .P o rl ot a n t o ,p a r a< x >i n t e g r a n t e ,` g e n f a c t( x ,x ,1 ) =X !'y` g e n f a c t( x ,x/2 ,2 )=x ! !' .
93/633
28/08/13
F u n c i n :m i n f a c t o r i a l( e x p r )
E x a m i n a< e x p r >l a sa p a r i c i o n e sd ed o sf a c t o r i a l e sq u es ed i f e r e n c i a np o r u nn m e r oe n t e r o .` M i n f a c t o r i a l' ,e n t o n c e ss ec o n v i e r t eu n oe nu nm o m e n t op o l i n m i c a s l ao t r a . ( %I 1 )n/( n+ 2 ) ! ; n ! ( %O 1 )( N+2 ) ! ( %I 2 )m i n f a c t o r i a l( % ) ; 1 ( %O 2 )( N+1 )( n+2 )
V a r i a b l eo p c i o n a l :s u m s p l i t f a c t V a l o rp o rd e f e c t o :t r u e' C u a n d o` s u m s p l i t f a c t' e s 'f a l s e' ,m i n f a c t o r i a ls ea p l i c a ` 'd e s p u sd eu n ` F a c t c o m b' .
10.4 Root, funciones exponenciales y logartmicas

V a r i a b l eo p c i o n a l :%e _ t o _ n u m l o g V a l o rp o rd e f e c t o :f a l s e' C u a n d o` t r u e' , 'r' e su nn m e r or a c i o n a l ,y 'x' u n ae x p r e s i n , ` %E^( r*l o g( x ) ) "s es i m p l i f i c a r ne n` x^r' .C a b es e a l a r q u ee lc o m a n d o` r a d c a n' t a m b i nh a c ee s t at r a n s f o r m a c i n ,ym s t r a n s f o r m a c i o n e sc o m p l e j a sd ee s t ac a l a at a m b i n .E l` l o g c o n t r a c t' c o m a n d oe x p r e s i o n e s" c o n t r a t o s "q u ec o n t i e n e n' l o g ' .
V a r i a b l eo p c i o n a l :%e m o d e V a l o rp o rd e f e c t o :t r u e' C u a n d o` %e m o d e' e s 't r u e' , ' %e^ ( %p i %i x )' s es i m p l i f i c ad el as i g u i e n t em a n e r a . ` %E^( %p i %i x )' s es i m p l i f i c aa `c o s( %p ix )+ %is i n( %p ix )s i ` X' e su nn m e r od ec o m af l o t a n t e ,u nn m e r oe n t e r o ,ou nm l t i p l od em e d i a , 1 / 3 ,1 / 4 ,o1 / 6 ,yl u e g os es i g u es i m p l i f i c a n d oa nm s . P o ro t r a` n u m r i c ox' , ' %e^ ( %p i %i x )' s es i m p l i f i c aa ` %e^ ( %p i %i y )' ,d o n d e` y 'e s `x-2k' p a r aa l g ne n t e r o` k 't a lq u e à b s( y ) < 1' . C u a n d o` %e m o d e' e s 'f a l s e' ,n ol as i m p l i f i c a c i ne s p e c i a ld e ` %e^ ( %p i %i x )' s el l e v aac a b o .
V a r i a b l eo p c i o n a l :%e n u m e r V a l o rp o rd e f e c t o :f a l s e' C u a n d o` %e n u m e r' e s 't r u e' , ' %e' s es u s t i t u y ep o rs uv a l o rn u m r i c o 2 . 7 1 8. . .s i e m p r e` n u m e r' e s `t r u e ' . C u a n d o` %e n u m e r' e s 'f a l s e' ,e s t as u s t i t u c i ns er e a l i z as l o s ie le x p o n e n t ee n` %e^ x' c o m or e s u l t a d ou nn m e r o . V a s et a m b i n' e v 'y' n u m e r .
F u n c i n :e x p( < x > ) R e p r e s e n t al af u n c i ne x p o n e n c i a l .L o sc a s o sd e' e x p( < x > )" e n e n t r a d as es i m p l i f i c ae n %e^ ` < x >' ; 'e x p' n oa p a r e c ee n e x p r e s i o n e ss i m p l i f i c a d a . ` D e m o i v r e' s i `t r u e 'c a u s a s' %e^ ( a+b %i )" p a r as i m p l i f i c a ra l ` %e^ ( a ( C o s( b )+ %is i n( b ) ) )" s i `b' e s t l i b r ed e` %i ' .C o n s u l t e` d e m o i v r e' . ` %E m o d e' ,c u a n d o 't r u e' ,h a c eq u e ` %e^ ( %p i %i x )" p a r as i m p l i f i c a r . C o n s u l t e` %e m o d e' . ` %E n u m e r' ,c u a n d o `t r u e 'c a u s a s' %e 'p a r as e rs u s t i t u i d op o r2 . 7 1 8. . . s i e m p r e` n u m e r' e s `t r u e ' .C o n s u l t e` %e n u m e r' .
F u n c i n :l i[ < S > ]( < z > ) R e p r e s e n t al af u n c i np o l i l o g a r i t m od e< S >o r d e nya r g u m e n t o
94/633
28/08/13

< z > ,d e f i n i d ap o rl as e r i ei n f i n i t a i n f = = = =K \Z L i( z )= >s/s = = = =K k=1 ` L i[ 1 ]' e s `-l o g( 1-z ) ' .` L i[ 2 ]' y `l i[ 3 ] 's o n f u n c i o n e sd i yt r i l o g a r i t m o ,r e s p e c t i v a m e n t e . C u a n d ol ao r d e ne s1 ,e lp o l i l o g a r i t m os er e d u c ea' -l o g( 1z )' ,q u eas uv e zr e d u c eau nv a l o rn u m r i c o ,s ie su n< z > n m e r od e c i m a lr e a loc o m p l e j ool ae v a l u a c i n` n u m e r' b a n d e r ae s t p r e s e n t e . C u a n d ol ao r d e ne s2o3 ,e lp o l i l o g a r i t m os er e d u c eau n v a l o rn u m r i c os i< z >e su nn m e r od e c i m a lr e a lo ` N u m e r "e s t p r e s e n t e . E j e m p l o s : ( %I 1 )a s u m i r ( x >0 ) ; ( %O 1 )[ x >0 ] ( %I 2 )i n t e g r a t e( ( l o g( 1-t ) )/t ,t ,0 ,x ) ; ( %O 2 )-l i( x ) 2 ( %I 3 )l i[ 2 ]( 7 ) ; ( %O 3 )l i( 7 ) 2 ( %I 4 )l i[ 2 ]( 7 ) ,n u m e r ; ( %O 4 )1 , 2 4 8 2 7 3 1 7 8 3 3 3 9 2 6 , 1 1 3 2 5 7 0 2 1 8 3 2 5 7 7 %i ( %I 5 )l i[ 3 ]( 7 ) ; ( %O 5 )l i( 7 ) 3 ( %I 6 )l i[ 2 ]( 7 ) ,n u m e r ; ( %O 6 )1 , 2 4 8 2 7 3 1 7 8 3 3 3 9 2 6 , 1 1 3 2 5 7 0 2 1 8 3 2 5 7 7 %i ( %I 7 )L :m a k e L i s t( i/4 , 0 ,i ,0 ,8 ) ; ( %O 7 )[ 0 , 0 ,0 , 2 5 ,0 , 5 ,0 , 7 5 ,1 , 0 ,1 , 2 5 ,1 , 5 ,1 , 7 5 ,2 , 0 ] ( %I 8 )m a p a( l a m b d a( [ x ] ,L i[ 2 ]( x ) ) ,L ) ; ( %O 8 )[ 0 ,0 . 2 6 7 6 5 2 6 3 8 4 9 8 6 2 7 4 ,0 . 5 8 2 2 4 0 5 2 4 9 4 3 2 5 1 5 , 0 . 9 7 8 4 6 9 3 9 6 6 6 6 1 8 4 8 ,1 . 6 4 4 9 3 4 0 7 ,2 . 1 9 0 1 7 7 0 0 4 1 7 8 5 9 7 -0 . 7 0 1 0 2 6 1 4 0 7 0 3 6 1 9 2 %i ,2 . 3 7 4 3 9 5 2 6 4 0 4 2 4 1 5 %I1 . 2 7 3 8 0 6 2 0 3 4 6 4 0 6 5 ,2 . 4 4 8 6 8 6 7 5 7 2 4 5 1 5 4 %I1 . 7 5 8 0 8 4 8 4 6 2 0 1 8 8 3 ,2 . 4 6 7 4 0 1 0 9 8 0 9 7 6 4 8 -2 . 1 7 7 5 8 6 0 8 7 8 1 5 3 4 7 %i ] ( %I 9 )m a p a( l a m b d a( [ x ] ,L i[ 3 ]( x ) ) ,L ) ; ( %O 9 )[ 0 ,0 . 2 5 8 4 6 1 3 9 5 3 4 4 2 6 2 4 ,0 . 5 3 7 2 1 3 1 9 2 6 7 8 0 4 2 , 0 . 8 4 4 4 2 5 8 0 4 6 4 8 2 2 0 3 ,1 , 2 0 2 0 5 6 9 ,1 . 6 4 2 8 6 6 8 7 8 9 5 0 3 2 2 -, 0 7 8 2 1 4 7 3 1 3 0 0 3 5 0 2 5 %I ,2 . 0 6 0 8 7 7 5 0 5 5 1 4 6 9 7 -0 . 2 5 8 2 4 1 9 8 4 9 9 8 2 0 3 7 %i ,2 . 4 3 3 4 1 8 8 9 6 3 8 8 3 2 2 -0 . 4 9 1 9 2 6 0 1 8 2 3 2 2 9 6 5 %i ,2 . 7 6 2 0 7 1 9 0 4 0 1 5 9 3 5 -0 . 7 5 4 6 9 3 8 2 8 5 9 7 8 8 4 6 %i ]
F u n c i n :l o g( < x > ) R e p r e s e n t ae ll o g a r i t m on a t u r a l( b a s ee )d e< x > . M a x i m an ot i e n eu n af u n c i ni n t e g r a d ap a r ae ll o g a r i t m oe nb a s e1 0 uo t r a sb a s e s .` L o g 1 0( x ) :=l o g( x )/l o g( 1 0 )' e su n t i l D e f i n i c i n . L as i m p l i f i c a c i nye v a l u a c i nd el o g a r i t m o ss er i g ep o rv a r i o s i n d i c a d o r e sg l o b a l e s : ` `L o g e x p a n d ' ' c a u s a s` l o g( a^b )' p a r ac o n v e r t i r s ee n 'b*l o g( a ) " .S is ee s t a b l e c ee n ` A l l' , `l o g( a*b )t a m b i ns er e d u c i r a` l o g( a )+l o g( b ) .S i q u ee s t e n` s u p e r' ,y `l o g( a/b ) 's e r t a m b i nas i m p l i f i c a r ` L o g( a ) l o g( b )' p a r al o sn m e r o sr a c i o n a l e s à/b ' ,` a#1 . ( ` L o g( 1/b )' ,p o r 'b' n m e r oe n t e r o ,s es i m p l i f i c as i e m p r e ) .S ie s e n` f a l s e' ,t o d a se s t a ss i m p l i f i c a c i o n e ss ea c t i v a r o f f . ` `L o g s i m p ' ' s i` f a l s e' ,e n t o n c e sn os ed e ` %E 'au np o d e r q u ec o n t i e n e ' 'sl o g` s eh a c e . ` `L o g n e g i n t ' ' s ie s` t r u e' i m p l e m e n t al ar e g l a `l o g( n ) '>` l o g( n )+ %i* %p i "p a r a ` N' u nn m e r oe n t e r op o s i t i v o . ` ` % ' 'E _ t o _ n u m l o g c u a n d o` t r u e' , 'r' e su nn m e r or a c i o n a l ,y 'x' a l g u n o s e x p r e s i n ,l ae x p r e s i n` %e^ ( r*l o g( x ) )' s es i m p l i f i c a r e n` x^r' .D e b et e n e r s ee nc u e n t aq u ee lc o m a n d o` r a d c a n' t a m b i nh a c ee s t at r a n s f o r m a c i n ,ym sc o m p l i c a d o t r a n s f o r m a c i o n e sd ee s t et a m b i n .E lc o m a n d o` l o g c o n t r a c t' E x p r e s i o n e s" c o n t r a t o s "q u ec o n t i e n e n' l o g ' .
95/633
28/08/13
V a r i a b l eo p c i o n a l :l o g a b s V a l o rp o rd e f e c t o :f a l s e'
C u a n d oi n t e g r a l e si n d e f i n i d a sq u es eg e n e r a nl o g a r i t m o s ,p o re j e m p l o , ` I n t e g r a r( 1/x ,x ) ,l ar e s p u e s t as ed ae nt r m i n o sd e `l o g( a b s( . . . ) )" s i` l o g a b s' e s `t r u e ' ,p e r oe nt r m i n o sd e` l o g( . . . )' s i `l o g a b s 'e s ' F a l s e ' .E nl ai n t e g r a c i nd e f i n i d a ,e l` l o g a b s :a j u s t ev e r d a d e r o "e s u t i l i z a ,p o r q u ea q u " e v a l u a c i n "d el ai n t e g r a li n d e f i n i d ae ne l am e n u d os en e c e s i t ae n d p o i n t s .
V a r i a b l eo p c i o n a l :l o g a r c F u n c i n :l o g a r c( e x p r ) C u a n d ol av a r i a b l eg l o b a l` l o g a r c' e s `t r u e ' ,c i r c u l a ri n v e r s ay f u n c i o n e sh i p e r b l i c a ss o nr e e m p l a z a d a sp o rl o g a r t m i c ae q u i v a l e n t e f u n c i o n e s .E lv a l o rp o rd e f e c t od e` l o g a r c' e s 'f a l s e' . L af u n c i n` l o g a r c( < e x p r > )' l l e v aac a b op a r aq u ee lr e e m p l a z od eu n < e x p r >e x p r e s i ns i nm o d i f i c a rl av a r i a b l eg l o b a l` l o g a r c' .
V a r i a b l eo p c i o n a l :l o g c o n c o e f f p V a l o rp o rd e f e c t o :f a l s e' C o n t r o l aq u c o e f i c i e n t e ss ec o n t r a e nc u a n d os eu t i l i z a ` L o g c o n t r a c t' .S ep u e d ee s t a b l e c e re ne ln o m b r ed eu n af u n c i nd ep r e d i c a d o d eu na r g u m e n t o .E j e m p l o ,s is eq u i e r ei n t r o d u c i rr a c e sc u a d r a d a s ,s ep u e d eh a c e r ` L o g c o n c o e f f p :' l o g c o n f u n$l o g c o n f u n( m ) :=f e a t u r e p( m ,e n t e r o )o r a t n u m p( m )$' .E n t o n c e s` l o g c o n t r a c t( 1 / 2*l o g( x ) ) ;' d a r ` L o g( s q r t( x ) ) .
F u n c i n :l o g c o n t r a c t( e x p r ) E x p l o r ar e c u r r e n t e m e n t el ae x p r e s i ne x p r ,t r a n s f o r m a n d o s u b e x p r e s i o n e sd el af o r m a` a 1*l o g( b 1 )+a 2*l o g( b 2 )+c' e n ` L o g( r a t s i m p( b 1a 1^*^b 2a 2 ) )+c' ( %I 1 )2*( a*l o g( x )+2*a*l o g( y ) )$ ( %I 2 )l o g c o n t r a c t( % ) ; 24 ( %O 2 )al o g( x y ) L ad e c l a r a c i n` d e c l a r e( n ,e n t e r o )' c a u s a ` L o g c o n t r a c t( 2*a*n*l o g( x ) ) "p a r as i m p l i f i c a ra l` a*l o g( x^( 2*n ) ) .L a c o e f i c i e n t e sq u e" c o n t r a t o "d ee s t am a n e r as o na q u e l l o sq u ec o m oe l 2ye l` n' a q u q u es a t i s f a c e n `f e a t u r e p( c o e f i c i e n t e ,e n t e r o ) .L a u s u a r i op u e d ec o n t r o l a rq u c o e f i c i e n t e ss ec o n t r a e nm e d i a n t ee le s t a b l e c i m i e n t od el a o p c i n` l o g c o n c o e f f p' a ln o m b r ed eu n af u n c i nd ep r e d i c a d od eu n a r g u m e n t o .E j e m p l o ,s is eq u i e r ei n t r o d u c i rr a c e sc u a d r a d a s ,s ep u e d eh a c e r ` L o g c o n c o e f f p :' l o g c o n f u n$l o g c o n f u n( m ) :=f e a t u r e p( m ,e n t e r o )o r a t n u m p( m )$' .E n t o n c e s` l o g c o n t r a c t( 1 / 2*l o g( x ) ) ;' d a r ` L o g( s q r t( x ) ) .
V a r i a b l eo p c i o n a l :l o g e x p a n d V a l o rp o rd e f e c t o :t r u e' S i` t r u e' ,q u ee se lv a l o rp o rd e f e c t o ,h a c eq u e `l o g( a^b ) c o n v e r t i r s ee n ` B*l o g( a ) " .S is ee s t a b l e c ea' t o d o s ' ,` l o g( a*b ) "s e r nt a m b i ns i m p l i f i c a r a` l o g( a )+l o g( b )' .S ie s t e n` s u p e r' ,y `l o g( a/b )l av o l u n t a d T a m b i nr e d u c i r a` l o g( a ) l o g( b )' p a r al o sn m e r o sr a c i o n a l e s à/b ' , ` A#1 .( ` L o g( 1/b )' ,p o re n t e r o `b ' ,s i e m p r es es i m p l i f i c a . )S is et r a t ad e e n` f a l s e' ,t o d a se s t a ss i m p l i f i c a c i o n e ss ea p a g a r .
V a r i a b l eo p c i o n a l :l o g n e g i n t V a l o rp o rd e f e c t o :f a l s e' S i` t r u e' i m p l e m e n t al ar e g l a `l o g( n ) '>` l o g( n )+ %i* %p i' p a r a `n ' u ne n t e r op o s i t i v o .
V a r i a b l eo p c i o n a l :l o g s i m p V a l o rp o rd e f e c t o :t r u e' S i` f a l s e' ,e n t o n c e sn os ed e ` %E 'au n af u e n t eq u ec o n t i e n e ` L o g ' 'ss eh a c e .
96/633
28/08/13
F u n c i n :p l o g( < x > )
R e p r e s e n t al ar a m ap r i n c i p a ld e lc o m p l e j od ev a l o rn a t u r a l , l o g a r i t m oc o n` %p i< c a r g `( < x > )' < = '+ %p i' .
F u n c i n :s q r t( < x > ) L ar a zc u a d r a d ad e< x > .S er e p r e s e n t ai n t e r n a m e n t ep o r ` < x >^( 1 / 2 ) .C o n s u l t et a m b i n` r o o t s c o n t r a c t' . ` R a d e x p a n d' s i `t r u e 'h a r q u el a sr a c e sn s i m a sd el o sf a c t o r e sd eu np r o d u c t o q u es o np o t e n c i a sd ens ee x t r a e nd e ls m b o l or a d i c a l ,p o re j e m p l o , ` S q r t( 1 6*x^2 )' s ec o n v e r t i r e n `4*x 's l os i' r a d e x p a n d 'e s` t r u e' .
10.5 Funciones trigonomtricas

*I n t r o d u c c i nal at r i g o n o m e t r a: : *F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a: :
V a r i a b l eo p c i o n a l :%p i a r g s V a l o rp o rd e f e c t o :t r u e' C u a n d o` %p i a r g s' e s `t r u e ' ,l a sf u n c i o n e st r i g o n o m t r i c a ss es i m p l i f i c a n ac o n s t a n t e sa l g e b r a i c a sc u a n d oe la r g u m e n t oe su nm l t i p l oe n t e r od e %P i , %p i/2 , %p i/3 , %p i/4 ,o %p i/6 . M a x i m ac o n o c ea l g u n a si d e n t i d a d e sq u es ep u e d e na p l i c a rc u a n d o %p i ,e t c , s em u l t i p l i c a np o ru n av a r i a b l ee n t e r a( e sd e c i r ,u ns m b o l od e c l a r a ls e ru nn m e r oe n t e r o ) . E j e m p l o s : ( %I 1 ) %p i a r g s :f a l s e$ ( %I 2 )[ s i n( %p i ) ,s i n( %p i/2 ) ,s i n( %p i/3 ) ] ; %P i %p i ( %O 2 )[ s i n( %p i ) ,s i n( ) ,s i n( ) ] 23 ( %I 3 )[ s i n( %p i/4 ) ,s i n( %p i/5 ) ,s i n( %p i/6 ) ] ; %P i %p i %p i ( %O 3 )[ s i n( ) ,s i n( ) ,s i n( ) ] 456 ( %I 4 ) %p i a r g s :t r u e$ ( %I 5 )[ s i n( %p i ) ,s i n( %p i/2 ) ,s i n( %p i/3 ) ] ; s q r t( 3 ) ( %O 5 )[ 0 ,1 ,] 2 ( %I 6 )[ s i n( %p i/4 ) ,s i n( %p i/5 ) ,s i n( %p i/6 ) ] ; 1 %p i1 ( %O 6 )[ ,s i n( ) ,] s q r t( 2 )52 ( %I 7 )[ c o s( %p i/3 ) ,c o s( 1 0* %p i/3 ) ,t a n( 1 0* %p i/3 ) , c o s( s q r t( 2 )* %p i/3 ) ] ; 11s q r t( 2 ) %p i ( %O 7 )[ ,,s q r t( 3 ) ,c o s( ) ] 223 S ea p l i c a nc i e r t a si d e n t i d a d e sc u a n d o %p iy %p i/2s em u l t i p l i c a np o r u n av a r i a b l ee n t e r a . ( %I 1 )d e c l a r e( n ,u ne n t e r om ,p a r )$ ( %I 2 )[ s i n( %p i*n ) ,c o s( %p i*m ) ,s i n( %p i/2*m ) , c o s( %p i/2*m ) ] ; m/2 ( %O 2 )[ 0 ,1 ,0 ,( -1 ) ]
V a r i a b l eo p c i o n a l :%i a r g s V a l o rp o rd e f e c t o :t r u e' C u a n d o` %i a r g s' e s `t r u e ' ,l a sf u n c i o n e st r i g o n o m t r i c a ss es i m p l i f i c a na f u n c i o n e sh i p e r b l i c a ss ie la r g u m e n t oe sa p a r e n t e m e n t eu nm l t i p l od e l au n i d a di m a g i n a r i a %i . A u nc u a n d oe la r g u m e n t oe sm a n i f i e s t a m e n t er e a l ,l as i m p l i f i c a c i ne s a p l i c a d a ,M a x i m as l os ie la r g u m e n t oe su nl i t e r a l m l t i p l od e %i . E j e m p l o s : ( %I 1 ) %i a r g s :f a l s e$ ( %I 2 )[ s i n( %i*x ) ,c o s( %i*x ) ,t a n( %i*x ) ] ; ( %O 2 )[ s i n( %i x ) ,c o s( %i x ) ,t a n( %i x ) ] ( %I 3 ) %i a r g s :t r u e$ ( %I 4 )[ s i n( %i*x ) ,c o s( %i*x ) ,t a n( %i*x ) ] ; ( %O 4 )[ %is i n h( x ) ,c o s h( x ) , %it a n h( x ) ]
97/633
28/08/13

A u nc u a n d oe la r g u m e n t oe sm a n i f i e s t a m e n t er e a l ,l as i m p l i f i c a c i ne s a p l i c a d a . ( %I 1 )d e c l a r e( x ,i m a g i n a r i o )$ ( %I 2 )[ f e a t u r e p( x ,i m a g i n a r i o ) ,f e a t u r e p( x ,r e a l ) ] ; ( %O 2 )[ t r u e ,f a l s e ] ( %I 3 )s i n( %i*x ) ; ( %O 3 ) %is i n h( x )
F u n c i n :a c o s( < x > ) -A r c oc o s e n o .
F u n c i n :a c o s h( < x > ) -H i p e r b l i c aA r c oc o s e n o .
F u n c i n :a c o t( < x > ) -A r c oc o t a n g e n t e .
F u n c i n :a c o t h( < x > ) -A r c oc o t a n g e n t eh i p e r b l i c a .
F u n c i n :a c s c( < x > ) -C o s e c a n t eA r c o .
F u n c i n :a c s c h( < x > ) -A r c oc o s e c a n t eh i p e r b l i c a .
F u n c i n :a s e c( < x > ) -S e c a n t eA r c o .
F u n c i n :a s e c h( < x > ) -A r c os e c a n t eh i p e r b l i c a .
F u n c i n :a s i n( < x > ) -A r c o s e n o .
F u n c i n :a s i n h( < x > ) -A r c o s e n oh i p e r b l i c o .
F u n c i n :a t a n( < x > ) -A r c o t a n g e n t e .
F u n c i n :a t a n 2( < y > ,< x > ) -C a l c u l ae lv a l o rd e` a t a n( < y >/< x > )' e ne li n t e r v a l od e `%p i 'a ` %P i' .
F u n c i n :a t a n h( < x > ) -A r c o t a n g e n t eh i p e r b l i c a .
98/633
28/08/13
P a q u e t e :a t r i g 1
E lp a q u e t e` a t r i g 1' c o n t i e n ev a r i a ss i m p l i f i c a c i na d i c i o n a l n o r m a sp a r al a sf u n c i o n e st r i g o n o m t r i c a si n v e r s a s .J u n t oc o nl a sr e g l a s q u ey ac o n o c eM a x i m a ,l o ss i g u i e n t e s n g u l o ss o nt o t a l m e n t e i m p l e m e n t a d o :` 0' , ' %p i/6' , ` %p i/4 ' ,' %p i/3 'y` %p i/2' . L o s n g u l o sc o r r e s p o n d i e n t e se nl o so t r o st r e sc u a d r a n t e ss o nt a m b i n d i s p o n i b l e .H a g a` c a r g a( a t r i g 1 ) ;' p a r au s a r l o s .
F u n c i n :c o s( < x > ) -C o s e n o .
F u n c i n :c o s h( < x > ) -C o s e n oh i p e r b l i c o .
F u n c i n :c u n a( < x > ) -C o t a n g e n t e .
F u n c i n :c o t h( < x > ) -C o t a n g e n t eh i p e r b l i c a .
F u n c i n :c s c( < x > ) -C o s e c a n t e .
F u n c i n :c s c h( < x > ) -C o s e c a n t eh i p e r b l i c a .
V a r i a b l eo p c i o n a l :h a l f a n g l e s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` h a l f a n g l e s' e s `t r u e ' ,f u n c i o n e st r i g o n o m t r i c a sd ea r g u m e n t o s ` E x p r/2' s es i m p l i f i c a naf u n c i o n e sd ee x p r . P a r au n a< x >a r g u m e n t or e a le ne li n t e r v a l o` 0< x< 2* %p i' e ls e n od e e l n g u l om e d i os es i m p l i f i c aau n af r m u l as i m p l e : s q r t( 1-c o s( x ) ) s q r t( 2 ) S en e c e s i t au nf a c t o rr e l a t i v a m e n t ec o m p l i c a d op a r ah a c e re s t af r m u l ac o r r e c t ap a r a t o d o sl o sc o m p l e j o sa r g u m e n t o s< z > : r e a l p a r t( z ) p i s o( ) 2 %p i ( -1 )( 1-u n i t _ s t e p( -i m a g p a r t( z ) ) r e a l p a r t( z )r e a l p a r t( z ) p i s o( )-t e c h o( ) 2 %2 %p ip i ( ( -1 )+1 ) ) M a x i m ac o n o c ee s t ef a c t o ryf a c t o r e ss i m i l a r e sp a r al a sf u n c i o n e s ` P e c a d o' , 'c o s' , `s i n h ' ,y' p o r r a ' .P a r av a l o r e se s p e c i a l e sd el a a r g u m e n t oze s t o sf a c t o r e ss i m p l i f i c a ne nc o n s e c u e n c i a . E j e m p l o s : ( %I 1 )h a l f a n g l e s :f a l s o s ; ( %O 1 )f a l s e ( %I 2 )s e n( x/2 ) ; x ( %O 2 )s i n( ) 2 ( %I 3 )h a l f a n g l e s :t r u e ; ( %O 3 )t r u e ( %I 4 )s e n( x/2 ) ; x p i s o( ) 2 %p i s q r t( 1-c o s( x ) )( -1 ) ( %O 4 )-
99/633
28/08/13

s q r t( 2 ) ( %I 5 )a s u m i r ( x >0 ,x< 2* %p i )$ ( %I 6 )s e n( x/2 ) ; s q r t( 1-c o s( x ) ) ( %O 6 )s q r t( 2 )
P a q u e t e :n t r i g E lp a q u e t e` n t r i g' c o n t i e n eu nc o n j u n t od er e g l a sd es i m p l i f i c a c i nq u es e u t i l i z ap a r as i m p l i f i c a rf u n c i o n e st r i g o n o m t r i c a sc u y o sa r g u m e n t o ss o nd el a f o r m a` < f >( < n > %p i / 1 0 )' d o n d e< f >e su n ad el a sf u n c i o n e s `p e c a d o ' , ' C o s ' ,' t a n ' ,' c s c ' ,' s e c 'y' c u n a ' .
F u n c i n :s e c( < x > ) -S e c a n t e .
F u n c i n :s e c h( < x > ) -S e c a n t eh i p e r b l i c a .
F u n c i n :e lp e c a d o( < x > ) -S i n e .
F u n c i n :s i n h( < x > ) -S e n oh i p e r b l i c o .
F u n c i n :t a n( < x > ) -T a n g e n t e .
F u n c i n :t a n h( < x > ) -T a n g e n t eh i p e r b l i c a .
F u n c i n :t r i g e x p a n d( e x p r ) E x p a n d ef u n c i o n e st r i g o n o m t r i c a seh i p e r b l i c a sd es u m a sd e n g u l o s yd em l t i p l o sd e n g u l o sp r e s e n t e se ne x p r .P a r ao b t e n e rm e j o r e sr e s u l t a d o s , e x p rd e b es e ra m p l i a d o .P a r am e j o r a re lc o n t r o ld eu s u a r i o s i m p l i f i c a c i n ,e s t af u n c i nt a ns o l oe x p a n d eu nn i v e lal av e z , e x p a n d i e n d os u m a sd e n g u l o som l t i p l e s n g u l o s .P a r ao b t e n e rl ap l e n a e x p a n s i ne ns e n o syc o s e n o ,a j u s t ee li n t e r r u p t o r ` T r i g e x p a n d :t r u e' . ` T r i g e x p a n d' s er i g ep o rl a ss i g u i e n t e sv a r i a b l e sg l o b a l e s : ` T r i g e x p a n d' S i` t r u e' p r o v o c al ae x p a n s i nd et o d a sl a se x p r e s i o n e sq u ec o n t i e n e n s e n o syc o s e n o s . ` H a l f a n g l e s' S i` t r u e' h a c em e d i o n g u l o sq u es es i m p l i f i q u e nd i s t a n c i a . ` T r i g e x p a n d p l u s' C o n t r o l al ar e g l ad e" s u m a "p a r a` t r i g e x p a n d' ,l ae x p a n s i nd el a sc a n t i d a d e s ( P o re j e m p l o ,` s i n( x+y )' )s el l e v a r ac a b os l os i `t r i g e x p a n d p l u s ' e s` t r u e' . ` T r i g e x p a n d t i m e s' C o n t r o l al ar e g l ad e l" p r o d u c t o "p a r a` t r i g e x p a n d' ,l aa m p l i a c i nd e p r o d u c t o s( p o re j e m p l o ,` s i n( 2x )' )s el l e v a r ac a b os l os i ` T r i g e x p a n d t i m e s' e s `t r u e ' . E j e m p l o s : ( %I 1 )x+s i n( 3*x )/s i n( x ) ,t r i g e x p a n d=t r u e ,a m p l i a r ; 22 ( %O 1 )-s i n( x )+3c o s( x )+x ( %I 2 )t r i g e x p a n d( s e n( 1 0*x+y ) ) ; ( %O 2 )c o s( x1 0 )s i n( y )+s i n( 1 0x )c o s( y )
100/633
28/08/13
V a r i a b l eo p c i o n a l :t r i g e x p a n d p l u s V a l o rp o rd e f e c t o :t r u e'
` T r i g e x p a n d p l u s' c o n t r o l al ar e g l ad e "s u m a" p a r a `t r i g e x p a n d ' .P o rl ot a n t o , c u a n d o" s eu t i l i z ac o m a n d ooe l `t r i g e x p a n d' d e l` t r i g e x p a n di n t e r r u p t o r a j u s t a d oa` t r u e' ,l ae x p a n s i nd es u m a s( p o re j e m p l o `s i n( x+y ) )" s el l e v a r ac a b o s l os i` t r i g e x p a n d p l u s' e s `t r u e ' .
V a r i a b l eo p c i o n a l :t r i g e x p a n d t i m e s V a l o rp o rd e f e c t o :t r u e' ` T r i g e x p a n d t i m e s' c o n t r o l al ar e g l ad e "p r o d u c t o" p a r a `t r i g e x p a n d ' . P o rl ot a n t o ,c u a n d o" s eu t i l i z ac o m a n d ooe l `t r i g e x p a n d' d e l` t r i g e x p a n d i n t e r r u p t o re n' t r u e ' ,l ae x p a n s i nd el o sp r o d u c t o s( p o re j e m p l o ,` s i n( 2*x ) )s e l l e v a r ac a b os l os i` t r i g e x p a n d t i m e s' e s `t r u e ' .
V a r i a b l eo p c i o n a l :t r i g i n v e r s e s V a l o rp o rd e f e c t o :t r u e' ` T r i g i n v e r s e s' c o n t r o l al as i m p l i f i c a c i nd el ac o m p o s i c i nd e f u n c i o n e st r i g o n o m t r i c a seh i p e r b l i c a sc o ns ui n v e r s a f u n c i o n e s . S i` a l l' ,p o re j e m p l o ,t a n t o à t a n( t a n( < x > ) ) 'y` t a n( a t a n( < x > ) )' s i m p l i f i c a r a< x > . S i` t r u e' ,l a `< a r c f u n >( < f u n >( < x > ) )" s i m p l i f i c a c i ns ea p a g a . S i` f a l s e' ,t a n t oe l `< a r c f u n >( < f u n >( < x > ) ) 'y ` < f u n >( < a r c f u n >( < x > ) )' S i m p l i f i c a c i o n e se s t na p a g a d o s .
F u n c i n :t r i g r e d u c e( e x p r ,< x > ) F u n c i n :t r i g r e d u c e( e x p r ) C o m b i n ap r o d u c t o syp o t e n c i a sd ep e c a d od et r i g o n o m t r i c a seh i p e r b l i c a s c o syd ed e< x >e nl o sm l t i p l o sd e< x > .T a m b i nt r a t ad e e l i m i n a re s t a sf u n c i o n e sc u a n d oa p a r e c e ne nl o sd e n o m i n a d o r e s .S i< x > s eo m i t e ,e n t o n c e ss eu t i l i z a nt o d a sl a sv a r i a b l e se ne x p r . C o n s u l t et a m b i n` p o i s s i m p' . ( %I 1 )t r i g r e d u c e( s e n( x )^23*c o s( x )^2+x ) ; c o s( 2x )c o s( 2x )11 ( %O 1 )-+3( -+)+x2222
V a r i a b l eo p c i o n a l :t r i g s i g n V a l o rp o rd e f e c t o :t r u e' C u a n d o` t r i g s i g n' e s `t r u e ' ,p e r m i t el as i m p l i f i c a c i nd el o sn e g a t i v o s a r g u m e n t o sd el a sf u n c i o n e st r i g o n o m t r i c a s .P o re j e m p l o ,` s i n( x )' s ec o n v e r t i r e n ` S i n( x ) "s l os i` t r i g s i g n' e s `t r u e ' .
F u n c i n :t r i g s i m p( e x p r ) U t i l i z al a si d e n t i d a d e ss i n( x )^2+c o s( x )^2=1yc o s h( x )^2s i n h( x )^2=1p a r as i m p l i f i c a re x p r e s i o n e sq u ec o n t i e n e nt a n` ' , `s ' , e t c ,c o ne l` p e c a d o' , 'c o s' , `s i n h ' ,' p o r r a ' . T r i g r e d u c e` ' , `r a t s i m p 'y` r a d c a n' p u e d e ns e rc a p a c e sd ep r o m o v e r s i m p l i f i c a re lr e s u l t a d o . ` D e m o( "t r g s m p . d e m" ) "m u e s t r aa l g u n o se j e m p l o sd e` t r i g s i m p' .
F u n c i n :t r i g r a t( e x p r ) P r o p o r c i o n au n af o r m as i m p l i f i c a d ac u a s i l i n e a lc a n n i c ad eu nt r i g o n o m t r i c a e x p r e s i n ;e x p re su n af r a c c i nr a c i o n a lq u ec o n t i e n e` p e c a d o' , 'c o s' o' c a n e l a ' ,l o sa r g u m e n t o sd ee l l o ss o nf o r m a sl i n e a l e sr e s p e c t od ec i e r t a sv a r i a b l e s ( On c l e o s )y` %p i/< n >' ( < n >e n t e r o )c o nc o e f i c i e n t e se n t e r o s . E lr e s u l t a d oe su n af r a c c i ns i m p l i f i c a d ac o ne ln u m e r a d o rye ld e n o m i n a d o r l i n e a le n` p e c a d o' y 'c o s' .P o rl ot a n t o` t r i g r a t' l i n e a l i z a rs i e m p r ec u a n d o e sp o s i b l e . ( %I 1 )t r i g r a t( s e n( 3*a )/s e n( a+ %p i/3 ) ) ; ( %O 1 )s q r t( 3 )s e n( 2a )+c o s( 2A )-1 E ls i g u i e n t ee j e m p l oe s t t o m a d od eD a v e n p o r t ,S i r e ty
101/633
28/08/13

T o u r n i e r ,C a l c u lF o r m e l ,M a s s o n( oe nI n g l s ,A d d i s o n W e s l e y ) , s e c c i n1 . 5 . 5 ,M o r l e yt e o r e m a . ( %I 1 )c : %p i/3-a-b$ ( %I 2 )b c :s e n( a )*s e n( 3*c )/s e n( a+b ) ; %P i s i n( a )s i n( 3( -b-a+) ) 3 ( %O 2 )s i n( b+a ) ( %I 3 )b a :b c ,c=a ,a=c ; %P i s i n( 3a )s i n( b+a) 3 ( %O 3 )%P i s i n( a) 3 ( %I 4 )A C 2 :b a^2+b c^2-2*b c*b a*c o s( b ) ; 22 %p i s i n( 3a )s i n( b+a) 3 ( %O 4 )2 %p i s i n( a) 3 %P i -( 2s e n( a )s i n( 3a )s i n( 3( -b-a+) )c o s( b ) 3 %P i %p i s i n( b+a) )/( s i n( a)s i n( b+a ) ) 33 22 %p i s i n( a )s i n( 3( -b-a+) ) 3 +2 s i n( b+a ) ( %I 5 )t r i g r a t( A C 2 ) ; ( %O 5 )-( s q r t( 3 )s i n( 4b+4a )-c o s( 4b+4a ) -2s q r t( 3 )s i n( 4+b2a )2+c o s( 4+b2a ) -2s q r t( 3 )s i n( 2+b4a )2+c o s( 2+b4a ) +4s q r t( 3 )s i n( 2+b2a )-8c o s( 2+b2a )-4( c o s2b-2a ) +S q r t( 3 )s i n( 4b )-c o s( 4b )-2s q r t( 3 )s i n( 2b )+1 0c o s( 2b ) +S q r t( 3 )s e n( 4a )-c o s( 4a )-2s q r t( 3 )s e n( 2a )1 0+c o s( 2a ) -9 )/4
10.6 Nmeros Aleatorios

F u n c i n :L al l a m a d am a k e _ r a n d o m _ s t a t e( < n > ) F u n c i n :L al l a m a d am a k e _ r a n d o m _ s t a t e( < S > ) F u n c i n :L al l a m a d am a k e _ r a n d o m _ s t a t e( t r u e ) F u n c i n :L al l a m a d am a k e _ r a n d o m _ s t a t e( f a l s e ) U no b j e t od ee s t a d oa l e a t o r i or e p r e s e n t ae le s t a d od ee ln m e r oa l e a t o r i o g e n e r a d o r .E le s t a d oc u e n t ac o n6 2 7p a l a b r a sd e3 2b i t s . ` L l a m a d am a k e _ r a n d o m _ s t a t e( < n > )' d e v u e l v eu nn u e v oo b j e t od ee s t a d oa l e a t o r i o c r e a d oap a r t i rd eu n as e m i l l ae n t e r ai g u a la< n >m d u l o2^3 2 .< n > p u e d es e rn e g a t i v o . ` L l a m a d am a k e _ r a n d o m _ s t a t e( < S > )' d e v u e l v eu n ac o p i ad el a< S >e s t a d oa l e a t o r i o . ` L l a m a d am a k e _ r a n d o m _ s t a t e( t r u e )' d e v u e l v eu nn u e v oo b j e t od ee s t a d oa l e a t o r i o , c o nl ah o r aa c t u a ld e lr e l o jd e ls i s t e m ac o m os e m i l l a . ` L l a m a d am a k e _ r a n d o m _ s t a t e( f a l s e )' d e v u e l v eu n ac o p i ad e le s t a d oa c t u a ld e e lg e n e r a d o rd en m e r o sa l e a t o r i o s .
F u n c i n :s e t _ r a n d o m _ s t a t e( < S > ) C o p i a s< S >c o m oe s t a d od e lg e n e r a d o rd en m e r o sa l e a t o r i o s . ` S e t _ r a n d o m _ s t a t e "s i e m p r ed e v u e l v e` h e c h o' .
F u n c i n :r a n d o m( < x > ) D e v u e l v eu nn m e r op s e u d o a l e a t o r i o .S i< x >e su ne n t e r o ,` a z a r ( < x > )' D e v u e l v eu nn m e r oe n t e r od e0a` < x >-1 'i n c l u s i v e .S i < x >e su nn m e r od ep u n t of l o t a n t e ,` a l e a t o r i o( < x > )' d e v u e l v eu n n on e g a t i v oe np u n t of l o t a n t em e n o rq u e< x > .' R a n d o m ' s eq u e j ac o nu ne r r o rs i< x >e sn ie n t e r on id ep u n t of l o t a n t e , os i< x >n oe sp o s i t i v o . L a sf u n c i o n e sm a k e _ r a n d o m _ s t a t e` ' y `s e t _ r a n d o m _ s t a t e 'm a n t e n e r e le s t a d od e lg e n e r a d o rd en m e r o sa l e a t o r i o s . E lg e n e r a d o rd en m e r o sa l e a t o r i o sd eM a x i m ae su n ai m p l e m e n t a c i nd el a M e r s e n n eT w i s t e rM T1 9 9 3 7 .
102/633
28/08/13
E j e m p l o s :
( %I 1 )s 1 :l l a m a d am a k e _ r a n d o m _ s t a t e( 6 5 4 , 3 2 1 )$ ( %I 2 )s e t _ r a n d o m _ s t a t e( s 1 ) ; ( %O 2 )d o n e ( %I 3 )r a n d o m( 1 0 0 0 ) ; ( %O 3 )7 6 8 ( %I 4 )r a n d o m( 9 . 5 7 3 . 6 8 4 ) ; ( %O 4 )7 6 5 7 8 8 0 ( %I 5 )a la z a r( 2^7 5 ) ; ( %O 5 )1 1 8 0 4 4 9 1 6 1 5 0 3 6 8 3 1 6 3 6 3 9 0 ( %I 6 )s 2 :l l a m a d am a k e _ r a n d o m _ s t a t e( f a l s e )$ ( %I 7 )r a n d o m( 1 , 0 ) ; ( %O 7 ), 2 3 1 0 1 2 7 2 4 4 1 0 7 1 3 2 ( %I 8 )r a n d o m( 1 0 . 0 ) ; ( %O 8 )4 . 3 9 4 5 5 3 6 4 5 8 7 0 8 2 5 ( %I 9 )r a n d o m( 1 0 0 . 0 ) ; ( %O 9 )3 2 . 2 8 6 6 6 7 0 4 0 5 6 8 5 3 ( %I 1 0 )s e t _ r a n d o m _ s t a t e( s 2 ) ; ( %O 1 0 )d o n e ( %I 1 1 )r a n d o m( 1 , 0 ) ; ( %O 1 1 ), 2 3 1 0 1 2 7 2 4 4 1 0 7 1 3 2 ( %I 1 2 )r a n d o m( 1 0 . 0 ) ; ( %O 1 2 )4 . 3 9 4 5 5 3 6 4 5 8 7 0 8 2 5 ( %I 1 3 )r a n d o m( 1 0 0 . 0 ) ; ( %O 1 3 )3 2 . 2 8 6 6 6 7 0 4 0 5 6 8 5 3
11 Maximas Database
I n t r o d u c c i naM a x i m aB a s ed ed a t o s F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s F u n c i o n e syv a r i a b l e sp a r aD a t o s F u n c i o n e syv a r i a b l e sp a r ap r e d i c a d o s
11.1 Introduccin a la base de datos Maximas 11.2 Funciones y variables para las propiedades
P r o p i e d a d :a l f a b t i c o ' A l f a b t i c o 'e su nt i p od ep r o p i e d a dr e c o n o c i d op o r' d e c l a r a r ' . L ae x p r e s i n` d e c l a r e( < S >a l f a b t i c o )' l ed i c eaM a x i m aq u er e c o n o z c a c o m oa l f a b t i c ot o d o sl o sp e r s o n a j e sd e< S > ,q u ed e b es e ru n ac a d e n a . T a m b i nv e rI d e n t i f i c a d o r e sn o t a: : . E j e m p l o : ( %I 1 )x x\~y y\' \@ :1 7 2 9 ; ( %O 1 )1 7 2 9 ( %I 2 )d e c l a r e( " ~ `@" ,a l f a b t i c o ) ; ( %O 2 )d o n e ( %I 3 )x x~y y` @@y y+ `+` x xx x@@y y~ ; ( %O 3 )` x xy y~@@@+x x+y y `1 7 2 9 ( %I 4 )l i s t o f v a r s( % ) ; ( %O 4 )[ @y y` x x ,x x `@@y y~ ]
P r o p i e d a d :b i n d t e s t E lc o m a n d o` d e c l a r e( < x >b i n d t e s t' i n d i c aaM a x i m ap a r aa c t i v a ru n a e r r o rc u a n d oe l< x >s m b o l oe se v a l u a d os i n . ( %I 1 )a a+b b ; ( %O 1 )b b+a a ( %I 2 )d e c l a r e( a a ,b i n d t e s t ) ; ( %O 2 )d o n e ( %I 3 )a a+b b ; a av a r i a b l e sn ou n i d o -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; ( %I 4 )a a :1 2 3 4 ; ( %O 4 )1 2 3 4 ( %I 5 )a a+b b ; ( %O 5 )b b+1 2 3 4 P r o p i e d a d :c o n s t a n t e ` D e c l a r e( < a >c o n s t a n t e )' d e c l a r a< a >s e ru n ac o n s t a n t e .L a d e c l a r a c i nd eu ns m b o l oas e rc o n s t a n t en oi m p i d eq u ee l a s i g n a c i nd eu nv a l o rn oc o n s t a n t ep a r ae ls m b o l o . C o n s u l t e` c o n s t a n t p' y 'd e c l a r e' . E j e m p l o : ( %I 1 )d e c l a r e( c ,c o n s t a n t e ) ; ( %O 1 )h e c h o
103/633
28/08/13
( %I 2 )c o n s t a n t p( c ) ; ( %O 2 )t r u e ( %I 3 )c :x ; ( %O 3 )x ( %I 4 )c o n s t a n t p( c ) ; ( %O 4 )f a l s e
F u n c i n :c o n s t a n t p( e x p r ) D e v u e l v e` t r u e' s ie x p re su n ae x p r e s i nc o n s t a n t e ,d el oc o n t r a r i o d e v u e l v e` f a l s e' . U n ae x p r e s i ns ec o n s i d e r au n ae x p r e s i nc o n s t a n t es is u sa r g u m e n t o s s o nn m e r o s( i n c l u i d o sl o sn m e r o sr a c i o n a l e sq u es em u e s t r a nc o n` /R/ ) , c o n s t a n t e ss i m b l i c a sc o m o` %p i' , ' %e' y ` %i ' , v a r i a b l e sl i g a d a sau n ac o n s t a n t ec o n s t a n t eod e c l a r a d ap o r' d e c l a r a r ' , of u n c i o n e sc u y o sa r g u m e n t o ss o nc o n s t a n t e s . ` C o n s t a n t p' e v a l as u sa r g u m e n t o s . V e al ap r o p i e d a d` c o n s t a n t e "q u ed e c l a r au ns m b o l od es e r c o n s t a n t e . E j e m p l o s : ( %I 1 )c o n s t a n t p( 7*s i n( 2 ) ) ; ( %O 1 )t r u e ( %I 2 )c o n s t a n t p( r a t a( 1 7 / 2 9 ) ) ; ( %O 2 )t r u e ( %I 3 )c o n s t a n t p( %p i*s i n( %e ) ) ; ( %O 3 )t r u e ( %I 4 )c o n s t a n t p( e x p( x ) ) ; ( %O 4 )f a l s e ( %I 5 )d e c l a r e( x ,c o n s t a n t e ) ; ( %O 5 )h e c h o ( %I 6 )c o n s t a n t p( e x p( x ) ) ; ( %O 6 )t r u e ( %I 7 )c o n s t a n t p( f o o( x )+b a r( %e )+b a z( 2 ) ) ; ( %O 7 )f a l s e ( %I 8 )
F u n c i n :d e c l a r e( < a _ 1 > , ,< a _ 2 > , ,. . . ) A s i g n ae l t o m oou n al i s t ad e t o m o s< a _ i >l ap r o p i e d a dol al i s t ad e p r o p i e d a d e s .C u a n d o< a _ i >y/os o nl i s t a s ,c a d au n od el o s t o m o sa d q u i e r et o d a sl a sp r o p i e d a d e s . ` D e c l a r a r' n oe v a l as u sa r g u m e n t o s .` D e c l a r a r' d e v u e l v es i e m p r e `h e c h o ' . C o m os ei n d i c ae nl ad e s c r i p c i nd ec a d ab a n d e r ad e c l a r a c i n ,p o ra l g u n a b a n d e r a s` f e a t u r e p( < o b j e c t > ,< f e a t u r e > )' d e v u e l v e 't r u e' s i< o b j e c t > h as i d od e c l a r a d ot e n e r< f e a t u r e > . V e rt a m b i n` c a r a c t e r s t i c a s . ` D e c l a r a r' r e c o n o c el a ss i g u i e n t e sp r o p i e d a d e s : ' A d i t i v o ' H a c eq u eM a x i m as i m p l i f i q u el a se x p r e s i o n e s< a _ i >p o rl as u s t i t u c i n ` < a _ i >( X+y+z+. . . )' `> '` < a _ i >( x )+ < a _ i >( y )+< a _ i >( z )+. . .' .L as u s t i t u c i ne s l l e v a d oac a b oe ns l oe lp r i m e ra r g u m e n t o . ' A l f a b t i c o ' L ed i c eaM a x i m aq u er e c o n o z c at o d o sl o sc a r a c t e r e sd e< a _ i >( q u ed e b e s e ru n ac a d e n a )c o m oc a r a c t e r e sa l f a b t i c o s . ` A n t i s i m t r i c a ,c o n m u t a t i v a ,s i m t r i c a' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m os i m t r i c ao f u n c i na n t i s i m t r i c a .` C o n m u t a t i v a' e se lm i s m oq u e ' S i m t r i c a ' . ` B i n d t e s t' L ed i c eaM a x i m ap a r ad i s p a r a ru ne r r o rc u a n d os ee v a l a< a _ i > n ou n i d o . ' C o n s t a n t e ' H a c eq u eM a x i m ac o n s i d e r e< a _ i >u n ac o n s t a n t es i m b l i c a . ` P a r ,i m p a r' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m ou ne n t e r op a roi m p a r v a r i a b l e . ` E v e n f u n ,e v e n f u n' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m ou n af u n c i np a roi m p a r . ` E v f l a g' H a c e< a _ i >c o n o c eal af u n c i n` e v "p a r aq u e< a _ i >e s t o b l i g a d o a` t r u e' d u r a n t el ae j e c u c i nd e è v 'c u a n d o< a _ i > a p a r e c ec o m oa r g u m e n t od ec o n t r o ld ee v` ' .C o n s u l t e` e v f l a g' .
104/633
28/08/13

` E v f u n' H a c e< a _ i >s a b eq u e` e v "p a r aq u el af u n c i nn o m b r a d ae n< a _ i > s ea p l i c ac u a n d o< a _ i >a p a r e c ec o m oa r g u m e n t od ec o n t r o ld ee v` ' . C o n s u l t e` e v f u n' . ` F u n c i n' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m oe ln o m b r ed eu n af u n c i n . O t r o s t o m o sp o d r ns e rd e c l a r a d o se n t o n c e sc o m ot e n e rl ap r o p i e d a d< a _ i > . ` A u m e n t a n d o ,d i s m i n u y e n d o' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m ou na u m e n t ood i s m i n u c i nd e f u n c i n . ` E n t e r o ,n oe n t e r o' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m ou ne n t e r oon oe n t e r o v a r i a b l e . ` I n t e g e r v a l u e d' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m ou n af u n c i nd ev a l o re n t e r o . ` L a s s o c i a t i v e ,r a s s o c i a t i v e' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m oa s o c i a t i v op o rl ad e r e c h ao f u n c i na s o c i a t i v op o rl ai z q u i e r d a . ` L i n e a r' E q u i v a l e n t ead e c l a r a r< a _ i >t a n t o` o u t a t i v e "y ' A d i t i v o ' . ` M a i n v a r' H a c eq u eM a x i m ac o n s i d e r e< a _ i >u n a" v a r i a b l ep r i n c i p a l " .U n od el o sp r i n c i p a l e s v a r i a b l ed ec u a l e s q u i e r ao t r a sc o n s t a n t e syv a r i a b l e se n e lo r d e nc a n n i c od el a se x p r e s i o n e sd eM a x i m a ,c o m o d e t e r m i n a d op o r` o r d e r g r e a t p' . ` M u l t i p l i c a t i v o' H a c eq u eM a x i m as i m p l i f i q u el a se x p r e s i o n e s< a _ i >p o rl as u s t i t u c i n ` < a _ i >( X*y*z*. . . )' '>' `< a _ i >( x )* < a _ i >( y )*< a _ i >( z )*. . .' .L as u s t i t u c i ne s l l e v a d oac a b oe ns l oe lp r i m e ra r g u m e n t o . ` N a r' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m ou n af u n c i nn a r i a . E ln a r i o` ' d e c l a r a c i nn oe sl om i s m oq u el l a m a ral a `n a r ' f u n c i n .E l n i c oe f e c t od e` d e c l a r e( f o o ,n a r y )' e s e ls i m p l i f i c a d o rd eM a x i m ap a r aa p l a n a ra n i d a d a e x p r e s i o n e s ,p o re j e m p l o ,p a r as i m p l i f i c a r` f o o( x ,f o o( y , z ) )' a` f o o( x ,y ,z ) . ` N o n a r r a y' H a c eq u eM a x i m ac o n s i d e r e< a _ i >n ou n am a t r i z .E s t ad e c l a r a c i n e v i t al ae v a l u a c i nm l t i p l ed eu n av a r i a b l ei n d e x a d a n o m b r e . ` N oe s c a l a r' H a c eq u eM a x i m ac o n s i d e r e< a _ i >u n av a r i a b l en oe s c a l a r .L a a p l i c a c i nh a b i t u a le sd e c l a r a ru n av a r i a b l ec o m ou n v e c t o rom a t r i zs i m b l i c a . ` N o m b r e' L ed i c eaM a x i m ap a r aa n a l i z a r< a _ i >c o m os u s t a n t i v o .E le f e c t od ee s t oe s p a r as u s t i t u i ral a si n s t a n c i a sd e< a _ i >c o n` ' < a _ i > 'o ` N o u n i f y( < a _ i > )' ,d e p e n d i e n d od e lc o n t e x t o . ` O u t a t i v e' H a c eq u eM a x i m as i m p l i f i q u el a se x p r e s i o n e s< a _ i >t i r a n d o l o sf a c t o r e sc o n s t a n t e sd e lp r i m e ra r g u m e n t o . C u a n d o< a _ i >t i e n eu na r g u m e n t o ,u nf a c t o rs ec o n s i d e r a r c o n s t a n t e s ie su nl i t e r a lod e c l a r a d ac o n s t a n t e . C u a n d o< a _ i >t i e n ed o som sa r g u m e n t o s ,u nf a c t o rq u es ec o n s i d e r a c o n s t a n t es ie ls e g u n d oa r g u m e n t oe su ns m b o l oyl a f a c t o rn oc o n t i e n ea ls e g u n d oa r g u m e n t o . ` P o s f u n' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m ou n af u n c i np o s i t i v a . ` R a c i o n a l ,i r r a c i o n a l " H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m or a c i o n a l e soi r r a c i o n a l e s v a r i a b l er e a l . ` R e a l ,i m a g i n a r i o ,c o m p l e j o s' H a c eq u eM a x i m ar e c o n o z c a< a _ i >c o m ov e r d a d e r a ,i m a g i n a r i ao v a r i a b l ec o m p l e j a . ' E s c a l a r ' H a c eq u eM a x i m ac o n s i d e r e< a _ i >u n av a r i a b l ee s c a l a r .
P r o p i e d a d :d i s m i n u c i nd e l ap r o p i e d a d :e la u m e n t o L o sc o m a n d o s` d e c l a r a n( < f > ,d i s m i n u y e n d o )' o `d e c l a r a n( < f > , c r e c i e n t e" d e c i r l eaM a x i m aq u er e c o n o z c al a< f >f u n c i nc o m o
105/633
28/08/13

l ad i s m i n u c i noa u m e n t od el af u n c i n . V a s et a m b i n' d e c l a r a r 'p a r ao t r o sa n u n c i o s . E j e m p l o : ( %I 1 )a s u m i r( a >b ) ; ( %O 1 )[ a >b ] ( %I 2 )e s( f( a ) >f( b ) ) ; ( %O 2 )d e s c o n o c i d o ( %I 3 )d e c l a r e( f ,e la u m e n t o ) ; ( %O 3 )d o n e ( %I 4 )e s( f( a ) >f( b ) ) ; ( %O 4 )t r u e
P r o p i e d a d :i n c l u s o l ap r o p i e d a d :i m p a r ` D e c l a r e( < a > ,i n c l u s o )' o `d e c l a r e( < a > ,i m p a r ) 'H a c eq u eM a x i m a r e c o n o c e rl a< a >s m b o l oc o m ou n av a r i a b l ed en m e r oe n t e r op a roi m p a r .L a p r o p i e d a d e s` i n c l u s o' y 'e x t r a o' n os o nr e c o n o c i d o sp o rl a sf u n c i o n e s E v e n p` ' , ò d d p 'y` i n t e g e r p' . V a s et a m b i n' d e c l a r a r 'y` a s k i n t e g e r' . E j e m p l o : ( %I 1 )d e c l a r e( n ,a ) ; ( %O 1 )h e c h o ( %I 2 )a s k i n t e g e r( n ,a ) ; ( %O 2 )s ( %I 3 )a s k i n t e g e r( n ) ; ( %O 3 )s ( %I 4 )e v e n p( n ) ; ( %O 4 )f a l s e
P r o p i e d a d :f u n c i n M a x i m at r a t ac o nd o st i p o sd i s t i n t o sd ec a r a c t e r s t i c a s ,l a sc a r a c t e r s t i c a sd e ls i s t e m a yl a sc a r a c t e r s t i c a sq u es ea p l i c a nae x p r e s i o n e sm a t e m t i c a s .V a s et a m b i n ` S t a t u s' p a r ao b t e n e ri n f o r m a c i ns o b r el a sc a r a c t e r s t i c a sd e ls i s t e m a .V a s et a m b i n ` F u n c i o n e s' y `f e a t u r e p 'p a r ao b t e n e ri n f o r m a c i ns o b r em a t e m t i c a c a r a c t e r s t i c a s . ` F u n c i n' e ns n oe se ln o m b r ed eu n af u n c i nov a r i a b l e . F u n c i n :f e a t u r e p( < a >< f > ) L o si n t e n t o sd ed e t e r m i n a rs ie l< a >o b j e t ot i e n el ac a r a c t e r s t i c a< f > s o b r el ab a s ed el o sh e c h o se nl ab a s ed ed a t o sa c t u a l .S ie sa s ,s e d e v u e l v e` v e r d a d' ,m s 'f a l s e' . T e n g ae nc u e n t aq u e` f e a t u r e p' d e v u e l v e 'f a l s e' c u a n d on i< f >n ie l n e g a c i nd e< f >p u e d es e re s t a b l e c i d a . ` F e a t u r e p' e v a l as u sa r g u m e n t o s . C o n s u l t et a m b i n` d e c l a r a r' y 'c a r a c t e r s t i c a s' . ( %I 1 )d e c l a r e( j ,p a r )$ ( %I 2 )f e a t u r e p( j ,e n t e r o ) ; ( %O 2 )t r u e
D e c l a r a c i n :c a r a c t e r s t i c a s M a x i m ar e c o n o c ec i e r t a sp r o p i e d a d e sm a t e m t i c a ss o b r ef u n c i o n e sy v a r i a b l e s .E s t o ss el l a m a n" c a r a c t e r s t i c a s " . ` D e c l a r e( < x >< f o o > )' d a< f o o >p r o p i e d a dal af u n c i no < x >v a r i a b l e . ` D e c l a r e( < f o o > ,f u n c i n )' d e c l a r au n an u e v ap r o p i e d a d< f o o > .P a r a e j e m p l o ,` d e c l a r e( [ r o j o ,v e r d e ,a z u l ] ,f e a t u r e )' d e c l a r at r e s n u e v a sc a r a c t e r s t i c a s ,` r o j o s' , 'v e r d e' ,y 'b l u e' . E lp r e d i c a d o` f e a t u r e p( < x >< f o o > )' d e v u e l v e 't r u e' s it i e n e< x > l ap r o p i e d a d< f o o > ,y` f a l s e' e nc a s oc o n t r a r i o . L a sc a r a c t e r s t i c a si n f o l i s t` ' e su n al i s t ad ec a r a c t e r s t i c a sc o n o c i d a s .E s t o ss o n e n t e r on oe n t e r o ,i n c l u s o e x t r a oi r r a c i o n a lr a c i o n a l v e r d a d e r oc o m p l e j oi m a g i n a r i o a n a l t i c ac r e c i e n t ed e c r e c i e n t e e v e n f u ne v e n f u np o s f u n r a s s o c i a t i v el a s s o c i a t i v ec o n m u t a t i v a s i m t r i c aa n t i s i m t r i c a a d e m sd ef u n c i o n e sd e f i n i d a sp o re lu s u a r i o .
106/633
28/08/13

' C a r a c t e r s t i c a s 'e su n al i s t ad ef u n c i o n e sm a t e m t i c a s .T a m b i ne su n l i s t ad ec a r a c t e r s t i c a sn om a t e m t i c o s ,d e p e n d i e n t e sd e ls i s t e m a .C o n s u l t e` s t a t u s' . E j e m p l o : ( %I 1 )d e c l a r e( f o o ,f e a t u r e ) ; ( %O 1 )h e c h o ( %I 2 )d e c l a r e( x ,f o o ) ; ( %O 2 )d o n e ( %I 3 )f e a t u r e p( x ,f o o ) ; ( %O 3 )t r u e
F u n c i n :o b t e n e r( < a > ) R e c u p e r al ap r o p i e d a dd eu s u a r i oi n d i c a d ap o ra s o c i a d aau n t o m o < a >od e v u e l v e' f a l s e 's i< a >n ot i e n ep r o p i e d a d . ' G e t 'e v a l as u sa r g u m e n t o s . V a s et a m b i n' p o n e r 'y' q p u t ' . ( %I 1 )p u t( %e ,' t r a s c e n d e n t a l 't i p o ) ; ( %O 1 )t r a n s c e n d e n t a l ( ' T r a s c e n d e n t a l ' ,e s c r i b a %p i )( %i 2 )p o n e r$ ( %I 3 )p u t( %i ,e s c r i b a' a l g e b r a i c a , ' )$ ( %I 4 )t y p e o f( e x p r ) :=b l o q u e( [ q ] , s in u m b e r p( e x p r ) l u e g or e g r e s a r( ' a l g e b r a i c a ) , s in ot o m o( e x p r ) l u e g or e g r e s a r( m a p l i s t( ' t y p e o f ,e x p r ) ) , q :g e t( e x p r , t i p o ) , s iq=f a l s e e n t o n c e se r r c a t c h( e r r o r( e x p r ," n oe sn u m r i c o . " ) )e l s eq )$ ( %I 5 )t y p e o f( 2 %*e+x* %p i ) ; xn oe sn u m r i c o . ( %O 5 )[ [ t r a s c e n d e n t a l ,[ ] ] ,[ a l g e b r a i c a s ,t r a s c e n d e n t a l e s ] ] ( %I 6 )t y p e o f( 2 %*e+ %p i ) ; ( %O 6 )[ t r a s c e n d e n t a l ,[ a l g e b r a i c a s ,t r a s c e n d e n t a l e s ] ]
P r o p i e d a d :e n t e r o p r o p i e d a d :n oe n t e r o ` D e c l a r e( < a > ,e n t e r o )' o `d e c l a r e( < a > ,n oe n t e r o ) 'H a c eq u eM a x i m a r e c o n o c e r< a >c o m ou n av a r i a b l ee n t e r aon oe n t e r a . V a s et a m b i n' d e c l a r a r ' . E j e m p l o : ( %I 1 )d e c l a r e( n ,u ne n t e r ox ,n oe n t e r o ) ; ( %O 1 )h e c h o ( %I 2 )a s k i n t e g e r( n ) ; ( %O 2 )s ( %I 3 )a s k i n t e g e r( x ) ; ( %O 3 )n o
P r o p i e d a d :i n t e g e r v a l u e d ` D e c l a r e( < f > ,i n t e g e r v a l u e d )' H a c eq u eM a x i m ar e c o n o z c a< f >c o m o f u n c i nd ev a l o r e se n t e r o s . V a s et a m b i n' d e c l a r a r ' . E j e m p l o : ( %I 1 )e x p( %i )^f( x ) ; %I f( x ) ( %O 1 )( %e ) ( %I 2 )d e c l a r e( f ,i n t e g e r v a l u e d ) ; ( %O 2 )d o n e ( %I 3 )e x p( %i )^f( x ) ; %I f( x ) ( %O 3 ) %e
P r o p i e d a d :n o n a r r a y E lc o m a n d o` d e c l a r a r( a ,n o n a r r a y )' H a c eq u eM a x i m ac o n s i d e r e< a >n o u n am a t r i z .E s t ad e c l a r a c i ne v i t al ae v a l u a c i nm l t i p l e ,s i< a > e su n av a r i a b l ec o ns u b n d i c e . V a s et a m b i n' d e c l a r a r ' . E j e m p l o : ( %I 1 )a :' b$b : 'c$c :' d$ ( %I 4 )a[ x ] ;
107/633
28/08/13
( %O 4 )d

x ( %I 5 )d e c l a r e( a ,n o n a r r a y ) ; ( %O 5 )h e c h o ( %I 6 )a[ x ] ; ( %O 6 )u n x
P r o p i e d a d :n oe s c a l a r e s H a c eq u el o s t o m o ss ec o m p o r t e nc o m oh a c eu n al i s t aom a t r i zc o nr e s p e c t oal a o p e r a d o rp u n t o . V a s et a m b i n' d e c l a r a r ' .
F u n c i n :n o n s c a l a r p( e x p r ) D e v u e l v e` t r u e' s ie x p re su nn oe s c a l a r ,e sd e c i r ,s ic o n t i e n e t o m o s d e c l a r a d o sc o m on oe s c a l a r e s ,l i s t a som a t r i c e s . V a s et a m b i nl af u n c i nd ep r e d i c a d o` s c a l a r p' y 'd e c l a r e' .
P r o p i e d a d :p o s f u n ` D e c l a r e( f ,p o s f u n )' d e c l a r a `f 'e su n af u n c i np o s i t i v a .` E s ( F( x ) >0 )' r e n d i m i e n t o 't r u e' . V a s et a m b i n' d e c l a r a r ' .
F u n c i n :p r i n t p r o p s( < a > ) F u n c i n :p r i n t p r o p s( [ < a _ 1 > ,. . . ,< a _ n > ] , ) F u n c i n :p r i n t p r o p s( t o d o ) M u e s t r al ap r o p i e d a dc o ne li n d i c a d o ra s o c i a d oc o nl a t o m o< a > .< a >t a m b i np u e d es e ru n al i s t ad e t o m o soe l t o m od e` t o d o' e n c u y oc a s ot o d o sl o s t o m o sc o nl o sb i e n e se n t r e g a d o ss e r nu t i l i z a d o s . P o re j e m p l o ,` p r i n t p r o p s( [ f ,g ] ,a t v a l u e ) .` P r i n t p r o p s "e sp a r a p r o p i e d a d e sq u en op u e d e ns e rm o s t r a d a sd eo t r am a n e r a ,e sd e c i r ,p a r aa t v a l u e` ' , A t o m g r a d` ' , `g r a d e f 'y` m a t c h d e c l a r e' .
F u n c i n :p r o p i e d a d e s( < a > ) D e v u e l v eu n al i s t ac o nl o sn o m b r e sd et o d a sl a sp r o p i e d a d e sa s o c i a d a sc o n e l t o m od e< a > .
V a r i a b l ed e ls i s t e m a :a p o y o s V a l o rp o rd e f e c t o :[ ]' ' P r o p s 's o n t o m o sq u et i e n e nc u a l q u i e ro t r ob i e nd i s t i n t od el o s m e n c i o n ae x p l c i t a m e n t ee n` i n f o l i s t s " ,c o m oe s p e c i f i c a d op o r A t v a l u e` ' , ` M a t c h d e c l a r e' ,e t c ,a s c o m ol a sp r o p i e d a d e se s p e c i f i c a d a se nl a ` D e c l a r a r "f u n c i n .
F u n c i n :p r o p v a r s( ) D e v u e l v eu n al i s t ad el o s t o m o se nl a' l i s t a 'p r o p sq u et i e n e nl a p r o p i e d a di n d i c a d ap o r .A s ` p r o p v a r s( a t v a l u e )' d e v u e l v eu n l i s t ad e t o m o sq u et i e n e nv a l o r e sa s i g n a d o sp o ra t v a l u e .
F u n c i n :p u t( < a t o m > ,< v a l u e > , ) A s i g n a< v a l o r >al ap r o p i e d a d( e s p e c i f i c a d ap o r )d e < a t o m > .p u e d es e re ln o m b r ed ec u a l q u i e rp r o p i e d a d ,n os l ou n p r o p i e d a dd e f i n i d ap o re ls i s t e m a . ` R e a l e s' i n v i e r t ee le f e c t od e 'p o n e r' . ' P u t 'e v a l as u sa r g u m e n t o s .' P u t 'r e g r e s a< v a l o r > . C o n s u l t et a m b i n` q p u t' y 'g e t' . E j e m p l o s :
108/633
28/08/13

( %I 1 )p u t( f o o ,( a+b )^5 ,e x p r ) ; 5 ( %O 1 )( b+a ) ( %I 2 )p u t( f o o ," H e l l o " ,s t r ) ; ( %O 2 )H o l a ( %I 3 )P r o p i e d a d e s( f o o ) ; ( %O 3 )[ [ p r o p i e d a d e sd eu s u a r i o ,s t r ,e x p r ] ] ( %I 4 )g e t( f o o ,e x p r ) ; 5 ( %O 4 )( b+a ) ( %I 5 )g e t( f o o ,s t r ) ; ( %O 5 )H o l a
F u n c i n :q p u t( < a t o m > ,< v a l u e > , ) A s i g n a< v a l o r >al ap r o p i e d a d( e s p e c i f i c a d ap o r )d e < a t o m > .E s t ee se lm i s m oq u e` p o n e r' ,e x c e p t oq u el o sa r g u m e n t o ss o n c i t a d o . V a s et a m b i n' g e t ' . E j e m p l o : ( %I 1 )f o o :a a$ ( %I 2 )b a r :b b$ ( %I 3 )b a z :c c$ ( %I 4 )p u t( f o o ,b a r ,b a z ) ; ( %O 4 )b b ( %I 5 )P r o p i e d a d e s( a a ) ; ( %O 5 )[ [ p r o p i e d a d e sd eu s u a r i o ,c c ] ] ( %I 6 )g e t( a a ,c c ) ; ( %O 6 )b b ( %I 7 )q p u t( f o o ,b a r ,b a z ) ; ( %O 7 )b a r ( %I 8 )P r o p i e d a d e s( f o o ) ; ( %O 8 )[ V A L U E ,[ p r o p i e d a d e sd eu s u a r i o ,b a z ] ] ( %I 9 )g e t( ' f o o 'b a z ) ; ( %O 9 )b a r
P r o p i e d a d :r a c i o n a l p r o p i e d a d :i r r a c i o n a l e s ` D e c l a r e( < a > ,r a c i o n a l )' o `d e c l a r e( < a > ,i r r a c i o n a l ) 'd i c e M a x i m ar e c o n o z c a< a >c o m ou n av a r i a b l er e a lr a c i o n a loi r r a c i o n a l . V a s et a m b i n' d e c l a r a r ' .
P r o p i e d a d :v e r d a d e r a p r o p i e d a d :i m a g i n a r i o p r o p i e d a d :C o m p l e j o ` D e c l a r e( < a >r e a l )' , `d e c l a r a r( < a > ,i m a g i n a r i o ) 'o` d e c l a r e( < a > , c o m p l e j o )' H a c eq u eM a x i m ar e c o n o z c a< a >c o m or e a l ,i m a g i n a r i op u r o , ov a r i a b l ec o m p l e j a . V a s et a m b i n' d e c l a r a r ' .
F u n c i n :r e m( < a t o m > , ) E l i m i n al ap r o p i e d a di n d i c a d ap o rd e< a t o m > .` R e a l e s' r e v i e r t ee le f e c t od e l` p o n e r' . ` R e m' d e v u e l v e 'h e c h o' s i< a t o m >t e n au n ap r o p i e d a dc u a n d o ` R e a l e s' s el l a m a ,o 'f a l s e' s in ot u v i e r ae s o sb i e n e s .
F u n c i n :r e m o v e( < a _ 1 > , ,. . . ,< a _ n > , ) F u n c i n :e l i m i n a r( [ < a _ 1 > ,. . . ,< a _ m > ] ,[ ,. . . , ] ,. . . ) F u n c i n :e l i m i n a r( " < a > " ,o p e r a d o r ) F u n c i n :e l i m i n a r( < a >t r a n s f u n ) F u n c i n :e l i m i n a r( t o d o s ) E l i m i n al a sp r o p i e d a d e sa s o c i a d a sc o nl o s t o m o s . ` R e m o v e( < a _ 1 > , ,. . . ,< a _ n > , )' e l i m i n al ap r o p i e d a d `p _ k ' d e l t o m od e` a _ k' . ` R e m o v e( [ < a _ 1 > ,. . . ,< a _ m > ] ,[ ,. . . , ] ,. . . )' e l i m i n a p r o p i e d a d e s` ,. . . , "d e t o m o s< a _ 1 > ,. . . ,< a _ m > . P u e d eh a b e rm sd eu np a rd el i s t a s . ` R e m o v e( t o d o )' e l i m i n al ap r o p i e d a dd et o d o sl o s t o m o sq u e t e n e r l o . P r o p i e d a d e sL a sp r o p i e d a d e se l i m i n a d a sp u e d e ns e rd e f i n i d o sp o re ls i s t e m a ,c o m o ` F u n c i n' , 'm a c r o' o `m o d e _ d e c l a r e ' .` E l i m i n a r' n oe l i m i n a
109/633
28/08/13
p r o p i e d a d e sd e f i n i d a sp o r' p u t ' .
U n ap r o p i e d a dp u e d es e r` t r a n s f u n' p a r aq u i t a rl av e r s i nd eL i s pt r a d u c i d o d eu n af u n c i n .D e s p u sd ee j e c u t a re s t o ,l av e r s i nM a x i m ad e l f u n c i ns ee j e c u t ae nl u g a rd el av e r s i nt r a d u c i d a . ` R e m o v e( "< a >" ,o p e r a d o r ) "o ,e nf o r m ae q u i v a l e n t e ,` r e m o v e( "< a >" ,o p )' e l i m i n ad e< a >l a sp r o p i e d a d e sd eo p e r a d o r e sd e c l a r a d o sp o r' p r e f i j o ' , ` I n f i j o' , ` N a r' , 's u f i j o' , `m a t c h f i x ' ,o` n o f i x' .T e n g ae nc u e n t aq u ee l n o m b r ed e lo p e r a d o rd e b ee s c r i b i r s ec o m ou n ac a d e n ae n t r ec o m i l l a s . ` E l i m i n a r' d e v u e l v es i e m p r e `h e c h o 's iu n t o m ot i e n eu n e s p e c i f i c al ap r o p i e d a d .E s t ec o m p o r t a m i e n t oe sd i f e r e n t eal am se s p e c f i c a q u i t a rf u n c i o n e s` r e m v a l u e' , `r e m a r r a y ' ,` r e m f u n c t i o n' ,y ` R e m r u l e' . ` E l i m i n a r' e v a l as u sa r g u m e n t o s .
P r o p i e d a d :e s c a l a r ` D e c l a r e( < a > ,e s c a l a r )' H a c eq u eM a x i m ac o n s i d e r e< a >u ne s c a l a r v a r i a b l e . V a s et a m b i n' d e c l a r a r ' .
F u n c i n :s c a l a r p( e x p r ) D e v u e l v e` t r u e' s ie x p re su nn m e r o ,c o n s t a n t eov a r i a b l e d e c l a r a d a` e s c a l a r' c o n 'd e c l a r a r' ,oc o m p u e s t oe ns ut o t a l i d a dd e n m e r o s ,c o n s t a n t e syl a sv a r i a b l e s ,p e r oq u en oc o n t e n g a n m a t r i c e sol i s t a s . V a s et a m b i nl af u n c i nd ep r e d i c a d o` n o n s c a l a r p' .
11.3 Funciones y variables para Datos

F u n c i n :a c t i v a t e( < c o n t e x t _ 1 > ,. . . ,< c o n t e x t _ n > ) A c t i v al a< c o n t e x t _ 1 >c o n t e x t o s ,. . . ,< c o n t e x t _ n > .L o sh e c h o s e ne s t o sc o n t e x t o se s t nd i s p o n i b l e sp a r ah a c e rd e d u c c i o n e sy r e c u p e r a rl ai n f o r m a c i n .L o sh e c h o se ne s t o sc o n t e x t o sn os el i s t a n p o r` h e c h o s( )' . E l` a c t i v e c o n t e x t s' v a r i a b l ee sl al i s t ad ec o n t e x t o sq u es eh a n a c t i v a d op o rm e d i od el af u n c i n` A c t i v a r' .
V a r i a b l ed e ls i s t e m a :a c t i v e c o n t e x t s V a l o rp o rd e f e c t o :[ ]' A c t i v e c o n t e x t s` ' e su n al i s t ad ec o n t e x t o sq u es eh a na c t i v a d op o rm e d i o d el af u n c i n` A c t i v a r' ,e no p o s i c i nae s t a ra c t i v op o r q u e s e rs u b c o n t e x t o sd e lc o n t e x t oa c t u a l .
F u n c i n :a s k i n t e g e r( e x p r ,e n t e r o ) F u n c i n :a s k i n t e g e r( e x p r ) F u n c i n :a s k i n t e g e r( e x p r ,a ) F u n c i n :a s k i n t e g e r( e x p r ,i m p a r ) ` A s k i n t e g e r( e x p r ,e n t e r o )' t r a t ad ed e t e r m i n a re l ` A s u m i r "l ab a s ed ed a t o ss ie x p re su ne n t e r o .` A s k i n t e g e r' s o l i c i t aa lu s u a r i os in os ep u e d ed e c i ro t r ac o s a ,yt r a t a rd e i n s t a l a rl ai n f o r m a c i ne nl ab a s ed ed a t o ss ie sp o s i b l e .` A s k i n t e g e r ( E x p r )' e se q u i v a l e n t ea 'a s k i n t e g e r( e x p r ,e n t e r o ) . ` A s k i n t e g e r( e x p r ,a )' y à s k i n t e g e r( e x p r ,i m p a r ) ' a s i m i s m ot r a t a rd ed e t e r m i n a rs ie x p re su ne n t e r op a roi m p a r n m e r oe n t e r o ,r e s p e c t i v a m e n t e .
F u n c i n :a s k s i g n( e x p r ) P r i m e r oi n t e n t ad e t e r m i n a rs il ae x p r e s i ne s p e c i f i c a d ae s p o s i t i v o ,n e g a t i v ooc e r o .S in op u e d e ,s el ep i d ea lu s u a r i ol a p r e g u n t a sn e c e s a r i a sp a r ac o m p l e t a rs ud e d u c c i n .L ar e s p u e s t ad e lu s u a r i o s er e g i s t r ae nl ab a s ed ed a t o sp a r al ad u r a c i nd el ac o r r i e n t e c l c u l o .E lv a l o rd er e t o r n od e` a s k s i g n' e su n od e 'p o s' , ' N e g 'o' c e r o ' .
110/633
28/08/13

F u n c i n :a s u m i r( ,. . . , ) A a d ep r e d i c a d o s ,. . . ,a lc o n t e x t oa c t u a l . S iu np r e d i c a d oe si n c o n s i s t e n t eor e d u n d a n t ec o nl o sp r e d i c a d o sd e e lc o n t e x t oa c t u a l ,n os ea a d ea lc o n t e x t o .E lc o n t e x t o a c u m u l a n d op r e d i c a d o sc o nc a d al l a m a d aa' a s u m i r ' . ` A s u m a' d e v u e l v eu n al i s t ac u y o se l e m e n t o ss o nl o sp r e d i c a d o sa a d e na e lc o n t e x t ool o s t o m o s' r e d u n d a n t e 'o' i n c o n s i s t e n t e ' ,d o n d e a p l i c a b l e . L o sp r e d i c a d o s ,. . . ,s l op u e d es e re x p r e s i o n e s c o nl o so p e r a d o r e sr e l a c i o n a l e s` < <=e q u a ln o t e q u a l >=' y ' >' . L o sp r e d i c a d o sn op u e d e ns e rl i t e r a l e si g u a l d a d` =' ol i t e r a ld e s i g u a l d a d `# ' e x p r e s i o n e s ,n it a m p o c op u e d e ns e rf u n c i o n e sd ep r e d i c a d oc o m o ` I n t e g e r p' . C o m p u e s t op r e d i c a d o sd e l` f o r m aye l. . .y' s er e c o n o c e n ,p e r on o` o. . .o .` N o ' s er e c o n o c es ie su np r e d i c a d or e l a c i o n a l . L a se x p r e s i o n e sd el af o r m a` N o( y )' y `n o ( O )' n os er e c o n o c e n . M e c a n i s m od e d u c t i v od eM a x i m an oe sm u yf u e r t e ,h a ym u c h o s c o n s e c u e n c i a so b v i a sq u en os ep u e d e nd e t e r m i n a rp o r` e s' . E s t ae su n ad e b i l i d a dc o n o c i d a . ` A s u m i r' n om a n e j ap r e d i c a d o sc o nn m e r o sc o m p l e j o s .S iu n p r e d i c a d oc o n t i e n eu nn m e r oc o m p l e j or e g r e s a` a s u m i r " ` I n c o n s i s t e n t e' o `r e d u n a n t ' . ` A s u m a' e v a l as u sa r g u m e n t o s . V a s et a m b i n' e s ' ,` h e c h o s' , ò l v i d a r ' , ' C o n t e x t o ' ,y' d e c l a r e ' . E j e m p l o s : ( %I 1 )a s u m i r ( x x >0y y< 1 ,z z >=0 ) ; ( %O 1 )[ x x >0y y< -1 ,z z >=0 ] ( %I 2 )a s u m i r ( a aa a ,c c >b b ] ( %I 3 )h e c h o s( ) ; ( %O 3 )[ x x >0 ,-1 >y y ,z z >=0 ,b b >a a ,c c >b b ] ( %I 4 )e s( x x >y y ) ; ( %O 4 )t r u e ( %I 5 )e s( y y< a o ) ; ( %O 5 )t r u e ( %I 6 )e s( s e n h( B B-A A ) >0 ) ; ( %O 6 )t r u e ( %I 7 )o l v i d a r ( b b >a a ) ; ( %O 7 )[ b b >a a ] ( %I 8 )p r e d e r r o r :f a l s e ; ( %O 8 )f a l s e ( %I 9 )e s( s i n h( b b-a a ) >0 ) ; ( %O 9 )d e s c o n o c i d o ( %I 1 0 )e s( b b^2< c c^2 ) ; ( %O 1 0 )d e s c o n o c i d o
V a r i a b l eo p c i o n a l :a s s u m e s c a l a r V a l o rp o rd e f e c t o :t r u e' ` A s s u m e s c a l a r' a y u d aac o n t r o l a rs iu n ae x p r e s i ne x p r ` 'p a r al o sq u e ` N o n s c a l a r p( e x p r )' e s 'f a l s e' s es u p o n eq u es ec o m p o r t a nc o m ou ne s c a l a r p a r ac i e r t a st r a n s f o r m a c i o n e s . L e t` e x p r "r e p r e s e n t ac u a l q u i e re x p r e s i nd i s t i n t ad eu n al i s t aou n am a t r i z , yd e j a rq u e` [ 1 ,2 ,3 ]' u n al i s t aou n am a t r i z .E n t o n c e s` e x p r . [ 1 ,2 ,3 ]' r e n d i m i e n t o '[ e x p r ,e x p r2 ,3e x p r ]' s i` a s s u m e s c a l a r 'e s ` T r u e' o `s c a l a r p( e x p r ) 'e s` t r u e' o `c o n s t a n t p( e x p r ) 'e s ` T r u e' . S i` a s s u m e s c a l a r' e s `t r u e ' ,l ae x p r e s i ns ec o m p o r t a r c o m o e s c a l a rs l oe no p e r a c i o n e sc o n m u t a t i v a s ,p e r on op a r an oc o n m u t a t i v a ` m u l t i p l i c a c i n . . C u a n d o` a s s u m e s c a l a r' e s 'f a l s e' ,l ae x p r e s i ns ec o m p o r t a r c o m o n oe s c a l a r e s . C u a n d o` a s s u m e s c a l a r' e s 't o d o' ,l ae x p r e s i ns ec o m p o r t a r c o m o e s c a l a r e sp a r at o d o sl o so p e r a d o r e sm e n c i o n a d o s .
V a r i a b l eo p c i o n a l :a s s u m e _ p o s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` a s s u m e _ p o s' e s `t r u e 'ye ls i g n od eu n< x >p a r m e t r on os e d e t e r m i n a r s eap a r t i rd e lc o n t e x t oa c t u a loo t r a sc o n s i d e r a c i o n e s , ' S i g n o 'y' a s k s i g n( < x > ) r e t o r n o `t r u e ' .E s t os ep u e d e ne v i t a ra l g u n o s
111/633
28/08/13

c o n s u l t a sg e n e r a d a sa u t o m t i c a m e n t e` h a c ea s k s i g n " ,c o m op u e d e ns u r g i rd e ' I n t e g r a r 'uo t r o sc l c u l o s . P o rd e f e c t o ,u np a r m e t r oe s< x >t a lq u e` s y m b o l p( < x > ) "o ` S u b v a r p( < x > ) .L ac l a s ed ee x p r e s i o n e sc o n s i d e r ap a r m e t r o s p u e d es e rm o d i f i c a d ae nc i e r t am e d i d aat r a v sd el av a r i a b l e` a s s u m e _ p o s _ p r e d' . ' S i g n o 'y' a s k s i g n" i n t e n t od ed e d u c i re ls i g n od el a se x p r e s i o n e s d el as e a ld eo p e r a n d o sq u ec o n t i e n e .P o re j e m p l o ,s i ` A' y 'b' s o na m b o sp o s i t i v o s ,e n t o n c e s à+b 't a m b i ne sp o s i t i v o . S i ne m b a r g o ,n oh a ym a n e r ad eo b v i a rt o d a sl a sp r e g u n t a sa lu s u a r i oq u es e` ' .E n e np a r t i c u l a r ,c u a n d oe la r g u m e n t o` a s k s i g n' u n ad i f e r e n c i a `< x >< y >' o` l o gl o g a r i t m o( < x > ) ' , à s k s i g n' s i e m p r es o l i c i t au n ar e s p u e s t a p o rp a r t ed e lu s u a r i o ,i n c l u s oc u a n d o` a s s u m e _ p o s' e s `v e r d a d e r a 'y A s s u m e _ p o s _ p r e d` ' e su n af u n c i nq u ed e v u e l v e `t r u e 'p a r at o d o s a r g u m e n t o s .
V a r i a b l eo p c i o n a l :a s s u m e _ p o s _ p r e d V a l o rp o rd e f e c t o :f a l s e' C u a n d os el ea s i g n a` a s s u m e _ p o s _ p r e d' e ln o m b r ed eu n af u n c i nou n e x p r e s i nl a m b d ad eu n< x >a r g u m e n t o ,e s t af u n c i ns el l a m aa d e t e r m i n a rs i< x >s ec o n s i d e r au np a r m e t r oc o ne lf i nd e ` A s s u m e _ p o s' .` A s s u m e _ p o s _ p r e d' s ei g n o r ac u a n d o à s s u m e _ p o s 'e s ' F a l s e ' . E l` a s s u m e _ p o s _ p r e d' f u n c i ne sl l a m a d ap o rl am u e s t r ad e l ` 'y` a s k s i g n' c o nu n< x >a r g u m e n t oq u ee sy as e au n t o m o ,u ns u b n d i c e v a r i a b l eou n ae x p r e s i nd el l a m a d aal af u n c i n .S ie l` a s s u m e _ p o s _ p r e d' f u n c i nd e v u e l v e` t r u e' ,< x >s ec o n s i d e r au np a r m e t r op a r al a p r o p s i t od e` a s s u m e _ p o s' . P o rd e f e c t o ,u np a r m e t r oe s< x >t a lq u e` s y m b o l p( < x > ) "o ` S u b v a r p( < x > ) . V a s et a m b i n' a s u m i r 'y` a s s u m e _ p o s' . E j e m p l o s : ( %I 1 )a s s u m e _ p o s :t r u e$ ( %I 2 )a s s u m e _ p o s _ p r e d :s y m b o l p$ ( %I 3 )s e a l( a ) ; ( %O 3 )p o s ( %I 4 )s e a l( a[ 1 ] ) ; ( %O 4 )p n z ( %I 5 )a s s u m e _ p o s _ p r e d :l a m b d a( [ x ] ,l ap a n t a l l a( x ) ,t r u e )$ ( %I 6 )a s k s i g n( a ) ; x=a ( %O 6 )p o s ( %I 7 )a s k s i g n( a[ 1 ] ) ; x=a 1 ( %O 7 )p o s ( %I 8 )a s k s i g n( f o o( a ) ) ; x=f o o( a ) ( %O 8 )p o s ( %I 9 )a s k s i g n( f o o( a )+b a r( b ) ) ; x=f o o( a ) x=b a r( b ) ( %O 9 )p o s ( %I 1 0 )a s k s i g n( l o g( a ) ) ; x=a E su n-1p o s i t i v o ,n e g a t i v ooc e r o ? p ; ( %O 1 0 )p o s ( %I 1 1 )a s k s i g n( a-b ) ; x=a x=b x=a x=b E sb-ap o s i t i v o ,n e g a t i v ooc e r o ? p ; ( %O 1 1 )n e g
V a r i a b l eo p c i o n a l :c o n t e x t o V a l o rp o rd e f e c t o :I n i c i a l'
112/633
28/08/13

` C o n t e x t ol o sn o m b r e sd el ac o l e c c i nd ed a t o sm a n t e n i d ap o r à s u m e n" y ` O l v i d a r " .` A s u m a' a a d en u e v o sh e c h o sa lc o n j u n t on o m b r a d op o r ' C o n t e x t o ' ,m i e n t r a sq u e' o l v i d a r 'e l i m i n a n d o . ' C o n t e x t o 'E n l a z a rau nn o m b r e< f o o >c a m b i ae lc o n t e x t oa c t u a la < f o o > .S ie l< f o o >c o n t e x t oe s p e c i f i c a d on oe x i s t ea n ,e s c r e aa u t o m t i c a m e n t eu n al l a m a d aa` n e w c o n t e x t' . E lc o n t e x t oe s p e c i f i c a d os ea c t i v aa u t o m t i c a m e n t e . C o n s u l t e` c o n t e x t o s "p a r ao b t e n e ru n ad e s c r i p c i ng e n e r a ld e lm e c a n i s m od ec o n t e x t o .
V a r i a b l eo p c i o n a l :c o n t e x t o s V a l o rp o rd e f e c t o :[ i n i c i a l ,g l o b a l ]' ' C o n t e x t o s 'e su n al i s t ad el o sc o n t e x t o sq u ee x i s t e ne nl aa c t u a l i d a d , i n c l u y e n d oe lc o n t e x t oa c t u a l m e n t ea c t i v o . E lm e c a n i s m od ec o n t e x t oh a c eq u es e ap o s i b l eq u eu nu s u a r i oa g r u p a r ye ln o m b r ed eu n ac o l e c c i nd eh e c h o s ,l l a m a d oc o n t e x t o .U n av e zq u ee s t oe s h e c h oe s t o ,e lu s u a r i op u e d eh a c e rq u eM a x i m at e n g ae nc u e n t aoq u eo l v i d ec u a l q u i e rn m e r od e h e c h o ss i nm sq u ea c t i v a rod e s a c t i v a rs uc o n t e x t o . C u a l q u i e r t o m os i m b l i c op u e d es e ru nc o n t e x t o ,yd el o sh e c h o sq u ef i g u r ae ne s e c o n t e x t os e r r e t e n i d oe ne la l m a c nh a s t aq u ef u ed e s t r u i d op o ru n op o r l l a m a r` o l v i d a r' od e s t r u i d a se ns ut o t a l i d a dl l a m a n d o `k i l l ' p a r ad e s t r u i re lc o n t e x t oa lq u ep e r t e n e c e n . L o sc o n t e x t o st i e n e ne s t r u c t u r aj e r r q u i c a ,s i e n d ol ar a zs i e m p r ee se l ` c o n t e x t og l o b a l " ,q u ec o n t i e n ei n f o r m a c i ns o b r eM a x i m aq u ea l g u n o s f u n c i o n e sn e c e s i t a n .C u a n d oe nu nd e t e r m i n a d oc o n t e x t o ,t o d o sl o sh e c h o sd eq u e c o n t e x t os o n" a c t i v o s "( e sd e c i r ,q u es eu t i l i z a ne nl a sd e d u c c i o n e sy r e c u p e r a c i o n e s )a li g u a lq u et o d a sl a si n f o r m a c i o n e se nu nc o n t e x t oq u ee su n s u b c o n t e x t od e lc o n t e x t oa c t i v o . C u a n d ou n as e s i nd eM a x i m as ep o n ee nm a r c h a ,e lu s u a r i oe s t e nu nc o n t e x t ol l a m a d o ' I n i c i a l ' ,q u et i e n e` g l o b a l e s' c o m os u b c o n t e x t o . C o n s u l t et a m b i n` h e c h o s' , `n e w c o n t e x t ' ,` s u p c o n t e x t' , F u n c i nk i l l c o n t e x t` ' , à c t i v a t e ' ,' d e s a c t i v a r ' , ` A s u m i r' ,y 'o l v i d a r' .
F u n c i n :d e s a c t i v a r( < c o n t e x t _ 1 > ,. . . ,< c o n t e x t _ n > ) D e s a c t i v ae lc o n t e x t o< c o n t e x t _ 1 >e s p e c i f i c a d o ,. . . ,< c o n t e x t _ n > .
F u n c i n :h e c h o s( ) F u n c i n :h e c h o s( ) S ie se ln o m b r ed eu nc o n t e x t o ,` h e c h o s( )' d e v u e l v eu n r e l a c i nd el o sh e c h o se ne lc o n t e x t oe s p e c i f i c a d o . S in oe se ln o m b r ed eu nc o n t e x t o ,` h e c h o s( )' d e v u e l v eu n a l i s t ad el o sh e c h o sc o n o c i d o sa c e r c ae ne lc o n t e x t oa c t u a l . D a t o sq u es o na c t i v o s ,p e r oe nu nc o n t e x t od i f e r e n t e ,n oe s t ne nl al i s t a . ` H e c h o s' ( )( e sd e c i r ,s i na r g u m e n t o s )m u e s t r ae lc o n t e x t oa c t u a l .
F u n c i n :o l v i d a r( ,. . . , ) F u n c i n :o l v i d a r( < L > ) E l i m i n ap r e d i c a d o se s t a b l e c i d o sp o r` a s u m i r . L o sp r e d i c a d o sp u e d e ns e re x p r e s i o n e se q u i v a l e n t e sa( p e r on o n e c e s a r i a m e n t ei d n t i c a )al o sp r e v i a m e n t ea s u m i d o s . ` O l v i d a r( < L > )' ,d o n d e< L >e su n al i s t ad el o sp r e d i c a d o s ,b o r r at o d o sl o s e l e m e n t od el al i s t a .
F u n c i n :e s( e x p r ) L o si n t e n t o sd ed e t e r m i n a rs ie lp r e d i c a d oe x p re sd e m o s t r a b l e d el o sh e c h o se nl ab a s ed ed a t o s' a s u m i r ' . S ie lp r e d i c a d os er e d u c ea` t r u e' o 'f a l s e' , 'e s' r e g r e s a ` T r u e' o 'f a l s e' ,r e s p e c t i v a m e n t e .D el oc o n t r a r i o ,e lv a l o rd er e t o r n oe s g o b e r n a d op o rl ab a n d e r a` p r e d e r r o r' g l o b a l .C u a n d op r e d e r r o r` ' e s ` T r u e' , 'e s' e m i t eu nm e n s a j ed ee r r o r .D el oc o n t r a r i o ,' e s ' d e v u e l v e` d e s c o n o c i d o' . ` E v( e x p r ,p r e d )' ( q u es ep u e d ee s c r i b i r è x p r ,P r e d 'e ne l
113/633
28/08/13

i n t e r a c t i v o )e se q u i v a l e n t ea` e s( e x p r )' . V a s et a m b i n' a s u m i r ' ,' h e c h o s ' ,y' t a lv e z ' . E j e m p l o s : ` E s' o b l i g aal ae v a l u a c i nd el o sp r e d i c a d o s . ( %I 1 ) %p i > %e ; ( %O 1 ) %p i > %e ( %I 2 )e s( %p i > %e ) ; ( %O 2 )t r u e ` E s' l o si n t e n t o sd ed e r i v a rp r e d i c a d o sd e l à s u m i r 'b a s ed ed a t o s . ( %I 1 )a s u m i r( a >b ) ; ( %O 1 )[ a >b ] ( %I 2 )a s u m i r ( b >c ) ; ( %O 2 )[ b >c ] ( %I 3 )e s( ac ) ; ( %O 4 )t r u e ( %I 5 )e s( i g u a l( a ,c ) ) ; ( %O 5 )f a l s e S i' e s 'n op u e d ep r o b a rn ir e f u t a ru np r e d i c a d od el a ` A s u m a "l ab a s ed ed a t o s ,l ab a n d e r a` p r e d e r r o rg l o b a l "g o b i e r n ae l c o m p o r t a m i e n t od e` e s' . ( %I 1 )a s u m i r( a >b ) ; ( %O 1 )[ a >b ] ( %I 2 )p r e d e r r o r :t r u e$ ( %I 3 )e s( a >0 ) ; M a x i m an op u d oe v a l u a re lp r e d i c a d o : a >0 -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; ( %I 4 )p r e d e r r o r :f a l s e$ ( %I 5 )e s( a >0 ) ; ( %O 5 )d e s c o n o c i d o
F u n c i n :f u n c i nk i l l c o n t e x t( < c o n t e x t _ 1 > ,. . . ,< c o n t e x t _ n > ) M u e r t e sd e l< c o n t e x t _ 1 >c o n t e x t o s ,. . . ,< c o n t e x t _ n > . S iu n od el o sc o n t e x t o se se lc o n t e x t oa c t u a l ,l an u e v ac o r r i e n t e c o n t e x t os e r e lp r i m e rs u b c o n t e x t od i s p o n i b l ed e la c t u a l c o n t e x t oe ne lq u en os eh am a t a d o .S il ap r i m e r ad i s p o s i c i n c o n t e x t on oe l i m i n a d oe s' m u n d i a l 'yl u e g o' i n i c i a l 's eu t i l i z ae ns ul u g a r .S i e l` i n i c i a l "c o n t e x t oe sa s e s i n a d o ,u nn u e v oyv a c o' i n i c i a l 'c o n t e x t oe s c r e a d o . ` F u n c i nk i l l c o n t e x t' n oe l i m i n au nc o n t e x t oa c t u a l m e n t ea c t i v o , y as e ap o r q u es et r a t ad eu ns u b c o n t e x t od e lc o n t e x t oa c t u a l ,op o r e lu s od el af u n c i na c t i v a t e` ' . ` F u n c i nk i l l c o n t e x t' e v a l as u sa r g u m e n t o s .D e v u e l v e` f u n c i nk i l l c o n t e x t' ` H e c h o' .
F u n c i n :t a lv e z( e x p r ) L o si n t e n t o sd ed e t e r m i n a rs ie lp r e d i c a d oe x p re sd e m o s t r a b l e d el o sh e c h o se nl ab a s ed ed a t o s' a s u m i r ' . S ie lp r e d i c a d os er e d u c ea` t r u e' o 'f a l s e' ,t a lv e zr e g r e s a ` ' ` T r u e' o 'f a l s e' ,r e s p e c t i v a m e n t e .D el oc o n t r a r i o ,' t a lv e z 'd e v u e l v e ` D e s c o n o c i d o' . ` Q u i z ' e sf u n c i o n a l m e n t ee q u i v a l e n t ea è s 'c o n` p r e d e r r o r : f a l s e' ,p e r oe lr e s u l t a d os ec a l c u l as i na s i g n a r v a l o ra` p r e d e r r o r . V a s et a m b i n' a s u m i r ' ,' h e c h o s ' ,y' e s ' . E j e m p l o s : ( %I 1 )T a lv e z( x >0 ) ; ( %O 1 )d e s c o n o c i d o ( %I 2 )a s u m i r ( x >1 ) ; ( %O 2 )[ x >1 ] ( %I 3 )T a lv e z( x >0 ) ; ( %O 3 )t r u e
F u n c i n :n e w c o n t e x t( < n o m b r e > ) C r e au nn u e v oc o n t e x t ov a c o< n o m b r e > ,q u et i e n e` g l o b a l "c o m o s u n i c os u b c o n t e x t o .E lc o n t e x t od en u e v ac r e a c i ns ec o n v i e r t ee ne l c o n t e x t oa c t u a l m e n t ea c t i v o . ` N e w c o n t e x t' e v a l as u sa r g u m e n t o s .` N e w c o n t e x t' r e g r e s aN O M B R E .
114/633
28/08/13
F u n c i n :s i g n o( e x p r ) L o si n t e n t o sp a r ad e t e r m i n a re ls i g n od e< e x p r >s o b r el ab a s ed el o sh e c h o s e nl ab a s ed ed a t o sa c t u a l .S ed e v u e l v eu n od el o ss i g u i e n t e s r e s p o n d e :' p o s '( p o s i t i v o ) ,n e g` ' ( n e g a t i v o ) , `c e r o ' ,` p z' ( P o s i t i v ooc e r o ) ,` n z' ( n e g a t i v ooc e r o ) , `p n '( p o s i t i v oo n e g a t i v a ) ,o` p n z' ( p o s i t i v o ,n e g a t i v oo ,e sd e c i r ,n a d ad ec e r o c o n o c i d a ) .
F u n c i n :s u p c o n t e x t( < n o m b r e > ,< c o n t e x t > ) F u n c i n :s u p c o n t e x t( < n o m b r e > ) C r e au nn u e v om a r c o ,l l a m a d o< n o m b r e > ,q u et i e n e< c o n t e x t >c o m o s u b c o n t e x t o .< c o n t e x t >d e b ee x i s t i r . S in os ee s p e c i f i c a< c o n t e x t > ,s es u p o n eq u ee lc o n t e x t oa c t u a l .
11.4 Funciones y variables para predicados

F u n c i n :c h a r f u n( ) D e v u e l v e0c u a n d oe lp r e d i c a d os ee v a l aa` f a l s e' ,yd e v u e l v e1c u a n d o e lp r e d i c a d os ee v a l ac o m o` t r u e' .C u a n d oe lp r e d i c a d os ee v a l ac o m o a l g oq u en os e a` t r u e' o 'f a l s e' ( d e s c o n o c i d o ) ,d e v u e l v eu ns u s t a n t i v o f o r m u l a r i o . E j e m p l o s : ( %I 1 )c h a r f u n( x< 1 ) ; ( %O 1 )c h a r f u n( x< 1 ) ( %I 2 )s u b s t( x=1 , % ) ; ( %O 2 )1 ( %I 3 )e :c h a r f u n( ' " y "( 1< x ,x< 1 ) )$ ( %I 4 )[ s u b s t( x=1 ,e ) ,s u b s t( x=0 ,e ) ,s u b s t( x=1 ,e ) ] ; ( %O 4 )[ 0 ,1 ,0 ]
F u n c i n :c o m p a r a r( < x >< y > ) D e v u e l v eu no p e r a d o r< o p >c o m p a r a c i n( ' < ' ,' < = ' ,` >' , ' >=' , '=' ,o ` #' )T a lq u e è s( < x >< o p >< y > ) 's ee v a l ac o m o' t r u e ' ,c u a n d o y as e a< x >o< y >d e p e n d ed e` %i' y `< x >#< y > ' ,e lr e t o r n o ` N o t c o m p a r a b l e' ,c u a n d on oe x i s t et a lo p e r a d o rd eM a x i m aon oe s c a p a zd ed e t e r m i n a re lo p e r a d o r ,d e v u e l v a` d e s c o n o c i d o' . E j e m p l o s : ( %I 1 )c o m p a r a r( 1 ,2 ) ; ( %O 1 )< ( %I 2 )c o m p a r a r( 1 ,x ) ; ( %O 2 )d e s c o n o c i d o ( %I 3 )c o m p a r a r( %i , %i ) ; ( %O 3 )= ( %I 4 )c o m p a r a r( %i , %i+1 ) ; ( %O 4 )n o t c o m p a r a b l e ( %I 5 )c o m p a r a r( 1/x ,0 ) ; ( %O 5 )# ( %I 6 )c o m p a r a c i n( x ,a b s( x ) ) ; ( %O 6 )< = L af u n c i n' c o m p a r a r 'n ot r a t ad ed e t e r m i n a rs ie lv e r d a d e r o d o m i n i o sd es u sa r g u m e n t o ss o nn ov a c o ,p o rl oq u e ( %I 1 )c o m p a r a r( a c o s( x^2+1 ) ,a c o s( x^2+1 )+1 ) ; ( %O 1 )< E ld o m i n i or e a ld e l` a c o s( x^2+1 )' e s t v a c o .
F u n c i n :i g u a l( < a > ) R e p r e s e n t al ae q u i v a l e n c i a ,e sd e c i r ,i g u a lv a l o r . P o rs m i s m o ,' i g u a l 'n oe v a l an is i m p l i f i c a .L af u n c i n ` S e' i n t e n t ae v a l u a r ì g u a l 'e nu nv a l o rb o o l e a n o . ` I s( e q u a l( < a > ) )' d e v u e l v e `v e r d a d '( o' f a l s e ' )s iys l os i < a >ys o ni g u a l e s( on oi g u a l )p a r at o d o sl o sv a l o r e sp o s i b l e sd e s u sv a r i a b l e s ,s e g nl od e t e r m i n a d op o rl ae v a l u a c i nd e` r a t s i m p( < a >- )' ; s ir a t s i m p` ' d e v u e l v e0 ,s ec o n s i d e r a nl a sd o se x p r e s i o n e s e q u i v a l e n t e .D o se x p r e s i o n e sp u e d e ns e re q u i v a l e n t e si n c l u s os ie s t n n os i n t c t i c a m e n t ei g u a l e s( e sd e c i r ,i d n t i c a s ) . C u a n d o` e s' n or e d u c e ì g u a l 'a' t r u e 'o' f a l s e ' ,e lr e s u l t a d o s er i g ep o rl ab a n d e r a` p r e d e r r o r' g l o b a l .C u a n d op r e d e r r o r` ' e s ` T r u e' , 'e s' e m i t eu nm e n s a j ed ee r r o r .D el oc o n t r a r i o ,' e s '
115/633
28/08/13
d e v u e l v e` d e s c o n o c i d o' .
A d e m sd e` e s' ,o t r o so p e r a d o r e se v a l a n ì g u a l 'y ` N o t e q u a l' a 't r u e' o 'f a l s e' ,e sd e c i r 's i' , ` Y' , 'o' ,y 'n o' . L an e g a c i nd el a' i g u a l d a d 'e s` n o t e q u a l' . E j e m p l o s : P o rs m i s m o ,' i g u a l 'n oe v a l an is i m p l i f i c a . ( %I 1 )i g u a l( x^2-1( x+1 )*( x-1 ) ) ; 2 ( %O 1 )i g u a l( x-1 ,( x-1 )( x+1 ) ) ( %I 2 )i g u a l( x ,x+1 ) ; ( %O 2 )i g u a l( x ,x+1 ) ( %I 3 )i g u a l( x ,y ) ; ( %O 3 )i g u a l( x ,y ) L af u n c i n` s e' i n t e n t ae v a l u a r ì g u a l 'e nu nv a l o rb o o l e a n o . ` I s( e q u a l( < a > ) )' d e v u e l v e `t r u e 'c u a n d o' r a t s i m p( < a >- ) ' d e v u e l v e0 .D o se x p r e s i o n e sp u e d e ns e re q u i v a l e n t e s ,i n c l u s os in oe s t n s i n t c t i c a m e n t ei g u a l e s( e sd e c i r ,i d n t i c a s ) . ( %I 1 )r a t s i m p( x^2-1-( x+1 )*( x-1 ) ) ; ( %O 1 )0 ( %I 2 )i s( e q u a l( x^2-1( x+1 )*( x-1 ) ) ) ; ( %O 2 )t r u e ( %I 3 )e s( x^2-1=( x+1 )*( x-1 ) ) ; ( %O 3 )f a l s e ( %I 4 )r a t s i m p( x-( x+1 ) ) ; ( %O 4 )-1 ( %I 5 )e s( i g u a l( x ,x+1 ) ) ; ( %O 5 )f a l s e ( %I 6 )e s( x=x+1 ) ; ( %O 6 )f a l s e ( %I 7 )r a t s i m p( x-y ) ; ( %O 7 )x-y ( %I 8 )e s( i g u a l( x ,y ) ) ; ( %O 8 )d e s c o n o c i d o ( %I 9 )e s( x=y ) ; ( %O 9 )f a l s e C u a n d o` e s' n or e d u c e ì g u a l 'a' t r u e 'o' f a l s e ' ,e lr e s u l t a d o s er i g ep o rl ab a n d e r a` p r e d e r r o r' g l o b a l . ( %I 1 )[ a a :x^2+2*x+1 ,b b :x^2-2*x-1 ] ; 22 ( %O 1 )[ x+2x+1 ,x-x2-1 ] ( %I 2 )r a t s i m p( a a-b b ) ; ( %O 2 )x4+2 ( %I 3 )p r e d e r r o r :t r u e ; ( %O 3 )t r u e ( %I 4 )i s( e q u a l( a a ,b b ) ) ; M a x i m an op u d oe v a l u a re lp r e d i c a d o : 22 i g u a l( x+2x+1 ,x-2x-1 ) -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; ( %I 5 )p r e d e r r o r :f a l s e ; ( %O 5 )f a l s e ( %I 6 )i s( e q u a l( a a ,b b ) ) ; ( %O 6 )d e s c o n o c i d o A l g u n o so p e r a d o r e se v a l a n` i g u a l' y `n o t e q u a l 'a' t r u e 'o ' F a l s e ' . ( %I 1 )s ie si g u a l( y ,y-1 )yl u e g oo t r aF O OB A R ; ( %O 1 )B A R ( %I 2 )e q _ 1 :i g u a l( x ,x+1 ) ; ( %O 2 )i g u a l( x ,x+1 ) ( %I 3 )e q _ 2 :i g u a l( y^2+2*y+1 ,( y+1 )^2 ) ; 22 ( %O 3 )i g u a l( y+2y+1 ,( y+1 ) ) ( %I 4 )[ e q _ 1ye q _ 2 ,e q _ 1oe q _ 2 ,n oe q _ 1 ] ; ( %O 4 )[ f a l s e ,t r u e ,t r u e ] P o r q u e` n o< e x p r >' h a c eq u el ae v a l u a c i nd ee x p r , `n oe si g u a l( < a > , )' e se q u i v a l e n t ea 'e s( n o t e q u a l( < a > ) )' . ( %I 1 )[ n o t e q u a l( 2*z*z2-1 ) ,e si g u a la( 2*z ,2*z-1 ) ] ; ( %O 1 )[ n o t e q u a l( 2z ,z2-1 ) ,t r u e ] ( %I 2 )e s( n o t e q u a l( 2*z ,2*z-1 ) ) ; ( %O 2 )t r u e
F u n c i n :n o t e q u a l( < a > ) R e p r e s e n t al an e g a c i nd el a` i g u a l d a d( < a > ) . E j e m p l o s : ( %I 1 )i g u a l( a ,b ) ; ( %O 1 )i g u a l( a ,b ) ( %I 2 )t a lv e z( i g u a l( a ,b ) ) ;
116/633
28/08/13

( %O 2 )d e s c o n o c i d o ( %I 3 )n o t e q u a l( a ,b ) ; ( %O 3 )n o t e q u a l( a ,b ) ( %I 4 )e si g u a la( a ,b ) ; ( %O 4 )n o t e q u a l( a ,b ) ( %I 5 )t a lv e z( n o t e q u a l( a ,b ) ) ; ( %O 5 )d e s c o n o c i d o ( %I 6 )a s u m e( a >b ) ; ( %O 6 )[ a >b ] ( %I 7 )i g u a l( a ,b ) ; ( %O 7 )i g u a l( a ,b ) ( %I 8 )T a lv e z( e q u a l( a ,b ) ) ; ( %O 8 )f a l s e ( %I 9 )n o t e q u a l( a ,b ) ; ( %O 9 )n o t e q u a l( a ,b ) ( %I 1 0 )T a lv e z( n o t e q u a l( a ,b ) ) ; ( %O 1 0 )t r u e
F u n c i n :d e s c o n o c i d a( e x p r ) D e v u e l v e` t r u e' s iys l os ie x p rc o n t i e n eu no p e r a d o ro f u n c i nn or e c o n o c i d op o re ls i m p l i f i c a d o rd eM a x i m a .
F u n c i n :L af u n c i nz e r o e q u i v( e x p r ,< v > ) C o m p r u e b as il ae x p r e s i ne x p re ne l< v >v a r i a b l ee s e q u i v a l e n t eac e r o ,v o l v e r` t r u e' , 'f a l s e' ,o `d o n t k n o w ' . ` L af u n c i nz e r o e q u i v' t i e n ee s t a sr e s t r i c c i o n e s : 1 .N ou t i l i z a rf u n c i o n e sq u eM a x i m an os a b ec m o d i f e r e n c i a rye v a l u a r . 2 .S il ae x p r e s i nt i e n ep o l o se nl ar e c t ar e a l ,p u e d eh a b e r e r r o r e se ne lr e s u l t a d o( p e r oe s t oe sp o c op r o b a b l eq u eo c u r r a ) . 3 .S il ae x p r e s i nc o n t i e n ef u n c i o n e sq u en os o ns o l u c i o n e s d ee c u a c i o n e sd i f e r e n c i a l e sd ep r i m e ro r d e n( p o re j e m p l o ,f u n c i o n e sd eB e s s e l ) p u e d eh a b e rr e s u l t a d o si n c o r r e c t o s . 4 .E la l g o r i t m ou t i l i z ae v a l u a c i o n e se np u n t o se l e g i d o sa la z a rp a r a s u b e x p r e s i o n e ss e l e c t a .E s t ee ss i e m p r eu np o c o n e g o c i op e l i g r o s o s ,a u n q u ee la l g o r i t m oi n t e n t am i n i m i z a r e lp o t e n c i a ld ee r r o r . P o re j e m p l o` f u n c i nz e r o e q u i v( s i n( 2*x )-2*s i n( x )*c o s( x ) ,x ) r e g r e s a` t r u e' y 'L af u n c i nz e r o e q u i v( %e^ x+x ,x )' d e v u e l v e 'f a l s e' .E n P o ro t r ol a d o` f u n c i nz e r o e q u i v( l o g( a*b )-l o g( a )-l o g( b ) ,a )' r e g r e s a` d o n t k n o w " ,d e b i d oal ap r e s e n c i ad eu np a r m e t r oa d i c i o n a l ` B' .
12 Trazado
I n t r o d u c c i na lt r a z a d o T r a z a d of o r m a t o s F u n c i o n e syv a r i a b l e sp a r ag r f i c o s T r a z a d oO p c i o n e s O p c i o n e sG n u p l o t g n u p l o t _ p i p e sf u n c i o n e sd ef o r m a t o
12.1 Introduccin al trazado

M a x i m au t i l i z au np a q u e t ed et r a z a d oe x t e r n ap a r ah a c e rl a sp a r c e l a s( v a s ee l s e c c i nd eT r a z a d of o r m a t o s ) .L a sf u n c i o n e sg r f i c a sd ec a l c u l a ru nc o n j u n t od e p u n t o syp a s a r l a sa lp a q u e t ed et r a z a d oj u n t oc o nu nc o n j u n t od e c o m a n d o s .E s ai n f o r m a c i ns ep u e d ep a s a ra lp r o g r a m ae x t e r n oy as e a at r a v sd eu n at u b e r aom e d i a n t eu n al l a m a d aa lp r o g r a m ac o ne ln o m b r ed eu na r c h i v oe ne lq u e l o sd a t o ss eh a ng u a r d a d o .E la r c h i v od ed a t o sr e c i b ee ln o m b r e ` M a x o u t . i n t e r f a c e' ,d o n d e 'i n t e r f a z' e se ln o m b r ed e lt r a z a d o i n t e r f a c eu t i l i z a d o( g n u p l o t ,X m a x i m a ,m g n u p l o tog n u p l o t _ p i p e s ) . E la r c h i v o` m a x o u t . i n t e r f a c e' ,e nl o sc a s o se nq u es eu t i l i z a ,e s c r e a d oe ne ld i r e c t o r i oe s p e c i f i c a d op o rl av a r i a b l ed es i s t e m a ` M a x i m a _ t e m p d i r' .E s el u g a rp u e d es e rc a m b i a d o ;a s i g n a n d oal a l av a r i a b l ed eu n ac a d e n aq u er e p r e s e n t au nd i r e c t o r i ov l i d oe nM a x i m ap u e d e c r e a rn u e v o sa r c h i v o s . D e s p u sd eu n ap a r c e l ah as i d oc r e a d o ,e la r c h i v o` m a x o u t . i n t e r f a c e "p u e d es e r e j e c u t a d od en u e v oc o ne lp r o g r a m ae x t e r n oa p r o p i a d o .S iu nM a x i m a c o m a n d od et r a z a d on om u e s t r an a d a ,e s ea r c h i v op u e d es e ri n s p e c c i o n a d op a r a b u s c a rp o s i b l e sf u e n t e sd ep r o b l e m a s . J u n t oc o nl a sf u n c i o n e sg r f i c a sd e s c r i t a se ne s t ec a p t u l o , p a q u e t e*N o t as o r t e o: :a a d eo t r a sf u n c i o n a l i d a d e s .T e n g ae nc u e n t aq u ea l g u n o s o p c i o n e sg r f i c a ss el l a m a ni g u a le na m b o sc o n t e x t o sd et r a z a d o ,p e r oc o n u n as i n t a x i sd i f e r e n t e ,s id e s e aa c c e d e ral ai n f o r m a c i nr e l a c i o n a d ac o ne m p a t e
117/633
28/08/13

e s t a so p c i o n e s ,t i e n e sq u ee s c r i b i r` ?o p t a n' ,d o n d e` o p t a n 'e se ln o m b r ed e l l ao p c i n .
12.2 Formatos de Trazado

A c t u a l m e n t eh a yd o sp r o g r a m a sd et r a z a d oe x t e r n o sq u eM a x i m aU s o : G n u p l o tyX m a x i m a .H a yv a r i o sf o r m a t o sd i f e r e n t e sp a r al o s p r o g r a m a s ,q u es ep u e d e ns e l e c c i o n a rc o nl ao p c i n` p l o t _ f o r m a t' ( v e rl a S e c c i nO p c i o n e sd eT r a z a d o ) . L o sf o r m a t o sd et r a z a d os o nl o ss i g u i e n t e s : * *G n u p l o t*( p o rd e f e c t oe nW i n d o w s ) S eu t i l i z ap a r ap o n e re nm a r c h ae lp r o g r a m ag n u p l o te x t e r n a ,q u ed e b es e r i n s t a l a d oe ns us i s t e m a .T o d o sl o sc o m a n d o sd et r a z a d oyl o sd a t o ss o n g u a r d a d oe ne la r c h i v o` m a x o u t . g n u p l o t' . * *G n u p l o t _ p i p e s*( p r e d e t e r m i n a d oe nl a sp l a t a f o r m a sq u en os e a nW i n d o w s ) E s t ef o r m a t on oe s t d i s p o n i b l ee nl a sp l a t a f o r m a sd eW i n d o w s .E ss i m i l a r a lf o r m a t o` g n u p l o t' e x c e p t oq u el o sc o m a n d o ss ee n v a na g n u p l o tt r a v sd eu n at u b e r a ,m i e n t r a sq u el o sd a t o ss eg u a r d a ne ne la r c h i v o ` M a x o u t . g n u p l o t _ p i p e s' .U ns o l op r o c e s od eg n u p l o ts em a n t i e n ea b i e r t ay c o m a n d o sd et r a m ap o s t e r i o r e ss e r ne n v i a d o sa lm i s m op r o c e s o , r e e m p l a z a n d op a r c e l a sa n t e r i o r e s ,am e n o sq u ee lt u b os ec i e r r ac o ng n u p l o t l af u n c i n` g n u p l o t _ c l o s e' .C u a n d os eu t i l i z ae s t ef o r m a t o ,l a f u n c i n` g n u p l o t _ r e p l o t' s ep u e d eu t i l i z a rp a r am o d i f i c a ru n at r a m aq u et i e n e y am o s t r a d oe nl ap a n t a l l a . E s t ef o r m a t os l os ed e b eu t i l i z a rp a r at r a z a ral ap a n t a l l a ;p a r a c o n s p i r a rp a r aa r c h i v o s ,e sm e j o ru t i l i z a re lf o r m a t og n u p l o t` ' . * *M g n u p l o t* M g n u p l o te su n ab a s a d ae nT kg n u p l o t .S ei n c l u y ee n l ad i s t r i b u c i nM a x i m a .M g n u p l o to f r e c eu n ai n t e r f a zg r f i c ad eu s u a r i or u d i m e n t a r i ap a r a g n u p l o t ,p e r ot i e n em e n o sc a r a c t e r s t i c a sg e n e r a l e sq u ee lg n u p l o t i n t e r f a z .M g n u p l o tr e q u i e r eu n ai n s t a l a c i ne x t e r n ad eg n u p l o t y ,e nl o ss i s t e m a sU n i x ,e ls i s t e m ad eT c l/T k . * *X m a x i m a* X m a x i m ae su n ai n t e r f a zg r f i c aT c l/T kp a r aM a x i m a ,q u et a m b i np u e d e s e ru t i l i z a d op a r am o s t r a rg r f i c o sc r e a d o sc u a n d oM a x i m as ee j e c u t ad e s d ee l c o n s o l aod e s d eo t r a si n t e r f a c e sg r f i c a s .P a r au t i l i z a re s t ef o r m a t o , e lp r o g r a m aX m a x i m a ,q u es ed i s t r i b u y ej u n t oc o nM a x i m a , d e b es e ri n s t a l a d o .S iM a x i m as ee j e c u t ad e s d el ap r o p i aX m a x i m a , e s t ef o r m a t oh a r l a sf u n c i o n e sd el at r a m ae n v a nl o sd a t o sy c o m a n d o sat r a v sd e lm i s m oc o n e c t o ru t i l i z a d op a r al ac o m u n i c a c i n e n t r eM a x i m ayX m a x i m a .C u a n d os eu t i l i z ad e s d el ac o n s o l aod e s d e o t r ai n t e r f a z ,l o sc o m a n d o syl o sd a t o ss eg u a r d a ne ne la r c h i v o M a x o u t . x m a x i m a` ' ,ye lp r o g r a m aX m a x i m as ep o n d r e nm a r c h ac o ne l n o m b r ed el au b i c a c i nd ee s ea r c h i v oc o m oa r g u m e n t o . E nv e r s i o n e sa n t e r i o r e s ,e s t ef o r m a t os el l a m a b a` o p e n m a t h' ,q u e n o m b r ea n t i g u ot o d a v as ea c e p t ac o m os i n n i m od e` X m a x i m a' .
12.3 Funciones y variables para grficos

F u n c i n :c o n t o u r _ p l o t( e x p r ,< x _ r a n g e > ,< y _ r a n g e > ,< o p c i o n e s > ,. . . ) T r a z al o sc o n t o r n o s( c u r v a sd ei g u a lv a l o r )d ee x p rs o b r ee l r e g i n< x _ r a n g e >p o r< y _ r a n g e > .L o sa r g u m e n t o sa d i c i o n a l e ss o n t r a t a d oi g u a lq u ee n` p l o t 3 d' . E s t af u n c i ns l of u n c i o n ac u a n d oe lf o r m a t od et r a m ae sb i e n` g n u p l o t' o` g n u p l o t _ p i p e s' .E lp a q u e t e` i m p l i c i t _ p l o t "a d i c i o n a lp u e d e T a m b i ns eu t i l i z ap a r ac o n t o r n o st r a m ayf u n c i o n ap a r ac u a l q u i e rf o r m a t o .V e r ` I m p l i c i t _ p l o t' . E j e m p l o s : ( %I 1 )c o n t o u r _ p l o t( x^2+y^2 ,[ x ,4 ,4 ] ,[ y ,4 ,4 ] )$ ( %I 1 )F( x ,y ) :=x^3+y^2 ; 32 ( %O 1 )F( x ,y ) :=x+y ( %I 2 )c o n t o u r _ p l o t( F ,[ u ,4 ,4 ] ,[ v ,4 ,4 ] )$ U s t e dp u e d ea g r e g a rl a so p c i o n e sa c e p t a d a sp o r` p l o t 3 d' ,p o re j e m p l o ,l a o p c i n' l e y e n d a 'c o ne lv a l o rf a l s e ,p a r ae l i m i n a rl al e y e n d a . G n u p l o te l i g e ,p o rd e f e c t o ,3c o n t o r n o sp a r am o s t r a r .P a r aa u m e n t a rl a n m e r od en i v e l e s ,e sn e c e s a r i oe s p e c i f i c a ru ng n u p l o tp e r s o n a l i z a d a P r e m b u l o : ( %I 1 )c o n t o u r _ p l o t( u^3+v^2 ,[ u ,4 ,4 ] ,[ v ,4 ,4 ] , [ L e y e n d a ,f a l s e ] , [ G n u p l o t _ p r e a m b l e ," e s t a b l e c e rn i v e l e sc n t r p a r a m1 2 " ] )$
118/633
28/08/13

F u n c i n :g e t _ p l o t _ o p t i o n( < k e y w o r d > , ) D e v u e l v eu nv a l o rd el ao p c i nc o ne ln o m b r e< k e y w o r d > ,a l m a c e n a d ae ne l ` p l o t _ o p t i o n sv a r i a b l e sg l o b a l e s " .U nv a l o rd e1p a r ae l n d i c es e d e v o l v e rl am i s m ap a l a b r ac l a v e ,u nv a l o rd e2as uv e zd e v u e l v ee lp r i m e r p a r m e t r od e s p u sd el ap a l a b r ac l a v e ,ya s s u c e s i v a m e n t e . V e rt a m b i n` p l o t _ o p t i o n s' , `s e t _ p l o t _ o p t i o n 'yl as e c c i ns o b r e T r a z a d oO p c i o n e s . F u n c i n :i m p l i c i t _ p l o t( e x p r ,< x _ r a n g e > ,< y _ r a n g e > ) F u n c i n :i m p l i c i t _ p l o t( [ < e x p r _ 1 > ,. . . ,< e x p r _ n > ] ,< x _ r a n g e > ,< y _ r a n g e > ) M u e s t r au ng r f i c od eu n aom se x p r e s i o n e se nf o r m ai m p l c i t a . < e x p r >e sl ae x p r e s i nas e rr e p r e s e n t a d a ,< x _ r a n g e >l ag a m ad el a e j eh o r i z o n t a ly< y _ r a n g e >l ag a m ad ee j ev e r t i c a l . ' A s p e c t o s` i m p l i c i t _ p l o tc o n f i g u r a c i ng l o b a lp a r ae lc o n j u n t od ec o n t r o l a d o r e sG n u p l o t p o rl af u n c i n< s e t _ p l o t _ o p t i o n > .L a so p c i o n e st a m b i ns ep u e d e np a s a ra F u n c i n` i m p l i c i t _ p l o t' c o m oa r g u m e n t o so p c i o n a l e s . O b r a s` i m p l i c i t _ p l o t' d er a s t r e om u e s t r al o sc a m b i o se nl as u p e r f i c i ee nc u e s t i n p o r< x _ r a n g e >y< y _ r a n g e >yp u e d ef a l l a rp o rc o m p l i c a d a e x p r e s i o n e s . C a r g a s` c a r g a( i m p l i c i t _ p l o t )' e s t af u n c i n . E j e m p l o : ( %I 1 )i m p l i c i t _ p l o t( x^2=y^3-3*y+1 ,[ x ,4 ,4 ] ,[ y ,4 ,4 ] , [ G n u p l o t _ p r e a m b l e" ,e s t a b l e c ez e r o a x i s " ] ) ;
F u n c i n :m a k e _ t r a n s f o r m( [ < v a r 1 > ,< v a r 2 > ,< v a r 3 > ] ,< F X > ,< f y > ,< f z > ) D e v u e l v eu n af u n c i na d e c u a d ap a r as e ru t i l i z a d oe nl ao p c i n` t r a n s f o r m _ x y' d ep l o t 3 d .L a st r e sv a r i a b l e s< v a r 1 > ,< v a r 2 > ,< v a r 3 >s o nt r e s n o m b r e sd ev a r i a b l e sf i c t i c i a s ,q u er e p r e s e n t a nl a s3v a r i a b l e sd a d a sp o re l c o m a n d op l o t 3 d( p r i m e r ol a sd o sv a r i a b l e si n d e p e n d i e n t e syl u e g ol o s f u n c i nq u ed e p e n d ed ee s a sd o sv a r i a b l e s ) .L a st r e sf u n c i o n e s < F X > ,< f y > ,< f z >d e b ed e p e n d e rs l od el a s3v a r i a b l e s ,y d a re lc o r r e s p o n d i e n t ex ,yyzc o o r d e n a d a sq u ed e b e ns e r t r a z a d o .H a yd o st r a n s f o r m a c i o n e sd e f i n i d a sp o rd e f e c t o : P o l a r _ t o _ x y` ' y `s p h e r i c a l _ t o _ x y z ' .C o n s u l t el ad o c u m e n t a c i nd e e s a sd o st r a n s f o r m a c i o n e s .
F u n c i nd e ls i s t e m a :p o l a r _ t o _ x y P u e d ed a r s ec o m ov a l o rd el ao p c i n` t r a n s f o r m _ x y' d ep l o t 3 d . S ue f e c t os e r e ld ei n t e r p r e t a rl a sd o sv a r i a b l e si n d e p e n d i e n t e s d i b u j a r 3 dc o m ol ad i s t a n c i ad e s d ee le j ezye l n g u l oa z i m u t a l ( C o o r d e n a d a sp o l a r e s ) ,yt r a n s f o r m a r l a se nl a sc o o r d e n a d a sx ey .
F u n c i n :p l o t 2 d( < a r g u m e n t o > ,< x _ r a n g e > ,. . . ,< o p c i o n e s > ,. . . ) F u n c i n :p l o t 2 d( [ ,. . . , ] ,. . . ,< o p c i o n e s > ,. . . ) F u n c i n :p l o t 2 d( [ ,. . . , ] ,< x _ r a n g e > ,. . . ,< o p c i o n e s > ,. . . ) C u a n d o< a r g u m e n t o > , ,. . . ,p u e d es e rob i e ne x p r e s i o n e s , n o m b r e sd ef u n c i nou n al i s t ad ec u a l q u i e r ad el a sf o r m a s :` [ d i s c r e t a , [ < x 1 > ,. . . ,< X n > ] ,[ < y 1 > ,. . . ,< y n > ] ]' , '[ D i s c r e t a ,[ [ < x 1 > ,< y 1 > ] , . . . ,[ < X n > ,. . . ,< y n > ] ]' O '[ p a r a m t r i c o ,< x _ e x p r > ,< y _ e x p r > , < t _ r a n g e > ]' . M u e s t r au ng r f i c od eu n aom se x p r e s i o n e sc o m of u n c i nd eu n a v a r i a b l eop a r m e t r o . ` P l o t 2 d' m u e s t r au n aov a r i a sp a r c e l a se nd o sd i m e n s i o n e s . C u n d o e x p r e s i o n e son o m b r ed ef u n c i ns eu t i l i z a np a r ad e f i n i rl a sp a r c e l a s ,q u e t o d od e b ed e p e n d e rd eu ns o l o< v a r >v a r i a b l eye lu s od el o s < x _ r a n g e >s e r o b l i g a t o r i o ,p a r ap r o p o r c i o n a re ln o m b r ed el av a r i a b l e ys u sv a l o r e sm n i m o sym x i m o s ,l as i n t a x i sp a r a< x _ r a n g e >e s : ` [ < v a r i a b l e > ,< m i n > ,< m a x > ]' . U n at r a m at a m b i ns ep u e d ed e f i n i re nl af o r m ad i s c r e t aop a r a m t r i c a . L af o r m ad i s c r e t as eu t i l i z ap a r at r a z a ru nc o n j u n t od ep u n t o sc o nd a d o c o o r d i n a .U n ap a r c e l ad i s c r e t as ed e f i n ep o ru n al i s t aq u ec o m i e n z ac o n l ap a l a b r ac l a v e< d i s c r e t e > ,s e g u i d od eu n aod o sl i s t a sd ev a l o r e s . S is ed a nd o sl i s t a s ,d e b e nt e n e rl am i s m al o n g i t u d ,e lp r i m e r o l i s t as ep u e d ei n t e r p r e t a rc o m ol axc o o r d e n a d a sd el o sp u n t o sq u e t r a z a d oyl as e g u n d al i s t ac o nl a sc o o r d e n a d a sy .S is l ou n o l i s t as ed ad e s p u sd el ap a l a b r ac l a v e< d i s c r e t e > ,c a d ae l e m e n t od el a l i s t at a m b i nd e b es e ru n al i s t ac o nd o sv a l o r e sq u ec o r r e s p o n d e nal a c o o r d e n a d a sXeYd eu np u n t o . U nd i a g r a m ap a r a m t r i c os ed e f i n ep o ru n al i s t aq u ec o m i e n z ac o nl ap a l a b r ac l a v e ,s e g u i d od ed o se x p r e s i o n e son o m b r e sd ef u n c i o n e sy r a n g op a r ae lp a r m e t r o .E lr a n g op a r ae lp a r m e t r od e b es e ru n l i s t ac o ne ln o m b r ed e lp a r m e t r os e g u i d op o rs um n i m oy v a l o r e sm x i m o s :` [ ,< m i n > ,< m a x > ]' .L at r a m am o s t r a r e l c a m i n ot r a z a d op o re lp u n t oc o nc o o r d e n a d a sd a d a sp o rl o sd o s e x p r e s i o n e sof u n c i o n e s ,am e d i d aq u ea u m e n t ad e< m i n >a< m a x > .
119/633
28/08/13

U n ag a m ap a r ae le j ev e r t i c a le su na r g u m e n t oo p c i o n a lc o nl a f o r m a :` [ y ,< m i n > ,< m a x > ]' ( l ap a l a b r ac l a v e< y >s i e m p r es eu t i l i z ap a r al a e j ev e r t i c a l ) .S is eu t i l i z ae s t ao p c i n ,e lg r f i c om o s t r a r q u e r a n g ov e r t i c a le x a c t a ,i n d e p e n d i e n t e m e n t ed el o sv a l o r e sa l c a n z a d o sp o re l p a r c e l a .S in os ee s p e c i f i c ae lr a n g ov e r t i c a l ,q u es ee s t a b l e c e r d ea c u e r d oc o nl o sv a l o r e sm n i m oym x i m od el as e g u n d a c o o r d i n a c i nd el o sp u n t o sd el at r a m a . T o d a sl a sd e m so p c i o n e sd e b e ns e rl i s t a s ,c o m e n z a n d oc o nu n ap a l a b r ac l a v ey s e g u i d od eu n oom sv a l o r e s .C o n s u l t e` p l o t _ o p t i o n s . S ih a yv a r i a sp a r c e l a sp a r as e rr e p r e s e n t a d o s ,u n al e y e n d as ee s c r i b i r al ai d e n t i d a dd ec a d au n od el a se x p r e s i o n e s .L a se t i q u e t a sq u ed e b e ne s t a r u t i l i z a d oe nl al e y e n d as ep u e d ed a rc o nl ao p c i n` l e y e n d a' .S i e s ao p c i nn os eu t i l i z a ,M a x i m ac r e a r e t i q u e t a sd e l e x p r e s i o n e son o m b r e sd ef u n c i o n e s . *E j e m p l o s :* P a r c e l ad eu n af u n c i nc o m n : ( %I 1 )p l o t 2 d( s i n( x ) ,[ x ,%p i , %p i ] )$ S il a sf u n c i o n e sc r e c ed e m a s i a d or p i d o ,p o d r as e rn e c e s a r i ol i m i t a re l v a l o r e se ne le j ev e r t i c a lye lu s od el ao p c i n : ( %I 1 )p l o t 2 d( s( x ) ,[ x ,2 ,2 ] ,[ Y ,2 0 ,2 0 ] )$ p l o t 2 d :a l g u n o sv a l o r e ss er e c o r t a n . E la s p e c t od el at r a m ap u e d es e rd i f e r e n t ee nf u n c i nd e lt r a z a d o p r o g r a m au t i l i z a d o .P o re j e m p l o ,c u a n d oe ld i a g r a m ad ec a j ae sd e s h a b i l i t a r ,X m a x i m a s e r t r a z a rl o se j e sm e d i a n t ef l e c h a s : ( %I 1 )p l o t 2 d( x^2 1 ,[ x ,3 ,3 ] ,[ y ,2 ,1 0 ] , [ C a j a ,f a l s e ] ,[ p l o t _ f o r m a t ,X m a x i m a ] )$ U n ap a r c e l ac o nu n ae s c a l al o g a r t m i c a : ( %I 1 )p l o t 2 d( e x p( 3*s ) ,[ s ,2 ,2 ] ,[ l o g i a ] )$ T r a z a d od ef u n c i o n e sp o rn o m b r e : ( %I 1 )F( x ) :=x^2$ ( %I 2 ) :l i s p( d e f u n|$g|( x )( m*x x x ) ) $G ( %I 2 )H( x ) :=s ix< 0 ,e n t o n c e sx^4-1m s1-x^5$ ( %I 3 )p l o t 2 d( [ F ,G ,H ] ,[ u ,1 ,1 ] ,[ y ,1 , 5 ,1 , 5 ] )$ U ng r f i c od el ac u r v ad el am a r i p o s a ,d e f i n i d ap a r a m t r i c a m e n t e : ( %I 1 )r :( e x p( c o s( t ) )2*c o s( 4*t ) s i n( T / 1 2 )^5 )$ ( %I 2 )p l o t 2 d( [ p a r a m t r i c a ,r*s e n( t ) ,r*c o s( t ) , [ T ,8* %p i ,8* %p i ] ,[ n t i c k s ,2 0 0 0 ] ] )$ U n" c r c u l o " ,c o nd o sv u e l t a s ,c u a n d os er e p r e s e n t ac o ns l o7p u n t o s : ( %I 1 )p l o t 2 d( [ p a r a m t r i c o ,c o s( t ) ,s i n( t ) , [ T ,2* %p i ,2* %p i ] ,[ n t i c k s ,8 ] ] )$ P a r c e l ad eu n af u n c i nc o m nj u n t oc o ne lp a r a m t r i c o l ar e p r e s e n t a c i nd eu nc r c u l o .E lt a m a od el ap a r c e l ah as i d o a j u s t a d oc o nl aXyo p c i o n e s ,p a r aq u ee lc r c u l om i r a d ar e d o n d a yn od e f o r m a d ac o m ou n ae l i p s e .E s t o sv a l o r e sf u n c i o n a nb i e np a r al a T e r m i n a lP o s t s c r i p tu t i l i z a d op a r ap r o d u c i re s t et e r r e n o ,e sp o s i b l eq u et e n g aq u e a j u s t a rl o sv a l o r e sd el ap a n t a l l a . ( %I 1 )p l o t 2 d( [ [ p a r a m t r i c o ,c o s( t ) ,s i n( t ) , [ T ,0 , 2* %p i ] ,[ n t i c k s ,8 0 ] ] , a b s( x ) ] ,[ x ,2 , 2 ] ,[ y ,1 , 5 ,1 , 5 ] )$ p l o t 2 d :a l g u n o sv a l o r e ss er e c o r t a n . U n at r a m ad eu nc o n j u n t od i s c r e t od ep u n t o s ,d e f i n i e n d ol a sc o o r d e n a d a sx e y p o rs e p a r a d o : ( %I 1 )p l o t 2 d( [ d i s c r e t a ,[ 1 0 ,2 0 ,3 0 ,4 0 ,5 0 ] , [ 0 . 6 ,0 . 9 ,1 . 1 ,1 . 3 ,1 . 4 ] ] )$ L o sm i s m o sp u n t o sq u es em u e s t r a ne ne le j e m p l oa n t e r i o r ,l ad e f i n i c i nd ec a d ap u n t o p o rs e p a r a d oys i nn i n g nt i p od el n e a sq u eu n e nl o sp u n t o s : ( %I 1 )p l o t 2 d( [ d i s c r e t a ,[ [ 1 0 ,0 . 6 ] ,[ 2 0 ,0 . 9 ] ,[ 3 0 ,1 . 1 ] , [ 4 0 ,1 , 3 ] ,[ 5 0 ,1 , 4 ] ] ] , [ E s t i l o ,p u n t o s ] )$ E ne s t ee j e m p l o ,u n at a b l ac o nt r e sc o l u m n a ss eg u a r d ae nu na r c h i v o " D a t a . t x t "q u es el e eac o n t i n u a c i n ,yl as e g u n d ayl at e r c e r ac o l u m n ae s t n t r a z a d ae nl o sd o se j e s : ( %I 1 )w i t h _ s t d o u t( " d a t a . t x t " ,p a r ax :0 1 0h a c e r p r i n t( x ,x^2 ,x^3 ) )$ ( %I 2 )d ed a t o s :r e a d _ m a t r i x( " d a t a . t x t " )$ ( %I 3 )p l o t 2 d( [ d i s c r e t a ,t r a n s p o s i c i n( d a t o s )[ 2 ] ,t r a n s p o s i c i n( d a t o s )[ 3 ] ] , [ E s t i l o ,p u n t o s ] ,[ p o i n t _ t y p e ,d i a m a n t e ] ,[ c o l o r ,r o j o ] )$ U ng r f i c od el o sd a t o se x p e r i m e n t a l e ss e a l aj u n t oc o ne lt e r i c o f u n c i nq u ep r e d i c el o sd a t o s :
120/633
28/08/13

( %I 1 )x y :[ [ 1 0 ,0 , 6 ] ,[ 2 0 ,0 , 9 ] ,[ 3 0 ,1 , 1 ] ,[ 4 0 ,1 , 3 ] ,[ 5 0 ,1 , 4 ] ]$ ( %I 2 )p l o t 2 d( [ [ d i s c r e t a ,x y ] ,2* %p i*s q r t( l / 9 8 0 ) ] ,[ l ,0 , 5 0 ] , [ E s t i l o ,p u n t o s ,l n e a s ] ,[ c o l o r ,r o j o ,a z u l ] , [ P o i n t _ t y p e ,a s t e r i s c o ] , [ L e y e n d a ," e x p e r i m e n t o " ," t e o r a " ] , [ X l a b e l" ,l o n g i t u dd e lp n d u l o( c m ) " ] , [ Y l a b e l ," p e r o d o( s ) " ] )$ V a s et a m b i nl as e c c i ns o b r eO p c i o n e sd eT r a z a d o .
F u n c i n :p l o t 3 d( e x p r ,< x _ r a n g e > ,< y _ r a n g e > ,. . . ,< o p c i o n e s > ,. . . ) F u n c i n :p l o t 3 d( [ < e x p r _ 1 > ,. . . ,< e x p r _ n > ] ,< x _ r a n g e > ,< y _ r a n g e > ,. . . ,< o p c i o n e s > ,. . . ) M u e s t r au ng r f i c od eu n aom ss u p e r f i c i e sd e f i n i d a sc o m of u n c i o n e sd ed o s v a r i a b l e soe nf o r m ap a r a m t r i c a . L a sf u n c i o n e sq u es et r a z a d o ss ep u e d e ne s p e c i f i c a rc o m oe x p r e s i o n e so n o m b r e sd el a sf u n c i o n e s .E lr a t ns ep u e d eu t i l i z a rp a r ar o t a re lg r f i c oe nb u s c a e nl as u p e r f i c i ed e s d ed i f e r e n t e sl a d o s . *E j e m p l o s :* P a r c e l ad eu n af u n c i nc o m n : ( %I 1 )d i b u j a r 3 d( 2^( u+v^2^2 ) ,[ U ,3 ,3 ] ,[ v ,2 ,2 ] )$ E lu s od el ao p c i nzp a r al i m i t a ru n af u n c i nq u et i e n d eai n f i n i t o( e n e s t ec a s ol af u n c i ne sm e n o si n f i n i t oe ne le j e sXeY ) ; e s t ot a m b i nm u e s t r ac m ot r a z a rc o ns l ol n e a sys i ns o m b r a s : ( %I 1 )d i b u j a r 3 d( l o g( x^2*y^2 ) ,[ x ,2 ,2 ] ,[ y ,2 ,2 ] ,[ z ,8 ,4 ] , [ P a l e t a ,f a l s e ] ,[ c o l o r ,m a g e n t a ,a z u l ] )$ L o sv a l o r e si n f i n i t o sd eZt a m b i ns ep u e d e ne v i t a rp o rl ae l e c c i nd eu n ac u a d r c u l a q u en oc a ee nn i n g u n aa s n t o t a s ,e s t ee j e m p l ot a m b i nm u e s t r ac m o p a r as e l e c c i o n a ru n ad el a sp a l e t a sp r e d e f i n i d a s ,e ne s t ec a s oe lc u a r t o u n a : ( %I 1 )d i b u j a r 3 d( l o g( x^2*y^2 ) ,[ x ,2 ,2 ] ,[ y ,2 ,2 ] , [ G r i d ,2 9 ,2 9 ] , [ P a l e t a ,g e t _ p l o t _ o p t i o n( p a l e t a ,5 ) ] )$ D o ss u p e r f i c i e se nl am i s m ap a r c e l a ,c o m p a r t i e n d oe lm i s m od o m i n i o ,e ng n u p l o t l a sd o ss u p e r f i c i e su t i l i z a r nl am i s m ag a m ad ec o l o r e s : ( %I 1 )p l o t 3 d( [ 2^( x^2+y^2 ) ,4*s i n( 3*( x^2+y^2 ) )/( x^2+y^2 ) , [ X ,3 ,3 ] ,[ y ,2 ,2 ] ] )$ L o sm i s m o sd o ss u p e r f i c i e s ,p e r oa h o r ac o nd i f e r e n t e sd o m i n i o s ,e nX m a x i m a c a d as u p e r f i c i eu s a r u n ap a l e t ad i f e r e n t e ,e l e g i d od el al i s t a d e f i n i d op o rl ap a l e t ao p c i n : ( %I 1 )p l o t 3 d( [ [ 2^( x^2+y^2 ) ,[ x ,2 , 2 ] ,[ y ,2 , 2 ] ] , 4*s i n( 3*( x^2+y^2 ) )/( x^2+y^2 ) , [ X ,3 ,3 ] ,[ y ,2 ,2 ] ] ,[ p l o t _ f o r m a t ,X m a x i m a ] )$ P a r c e l ad eu n ab o t e l l ad eK l e i n ,d e f i n i d ap a r a m t r i c a m e n t e : ( %I 1 )e x p r1 :5*c o s( x )*( c o s( x/2 )*c o s( y )+s i n( x/2 )*s i n( 2*y )3 . 0 )1 0 . 0$ ( %I 2 )e x p r _ 2 :5*s i n( x )*( c o s( x/2 )*c o s( y )+s e n( x/2 )*s e n( 2*y )+3 , 0 )$ ( %I 3 )e x p r _ 3 :5*( s i n( x/2 )*c o s( y )+c o s( x/2 )*s i n( 2*y ) )$ ( %I 4 )p l o t 3 d( [ e x p r _ 1 ,e x p r _ 2 ,e x p r _ 3 ] ,[ x ,%p i , %p i ] , [ Y ,%p i , %p i ] ,[ g r i d ,4 0 ,4 0 ] )$ P a r c e l ad eu na r m n i c oe s f r i c o ,u t i l i z a n d ol ap r e d e f i n i d a t r a n s f o r m a c i o n e s ,` s p h e r i c a l _ t o _ x y z' ,p a r at r a n s f o r m a rd e s d ee s f r i c a ac o o r d e n a d a sr e c t a n g u l a r e s .C o n s u l t el ad o c u m e n t a c i nd e ` S p h e r i c a l _ t o _ x y z' . ( %I 1 )p l o t 3 d( s i n( 2*t h e t a )*c o s( p h i ) ,[ t h e t a ,0 , %p i ] , [ P h i ,0 ,2* %p i ] , [ T r a n s f o r m _ x y ,s p h e r i c a l _ t o _ x y z ] ,[ g r i d ,3 0 , 6 0 ] )$ E lu s od el af u n c i n` p o l a r _ t o _ x y' p r e d e f i n i d op a r at r a n s f o r m a rd e s d e c i l n d r i c aac o o r d e n a d a sr e c t a n g u l a r e s .C o n s u l t el ad o c u m e n t a c i nd e ` P o l a r _ t o _ x y' .E s t ee j e m p l ot a m b i nm u e s t r ac m oe l i m i n a re l c a j ayl al e y e n d ad ed e l i m i t a c i n . ( %I 1 )p l o t 3 d( r^0 . 3 3*c o s( t/3 ) ,[ r ,0 ,1 ] ,[ t h ,0 ,6* %p i ] , [ G r i d ,1 2 ,8 0 ] , [ T r a n s f o r m _ x y ,p o l a r _ t o _ x y ] ,[ c a j a ,f a l s e ] , [ L e y e n d a ,f a l s e ] )$ P a r c e l ad eu n ae s f e r au t i l i z a n d ol at r a n s f o r m a c i nd ee s f r i c aa c o o r d e n a d a sr e c t a n g u l a r e s .E nX m a x i m al o st r e se j e ss ee s c a l a ne n l am i s m ap r o p o r c i n ,e lm a n t e n i m i e n t od el af o r m as i m t r i c ad el a e s f e r a .U n ag a m ad ec o l o r e sc o nd i f e r e n t e st o n o sd eu ns o l oc o l o rs eu t i l i z a : ( %I 1 )p l o t 3 d( 5 ,[ t h e t a ,0 , %p i ] ,[ p h i ,0 ,2* %p i ] , [ P l o t _ f o r m a t ,X m a x i m a ] , [ T r a n s f o r m _ x y ,s p h e r i c a l _ t o _ x y z ] , [ P a l e t a ,[ v a l o r ,0 . 6 5 , 0 . 7 , 0 . 1 , 0 . 9 ] ] )$ D e f i n i c i nd eu n af u n c i nd ed o sv a r i a b l e sat r a v sd eu n am a t r i z .N o t a r
121/633
28/08/13

l ac o m i l l as i m p l ee nl ad e f i n i c i nd el af u n c i n ,p a r ae v i t a r d i b u j a r 3 dd ef a l l a rc u a n d os ed ac u e n t ad eq u el am a t r i zr e q u e r i r n d i c e se n t e r o s . ( %I 1 )M :m a t r i z( [ 1 ,2 ,3 ,4 ] ,[ 1 ,2 ,3 ,2 ] ,[ 1 ,2 ,3 ,4 ] , [ 1 ,2 ,3 ,3 ] )$ ( %I 2 )f( x ,y ) :=f l o a t( ' M[ r o u n d( x ) ,r e d o n d a( y ) ] )$ ( %I 3 )d i b u j a r 3 d( f( x ,y ) ,[ x ,1 ,4 ] ,[ s ,1 ,4 ] ,[ r e j i l l a ,4 ,4 ] )$ a p l i c a n :s u b n d i c ed e b es e ru ne n t e r o ;e n c o n t r a d o :r o u n d( x ) A le s t a b l e c e rl ae l e v a c i ni g u a lac e r o ,u n as u p e r f i c i ep u e d es e rv i s t oc o m ou n m a p ae ne lq u ec a d ac o l o rr e p r e s e n t au nn i v e ld i f e r e n t e .L ao p c i n ` C o l o r b o x "s eu t i l i z ap a r am o s t r a rl ac o r r e s p o n d e n c i ae n t r el o sc o l o r e sy n i v e l e s ,yl a sl n e a sd em a l l as ed e s a c t i v a np a r aq u el o sc o l o r e sm sf c i l e s p a r av e r . ( %I 1 )d i b u j a r 3 d( c o s( x^2+y^3 / 4 ) ,[ x ,4 ,4 ] ,[ y ,4 ,4 ] , [ M e s h _ l i n e s _ c o l o r ,f a l s e ] ,[ e l e v a c i n ,0 ] ,[ a c i m u t ,0 ] , [ C o l o r b o x ,t r u e ] ,[ g r i d ,1 5 0 ,1 5 0 ] )$ V a s et a m b i nl as e c c i ns o b r eO p c i o n e sd eT r a z a d o .
V a r i a b l ed e ls i s t e m a :p l o t _ o p t i o n s L o se l e m e n t o sd ee s t al i s t ae s t a b l e c e nl a so p c i o n e sp o rd e f e c t op a r al o sg r f i c o s .S i u n ao p c i ne s t p r e s e n t ee nu n al l a m a d a` p l o t 2 d' o `d i b u j a r 3 d ' ,q u ee lv a l o r t i e n ep r i o r i d a ds o b r el ao p c i np o rd e f e c t o .D el oc o n t r a r i o ,e lv a l o rd e S eu t i l i z a` p l o t _ o p t i o n s' .L a so p c i o n e sp o rd e f e c t os o na s i g n a d o sp o r ` S e t _ p l o t _ o p t i o n' .H a yo t r a so p c i o n e sl o c a l e sp r o p i a sd ec a d a c o m a n d od et r a z a d o ,yn oi n c l u i d o se ne s t al i s t ad eo p c i o n e sg l o b a l e s . C a d ae l e m e n t od e l` p l o t _ o p t i o n s' e su n al i s t ad ed o som se l e m e n t o s .L a p r i m e re l e m e n t oe se ln o m b r ed el ao p c i n ,ye lr e s t oc o m p r e n d e e lv a l o rov a l o r e sa s i g n a d o sal ao p c i n .E na l g u n o sc a s o s ,l a v a l o ra s i g n a d oe su n al i s t a ,q u ep u e d ei n c l u i rv a r i o se l e m e n t o s . C o n s u l t et a m b i n` s e t _ p l o t _ o p t i o n' , `g e t _ p l o t _ o p t i o n 'yl as e c c i ns o b r e T r a z a d oO p c i o n e s .
F u n c i n :s e t _ p l o t _ o p t i o n( o p t i o n ) A c e p t al am a y o r ad el a so p c i o n e sq u ea p a r e c e ne nl as e c c i nT r a z a d o O p c i o n e s ,yl a sg u a r d ae ne ld i r e c t o r i o` p l o t _ o p t i o n sv a r i a b l eg l o b a l " . ` S e t _ p l o t _ o p t i o n' e v a l as u sa r g u m e n t o syd e v u e l v el ac o m p l e t a l i s t` p l o t _ o p t i o n s' ( d e s p u sd em o d i f i c a rl ao p c i nd a d a ) . V e rt a m b i n` p l o t _ o p t i o n s' , `g e t _ p l o t _ o p t i o n 'yl as e c c i ns o b r e T r a z a d oO p c i o n e s . E j e m p l o : M o d i f i c a c i nd el o sv a l o r e sd e` r e d' . ( %I 1 )s e t _ p l o t _ o p t i o n( [ r e j i l l a ,3 0 ,4 0 ] ) ; ( %O 1 )[ [ t ,-3 ,3 ] ,[ r e j i l l a ,3 0 ,4 0 ] ,[ t r a n s f o r m _ x y ,f a l s a ] , [ R u n _ v i e w e r ,t r u e ] ,[ h a c h a s ,t r u e ] ,[ p l o t _ f o r m a t ,g n u p l o t _ p i p e s ] , [ C o l o r ,a z u l ,r o j o ,v e r d e ,m a g e n t a ,n e g r o ,c y a n ] , [ P o i n t _ t y p e ,b a l a ,c r c u l o ,a d e m s ,l o st i e m p o s ,a s t e r i s c o ,c a j a ,c u a d r a d o , t r i n g u l o ,t r i n g u l o ,c u a ,n a b l a ,d i a m a n t e ,r o m b o ] , [ P a l e t a ,[ h u e ,0 . 2 5 ,0 . 7 ,0 . 8 ,0 . 5 ] , [ T o n o ,0 , 6 5 ,0 , 8 ,0 , 9 ,0 , 5 5 ] ,[ m a t i z ,0 . 5 5 ,0 . 8 ,0 . 9 ,0 . 4 ] , [ T o n o ,0 . 9 5 ,0 . 7 ,0 . 8 ,0 . 5 ] ] ,[ g n u p l o t _ t e r m ,d e f a u l t ] , [ G n u p l o t _ o u t _ f i l e ,f a l s o s ] ,[ n t i c k s ,2 9 ] ,[ a d a p t _ d e p t h ,5 ] , [ G n u p l o t _ p r e a m b l e , ] ,[ g n u p l o t _ d e f a u l t _ t e r m _ c o m m a n d , e s t a b l e c ep o pp l a z o ] ,[ g n u p l o t _ d u m b _ t e r m _ c o m m a n d ,e s t a b l e z c ap l a z ot o n t o7 92 2 ] , [ G n u p l o t _ p s _ t e r m _ c o m m a n d ,t a m a od e lc o n j u n t od e1 , 5 ,1 , 5 ,s e tt e r mp o s t s c r i p t\ E P Sm a y o rc o l o rs l i d o2 4 ] ,[ p l o t _ r e a l p a r t ,f a l s e ] ]
F u n c i nd e ls i s t e m a :s p h e r i c a l _ t o _ x y z P u e d ed a r s ec o m ov a l o rd el ao p c i n` t r a n s f o r m _ x y' d e ` D i b u j a r 3 d' .S ue f e c t os e r e ld ei n t e r p r e t a rl o sd o si n d e p e n d i e n t e s l a sv a r i a b l e syl af u n c i ne n' p l o t 3 d 'c o m oe s f r i c a c o o r d e n a d a sd eu np u n t o( p r i m e r o ,e l n g u l oc o ne le j ez ,ac o n t i n u a c i n ,l a n g u l od el ap r o y e c c i nx yc o ne le j exy ,f i n a l m e n t e ,l a d i s t a n c i ad e s d ee lo r i g e n )yt r a n s f o r m a r l a se nx ,yyz c o o r d i n a .
12.4 Opciones grficas

T o d a sl a so p c i o n e sc o n s i s t e ne nu n al i s t aap a r t i rd eu n ad el a sp a l a b r a sc l a v ed ee s t a s e c c i n ,s e g u i d od eu n oom sv a l o r e s .L am a y o r ad el a so p c i o n e sp u e d e ns e r u t i l i z a d oe nc u a l q u i e r ad el o sc o m a n d o sd et r a z a d o( p l o t 2 d` ' , `p l o t 3 d ' , ` C o n t o u r _ p l o t' , ì m p l i c i t _ p l o t ' )oe nl af u n c i n ` S e t _ p l o t _ o p t i o n' .L a se x c e p c i o n e ss ee s p e c i f i c a ne ne ls i g u i e n t e
122/633
28/08/13
l i s t a .
O p c i nT e r r e n o :a d a p t _ d e p t h[ a d a p t _ d e p t h ,< e n t e r o > ] V a l o rp o rd e f e c t o :5' E ln m e r om x i m od ep a r t i c i o n e su t i l i z a d op o re la d a p t a t i v ot r a z a d o d er u t i n a .
O p c i nT e r r e n o :h a c h a s[ e j e s ,< s y m b o l > ] V a l o rp o rd e f e c t o :t r u e' C u a n d o< s y m b o l >p u e d es e r` t r u e' , 'f a l s e' , 'x' o 'y' .S i ' F a l s e ' ,s em u e s t r en i n g ne j e s ,s ie si g u a la' x 'o' y 's l oe lx oe j eys em u e s t r a ,ys ie si g u a la` v e r d a d e r o' ,a m b o se j e s s em o s t r a r .E s t ao p c i ns l os eu t i l i z ap l o t 2 dy i m p l i c i t _ p l o t .
O p c i nT e r r e n o :a c i m u t[ a c i m u t ,< n m e r o > ] V a l o rp o rd e f e c t o :3 0' U n ap a r c e l ap l o t 3 ds ep u e d ec o n s i d e r a rc o m oe li n i c i od es u se j e sXeY . e ne le j eh o r i z o n t a lyv e r t i c a l ,c o m oe np l o t 2 d ,ye le j ez s a l i e n d od e lp a p e lp e r p e n d i c u l a r m e n t e .E le j eze sl u e g o h a c eg i r a ra l r e d e d o rd e le j exe si g u a lau n n g u l od ee l e v a c i nd e l` ' yl u e g o e lp l a n ox ys eh a c eg i r a ra l r e d e d o rd e ln u e v oe j ezu n n g u l oa z i m u t` ' . E s t ao p c i ne s t a b l e c ee lv a l o rd e la z i m u te ng r a d o s . V a s et a m b i n` e l e v a c i n' .
O p c i nT e r r e n o :c u a d r o[ c a j a ,< s y m b o l > ] V a l o rp o rd e f e c t o :t r u e' S is ee s t a b l e c ee n` t r u e' ,u nc u a d r od el m i t es ee s t a b l e c e r d el at r a m a ,y s ij u e g o a` f a l s e' ,s ed i b u j a r n i n g u n ac a j a .
O p c i nT e r r e n o :C o l o r[ c o l o r< c o l o r _ 1 > ,. . . ,< c o l o r _ n > ] V a l o rp o rd e f e c t o :' b l u e ' ,' r o j o ' ,' v e r d e ' ,' m a g e n t a ' ,' n e g r o ' ,' c y a n ' E n` p l o t 2 d' y ì m p l i c i t _ p l o t ' ,d e f i n ee lc o l o r( oc o l o r e s ) p a r al a sd i f e r e n t e sc u r v a s .E n` p l o t 3 d' ,q u ed e f i n el o sc o l o r e su t i l i z a d o s p a r al a sl n e a sd el am a l l ad el as u p e r f i c i e ,c u a n d on os ee s t u t i l i z a n d ol ap a l e t a ; u nl a d od el as u p e r f i c i et e n d r < c o l o r _ 1 >c o l o ryl ao t r a < c o l o r _ 2 >( oe lm i s m oc o l o rs is l oh a yu nc o l o r ) . S ih a ym sc u r v a sos u p e r f i c i e sq u el o sc o l o r e s ,l o sc o l o r e ss e r e p e t i r s ee ns e c u e n c i a .C u a n d os eu t i l i z ag n u p l o t ,l o sc o l o r e sp u e d e ns e r : ' A z u l ' ,' r o j o ' ,' v e r d e ' ,' m a g e n t a ' ,' n e g r o ' ,o' c y a n ' ,e nX m a x i m a l o sc o l o r e sp u e d e ns e re s o sou n ac a d e n aq u ec o m i e n z ac o ne lc a r c t e r# ys e g u i d od es e i sd g i t o sh e x a d e c i m a l e s :d o sp a r ae lc o m p o n e n t er o j o , d o sp a r ae lc o m p o n e n t ev e r d eyd o sp a r ae lc o m p o n e n t ea z u l .S is el e sd a e ln o m b r ed eu nc o l o rd e s c o n o c i d o ,n e g r os e r u t i l i z a d oe ns ul u g a r .
O p c i nT e r r e n o :c o l o r b o x[ c o l o r b o x ,< s y m b o l > ] V a l o rp o rd e f e c t o :f a l s e' C u a n d o< s y m b o l >p u e d es e r` t r u e' o 'f a l s e' .S i` t r u e' , s i e m p r e` p l o t 3 d' u t i l i z au n ap a l e t ad ec o l o r e sd i f e r e n t e sp a r ar e p r e s e n t a r l o sd i f e r e n t e sv a l o r e sd ez ,u n ac a j as em o s t r a r nal ad e r e c h a , i n d i c al o sc o l o r e su t i l i z a d o ss e g nl ae s c a l ad ev a l o r e sd ez . E s t ao p c i nn of u n c i o n ae nX m a x i m a .
O p c i nT e r r e n o :e l e v a c i n[ e l e v a c i n ,< n m e r o > ] V a l o rp o rd e f e c t o :6 0' U n ap a r c e l a` d i b u j a r 3 d' p u e d es e rp e n s a d oc o m oap a r t i rd es ux e y e j ee ne le j eh o r i z o n t a lyv e r t i c a l ,c o m oe n` p l o t 2 d' ,ye l e j ezq u es a l ed e lp a p e lp e r p e n d i c u l a r m e n t e .E le j eze s ac o n t i n u a c i n ,h a c eg i r a ra l r e d e d o rd e le j exu n n g u l oe si g u a la` e l e v a c i n' y ac o n t i n u a c i n ,e lp l a n ox ys eh a c eg i r a ra l r e d e d o rd e ln u e v oe j ezu n n g u l o ` A c i m u t' .E s t ao p c i ne s t a b l e c ee lv a l o rd el ae l e v a c i n ,e n g r a d o s . V a s et a m b i n` a c i m u t' .
123/633
28/08/13
O p c i nT e r r e n o :r e d[ g r i d ,< e n t e r o > ,< e n t e r o > ] V a l o rp o rd e f e c t o :3 0' ,` 3 0 ' E s t a b l e c ee ln m e r od ep u n t o sd el ar e j i l l ap a r au t i l i z a re nl o sx ey d i r e c c i o n e s p a r ae lt r a z a d ot r i d i m e n s i o n a l .
O p c i nT e r r e n o :l e g e n d[ l e y e n d a ,< s t r i n g _ 1 > ,. . . ,< s t r i n g _ n > ] O p c i nT e r r e n o :l e g e n d[ l e y e n d a ,< f a l s e > ] S ee s p e c i f i c a nl a se t i q u e t a sp a r al a sp a r c e l a se nv a r i a sp a r c e l a ss o n s em u e s t r a .S ih a ym sp a r c e l a sq u ee ln m e r od ee t i q u e t a sd a d a s , q u es er e p e t i r n .S is el e sd ae lv a l o r` f a l s e' ,s i nl e y e n d a s s em o s t r a r .D ef o r m ap r e d e t e r m i n a d a ,l o sn o m b r e sd el a se x p r e s i o n e so s eu t i l i z a r nl a sf u n c i o n e sol a sp a l a b r a sd i s c r e t e 1 ,d i s c r e t e 2 ,. . . , p a r al o sc o n j u n t o sd ep u n t o sd i s c r e t o s .E s t ao p c i nn os ep u e d ee s t a b l e c e rc o n ` S e t _ p l o t _ o p t i o n' .
O p c i nT e r r e n o :l o g x[ l o g x ] H a c eq u el o se j e sh o r i z o n t a l e sq u es ee s c a l al o g a r t m i c a .S ep u e d e n os eu t i l i z a r nc o n` s e t _ p l o t _ o p t i o n' .
O p c i nT e r r e n o :l o g y[ l o g y ] H a c eq u ee le j ev e r t i c a ls ee s c a l al o g a r t m i c a .N op u e d e u s a r s ec o n` s e t _ p l o t _ o p t i o n' .
O p c i nT e r r e n o :m e s h _ l i n e s _ c o l o r[ m e s h _ l i n e s _ c o l o r ,< c o l o r > ] V a l o rp o rd e f e c t o :` n e g r o' E s t a b l e c ee lc o l o ru t i l i z a d op o rp l o t 3 dp a r ad i b u j a rl a sl n e a sd em a l l a ,c u a n d ou n s ee s t u t i l i z a n d op a l e t a .A c e p t al o sm i s m o sc o l o r e sq u ee l o p c i n' C o l o r ' ( V e rl al i s t ad ec o l o r e sp e r m i t i d o se nc o l o rd e l` ' ) .T a m b i ns ep u e d ed a r u nv a l o r' f a l s e 'p a r ae l i m i n a rp o rc o m p l e t ol a sl n e a sd em a l l a .
O p c i nT e r r e n o :n t i c k s[ n t i c k s , ] V a l o rp o rd e f e c t o :2 9' A lt r a z a rf u n c i o n e sc o n` p l o t 2 d' ,s ed al ap r i m e r a n m e r od ep u n t o su s a d ap o rl ar u t i n ag r f i c aa d a p t a t i v ap a r a r e p r e s e n t a c i nd ef u n c i o n e s .A lt r a z a rf u n c i o n e sp a r a m t r i c a sc o n p l o t 2 do` p l o t 3 d' ,q u ed e f i n ee ln m e r od ep u n t o sq u es e r n m u e s t r ad el at r a m a .
O p c i nT e r r e n o :p a l e t a[ p a l e t a ,[ ] ,. . . ,[ ] ] O p c i nT e r r e n o :p a l e t a[ P a l e t a ,< f a l s e > ] V a l o rp o rd e f e c t o :[ m a t i z ,0 , 2 5 ,0 , 7 ,0 , 8 ,0 , 5 ]' , '[ h u e ,0 . 6 5 ,0 . 8 , 0 . 9 ,0 . 5 5 ]' , '[ m a t i z ,0 , 5 5 ,0 , 8 ,0 , 9 ,0 , 4 ]' , '[ h u e ,0 . 9 5 ,0 . 7 ,0 . 8 , 0 , 5 ]' P u e d ec o n s i s t i re nu n ap a l e t aou n al i s t ad ev a r i a sp a l e t a s .C a d a p a l e t ae su n al i s t ac o nu n ap a l a b r ac l a v es e g u i d ad ec u a t r on m e r o s .L a p r i m e r o st r e sn m e r o s ,q u ed e b e ne s t a re n t r e0y1 ,d e f i n e ne l t o n o ,l as a t u r a c i nye lv a l o rd eu nc o l o rb s i c oq u es ea s i g n e nal a v a l o rm n i m od ez .L ap a l a b r ac l a v ee s p e c i f i c ac u ld el o st r e s a t r i b u t o s( t o n o ,s a t u r a c i nov a l o r )s ei n c r e m e n t a r nd ea c u e r d o al o sv a l o r e sd ez .E l l t i m on m e r oi n d i c ae la u m e n t o c o r r e s p o n d i e n t ea lv a l o rm x i m od ez .E l l t i m on m e r op u e d es e r m sg r a n d eq u e1on e g a t i v o ;l o sv a l o r e sc o r r e s p o n d i e n t e sd el a a t r i b u t om o d i f i c a d os er e d o n d e a r m d u l o1 . G n u p l o ts l ou t i l i z al ap r i m e r ap a l e t ae nl al i s t a ;X m a x i m au s a r l a sp a l e t a sd el al i s t as e c u e n c i a l ,c u a n d ov a r i a ss u p e r f i c i e ss o n c o n s p i r a d oj u n t o s ,s is eh aa g o t a d oe ln m e r od ep a l e t a s ,q u e s er e p e t i r d ef o r m as e c u e n c i a l . E lc o l o rd el a sl n e a sd em a l l as e r d a d ap o rl ao p c i n ` M e s h _ l i n e s _ c o l o r' .S i' s el ed ae lv a l o r 'f a l s e' ` p a l e t a , l a ss u p e r f i c i e sn os e r ns o m b r e a d a sp e r or e p r e s e n t a d o sc o nu n am a l l ad e s l oc u r v a s .E ne s ec a s o ,l o sc o l o r e sd el a sl n e a ss e r n d e t e r m i n a d op o re lc o l o rd e l` ' o p c i n .
124/633
28/08/13

O p c i nT e r r e n o :p l o t _ f o r m a t[ p l o t _ f o r m a t ,< f o r m a t > ] V a l o rp o rd e f e c t o :g n u p l o t' ,e nl o ss i s t e m a sW i n d o w so` g n u p l o t _ p i p e s 'e n o t r o ss i s t e m a s . C u a n d o< f o r m a t >e su n od el o ss i g u i e n t e s :g n u p l o t ,X m a x i m a ,m g n u p l o t og n u p l o t _ p i p e s . S ee s t a b l e c ee lf o r m a t oq u es eu t i l i z a r p a r ae lt r a z a d o .
O p c i nT e r r e n o :p l o t _ r e a l p a r t[ p l o t _ r e a l p a r t ,< s y m b o l > ] V a l o rp o rd e f e c t o :f a l s e' S is ee s t a b l e c ee n` t r u e' ,s et e n d r ne nc u e n t al a sf u n c i o n e sq u es ep i n t a r n c o m of u n c i o n e sc o m p l e j a s ,c u y ov a l o rr e a ld e b e ns e rt r a z a d o s ,l oq u ee s e q u i v a l e n t eat r a z a r` r e a l p a r t( < f u n c i n > ) .S is ee s t a b l e c ee n' f a l s e ' , n a d as et r a z ac u a n d ol af u n c i nn od au n av e r d a d e r a v a l o r .P o re j e m p l o ,c u a n d o' x 'e sn e g a t i v o ,` l o g( x )d au n a v a l o rc o m p l e j o ,c o nv a l o rr e a li g u a la` l o g( a b s( x ) )' ,s i ` P l o t _ r e a l p a r t' f u e r a 't r u e' , `l o g( 5 ) 's er e p r e s e n t ac o m o ` L o g( 5 )' ,m i e n t r a sq u en a d as et r a z as i `p l o t _ r e a l p a r t 'f u e r o n ' F a l s e ' .
O p c i nT e r r e n o :p o i n t _ t y p e[ p o i n t _ t y p e ,< t y p e _ 1 > ,. . . ,< t y p e _ n > ] V a l o rp o rd e f e c t o :' b u l l e t ' ,' c r c u l o ' ,' p l u s ' ,' t i e m p o s ' ,' e s t r e l l a ' , ` C a j a' , 'c u a d r a d o' , 't r i n g u l o' , 'd e l t a' , 'c u a' , 'n a b l a' , 'd i a m a n t e' , ` P a s t i l l a' E ng n u p l o t ,c a d ac o n j u n t od ep u n t o sq u es et r a z a r nc o ne le s t i l o " P u n t o s "o" l i n e s p o i n t s "e s t a r nr e p r e s e n t a d o sc o no b j e t o st o m a d o s d ee s t al i s t a ,e no r d e ns e c u e n c i a l .S ih a ym sc o n j u n t o sd e p u n t o sq u el o so b j e t o sd ee s t al i s t a ,q u es er e p e t i r n s e c u e n c i a l m e n t e .L o sp o s i b l e so b j e t o sq u es ep u e d e nu t i l i z a rs o n : ' B a l a ' ,' c r c u l o ' ,' p l u s ' ,' t i e m p o s ' ,' e s t r e l l a ' ,` c a j a' , 'c u a d r a d o' , ' T r i n g u l o ' ,' d e l t a ' ,' c u a ' ,' n a b l a ' ,' d i a m a n t e ' ,' p a s t i l l a '
O p c i nT e r r e n o :p s f i l e[ p s f i l e ,< c a d e n a > ] G u a r d ae lg r f i c oe nu na r c h i v oP o s t S c r i p tc o ne ln o m b r ei g u a la< c a d e n a > , e nl u g a rd em o s t r a re nl ap a n t a l l a .D ef o r m ap r e d e t e r m i n a d a ,e la r c h i v os e r c r e a d oe ne ld i r e c t o r i od e f i n i d op o re l` m a x i m a _ t e m p d i r' v a r i a b l e . E lv a l o rd ee s t av a r i a b l es ep u e d ec a m b i a rp a r ag u a r d a re la r c h i v oe nu n d i r e c t o r i od i f e r e n t e .
O p c i nT e r r e n o :r u n _ v i e w e r[ r u n _ v i e w e r ,< s y m b o l > ] V a l o rp o rd e f e c t o :t r u e' C o n t r o l as ie lv i s o ra p r o p i a d op a r ae lf o r m a t od et r a m a s ed e b ee j e c u t a r .
O p c i nT e r r e n o :e s t i l o[ e s t i l o ,< t y p e _ 1 > ,. . . ,< t y p e 1 _ n > ] O p c i nT e r r e n o :e s t i l o[ e s t i l o ,[ < s t y l e _ 1 > ] ,. . . ,[ < s t y l e _ n > ] ] V a l o rp o rd e f e c t o :` l n e a s' ( t r a z a r t o d o sl o sc o n j u n t o sd ep u n t o su n i d o sc o n l n e a sd eg r o s o r1yl ap r i m e r ad ec o l o rd a d op o rl ao p c i n C o l o rd e l` ' ) . L o se s t i l o sq u es eu t i l i z a r np a r al a sd i v e r s a sf u n c i o n e soc o n j u n t o sd e d a t o se ng r f i c o s2 d .L ap a l a b r a< s t y l e >d e b ei rs e g u i d od eu n oo m se s t i l o s .S ih a ym sf u n c i o n e syc o n j u n t o sd ed a t o sq u ee l e s t i l o sd e t e r m i n a d o s ,s er e p e t i r nl o se s t i l o s .C a d ae s t i l op u e d es e r y as e a< l i n e s >p a r as e g m e n t o sd el n e a ,p a r ap u n t o sa i s l a d o s , < l i n e s p o i n t s >d es e g m e n t o syp u n t o s ,o< d o t s >p a r ap e q u e o s p u n t o sa i s l a d o s .G n u p l o tt a m b i na c e p t ae le s t i l o . C a d au n od el o se s t i l o sp u e d es e re n c e r r a d od e n t r od eu n al i s t ac o na l g u n o s p a r m e t r o sa d i c i o n a l e s .< l i n e s >a c e p t au n ood o sn m e r o s :e l a n c h u r ad el al n e ayu ne n t e r oq u ei d e n t i f i c au nc o l o r .L a c d i g o sd ec o l o r e sp o rd e f e c t os o n :1a z u l ,2r o j o ,3 :m a g e n t a ,4 :n a r a n j a , 5 :m a r r n ,6 :c a ly7 :a q u a .S iu t i l i z aG n u p l o tc o nu nt e r m i n a l d i f e r e n t ed eX 1 1 ,e s t o sc o l o r e sp u e d e ns e rd i f e r e n t e s ,p o re j e m p l o , s iu t i l i z al ao p c i n[ < g n u p l o t _ t e r m > , ] , n d i c ed ec o l o r4s e c o r r e s p o n d e nan e g r o ,e nv e zd en a r a n j a . a c e p t au n od o sot r e sp a r m e t r o s ,e lp r i m e rp a r m e t r o e se lr a d i od el o sp u n t o s ,e ls e g u n d op a r m e t r oe su nn m e r oe n t e r o q u es e l e c c i o n ae lc o l o r ,u s a n d oe lm i s m oc d i g ou t i l i z a d op a r a< l i n e s >y e lt e r c e rp a r m e t r os eu t i l i z aa c t u a l m e n t es l op o rG n u p l o tyh a c e c o r r e s p o n d eav a r i o so b j e t o se nl u g a rd ep u n t o s .E lv a l o rp o rd e f e c t o t i p o sd eo b j e t o ss o n :1 :c r c u l o sr e l l e n o s ,2 :c r c u l o sa b i e r t o s ,3 :m s
125/633
28/08/13

s i g n o s ,4 :X ,5 ,6 :* :p l a z a sl l e n a s ,7 :p l a z a sa b i e r t a s ,8 :l l e n o s t r i n g u l o s ,9 :t r i n g u l o sa b i e r t o s ,1 0 :t r i n g u l o si n v e r t i d o sr e l l e n o s ,1 1 : a b r i rt r i n g u l o si n v e r t i d o s ,1 2 :p a s t i l l a sr e l l e n a sy1 3 :p a s t i l l a sa b i e r t a s . < l i n e s d o t s >a c e p t ah a s t ac u a t r op a r m e t r o s :a n c h od el n e a ,p u n t o s r a d i o ,e lc o l o rye lt i p od eo b j e t op a r as u s t i t u i ral o sp u n t o s . V a s et a m b i ne lc o l o rd e l` ' y `p o i n t _ t y p e ' .
O p c i nT e r r e n o :t[ t ,< m i n > ,< m a x > ] V a l o rp o rd e f e c t o :3' ,` 3 ' R a n g op o rd e f e c t op a r al o sg r f i c o sp a r a m t r i c o s .
O p c i nT e r r e n o :t r a n s f o r m _ x y[ t r a n s f o r m _ x y ,< s y m b o l > ] V a l o rp o rd e f e c t o :f a l s e' C u a n d o< s y m b o l >e sob i e n` f a l s o' oe lr e s u l t a d oo b t e n i d om e d i a n t ee lu s o l af u n c i n` t r a n s f o r m _ x y' .S ie sd i f e r e n t ea` f a l s e' ,l oh a r s e ru t i l i z a d op a r at r a n s f o r m a rl a sc o o r d e n a d a se n3d i b u j a r 3 d . C o n s u l t e` m a k e _ t r a n s f o r m' , `p o l a r _ t o _ x y 'y` s p h e r i c a l _ t o _ x y z' .
O p c i nT e r r e n o :x[ x ,< m i n > ,< m a x > ] C u a n d os eu t i l i z ac o m ol ap r i m e r ao p c i ne nu nc o m a n d o` p l o t 2 d' ( oc u a l q u i e r ad el o s d o sp r i m e r oe n` p l o t 3 d' ) ,i n d i c aq u el ap r i m e r ai n d e p e n d i e n t e v a r i a b l ee sxys ee s t a b l e c es ua l c a n c e .T a m b i np u e d es e ru t i l i z a d od en u e v o d e s p u sd el ap r i m e r ao p c i n( od e s p u sd el as e g u n d ao p c i ne np l o t 3 d )p a r a d e f i n i re ld o m i n i oh o r i z o n t a le f e c t i v aq u es em u e s t r ae nl a p a r c e l a .
O p c i nT e r r e n o :x l a b e l[ x l a b e l ,< c a d e n a > ] E s p e c i f i c ae l< c a d e n a >q u em a r c a re lp r i m e re j e ,ys ie s t o o p c i nn os eu t i l i z a ,l ae t i q u e t as e r e ln o m b r ed el ai n d e p e n d e n c i a v a r i a b l e se nt a b l a sd ef u n c i o n e sc o n` p l o t 2 d "o ` I m p l i c i t _ p l o t' ,oe ln o m b r ed el ap r i m e r av a r i a b l e ,a lt r a z a r s u p e r f i c i e sc o np l o t 3 d` ' ol o sc o n t o r n o sc o n `c o n t o u r _ p l o t ' ,ol a p r i m e r ae x p r e s i ne ne lc a s od eu n ac u r v ap a r a m t r i c a .N op u e d es e r u t i l i z a d ac o n` s e t _ p l o t _ o p t i o n .
O p c i nT e r r e n o :y[ y ,< m i n > ,< m a x > ] C u a n d os eu t i l i z ac o m ou n ad el a sd o sp r i m e r a so p c i o n e se n` d i b u j a r 3 d' ,s e i n d i c aq u eu n ad el a sv a r i a b l e si n d e p e n d i e n t e se sy ,ys ec o l o c a s u r e ad ed i s t r i b u c i n .D el oc o n t r a r i o ,s ed e f i n ee ld o m i n i oe f i c a zd el a s e g u n d av a r i a b l eq u es em u e s t r ae ne ld i a g r a m a .
O p c i nT e r r e n o :y l a b e l[ y l a b e l ,< c a d e n a > ] E s p e c i f i c ae l< c a d e n a >q u em a r c a re ls e g u n d oe j e ,ys ie s t o o p c i nn os eu t i l i z a ,l ae t i q u e t as e r " y " ,e nt a b l a sd ef u n c i o n e s c o n` p l o t 2 d' o ì m p l i c i t _ p l o t ' ,oe ln o m b r ed el as e g u n d a v a r i a b l e s ,a lt r a z a rs u p e r f i c i e sc o n` p l o t 3 d "oc o n t o r n o sc o n ` C o n t o u r _ p l o t' ,ol as e g u n d ae x p r e s i ne ne lc a s od eu n d i a g r a m ap a r a m t r i c o .N os ep u e d eu t i l i z a rc o n` s e t _ p l o t _ o p t i o n' .
O p c i nT e r r e n o :z[ z ,< m i n > ,< m a x > ] S eu t i l i z ae n` p l o t 3 d' p a r ae s t a b l e c e re la l c a n c ee f e c t i v od el o sv a l o r e sd ezq u e s em u e s t r ae ne ld i a g r a m a .
O p c i nT e r r e n o :z l a b e l[ z l a b e l ,< c a d e n a > ] E s p e c i f i c ae l< c a d e n a >q u ee t i q u e t a re lt e r c e re j e ,c u a n d os eu t i l i z a ` D i b u j a r 3 d' .S in os eu t i l i z ae s t ao p c i n ,l ae t i q u e t as e r " z " , a lt r a z a rs u p e r f i c i e s ,ol at e r c e r ae x p r e s i ne ne lc a s od eu n d i a g r a m ap a r a m t r i c o .N os ep u e d eu t i l i z a rc o n` s e t _ p l o t _ o p t i o n' y s e r i g n o r a d op o r` p l o t 2 d' y ì m p l i c i t _ p l o t ' .
12.5 Opciones de Gnuplot

28/08/13

H a yv a r i a so p c i o n e sg r f i c a se s p e c f i c a sd eg n u p l o t .T o d o se l l o sc o n s i s t e n d eu n ap a l a b r ac l a v e( e ln o m b r ed el ao p c i n ) ,s e g u i d od eu n ac a d e n aq u ed e b e s e ru nc o m a n d ov l i d od eg n u p l o t ,p a r ap a s a rd i r e c t a m e n t eag n u p l o t .E nl am a y o r a l o sc a s o s ,e x i s t eu n ao p c i nd et r a z a d oc o r r e s p o n d i e n t eq u ep r o d u c i r u n e sm sr e c o m e n d a b l er e s u l t a d os i m i l a ryc u y ou s od el ag n u p l o t o p c i ne s p e c f i c a .
O p c i nT e r r e n o :g n u p l o t _ t e r m E s t a b l e c ee lt i p od et e r m i n a ld es a l i d ap a r ag n u p l o t . * *D e f e c t o*( v a l o rp r e d e t e r m i n a d o ) G n u p l o tm u e s t r ae lg r f i c oe nu n av e n t a n ag r f i c ai n d e p e n d i e n t e . * *T o n t o* G n u p l o tm u e s t r ae lg r f i c oe nl ac o n s o l ad eM a x i m a " A r t eA S C I I "a p r o x i m a c i nal o sg r f i c o s . * *P s* G n u p l o tg e n e r ac d i g oe nl ad e s c r i p c i nd ep g i n aP o s t S c r i p t i d i o m a .S il ao p c i n` g n u p l o t _ o u t _ f i l e' e s t a j u s t a d oa < f i l e n a m e > ,g n u p l o te s c r i b el o sc o m a n d o sP o s t S c r i p t < f i l e n a m e > .D el oc o n t r a r i o ,s eg u a r d ac o m oa r c h i v o` m a x p l o t . p s' . *C u a l q u i e ro t r ae s p e c i f i c a c i np l a z og n u p l o tv l i d a G n u p l o tp u e d eg e n e r a rg r f i c o se no t r o sm u c h o sf o r m a t o sg r f i c o s t a l e sc o m op n g ,j p e g ,s v ge t cP a r ac r e a rt r a m ad et o d o se s t o s f o r m a t o sd e l` g n u p l o t _ t e r m "s ep u e d e na j u s t a rac u a l q u i e ra p o y o N o m b r ep l a z og n u p l o t( s m b o l o )oi n c l u s oat r m i n og n u p l o t e s p e c i f i c a c i nd el a so p c i o n e sv l i d a s( c a d e n a ) .P o re j e m p l o ` [ G n u p l o t _ t e r m ,p n g ]' c r e au n as a l i d ae nf o r m a t oP N G( P o r t a b l eN e t w o r k G r f i c o s )f o r m a t o ,m i e n t r a sq u e` [ g n u p l o t _ t e r m , "T a m a op n g1 0 0 0 , 1 0 0 0" ]' c r e aP N Gd e1 0 0 0x1 0 0 0T a m a od ep x e l e s .S il ao p c i n ` G n u p l o t _ o u t _ f i l e' s ee s t a b l e c ee n< f i l e n a m e > ,g n u p l o te s c r i b ee l s a l i d a< f i l e n a m e > .D el oc o n t r a r i o ,s eg u a r d ac o m o A r c h i v o` m a x p l o t .< t e r m' ,D o n d e< t e r me sg n u p l o tn o m b r ed e lt e r m i n a l .
O p c i nT e r r e n o :g n u p l o t _ o u t _ f i l e C u a n d os eu t i l i z aj u n t oc o nl ao p c i n` g n u p l o t _ t e r m' ,q u ep u e d es e r s eu t i l i z ap a r ag u a r d a re lg r f i c oe nu na r c h i v o ,e nu n od el o sf o r m a t o sg r f i c o s a p o y a d op o rG n u p l o t .S id e s e ac r e a ru na r c h i v oP o s t S c r i p t , p u e d eu t i l i z a rl ao p c i n` p s f i l e' e nc a m b i o ,q u et a m b i nt r a b a j a r e n O p e n m a t h ,yh a c el om i s m oc o nu n as o l ao p c i n . [ G n u p l o t _ t e r m ,p n g ] ,[ g n u p l o t _ o u t _ f i l e ," g r a p h 3 . p n g " ]
O p c i nT e r r e n o :g n u p l o t _ p m 3 d C o nu nv a l o rd e` f a l s o' ,q u ep u e d es e ru t i l i z a d op a r ap r e v e n i re lu s od e M o d oP M 3 D ,q u ee s t h a b i l i t a d od ef o r m ap r e d e t e r m i n a d a .
O p c i nT e r r e n o :g n u p l o t _ p r e a m b l e I n s e r t ac o m a n d o sg n u p l o ta n t e sd el at r a m as ed i b u j a .C u a l q u i e rv l i d a i n s t r u c c i o n e sd eg n u p l o ts ep u e d e nu t i l i z a r .M l t i p l e sc o m a n d o sd e b e ns e r s e p a r a d o sp o ru np u n t oyc o m a .E le j e m p l oq u es em u e s t r ap r o d u c eu nr e g i s t r o e s c a l ad et r a z a d o .E lv a l o rp o rd e f e c t op a r a` g n u p l o t _ p r e a m b l e' e se lv a c o c a d e n a' " " ' .
O p c i nT e r r e n o :g n u p l o t _ c u r v e _ t i t l e s E s t ae su n av i e j ao p c i nq u eh as i d os u s t i t u i d op o r` l e y e n d a' d e s c r i t o a n t e r i o r m e n t e .
O p c i nT e r r e n o :g n u p l o t _ c u r v e _ s t y l e s E s t ae su n ao p c i no b s o l e t aq u eh as i d os u s t i t u i d op o r` e s t i l o' .
O p c i nT e r r e n o :g n u p l o t _ d e f a u l t _ t e r m _ c o m m a n d C o m a n d od eg n u p l o tp a r ae s t a b l e c e re lt i p od et e r m i n a lp a r ae lv a l o rp o rd e f e c t o t e r m i n a l .E lv a l o rp o rd e f e c t oe s` "s e tp o pt r m i n o" ' .
O p c i nT e r r e n o :g n u p l o t _ d u m b _ t e r m _ c o m m a n d
127/633
28/08/13

C o m a n d od eg n u p l o tp a r ae s t a b l e c e re lt i p od et e r m i n a lp a r al o sm u d o s t e r m i n a l .E lv a l o rp o rd e f e c t oe s` "s e tt e r md u m b7 92 2" ' ,q u e h a c eq u el as a l i d ad et e x t od e7 9c a r a c t e r e sp o r2 2c a r a c t e r e s .
O p c i nT e r r e n o :g n u p l o t _ p s _ t e r m _ c o m m a n d C o m a n d od eg n u p l o tp a r ae s t a b l e c e re lt i p od et e r m i n a lp a r ae lP o s t S c r i p t t e r m i n a l .E lv a l o rp o rd e f e c t oe s` "e s t a b l e c e re lt a m a o1 . 5 ,1 . 5 ;p l a z oe s t a b l e c i d o P o s t S c r i p te p sm a y o rc o l o rs l i d o2 4" ' ,q u ed e f i n ee lt a m a od e 1 , 5v e c e sd eg n u p l o tp r e d e t e r m i n a d oye lt a m a od ef u e n t ed e2 4 ,e n t r eo t r o s c o s a s .C o n s u l t el ad o c u m e n t a c i nd eg n u p l o tp a r a` s e tt e r mp o s t s c r i p t' p a r am si n f o r m a c i n .
12.6 gnuplot_pipes funciones de formato

F u n c i n :g n u p l o t _ s t a r t( ) A b r el at u b e r ap a r ag n u p l o tu t i l i z a d op a r at r a z a re l ' F o r m a t o 'g n u p l o t _ p i p e s .N oe sn e c e s a r i oa b r i rm a n u a l m e n t el a a n t e sd eh a c e rg r f i c o s .
F u n c i n :g n u p l o t _ c l o s e( ) C i e r r ae lt u b od eg n u p l o tq u es eu t i l i z ac o nl o s` g n u p l o t _ p i p e s' f o r m a t o .
F u n c i n :g n u p l o t _ r e s t a r t( ) C i e r r ae lt u b od eg n u p l o tq u es eu t i l i z ac o nl o s` g n u p l o t _ p i p e s' f o r m a t oya b r eu n an u e v at u b e r a .
F u n c i n :g n u p l o t _ r e p l o t( ) F u n c i n :g n u p l o t _ r e p l o t( < S > ) A c t u a l i z al av e n t a n ad eG n u p l o t .S i` g n u p l o t _ r e p l o t' s el l a m ac o nu n C o m a n d od eg n u p l o te nu n< S >c a d e n a ,e n t o n c e s` s "s ee n v aag n u p l o t a n t e sd er e d i b u j a rl av e n t a n a .
F u n c i n :g n u p l o t _ r e s e t( ) R e s t a b l e c ee le s t a d od eg n u p l o ts eu t i l i z ac o nf o r m a t od el o s` g n u p l o t _ p i p e s' P a r aa c t u a l i z a rl av e n t a n ad el l a m a d ag n u p l o t` g n u p l o t _ r e p l o t "d e s p u s ` G n u p l o t _ r e s e t' .
13 Entrada y salida de archivos

C o m e n t a r i o s A r c h i v o s F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s F u n c i o n e syv a r i a b l e sp a r al as a l i d aT e X F u n c i o n e syv a r i a b l e sp a r aF o r t r a ns a l i d a
13.1 Comentarios
U nc o m e n t a r i oe nl ae n t r a d aM a x i m ae sc u a l q u i e rt e x t oe n t r e' /* 'y' */ ' . E la n a l i z a d o rs i n t c t i c od eM a x i m at r a t al o sc o m e n t a r i o sc o m oe s p a c i o se nb l a n c oc o ne lf i nd e e n c o n t r a rt o k e n se ne lf l u j od ee n t r a d a ;u ns m b o l os i e m p r et e r m i n ae nu nc o m e n t a r i o . U n ae n t r a d ac o m o` a/*f o o*/b' c o n t i e n ed o st o k e n s , à 'y' b ' ,y n iu ns o l ot o k e n` a b' .L o sc o m e n t a r i o ss o ni g n o r a d o sp o rM a x i m al oc o n t r a r i o ; n ie lc o n t e n i d on il au b i c a c i nd el o sc o m e n t a r i o ss ea l m a c e n a ne na n a l i z a d a e x p r e s i o n e sd ee n t r a d a . L o sc o m e n t a r i o sp u e d e na n i d a r s eh a s t au n ap r o f u n d i d a da r b i t r a r i a .E l` /*' y '*/' d e l i m i t a d o r e sf o r m a np a r e si g u a l e s .D e b eh a b e re lm i s m on m e r od e` /*' y aq u eh a y` */' . E j e m p l o s : ( %I 1 )/*a ae su n av a r i a b l ed ei n t e r s*/a a :1 2 3 4 ; ( %O 1 )1 2 3 4 ( %I 2 )/*V a l o rd eb bd e p e n d ea a*/b b :a a^2 ; ( %O 2 )1 5 2 2 7 5 6 ( %I 3 )/*D e f i n i d op o re lu s u a r i oo p e r a d o ri n f i j o*/i n f i j o( " b " ) ;
128/633
28/08/13

( %O 3 )b ( %I 4 )/*A n a l i z am i s m oq u ea b c ,a b cn o*/a/*f o o*/b/*b a r r a*/c ; ( %O 4 )a b c ( %I 5 )/*C o m e n t a r i o s/*s ep u e d ea n i d a r/*ac u a l q u i e rp r o f u n d i d a d*/*/*/1+x y z ; ( %O 5 )x y z+1
13.2 Archivos
U na r c h i v on oe sm sq u eu n r e ad eu nc i e r t od i s p o s i t i v od ea l m a c e n a m i e n t oq u ec o n t i e n e d a t o sot e x t o .L o sa r c h i v o se nl o sd i s c o ss ea g r u p a ne ns e n t i d of i g u r a d o " D i r e c t o r i o s " .U nd i r e c t o r i oe ss i m p l e m e n t eu n al i s t ad ea r c h i v o s .C o m a n d o sd el ac u a l a c u e r d oc o nl o sa r c h i v o ss o n : a p p e n d f i l el o t e sb a t c h l o a d f u n c i nc l o s e f i l ef i l e _ o u t p u t _ a p p e n df i l e n a m e _ m e r g e f i l e _ s e a r c hf i l e _ s e a r c h _ m a x i m af i l e _ s e a r c h _ l i s p f i l e _ s e a r c h _ d e m of i l e _ s e a r c h _ u s a g ef i l e _ s e a r c h _ t e s t s f i l e _ t y p ef i l e _ t y p e _ l i s pf i l e _ t y p e _ m a x i m a c a r g al o a d _ p a t h n a m el o a d f i l e l o a d p r i n tp a t h n a m e _ d i r e c t o r yp a t h n a m e _ n a m e p a t h n a m e _ t y p ep r i n t f i l eg u a r d a r s t r i n g o u tw i t h _ s t d o u tw r i t e f i l e C u a n d ou nn o m b r ed ea r c h i v os ep a s aaf u n c i o n e sc o m o` p l o t 2 d' , ' G u a r d a r 'o` w r i t e f i l e "ye ln o m b r ed e la r c h i v on oi n c l u y eu n ar u t a , M a x i m aa l m a c e n ae la r c h i v oe ne ld i r e c t o r i od et r a b a j oa c t u a l .L aa c t u a l d i r e c t o r i od et r a b a j od e p e n d ed e ls i s t e m ac o m oW i n d o w soL i n u xye n l ai n s t a l a c i n .
13.3 Funciones y variables para entrada y salida de archivos

F u n c i n :a p p e n d f i l e( < f i l e n a m e > ) A a d ei n f o r m a c i nd el ac o n s o l ap a r a< f i l e n a m e > .` A p p e n d f i l e' e sl a m i s m ac o m o` w r i t e f i l e' ,e x c e p t oq u ee la r c h i v od et r a n s c r i p c i n ,s is e e x i s t e ,s i e m p r es ea d j u n t a . ` F u n c i nc l o s e f i l e' c i e r r al o sa r c h i v o sa b i e r t o sp o r à p p e n d f i l e" o ` W r i t e f i l e' .
F u n c i n :b a t c h( < f i l e n a m e > ) F u n c i n :b a t c h( < f i l e n a m e > ,' o p c i n ' ) ` B a t c h( < f i l e n a m e > )' l e el a se x p r e s i o n e sd eM a x i m ad e s d e< f i l e n a m e >y l o se v a l a .B s q u e d a s` l o t e s' p a r a< f i l e n a m e >e nl al i s t a ` F i l e _ s e a r c h _ m a x i m a' .C o n s u l t et a m b i n` f i l e _ s e a r c h' . ` B a t c h( < f i l e n a m e > ,' d e m o ' )' e sc o m o 'd e m o( < f i l e n a m e > ) .E ne s t e c a s oB s q u e d a s` l o t e s' p a r a< f i l e n a m e >e nl al i s t a ` F i l e _ s e a r c h _ d e m o' .C o n s u l t e` d e m o' . ` B a t c h( < f i l e n a m e > , `t e s t' ) 'e sc o m o' r u n _ t e s t s u i t e" c o ne l o p c i n` d i s p l a y _ a l l=t r u e' .P o rB s q u e d a se s t ec a s o` l o t e s' < f i l e n a m e >e nl al i s t a` f i l e _ s e a r c h _ m a x i m a' yn oe nl al i s t a ` F i l e _ s e a r c h _ t e s t s' c o m o `r u n _ t e s t s u i t e ' .P o ro t r ap a r t e , ` R u n _ t e s t s u i t e' e j e c u t al a sp r u e b a sq u es ee n c u e n t r a ne nl al i s t a `t e s t s u i t e _ f i l e s . C o n` l o t e s ep u e d ee j e c u t a rc u a l q u i e ra r c h i v oe nu nm o d od ep r u e b a ,l oq u e s ep u e d e ne n c o n t r a re nl al i s t a` f i l e _ s e a r c h _ m a x i m a' .E s t oe s t i l , a le s c r i b i ru na r c h i v od ep r u e b a . < f i l e n a m e >c o m p r e n d eu n as e c u e n c i ad ee x p r e s i o n e sd eM a x i m a ,c a d a t e r m i n a d oc o n' ; 'o' $ ' .L av a r i a b l ee s p e c i a l` %' ye l f u n c i n` %t h' s er e f i e r e nar e s u l t a d o sp r e v i o sd e n t r od e la r c h i v o .L a a r c h i v op u e d ei n c l u i r` :c o n s t r u c c i o n e sd et i p o :l i s p .E s p a c i o s ,t a b u l a c i o n e sys a l t o sd el n e a e ne la r c h i v os ei g n o r a n .U na r c h i v od ee n t r a d av l i d op u e d ec r e a r s ep o r u ne d i t o rd et e x t oop o rl af u n c i n` s t r i n g o u t' . ` B a t c h' l e el a se x p r e s i o n e sd e l< f i l e n a m e > ,m u e s t r ae l d ee n t r a d aal ac o n s o l a ,c a l c u l al as a l i d ac o r r e s p o n d i e n t e e x p r e s i n ,ym u e s t r al ae x p r e s i nd es a l i d a .E t i q u e t a sd ee n t r a d as o n a s i g n a d o sal a se x p r e s i o n e sd ee n t r a d ayd es a l i d ad el a se t i q u e t a ss ea s i g n a n al a se x p r e s i o n e sd es a l i d a .` B a t c h' e v a l ac a d ae n t r a d a e x p r e s i ne ne la r c h i v oam e n o sq u eh a y au ne r r o r .S il ae n t r a d ad e lu s u a r i oe s s o l i c i t a d a( p o r` a s k s i g n' o à s k i n t e g e r ' ,p o re j e m p l o )p o rl o t e` ' p a u s a sp a r ar e c o g e rl ae n t r a d ar e q u e r i d ayl u e g oc o n t i n e . P u e d es e rp o s i b l ed e t e n e rb a t c h` ' e s c r i b i e n d o `C o n t r o l C 'a l c o n s o l a r .E le f e c t od e' C o n t r o l C 'd e p e n d ed e le n t o r n oL i s p a p l i c a c i n . L o t e` ' t i e n ev a r i o su s o s ,t a l e sc o m op a r ap r o p o r c i o n a ru nd e p s i t op a r a t r a b a j a nl a sl n e a sd ec o m a n d o s ,p a r ad a rd e m o s t r a c i o n e sl i b r e sd ee r r o r e s ,ob i e na a y u d a rao r g a n i z a re lp e n s a m i e n t od eu n oe nl as o l u c i nd ep r o b l e m a sc o m p l e j o s . ` B a t c h' e v a l as u sa r g u m e n t o s .` B a t c h' d e v u e l v el ar u t ad e < f i l e n a m e >c o m ou n ac a d e n a ,c u a n d os ei n v o c as i na r g u m e n t o sos e g u n d o c o nl ao p c i n' d e m o ' .C u a n d os ei n v o c ac o nl ao p c i n` t e s t' ,l a v a l o rd er e t o r n oe su nu n al i s t av a c a` [ ]' ou n al i s t ac o n< f i l e n a m e >y l o sn m e r o sd el a sp r u e b a sq u eh a nf a l l a d o .
129/633
28/08/13

V a s et a m b i n' c a r g a ' ,` b a t c h l o a d' ,y 'd e m o' .
F u n c i n :b a t c h l o a d( < f i l e n a m e > ) L e ee x p r e s i o n e sd eM a x i m ad e s d e< f i l e n a m e >yl o se v a l a , s i nm o s t r a rl ae n t r a d aoe x p r e s i o n e sd es a l i d a ,ys i n a s i g n a r l e se t i q u e t a sd es a l i d a .L as a l i d ai m p r e s a( p o re j e m p l o , p r o d u c i d op o r` p r i n t' o `d e s c r i b e ' )s em u e s t r a ,s i ne m b a r g o . L av a r i a b l ee s p e c i a l` %' yl af u n c i n ` %t h 's er e f i e r e nal aa n t e r i o r r e s u l t a d o sd e li n t r p r e t ei n t e r a c t i v o ,n oal o sd e l a r c h i v o .E la r c h i v on op u e d ei n c l u i r` :c o n s t r u c c i o n e sd et i p o :l i s p . ` B a t c h l o a d' d e v u e l v el ar u t ad e< f i l e n a m e > ,c o m ou n ac a d e n a . ` B a t c h l o a d' e v a l as u sa r g u m e n t o s . V a s et a m b i n' b a t c h ' ,y' c a r g a ' .
F u n c i n :f u n c i nc l o s e f i l e( ) C i e r r al o sa r c h i v o sa b i e r t o sp o rw r i t e f i l e` ' o à p p e n d f i l e ' .
V a r i a b l eo p c i o n a l :f i l e _ o u t p u t _ a p p e n d V a l o rp o rd e f e c t o :f a l s e' G o b i e r n a` f i l e _ o u t p u t _ a p p e n d "s il a sf u n c i o n e sd ea r c h i v oA n e x a r os u s t i t u y e ne lf i c h e r od es a l i d a .C u a n d o` f i l e _ o u t p u t _ a p p e n d' e s ` T r u e' ,t a l e sf u n c i o n e sd e b e na a d i ras ua r c h i v od es a l i d a .D el oc o n t r a r i o , e la r c h i v od es a l i d as et r u n c a . ` S a v e' , `s t r i n g o u t ' ,ye lr e s p e t o` w i t h _ s t d o u t' ` C u e n t ae s t ev a l o r " .O t r a sf u n c i o n e sq u es ee s c r i b e nl o sa r c h i v o sd es a l i d ah a c e n N or e s p e t a r` f i l e _ o u t p u t _ a p p e n d' .E np a r t i c u l a r ,e lt r a z a d oy f u n c i o n e sd et r a d u c c i ns i e m p r es u s t i t u y e ne lf i c h e r od es a l i d a ,y' t e x ' y` a p p e n d f i l e "s i e m p r ea n e x a r .
F u n c i n :f i l e n a m e _ m e r g e( < r u t a > ,< f i l e n a m e > ) C o n s t r u y eu n ar u t am o d i f i c a d aap a r t i r< r u t a >y< f i l e n a m e > .S ie l c o m p o n e n t ef i n a ld e< r u t a >e sd el af o r m a` ### .< a l g o >' ,l a c o m p o n e n t ee sr e e m p l a z a d op o r` < f i l e n a m e > .< a l g o >' .D el oc o n t r a r i o , e lc o m p o n e n t ef i n a ls er e e m p l a z as i m p l e m e n t e< f i l e n a m e > . E lr e s u l t a d oe su no b j e t od er u t aL i s p .
F u n c i n :f i l e _ s e a r c h( < f i l e n a m e > ) F u n c i n :f i l e _ s e a r c h( < f i l e n a m e > , ) B s q u e d a sf i l e _ s e a r c h` ' p a r ae la r c h i v o< f i l e n a m e >yd e v u e l v el o s r u t ad ea c c e s oa la r c h i v o( c o m ou n ac a d e n a )s is ep u e d ee n c o n t r a r ,d el oc o n t r a r i o ` F i l e _ s e a r c h' d e v u e l v e 'f a l s e' .` F i l e _ s e a r c h( < f i l e n a m e > )' b s q u e d a se nl o sd i r e c t o r i o sd eb s q u e d ap o rd e f e c t o ,q u es ee s p e c i f i c a ne n e l` f i l e _ s e a r c h _ m a x i m a' , `f i l e _ s e a r c h _ l i s p ' ,y L a sv a r i a b l e s` f i l e _ s e a r c h _ d e m o' . ` C o m p r u e b ap r i m e r of i l e _ s e a r c h "s ie x i s t ee ln o m b r er e a lp a s a d o , a n t e sd et r a t a rd eh a c e r l oc o i n c i d i rc o n" c o m o d n "p a t r o n e sd eb s q u e d ad ea r c h i v o s . C o n s u l t e` f i l e _ s e a r c h _ m a x i m a' s o b r ep a t r o n e sd eb s q u e d ad ea r c h i v o s . E l< f i l e n a m e >a r g u m e n t op u e d es e ru n ar u t ad ea c c e s oyn o m b r ed ea r c h i v o ,os i m p l e m e n t eu n n o m b r ed ea r c h i v o ,ob i e n ,s ie ld i r e c t o r i od eb s q u e d ad ea r c h i v o si n c l u y eu n ab s q u e d ad ea r c h i v o s p a t r n ,s l ol ab a s ed e ln o m b r ed ea r c h i v o( s i ne x t e n s i n ) . P o re j e m p l o , f i l e _ s e a r c h( " /h o m e/w f s/s p e c i a l/z e t a . m a c " ) ; f i l e _ s e a r c h( " z e t a . m a c " ) ; f i l e _ s e a r c h( " z e t a " ) ; t o d o sb u s c a ne lm i s m oa r c h i v o ,s u p o n i e n d oq u ee la r c h i v oe x i s t ey ` /H o m e/w f s/m a cs p e c i a l/### .' S ee n c u e n t r ae n `f i l e _ s e a r c h _ m a x i m a ' . ` F i l e _ s e a r c h( < f i l e n a m e > , )' b u s c as l oe nl a d i r e c t o r i o se s p e c i f i c a d o sp o r ,q u ee su n al i s t ad ec a d e n a s . E la r g u m e n t or e e m p l a z aal o sd i r e c t o r i o sd eb s q u e d ap o rd e f e c t o , p o rl oq u es is ed al al i s t ad er u t a s ,` f i l e _ s e a r c h' b u s c as l ol o s e s p e c i f i c a d o ,yn oc u a l q u i e r ad el o sd i r e c t o r i o sd eb s q u e d ap o rd e f e c t o .A u n q u e s l oh a yu nd i r e c t o r i oe ne l ,q u ed e b es e rs u m i n i s t r a d o c o m ou n al i s t ad eu ne l e m e n t o . E lu s u a r i op u e d em o d i f i c a rl o sd i r e c t o r i o sd eb s q u e d ap o rd e f e c t o .V e r ` F i l e _ s e a r c h _ m a x i m a' . ` F i l e _ s e a r c h' e si n v o c a d ap o r 'c a r g a' c o n `f i l e _ s e a r c h _ m a x i m a" y
130/633
28/08/13

` F i l e _ s e a r c h _ l i s p "c o m ol o sd i r e c t o r i o sd eb s q u e d a .
V a r i a b l eo p c i o n a l :f i l e _ s e a r c h _ m a x i m a V a r i a b l eo p c i o n a l :f i l e _ s e a r c h _ l i s p V a r i a b l eo p c i o n a l :f i l e _ s e a r c h _ d e m o V a r i a b l eo p c i o n a l :f i l e _ s e a r c h _ u s a g e V a r i a b l eo p c i o n a l :f i l e _ s e a r c h _ t e s t s E s t a sv a r i a b l e se s p e c i f i c a nl i s t a sd ed i r e c t o r i o sq u ed e b e nb u s c a rl a L o a d' , 'd e m o' ,ya l g u n a so t r a sf u n c i o n e sd eM a x i m a .E lv a l o rp o rd e f e c t o L o sv a l o r e sd ee s t a sv a r i a b l e sn o m b r a nd i r e c t o r i o sd el aM a x i m a i n s t a l a c i n . E lu s u a r i op u e d em o d i f i c a re s t a sv a r i a b l e s ,b i e np a r as u s t i t u i re ln o m b r ep r e d e t e r m i n a d o v a l o r e soa a d i e n d on u e v o sd i r e c t o r i o s .P o re j e m p l o , f i l e _ s e a r c h _ m a x i m a :[ " ./u s r/l o c a l/f o o/###m a c " , " /U s r/l o c a l/b a r/### .M a c " ]$ s u s t i t u y ee lv a l o rp o rd e f e c t od e` f i l e _ s e a r c h _ m a x i m a' ,m i e n t r a sq u e f i l e _ s e a r c h _ m a x i m a :a p p e n d( f i l e _ s e a r c h _ m a x i m a , [ " /U s r/l o c a l/f o o/### .M a c " ," /u s r/l o c a l/b a r/### .M a c " ] )$ a a d ed o sd i r e c t o r i o sa d i c i o n a l e s .P u e d es e rc o n v e n i e n t ep a r ap o n e r u n ae x p r e s i ne ne lf i c h e r o` m a x i m a i n i t . m a c "p a r aq u ee la r c h i v o r u t ad eb s q u e d as ea s i g n aa u t o m t i c a m e n t ec u a n d os ea r r a n c aM a x i m a .V e r *T a m b i nn o t eI n t r o d u c c i na le n t o r n od ee j e c u c i n .: : V a r i a se x t e n s i o n e sd ea r c h i v o syr u t a ss ep u e d e ne s p e c i f i c a r p o rc o n s t r u c c i o n e se s p e c i a l e s" c o m o d n " .L ac a d e n a' ###" s ee x p a n d e e ne ln o m b r eb u s c a d o ,m i e n t r a sq u eu n al i s t as e p a r a d ap o rc o m a se n c e r r a d o s e n t r el l a v e s{ ` f o o ,b a r ,b a z }' s ee x p a n d ee nv a r i a sc a d e n a s . P o re j e m p l o ,s u p o n i e n d oq u es eb u s c ae ln o m b r en e u m a n nd e s p u se s` ' , " /H o m e/{ w f s ,g c j }/### .{ L i s p ,m a c } " s ee x p a n d ee n` /h o m e/w f s/n e u m a n n . l i s p' , `/h o m e/g c j/n e u m a n n . l i s p ' , ` /H o m e/w f s/n e u m a n n . m a c' y `/h o m e/g c j/n e u m a n n . m a c ' .
F u n c i n :f i l e _ t y p e( < f i l e n a m e > ) D e v u e l v eu n ad e s c r i p c i ns o b r ee lc o n t e n i d od e< f i l e n a m e > ,b a s a d oe ne l n o m b r ed ea r c h i v od ee x t e n s i n .< f i l e n a m e >n ot i e n e nq u er e f e r i r s eau na r c h i v or e a l ; n os ei n t e n t aa b r i re la r c h i v op a r ai n s p e c c i o n a rs uc o n t e n i d o . E lv a l o rd er e t o r n oe su ns m b o l o ,y as e a` o b j e t o' , 'c e c e o " ,o ` M a x i m a' .S il ae x t e n s i ns ec o r r e s p o n d ec o nu n od el o sv a l o r e se n F i l e _ t y p e _ m a x i m a` ' , `f i l e _ t y p e 'd e v u e l v e` m a x i m a' .S ie l e x t e n s i nc o i n c i d ec o nu n od el o sv a l o r e se n` f i l e _ t y p e _ l i s p' , ` F i l e _ t y p e' d e v u e l v e `l i s p .S in a d ad el oa n t e r i o r ,` f i l e _ t y p e' r e g r e s a` o b j e t o' . C o n s u l t et a m b i n` p a t h n a m e _ t y p e' . C o n s u l t e` f i l e _ t y p e _ m a x i m a' y `f i l e _ t y p e _ l i s p 'p a r ae lv a l o rp r e d e t e r m i n a d o v a l o r e s . E j e m p l o s : ( %I 2 )M a p a( ' f i l e _ t y p e , [ " T e s t . l i s p " ," t e s t . m a c " ," t e s t . d e m " ," t e s t . t x t " ] ) ; ( %O 2 )[ l i s p ,m x i m o s ,m x i m o s ,o b j e t o ]
V a r i a b l eo p c i o n a l :f i l e _ t y p e _ l i s p V a l o rp o rd e f e c t o :[ l ,L S P ,l i s p ]' F i l e _ t y p e _ l i s p` ' e su n al i s t ad ee x t e n s i o n e sd ea r c h i v oq u em a x i m a r e c o n o c ec o m od e n o t a n d ou na r c h i v of u e n t eL i s p . C o n s u l t et a m b i n` f i l e _ t y p e' .
V a r i a b l eo p c i o n a l :f i l e _ t y p e _ m a x i m a V a l o rp o rd e f e c t o :[ m a c ,m c ,d e m o ,d e m ,D M 1 ,D M 2 ,d m 3 ,d m t ]' F i l e _ t y p e _ m a x i m a` ' e su n al i s t ad ee x t e n s i o n e sd ea r c h i v oq u em a x i m a r e c o n o c ec o m od e n o t a n d ou na r c h i v of u e n t eM a x i m a . C o n s u l t et a m b i n` f i l e _ t y p e' .
F u n c i n :c a r g a( < f i l e n a m e > ) E v a l al a se x p r e s i o n e se n< f i l e n a m e > ,p o rl ot a n t o ,l a sv a r i a b l e sq u et r a e n ,
131/633
28/08/13

f u n c i o n e syo t r o so b j e t o se nM a x i m a .L au n i nd ec u a l q u i e r o b j e t oe x i s t e n t es ec a s t i g p o rl au n i nr e c u p e r a d od e < f i l e n a m e > .P a r ae n c o n t r a re la r c h i v o :' c a r g a 'l l a m a` f i l e _ s e a r c h' c o n F i l e _ s e a r c h _ m a x i m a` ' y `f i l e _ s e a r c h _ l i s p 'c o m ol ab s q u e d a d i r e c t o r i o s .S i` c a r g a' t i e n e x i t o ,d e v u e l v ee ln o m b r ed e la r c h i v o . D el oc o n t r a r i o` c a r g a' m u e s t r au nm e n s a j ed ee r r o r . ' C a r g a 'f u n c i o n ai g u a ld eb i e np a r ac d i g oL i s pyM a x i m a .A r c h i v o s c r e a d op o r` s a v e' , `t r a n s l a t e _ f i l e 'y` c o m p i l e _ f i l e' ,q u e c r e a rc d i g oL i s p ,y` s t r i n g o u t' ,q u ec r e ac d i g oM a x i m a ,p u e d e q u et o d os eh a y ap r o c e s a d op o rl o a d .' C a r g a 'l l a m a` l o a d f i l e' p a r ac a r g a rL i s p a r c h i v o sy` b a t c h l o a d' p a r ac a r g a ra r c h i v o se nM a x i m a . ' C a r g a 'n or e c o n o c e` :l i s p' c o n s t r u c c i o n e se nf i c h e r o sd eM a x i m a ,y m i e n t r a s< f i l e n a m e >p r o c e s a m i e n t o ,l a sv a r i a b l e sg l o b a l e s` _' , '_ _' , ' %' , y` %t h' m a n t i e n e nl o sv a l o r e sq u et e n a nc u a n d ol o a d 'f u el l a m a d o . C o n s u l t et a m b i n` l o a d f i l e' , `l o t e s ' ,` b a t c h l o a d' ,y 'd e m o' . ` L o a d f i l e' p r o c e s aa r c h i v o se nL i s p , `p o rl o t e s ' ,` b a t c h l o a d' y 'D e m o' p r o c e s a ra r c h i v o se nM a x i m a . C o n s u l t e` f i l e _ s e a r c h "p a r am sd e t a l l e ss o b r ee lm e c a n i s m od eb s q u e d ad ea r c h i v o s . ' C a r g a 'e v a l as u sa r g u m e n t o s .
V a r i a b l ed e ls i s t e m a :l o a d _ p a t h n a m e V a l o rp o rd e f e c t o :f a l s e' C u a n d ou na r c h i v os ec a r g ac o nl af u n c i o n e sl o a d' ,` l o a d f i l e "o ` B a t c h l o a d' e ls i s t e m a 'l o a d _ p a t h n a m ev a r i a b l e "s eu n eal a r u t ad e la r c h i v oq u es ep r o c e s a . E l` l o a d _ p a t h n a m e' v a r i a b l es ep u e d ea c c e d e rd e s d ee la r c h i v od u r a n t el a l ac a r g a . E j e m p l o : S u p o n g a m o sq u et e n e m o su n` t e s t . m a c' b a t c h f i l ee ne ld i r e c t o r i o ` "/H o m e/d i e t a/w o r k s p a c e/m y m a x i m a/t e m p/" ' c o nl o ss i g u i e n t e sc o m a n d o s p r i n t( " E lv a l o rd el o a d _ p a t h n a m ee s : " ,l o a d _ p a t h n a m e )$ p r i n t( " F i nd e la r c h i v ob a t c h " )$ e n t o n c e st e n e m o se ls i g u i e n t er e s u l t a d o ( %I 1 )l o a d( " /h o m e/d i e t a/w o r k s p a c e/m y m a x i m a/t e m p/t e s t . m a c " )$ E lv a l o rd el o a d _ p a t h n a m ee s : /H o m e/d i e t a/w o r k s p a c e/m y m a x i m a/t e m p/t e s t . m a c F i nd eb a t c h f i l e
F u n c i n :l o a d f i l e( < f i l e n a m e > ) E v a l al a se x p r e s i o n e sL i s p< f i l e n a m e > .` L o a d f i l e' n o l l a m a r' f i l e _ s e a r c h ' ,p o rl oq u e` f i l e n a m e' d e b ei n c l u i re la r c h i v o e x t e n s i nyl am a y o rc a n t i d a dd el ar u t a ,s e g ns e an e c e s a r i op a r ab u s c a re la r c h i v o . ` L o a d f i l e' p u e d ep r o c e s a rl o sa r c h i v o sc r e a d o sp o r 'g u a r d a r' , T r a n s l a t e _ f i l e` ' y `c o m p i l e _ f i l e ' .E lu s u a r i op u e d ee n c o n t r a r m sc o n v e n i e n t eu t i l i z a rl o a d' e nl u g a rd e` l o a d f i l e ' .
V a r i a b l eo p c i o n a l :l o a d p r i n t V a l o rp o rd e f e c t o :t r u e' ` L o a d p r i n t' i n d i c as im o s t r a ru nm e n s a j ec u a n d os ec a r g au na r c h i v o . *C u a n d o` l o a d p r i n t' e s `t r u e ' ,s em u e s t r as i e m p r eu nm e n s a j e . *C u a n d o` l o a d p r i n t' e s ` 'l o a d f i l e' ,m u e s t r au nm e n s a j es l os ie l a r c h i v os ec a r g ap o rl af u n c i n` l o a d f i l e' . *C u a n d o` l o a d p r i n t' e s ` 'c a r g aa u t o m t i c a' ,m u e s t r au nm e n s a j es l os ie l a r c h i v os ec a r g aa u t o m t i c a m e n t e .C o n s u l t e` s e t u p _ a u t o l o a d' . *C u a n d o` l o a d p r i n t' e s 'f a l s e' ,n u n c am o s t r a r m e n s a j e s .
F u n c i n :p a t h n a m e _ d i r e c t o r y( < r u t a D e A c c e s o > ) F u n c i n :p a t h n a m e _ n a m e( < r u t a D e A c c e s o > ) F u n c i n :p a t h n a m e _ t y p e( < r u t a D e A c c e s o > ) E s t a sf u n c i o n e sd e v u e l v e nl o sc o m p o n e n t e sd e< r u t a D e A c c e s o > . E j e m p l o s : ( %I 1 )p a t h n a m e _ d i r e c t o r y( " /h o m e/d i e t a/m x i m o s/c h a n g e l o g . t x t " ) ;
132/633
28/08/13

( %O 1 )/h o m e/d i e t a/m x i m o s/ ( %I 2 )p a t h n a m e _ n a m e( " /h o m e/d i e t a/m x i m o s/c h a n g e l o g . t x t " ) ; ( %O 2 )c a m b i o s ( %I 3 )p a t h n a m e _ t y p e( " /h o m e/d i e t a/m x i m o s/c h a n g e l o g . t x t " ) ; ( %O 3 )t x t
F u n c i n :p r i n t f i l e( < r u t a > ) I m p r i m ee lf i c h e r on o m b r a d op o r< r u t a >al ac o n s o l a .p u e d es e ru n c a d e n aou ns m b o l o ,s is et r a t ad eu ns m b o l o ,q u es ec o n v i e r t ee nu n ac a d e n a . S il o sn o m b r e sd eu na r c h i v oq u es ep u e d ea c c e d e rd e s d ee lt r a b a j oa c t u a l d i r e c t o r i o s ,e s ea r c h i v os ei m p r i m ee nl ac o n s o l a .D el oc o n t r a r i o , I n t e n t o s` p r i n t f i l e "p a r al o c a l i z a re la r c h i v oa a d i e n d o< r u t a >a c a d au n od el o se l e m e n t o sd e` f i l e _ s e a r c h _ u s a g e' at r a v sd e `f i l e n a m e _ m e r g e ' . ` P r i n t f i l e' r e g r e s a< r u t a >s is en o m b r aau na r c h i v oe x i s t e n t e ,o d el oc o n t r a r i oe lr e s u l t a d od eu nn o m b r ed ea r c h i v oe x i t o s ac o m b i n a c i nd ec o r r e s p o n d e n c i a .
F u n c i n :g u a r d a r( < f i l e n a m e > ,< n a m e _ 1 > ,< n a m e _ 2 > ,< n a m e _ 3 > ,. . . ) F u n c i n :g u a r d a r( < f i l e n a m e > ,v a l o r e s ,f u n c i o n e s ,e t i q u e t a s ,. . . ) F u n c i n :g u a r d a r( < f i l e n a m e > ,[ < m > ,< n > ] ) F u n c i n :g u a r d a r( < f i l e n a m e > ,< n a m e _ 1 >=< e x p r _ 1 > ,. . . ) F u n c i n :g u a r d a r( < f i l e n a m e > ,t o d o s ) F u n c i n :g u a r d a r( < f i l e n a m e > ,< n a m e _ 1 >=< e x p r _ 1 > ,< n a m e _ 2 >=< e x p r _ 2 > ,. . . ) A l m a c e n al o sv a l o r e sa c t u a l e sd e< n a m e _ 1 > ,< n a m e _ 2 > ,< n a m e _ 3 > ,. . . ,e n < f i l e n a m e > .L o sa r g u m e n t o ss o nl o sn o m b r e sd el a sv a r i a b l e s ,f u n c i o n e s , uo t r o so b j e t o s .S iu nn o m b r en ot i e n ev a l o rof u n c i na s o c i a d a c o n l ,s ei g n o r a .` S a v e' v u e l v e< f i l e n a m e > . ` S a v e' a l m a c e n al o sd a t o se nf o r m ad ee x p r e s i o n e sL i s p .L o sd a t o s a l m a c e n a d op o r` s a v e' s ep u e d er e c u p e r a rp o rl o a d( < f i l e n a m e > ) .V e r ` C a r g a r' . E li n d i c a d o rg l o b a l` f i l e _ o u t p u t _ a p p e n d "g o b i e r n as i` s a l v a r' a a d eot r u n c ae lf i c h e r od es a l i d a .C u a n d o` f i l e _ o u t p u t _ a p p e n d' e s' t r u e ' ,' s a l v a r 'a a d ea la r c h i v od es a l i d a .D el oc o n t r a r i o ,' s a l v a r ' t r u n c ae lf i c h e r od es a l i d a .E nc u a l q u i e rc a s o ,' g u a r d a r 'c r e al a a r c h i v os it o d a v an oe x i s t e . L af o r m ae s p e c i a l` s a v e( < f i l e n a m e > ,v a l o r e s ,f u n c i o n e s ,e t i q u e t a s , . . . )' A l m a c e n al o se l e m e n t o sc u y o sn o m b r e ss o n 'v a l o r e s' , 'f u n c i o n e s' , ' E t i q u e t a s ' ,e t cL o sn o m b r e sp u e d e ns e rc u a l e s q u i e r ad el o se s p e c i f i c a d o sp o rl av a r i a b l e ` I n f o l i s t s' .` V a l o r e s "c o m p r e n d et o d a sl a sv a r i a b l e sd e f i n i d a sp o re lu s u a r i o . L af o r m ae s p e c i a l` s a v e( < f i l e n a m e > ,[ < m > ,< n > ] )' a l m a c e n al o sv a l o r e s d el a se t i q u e t a sd ee n t r a d ays a l i d aat r a v s< m >< n > .T e n g ae nc u e n t aq u e< m >y< n > d e b e ns e rn m e r o se n t e r o sl i t e r a l e s .E t i q u e t a sd ee n t r a d ays a l i d ap u e d e ns e rt a m b i n a l m a c e n a d ou n op o ru n o ,p o re j e m p l o ,` s a v e( "f o o . 1" , %i 4 2 , %o 4 2 )' .` S a v e ( < f i l e n a m e > ,E t i q u e t a s )' a l m a c e n at o d a sl a se t i q u e t a sd ee n t r a d ays a l i d a . C u n d o l a se t i q u e t a sa l m a c e n a d o ss er e c u p e r a n ,s es o b r e e s c r i b i r nl a sa c t i v a s . L af o r m ae s p e c i a l` s a v e( < f i l e n a m e > ,< n a m e _ 1 >=< e x p r _ 1 > , < n a m e _ 2 >=< e x p r _ 2 > ,. . . )' a l m a c e n al o sv a l o r e sd e< e x p r _ 1 > ,< e x p r _ 2 > , . . . ,C o nn o m b r e s< n a m e _ 1 > ,< n a m e _ 2 > ,. . .E s t i la p l i c a r e s t af o r m ad ee t i q u e t a sd ee n t r a d ays a l i d a ,p o re j e m p l o ,` s a v e( "f o o . 1" , a a= %o 8 8 ) .E ll a d od e r e c h od el ai g u a l d a de ne s t af o r m ap u e d e s e rc u a l q u i e re x p r e s i n ,q u es ee v a l a .E s t af o r m an o i n t r o d u c i rl o sn u e v o sn o m b r e se ne le n t o r n oa c t u a ld eM a x i m a , s l ol o sa l m a c e n ae n< f i l e n a m e > . E s t o sf o r m u l a r i o se s p e c i a l e syl af o r m ag e n e r a ld e` s a v e' s ep u e d e nm e z c l a re n l oh a r .P o re j e m p l o ,` s a v e( < f i l e n a m e > ,a a ,b b ,c c=4 2 ,l a sf u n c i o n e s , [ 1 1 ,1 7 ] ) . L af o r m ae s p e c i a l` s a v e( < f i l e n a m e > ,t o d o s )' a l m a c e n ae le s t a d oa c t u a l d eM a x i m a .E s t oi n c l u y et o d a sl a sv a r i a b l e sd e f i n i d a sp o re lu s u a r i o ,f u n c i o n e s , m a t r i c e s ,e t c ,a s c o m oa l g u n o sa r t c u l o sd e f i n i d o sa u t o m t i c a m e n t e .L a e l e m e n t o sa l m a c e n a d o si n c l u y e nv a r i a b l e sd e ls i s t e m a ,c o m op o re j e m p l o` f i l e _ s e a r c h _ m a x i m a' o' s h o w t i m e ' ,s ih a ns i d om o d i f i c a d a sp o re lu s u a r i o ; c o n s u l t el as e c c i n` m y o p t i o n s . ` S a l v a r' e v a l a< f i l e n a m e >yc i t aat o d o sl o sd e m sa r g u m e n t o s .
F u n c i n :s t r i n g o u t( < f i l e n a m e > ,< e x p r _ 1 > ,< e x p r _ 2 > ,< e x p r _ 3 > ,. . . ) F u n c i n :s t r i n g o u t( < f i l e n a m e > ,[ < m > ,< n > ] ) F u n c i n :s t r i n g o u t( < f i l e n a m e > ,e n t r a d a ) F u n c i n :s t r i n g o u t( < f i l e n a m e > ,f u n c i o n e s ) F u n c i n :s t r i n g o u t( < f i l e n a m e > ,v a l o r e s ) ` S t r i n g o u t' e s c r i b ee x p r e s i o n e se nu na r c h i v od el am i s m af o r m al a e x p r e s i o n e ss ee s c r i b e np a r al ae n t r a d a .E la r c h i v op u e d es e ru t i l i z a d o c o m oi n s u m op a r al o sc o m a n d o s` b a t c h' `d ed e m o s t r a c i no ' ,yp u e d es e r e d i t a d op o rc u a l q u i e rp r o p s i t o .` S t r i n g o u t' p u e d ee j e c u t a r s em i e n t r a s ` W r i t e f i l e' e s t e nc u r s o . E li n d i c a d o r" g o b i e r n as i `s t r i n g o u t' g l o b a l e s` f i l e _ o u t p u t _ a p p e n d a a d eot r u n c ae lf i c h e r od es a l i d a .C u a n d o` f i l e _ o u t p u t _ a p p e n d' e s
133/633
28/08/13

' ,` S t r i n g o u t 'a a d e `t r u ee ne la r c h i v od es a l i d a .D el oc o n t r a r i o , ` S t r i n g o u t' t r u n c ae lf i c h e r od es a l i d a .E nc u a l q u i e r ad el o sc a s o s ,` s t r i n g o u t' c r e ae la r c h i v os it o d a v an oe x i s t e . L af o r m ag e n e r a ld e` s t r i n g o u t' e s c r i b el o sv a l o r e sd eu n aom s e x p r e s i o n e se ne la r c h i v od es a l i d a .T e n g ae nc u e n t aq u es iu n ae x p r e s i ne su n v a r i a b l e ,s o l a m e n t ee lv a l o rd el av a r i a b l ee s t e s c r i t oyn ol a n o m b r ed el av a r i a b l e .C o m ou nc a s oe s p e c i a l t i l ,l a se x p r e s i o n e s p u e d e ns e re t i q u e t a sd ee n t r a d a( %i 1` ' , ` %i 2 ' ,' %i 3 ' ,. . . )od es a l i d a ( %O 1` ' , ` %o 2 ' ,` %o 3' ,. . . ) . S i` r u t i n a' e s `t r u e ' ,` s t r i n g o u t' f o r m a t e al as a l i d am e d i a n t ee l F o r m a t o' g r i n d ' .S in os eu t i l i z ae lf o r m a t o` c a d e n a' .V e r ' M o l e r 'y' c a d e n a ' . E lf o r m u l a r i o` s t r i n g o u t( < f i l e n a m e > ,[ < m > ,< n > ] ) "e s p e c i a le s c r i b ee l l o sv a l o r e sd el a se t i q u e t a sd ee n t r a d ad e s d el amh a s t an ,a m b o si n c l u s i v e . E l` s t r i n g o u te nf o r m ae s p e c i a l( < f i l e n a m e > ,i n p u t ) " ,e s c r i b et o d a sl a se n t r a d a s e t i q u e t a se ne la r c h i v o . L af o r m ae s p e c i a l` s t r i n g o u t( < f i l e n a m e > ,f u n c i o n e s ) " ,e s c r i b et o d a f u n c i o n e sd e f i n i d a sp o re lu s u a r i o( n o m b r ed el al i s t ag l o b a l` f u n c i o n e s' )a e la r c h i v o . E l` s t r i n g o u te nf o r m ae s p e c i a l( < f i l e n a m e > ,v a l o r e s ) " ,e s c r i b et o d a v a r i a b l e sd eu s u a r i oa s i g n a d o( n o m b r a d op o rl al i s t ag l o b a l` v a l o r e s' )a e la r c h i v o .C a d av a r i a b l es ee s c r i b ec o m ou n as e n t e n c i ad ea s i g n a c i n , c o ne ln o m b r ed el av a r i a b l e ,d o sp u n t o sys uv a l o r .T e n g ae nc u e n t aq u e l af o r m ag e n e r a ld e` s t r i n g o u t' n oe s c r i b el a sv a r i a b l e sc o m o i n s t r u c c i o n e sd ea s i g n a c i n .
F u n c i n :w i t h _ s t d o u t( < f > ,< e x p r _ 1 > ,< e x p r _ 2 > ,< e x p r _ 3 > ,. . . ) F u n c i n :w i t h _ s t d o u t( < S > ,< e x p r _ 1 > ,< e x p r _ 2 > ,< e x p r _ 3 > ,. . . ) E v a l a< e x p r _ 1 > ,< e x p r _ 2 > ,< e x p r _ 3 > ,. . .ye s c r i b el o sr e s u l t a d o s a s g e n e r a d aau n a< f >a r c h i v ood es a l i d a< S >c o r r i e n t e .L ae v a l u a c i n e x p r e s i o n e sn os ee s c r i b e ne nl as a l i d a .L as a l i d ap u e d es e r g e n e r a d o sp o r` p r i n t' , 'd i s p l a y' , 'g r i n d' ,e n t r eo t r a sf u n c i o n e s . E li n d i c a d o r` f i l e _ o u t p u t _ a p p e n dg l o b a l e s "d e t e r m i n as i` w i t h _ s t d o u t' a a d eot r u n c ae l< f >a r c h i v od es a l i d a . C u n d o ` F i l e _ o u t p u t _ a p p e n d' e s 't r u e' , 'a a d e `w i t h _ s t d o u ta l a r c h i v od es a l i d a .D el oc o n t r a r i o ,` w i t h _ s t d o u t' t r u n c ae lf i c h e r od es a l i d a . E nc u a l q u i e r ad el o sc a s o s ,` w i t h _ s t d o u t' c r e ae la r c h i v os it o d a v an ol oh a c e e x i s t i r . ` W i t h _ s t d o u t' d e v u e l v ee lv a l o rd es ua r g u m e n t of i n a l . C o n s u l t et a m b i n` w r i t e f i l e' . ( %I 1 )w i t h _ s t d o u t( " t m p . o u t " ,p a r ai :5 1 0h a c e r p r i n t( i ," !r e n d i m i e n t o s " ,i ! ) )$ ( %I 2 )p r i n t f i l e( " t m p . o u t " )$ 5 !r e n d i m i e n t o sd e1 2 0 6 !r e n d i m i e n t o sd e7 2 0 7 !l o sr e n d i m i e n t o sd e5 0 4 0 8 !r e n d i m i e n t o s4 0 3 2 0 9 !r e n d i m i e n t o s3 6 2 8 8 0 1 0 !r e n d i m i e n t o s3 6 2 8 8 0 0
F u n c i n :w r i t e f i l e( < f i l e n a m e > ) C o m i e n z ae s c r i b i e n d ou n at r a n s c r i p c i nd el as e s i nd eM a x i m ae n< f i l e n a m e > . T o d al ai n t e r a c c i ne n t r ee lu s u a r i oyM a x i m as er e g i s t r ae n e s t ea r c h i v o ,t a lyc o m oa p a r e c ee nl ac o n s o l a . Am e d i d aq u el at r a n s c r i p c i ns ee s c r i b ee ne lf o r m a t od es a l i d ad el ac o n s o l a ,q u e N os ep u e d ec a r g a re nM a x i m a .P a r ac r e a ru na r c h i v oq u ec o n t i e n e e x p r e s i o n e sq u ep u e d e ns e rr e c a r g a d a s ,v e r` g u a r d a r' y 's t r i n g o u t' . ` S a v e' t i e n d a sd ee x p r e s i o n e se nf o r m a t oL i s p ,m i e n t r a sq u e `s t r i n g o u t 't i e n d a s e x p r e s i o n e se nf o r m a t oM a x i m a . E lr e s u l t a d od ee j e c u t a r` w r i t e f i l e' c u a n d oy ae x i s t e< f i l e n a m e > d e p e n d ed e le n t o r n oL i s p ,e la r c h i v od et r a n s c r i p c i n p u e d es e ru n ap a l i z a ,oe la r c h i v op u e d es e ra n e x a d a .` A p p e n d f i l e' s i e m p r ea n e x aa la r c h i v od et r a n s c r i p c i n . P u e d es e rc o n v e n i e n t ep a r ae j e c u t a rl ar e p r o d u c c i n` ' d e s p u sd e `w r i t e f i l e 'a g u a r d a rl av i s u a l i z a c i nd el a si n t e r a c c i o n e sa n t e r i o r e s .C o m om u e s t r a` r e p r o d u c c i n' s l ol ae n t r a d ayv a r i a b l e sd es a l i d a( %i 1` ' , ` %o 1 ' ,e t c ) ,c u a l q u i e r s a l i d ag e n e r a d ap o ru n ai n s t r u c c i nd ei m p r e s i ne nu n af u n c i n( p o ro p o s i c i na u nv a l o rd er e t o r n o )n os em u e s t r ap o r' r e p r o d u c c i n ' . ` F u n c i nc l o s e f i l e' c i e r r al o sa r c h i v o sa b i e r t o sp o r `w r i t e f i l e" o ` A p p e n d f i l e' .
13.4 Funciones y variables para la salida TeX

28/08/13
F u n c i n :t e x( e x p r ) F u n c i n :t e x( e x p r ,< d e s t i n a t i o n > ) F u n c i n :t e x( e x p r ,f a l s e ) F u n c i n :t e x( < l a b e l > ) F u n c i n :t e x( < l a b e l > ,< d e s t i n a t i o n > ) F u n c i n :t e x( < l a b e l > ,f a l s e )
I m p r i m eu n ae x p r e s i ne nu nf o r m a t oa d e c u a d op a r ae lT e X s i s t e m ad ep r e p a r a c i nd ed o c u m e n t o s .E lr e s u l t a d oe su nf r a g m e n t od eu n d o c u m e n t o ,q u es ep u e d ec o p i a re nu nd o c u m e n t om sg r a n d e ,p e r on o p r o c e s a d op o rs m i s m o . ` T e x( e x p r )' i m p r i m el ar e p r e s e n t a c i ne nT e Xd ee x p re nl a c o n s o l a r . ` T e x( < l a b e l > )' i m p r i m el ar e p r e s e n t a c i ne nT e Xd el ae x p r e s i n n o m b r a d op o r< l a b e l >yl ea s i g n au n ae t i q u e t ad el ae c u a c i n( q u es em u e s t r a al ai z q u i e r d ad el ae x p r e s i n ) .L ae t i q u e t ae sl ae c u a c i nd eT e X m i s m aq u el ad eM a x i m a . < d e s t i n a t i o n >p u e d es e ru nf l u j od es a l i d aoe ln o m b r ed e la r c h i v o . C u n d o < d e s t i n a t i o n >e su nn o m b r ed ea r c h i v o ,' a a d e` t e xs us a l i d aal a a r c h i v o .L a sf u n c i o n e so p e n w` ' y ò p e n a 'c r e a nf l u j o sd es a l i d a . ` T e x( e x p r ,f a l s e )' y 't e x( < l a b e l > ,f a l s e )' d e v o l v e rs uT e X d es a l i d ae nf o r m ad ec a d e n a . ` T e x' e v a l as up r i m e ra r g u m e n t ot r a sc o m p r o b a rp a r av e rs i e su n ae t i q u e t a .L ad o b l ec o m i l l as i m p l e ' '' E v a l u a c i n 'f u e r z a sd e la r g u m e n t o , a n u l a n d ol ac o m p r o b a c i nyl ap r e v e n c i nd el ae t i q u e t a . C o n s u l t et a m b i n` t e x p u t' . E j e m p l o s : ( %I 1 )i n t e g r a t e( 1/( 1+x^3 ) ,x ) ; 2x-1 2a t a n( ) l o g( x-x+1 )s q r t( 3 )l o g( x+1 ) ( %O 1 )-+--+ 6s q r t( 3 )3 ( %I 2 )t e x( %o 1 ) ; $$-{ { \L o g\l e f t( x^2 x1\d e r e c h o ) }\o v e r{ 6 } }+{ { \a r c t a n\l e f t( { { 2\ ,x 1 }\O v e r{ \s q r t{ 3 } } }\d e r e c h o ) }\o v e r{ \s q r t{ 3 } } }+{ { \l o g\l e f t( x1\d e r e c h o ) }\O v e r{ 3 } }\l e q n o{ \t t( \ %o 1 ) }$$ ( %O 2 )( \ %o 1 ) ( %I 3 )t e x( i n t e g r a t e( s i n( x ) ,x ) ) ; $$-\C o sx$$ ( %O 3 )f a l s e ( %I 4 )t e x( %o 1 ," f o o . t e x " ) ; ( %O 4 )( \ %o 1 ) ` T e x( e x p r ,f a l s e )' d e v u e l v es us a l i d aT e Xc o m ou n ac a d e n a . ( %I 1 )S :t e x( x*y*z ,f a l s e ) ; ( %O 1 )$$x\ ,y\ ,z$$ ( %I 2 )S ; ( %O 2 )$$x\ ,y\ ,z$$
F u n c i n :T E X 1( < e > ) D e v u e l v eu n ac a d e n aq u er e p r e s e n t al as a l i d aT e Xp a r al a e x p r e s i o n e s< e > .L as a l i d aT e Xn os ee n c i e r r ae n t r ed e l i m i t a d o r e sp a r a u n ae c u a c i noc u a l q u i e ro t r oe n t o r n o . E j e m p l o s : ( %I 1 )T E X 1( s i n( x )+c o s( x ) ) ; ( %O 1 )\s i nx+\c o sx F u n c i n :t e x p u t( < a >< S > ) F u n c i n :t e x p u t( < a >< f > ) F u n c i n :t e x p u t( < a >< S > ,< o p e r a t o r _ t y p e > ) F u n c i n :t e x p u t( < a >[ < s _ 1 > ,< s _ 2 > ] ,m a t c h f i x ) F u n c i n :t e x p u t( < a >[ < s _ 1 > ,< s _ 2 > ,< s _ 3 > ] ,m a t c h f i x ) A s i g n ee lf o r m a t oe nT e Xd e l t o m o< a > ,q u ep u e d es e ru ns m b o l oo e ln o m b r ed eu no p e r a d o r . ` T e x p u t( < a >< S > )' h a c eq u ee l `t e x 'f u n c i np a r ai n t e r p o l a rl a < S >c a d e n ae nl as a l i d aT e Xe ne ll u g a rd e< a > . ` T e x p u t( < a >< f > )' h a c eq u ee l `t e x 'f u n c i np a r al l a m a ral af u n c i n < f >p a r ag e n e r a rl as a l i d aT e X .< f >d e b ea c e p t a ru na r g u m e n t o ,q u e e su n ae x p r e s i nq u et i e n e< a >o p e r a d o r ,yd e b ed e v o l v e ru n ac a d e n a ( L as a l i d aT e X ) .< f >p u e d el l a m a r` T E X 1' p a r ag e n e r a rl as a l i d aT e Xp a r a l o sa r g u m e n t o sd el ae x p r e s i nd ee n t r a d a . ` T e x p u t( < a >< S > ,< o p e r a t o r _ t y p e > )' ,d o n d ee s< o p e r a t o r _ t y p e > P r e f i j o` ' , ì n f i j o ' ,' s u f i j o ' ,` n a r' ,o `n o f i x ' ,h a c eq u ee l` t e x' f u n c i o n a rp a r ai n t e r p o l a r< S >e nl as a l i d aT e Xe ne ll u g a rd e< a > , yp a r ac o l o c a re lt e x t oi n t e r p o l a d oe nl ap o s i c i na p r o p i a d a . ` T e x p u t( < a >[ < s _ 1 > ,< s _ 2 > ] ,m a t c h f i x )' h a c eq u ee l `t e x" f u n c i n
135/633
28/08/13

p a r ai n t e r p o l a r< s _ 1 >y< s _ 2 >e nl as a l i d aT e Xal o sl a d o s d el o sa r g u m e n t o sd e< a > .L o sa r g u m e n t o s( s ih a ym sd eu n o )s o n s e p a r a d o sp o rc o m a s . ` T e x p u t( < a >[ < s _ 1 > ,< s _ 2 > ,< s _ 3 > ] ,m a t c h f i x )' h a c eq u ee l `t e x ' f u n c i o n a rp a r ai n t e r p o l a r< s _ 1 >y< s _ 2 >e nl as a l i d aT e Xe n a m b o sl a d o sd el o sa r g u m e n t o sd e< a > ,c o n< s _ 3 >s e p a r a re l a r g u m e n t o s . E j e m p l o s : A s i g n ac d i g oT e Xp a r au n av a r i a b l e . ( %I 1 )t e x p u t( y o ," \\m u _ e " ) ; ( %O 1 )\m u _ e ( %I 2 )t e x( y o ) ; $$\$$M u _ e ( %O 2 )f a l s e A s i g n ac d i g oT e Xp a r au n af u n c i no r d i n a r i a( n ou no p e r a d o r ) . ( %I 1 )t e x p u t( m c m ," \\m a t h r m{ l c m } " ) ; ( %O 1 )\m a t h r m{ l c m } ( %I 2 )t e x( m c m( a ,b ) ) ; $$\M a t h r m{ l c m }\l e f t( a ,b\d e r e c h o )$$ ( %O 2 )f a l s e L l a m a rau n af u n c i np a r ag e n e r a rl as a l i d aT e X . ( %I 1 )t e x f o o( e ) :=b l o q u e( [ a ,b ] ,[ a ,b ] :a r g s( e ) , c o n c a t( " \\l e f t[ \\s t a c k r e l{ "T E X 1( b )" }{ "T E X 1( a )" }\\d e r e c h o ] " ) )$ ( %I 2 )t e x p u t( f o o ,t e x f o o ) ; ( %O 2 )t e x f o o ( %I 3 )t e x( f o o( x^2 , %p i ) ) ; $$\L e f t[ \s t a c k r e l{ \p i }{ 2^{ x } }\r i g h t ]$$ ( %O 3 )f a l s e A s i g n ac d i g oT e Xp a r au no p e r a d o rd ep r e f i j o . ( %I 1 )p r e f i j o( " g r a d " ) ; ( %O 1 )g r a d ( %I 2 )t e x p u t( " g r a d " ," \\n a b l a " ,e lp r e f i j o ) ; ( %O 2 )\n a b l a ( %I 3 )t e x( g r a df ) ; $$\N a b l af$$ ( %O 3 )f a l s e A s i g n ac d i g oT e Xp a r au no p e r a d o ri n f i j o . ( %I 1 )i n f i j a( " ~ " ) ; ( %O 1 )~ ( %I 2 )t e x p u t( " ~ " ," \\t i m e s " ,i n f i j o s ) ; ( %O 2 )\ p o c a s ( %I 3 )t e x( a~b ) ; $$A\t i m e sb$$ ( %O 3 )f a l s e A s i g n ac d i g oT e Xp a r au no p e r a d o rd es u f i j o . ( %I 1 )s u f i j o( " ## " ) ; ( %O 1 )## ( %I 2 )t e x p u t( " ## " ,op o s t f i x" ! " ) ; ( %O 2 ) ! ( %I 3 )t e x( x## ) ; $$X ! !$$ ( %O 3 )f a l s e A s i g n ac d i g oT e Xp a r au no p e r a d o rn a r i o . ( %I 1 )n a r y( " @@ " ) ; ( %O 1 )@@ ( %I 2 )t e x p u t( " @@ " ," \\c i r c " ,n a r y ) ; ( %O 2 )\c i r c ( %I 3 )t e x( u nb@@@@@@cd ) ; $$A\c i r cb\c i r cc\c i r cd$$ ( %O 3 )f a l s e A s i g n ac d i g oT e Xp a r au no p e r a d o rn o f i j o . ( %I 1 )n o f i x( " f o o " ) ; ( %O 1 )f o o ( %I 2 )t e x p u t( " f o o " ," \\m a t h s c{ f o o } " ,n o f i x ) ; ( %O 2 )\m a t h s c{ f o o } ( %I 3 )t e x( f o o ) ; $$\M a t h s c{ f o o }$$ ( %O 3 )f a l s e A s i g n ac d i g oT e Xp a r au no p e r a d o rm a t c h f i x . ( %I 1 )m a t c h f i x( " < < "" > > " ) ; ( %O 1 )< < ( %I 2 )t e x p u t( " < < " ,[ " \\l a n g l e " ," \\r a n g l e " ] ,m a t c h f i x ) ; ( %O 2 )[ \l a n g l e\r a n g l e ] ( %I 3 )t e x( < <a> > ) ; $$\L a n g l eA\r a n g l e$$ ( %O 3 )f a l s e ( %I 4 )t e x( < <a ,b> > ) ;
136/633
28/08/13

$$\L a n g l ea ,b\r a n g l e$$ ( %O 4 )f a l s e ( %I 5 )t e x p u t( " < < " ,[ " \\l a n g l e " ," \\r a n g l e " ," \\ ,|\\ " ] , m a t c h f i x ) ; ( %O 5 )[ \l a n g l e\r a n g l e ,\ ,|\ , ] ( %I 6 )t e x( u n> >< < ) ; $$\L a n g l eA\r a n g l e$$ ( %O 6 )f a l s e ( %I 7 )t e x( < <a ,b> > ) ; $$\L a n g l eA\ ,|\ ,b\r a n g l e$$ ( %O 7 )f a l s e
F u n c i n :g e t _ t e x _ e n v i r o n m e n t( < o p > ) F u n c i n :s e t _ t e x _ e n v i r o n m e n t( < o p > ,< a f t e r > ) P e r s o n a l i z a rl as a l i d ae n t o r n oT e Xp o r' t e x ' .C o m os o s t i e n e e s t a sf u n c i o n e s ,e le n t o r n oT e Xe s t f o r m a d op o rd o sc a d e n a s :u n ae s e s c r i b ea n t e sq u ec u a l q u i e rs a l i d ae nT e X ,yo t r aq u es ee s c r i b e d e s p u s . S l oe le n t o r n oT e Xd e lo p e r a d o rd ea l t on i v e le nu n ae x p r e s i n e sl ap r o d u c c i n ,e n t o r n o sT e Xa s o c i a d o sc o no t r o so p e r a d o r e s i g n o r a d o . ` G e t _ t e x _ e n v i r o n m e n t' d e v u e l v ee le n t o r n oT e Xq u es ea p l i c a al a< o p >o p e r a d o r ;d e v u e l v ee lv a l o rp o rd e f e c t os in oh a yo t r om e d i o s el eh aa s i g n a d o . ` S e t _ t e x _ e n v i r o n m e n t' a s i g n ae le n t o r n oT e Xp a r ae lo p e r a d o r < o p > . E j e m p l o s : ( %I 1 )g e t _ t e x _ e n v i r o n m e n t( " := " ) ; ( %O 1 )[ \B e g i n{ v e r b a t i m } , ; \E n d{ v e r b a t i m } ] ( %I 2 )t e x( f( x ) :=1-x ) ; \B e g i n{ v e r b a t i m } f( x ) :=1 x ; \E n d{ v e r b a t i m } ( %O 2 )f a l s e ( %I 3 )s e t _ t e x _ e n v i r o n m e n t( " := "" $$ " ," $$ " ) ; ( %O 3 )[ $$ ,$$ ] ( %I 4 )t e x( f( x ) :=1-x ) ; $$F( x ) :=1 x$$ ( %O 4 )f a l s e
F u n c i n :g e t _ t e x _ e n v i r o n m e n t _ d e f a u l t( ) F u n c i n :s e t _ t e x _ e n v i r o n m e n t _ d e f a u l t( < a f t e r > ) P e r s o n a l i z a rl as a l i d ae n t o r n oT e Xp o r' t e x ' .C o m os o s t i e n e e s t a sf u n c i o n e s ,e le n t o r n oT e Xe s t f o r m a d op o rd o sc a d e n a s :u n ae s e s c r i b ea n t e sq u ec u a l q u i e rs a l i d ae nT e X ,yo t r aq u es ee s c r i b e d e s p u s . ` G e t _ t e x _ e n v i r o n m e n t _ d e f a u l t' d e v u e l v ee le n t o r n oT e Xq u ee s a p l i c a d oae x p r e s i o n e sp a r al a sc u a l e se lo p e r a d o rd em a y o rr a n g on ot i e n e e n t o r n oT e Xa s i g n a d o( p o r` s e t _ t e x _ e n v i r o n m e n t' ) . ` S e t _ t e x _ e n v i r o n m e n t _ d e f a u l t' a s i g n ae le n t o r n oT e Xd e f a u l t . E j e m p l o s : ( %I 1 )g e t _ t e x _ e n v i r o n m e n t _ d e f a u l t( ) ; ( %O 1 )[ $$ ,$$ ] ( %I 2 )t e x( f( x )+g( x ) ) ; $$G\l e f t( x\d e r e c h o )+f\l e f t( x\d e r e c h o )$$ ( %O 2 )f a l s e ( %I 3 )s e t _ t e x _ e n v i r o n m e n t _ d e f a u l t( " \\b e g i n{ e q u a t i o n } " , " \\E n d{ e q u a t i o n }" ) ; ( %O 3 )[ \b e g i n{ e q u a t i o n } , \E n d{ e q u a t i o n } ] ( %I 4 )t e x( f( x )+g( x ) ) ; \B e g i n{ e q u a t i o n } g\l e f t( x\d e r e c h o )+f\l e f t( x\d e r e c h o ) \E n d{ e q u a t i o n } ( %O 4 )f a l s e
13.5 Funciones y variables para Fortran salida

V a r i a b l eo p c i o n a l :f o r t i n d e n t
137/633
28/08/13
V a l o rp o rd e f e c t o :0'
` F o r t i n d e n t' c o n t r o l ae lm a r g e ni z q u i e r d od el a se x p r e s i o n e s i m p r e s op o re lc o m a n d o` f o r t r a n' .` 0' c o nu nm a r g e nn o r m a l ( E sd e c i r ,6p l a z a s ) ,yl o sv a l o r e sp o s i t i v o sh a r nq u el a se x p r e s i o n e s s ee s c r i b a nm sal ad e r e c h a .
F u n c i n :f o r t r a n( e x p r ) I m p r i m ee x p rc o m ou n ad e c l a r a c i nd eF o r t r a n .L al n e ad es a l i d at i e n es a n g r a c o ne s p a c i o s .S il al n e ae sd e m a s i a d ol a r g a ,g r a b a d o s` f o r t r a n' l n e a sd ec o n t i n u a c i n .` F o r t r a n' e s c r i b ee lo p e r a d o rd ee x p o n e n c i a c i n ` ^' C o m o `* * ' ,ei m p r i m eu nn m e r oc o m p l e j o` a+b %i "e nl af o r m a ` ( A ,b ) . < e x p r >p u e d es e ru n ae c u a c i n .S ie sa s ,` f o r t r a n' i m p r i m eu n am i s i n d e c l a r a c i n ,a s i g n a n d oe ll a d od e r e c h od el ae c u a c i np a r al a am a n oi z q u i e r d a .E np a r t i c u l a r ,s ie ll a d od e r e c h od e< e x p r > e se ln o m b r ed eu n am a t r i z ,e n t o n c e s` f o r t r a n' i m p r i m eu n am i s i n d e c l a r a c i np a r ac a d ae l e m e n t od el am a t r i z . S ie x p rn oe sa l g or e c o n o c i d op o r` f o r t r a n' ,l ae x p r e s i n e s t i m p r e s oe nf o r m a t o' g r i n d 's i nq u e j a r s e .` F o r t r a n' h a c e N os a b e rs o b r el i s t a s ,m a t r i c e sof u n c i o n e s . ` F o r t i n d e n t' c o n t r o l ae lm a r g e ni z q u i e r d od el a sl n e a si m p r e s a s .` 0' e se lm a r g e nn o r m a l( e sd e c i r ,6e s p a c i o s ) .C r e c i e n t e ` F o r t i n d e n t' p r o v o c ae x p r e s i o n e ss ee s c r i b a nm sal ad e r e c h a . C u a n d o` f o r t s p a c e s' e s `t r u e ' ,` f o r t r a n' r e l l e n al a si m p r e s a l n e ac o ne s p a c i o sd e8 0c o l u m n a s . ` F o r t r a n' e v a l as u sa r g u m e n t o s ,c i t a n d ou na r g u m e n t od e r r o t a s e v a l u a c i n .` F o r t r a n' s i e m p r ed e v u e l v e `h e c h o ' . V a s et a m b i nl af u n c i n` f 9 0' p a r ai m p r i m i ru n aov a r i a se x p r e s i o n e s c o m ou np r o g r a m ad eF o r t r a n9 0 . E j e m p l o s : ( %I 1 )e x p r :( a+b )^1 2$ ( %I 2 )f o r t r a n( e x p r ) ; ( B+a )* *1 2 ( %O 2 )d o n e ( %I 3 )f o r t r a n( ' x=e x p r ) ; x=( b+a )* *1 2 ( %O 3 )d o n e ( %I 4 )f o r t r a n( ' x=e x p a n d( e x p r ) ) ; x=b* *1 21 2*a*b* *1 1* *6 6*a2*b* *1 02 2 0* *3*a*b* *94 9 5*a* *4*b* *87 9 2 1*a5*b* ** *79 2 4*a*b* *6* *67 9 2*a* *7*b* *54 9 5*a*b* *8* *42 2 0*u n* *9*b 2* *3* *6 6*a1 0*b* *2* *1 2*a1 1*b+a* *1 2 ( %O 4 )h e c h o ( %I 5 )f o r t r a n( ' x=7+ 5* %i ) ; x=( 7 , 5 ) ( %O 5 )h e c h o ( %I 6 )f o r t r a n( ' x=[ 1 , 2 , 3 , 4 ] ) ; x=[ 1 , 2 , 3 , 4 ] ( %O 6 )h e c h o ( %I 7 )f( x ) :=x^2$ ( %I 8 )f o r t r a n( f ) ; F ( %O 8 )h e c h o
V a r i a b l eo p c i o n a l :f o r t s p a c e s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` f o r t s p a c e s' e s `t r u e ' ,` f o r t r a n' l l e n ac a d al n e ai m p r e s a c o ne s p a c i o sd e8 0c o l u m n a s .
14 Polinomios
I n t r o d u c c i nal o sP o l i n o m i o s F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s
14.1 Introduccin a los polinomios

L o sp o l i n o m i o ss ea l m a c e n a ne nM a x i m a ,y as e ae nf o r m ag e n e r a loc o m o E x p r e s i o n e sR a c i o n a l e sC a n n o n i c a l( C R E ) .E l l t i m oe su ne s t n d a r f o r m a r ,ys eu t i l i z ai n t e r n a m e n t ep a r ar e a l i z a ro p e r a c i o n e sc o m oe lf a c t o r ,r a t s i m py a s s u c e s i v a m e n t e . E x p r e s i o n e sr a c i o n a l e sc a n n i c a sc o n s t i t u y e nu nt i p od er e p r e s e n t a c i n q u ee se s p e c i a l m e n t ea p r o p i a d op a r ae x p a n d i rp o l i n o m i o syr a c i o n a l f u n c i o n e s( a s c o m op a r ap o l i n o m i o sp a r c i a l m e n t ef a c t o r i z a d o syr a c i o n a l f u n c i o n e ss ir a t f a cs ee s t a b l e c ee n` t r u e' ) .E ne s t af o r m aC R Eu no r d e n a m i e n t o
138/633
28/08/13

d ev a r i a b l e s( d em sam e n o si m p o r t a n t e )e sa s u m i d op o rc a d ae x p r e s i n . L o sp o l i n o m i o ss er e p r e s e n t a nr e c u r s i v a m e n t ec o m ou n al i s t ac o m p u e s t ap o rl a p r i n c i p a lv a r i a b l es e g u i d op o ru n as e r i ed ep a r e sd ee x p r e s i o n e s ,u n ap a r a c a d at r m i n od e lp o l i n o m i o .E lp r i m e rm i e m b r od ec a d ap a re se l e x p o n e n t ed el av a r i a b l ep r i n c i p a le ne s et r m i n oye ls e g u n d oe l e m e n t oe sl a c o e f i c i e n t ed ee s et r m i n o ,q u ep o d r as e ru nn m e r oou np o l i n o m i oe n o t r av a r i a b l ee ne s t ef o r m u l a r i o .A s ,e lp r i n c i p a l p a r t ed el af o r m aC R Ed e3*X^2 1e s( X2301 )yl ad e2*X*Y+X 3 e s( Y1( X12 )0( X1103 ) )a s u m i e n d oq u eYe sl av a r i a b l ep r i n c i p a l ,ys e r ( X1( Y1201 )03 )s u p o n i e n d oXe sl av a r i a b l ep r i n c i p a l ." P r i n c i p a l " n e s se s g e n e r a l m e n t ed e t e r m i n a d op o re lo r d e na l f a b t i c oi n v e r s o .L a s" v a r i a b l e s "d eu n E x p r e s i nC R En on e c e s i t as e ra t m i c o .D eh e c h oc u a l q u i e rs u b e x p r e s i nc u y op r i n c i p a l o p e r a d o rn oe sd e+-*/n i^c o np o t e n c i ae n t e r ap u e d es e rc o n s i d e r a d au n " V a r i a b l e "d el ae x p r e s i n( e nf o r m aC R E )e ne lq u es ep r o d u c e .P a r a e j e m p l ol a sv a r i a b l e sC R Ed el ae x p r e s i nX+s i n( x1 )2*S Q R T( X )s o n1 X ,S Q R T( X ) ,ys i n( x1 ) .S ie lu s u a r i on oe s p e c i f i c au no r d e nd e l a sv a r i a b l e sm e d i a n t ee lu s od el af u n c i nr a t v a r sM a x i m ae s c o g e r u n a a l f a b t i c ad eu n o .E ng e n e r a l ,l a aC R Er e p r e s e n t a ne x p r e s i o n e sr a c i o n a l e s ,q u e E sd e c i r ,l o sc o e f i c i e n t e sd ep o l i n o m i o s ,d o n d ee ln u m e r a d o rye ld e n o m i n a d o rn ot i e n e n f a c t o r e sc o m u n e s ,ye ld e n o m i n a d o re sp o s i t i v o .L af o r m ai n t e r n ae s e s e n c i a l m e n t eu np a rd ep o l i n o m i o s( e ln u m e r a d o rye ld e n o m i n a d o r ) p r e c e d i d ap o rl al i s t ad ev a r i a b l e so r d e n a d a s .S iu n ae x p r e s i nq u es e a r e p r e s e n t a d ae s t e nl af o r m aC R Eoc o n t i e n ea l g u n as u b e x p r e s i ne nC R E l af o r m a ,e ls m b o l o/R/s e r s e g u i d op o rl ae t i q u e t ad el n e a .V a s el af u n c i nR A T p a r ac o n v e r t i ru n ae x p r e s i nal af o r m aC R E .S eu t i l i z au nf o r m a t oC R Ee x t e n d i d a p a r al ar e p r e s e n t a c i nd es e r i e sd eT a y l o r .L an o c i nd eu ns e rr a c i o n a l e x p r e s i ns ee x t i e n d ed em a n e r aq u el o se x p o n e n t e sd el a sv a r i a b l e sp u e d e ns e r n m e r o sr a c i o n a l e sp o s i t i v o son e g a t i v o syn os l op o s i t i v o e n t e r o syl o sc o e f i c i e n t e sp u e d e ns e rt a m b i ne x p r e s i o n e sr a c i o n a l e s s eh ad e s c r i t oa n t e r i o r m e n t en os l op o l i n o m i o s .E s t o se s t nr e p r e s e n t a d o s i n t e r n a m e n t ep o ru n af o r m ap o l i n o m i a lr e c u r s i v aq u ee ss i m i l a ra ,ye su n l ag e n e r a l i z a c i nd el af o r m aC R E ,p e r ol l e v ai n f o r m a c i na d i c i o n a lc o m o e lg r a d od et r u n c a m i e n t o .C o m oc o nl af o r m aC R E ,e ls m b o l o/T/s i g u el a e t i q u e t ad el n e ad ee s t et i p od ee x p r e s i o n e s .
14.2 Funciones y variables para polinomios

V a r i a b l eo p c i o n a l :a l g e b r a i c a V a l o rp o rd e f e c t o :f a l s e' ` A l g e b r a i c a' d e b ee s t a re n `t r u e 'af i nd eq u el as i m p l i f i c a c i n d ee n t e r o sa l g e b r a i c o s .
V a r i a b l eo p c i o n a l :b e r l e f a c tv a l e V a l o rp o rd e f e c t o :t r u e' C u a n d o` b e r l e f a c tv a l e' e s 'f a l s e' ,e n t o n c e se la l g o r i t m od ef a c t o r i z a c i nd eK r o n e c k e r s ep u e d eu t i l i z a rd eo t r om o d oe la l g o r i t m od eB e r l e k a m p , q u ee se l p r e d e t e r m i n a d o ,s eu t i l i z a r .
F u n c i n :b e z o u t( , ,< x > ) u n aa l t e r n a t i v aa lc o m a n d o` r e s u l t a n t e .D e v u e l v eu n am a t r i z . ` D e t e r m i n a n t e' d ee s t am a t r i ze sl ar e s u l t a n t ed e s e a d o . E j e m p l o s : ( %I 1 )b e z o u t( a*x+b ,c*x^2+d ,x ) ; [ B c-a d ] ( %O 1 )[ ] [ A b ] ( %I 2 )d e t e r m i n a n t e( % ) ; 22 ( %O 2 )a d+b c ( %I 3 )r e s u l t a n t e( a*x+b ,c*x^2+d ,x ) ; 22 ( %O 3 )a d+b c
F u n c i n :b o t h c o e f( e x p r ,< x > ) D e v u e l v eu n al i s t ac u y op r i m e rm i e m b r oe se lc o e f i c i e n t ed e< x >e n e x p r( q u es ee n c u e n t r ae n` f u n c i nr a t c o e f "s ie x p re s t e nC R Ef o r m a rd eo t r om o d o p o r' c o e f i c i e n t e ' )yc u y os e g u n d om i e m b r oe sl ap a r t er e s t a n t ed e e x p r .E sd e c i r ,` [ A ,B ]' ,d o n d e è x p r=A*< x >+B ' . E j e m p l o : ( %I 1 )i s l i n e a r( e x p r ,x ) :=b l o q u e( [ c ] , c :b o t h c o e f( r a t a( e x p r ,x ) ,x ) , e s( f r e e o f( x ,c )yc[ 1 ]#0 ) )$ ( %I 2 )i s l i n e a r( ( r^2-( x-r )^2 )/x ,x ) ; ( %O 2 )t r u e
139/633
28/08/13
F u n c i n :c o e f i c i e n t e( e x p r ,< x >< n > ) F u n c i n :c o e f i c i e n t e( e x p r ,< x > )
D e v u e l v ee lc o e f i c i e n t ed e` < x >^< n >' e ne x p r ,d o n d ee x p re su n p o l i n o m i oou nt r m i n om o n o m i oe n< x > . ` C o e f i c i e n t e( e x p r ,< x >^< n > )' e se q u i v a l e n t ea 'c o e f i c i e n t e( e x p r ,< x > < n > ) .` C o e f i c i e n t e( e x p r ,< x >0 )' d e v u e l v ee lr e s t od e< e x p r > q u ee s t l i b r ed e< x > .S is eo m i t e ,< n >s es u p o n eq u ee s1 . < x >p u e d es e ru n av a r i a b l es i m p l eou n av a r i a b l ei n d e x a d a ,ou n a s u b e x p r e s i nd ee x p rq u ec o n t e n g au no p e r a d o ryt o d os u a r g u m e n t o s . P u e d es e rp o s i b l ec a l c u l a rl o sc o e f i c i e n t e sd ee x p r e s i o n e sq u e s o ne q u i v a l e n t e sae x p ra p l i c a n d oe x p a n d` ' o `f a c t o r" . ' C o e f i c i e n t e 'e ns n os ea p l i c a' a m p l i a r 'o' f a c t o r" oc u a l q u i e ro t r a f u n c i n . ' C o e f i c i e n t e 'd i s t r i b u y es o b r el i s t a s ,m a t r i c e sye c u a c i o n e s . E j e m p l o s : ' C o e f i c i e n t e 'd e v u e l v ee lc o e f i c i e n t e` < x >^< n >' e ne x p r . ( %I 1 )c o e f i c i e n t e( b^3*a^3+b^2*a^2+b*a+1 ,a^3 ) ; 3 ( %O 1 )b ` C o e f i c i e n t e( e x p r ,< x >^< n > )' e se q u i v a l e n t ea 'c o e f i c i e n t e( e x p r ,< x > < n > ) . ( %I 1 )c o e f i c i e n t e( c[ 4 ]*z^4-c[ 3 ]*z^3-c[ 2 ]*z^2+c[ 1 ]*z ,z ,3 ) ; ( %O 1 )-C 3 ( %I 2 )c o e f i c i e n t e( c[ 4 ]*z^4-c[ 3 ]*z^3-c[ 2 ]*z^2+c[ 1 ]*z ,z^3 ) ; ( %O 2 )-c 3 ` C o e f i c i e n t e( e x p r ,< x >0 )' d e v u e l v ee lr e s t od ee x p rq u ee s s i n< x > . ( %I 1 )c o e f i c i e n t e( a*u+b^2*u^2+c^3*u^3 ,b ,0 ) ; 33 ( %O 1 )c u+a u < x >p u e d es e ru n av a r i a b l es i m p l eou n av a r i a b l ei n d e x a d a ,ou n a s u b e x p r e s i nd ee x p rq u ec o n t e n g au no p e r a d o ryt o d os u a r g u m e n t o s . ( %I 1 )c o e f i c i e n t e( h^4 2* %p i*h^2+1 ,h ,2 ) ; ( %O 1 )-2 %p i ( %I 2 )c o e f i c i e n t e( v[ 1 ]^4-2*p i* %v[ 1 ]^2+1 ,v[ 1 ] ,2 ) ; ( %O 2 )-2 %p i ( %I 3 )c o e f i c i e n t e( s e n( 1+x )*s i n( x )+s e n( x+1 )^3*s e n( x )^3 ,e lp e c a d o( 1+x )^3 ) ; 3 ( %O 3 )s i n( x ) ( %I 4 )c o e f i c i e n t e( ( d-a )^2*( b+c )^3+( a+b )^4*( c-d ) ,a+b ,4 ) ; ( %O 4 )c-d ' C o e f i c i e n t e 'e ns n os ea p l i c a' a m p l i a r 'o' f a c t o r" oc u a l q u i e ro t r a f u n c i n . ( %I 1 )c o e f i c i e n t e( C*( a+b )^3 ,a ) ; ( %O 1 )0 ( %I 2 )e x p a n s i n( c*( a+b )^3 ) ; 3223 ( %O 2 )b c+3+3a b ca b c+a c ( %I 3 )c o e f i c i e n t e( % ,a ) ; 2 ( %O 3 )3b c ( %I 4 )c o e f i c i e n t e( b*c^3+3*a*b*c^2+3*a^2*b*c^3+a*c ,( a+b )^3 ) ; ( %O 4 )0 ( %I 5 )F a c t o rd e( b*c^3+3*a*b*c^2+3*a^2*b*c^3+a*c ) ; 3 ( %O 5 )( b+a )c ( %I 6 )c o e f i c i e n t e( % ,( a+b )^3 ) ; ( %O 6 )c ' C o e f i c i e n t e 'd i s t r i b u y es o b r el i s t a s ,m a t r i c e sye c u a c i o n e s . ( %I 1 )c o e f i c i e n t e( [ 4*a ,*a3 ,2*a ] ,a ) ; ( %O 1 )[ 4 ,-3 ,2 ] ( %I 2 )c o e f i c i e n t e( m a t r i z( [ a*x ,b*x ] ,[ c*x , d*x ] ) ,x ) ; [ A b ] ( %O 2 )[ ] [ -C-d ] ( %I 3 )c o e f i c i e n t e( a*u-v=b*7*3*u+v ,u ) ; ( %O 3 )a=7
F u n c i n :c o n t e n i d o( ,< x _ 1 > ,. . . ,< x _ n > ) D e v u e l v eu n al i s t ac u y op r i m e re l e m e n t oe se lm x i m oc o m nd i v i s o r d el o sc o e f i c i e n t e sd el o st r m i n o sd e lp o l i n o m i oe ne l
140/633
28/08/13

< x _ n >v a r i a b l e s( e s t ee se lc o n t e n i d o )yc u y os e g u n d om i e m b r oe s l ap o l i n o m i od i v i d i d op o re lc o n t e n i d o . E j e m p l o s : ( %I 1 )c o n t e n i d o( 2*x*y+4*x^2*y^2 ,y ) ; 2 ( %O 1 )[ 2x ,2x y+y ]
F u n c i n :d e n o m( e x p r ) D e v u e l v ee ld e n o m i n a d o rd el ae x p r e s i nr a c i o n a le x p r .
F u n c i n :d i v i s i n( , ,< x _ 1 > ,. . . ,< x _ n > ) c a l c u l ae lc o c i e n t eye lr e s t od e lp o l i n o m i o d i v i d i d op o re lp o l i n o m i o ,e nu n av a r i a b l ep r i n c i p a lp o l i n o m i o , < x _ n > .L a so t r a sv a r i a b l e ss o nc o m oe nl af u n c i n` r a t v a r s' .L a r e s u l t a d oe su n al i s t ac u y op r i m e rm i e m b r oe se lc o c i e n t eyc u y a s e g u n d oe l e m e n t oe se lr e s t o . E j e m p l o s : ( %I 1 )d i v i d e( x+y ,x-y ,x ) ; ( %O 1 )[ 1 ,2y ] ( %I 2 )b r e c h a( x+y ,x-y ) ; ( %O 2 )[ -1 ,2x ] T e n g ae nc u e n t aq u e` y' e sl av a r i a b l ep r i n c i p a le ne ls e g u n d oe j e m p l o .
F u n c i n :e l i m i n a r( [ < e q n _ 1 > ,. . . ,< e q n _ n > ] ,[ < x _ 1 > ,. . . ,< x _ k > ] ) E l i m i n al a sv a r i a b l e sd el a se c u a c i o n e s( od ee x p r e s i o n e sq u es es u p o n ev a l e n ac e r o )t o m a n d or e s u l t a n t e ss u c e s i v a s .E s t od e v u e l v eu n al i s t ad e E x p r e s i o n e s< k >' c o nl a sv a r i a b l e s< x _ 1 >< k > ,. . . ,< x _ k >-` < n > e l i m i n a d o .P r i m e r o< x _ 1 >s ee l i m i n ap r o d u c i e n d o` < n >-1' e x p r e s i o n e s ,e n t o n c e s" s ee l i m i n a ,e t cS i `< k >=< n >' ` x _ 2l u e g ou n n i c ae x p r e s i n ,s ed e v u e l v eu n al i s t al i b r ed el a sv a r i a b l e s < x _ 1 > ,. . . ,< x _ k > .E ne s t ec a s o ,' r e s o l v e r 'e s t l l a m a d oar e s o l v e re l l t i m ar e s u l t a n t ep a r al a l t i m av a r i a b l e . E j e m p l o : ( %I 1 )e x p r 1 :2*x^2+y*x+z ; 2 ( %O 1 )z+x y+2x ( %I 2 )e x p r 2 :3*x+5*y-z-1 ; ( %O 2 )-z+5y+3x-1 ( %I 3 )e x p r 3 :z^2+x-y^2+5 ; 22 ( %O 3 )z-y+x+5 ( %I 4 )e l i m i n a r( [ e x p r 3 ,e x p r 2 ,e x p r 1 ] ,[ y ,z ] ) ; 87654 ( %O 4 )[ 7 , 4 2 5x-1 , 1 7 0x+1 , 2 9 9x+1 2 , 0 7 6x+2 2 , 8 8 7x 32 -5 , 1 5 4x-1 , 2 9 1x+7 , 6 8 8x+1 5 3 7 6 ]
F u n c i n :e z g c d( , , ,. . . ) D e v u e l v eu n al i s t ac u y op r i m e re l e m e n t oe se lm x i m oc o m nd i v i s o r d el o sp o l i n o m i o s , , ,. . .yc u y ar e s t a n t e e l e m e n t o ss o nl o sp o l i n o m i o sd i v i d i d op o re lm x i m oc o m n d i v i s o r .E s t os i e m p r eu t i l i z ae la l g o r i t m o` e z g c d' . V a s et a m b i n' m c d ' ,` f u n c i ng c d e x' , `g c d i v i d e 'y` p o l y _ g c d' . E j e m p l o s : L o st r e sp o l i n o m i o st i e n e ne lm x i m oc o m nd i v i s o r` 2*x 3' . E lm c ds ec a l c u l ap r i m e r oc o nl af u n c i n` m c d' yl u e g oc o n l af u n c i n` e z g c d' . ( %I 1 )p 1 :6*x^3 1 7*x^2+ 1 4*x 3 ; 32 ( %O 1 )6x-1 7x+1 4x-3 ( %I 2 )p 2 :4*x^4 1 4*x^31 2*x^2+ 2*x 3 ; 432 ( %O 2 )x4-1 4x1 2+x+2x-3 ( %I 3 )p 3 :8*x^31 4*x^2 x 3 ; 32 ( %O 3 )-8x1 4+x-x-3 ( %I 4 )m c d( p 1 ,m c d( p 2 ,p 3 ) ) ; ( %O 4 )2x-3 ( %I 5 )e z g c d( p 1 ,p 2 ,p 3 ) ;
141/633
28/08/13

2322 ( %O 5 )[ 2x-3 ,3x-4x+1 ,x2-4x+1 ,4-x+x+1 ]
V a r i a b l eo p c i o n a l :f a c e x p a n d V a l o rp o rd e f e c t o :t r u e' C o n t r o l e s` f a c e x p a n d' s il o sf a c t o r e si r r e d u c i b l e sd e v u e l t o sp o r ` F a c t o r "e s t ne ne x p a n s i n( p o rd e f e c t o )or e c u r r e n t e( C R En o r m a l ) f o r m u l a r i o .
F u n c i n :e lf a c t o r( e x p r ) F u n c i n :e lf a c t o r( e x p r , ) F a c t o r e sd el a< e x p r >e x p r e s i n ,q u ec o n t i e n ec u a l q u i e rn m e r od ev a r i a b l e s of u n c i o n e s ,e nf a c t o r e si r r e d u c i b l e sr e s p e c t od el o se n t e r o s .F a c t o rd e` ( E x p r , )" f a c t o r e sd ee x p re ne lc a m p od el o sr a c i o n a l e sc o nu n e l e m e n t oa a d i d oc u y op o l i n o m i om n i m oe s . ` F a c t o r' u s a ì f a c t o r s 'f u n c i np a r af a c t o r i z a re n t e r o s . ` F a c t o r f l a g' s i 'f a l s e' s u p r i m el af a c t o r i z a c i nd el o sf a c t o r e se n t e r o s d el a se x p r e s i o n e sr a c i o n a l e s . ` D o n t f a c t o r' s ep u e d ee s t a b l e c e re nu n al i s t ad ev a r i a b l e sr e s p e c t od el a s q u ee lf a c t o r i n gn oe sq u es ep r o d u z c a .( I n i c i a l m e n t ee s t v a c a ) . F a c t o r i n gt a m p o c os el l e v a r ac a b oc o nr e s p e c t oal a sv a r i a b l e s q u es o nm e n o si m p o r t a n t e s( s e g nl ao r d e n a c i na s u m i d op o r F o r m a t oC R E )q u ea q u e l l a se nl al i s t a` d o n t f a c t o r' . ` S a v e f a c t o r s' s i `t r u e 'h a c eq u el o sf a c t o r e sd eu n ae x p r e s i nq u e e su np r o d u c t od ef a c t o r e sas e rs a l v op o rc i e r t a sf u n c i o n e saf i n p a r aa c e l e r a rp o s t e r i o r e sf a c t o r i z a c i o n e sd ee x p r e s i o n e sq u ec o n t e n g a na l g u n o sd e l o sm i s m o sf a c t o r e s . ` B e r l e f a c tv a l e' s i 'f a l s e' e n t o n c e se la l g o r i t m od ef a c t o r i z a c i nd eK r o n e c k e r d el oc o n t r a r i ol aB e r l e k a m pa l g o r i t m o ,q u ee se lp r e d e t e r m i n a d o , s eu t i l i z a r . ` I n t f a c l i m' s i `t r u e 'M a x i m ad e s i s t i r d ef a c t o r i z a r e n t e r o ss in oe n c u e n t r an i n g nf a c t o rd e s p u sd el a sd i v i s i o n e st e n t a t i v a syd eP o l l a r d m t o d or h o .S is ee s t a b l e c ee n' f a l s e '( e s t ee se lc a s oc u a n d oe lu s u a r i o f a c t o rd el l a m a d a s` ' e x p l c i t a m e n t e ) ,f a c t o r i z a c i nc o m p l e t ad e le n t e r o s ei n t e n t a r .E le n t o r n od e lu s u a r i od e` i n t f a c l i m "s eu t i l i z ap a r a L a sl l a m a d a si n t e r n a saf a c t o rd e` ' .P o rl ot a n t o ,` i n t f a c l i m' p u e d er e i n i c i a r s ea e v i t a rq u eM a x i m ad e d i q u eu nt i e m p oe x c e s i v a m e n t el a r g of a c t o r i n g e n t e r o sg r a n d e s . E j e m p l o s : ( %I 1 )F a c t o r( 2^6 3 1 ) ; 2 ( %O 1 )77 31 2 73 3 79 2 7 376 4 96 5 7 ( %I 2 )F a c t o rd e( 8*y-4*x+z^2*( 2*y+x ) ) ; ( %O 2 )( 2y+x )( z-2 )( z+2 ) ( %I 3 )1-2*x-x^2+y^2+2*x*y^2+x^2*y^2 ; 22222 ( %O 3 )x y+2x y+y-x-2x-1 ( %I 4 )b l o q u e( [ d o n t f a c t o r :[ x ] ] ,e lf a c t o r( %/3 6/( 1+2*y+y^2 ) ) ) ; 2 ( X+2x+1 )( y-1 ) ( %O 4 )3 6( y+1 ) ( %I 5 )f a c t o r( 1+ %e^ ( 3*x ) ) ; x2x x ( %O 5 )( %e+1 )( %e-e %+1 ) ( %I 6 )f a c t o rd e( 1+x^4 ,u n^2-2 ) ; 22 ( %O 6 )( x-a x+1 )( x+a x+1 ) ( %I 7 )F a c t o r( y^2*z^2-x*z^2+x^2*y^2+x^3 ) ; 2 ( %O 7 )-( y+x )( z-x )( z+x ) ( %I 8 )( 2+x )/( 3+x )/( b+x )/( c+x )^2 ; x+2 ( %O 8 )2 ( X+3 )( x+b )( x+c ) ( %I 9 )r a t s i m p( % ) ; 43 ( %O 9 )( x+2 )/( x+( 2c+b+3 )x 2222 +( C+( 2+6b )cb+3 )x+( ( b+3 )c+6b c )x+3b c ) ( %I 1 0 )P A R T F R A C( % ,x ) ; 234 ( %O 1 0 )-( c-4c-b+6 )/( ( c+( -b2-6 )c 2222 +( B+1 2+9b )c+( -6b-1 8b )c+9b )( x+c ) ) c-2 -
142/633
28/08/13

22 ( C+( -b-3 )c+3b )( x+c ) b-2 +2232 ( ( B-3 )c+( 6b-2b )c+b-3b )( x+b ) 1 2 ( ( B-3 )+C( 1 8-6b )+c9b-2 7 )( x+3 ) ( %I 1 1 )d e lm a p a( " f a c t o r , % ) ; 2 c-4c-b+c6-2 ( %O 1 1 )-222 ( C-3 )( c-b )( x+c )( c-3 )( c-b )( x+c ) b-21 +22 ( B-3 )( c-b )( x+b )( b-3 )( c-3 )( x+3 ) ( %I 1 2 )r a t s i m p( ( x^5-1 )/( x-1 ) ) ; 432 ( %O 1 2 )x+x+x+x+1 ( %I 1 3 )s u b s t( a ,x , % ) ; 432 ( %O 1 3 )a+a+a+a+1 ( %I 1 4 )F a c t o rd e( %t h( 2 ) , % ) ; 2332 ( %O 1 4 )( x-a )( x-a )( x-a )( x+a+a+a+1 ) ( %I 1 5 )f a c t o rd e( 1+x^1 2 ) ; 484 ( %O 1 5 )( x+1 )( x-x+1 ) ( %I 1 6 )f a c t o rd e( 1+x^9 9 ) ; 263 ( %O 1 6 )( x+1 )( x-x+1 )( x-x+1 ) 1 098765432 ( X-x+x-x+x-x+x-x+x-x+1 ) 2 01 91 71 61 41 31 11 0976 ( X+x-x-x+x+x-x-x-x+x+x 436 05 75 14 84 23 93 3 -X-x+x+1 )( x+x-x-x+x+x-x 3 02 72 11 81 293 -X-x+x+x-x-x+x+1 )
V a r i a b l eo p c i o n a l :f a c t o r f l a g V a l o rp o rd e f e c t o :f a l s e' C u a n d o` f a c t o r f l a g' e s 'f a l s e' ,s u p r i m el af a c t o r i z a c i nd ee n t e r o s f a c t o r e sd ee x p r e s i o n e sr a c i o n a l e s .
F u n c i n :f a c t o r o u t( e x p r ,< x _ 1 > ,< x _ 2 > ,. . . ) R e o r g a n i z al as u m ae x p rc o m ou n as u m ad et r m i n o sd el af o r m af` ( < x _ 1 > ,< x _ 2 > ,. . . )*G' ,d o n d e` g 'e su np r o d u c t od ee x p r e s i o n e sq u en o c o n t e n g a< x _ i >y' f 'e sf a c t o r i z a d a . T e n g ae nc u e n t aq u el av a r i a b l eo p c i n` k e e p f l o a t' e si g n o r a d op o r ` F a c t o r o u t' . E j e m p l o : ( %I 1 )e x p a n s i n( a*( x+ 1 )*( x 1 )*( u+ 1 )^2 ) ; 22222 ( %O 1 )a u x+2a u x+a x-a u-2a u-u n a ( %I 2 )f a c t o r o u t( % ,x ) ; 2 ( %O 2 )a u( x-1 )( x+1 )+2a u( x-1 )( x+1 ) +A( x-1 )( x+1 )
F u n c i n :f a c t o r s u m( e x p r ) I n t e n t aa g r u p a rt r m i n o se nl o sf a c t o r e sd ee x p rq u es o ns u m a se n g r u p o sd et r m i n o st a l e sq u es us u m ae sf a c t o r i z a b l e .` F a c t o r s u m' p u e d er e c u p e r a re lr e s u l t a d od e` a m p l i a r( ( x+y )^2+( z+w )^2 )' p e r o N op u e d er e c u p e r a r` e x p a n d i r( ( x+1 )^2+( x+y )^2 )' ,p o r q u el o st r m i n o s t i e n e nv a r i a b l e sc o m u n e s . E j e m p l o : ( %I 1 )e x p a n d( ( x+1 )*( ( u+v )^2+a*( w+z )^2 ) ) ; 2222 ( %O 1 )A X Z+a z+2+2a w x za w za w x++v x
143/633
28/08/13

2222 +2U V X+u x+w+v+2u v+u ( %I 2 )f a c t o r s u m( % ) ; 22 ( %O 2 )( x+1 )( a( z+w )+( v+u ) )
F u n c i n :F a s t t i m e s( , ) D e v u e l v ee lp r o d u c t od el o sp o l i n o m i o sym e d i a n t ee lu s od eu n a l g o r i t m oe s p e c i a lp a r al am u l t i p l i c a c i nd ep o l i n o m i o s .` P _ 1 "y ` P _ 2' d e b es e rm u l t i v a r i a n t e s ,d e n s o sya p r o x i m a d a m e n t ed e lm i s m ot a m a o . M u l t i p l i c a c i nc l s i c ae sd eo r d e nn _ 1n _ 2` ' e n `n _ 1" e se l g r a d od ep _ 1` ' y `n _ 2 'e se lg r a d od e` p _ 2' .` F a s t t i m e s' e s d e lo r d e n` m a x( n _ 1 ,n _ 2 )^1 . 5 8 5 .
F u n c i n :f u l l r a t s i m p( e x p r ) ` F u l l r a t s i m p' A p l i c ar e p e t i d a m e n t er a t s i m p ` 's e g u i d o s i m p l i f i c a c i nn or a c i o n a lau n ae x p r e s i nh a s t aq u ey an o c a m b i os ep r o d u c e ,yd e v u e l v ee lr e s u l t a d o . C u a n d os et r a t ad ee x p r e s i o n e sn or a c i o n a l e s ,u n al l a m a d aa` r a t s i m p' s e g u i d oc o m oe sh a b i t u a lp o rl as i m p l i f i c a c i nn or a c i o n a l( " g e n e r a l " ) p u e d en os e rs u f i c i e n t ep a r ac o n s e g u i ru nr e s u l t a d os i m p l i f i c a d o .Av e c e s , p u e d es e rn e c e s a r i om sd eu n od et a l e sl l a m a d a .` F u l l r a t s i m p' h a c e e s t ep r o c e s oc o n v e n i e n t e . ` F u l l r a t s i m p( e x p r ,< x _ 1 > ,. . . ,< x _ n > )' t o m au n oom s a r g u m e n t o ss i m i l a r e sar a t s i m p` ' y 'r a t a' . E j e m p l o : ( %I 1 )e x p r :( x^( a/2 )+1 )^2*( x^( a/2 )-1 )^2/( xâ-1 ) ; a/22A/22 ( X-1 )( x+1 ) ( %O 1 )u n x-1 ( %I 2 )r a t s i m p( e x p r ) ; 2b i s x-x2+1 ( %O 2 )u n x-1 ( %I 3 )f u l l r a t s i m p( e x p r ) ; u n ( %O 3 )x-1 ( %I 4 )r a t a( e x p r ) ; a/24A/22 ( X )-2( x )+1 ( %O 4 )/R/u n x-1
F u n c i n :f u l l r a t s u b s t( < a > ,< c > ) e se lm i s m oq u e` r a t s u b s t' e x c e p t oq u el l a m aas m i s m ar e c u r s i v a m e n t e e ns uh a s t aq u ee lr e s u l t a d od e j ad ec a m b i a r .E s t af u n c i ne s t i lc u a n d ol ae x p r e s i nd er e e m p l a z oyl ae x p r e s i ns u s t i t u i d o t e n e ru n aom sv a r i a b l e se nc o m n . ` F u l l r a t s u b s t' t a m b i na c e p t as u sa r g u m e n t o se ne lf o r m a t od e ` L r a t s u b s t' .E sd e c i r ,e lp r i m e ra r g u m e n t op u e d es e ru ns o l o e c u a c i nd es u s t i t u c i nou n al i s t ad ee s a se c u a c i o n e s ,m i e n t r a sq u ee l E ls e g u n d oa r g u m e n t oe sl ae x p r e s i nq u es ep r o c e s a . ` L o a d( "l r a t s" )' c a r g a s 'f u l l r a t s u b s t' y `l r a t s u b s t ' . E j e m p l o s : ( %I 1 )l o a d( " l r a t s " )$ *` S u b s t' p u e d eh a c e rs u s t i t u c i o n e sm l t i p l e s .` L r a t s u b s t' e s a n l o g aa` s u b s t' . ( %I 2 )s u b s t( [ a=b ,c=d ] ,a+c ) ; ( %O 2 )d+b ( %I 3 )l r a t s u b s t( [ A^2=b ,c^2=d ] ,( a+e ) *C*( a+c ) ) ; ( %O 3 )( d+a c )e+a d+b c *S is l os eq u i e r eu n as u s t i t u c i n ,e n t o n c e su n as o l ae c u a c i n p u e d es e rd a d oc o m op r i m e ra r g u m e n t o . ( %I 4 )l r a t s u b s t( a^2=b ,a^3 ) ; ( %O 4 )a b *` F u l l r a t s u b s t' e se q u i v a l e n t ea 'r a t s u b s t' e x c e p t oq u e r e c u r s i v a m e n t eh a s t aq u ee lr e s u l t a d od e j ad ec a m b i a r .
144/633
28/08/13

( %I 5 )r a t s u b s t( b*a ,a^2 ,a^3 ) ; 2 ( %O 5 )a b ( %I 6 )f u l l r a t s u b s t( b*a ,a^2 ,a^3 ) ; 2 ( %O 6 )a b *` F u l l r a t s u b s t' t a m b i na c e p t au n al i s t ad ee c u a c i o n e sou n as l a e c u a c i nc o m op r i m e ra r g u m e n t o . ( %I 7 )f u l l r a t s u b s t( [ a^2=b ,b^2=c ,c^2=a ] ,a^3*b*c ) ; ( %O 7 )b ( %I 8 )f u l l r a t s u b s t( a^2=b*a ,a^3 ) ; 2 ( %O 8 )a b *` F u l l r a t s u b s t' p u e d ec a u s a ru n ar e c u r s i ni n f i n i t a . ( %I 9 )e r r c a t c h( f u l l r a t s u b s t( b*a^2 ,a^2 ,a^3 ) ) ; * * *-L i s ps t a c ko v e r f l o w .R E A J U S T E
F u n c i n :m c d( , ,< x _ 1 > ,. . . ) D e v u e l v ee lm x i m oc o m nd i v i s o rd ey .L ab a n d e r a ` M c d' d e t e r m i n aq u a l g o r i t m os ee m p l e a .A j u s t e` m c d' a ` E z' , `s u b r e s ' ,' r e d ' ,o` s p m o d' s e l e c c i o n ae l è z g c d ' , s u b r e s u l t a n t e` p r s' ,r e d u c e ,oa l g o r i t m om o d u l a r ,r e s p e c t i v a m e n t e . S i` ' `f a l s e 'y` m c dm c d( , ,< x > )' d e v u e l v es i e m p r e1 p a r at o d o s< x > .M u c h a sf u n c i o n e s( p o re j e m p l o ,r a t s i m p` ' , ` F a c t o r " ,e t c )h a c e nq u em c dq u ed e b e r a d o p t a ri m p l c i t a m e n t e .P a r a p o l i n o m i o sh o m o g n e o ss er e c o m i e n d a` m c d' i g u a la ` U s a r s es u b r e s' .P a r as a c a re lm x i m oc o m nd i v i s o rc u a n d ou na l g e b r a i c ae s t p r e s e n t e , p o re j e m p l o ,` m c d( < x >^2-2*s q r t( 2 )*< x >+2 ,< x >-s q r t( 2 ) )' ,l ao p c i n ` a l g e b r a i c av a r i a b l e "d e b es e r` t r u e' y 'm c d' n od e b es e r 'e z' . E l` m c d' b a n d e r a ,p o rd e f e c t o : `s p m o d ' ,s i' f a l s e 't a m b i ne v i t a r l a m x i m oc o m nd i v i s o rd es e rc u a n d ol a se x p r e s i o n e ss o n c o n v e r t i d oaf o r m a t or a c i o n a lc a n n i c o( C R E ) .E s t av o l u n t a d v e c e sr a p i d e zd ec l c u l on oe s t no b l i g a d o sG C D S . C o n s u l t et a m b i n` e z g c d' , `f u n c i ng c d e x ' ,` g c d i v i d e' y `p o l y _ g c d ' . E j e m p l o : ( %I 1 )p 1 :6*x^31 9*x^2+ 1 9*x6 ; 32 ( %O 1 )+6x1 9x1 9+x+6 ( %I 2 )p 2 :6*x^51 3*x^41 2*x^31 3*x^26*x ; 5432 ( %O 2 )6x1 3+x+1 2x1 3+x+6x ( %I 3 )m c d( p 1 ,p 2 ) ; 2 ( %O 3 )6x1 3+x+6 ( %I 4 )p 1 / g c d( p 1 ,p 2 ) ,r a t s i m p ; ( %O 4 )x+1 ( %I 5 )p 2 / g c d( p 1 ,p 2 ) ,r a t s i m p ; 3 ( %O 5 )x+x ` E z g c d' d e v u e l v eu n al i s t ac u y op r i m e rm i e m b r oe se lm x i m oc o m n d i v i s o rd el o sp o l i n o m i o sy ,yc u y ar e s t a n t e e l e m e n t o ss o nl o sp o l i n o m i o sd i v i d i d op o re lm x i m oc o m n d i v i s o r . ( %I 6 )e z g c d( P 1 ,P 2 ) ; 23 ( %O 6 )[ 6x1 3+x+6 ,x+1 ,x+x ]
F u n c i n :f u n c i ng c d e x( < f > ,< g > ) F u n c i n :f u n c i ng c d e x( < f > ,< g > ,< x > ) D e v u e l v eu n al i s t ad e` [ < a > , ]' d o n d ee se lm x i m oc o m n d i v i s o r( m c d )d e< f >y< g >ye si g u a la` < a >< f >+ < g >' .E l< f >a r g u m e n t o sy< g >d e b e ns e rp o l i n o m i o su n i v a r i a n t e s , ob i e n< x >p o l i n o m i o se nu n av a r i a b l ep r i n c i p a ls u m i n i s t r a d oy aq u en e c e s i t a m o s e s t a re nu nd o m i n i od ei d e a l e sp r i n c i p a l e sp a r aq u ee s t of u n c i o n e .E lm c ds i g n i f i c a e lm c ds o b r e< f >y< g >c o m op o l i n o m i o su n i v a r i a n t e sc o n c o e f i c i e n t e ss i e n d of u n c i o n e sr a c i o n a l e se nl a sd e m sv a r i a b l e s . ` F u n c i ng c d e x' i m p l e m e n t ae la l g o r i t m od eE u c l i d e s ,d o n d et e n e m o su n s e c u e n c i ad e` L[ i ] :[ a[ i ] ,b[ i ] ,r[ i ] ]' q u es o nt o d o sp e r p e n d i c u l a r a` [ f ,g ,1 ]' ye ls i g u i e n t es ec o n s t r u y ec o m os i `q= c o c i e n t e( r[ i ]/r[ i+ 1 ] )' y` L[ i+ 2 ] :L[ i ]-qL[ i+ 1 ] " ,y t e r m i n ae n` L[ i+ 1 ] "c u a n d oe lr e s t o` r[ i2 ]' e sc e r o . E l< f >a r g u m e n t o sy< g >p u e d e ns e re n t e r o s .P a r ae s t ec a s o ,l a f u n c i n` i g c d e x' e sl l a m a d op o rf u n c i ng c d e x ` ' . C o n s u l t et a m b i n` e z g c d' , `m c d ' ,` g c d i v i d e' y `p o l y _ g c d ' .
145/633
28/08/13
E j e m p l o s :
( %I 1 )f u n c i ng c d e x( x^2+1 ,x^3+4 ) ; 2 x+4x-1x+4 ( %O 1 )/R/[ ,,1 ] 1 71 7 ( %I 2 ) % .[ X^2+1 ,x^3+4 ,1 ] ; ( %O 2 )/R/0 T e n g ae nc u e n t aq u ee lm c dd el a ss i g u i e n t e se s` 1' y aq u et r a b a j a m o se n ` K( y )[ x ]' ,n oe l `y+ 1 'e s p e r a r a m o se n` k[ y ,x ] ' . ( %I 1 )f u n c i ng c d e x( x*( y+1 ) ,y^2-1 ,x ) ; 1 ( %O 1 )/R/[ 0 ,,1 ] 2 y-1
F u n c i n :g c f a c t o r( < n > ) F a c t o r e sd el ae n t e r og a u s s i a n o< n >l ol a r g od el o se n t e r o sd eG a u s s ,e sd e c i r , n m e r o sd el af o r m a` < a >+ ` %i ' 'd o n d e< a >ys o n e n t e r o sr a c i o n a l e s( e sd e c i r ,l o se n t e r o s ) .L o sf a c t o r e ss o n n o r m a l i z a d op o rl o< a >yn on e g a t i v o .
F u n c i n :g f a c t o r( e x p r ) F a c t o r e sd el a< e x p r >p o l i n o m i ol ol a r g od el o se n t e r o sd eG a u s s( e sd e c i r , l o sn m e r o se n t e r o sc o nl au n i d a di m a g i n a r i a %i` ' d o n d eayb ) .E s t oe sc o m o ` D el o sf a c t o r e s( e x p r ,< a >^2+ 1 )' d o n d e< a >e s ` %i ' . E j e m p l o : ( %I 1 )g f a c t o r( x^4-1 ) ; ( %O 1 )( x-1 )( x+1 )( x%i )( x+ %i )
F u n c i n :g f a c t o r s u m( e x p r ) e ss i m i l a ra` f a c t o r s u m' p e r os ea p l i c a `g f a c t o r 'e nv e zd e ` F a c t o r " .
F u n c i n :f u n c i nh i p o w( e x p r ,< x > ) D e v u e l v ee le x p o n e n t em sa l t od e< x >e x p l c i t ae ne x p r .< x >m a y o s e ru n av a r i a b l eou n ae x p r e s i ng e n e r a l .S i< x >n oa p a r e c ee n < e x p r > ,` f u n c i nh i p o w' d e v u e l v e `0 ' . ` F u n c i nh i p o w' n ot i e n ee nc u e n t ae x p r e s i o n e se q u i v a l e n t e sae x p r ` ' .E n c o n c r e t o ,` f u n c i nh i p o w' n os ee x p a n d e è x p r ' ,p o rl oq u e` f u n c i nh i p o w( e x p r , < x > )' y 'f u n c i nh i p o w( e x p a n d( e x p r ,< x > ) )' p u e d ep r o d u c i rd i f e r e n t e s r e s u l t a d o s . E j e m p l o s : ( %I 1 )f u n c i nh i p o w( y^3*x^2+x*y^4 ,x ) ; ( %O 1 )2 ( %I 2 )f u n c i nh i p o w( ( x+y )^5 ,x ) ; ( %O 2 )1 ( %I 3 )f u n c i nh i p o w( e x p a n d( ( x+y )^5 ) ,x ) ; ( %O 3 )5 ( %I 4 )f u n c i nh i p o w( ( x+y )^5 ,x+y ) ; ( %O 4 )5 ( %I 5 )f u n c i nh i p o w( e x p a n d( ( x+y )^5 ) ,x+y ) ; ( %O 5 )0
V a r i a b l eo p c i o n a l :i n t f a c l i m V a l o rp o rd e f e c t o :t r u e S i` t r u e' ,M a x i m ad e s i s t i r d ef a c t o r i z a re n t e r o ss in o f a c t o rq u es ee n c u e n t r ad e s p u sd el a sd i v i s i o n e st e n t a t i v a sym t o d or h od eP o l l a r dy f a c t o r i z a c i nn oe s t a r c o m p l e t a . C u a n d o` i n t f a c l i m' e s `f a l s o '( e s t ee se lc a s oc u a n d oe lu s u a r i ol l a m a ` F a c t o r "e x p l c i t a m e n t e ) ,s ei n t e n t a r l af a c t o r i z a c i nc o m p l e t a . ` I n t f a c l i m' e s t a j u s t a d oa 'f a l s e' c u a n d os ec a l c u l a nf a c t o r e s D i v i s o r e s` ' , `l l a m a d ad i v s u m 'y` t o t i e n t' . L a sl l a m a d a si n t e r n a saf a c t o rd e` ' r e s p e t a ne lv a l o re s p e c i f i c a d op o re lu s u a r i od e ` I n t f a c l i m' .A j u s t e` i n t f a c l i m' a `t r u e 'p u e d er e d u c i re lt i e m p o p a s a d of a c t o r i z a rn m e r o se n t e r o sg r a n d e s .
146/633
28/08/13
V a r i a b l eo p c i o n a l :k e e p f l o a t V a l o rp o rd e f e c t o :f a l s e'
C u a n d o` k e e p f l o a t' e s `t r u e ' ,e v i t an m e r o sd ep u n t of l o t a n t ed e s er a c i o n a l i z a nc u a n d ol a se x p r e s i o n e sq u el o sc o n t i e n e ns o n c o n v e r t i d oaf o r m a t or a c i o n a lc a n n i c o( C R E ) . T e n g ae nc u e n t aq u el af u n c i n` r e s o l v e r' ye s a sf u n c i o n e sl l a m n d o l o ( ' V a l o r e sp r o p i o s ' ,p o re j e m p l o )A c t u a l m e n t ei g n o r a re s t ab a n d e r a ,l ac o n v e r s i n n m e r o sd ep u n t of l o t a n t ed et o d o sm o d o s . E j e m p l o s : ( %I 1 )r a t a( x / 2 . 0 ) ; ' R a t a 's u s t i t u y e0 , 5p o r1 / 2=0 . 5 x ( %O 1 )/R/2 ( %I 2 )d er a t a( x / 2 . 0 ) ,k e e p f l o a t ; ( %O 2 )/R/0 , 5x ' R e s o l v e r 'i g n o r a` k e e p f l o a t' : ( %I 3 )r e s o l v e r( 1 . 0 x ,x ) ,k e e p f l o a t ; ' R a t a 's u s t i t u y e1 , 0p o r1 / 1=1 , 0 ( %O 3 )[ x=1 ]
F u n c i n :l o p o w( e x p r ,< x > ) D e v u e l v ee le x p o n e n t em sb a j od e< x >q u ea p a r e c ee x p l c i t a m e n t ee n e x p r .A s ( %I 1 )l o p o w( ( x+y )^2+( x+y )û n a ,x+y ) ; ( %O 1 )m i n( a ,2 )
F u n c i n :l r a t s u b s t( < L > ,e x p r ) e sa n l o g aa` s u b s t( < L > ,e x p r )' e x c e p t oq u eu t i l i z a ` R a t s u b s t' e nl u g a rd e `s u b s t . E lp r i m e ra r g u m e n t od e` l r a t s u b s t' e su n ae c u a c i nou n al i s t ad e e c u a c i o n e si d n t i c a se nf o r m a t oal a sa c e p t a d a sp o rs u b s t` ' .L a s u s t i t u c i o n e ss eh a c e ne ne lo r d e nd a d op o rl al i s t ad ee c u a c i o n e s , e sd e c i r ,d ei z q u i e r d aad e r e c h a . ` L o a d( "l r a t s" )' c a r g a s 'f u l l r a t s u b s t' y `l r a t s u b s t ' . E j e m p l o s : ( %I 1 )l o a d( " l r a t s " )$ *` S u b s t' p u e d eh a c e rs u s t i t u c i o n e sm l t i p l e s .` L r a t s u b s t' e s a n l o g aa` s u b s t' . ( %I 2 )s u b s t( [ a=b ,c=d ] ,a+c ) ; ( %O 2 )d+b ( %I 3 )l r a t s u b s t( [ A^2=b ,c^2=d ] ,( a+e ) *C*( a+c ) ) ; ( %O 3 )( d+a c )e+a d+b c *S is l os eq u i e r eu n as u s t i t u c i n ,e n t o n c e su n as o l ae c u a c i n p u e d es e rd a d oc o m op r i m e ra r g u m e n t o . ( %I 4 )l r a t s u b s t( a^2=b ,a^3 ) ; ( %O 4 )a b
V a r i a b l eo p c i o n a l :m d u l o V a l o rp o rd e f e c t o :f a l s e' C u a n d oe lm d u l o` ' e su nn m e r op o s i t i v o ,o p e r a c i o n e ss o b r er a c i o n a l n m e r o s( d e v u e l t op o r` r a t ayf u n c i o n e sa s o c i a d a s )s er e a l i z a n ac a b om d u l o ,u s a n d oe ll l a m a d os i s t e m ad em d u l o" e q u i l i b r a d a "e n q u e` < n >m d u l o' s ed e f i n ec o m ou nn m e r oe n t e r oe n< k > ` [ -( 1 )/2 ,. . . ,0 ,. . . ,( 1 )/2 ] "c u a n d oe si m p a r ,o ` [ -( /2-1 ) ,. . . ,0 ,. . . . ,/2 ]' c u a n d oe sp a r ,d et a lm a n e r aq u e ` < a >+< k >' E si g u a la< n >p a r aa l g u n o s< a >n m e r oe n t e r o . S ie x p ry ae s t e ns uf o r m ac a n n i c a( C R E ) c u a n d o` e se lm d u l o' r e s e t ,e n t o n c e sp u e d eq u et e n g aq u e< e x p r >r e r a t a ,p o re j e m p l o , ` E x p r :r a t a( r a t d i s r e p( e x p r ) )' ,c o ne lf i nd eo b t e n e rr e s u l t a d o sc o r r e c t o s . N o r m a l m e n t e` m d u l o "s ee s t a b l e c ee nu nn m e r op r i m o .S is ee s t a b l e c ee lm d u l o` ' au nn m e r oe n t e r op o s i t i v on op r i m o ,e s t ea j u s t ee sa c e p t a d o ,s i n ou n a A p a r e c eu nm e n s a j ed ea d v e r t e n c i a .M a x i m as e a l au ne r r o r ,c u a n d oc e r o ou ne n t e r on e g a t i v os ea s i g n aa` m d u l o' .
147/633
28/08/13
E j e m p l o s :
( %I 1 )M d u l o :7 ; ( %O 1 )7 ( %I 2 )p o l y m o d( [ 0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 ] ) ; ( %O 2 )[ 0 ,1 ,2 ,3 ,-3 ,-2 ,-1 ,0 ] ( %I 3 )M d u l o :f a l s e ; ( %O 3 )f a l s e ( %I 4 )p o l i :x^6+x^2+ 1 ; 62 ( %O 4 )x+x+1 ( %I 5 )F a c t o rd e( p o l i ) ; 62 ( %O 5 )x+x+1 ( %I 6 )m d u l o :1 3 ; ( %O 6 )1 3 ( %I 7 )F a c t o rd e( p o l i ) ; 242 ( %O 7 )( x+6 )( x-6x-2 ) ( %I 8 )p o l y m o d( % ) ; 62 ( %O 8 )x+x+1
F u n c i n :n u m( e x p r ) D e v u e l v ee ln u m e r a d o rd e< e x p r >s is et r a t ad eu n ar e l a c i n .S ie x p re s n ou n ar e l a c i n ,s ed e v u e l v ee x p r . ' N u m 'e v a l as u sa r g u m e n t o s .
F u n c i n :p o l y d e c o m p( ,< x > ) S ed e s c o m p o n ee lp o l i n o m i oe ne l< x >v a r i a b l ee ne l c o m p o s i c i nf u n c i o n a ld ep o l i n o m i o se n< x > .` P o l y d e c o m p' d e v u e l v eu n al i s t a` [ ,. . . , ]' t a lq u e l a m b d a( [ x ] ,p _ 1 )( l a m b d a( [ x ] ,p _ 2 )( . . .( l a m b d a( [ x ] ,p _ n )( x ) ) . . . ) ) e si g u a la .E lg r a d od ee sm a y o rq u e1p a r a m e n o sd e< n > . T a ld e s c o m p o s i c i nn oe s n i c a . E j e m p l o s : ( %I 1 )p o l y d e c o m p( x^2 1 0 ,x ) ; 7532 ( %O 1 )[ x ,x ,x ,x ] ( %I 2 )t :a m p l i a r( s u b s t( x^3-x-1 ,x ,x^2-a ) ) ; 6432 ( %O 2 )x-2x-2x+x+2x-a+1 ( %I 3 )p o l y d e c o m p( p ,x ) ; 23 ( %O 3 )[ x-a ,x-x-1 ] L as i g u i e n t ef u n c i nc o m p o n e` L=[ E _ 1 ,. . . ,e _ n ]' c o m of u n c i o n e s e n` x' ,s i n oq u ee sl ai n v e r s ad ep o l y d e c o m p : c o m p o s e( L ,x ) := b l o q u e( [ r :x ] ,p o rc o r r e oe nLh a c e r l or :s u b s t( e ,x ,r ) ,r )$ R e e j e m p l od em sa r r i b au s a n d o` c o m p o n e r' : ( %I 3 )p o l y d e c o m p( c o m p o s e( [ x^2-a ,x^3-x-1 ] ,x ) ,x ) ; 23 ( %O 3 )[ x-a ,x-x-1 ] T e n g ae nc u e n t aq u ea u n q u e` c o m p o n e r( p o l y d e c o m p( ,< x > ) ,< x > ) "s i e m p r e v u e l v e( s i ne x p a n d i r ) ,` p o l y d e c o m p( c o m p o n e r( [ ,. . . , ] ,< x > ) ,< x > )' n on e c e s a r i a m e n t ev o l v e r` [ ,. . . , ]' : ( %I 4 )p o l y d e c o m p( c o m p o s e( [ x^2+2*x+3 ,x^2 ] ,x ) ,x ) ; 22 ( %O 4 )[ x+2 ,x+1 ] ( %I 5 )p o l y d e c o m p( c o m p o n e r( [ x^2+x+1 ,x^2+x+1 ] ,x ) ,x ) ; 22 x+3x+5 ( %O 5 )[ ,,2x+1 ] 42
F u n c i n :p o l y m o d( ) F u n c i n :p o l y m o d( ,< m > ) C o n v i e r t ee lp o l i n o m i oau n ar e p r e s e n t a c i nm o d u l a r r e s p e t a rd e lm d u l oa c t u a l ,q u ee se lv a l o rd el av a r i a b l e ` M d u l o' . ` P o l y m o d( ,< m > )' e s p e c i f i c au n< m >m d u l oq u es eu t i l i z a r e nl u g a rd e
148/633
28/08/13
e lv a l o ra c t u a ld e lm d u l o` ' . V a s ee lm d u l o` ' .
F u n c i n :p o d e r e s( e x p r ,< x > ) P r o p o r c i o n aal o sp o d e r e sd eo c c u r i n g< x >e ne x p r . C a r g a s` c a r g a( p o d e r e s )' e s t af u n c i n .
F u n c i n :c o c i e n t e( , ) F u n c i n :c o c i e n t e( , ,< x _ 1 > ,. . . ,< x _ n > ) D e v u e l v ee lp o l i n o m i od i v i d i d op o re lp o l i n o m i o .L a a r g u m e n t o s< x _ 1 > ,. . . ,< x _ n >s ei n t e r p r e t a nc o m oe n` r a t v a r s . ` C o c i e n t e' d e v u e l v ee lp r i m e re l e m e n t od el al i s t ad ed o se l e m e n t o s d e v u e l t op o r` b r e c h a' .
F u n c i n :r a t a( e x p r ) F u n c i n :r a t a( e x p r ,< x _ 1 > ,. . . ,< x _ n > ) C o n v i e r t ee x p rf o r m aas uf o r m ac a n n i c a( C R E )p o r a m p l i a n d oyc o m b i n a n d ot o d o sl o st r m i n o ss o b r eu nd e n o m i n a d o rc o m ny c a n c e l a n d oe lm x i m oc o m nd i v i s o rd e ln u m e r a d o ry d e n o m i n a d o r ,a s c o m ol ac o n v e r s i nd en m e r o sd ep u n t of l o t a n t ea n m e r o sr a c i o n a l e sd e n t r od el at o l e r a n c i ad e l` r a t e p s i l o n' .L a v a r i a b l e ss eo r d e n a nd ea c u e r d oc o ne l< x _ 1 > ,. . . ,< x _ n > ,s i e s p e c i f i c a d a ,c o m oe n` r a t v a r s . ' R a t a 'n os u e l ef u n c i o n e sd i s t i n t a sa d e m ss i m p l i f i c a r ` +' ,R e s t a '-' ,m u l t i p l i c a c i n '*' ,l ad i v i s i n `/ ' ,y e x p o n e n c i a c i nd ee x p o n e n t ee n t e r o ,m i e n t r a sq u er a t s i m p` ' C m om a n e j a e s o sc a s o s .T e n g ae nc u e n t aq u el o s t o m o s( n m e r o syv a r i a b l e s )e nf o r m ad eC R E n os o nl o sm i s m o sq u es ee n c u e n t r a ne nl af o r m ag e n e r a l .P o re j e m p l o , ` R a t a( x )-' r e n d i m i e n t o s `r a t a( 0 ) 'xq u et i e n eu ni n t e r i o rd i f e r e n t e r e p r e s e n t a c i nq u e0 . C u a n d o` r a t f a c' e s 't r u e' , 'r a t a' p r o d u c eu n af o r m ap a r c i a l m e n t ef a c t o r i z a d a p a r aC R E .D u r a n t el a so p e r a c i o n e sr a c i o n a l e ss em a n t i e n el ae x p r e s i n c o m p l e t a m e n t ef a cc o m os e ap o s i b l es i nu n al l a m a d ar e a lp a r ae lf a c t o r p a q u e t e .E s t os i e m p r ed e b ea h o r r a re s p a c i oyp u e d ea h o r r a ra l g od et i e m p oe n a l g u n o sc l c u l o s .E ln u m e r a d o rye ld e n o m i n a d o rt o d a v as eh a c e n p r i m o se n t r es ( p o re j e m p l o ,` r a t( ( x^2-1 )^4/( x+1 )^2 )' r e n d i m i e n t o '( x1 )^4( x+1 )^2 )' ,p e r ol o sf a c t o r e sd e n t r od ec a d ap a r t en op u e d es e r p r i m o se n t r es . ` R a t p r i n t' s i 'f a l s e' s u p r i m el ai m p r e s i nd e lm e n s a j e i n f o r m a ra lu s u a r i od el ac o n v e r s i nd en m e r o sd ep u n t of l o t a n t ea n m e r o sr a c i o n a l e s . ` K e e p f l o a t' s i `t r u e 'i m p i d en m e r o sd ep u n t of l o t a n t ed es e r c o n v e r t i d oan m e r o sr a c i o n a l e s . C o n s u l t et a m b i n` r a t e x p a n d' y `r a t s i m p . E j e m p l o s : ( %I 1 )( ( x-2*y )^4/( x^2-4*y^2 )^2+1 )*( y+a )*( 2*y+x )/ ( 4*y^2+x^2 ) ; 4 ( X-2y ) ( Y+a )( 2y+x )( +-1 ) 222 ( X-4y ) ( %O 1 )22 4y+x ( %I 2 )d er a t a( % ,y ,a ,x ) ; 2a+2y ( %O 2 )/R/x+2y
V a r i a b l eo p c i o n a l :r a t a l g d e n o m V a l o rp o rd e f e c t o :t r u e' C u a n d o` r a t a l g d e n o m' e s `t r u e ' ,p e r m i t el ar a c i o n a l i z a c i nd el o s d e n o m i n a d o r e se l i m i n a n d or a d i c a l e ss u r t a ne f e c t o . ` R a t a l g d e n o m' s l ot i e n ee f e c t oc u a n d oc a n n i c ar a c i o n a l e x p r e s i o n e s( C R E )s eu t i l i z a ne nm o d oa l g e b r a i c o .
F u n c i n :f u n c i nr a t c o e f( e x p r ,< x >< n > ) F u n c i n :f u n c i nr a t c o e f( e x p r ,< x > ) D e v u e l v ee lc o e f i c i e n t ed el ae x p r e s i n` < x >^< n >' e ne l
149/633
28/08/13

< e x p r >e x p r e s i n .S is eo m i t e ,< n >s es u p o n eq u ee s1 . E lv a l o rd er e t o r n oe sl i b r e( e x c e p t op o s i b l e m e n t ee nu ns e n t i d on or a c i o n a l ) d el a sv a r i a b l e se n< x > .S in i n g nc o e f i c i e n t ed ee s t et i p oe x i s t e ,0 s ed e v u e l v e . ` F u n c i nr a t c o e f' s ee x p a n d eys i m p l i f i c ar a c i o n a l m e n t es up r i m e ra r g u m e n t o , p o rl ot a n t o ,p u e d ep r o d u c i rr e s p u e s t a sd i f e r e n t e sd el a sd el o s` c o e f i c i e n t e' q u e e sp u r a m e n t es i n t c t i c o .A s ` f u n c i nr a t c o e f( ( x+1 )/y+x ,x )d e v u e l v e ` ( Y+1 )/y' m i e n t r a sq u e 'c o e f i c i e n t e' d e v u e l v e1 . ` F u n c i nr a t c o e f( e x p r ,< x >0 )' ,s em u e s t r a ne x p rc o m ou n as u m a ,d e v u e l v eu n as u m a d ee s o st r m i n o sq u en oc o n t i e n e n< x > .P o rl ot a n t o ,s is ep r o d u c e< x > al a sp o t e n c i a sn e g a t i v a s ,n os ed e b eu t i l i z a r` f u n c i nr a t c o e f' . D e s d ee x p rs es i m p l i f i c ar a c i o n a l m e n t ea n t e sd es e re x a m i n a d a , c o e f i c i e n t e sp u e d eq u en oa p a r e z c a nc o m oe nl ae x p r e s i no r i g i n a l . E j e m p l o : ( %I 1 )s :a*x+b*x+5$ ( %I 2 )f u n c i nr a t c o e f( s ,a+b ) ; ( %O 2 )x
F u n c i n :r a t d e n o m( e x p r ) D e v u e l v ee ld e n o m i n a d o rd ee x p r ,d e s p u sd eo b l i g a rau n< e x p r > s uf o r m ac a n n i c a( C R E ) .E lv a l o rd er e t o r n oe su n aC R E . e x p re sf o r z a d oau n aC R Ep o r' r a t a 's in ol oe sy au n aC R E . E s t ac o n v e r s i np u e d ec a m b i a rl af o r m ad ee x p rc o l o c a n d ot o d o ss u st r m i n o s s o b r eu nd e n o m i n a d o rc o m n . ` D e n o m' e ss i m i l a r ,p e r od e v u e l v eu n ae x p r e s i ng e n e r a le nl u g a rd e u n aC R E .A d e m s ,` d e n o m' n oi n t e n t ac o l o c a rt o d o sl o st r m i n o ss o b r eu n d e n o m i n a d o rc o m n ,d em a n e r aq u ea l g u n a se x p r e s i o n e sq u es o nc o n s i d e r a d a s r e l a c i o n e se n` r a t d e n o m' n os ec o n s i d e r a nr e l a c i o n e sp o r `d e n o m .
V a r i a b l eo p c i o n a l :r a t d e n o m d i v i d e V a l o rp o rd e f e c t o :t r u e' C u a n d o` r a t d e n o m d i v i d e' e s `t r u e ' ,` r a t e x p a n d' e x p a n d eu n af r a c c i ne n q u ee ln u m e r a d o re su n as u m ae nu n as u m ad ef r a c c i o n e s ,t o d a se l l a su n d e n o m i n a d o rc o m n .D el oc o n t r a r i o ,` r a t e x p a n d' r e d u c eu n as u m ad e r e l a c i o n e se nu n a n i c af r a c c i n ,c u y on u m e r a d o re sl as u m ad e l o sd e n o m i n a d o r e sd ec a d af r a c c i n . E j e m p l o s : ( %I 1 )e x p r :( x^2+x+1 )/( y^2+7 ) ; 2 x+x+1 ( %O 1 )2 y+7 ( %I 2 )r a t d e n o m d i v i d e :t r u e$ ( %I 3 )r a t e x p a n d( e x p r ) ; 2 x x1 ( %O 3 )-+-+222 7y+y+y+77 ( %I 4 )r a t d e n o m d i v i d e :f a l s e$ ( %I 5 )r a t e x p a n d( e x p r ) ; 2 x+x+1 ( %O 5 )2 y+7 ( %I 6 )e x p r 2 :a^2/( b^2+3 )+b/( b^2+3 ) ; 2 b a ( %O 6 )-+22 b+b3+3 ( %I 7 )r a t e x p a n d( e x p r 2 ) ; 2 b+a ( %O 7 )2 b+3
F u n c i n :f u n c i nr a t d i f f( e x p r ,< x > ) D i s t i n g u el ae x p r e s i nr a c i o n a le x p rc o nr e s p e c t oa< x > . < e x p r >d e b es e ru n af r a c c i nd ep o l i n o m i o sou np o l i n o m i oe n< x > .L a < x >a r g u m e n t op u e d es e ru n av a r i a b l eou n as u b e x p r e s i nd ee x p r . E lr e s u l t a d oe se q u i v a l e n t ea` d i f f' ,a u n q u et a lv e ze nu n
150/633
28/08/13

f o r m ad i f e r e n t e .` F u n c i nr a t d i f f' p u e d es e rm sr p i d oq u e `d i f f ' ,p o rr a c i o n a l e x p r e s i o n e s . ` F u n c i nr a t d i f f' d e v u e l v eu n ae x p r e s i nr a c i o n a lc a n n i c a( C R E )s i è x p r ' e su n aC R E .D el oc o n t r a r i o ,` f u n c i nr a t d i f f' d e v u e l v eu n ae x p r e s i ng e n e r a l . ` F u n c i nr a t d i f f' s l oc o n s i d e r al ad e p e n d e n c i ad ee x p re n< x >y i g n o r a n d oc u a l q u i e rd e p e n d e n c i ae s t a b l e c i d ap o r' d e p e n d e ' . E j e m p l o : ( %I 1 )e x p r :( 4*x^3+1 0*x-1 1 )/( x^5+5 ) ; 3 4x+x1 0-1 1 ( %O 1 )5 x+5 ( %I 2 )f u n c i nr a t d i f f( e x p r ,x ) ; 7542 8x4 0+x-x5 5-6 0x5 0( %O 2 )1 05 x+1 0x+2 5 ( %I 3 )e x p r :f( x )^3-f( x )^2+7 ; 32 ( %O 3 )f( x )-f( x )+7 ( %I 4 )f u n c i nr a t d i f f( e x p r ,f( x ) ) ; 2 ( %O 4 )3f( x )-2f( x ) ( %I 5 )e x p r :( a+b )^3+( a+b )^2 ; 32 ( %O 5 )( b+a )+( b+a ) ( %I 6 )f u n c i nr a t d i f f( e x p r ,a+b ) ; 22 ( %O 6 ) ,3b+( 6a+2 )b+3a+2a
F u n c i n :r a t d i s r e p( e x p r ) D e v u e l v es ua r g u m e n t oc o m ou n ae x p r e s i ng e n e r a l .S ie su n< e x p r > e x p r e s i ng e n e r a l ,s ed e v u e l v es i nc a m b i o s . N o r m a l m e n t e` r a t d i s r e p' e s t l l a m a d oac o n v e r t i ru n af o r m ac a n n i c a e x p r e s i n( C R E )e nu n ae x p r e s i ng e n e r a l .E s t oe sav e c e s c o n v e n i e n t es is eq u i e r ep a r a re l" c o n t a g i o " ,oe lu s or a c i o n a l f u n c i o n e se nc o n t e x t o sn or a c i o n a l e s . C o n s u l t et a m b i n` t o t a l d i s r e p' .
F u n c i n :r a t e x p a n d( e x p r ) V a r i a b l eo p c i o n a l :r a t e x p a n d E x p a n d ee x p rm u l t i p l i c a n d op r o d u c t o sd es u m a sy s u m a sc o ne x p o n e n t e s ,c o m b i n a n d of r a c c i o n e ss o b r eu nd e n o m i n a d o rc o m n , c a n c e l a n d oe lm x i m oc o m nd i v i s o rd e ln u m e r a d o ry d e n o m i n a d o r ,ac o n t i n u a c i n ,d i v i d i re ln u m e r a d o r( s iu n as u m a )e ns u r e s p e c t i v o st r m i n o sd i v i d i d op o re ld e n o m i n a d o r . E lv a l o rd er e t o r n od e` r a t e x p a n d' e su n ae x p r e s i ng e n e r a l ,i n c l u s os i e x p re su n ae x p r e s i nr a c i o n a lc a n n i c a( C R E ) . E li n t e r r u p t o r` r a t e x p a n d' s i `t r u e 'h a r q u el a se x p r e s i o n e sC R Es e t o t a l m e n t ee x p a n d i d oc u a n d os ec o n v i e r t a na lf o r m a t og e n e r a lo v i s u a l i z a d o ,m i e n t r a sq u es ie s` f a l s o' e n t o n c e ss e r np u e s t o se nu n a f o r m ar e c u r s i v a .V a s et a m b i nr a t s i m p` ' . C u a n d o` r a t d e n o m d i v i d e' e s `t r u e ' ,` r a t e x p a n d' e x p a n d eu n af r a c c i ne n q u ee ln u m e r a d o re su n as u m ae nu n as u m ad ef r a c c i o n e s ,t o d a se l l a su n d e n o m i n a d o rc o m n .D el oc o n t r a r i o ,` r a t e x p a n d' r e d u c eu n as u m ad e r e l a c i o n e se nu n a n i c af r a c c i n ,c u y on u m e r a d o re sl as u m ad e l o sd e n o m i n a d o r e sd ec a d af r a c c i n . C u a n d o` k e e p f l o a t' e s `t r u e ' ,e v i t an m e r o sd ep u n t of l o t a n t ed e s er a c i o n a l i z a nc u a n d ol a se x p r e s i o n e sq u el o sc o n t i e n e ns o n c o n v e r t i d oaf o r m a t or a c i o n a lc a n n i c o( C R E ) . E j e m p l o s : ( %I 1 )r a t e x p a n d( ( 2*x-3*y )^3 ) ; 3223 ( %O 1 )-2 7y+5 4x y-3 6x y+8x ( %I 2 )e x p r :( x-1 )/( x+1 )^2+1/( x-1 ) ; x-11 ( %O 2 )-+2x-1 ( X+1 ) ( %I 3 )e x p a n d( e x p r ) ; x11 ( %O 3 )-+2x2-1 x+2x+1x2+x+1 ( %I 4 )r a t e x p a n d( e x p r ) ; 2
151/633
28/08/13

2x2 ( %O 4 )-+3232 x+x-x-x1+x-x-1
V a r i a b l eo p c i o n a l :r a t f a c V a l o rp o rd e f e c t o :f a l s e' C u a n d o` r a t f a c' e s `t r u e ' ,e x p r e s i o n e sc a n n i c a s( C R E )s o n m a n i p u l a d oe nu n af o r m ap a r c i a l m e n t ef a c t o r i z a d a . D u r a n t el a so p e r a c i o n e sr a c i o n a l e s ,l a se x p r e s i o n e ss em a n t i e n e nc o m p l e t a m e n t e f a c t o rp o s i b l es i nl l a m a r` f a c t o r " .E s t os i e m p r ed e b e a h o r r a re s p a c i oyp u e d ea h o r r a rt i e m p oe na l g u n o sc l c u l o s .E ln u m e r a d o r ye ld e n o m i n a d o rs eh a c e np r i m o sr e l a t i v o s ,p o re j e m p l o` r a t( ( x^2 -1 )^4/( x+1 )^2 )' r e n d i m i e n t o s` ( x-1 )^4( x+1 )^2 ) ' ,p e r ol o sf a c t o r e s d e n t r od ec a d ap a r t en op u e d es e rp r i m o se n t r es . E ne l' ( C o m p o n e n tM a n i p u l a c i nT e n s o r )p a q u e t e` c t e n s r ,R i c c i , E i n s t e i n ,R i e m a n nyW e y lyl ac u r v a t u r ae s c a l a rs o n f a c t o rd ef o r m aa u t o m t i c ac u a n d o` r a t f a c' e s `t r u e ' .` R a t f a c "d e b e r a s l op u e d e ne s t a b l e c e rp a r al o sc a s o se nq u es ec o n o c e nl o sc o m p o n e n t e st e n s o r i a l e s c o n s i s t i rd ea l g u n o st r m i n o s . E l` e s q u e m a sr a t f a c' `r a t w e i g h ty" s o ni n c o m p a t i b l e syn om a y o t a n t os e ru t i l i z a d oa lm i s m ot i e m p o .
F u n c i n :r a t n u m e r( e x p r ) D e v u e l v ee ln u m e r a d o rd ee x p r ,d e s p u sd eo b l i g a rau n< e x p r > s uf o r m ac a n n i c a( C R E ) .E lv a l o rd er e t o r n oe su n aC R E . e x p re sf o r z a d oau n aC R Ep o r' r a t a 's in ol oe sy au n aC R E . E s t ac o n v e r s i np u e d ec a m b i a rl af o r m ad ee x p rc o l o c a n d ot o d o ss u st r m i n o s s o b r eu nd e n o m i n a d o rc o m n . ` N m e r o' e ss i m i l a r ,p e r od e v u e l v eu n ae x p r e s i ng e n e r a le nl u g a rd eu n C R E .A d e m s ,` n m e r o' n oi n t e n t ac o l o c a rt o d o sl o st r m i n o ss o b r eu n d e n o m i n a d o rc o m n ,d em a n e r aq u ea l g u n a se x p r e s i o n e sq u es o nc o n s i d e r a d a s r e l a c i o n e se n` r a t n u m e r' n os ec o n s i d e r a nr e l a c i o n e sd e `n m e r o ' .
F u n c i n :R A T P( e x p r ) D e v u e l v e` t r u e' s ie x p re su n ae x p r e s i nr a c i o n a lc a n n i c a( C R E ) ou n aC R Ee x t e n d i d a ,d el oc o n t r a r i o` f a l s e' . C R Es o nc r e a d a sp o rr a t` ' yl a sf u n c i o n e sr e l a c i o n a d a s .C R Ee x t e n d i d a ss o n c r e a d op o r' t a y l o r 'yl a sf u n c i o n e sr e l a c i o n a d a s .
V a r i a b l eo p c i o n a l :r a t p r i n t V a l o rp o rd e f e c t o :t r u e' C u a n d o` r a t p r i n t' e s `t r u e ' ,u nm e n s a j eq u ei n f o r m aa lu s u a r i od el a c o n v e r s i nd en m e r o se nc o m af l o t a n t ean m e r o sr a c i o n a l e se s r e p r e s e n t a d a .
F u n c i n :r a t s i m p( e x p r ) F u n c i n :r a t s i m p( e x p r ,< x _ 1 > ,. . . ,< x _ n > ) S i m p l i f i c al ae x p r e s i ne x p ryt o d a ss u ss u b e x p r e s i o n e s , i n c l u y e n d ol o sa r g u m e n t o saf u n c i o n e sn or a c i o n a l e s .E lr e s u l t a d oe s r e g r e s c o m oe lc o c i e n t ed ed o sp o l i n o m i o se nu n af o r m ar e c u r s i v a , e sd e c i r ,l o sc o e f i c i e n t e sd el av a r i a b l ep r i n c i p a ls o np o l i n o m i o se n l a so t r a sv a r i a b l e s .L a sv a r i a b l e sp u e d e ni n c l u i rf u n c i o n e sn or a c i o n a l e s ( P o re j e m p l o ,` s i n( x^2+1 )' )yl o sa r g u m e n t o sd et a l e sf u n c i o n e s T a m b i ne s t nr a c i o n a l m e n t es i m p l i f i c a d a . ` R a t s i m p( e x p r ,< x _ 1 > ,. . . ,< x _ n > )' p e r m i t er a c i o n a l s i m p l i f i c a c i nc o nl ae s p e c i f i c a c i nd el av a r i a b l ed ep e d i d oc o m oe n ` R a t v a r s' . C u a n d o` r a t s i m p e x p o n s' e s `t r u e ' ,` r a t s i m p' s ea p l i c aal a e x p o n e n t e sd el a se x p r e s i o n e sd u r a n t el as i m p l i f i c a c i n . C o n s u l t et a m b i n` r a t e x p a n d' .T e n g ae nc u e n t aq u e` r a t s i m ps ev ea f e c t a d ap o ra l g u n o sd e l a sb a n d e r a sq u ea f e c t a n` r a t e x p a n d' . E j e m p l o s : ( %I 1 )s e n( x/( x^2+x ) )=e x p( ( l o g( x )+1 )^2-l o g( x )^2 ) ; 22 x( l o g( x )+1 )-l o g( x ) ( %O 1 )s i n( )= %e
152/633
28/08/13
2 x+x ( %I 2 )r a t s i m p( % ) ;
12 ( %O 2 )s i n( )= %e x x+1 ( %I 3 )( ( x-1 )^( 3 / 2 )-( x+1 )*s q r t( x-1 ) )/s q r t( ( x-1 )*( x+1 ) ) ; 3 / 2 ( X-1 )-s q r t( x-1 )( x+1 ) ( %O 3 )s q r t( ( x-1 )( x+1 ) ) ( %I 4 )r a t s i m p( % ) ; 2s q r t( x-1 ) ( %O 4 )2 s q r t( x-1 ) ( %I 5 )x^( a+1/a ) ,r a t s i m p e x p o n s :t r u e ; 2 a+1 u n ( %O 5 )x
V a r i a b l eo p c i o n a l :r a t s i m p e x p o n s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` r a t s i m p e x p o n s' e s `t r u e ' ,` r a t s i m p' s ea p l i c aal a e x p o n e n t e sd el a se x p r e s i o n e sd u r a n t el as i m p l i f i c a c i n .
V a r i a b l eo p c i o n a l :r a d s u b s t f l a g V a l o rp o rd e f e c t o :f a l s e' ` R a d s u b s t f l a g' ,s i 't r u e' ,p e r m i t e `r a t s u b s t 'p a r ah a c e r s u s t i t u c i o n e sc o m o` u' p a r a `s q r t( x ) 'e n' x ' .
F u n c i n :r a t s u b s t( < a > ,< c > ) S u p l e n t e s< a >e n< c >yd e v u e l v ee lr e s u l t a n t e e x p r e s i n .p u e d es e ru n as u m a ,p r o d u c t o ,p o t e n c i a ,e t c ` R a t s u b s t "s a b ea l g od e ls i g n i f i c a d od el a se x p r e s i o n e s ,m i e n t r a sq u e ` S u b s t' h a c eu nc a m b i op u r a m e n t es i n t c t i c o .P o rl ot a n t o` s u b s t( a ,x+ y ,x+y+z )' d e v u e l v e 'x+y+z' ,m i e n t r a sq u er e g r e s a` r a t s u b s t ' `z+ a' . C u a n d o` r a d s u b s t f l a g' e s `t r u e ' ,` r a t s u b s t' h a c es u s t i t u c i o n e sd e r a d i c a l e se ne x p r e s i o n e sq u en oc o n t i e n e ne x p l c i t a m e n t e . ` R a t s u b s t' i g n o r ae lv a l o r `t r u e 'd el av a r i a b l eo p c i n ` K e e p f l o a t' . E j e m p l o s : ( %I 1 )r a t s u b s t( a ,x*y^2 ,x^4*y^3+x^y^4*8 ) ; 34 ( %O 1 )A X y+a ( %I 2 )c o s( x )^4+c o s( x )^3+c o s( x )^2+c o s( x )+1 ; 432 ( %O 2 )c o s( x )+c o s( x )+c o s( x )+c o s( x )+1 ( %I 3 )r a t s u b s t( 1-s e n( x )^2 ,c o s( x )^2 , % ) ; 422 ( %O 3 )s e n( x )-3s e n( x )+c o s( x )( 2-s e n( x ) )+3 ( %I 4 )r a t s u b s t( 1-c o s( x )^2 ,s e n( x )^2 ,s e n( x )^4 ) ; 42 ( %O 4 )c o s( x )-2c o s( x )+1 ( %I 5 )r a d s u b s t f l a g :f a l s e$ ( %I 6 )r a t s u b s t( u ,s q r t( x ) ,x ) ; ( %O 6 )x ( %I 7 )r a d s u b s t f l a g :t r u e$ ( %I 8 )r a t s u b s t( u ,s q r t( x ) ,x ) ; 2 ( %O 8 )u
F u n c i n :r a t v a r s( < x _ 1 > ,. . . ,< x _ n > ) F u n c i n :r a t v a r s( ) V a r i a b l ed e ls i s t e m a :r a t v a r s D e c l a r al a sv a r i a b l e s< x _ 1 >p r i n c i p a l ,. . . ,< x _ n >e ne x p r e s i o n e sr a c i o n a l e s . < x _ n > ,s ie s t p r e s e n t ee nu n ae x p r e s i nr a c i o n a l ,e sc o n s i d e r a d oe lp r i n c i p a l v a r i a b l e .D el oc o n t r a r i o ,< x _ [ n 1 ] >s ec o n s i d e r al av a r i a b l ep r i n c i p a l ,s i p r e s e n t e ,ya s s u c e s i v a m e n t eat r a v sd el a sv a r i a b l e sa n t e r i o r e sp a r a< x _ 1 > ,e lc u a l s ec o n s i d e r ac o m ov a r i a b l ep r i n c i p a ls l os in i n g u n ad el a ss u c e s i v a s l a sv a r i a b l e se s t np r e s e n t e s . S iu n av a r i a b l ee nu n ae x p r e s i nr a c i o n a ln oe s t p r e s e n t ee nl a
153/633
28/08/13

L i s t` r a t v a r s' ,s el ed au n ap r i o r i d a dm e n o rq u e< x _ 1 > . L o sa r g u m e n t o sd e` r a t v a r s' p u e d e ns e rv a r i a b l e son or a c i o n a l e s f u n c i o n e st a l e sc o m o` s i n( x ) . E l` r a t v a r s' v a r i a b l ee su n al i s t ad el o sa r g u m e n t o sd el af u n c i n ` R a t v a r s' c u a n d of u el l a m a d or e c i e n t e m e n t e .C a d al l a m a d aa l f u n c i n` r a t v a r s' r e s t a b l e c el al i s t a .` R a t v a r s( )' b o r r al al i s t a .
V a r i a b l eo p c i o n a l :r a t v a r s w i t c h V a l o rp o rd e f e c t o :t r u e' M a x i m am a n t i e n eu n al i s t ai n t e r n ae nl av a r i a b l eL i s p` V A R L I S T' d e l a sp r i n c i p a l e sv a r i a b l e sp a r ae x p r e s i o n e sr a c i o n a l e s .S i` r a t v a r s w i t c h' e s ` T r u e' ,c a d ae v a l u a c i ns ei n i c i ac o nu n an u e v al i s t a `V A R L I S T ' .E s t e e se lc o m p o r t a m i e n t op r e d e t e r m i n a d o .D el oc o n t r a r i o ,l a sp r i n c i p a l e sv a r i a b l e sd e e v a l u a c i o n e sa n t e r i o r e sn os ee l i m i n a nd el al i s t ai n t e r n a ` V A R L I S T' . L a sp r i n c i p a l e sv a r i a b l e sq u es ed e c l a r a nc o nl af u n c i n` r a t v a r s' n os ev e na f e c t a d a sp o rl av a r i a b l eo p c i n` r a t v a r s w i t c h' . E j e m p l o s : S i` r a t v a r s w i t c h' e s `t r u e ' ,c a d ae v a l u a c i ns ei n i c i ac o nu nn u e v o l i s t` V A R L I S T' . ( %I 1 )r a t v a r s w i t c h :t r u e$ ( %I 2 )d er a t a( 2*x+y^2 ) ; 2 ( %O 2 )/R/y+2x ( %I 3 ) :l i s pv a r l i s t ( $X$Y ) ( %I 3 )r a t a( 2*a+b^2 ) ; 2 ( %O 3 )/R/+b2a ( %I 4 ) :l i s pv a r l i s t ( $A$B ) S i` r a t v a r s w i t c h' e s 'f a l s e' ,l a sp r i n c i p a l e sv a r i a b l e sd el a l t i m a e v a l u a c i na ne s t np r e s e n t e s . ( %I 4 )r a t v a r s w i t c h :f a l s e$ ( %I 5 )r a t a( 2*x+y^2 ) ; 2 ( %O 5 )/R/2y+x ( %I 6 ) :l i s pv a r l i s t ( $X$Y ) ( %I 6 )r a t a( 2*a+b^2 ) ; 2 ( %O 6 )/R/+b2a ( %I 7 ) :l i s pv a r l i s t ( $A$B$X$Y )
F u n c i n :r a t w e i g h t( < x _ 1 > ,< w _ 1 > ,. . . ,< x _ n > ,< w _ n > ) F u n c i n :r a t w e i g h t( ) A s i g n au n< w _ i >p e s oal a< x _ i >v a r i a b l e .E s t oh a c eq u eu nt r m i n o p a r as e rr e e m p l a z a d op o r0s is up e s oe x c e d ee lv a l o rd el a ` r a t w t l v l "v a r i a b l e( p o rd e f e c t on op r o d u c et r u n c a m i e n t o ) .E lp e s od el o s u nt r m i n oe sl as u m ad el o sp r o d u c t o sd el o sp e s o sd eu n av a r i a b l ee n l o st i e m p o sd ed u r a c i nd es up o d e r .P o re j e m p l o ,e lp e s od e` 3x _ 1^2 x _ 2' e s` 2w _ 1+w _ 2 ' .T r u n c a m i e n t od ea c u e r d oc o n` r a t w t l v l' e s l l e v a d oac a b os l oc u a n d os em u l t i p l i c a noc a n n i c a e x p r e s i o n e sr a c i o n a l e s( C R E ) . ` R a t w e i g h t( )' d e v u e l v el al i s t aa c u m u l a d ad ea s i g n a c i o n e sd ep e s o s . N o t a :E l` e s q u e m a sr a t f a c' `r a t w e i g h ty" s o ni n c o m p a t i b l e syp u e d e n n ot a n t os e ru t i l i z a d oa lm i s m ot i e m p o . E j e m p l o s : ( %I 1 )r a t w e i g h t( a ,1 ,b ,1 ) ; ( %O 1 )[ a ,1 ,b ,1 ] ( %I 2 )e x p r 1 :r a t a( a+b+1 )$ ( %I 3 )e x p r 1^2 ; 22 ( %O 3 )/R/b+( 2a+2 )b+a+2a+1 ( %I 4 )r a t w t l v l :1$ ( %I 5 )e x p r 1^2 ; ( %O 5 )/R/2+b2a+1
154/633
28/08/13

V a r i a b l ed e ls i s t e m a :v a r i a b l er a t w e i g h t s V a l o rp o rd e f e c t o :[ ]' ` V a r i a b l er a t w e i g h t s' l al i s t ad ep e s o sa s i g n a d o sp o r `r a t w e i g h t ' .L a l i s t ae sa c u m u l a t i v a :c a d al l a m a d aal u g a r e s` r a t w e i g h t "a d i c i o n a l e s e l e m e n t o sd el al i s t a . ` K i l l( v a r i a b l er a t w e i g h t s )' y `s a v e( v a r i a b l er a t w e i g h t s ) 't a n t oe lt r a b a j oc o m os ee s p e r a b a .
V a r i a b l eo p c i o n a l :r a t w t l v l V a l o rp o rd e f e c t o :f a l s e' ` R a t w t l v l' s eu t i l i z ae nc o m b i n a c i nc o ne l `r a t w e i g h t 'f u n c i np a r a c o n t r o l a re lt r u n c a m i e n t od ee x p r e s i o n e sr a c i o n a l e sc a n n i c a s( C R E ) . P a r ae lv a l o rp o rd e f e c t od e' f a l s e ' ,n os ep r o d u c et r u n c a m i e n t o .
F u n c i n :r e s t o( , ) F u n c i n :r e s t o( , ,< x _ 1 > ,. . . ,< x _ n > ) D e v u e l v ee lr e s t od el ad i v i d i d op o re lp o l i n o m i o p o l i n o m i o .E l< x _ 1 >a r g u m e n t o s ,. . . ,< x _ n >s ei n t e r p r e t a n c o m oe n` r a t v a r s . ' R e s t o 'd e v u e l v ee ls e g u n d oe l e m e n t od el al i s t ad ed o se l e m e n t o s d e v u e l t op o r` b r e c h a' .
F u n c i n :r e s u l t a n t e( , ,< x > ) L af u n c i n` r e s u l t a n t e' c a l c u l al ar e s u l t a n t ed el o sd o s p o l i n o m i o sy ,e l i m i n a n d ol a< x >v a r i a b l e .L a r e s u l t a n t ee su nd e t e r m i n a n t ed el o sc o e f i c i e n t e sd e< x >e ny ,q u ee si g u a lac e r os iys l os iyt i e n e nu n f a c t o rn oc o n s t a n t ee nc o m n . S iop u e d et e n e r s ee nc u e n t a ,p u e d es e rn e c e s a r i ol l a m a r ` F a c t o r "a n t e sd el l a m a r` r e s u l t a n t e . L o sc o n t r o l e sd eo p c i n` v a r i a b l e sr e s u l t a n t e s " ,q u es e r a l g o r i t m o u t i l i z a d op a r ac a l c u l a rl ar e s u l t a n t e .V e rl av a r i a b l eo p c i n ` R e s u l t a n t e' . L af u n c i n` b e z o u t' t o m al o sm i s m o sa r g u m e n t o s 'r e s u l t a n t e' y d e v u e l v eu n am a t r i z .E ld e t e r m i n a n t ed e lv a l o rd er e t o r n oe se l r e s u l t a n t ed e s e a d o . E j e m p l o s : ( %I 1 )r e s u l t a n t e( 2*x^2+ 3x1* ,2*x^2+x1 ,x ) ; ( %O 1 )8 ( %I 2 )r e s u l t a n t e( x1 ,x1 ,x ) ; ( %O 2 )0 ( %I 3 )r e s u l t a n t e( ( x1 )*x ,( x1 ) ,x ) ; ( %O 3 )0 ( %I 4 )r e s u l t a n t e( a*x^2+b*x+ 1 ,c*x+2 ,x ) ; 2 ( %O 4 )c-2b c+4a ( %I 5 )b e z o u t( a*x^2+b*x+ 1 ,c*x2 ,x ) ; [ 2a2b-c ] ( %O 5 )[ ] [ C2 ] ( %I 6 )d e t e r m i n a n t e( % ) ; ( %O 6 )4a-( 2b-c )c
V a r i a b l eo p c i o n a l :r e s u l t a n t e V a l o rp o rd e f e c t o :s u b r e s' L o sc o n t r o l e sd eo p c i n` v a r i a b l e sr e s u l t a n t e s " ,q u es e r a l g o r i t m o u t i l i z a d op a r ac a l c u l a rl ar e s u l t a n t ec o nl af u n c i nr e s u l t a n t e` ' . L o sv a l o r e sp o s i b l e ss o n : ` S u b r e s' p a r al as e c u e n c i ar e s t a n t ep o l i n o m i os u b r e s u l t a n t e( P R S ) a l g o r i t m o , ' M o d ' p a r ae la l g o r i t m or e s u l t a n t em o d u l a r ,y ` R e d' p a r al as e c u e n c i ar e s t a n t ep o l i n o m i or e d u c i d a( P R S )a l g o r i t m o . E nl am a y o r ad el o sp r o b l e m a sd e lv a l o rp o rd e f e c t o` s u b r e s' d e b e r as e rm e j o r .E n a l g u n o sg r a n d e sp r o b l e m a sg r a d ou n i v a r i a d o sob i v a r i a d o s' m o d 'p u e d es e r m e j o r .
155/633
28/08/13
V a r i a b l eo p c i o n a l :s a v e f a c t o r s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` s a v e f a c t o r s' e s `t r u e ' ,h a c eq u el o sf a c t o r e sd eu n ae x p r e s i n q u ee su np r o d u c t od ef a c t o r e sas e rs a l v op o rc i e r t a sf u n c i o n e se n f i nd ea c e l e r a rp o s t e r i o r e sf a c t o r i z a c i o n e sd ee x p r e s i o n e sq u ec o n t e n g a n a l g u n o sd el o sm i s m o sf a c t o r e s .
F u n c i n :s h o w r a t v a r s( e x p r ) D e v u e l v eu n al i s t ad el ae x p r e s i nr a c i o n a lc a n n i c a( C R E ) l a sv a r i a b l e se nl ae x p r e s i n` e x p r' . C o n s u l t et a m b i n` r a t v a r s' .
F u n c i n :s q f r( e x p r ) e ss i m i l a ra lf a c t o rd e` ' e x c e p t oq u el o sf a c t o r e ss o np o l i n o m i a l e s " L ap l a z al i b r e . "E sd e c i r ,q u et i e n e nf a c t o r e ss l od eg r a d ou n o . E s t ea l g o r i t m o ,q u et a m b i ns eu t i l i z ap o rl ap r i m e r ae t a p ad e lf a c t o rd e` ' , u t i l i z ae lh e c h od eq u eu np o l i n o m i ot i e n ee nc o m nc o nl an s i m a d e r i v a d o st o d o ss u sf a c t o r e sd eg r a d om a y o rq u en .P o rl ot a n t op o r t e n i e n d og r a n d e sd i v i s o r e sc o m u n e sc o ne lp o l i n o m i od e l d e r i v a d o sc o nr e s p e c t oac a d av a r i a b l ee ne lp o l i n o m i o ,t o d o sl o s f a c t o r e sd eg r a d om a y o rq u e1s ep u e d ee n c o n t r a r . E j e m p l o : ( %I 1 )s q f r( 4*x^4+4*x^3-3*x^2-4*x-1 ) ; 22 ( %O 1 )( 2x+1 )( x-1 )
F u n c i n :t e l l r a t( ,. . . , ) F u n c i n :t e l l r a t( ) A a d ea la n i l l od ee n t e r o sa l g e b r a i c o sc o n o c i d o sp o rM a x i m ad e l e l e m e n t o sq u es o nl a ss o l u c i o n e sd el ap o l i n o m i o s ,. . . , .C a d aa r g u m e n t oe su np o l i n o m i oe n t e r o c o e f i c i e n t e s . ` T e l l r a t( < x > )' h a c eq u es es u s t i t u y a0p o r< x >e nr a c i o n a l f u n c i o n e s . ` T e l l r a t( )d e v u e l v eu n al i s t ac o nl a ss u s t i t u c i o n e sa c t u a l e s . ` A l g e b r a i c a' d e b ee s t a re n `t r u e 'af i nd eq u el as i m p l i f i c a c i n d ee n t e r o sa l g e b r a i c o s . M a x i m ar e c o n o c el au n i d a di m a g i n a r i a %i` ' yt o d a sl a sr a c e s d ee n t e r o s . H a yu nc o m a n d o` u n t e l l r a t' q u et i e n eg r a n o sye l i m i n a ' P r o p i e d a d e s` t e l l r a t . C u a n d ot e l l r a t ' 'i n g` u np o l i n o m i om u l t i v a r i a n t e ,p o re j e m p l o , `t e l l r a t( x^2 -Y^2 )' ,n os e r au n aa m b i g e d a de nc u a n t oas is ed e b es u s t i t u i r ` < y >^2' `< x >^2" ov i c e v e r s a .M a x i m as i g u eu np a r t i c u l a r , o r d e n a r ,p e r os ie lu s u a r i od e s e ae s p e c i f i c a rq u e ,p o re j e m p l o ,` t e l l r a t ( Y^2=x^2 )' p r o p o r c i o n au n as i n t a x i sq u ed i c er e e m p l a z a r` < y >^2 "p o r ` < x >^2' . E j e m p l o s : ( %I 1 )1 0*( %i+1 )/( %i+3^( 1 / 3 ) ) ; 1 0( %i+1 ) ( %O 1 )T e r c e r a %I+3 ( %I 2 )e v( r a t d i s r e p( r a t a( % ) ) ,a l g e b r a i c a ) ; 2 / 31 / 32 / 31 / 3 ( %O 2 )( 4m a r z oa2m a r z o-4 ) %i+2+33 2a b r i l ( %I 3 )t e l l r a t( 1+a+a^2 ) ; 2 ( %O 3 )[ a+a+1 ] ( %I 4 )1/( a *s q r t( 2 )-1 )+a( s q r t( 3 )+s q r t( 2 ) )/ ; 1u n a ( %O 4 )-+s q r t( 2 )u n-1s q r t( 3 )+s q r t( 2 ) ( %I 5 )e v( r a t d i s r e p( r a t a( % ) ) ,a l g e b r a i c a ) ; ( 7s q r t( 3 )-1 0s q r t( 2 )+2 )u n-2s q r t( 2 )-1 ( %O 5 )7 ( %I 6 )t e l l r a t( y^2=x^2 ) ; 222 ( %O 6 )[ y-x ,a+a+1 ]
156/633
28/08/13
F u n c i n :t o t a l d i s r e p( e x p r ) C o n v i e r t ec a d as u b e x p r e s i nd ee x p rd e lc a n n i c ar a c i o n a l e x p r e s i o n e s( C R E )a lg e n e r a lyd e v u e l v ee lr e s u l t a d o .S i e x p re s t e nf o r m a t oC R Ee n t o n c e s` t o t a l d i s r e p' e si d n t i c oa l ` R a t d i s r e p' . ` T o t a l d i s r e p' p u e d es e r t i lp a r am o d i f i c a re x p r e s i o n e sc o m ol a s e c u a c i o n e s ,l i s t a s ,m a t r i c e s ,e t c ,q u et i e n e na l g u n a ss u b e x p r e s i o n e s e nf o r m ad eC R E .
F u n c i n :u n t e l l r a t( < x _ 1 > ,. . . ,< x _ n > ) E l i m i n al a sp r o p i e d a d e s` t e l l r a t' d e< x _ 1 > ,. . . ,< x _ n > .
15 Funciones especiales
I n t r o d u c c i nal a sF u n c i o n e se s p e c i a l e s F u n c i o n e sd eB e s s e l F u n c i o n e sd eA i r y F u n c i o n e sG a m m ayf a c t o r i a l I n t e g r a l e se x p o n e n c i a l e s e r r o rd ef u n c i n F u n c i o n e sd eS t r u v e F u n c i o n e sh i p e r g e o m t r i c a s c i l i n d r o p a r a b l i c o sF u n c i o n e s F u n c i o n e syv a r i a b l e sp a r al a sf u n c i o n e se s p e c i a l e s
15.1 Introduccin a las funciones especiales

N o t a c i nd ef u n c i ne s p e c i a ls i g u i e n t e : b e s s e l _ j( n d i c e ,e x p r )l af u n c i nd eB e s s e l ,p r i m e r ac l a s e b e s s e l _ yf u n c i nd eB e s s e l( n d i c e ,e x p r ) ,s e g u n d ac l a s e b e s s e l _ iM o d i f i c a d of u n c i nd eB e s s e l( n d i c e ,e x p r ) ,p r i m e r ac l a s e b e s s e l _ kM o d i f i c a d of u n c i nd eB e s s e l( n d i c e ,e x p r ) ,s e g u n d ac l a s e h a n k e l _ 1( v ,z )F u n c i nd eH a n k e ld ep r i m e r ae s p e c i e h a n k e l _ 2( v ,z )F u n c i nd eH a n k e ld es e g u n d ac l a s e s t r u v e _ h( v ,z )S t r u v ef u n c i nH s t r u v e _ l( v ,z )S t r u v ef u n c i nL a s s o c _ l e g e n d r e _ p[ v ,u ]( z )F u n c i nd eL e g e n d r ed eg r a d ovye lo r d e nu a s s o c _ l e g e n d r e _ q[ v ,u ]( z )F u n c i nd eL e g e n d r e ,2c l a s e %F[ p ,q ]( [ ] ,[ ] ,e x p r )l af u n c i nh i p e r g e o m t r i c ag e n e r a l i z a d a g a m m a( )F u n c i nG a m m a g a m m a g r e e k( a ,z )l af u n c i ng a m m ai n c o m p l e t a g a m m a i n c o m p l e t e( a ,z )C o l ad el af u n c i ng a m m ai n c o m p l e t a h i p e r g e o m t r i c af u n c i nh i p e r g e o m t r i c a( l 1 ,l 2 ,z ) s l o m m e l %M[ u ,k ]( z )F u n c i nd eW h i t t a k e rd ep r i m e r ac l a s e %W[ u ,k ]( z )F u n c i nd eW h i t t a k e rd es e g u n d ae s p e c i e e r f c( z )C o m p l e m e n t od el af u n c i ne r f e x p i n t e g r a l _ e( v ,z )E x p o n e n c i a lei n t e g r a l e x p i n t e g r a l _ e 1( z )e x p o n e n c i a lE 1i n t e g r a l e x p i n t e g r a l _ e i( z )E x p o n e n c i a lE ii n t e g r a l e x p i n t e g r a l _ l i( z )l o g a r t m i c aL ii n t e g r a l e x p i n t e g r a l _ s i( z )E x p o n e n c i a lS ii n t e g r a l e x p i n t e g r a l _ c i( z )E x p o n e n c i a lC ii n t e g r a l e x p i n t e g r a l _ s h i( z )S h ii n t e g r a le x p o n e n c i a l e x p i n t e g r a l _ c h i( z )e x p o n e n c i a lC h ii n t e g r a l k e l l i p t i ci n t e g r a le l p t i c a( z )c o m p l e t ad el ap r i m e r a e s p e c i e( K ) p a r a b o l i c _ c y l i n d e r _ df u n c i nDd ec i l i n d r op a r a b l i c o( v ,z )
15,2 funciones de Bessel

F u n c i n :b e s s e l _ j( < v > ,< z > ) L af u n c i nd eB e s s e ld ep r i m e r ae s p e c i ed eo r d e nvya r g u m e n t oz . ` B e s s e l _ j' s ed e f i n ec o m o i n f = = = =K-v-2k v+2k \( -1 )2z >/K !g a m m a( v+k+1 ) = = = =
157/633
28/08/13
k=0
a u n q u el as e r i ei n f i n i t an os eu t i l i z ae nl o sc l c u l o s .
F u n c i n :b e s s e l _ y( < v > ,< z > ) L af u n c i nd eB e s s e ld es e g u n d ac l a s ed eo r d e nvya r g u m e n t oz . ` B e s s e l _ y' s ed e f i n ec o m o c o s( %p iv )b e s s e l _ j( v ,z )-b e s s e l _ j( v ,z ) s i n( %p iv ) c u a n d ovn oe su ne n t e r o .C u a n d ove su ne n t e r on ,e ll m i t ec u a n d ov t i e n d ean .
F u n c i n :b e s s e l _ i( < v > ,< z > ) L af u n c i nd eB e s s e lm o d i f i c a d ad ep r i m e r ae s p e c i ed eo r d e nvy a r g u m e n t oz . ` B e s s e l _ i' s ed e f i n ec o m o i n f = = = =-V-2k v+2k \2z >/K !g a m m a( v+k+1 ) = = = = k=0 a u n q u el as e r i ei n f i n i t an os eu t i l i z ae nl o sc l c u l o s .
F u n c i n :b e s s e l _ k( < v > ,< z > ) L af u n c i nd eB e s s e lm o d i f i c a d ad el as e g u n d ae s p e c i ed eo r d e nvy a r g u m e n t oz . ` B e s s e l _ k' s ed e f i n ec o m o %P ic s c( %p iv )( b e s s e l _ i( v ,z )-b e s s e l _ i( v ,z ) ) 2 c u a n d ovn oe su ne n t e r o .S ive su ne n t e r on ,e n t o n c e se ll m i t e vt i e n d ean .
F u n c i n :h a n k e l _ 1( < v > ,< z > ) L af u n c i nd eH a n k e ld ep r i m e r ae s p e c i ed eo r d e nvya r g u m e n t oz ( A&S9 . 1 . 3 ) .` H a n k e l _ 1' s ed e f i n ec o m o b e s s e l _ j( v ,z )+ %i*b e s s e l _ y( v ,z ) M a x i m ae v a l a` h a n k e l _ 1 "n u m r i c a m e n t ep a r au nvo r d e nr e a ly a r g u m e n t oc o m p l e j oze nd o b l ep r e c i s i nf l o a t .L ae v a l u a c i nn u m r i c ae n p r e c i s i nb i g f l o a typ a r au nvo r d e nc o m p l e j on oe sc o m p a t i b l e . C u a n d o` b e s s e l e x p a n d' e s `t r u e ' ,` h a n k e l _ 1' s ee x p a n d ee nt r m i n o sd e f u n c i o n e se l e m e n t a l e sc u a n d oe lo r d e nve sl am i t a dd eu ne n t e r oi m p a r . C o n s u l t e` b e s s e l e x p a n d' . M a x i m ar e c o n o c el ad e r i v a d ad e` h a n k e l _ 1' r e s p e c t od e la r g u m e n t oz . E j e m p l o s : E v a l u a c i nn u m r i c a : ( %I 1 )h a n k e l _ 1( 1 , 0 . 5 ) ; ( %O 1 ), 2 4 2 2 6 8 4 5 7 6 7 4 8 7 3 8 1 , 4 7 1 4 7 2 3 9 2 6 7 0 2 4 3 %i ( %I 2 )h a n k e l _ 1( 1 , 0 . 5+ %i ) ; ( %O 2 )-0 . 2 5 5 8 2 8 7 9 9 4 8 6 2 1 6 6 %i-0 . 2 3 9 5 7 5 6 0 1 8 8 3 0 1 6 VU no b j e t oc o m p l e j on oe sc o m p a t i b l e .M a x i m ad e v u e l v eu n af o r m an o m i n a l : ( %I 3 )h a n k e l _ 1( %i ,0 , 5 %+i ) ; ( %O 3 )h a n k e l _ 1( %i , %i+0 , 5 ) A m p l i a c i nd e l` h a n k e l _ 1 "c u a n d o` b e s s e l e x p a n d' e s `t r u e ' : ( %I 4 )h a n k e l _ 1( 1 / 2 ,z ) ,b e s s e l e x p a n d :t r u e ; s q r t( 2 )s i n( z )-s q r t( 2 ) %ic o s( z ) ( %O 4 )s q r t( %p i )s q r t( z ) D e r i v a d od e` h a n k e l _ 1' r e s p e c t od e la r g u m e n t oz .L ad e r i v a d ar e s p e c t oa l P a r avn oe sc o m p a t i b l e .M a x i m ad e v u e l v eu n af o r m an o m i n a l : ( %I 5 )d i f f( h a n k e l _ 1( v ,z ) ,z ) ;
158/633
28/08/13

h a n k e l _ 1( v-1 ,z )-h a n k e l _ 1( v+1 ,z ) ( %O 5 )2 ( %I 6 )d i f f( h a n k e l _ 1( v ,z ) ,v ) ; d ( %O 6 )-( h a n k e l _ 1( v ,z ) ) d v
F u n c i n :h a n k e l _ 2( < v > ,< z > ) L af u n c i nd eH a n k e ld es e g u n d ae s p e c i ed eo r d e nvya r g u m e n t oz ( A&S9 . 1 . 4 ) .` H a n k e l _ 2' s ed e f i n ec o m o b e s s e l _ j( v ,z )%i*b e s s e l _ y( v ,z ) M a x i m ae v a l a` h a n k e l _ 2 "n u m r i c a m e n t ep a r au nvo r d e nr e a ly a r g u m e n t oc o m p l e j oze nd o b l ep r e c i s i nf l o a t .L ae v a l u a c i nn u m r i c ae n p r e c i s i nb i g f l o a typ a r au nvo r d e nc o m p l e j on oe sc o m p a t i b l e . C u a n d o` b e s s e l e x p a n d' e s `t r u e ' ,` h a n k e l _ 2' s ee x p a n d ee nt r m i n o sd e f u n c i o n e se l e m e n t a l e sc u a n d oe lo r d e nve sl am i t a dd eu ne n t e r oi m p a r . C o n s u l t e` b e s s e l e x p a n d' . M a x i m ar e c o n o c el ad e r i v a d ad e` h a n k e l _ 2' r e s p e c t od e la r g u m e n t oz . P a r ae j e m p l o sv e r` h a n k e l _ 1' .
V a r i a b l eo p c i o n a l :b e s s e l e x p a n d V a l o rp o rd e f e c t o :f a l s e' C o n t r o l al ae x p a n s i nd el a sf u n c i o n e sd eB e s s e lc u a n d oe lo r d e ne sl am i t a d d eu ne n t e r oi m p a r .E ne s t ec a s o ,l a sf u n c i o n e sd eB e s s e lp u e d e ns e r a m p l i a d oe nt r m i n o sd eo t r a sf u n c i o n e se l e m e n t a l e s . C u n d o ` B e s s e l e x p a n d' e s `t r u e ' ,l af u n c i nd eB e s s e ls ee x p a n d e . ( %I 1 )b e s s e l e x p a n d :f a l s e$ ( %I 2 )b e s s e l _ j( 3 / 2 ,z ) ; 3 ( %O 2 )b e s s e l _ j( ,z ) 2 ( %I 3 )b e s s e l e x p a n d :t r u e$ ( %I 4 )b e s s e l _ j( 3 / 2 ,z ) ; s i n( z )c o s( z ) ( 2 )s q r ts q r t( z )( ) 2z z ( %O 4 )s q r t( %p i )
F u n c i n :s c a l e d _ b e s s e l _ i( < v > ,< z > ) L af u n c i nd eB e s s e lm o d i f i c a d ad ep r i m e r ae s p e c i ed eo r d e nv ye la r g u m e n t oz .E sd e c i r ,s c a l e d _ b e s s e l _ i( v ,z )= e x p( a b s( z ) )*b e s s e l _ i( v ,z ) .E s t af u n c i ne sp a r t i c u l a r m e n t e t i l p a r ae lc l c u l od eb e s s e l _ ig r a nz ,q u ee sg r a n d e .S i ne m b a r g o , M a x i m an os a b em u c h oa c e r c ad ee s t af u n c i n .P a r a o b r as i m b l i c a ,e sp r o b a b l e m e n t ep r e f e r i b l et r a b a j a rc o ne l e x p r e s i n` e x p( a b s( z ) )*b e s s e l _ i( v ,z ) .
F u n c i n :s c a l e d _ b e s s e l _ i 0( < z > ) I d n t i c oa l` s c a l e d _ b e s s e l _ i( 0 ,z ) .
F u n c i n :s c a l e d _ b e s s e l _ i 1( < z > ) I d n t i c oa l` s c a l e d _ b e s s e l _ i( 1 ,z ) .
F u n c i n :%s[ ,< v > ]( < z > ) D eL o m m e lp o c os[ u ,v ]f u n c i n( z ) .P r o b a b l e m e n t eG r a d s h t e y nyR y z h i k 8 . 5 7 0 . 1 .
15.3 Funciones de Airy

L a sf u n c i o n e sd eA i r yA i( x )yB i( x )s ed e f i n e ne nA b r a m o w i t zyS t e g u n , H a n d b o o ko fM a t h e m a t i c a lF u n c t i o n s ,S e c c i n1 0 . 4 . ` Y=A i( x )' y `y=B i( x )s o nd o ss o l u c i o n e sl i n e a l m e n t ei n d e p e n d i e n t e s
159/633
28/08/13

d el ae c u a c i nd i f e r e n c i a ld eA i r y` d i f f( y( x ) ,x ,2 )-x y( x )=0' . S ie la r g u m e n t o` x' e su nn m e r od e c i m a lr e a loc o m p l e j o ,e l s ed e v u e l v ee lv a l o rn u m r i c od el af u n c i n .
F u n c i n :a i r y _ a is i e m p r e( < x > ) L af u n c i nd eA i r yA i( x ) .( A&S1 0 . 4 . 2 ) E l` d i f fd e r i v a d a( a i r y _ a is i e m p r e( x ) ,x )' e s à i r y _ d a i( x ) ' . C o n s u l t et a m b i n` a i r y _ b i' , à i r y _ d a i ' ,` a i r y _ d b i' .
F u n c i n :a i r y _ d a i( < x > ) L ad e r i v a d ad el af u n c i nd eA i r yA i` a i r y _ a is i e m p r e( x )' . C o n s u l t e` a i r y _ a is i e m p r e' .
F u n c i n :a i r y _ b i( < x > ) E sl af u n c i nB id eA i r y( x ) .( A&S1 0 . 4 . 3 ) E l` d i f fd e r i v a d a( a i r y _ b i( x ) ,x )' e s à i r y _ d b i( x ) ' . C o n s u l t e` a i r y _ a is i e m p r e' , à i r y _ d b i ' .
F u n c i n :a i r y _ d b i( < x > ) L ad e r i v a d ad el af u n c i nB id eA i r y` a i r y _ b i( x )' . C o n s u l t e` a i r y _ a is i e m p r e' y à i r y _ b i ' .
15.4 Funciones Gamma y factorial

L af u n c i ng a m m ayb e t a ,p s iyg a m m ai n c o m p l e t ar e l a c i o n a d a f u n c i o n e se s t nd e f i n i d a se nA b r a m o w i t zyS t e g u n ,M a n u a ld e F u n c i o n e sm a t e m t i c a s ,C a p t u l o6 .
F u n c i n :b f f a c( e x p r ,< n > ) V e r s i nb i g f l o a td el af u n c i nf a c t o r i a l( G a m m ad e s p l a z a d a ) .L a E ls e g u n d oa r g u m e n t oe se ln m e r od ed g i t o ss ec o n s e r v a nyd e v u e l v e n ,e su n a b u e n ai d e ad ep e d i ru np a rd em s .
F u n c i n :b f p s i( < n > ,< z > ,< f p p r e c > ) F u n c i n :b f p s i 0( < z > ,< f p p r e c > ) ` B f p s i' e sl af u n c i np o l i g a m m ad e< z >a r g u m e n t or e a lye n t e r o < n >o r d e n .` B f p s i 0' e sl af u n c i nd i g a m m a .` B f p s i 0( < z > , < f p p r e c > )' e se q u i v a l e n t ea 'b f p s i( 0 ,< z > ,< f p p r e c > ) . E s t a sf u n c i o n e sd e v u e l v e nv a l o r e sd e c i m a l e sg r a n d e s .< f p p r e c >e sl ab i g f l o a t p r e c i s i nd e lv a l o rd er e t o r n o .
F u n c i n :c b f f a c( < z > ,< f p p r e c > ) B i g f l o a tC o m p l e j of a c t o r i a l . ` L o a d( "b f f a c" )' c a r g ae s t af u n c i n .
F u n c i n :g a m m a( < z > ) L ad e f i n i c i nb s i c ad el af u n c i ng a m m a( A&S6 . 1 . 1 )e s i n f / [ Z-1-t g a m m a( z )=It %ed t ] / 0 M a x i m as i m p l i f i c a' g a m m a 'p o re n t e r op o s i t i v oyp o s i t i v oy n m e r o sr a c i o n a l e sn e g a t i v o s .P a r al am i t a dd el o sv a l o r e se n t e r o se lr e s u l t a d oe s u nn m e r od ev e c e s` s q r tr a c i o n a l( %p i ) .L as i m p l i f i c a c i nd e
160/633
28/08/13

v a l o r e se n t e r o se sc o n t r o l a d ap o r` f a c t l i m' .P a r ae n t e r o sm a y o r e s q u e` f a c t l i m' e lr e s u l t a d on u m r i c od el af u n c i nf a c t o r i a l , q u es eu t i l i z ap a r ac a l c u l a r` g a m m a' ,s ed e s b o r d a r .L a s i m p l i f i c a c i nd el o sn m e r o sr a c i o n a l e se sc o n t r o l a d ap o r` g a m m a l i m "p a r a e v i t a re ld e s b o r d a m i e n t oi n t e r n o .C o n s u l t e` f a c t l i m' y `g a m m a l i m ' . P a r ae n t e r o sn e g a t i v o s' g a m m a 'n os ed e f i n i e d . M a x i m ap u e d ee v a l u a rd ef o r m a' g a m m a 'n u m r i c a m e n t ep a r av a l o r e sr e a l e syc o m p l e j o s e nd e c i m a lyb i gf l o a t . ' G a m m a 't i e n es i m e t r ae s p e c u l a r . C u a n d o` g a m m a _ e x p a n d' e s `t r u e ' ,M a x i m ae x p a n d eg a m m a` ' p a r a a r g u m e n t o s` z+n' y 'z n' d o n d e 'n' e su nn m e r oe n t e r o . M a x i m ar e c o n o c el ad e r i v a d ad e' g a m m a ' . E j e m p l o s : S i m p l i f i c a c i np a r ae n t e r o s ,m e d i on m e r o se n t e r o syr a c i o n a l e s : ( %I 1 )M a p a( ' g a m m a ,[ 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 ] ) ; ( %O 1 )[ 1 ,1 ,2 ,6 ,2 4 ,1 2 0 ,7 2 0 ,5 0 4 0 ,4 0 3 2 0 ] ( %I 2 )m a p a( ' g a m m a ,[ 1 / 2 ,3 / 2 ,5 / 2 ,7 / 2 ] ) ; s q r t( %p i )3s q r t( %p i )1 5s q r t( %p i ) ( %O 2 )[ s q r t( %p i ) ,,,] 248 ( %I 3 )m a p a( ' g a m m a ,[ 2 / 3 ,5 / 3 ,7 / 3 ] ) ; 21 G a m m a2( )4g a m m a( ) 233 ( %O 3 )[ g a m m a( ) ,,] 339 E v a l u a c i nn u m r i c ap a r av a l o r e sr e a l e syc o m p l e j o s : ( %I 4 )M a p a( ' g a m m a ,[ 2 . 5 , 2 . 5b 0 ] ) ; ( %O 4 )[ 1 . 3 2 9 3 4 0 3 8 8 1 7 9 1 3 7 ,1 . 3 2 9 3 4 0 3 8 8 1 7 9 1 3 7 0 2 0 5 b 0 ] ( %I 5 )M a p a( ' g a m m a ,[ 1 . 0 %+i ,1 . 0 B 0+ %i ] ) ; ( %O 5 )[ , 4 9 8 0 1 5 6 6 8 1 1 8 3 5 6 0 , 1 5 4 9 4 9 8 2 8 3 0 1 8 1 0 7 %i , 4 . 9 8 0 1 5 6 6 8 1 1 8 3 5 6 0 4 2 7 2 b 1-1 . 5 4 9 4 9 8 2 8 3 0 1 8 1 0 6 8 5 1 3 b 1 %i ] ' G a m m a 't i e n es i m e t r ad ee s p e j o : ( %I 6 )d e c l a r e( z ,c o m p l e j o )$ ( %I 7 )c o n j u g a d o( g a m m a( z ) ) ; ( %O 7 )g a m m a( c o n j u g a d o( z ) ) M a x i m ae x p a n d eg a m m a' ( z+n ) 'y` g a m m a( Z n )' ,c u a n d o 'g a m m a _ e x p a n d' e s` t r u e' : ( %I 8 )g a m m a _ e x p a n d :t r u e$ ( %I 9 )[ g a m m a( z1 ) ,g a m m a( z 1 ) ,g a m m a( z2 )/g a m m a( z1 ) ] ; g a m m a( z ) ( %O 9 )[ zg a m m a( z ) ,,z+1 ] z-1 E ld e r i v i a t i v ed e' g a m m a ' : ( %I 1 0 )d i f f( g a m m a( z ) ,z ) ; ( %O 1 0 )p s i( z )g a m m a( z ) 0 C o n s u l t et a m b i n` m a k e g a m m a' . L ac o n s t a n t ed eE u l e r M a s c h e r o n ie s` %g a m m a .
F u n c i n :l o g _ g a m m a( < z > ) E ll o g a r i t m on a t u r a ld el af u n c i ng a m m a .
F u n c i n :g a m m a _ i n c o m p l e t e( < a >< z > ) L af u n c i ng a m m ai n c o m p l e t as u p e r i o rd eA&S6 . 5 . 2 : i n f / [ A-1-t g a m m a _ i n c o m p l e t e( a ,z )=It %ed t ] / z
F u n c i n :g a m m a _ i n c o m p l e t e _ r e g u l a r i z e d( < a >< z > ) L af u n c i ng a m m ai n c o m p l e t as u p e r i o rr e g u l a r i z a d oA&S6 . 5 . 1 : g a m m a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,z )=
161/633
28/08/13

g a m m a _ i n c o m p l e t e( a ,z ) g a m m a( a )
F u n c i n :g a m m a _ i n c o m p l e t e _ g e n e r a l i z e d( < a >< z 1 > ,< z 1 > ) L af u n c i ng a m m ai n c o m p l e t ag e n e r a l i z a d a . g a m m a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,z 1 ,z 2 )= z 2 / [ A-1-t It %ed t ] / z 1
V a r i a b l eo p c i o n a l :g a m m a l i m V a l o rp o rd e f e c t o :1 0 0 0 0 0 0 ` G a m m a l i m' c o n t r o l al as i m p l i f i c a c i nd el af u n c i ng a m m ap a r a a r g u m e n t o se n t e r o syr a c i o n a l e s .S ie lv a l o ra b s o l u t od e e la r g u m e n t on oe sm a y o rq u e` g a m m a l i m' ,e n t o n c e sl as i m p l i f i c a c i n v aap r o d u c i r .T e n g ae nc u e n t aq u ee li n t e r r u p t o rd e` f a c t l i m' c o n t r o l a s i m p l i f i c a c i nd e lr e s u l t a d od eg a m m a` ' d eu na r g u m e n t oe n t e r oc o m o a s .
F u n c i n :m a k e g a m m a( e x p r ) T r a n s f o r m al a sf u n c i o n e sb i n o m i a l ,f a c t o r i a lyb e t ae n < e x p r >e nf u n c i o n e sg a m m a . C o n s u l t et a m b i n` m a k e f a c t' .
F u n c i n :b e t a( < a > ) L af u n c i nb e t as ed e f i n ec o m o` g a m m a( a )g a m m a( b )/g a m m a( a+b )' ( A&S6 . 2 . 1 ) . M a x i m as i m p l i f i c al af u n c i nb e t ap a r ae n t e r o sp o s i t i v o sy n m e r o sr a c i o n a l e s ,q u es u m a nu ne n t e r o . C u n d o ` B e t a _ a r g s _ s u m _ t o _ i n t e g e r' e s `t r u e ' ,M a x i m at a m b i ns i m p l i f i c a e x p r e s i o n e sg e n e r a l e sc u y as u m as e au nn m e r oe n t e r o . P a r a< a >oi g u a lac e r ol af u n c i nb e t an oe s t d e f i n i d a . E ng e n e r a l ,l af u n c i nb e t an oe s t d e f i n i d ap a r ae n t e r o sn e g a t i v o s c o m oa r g u m e n t o .L ae x c e p c i ne sp a r a< a = n > ,< n >u ne n t e r op o s i t i v o yu nn m e r oe n t e r op o s i t i v oc o n< b< =n > ,e sp o s i b l ed e f i n i ru n a c o n t i n u a c i na n a l t i c a .M a x i m ad ap a r ae s t ec a s ou nr e s u l t a d o . C u a n d o` b e t a _ e x p a n d' e s `t r u e ' ,e x p r e s i o n e sc o m o` b e t a( a+n ,b )' y ` B e t a( u n ,b )' o `b e t a( a ,b+n ) 'y` b e t a( a ,b n )' c o n 'n' u n e n t e r os es i m p l i f i c a n . M a x i m ap u e d ee v a l u a rl af u n c i nb e t ap a r av a l o r e sr e a l e syc o m p l e j o s e nd e c i m a lyb i gf l o a t .P a r al ae v a l u a c i nn u m r i c aM a x i m a u t i l i z a` l o g _ g a m m a' : -L o g _ g a m m a( b+a )+l o g _ g a m m a( b )+l o g _ g a m m a( a ) %E M a x i m ar e c o n o c eq u el af u n c i nb e t ae ss i m t r i c ayt i e n ee s p e j o s i m e t r a . M a x i m ac o n o c el a sd e r i v a d a sd el af u n c i nb e t ac o nr e s p e c t oa < a >o . P a r ae x p r e s a rl af u n c i nb e t ac o m ou n ar e l a c i nd el a sf u n c i o n e sg a m m a ,v a s e ` M a k e g a m m a' . E j e m p l o s : S i m p l i f i c a c i n ,c u a n d ou n od el o sa r g u m e n t o se su ne n t e r o : ( %I 1 )[ b e t a( 2 , 3 ) ,b e t a( 2 , 1/3 ) ,b e t a( 2 ,a ) ] ; 191 ( %O 1 )[ ,,] 1 24a( a+1 ) S i m p l i f i c a c i np a r aa r g u m e n t o sr a c i o n a l e sc u y as u m as e a u ne n t e r o : ( %I 2 )[ b e t a( 1 / 2 ,5 / 2 ) ,b e t a( 1 / 3 ,2 / 3 ) ,b e t a( 1 / 4 ,3 / 4 ) ] ; 3 %2 %p ip i ( %O 2 )[ ,,s q r t( 2 ) %p i ]
162/633
28/08/13

8s q r t( 3 ) C u a n d oc o n f i g u r e` b e t a _ a r g s _ s u m _ t o _ i n t e g e r' a 't r u e' m sg e n e r a l e x p r e s i ns es i m p l i f i c a ,c u a n d ol as u m ad el o sa r g u m e n t o se su n e n t e r o : ( %I 3 )b e t a _ a r g s _ s u m _ t o _ i n t e g e r :t r u e$ ( %I 4 )b e t a( a1 ,2 a ) ; %P i( a-1 )a ( %O 4 )2s i n( %p i( 2-a ) ) L o sr e s u l t a d o sp o s i b l e s ,c u a n d ou n od el o sa r g u m e n t o se su nn e g a t i v o e n t e r o : ( %I 5 )[ b e t a( 3 , 1 ) ,b e t a( 3 , 2 ) ,b e t a( 3 , 3 ) ] ; 111 ( %O 5 )[ ,,] 363 ` B e t a( a+n ,b )' o `b e t a( a ) 'c o n' n 'u ne n t e r os i m p l i f i c ac u a n d o ` B e t a _ e x p a n d' e s `t r u e ' : ( %I 6 )b e t a _ e x p a n d :t r u e$ ( %I 7 )[ b e t a( u n1 ,b ) ,b e t a( a 1 ,b ) ,b e t a( u n1 ,b )/b e t a( a ,b1 ) ] ; u n ab e t a( a ,b )b e t a( a ,b )( b+a-1 )a ( %O 7 )[ ,,] b+a a-1b B e t an oe s t d e f i n i d a ,c u a n d ou n od el o sa r g u m e n t o se sc e r o : ( %I 7 )b e t a( 0 ,b ) ; b e t a :a r g u m e n t o sn u l o se s p e r a d o s ;e n c o n t r a d o0 ,b -U ne r r o r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; E v a l u a c i nn u m r i c ap a r aa r g u m e n t o sr e a l e syc o m p l e j o se nf l o t a d o ro b i g f l o a tp r e c i s i n : ( %I 8 )b e t a( 2 . 5 , 2 . 3 ) ; ( %O 8 ), 0 8 6 9 4 7 4 8 6 1 1 2 9 9 9 8 1 ( %I 9 )b e t a( 2 . 5 , 1 . 4+ %i ) ; ( %O 9 )0 , 0 6 4 0 1 4 4 9 5 0 7 9 6 6 9 5 , 1 5 0 2 0 7 8 0 5 3 2 8 6 4 1 5 %i ( %I 1 0 )b e t a( 2 . 5 b 0 ,2 . 3 b 0 ) ; ( %O 1 0 )8 . 6 9 4 7 4 8 6 1 1 2 9 9 9 6 9 b 2 ( %I 1 1 )b e t a( 2 . 5 b 0 ,1 . 4 b 0+ %i ) ; ( %O 1 1 )6 . 4 0 1 4 4 9 5 0 7 9 6 6 9 4 4 b 2-1 . 5 0 2 0 7 8 0 5 3 2 8 6 4 1 5 b 1 %i B e t ae ss i m t r i c ayt i e n es i m e t r ad ee s p e j o : ( %I 1 4 )b e t a( a ,b ) b e t a( B ,A ) ; ( %O 1 4 )0 ( %I 1 5 )d e c l a r e( a ,c o m p l e j ob ,c o m p l e j o )$ ( %I 1 6 )c o n j u g a d o( b e t a( a ,b ) ) ; ( %O 1 6 )b e t a( c o n j u g a d o( a ) ,e lc o n j u g a d o( b ) ) L ad e r i v a d ad el af u n c i nb e t aW R T' a ' : ( %I 1 7 )d i f f( b e t a( a ,b ) ,a ) ; ( %O 1 7 )-b e t a( a ,b )( p s i( b+a )-p s i( a ) ) 00
F u n c i n :b e t a _ i n c o m p l e t e( < a > ,< z > ) L ad e f i n i c i nb s i c ad el af u n c i nb e t ai n c o m p l e t a( A&S6 . 6 . 1 )e s z / [ B-1a-1 I( 1-t )td t ] / 0 E s t ad e f i n i c i ne sp o s i b l ep a r ar e a l p a r t( a ) >0yr e a l p a r t( b ) >0 ya b s( z )< 1 .P a r ao t r o sv a l o r e sd el af u n c i nb e t ai n c o m p l e t ap u e d es e r d e f i n i d oat r a v sd eu n af u n c i nh i p e r g e o m t r i c ag e n e r a l i z a d a : g a m m a( a )h y p e r g e o m e t r i c _ g e n e r a l i z e d( [ a ,1-b ] ,[ a+1 ] ,z )z ( V e rf u n c t i o n s . w o l f r a m . c o mp a r au n ad e f i n i c i nc o m p l e t ad el a f u n c i nb e t ai n c o m p l e t a . ) P a r ae n t e r o sn e g a t i v o sa= n ,yn m e r o se n t e r o sp o s i t i v o sb=mc o nm< =n l af u n c i nb e t ai n c o m p l e t as ed e f i n ec o m o m-1k = = = =( 1-m )z n-1\k z >/K !( N-k ) = = = = k=0
163/633
28/08/13

M a x i m au t i l i z ae s t ad e f i n i c i np a r as i m p l i f i c a r` b e t a _ i n c o m p l e t e' p a r a< a >u n e n t e r on e g a t i v o . P a r a< a >u nn m e r oe n t e r op o s i t i v o ,` b e t a _ i n c o m p l e t e' s i m p l i f i c ap a r ac u a l q u i e r a r g u m e n t oy< z >yu ne n t e r op o s i t i v op a r ac u a l q u i e r < a >a r g u m e n t oy< z > ,c o nl ae x c e p c i nd e< a >u ne n t e r on e g a t i v o . P a r az=0yr e a l p a r t( a ) >0 ,` b e t a _ i n c o m p l e t e' t i e n el ae s p e c f i c a v a l o rc e r o .P a r a< z = 1 >yr e a l p a r t( b ) >0 ,` b e t a _ i n c o m p l e t e' s i m p l i f i c aal ab e t a` b e t af u n c i n( a ,b )' . M a x i m ae v a l a` b e t a _ i n c o m p l e t e "n u m r i c a m e n t ed ev e r d a dy v a l o r e sc o m p l e j o se nf l o a top r e c i s i nb i g f l o a t .P a r ae ln u m r i c a e v a l u a c i nd eu n ae x p a n s i nd el af u n c i nb e t ai n c o m p l e t ae n s eu t i l i z af r a c c i o n e sc o n t i n u a s . C u a n d ol av a r i a b l eo p c i n` b e t a _ e x p a n d' e s `t r u e ' ,M a x i m ae x p a n d e e x p r e s i o n e sc o m o` b e t a _ i n c o m p l e t e( a+n ,b ,z )' y ` B e t a _ i n c o m p l e t e( u n ,b ,z ) " ,d o n d ene su ne n t e r op o s i t i v o . M a x i m ac o n o c el a sd e r i v a d a sd e` b e t a _ i n c o m p l e t e' c o nr e s p e c t oal a l a< a >l a sv a r i a b l e s ,y< z >yl ai n t e g r a lc o nr e s p e c t oal a < z >v a r i a b l e . E j e m p l o s : S i m p l i f i c a c i np a r a< a >u ne n t e r op o s i t i v o : ( %I 1 )b e t a _ i n c o m p l e t e( 2 ,b ,z ) ; b 1-( 1-z )( b z+1 ) ( %O 1 )b( b+1 ) S i m p l i f i c a c i np a r au ne n t e r op o s i t i v o : ( %I 2 )b e t a _ i n c o m p l e t e( a ,2 ,z ) ; u n ( U n( 1-z )+1 )z ( %O 2 )u n( a+1 ) S i m p l i f i c a c i np a r a< a >yu ne n t e r op o s i t i v o : ( %I 3 )b e t a _ i n c o m p l e t e( 3 , 2 ,z ) ; 3 ( 3( 1-z )+1 )z ( %O 3 )1 2 < a >e su ne n t e r on e g a t i v oyb< =( a ) ,M a x i m as i m p l i f i c a : ( %I 4 )b e t a _ i n c o m p l e t e( 3 , 1 ,z ) ; 1 ( %O 4 )3 3z P a r al o sv a l o r e sz=0yz=1 ,M a x i m as i m p l i f i c a : ( %I 5 )a s u m i r( a >0 ,b >0 )$ ( %I 6 )b e t a _ i n c o m p l e t e( a ,b ,0 ) ; ( %O 6 )0 ( %I 7 )b e t a _ i n c o m p l e t e( a ,b ,1 ) ; ( %O 7 )b e t a( a ,b ) E v a l u a c i nn u m r i c ae nf l o a top r e c i s i nb i g f l o a t : ( %I 8 )b e t a _ i n c o m p l e t e( 0 . 2 5 , 0 . 5 0 , 0 . 9 ) ; ( %O 8 )4 . 5 9 4 9 5 9 4 4 0 2 6 9 3 3 3 ( %I 9 )f p p r e c :2 5$ ( %I 1 0 )b e t a _ i n c o m p l e t e( 0 . 2 5 , 0 . 5 0 , 0 . 9b 0 ) ; ( %O 1 0 )4 . 5 9 4 9 5 9 4 4 0 2 6 9 3 2 4 0 8 6 9 7 1 2 0 3 b 0 P o ra b s( z ) >1` b e t a _ i n c o m p l e t e' d e v u e l v eu nr e s u l t a d oc o m p l e j o : ( %I 1 1 )b e t a _ i n c o m p l e t e( 0 . 2 5 , 0 . 5 0 , 1 . 7 ) ; ( %O 1 1 )5 , 2 4 4 1 1 5 1 0 8 5 8 4 2 4 9 1 , 4 5 5 1 8 0 4 7 7 8 7 8 4 4 %i R e s u l t a d o sp a r aa r g u m e n t o sc o m p l e j o sm sg e n e r a l e s : ( %I 1 4 )b e t a _ i n c o m p l e t e( 0 , 2 5 %+i ,+1 , 0 %i ,1 , 7 %+i ) ; ( %O 1 4 )2 , 7 2 6 9 6 0 6 7 5 6 6 2 5 3 6 0 , 3 8 3 1 1 7 5 7 0 4 2 6 9 1 9 9 %i ( %I 1 5 )b e t a _ i n c o m p l e t e( 1 / 2 ,5 / 4* %i ,2 , 8 %+i ) ; ( %O 1 5 )1 3 . 0 4 6 4 9 6 3 5 1 6 8 7 1 6 %i-5 . 8 0 2 0 6 7 9 5 6 2 7 0 0 0 1 ( %I 1 6 ) E x p a n s i n ,c u a n d o` b e t a _ e x p a n d' e s `t r u e ' : ( %I 2 3 )b e t a _ i n c o m p l e t e( a1 ,b ,z ) ,b e t a _ e x p a n d :t r u e ; b a u nb e t a _ i n c o m p l e t e( a ,b ,z )( 1-z )z ( %O 2 3 )b+a b+a ( %I 2 4 )b e t a _ i n c o m p l e t e( a 1 ,b ,z ) ,b e t a _ e x p a n d :t r u e ; b a-1
164/633
28/08/13

b e t a _ i n c o m p l e t e( a ,b ,z )( -b-a+1 )( 1-z )z ( %O 2 4 )-1-a1-a D e r i v a d aei n t e g r a lp a r a` b e t a _ i n c o m p l e t e' : ( %I 3 4 )d i f f( b e t a _ i n c o m p l e t e( a ,b ,z ) ,z ) ; b-1a-1 ( %O 3 4 )( 1-z )z ( %I 3 5 )i n t e g r a t e( b e t a _ i n c o m p l e t e( a ,b ,z ) ,z ) ; b a ( 1-z )z ( %O 3 5 )-+b e t a _ i n c o m p l e t e( a ,b ,z )z b+a u nb e t a _ i n c o m p l e t e( a ,b ,z ) b+a ( %I 3 6 )F a c t o r( d i f f( % ,z ) ) ; ( %O 3 6 )b e t a _ i n c o m p l e t e( a ,b ,z )
F u n c i n :b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( < a > ,< z > ) L af u n c i nb e t ai n c o m p l e t ar e g u l a r i z a d aA&S6 . 6 . 2 ,d e f i n ec o m o b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,b ,z )= b e t a _ i n c o m p l e t e( a ,b ,z ) b e t a( a ,b ) E nc u a n t oa` b e t a _ i n c o m p l e t e' e s t ad e f i n i c i nn oe sc o m p l e t a .V e r f u n c t i o n s . w o l f r a m . c o mp a r au n ad e f i n i c i nc o m p l e t ad e ` B e t a _ i n c o m p l e t e _ r e g u l a r i z e d' . ` B e t a _ i n c o m p l e t e _ r e g u l a r i z e d' s i m p l i f i c a< a >op o s i t i v o n m e r oe n t e r o . P a r az=0yr e a l p a r t( a ) >0 ,` b e t a _ i n c o m p l e t e _ r e g u l a r i z e d' t i e n el a v a l o r0c o n c r e t o .P a r a< z = 1 >yr e a l p a r t( b ) >0 , ` B e t a _ i n c o m p l e t e _ r e g u l a r i z e d' s es i m p l i f i c aa1 . M a x i m ap u e d ee v a l u a rb e t a _ i n c o m p l e t e _ r e g u l a r i z e d` ' d ev e r d a dy a r g u m e n t o sc o m p l e j o se nd e c i m a lyb i gf l o a t . C u a n d o` b e t a _ e x p a n d' e s `t r u e ' ,M a x i m ae x p a n d e B e t a _ i n c o m p l e t e _ r e g u l a r i z e d` ' p a r al o sa r g u m e n t o sa+noa n ,d o n d ene s u nn m e r oe n t e r o . M a x i m ac o n o c el a sd e r i v a d a sd e` b e t a _ i n c o m p l e t e _ r e g u l a r i z e d' c o n c o nr e s p e c t oal a sv a r i a b l e s< a > ,y< z >c o m ol ai n t e g r a l c o nr e s p e c t oal av a r i a b l ed e< z > . E j e m p l o s : S i m p l i f i c a c i np a r a< a >ou ne n t e r op o s i t i v o : ( %I 1 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( 2 ,b ,z ) ; b ( %O 1 )1-( 1-z )( b z+1 ) ( %I 2 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,2 ,z ) ; u n ( %O 2 )( a( 1-z )+1 )z ( %I 3 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( 3 , 2 ,z ) ; 3 ( %O 3 )( 3( 1-z )+1 )z P a r al o sv a l o r e sz=0yz=1 ,M a x i m as i m p l i f i c a : ( %I 4 )a s u m i r( a >0 ,b >0 )$ ( %I 5 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,b ,0 ) ; ( %O 5 )0 ( %I 6 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,b ,1 ) ; ( %O 6 )1 E v a l u a c i nn u m r i c ap a r aa r g u m e n t o sr e a l e syc o m p l e j o se nf l o t a d o ry b i g f l o a tp r e c i s i n : ( %I 7 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( 0 . 1 2 , 0 . 4 3 , 0 . 9 ) ; ( %O 7 ), 9 1 1 4 0 1 1 3 6 7 3 5 9 8 0 2 ( %I 8 )f p p r e c :3 2$ ( %I 9 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( 0 . 1 2 , 0 . 4 3 , 0 . 9b 0 ) ; ( %O 9 )9 . 1 1 4 0 1 1 3 6 7 3 5 9 8 0 7 5 5 1 9 9 4 6 9 9 8 7 7 9 9 7 5 b 1 ( %I 1 0 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( 1+ %i ,3 . 3 ,1 . 5* %i ) ; ( %O 1 0 )0 . 2 8 6 5 3 6 7 4 9 9 9 3 5 4 0 3 %i-0 . 1 2 2 9 9 5 9 6 3 3 3 4 6 8 4 ( %I 1 1 )f p p r e c :2 0$ ( %I 1 2 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( 1+ %i ,3 / 3 ,1 . 5 b 0* %i ) ; ( %O 1 2 )2 . 8 6 5 3 6 7 4 9 9 9 3 5 4 0 3 6 1 4 2 b 1 %i-1 . 2 2 9 9 5 9 6 3 3 3 4 6 8 4 0 0 1 6 3 b 1 E x p a n s i n ,c u a n d o` b e t a _ e x p a n d' e s `t r u e ' : ( %I 1 3 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a1 ,b ,z ) ; b a ( 1-z )z ( %O 1 3 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,b ,z )-
165/633
28/08/13

u n ab e t a( a ,b ) ( %I 1 4 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a 1 ,b ,z ) ; ( %O 1 4 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,b ,z ) b a-1 ( 1-z )z b e t a( a ,b )( b+a-1 ) L ad e r i v a d ayl ai n t e g r a l< z >w r t : ( %I 1 5 )d i f f( b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,b ,z ) ,z ) ; b-1a-1 ( 1-z )z ( %O 1 5 )b e t a( a ,b ) ( %I 1 6 )i n t e g r a t e( b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,b ,z ) ,z ) ; ( %O 1 6 )b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,b ,z )z b a ( 1-z )z u n( b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( a ,b ,z )) u n ab e t a( a ,b ) -b+a
F u n c i n :b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( < a > ,< z 1 > ,< z 2 > ) L ad e f i n i c i nb s i c ad el af u n c i nb e t ai n c o m p l e t ae sg e n e r a l i z a d a z 2 / [ B-1a-1 I( 1-t )td t ] / z 1 M a x i m as i m p l i f i c a` b e t a _ i n c o m p l e t e _ r e g u l a r i z e d' p a r a< a >yu n e n t e r op o s i t i v o . P a r ar e a l p a r t( a ) >0yz 1=0oz 2=0 ,M a x i m as i m p l i f i c a ` B e t a _ i n c o m p l e t e _ g e n e r a l i z e d' a `b e t a _ i n c o m p l e t e ' .P a r a r e a l p a r t( b ) >0yz 1=1o< z 2 = 1 > ,M a x i m as i m p l i f i c aau n e x p r e s i nc o n' b e t a 'y` b e t a _ i n c o m p l e t e' . M a x i m ae v a l a` b e t a _ i n c o m p l e t e _ r e g u l a r i z e d' d ev e r d a dy v a l o r e sc o m p l e j o se nd e c i m a lyb i gf l o a t . C u a n d o` b e t a _ e x p a n d' e s `t r u e ' ,M a x i m ae x p a n d e ` B e t a _ i n c o m p l e t e _ g e n e r a l i z e d' d ea+nya n ,< n >p o s i t i v o n m e r oe n t e r o . M a x i m ar e c o n o c el ad e r i v a d ad e` b e t a _ i n c o m p l e t e _ g e n e r a l i z e d' c o n c o nr e s p e c t oal a sv a r i a b l e s< a > , ,< z 1 >y< z 2 >yl a i n t e g r a l e sc o nr e s p e c t oal a sv a r i a b l e s< z 1 >y< z 2 > . E j e m p l o s : M a x i m as i m p l i f i c a` b e t a _ i n c o m p l e t e _ g e n e r a l i z e d' p a r a< a >yu n e n t e r op o s i t i v o : ( %I 1 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( 2 ,b ,z 1 ,z 2 ) ; b b ( 1-z 1 )( bz 1+1 )-( 1-z 2 )( bz 2+1 ) ( %O 1 )b( b+1 ) ( %I 2 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,2 ,Z 1 ,Z 2 ) ; a a ( U n( 1-z 2 )+1 )z 2-( b i s( 1-z 1 )+1 )z 1 ( %O 2 )u n( a+1 ) ( %I 3 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( 3 , 2 ,z 1 ,z 2 ) ; 2222 ( 1-z 1 )( 3z 1z 1+2+1 )-( 1-z 2 )( 3z 2z 2+2+1 ) ( %O 3 )-1 2 S i m p l i f i c a c i np a r al o sv a l o r e se s p e c f i c o sz 1=0 ,z 2=0 ,z 1=1oz 2=1 : ( %I 4 )a s u m i r( a >0 ,b >0 )$ ( %I 5 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,b ,z 1 ,0 ) ; ( %O 5 )-b e t a _ i n c o m p l e t e( a ,b ,z 1 ) ( %I 6 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,b ,0 ,z 2 ) ; ( %O 6 )-b e t a _ i n c o m p l e t e( a ,b ,z 2 ) ( %I 7 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,b ,z 1 ,1 ) ; ( %O 7 )b e t a( a ,b )-b e t a _ i n c o m p l e t e( a ,b ,z 1 ) ( %I 8 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( A ,B ,1 ,z 2 ) ; ( %O 8 )b e t a _ i n c o m p l e t e( a ,b ,z 2 )-b e t a( a ,b ) E v a l u a c i nn u m r i c ap a r aa r g u m e n t o sr e a l e se nf l o a tob i g f l o a t p r e c i s i n : ( %I 9 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( 1 / 2 ,3 / 2 ,0 . 2 5 , 0 . 3 1 ) ;
166/633
28/08/13
( %O 9 ), 0 9 6 3 8 1 7 8 0 8 6 3 6 8 6 7 6
( %I 1 0 )f p p r e c :3 2$ ( %I 1 0 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( 1 / 2 ,3 / 2 ,0 . 2 5 , 0 . 3 1b 0 ) ; ( %O 1 0 )9 . 6 3 8 1 7 8 0 8 6 3 6 8 6 9 3 5 3 0 9 1 7 0 0 5 4 6 8 9 9 6 4 b 2 E v a l u a c i nn u m r i c ap a r aa r g u m e n t o sc o m p l e j o se nf l o a tob i g f l o a t p r e c i s i n : ( %I 1 1 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( 1 / 2+ %i ,3 / 2+i % ,0 . 2 5 , 0 . 3 1 ) ; ( %O 1 1 )-, 0 9 6 2 5 4 6 3 0 0 3 2 0 5 3 7 6 %i-0 , 0 0 3 3 2 3 8 4 7 7 3 5 3 5 3 7 6 9 ( %I 1 2 )f p p r e c :2 0$ ( %I 1 3 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( 1 / 2+ %i ,3 / 2+i % ,0 . 2 5 , 0 . 3 1b 0 ) ; ( %O 1 3 )-9 . 6 2 5 4 6 3 0 0 3 2 0 5 4 1 7 8 6 9 1 b 2 %i-3 . 3 2 3 8 4 7 7 3 5 3 5 4 3 5 9 1 9 1 4 b 3 D ee x p a n s i np a r au n+nou n ,< n >u nn m e r oe n t e r op o s i t i v o ,c u a n d o ` B e t a _ e x p a n d' e s `t r u e ' : ( %I 1 4 )b e t a _ e x p a n d :t r u e$ ( %I 1 5 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a1 ,b ,z 1 ,z 2 ) ; b a b a ( 1-Z 1 )z 1-( 1-z 2 )z 2 ( %O 1 5 )b+a u nb e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,b ,z 1 ,z 2 ) +b+a ( %I 1 6 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a 1 ,b ,z 1 ,z 2 ) ; b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,b ,z 1 ,z 2 )( -b-a+1 ) ( %O 1 6 )-1-u n a b a-b a1-1 ( 1-z 2 )z 2-( 1-Z 1 )z 1 1-u n a D e r i v a d ar e s p e c t od el a< z 1 >v a r i a b l eei n t e g r a l e sr e s p e c t o< z 1 >y< z 2 > : ( %I 1 7 )d i f f( b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,b ,z 1 ,z 2 ) ,z 1 ) ; b-1a-1 ( %O 1 7 )-( 1-Z 1 )z 1 ( %I 1 8 )i n t e g r a t e( b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,b ,z 1 ,z 2 ) ,z 1 ) ; ( %O 1 8 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,b ,z 1 ,z 2 )z 1 B e t a _ i n c o m p l e t e+( a+1 ,b ,z 1 ) ( %I 1 9 )i n t e g r a t e( b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,b ,z 1 ,z 2 ) ,z 2 ) ; ( %O 1 9 )b e t a _ i n c o m p l e t e _ g e n e r a l i z e d( a ,b ,z 1 ,z 2 )z 2 -B e t a _ i n c o m p l e t e( a+1 ,b ,z 2 )
V a r i a b l eo p c i o n a l :b e t a _ e x p a n d V a l o rp o rd e f e c t o :f a l s e C u a n d o` b e t a _ e x p a n d' e s 't r u e' , 'b e t a( a ,b )yd el a sf u n c i o n e sr e l a c i o n a d a sc o n s ee x p a n d e np a r aa r g u m e n t o sc o m oa+noa n ,d o n d ene su ne n t e r o .
V a r i a b l eo p c i o n a l :b e t a _ a r g s _ s u m _ t o _ i n t e g e r V a l o rp o rd e f e c t o :f a l s e C u a n d o` b e t a _ a r g s _ s u m _ t o _ i n t e g e r' e s `t r u e ' ,M a x i m as i m p l i f i c a ` B e t a( a ,b )' ,c u a n d ol o sa r g u m e n t o s< a >ys u m aau ne n t e r o .
F u n c i n :p s i[ < n > ]( < x > ) E ld e r i v a d od e` l o g( g a m m a( < x > ) )' d e lo r d e n '+ 1 '< n > .P o rl ot a n t o , ` P s i[ 0 ]( < x > )' e sl ap r i m e r ad e r i v a d a , `p s i[ 1 ]( < x > ) 'e se ls e g u n d o d e r i v a d o ,e t c M a x i m an os a b ec m o ,e ng e n e r a l ,p a r ac a l c u l a ru nv a l o rn u m r i c o d e` p s i' ,p e r os ep u e d ec a l c u l a ra l g u n o sv a l o r e se x a c t o sp a r aa r g sr a c i o n a l e s . D i v e r s a sv a r i a b l e sc o n t r o l a rq u r a n g od ea r g u m e n t o sr a c i o n a l e s' p s i 's e d e v o l v e r u nv a l o re x a c t o ,s ie sp o s i b l e .C o n s u l t e` m a x p s i p o s i n t' , M a x p s i n e g i n t` ' , `m a x p s i f r a c n u m 'y` m a x p s i f r a c d e n o m' .E sd e c i r , < x >d e b ee s t a re n t r em a x p s i n e g i n t` ' y `m a x p s i p o s i n t ' .S ie l v a l o ra b s o l u t od el ap a r t ef r a c c i o n a r i ad e< x >e sr a c i o n a lyt i e n eu n n u m e r a d o rm e n o sd e` m a x p s i f r a c n u m' yt i e n eu nd e n o m i n a d o rm e n o s q u e` m a x p s i f r a c d e n o m' , 'p s i' d e v o l v e r u nv a l o re x a c t o . L af u n c i n` b f p s i' e ne l `b f f a c" p a q u e t ep u e d ec a l c u l a rn u m r i c a v a l o r e s .
V a r i a b l eo p c i o n a l :m a x p s i p o s i n t V a l o rp o rd e f e c t o :2 0
167/633
28/08/13

` M a x p s i p o s i n t' e se lm a y o rv a l o rp o s i t i v op a r al o sq u e `p s i[ n ]( x ) ' i n t e n t a r c a l c u l a ru nv a l o re x a c t o .
V a r i a b l eo p c i o n a l :m a x p s i n e g i n t V a l o rp o rd e f e c t o :1 0 ` M a x p s i n e g i n t' e se lv a l o rm sn e g a t i v op a r al o sc u a l e s `p s i[ n ]( x ) ' i n t e n t a r c a l c u l a ru nv a l o re x a c t o .E s t oe s ,s ie sm e n o sd e< x > M a x n e g i n t` ' , `p s i[ n ]( < x > ) 'n od e v o l v e r u n ar e s p u e s t as i m p l i f i c a d a ,a u n q u e s ip u d i e r a .
V a r i a b l eo p c i o n a l :m a x p s i f r a c n u m V a l o rp o rd e f e c t o :6 D e j e< x >s e ru nn m e r or a c i o n a lm e n o rq u el ad el af o r m a` p/q .S i ` P' e sm a y o rq u e `m a x p s i f r a c n u m ' ,yl u e g o' p s i[ < n > ]( < x > ) 'n ol oh a r t r a t a rd ed e v o l v e ru nv a l o rs i m p l i f i c a d o .
V a r i a b l eo p c i o n a l :m a x p s i f r a c d e n o m V a l o rp o rd e f e c t o :6 D e j e< x >s e ru nn m e r or a c i o n a lm e n o rq u el ad el af o r m a` p/q .S i ` Q' e sm a y o rq u e `m a x p s i f r a c d e n o m ' ,yl u e g o' p s i[ < n > ]( < x > )l av o l u n t a d N ot r a t ed ed e v o l v e ru nv a l o rs i m p l i f i c a d o .
F u n c i n :m a k e f a c t( e x p r ) T r a n s f o r m al a sb i n o m i a l ,g a m m ayb e t ae nf u n c i o n e s e x p re ns un o t a c i nf a c t o r i a l . C o n s u l t et a m b i n` m a k e g a m m a' .
F u n c i n :n u m f a c t o r( e x p r ) D e v u e l v ee lf a c t o rn u m r i c oq u em u l t i p l i c aal ae x p r e s i ne x p r , q u ed e b eh a b e ru ns o l ot r m i n o . ` C o n t e n i d o s' d e v u e l v ee lm x i m oc o m nd i v i s o r( m c d )d et o d o sl o st r m i n o s e nu n as u m a . ( %I 1 )g a m m a( 7 / 2 ) ; 1 5s q r t( %p i ) ( %O 1 )8 ( %I 2 )n u m f a c t o r( % ) ; 1 5 ( %O 2 )8
15.5 Integrales exponenciales

L o sf u n t i o n sI n t e g r a lyr e l a c i o n a d o se x p o n e n c i a l e ss ed e f i n e ne nA b r a m o w i t z yS t e g u n ,H a n d b o o ko fM a t h e m a t i c a lF u n c t i o n s ,c a p t u l o5
F u n c i n :e x p i n t e g r a l _ e 1( < z > ) L ai n t e g r a le x p o n e n c i a lE 1( z )( A&S5 . 1 . 1 )
F u n c i n :e x p i n t e g r a l _ e i( < z > ) L ai n t e g r a le x p o n e n c i a lE i( z )( A&S5 . 1 . 2 )
F u n c i n :e x p i n t e g r a l _ l i( < z > ) L ai n t e g r a le x p o n e n c i a lL i( z )( A&S5 . 1 . 3 )
F u n c i n :e x p i n t e g r a l _ e( < n > ,< z > ) E nL ai n t e g r a le x p o n e n c i a l( z )( A&S5 . 1 . 4 )
168/633
28/08/13
F u n c i n :e x p i n t e g r a l _ s i( < z > ) S il ai n t e g r a le x p o n e n c i a l( z )( A&S5 . 2 . 1 )
F u n c i n :e x p i n t e g r a l _ c i( < z > ) L ai n t e g r a le x p o n e n c i a lC i( z )( A&S5 . 2 . 2 )
F u n c i n :e x p i n t e g r a l _ s h i( < z > ) L ai n t e g r a le x p o n e n c i a lS h i( z )( A&S5 . 2 . 3 )
F u n c i n :e x p i n t e g r a l _ c h i( < z > ) E lC h iI n t e g r a lE x p o n e n c i a l( z )( A&S5 . 2 . 4 )
V a r i a b l eo p c i o n a l :e x p i n t r e p V a l o rp o rd e f e c t o :f a l s e C a m b i a rl ar e p r e s e n t a c i nd el ai n t e g r a le x p o n e n c i a la g a m m a _ i n c o m p l e t e ,e x p i n t e g r a l _ e 1 ,e x p i n t e g r a l _ e i , e x p i n t e g r a l _ l i ,e x p i n t e g r a l _ t r i g ,e x p i n t e g r a l _ h y p
V a r i a b l eo p c i o n a l :e x p i n t e x p a n d V a l o rp o rd e f e c t o :f a l s e A m p l i a re le x p o n e n c i a lEI n t e g r a l[ n ]( z )d em e d i av a l o r e se n t e r o s e nt r m i n o sd ee r f coE r fyp a r al o se n t e r o sp o s i t i v o se nt r m i n o sd eE i
15.6 Funcin de error

L af u n c i nd ee r r o ryf u n t i o n sr e l a c i o n a d o ss ed e f i n e ne nA b r a m o w i t zy S t e g u n ,H a n d b o o ko fM a t h e m a t i c a lF u n c t i o n s ,C a p t u l o7
F u n c i n :e r f( < z > ) L af u n c i nd ee r r o re r f( z )( A&S7 . 1 . 1 ) V a s et a m b i nl ab a n d e r a` e r f f l a g' .
F u n c i n :e r f c( < z > ) E lC o m p l e m e n t a r i aE r r o rF u n c i ne r f c( z )( A&S7 . 1 . 2 ) ` E r f c( z )=1 e r f( z )'
F u n c i n :e r f i( < z > ) F u n c i nd ee r r o ri m a g i n a r i a . ` E r f i( z )=%i*e r f( %i*z )'
F u n c i n :e r f _ g e n e r a l i z e d( < z 1 > ,< z 2 > ) F u n c i nd ee r r o rg e n e r a l i z a d oE r f( z 1 ,z 2 )
F u n c i n :f r e s n e l _ c( < z > ) L ai n t e g r a ld eF r e s n e lC( z )=i n t e g r a t e( c o s( ( %p i/2 )*t^2 ) ,t ,0 ,z ) . ( A&S7 . 3 . 1 ) E lf r e s n e l _ cs i m p l i f i c a c i n( x )= f r e s n e l _ cs ea p l i c a( x )c u a n d o b a n d e r a` t r i g s i g n' e sv e r d a d e r a . E lf r e s n e l _ cs i m p l i f i c a c i n( %i*x )= %is ea p l i c a*f r e s n e l _ c( x )
169/633
28/08/13

c u a n d oe li n d i c a d o r' %i a r g s 'e sv e r d a d e r a . V e rl a sb a n d e r a s` e r f _ r e p r e s e n t a t i o n' y `h y p e r g e o m e t r i c _ r e p r e s e n t a t i o n ' .
F u n c i n :f r e s n e l _ s( < z > ) L ai n t e g r a ld eF r e s n e lS( z )=i n t e g r a t e( s e n( ( %p i/2 )*t^2 ) ,t ,0 ,z ) . ( A&S7 . 3 . 2 ) L o sf r e s n e l _ ss i m p l i f i c a c i n( x )= f r e s n e l _ s( x )s ea p l i c ac u a n d o b a n d e r a` t r i g s i g n' e sv e r d a d e r a . L o sf r e s n e l _ ss i m p l i f i c a c i n( %i*x )= %is ea p l i c a*f r e s n e l _ s( x ) c u a n d oe li n d i c a d o r' %i a r g s 'e sv e r d a d e r a . V e rl a sb a n d e r a s` e r f _ r e p r e s e n t a t i o n' y `h y p e r g e o m e t r i c _ r e p r e s e n t a t i o n ' .
V a r i a b l eo p c i o n a l :e r f _ r e p r e s e n t a t i o n V a l o rp o rd e f e c t o :f a l s e C u a n d oTe r f c ,e r f i ,e r f _ g e n e r a l i z e d ,f r e s n e l _ syf r e s n e l _ cs o n t r a n s f o r m a d oae r f . V a r i a b l eo p c i o n a l :h y p e r g e o m e t r i c _ r e p r e s e n t a t i o n V a l o rp o rd e f e c t o :f a l s e P e r m i t eo b t e n e rl ar e p r e s e n t a c i nh i p e r g e o m t r i c ad e f r e s n e l _ syf r e s n e l _ c
15.7 Funciones de Struve

L a sf u n c i o n e sd eS t r u v es ed e f i n e nA b r a m o w i t zyS t e g u n ,M a n u a ld e F u n c i o n e sm a t e m t i c a s ,C a p t u l o1 2 .
F u n c i n :s t r u v e _ h( < v > ,< z > ) L af u n c i nd eS t r u v eHd eo r d e nvya r g u m e n t oz .( A&S1 2 . 1 . 1 )
F u n c i n :s t r u v e _ l( < v > ,< z > ) L am o d i f i c a c i nS t r u v eF u n c i nLd eo r d e nvya r g u m e n t oz .( A&S 1 2 . 2 . 1 )
15.8 Funciones hipergeomtricas

L a sf u n c i o n e sh i p e r g e o m t r i c a ss ed e f i n e ne nA b r a m o w i t zyS t e g u n , H a n d b o o ko fM a t h e m a t i c a lF u n c t i o n s ,c a p t u l o s1 3y1 5 . M a x i m at i e n eu nc o n o c i m i e n t om u yl i m i t a d od ee s t a sf u n c i o n e s .P u e d e ns e r r e g r e s a rd el af u n c i n` h g f r e d' .
F u n c i n :%m[ < k > , ]( < z > ) W h i t t a k e rf u n c i nM` M[ k ,u ]( z )= e x p( z/2 )*z^( 1 / 2+u )*M( 1 / 2+R e i n oU n i d o ,12*u ,z )' .( A&S1 3 / 0 1 / 3 2 )
F u n c i n :%w[ < k > , ]( < z > ) F u n c i nWW h i t t a k e r .( A&S1 3 / 0 1 / 3 3 )
F u n c i n :%f[ ,< q > ]( < [ a ] ,[ b ] ,z > ) E lP F Q( a 1 ,a 2 ,. .A P ;b 1 ,b 2 ,. .b q ;z )l af u n c i nh i p e r g e o m t r i c a ,d o n d e ` A' e nu n al i s t ad el o n g i t u d `p 'y' b 'u n al i s t ad el o n g i t u dq` ' .
F u n c i n :h i p e r g e o m t r i c a( [ < A 1 > ,. . . ,< a p > ] ,[ ,. . . , ] ,x ) L af u n c i nh i p e r g e o m t r i c a .Ad i f e r e n c i ad eM a x i m a` f %' h i p e r g e o m t r i c a f u n c i n ,l af u n c i nh i p e r g e o m t r i c a` ' e su n af u n c i nd el as i m p l i f i c a c i n ; A s i m i s m o ,` h i p e r g e o m t r i c a a p o y ac o m p l e j of l o t a n t ed ed o b l eyg r a n d e s E v a l u a c i nm o m e n t o .P a r al af u n c i nh i p e r g e o m t r i c ad eG a u s s ,q u ee sp
170/633
28/08/13

=2yq=1 ,l ae v a l u a c i ne np u n t of l o t a n t ef u e r ad e lc r c u l ou n i t a r i o c o ne la p o y o ,p e r oe ng e n e r a l ,n oe sc o m p a t i b l e . C u a n d ol av a r i a b l eo p c i n` e x p a n d _ h y p e r g e o m e t r i c' e st r u e( p o rd e f e c t o e sf a l s o )yu n od el o sa r g u m e n t o s' a 1 'at r a v sd e' a p 'e sn e g a t i v o n m e r oe n t e r o( u nc a s op o l i n o m i o ) ,` h i p e r g e o m t r i c a' d e v u e l v eu ne x p a n d i d a p o l i n o m i o . E j e m p l o s : ( %I 1 )h i p e r g e o m t r i c a( [ ] ,[ ] ,x ) ; ( %O 1 ) %e^ x L o sp o l i n o m i o ss ee x p a n d e na u t o m t i c a m e n t ec u a n d o` e x p a n d _ h y p e r g e o m e t r i c' E sc i e r t o : ( %I 2 )h i p e r g e o m t r i c a( [ 3 ] ,[ 7 ] ,x ) ; ( %O 2 )h i p e r g e o m t r i c a( [ 3 ] ,[ 7 ] ,x ) ( %I 3 )h i p e r g e o m t r i c a( [ 3 ] ,[ 7 ] ,x ) ,e x p a n d _ h y p e r g e o m e t r i c :t r u e ; ( %O 3 ) x^3 / 5 0 43*x^2 / 5 6 3*x/71 T a n t od o b l ef l o t a d o rye v a l u a c i nb i gf l o a te sc o m p a t i b l e : ( %I 4 )h i p e r g e o m t r i c a( [ 5 , 1 ] ,[ 7 , 1+ %i ] ,0 , 4 2 ) ; ( %O 4 )1 , 3 4 6 2 5 0 7 8 6 3 7 5 3 3 4 0 , 0 5 5 9 0 6 1 4 1 4 2 0 8 2 0 4 %i ( %I 5 )h i p e r g e o m t r i c a( [ 5 , 6 ] ,[ 8 ] ,5 , 7%i ) ; ( %O 5 ), 0 0 7 3 7 5 8 2 4 0 0 9 7 7 4 9 4 6 0 , 0 0 1 0 4 9 8 1 3 6 8 8 5 7 8 6 7 4 %i ( %I 6 )h i p e r g e o m t r i c a( [ 5 , 6 ] ,[ 8 ] ,5 . 7 b 0%i ) ,f p p r e c :3 0 ; ( %O 6 )7 . 3 7 5 8 2 4 0 0 9 7 7 4 9 4 6 7 4 5 0 6 4 4 2 0 1 0 8 2 4 b 3 -1 . 0 4 9 8 1 3 6 8 8 5 7 8 6 7 3 1 5 8 5 8 0 5 5 3 9 3 3 7 6 b 3 %i
15.9 Funciones de cilindro parablico

L a sf u n c i o n e sd ec i l i n d r op a r a b l i c os ed e f i n e nA b r a m o w i t zyS t e g u n , H a n d b o o ko fM a t h e m a t i c a lF u n c t i o n s ,C a p t u l o1 9 . M a x i m at i e n eu nc o n o c i m i e n t om u yl i m i t a d od ee s t a sf u n c i o n e s .P u e d e ns e r r e g r e s a rd el af u n c i n` h g f r e d' .
F u n c i n :p a r a b o l i c _ c y l i n d e r _ d( < v > ,< z > ) L af u n c i nd ec i l i n d r op a r a b l i c o` p a r a b o l i c _ c y l i n d e r _ d( v ,z ) .( A&s 1 9 . 3 . 1 )
15.10 Funciones y variables para las funciones especiales

F u n c i n :s p e c i n t( e x p( -s*< t > )*< e x p r > ,< t > ) C l c u l od el at r a n s f o r m a d ad eL a p l a c ed ee x p rc o nr e s p e c t oal a l av a r i a b l e< t > .E li n t e g r a n d oe x p rp u e d ec o n t e n e rf u n c i o n e se s p e c i a l e s . L a ss i g u i e n t e sf u n c i o n e se s p e c i a l e ss o nm a n e j a d o sp o r` s p e c i n t' : l ag a m m ai n c o m p l e t a ,f u n c i o n e sd ee r r o r( p e r on oe le r r o r f u n c i n` e r f i' , q u ee sf c i ld et r a n s f o r m a r è r f i 'p o re j e m p l o ,p a r ae le r r o r f u n c i ne r f` ' ) ,i n t e g r a l e se x p o n e n c i a l e s ,f u n c i o n e sd eB e s s e l ( I n c l u i d o sl o sp r o d u c t o sd el a sf u n c i o n e sd eB e s s e l ) ,f u n c i o n e sd eH a n k e l ,d e H e r m i t eyl o sp o l i n o m i o sd eL a g u e r r e . P o ro t r ap a r t e ,` s p e c i n t' p u e d em a n e j a rl af u n c i nh i p e r g e o m t r i c a ` %F[ p ,q ]( [ ] ,[ ] ,z )' ,l af u n c i nd eW h i t t a k e rd ep r i m e r ac l a s e ` %M[ u ,k ]( z )' yd e ls e g u n d ot i p o ` %w[ u ,k ]( z ) . E lr e s u l t a d op u e d es e re nt r m i n o sd ef u n c i o n e se s p e c i a l e syp u e d ei n c l u i r s i ns i m p l i f i c a rf u n c i o n e sh y p e r g e o m t r i c . C u a n d o` L a p l a c en oe n c u e n t r au n at r a n s f o r m a d ad eL a p l a c e , `s p e c i n t' e s l l a m a d a .P o r q u e` l a p l a c e "c o n o c el a sr e g l a sm sg e n e r a l e sd eL a p l a c e t r a n s f o r m a ,e sp r e f e r i b l eu s a r` L a p l a c e' y `n os p e c i n t ' . ` D e m o( h y p g e o )' m u e s t r av a r i o se j e m p l o sd et r a n s f o r m a d a sd eL a p l a c e c a l c u l a d op o r` s p e c i n t' . E j e m p l o s : ( %I 1 )a s u m i r ( p >0 ,a >0 )$ ( %I 2 )s p e c i n t( t^( 1 / 2 )*e x p( a*t/4 )*e x p( p*t ) ,t ) ; s q r t( %p i ) ( %O 2 )u n3 / 2 2( p+) 4 ( %I 3 )s p e c i n t( t^( 1 / 2 )*b e s s e l _ j( 1 ,2*a^( 1 / 2 )*t^( 1 / 2 ) ) *E x p( p*t ) ,t ) ; -A/p s q r t( a ) %d ec o r r e o ( %O 3 )2 p
171/633
28/08/13

E j e m p l o sp a r al a si n t e g r a l e se x p o n e n c i a l e s : ( %I 4 )a s u m i r ( s >0 ,a >0 ,s >0 )$ ( %I 5 )r a t s i m p( s p e c i n t( %e^ ( a*t ) *( L o g( a )+e x p i n t e g r a l _ e 1( a*t ) )* %e^ ( s*t ) ,t ) ) ; l o g( s ) ( %O 5 )s-u n ( %I 6 )l o g a r c :t r u e$ ( %I 7 )g a m m a _ e x p a n d :t r u e$ r a d c a n( s p e c i n t( ( c o s( t )*e x p i n t e g r a l _ s i( t ) S i n( t )*e x p i n t e g r a l _ c i( t ) )* %e^ ( s*t ) ,t ) ) ; l o g( s ) ( %O 8 )2 s+1 r a t s i m p( s p e c i n t( ( 2*t*l o g( a )2/a*s i n( a*t ) 2*T*e x p i n t e g r a l _ c i( a*t ) )* %e^ ( s*t ) ,t ) ) ; 22 r e g i s t r o( s+a ) ( %O 9 )2 s L o sr e s u l t a d o sa lu t i l i z a rl ae x p a n s i nd e` g a m m a _ i n c o m p l e t e' yc u a n d o c a m b i a rl ar e p r e s e n t a c i nd e` e x p i n t e g r a l _ e 1' : ( %I 1 0 )a s u m i r ( s >0 )$ ( %I 1 1 )s p e c i n t( 1 / s q r t( %p i*t )*u n i t _ s t e p( t k )* %e^ ( s*t ) ,t ) ; 1 g a m m a _ i n c o m p l e t e( ,k s ) 2 ( %O 1 1 )s q r t( %p i )s q r t( s ) ( %I 1 2 )g a m m a _ e x p a n d :t r u e$ ( %I 1 3 )s p e c i n t( 1 / s q r t( %p i*t )*u n i t _ s t e p( t k )* %e^ ( s*t ) ,t ) ; e r f c( s q r t( k )s q r t( s ) ) ( %O 1 3 )s q r t( s ) ( %I 1 4 )e x p i n t r e p :e x p i n t e g r a l _ e 1$ ( %I 1 5 )r a t s i m p( s p e c i n t( 1/( t+a )^2* %e^ ( s*t ) ,t ) ) ; c o m o c o m o %ee x p i n t e g r a l _ e 1( a s )-1 ( %O 1 5 )u n
F u n c i n :h g f r e d( < a > ,< t > ) S i m p l i f i c al af u n c i nh i p e r g e o m t r i c ag e n e r a l i z a d ae nt r m i n o sd eo t r a , s i m p l e syf o r m a s .< a >e su n al i s t ad ep a r m e t r o sd e ln u m e r a d o rye s u n al i s t ad el o sp a r m e t r o sd e ld e n o m i n a d o r . S i` h g f r e d "n op u e d es i m p l i f i c a rl af u n c i nh i p e r g e o m t r i c ad e v o l v e r u n ae x p r e s i nd el af o r m a` %f[ p ,q ]( [ a ] ,[ b ] ,x ) ,d o n d ee sl a n m e r od ee l e m e n t o se n< a > ,y< Q >e se ln m e r od ee l e m e n t o se n .E s t ae sl ah a b i t u a lf u n c i nh i p e r g e o m t r i c ag e n e r a l i z a d a` P F Q' . ( %I 1 )a s u m i r ( n o( i g u a l( z ,0 ) ) ) ; ( %O 1 )[ n o t e q u a l( z ,0 ) ] ( %I 2 )h g f r e d( [ v1 / 2 ] ,[ 2*v1 ] ,2* %i*z ) ; v/2 %i z 4b e s s e l _ j( v ,z )g a m m a( v+1 ) %e ( %O 2 )v z ( %I 3 )h g f r e d( [ 1 , 1 ] ,[ 2 ] ,z ) ; l o g( 1-z ) ( %O 3 )z ( %I 4 )h g f r e d( [ a ,a1 / 2 ] ,[ 3 / 2 ] ,z^2 ) ; 1-2p o r1-2d e ( Z+1 )-( 1-z ) ( %O 4 )2( 1-2a )z P u e d es e rb e n e f i c i o s op a r ac a r g a ro r t h o p o l yt a m b i nc o m oe le j e m p l os i g u i e n t e s h o w s .T e n g ae nc u e n t aq u e< L >e se lp o l i n o m i og e n e r a l i z a d od eL a g u e r r e . ( %I 5 )l o a d( o r t h o p o l y )$ ( %I 6 )h g f r e d( [ 2 ] ,[ a ] ,z ) ; ( A-1 ) 2L( z ) 2 ( %O 6 )u n( a+1 ) ( %I 7 )e v( % ) ;
172/633
28/08/13

2 z2z ( %O 7 )-+1 u n( a+1 )u n F u n c i n :l a m b e r t _ w( < z > ) L ar a m ap r i n c i p a ld eL a m b e r tWf u n t i o nW( z ) ,l as o l u c i nd e ` Z=W( z )*e x p( W( z ) )' .
F u n c i n :n z e t a( < z > ) L aF u n c i nd eD i s p e r s i nd ep l a s m a` n z e t a( z )= %I*s q r t( %p i )*e x p( z^2 )*( 1 e r f( %i*z ) )'
F u n c i n :n z e t a r( < z > ) D e v u e l v e` r e a l p a r t( n z e t a( z ) )' .
F u n c i n :n z e t a i( < z > ) D e v u e l v e` i m a g p a r t( n z e t a( z ) )' .
16 Funciones elpticas
I n t r o d u c c i nal a sf u n c i o n e sei n t e g r a l e se l p t i c a s F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s F u n c i o n e syv a r i a b l e sp a r ai n t e g r a l e se l p t i c a s
16.1 Introduccin a las funciones e integrales elpticas

M a x i m ai n c l u y es o p o r t ep a r af u n c i o n e se l p t i c a sj a c o b i a n oy i n t e g r a l e se l p t i c a sc o m p l e t a sei n c o m p l e t a s .E s t oi n c l u y es i m b l i c a l am a n i p u l a c i nd ee s t a sf u n c i o n e syl ae v a l u a c i nn u m r i c at a m b i n . L a sd e f i n i c i o n e sd ee s t a sf u n c i o n e sym u c h a sd es u sp r o p i e d a d e ss ep u e d e n q u es ee n c u e n t r ae nA b r a m o w i t zyS t e g u n ,c a p t u l o1 6 1 7 .E nl am e d i d ad el op o s i b l e , u t i l i z a rl a sd e f i n i c i o n e syr e l a c i o n e sd a d a sa l l . E np a r t i c u l a r ,t o d a sl a sf u n c i o n e sei n t e g r a l e se l p t i c a su t i l i z a ne lp a r m e t r o me nl u g a rd e lm d u l okom o d u l a re l n g u l o\a l p h a .E s t ee su n o r e ae nl aq u en o sd i f e r e n c i a m o sd eA b r a m o w i t zyS t e g u nq u eu t i l i z a ne lm o d u l a r n g u l op a r al a sf u n c i o n e se l p t i c a s .L a ss i g u i e n t e sr e l a c i o n e ss o nv l i d a s : m=k^2yk=\s i n( \a l p h a ) L a sf u n c i o n e sei n t e g r a l e se l p t i c a st i e n e nc o m oo b j e t i v op r i n c i p a l a p o y a rc l c u l os i m b l i c o .P o rl ot a n t o ,l am a y o rp a r t ed el o sd e r i v a d o sd el a s ec o n o c e nl a sf u n c i o n e sei n t e g r a l e s .S i ne m b a r g o ,s il o sv a l o r e sd ep u n t of l o t a n t e s ed a n ,s ed e v u e l v eu nr e s u l t a d od ec o m af l o t a n t e . A p o y op a r al am a y o r ad el a so t r a sp r o p i e d a d e sd el a sf u n c i o n e se l p t i c a sy i n t e g r a l e sd i s t i n t o sd el o sd e r i v a d o sa nn os eh ae s c r i t o . A l g u n o se j e m p l o sd ef u n c i o n e se l p t i c a s : ( %I 1 )j a c o b i _ s n( u ,m ) ; ( %O 1 )j a c o b i _ s n( u ,m ) ( %I 2 )j a c o b i _ s n( u ,1 ) ; ( %O 2 )t a n h( u ) ( %I 3 )j a c o b i _ s n( u ,0 ) ; ( %O 3 )s i n( u ) ( %I 4 )d i f f( j a c o b i _ s n( u ,m ) ,u ) ; ( %O 4 )j a c o b i _ c n( u ,m )j a c o b i _ d n( u ,m ) ( %I 5 )d i f f( j a c o b i _ s n( u ,m ) ,m ) ; ( %O 5 )j a c o b i _ c n( u ,m )j a c o b i _ d n( u ,m ) e l l i p t i c _ e( a s i n( j a c o b i _ s n( u ,m ) ) ,m ) ( U)/( 2m ) 1-m 2 j a c o b i _ c n( u ,m )j a c o b i _ s n( u ,m ) +2( 1-m ) A l g u n o se j e m p l o sd ei n t e g r a l e se l p t i c a s : ( %I 1 )e l l i p t i c _ f( p h i ,m ) ; ( %O 1 )e l l i p t i c _ f( p h i ,m ) ( %I 2 )e l l i p t i c _ f( p h i ,0 ) ; ( %O 2 )p h i ( %I 3 )e l l i p t i c _ f( p h i ,1 ) ; p h i %p i ( %O 3 )r e g i s t r o( t a n( -+) ) 24
173/633
28/08/13
( %I 4 )e l l i p t i c _ e( p h i ,1 ) ; ( %O 4 )s i n( p h i ) ( %I 5 )e l l i p t i c _ e( p h i ,0 ) ; ( %O 5 )p h i ( %I 6 )e l l i p t i c _ k c( 1 / 2 ) ; 1 ( %O 6 )e l l i p t i c _ k c( ) 2 ( %I 7 )m a k e g a m m a( % ) ; 21 g a m m a( ) 4 ( %O 7 )-
4s q r t( %p i ) ( %I 8 )d i f f( e l l i p t i c _ f( p h i ,m ) ,p h i ) ; 1 ( %O 8 )2 s q r t( 1-ms i n( p h i ) ) ( %I 9 )d i f f( e l l i p t i c _ f( p h i ,m ) ,m ) ; e l l i p t i c _ e( p h i ,m )-( 1-m )e l l i p t i c _ f( p h i ,m ) ( %O 9 )( -m c o s( p h i )s i n( p h i ) )/( 2( 1-m ) ) 2 s q r t( 1-ms i n( p h i ) ) E la p o y oal a sf u n c i o n e sei n t e g r a l e se l p t i c a sf u ep r o g r a m a d op o rR a y m o n d T o y .S ec o l o c ab a j ol o st r m i n o sd el aL i c e n c i aP b l i c aG e n e r a l( G P L ) q u er e g u l al ad i s t r i b u c i nd eM a x i m a .
16.2 Funciones y variables para funciones elpticas

F u n c i n :j a c o b i _ s n( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n as n( u ,m ) .
F u n c i n :j a c o b i _ c n( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n ac n( u ,m ) .
F u n c i n :j a c o b i _ d n( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n ad n( u ,m ) .
F u n c i n :j a c o b i _ n s( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n an s( u ,m )=1 / s n( u ,m ) .
F u n c i n :j a c o b i _ s c( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n as c( u ,m )=s n( u ,m )/c n( u ,m ) .
F u n c i n :j a c o b i _ s d( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n as d( u ,m )=s n( u ,m )/d n( u ,m ) .
F u n c i n :j a c o b i _ n c( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n an c( u ,m )=1 / c n( u ,m ) .
F u n c i n :j a c o b i _ c s( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n ac s( u ,m )=c n( u ,m )/s n( u ,m ) .
F u n c i n :j a c o b i _ c d( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n ac d( u ,m )=c n( u ,m )/d n( u ,m ) .
F u n c i n :j a c o b i _ n d( ,< m > )
174/633
28/08/13

L af u n c i ne l p t i c aj a c o b i a n an c( u ,m )=1 / c n( u ,m ) .
F u n c i n :j a c o b i _ d s( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n ad s( u ,m )=d n( u ,m )/s n( u ,m ) .
F u n c i n :j a c o b i _ d c( ,< m > ) L af u n c i ne l p t i c aj a c o b i a n ac d( u ,m )=d n( u ,m )/c n( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ s n( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n as n( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ c n( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n ac n( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ d n( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n ad n( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ n s( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n an s( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ s c( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n as c( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ s d( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n as d( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ n c( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n an c( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ c s( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n ac s( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ c d( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n ac d( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ n d( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n an c( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ d s( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n ad s( u ,m ) .
F u n c i n :i n v e r s e _ j a c o b i _ d c( ,< m > ) L ai n v e r s ad el af u n c i ne l p t i c aj a c o b i a n ac d( u ,m ) .
16.3 Funciones y variables para integrales elpticas

28/08/13
F u n c i n :e l l i p t i c _ f( ,< m > )
L ai n t e g r a le l p t i c ai n c o m p l e t ad el ap r i m e r ac l a s e ,q u es ed e f i n ec o m o i n t e g r a r( 1 / s q r t( 1-m*s i n( x )^2 ) ,x ,0 ,p h i ) T a m b i nv e rn o t ae l l i p t i c _ e: :*yn o t ae l l i p t i c _ k c: : .
F u n c i n :e l l i p t i c _ e( ,< m > ) L ai n t e g r a le l p t i c ai n c o m p l e t ad el as e g u n d ac l a s e ,q u es ed e f i n ec o m o e l l i p t i c _ e( p h i ,m )=i n t e g r a t e( s q r t( 1-m*s i n( x )^2 ) ,x ,0 ,p h i ) T a m b i nv e rn o t ae l l i p t i c _ e: :*yn o t ae l l i p t i c _ e c: : .
F u n c i n :e l l i p t i c _ e u( ,< m > ) L ai n t e g r a le l p t i c ai n c o m p l e t ad el as e g u n d ac l a s e ,q u es ed e f i n ec o m o i n t e g r a r( d n( v ,m )^2 ,v ,0 ,u )=i n t e g r a t e( s q r t( 1 m*t^2 )/s q r t( 1 t^2 ) , t ,0 ,t a u ) d o n d et a u=s n( u ,m ) . E s t oe s t r e l a c i o n a d oc o ne l l i p t i c _ ep o r e l l i p t i c _ e u( u ,m )=e l l i p t i c _ e( a s i n( s n( u ,m ) ) ,m ) T a m b i nv e rn o t ae l l i p t i c _ e: : .
F u n c i n :e l l i p t i c _ p i( < n > , ,< m > ) L ai n t e g r a le l p t i c ai n c o m p l e t ad el at e r c e r ac l a s e ,q u es ed e f i n ec o m o i n t e g r a r( 1/( 1 n*s i n( x )^2 )/s q r t( 1-m*s i n( x )^2 ) ,x ,0 ,p h i ) S l ol ad e r i v a d ac o nr e s p e c t od ep h is ec o n o c ep o rM a x i m a .
F u n c i n :e l l i p t i c _ k c( < m > ) L ai n t e g r a le l p t i c ac o m p l e t ad ep r i m e r ae s p e c i e ,d e f i n i d oc o m o i n t e g r a r( 1 / s q r t( 1-m*s i n( x )^2 ) ,x ,0 , %p i/2 ) P a r aa l g u n o sv a l o r e sd em ,e lv a l o rd el ai n t e g r a ls ec o n o c ee n t r m i n o sd el af u n c i nG a m m a .U s e` m a k e g a m m a' p a r ae v a l u a r l a s .
F u n c i n :e l l i p t i c _ e c( < m > ) L ai n t e g r a le l p t i c ac o m p l e t ad el as e g u n d ac l a s e ,q u es ed e f i n ec o m o i n t e g r a r( s q r t( 1-m*s i n( x )^2 ) ,x ,0 , %p i/2 ) P a r aa l g u n o sv a l o r e sd em ,e lv a l o rd el ai n t e g r a ls ec o n o c ee n t r m i n o sd el af u n c i nG a m m a .U s e` m a k e g a m m a' p a r ae v a l u a r l a s .
17 Lmites
F u n c i o n e syv a r i a b l e sp a r al m i t e s
17.1 Funciones y variables para lmites

V a r i a b l eo p c i o n a l :v a r i a b l el h o s p i t a l l i m P o rd e f e c t o :4 ` V a r i a b l el h o s p i t a l l i m' e se ln m e r om x i m od ev e c e sq u el ar e g l ad eL ' H o p i t a le s u t i l i z a d oe n` l i m i t' .E s t oe v i t ab u c l ei n f i n i t oe nc a s o sc o m o ` L i m i t( c o t( x )/c s c( x ) ,x ,0 ) .
F u n c i n :l m i t e( e x p r ,< x >< v a l > ,< d i r > ) F u n c i n :l m i t e( e x p r ,< x >< v a l > ) F u n c i n :l m i t e( e x p r )
176/633
28/08/13

C a l c u l ae ll m i t ed ee x p rc u a n d os ea c e r c al a< x >v a r i a b l e sr e a l e s e l< v a l >v a l o rd el ad i r e c c i n< d i r > .< d i r >p u e d et e n e re lv a l o r ' P l u s 'p a r au nl m i t ep o ra r r i b a ,` m e n o s' p a r au nl m i t ep o rd e b a j oo p u e d eo m i t i r s e( l oq u ei m p l i c au nl m i t ed ed o sl a d o ss ev aac a l c u l a r ) . ` L i m i t' u t i l i z al o ss i g u i e n t e ss m b o l o se s p e c i a l e s : 'i n f' ( p o s i t i v o i n f i n i t o )y` m i n f' ( i n f i n i t on e g a t i v o ) .E nl as a l i d as ep u e d et a m b i n u s a r' u n d '( i n d e f i n i d o ) ,i n d` ' ( i n d e f i n i d op e r oa c o t a d o )y ' I n f i n i t y '( i n f i n i t oc o m p l e j o ) . ` I n f i n i t o' ( c o m p l e j oi n f i n i t o )s ed e v u e l v ec u a n d oe ll m i t ed el a v a l o ra b s o l u t od el ae x p r e s i ne si n f i n i t op o s i t i v o ,p e r oe l l m i t ed el ap r o p i ae x p r e s i nn oe si n f i n i t op o s i t i v oo i n f i n i t on e g a t i v o .E s t oi n c l u y el o sc a s o se nq u ee ll m i t ed el a a r g u m e n t oc o m p l e j oe su n ac o n s t a n t e ,c o m oe n` l m i t e( l o g( x ) ,x ,m i n f )' , l o sc a s o se nq u el o sc o m p l e j o so s c i l aa r g u m e n t o ,c o m oe n` l i m i t( ( 2 )^x , x ,i n f )' ,yl o sc a s o se nq u ee la r g u m e n t oc o m p l e j oe sd i f e r e n t ep a r a c u a l q u i e r ad el o sl a d o sd eu nl m i t ed ed o sc a r a s ,c o m oe n` l m i t e( 1/x ,x ,0 )' y ` L m i t e( l o g( x ) ,x ,0 ) . ` V a r i a b l el h o s p i t a l l i m' e se ln m e r om x i m od ev e c e sq u el ar e g l ad eL ' H o p i t a le s u t i l i z a d oe n` l i m i t' .E s t oe v i t ab u c l ei n f i n i t oe nc a s o sc o m o ` L i m i t( c o t( x )/c s c( x ) ,x ,0 ) . ` T l i m s w i t c h' c u a n d oc i e r t op e r m i t i r q u ee l 'l m i t e' c o m a n d op a r au s a r L ae x p a n s i ne ns e r i ed eT a y l o rc u a n d os e an e c e s a r i o . ` L i m s u b s t' e v i t a `l i m i t 'r e a l i c es u s t i t u c i o n e ss o b r e f o r m a sd e s c o n o c i d a s .E s t oe sp a r ae v i t a re r r o r e sc o m o' l m i t e( f( n )/f( n+ 1 ) ,n , i n f )" d a r1 .A j u s t e` l i m s u b s t' a `t r u e 'p e r m i t i r t a l e s s u s t i t u c i o n e s . ` L i m i t' c o nu na r g u m e n t oam e n u d os er e c u r r eas i m p l i f i c a rc o n s t a n t e e x p r e s i o n e s ,p o re j e m p l o ,` l i m i t( i n f 1 ) . ` E x a m p l e( l i m i t ) "m u e s t r aa l g u n o se j e m p l o s . P a r ae lm t o d od ev e rW a n g ,P . ," E v a l u a c i nd ei n t e g r a l e sd e f i n i d a sp o r C l c u l os i m b l i c o" ,t e s i sd o c t o r a l ,M A CT R 9 2 ,o c t u b r ed e1 9 7 1 .
V a r i a b l eo p c i o n a l :l i m s u b s t V a l o rp o rd e f e c t o :f a l s e' i m p i d e` l i m i t' r e a l i c es u s t i t u c i o n e ss o b r ef o r m a sd e s c o n o c i d a s . E s t oe sp a r ae v i t a re r r o r e sc o m o' l m i t e( f( n )/f( n+ 1 ) ,n ,i n f )" d a r1 . A j u s t e` l i m s u b s t' a `t r u e 's ep e r m i t i r nt a l e ss u s t i t u c i o n e s .
F u n c i n :t l i m i t( e x p r ,< x >< v a l > ,< d i r > ) F u n c i n :t l i m i t( e x p r ,< x >< v a l > ) F u n c i n :t l i m i t( e x p r ) T o m ee ll m i t ed e ld e s a r r o l l oe ns e r i ed eT a y l o rd e' e x p r 'e n' x 'e n ' V a l 'd el ad i r e c c i n` d i r' .
V a r i a b l eo p c i o n a l :t l i m s w i t c h V a l o rp o rd e f e c t o :t r u e' C u a n d o` t l i m s w i t c h' e s `t r u e ' ,e lc o m a n d o` l i m i t' u s a r u nT a y l o r d e s a r r o l l oe ns e r i es ie ll m i t ed el ae x p r e s i nd ee n t r a d an op u e d es e r c a l c u l a d od i r e c t a m e n t e .E s t op e r m i t el ae v a l u a c i nd el o sl m i t e s ,c o m o ` L m i t e( x/( x 1 )1 / l o g( x ) ,x ,1 ,a d e m sd e )' .C u a n d o` t l i m s w i t c h' e s 'f a l s e' ye ll m i t ed el ae x p r e s i nd ee n t r a d an os ep u e d ec a l c u l a rd i r e c t a m e n t e , ` L i m i t' d e v o l v e r u n ae x p r e s i ns i ne v a l u a rl m i t e .
18 Diferenciacin
F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n
18.1 Funciones y variables para la diferenciacin

F u n c i n :a n t i d( e x p r ,< x > ) D e v u e l v eu n al i s t ad ed o se l e m e n t o s ,d et a lm a n e r aq u eu n aa n t i d e r i v a d ad ee x p r c o nr e s p e c t oa< x >p u e d es e rc o n s t r u i d oap a r t i rd el al i s t a .L a e x p r e s i ne x p rp u e d ec o n t e n e ru n af u n c i nd e s c o n o c i d ays u d e r i v a d o s . D e j e< L > ,u n al i s t ad ed o se l e m e n t o sq u ee lv a l o rd e v u e l t op o r` a n t i d " . E n t o n c e s` < L >[ 1 ]+' i n t e g r a t e( < L >[ 2 ] ,< x > ) 'e su n ap r i m i t i v ad e e x p rc o nr e s p e c t oa< x > .
177/633
28/08/13

C u a n d o` a n t i d "s ee j e c u t ac o n x i t o ,e ls e g u n d oe l e m e n t od el ad e c l a r a c i n v a l o re sc e r o .D el oc o n t r a r i o ,e ls e g u n d oe l e m e n t oe sd i s t i n t od ec e r o ,ye l p r i m e re l e m e n t oe sd i s t i n t od ec e r ooc e r o .S i` a n t i d "n op u e d eh a c e rn i n g u n a p r o g r e s o ,e lp r i m e re l e m e n t oe sc e r oye ls e g u n d od i s t i n t od ec e r o . ` L o a d( "a n t i d" )' c a r g ae s t af u n c i n .E lp a q u e t ea n t i d` ' t a m b i n d e f i n el a sf u n c i o n e s` n o n z e r o a n d f r e e o f' y 'l i n e a l' . ` A n t i d "e s t r e l a c i o n a d ac o na n t i d i f f` ' d el as i g u i e n t em a n e r a .V a m o s< L > ,u n al i s t ad e d o se l e m e n t o s ,e lv a l o rd er e t o r n od e` a n t i d " .Ac o n t i n u a c i n ,e lr e g r e s o v a l o rd e` a n t i d i f f' e si g u a la '< L >[ 1 ]+' i n t e g r a t e( < L >[ 2 ] , < x > )' d o n d e< x >e sl av a r i a b l ed ei n t e g r a c i n . E j e m p l o s : ( %I 1 )l o a d( " a n t i d " )$ ( %I 2 )e x p r :e x p( z( x ) )*d i f f( z( x ) ,x )*y( x ) ; z( x )d ( %O 2 )y( x ) %E( -( z( x ) ) ) d x ( %I 3 )a 1 :a n t i d( e x p r ,x ,z( x ) ) ; z( x )z( x )d ( %O 3 )[ y( x ) %e ,%e( -( y( x ) ) ) ] d x ( %I 4 )a 2 :a n t i d i f f( e x p r ,x ,z( x ) ) ; / z( x )[ Z( x )d ( %O 4 )y( x ) %e-I %e( -( y( x ) ) )d x ]D x / ( %I 5 )a 2-( p r i m e r o( A 1 )+' i n t e g r a t e( s e g u n d o s( A 1 ) ,x ) ) ; ( %O 5 )0 ( %I 6 )a n t i d( e x p r ,x ,y( x ) ) ; z( x )d ( %O 6 )[ 0 ,y( x ) %E( -( z( x ) ) ) ] d x ( %I 7 )a n t i d i f f( e x p r ,x ,y( x ) ) ; / [ Z( x )d ( %O 7 )q u ey( x ) %E( -( z( x ) ) )d x ]D x /
F u n c i n :a n t i d i f f( e x p r ,< x >( < x > ) ) D e v u e l v eu n aa n t i d e r i v a d ad ee x p rc o nr e s p e c t oa< x > .L a e x p r e s i ne x p rp u e d ec o n t e n e ru n af u n c i nd e s c o n o c i d ays u d e r i v a d o s . C u a n d o` a n t i d i f f' t r i u n f ap o rc o m p l e t o ,l ae x p r e s i nr e s u l t a n t ee s l i b r ed es i g n o si n t e g r a l e s( e sd e c i r ,s i nn o m b r ed e l` i n t e g r a r' ) . D el oc o n t r a r i o ,` a n t i d i f f' d e v u e l v eu n ae x p r e s i nq u ee sp a r c i a lo b a j oe ls i g n oi n t e g r a l .S i` a n t i d i f f' n op u e d eh a c e r p r o g r e s o ,e lv a l o rd e v u e l t oe sb a j oe ls i g n oi n t e g r a l . ` L o a d( "a n t i d" )' c a r g ae s t af u n c i n .E lp a q u e t ea n t i d` ' t a m b i n d e f i n el a sf u n c i o n e s` n o n z e r o a n d f r e e o f' y 'l i n e a l' . ` A n t i d i f f' e s t r e l a c i o n a d oc o n à n t i d" d el as i g u i e n t em a n e r a .V a m o s< L > ,u n al i s t ad e d o se l e m e n t o s ,e lv a l o rd er e t o r n od e` a n t i d " .Ac o n t i n u a c i n ,e lr e g r e s o v a l o rd e` a n t i d i f f' e si g u a la '< L >[ 1 ]+' i n t e g r a t e( < L >[ 2 ] , < x > )' d o n d e< x >e sl av a r i a b l ed ei n t e g r a c i n . E j e m p l o s : ( %I 1 )l o a d( " a n t i d " )$ ( %I 2 )e x p r :e x p( z( x ) )*d i f f( z( x ) ,x )*y( x ) ; z( x )d ( %O 2 )y( x ) %E( -( z( x ) ) ) d x ( %I 3 )a 1 :a n t i d( e x p r ,x ,z( x ) ) ; z( x )z( x )d ( %O 3 )[ y( x ) %e ,%e( -( y( x ) ) ) ] d x ( %I 4 )a 2 :a n t i d i f f( e x p r ,x ,z( x ) ) ; / z( x )[ Z( x )d ( %O 4 )y( x ) %e-I %e( -( y( x ) ) )d x ]D x / ( %I 5 )a 2-( p r i m e r o( A 1 )+' i n t e g r a t e( s e g u n d o s( A 1 ) ,x ) ) ; ( %O 5 )0 ( %I 6 )a n t i d( e x p r ,x ,y( x ) ) ; z( x )d ( %O 6 )[ 0 ,y( x ) %E( -( z( x ) ) ) ] d x ( %I 7 )a n t i d i f f( e x p r ,x ,y( x ) ) ; / [ Z( x )d ( %O 7 )q u ey( x ) %E( -( z( x ) ) )d x ]D x /
178/633
28/08/13

F u n c i n :a( e x p r ,[ < e q n _ 1 > ,. . . ,< e q n _ n > ] ) F u n c i n :a( e x p r ,< e q n > ) E v a l al ae x p r e s i ne x p ra s i g n a n d oal a sv a r i a b l e sd e l l o sv a l o r e se s p e c i f i c a d o sp a r ae l l a se nl al i s t ad ee c u a c i o n e s` [ < e q n _ 1 > , . . . ,< e q n _ n > ]" Oe ls i n g l e< e q n >e c u a c i n . S iu n as u b e x p r e s i nd e p e n d ed ec u a l q u i e r ad el a sv a r i a b l e sp a r al a sc u a l e su n s ee s p e c i f i c av a l o r ,p e r on oh a y` a t v a l u e' e s p e c i f i c a d oys e n op u e d es e re v a l u a d o ,e n t o n c e su n af o r m an o m i n a ld e l` a t' e s d e v u e l t oq u em u e s t r ae nu n af o r m ad ed o sd i m e n s i o n e s . ` A t' r e a l i z am l t i p l e ss u s t i t u c i o n e se np a r a l e l o . C o n s u l t et a m b i n` a t v a l u e' .P a r ao t r a sf u n c i o n e sq u el l e v a nac a b o s u s t i t u c i o n e s ,c o n s u l t a` s u b s t' y 'e v' . E j e m p l o s : ( %I 1 )a t v a l u e( f( x ,y ) ,[ x=0 ,y=1 ] ,u n^2 ) ; 2 ( %O 1 )u n ( %I 2 )a t v a l u e( ' d i f f( f( x ,y ) ,x ) ,x=0 ,1+y ) ; ( %O 2 )@2+1 ( %I 3 )p r i n t p r o p s( t o d a s ,a t v a l u e ) ; ! d ! -( F( @1 ,@2 ) ) !=@2+1 d@1 ! !@1=0 2 f( 0 ,1 )=a ( %O 3 )d o n e ( %I 4 )d i f f( 4*f( x ,y )^2-u( x ,y )^2 ,x ) ; d d ( %O 4 )8f( x ,y )( -( f( x ,y ) ) )-2u( x ,y )( -( u( x ,y ) ) ) d xd x ( %I 5 )a( % ,[ x=0 ,y=1 ] ) ; ! 2d ! ( %O 5 )u n1 6-2u( 0 ,1 )( !( U( x ,y ) ) ) d x ! !X=0 ,y=1
P r o p i e d a d :a t o m g r a d A t o m g r a d` ' e sp r o p i e d a dg r a d i e n t ea t m i c ad eu n ae x p r e s i n .E s t e l ap r o p i e d a ds ea s i g n ap o r` g r a d e f' .
F u n c i n :a t v a l u e( e x p r ,[ < x _ 1 >=< a _ 1 > ,. . . ,< x _ m >=< a _ m > ] ,< c > ) F u n c i n :a t v a l u e( e x p r ,< x _ 1 >=< a _ 1 > ,< c > ) A s i g n ae lv a l o ra< c >e x p re ne lp u n t o` < x >=< a >' . T p i c a m e n t e ,l o sv a l o r e sl m i t es ee s t a b l e c e np o re s t em e c a n i s m o . e x p re su n af u n c i nd e lt i p o` < f >( < x _ 1 > ,. . . ,< x _ m > )' ,ou n a d e r i v a d o ,` d i f f( < f >( < x _ 1 > ,. . . ,< x _ m > ) ,< x _ 1 > ,< n _ 1 > ,. . . , < x _ n > ,< n _ m > )' e nl aq u ea p a r e c e ne x p l c i t a m e n t el o sa r g u m e n t o sd el af u n c i n . < n _ i >e se lo r d e nd ed i f e r e n c i a c i nc o nr e s p e c t oa< x _ i > . E lp u n t oe ne lq u ee s t e s t a b l e c i d oe la t v a l u ev i e n ed a d op o rl al i s t a d ee c u a c i o n e s` [ < x _ 1 >=< a _ 1 > ,. . . ,< x _ m >< a _ m >= ]' .S ih a yu n a s o l o< x _ 1 >v a r i a b l e s ,l ae c u a c i np u e d es e rd a d os i n i n t r o d u c i n d o l ae nu n al i s t a . ` P r i n t p r o p s( [ < f _ 1 > ,< f _ 2 > ,. . . ] ,a t v a l u e )' m u e s t r al o sv a l o r e sa s i g n a d o sp o ra t v a l u e d el a sf u n c i o n e s` < f _ 1 > ,< f _ 2 > ,. . .'c o m os ee s p e c i f i c ap o rl a sl l a m a d a sa ` A t v a l u e' .` P r i n t p r o p s( < f > ,a t v a l u e )' m u e s t r al o sv a l o r e sa s i g n a d o sp o ra t v a l u ed e u n o< f >f u n c i n .` P r i n t p r o p s( t o d a s ,a t v a l u e )' m u e s t r ae l v a l o r e sa s i g n a d o sp o ra t v a l u ed et o d a sl a sf u n c i o n e sp a r al a sq u es ed e f i n e nv a l o r e sa s i g n a d o sp o ra t v a l u e . L o ss m b o l o s@` 1' ,2 '@' ,. . .r e p r e s e n t a ral a< x _ 1 >v a r i a b l e s< x _ 2 > , . . .c u a n d os em u e s t r a nl o sv a l o r e sa s i g n a d o sp o ra t v a l u e . ` A t v a l u e' e v a l as u sa r g u m e n t o s .` A t v a l u e' r e g r e s a< c > ,e l a t v a l u e . E j e m p l o s : ( %I 1 )a t v a l u e( f( x ,y ) ,[ x=0 ,y=1 ] ,u n^2 ) ; 2 ( %O 1 )u n ( %I 2 )a t v a l u e( ' d i f f( f( x ,y ) ,x ) ,x=0 ,1+y ) ; ( %O 2 )@2+1 ( %I 3 )p r i n t p r o p s( t o d a s ,a t v a l u e ) ; ! d ! -( F( @1 ,@2 ) ) !=@2+1 d@1 ! !@1=0
179/633
28/08/13

2 f( 0 ,1 )=a ( %O 3 )d o n e ( %I 4 )d i f f( 4*f( x ,y )^2-u( x ,y )^2 ,x ) ; d d ( %O 4 )8f( x ,y )( -( f( x ,y ) ) )-2u( x ,y )( -( u( x ,y ) ) ) d xd x ( %I 5 )a( % ,[ x=0 ,y=1 ] ) ; ! 2d ! ( %O 5 )u n1 6-2u( 0 ,1 )( !( U( x ,y ) ) ) d x ! !X=0 ,y=1
F u n c i n :c a r t a n E lc l c u l oe x t e r i o rd ef o r m a sd i f e r e n c i a l e se su n ah e r r a m i e n t ab s i c ad e g e o m e t r ad i f e r e n c i a ld e s a r r o l l a d ap o rE l i eC a r t a n ,t e n i e n d oi m p o r t a n t e s a p l i c a c i o n e se nl at e o r ad ee c u a c i o n e sd i f e r e n c i a l e sp a r c i a l e s .L a ` C a r t a n' p a q u e t ei m p l e m e n t al a sf u n c i o n e s è x t _ d i f f" y ` L i e _ d i f f' ,j u n t oc o nl o so p e r a d o r e s '~' ( p r o d u c t oe x t e r i o r )y '|' ( C o n t r a c c i nd eu n af o r m ac o nu nv e c t o r ) .T i p o` d e m o( t e n s o r ) "p a r a v e ru n ab r e v ed e s c r i p c i nd ee s t o sc o m a n d o s ,j u n t oc o ne j e m p l o s . ` C a r t a n' f u ee s c r i t op o rF BE s t a b r o o kyH DW a h l q u i s t .
F u n c i n :d e l( < x > ) ` D e l( < x > )' r e p r e s e n t ae ld i f e r e n c i a ld el av a r i a b l ex . ` D i f fd e v u e l v eu n ae x p r e s i nq u ec o n t i e n e `d e l' s iu ni n d e p e n d i e n t e n os ee s p e c i f i c au n av a r i a b l e .E ne s t ec a s o ,e lv a l o rd er e t o r n oe se l e ll l a m a d o" d i f e r e n c i a lt o t a ld e " . E j e m p l o s : ( %I 1 )d i f f( l o g( x ) ) ; d e l( x ) ( %O 1 )x ( %I 2 )d i f f( e x p( x*y ) ) ; x y x y ( %O 2 )x %d e le( y )+y %d e le( x ) ( %I 3 )d i f f( x*y*z ) ; ( %O 3 )x yd e l( z )+x zd e l( y )+y zd e l( x )
F u n c i n :d e l t a( < t > ) L af u n c i nd e l t ad eD i r a c . A c t u a l m e n t e ,s l ol a p l a c e` ' s a b ed e l `d e l t a 'f u n c i n . E j e m p l o : ( %I 1 )L a p l a c e( d e l t a( t-a )*s e n( b*t ) ,t ,s ) ; E sp o s i t i v o ,n e g a t i v ooc e r o ? p ; -C o m o ( %O 1 )s i n( a b ) %e
V a r i a b l ed e ls i s t e m a :d e p e n d e n c i a s V a l o rp o rd e f e c t o :[ ]' ' D e p e n d e n c i a s 'e sl al i s t ad e t o m o sq u et i e n e nf u n c i o n e s d e p e n d e n c i a s ,a s i g n a d ap o rd e p e n d s` ' o `g r a d e f ' .L a ' D e p e n d e n c i a s 'l i s t ae sa c u m u l a t i v a :c a d al l a m a d aa' d e p e n d e 'o ' A a d e` g r a d e fa r t c u l o sa d i c i o n a l e s . C o n s u l t e` D e p e n d i e n t e s' y `g r a d e f ' .
F u n c i n :d e p e n d e( < f _ 1 > ,< x _ 1 > ,. . . ,< f _ n > ,< x _ n > ) D e c l a r ad e p e n d e n c i a sf u n c i o n a l e se n t r el a sv a r i a b l e sc o ne lp r o p s i t o d el o sd e r i v a d o sd ec o m p u t a c i n .E na u s e n c i ad eu n ad e p e n d e n c i ad e c l a r a d a , ` D i f f( f ,x )d e v u e l v ec e r o .S i` d e p e n d s( f ,x )s ed e c l a r a , `d i f f ( F ,x )d e v u e l v eu n ad e r i v a d as i m b l i c a( e s t oe s ,u n` d i f f' s u s t a n t i v o ) . C a d a< f _ 1 >a r g u m e n t o ,< x _ 1 > ,e t c ,p u e d es e re ln o m b r ed eu n av a r i a b l eo m a t r i zou n al i s t ad en o m b r e s .C a d ae l e m e n t od e< f _ i >( q u i z su n n i c oe l e m e n t o )s ed e c l a r ac o m od e p e n d i e n t ed ec a d ae l e m e n t od e< x _ i > ( Q u i z su n n i c oe l e m e n t o ) .S ia l g u n o s< f _ i >e se ln o m b r ed eu n
180/633
28/08/13

a r r e g l ooc o n t i e n ee ln o m b r ed eu n am a t r i z ,t o d o sl o se l e m e n t o sd el am a t r i z d e p e n d e r d e< x _ i > . ` D i f fr e c o n o c ed e p e n d e n c i a si n d i r e c t a se s t a b l e c i d a sp o r' d e p e n d e ' ya p l i c al ar e g l ad el ac a d e n ae ne s t o sc a s o s . ` R e m o v e( < f > ,d e p e n d e n c i a )' e l i m i n at o d a sl a sd e p e n d e n c i a sd e c l a r a d a sp a r a < f > . ' D e p e n d e 'd e v u e l v eu n al i s t ad el a sd e p e n d e n c i a se s t a b l e c i d a s .L a d e p e n d e n c i a ss ea a d e nal av a r i a b l eg l o b a l` d e p e n d e n c i a s . ' D e p e n d e 'e v a l as u sa r g u m e n t o s . ` D i f f' e sl a n i c ai n s t r u c c i nd eM a x i m aq u er e c o n o c el a sd e p e n d e n c i a s e s t a b l e c i d op o r` d e p e n d e' .O t r a sf u n c i o n e s( i n t e g r a t e` ' , ` L a p l a c e ,e t c )s o l a m e n t er e c o n o c e nd e p e n d e n c i a se x p l c i t a m e n t e r e p r e s e n t a d a sp o rs u sa r g u m e n t o s .P o re j e m p l o ,' i n t e g r a r 'n o r e c o n o c e rl ad e p e n d e n c i ad e' f 'e n` x' am e n o sq u ee x p l c i t a m e n t e r e p r e s e n t a d o sc o m o` i n t e g r a t e( f( x ) ,x )' . ( %I 1 )d e p e n d e( [ f ,g ] ,x ) ; ( %O 1 )[ f( x ) ,g( x ) ] ( %I 2 )d e p e n d e( [ r ,s ] ,[ u ,v ,w ] ) ; ( %O 2 )[ r( u ,v ,w ) ,s( u ,v ,w ) ] ( %I 3 )d e p e n d e( u ,t ) ; ( %O 3 )[ u( t ) ] ( %I 4 )d e p e n d e n c i a s ; ( %O 4 )[ f( x ) ,g( x ) ,r( u ,v ,w ) ,s( u ,v ,w ) ,u( t ) ] ( %I 5 )d i f f( r s ,u ) ; d rd s ( %O 5 ).s+r .d ud u ( %I 6 )d i f f( r s ,t ) ; d rd ud ud s ( %O 6 ).s+r .d ud ud td t ( %I 7 )r e m o v e( r ,l ad e p e n d e n c i a ) ; ( %O 7 )h e c h o ( %I 8 )d i f f( r s ,t ) ; d sd u ( %O 8 )r .d ud t
V a r i a b l eo p c i o n a l :d e r i v a b b r e v V a l o rp o rd e f e c t o :f a l s e' C u a n d o` d e r i v a b b r e v' e s `t r u e ' ,d e r i v a d o ss i m b l i c o s( e s t oe s , S u s t a n t i v o s` d i f f' )s em u e s t r a nc o m os u b n d i c e s .D el oc o n t r a r i o ,l o sd e r i v a d o s s em u e s t r a ne nl an o t a c i nd eL e i b n i z` d y/d x' .
F u n c i n :d e r i v d e g r e e( e x p r ,< y > ,< x > ) D e v u e l v ee lm a y o rg r a d od el ad e r i v a d ad el av a r i a b l ed e p e n d i e n t e < y >v a r i a b l ec o nr e s p e c t oal ao c c u r i n g< x >v a r i a b l ei n d e p e n d i e n t e e ne x p r . E j e m p l o : ( %I 1 )' d i f f( y ,x ,2 )+ 'd i f f( y ,z ,3 )+' d i f f( y ,x )*x^2 ; 32 d y d y2d y ( %O 1 )-+-+x32d x d zd x ( %I 2 )d e r i v d e g r e e( % ,y ,x ) ; ( %O 2 )2
F u n c i n :d e r i v l i s t( < v a r _ 1 > ,. . . ,< v a r _ k > ) P r o v o c aq u el a sd e r i v a d a sc o nr e s p e c t oal ai n d i c a d a v a r i a b l e s ,d e n t r od el ao r d e n` e v' .
V a r i a b l eo p c i o n a l :d e r i v s u b s t V a l o rp o rd e f e c t o :f a l s e' C u a n d o` d e r i v s u b s t' e s `t r u e ' ,u n as u s t i t u c i nn os i n t c t i c ac o m o ` S u b s t( x ,' d i f f( y ,t ) , 'd i f f( y ,t ,2 ) ) r e n d i m i e n t o s` ' d i f f( x ,t ) .
F u n c i n :d i f f( e x p r ,< x _ 1 > ,< n _ 1 > ,. . . ,< x _ m > ,< n _ m > ) F u n c i n :d i f f( e x p r ,< x >< n > ) F u n c i n :d i f f( e x p r ,< x > )
181/633
28/08/13
F u n c i n :d i f f( e x p r )
D e v u e l v ee ld e r i v a d ood i f e r e n c i a ld e< e x p r >c o nr e s p e c t oa a l g u n a sot o d a sl a sv a r i a b l e se ne x p r . ` D i f f( e x p r ,< x >< n > )' d e v u e l v ee l< n > 't hd e r i v a d ad ee x p r c o nr e s p e c t oa< x > . ` D i f f( e x p r ,< x _ 1 > ,< n _ 1 > ,. . . ,< x _ m > ,< n _ m > )' d e v u e l v ee lm i x t o d e r i v a d ap a r c i a ld ee x p rc o nr e s p e c t oa< x _ 1 > ,. . . ,< x _ m > . E se q u i v a l e n t ea` d i f f( . . .( d i f f( e x p r ,< x _ m > ,< n _ m > ). . . ) , < x _ 1 > ,< n _ 1 > ) . ` D i f f( e x p r ,< x > )' d e v u e l v el ap r i m e r ad e r i v a d ad ee x p rc o n c o nr e s p e c t oal av a r i a b l ed e< x > . ` D i f f( e x p r )' d e v u e l v ee ld i f e r e n c i a lt o t a ld ee x p r ,e sd e c i r , l as u m ad el o sd e r i v a d o sd e< e x p r >c o nr e s p e c t oac a d au n os u V a r i a b l e sv e c e se ld i f e r e n c i a ld e l` ' d ec a d av a r i a b l e .N o s eo f r e c eu n am a y o rs i m p l i f i c a c i nd e` d e l' . S er e q u i e r eq u el af o r m an o m i n a ld ed i f f` ' e na l g u n o sc o n t e x t o s ,c o m o i n d i c a n d ou n ae c u a c i nd i f e r e n c i a l .E ne s t o sc a s o s ,` d i f f' p u e d es e r c i t a d o( c o m o` ' d i f f ' )p a r ap r o d u c i rl af o r m an o m i n a le nl u g a rd el l e v a rac a b o l ad i f e r e n c i a c i n . C u a n d o` d e r i v a b b r e v' e s `t r u e ' ,l a sd e r i v a d a ss em u e s t r a nc o m o s u b n d i c e s .D el oc o n t r a r i o ,l o sd e r i v a d o ss em u e s t r a ne ne lL e i b n i z n o t a c i n ,` d y/d x' . E j e m p l o s : ( %I 1 )d i f f( e x p( f( x ) ) ,x ,2 ) ; 2 f( x )d f( x )d2 ( %O 1 ) %e( -( f( x ) ) )+ %E( -( f( x ) ) ) 2d x d x ( %I 2 )d e r i v a b b r e v :t r u e$ ( %I 3 )' i n t e g r a t e( f( x ,y ) ,y ,g( x ) ,h( x ) ) ; h( x ) / [ ( %O 3 )q u ef( x ,y )d y ] / g( x ) ( %I 4 )D i f e r e n c i a( % ,x ) ; h( x ) / [ ( %O 4 )q u ef( x ,y )d y+f( x ,h( x ) )h( x )-f( x ,g( x ) )g( x ) ]X x x / g( x ) P a r ae lp a q u e t ed et e n s o r e s ,l a ss i g u i e n t e sm o d i f i c a c i o n e sh a ns i d o i n c o r p o r a d o : ( 1 )L a sd e r i v a d a sd el o so b j e t o si n d e x a d o se ne x p rt e n d r nl a V a r i a b l e s< x _ i >a d j u n t ac o m oa r g u m e n t o sa d i c i o n a l e s .E n t o n c e st o d o sl o s s eo r d e n a r nl o s n d i c e sd e r i v a d o s . ( 2 )E l< x _ i >p u e d es e rn m e r o se n t e r o sd e1h a s t ae lv a l o rd el a d i m e n s i n" [ v a l o rp o rd e f e c t o :4 ]v a r i a b l e ` .E s t oh a r q u ee l d i f e r e n c i a c i nq u es el l e v aac a b oc o nr e s p e c t oal at h< x _ i >' m i e m b r od el al i s t a` c o o r d e n a d a s "q u es ed e b ee s t a b l e c e re nu n al i s t ad e l o sn o m b r e sd el a sc o o r d e n a d a s ,p o re j e m p l o ,` [ x ,y ,z ,t ]' .S i ' C o o r d e n a d a s 'e s t v i n c u l a d oau n av a r i a b l ea t m i c a ,e n t o n c e se s av a r i a b l e s u b n d i c ed e< x _ i >s eu t i l i z a r p a r al av a r i a b l ed e d i f e r e n c i a c i n .E s t op e r m i t eu n ag r a nv a r i e d a dd en o m b r e sd el a sc o o r d e n a d a so n o m b r e ss u b n d i c ec o m o` X[ 1 ]' , `X[ 2 ] ' ,. . .p a r as e ru t i l i z a d o .S i ' C o o r d e n a d a s 'n os eh aa s i g n a d ou nv a l o r ,e n t o n c e sl a sv a r i a b l e s s e r nt r a t a d o sc o m oe n( 1 )a n t e r i o r .
S m b o l oe s p e c i a l :d i f f C u a n d o' s ep r e s e n t ac o m ou n` e v f l a g ' `d i f fe nl l a m a d aa` e v' ,t o d o d i f e r e n c i a c i o n e si n d i c a d a se ne x p r' 's el l e v a nac a b o .
F u n c i n :d s c a l a r( < f > ) A p l i c ae le s c a l a rd ' A l e m b e r tal af u n c i n< f >e s c a l a r . ` L o a d( "c t e n s o r" )' c a r g ae s t af u n c i n .
F u n c i n :e x p r e s s( e x p r ) E x p a n d ed i f e r e n c i a l e ss u s t a n t i v o so p e r a d o re ne x p r e s i o n e se nt r m i n o sd e d e r i v a d a sp a r c i a l e s .' E x p r e s s 'r e c o n o c el a` o p e r a d o r e sg r a d' ,
182/633
28/08/13

' D i v ' ,' r i z o ' ,` l a p l a c i a n o .' E x p r e s s 't a m b i na m p l al ac r u z p r o d u c t o` ~' . D e r i v a d o ss i m b l i c o s( e sd e c i r ,` n o m i n a ld i f f' )e ne lv a l o rd er e t o r n o d e le x p r e s ss ep u e d ee v a l u a rm e d i a n t el ai n c l u s i nd e` d i f f' e ne l è v ' l l a m a d aal af u n c i nol al n e ad ec o m a n d o s .E ne s t ec o n t e x t o ,` d i f f' a c t ac o m ou n ` E v f u n' . ` L o a d( "v e c t" )' c a r g ae s t af u n c i n . E j e m p l o s : ( %I 1 )l o a d( " v e c t " )$ ( %I 2 )g r a d( x^2+y^2+z^2 ) ; 222 ( %O 2 )g r a d( z+y+x ) ( %I 3 )e x p r e s o( % ) ; d222222dd222 ( %O 3 )[ -( z+y+x ) ,-( z+y+x ) ,-( z+y+x ) ] d xd yd z ( %I 4 )e v( % ,d i f ) ; ( %O 4 )[ 2x ,2y ,z2 ] ( %I 5 )d i v( [ x^2 ,y^2 ,z^2 ] ) ; 222 ( %O 5 )d i v[ x ,y ,z ] ( %I 6 )e x p r e s o( % ) ; 2ddd22 ( %O 6 )-( z )+-( Y )+-( x ) d zd yd x ( %I 7 )e v( % ,d i f ) ; ( %O 7 )z2+2y+2x ( %I 8 )r i z o( [ x^2 ,y^2 ,z^2 ] ) ; 222 ( %O 8 )r i z o[ x ,y ,z ] ( %I 9 )e x p r e s o( % ) ; 2ddd222ddd22 ( %O 9 )[ -( Z )-( y ) ,-( x )-( z ) ,-( y )-( x ) ] d yd zd zd xd xd y ( %I 1 0 )e v( % ,d i f ) ; ( %O 1 0 )[ 0 ,0 ,0 ] ( %I 1 1 )l a p l a c i a n o( x^2*y^2*z^2 ) ; 222 ( %O 1 1 )l a p l a c i a n o( x y z ) ( %I 1 2 )e x p r e s o( % ) ; 222 d222222dd222 ( %O 1 2 )-( x y z )+-( x y z )+-( x y z ) 222 d zd yd x ( %I 1 3 )e v( % ,d i f ) ; 222222 ( %O 1 3 )22y z+x z+2x y ( %I 1 4 )[ a ,b ,c ]~[ x ,y ,z ] ; ( %O 1 4 )[ a ,b ,c ]~[ x ,y ,z ] ( %I 1 5 )e x p r e s o( % ) ; ( %O 1 5 )[ b z-c y ,c x-a z ,a y-b x ]
F u n c i n :g r a d e f( < f >( < x _ 1 > ,. . . ,< x _ n > ) ,< g _ 1 > ,. . . ,< g _ m > ) F u n c i n :g r a d e f( < a > ,< x >< e x p r > ) D e f i n el a sd e r i v a d a sp a r c i a l e s( e sd e c i r ,l o sc o m p o n e n t e sd el a g r a d i e n t e )d e l< f >< a >f u n c i nov a r i a b l e . ` G r a d e f( < f >( < x _ 1 > ,. . . ,< x _ n > ) ,< g _ 1 > ,. . . ,< g _ m > )' d e f i n e ` D< f >/d< x _ i > "c o m o< g _ i > ,d o n d e< g _ i >e su n ae x p r e s i n ;< g _ i >p u e d es e r u n al l a m a d ad ef u n c i n ,p e r on oe ln o m b r ed eu n af u n c i n .E ln m e r od e d e r i v a d o s< m >p a r c i a lp u e d es e rm e n o rq u ee ln m e r od ea r g u m e n t o s < n > ,e nc u y oc a s ol a sd e r i v a d a ss ed e f i n e nc o nr e s p e c t oa< x _ 1 > at r a v sd e< x _ m >s o l a m e n t e . ` G r a d e f( < a > ,< x >e x p r )' d e f i n el ad e r i v a d ad e< a >v a r i a b l e s c o nr e s p e c t oa< x >c o m oe x p r .E s t ot a m b i ne s t a b l e c el a d e p e n d e n c i ad e< a >e n< x >( v i a` d e p e n d e( < a >< x > )' ) . E lp r i m e ra r g u m e n t o` < f >( < x _ 1 > ,. . . ,< x _ n > ) "o< a >s ec i t a ,p e r o l o sa r g u m e n t o s< g _ 1 >r e s t a n t e ,. . . ,< g _ m >s ee v a l a n .` G r a d e f' d e v u e l v el af u n c i nov a r i a b l ep a r al aq u el a sd e r i v a d a sp a r c i a l e s s ed e f i n e n . ` G r a d e f' p u e d er e d e f i n i rl a sd e r i v a d a sd eM a x i m ad eu n af u n c i nd e f u n c i o n e s .P o re j e m p l o ,` g r a d e f( s i n( x ) ,s q r t( 1-s i n( x )^2 ) )' r e d e f i n el ad e r i v a d ad e` p e c a d o' . ` G r a d e f' n op u e d ed e f i n i rd e r i v a d a sp a r c i a l e sp a r au ns u b n d i c e f u n c i n . ` P r i n t p r o p s( [ < f _ 1 > ,. . . ,< f _ n > ] ,g r a d e f )' m u e s t r ae lp a r c i a l d e r i v a d o sd el a< f _ 1 >f u n c i o n e s ,. . . ,< f _ n > ,c o m os ed e f i n ep o r ` G r a d e f' . ` P r i n t p r o p s( [ < a _ n > ,. . . ,< a _ n > ] ,a t o m g r a d )' m u e s t r ae lp a r c i a l d e r i v a d o sd el a< a _ n >v a r i a b l e s ,. . . ,< a _ n > ,c o m os ed e f i n ep o r ` G r a d e f' . ` G r a d e f s' e sl al i s t ad el a sf u n c i o n e sp a r al a sp a r c i a l e s
183/633
28/08/13

d e r i v a d o sh a ns i d od e f i n i d o sp o r` g r a d e f' .` G r a d e f s' n o i n c l u y el a sv a r i a b l e sp a r al a sq u eh a ns i d od e r i v a d a sp a r c i a l e s d e f i n i d op o r` g r a d e f' . L o sg r a d i e n t e ss o nn e c e s a r i o sc u a n d o ,p o re j e m p l o ,u n af u n c i nn os ec o n o c e e x p l c i t a m e n t e ,p e r os u sp r i m e r a sd e r i v a d a ss o nys ed e s e a o b t e n e rd e r i v a d a sd eo r d e ns u p e r i o r .
V a r i a b l ed e ls i s t e m a :g r a d e f s V a l o rp o rd e f e c t o :[ ]' ` G r a d e f s' e sl al i s t ad el a sf u n c i o n e sp a r al a sp a r c i a l e s d e r i v a d o sh a ns i d od e f i n i d o sp o r` g r a d e f' .` G r a d e f s' n o i n c l u y el a sv a r i a b l e sp a r al a sq u eh a ns i d od e r i v a d a sp a r c i a l e s d e f i n i d op o r` g r a d e f' .
F u n c i n :l a p l a c e( e x p r ,< t > ,< S > ) C a l c u l al at r a n s f o r m a d ad eL a p l a c ed ee x p rc o nr e s p e c t o al av a r i a b l e< t >yt r a n s f o r m a d a< S >p a r m e t r o . ` L a p l a c er e c o n o c ee ne x p rl a sf u n c i o n e sd e' d e l t a ' ,' e x p ' , ` L o g' , `p e c a d o ' ,' c o s ' ,` s i n h' , 'c o s h' y è r f ' ,a s c o m o ' D e r i v a d o ' ,' i n t e g r a r ' ,' s u m a ' ,y` i l t' .S il a p l a c en o e n c o n t r a ru n at r a n s f o r m a c i nd el af u n c i n` s p e c i n ts el l a m a' .` S p e c i n tp u e d e " e n c o n t r a rl at r a n s f o r m a d ad eL a p l a c ed ee x p r e s i o n e sc o nf u n c i o n e se s p e c i a l e s c o m ol a sf u n c i o n e sd eB e s s e lb e s s e l _ j` ' , `b e s s e l _ i ' ,. . .yp u e d e m a n e j a rl af u n c i n` u n i t _ s t e p' .C o n s u l t et a m b i n` s p e c i n t' . S i` s p e c i n t' n op u e d ee n c o n t r a ru n as o l u c i nt a m b i n ,u ns u s t a n t i v o `l a p l a c e" e s d e v u e l t o . < e x p r >t a m b i np u e d es e ru n ,c o e f i c i e n t ed i f e r e n c i a ll i n e a lc o n s t a n t e e c u a c i ne nc u y oc a s os eu t i l i z a` a t v a l u e' d el av a r i a b l ed e p e n d i e n t e . E la t v a l u er e q u e r i d op u e d es e rs u m i n i s t r a d oy as e aa n t e sod e s p u sd el a t r a n s f o r m a d as ec a l c u l a .D a d oq u el a sc o n d i c i o n e si n i c i a l e sd e b e ne s t a r e s p e c i f i c ae nc e r o ,s iu n ot i e n el a sc o n d i c i o n e sd ec o n t o r n oi m p u e s t a s e no t r o sl u g a r e ss ep u e d ei m p o n e r s t o se nl as o l u c i ng e n e r a ly e l i m i n a rl a sc o n s t a n t e sm e d i a n t el ar e s o l u c i nd el as o l u c i ng e n e r a lp a r ae l l o s ys u s t i t u y e n d ol o sv a l o r e sd en u e v o . ` L a p l a c er e c o n o c ec o n v o l u c i ni n t e g r a l e sd el af o r m a ì n t e g r a r ( F( x )*g( t-x ) ,x ,0 ,t )' ;o t r o st i p o sd ec o n v o l u c i o n e sn os o n r e c o n o c i d o . R e l a c i o n e sf u n c i o n a l e sd e b e ne s t a rr e p r e s e n t a d o se x p l c i t a m e n t ee ne x p r ; r e l a c i o n e si m p l c i t a s ,e s t a b l e c i d a sp o r' d e p e n d e ' ,n os er e c o n o c e n . E sd e c i r ,s i< f >d e p e n d e< x >y< y > ,' f( x ,y )d e b ea p a r e c e re n e x p r . V a s et a m b i ni l t` ' ,l at r a n s f o r m a d ai n v e r s ad eL a p l a c e . E j e m p l o s : ( %I 1 )L a p l a c e( e x p( 2*t+a )*s e n( t )*t ,t ,s ) ; u n %E( 2s-4 ) ( %O 1 )22 ( S-4s+5 ) ( %I 2 )L a p l a c e( ' d i f f( f( x ) ,x ) ,x ,s ) ; ( %O 2 )sd eL a p l a c e( f( x ) ,x ,s )-f( 0 ) ( %I 3 )d i f f( d i f f( d e l t a( t ) ,t ) ,t ) ; 2 d ( %O 3 )-( d e l t a( t ) ) 2 d t ( %I 4 )L a p l a c e( % ,t ,s ) ; ! d !2 ( %O 4 )-( d e l t a( t ) ) !+S-d e l t a( 0 )s d t ! !T=0 ( %I 5 )a s u m i r( a >0 )$ ( %I 6 )L a p l a c e( g a m m a _ i n c o m p l e t e( a ,t ) ,t ,s ) ,g a m m a _ e x p a n d :t r u e ; -A-1 g a m m a( a )g a m m a( a )s ( %O 6 )s1a ( -+1 ) s ( %I 7 )F a c t o rd e( L a p l a c e( g a m m a _ i n c o m p l e t e( 1 / 2 ,t ) ,t ,s ) ) ; s+1 s q r t( %p i )( ( s )s q r ts q r t( )-1 ) s ( %O 7 )3 / 2s+1 ss q r t( ) s ( %I 8 )a s u m i r ( e x p( %p i*s ) >1 )$
184/633
28/08/13

( %I 9 )L a p l a c e( s u m( ( 1 )^n*u n i t _ s t e p( t n* %p i )*s i n( t ) ,n ,0 ,i n f ) ,t ,s ) , s i m p s u m ; %I %i %P is%p is ( S+ %i )( 1%e )( s%i )( 1%e ) ( %O 9 )-2 ( %I 9 )F a c t o rd e( % ) ; %P is %E ( %O 9 )%P is ( S%i )( s+ %i )( %e-1 )
19 Integracin
I n t r o d u c c i nal aI n t e g r a c i nd e F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n I n t r o d u c c i naQ U A D P A C K F u n c i o n e syv a r i a b l e sp a r aQ U A D P A C K
19.1 Introduccin a la Integracin

M a x i m at i e n ev a r i a sr u t i n a sp a r ac a l c u l a ri n t e g r a l e s .E l` i n t e g r a r' f u n c i nh a c eu s od el am a y o r ad ee l l o s .T a m b i ne s t e lp a q u e t ea n t i d` ' , q u em a n e j au n af u n c i nn oe s p e c i f i c a d a( ys u sd e r i v a d o s ,p o rs u p u e s t o ) . P a r au s o sn u m r i c o s ,h a yu nc o n j u n t od ei n t e g r a d o r e sd ea d a p t a c i nd e s d e Q U A D P A C K ,l l a m a d o` q u a d _ q a g' , `q u a d _ q a g s ' ,e t c ,q u es ed e s c r i b e n b a j oe lt t u l o` Q U A D P A C K' .F u n c i o n e sh i p e r g e o m t r i c a se s t ns i e n d o t r a b a j a d o ,c o n s u l t e` s p e c i n t' p a r am sd e t a l l e s .E nt r m i n o sg e n e r a l e s ,M a x i m as l o m a n e j af u n c i o n e sq u es o ni n t e g r a b l e se nt r m i n o sd el a" p r i m a r i a f u n c i o n e s" ( f u n c i o n e sr a c i o n a l e s ,t r i g o n o m t r i c a s ,l o g a r t m i c a s ,e x p o n e n c i a l e s ,t r o n c o s , r a d i c a l e s ,e t c )yu n a sp o c a se x t e n s i o n e s( f u n c i nd ee r r o r ,d i l o g a r i t h m ) .L o N oo p e r ac o ni n t e g r a l e se nt r m i n o sd ef u n c i o n e sd e s c o n o c i d a s ,c o m og' ( x ) y' h( x ) .
19.2 Funciones y variables para la Integracin

F u n c i n :c h a n g e v a r( e x p r ,< f ( x , y ) > ,< y > ,< x > ) H a c ee lc a m b i od ev a r i a b l ed a d op o r` < f ( x , y ) >=0 "e nt o d o s i n t e g r a l e sq u ea p a r e c e ne ne x p rc o nl ai n t e g r a c i nr e s p e c t oa< x > . L an u e v av a r i a b l ee s< y > . ( %I 1 )a s u m i r( a >0 )$ ( %I 2 )' i n t e g r a r( %e* *s q r t( a*y ) ,y ,0 ,4 ) ; 4 / [ ( A )s q r ts q r t( y ) ( %O 2 )I %d ye ] / 0 ( %I 3 )c h a n g e v a r( % ,y z^2/a ,z ,y ) ; 0 / [ A b s( z ) 2Iz %ed z ] / -2s q r t( a ) ( %O 3 )u n U n ae x p r e s i nc o n t i e n ef o r m a sn o m i n a l e s ,c o m ol o sc a s o sd e ` ' I n t e g r a r 'a n t e r i o r m e n t e ,p u e d es e re v a l u a d ap o re v `' c o nl o s 'n o m b r e s' b a n d e r a . P o re j e m p l o ,l ae x p r e s i nd e v u e l t ap o r` c h a n g e v a r' a n t e r i o rp u e d ee s t a r e v a l u a d op o r` e v( %o 3 ,s u s t a n t i v o s ) . ` C h a n g e v a r' t a m b i np u e d eu t i l i z a r s ep a r ac a m b i o se nl o s n d i c e sd eu n as u m ao p r o d u c t o .S i ne m b a r g o ,d e b et e n e r s ee nc u e n t aq u ec u a n d os er e a l i z au nc a m b i o e nu n as u m aop r o d u c t o ,e lc a m b i od e b es e ru nc a m b i o ,e sd e c i r ,` i=j+ . . ." ,N ou n af u n c i nd em a y o rg r a d o .P o re j e m p l o , ( %I 4 )s u m( a[ i ]*x^( i 2 ) ,i ,0 ,i n f ) ; i n f = = = = \I-2 ( %O 4 ) >a x /I = = = = i=0 ( %I 5 )c h a n g e v a r( % ,i 2 n ,n ,i ) ; i n f = = = = \N ( %O 5 ) >a x
185/633
28/08/13

/N+2 = = = = n=-2
F u n c i n :d b l i n t( < f > ,< r > ,< S > ,< a > ) U n ar u t i n ap a r ai n t e g r a l e sd o b l e se s c r i t ae nl e n g u a j eM a x i m ad en i v e ls u p e r i o r yl u e g ot r a d u c i d oyc o m p i l a d oac d i g om q u i n a .U s e` c a r g a r ( D b l i n t )' p a r aa c c e d e rae s t ep a q u e t e .U t i l i z al ar e g l ad eS i m p s o n m t o d oe nl a sd i r e c c i o n e sxeyp a r ac a l c u l a r /B/s( x ) || ||F( x ,y )d xd y || /A/r( x ) E l< f >f u n c i nd e b es e ru n af u n c i nt r a d u c i d aoc o m p i l a d ad ed o s v a r i a b l e sy< r >y< S >d e b e ns e rc a d au n at r a d u c i d a soc o m p i l a d a s f u n c i nd eu n av a r i a b l e ,m i e n t r a sq u e< a >yd e b es e rd ep u n t of l o t a n t e n m e r o s .L ar u t i n at i e n ed o sv a r i a b l e sg l o b a l e sq u ed e t e r m i n a nl a n m e r od ed i v i s i o n e sd el a sp r o p i e d a d e sxei n t e r v a l o sy :` d b l i n t _ x "y ` D b l i n t _ y' ,a m b o sd el o sc u a l e ss o ni n i c i a l m e n t e1 0 ,ys ep u e d ec a m b i a r f o r m ai n d e p e n d i e n t eao t r o sv a l o r e se n t e r o s( h a y2` *d b l i n t _ x+ 1 ' p u n t o sc a l c u l a ne nl ad i r e c c i nx ,y` 2*d b l i n t _ y+ 1 'e nl aY d i r e c c i n ) .L ar u t i n as u b d i v i d ee le j eXyl u e g op a r ac a d a v a l o rd eXc a l c u l ap r i m e r o` < r >( x )' y `< S >( x ) ' ,yl u e g oe le j eY e n t r e` < r >( x )' y `< S >( x )s es u b d i v i d eyl ai n t e g r a lal ol a r g od e e le j eYs er e a l i z au s a n d ol ar e g l ad eS i m p s o n ,e n t o n c e sl ai n t e g r a l al ol a r g od e le j eXs er e a l i z au t i l i z a n d ol ar e g l ad eS i m p s o nc o nl af u n c i n s i e n d ol o sv a l o r e sd el aY i n t e g r a l e s .E s t ep r o c e d i m i e n t op u e d es e rn u m r i c a m e n t e i n e s t a b l ep a r au n ag r a nv a r i e d a dd er a z o n e s ,p e r oe sr a z o n a b l e m e n t er p i d o : e v i t a rs uu s oe nl a sf u n c i o n e syf u n c i o n e sa l t a m e n t eo s c i l a t o r i ac o n s i n g u l a r i d a d e s( p o l o sop u n t o sd er a m i f i c a c i nd el ar e g i n ) .E lY i n t e g r a l e sd e p e n d e nd ec u nl e j o s` < r >( x )' y `< S >( x ) 's o n ,p o rl oq u es i l ad i s t a n c i a` < S >( x )-< r >( x )' v a r ar p i d a m e n t ec o nX ,p u e d eh a b e r e r r o r e si m p o r t a n t e sd e b i d oat r u n c a m i e n t o sd ed i f e r e n t e p a d r a s t r o st a m a o se nl a si n t e g r a l e sd eY . .S ep u e d ea u m e n t a r ` D b l i n t _ x' y `d b l i n t _ y 'e nu ne s f u e r z op a r am e j o r a rl ac o b e r t u r ad el o s l ar e g i n ,ae x p e n s a sd et i e m p od ec l c u l o .L af u n c i n L o sv a l o r e sn os eg u a r d a n ,p o rl oq u es il af u n c i ne sm u yl e n t o , u s t e dt e n d r q u ee s p e r a rp a r av o l v e rac a l c u l a rs ic a m b i an a d a ( L os i e n t o ) .S er e q u i e r eq u ee l< f >f u n c i o n e s ,< r > ,ys e r< S > t r a d u c i d a soc o m p i l a d a sa n t e sd el l a m a r` d b l i n t' .E s t e d a r l u g a ra r d e n e sd el am e j o r ad el av e l o c i d a dm a g n i t u d c d i g oi n t e r p r e t a d oe nm u c h o sc a s o s ! ` D e m o( d b l i n t ) "r e a l i z au n ad e m o s t r a c i nd e` d b l i n t' a p l i c a d oau n p r o b l e m ad ee j e m p l o .
F u n c i n :D E F I N T( e x p r ,< x >< a > ) L o si n t e n t o sd ec a l c u l a ru n ai n t e g r a ld e f i n i d a .` D E F I N T' e sl l a m a d op o r ' I n t e g r a r 'c u a n d os ee s p e c i f i c a nl m i t e sd el ai n t e g r a c i n ,e sd e c i r ,c u a n d o ` I n t e g r a r' s ed e n o m i n ac o m o 'i n t e g r a t e( e x p r ,< x >< a > ) . P o rl ot a n t od e s d ee lp u n t od ev i s t ad e lu s u a r i o ,e ss u f i c i e n t ep a r al l a m a r ' I n t e g r a r ' . ` D E F I N T' d e v u e l v eu n ae x p r e s i ns i m b l i c a ,y as e al ac a l c u l a d a i n t e g r a lol af o r m an o m i n a ld el ai n t e g r a l .C o n s u l t e` q u a d _ q a g "y f u n c i o n e sr e l a c i o n a d a sp a r aa p r o x i m a c i o n e sn u m r i c a sd ed e f i n i t i v o i n t e g r a l e s .
V a r i a b l eo p c i o n a l :e r f f l a g V a l o rp o rd e f e c t o :t r u e' C u a n d o` e r f f l a g' e s 'f a l s e' ,e v i t aq u e `r i s c h" d e s d el ai n t r o d u c c i nd el a F u n c i ne r f` ' e nl ar e s p u e s t as in oh a b an i n g u n ae ne li n t e g r a n d o e m p e z a r .
F u n c i n :i l t( e x p r ,< S > ,< t > ) C a l c u l al at r a n s f o r m a d ai n v e r s ad eL a p l a c ed ee x p rc o nr e s p e c t oal a < S >ye lp a r m e t r o< t > .< e x p r >d e b es e ru n af r a c c i nd ep o l i n o m i o s c u y od e n o m i n a d o rt e n g as l of a c t o r e sl i n e a l e syc u a d r t i c a s .M e d i a n t ee lu s o l a sf u n c i o n e sl a p l a c e` ' y Ì L T 'j u n t oc o nl a' s o l u c i n 'o F u n c i o n e s` l i n s o l v e' e lu s u a r i op u e d er e s o l v e ru ns o l od i f e r e n c i a lo e c u a c i ni n t e g r a ld ec o n v o l u c i nou nc o n j u n t od ee l l o s . ( %I 1 )' i n t e g r a t e( s e n h( a*x )*f( t x ) ,x ,0 ,t )+b*f( t )=t* *2 ; t / [ 2 ( %O 1 )If( t-x )s i n h( a x )d x+b f( t )=t ] /
186/633
28/08/13
0 ( %I 2 )L a p l a c e( % ,t ,s ) ;
u nL a p l a c e( f( t ) ,t ,s )2 ( %O 2 )bl a p l a c e( f( t ) ,t ,s )+-=223 s-c o m o ( %I 3 )l i n s o l v e( [ % ] ,[ ' L a p l a c e( f( t ) ,t ,s ) ] ) ; 22 2s-2a ( %O 3 )[ L a p l a c e( f( t ) ,t ,s )=] 523 b s+( a-a b )s ( %I 4 )i l t( d c h a .( p r i m e r o( % ) ) ,s ,t ) ; E sa b( a b-1 )p o s i t i v o ,n e g a t i v ooc e r o ? p o s ; s q r t( a b( a b-1 ) )t 2c o s h( )2 b a t ( %O 4 )-+322a b-1 a b-2a b+a 2 +322 a b-2a b+a
V a r i a b l eo p c i o n a l :i n t a n a l y s i s V a l o rp o rd e f e c t o :t r u e' C u a n d o` t r u e' ,l ai n t e g r a c i nd e f i n i t i v at r a t ad ee n c o n t r a rp o l o se ne l i n t e g r a n d oe ne li n t e r v a l od ei n t e g r a c i n .S il o sh a y ,e n t o n c e se l i n t e g r a ls ee v a l aa d e c u a d a m e n t ec o m oi n t e g r a n t ep r i n c i p a lv a l o r . S ii n t a n a l y s i se s' f a l s e ' ,e s t ac o m p r o b a c i nn os er e a l i z ay i n t e g r a c i ns er e a l i z aa s u m i e n d oq u en oh a yp o l o s . C o n s u l t et a m b i n` l d e f i n t' . E j e m p l o s : M a x i m ap u e d er e s o l v e rl a ss i g u i e n t e si n t e g r a l e s ,c u a n d o` i n t a n a l y s i s' e s e s t a b l e c i d oe n` f a l s e' : ( %I 1 )i n t e g r a t e( 1/( s q r t( x )+ 1 ) ,x ,0 , 1 ) ; 1 / [ 1 ( %O 1 )M e-d x ]S q r t( x )+1 / 0 ( %I 2 )i n t e g r a t e( 1/( s q r t( x )+ 1 ) ,x ,0 , 1 ) ,i n t a n a l y s i s :f a l s e ; ( %O 2 )2-2l o g( 2 ) ( %I 3 )i n t e g r a t e( c o s( a )/s q r t( ( t a n( a ) )^2+ 1 ) ,a ,%p i/2 , %p i/2 ) ; E ln m e r o1n oe s t e ne ld o m i n i od ea t a n h -U ne r r o r .P a r ad e p u r a re s t ei n t e n t o :d e b u g m o d e( t r u e ) ; ( %I 4 )i n t a n a l y s i s :f a l s e$ ( %I 5 )i n t e g r a t e( c o s( a )/s q r t( ( t a n( a ) )^2+ 1 ) ,a ,%p i/2 , %p i/2 ) ; %P i ( %O 5 )2
F u n c i n :i n t e g r a t e( e x p r ,< x > ) F u n c i n :i n t e g r a t e( e x p r ,< x >< a > ) L o si n t e n t o sd ec a l c u l a rs i m b l i c a m e n t el ai n t e g r a ld ee x p rc o n r e s p e c t oa< x > .' I n t e g r a t e( e x p r ,< x > ) 'e si n d e f i n i d o i n t e g r a l ,m i e n t r a sq u e' i n t e g r a t e( e x p r ,< x >< a > ) 'e su nc l a r o i n t e g r a l ,c o nl m i t e sd ei n t e g r a c i ny< a > .L o sl m i t e s n od e b e nc o n t e n e r< x > ,a u n q u e` i n t e g r a r' n oa p l i c ae s t a r e s t r i c c i n .< a >n e c e s i d a dn os e r i n f e r i o ra .S ie si g u a la < a > ,' i n t e g r a r 'd e v u e l v ec e r o . C o n s u l t e` q u a d _ q a g' yf u n c i o n e sr e l a c i o n a d a sp a r aa p r o x i m a c i o n e sn u m r i c a sd e i n t e g r a l e sd e f i n i d a s .C o n s u l t e` r e s i d u o s' p a r ae lc l c u l od el o sr e s i d u o s ( I n t e g r a c i nc o m p l e j a ) .C o n s u l t e` a n t i d "p a r au nm e d i oa l t e r n a t i v od e d ei n t e g r a l e si n d e f i n i d a s . L ai n t e g r a l( u n ae x p r e s i nl i b r ed e' i n t e g r a r ' )s ed e v u e l v es i ` I n t e g r a r' t i e n e x i t o .C a s oc o n t r a r i o ,e lv a l o rd er e t o r n oe sl af o r m an o m i n a l d el ai n t e g r a l( e lo p e r a d o rc i t a d o` ' i n t e g r a r ' )ou n e x p r e s i nq u ec o n t i e n eu n aom sf o r m a sn o m i n a l e s .L af o r m an o m i n a ld e ` I n t e g r a r' s em u e s t r ac o nu ns i g n oi n t e g r a l . E na l g u n a sc i r c u n s t a n c i a s ,e s t i lc o n s t r u i ru n af o r m an o m i n a lp o r p a r t e ,c i t a n d o` i n t e g r a r' c o nu n as o l ac i t a ,p o re j e m p l o , ` ' I n t e g r a t e( e x p r ,< x > ) .P o re j e m p l o ,l ai n t e g r a lp u e d ed e p e n d e r
187/633
28/08/13

d ea l g u n o sp a r m e t r o sq u en os ec o m p u t a n .E ls u s t a n t i v op u e d es e r a p l i c a d oas u sa r g u m e n t o sp o r` e v( ,s u s t a n t i v o s )' d o n d ee sl a f o r m an o m i n a ld ei n t e r s . ` I n t e g r a r' m a n e j ai n t e g r a l e sd e f i n i d a sd el a si n d e f i n i d a s , ye m p l e au n as e r i ed eh e u r s t i c a sp a r am a n e j a rc a d ac a s o .E s p e c i a l c a s o sd ei n t e g r a l e sd e f i n i d a si n c l u y e nl m i t e sd ei n t e g r a c i ni g u a la l c e r ooi n f i n i t o( i n f` ' o `m i n f ' ) ,f u n c i o n e st r i g o n o m t r i c a sc o n l m i t e sd ei n t e g r a c i ni g u a lac e r oy %p i` ' o `2 %p i ' ,r a c i o n a l f u n c i o n e s ,i n t e g r a l e sr e l a c i o n a d a sc o nl a sd e f i n i c i o n e sd el a` b e t a' y F u n c i o n e s` ' p s iya l g u n a si n t e g r a l e sl o g a r t m i c a syt r i g o n o m t r i c a s . E lt r a t a m i e n t od ef u n c i o n e sr a c i o n a l e sp u e d ei n c l u i re lc l c u l od er e s i d u o s . S in os ee n c u e n t r au nc a s oe s p e c i a ld ea p l i c a c i n ,u ni n t e n t os e r r e a l i z a d op a r ac a l c u l a rl ai n t e g r a li n d e f i n i d aye v a l u a r l ae ne l l m i t e sd ei n t e g r a c i n .E s t op u e d ei n c l u i rl at o m ad eu nl m i t ec o m ol m i t e d ei n t e g r a c i ns ea c e r c aa li n f i n i t oo am e n o si n f i n i t o ,v a s et a m b i n ` L d e f i n t' . C a s o se s p e c i a l e sd ei n t e g r a l e si n d e f i n i d a si n c l u y e nt r i g o n o m t r i c a s f u n c i o n e s ,f u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a syr a c i o n a l e s f u n c i o n e s .' I n t e g r a r 't a m b i np u e d e nh a c e ru s od eu n ap e q u e at a b l ad e i n t e g r a l e se l e m e n t a l e s . ` I n t e g r a r' p u e d el l e v a rac a b ou nc a m b i od ev a r i a b l es ie li n t e g r a n d o t i e n el af o r m a` f( g( x ) )*d i f f( g( x ) ,x ) .I n t e n t o sd ei n t e g r a r" a à e n c o n t r a ru n as u b e x p r e s i n` g( x )t a lq u el ad e r i v a d ad eg' ( x ) d i v i d ee li n t e g r a n d o .E s t ab s q u e d as ep u e d eh a c e ru s od el o sd e r i v a d o s d e f i n i d ap o rl af u n c i n` g r a d e f' .C o n s u l t et a m b i n` c h a n g e v a r "y ` A n t i d " . S in i n g u n ad el a sh e u r s t i c a sd e s c r i t a sr e s u e l v el ai n t e g r a li n d e f i n i d a , s ee j e c u t ae la l g o r i t m od eR i s c h .L ab a n d e r a` r i s c h' p o d r f i j a r s ee n u n` e v f l a g' ,e nu n al l a m a d aa è v 'oe nl al n e ad ec o m a n d o s ,p o re j e m p l o ,` e v ( I n t e g r a t e( e x p r ,< x > ) ,r i s c h )' o 'i n t e g r a t e( e x p r ,< x > ) , r i s c h' .S i' e s t p r e s e n t e , 'i n t e g r a r' ` r i s c hl l a m ae l `r i s c h ' f u n c i ns i ni n t e n t a rp r i m e r ol ah e u r s t i c a .C o n s u l t et a m b i n` r i s c h' . ` I n t e g r a r' s l of u n c i o n ac o nr e l a c i o n e sf u n c i o n a l e sr e p r e s e n t a d o s e x p l c i t a m e n t ed el af( x )' n o t a c i n ' .' I n t e g r a r 'n or e s p e t a d e p e n d e n c i a si m p l c i t a se s t a b l e c i d a sp o rl af u n c i n' d e p e n d e ' . ` I n t e g r a r' p u e d en e c e s i t a rs a b e ra l g u n ap r o p i e d a dd eu np a r m e t r oe ne l i n t e g r a n d o .' I n t e g r a r 's ec o n s u l t a r p r e v i a m e n t eal a` a s u m i r' b a s ed ed a t o s , y ,s il av a r i a b l ed ei n t e r sn oe s t a h ,` i n t e g r a rl av o l u n t a d p r e g u n t a ra lu s u a r i o .D e p e n d i e n d od el ap r e g u n t a ,p o s i b l e sr e s p u e s t a ss o n : ` S ,' o 'n o ,' o `p o s ; ' ,` c e r o ;' o `n e g ; ' . ` I n t e g r a r' n oe s ,p o rd e f e c t o ,d e c l a r a d ol i n e a l .V e r ` D e c l a r a r' y 'l i n e a l' . ' I n t e g r a r 'l ai n t e g r a c i ni n t e n t o sp o rp a r t e ss l oe nu n o sp o c o se s p e c i a l e s c a s o s . E j e m p l o s : *I n t e g r a l e se l e m e n t a l e si n d e f i n i d a syd e f i n i d a s . ( %I 1 )i n t e g r a t e( s i n( x )^3 ,x ) ; 3 c o s( x ) ( %O 1 )-c o s( x ) 3 ( %I 2 )i n t e g r a t e( x/s q r t( b^2-x^2 ) ,x ) ; 22 ( %O 2 )-s q r t( b-x ) ( %I 3 )i n t e g r a t e( c o s( x )^2*e x p( x ) ,x ,0 , %p i ) ; %P i E33 % ( %O 3 )55 ( %I 4 )i n t e g r a t e( x^2*e x p( x^2 ) ,x ,m i n f ,i n f ) ; s q r t( %p i ) ( %O 4 )2 *E lu s od e` a s u m i r "yc o n s u l t ai n t e r a c t i v a . ( %I 1 )a s u m i r( a >1 )$ ( %I 2 )i n t e g r a t e( x* *a/( x1 )* *( 5 / 2 ) ,x ,0 ,i n f ) ; 2a+2 E s-u nn m e r oe n t e r o ? 5 n o ; E su n2-3p o s i t i v o ,n e g a t i v ooc e r o ? n e g ; 3 ( %O 2 )b e t a( a+1 ,-a ) 2 *C a m b i od ev a r i a b l e .H a yd o sc a m b i o sd el av a r i a b l ee n e s t ee j e m p l o :u n ou t i l i z a n d ou n ad e r i v a d ae s t a b l e c i d ap o rg r a d e f` ' , yo t r au t i l i z a n d ol ad e r i v a d a` d i f f( r( x ) )' d eu nn oe s p e c i f i c a d o f u n c i n` r( x )' . ( %I 3 )g r a d e f( q( x ) ,s i n( x* *2 ) ) ;
188/633
28/08/13

( %O 3 )q( x ) ( %I 4 )d i f f( l o g( q( r( x ) ) ) ,x ) ; d2 ( -( R( x ) ) )s e n( r( x ) ) d x ( %O 4 )q( r( x ) ) ( %I 5 )i n t e g r a t e( % ,x ) ; ( %O 5 )l o g( q( r( x ) ) ) *E lv a l o rd er e t o r n oc o n t i e n ef o r m a sn o m i n a l e sd e l` ' i n t e g r a r ' .E ne s t e e j e m p l o ,M a x i m ap u e d ee x t r a e ru nf a c t o rd e ld e n o m i n a d o rd e u n af u n c i nr a c i o n a l ,p e r on op u e d ef a c t o r i z a re lr e s t o d eo t r om o d oa l g u n au n ai n t e g r a l .' G r i n d 'm u e s t r al af o r m an o m i n a l ` ' I n t e g r a c i n 'e ne lr e s u l t a d o .C o n s u l t et a m b i n` i n t e g r a t e _ u s e _ r o o t s o f' P a r am si n f o r m a c i ns o b r el a si n t e g r a l e sd ef u n c i o n e sr a c i o n a l e s . ( %I 1 )e x p a n d( ( x 4 )*( x^3+ 2*x+ 1 ) ) ; 432 ( %O 1 )x-4x+2x-7x-4 ( %I 2 )i n t e g r a t e( 1/ % ,x ) ; /2 [ X+x+41 8 I-d x ]3 l o g( x-4 )/x+2x+1 ( %O 2 )7 37 3 ( %I 3 )r u t i n a( % ) ; l o g( x 4 )/7 3-( ' i n t e g r a t e( ( x^2*4x1 8 )/( x^3+ 2*x+ 1 ) ,x ) )/7 3$ *D e f i n i c i nd eu n af u n c i ne nt r m i n o sd eu n ai n t e g r a l .E lc u e r p od eu n f u n c i nn os ee v a l ac u a n d os ed e f i n el af u n c i n .A s e lc u e r p od ef _ 1` ' e ne s t ee j e m p l oc o n t i e n el af o r m an o m i n a ld e ' I n t e g r a r ' .E lo p e r a d o rc o m i l l a c o m i l l a ' '` ' h a c eq u ee l i n t e g r a lp a r as e re v a l u a d o s ,ye lr e s u l t a d os ec o n v i e r t ee ne lc u e r p od e ` F _ 2' . ( %I 1 )f _ 1( a ) :=i n t e g r a t e( x^3 ,x ,1 ,a ) ; 3 ( %O 1 )f _ 1( a ) :=i n t e g r a t e( x ,x ,1 ,a ) ( %I 2 )e v( f _ 1( 7 ) ,l o ss u s t a n t i v o s ) ; ( %O 2 )6 0 0 ( %I 3 )/*N o t ap a r n t e s i sa l r e d e d o ri n t e g r a n( . . . )a q u */ f _ 2( a ) := ' '( i n t e g r a t e( x^3 ,x ,1 ,a ) ) ; 4 u n1 ( %O 3 )f _ 2( a ) :=44 ( %I 4 )f _ 2( 7 ) ; ( %O 4 )6 0 0
V a r i a b l ed e ls i s t e m a :i n t e g r a t i o n _ c o n s t a n t V a l o rp o rd e f e c t o :` %c' C u a n d ou n ac o n s t a n t ed ei n t e g r a c i ns ec r e ap o rt i e m p oi n d e f i n i d o l ai n t e g r a c i nd eu n ae c u a c i n ,e ln o m b r ed el ac o n s t a n t ee s c o n s t r u y ec o n c a t e n a n d o` i n t e g r a t i o n _ c o n s t a n t "y ` I n t e g r a t i o n _ c o n s t a n t _ c o u n t e r' . ` I n t e g r a t i o n _ c o n s t a n t' p u e d ea s i g n a rc u a l q u i e rs m b o l o . E j e m p l o s : ( %I 1 )i n t e g r a t e( x^2=1 ,x ) ; 3 x ( %O 1 )-=x+ %c 1 3 ( %I 2 )i n t e g r a t i o n _ c o n s t a n t :' k ; ( %O 2 )k ( %I 3 )i n t e g r a t e( x^2=1 ,x ) ; 3 x ( %O 3 )-=x+k 2 3
V a r i a b l ed e ls i s t e m a :i n t e g r a t i o n _ c o n s t a n t _ c o u n t e r V a l o rp o rd e f e c t o :0 C u a n d ou n ac o n s t a n t ed ei n t e g r a c i ns ec r e ap o rt i e m p oi n d e f i n i d o l ai n t e g r a c i nd eu n ae c u a c i n ,e ln o m b r ed el ac o n s t a n t ee s c o n s t r u y ec o n c a t e n a n d o` i n t e g r a t i o n _ c o n s t a n t "y ` I n t e g r a t i o n _ c o n s t a n t _ c o u n t e r' . ` I n t e g r a t i o n _ c o n s t a n t _ c o u n t e r' s ei n c r e m e n t aa n t e sd ec o n s t r u i r l as i g u i e n t ec o n s t a n t ed ei n t e g r a c i n . E j e m p l o s :
189/633
28/08/13

( %I 1 )i n t e g r a t e( x^2=1 ,x ) ; 3 x ( %O 1 )-=x+ %c 1 3 ( %I 2 )i n t e g r a t e( x^2=1 ,x ) ; 3 x ( %O 2 )-=x+c 2 % 3 ( %I 3 )i n t e g r a t e( x^2=1 ,x ) ; 3 x ( %O 3 )-=x+ %c 3 3 ( %I 4 )r e s e t( i n t e g r a t i o n _ c o n s t a n t _ c o u n t e r ) ; ( %O 4 )[ i n t e g r a t i o n _ c o n s t a n t _ c o u n t e r ] ( %I 5 )i n t e g r a t e( x^2=1 ,x ) ; 3 x ( %O 5 )-=x+ %c 1 3
V a r i a b l eo p c i o n a l :i n t e g r a t e _ u s e _ r o o t s o f V a l o rp o rd e f e c t o :f a l s e' C u a n d o` i n t e g r a t e _ u s e _ r o o t s o f' e s `t r u e 'ye ld e n o m i n a d o rd eu n a f u n c i nr a c i o n a ln os ep u e d ef a c t o r i z a r ,i n t e g r a t e` ' d e v u e l v ee l i n t e g r a le nu n af o r m aq u ee su n as u m as o b r el a sr a c e s( t o d a v an os ec o n o c e ) d e ld e n o m i n a d o r . P o re j e m p l o ,c o ni n t e g r a t e _ u s e _ r o o t s o f' e n` f a l s e ' ` , ` I n t e g r a r' d e v u e l v el ai n t e g r a ln or e s u e l t ad el af u n c i nr a c i o n a le n f o r m an o m i n a l : ( %I 1 )i n t e g r a t e _ u s e _ r o o t s o f :f a l s e$ ( %I 2 )i n t e g r a t e( 1/( 1+x+x^5 ) ,x ) ; /2 [ X-4x+5 M e-d xx2+1 ]3225a t a n( ) /X-x+s q r t1l o g( x+x+1 )( 3 ) ( %O 2 )-+-71 47s q r t( 3 ) A h o r ae s t a b l e c e m o sl ab a n d e r ap a r as e rv e r d a d ,yl ap a r t en or e s u e l t ad el a i n t e g r a ls ee x p r e s ac o m ou n as u m as o b r el a sr a c e sd el a d e n o m i n a d o rd el af u n c i nr a c i o n a l : ( %I 3 )i n t e g r a t e _ u s e _ r o o t s o f :t r u e$ ( %I 4 )i n t e g r a t e( 1/( 1+x+x^5 ) ,x ) ; = = = =2 \( %R 4-4 %r 4+5 )l o g( x%r 4 ) >/2 = = = =3 %r 4-2 %r 4 32 %R 4e nr o o t s o f( x-x+1 ) ( %O 4 )-7 2x+1 25a t a n( ) ( x+x+1 )s q r tr e g i s t r o( 3 ) -+1 47s q r t( 3 ) A l t e r n a t i v a m e n t e ,e lu s u a r i op u e d ec a l c u l a rl a sr a c e sd e ld e n o m i n a d o r p o rs e p a r a d oy ,ac o n t i n u a c i n ,e x p r e s a re li n t e g r a n d oe nf u n c i nd ee s t o s r a c e s ,p o re j e m p l o ,` 1/( ( x-a )*( x-b )*( x-c ) )' o `1/( ( x^2-( a+b )*x+ a*b )*( x-c ) )' s ie ld e n o m i n a d o re su np o l i n o m i oc b i c o . Av e c e s ,e s t oa y u d a r aM a x i m ao b t e n e ru nr e s u l t a d om s t i l .
F u n c i n :l d e f i n t( e x p r ,< x >< a > ) C a l c u l al ai n t e g r a ld e f i n i d ad ee x p ru t i l i z a n d o ` L i m i t' p a r ae v a l u a rl ai n t e g r a li n d e f i n i d ad ee x p rr e s p e c t o a< x >e ne ll m i t es u p e r i o rye ne ll m i t ei n f e r i o r< a > .S is e c o n s i g u ec a l c u l a rl ai n t e g r a ld e f i n i d a ,` l d e f i n t' d e v u e l v eu n e x p r e s i nq u ec o n t i e n el m i t e se nf o r m an o m i n a l . ` L d e f i n t' n os el l a m ad e 'i n t e g r a r' ,p o rl oq u el ae j e c u c i nd e `l d e f i n t ( E x p r ,< x >< a > )' p u e d ep r o d u c i ru nr e s u l t a d od i f e r e n t e ` I n t e g r a r( e x p r ,< x >< a > ) .` L d e f i n t "s i e m p r eu t i l i z ae l m i s m om t o d op a r ae v a l u a rl ai n t e g r a ld e f i n i d a ,m i e n t r a sq u e` i n t e g r a r' p u e d e ne m p l e a rd i v e r s a sh e u r s t i c a syp u e d e nr e c o n o c e ra l g u n o sc a s o se s p e c i a l e s .
F u n c i n :p o t e n c i a l( < g i v e n g r a d i e n t > )
190/633
28/08/13

E lc l c u l oh a c eu s od el av a r i a b l eg l o b a l ` P o t e n t i a l z e r o l o c[ 0 ]' q u ed e b es e r `n o n l i s t" od el af o r m a [ I n d e t e r m i n a t e j=e x p r e s s i o n j ,i n d e t e r m i n a t e k=e x p r e s i n k ,. . . ] e lp r i m e r oe se q u i v a l e n t eal ae x p r e s i nn o n l i s tp a r at o d o s p a r t e sd el am a n od e r e c h ae ne ls e g u n d o .L o sl a d o sd e r e c h o si n d i c a d o s s eu t i l i z a nc o m oe ll m i t ei n f e r i o rd ei n t e g r a c i n .E l x i t od el a i n t e g r a c i o n e sp u e d e nd e p e n d e rd es u sv a l o r e sye lo r d e n . ` P o t e n t i a l z e r o l o c' s ee s t a b l e c ei n i c i a l m e n t ee n0 . F u n c i n :r e s i d u o s( e x p r ,< z > ,< z _ 0 > ) C a l c u l ae lr e s i d u oe ne lp l a n oc o m p l e j od el ae x p r e s i ne x p r c u a n d ol av a r i a b l ed e< z >a s u m el a< z _ 0 >v a l o r .E lr e s i d u oe se l c o e f i c i e n t ed e` ( < z >-< z _ 0 > )^( 1 )' e nl as e r i ed eL a u r e n t e x p r . ( %I 1 )r e s i d u o( s/( s* *2+a* *2 ) ,s ,a*i % ) ; 1 ( %O 1 )2 ( %I 2 )r e s i d u o( s i n( a*x )/x* *4 ,x ,0 ) ; 3 u n ( %O 2 )6
F u n c i n :r i s c h( e x p r ,< x > ) I n t e g r ae x p rr e s p e c t od e< x >c o nl ot r a s c e n d e n t a l c a s od e la l g o r i t m od eR i s c h .( E lc a s oa l g e b r a i c od e lR i s c h a l g o r i t m on oh as i d oi m p l e m e n t a d o . )E s t em a n e j aa c t u a l m e n t ee l c a s o sd ee x p o n e n c i a l e syl o g a r i t m o sa n i d a d o sq u el ap a r t ep r i n c i p a ld e ' I n t e g r a r 'n os ep u e d eh a c e r .' I n t e g r a r 's ea p l i c a r d ef o r m aa u t o m t i c a ` R i s c h "s is ep r e s e n t a ne s t o sc a s o s . ` E r f f l a g' ,s i 'f a l s e' ,e v i t aq u e `r i s c h" d el ai n t r o d u c c i nd el a è r f ' f u n c i ne nl ar e s p u e s t as in oh a b an i n g u n ae ne li n t e g r a n d o c o n . ( %I 1 )R i s c h( x^2*e r f( x ) ,x ) ; 2 32-x %P ixe r f( x )+( s q r t( %p i )x+s q r t( %p i ) ) %e ( %O 1 )-3 %p i ( %I 2 )d i f f( %x ) ,r a t s i m p ; 2 ( %O 2 )xe r f( x )
F u n c i n :t l d e f i n t( e x p r ,< x >< a > ) E q u i v a l e n t ea` l d e f i n t' c o nt l i m s w i t c h `s e t` t r u e ' .
19.3 Introduccin a QUADPACK

Q U A D P A C Ke su n ac o l e c c i nd ef u n c i o n e sp a r ae lc l c u l on u m r i c od e i n t e g r a l e sd e f i n i d a sd eu n av a r i a b l e .S eo r i g i n ap a r t i rd eu np r o y e c t oc o n j u n t o d eR .P i e s s e n s( 1 ) ,E .d eD o n c k e r( 2 ) ,C .U e b e r h u b e r( 3 ) ,yD . K a h a n e r( 4 ) . L ab i b l i o t e c aQ U A D P A C Ki n c l u i d ae nM a x i m ae su n at r a d u c c i na u t o m t i c a ( At r a v sd e lp r o g r a m a` f 2 c l' )d e lc d i g of u e n t eF o r t r a nd eQ U A D P A C Kc o m o a p a r e c ee nl aS L A T E CC o m m o nM a t h e m a t i c a lL i b r a r y ,V e r s i o n4 . 1( 5 ) . L ab i b l i o t e c aS L A T E Ct i e n ef e c h aj u l i od e1 9 9 3 ,p e r ol a sf u n c i o n e ss o nQ U A D P A C K e s c r i t ou n o sa o sa n t e s .H a yo t r av e r s i nd eQ U A D P A C Ke n N e t l i b( 6 ) ,p e r on oe s t c l a r oh a s t aq u p u n t od i f i e r ed el aS L A T E C v e r s i n . L a sf u n c i o n e sQ U A D P A C Ki n c l u i d a se nM a x i m as o nt o d a sa u t o m t i c a s ,e ne l s e n t i d od eq u ee s t a sf u n c i o n e si n t e n t a np a r ac a l c u l a ru nr e s u l t a d oau ne s p e c i f i c a d o p r e c i s i n ,l oq u er e q u i e r eu nn m e r oi n d e t e r m i n a d od ee v a l u a c i o n e sd ef u n c i o n e s . L at r a d u c c i nd eM a x i m aL i s pd eQ U A D P A C Kt a m b i ni n c l u y ea l g u n o sn oa u t o m t i c a s f u n c i o n e s ,p e r oq u en oe s t ne x p u e s t o se ne ln i v e ld eM a x i m a . M si n f o r m a c i ns o b r eQ U A D P A C Ks ep u e d ee n c o n t r a re ne ll i b r oQ U A D P A C K ( 7 ) .
19.4 Funciones y variables para QUADPACK

F u n c i n :q u a d _ q a g( < f ( x ) > ,< x >< a > ,< k e y > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) F u n c i n :q u a d _ q a g( < f > ,< x >< a > ,< k e y > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) I n t e g r a c i nd eu n af u n c i ng e n e r a le nu ni n t e r v a l of i n i t o . ` Q u a d _ q a g' i m p l e m e n t au ni n t e g r a d o rg l o b a la d a p t a t i v os i m p l eu t i l i z a n d o u n ae s t r a t e g i ad eA i n d( P i e s s e n s ,1 9 7 3 ) .S ep u e d ee s c o g e r
191/633
28/08/13

e n t r el o s6p a r e sd eG a u s s K r o n r o df r m u l a sd ec u a d r a t u r ad el ar e g l a c o m p o n e n t ed ee v a l u a c i n .L a sn o r m a sd ea l t og r a d os o na d e c u a d o sp a r a o s c i l a n d of u e r t e m e n t ei n t e g r a n d o s . ` Q u a d _ q a g' c a l c u l al ai n t e g r a l i n t e g r a r( f( x ) ,x ,a ,b ) L af u n c i nai n t e g r a re s< f ( x ) > ,c o nl av a r i a b l ed e p e n d i e n t e < x > ,yl af u n c i ne sp a r ai n t e g r a r s ee n t r ee l< a >l m i t e s y .< k e y >e se li n t e g r a d o rau t i l i z a ryd e b es e ru n n m e r oe n t e r oe n t r e1y6 ,a m b o si n c l u s i v e .E lv a l o rd e< k e y >s e l e c c i o n a e lo r d e nd el ar e g l ad ei n t e g r a c i nd eG a u s s K r o n r o d .N o r m a sd eo r d e ns u p e r i o r s o na d e c u a d o sp a r ai n t e g r a n d o sf u e r t e m e n t eo s c i l a n t e s . E li n t e g r a n d os ep u e d ee s p e c i f i c a rc o ne ln o m b r ed eM a x i m aod eL i s p f u n c i nuo p e r a d o r ,u n ae x p r e s i nl a m b d aou ng e n e r a l M x i m ae x p r e s i n . L ai n t e g r a c i nn u m r i c as eh a c ed ef o r m aa d a p t a t i v ap a r t i c i o n a n d ol a r e g i nd ei n t e g r a c i ne ns u b i n t e r v a l o sh a s t al ap r e c i s i nd e s e a d ae s a l c a n z a d o . T a l e sa r g u m e n t o ss o no p c i o n a l e sys ep u e d e ne s p e c i f i c a re nc u a l q u i e r o r d e n .T o d o se l l o st o m a nl af o r m ak e y=v a l` ' .L o sa r g u m e n t o s s o n : < e p s r e l > E r r o rr e l a t i v od e s e a d od el aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s1 d 8 . < e p s a b s > E le r r o ra b s o l u t od e s e a d op a r al aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s0 . < l i m i t > T a m a od e la r r a yi n t e r n o .< l i m i t >e se ln m e r om x i m o d es u b i n t e r v a l o sau t i l i z a r .E lv a l o rp r e d e t e r m i n a d oe s2 0 0 . ` Q u a d _ q a g' d e v u e l v eu n al i s t ad ec u a t r oe l e m e n t o s : *U n aa p r o x i m a c i nal ai n t e g r a l , *E le r r o ra b s o l u t oe s t i m a d od el aa p r o x i m a c i n , *L a se v a l u a c i o n e sd e li n t e g r a n d on m e r o , *U nc d i g od ee r r o r . E lc d i g od ee r r o r( e lc u a r t oe l e m e n t od e lr e s u l t a d o )p u e d et e n e rl a v a l o r e s : ` 0' s in oh ah a b i d op r o b l e m a s ; ` 1' s is eu t i l i z a r o nd e m a s i a d o si n t e r v a l o s ; ` 2' s is ed e t e c t au ne r r o rd er e d o n d e oe x c e s i v o ; ` 3' s is ep r o d u c eu nc o m p o r t a m i e n t oi n t e g r a n d om u ym a l a ; ` 6' S il ae n t r a d an oe sv l i d a .
F u n c i n :q u a d _ q a g s( < f ( x ) > ,< x >< a > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) F u n c i n :q u a d _ q a g s( < f > ,< x >< a > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) I n t e g r a c i nd eu n af u n c i ng e n e r a le nu ni n t e r v a l of i n i t o . ` Q u a d _ q a g s' i m p l e m e n t al as u b d i v i s i nd ei n t e r v a l o sg l o b a la d a p t a t i v ac o n e x t r a p o l a c i n( d eD o n c k e r ,1 9 7 8 )m e d i a n t ee la l g o r i t m oE p s i l o n( W y n n , 1 9 5 6 ) . ` Q u a d _ q a g s' c a l c u l al ai n t e g r a l i n t e g r a r( f( x ) ,x ,a ,b ) L af u n c i nai n t e g r a re s< f ( x ) > ,c o nl av a r i a b l ed e p e n d i e n t e < x > ,yl af u n c i ne sp a r ai n t e g r a r s ee n t r ee l< a >l m i t e s y . E li n t e g r a n d os ep u e d ee s p e c i f i c a rc o ne ln o m b r ed eM a x i m aod eL i s p f u n c i nuo p e r a d o r ,u n ae x p r e s i nl a m b d aou ng e n e r a l M x i m ae x p r e s i n . T a l e sa r g u m e n t o ss o no p c i o n a l e sys ep u e d e ne s p e c i f i c a re nc u a l q u i e r o r d e n .T o d o se l l o st o m a nl af o r m ak e y=v a l` ' .L o sa r g u m e n t o s s o n : < e p s r e l > E r r o rr e l a t i v od e s e a d od el aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s1 d 8 . < e p s a b s > E le r r o ra b s o l u t od e s e a d op a r al aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s0 .
192/633
28/08/13

< l i m i t > T a m a od e la r r a yi n t e r n o .< l i m i t >e se ln m e r om x i m o d es u b i n t e r v a l o sau t i l i z a r .E lv a l o rp r e d e t e r m i n a d oe s2 0 0 . ` Q u a d _ q a g s' d e v u e l v eu n al i s t ad ec u a t r oe l e m e n t o s : *U n aa p r o x i m a c i nal ai n t e g r a l , *E le r r o ra b s o l u t oe s t i m a d od el aa p r o x i m a c i n , *L a se v a l u a c i o n e sd e li n t e g r a n d on m e r o , *U nc d i g od ee r r o r . E lc d i g od ee r r o r( e lc u a r t oe l e m e n t od e lr e s u l t a d o )p u e d et e n e rl a v a l o r e s : ` 0' n oh ah a b i d op r o b l e m a s ; ` 1' d e m a s i a d o ss u b i n t e r v a l o s ; ` 2' S ed e t e c t u ne r r o rd er e d o n d e oe x c e s i v o ; ` 3' s ep r o d u c eu nc o m p o r t a m i e n t oi n t e g r a n d om u ym a l a ; ` 4' f a l l a d oac o n v e r g e r ` 5' l ai n t e g r a le sp r o b a b l e m e n t ed i v e r g e n t eod ec o n v e r g e n c i al e n t a ; ` 6' S il ae n t r a d an oe sv l i d a . E j e m p l o s : ( %I 1 )q u a d _ q a g s( x^( 1 / 2 )*l o g( 1/x ) ,x ,0 ,1 ,' e p s r e l=1 d 1 0 ) ; ( %O 1 )[ 0 . 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 8 ,1 . 1 1 0 2 2 3 0 2 4 6 2 5 1 6 E 1 5 ,3 1 5 ,0 ] T e n g ae nc u e n t aq u e` q u a d _ q a g s' e sm sp r e c i s oye f i c i e n t eq u e ` Q u a d _ q a g' p a r ae s t ai n t e g r a n d o .
F u n c i n :q u a d _ q a g i( < f ( x ) > ,< x >< a > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) F u n c i n :q u a d _ q a g i( < f > ,< x >< a > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) I n t e g r a c i nd eu n af u n c i ng e n e r a le nu ni n f i n i t oo i n t e r v a l os e m i i n f i n i t o .E li n t e r v a l os ep r o y e c t as o b r eu nn m e r of i n i t o s ea p l i c ai n t e r v a l oyl u e g ol am i s m ae s t r a t e g i aq u ee n` q u a d _ q a g s' . ` Q u a d _ q a g i' e v a l au n ad el a ss i g u i e n t e si n t e g r a l e s i n t e g r a r( f( x ) ,x ,a ,i n f ) i n t e g r a r( f( x ) ,x ,m i n f ,a ) i n t e g r a r( f( x ) ,x ,m i n f ,i n f ) s i g u i e n d oe lp r o c e d i m i e n t od eQ A G IQ u a d p a c k .L af u n c i nai n t e g r a re s < f ( x ) > ,c o n< x >v a r i a b l ed e p e n d i e n t e ,yl af u n c i ne ss e r i n t e g r a c i nd er a n g oi n f i n i t o . E li n t e g r a n d os ep u e d ee s p e c i f i c a rc o ne ln o m b r ed eM a x i m aod eL i s p f u n c i nuo p e r a d o r ,u n ae x p r e s i nl a m b d aou ng e n e r a l M x i m ae x p r e s i n . U n od el o sl m i t e sd el ai n t e g r a c i nd e b es e ri n f i n i t o .S in o ,e n t o n c e s ` Q u a d _ q a g i' s ea c a b ad ed e v o l v e rl af o r m an o m i n a l . T a l e sa r g u m e n t o ss o no p c i o n a l e sys ep u e d e ne s p e c i f i c a re nc u a l q u i e r o r d e n .T o d o se l l o st o m a nl af o r m ak e y=v a l` ' .L o sa r g u m e n t o s s o n : < e p s r e l > E r r o rr e l a t i v od e s e a d od el aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s1 d 8 . < e p s a b s > E le r r o ra b s o l u t od e s e a d op a r al aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s0 . < l i m i t > T a m a od e la r r a yi n t e r n o .< l i m i t >e se ln m e r om x i m o d es u b i n t e r v a l o sau t i l i z a r .E lv a l o rp r e d e t e r m i n a d oe s2 0 0 . ` Q u a d _ q a g i' d e v u e l v eu n al i s t ad ec u a t r oe l e m e n t o s : *U n aa p r o x i m a c i nal ai n t e g r a l , *E le r r o ra b s o l u t oe s t i m a d od el aa p r o x i m a c i n , *L a se v a l u a c i o n e sd e li n t e g r a n d on m e r o , *U nc d i g od ee r r o r .
193/633
28/08/13

E lc d i g od ee r r o r( e lc u a r t oe l e m e n t od e lr e s u l t a d o )p u e d et e n e rl a v a l o r e s : ` 0' n oh ah a b i d op r o b l e m a s ; ` 1' d e m a s i a d o ss u b i n t e r v a l o s ; ` 2' S ed e t e c t u ne r r o rd er e d o n d e oe x c e s i v o ; ` 3' s ep r o d u c eu nc o m p o r t a m i e n t oi n t e g r a n d om u ym a l a ; ` 4' f a l l a d oac o n v e r g e r ` 5' l ai n t e g r a le sp r o b a b l e m e n t ed i v e r g e n t eod ec o n v e r g e n c i al e n t a ; ` 6' S il ae n t r a d an oe sv l i d a .
F u n c i n :q u a d _ q a w c( < f ( x ) > ,< x >< c > ,< a > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) F u n c i n :q u a d _ q a w c( < f > ,< x >< c > ,< a > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) C a l c u l ae lv a l o rp r i n c i p a ld eC a u c h yd ef( x )/( x-c )d u r a n t eu nf i n i t o i n t e r v a l o .L ae s t r a t e g i ae sg l o b a la d a p t a t i v a ,m o d i f i c a d a I n t e g r a c i nC l e n s h a w C u r t i ss eu t i l i z ae nl o ss u b i n t e r v a l o sq u ec o n t i e n e n e lp u n t ox=c . ` Q u a d _ q a w c' c a l c u l ae lv a l o rp r i n c i p a ld eC a u c h yd e i n t e g r a r( f( x )/( x-c ) ,x ,a ,b ) s i g u i e n d oe lp r o c e d i m i e n t od eQ A W CQ u a d p a c k .L af u n c i nai n t e g r a re s ` < f ( x ) >/( < x >-< c > )' ,C o n< x >v a r i a b l ed e p e n d i e n t eye l f u n c i ne sl ad ei n t e g r a r s ee ne l< a >i n t e r v a l o . E li n t e g r a n d os ep u e d ee s p e c i f i c a rc o ne ln o m b r ed eM a x i m aod eL i s p f u n c i nuo p e r a d o r ,u n ae x p r e s i nl a m b d aou ng e n e r a l M x i m ae x p r e s i n . T a l e sa r g u m e n t o ss o no p c i o n a l e sys ep u e d e ne s p e c i f i c a re nc u a l q u i e r o r d e n .T o d o se l l o st o m a nl af o r m ak e y=v a l` ' .L o sa r g u m e n t o s s o n : < e p s r e l > E r r o rr e l a t i v od e s e a d od el aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s1 d 8 . < e p s a b s > E le r r o ra b s o l u t od e s e a d op a r al aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s0 . < l i m i t > T a m a od e la r r a yi n t e r n o .< l i m i t >e se ln m e r om x i m o d es u b i n t e r v a l o sau t i l i z a r .E lv a l o rp r e d e t e r m i n a d oe s2 0 0 . ` Q u a d _ q a w c' d e v u e l v eu n al i s t ad ec u a t r oe l e m e n t o s : *U n aa p r o x i m a c i nal ai n t e g r a l , *E le r r o ra b s o l u t oe s t i m a d od el aa p r o x i m a c i n , *L a se v a l u a c i o n e sd e li n t e g r a n d on m e r o , *U nc d i g od ee r r o r . E lc d i g od ee r r o r( e lc u a r t oe l e m e n t od e lr e s u l t a d o )p u e d et e n e rl a v a l o r e s : ` 0' n oh ah a b i d op r o b l e m a s ; ` 1' d e m a s i a d o ss u b i n t e r v a l o s ; ` 2' S ed e t e c t u ne r r o rd er e d o n d e oe x c e s i v o ; ` 3' s ep r o d u c eu nc o m p o r t a m i e n t oi n t e g r a n d om u ym a l a ; ` 6' S il ae n t r a d an oe sv l i d a .
F u n c i n :q u a d _ q a w f( < f ( x ) > ,< x >< a >< o m e g a > ,< t r i g > ,[ < e p s a b s > ,< l i m i t > ,< m a x p 1 > ,< l i m l s t > ] ) F u n c i n :q u a d _ q a w f( < f > ,< x >< a >< o m e g a > ,< t r i g > ,[ < e p s a b s > ,< l i m i t > ,< m a x p 1 > ,< l i m l s t > ] ) C a l c u l au nc o s e n od eF o u r i e rol at r a n s f o r m a d ad eF o u r i e rs i n u s o i d a le nu n i n t e r v a l os e m i i n f i n i t au t i l i z a n d ol af u n c i nQ A W FQ u a d p a c k .L om i s m o
194/633
28/08/13

S ea p l i c ae n f o q u ec o m oe n' L af u n c i nq u a d _ q a w o 'o nf i n i t as u c e s i v a s i n t e r v a l o s ,a c e l e r a n d ol ac o n v e r g e n c i am e d i a n t ee lE p s i l o n a l g o r i t m o( W y n n ,1 9 5 6 )s ea p l i c aal as e r i ed el ai n t e g r a l c o n t r i b u c i o n e s . ` Q u a d _ q a w f' c a l c u l al ai n t e g r a l i n t e g r a r( f( x )*w( x ) ,x ,a ,i n f ) L af u n c i np e s ows es e l e c c i o n am e d i a n t e< t r i g > : ' C o s ' w( x )=c o s( o m e g ax ) ` P e c a d o' w( x )=s e n( o m e g ax ) E li n t e g r a n d os ep u e d ee s p e c i f i c a rc o ne ln o m b r ed eM a x i m aod eL i s p f u n c i nuo p e r a d o r ,u n ae x p r e s i nl a m b d aou ng e n e r a l M x i m ae x p r e s i n . T a l e sa r g u m e n t o ss o no p c i o n a l e sys ep u e d e ne s p e c i f i c a re nc u a l q u i e r o r d e n .T o d o se l l o st o m a nl af o r m ak e y=v a l` ' .L o sa r g u m e n t o s s o n : < e p s a b s > E le r r o ra b s o l u t od e s e a d op a r al aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s1 d 1 0 . < l i m i t > T a m a od e la r r a yi n t e r n o .( < l i m i t >-< l i m l s t > )/2e se l n m e r om x i m od es u b i n t e r v a l o sau t i l i z a r .E lv a l o rp r e d e t e r m i n a d oe s2 0 0 . < m a x p 1 > N m e r om x i m od em o m e n t o sd eC h e b y s h e v .D e b es e rm a y o rq u e0 . E lv a l o rp r e d e t e r m i n a d oe s1 0 0 . < l i m l s t > C o t as u p e r i o rd e ln m e r od ec i c l o s .D e b es e rm a y o ro i g u a la3 .E lv a l o rp r e d e t e r m i n a d oe s1 0 . ` Q u a d _ q a w f' d e v u e l v eu n al i s t ad ec u a t r oe l e m e n t o s : *U n aa p r o x i m a c i nal ai n t e g r a l , *E le r r o ra b s o l u t oe s t i m a d od el aa p r o x i m a c i n , *L a se v a l u a c i o n e sd e li n t e g r a n d on m e r o , *U nc d i g od ee r r o r . E lc d i g od ee r r o r( e lc u a r t oe l e m e n t od e lr e s u l t a d o )p u e d et e n e rl a v a l o r e s : ` 0' n oh ah a b i d op r o b l e m a s ; ` 1' d e m a s i a d o ss u b i n t e r v a l o s ; ` 2' S ed e t e c t u ne r r o rd er e d o n d e oe x c e s i v o ; ` 3' s ep r o d u c eu nc o m p o r t a m i e n t oi n t e g r a n d om u ym a l a ; ` 6' S il ae n t r a d an oe sv l i d a .
F u n c i n :L af u n c i nq u a d _ q a w o( < f ( x ) > ,< x >< a > ,< o m e g a > ,< t r i g > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ,< m a x p 1 > ,< l i m l s t> ] ) F u n c i n :L af u n c i nq u a d _ q a w o( < f > ,< x >< a > ,< o m e g a > ,< t r i g > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ,< m a x p 1 > ,< l i m l s t > ] ) I n t e g r a c i nd ec o s( o m e g ax )f( x )os i n( o m e g ax )f( x )s o b r eu n i n t e r v a l of i n i t o ,s i e n d oo m e g au n ac o n s t a n t e .L ae v a l u a c i nd el a sr e g l a s c o m p o n e n t es eb a s ae nl at c n i c ad eC l e n s h a w C u r t i sm o d i f i c a d a . ` L af u n c i nq u a d _ q a w o' s ea p l i c al as u b d i v i s i na d a p t a t i v ac o ne x t r a p o l a c i n , s i m i l a ra` q u a d _ q a g s' . ` L af u n c i nq u a d _ q a w o' r e a l i z al ai n t e g r a c i nu t i l i z a n d ol ar u t i n aQ A W OQ u a d p a c k : i n t e g r a r( f( x )*w( x ) ,x ,a ,b ) L af u n c i np e s ows es e l e c c i o n am e d i a n t e< t r i g > : ' C o s ' w( x )=c o s( o m e g ax ) ` P e c a d o' w( x )=s e n( o m e g ax ) E li n t e g r a n d os ep u e d ee s p e c i f i c a rc o ne ln o m b r ed eM a x i m aod eL i s p f u n c i nuo p e r a d o r ,u n ae x p r e s i nl a m b d aou ng e n e r a l M x i m ae x p r e s i n . T a l e sa r g u m e n t o ss o no p c i o n a l e sys ep u e d e ne s p e c i f i c a re nc u a l q u i e r o r d e n .T o d o se l l o st o m a nl af o r m ak e y=v a l` ' .L o sa r g u m e n t o s
195/633
28/08/13
s o n :
< e p s r e l > E r r o rr e l a t i v od e s e a d od el aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s1 d 8 . < e p s a b s > E le r r o ra b s o l u t od e s e a d op a r al aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s0 . < l i m i t > T a m a od e la r r a yi n t e r n o .< l i m i t >/2e se ln m e r om x i m o d es u b i n t e r v a l o sau t i l i z a r .E lv a l o rp r e d e t e r m i n a d oe s2 0 0 . < m a x p 1 > N m e r om x i m od em o m e n t o sd eC h e b y s h e v .D e b es e rm a y o rq u e0 . E lv a l o rp r e d e t e r m i n a d oe s1 0 0 . < l i m l s t > C o t as u p e r i o rd e ln m e r od ec i c l o s .D e b es e rm a y o ro i g u a la3 .E lv a l o rp r e d e t e r m i n a d oe s1 0 . ` L af u n c i nq u a d _ q a w o' d e v u e l v eu n al i s t ad ec u a t r oe l e m e n t o s : *U n aa p r o x i m a c i nal ai n t e g r a l , *E le r r o ra b s o l u t oe s t i m a d od el aa p r o x i m a c i n , *L a se v a l u a c i o n e sd e li n t e g r a n d on m e r o , *U nc d i g od ee r r o r . E lc d i g od ee r r o r( e lc u a r t oe l e m e n t od e lr e s u l t a d o )p u e d et e n e rl a v a l o r e s : ` 0' n oh ah a b i d op r o b l e m a s ; ` 1' d e m a s i a d o ss u b i n t e r v a l o s ; ` 2' S ed e t e c t u ne r r o rd er e d o n d e oe x c e s i v o ; ` 3' s ep r o d u c eu nc o m p o r t a m i e n t oi n t e g r a n d om u ym a l a ; ` 6' S il ae n t r a d an oe sv l i d a .
F u n c i n :L af u n c i nq u a d _ q a w s( < f ( x ) > ,< x >< a > ,< a l p h a > , ,< w f u n > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) F u n c i n :L af u n c i nq u a d _ q a w s( < f > ,< x >< a > ,< a l p h a > , ,< w f u n > ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) I n t e g r a c i nd ew( x )f( x )e nu ni n t e r v a l of i n i t o ,d o n d ew( x )e su n a c i e r t aa l g e b r a i c aof u n c i nl o g a r t m i c a .Aa d a p t a t i v ag l o b a l S ea p l i c al ae s t r a t e g i ad es u b d i v i s i n ,c o nm o d i f i c a c i nC l e n s h a w C u r t i s i n t e g r a c i ne nl o ss u b i n t e r v a l o sq u ec o n t i e n e nl o sp u n t o sf i n a l e sd el a i n t e r v a l od ei n t e g r a c i n . ` L af u n c i nq u a d _ q a w s' r e a l i z al ai n t e g r a c i nu t i l i z a n d ol ar u t i n aQ A W Sd eQ u a d p a c k : i n t e g r a r( f( x )*w( x ) ,x ,a ,b ) L af u n c i np e s ows es e l e c c i o n am e d i a n t e< w f u n > : ` 1' w( x )=( x-a )â l f a( b-x )^b e t a ` 2' w( x )=( x-a )â l f a( b-x )^l o gb e t a( x-a ) ` 3' w( x )=( x-a )â l f a( b-x )^b e t al o g( b-x ) ` 4' w( x )=( x-a )â l f a( b-x )^b e t al o g( x-a )l o g( b-x ) E li n t e g r a n d os ep u e d ee s p e c i f i c a rc o ne ln o m b r ed eM a x i m aod eL i s p f u n c i nuo p e r a d o r ,u n ae x p r e s i nl a m b d aou ng e n e r a l M x i m ae x p r e s i n . T a l e sa r g u m e n t o ss o no p c i o n a l e sys ep u e d e ne s p e c i f i c a re nc u a l q u i e r o r d e n .T o d o se l l o st o m a nl af o r m ak e y=v a l` ' .L o sa r g u m e n t o s s o n : < e p s r e l > E r r o rr e l a t i v od e s e a d od el aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s1 d 8 . < e p s a b s > E le r r o ra b s o l u t od e s e a d op a r al aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s0 . < l i m i t > T a m a od e la r r a yi n t e r n o .< l i m i t >e se ln m e r om x i m od e s u b i n t e r v a l o sau t i l i z a r .E lv a l o rp r e d e t e r m i n a d oe s2 0 0 . ` L af u n c i nq u a d _ q a w s' d e v u e l v eu n al i s t ad ec u a t r oe l e m e n t o s :
196/633
28/08/13

*U n aa p r o x i m a c i nal ai n t e g r a l , *E le r r o ra b s o l u t oe s t i m a d od el aa p r o x i m a c i n , *L a se v a l u a c i o n e sd e li n t e g r a n d on m e r o , *U nc d i g od ee r r o r . E lc d i g od ee r r o r( e lc u a r t oe l e m e n t od e lr e s u l t a d o )p u e d et e n e rl a v a l o r e s : ` 0' n oh ah a b i d op r o b l e m a s ; ` 1' d e m a s i a d o ss u b i n t e r v a l o s ; ` 2' S ed e t e c t u ne r r o rd er e d o n d e oe x c e s i v o ; ` 3' s ep r o d u c eu nc o m p o r t a m i e n t oi n t e g r a n d om u ym a l a ; ` 6' S il ae n t r a d an oe sv l i d a .
F u n c i n :q u a d _ q a g p( < f ( x ) > ,< x >< a > , ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) F u n c i n :q u a d _ q a g p( < f > ,< x >< a > , ,[ < e p s r e l > ,< e p s a b s > ,< l i m i t > ] ) I n t e g r a c i nd eu n af u n c i ng e n e r a le nu ni n t e r v a l of i n i t o . ` Q u a d _ q a g p' i m p l e m e n t al as u b d i v i s i nd ei n t e r v a l o sg l o b a la d a p t a t i v ac o n e x t r a p o l a c i n( d eD o n c k e r ,1 9 7 8 )m e d i a n t ee la l g o r i t m oE p s i l o n( W y n n , 1 9 5 6 ) . ` Q u a d _ q a g p' c a l c u l al ai n t e g r a l i n t e g r a r( f( x ) ,x ,a ,b ) L af u n c i nai n t e g r a re s< f ( x ) > ,c o nl av a r i a b l ed e p e n d i e n t e < x > ,yl af u n c i ne sp a r ai n t e g r a r s ee n t r ee l< a >l m i t e s y . E li n t e g r a n d os ep u e d ee s p e c i f i c a rc o ne ln o m b r ed eM a x i m aod eL i s p f u n c i nuo p e r a d o r ,u n ae x p r e s i nl a m b d aou ng e n e r a l M x i m ae x p r e s i n . P a r ae li n t e g r a d o r ,e lu s u a r i od e b ep r o p o r c i o n a ru n al i s t ad el o sp u n t o se nl o sq u e e li n t e g r a n d oe ss i n g u l a rod i s c o n t i n u a . T a l e sa r g u m e n t o ss o no p c i o n a l e sys ep u e d e ne s p e c i f i c a re nc u a l q u i e r o r d e n .T o d o se l l o st o m a nl af o r m ak e y=v a l` ' .L o sa r g u m e n t o s s o n : < e p s r e l > E r r o rr e l a t i v od e s e a d od el aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s1 d 8 . < e p s a b s > E le r r o ra b s o l u t od e s e a d op a r al aa p r o x i m a c i n .E lv a l o rp r e d e t e r m i n a d oe s0 . < l i m i t > T a m a od e la r r a yi n t e r n o .< l i m i t >e se ln m e r om x i m o d es u b i n t e r v a l o sau t i l i z a r .E lv a l o rp r e d e t e r m i n a d oe s2 0 0 . ` Q u a d _ q a g p' d e v u e l v eu n al i s t ad ec u a t r oe l e m e n t o s : *U n aa p r o x i m a c i nal ai n t e g r a l , *E le r r o ra b s o l u t oe s t i m a d od el aa p r o x i m a c i n , *L a se v a l u a c i o n e sd e li n t e g r a n d on m e r o , *U nc d i g od ee r r o r . E lc d i g od ee r r o r( e lc u a r t oe l e m e n t od e lr e s u l t a d o )p u e d et e n e rl a v a l o r e s : ` 0' n oh ah a b i d op r o b l e m a s ; ` 1' d e m a s i a d o ss u b i n t e r v a l o s ; ` 2' S ed e t e c t u ne r r o rd er e d o n d e oe x c e s i v o ; ` 3' s ep r o d u c eu nc o m p o r t a m i e n t oi n t e g r a n d om u ym a l a ; ` 4' f a l l a d oac o n v e r g e r ` 5' l ai n t e g r a le sp r o b a b l e m e n t ed i v e r g e n t eod ec o n v e r g e n c i al e n t a ; ` 6'
197/633
28/08/13
S il ae n t r a d an oe sv l i d a . E j e m p l o s :
( %I 1 )q u a d _ q a g p( x^3*l o g( a b s( ( x^2 1 )*( x^2 2 ) ) ) ,x ,0 , 3 ,[ 1 ,s q r t( 2 ) ] ) ; ( %O 1 )[ 5 2 . 7 4 0 7 4 8 3 8 3 4 7 1 4 3 ,2 . 6 2 4 7 6 3 2 6 8 9 5 4 6 6 6 3 e 7 ,1 0 2 9 ,0 ] ( %I 2 )q u a d _ q a g s( x^3*l o g( a b s( ( x^2 1 )*( x^2 2 ) ) ) ,x ,0 ,3 ) ; ( %O 2 )[ 5 2 . 7 4 0 7 4 8 4 7 9 5 1 4 9 4 ,4 . 0 8 8 4 4 3 2 1 9 5 2 9 8 3 6 e 7 ,1 8 6 9 ,0 ] E li n t e g r a n d ot i e n es i n g u l a r i d a d e se ne l` 1' y `s q r t( 2 ) ' ,a s q u el ao f e r t a e s t o sp u n t o sa` q u a d _ q a g p' .O b s e r v a m o st a m b i nq u e` q u a d _ q a g p' e s m sp r e c i s oym se f i c i e n t eq u e` q u a d _ q a g s' .
F u n c i n :q u a d _ c o n t r o l( ,[ < v a l o r > ] ) C o n t r o l ae lt r a t a m i e n t od ee r r o r e sd eQ u a d p a c k .E lp a r m e t r od e b es e ru n o d el o ss i g u i e n t e ss m b o l o s : ` C u r r e n t _ e r r o r' E ln m e r oa c t u a ld ee r r o r ` C o n t r o l' C o n t r o l as il o sm e n s a j e ss ei m p r i m e non o .S is ee s t a b l e c ee n c e r oom e n o s ,s es u p r i m e nl o sm e n s a j e s . ` M a x _ m e s s a g e' E ln m e r om x i m od ev e c e sq u eu nm e n s a j es ev aai m p r i m i r . S in os el ed a< v a l o r > ,ac o n t i n u a c i n ,e lv a l o ra c t u a ld el a s ed e v u e l v e .S is ed a< v a l o r > ,e lv a l o rd es ee s t a b l e c e a lv a l o rd a d o .
20 Ecuaciones
F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s
20.1 Funciones y variables para ecuaciones

V a r i a b l ed e ls i s t e m a :%r n u m _ l i s t V a l o rp o rd e f e c t o :[ ]' ` %R n u m _ l i s t' e sl al i s t ad ev a r i a b l e si n t r o d u c i d a se nl a ss o l u c i o n e sd e ' R e s o l v e r 'y` a l g s y s .` %R' v a r i a b l e ss ea a d e na ` %r n u m _ l i s t ' e ne lo r d e ne nq u es ec r e a r o n .E s t oe sc o n v e n i e n t ep a r ah a c e r s u s t i t u c i o n e se nl as o l u c i nm sa d e l a n t e .S er e c o m i e n d ae lu s od e e s t al i s t ae nl u g a rd eh a c e r` c o n c a t( ' %r ,j ) ' . ( %I 1 )s o l v e( [ x+y=3 ] ,[ x ,y ] ) ; ( %O 1 )[ [ x=3%r 1 , %y=r 1 ] ] ( %I 2 ) %r n u m _ l i s t ; ( %O 2 )[ %r 1 ] ( %I 3 )S o l :r e s o l v e r( [ x+2*y+z=3*4 ] ,[ x ,y ,z ] ) ; ( %O 3 )[ [ x=-2 %-3 %r 3r 2+4 ,y= %r 3 ,z= %r 2 ] ] ( %I 4 ) %r n u m _ l i s t ; ( %O 4 )[ %r 2 ,r 3 % ] ( %I 5 )p a r ai :1t h r ul o n g i t u d( %r n u m _ l i s t )h a c e r s o l :s u b s t( t[ i ] , %r n u m _ l i s t[ i ] ,s o l )$ ( %I 6 )S o l ; ( %O 6 )[ [ x=-2t-t3+4 ,y=t ,z=t ] ] 2121
V a r i a b l eo p c i o n a l :a l g e p s i l o n V a l o rp o rd e f e c t o :1 0^8 ` A l g e p s i l o n' e su t i l i z a d op o r à l g s y s .
V a r i a b l eo p c i o n a l :a l g e x a c t V a l o rp o rd e f e c t o :f a l s e' ` A l g e x a c t' a f e c t aa lc o m p o r t a m i e n t od ea l g s y s ` 'd el as i g u i e n t em a n e r a : S i` a l g e x a c t' e s `t r u e ' ,` a l g s y s' s i e m p r el l a m a `r e s o l v e r 'yl u e g o u t i l i z a` r e a l r o o t s' e nf a l l o s `r e s o l v e r ' 's . S i` a l g e x a c t' e s 'f a l s e' , 'r e s o l v e r' s el l a m as l os il a n of u eu n i v a r i a d o ,os ie sc u a d r t i c aob i q u a d r a t i c . A s ` a l g e x a c t :t r u e' n og a r a n t i z a n i c a ss o l u c i o n e se x a c t a s , s l oq u e` a l g s y s' s e r e lp r i m e ri n t e n t ot a nd u r oc o m op u e d ap a r ad a re x a c t a s o l u c i o n e s ,ys l od a r r e s u l t a d o sa p r o x i m a d o ss it o d ol od e m sf a l l a .
198/633
28/08/13
F u n c i n :a l g s y s( [ < e x p r _ 1 > ,. . . ,< e x p r _ m > ] ,[ < x _ 1 > ,. . . ,< x _ n > ] ) F u n c i n :a l g s y s( [ < e q n _ 1 > ,. . . ,< e q n _ m > ] ,[ < x _ 1 > ,. . . ,< x _ n > ] ) R e s u e l v el o sp o l i n o m i o s< e x p r _ 1 >s i m u l t n e a ,. . . ,< e x p r _ m >o e c u a c i o n e sp o l i n m i c a s< e q n _ 1 > ,. . . ,< e q n _ m >p a r al a sv a r i a b l e s < x _ 1 > ,. . . ,< x _ n > .U n< e x p r >e x p r e s i ne se q u i v a l e n t eau n e c u a c i n` e x p r=0' .P u e d eh a b e rm se c u a c i o n e sq u ev a r i a b l e s ov i c e v e r s a . ` A l g s y s' d e v u e l v eu n al i s t ad es o l u c i o n e s ,c a d as o l u c i nd a d ac o m o u n al i s t ad ee c u a c i o n e sa s o c i a n d ov a l o r e sal a sv a r i a b l e sd el a< x _ 1 > ,. . . , < x _ n >q u es a t i s f a c e ne ls i s t e m ad ee c u a c i o n e s .S ia l g s y s` ' n op u e d e e n c o n t r a ru n as o l u c i n ,s ed e v u e l v eu n al i s t av a c a` [ ]' . L o ss m b o l o s %r 1` ' , ` %r 2 ' ,. . . ,e sn e c e s a r i os ei n t r o d u c e na r e p r e s e n t a rp a r m e t r o sa r b i t r a r i o se nl as o l u c i n ,e s t a sv a r i a b l e s T a m b i ns ea n e x a nal al i s t a' %r n u m _ l i s t ' . E lm t o d oe sc o m os i g u e : 1 .E np r i m e rl u g a rl a se c u a c i o n e ss ei n c l u y e nys er e p a r t e ne ns u b s i s t e m a s . 2 .P a r ac a d a< S _ i >s u b s i s t e m a ,u n< E >e c u a c i nyu n av a r i a b l ed e< x > s es e l e c c i o n a n .L av a r i a b l es ee l i g ep a r aq u et e n g am sb a j ad i s t i n t od ec e r o g r a d o .Ac o n t i n u a c i n ,l ar e s u l t a n t ed e< E >y< E _ j >c o nr e s p e c t oa < x >s ec a l c u l ap a r ac a d au n ad el a se c u a c i o n e s< E _ j >r e s t a n t ee n l a< S _ i >s u b s i s t e m a .E s t op r o d u c eu n an u e v a< S _ i ' >s u b s i s t e m a u n ai n c g n i t am e n o s ,c o m o< x >h as i d oe l i m i n a d o .E lp r o c e s o a h o r av u e l v ea( 1 ) . 3 .F i n a l m e n t e ,u ns u b s i s t e m ac o n s i s t e n t ee nu n a n i c ae c u a c i ne s o b t e n i d o .S il ae c u a c i ne sm u l t i v a r i a n t eyn os e a p r o x i m a c i o n e se nf o r m a t od e c i m a ld ec o m af l o t a n t et i e n e n h ai n t r o d u c i d o ,ac o n t i n u a c i n ,' r e s o l v e r 'e s t l l a m a d oae n c o n t r a ru n ae x a c t a s o l u c i n . E na l g u n o sc a s o s ,r e s o l v e r` ' n oe sc a p a zd ee n c o n t r a ru n as o l u c i n ,o s il oh a c el as o l u c i np u e d es e ru n ae x p r e s i nm u yg r a n d e . S il ae c u a c i ne si n c g n i t aye sl i n e a l , c u a d r t i c a ,ob i c u a d r t i c o ,ac o n t i n u a c i n ,d en u e v o` r e s o l v e r' s el l a m as in oh a y s eh a ni n t r o d u c i d oa p r o x i m a c i o n e s .S ia p r o x i m a c i o n e st i e n e n h a ni n t r o d u c i d ool ae c u a c i nn oe su n i v a r i a n t eyt a m p o c o l i n e a l ,c u a d r t i c a ,ob i c u a d r t i c o ,ac o n t i n u a c i n ,s ie li n t e r r u p t o r ` R e a l o n l y' e s `t r u e ' ,l af u n c i n` r e a l r o o t s "e s t l l a m a d oa e n c o n t r a rl a ss o l u c i o n e sc o nv a l o r e sr e a l e s .S i` r e a l o n l y' e s 'f a l s e' , e n t o n c e sa l l r o o t s' s el l a m a 'q u ep a r e c ed ev e r d a dy s o l u c i o n e sd ev a l o rc o m p l e j o . S ia l g s y s` ' p r o d u c eu n as o l u c i nq u et i e n em e n o ss i g n i f i c a t i v o d g i t o sq u el o sr e q u e r i d o s ,e lu s u a r i op u e d ec a m b i a re lv a l o rd e ` A l g e p s i l o n' au nv a l o rm sa l t o . S i` a l g e x a c t' e s t a j u s t a d oa 't r u e' , 'r e s o l v e r' s i e m p r es el l a m a r . 4 .P o r l t i m o ,l a ss o l u c i o n e so b t e n i d a se ne lp a s o( 3 )s es u s t i t u y e n e nl o sn i v e l e sa n t e r i o r e sye lp r o c e s ov u e l v eal as o l u c i n( 1 ) . C u a n d oa l g s y s` ' s ee n c u e n t r ac o nu n ae c u a c i nc o nm l t i p l e si n c g n i t a sq u ec o n t i e n e a p r o x i m a c i o n e se nc o m af l o t a n t e( n o r m a l m e n t ed e b i d oal ai m p o s i b i l i d a dd ee n c o n t r a r s o l u c i o n e se x a c t a se nu n ae t a p aa n t e r i o r ) ,e n t o n c e sn oi n t e n t a a p l i c a rm t o d o se x a c t o sp a r ae s t a se c u a c i o n e syi m p r i m ee l m e n s a j e :" à l g s y s' n op u e d er e s o l v e r-s i s t e m ad e m a s i a d oc o m p l i c a d o ." I n t e r a c c i o n e sc o n` r a d c a n' p u e d ep r o d u c i rg r a n d e soc o m p l i c a d a s e x p r e s i o n e s .E ne s ec a s o ,p u e d es e rp o s i b l ea i s l a rp a r t e sd e e lr e s u l t a d oc o n` p i c k a p a r t' o 'r e v e l a r' . E no c a s i o n e s ,` r a d c a n' p u e d ei n t r o d u c i rl au n i d a di m a g i n a r i a %i ` 'e nu n s o l u c i nq u ee nr e a l i d a de sd ev a l o rr e a l . E j e m p l o s : ( %I 1 )E 1 :2*x*( 1-a 1 )-2*( x-1 )*a 2 ; ( %O 1 )2( 1-a 1 )x-2a 2( x-1 ) ( %I 2 )e 2 :a 2-a 1 ; ( %O 2 )a 2-a 1 ( %I 3 )e 3 :A 1*( y-x^2+1 ) ; 2 ( %O 3 )A 1( -y-x+1 ) ( %I 4 )e 4 :a 2*( y-( x-1 )^2 ) ; 2 ( %O 4 )a 2( y-( x-1 ) ) ( %I 5 )a l g s y s( [ e 1 ,e 2 ,e 3 ,e 4 ] ,[ x ,y ,a 1 ,a 2 ] ) ; ( %O 5 )[ [ x=0 ,y= %r 1 ,a 1=0 ,a 2=0 ] , [ X=1 ,y=0 ,a 1=1 ,a 2=1 ] ] ( %I 6 )e 1 :x^2-y^2 ; 22 ( %O 6 )x-y ( %I 7 )e 2 :1-y+2*y^2-x+x^2 ; 22 ( %O 7 )2y-y+x-x-1 ( %I 8 )a l g s y s( [ e 1 ,e 2 ] ,[ x ,y ] ) ;
199/633
28/08/13

11 ( %O 8 )[ [ x=,y=] , ( 3 )s q r ts q r t( 3 ) 1111 [ X=,y=] ,[ x=,y=] ,[ x=1 ,y=1 ] ] ( 3 )s q r ts q r t( 3 )33
F u n c i n :a l l r o o t s( e x p r ) F u n c i n :a l l r o o t s( < e q n > ) C a l c u l aa p r o x i m a c i o n e sn u m r i c a sd el a sr a c e sr e a l e syc o m p l e j a sd e e lp o l i n o m i oe x p roe c u a c i np o l i n m i c a< e q n >d eu n av a r i a b l e . L ab a n d e r a` p o l y f a c t o r' a l `t r u e 'h a c eq u e` a l l r o o t s' f a c t o r i z a re l p o l i n o m i os o b r el o sn m e r o sr e a l e ss ie lp o l i n o m i oe sr e a l ,o s o b r el o sn m e r o sc o m p l e j o s ,s ie lp o l i n o m i oe sc o m p l e j o . ` A l l r o o t s' p u e d e nd a rr e s u l t a d o si n e x a c t o se nc a s od em l t i p l e sr a c e s . S ie lp o l i n o m i oe sr e a l ,` a l l r o o t s( %i* )' )p u e d er e n d i rm s a p r o x i m a c i o n e sp r e c i s a sq u e` a l l r o o t s( )' ,c o m o à l l r o o t s ' i n v o c au na l g o r i t m od i f e r e n t ee ne s ec a s o . ` A l l r o o t s' n or e c h a z ap o l i n o m i o s .S er e q u i e r eq u ee ln u m e r a d o r d e s p u sd e` i n gr a t a ' 'd e b es e ru np o l i n o m i o ,yr e q u i e r eq u ee l d e n o m i n a d o rs e a ,c o m om u c h o ,u nn m e r oc o m p l e j o .C o m or e s u l t a d od ee s t e ` A l l r o o t s "s i e m p r ed e v o l v e r u ne q u i v a l e n t e( p e r of a c t o r i z a d a ) e x p r e s i n ,s i` p o l y f a c t o r' e s `t r u e ' . P a r ap o l i n o m i o sc o m p l e j o ss eu t i l i z ae la l g o r i t m od eJ e n k i n syT r a u b ( A l g o r i t m o4 1 9 ,C o m .A C M ,v o l .1 5 ,( 1 9 7 2 ) ,p .9 7 ) .E ns e r i o p o l i n o m i o ss eu t i l i z ae la l g o r i t m od eJ e n k i n s( a l g o r i t m o4 9 3 , A C MT O M S ,v o l .1 ,( 1 9 7 5 ) ,p . 1 7 8 ) . E j e m p l o s : ( %I 1 )l ae c u a c i n :( 1+2*x )^3=1 3 , 5*( 1+x^5 ) ; 35 ( %O 1 )( 2x+1 )=1 3 . 5( x+1 ) ( %I 2 )s o l n :a l l r o o t s( e c u a c i n ) ; ( %O 2 )[ x=0 . 8 2 9 6 7 4 9 9 0 2 1 2 9 3 6 1 ,x=-1 . 0 1 5 7 5 5 5 4 3 8 2 8 1 2 1 , x=0 . 9 6 5 9 6 2 5 1 5 2 1 9 6 3 6 9 %i-0 . 4 0 6 9 5 9 7 2 3 1 9 2 4 0 7 5 , x=-0 . 9 6 5 9 6 2 5 1 5 2 1 9 6 3 6 9 %i-0 . 4 0 6 9 5 9 7 2 3 1 9 2 4 0 7 5 ,x=1 . 0 ] ( %I 3 )p a r ae lc o r r e oe nS o l n d o( e 2 :s u b s t( e ,l ae c u a c i n ) ,d i s p( e x p a n d( i z d a .( e 2 )-r h s( e 2 ) ) ) ) ; -3 . 5 5 2 7 1 3 6 7 8 8 0 0 5 E 1 5 -5 . 3 2 9 0 7 0 5 1 8 2 0 0 7 5 E 1 5 4 . 4 4 0 8 9 2 0 9 8 5 0 0 6 3 E 1 5 %i-4 . 8 8 4 9 8 1 3 0 8 3 5 0 6 9 E 1 5 -4 . 4 4 0 8 9 2 0 9 8 5 0 0 6 3 E 1 5 %i-4 . 8 8 4 9 8 1 3 0 8 3 5 0 6 9 E 1 5 3 . 5 5 2 7 1 3 6 7 8 8 0 0 5 E 1 5 ( %O 3 )d o n e ( %I 4 )p o l y f a c t o r :t r u e$ ( %I 5 )a l l r o o t s( e c u a c i n ) ; ( %O 5 )-1 3 . 5( x-1 . 0 )( x-, 8 2 9 6 7 4 9 9 0 2 1 2 9 3 6 1 ) 2 ( X+1 , 0 1 5 7 5 5 5 4 3 8 2 8 1 2 1 )( x+x, 8 1 3 9 1 9 4 4 6 3 8 4 8 1 5 1 +1 . 0 9 8 6 9 9 7 9 7 1 1 0 2 8 8 )
F u n c i n :b f a l l r o o t s( e x p r ) F u n c i n :b f a l l r o o t s( < e q n > ) C a l c u l aa p r o x i m a c i o n e sn u m r i c a sd el a sr a c e sr e a l e syc o m p l e j a sd e e lp o l i n o m i oe x p roe c u a c i np o l i n m i c a< e q n >d eu n av a r i a b l e . E nt o d o sl o sa s p e c t o s ,` b f a l l r o o t s' e si d n t i c aal a à l l r o o t s e x c e p t o q u e` b f a l l r o o t s' c a l c u l al a sr a c e su t i l i z a n d ob i g f l o a t s .V e r ` A l l r o o t s "p a r am si n f o r m a c i n .
V a r i a b l eo p c i o n a l :b a c k s u b s t V a l o rp o rd e f e c t o :t r u e' C u a n d o` b a c k s u b s t' e s 'f a l s e' ,e v i t av o l v e rs u s t i t u c i ne n ` L i n s o l v e "d e s p u sd el a se c u a c i o n e ss eh a nt r i a n g u l a r i a c i n .E s t op u e d e s e r t i le np r o b l e m a sm u yg r a n d e se ns u s t i t u c i nh a c i aa t r sc a u s a r a l ag e n e r a c i nd ee x p r e s i o n e se x t r e m a d a m e n t eg r a n d e s . ( %I 1 )e q 1 :x+y+z=6$ ( %I 2 )e q 2 :x-y+z=2$ ( %I 3 )E Q 3 :x+y-z=0$ ( %I 4 )b a c k s u b s t :f a l s e$
200/633
28/08/13

( %I 5 )l i n s o l v e( [ E Q 1 ,E Q 2 ,E Q 3 ] ,[ x ,y ,z ] ) ; ( %O 5 )[ x=z-y ,y=2 ,z=3 ] ( %I 6 )b a c k s u b s t :t r u e$ ( %I 7 )l i n s o l v e( [ E Q 1 ,E Q 2 ,E Q 3 ] ,[ x ,y ,z ] ) ; ( %O 7 )[ x=1 ,y=2 ,z=3 ]
V a r i a b l eo p c i o n a l :r u p t u r a V a l o rp o rd e f e c t o :t r u e' C u a n d o` r u p t u r a' e s 't r u e' , 'r e s o l v e r' e x p r e s ad es o l u c i o n e sc b i c o yl a se c u a c i o n e sd ec u a r t og r a d oe nt r m i n o sd es u b e x p r e s i o n e sc o m u n e s ,q u es o n a s i g n a d oae t i q u e t a s( ` %t 1' , ' %t 2' ,e t c . ) D el oc o n t r a r i o ,n os ei d e n t i f i c a ns u b e x p r e s i o n e sc o m u n e s . ` R u p t u r a :t r u e "s l ot i e n ee f e c t oc u a n d o` p r o g r a m m o d e' e s 'f a l s e' . E j e m p l o s : ( %I 1 )p r o g r a m m o d e :f a l s e$ ( %I 2 )r u p t u r a :t r u e$ ( %I 3 )s o l v e( x^3+x^2-1 ) ; s q r t( 2 3 )2 51 / 3 ( %T 3 )( -+) 6s q r t( 3 )5 4 S o l u c i n : s q r t( 3 ) %i1 s q r t( 3 )i %1221 ( %T 4 )x=( ) %t 3+229 %t 33 s q r t( 3 ) %i1 s q r t( 3 )i %1221 ( %T 5 )x=( ) %t 3+229 %t 33 11 ( %T 6 )x %=t 3+9 %3t 3 ( %O 6 )[ %t 4 ,t 5 % , %t 6 ] ( %I 6 )r u p t u r a :f a l s e$ ( %I 7 )s o l v e( x^3+x^2-1 ) ; S o l u c i n : s q r t( 3 ) %i1 22s q r t( 2 3 )2 51 / 3 ( %T 7 )x=-+( -+) s q r t( 2 3 )2 51 / 36s q r t( 3 )5 4 9( -+) 6s q r t( 3 )5 4 s q r t( 3 ) %i11 ( )223 s q r t( 2 3 )2 51 / 3s q r t( 3 ) %i1 ( %T 8 )x=( -+)( ) 6s q r t( 3 )5 422 s q r t( 3 ) %i1 221 -+ s q r t( 2 3 )2 51 / 33 9( -+) 6s q r t( 3 )5 4 s q r t( 2 3 )2 51 / 311 ( %T 9 )x=( -+)+6s q r t( 3 )5 4s q r t( 2 3 )2 51 / 33 9( -+) 6s q r t( 3 )5 4 ( %O 9 )[ %t 7 ,t 8 % , %t 9 ]
F u n c i n :d i m e n s i n( < e q n > ) F u n c i n :d i m e n s i n( < e q n _ 1 > ,. . . ,< e q n _ n > ) ' D i m e n s i n 'e su np a q u e t ep a r ae la n l i s i sd i m e n s i o n a l .L o a d( " d i m e n " )' c a r g ae lp a q u e t e .` D e m o( "d i m e n" )' m u e s t r au n ab r e v e d e m o s t r a c i n .
V a r i a b l eo p c i o n a l :d i s p f l a g V a l o rp o rd e f e c t o :t r u e' S is ee s t a b l e c ee n' f a l s e 'd e n t r od eu n' b l o q u e 'i m p e d i r l ap r e s e n t a c i nd e s a l i d ag e n e r a d ap o rl a sf u n c i o n e sq u er e s u e l v e ne c u a c i o n e sl l a m ad e s d ee l
201/633
28/08/13

' B l o c k ' .T e r m i n a c i nd e l` b l o q u e "c o nu ns i g n od ed l a r ,$ ,e s t a b l e c e ` D i s p f l a g' a 'f a l s e' .
F u n c i n :f u n c s o l v e( < e q n > ,< g >( < t > ) ) D e v u e l v e` [ < g >( < t > )=. . . ]' o `[ ] ' ,d e p e n d i e n d od es ion o e x i s t eu n af u n c i nr a c i o n a l` < g >( < t > )' < e q n >s a t i s f a c t o r i a , q u ed e b es e ru np r i m e ro r d e n ,e ne lp o l i n o m i ol i n e a l( p a r ae s t ec a s o ) ` < g >( < t > )' Y `< g >( < t >1 ) ' ( %I 1 )l ae c u a c i n :( n+1 )*f( n )-( n+3 )*f( n+1 )/( n+1 )= ( N-1 )/( n+2 ) ; ( N+3 )f( n+1 )n-1 ( %O 1 )( n+1 )f( n )=-n+1n+2 ( %I 2 )f u n c s o l v e( e c u a c i n ,f( n ) ) ; E c u a c i o n e sd e p e n d i e n t e se l i m i n a d o s :4( 3 ) n ( %O 2 )f( n )=( N+1 )( n+2 ) A d v e r t e n c i a :s et r a t ad eu n aa p l i c a c i nm u yr u d i m e n t a r i a-m u c h o sd es e g u r i d a d c h e q u e syg e n e r a l i z a c i o n e so b v i a sf a l t a n .
V a r i a b l eo p c i o n a l :g l o b a l s o l v e V a l o rp o rd e f e c t o :f a l s e' C u a n d o` g l o b a l s o l v e' e s `t r u e ' ,l a si n c g n i t a sd el a sv a r i a b l e sq u es ea s i g n a na l v a l o r e sd el as o l u c i nq u eh a ne n c o n t r a d ol o s` l i n s o l v e' yp o r 'r e s o l v e r' e nl ar e s o l u c i nd e d o som se c u a c i o n e sl i n e a l e s . C u a n d o` g l o b a l s o l v e' e s 'f a l s e' ,l a ss o l u c i o n e se n c o n t r a d a sp o r `l i n s o l v e" y p o r' r e s o l v e r 'e nl ar e s o l u c i nd ed o som se c u a c i o n e sl i n e a l e ss ee x p r e s a n c o m oe c u a c i o n e s ,yl a si n c g n i t a sd el a sv a r i a b l e sn oe s t na s i g n a d o s . C u a n d os er e s u e l v e nd ed o som se c u a c i o n e sl i n e a l e sn a d a , ' R e s o l v e r 'i g n o r a` g l o b a l s o l v e' .O t r a sf u n c i o n e sq u er e s u e l v e n e c u a c i o n e s( p o re j e m p l o ,` a l g s y s' )s i e m p r es ei g n o r a n `g l o b a l s o l v e ' . E j e m p l o s : ( %I 1 )g l o b a l s o l v e :t r u e$ ( %I 2 )r e s o l v e r( [ x+y=3*2 ,2*x-y=5 ] ,[ x ,y ] ) ; S o l u c i n 1 7 ( %T 2 )x :7 1 ( %T 3 )y :7 ( %O 3 )[ [ %t 2 ,t 3 % ] ] ( %I 3 )x ; 1 7 ( %O 3 )7 ( %I 4 )y ; 1 ( %O 4 )7 ( %I 5 )g l o b a l s o l v e :f a l s e$ ( %I 6 )k i l l( x ,y )$ ( %I 7 )r e s o l v e r( [ x+y=3*2 ,2*x-y=5 ] ,[ x ,y ] ) ; S o l u c i n 1 7 ( %T 7 )x=7 1 ( %T 8 )y=7 ( %O 8 )[ [ %t 7 ,t 8 % ] ] ( %I 8 )x ; ( %O 8 )x ( %I 9 )y ; ( %O 9 )y
F u n c i n :i e q n( , ,< t e c h > ,< n >< g u e s s > ) ` I n t e q n' e su np a q u e t ep a r al ar e s o l u c i nd ee c u a c i o n e si n t e g r a l e s .` C a r g a r ( " I n t e q n " )" c a r g ae lp a q u e t e . e sl ae c u a c i ni n t e g r a l ;e sl af u n c i ni n c g n i t a ; < t e c h >e sl at c n i c ap a r as e rj u z g a d od ee n t r el a se n u m e r a d a sm sa r r i b a( < t e c h > =F i r s ts i g n i f i c a` ' :a p l i c ae lp r i m e rm t o d oq u ee n c u e n t r eu n as o l u c i n ; < t e c h >=s i g n i f i c a' t o d o s ' :p r o b a rt o d a sl a st c n i c a sa p l i c a b l e s ) ;< n >e se l
202/633
28/08/13

n m e r om x i m od et r m i n o sq u ed e b et o m a rt a y l o r` ' , `N e u m a n n , F i r s t k i n d s e r i e s` ' o `f r e d s e r i e s '( t a m b i ne sl ap r o f u n d i d a dm x i m a d er e c u r s i np a r ae lm t o d od ed i f e r e n c i a c i n ) ;< g u e s s >e sl a S u p o n g oi n i c i a ld e` n e u m a n n' o `f i r s t k i n d s e r i e s ' . L o sv a l o r e sp o rd e f e c t op a r al o ss e g u n d o q u i n t ap a r m e t r o ss o n : :` ( < x > )' ,d o n d ee sl ap r i m e r af u n c i ne n c o n t r a d oe n e li n t e g r a n d oe sd e s c o n o c i d op a r aM a x i m ay< x >e sl av a r i a b l e q u es ep r o d u c ec o m ou na r g u m e n t op a r al ap r i m e r aa p a r i c i nd ee n c o n t r a d o f u e r ad eu n ai n t e g r a le ne lc a s od ee c u a c i o n e s` s e c o n d k i n d' ,o e sl a n i c av a r i a b l ea p a r t ed el ad el ai n t e g r a c i ne n E c u a c i o n e s` f i r s t k i n d' .S ie li n t e n t od eb u s c a r< x >f a l l a , s el ep e d i r a lu s u a r i oq u ep r o p o r c i o n el av a r i a b l ei n d e p e n d i e n t e . t e c h :` p r i m e r o' n :1 a d i v i n a r :' n o n e 'q u eh a r q u eN e u m a n n` ' y `f i r s t k i n d s e r i e s 'a u s a r` < f >( < x > ) "c o m ou n ae s t i m a c i ni n i c i a l .
V a r i a b l eo p c i o n a l :i e q n p r i n t V a l o rp o rd e f e c t o :t r u e' ` I e q n p r i n t' g o b i e r n ae lc o m p o r t a m i e n t od e lr e s u l t a d od e v u e l t op o rl a C o m a n d o` i e q n' .C u a n d o` i e q n p r i n t' e s 'f a l s e' ,l a sl i s t a sd e v u e l t a s p o rl af u n c i n` i e q n' s o nd el af o r m a [ < S o l u c i n > ,< t e c h n i q u eU s e d > ,< n t e r m s > ,< f l a g > ] d o n d e< f l a g >e s t a u s e n t es il as o l u c i ne se x a c t a . D el oc o n t r a r i o ,e sl ap a l a b r a' a p r o x i m a d o 'o' i n c o m p l e t a ' q u ec o r r e s p o n d eau n as o l u c i nd ef o r m ai n e x a c t aon oc e r r a d a , r e s p e c t i v a m e n t e .S is eh au t i l i z a d ou nm t o d od es e r i e s ,< n t e r m s >d al a n m e r od et r m i n o st o m a d o s( q u ep o d r as e rm e n o rq u ee lnd a d oa ` I e q n' s iu ne r r o ri m p i d el ag e n e r a c i nd en u e v o st r m i n o s ) .
F u n c i n :l h s( e x p r ) D e v u e l v ee ll a d oi z q u i e r d o( e sd e c i r ,e lp r i m e ra r g u m e n t o )d el a < e x p r >e x p r e s i n ,c u a n d oe lo p e r a d o rd ee x p re su n od el o s o p e r a d o r e sr e l a c i o n a l e s` < <= =#e q u a ln o t e q u a l >= >' ,u n od el o s o p e r a d o r e sd ea s i g n a c i n` :=: :=: : :' ,od e f i n i d ap o re lu s u a r i oi n f i j ob i n a r i o o p e r a d o r ,s e g nl od e c l a r a d op o r` i n f i j o' . C u a n d oe x p re su n t o m oos is uo p e r a d o re sd i s t i n t od e l l o sm e n c i o n a d o sa n t e r i o r m e n t e ,` l h s' d e v u e l v ee x p r . C o n s u l t et a m b i n` d c h . E j e m p l o s : ( %I 1 )e :a a+b b=c c ; ( %O 1 )+a ab bc c= ( %I 2 )l h s( e ) ; ( %O 2 )b b+a a ( %I 3 )r h s( e ) ; ( %O 3 )c c ( %I 4 )[ l h s( a a=b b ) , l h s( a a >b b ) ] ; ( %O 4 )[ a a ,a a ,a a ,a a ] ( %I 5 )[ l h s( a a=b b ) ,l h s( a a#b b ) ,l h s( e q u a l( a a ,b b ) ) , l h s( n o t e q u a l( a a ,b b ) ) ] ; ( %O 5 )[ a a ,a a ,a a ,a a ] ( %I 6 )E 1 :' ( f o o( x ) :=2*x ) ; ( %O 6 )f o o( x ) :=x2 ( %I 7 )e 2 :' ( b a r( y ): :=3*y ) ; ( %O 7 )b a r( y ): :=3y ( %I 8 )e 3 :' ( x :y ) ; ( %O 8 )x :y ( %I 9 )e 4 :' ( : :xy ) ; ( %O 9 )x: :y ( %I 1 0 )[ l h s( e 1 ) ,l h s( e 2 ) ,l h s( e 3 ) ,l h s( e 4 ) ] ; ( %O 1 0 )[ f o o( x ) ,b a r( y ) ,x ,x ] ( %I 1 1 )i n f i j a( " ][ " ) ; ( %O 1 1 ) ][ ( %I 1 2 )l h s( a a ][ b b ) ; ( %O 1 2 )a a
F u n c i n :l i n s o l v e( [ < e x p r _ 1 > ,. . . ,< e x p r _ m > ] ,[ < x _ 1 > ,. . . ,< x _ n > ] ) R e s u e l v el al i s t ad ee c u a c i o n e sl i n e a l e ss i m u l t n e a sp a r al al i s t ad e v a r i a b l e s .L a se x p r e s i o n e sd e b e ns e rp o l i n o m i o sl i n e a l e sr e s p e c t od el a v a r i a b l e syp u e d e ns e re c u a c i o n e s . C u a n d o` g l o b a l s o l v e' e s `t r u e ' ,c a d ai n c g n i t ae s t o b l i g a d oa s uv a l o re nl as o l u c i nd el a se c u a c i o n e s .
203/633
28/08/13

C u a n d o` b a c k s u b s t' e s 'f a l s e' , `l i n s o l v e 'n ol l e v a rac a b od en u e v o s u s t i t u c i nd e s p u sd eq u el a se c u a c i o n e ss eh a nt r i a n g u l a r i a c i n .E s t e p u e d es e rn e c e s a r i oe np r o b l e m a sm u yg r a n d e se ns u s t i t u c i nd ev u e l t a c a u s a r al ag e n e r a c i nd ee x p r e s i o n e se x t r e m a d a m e n t eg r a n d e s . C u a n d o` l i n s o l v e _ p a r a m s' e s `t r u e ' ,` l i n s o l v e' t a m b i ng e n e r al a S m b o l o` %r' u t i l i z a d o sp a r ar e p r e s e n t a rp a r m e t r o sa r b i t r a r i o sc o m ol o sd e s c r i t o s e lm a n u a ld el as e c c i n` a l g s y s .D el oc o n t r a r i o ,` l i n s o l v e' r e s u e l v eu n e ls i s t e m ae si n d e t e r m i n a d od eu n a sv a r i a b l e se x p r e s e nc u a n t oal o sd e m s . C u a n d o` p r o g r a m m o d e' e s 'f a l s e' , `l i n s o l v e 'm u e s t r al as o l u c i n c o ne x p r e s i ni n t e r m e d i a( ` %T' )l a se t i q u e t a s ,yd e v u e l v el al i s t a d ee t i q u e t a s . ( %I 1 )e 1 :x+z=y ; ( %O 1 )z+x=y ( %I 2 )e 2 :2*a*x-y=2*a^2 ; 2 ( %O 2 )2a x-y=2a ( %I 3 )e 3 :y-2*z=2 ; ( %O 3 )y-2z=2 ( %I 4 )[ g l o b a l s o l v e :f a l s e ,p r o g r a m m o d e :t r u e ] ; ( %O 4 )[ f a l s e ,t r u e ] ( %I 5 )l i n s o l v e( [ e 1 ,e 2 ,e 3 ] ,[ x ,y ,z ] ) ; ( %O 5 )[ x=a+1 ,y=2a ,z=a-1 ] ( %I 6 )[ g l o b a l s o l v e :f a l s e ,p r o g r a m m o d e :f a l s e ] ; ( %O 6 )[ f a l s o ,f a l s e ] ( %I 7 )l i n s o l v e( [ e 1 ,e 2 ,e 3 ] ,[ x ,y ,z ] ) ; S o l u c i n ( %T 7 )z=a-1 ( %T 8 )y=2a ( %T 9 )x=a+1 ( %O 9 )[ %t 7 ,t 8 % , %t 9 ] ( %I 9 ) ' ' % ; ( %O 9 )[ z=a-1 ,y=2a ,x=a+1 ] ( %I 1 0 )[ g l o b a l s o l v e :t r u e ,p r o g r a m m o d e :f a l s e ] ; ( %O 1 0 )[ t r u e ,f a l s e ] ( %I 1 1 )l i n s o l v e( [ e 1 ,e 2 ,e 3 ] ,[ x ,y ,z ] ) ; S o l u c i n ( T 1 1 % )z :u n-1 ( T 1 2 % )y :2a ( T 1 3 % )x :a+1 ( %O 1 3 )[ %t 1 1 ,t 1 2 % ,t 1 3 % ] ( %I 1 3 ) ' ' % ; ( %O 1 3 )[ Z :A-1 ,y :2a ,x :a+1 ] ( %I 1 4 )[ x ,y ,z ] ; ( %O 1 4 )[ a+1 ,u n2 ,u n-1 ] ( %I 1 5 )[ g l o b a l s o l v e :t r u e ,p r o g r a m m o d e :t r u e ] ; ( %O 1 5 )[ t r u e ,t r u e ] ( %I 1 6 )l i n s o l v e( [ e 1 ,e 2 ,e 3 ] ,' [ x ,y ,z ] ) ; ( %O 1 6 )[ x :a+1 ,y :2A ,Z :A-1 ] ( %I 1 7 )[ x ,y ,z ] ; ( %O 1 7 )[ a+1 ,u n2 ,u n-1 ]
V a r i a b l eo p c i o n a l :l i n s o l v e w a r n V a l o rp o rd e f e c t o :t r u e' C u a n d o` l i n s o l v e w a r n' e s `t r u e ' ,` l i n s o l v e' i m p r i m eu nm e n s a j e " D e p e n d e n te q u a t i o n se l i m i n a t e d " .
V a r i a b l eo p c i o n a l :l i n s o l v e _ p a r a m s V a l o rp o rd e f e c t o :t r u e' C u a n d o` l i n s o l v e _ p a r a m s' e s `t r u e ' ,` l i n s o l v e' t a m b i ng e n e r al a S m b o l o` %r' u t i l i z a d o sp a r ar e p r e s e n t a rp a r m e t r o sa r b i t r a r i o sc o m ol o sd e s c r i t o s e lm a n u a ld el as e c c i n` a l g s y s .D el oc o n t r a r i o ,` l i n s o l v e' r e s u e l v eu n e ls i s t e m ae si n d e t e r m i n a d od eu n a sv a r i a b l e se x p r e s e nc u a n t oal o sd e m s .
V a r i a b l ed e ls i s t e m a :m u l t i p l i c i d a d e s V a l o rp o rd e f e c t o :n o t _ s e t _ y e t' ` M u l t i p l i c i d a d e s' e s t e s t a b l e c i d oe nu n al i s t ac o nl a sm u l t i p l i c i d a d e sd el a s o l u c i o n e si n d i v i d u a l e sd e v u e l t a sp o r' r e s o l v e r 'o` r e a l r o o t s .
F u n c i n :f u n c i nn r o o t s( , ,< A l t o > )
204/633
28/08/13

D e v u e l v ee ln m e r od er a c e sr e a l e sd e lp o l i n o m i or e a lu n i v a r i a n t e e ne li n t e r v a l os e m i a b i e r t o` ( ,< A l t o > ] " .L o sc r i t e r i o sd ev a l o r a c i nd e e li n t e r v a l op u e d es e r` m i n f' o 'i n f' . ` F u n c i nn r o o t s' u t i l i z ae lm t o d od es e c u e n c i a sd eS t u r m . ( %I 1 )t :x^1 0-2*x^4+1 / 2$ ( %I 2 )f u n c i nn r o o t s( p ,6 ,9 , 1 ) ; ( %O 2 )4
F u n c i n :n t h r o o t( ,< n > ) d o n d ee su np o l i n o m i oc o nc o e f i c i e n t e se n t e r o sy< n >e su n e n t e r o sr e n d i m i e n t o sp o s i t i v o s` q' ,u np o l i n o m i os o b r el o sn m e r o se n t e r o s ,t a l e s q u e` q^n=p' om u e s t r au nm e n s a j ed ee r r o rq u ei n d i c aq u ee s n oe su n an p o t e n c i ae x a c t a .E s t ar u t i n ae sm u c h om sr p i d oq u ee lf a c t o rd e` ' oi n c l u s os q f r` ' .
V a r i a b l eo p c i o n a l :p o l y f a c t o r V a l o rp o rd e f e c t o :f a l s e' L av a r i a b l eo p c i n` p o l y f a c t o r "c u a n d o` t r u e' h a c eq u e à l l r o o t s ' y` b f a l l r o o t s' p a r af a c t o r i z a re lp o l i n o m i os o b r el o sn m e r o sr e a l e s s ie lp o l i n o m i oe sr e a l ,op a r an m e r o sc o m p l e j o ss ie l p o l i n o m i oe sc o m p l e j o . C o n s u l t e` a l l r o o t s "p a r au ne j e m p l o .
V a r i a b l eo p c i o n a l :p r o g r a m m o d e V a l o rp o rd e f e c t o :t r u e' C u a n d o` p r o g r a m m o d e' e s 't r u e' , 'r e s o l v e r' , R e a l r o o t s` ' , à l l r o o t s 'ys o l u c i o n e sd er e t o r n o` l i n s o l v e' c o m o e l e m e n t o sd eu n al i s t a .( E x c e p t oc u a n d o` b a c k s u b s t' e s t a j u s t a d oa 'f a l s e' , e nc u y oc a s o` p r o g r a m m o d e : .s u p o n ef a l s e' ) C u a n d o` p r o g r a m m o d e' e s 'f a l s e' , 'r e s o l v e r' ,e t cc r e a ri n t e r m e d i a e t i q u e t a sd ee x p r e s i o n e s` %t 1' , 't 2' ,e t c ,ya s i g n a rl a ss o l u c i o n e sa e l l o s .
V a r i a b l eo p c i o n a l :r e a l o n l y V a l o rp o rd e f e c t o :f a l s e' C u a n d o` r e a l o n l y' e s `t r u e ' ,` a l g s y s' s l od e v u e l v ea q u e l l a ss o l u c i o n e s q u es o nl i b r e sd e` %i' .
F u n c i n :r e a l r o o t s( e x p r , ) F u n c i n :r e a l r o o t s( < e q n > , ) F u n c i n :r e a l r o o t s( e x p r ) F u n c i n :r e a l r o o t s( < e q n > ) C a l c u l aa p r o x i m a c i o n e sr a c i o n a l e sd el a sr a c e sr e a l e sd el a p o l i n o m i oe x p roe c u a c i np o l i n m i c a< e q n >d eu n av a r i a b l e ,a d e n t r od eu n at o l e r a n c i ad e .C o e f i c i e n t e sd e< e x p r >o< e q n > d e b e ns e rn m e r o sl i t e r a l e s ,c o n s t a n t e sd es m b o l o st a l e sc o m o` %p i' s o n r e c h a z a d o . ` R e a l r o o t s' a s i g n al a sm u l t i p l i c i d a d e sd el a sr a c e sq u ee n c u e n t r aa l o s` m u l t i p l i c i d a d e sv a r i a b l e sg l o b a l e s " . ` R e a l r o o t s' c o n s t r u y eu n as e c u e n c i ad eS t u r mp a r aa c o t a rc a d ar a z ,y ac o n t i n u a c i n ,s ea p l i c ab i s e c c i np a r aa f i n a rl a sa p r o x i m a c i o n e s .T o d o l o sc o e f i c i e n t e ss ec o n v i e r t e naf o r m a sr a c i o n a l e se q u i v a l e n t e sa n t e s l ab s q u e d ad el a sr a c e s ,yl o sc l c u l o ss o nr e a l i z a d o sp o re x a c t a a r i t m t i c ar a c i o n a l .A u nc u a n d oa l g u n o sc o e f i c i e n t e ss o nd ep u n t of l o t a n t e n m e r o s ,l o sr e s u l t a d o ss o nr a c i o n a l e s( an os e rc o a c c i o n a d op a r ac a r r o z a sp o rl a ' F l o a t 'o` n u m e r "b a n d e r a s ) . C u a n d oe sm e n o rq u e1 ,t o d a sl a sr a c e se n t e r o ss ee n c u e n t r a ne x a c t a m e n t e . C u a n d on os ee s p e c i f i c a ,s es u p o n ei g u a lal og l o b a l ` r o o t s e p s i l o nv a r i a b l e " . C u a n d oe l` p r o g r a m m o d ev a r i a b l eg l o b a l' e s 't r u e' , 'r e a l r o o t s' d e v u e l v eu n al i s t ad el af o r m a` [ x=< x _ 1 > ,x=< x _ 2 > ,. . . ] . C u n d o ` P r o g r a m m o d e' e s 'f a l s e' , `r e a l r o o t s 'c r e ai n t e r m e d i a e t i q u e t a sd ee x p r e s i o n e s` %t 1' , ' %t 2' ,. . . ,a s i g n al o sr e s u l t a d o sp a r ae l l o s , yd e v u e l v el al i s t ad ee t i q u e t a s . E j e m p l o s :
205/633
28/08/13

( %I 1 )r e a l r o o t s( 1-x+x^5 ,5 e ,6 ) ; 6 1 2 0 0 3 ( %O 1 )[ x=] 5 2 4 2 8 8 ( %I 2 )e v( %[ 1 ] ,f l o a t ) ; ( %O 2 )x=1 . 1 6 7 3 0 3 0 8 5 3 2 7 1 4 8 ( %I 3 )e v( 1-x+x^5 , % ) ; ( %O 3 )-7 . 3 9 6 4 9 6 2 1 0 1 7 6 9 0 5 E 6 ( %I 1 )r e a l r o o t s( e x p a n d( ( 1-x )^5*( 2-x )^3*( 3-x ) ) ,1 e 2 0 ) ; ( %O 1 )[ x=1 ,x=2 ,x=3 ] ( %I 2 )m u l t i p l i c i d a d e s ; ( %O 2 )[ 5 ,3 ,1 ]
F u n c i n :r h s( e x p r ) D e v u e l v ee ll a d od e r e c h o( e sd e c i r ,e ls e g u n d oa r g u m e n t o )d el a < e x p r >e x p r e s i n ,c u a n d oe lo p e r a d o rd ee x p re su n od el o s o p e r a d o r e sr e l a c i o n a l e s` < <= =#e q u a ln o t e q u a l >= >' ,u n od el o s o p e r a d o r e sd ea s i g n a c i n` :=: :=: : :' ,od e f i n i d ap o re lu s u a r i oi n f i j ob i n a r i o o p e r a d o r ,s e g nl od e c l a r a d op o r` i n f i j o' . C u a n d oe x p re su n t o m oos is uo p e r a d o re sd i s t i n t od e l l o sm e n c i o n a d o sa n t e r i o r m e n t e ,` d c h a .' d e v u e l v e0 . V a s et a m b i nl h s` ' . E j e m p l o s : ( %I 1 )e :a a+b b=c c ; ( %O 1 )+a ab bc c= ( %I 2 )l h s( e ) ; ( %O 2 )b b+a a ( %I 3 )r h s( e ) ; ( %O 3 )c c ( %I 4 )[ r h s( a a=b b ) , R H S( a a >b b ) ] ; ( %O 4 )[ b b ,b b ,b b ,b b ] ( %I 5 )[ r h s( a a=b b ) ,l a d od e r e c h o( #a ab b ) ,l a d od e r e c h o( e q u a l( a a ,b b ) ) , R H S( n o t e q u a l( a a ,b b ) ) ] ; ( %O 5 )[ b b ,b b ,b b ,b b ] ( %I 6 )E 1 :' ( f o o( x ) :=2*x ) ; ( %O 6 )f o o( x ) :=x2 ( %I 7 )e 2 :' ( b a r( y ): :=3*y ) ; ( %O 7 )b a r( y ): :=3y ( %I 8 )e 3 :' ( x :y ) ; ( %O 8 )x :y ( %I 9 )e 4 :' ( : :xy ) ; ( %O 9 )x: :y ( %I 1 0 )[ r h s( e 1 ) ,l a d od e r e c h o( e 2 ) ,l a d od e r e c h o( e 3 ) ,l a d od e r e c h o( e 4 ) ] ; ( %O 1 0 )[ x2 ,3y ,y ,y ] ( %I 1 1 )i n f i j a( " ][ " ) ; ( %O 1 1 ) ][ ( %I 1 2 )r h s( a a ][ b b ) ; ( %O 1 2 )b b
V a r i a b l eo p c i o n a l :r o o t s c o n m o d e V a l o rp o rd e f e c t o :t r u e' ` R o o t s c o n m o d e' g o b i e r n ae lc o m p o r t a m i e n t od el a `r o o t s c o n t r a c t 'c o m a n d o . C o n s u l t e` r o o t s c o n t r a c t' p a r am sd e t a l l e s .
F u n c i n :r o o t s c o n t r a c t( e x p r ) C o n v i e r t ep r o d u c t o sd er a c e se nr a c e sd ep r o d u c t o s .P o re j e m p l o , ` R o o t s c o n t r a c t( s q r t( x )*y^( 3 / 2 ) )' r e n d i m i e n t o s `s q r t( x*y^3 ) ' . C u a n d o` r a d e x p a n d' e s `t r u e 'y' d o m i n i o 'e s' r e a l ' ` R o o t s c o n t r a c t' c o n v e r s o s 'A B S' e n `s q r t ' ,p o re j e m p l o ,` r o o t s c o n t r a c t ( A b s( x )*s q r t( y ) )' r e n d i m i e n t o 's q r t( x^2*y )' . H a yu n ao p c i n` r o o t s c o n m o d e' q u ea f e c t e n 'r o o t s c o n t r a c t "c o m o s i g u i e n t e : V a l o rp r o b l e m ad e lr e s u l t a d od el aa p l i c a c i n r o o t s c o n m o d er o o t s c o n t r a c t x^( 1 / 2 )*y^( 3 / 2 )f a l s a( x*y^3 )^( 1 / 2 ) x^( 1 / 2 )*y^( 1 / 4 )f a l s ax^( 1 / 2 )*y^( 1 / 4 ) x^( 1 / 2 )*y^( 1 / 4 )v e r d a d e r a( x*y^( 1 / 2 ) )^( 1 / 2 ) x^( 1 / 2 )*y^( 1 / 3 )c i e r t ox^( 1 / 2 )*y^( 1 / 3 ) x^( 1 / 2 )*y^( 1 / 4 )t o d o( x^2*y )^( 1 / 4 ) x^( 1 / 2 )*y^( 1 / 3 )t o d o( x^3*y^2 )^( 1 / 6 ) S l oc u a n d o` r o o t s c o n m o d e' e s `f a l s o ' ,` c o n t r a t o sr o o t s c o n t r a c t' c o nr e s p e c t oal o se x p o n e n t e sr a c i o n a l e sc u y o sd e n o m i n a d o r e ss o n l am i s m a .L ac l a v ed e l` r o o t s c o n m o d e :e j e m p l o sv e r d a d e r o s' e ss i m p l e m e n t e 2q u es ed i v i d ee n4p e r on oa3 .` R o o t s c o n m o d e :a l l' c o n s i s t ee nt o m a re lm n i m oc o m nm l t i p l od el o sd e n o m i n a d o r e sd e
206/633
28/08/13
l o se x p o n e n t e s .
` R o o t s c o n t r a c t' u s a `r a t s i m p 'e nu n am a n e r as i m i l a ra ` L o g c o n t r a c t' . E j e m p l o s : ( %I 1 )r o o t s c o n m o d e :f a l s e$ ( %I 2 )r o o t s c o n t r a c t( x^( 1 / 2 )*y^( 3 / 2 ) ) ; 3 ( %O 2 )s q r t( x y ) ( %I 3 )r o o t s c o n t r a c t( x^( 1 / 2 )*y^( 1 / 4 ) ) ; C u a r t a ( %O 3 )s q r t( x )y ( %I 4 )r o o t s c o n m o d e :t r u e$ ( %I 5 )r o o t s c o n t r a c t( x^( 1 / 2 )*y^( 1 / 4 ) ) ; ( %O 5 )s q r t( xs q r t( y ) ) ( %I 6 )r o o t s c o n t r a c t( x^( 1 / 2 )*y^( 1 / 3 ) ) ; T e r c e r a ( %O 6 )s q r t( x )y ( %I 7 )r o o t s c o n m o d e :a l l$ ( %I 8 )r o o t s c o n t r a c t( x^( 1 / 2 )*y^( 1 / 4 ) ) ; 21 / 4 ( %O 8 )( x y ) ( %I 9 )r o o t s c o n t r a c t( x^( 1 / 2 )*y^( 1 / 3 ) ) ; 321 / 6 ( %O 9 )( x y ) ( %I 1 0 )r o o t s c o n m o d e :f a l s e$ ( %I 1 1 )r o o t s c o n t r a c t( s q r t( s q r t( x )+s q r t( 1+x ) ) *S q r t( s q r t( 1+x )-s q r t( x ) ) ) ; ( %O 1 1 )1 ( %I 1 2 )r o o t s c o n m o d e :t r u e$ ( %I 1 3 )r o o t s c o n t r a c t( s q r t( 5+s q r t( 5 ) )-5^( 1 / 4 )*s q r t( 1+s q r t( 5 ) ) ) ; ( %O 1 3 )0
V a r i a b l eo p c i o n a l :r o o t s e p s i l o n V a l o rp o rd e f e c t o :1 . 0 e 7 ` R o o t s e p s i l o n' e sl at o l e r a n c i aq u ee s t a b l e c el ac o n f i a n z a i n t e r v a l op a r al a sr a c e sc a l c u l a d a sp o rl af u n c i n` r e a l r o o t s' .
F u n c i n :r e s o l v e r( e x p r ,< x > ) F u n c i n :r e s o l v e r( e x p r ) F u n c i n :r e s o l v e r( [ < e q n _ 1 > ,. . . ,< e q n _ n > ] ,[ < x _ 1 > ,. . . ,< x _ n > ] ) R e s u e l v el ae c u a c i na l g e b r a i c ae x p rp a r al av a r i a b l ey< x > d e v u e l v eu n al i s t ad ei g u a l d a d e sc o nl a< x > .S in oe su n< e x p r > e c u a c i n ,l ae c u a c i n` e x p r=0' s ea s u m ee ns ul u g a r .< x > p u e d es e ru n af u n c i n( p o re j e m p l o ,` f( x ) ) ,uo t r ae x p r e s i nn oa t m i c a e x c e p t ou n as u m aop r o d u c t o .< x >p u e d eo m i t i r s es ie x p rc o n t i e n e s l ou n av a r i a b l e .e x p rp u e d es e ru n ae x p r e s i nr a c i o n a lyp u e d e c o n t e n e rf u n c i o n e st r i g o n o m t r i c a s ,e x p o n e n c i a l e s ,e t c E ls i g u i e n t em t o d os eu t i l i z a : V a m o s< E >s e rl ae x p r e s i ny< X >s e rl av a r i a b l e .S ie s< E > l i n e a le n< X >e n t o n c e sr e s u e l v ed ef o r m at r i v i a l< X > .D el oc o n t r a r i o ,s i < E >E sd el af o r m a` A*X^N+B' ,e n t o n c e se lr e s u l t a d oe s `( B/A )^1/N ) ' v e c e sl o s` Nr a c e sd el au n i d a d ' ' . S i< E >n oe sl i n e a le n< X >e n t o n c e se lm x i m oc o m nd i v i s o rd el o se x p o n e n t e sd e< X >e n < E >( D i g a m o s< N > )s ed i v i d ee n t r el o se x p o n e n t e syl am u l t i p l i c i d a d d el a sr a c e ss em u l t i p l i c ap o r< N > .E n t o n c e s` r e s o l v e r' s ev u e l v eal l a m a r e ne lr e s u l t a d o .S il o sf a c t o r e s< E >e n t o n c e s` r e s o l v e r' s el l a m ae nc a d au n od e l o sf a c t o r e s .F i n a l m e n t e` r e s o l v e r' u t i l i z a r l ae c u a c i nc u a d r t i c a ,c b i c ao f r m u l a sc u r t i c a sc u a n d os e an e c e s a r i o . E ne lc a s oe nq u e< E >e su np o l i n o m i oe na l g u n af u n c i nd el a i n c g n i t ap a r a ,d i g a m o s` F( X )' ,e n t o n c e ss ec a l c u l ap r i m e r op a r a ` F( X )' ( l l a m a ral a< C >r e s u l t a d o ) ,e n t o n c e sl ae c u a c i n `F( X )=C" p u e d es e r r e s u e l t op a r a< X >p r o p o r c i o n a d ol ai n v e r s ad el af u n c i nd e< F >s ec o n o c e . ` R u p t u r a' s i 'f a l s e' h a r q u e 'r e s o l v e r' p a r ae x p r e s a rl a ss o l u c i o n e s d el a se c u a c i o n e sc b i c a soc u a r t og r a d oc o m oe x p r e s i o n e si n d i v i d u a l e syn oc o m o c o m p u e s t op o rv a r i a ss u b e x p r e s i o n e sc o m u n e s ,q u ee se lv a l o rp r e d e t e r m i n a d o . ` M u l t i p l i c i d a d e s' -s ee s t a b l e c e r ne nu n al i s t ac o nl a sm u l t i p l i c i d a d e sd e l a ss o l u c i o n e si n d i v i d u a l e sd e v u e l t a sp o r' r e s o l v e r ' ,` r e a l r o o t s' o ` A l l r o o t s' .P r u e b e` a p r o p o s( s o l v e ) "p a r al o sp a r m e t r o sq u ea f e c t a n ' R e s o l v e r ' .` D e s c r i b e n' p o d r l u e g ou t i l i z a re li n t e r r u p t o ri n d i v i d u o n o m b r e s ,s is up r o p s i t on oe s t c l a r o . ` S o l v e( [ < e q n _ 1 > ,. . . ,< e q n _ n > ] ,[ < x _ 1 > ,. . . ,< x _ n > ] )' r e s u e l v eu n s i s t e m ad ee c u a c i o n e s( l i n e a l e son ol i n e a l e s )p o l i n o m i os i m u l t n e a s l l a m a n d ol i n s o l v e` ' o à l g s y s 'yd e v u e l v eu n al i s t ad el o s s o l u c i nd em u e s t r ae nl a sv a r i a b l e s .E ne lc a s od e` l i n s o l v e' e s t e l i s t ac o n t e n d r u n a n i c al i s t ad es o l u c i o n e s .S en e c e s i t a nd o sl i s t a s c o m oa r g u m e n t o s .L ap r i m e r al i s t aq u er e p r e s e n t al a se c u a c i o n e ss e a n r e s u e l t o ,l as e g u n d al i s t ae su n al i s t ad el a si n c g n i t a sq u e d e t e r m i n a d o .S ie ln m e r ot o t a ld ev a r i a b l e se nl a se c u a c i o n e se s i g u a la ln m e r od ee c u a c i o n e s ,l as e g u n d al i s t ad ea r g u m e n t o sp u e d es e r
207/633
28/08/13
o m i t i d o .
C u a n d o` p r o g r a m m o d e' e s 'f a l s e' , 'r e s o l v e r' m u e s t r as o l u c i o n e sc o n e x p r e s i ni n t e r m e d i a( ` %T' )l a se t i q u e t a s ,yd e v u e l v el al i s t ad e e t i q u e t a s . C u a n d o` g l o b a l s o l v e' e s `t r u e 'ye lp r o b l e m ac o n s i s t ee nr e s o l v e rd o so e c u a c i o n e sl i n e a l e sm s ,c a d ai n c g n i t as el ea s i g n ae l v a l o re nl as o l u c i nd el a se c u a c i o n e s . E j e m p l o s : ( %I 1 )r e s o l v e r( a s i n( c o s( 3*x ) )*( f( x )-1 ) ,x ) ; r e s o l v e r :e lu s od el a sf u n c i o n e st r i g o n o m t r i c a sd ea r c op a r ao b t e n e ru n as o l u c i n . S ep e r d e r nA l g u n a ss o l u c i o n e s . %P i ( %O 1 )[ x=,f( x )=1 ] 6 ( %I 2 )e v( r e s o l v e r( 5^f( x )=1 2 5 ,f( x ) ) ,s o l v e r a d c a n ) ; l o g( 1 2 5 ) ( %O 2 )[ f( x )=] l o g( 5 ) ( %I 3 )[ 4*x^2-y^2=1 2 ,x*y-x=2 ] ; 22 ( %O 3 )[ 4x-y=1 2 ,x y-x=2 ] ( %I 4 )r e s o l v e r( % ,[ x ,y ] ) ; ( %O 4 )[ [ x=2 ,y=2 ] ,[ x=, 5 2 0 2 5 9 4 3 8 8 6 5 2 0 0 8 %i -0 . 1 3 3 1 2 4 0 3 5 7 3 5 8 7 0 6 ,y=0 . 0 7 6 7 8 3 7 8 5 2 3 7 8 7 7 8 8 -3 . 6 0 8 0 0 3 2 2 1 8 7 0 2 8 7 %i ] ,[ x=-0 . 5 2 0 2 5 9 4 3 8 8 6 5 2 0 0 8 %i -0 . 1 3 3 1 2 4 0 3 5 7 3 5 8 7 0 6 ,y=3 . 6 0 8 0 0 3 2 2 1 8 7 0 2 8 7 %i +0 , 0 7 6 7 8 3 7 8 5 2 3 7 8 7 7 8 8 ] ,[ x=-1 , 7 3 3 7 5 1 8 4 6 3 8 1 0 9 3 , y=-, 1 5 3 5 6 7 5 7 1 0 0 1 9 6 9 6 ] ] ( %I 5 )r e s o l v e r( 1+a*x+x^3 ,x ) ; 3 s q r t( 3 ) %i1s q r t( 4a+2 7 )11 / 3 ( %O 5 )[ x=( )( ) 226s q r t( 3 )2 s q r t( 3 ) %i1 ( )U n 22 ,X= 3 s q r t( 4a+2 7 )11 / 3 3( ) 6s q r t( 3 )2 3 s q r t( 3 ) %i1s q r t( 4a+2 7 )11 / 3 ( )( ) 226s q r t( 3 )2 s q r t( 3 ) %i1 ( )U n 22 ,X= 3 s q r t( 4a+2 7 )11 / 3 3( ) 6s q r t( 3 )2 3 s q r t( 4a+2 7 )11 / 3d eu n ( )] 6s q r t( 3 )23 s q r t( 4a+2 7 )11 / 3 3( ) 6s q r t( 3 )2 ( %I 6 )s o l v e( x^3-1 ) ; s q r t( 3 ) %i-1s q r t( 3 ) %i+1 ( %O 6 )[ x=,x=,x=1 ] 22 ( %I 7 )s o l v e( x^6 1 ) ; s q r t( 3 ) %i+1s q r t( 3 ) %i-1 ( %O 7 )[ x=,x=,x=-1 , 22 s q r t( 3 ) %i+1s q r t( 3 ) %i-1 x=,x=,x=1 ] 22 ( %I 8 )e v( x^6-1 , %[ 1 ] ) ; 6 ( S q r t( 3 ) %i+1 ) ( %O 8 )-1 6 4 ( %I 9 )e x p a n s i n( % ) ; ( %O 9 )0 ( %I 1 0 )x^2-1 ; 2 ( %O 1 0 )x-1 ( %I 1 1 )r e s o l v e r( % ,x ) ; ( %O 1 1 )[ x=-1 ,x=1 ] ( %I 1 2 )e v( %t h( 2 ) , %[ 1 ] ) ;
208/633
28/08/13
( %O 1 2 )0
L o ss m b o l o s` %r' s eu t i l i z a np a r ad e n o t a rc o n s t a n t e sa r b i t r a r i a se nu n s o l u c i n . ( %I 1 )r e s o l v e r( [ x+y=1 , 2*2x*y=2 ] ,[ x ,y ] ) ; r e s u e l v e n :e c u a c i o n e sd e p e n d i e n t e se l i m i n a d o s :( 2 ) ( %O 1 )[ [ x=1%r 1 , %y=r 1 ] ] C o n s u l t e` a l g s y s' y ` %r n u m _ l i s t" p a r ao b t e n e rm si n f o r m a c i n .
V a r i a b l eo p c i o n a l :s o l v e d e c o m p o s e s V a l o rp o rd e f e c t o :t r u e' C u a n d o` s o l v e d e c o m p o s e s' e s 't r u e' , 'r e s o l v e r' l a sl l a m a d a s `p o l y d e c o m p" s i p e d i d op a r ar e s o l v e rp o l i n o m i o s .
V a r i a b l eo p c i o n a l :s o l v e e x p l i c i t V a l o rp o rd e f e c t o :f a l s e' C u a n d o` s o l v e e x p l i c i t' e s `t r u e ' ,i n h i b e` r e s o l v e r' e lr e g r e s o s o l u c i o n e si m p l c i t a s ,e sd e c i r ,s o l u c i o n e sd el af o r m a` F( x )=0 " ,d o n d e ` C' e sa l g u n af u n c i n .
V a r i a b l eo p c i o n a l :s o l v e f a c t o r s V a l o rp o rd e f e c t o :t r u e' C u a n d o` s o l v e f a c t o r s' e s 'f a l s e' , 'r e s o l v e r' n ot r a t ad ef a c t o r e s l ae x p r e s i n .E la j u s t e' f a l s e 'p u e d es e r t i le na l g u n o sc a s o s q u el af a c t o r i z a c i nn oe sn e c e s a r i a .
V a r i a b l eo p c i o n a l :s o l v e n u l l w a r n V a l o rp o rd e f e c t o :t r u e' C u a n d o` s o l v e n u l l w a r n' e s 't r u e' , 'r e s o l v e r' i m p r i m eu nm e n s a j ed ea d v e r t e n c i a s ie sl l a m a d oc o nu n al i s t ad ee c u a c i o n e sn u l oou n av a r i a b l en u l a l i s t a .P o re j e m p l o ,' s o l v e( [ ] ,[ ] ) 'i m p r i m i r ad o sa d v e r t e n c i a m e n s a j e syv o l v e r` [ ]' .
V a r i a b l eo p c i o n a l :s o l v e r a d c a n V a l o rp o rd e f e c t o :f a l s e' C u a n d o` s o l v e r a d c a n' e s 't r u e' , 'r e s o l v e r' l l a m a `r a d c a n ' l oq u eh a c eq u e' r e s o l v e r 'l e n t a ,p e r op e r m i t i r c i e r t o sp r o b l e m a s q u ec o n t i e n ee x p o n e n c i a l e syl o g a r i t m o sq u eh a yq u er e s o l v e r .
V a r i a b l eo p c i o n a l :s o l v e t r i g w a r n V a l o rp o rd e f e c t o :t r u e' C u a n d o` s o l v e t r i g w a r n' e s 't r u e' , 'r e s o l v e r' p u e d ei m p r i m i ru nm e n s a j e d i c i e n d oq u ee s t u t i l i z a n d of u n c i o n e st r i g o n o m t r i c a si n v e r s a sp a r ar e s o l v e r l ae c u a c i n ,yq u ed ee s t em o d os o l u c i o n e s .
21 Ecuaciones Diferenciales
I n t r o d u c c i nal a sE c u a c i o n e sD i f e r e n c i a l e s F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e sd i f e r e n c i a l e s
21.1 Introduccin a las ecuaciones diferenciales

E ne s t as e c c i ns ed e s c r i b e nl a sf u n c i o n e sd i s p o n i b l e se nM a x i m ap a r ao b t e n e r s o l u c i o n e sa n a l t i c a sp a r aa l g u n o st i p o se s p e c f i c o sd ep r i m e rys e g u n d oo r d e n e c u a c i o n e s .P a r ao b t e n e ru n as o l u c i nn u m r i c ad eu ns i s t e m ad ed i f e r e n c i a l e c u a c i o n e s ,v a s ee lp a q u e t ea d i c i o n a l' d i n m i c a ' .P a r ag r f i c a r e p r e s e n t a c i o n e se ne le s p a c i od ef a s e s ,v a s ee lp a q u e t ea d i c i o n a lp l o t d f` ' .
209/633
28/08/13
21.2 Funciones y variables para ecuaciones diferenciales

F u n c i n :B C 2( < S o l u c i n > ,< x v a l 1 > ,< y v a l 1 > ,< x v a l 2 > ,< y v a l 2 > ) R e s u e l v eu np r o b l e m ad ec o n t o r n op a r au ns e g u n d od i f e r e n c i a lp a r a e c u a c i n .A q u :< S o l u c i n >e su n as o l u c i ng e n e r a ld el ae c u a c i n , c o m os ee n c u e n t r ae n` o d e 2' ;< x v a l 1 >e s p e c i f i c ae lv a l o rd el ai n d e p e n d e n c i a v a r i a b l ee nu np r i m e rm o m e n t o ,e nl af o r m a` < x >=< x 1 >' y< y v a l 1 > d ae lv a l o rd el av a r i a b l ed e p e n d i e n t ee ne s em o m e n t o ,e ne l f o r m a r` < y >=< y 1 >' .E l< x v a l 2 >e x p r e s i o n e sy< y v a l 2 >d a nl a L o sv a l o r e sd ee s t a sv a r i a b l e se nu ns e g u n d op u n t o ,u t i l i z a n d oe lm i s m of o r m u l a r i o . C o n s u l t e` o d e 2 "p a r av e ru ne j e m p l od es uu s o .
F u n c i n :d e s o l v e( < e q n > ,< x > ) F u n c i n :d e s o l v e( [ < e q n _ 1 > ,. . . ,< e q n _ n > ] ,[ < x _ 1 > ,. . . ,< x _ n > ] ) L af u n c i n` d e s o l v e' r e s u e l v es i s t e m a sd ec o r r i e n t el i n e a l e c u a c i o n e sd i f e r e n c i a l e su t i l i z a n d ol at r a n s f o r m a d ad eL a p l a c e .A q u l a< e q n >' s s o ne c u a c i o n e sd i f e r e n c i a l e se nl a sv a r i a b l e sd e p e n d i e n t e s< x _ 1 > ,. . . , < x _ n > .L ad e p e n d e n c i af u n c i o n a ld e< x _ 1 > ,. . . ,e nu n a< x _ n > v a r i a b l ei n d e p e n d i e n t e ,p o re j e m p l o< x > ,d e b es e re x p r e s a m e n t e s ei n d i c ae nl a sv a r i a b l e sys u sd e r i v a d o s .P o re j e m p l o ,e s t e n os e r al af o r m ac o r r e c t ad ed e f i n i rd o se c u a c i o n e s : e q n _ 1 :' d i f f( f ,x ,2 )=s e n( x )+ 'd i f f( g ,x ) ; e q n _ 2 :' d i f f( f ,x )+x^2-f=2* 'd i f f( g ,x ,2 ) ; L af o r m ac o r r e c t as e r a : e q n _ 1 :' d i f f( f( x ) ,x ,2 )=s e n( x )+ 'd i f f( g( x ) ,x ) ; e q n _ 2 :' d i f f( f( x ) ,x )+x^2-f( x )=2* 'd i f f( g( x ) ,x ,2 ) ; L al l a m a d aal af u n c i n` d e s o l v e' s e r ae n t o n c e s d e s o l v e( [ e q n _ 1 ,e q n _ 2 ] ,[ f( x ) ,g( x ) ] ) ; S ix=` 0' s o nc o n o c i d o s ,p u e d e ns e rs u m i n i s t r a d o se nc o n d i c i o n e si n i c i a l e s a n t e sd el l a m a r` d e s o l v e' u s a n d o à t v a l u e ' . ( %I 1 )' d i f f( f( x ) ,x )= 'd i f f( g( x ) ,x )+s i n( x ) ; d d ( %O 1 )-( f( x ) )=-( g( x ) )+s e n( x ) d xd x ( %I 2 )' d i f f( g( x ) ,x ,2 )= 'd i f f( f( x ) ,x ) c o s( x ) ; 2 d d ( %O 2 )-( g( x ) )=-( f( x ) )-c o s( x ) 2d x d x ( %I 3 )a t v a l u e( ' d i f f( g( x ) ,x ) ,x=0 ,a ) ; ( %O 3 )u n ( %I 4 )a t v a l u e( f( x ) ,x=0 , 1 ) ; ( %O 4 )1 ( %I 5 )d e s o l v e( [ %o 1 , %o 2 ] ,[ f( x ) ,g( x ) ] ) ; x ( %O 5 )[ f( x )=a %e-a+1 ,g( x )= x c o s( x )+a %e-a+g( 0 )-1 ] ( %I 6 )[ %o 1 , %o 2 ] , %o 5 ,d i f f ; x x x x ( %O 6 )[ a %e=ae % ,a %e-c o s( x )=a %e-c o s( x ) ] S i` d e s o l v e' n op u e d ec a l c u l a rl as o l u c i n ,d e v u e l v e `f a l s e ' .
F u n c i n :i c 1( < S o l u c i n > ,< x v a l > ,< y v a l > ) R e s u e l v ep r o b l e m a sd ev a l o ri n i c i a lp a r ae lp r i m e rd i f e r e n c i a lp a r a e c u a c i o n e s .A q u < S o l u c i n >e su n as o l u c i ng e n e r a ld el ae c u a c i n , c o m os ee n c u e n t r ae n` o d e 2' ,< x v a l >d au nv a l o ri n i c i a lp a r al a v a r i a b l ei n d e p e n d i e n t ed el af o r m a` < x >=< x 0 >' y< y v a l >d al a v a l o ri n i c i a ld el av a r i a b l ed e p e n d i e n t ee nl af o r m a` < y >=< y 0 >' . C o n s u l t e` o d e 2 "p a r av e ru ne j e m p l od es uu s o .
F u n c i n :i c 2( < S o l u c i n > ,< x v a l > ,< y v a l > ,< d v a l > ) R e s u e l v ep r o b l e m a sd ev a l o ri n i c i a lp a r ad i f e r e n c i a ld es e g u n d oo r d e n e c u a c i o n e s .A q u < S o l u c i n >e su n as o l u c i ng e n e r a ld el ae c u a c i n , c o m os ee n c u e n t r ae n` o d e 2' ,< x v a l >d ae lv a l o ri n i c i a lp a r ae l v a r i a b l ei n d e p e n d i e n t ed el af o r m a` < x >=< x 0 >' ,< y v a l >d al a v a l o ri n i c i a ld el av a r i a b l ed e p e n d i e n t ee nl af o r m a` < y >=< y 0 >' , y< d v a l >d ae lv a l o ri n i c i a lp a r al ap r i m e r ad e r i v a d ad el a v a r i a b l ed e p e n d i e n t ec o nr e s p e c t oal av a r i a b l ei n d e p e n d i e n t e ,e ne l f o r m a` d i f f( < y > ,< x > )=< d y 0 >' ( `d i f f 'n ot i e n ep o rq u s e rc i t a d o ) . C o n s u l t e` o d e 2 "p a r av e ru ne j e m p l od es uu s o .
210/633
28/08/13
F u n c i n :o d e 2( < e q n > ,< d v a r > , )
L af u n c i n` o d e 2' r e s u e l v eu n ae c u a c i nd i f e r e n c i a lo r d i n a r i a( O D E ) d ep r i m e r oos e g u n d oo r d e n .T o m at r e sa r g u m e n t o s :u n ae c u a c i np o r < e q n > ,e l< d v a r >v a r i a b l ed e p e n d i e n t eyl av a r i a b l ei n d e p e n d i e n t e .C u a n d ot i e n e x i t o ,d e v u e l v eu n ae x p l c i t aoi m p l c i t a s o l u c i np a r al av a r i a b l ed e p e n d i e n t e .` %C' s eu t i l i z ap a r ar e p r e s e n t a rl a c o n s t a n t ed ei n t e g r a c i ne ne lc a s od ee c u a c i o n e sd ep r i m e ro r d e n ,y ` %K 1' y ` %k 2 'l a sc o n s t a n t e sd el a se c u a c i o n e sd es e g u n d oo r d e n .L a l ad e p e n d e n c i ad el av a r i a b l ed e p e n d i e n t ee nl av a r i a b l ei n d e p e n d i e n t e n ot i e n eq u es e re s c r i t od em a n e r ae x p l c i t a ,c o m oe ne lc a s od el o s ` D e s o l v e' ,p e r ol av a r i a b l ei n d e p e n d i e n t ed e b ea s i g n a rs i e m p r eq u el a t e r c e ra r g u m e n t o . S i` o d e 2' n op u e d eo b t e n e ru n as o l u c i np o rc u a l q u i e rr a z n ,d e v u e l v e ' F a l s e ' ,a c o m p a a d oq u i z sd eu nm e n s a j ed ee r r o r .L o sm t o d o s i m p l e m e n t a d op a r ae c u a c i o n e sd ep r i m e ro r d e ne ne lo r d e ne nq u es e s ep o n e nap r u e b as o n :l i n e a l ,s e p a r a b l e ,e x a c t o-t a lv e zr e q u i e r a nu n f a c t o rd ei n t e g r a c i n , ,l ae c u a c i nd eB e r n o u l l ih o m o g n e a ,yu n m t o d oh o m o g n e og e n e r a l i z a d o .L o st i p o sd es e g u n d oo r d e n e c u a c i o n e sq u ep u e d e nr e s o l v e r s es o n :c o e f i c i e n t e sc o n s t a n t e s ,e x a c t a s , h o m o g n e ol i n e a lc o nc o e f i c i e n t e sn oc o n s t a n t e sq u ep u e d e ns e r t r a n s f o r m a d oac o e f i c i e n t e sc o n s t a n t e s ,l ad eE u l e ro e c u a c i ne q u i d i m e n s i o n a l ,l a se c u a c i o n e sq u ep u e d e nr e s o l v e r s ep o re lm t o d od e v a r i a c i nd el o sp a r m e t r o sye c u a c i o n e sq u ee s t nl i b r e sd ec u a l q u i e r ad el o s oi n d e p e n d i e n t ed el av a r i a b l ed e p e n d i e n t e ,p a r aq u ep u e d a ns e r r e d u c i d oad o sp r i m e r a se c u a c i o n e sl i n e a l e sd eo r d e nq u eh a yq u er e s o l v e r s e c u e n c i a l m e n t e . E ne lc u r s od el as o l u c i nd ee c u a c i o n e sd i f e r e n c i a l e so r d i n a r i a s ,c i e r t a sv a r i a b l e ss ep u r a m e n t e c o nf i n e si n f o r m a t i v o s :` M t o d o' i n d i c ae lm t o d od es o l u c i nd e u t i l i z a d o( p o re j e m p l o ,` l i n e a r' ) , ì n t f a c t o r 'd e n o t ae lf a c t o rd ei n t e g r a c i n u t i l i z a d o ,` o d e i n d e x' d e n o t ae l n d i c ep a r ae lm t o d od eB e r n o u l l io e lm t o d oh o m o g n e og e n e r a l i z a d oyy p` ' d e n o t al a s o l u c i np a r t i c u l a rp a r al av a r i a c i nd el at c n i c ad ep a r m e t r o s . F u n c i o n e saf i nd er e s o l v e rp r o b l e m a sd ev a l o ri n i c i a l( I V P )` i c 1 "y ` I c 2' e s t nd i s p o n i b l e sp a r ae c u a c i o n e sd ep r i m e rys e g u n d oo r d e n ,yp a r a r e s o l v e rl o sp r o b l e m a sd ec o n t o r n od es e g u n d oo r d e n( B V P )l af u n c i n` B C 2' p u e d es e ru t i l i z a d o . E j e m p l o : ( %I 1 )x^2*' d i f f( y ,x )+3*y*x=s e n( x )/x ; 2d ys i n( x ) ( %O 1 )x-3+x y=d xx ( %I 2 )o d e 2( % ,y ,x ) ; %C-c o s( x ) ( %O 2 )y=3 x ( %I 3 )I C 1( %o 2 ,x= %p i ,y=0 ) ; c o s( x )+1 ( %O 3 )y=3 x ( %I 4 )' d i f f( y ,x ,2 )+y* 'd i f f( y ,x )^3=0 ; 2 d yd y3 ( %O 4 )-+y( )=0 2d x d x ( %I 5 )o d e 2( % ,y ,x ) ; 3 y+6 %k 1y ( %O 5 )-=x+k 2 % 6 ( %I 6 )r a t s i m p( i c 2( %o 5 ,x=0 ,y=0 ,' d i f f( y ,x )=2 ) ) ; 3 Y2-y3 ( %O 6 )-=x 6 ( %I 7 )B C 2( %o 5 ,x=0 ,y=1 ,x=1 ,y=3 ) ; 3 y-1 0y3 ( %O 7 )-=x62
22 Numrico
I n t r o d u c c i nal at r a n s f o r m a d ar p i d ad eF o u r i e r F u n c i o n e syv a r i a b l e sp a r al at r a n s f o r m a d ar p i d ad eF o u r i e r I n t r o d u c c i nal a ss e r i e sd eF o u r i e r F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r
22.1 Introduccin a la transformada rpida de Fourier

E lp a q u e t e` F F T i n c l u y ef u n c i o n e sp a r ae ln u m r i c o( n os i m b l i c o ) c l c u l od el at r a n s f o r m a d ar p i d ad eF o u r i e r .
211/633
28/08/13
22.2 Funciones y variables para los mtodos numricos

F u n c i n :p o l a r t o r e c t( < r > ,< t > ) T r a n s f o r m av a l o r e sc o m p l e j o sd el af o r m a` r %e^ ( %i t )' al af o r m a à +B %i' ,d o n d e< r >e sl am a g n i t u dy< t >e sl af a s e .< r >y < t >s o nm a t r i c e s1 d i m e n s i o n a l e sd e lm i s m ot a m a o .E lt a m a od el am a t r i z n ot i e n eq u es e ru n ap o t e n c i ad e2 . L o sv a l o r e so r i g i n a l e sd el o sa r r e g l o sd ee n t r a d as er e e m p l a z a np o re lv e r d a d e r o yp a r t e si m a g i n a r i a s ,` a' y 'b' ,as ur e g r e s o .L a ss a l i d a ss o n c a l c u l a d oc o m o a=rc o s( t ) b=rs i n( t ) ` P o l a r t o r e c t' e sl af u n c i ni n v e r s ad e `r e c t t o p o l a r ' . C a r g a sl o a d( F F T )' e s t af u n c i n .V a s et a m b i n' F F T ' .
F u n c i n :r e c t t o p o l a r( < a > ) T r a n s f o r m av a l o r e sc o m p l e j o sd el af o r m a` a+b %i' al af o r m a `r %E^( %i t )' ,d o n d e< a >e sl ap a r t er e a lyl ai m a g i n a r i ae s p a r t e .< a >ys o nm a t r i c e s1 d i m e n s i o n a l e sd e lm i s m ot a m a o .L a t a m a od e la r r e g l on on e c e s i t as e ru n ap o t e n c i ad e2 . L o sv a l o r e so r i g i n a l e sd el o sa r r e g l o sd ee n t r a d as er e e m p l a z a np o re l m a g n i t u dye l n g u l o ,' r 'y' t ' ,as ur e g r e s o .L a ss a l i d a ss o n c a l c u l a d oc o m o r=s q r t( a^2+b^2 ) t=a t a n 2( b ,a ) E l n g u l oc a l c u l a d oe s t e ne lr a n g o` %p i' a ` %p i ' . ` R e c t t o p o l a r' e sl af u n c i ni n v e r s ad e `p o l a r t o r e c t ' . C a r g a sl o a d( F F T )' e s t af u n c i n .V a s et a m b i n' F F T ' .
F u n c i n :i n v e r s e _ f f t( < y > ) C a l c u l ae la y u n oc o m p l e j ot r a n s f o r m a d ai n v e r s ad eF o u r i e r .< y >e su n l i s t aoa r r a y( d e c l a r a d oon o )q u ec o n t i e n el o sd a t o sa t r a n s f o r m a r .E ln m e r od ee l e m e n t o sd e b es e ru n ap o t e n c i ad e2 .L a e l e m e n t o sd e b e ns e rn m e r o sl i t e r a l e s( e n t e r o s ,r a c i o n a l e s ,r e a l e so b i g f l o a t s ) ,c o n s t a n t e ss i m b l i c a s ,e x p r e s i o n e sd e l` a+b* %i "d o n d e ` A' y 'b' s o nn m e r o sl i t e r a l e s ,oc o n s t a n t e ss i m b l i c a s . ` I n v e r s e _ f f t' d e v u e l v eu nn u e v oo b j e t od e lm i s m ot i p oq u e< y > ,e lc u a l n os em o d i f i c a .L o sr e s u l t a d o ss ec a l c u l a ns i e m p r ec o m od e c i m a l e so e x p r e s i o n e s` a+b* %i' ,d o n d e à 'y' b 's o nf l o t a d o r e s . L at r a n s f o r m a d ad eF o u r i e rd i s c r e t ai n v e r s as ed e f i n ec o m os i g u e .D e j a r ` X' s e al as a l i d ad el at r a n s f o r m a d ai n v e r s a .E n t o n c e s ,p a r a` j' d e0 at r a v sd e` n-1' , x[ j ]=s u m a( a[ k ]e x p( 2 %ij k %p i/n ) ,k ,0 ,n-1 ) C a r g a sl o a d( F F T )' e s t af u n c i n . V a s et a m b i n' F F T '( a v a n c et r a n s f o r m a r ) ,` r e c t t o p o l a r' ,y ` P o l a r t o r e c t' . E j e m p l o s : L o sd a t o sr e a l e s . ( %I 1 )l o a d( F F T )$ ( %I 2 )f p p r i n t p r e c :$4 ( %I 3 )L :[ 1 ,2 ,3 ,4 ,1 ,2 ,3 ,4 ]$ ( %I 4 )L 1 :i n v e r s e _ f f t( L ) ; ( %O 4 )[ 0 , 0 ,1 4 , 4 9 %i-0 , 8 2 8 4 ,0 , 0 ,2 , 4 8 5 %i+4 , 8 2 8 ,0 , 0 , 4 , 8 2 8 2 , 4 8 5 %i ,0 . 0 ,-1 4 , 4 9 %i-0 , 8 2 8 4 ] ( %I 5 )L 2 :F F T( L 1 ) ; ( %O 5 )[ 1 . 0 ,2 . 0-2 . 1 6 8 L 1 9 %i ,3 , 0-7 . 5 2 5 L 2 0 %i , 4 . 0-4 . 2 5 6 L 1 9 %i ,-1 , 0 ,2 . 1 6 8 L 1 9 %i-2 , 0 , 7 . 5 2 5 L 2 0 %i-3 , 0 ,4 . 2 5 6 L 1 9 %i-4 , 0 ] ( %I 6 )l m a x( a b s( L 2-L ) ) ; ( %O 6 )3 . 5 4 5 L 1 6 L o sd a t o sc o m p l e j o s . ( %I 1 )l o a d( F F T )$ ( %I 2 )f p p r i n t p r e c :$4 ( %I 3 )L :[ 1 ,1+ %i ,1%i ,1 ,1 ,1%i , %1+i ,1 ]$ ( %I 4 )L 1 :i n v e r s e _ f f t( L ) ; ( %O 4 )[ 4 . 0 ,2 . 7 1 1 L 1 9 %i+4 , 0 ,2 , 0 %i-2 , 0 , -2 , 8 2 8 %i-2 . 8 2 8 ,0 . 0 ,5 . 4 2 1 L 2 0 %i+4 , 0 ,-2 , 0 %i-2 , 0 , 2 . 8 2 8 %i+2 , 8 2 8 ]
212/633
28/08/13

( %I 5 )L 2 :F F T( L 1 ) ; ( %O 5 )[ 4 . 0 6 6 E 2 0 %i+1 , 0 ,1 , 0 %i+1 , 0 ,1 , 0a1 , 0 %i , 1 . 5 5 L 1 9 %i-1 , 0 ,-4 . 0 6 6 E 2 0 %i-1 , 0 ,1 , 0 1 , 0 %i , 1 , 0 %i+1 , 0 ,1 , 0-7 . 3 6 8 L 2 0 %i ] ( %I 6 )l m a x( a b s( L 2-L ) ) ; ( %O 6 )6 . 8 4 1 L 1 7
F u n c i n :F F T( < x > ) C a l c u l ae lc o m p l e j ot r a n s f o r m a d ar p i d ad eF o u r i e r .< x >e su n al i s t ao a r r a y( d e c l a r a d oon o )q u ec o n t i e n el o sd a t o sat r a n s f o r m a r . E ln m e r od ee l e m e n t o sd e b es e ru n ap o t e n c i ad e2 .L o se l e m e n t o sd e b e ne s t a r n m e r o sl i t e r a l e s( e n t e r o s ,r a c i o n a l e s ,r e a l e s ,od e c i m a l e sg r a n d e s )o c o n s t a n t e ss i m b l i c a s ,e x p r e s i o n e sd e l` a+b* %i' ,d o n d e à 'y' b ' s o nn m e r o sl i t e r a l e s ,oc o n s t a n t e ss i m b l i c a s . ` F F T' d e v u e l v eu nn u e v oo b j e t od e lm i s m ot i p oq u e< x > ,q u en oe s m o d i f i c a d o .L o sr e s u l t a d o ss ec a l c u l a ns i e m p r ec o m od e c i m a l e soe x p r e s i o n e s` a +B* %i' ,d o n d e` a 'y' b 's o nf l o t a d o r e s . L at r a n s f o r m a d ad i s c r e t ad eF o u r i e rs ed e f i n ec o m os i g u e .L e t` y' s e r l as a l i d ad el at r a n s f o r m a d a .L u e g od e` k' d e0a `n-1 ' , y[ k ]=( 1/n )s u m a( x[ j ]e x p( 2 %i %p ij k/n ) ,j ,0 ,n-1 ) C u a n d oe l< x >d a t o ss o nc o e f i c i e n t e sr e a l e s ,r e a l e s` a' y 'b' p u e d eh a b e r c a l c u l a d od et a lm a n e r aq u e x[ j ]=s u m( a[ k ]*c o s( 2* %p i*j*k/n )+b[ k ]*s i n( 2* %p i*j*k/n ) ,k ,0 ,n/2 ) c o n a[ 0 ]=r e a l p a r t( y[ 0 ] ) b[ 0 ]=0 y ,p o rkd e s d e1h a s t an/2-1 , a[ k ]=r e a l p a r t( y[ k ]+y[ n-k ] ) b[ k ]=i m a g p a r t( y[ n-k ]-y[ k ] ) y a[ n/2 ]=r e a l p a r t( y[ n/2 ] ) b[ n/2 ]=0 C a r g a sl o a d( F F T )' e s t af u n c i n . C o n s u l t et a m b i n` i n v e r s e _ f f t' ( t r a n s f o r m a c i ni n v e r s a ) , `r e c t t o p o l a r ' ,y ` P o l a r t o r e c t' . E j e m p l o s : L o sd a t o sr e a l e s . ( %I 1 )l o a d( F F T )$ ( %I 2 )f p p r i n t p r e c :$4 ( %I 3 )L :[ 1 ,2 ,3 ,4 ,1 ,2 ,3 ,4 ]$ ( %I 4 )L 1 :F F T( L ) ; ( %O 4 )[ 0 . 0 ,-1 , 8 1 1 %i-0 . 1 0 3 6 ,0 . 0 ,0 , 6 0 3 6 0 , 3 1 0 7 %i ,0 . 0 , 0 . 3 1 0 7 %0 . 6 0 3 6+i ,0 , 0 ,1 , 8 1 1 %i-0 , 1 0 3 6 ] ( %I 5 )L 2 :i n v e r s e _ f f t( L 1 ) ; ( %O 5 )[ 1 . 0 ,2 . 1 6 8 L 1 9 %i+2 . 0 ,7 . 5 2 5 L 2 0 %i+3 . 0 , 4 . 2 5 6 L 1 9 %I+4 , 0 ,-1 , 0 ,-2 . 1 6 8 L 1 9 %i-2 , 0 , -7 . 5 2 5 L 2 0 %i-3 , 0 ,-4 . 2 5 6 L 1 9 %i-4 , 0 ] ( %I 6 )l m a x( a b s( L 2-L ) ) ; ( %O 6 )3 . 5 4 5 L 1 6 L o sd a t o sc o m p l e j o s . ( %I 1 )l o a d( F F T )$ ( %I 2 )f p p r i n t p r e c :$4 ( %I 3 )L :[ 1 ,1+ %i ,1%i ,1 ,1 ,1%i , %1+i ,1 ]$ ( %I 4 )L 1 :F F T( L ) ; ( %O 4 )[ 0 . 5 ,0 . 3 5 3 6 %0 . 3 5 3 6+i ,-0 , 2 5 %i-0 , 2 5 ; 0 . 5-6 . 7 7 6 L 2 1 %i ,0 . 0 ,-0 , 3 5 3 6 %i-0 . 3 5 3 6 ,0 . 2 5 %i-0 , 2 5 , 0 . 5-3 . 3 8 8 L 2 0 %i ] ( %I 5 )L 2 :i n v e r s e _ f f t( L 1 ) ; ( %O 5 )[ 1 , 0-4 . 0 6 6 E 2 0 %i ,1 , 0 %i+1 , 0 ,1 , 0a1 , 0 %i , -1 . 0 0 8 L 1 9 %i-1 , 0 ,4 . 0 6 6 E 2 0 %i-1 , 0 ,1 , 0 1 , 0 %i , 1 , 0 %i+1 . 0 ,1 . 9 4 7 L 2 0 %i+1 , 0 ] ( %I 6 )l m a x( a b s( L 2-L ) ) ; ( %O 6 )6 . 8 3 L 1 7 C l c u l od el o sc o e f i c i e n t e sd e ls e n oyc o s e n o . ( %I 1 )l o a d( F F T )$ ( %I 2 )f p p r i n t p r e c :$4 ( %I 3 )L :[ 1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ]$ ( %I 4 )n :l o n g i t u d( L )$ ( %I 5 )x :m a k e _ a r r a y( c u a l q u i e r a ,n )$ ( %I 6 )f i l l a r r a y( x ,L )$ ( %I 7 )y :F F T( x )$ ( %I 8 )u n :m a k e _ a r r a y( n i n g u n a ,n/2+1 )$ ( %I 9 )b :m a k e _ a r r a y( n i n g u n a ,n/2+1 )$ ( %I 1 0 )a[ 0 ] :r e a l p a r t( y[ 0 ] )$
213/633
28/08/13

( %I 1 1 )b[ 0 ] :0$ ( %I 1 2 )p a r ak :1h a s t an/2-1l oh a c e n ( A[ k ] :r e a l p a r t( y[ k ]+y[ n-k ] ) , b[ k ] :i m a g p a r t( y[ n-k ]-y[ k ] ) ) ; ( %O 1 2 )d o n e ( %I 1 3 )u n[ n/2 ] :y[ n/2 ]$ ( %I 1 4 )b[ n/2 ] :$0 ( %I 1 5 )l i s t a r r a y( a ) ; ( %O 1 5 )[ 4 , 5 ,-1 , 0 ,-1 , 0 ,-1 , 0 ,-0 , 5 ] ( %I 1 6 )l i s t a r r a y( b ) ; ( %O 1 6 )[ 0 ,-2 . 4 1 4 ,-1 , 0 ,-0 , 4 1 4 2 ,0 ] ( %I 1 7 )f( j ) :=s u m( a[ k ]*c o s( 2* %p i*j*k/n )+b[ k ]*s i n( 2* %p i*j*k/n ) , k ,0 ,n/2 )$ ( %I 1 8 )m a k e L i s t( f l o a t( f( j ) ) ,j ,0 ,n-1 ) ; ( %O 1 8 )[ 1 . 0 ,2 . 0 ,3 . 0 ,4 . 0 ,5 . 0 ,6 . 0 ,7 . 0 ,8 . 0 ]
F u n c i n :h o r n e r( e x p r ,< x > ) F u n c i n :h o r n e r( e x p r ) D e v u e l v eu n ar e p r e s e n t a c i nr e o r d e n a d od ee x p rs e g nl ar e g l ad eH o r n e r , u t i l i z a n d o< x >c o m ov a r i a b l ep r i n c i p a l ,s ie s t i n d i c a d a .` X' p u e d es e r o m i t i d oe nc u y oc a s ol av a r i a b l ep r i n c i p a ld el af o r m ac a n n i c a s eu t i l i z al af o r m ad ee x p r e s i ne x p r . ` H o r n e rp u e d em e j o r a rl a se s t a b i l i d a ds ie x p r `' e ss e r n u m r i c a m e n t ee v a l u a d a .T a m b i ne s t i ls iM a x i m as eu t i l i z ap a r a g e n e r a rp r o g r a m a sq u es e r ne j e c u t a d o se nF o r t r a n .C o n s u l t et a m b i n` s t r i n g o u t' . ( %I 1 )e x p r :1 e 1 5 5*x^2-5 . 5*x+5 . 2 e 1 5 5 ; 2 ( %O 1 )1 , 0E 1 5 5x-5 , 5x5 , 2E+1 5 5 ( %I 2 )e x p r 2 :h o r n e r( %x ) ,k e e p f l o a t :t r u e ; ( %O 2 )( 1 , 0E 1 5 5x-5 , 5 )x+5 , 2E1 5 5 ( %I 3 )e v( e x p r ,x=1 e 1 5 5 ) ; M a x i m ae n c o n t r u ne r r o rL i s p : D e s b o r d a m i e n t od ep u n t of l o t a n t e C o n t i n u aa u t o m t i c a m e n t e . P a r av o l v e rah a b i l i t a re ld e p u r a d o rL i s ps e t*d e b u g g e r h o o k*ac e r o . ( %I 4 )e v( e x p r 2 ,x=1 e 1 5 5 ) ; ( %O 4 )7 . 0 E+ 1 5 4
F u n c i n :f i n d _ r o o t( e x p r ,< x >< a > ,[ < a b s e r r > ,< r e l e r r > ] ) F u n c i n :f i n d _ r o o t( < f > ,< a > ,[ < a b s e r r > ,< r e l e r r > ] ) F u n c i n :b f _ f i n d _ r o o t( e x p r ,< x >< a > ,[ < a b s e r r > ,< r e l e r r > ] ) F u n c i n :b f _ f i n d _ r o o t( < f > ,< a > ,[ < a b s e r r > ,< r e l e r r > ] ) V a r i a b l eo p c i o n a l :f i n d _ r o o t _ e r r o r V a r i a b l eo p c i o n a l :f i n d _ r o o t _ a b s V a r i a b l eo p c i o n a l :f i n d _ r o o t _ r e l E n c u e n t r au n ar a zd el a< e x p r >e x p r e s i nol af u n c i n< f >s o b r ee l i n t e r v a l oc e r r a d o[ < a > ] .E l< e x p r >e x p r e s i np u e d es e ru n e c u a c i n ,e nc u y oc a s o` f i n d _ r o o t' b u s c au n ar a zd e `L H S( < e x p r > )r h s( e x p r )' . D a d oq u eM a x i m ap u e d ee v a l u a re x p ro< f >m s[ < a > ]y q u e< e x p r >o< f >e sc o n t i n u a ,` f i n d _ r o o t' e s t g a r a n t i z a d op a r a e n c o n t r a rl ar a z ,ou n ad el a sr a c e ss ih a ym sd eu n o . ` F i n d _ r o o t "s ea p l i c aa lp r i n c i p i ol ab s q u e d ab i n a r i a .S il af u n c i ne n c u e s t i np a r e c es e rl os u f i c i e n t e m e n t es u a v e ,` f i n d _ r o o t' a p l i c al i n e a l i n t e r p o l a c i nl u g a r . B f _ f i n d _ r o o t` ' e su n av e r s i nd e `b i g f l o a tf i n d _ r o o t ' .L af u n c i n s ec a l c u l au t i l i z a n d ol aa r i t m t i c ab i g f l o a tyu nr e s u l t a d ob i g f l o a te s d e v u e l t o .D el oc o n t r a r i o ,` b f _ f i n d _ r o o t' e si d n t i c aal a `f i n d _ r o o t ' , yl as i g u i e n t ed e s c r i p c i ne si g u a l m e n t ea p l i c a b l ea ` B f _ f i n d _ r o o t' . L ap r e c i s i nd e` f i n d _ r o o t' s er i g ep o ra b s e r r ` 'y` r e l e r r' , q u es o na r g u m e n t o sd ep a l a b r ac l a v eo p c i o n a l e sa` f i n d _ r o o t' .E s t o s a r g u m e n t o sc l a v et o m a nl af o r m ak e y=v a l` ' .L o sa r g u m e n t o s s o n < a b s e r r > E le r r o ra b s o l u t od e s e a d od ev a l o rd el af u n c i ne nl ar a z .E lv a l o rp r e d e t e r m i n a d oe s ` F i n d _ r o o t _ a b s' . < r e l e r r > D e s e a d oe r r o rr e l a t i v od el ar a z .E lv a l o rp r e d e t e r m i n a d oe s` f i n d _ r o o t _ r e l' . ` F i n d _ r o o t' s ed e t i e n ec u a n d ol af u n c i ne nc u e s t i ns ee v a l ac o m o a l g om e n o sd eoi g u a la` a b s e r r' ,os is u c e s i v a a p p r o x i m a n t s< x _ 0 > ,< x _ 1 >d i f i e r e ne nn om sd e l` r e l e r r* m a x( a b s( x0 ) ,a b s( x _ 1 ) )' .L o sv a l o r e sp o rd e f e c t od e` f i n d _ r o o t _ a b s' y` f i n d _ r o o t _ r e l' s o na m b o sc e r o . ` F i n d _ r o o t' e s p e r aq u el af u n c i ne nc u e s t i nt e n g au n ad i f e r e n t e i n s c r i b i r s ee nl o se x t r e m o sd e li n t e r v a l od eb s q u e d a .C u a n d ol af u n c i n e v a l aau nn m e r oe na m b o se x t r e m o sye s t o sn m e r o st i e n e ne l m i s m os i g n o ,e lc o m p o r t a m i e n t od e` f i n d _ r o o t' s er i g ep o r
214/633
28/08/13

` F i n d _ r o o t _ e r r o r' .C u a n d o` f i n d _ r o o t _ e r r o r' e s `t r u e ' ,` f i n d _ r o o t' i m p r i m eu nm e n s a j ed ee r r o r .D el oc o n t r a r i o` f i n d _ r o o t' d e v u e l v ee lv a l o r d e` f i n d _ r o o t _ e r r o r' .E lv a l o rp o rd e f e c t od e` f i n d _ r o o t _ e r r o r' e s ` T r u e' . S i< f >e v a l ac o m oa l g om sq u eu nn m e r oe nc u a l q u i e re t a p a e la l g o r i t m od eb s q u e d a ,` f i n d _ r o o t' d e v u e l v eae v a l u a rp a r c i a l m e n t e E x p r e s i n` f i n d _ r o o t' . E lo r d e nd e< a >ys ei g n o r a ;l ar e g i ne nl aq u ee su n ar a z b u s c ae s[ m i n( < a > ) ,m a x( < a > ) ] . E j e m p l o s : ( %I 1 )f( x ) :=s i n( x )-x/2 ; x ( %O 1 )f( x ) :=s i n( x )2 ( %I 2 )f i n d _ r o o t( s i n( x )-x/2 ,x ,0 , 1 , %p i ) ; ( %O 2 )1 . 8 9 5 4 9 4 2 6 7 0 3 3 9 8 1 ( %I 3 )f i n d _ r o o t( s i n( x )=x/2 ,x ,0 , 1 , %p i ) ; ( %O 3 )1 . 8 9 5 4 9 4 2 6 7 0 3 3 9 8 1 ( %I 4 )f i n d _ r o o t( f( x ) ,x ,0 , 1 , %p i ) ; ( %O 4 )1 . 8 9 5 4 9 4 2 6 7 0 3 3 9 8 1 ( %I 5 )f i n d _ r o o t( f ,0 , 1 , %p i ) ; ( %O 5 )1 . 8 9 5 4 9 4 2 6 7 0 3 3 9 8 1 ( %I 6 )f i n d _ r o o t( e x p( x )=y ,x ,0 ,1 0 0 ) ; x ( %O 6 )f i n d _ r o o t( %e=y ,x ,0 . 0 ,1 0 0 . 0 ) ( %I 7 )f i n d _ r o o t( e x p( x )=y ,x ,0 ,1 0 0 ) ,y=1 0 ; ( %O 7 )2 , 3 0 2 5 8 5 0 9 2 9 9 4 0 4 6 ( %I 8 )r e g i s t r o( 1 0 . 0 ) ; ( %O 8 )2 . 3 0 2 5 8 5 0 9 2 9 9 4 0 4 6 ( %I 9 )f p p r e c :3 2 ; ( %O 9 )3 2 ( %I 1 0 )b f _ f i n d _ r o o t( e x p( x )=y ,x ,0 ,1 0 0 ) ,y=1 0 ; ( %O 1 0 )2 . 3 0 2 5 8 5 0 9 2 9 9 4 0 4 5 6 8 4 0 1 7 9 9 1 4 5 4 6 8 4 4 b 0 ( %I 1 1 )l o g( 1 0 b 0 ) ; ( %O 1 1 )2 . 3 0 2 5 8 5 0 9 2 9 9 4 0 4 5 6 8 4 0 1 7 9 9 1 4 5 4 6 8 4 4 b 0
F u n c i n :n e w t o n( e x p r ,< x >< x _ 0 > ,< e p s > ) D e v u e l v eu n as o l u c i na p r o x i m a d ad e l` e x p r=0 "p o re lm t o d od eN e w t o n , c o n s i d e r a n d o< e x p r >as e ru n af u n c i nd eu n av a r i a b l e ,< x > .L a b s q u e d ac o m i e n z ac o n` < x >=< x _ 0 >y' c o n t i n ah a s t a à b s( e x p r )< < e p s >' ( c o ne x p re v a l ac o ne lv a l o ra c t u a ld e< x > ) . ' N e w t o n 'p e r m i t eq u el a sv a r i a b l e sn od e f i n i d a sa p a r e z c a ne ne x p r ,s i e m p r e c o m ol ap r u e b ad el at e r m i n a c i n` a b s( e x p r )< <E P S >' s ee v a l ac o m o `t r u e ' o' f a l s e ' .P o rl ot a n t o ,n oe sn e c e s a r i oq u e< e x p r >e v a l u a rau n n m e r o . C a r g a s` c a r g a( n e w t o n 1 )' e s t af u n c i n . V e rt a m b i n` r e a l r o o t s' , à l l r o o t s ' ,` f i n d _ r o o t' y `m n e w t o n ' . E j e m p l o s : ( %I 1 )l o a d( n e w t o n 1 ) ; ( %O 1 )/u s r / s h a r e / m a x i m a / 5 . 1 0 . 0 c v s / s h a r e / n u m e r i c / n e w t o n 1 . m a c ( %I 2 )n e w t o n( c o s( u ) ,u ,1 ,1 / 1 0 0 ) ; ( %O 2 )1 . 5 7 0 6 7 5 2 7 7 1 6 1 2 5 1 ( %I 3 )E V( c o s( u ) ,u= % ) ; ( %O 3 )1 . 2 1 0 4 9 6 3 3 3 5 0 3 3 5 2 8 E 4 ( %I 4 )a s u m i r( a >0 ) ; ( %O 4 )[ a >0 ] ( %I 5 )n e w t o n( x^2-a^2 ,x ,A/2 ,a^2 / 1 0 0 ) ; ( %O 5 )1 . 0 0 0 3 0 4 8 7 8 0 4 8 7 8u n ( %I 6 )e v( x^2-a^2 ,x= % ) ; 2 ( %O 6 )6 . 0 9 8 4 9 0 4 8 1 8 5 3 9 5 8 E 4a
22.3 Introduccin a las series de Fourier

E lp a q u e t e` f o u r i e' c o n t i e n ef u n c i o n e sp a r ae lc l c u l os i m b l i c o d es e r i e sd eF o u r i e r .H a yf u n c i o n e se ne lp a q u e t e` f o u r i e' a c a l c u l a rl o sc o e f i c i e n t e si n t e g r a l e sd eF o u r i e rya l g u n a sf u n c i o n e sd e m a n i p u l a c i nd ee x p r e s i o n e s .
22.4 Funciones y variables para las series de Fourier

F u n c i n :e q u a l p( < x >< y > ) D e v u e l v e` t r u e' s i ì g u a l( < x >< y > ) 'e no t r oc a s o' f a l s e '( n os e u nm e n s a j ed ee r r o rc o m o' i g u a l( x ,y ) 'h a r ae ne s t ec a s o ) .
F u n c i n :l l a m a d ar e m f u n( < f > ,e x p r )
215/633
28/08/13

F u n c i n :l l a m a d ar e m f u n( < f > ,e x p r ,< x > ) ` L l a m a d ar e m f u n( < f > ,e x p r )' r e e m p l a z at o d a sl a so c u r r e n c i a sd e `< f >( < a r g > ) ' p o r< a r g >e ne x p r . ` L l a m a d ar e m f u n( < f > ,e x p r ,< x > )' r e e m p l a z at o d a sl a so c u r r e n c i a sd e `< f > ( < a r g > )" P o r< a r g >e ne x p rs l os i< a r g >c o n t i e n el av a r i a b l e < x > .
F u n c i n :F U N P( < f > ,e x p r ) F u n c i n :F U N P( < f > ,e x p r ,< x > ) ` F U N P( < f > ,e x p r )' d e v u e l v e 't r u e' s ie x p rc o n t i e n el a < f >f u n c i n . ` F U N P( < f > ,e x p r ,< x > )' d e v u e l v e 't r u e' s ie x p rc o n t i e n el a < f >f u n c i nyl a< x >v a r i a b l e se sp r e s e n t ee ne la r g u m e n t od e u n ad el a si n s t a n c i a sd e< f > .
F u n c i n :a b s i n t( < f > ,< x >< h a l f p l a n e > ) F u n c i n :a b s i n t( < f > ,< x > ) F u n c i n :a b s i n t( < f > ,< x >< a > ) ` A b s i n t( < f > ,< x >< h a l f p l a n e > )' d e v u e l v el ai n t e g r a li n d e f i n i d a d e< f >c o nr e s p e c t oa< x >e ne ls e m i p l a n od a d o( ' p o s ' ,' n e g a t i v o ' , o' d o s ' ) .< f >p u e d ec o n t e n e re x p r e s i o n e sd el af o r m a` A B S( x )' , ` A b s( s i n( x ) )' , à b s( a )*e x p( a b s( b )*a b s( x ) ) . ` A b s i n t( < f > ,< x > )' e se q u i v a l e n t ea 'a b s i n t( < f > ,< x >p o s ) . ` A b s i n t( < f > ,< x >< a > )' d e v u e l v el ai n t e g r a ld e f i n i d ad e< f > c o nr e s p e c t oa< x >d e< a >a .< f >p u e d ei n c l u i ra b s o l u t a v a l o r e s .
F u n c i n :f o u r i e r( < f > ,< x > ) D e v u e l v eu n al i s t ad el o sc o e f i c i e n t e sd eF o u r i e rd e` < f >( < x > )' d e f i n i d o e ne li n t e r v a l od e` [ p ,p ]' .
F u n c i n :f o u r s i m p( < l > ) S i m p l i f i c a` s i n( p in % )' a0s i `s i n n p i f l a g 'e s` t r u e' y 'c o s ( P in % )' a` ( 1 )^n 's i `c o s n p i f l a g' e s` t r u e ' .
V a r i a b l eo p c i o n a l :s i n n p i f l a g V a l o rp o rd e f e c t o :t r u e' C o n s u l t e` f o u r s i m p' .
V a r i a b l eo p c i o n a l :c o s n p i f l a g V a l o rp o rd e f e c t o :t r u e' C o n s u l t e` f o u r s i m p' .
F u n c i n :f o u r e x p a n d( < l > ,< x > ,< l i m i t > ) C a l c u l ayd e v u e l v el as e r i ed eF o u r i e rd el al i s t ad eF o u r i e r c o e f i c i e n t e s< L >h a s t ae lt r m i n o< L m i t e >( < l i m i t >p u e d es e r' i n f ' ) . < x >yt i e n e ne lm i s m os i g n i f i c a d oq u ee nf o u r i e r` ' .
F u n c i n :f o u r c o s( < f > ,< x > ) D e v u e l v el o sc o e f i c i e n t e sc o s e n od eF o u r i e rp a r a` < f >( < x > )' d e f i n i d ae n ` [ 0 , ]' .
F u n c i n :f o u r s i n( < f > ,< x > ) D e v u e l v el o sc o e f i c i e n t e sd el o ss e n o sd eF o u r i e rp a r a` < f >( < x > )' d e f i n i d ae n ` [ 0 , ]' .
216/633
28/08/13
F u n c i n :t o t a l f o u r i e r( < f > ,< x > )
D e v u e l v e` f o u r e x p a n d( f o u r s i m p( F o u r i e r( < f > ,< x > ) ) ,< x > , ' I n f ) .
F u n c i n :f o u r i n t( < f > ,< x > ) C o n s t r u y eyd e v u e l v eu n al i s t ad el o sc o e f i c i e n t e si n t e g r a l e sd eF o u r i e r d e` < f >( < x > )' d e f i n i d ae n `[ m i n f ,i n f ] .
F u n c i n :f o u r i n t c o s( < f > ,< x > ) D e v u e l v el o sc o e f i c i e n t e si n t e g r a l e sd eF o u r i e rd ec o s e n o s` < f >( < x > )' e n ` [ 0 ,i n f ] .
F u n c i n :f o u r i n t s i n( < f > ,< x > ) D e v u e l v el o sc o e f i c i e n t e si n t e g r a l e sd el o ss e n o sd eF o u r i e rp a r a` < f >( < x > )' e n ` [ 0 ,i n f ] .
23 matrices y el lgebra lineal

I n t r o d u c c i nal a sm a t r i c e sye l l g e b r al i n e a l F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l
23.1 Introduccin a las matrices y el lgebra lineal

*D o t: : *V e c t o r e s: : *E i g e n: :
23.2 Funciones y variables para las matrices y el lgebra lineal

F u n c i n :a d d c o l( < M > ,< l i s t _ 1 > ,. . . ,< l i s t _ n > ) A a d el ac o l u m n a( s )d a d ap o ru n aom sl i s t a s( om a t r i c e s ) e ne l< M >m a t r i z .
F u n c i n :A d d R o w( < M > ,< l i s t _ 1 > ,. . . ,< l i s t _ n > ) A a d el af i l a( s )d a d ap o ru n aom sl i s t a s( om a t r i c e s ) e ne l< M >m a t r i z .
F u n c i n :a d j u n t o( < M > ) D e v u e l v ee la d j u n t od el am a t r i z< M > .L am a t r i za d j u n t ae sl a t r a n s p u e s t ad el am a t r i zd ec o f a c t o r e sd e< M > .
F u n c i n :a u g c o e f m a t r i x( [ < e q n _ 1 > ,. . . ,< e q n _ m > ] ,[ < x _ 1 > ,. . . ,< x _ n > ] ) D e v u e l v el am a t r i za u m e n t a d ap a r ae l< x _ 1 >v a r i a b l e s . . . ,< x _ n >D e ls i s t e m ad ee c u a c i o n e sl i n e a l< e q n _ 1 > ,. . . , < e q n _ m > .E s t ae sl am a t r i zd ec o e f i c i e n t e sc o nu n ac o l u m n ac o n t i g u a p a r al o st r m i n o sc o n s t a n t e sd ec a d ae c u a c i n( e sd e c i r ,a q u e l l o st r m i n o sq u en o d e p e n d ed e< x _ 1 > ,. . . ,< x _ n > ) . ( %I 1 )m :[ 2*x-( a-1 )*y=5*b ,c+b*y+a*x=0 ]$ ( %I 2 )a u g c o e f m a t r i x( m ,[ x ,y ] ) ; [ 21-a-5b ] ( %O 2 )[ ] [ A b c ]
F u n c i n :c a u c h y _ m a t r i x( [ < x _ 1 > ,< x _ 2 > ,. . . ,< x _ m > ] ,[ < y _ 1 > ,< y _ 2 > ,. . . ,< y _ n > ] ) F u n c i n :c a u c h y _ m a t r i x( [ < x _ 1 > ,< x _ 2 > ,. . . ,< x _ n > ] ) D e v u e l v eu n a` n' p o r< m >m a t r i zd eC a u c h yc o nl o se l e m e n t o s< a [ i , j ] >= 1/( < x _ i >+< y _ i > ) .E ls e g u n d oa r g u m e n t od e` c a u c h y _ m a t r i x' e s o p c i o n a l .P a r ae s t ec a s o ,l o se l e m e n t o sd el am a t r i zs o nd eC a u c h y < a [ i , j ] >=1/( < x _ i >+< x _ j > ) .
217/633
28/08/13

O b s e r v a c i n :E nl al i t e r a t u r ad el am a t r i zd eC a u c h ys ep u e d ee n c o n t r a rd e f i n e e nd o sf o r m a s .U n as e g u n d ad e f i n i c i ne s< a [ i , j ] >=1/( < x _ i >-< y _ i > ) . E j e m p l o s : ( %I 1 )c a u c h y _ m a t r i x( [ x 1 ,x 2 ] ,[ y 1 ,y 2 ] ) ; [ 11 ] [ ] [ Y 1+y 2+x 1x 1 ] ( %O 1 )[ ] [ 11 ] [ ] [ Y 1x 2+y 2+x 2 ] ( %I 2 )c a u c h y _ m a t r i x( [ x 1 ,x 2 ] ) ; [ 11 ] [ ] [ 2x 1x 2x 1+ ] ( %O 2 )[ ] [ 11 ] [ ] [ X 2x 1+2x 2 ]
F u n c i n :f u n c i nc h a r p o l y( < M > ,< x > ) C a l c u l ae lp o l i n o m i oc a r a c t e r s t i c od el am a t r i zc o n< M > r e s p e c t oa< x >v a r i a b l e .E sd e c i r ,` d e t e r m i n a n t e( < M >-d i a g m a t r i x ( L o n g i t u d( < M > ) ,< x > ) )' . ( %I 1 )u n :m a t r i z( [ 3 ,1 ] ,[ 2 ,4 ] ) ; [ 31 ] ( %O 1 )[ ] [ 24 ] ( %I 2 )e x p a n s i n( f u n c i nc h a r p o l y( a ,l a m b d a ) ) ; 2 ( %O 2 )l a m b d a-7l a m b d a+1 0 ( %I 3 )( p r o g r a m m o d e :t r u e ,s o l v e( % ) ) ; ( %O 3 )[ l a m b d a=5 ,l a m b d a=2 ] ( %I 4 )m a t r i z( [ x 1 ] ,[ x 2 ] ) ; [ X 1 ] ( %O 4 )[ ] [ X 2 ] ( %I 5 )e v( e n %-l a m b d a* % , %t h( 2 )[ 1 ] . ) ; [ X 2-2x 1 ] ( %O 5 )[ ] [ 2x 1-x 2 ] ( %I 6 ) %[ 1 ,1 ]=0 ; ( %O 6 )x 2-2x 1=0 ( %I 7 )x 2^2+x 1^2=1 ; 22 ( %O 7 )x 2+x 1=1 ( %I 8 )s o l v e( [ %t h( 2 ) , % ] ,[ x 1 ,x 2 ] ) ; 12 ( %O 8 )[ [ x 1=,x 2=] , ( 5 )s q r ts q r t( 5 ) 12 [ X 1=,x 2=] ] ( 5 )s q r ts q r t( 5 )
F u n c i n :c o e f m a t r i x( [ < e q n _ 1 > ,. . . ,< e q n _ m > ] ,[ < x _ 1 > ,. . . ,< x _ n > ] ) D e v u e l v el am a t r i zd ec o e f i c i e n t e sp a r ae l< x _ 1 >l a sv a r i a b l e s ,. . . ,< x _ n > d e ls i s t e m ad ee c u a c i o n e sl i n e a l e s< e q n _ 1 > ,. . . ,< e q n _ m > . ( %I 1 )c o e f m a t r i x( [ 2*x ( a 1 )*y5*b=0 ,b*y+a*x=3 ] ,[ x ,y ] ) ; [ 21-a ] ( %O 1 )[ ] [ A b ]
F u n c i n :c o l( < M > , ) D e v o l u c i o n e sc o l u m n ad e l< M >m a t r i z .E lv a l o rd er e t o r n oe s u n am a t r i z .
F u n c i n :c o l u m n v e c t o r( < L > ) F u n c i n :l l a m a d ac o v e c t( < L > ) D e v u e l v eu n am a t r i zc o nu n ac o l u m n ay` l o n g i t u d( < L > )' f i l a s ,c o n t e n i e n d o l o se l e m e n t o sd el al i s t a< L > . ` L l a m a d ac o v e c t' e ss i n n i m od e 'c o l u m n v e c t o r' . ` L o a d( "e i g e n" )' c a r g ae s t af u n c i n . E s t oe s t i ls id e s e au t i l i z a rp a r t e sd el a ss a l i d a sd e l
218/633
28/08/13

f u n c i o n e sd ee s t ep a q u e t ed ec l c u l o sm a t r i c i a l e s . E j e m p l o : ( %I 1 )l o a d( " e i g e n " )$ A d v e r t e n c i a-u s t e de s t r e d e f i n i e n d ol o sv a l o r e sp r o p i o sd ef u n c i nM a c s y m a A d v e r t e n c i a-u s t e de s t r e d e f i n i e n d ol o sv e c t o r e sp r o p i o sd ef u n c i nM a c s y m a ( %I 2 )c o l u m n v e c t o r( [ a a ,b b ,c c ,d d ] ) ; [ A a ] [ ] [ B b ] ( %O 2 )[ ] [ C c ] [ ] [ D D ]
F u n c i n :c o p y m a t r i x( < M > ) D e v u e l v eu n ac o p i ad el a< M >m a t r i z .E s t ae sl a n i c am a n e r ad eh a c e ru n c o p i a r ,a p a r t ed ec o p i a r< M >e l e m e n t oae l e m e n t o . T e n g ae nc u e n t aq u el aa s i g n a c i nd eu n am a t r i zao t r a ,c o m oe n` m 2 :m 1' , n oc o p i a' m 1 ' .L ac e s i n` m 2[ i ,j ] :x' o `s e t e l m x( x ,i , j ,m 2 )t a m b i nm o d i f i c a` m 1[ i ,j ]' .C r e a c i nd eu n ac o p i a ` C o p y m a t r i x "ye n t o n c e su s a n d ol aa s i g n a c i nc r e au na p a r t e , m o d i f i c a d oc o p i a .
F u n c i n :d e t e r m i n a n t e( < M > ) C a l c u l ae ld e t e r m i n a n t ed e< M >p o ru nm t o d os i m i l a ra ld eG a u s s e l i m i n a c i n . L af o r m ad e lr e s u l t a d od e p e n d ed el ac o n f i g u r a c i nd e li n t e r r u p t o r ` R a t m x' . E x i s t eu n ar u t i n ae s p e c i a lp a r ac a l c u l a rd e t e r m i n a n t e sd i s p e r s o sq u e s el l a m ac u a n d oc a m b i ar a t m x` ' y 'e s c a s a' s o nal av e z `t r u e ' .
V a r i a b l eo p c i o n a l :d e t o u t V a l o rp o rd e f e c t o :f a l s e' C u a n d o` d e t o u t' e s `t r u e ' ,e ld e t e r m i n a n t ed el am a t r i zc u y ai n v e r s a s ec a l c u l ae su nf a c t o rf u e r ad el ai n v e r s a . P a r ae s t ec a m b i ot e n g au ne f e c t od o a l l m x o p s` ' y `d o s c m x o p s ' d e b es e r' f a l s e '( v a n s es u sd e s c r i p c i o n e s ) .A l t e r n a t i v a m e n t e ,e s t a i n t e r r u p t o rs ep u e d ed a ra` e v' q u eh a c eq u el o so t r o sd o sp a r aa j u s t a r s e c o r r e c t a m e n t e . E j e m p l o : ( %I 1 )m :m a t r i z( [ a ,b ] ,[ c ,d ] ) ; [ A b ] ( %O 1 )[ ] [ C d ] ( %I 2 )d e t o u t :t r u e$ ( %I 3 )d o a l l m x o p s :f a l s e$ ( %I 4 )d o s c m x o p s :f a l s e$ ( %I 5 )i n v e r t i r( m ) ; [ D-b ] [ ] [ -C a ] ( %O 5 )a d-b c
F u n c i n :d i a g m a t r i x( < n > ,< x > ) D e v u e l v eu n am a t r i zd i a g o n a ld e< n >p o r< n >c o nl ad i a g o n a l t o d o sl o se l e m e n t o si g u a l e sa< x > .` D i a g m a t r i x( < n > ,1 )' d e v u e l v eu n m a t r i zd ei d e n t i d a d( l om i s m oq u e` i d e n t( < n > )' ) . < n >d e b es e ru nn m e r oe n t e r o ,d el oc o n t r a r i os eq u e j a` d i a g m a t r i x' c o nu nm e n s a j ed ee r r o r . < x >p u e d es e rc u a l q u i e rt i p od ee x p r e s i n ,i n c l u s oo t r am a t r i z .S i < x >e su n am a t r i z ,n os ec o p i a ;t o d o sl o se l e m e n t o sd el ad i a g o n a l l am i s m ai n s t a n c i a ,< x > .
V a r i a b l eo p c i o n a l :d o a l l m x o p s V a l o rp o rd e f e c t o :t r u e' C u a n d o` d o a l l m x o p s' e s `t r u e ' ,t o d a sl a so p e r a c i o n e sr e l a c i o n a d a sc o nm a t r i c e s s el l e v a nac a b o .C u a n d oe s` f a l s o' ,e n t o n c e se la j u s t ed el a
219/633
28/08/13

i n t e r r u p t o r e si n d i v i d u a l e s` p u n t o s "g o b i e r n a ne lq u es er e a l i z a nl a so p e r a c i o n e s .
V a r i a b l eo p c i o n a l :d o m x e x p t V a l o rp o rd e f e c t o :t r u e' C u a n d o` d o m x e x p t' e s `t r u e ' ,u ne x p o n e n t em a t r i c i a l ,c o m oe x p` ( < M > ) " ,d o n d e < M >E su n am a t r i z ,s ei n t e r p r e t ac o m ou n am a t r i zc u y oe l e m e n t o` [ i ,j' i g u a la` e x p( m[ i ,j ] ) .D el oc o n t r a r i o` e x p( < M > )' s ee v a l ac o m o è x p ( < e v ( M ) >' . ` D o m x e x p t' a f e c t aat o d a sl a se x p r e s i o n e sd el af o r m a `^ ' d o n d ee su n ae x p r e s i ne s c a l a roc o n s t a n t e ,y e su n al i s t aom a t r i z . E j e m p l o : ( %I 1 )m :m a t r i z( [ 1 , %i ] ,[ a+b , %p i ] ) ; [ 1 %i ] ( %O 1 )[ ] [ B+a %p i ] ( %I 2 )d o m x e x p t :f a l s e$ ( %I 3 )( 1-c )^m ; [ 1 %i ] [ ] [ B+a %p i ] ( %O 3 )( 1-c ) ( %I 4 )d o m x e x p t :t r u e$ ( %I 5 )( 1-c )^m ; [ %I ] [ 1-c( 1-c ) ] ( %O 5 )[ ] [ B+a %p i ] [ ( 1-c )( 1-c ) ]
V a r i a b l eo p c i o n a l :d o m x m x o p s V a l o rp o rd e f e c t o :t r u e' C u a n d o` d o m x m x o p s' e s `t r u e ' ,t o d am a t r i zd el am a t r i zom a t r i c e syl i s t a s l a so p e r a c i o n e ss el l e v a r o nac a b o( p e r on ol a so p e r a c i o n e se n t r ee s c a l a r e sym a t r i c e s ) ,s i e s t ei n t e r r u p t o re s' f a l s e 't a l e so p e r a c i o n e sn os el l e v a nac a b o .
V a r i a b l eo p c i o n a l :d o m x n c t i m e s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` d o m x n c t i m e s' e s `t r u e ' ,l o sp r o d u c t o sn oc o n m u t a t i v o se n t r em a t r i c e s s el l e v a nac a b o .
V a r i a b l eo p c i o n a l :d o n t f a c t o r V a l o rp o rd e f e c t o :[ ]' ` D o n t f a c t o r' s ep u e d ee s t a b l e c e re nu n al i s t ad ev a r i a b l e sr e s p e c t od el a s q u ee lf a c t o r i n gn oe sq u es ep r o d u z c a .( L al i s t ae s t v a c ai n i c i a l m e n t e . ) F a c t o r i n gt a m p o c os el l e v a r ac a b oc o nr e s p e c t oal a sv a r i a b l e s q u es o nm e n o si m p o r t a n t e s ,s e g nl av a r i a b l ed eo r d e n a c i nq u es e p a r al ae x p r e s i nd el af o r m ac a n n i c ar a c i o n a l( C R E ) ,q u el o sd el a L i s t` d o n t f a c t o r' .
V a r i a b l eo p c i o n a l :d o s c m x o p s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` d o s c m x o p s' e s `t r u e ' ,l a so p e r a c i o n e se n t r ee s c a l a r e sym a t r i c e ss er e a l i z a n c a b o .
V a r i a b l eo p c i o n a l :d o s c m x p l u s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` d o s c m x p l u s' e s `t r u e ' ,l a so p e r a c i o n e se n t r ee s c a l a r e sym a t r i c e sd a nc o m o r e s u l t a d ou n am a t r i z .E s t en oe s t s u b s u m i d ae n` d o a l l m x o p s .
V a r i a b l eo p c i o n a l :d o t 0 n s c s i m p V a l o rp o rd e f e c t o :t r u e' C u a n d o` d o t 0 n s c s i m p' e sv e r d a d ' " ,u np r o d u c t on oc o n m u t a t i v od ec e r o
220/633
28/08/13

yu np l a z od en oe s c a l a rs et r a n s f o r m ae nu np r o d u c t oc o n m u t a t i v o .
V a r i a b l eo p c i o n a l :d o t 0 s i m p V a l o rp o rd e f e c t o :t r u e' C u a n d o` d o t 0 s i m p' e sv e r d a d ' " ,u np r o d u c t on oc o n m u t a t i v od ec e r oyu n a t r m i n oe s c a l a rs et r a n s f o r m ae nu np r o d u c t oc o n m u t a t i v o .
V a r i a b l eo p c i o n a l :d o t 1 s i m p V a l o rp o rd e f e c t o :t r u e' C u a n d o` d o t 1 s i m p' e s `t r u e ' ,u np r o d u c t on oc o n m u t a t i v od eu n ay o t r ot r m i n os et r a n s f o r m ae nu np r o d u c t oc o n m u t a t i v o .
V a r i a b l eo p c i o n a l :d o t a s s o c V a l o rp o rd e f e c t o :t r u e' C u a n d o` d o t a s s o c' e s `t r u e ' ,u n ae x p r e s i n` ( A B ) .C' s es i m p l i f i c aa ` A .( B C ) .
V a r i a b l eo p c i o n a l :d o t c o n s t r u l e s V a l o rp o rd e f e c t o :t r u e' C u a n d o` d o t c o n s t r u l e s' e s `t r u e ' ,u np r o d u c t on oc o n m u t a t i v od eu n c o n s t a n t ec o no t r ot r m i n os et r a n s f o r m ae nu np r o d u c t oc o n m u t a t i v o . S ia c t i v ae s t ei n d i c a d o rs ec o n v i e r t ee f e c t i v a m e n t ee nd o t 0 s i m p` ' , D o t 0 n s c s i m p` ' y `d o t 1 s i m p 't a m b i n .
V a r i a b l eo p c i o n a l :d o t d i s t r i b V a l o rp o rd e f e c t o :f a l s e' C u a n d o` d o t d i s t r i b' e s `t r u e ' ,u n ae x p r e s i n` A .( B+C )' s i m p l i f i c a a` A B+A . C' .
V a r i a b l eo p c i o n a l :d o t e x p t s i m p V a l o rp o rd e f e c t o :t r u e' C u a n d o` d o t e x p t s i m p' e s `t r u e ' ,u n ae x p r e s i n` A A' s es i m p l i f i c aa ` A^^2' .
V a r i a b l eo p c i o n a l :d o t i d e n t V a l o rp o rd e f e c t o :1 ` D o t i d e n t' e se lv a l o rd e v u e l t op o r 'X^^0' .
V a r i a b l eo p c i o n a l :d o t s c r u l e s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` d o t s c r u l e s' e s `t r u e ' ,u n ae x p r e s i n` A . S C' o `S C . A ' s i m p l i f i c aa` S C*A' y 'A .( S C*B )' s i m p l i f i c aa `S C*( A B ) .
F u n c i n :e c h e l o n( < M > ) D e v u e l v el af o r m ae s c a l o n a d ad el am a t r i z< M > ,o b t e n i d ap o r L ae l i m i n a c i nd eG a u s s .L af o r m ae s c a l o n a d as ec a l c u l aap a r t i r< M >p o r o p e r a c i o n e se l e m e n t a l e sd ef i l ad et a lm a n e r aq u ee lp r i m e re l e m e n t on on u l oe n c a d af i l ad el am a t r i zr e s u l t a n t ee su n oyl o se l e m e n t o sd ec o l u m n a b a j ol ap r i m e r au n oe nc a d af i l as o nt o d o sc e r o . ` T r i a n g u l a r i z e "t a m b i nl l e v aac a b ol ae l i m i n a c i nd eG a u s s ,p e r o n on o r m a l i z ae le l e m e n t on oc e r oal ai z q u i e r d ad ec a d af i l a . L u _ f a c t o r` ' y `c h o l e s k y 's o no t r a sf u n c i o n e sq u ep r o d u c e n t r i a n g u l a r i z a nm a t r i c e s . ( %I 1 )M :m a t r i z( [ 3 ,7 ,a a ,b b ] ,[ 1 ,8 ,5 ,2 ] ,[ 9 ,2 ,1 1 ,4 ] ) ;
221/633
28/08/13

[ 37a ab b ] [ ] ( %O 1 )[ -1852 ] [ ] [ 921 14 ] ( %I 2 )e c h e l o n( M ) ; [ 1-8-5-2 ] [ ] [ 2 81 1 ] [ 1-0 ] ( %O 2 )[ 3 73 7 ] [ ] [ 3 7b b-1 1 9 ] [ 001] [ 3 7a a-3 1 3 ]
F u n c i n :v a l o r e sp r o p i o s( < M > ) F u n c i n :n o m b r ee i v a l s( < M > ) D e v u e l v eu n al i s t ac o nd o sl i s t a sq u ec o n t i e n e nl o sv a l o r e sp r o p i o sd el a m a t r i z< M > .L ap r i m e r as u b l i s t ad e lv a l o rd er e t o r n oe sl al i s t ad e v a l o r e sp r o p i o sd el am a t r i z ,yl as e g u n d as u b l i s t al al i s t ad e l am u l t i p l i c i d a dd el o sv a l o r e sp r o p i o se ne lo r d e nc o r r e s p o n d i e n t e . ` N o m b r ee i v a l s' e ss i n n i m od e 'v a l o r e sp r o p i o s' . ` V a l o r e sp r o p i o s' l l a m aal af u n c i n 'r e s o l v e r' p a r ae n c o n t r a rl a sr a c e sd el a p o l i n o m i oc a r a c t e r s t i c od el am a t r i z .Av e c e s` r e s o l v e r "p u e d e n os e rc a p a zd ee n c o n t r a rl a sr a c e sd e lp o l i n o m i o ,e nc u y oc a s oa l g u n o s o t r a sf u n c i o n e sd ee s t ep a q u e t e( e x c e p t oi n n e r p r o d u c t` ' , U n i t v e c t o r` ' , C o l u m n v e c t o r` ' y `g r a m s c h m i d t ' )n of u n c i o n a r . E na l g u n o sc a s o sl o sv a l o r e sp r o p i o se n c o n t r a d o sp o r' r e s o l v e r 'p u e d es e rc o m p l i c a d o e x p r e s i o n e s .( E s t op u e d es u c e d e rc u a n d o' r e s o l v e r 'd e v u e l v eu n n ot a no b v i a m e n t er e a ld ee x p r e s i np a r au nv a l o rp r o p i oq u es ec o n o c e p a r as e rr e a l . )P u e d es e rp o s i b l es i m p l i f i c a rl o sv a l o r e sp r o p i o su t i l i z a n d o a l g u n a so t r a sf u n c i o n e s . E lp a q u e t e` e i g e n . m a c' s ec a r g aa u t o m t i c a m e n t ea l `v a l o r e sp r o p i o s ' o' 's eh a c er e f e r e n c i aal o sv e c t o r e sp r o p i o s .S i` e i g e n . m a c' n oe s t c a r g a d o ,l o a d( " e i g e n " )" l oc a r g a .T r a sl ac a r g a ,t o d a sl a sf u n c i o n e s yv a r i a b l e sd e lp a q u e t ee s t a r na c t i v a s .
F u n c i n :a u t o v e c t o r e s( < M > ) F u n c i n :n o m b r ee i v e c t s( < M > ) C a l c u l al o sv e c t o r e sp r o p i o sd el am a t r i z< M > .E lv a l o rd er e t o r n oe su n l i s t ad ed o se l e m e n t o s .L ap r i m e r ae su n al i s t ad el o sv a l o r e sp r o p i o sd e < M >Yu n al i s t ac o nl a sm u l t i p l i c i d a d e sd el o sv a l o r e sp r o p i o s .L a s e g u n d oe su n al i s t ad el i s t a sd ev e c t o r e sp r o p i o s .H a yu n al i s t ad e v e c t o r e sp r o p i o sp a r ac a d av a l o rp r o p i o .P u e d eh a b e ru n oom s v e c t o r e sp r o p i o sd ec a d al i s t a . ` N o m b r ee i v e c t s' e su ns i n n i m od e `v e c t o r e sp r o p i o s . E lp a q u e t e` e i g e n . m a c' s ec a r g aa u t o m t i c a m e n t ea l `v a l o r e sp r o p i o s ' o' 's eh a c er e f e r e n c i aal o sv e c t o r e sp r o p i o s .S i` e i g e n . m a c' n oe s t c a r g a d o ,l o a d( " e i g e n " )" l oc a r g a .T r a sl ac a r g a ,t o d a sl a sf u n c i o n e s yv a r i a b l e sd e lp a q u e t ee s t a r na c t i v a s . L a sv a r i a b l e sq u ea f e c t a nae s t af u n c i ns o n : ` N o n d i a g o n a l i z a b l e "s ee n c u e n t r ae n` t r u e' o 'f a l s e' e nf u n c i nd e s il am a t r i zn oe sd i a g o n a l i z a b l eod i a g o n a l i z a b l et r a s ` V u e l v ev e c t o r e sp r o p i o s . ` H e r m i t i a n m a t r i x' a l `t r u e ' ,l o sv e c t o r e sp r o p i o sd e g e n e r a d o s d el am a t r i zh e r m i t i a n as o no r t o g o n a l i z a d o sm e d i a n t el a D eG r a m S c h m i d ta l g o r i t m o . ` K n o w n e i g v a l s' c u a n d o `t r u e 'h a c eq u ee lp a q u e t e` e i g e n' p a r aa s u m i r l o sv a l o r e sp r o p i o sd el am a t r i zs o nc o n o c i d o sp o re lu s u a r i oys ea l m a c e n a n b a j oe ln o m b r eg l o b a l` l i s t e i g v a l s' .` D e b e ne s t a b l e c e r s el i s t e i g v a l s' au n al i s t as i m i l a ral as a l i d ad ev a l o r e sp r o p i o s` ' . L af u n c i na l g s y s` ' s eu t i l i z aa q u p a r ac a l c u l a rl o sv e c t o r e sp r o p i o s . Av e c e s ,s il o sv a l o r e sp r o p i o ss o ns u c i o s ,a l g s y s` ' p u e d en os e rc a p a z p a r ae n c o n t r a ru n as o l u c i n .E na l g u n o sc a s o s ,p u e d es e rp o s i b l es i m p l i f i c a r l o sv a l o r e sp r o p i o sd ep r i m e r ae n c o n t r a r l o sc o ne lc o m a n d o` v a l o r e sp r o p i o s' yl u e g ou t i l i z a n d oo t r a sf u n c i o n e sp a r ar e d u c i r l o saa l g o m ss i m p l e .T r a sl as i m p l i f i c a c i n ,` ' s ep u e d e nl l a m a rv e c t o r e sp r o p i o s d en u e v oc o nl o s' k n o w n e i g v a l s 'i n d i c a d o re s t a b l e c i d oa` t r u e' . V a s et a m b i n' v a l o r e sp r o p i o s ' . E j e m p l o s : U n am a t r i zc o nu ns o l ov e c t o rp r o p i op o rv a l o rp r o p i o . ( %I 1 )M 1 :m a t r i z( [ 1 1 ,1 ] ,[ 1 ,7 ] ) ;
222/633
28/08/13
( %O 1 )[ ]

[ 1 1 1 ] [ 17 ] ( %I 2 )[ v a l s ,V E C ] :v e c t o r e sp r o p i o s( M 1 ) ; ( %O 2 )[ [ [ 9-s q r t( 3 ) ,s q r t( 3 )+9 ] ,[ 1 ,1 ] ] , [ [ [ 1 ,s q r t( 3 )+2 ] ] ,[ [ 1 ,2-s q r t( 3 ) ] ] ] ] ( %I 3 )p a r aiat r a v sd el al o n g i t u d( v a l s[ 1 ] )h a c e rd i s p( v a l[ i ]=v a l s[ 1 ][ i ] , m u l t[ i ]=v a l s[ 2 ][ i ] ,v e c[ i ]=V E C[ i ] ) ; v a l=9-s q r t( 3 ) 1 m u l t=1 1 v e c=[ [ 1 ,s q r t( 3 )+2 ] ] 1 v a l=s q r t( 3 )+9 2 m u l t=1 2 v e c=[ [ 1 ,2-s q r t( 3 ) ] ] 2 ( %O 3 )d o n e U n am a t r i zq u et i e n ed o sv e c t o r e sp r o p i o sp a r au nv a l o rp r o p i o( e sd e c i r ,2 ) . ( %I 1 )M 1 :m a t r i z( [ 0 ,1 ,0 ,0 ] ,[ 0 ,0 ,0 ,0 ] ,[ 0 ,0 ,2 ,0 ] , [ 0 ,0 ,0 ,2 ] ) ; [ 0100 ] [ ] [ 0000 ] ( %O 1 )[ ] [ 0020 ] [ ] [ 0002 ] ( %I 2 )[ v a l s ,V E C ] :v e c t o r e sp r o p i o s( M 1 ) ; ( %O 2 )[ [ [ 0 ,2 ] ,[ 2 ,2 ] ] ,[ [ [ 1 ,0 ,0 ,0 ] ] , [ [ 0 ,0 ,1 ,0 ] ,[ 0 ,0 ,0 ,1 ] ] ] ] ( %I 3 )p a r aiat r a v sd el al o n g i t u d( v a l s[ 1 ] )h a c e rd i s p( v a l[ i ]=v a l s[ 1 ][ i ] , m u l t[ i ]=v a l s[ 2 ][ i ] ,v e c[ i ]=V E C[ i ] ) ; v a l=0 1 m u l t=2 1 v e c=[ [ 1 ,0 ,0 ,0 ] ] 1 v a l=2 2 m u l t=2 2 v e c=[ [ 0 ,0 ,1 ,0 ] ,[ 0 ,0 ,0 ,1 ] ] 2 ( %O 3 )d o n e
F u n c i n :e M a t r i x( < m > ,< n > ,< x > ,< j > ) D e v u e l v eu n am a t r i z< m >p o r< n > ,t o d o sl o se l e m e n t o sd el o sc u a l e ss o nc e r o e x c e p t op o re le l e m e n t o` [ ,< j > ] " ,q u ee s< x > .
F u n c i n :e n t e r m a t r i x( < m > ,< n > ) D e v u e l v eu n am a t r i z< m >p o r< n > ,l al e c t u r ad el o se l e m e n t o si n t e r a c t i v a . S i< n >e si g u a la< m > ,M a x i m ap r e g u n t ap o re lt i p od el am a t r i z ( D i a g o n a l ,s i m t r i c a ,a n t i s i m t r i c aog e n e r a l )yp a r ac a d au n o e l e m e n t o .C a d ar e s p u e s t at e r m i n ac o nu np u n t oyc o m a' ; 'oe nd l a r e s s i g n o' $ ' . S i< n >n oe si g u a la< m > ,M a x i m ap r e g u n t ap o rc a d ae l e m e n t o . L o se l e m e n t o sp u e d e ns e re x p r e s i o n e sq u es ee v a l a n . ` E n t e r m a t r i x' e v a l as u sa r g u m e n t o s . ( %I 1 )n :3$ ( %I 2 )m :e n t e r m a t r i x( n ,n )$ E sl am a t r i z1 .2D i a g o n a l .S i m t r i c a3 .A n t i s i m t r i c a 4 .G e n e r a l R e s p u e s t a1 ,2 ,3o4 : 1$ F i l a1C o l u m n a1 : ( A+b )n$^
223/633
28/08/13
F i l a2C o l u m n a2 : ( A+b )^( n+ 1 )$ F i l a3C o l u m n a3 : ( A+b )^( n+ 2 )$ M a t r i xe n t r . ( %I 3 )m ; [ 3 ] [ ( B+a )00 ] [ ] ( %O 3 )[ 4 ] [ 0( b+a )0 ] [ ] [ 5 ] [ 00( b+a ) ]
F u n c i n :g e n m a t r i x( < a > ,< j _ 2 > , ,< j _ 1 > ) F u n c i n :g e n m a t r i x( < a > ,< j _ 2 > , ) F u n c i n :g e n m a t r i x( < a > ,< j _ 2 > ) D e v u e l v eu n am a t r i zg e n e r a d aap a r t i rd e< a > ,t e n i e n d oe l e m e n t o` < a >[ , < j _ 1 > ]' c o m oe le l e m e n t os u p e r i o ri z q u i e r d oy` < a >[ ,< j _ 2 > ] 'c o m o i n f e r i o rd e r e c h od el am a t r i z .A q u < a >e su na r r a yd e c l a r a d o ( C r e a d op o r` a r r a y' ,p e r on op o r `m a k e _ a r r a y ' )ou nn od e c l a r a d o a r r a you n af u n c i na r r a y ,ou n ae x p r e s i nl a m b d ad ed o s a r g u m e n t o s .( U n af u n c i na r r a ys ec r e ac o m oo t r a sf u n c i o n e s c o n' := 'o' d e f i n i r ' ,p e r ol o sa r g u m e n t o se s t ne n c e r r a d o se nl ap l a z a c o r c h e t e se nl u g a rd ep a r n t e s i s . ) S is eo m i t e< j _ 1 > ,s es u p o n ei g u a la .S it a n t o< j _ 1 > ys eo m i t e n ,t a n t os es u p o n ei g u a la1 . S iu ne l e m e n t os e l e c c i o n a d o` i ,j' d el am a t r i zn oe s t d e f i n i d o ,l am a t r i z c o n t e n d r u ne l e m e n t os i m b l i c o` < a >[ i ,j ]' . E j e m p l o s : ( %I 1 )h[ i ,j ] :=1/( i+j-1 ) ; 1 ( %O 1 )h :=i ,j i+j-1 ( %I 2 )g e n m a t r i x( h ,3 ,3 ) ; [ 11 ] [ 1] [ 23 ] [ ] [ 111 ] ( %O 2 )[ ] [ 234 ] [ ] [ 111 ] [ ] [ 345 ] ( %I 3 )m a t r i z( a ,f i x n u m ,2 ,2 ) ; ( %O 3 )u n ( %I 4 )u n[ 1 ,1 ] : %e ; ( %O 4 ) %e ( %I 5 )u n[ 2 ,2 ] : %p i ; ( %O 5 ) %p i ( %I 6 )g e n m a t r i x( a ,2 ,2 ) ; [ %E0 ] ( %O 6 )[ ] [ 0 %p i ] ( %I 7 )g e n m a t r i x( l a m b d a( [ i ,j ] ,j-i ) ,3 ,3 ) ; [ 012 ] [ ] ( %O 7 )[ -101 ] [ ] [ -2-10 ] ( %I 8 )g e n m a t r i x( B ,2 ,2 ) ; [ B B ] [ 1 ,11 ,2 ] ( %O 8 )[ ] [ B B ] [ 2 ,12 ,2 ]
F u n c i n :g r a m s c h m i d t( < x > ) F u n c i n :g r a m s c h m i d t( < x >< F > ) E j e c u t ae la l g o r i t m od eo r t o g o n a l i z a c i nd eG r a m S c h m i d te n< x > , q u ee sy as e au n am a t r i zou n al i s t ad el i s t a s .< x >n os em o d i f i c a p o r` g r a m s c h m i d t' .E lp r o d u c t oi n t e r n oe m p l e a d op o r` g r a m s c h m i d t' e s < F > ,S ie s t p r e s e n t e ,d el oc o n t r a r i oe lp r o d u c t oi n t e r n oe sl af u n c i n ` I n n e r p r o d u c t' . S i< x >e su n am a t r i z ,e la l g o r i t m os ea p l i c aal a sf i l a sd e< x > . S i< x >e su n al i s t ad el i s t a s ,e la l g o r i t m os ea p l i c aal a s u b l i s t a s ,l a sc u a l e sd e b e nt e n e re lm i s m on m e r od ee l e m e n t o s .E nc u a l q u i e r ad el o s c a s o ,e lv a l o rd er e t o r n oe su n al i s t ad el i s t a s ,c u y a ss u b l i s t a s s o no r t o g o n a l e sya b a r c a re lm i s m oe s p a c i oq u e< x > .S il ad i m e n s i n d e ll a p s od e< x >e sm e n o rq u ee ln m e r od ef i l a sos u b l i s t a s , a l g u n o ss u b l i s t a sd e lv a l o rd er e t o r n oe sc e r o .
224/633
28/08/13

` F a c t o r "s el l a m ae nc a d ae t a p ad e la l g o r i t m op a r as i m p l i f i c a r r e s u l t a d o si n t e r m e d i o s .C o m oc o n s e c u e n c i a ,e lv a l o rd er e t o r n op u e d e c o n t e n e re n t e r o sf a c t o r i z a . C a r g a sl o a d( e i g e n )' e s t af u n c i n . E j e m p l o : A l g o r i t m od eG r a m S c h m i d tu t i l i z a n d oe lp r o d u c t oi n t e r n op o rd e f e c t o . ( %I 1 )l o a d( e i g e n )$ ( %I 2 )x :m a t r i z( [ 1 ,2 ,3 ] ,[ 9 ,1 8 ,3 0 ] ,[ 1 2 ,4 8 ,6 0 ] ) ; [ 123 ] [ ] ( %O 2 )[ 91 83 0 ] [ ] [ 1 24 86 0 ] ( %I 3 )y :g r a m s c h m i d t( x ) ; 2234 33352323 ( %O 3 )[ [ 1 ,2 ,3 ] ,[ ,,] ,[ ,,0 ] ] 2772755 ( %I 4 )m a p a( i n n e r p r o d u c t ,[ y[ 1 ] ,y[ 2 ] ,y[ 3 ] ] ,[ y[ 2 ] ,y[ 3 ] ,y[ 1 ] ] ) ; ( %O 4 )[ 0 ,0 ,0 ] D eG r a m S c h m i d tu t i l i z a n d ou na l g o r i t m od ep r o d u c t oi n t e r n oe s p e c i f i c a d o . ( %I 1 )l o a d( e i g e n )$ ( %I 2 )I P( f ,g ) :=i n t e g r a t e( f*g ,u ,a ,b ) ; ( %O 2 )i p( f ,g ) :=i n t e g r a t e( f g ,u ,a ,b ) ( %I 3 )y :g r a m s c h m i d t( [ 1 ,s e n( u ) ,c o s( u ) ] ,i p ) ,a=%p i/2 ,b= %p i/2 ; %P ic o s( u )-2 ( %O 3 )[ 1 ,s i n( u ) ,] %P i ( %I 4 )m a p a( i p ,[ y[ 1 ] ,y[ 2 ] ,y[ 3 ] ] ,[ y[ 2 ] ,y[ 3 ] ,y[ 1 ] ] ) , a=%p i/2 ,b= %p i/2 ; ( %O 4 )[ 0 ,0 ,0 ]
F u n c i n :i d e n t( < n > ) D e v u e l v eu n am a t r i zd ei d e n t i d a d< n >p o r< n > .
F u n c i n :i n n e r p r o d u c t( < x >< y > ) F u n c i n :i n p r o d( < x >< y > ) D e v u e l v ee lp r o d u c t oi n t e r i o r( t a m b i nl l a m a d oe lp r o d u c t oe s c a l a r ,op u n t o p r o d u c t o )d e< x >y< y > ,q u es o nl i s t a sd el am i s m al o n g i t u d ,oa m b a s 1 1 c o l u m n aof i l am a t r i c e sd ei g u a ll o n g i t u d .E lv a l o rd er e t o r n oe s ` C o n j u g a d o( x ) .y' ,d o n d e` . 'e se ln oc o n m u t a t i v a o p e r a d o rd em u l t i p l i c a c i n . ` L o a d( "e i g e n" )' c a r g ae s t af u n c i n . ` I n p r o d' e ss i n n i m od e 'i n n e r p r o d u c t' .
F u n c i n :i n v e r t i r( < M > ) D e v u e l v el ai n v e r s ad el am a t r i zd e< M > .L ai n v e r s as ec a l c u l a e lm t o d oa d j u n t o . E s t op e r m i t eau nu s u a r i op a r ac a l c u l a rl ai n v e r s ad eu n am a t r i zc o nb f l o a t e n t r a d a sop o l i n o m i o sc o nc o e f i c i e n t e sd ep u n t of l o t a n t es i n c o n v e r t i ra lc r e f o r m . C o f a c t o r e ss ec a l c u l a np o rl af u n c i n` d e t e r m i n a n t e' ,p o rl oq u es i ` R a t m x' e s 'f a l s a' l ai n v e r s as ec a l c u l as i nc a m b i a rl a l ar e p r e s e n t a c i nd el o se l e m e n t o s . L ai m p l e m e n t a c i na c t u a le se f i c i e n t ep a r am a t r i c e sd ea l t a o r d e n . C u a n d o` d e t o u t' e s `t r u e ' ,e ld e t e r m i n a n t ee su nf a c t o rf u e r ad el a i n v e r s a . L o se l e m e n t o sd el am a t r i zi n v e r s an os ee x p a n d e na u t o m t i c a m e n t e .S i < M >T i e n ee l e m e n t o sp o l i n m i c o s ,m e j o r a re la s p e c t od es a l i d ap u e d es e r g e n e r a d o sp o r` e x p a n d( i n v e r t( m ) ) ,d e t o u t' .S ie sd e s e a b l e ac o n t i n u a c i nd i v i d i rp o re ld e t e r m i n a n t eat r a v sd ee s t os ep u e d el o g r a rp o r ` F u n c i nx t h r u( % ) "o ,a l t e r n a t i v a m e n t e ,ap a r t i rd ec e r op o r a m p l i a r( a d j u n t o( m ) )/a m p l i a r( d e t e r m i n a n t e( m ) ) i n v e r t i r( m ) :=a d j u n t o( m )/f a c t o rd e t e r m i n a n t e( m ) C o n s u l t e` ^^' ( n oc o n m u t a t i v ae x p o n e n t e )p a r ao t r om t o d od ei n v e r t i r u n am a t r i z .
225/633
28/08/13
F u n c i n :l i s t _ m a t r i x _ e n t r i e s( < M > )
D e v u e l v eu n al i s t aq u ec o n t i e n el o se l e m e n t o sd el am a t r i z< M > . E j e m p l o : ( %I 1 )l i s t _ m a t r i x _ e n t r i e s( m a t r i z( [ a ,b ] ,[ c ,d ] ) ) ; ( %O 1 )[ a ,b ,c ,d ]
V a r i a b l eo p c i o n a l :l m x c h a r V a l o rp o rd e f e c t o :[ ' ` L m x c h a r' e se lc a r c t e ram o s t r a rc o m od e l i m i t a d o ri z q u i e r d od el a m a t r i z .C o n s u l t et a m b i n` r m x c h a r' . E j e m p l o : ( %I 1 )l m x c h a r :" | "$ ( %I 2 )d el am a t r i z( [ a ,b ,c ] ,[ d ,e ,f ] ,[ g ,h ,i ] ) ; |A b c ] | ] ( %O 2 )|d e f ] | ] |G h i ]
F u n c i n :m a t r i z( < r o w _ 1 > ,. . . ,< r o w _ n > ) D e v u e l v eu n am a t r i zr e c t a n g u l a rc o nl a< r o w _ 1 >f i l a s ,. . . , < r o w _ n > .C a d af i l ae su n al i s t ad ee x p r e s i o n e s .T o d a sl a sf i l a sd e b e ns e rl o s m i s m al o n g i t u d . L a so p e r a c i o n e sd e' + '( a d i c i n ) ,' '( r e s t a ) ,' * ' ( M u l t i p l i c a c i n ) ,y` /' ( d i v i s i n ) ,s el l e v a nac a b oe l e m e n t oa e l e m e n t oc u a n d ol o so p e r a n d o ss o nd o sm a t r i c e s ,u ne s c a l a ryu n am a t r i z , ou n am a t r i zyu ne s c a l a r .L ao p e r a c i n' ^ '( e x p o n e n c i a c i n , e q u i v a l e n t e m e n t e` * *' )s el l e v aac a b oe l e m e n t oae l e m e n t os ie l o p e r a n d o ss o nu ne s c a l a ryu n am a t r i zou n am a t r i zyu ne s c a l a r ,p e r o n os il o so p e r a n d o ss o nd o sm a t r i c e s .T o d a sl a so p e r a c i o n e ss o nn o r m a l m e n t e l l e v a d oac a b oe ns ut o t a l i d a d ,i n c l u y e n d o` ' .( M u l t i p l i c a c i nn oc o n m u t a t i v a ) . P r o d u c t om a t r i c i a ls er e p r e s e n t ap o rl ac o n m u t a t i v a o p e r a d o rd em u l t i p l i c a c i n' . ' .E lc o n m u t a t i v ac o r r e s p o n d i e n t e o p e r a d o rd ee x p o n e n c i a c i ne s' ^^ ' .P a r au n am a t r i z< A >` ' , `< A > .< A >= < A >^^2' y` < A >^^1 'e se li n v e r s od e< A > ,s ie x i s t e . H a yc o n t r o l a nl as i m p l i f i c a c i nd ee x p r e s i o n e s q u ei m p l i c ao p e r a c i o n e sd ep u n t oyd el am a t r i zd el al i s t a .E s t o ss o n` d o a l l m x o p s' , D o m x e x p t` ' , `d o m x m x o p s ' , D o s c m x o p s` ' y `d o s c m x p l u s ' . H a yo p c i o n e sa d i c i o n a l e sq u ee s t nr e l a c i o n a d o sc o nl a sm a t r i c e s .E s t o s s o n :` l m x c h a r' , `r m x c h a r ' ,` r a t m x' , L i s t a r i t h` ' , `d e t o u t ' ,` s c a l a r m a t r i x' y 'e s c a s a' . H a yu n as e r i ed ef u n c i o n e sq u ea d m i t e nm a t r i c e sc o m oa r g u m e n t o s op r o d u c i rm a t r i c e sc o m ov a l o r e sd er e t o r n o .C o n s u l t e` v a l o r e sp r o p i o s , ` V e c t o r e sp r o p i o s' , 'd e t e r m i n a n t e s' , F u n c i nc h a r p o l y` ' , `g e n m a t r i x ' ,` a d d c o l' , A d d R o w` ' , `c o p y m a t r i x ' ,` t r a n s p o s i c i n' , ` E s c a l n' ,y 'R a n g o' . E j e m p l o s : *C o n s t r u c c i nd em a t r i c e sap a r t i rd el i s t a s . ( %I 1 )x :m a t r i z( [ 1 7 ,3 ] ,[ 8 ,1 1 ] ) ; [ 1 73 ] ( %O 1 )[ ] [ -81 1 ] ( %I 2 )y :m a t r i z( [ %p i , %e ] ,[ a ,b ] ) ; [ % %P ie ] ( %O 2 )[ ] [ A b ] *A d e m s ,e l e m e n t op o re l e m e n t o . ( %I 3 )x +y ; ( %O 3 )[ ] [ A-8b+1 1 ] *R e s t a ,e l e m e n t op o re l e m e n t o . ( %I 4 )x-y ; [ 1 7%p i3%e ] ( %O 4 )[ ]
[ %P i+1 7 %e+3 ]
226/633
28/08/13

[ -A-81 1-b ] *M u l t i p l i c a c i n ,e l e m e n t op o re l e m e n t o . ( %I 5 )x*y ; [ 1 7 %p i3 %e ] ( %O 5 )[ ] [ -8a1 1b ] *D i v i s i n ,e l e m e n t op o re l e m e n t o . ( %I 6 )X/Y ; [ 1 7 1 ] [ -3 %e ] [ %P i ] ( %O 6 )[ ] [ 81 1 ] [ ] [ A b ] *M a t r i xau ne x p o n e n t ee s c a l a r ,e l e m e n t op o re l e m e n t o . ( %I 7 )x^3 ; [ 4 9 1 32 7 ] ( %O 7 )[ ] [ -5 1 21 3 3 1 ] *B a s ed ee s c a l a rau n am a t r i ze x p o n e n t e ,e l e m e n t op o re l e m e n t o . ( %I 8 )e x p( y ) ; [ % %P ie ] [ %E %e ] ( %O 8 )[ ] [ A b ] [ %E %e ] *B a s ed eM a t r i xau ne x p o n e n t em a t r i c i a l .E s t on os el l e v aac a b o e l e m e n t op o re l e m e n t o . ( %I 9 )x^y ; [ % %P ie ] [ ] [ A b ] [ 1 73 ] ( %O 9 )[ ] [ -81 1 ] *M u l t i p l i c a c i nd em a t r i c e sn oc o n m u t a t i v a . ( %I 1 0 )x .Y ; [ 3a+1 7 %p i3b+1 7 %e ] ( %O 1 0 )[ ] [ 1 1a-8 %p i1 1b-8 %e ] ( %I 1 1 )y .x ; [ 1 7 %p i-8 %e3 %p i+1 1 %e ] ( %O 1 1 )[ ] [ 1 7a-8b1 1b+3a ] *E x p o n e n c i a c i nn oc o n m u t a t i v am a t r i z .U n ab a s ee s c a l a rau n m a t r i ze n e r g t i c a< M >s er e a l i z ae l e m e n t oae l e m e n t oyp o rl o ` B^^m' e sl om i s m oq u e `b^m ' . ( %I 1 2 )^x^3 ; [ 3 8 3 31 7 1 9 ] ( %O 1 2 )[ ] ( %I 1 3 ) %e^ ^Y ; ( %O 1 3 )[ ] [ A b ] [ %E %e ] *U n am a t r i ze l e v a d aa le x p o n e n t e1c o nc o n m u t a t i v a e x p o n e n c i a c i ne sl am a t r i zi n v e r s a ,s ie x i s t e . ( %I 1 4 )^x^1 ; [ 1 13 ] [ ] [ 2 1 12 1 1 ] ( %O 1 4 )[ ] [ 81 7 ] [ ] [ 2 1 12 1 1 ] ( %I 1 5 )x .( X^^1 ) ; [ 10 ] ( %O 1 5 )[ ] [ 01 ] [ -4 5 8 43 9 5 ] [ % %P ie ] [ %E %e ]
F u n c i n :m a t r i x m a p( < f > ,< M > ) D e v u e l v eu n am a t r i zc o ne le l e m e n t o` i ,j' i g u a la '< f >( < M >[ i ,j ] ) . V a s et a m b i n' m a p a ' ,` f u l l m a p' , `f u l l m a p l ' ,y' a p l i c a r ' .
227/633
28/08/13
F u n c i n :m a t r i x p( e x p r ) D e v u e l v e` t r u e' s ie x p re su n am a t r i z ,d el oc o n t r a r i o `f a l s e ' .
V a r i a b l eo p c i o n a l :m a t r i x _ e l e m e n t _ a d d V a l o rp o rd e f e c t o :` +' ` M a t r i x _ e l e m e n t _ a d d' d e lo p e r a d o rae j e c u t a re nl u g a rd el as u m a e nu n am u l t i p l i c a c i nd em a t r i c e s .` ' P u e d ea s i g n a rm a t r i x _ e l e m e n t _ a d d c u a l q u i e ro p e r a d o rn a r i o( e s t oe s ,u n af u n c i nq u ea d m i t ec u a l q u i e rn m e r o d ea r g u m e n t o s ) .E lv a l o ra s i g n a d op u e d es e re ln o m b r ed eu no p e r a d o r e n c e r r a d oe n t r ea p s t r o f o s ,e ln o m b r ed eu n af u n c i nou n al a m b d a e x p r e s i n . C o n s u l t et a m b i n` m a t r i x _ e l e m e n t _ m u l t' y `m a t r i x _ e l e m e n t _ t r a n s p o s e ' . E j e m p l o : ( %I 1 )m a t r i x _ e l e m e n t _ a d d :" * "$ ( %I 2 )m a t r i x _ e l e m e n t _ m u l t :" ^ "$ ( %I 3 )a a :m a t r i z( [ a ,b ,c ] ,[ d ,e ,f ] ) ; [ A b c ] ( %O 3 )[ ] [ D e f ] ( %I 4 )b b :m a t r i z( [ u ,v ,w ] ,[ x ,y ,z ] ) ; [ U v w ] ( %O 4 )[ ] [ X y z ] ( %I 5 )a a .t r a n s p o s i c i n( b b ) ; [ U v w x y z ] [ A b c a b c ] ( %O 5 )[ ] [ U v w x y z ] [ D e f d e f ]
V a r i a b l eo p c i o n a l :m a t r i x _ e l e m e n t _ m u l t V a l o rp o rd e f e c t o :' * ' ` M a t r i x _ e l e m e n t _ m u l t' d e lo p e r a d o rae j e c u t a re nl u g a rd e m u l t i p l i c a c i ne nu n am u l t i p l i c a c i nd em a t r i c e s .` M a t r i x _ e l e m e n t _ m u l t' s el ep u e d ea s i g n a rc u a l q u i e ro p e r a d o rb i n a r i o .E lv a l o ra s i g n a d op u e d es e r e ln o m b r ed eu no p e r a d o re n c e r r a d oe n t r ec o m i l l a s ,e ln o m b r ed eu n f u n c i nou n ae x p r e s i nl a m b d a . E lo p e r a d o rd ep u n t o' . 'e su n ao p c i n t i le na l g u n o sc o n t e x t o s . C o n s u l t et a m b i n` m a t r i x _ e l e m e n t _ a d d' y `m a t r i x _ e l e m e n t _ t r a n s p o s e ' . E j e m p l o : ( %I 1 )m a t r i x _ e l e m e n t _ a d d :l a m b d a( [ [ x ] ] ,s q r t( a p p l y( " + " ,x ) ) )$ ( %I 2 )m a t r i x _ e l e m e n t _ m u l t :l a m b d a( [ x ,y ] ,( x-y )^2 )$ ( %I 3 )[ a ,b ,c ] .[ X ,y ,z ] ; 222 ( %O 3 )s q r t( ( c-z )+( b-y )+( a-x ) ) ( %I 4 )a a :m a t r i z( [ a ,b ,c ] ,[ d ,e ,f ] ) ; [ A b c ] ( %O 4 )[ ] [ D e f ] ( %I 5 )b b :m a t r i z( [ u ,v ,w ] ,[ x ,y ,z ] ) ; [ U v w ] ( %O 5 )[ ] [ X y z ] ( %I 6 )a a .t r a n s p o s i c i n( b b ) ; [ 222 ] [ S q r t( ( c-W )+( b-v )+( a-u ) ) ] ( %O 6 )C o l1=[ ] [ 222 ] [ S q r t( ( f-w )+( e-v )+( d-u ) ) ] [ 222 ] [ S q r t( ( c-z )+( b-y )+( a-x ) ) ] C o l2=[ ] [ 222 ] [ S q r t( ( f-z )+( e-y )+( d-x ) ) ]
V a r i a b l eo p c i o n a l :m a t r i x _ e l e m e n t _ t r a n s p o s e V a l o rp o rd e f e c t o :f a l s e' ` M a t r i x _ e l e m e n t _ t r a n s p o s e' e sl ao p e r a c i nq u es ea p l i c aac a d a e l e m e n t od eu n am a t r i zc u a n d os et r a n s p o n e .` M a t r i x _ e l e m e n t _ m u l t' s el ep u e d ea s i g n a rc u a l q u i e ro p e r a d o ru n i t a r i o .E lv a l o ra s i g n a d op u e d es e re l n o m b r ed eu no p e r a d o re n c e r r a d oe n t r ec o m i l l a s ,e ln o m b r ed eu n f u n c i nou n ae x p r e s i nl a m b d a .
228/633
28/08/13

C u a n d o` m a t r i x _ e l e m e n t _ t r a n s p o s e' e si g u a la 'a d a p t a r' , l af u n c i nd ea d a p t a c i nd e l` ' s ea p l i c aac a d ae l e m e n t o . C u n d o ` M a t r i x _ e l e m e n t _ t r a n s p o s e' e si g u a la 'n o n s c a l a r s' ,e l 't r a n s p o n e r' f u n c i ns ea p l i c aat o d o sl o se l e m e n t o sn oe s c a l a r e s .S ia l g ne l e m e n t o e su n t o m o ,l o s` n o n s c a l a r s' o p c i ns ea p l i c a `t r a n s p o s i c i n" s l os i e l t o m os ed e c l a r an oe s c a l a r ,m i e n t r a sq u el ao p c i n` t r a n s p o n e r' S i e m p r es ea p l i c a` t r a n s p o s i c i n . E lv a l o rp o rd e f e c t o ,' f a l s e ' ,s i g n i f i c aq u en os ea p l i c an i n g u n ao p e r a c i n . C o n s u l t et a m b i n` m a t r i x _ e l e m e n t _ a d d' y `m a t r i x _ e l e m e n t _ m u l t ' . E j e m p l o s : ( %I 1 )d e c l a r e( a ,n oe s c a l a r )$ ( %I 2 )t r a n s p o s i c i n( [ a ,b ] ) ; [ T r a n s p o s i c i n( a ) ] ( %O 2 )[ ] [ B ] ( %I 3 )m a t r i x _ e l e m e n t _ t r a n s p o s e :n o n s c a l a r s$ ( %I 4 )t r a n s p o s i c i n( [ a ,b ] ) ; [ T r a n s p o s i c i n( a ) ] ( %O 4 )[ ] [ B ] ( %I 5 )m a t r i x _ e l e m e n t _ t r a n s p o s e :t r a n s p o n e r$ ( %I 6 )t r a n s p o s i c i n( [ a ,b ] ) ; [ T r a n s p o s i c i n( a ) ] ( %O 6 )[ ] [ T r a n s p o s i c i n( b ) ] ( %I 7 )m a t r i x _ e l e m e n t _ t r a n s p o s e :l a m b d a( [ x ] ,r e a l p a r t( x ) %I*i m a g p a r t( x ) )$ ( %I 8 )m :m a t r i z( [ 1+5* %i ,3 -2* %i ] ,[ 7* %i ,1 1 ] ) ; [ 5 %i+3a2e n %i ] ( %O 8 )[ ] [ 7 %i1 1 ] ( %I 9 )t r a n s p o s i c i n( m ) ; [ 1-5 %i-7 %i ] ( %O 9 )[ ] [ 2 %i+31 1 ]
F u n c i n :m a t t r a c e( < M > ) D e v u e l v el at r a z a( e sd e c i r ,l as u m ad el o se l e m e n t o sd el ap r i n c i p a l d i a g o n a l )d e l< M >m a t r i zc u a d r a d a . ` M a t t r a c e' e sl l a m a d op o r `n c h a r p o l y ' ,u n aa l t e r n a t i v aaM a x i m a ` F u n c i nc h a r p o l y' . ` L o a d( "n c h r p l" )' c a r g ae s t af u n c i n .
F u n c i n :m i n o r( < M > , ,< j > ) D e v u e l v ee l ,< j >m e n o rd e l< M >m a t r i z .E sd e c i r ,c o n< M > f i l ayc o l u m n a< j >e l i m i n a d o s .
F u n c i n :n c h a r p o l y( < M > ,< x > ) D e v u e l v ee lp o l i n o m i oc a r a c t e r s t i c od el am a t r i zc o n< M > r e s p e c t oa< x > .E s t ae su n aa l t e r n a t i v aal af u n c i nc h a r p o l y` ' d eM a x i m a . O b r a s` n c h a r p o l y "p o rt r a z a sd el a sp o t e n c i a sd el ap r o p u e s t a m a t r i z ,q u es es a b eq u es o ni g u a l e sal a ss u m a sd el a sp o t e n c i a sd el a sr a c e s d e lp o l i n o m i oc a r a c t e r s t i c o .Ap a r t i rd ee s t a sc a n t i d a d e sl a f u n c i o n e ss i m t r i c a sd el a sr a c e sp u e d e ns e rc a l c u l a d o s ,q u es o n n a d am sq u el o sc o e f i c i e n t e sd el ac a r a c t e r s t i c a p o l i n o m i o .` F u n c i nc h a r p o l y' f u n c i o n af o r m a n d oe ld e t e r m i n a n t ed e `< x >* i d e n t[ n ]-a' .A s g a n ae l` n c h a r p o l y' ,p o re j e m p l o ,e ne lc a s o d em a t r i c e sg r a n d e syd e n s a sl l e n ad en m e r o se n t e r o s ,y aq u ee v i t a a r i t m t i c ap o l i n m i c ap o rc o m p l e t o . C a r g a( " n c h r p l " )" c a r g a s è s t ea r c h i v o .
F u n c i n :n e w d e t( < M > ) C a l c u l ae ld e t e r m i n a n t ed el am a t r i zp o re l< M > J o h n s o n G e n t l e m a n r b o la l g o r i t m om e n o r .` N e w d e t' d e v u e l v ee l d a rl u g a ral af o r m aC R E .
F u n c i n :p e r m a n e n t e( < M > ) C a l c u l al ap e r m a n e n t ed el am a t r i z< M >p o rl aJ o h n s o n G e n t l e m a n a l g o r i t m od e l r b o lm e n o r .L ap e r m a n e n t ee sc o m ou nd e t e r m i n a n t ep e r o s i nc a m b i o sd es i g n o .` P e r m a n e n t e' d e v u e l v ee lr e s u l t a d oe nf o r m ad eC R E .
229/633
28/08/13
C o n s u l t et a m b i n` n e w d e t' .
F u n c i n :r a n g o( < M > ) C a l c u l ae lr a n g od el am a t r i z< M > .E sd e c i r ,e lo r d e nd el a m a y o rs u b d e t e r m i n a n t en os i n g u l a rd e< M > . < r a n g o >p u e d er e t o r n a ru n ar e s p u e s t ae r r n e as in os ep u e d ed e t e r m i n a rq u eu n e l e m e n t od el am a t r i ze se q u i v a l e n t eac e r ol oe s .
V a r i a b l eo p c i o n a l :r a t m x V a l o rp o rd e f e c t o :f a l s e' C u a n d o` r a t m x' e s 'f a l s e' ,d e t e r m i n a n t eyl as u m ad el am a t r i z , r e s t a ,m u l t i p l i c a c i nys el l e v a nac a b oe ne l l ar e p r e s e n t a c i nd el o se l e m e n t o sd em a t r i zyh a c e rq u ee lr e s u l t a d od e i n v e r s i nd el am a t r i zq u es ed e j e ns ur e p r e s e n t a c i ng e n e r a l . C u a n d o` r a t m x' e s `t r u e ' ,l a s4o p e r a c i o n e sm e n c i o n a d a sa n t e r i o r m e n t es o n r e a l i z ae nf o r m aC R Eye lr e s u l t a d od el am a t r i zi n v e r s ae se nC R E f o r m u l a r i o .T e n g ae nc u e n t aq u ee s t op u e d eh a c e rq u el o se l e m e n t o ss ee x p a n d a n ( D e p e n d i e n d od el ac o n f i g u r a c i nd e` r a t f a c' ) ,q u ep o d r an os e rs i e m p r e d e s e a d a .
F u n c i n :f i l a( < M > , ) D e v u e l v ee lf i l ad el a< M >m a t r i z .E lv a l o rd er e t o r n oe su n m a t r i z .
V a r i a b l eo p c i o n a l :r m x c h a r V a l o rp o rd e f e c t o : ]' ` R m x c h a r' e se lc a r c t e rq u es ed i b u j ae ne ll a d od e r e c h od eu n m a t r i z . C o n s u l t et a m b i n` l m x c h a r' .
V a r i a b l eo p c i o n a l :s c a l a r m a t r i x p V a l o rp o rd e f e c t o :t r u e' C u a n d o` s c a l a r m a t r i x p' e s `t r u e ' ,e n t o n c e ss i e m p r eq u eu n am a t r i z1x1s e p r o d u c i d oc o m or e s u l t a d od ec a l c u l a re lp r o d u c t oe s c a l a rd em a t r i c e ss e s es i m p l i f i c aau ne s c a l a r ,e sd e c i r ,e l n i c oe l e m e n t od el am a t r i z . C u a n d o` s c a l a r m a t r i x p' e s 't o d o' ,e n t o n c e st o d a sl a sm a t r i c e s1x1s e c o n v i e r t e ne ne s c a l a r e s . C u a n d o` s c a l a r m a t r i x p' e s 'f a l s e' ,m a t r i c e s1x1n os es i m p l i f i c a n ae s c a l a r e s .
F u n c i n :f a c t o r e sd ee s c a l a( < c o o r d i n a t e t r a n s f o r m > ) A q u e l< c o o r d i n a t e t r a n s f o r m >a r g u m e n t os ee v a l ac o m ol af o r m a ` [ [ E x p r e s s i o n 1 ,e x p r e s s i o n 2 ,. . . ] ,i n d e t e r m i n a t e 1 ,i n d e t e r m i n a t 2 , . . . ]' ,D o n d el a sv a r i a b l e s , , e t c ,s o nl a sv a r i a b l e sd ec o o r d e n a d a sc u r v i l n e a syd o n d eu nc o n j u n t od e c o m p o n e n t e sc a r t e s i a n a sr e c t a n g u l a r e ss ed a ne nt r m i n o sd el a c o o r d e n a d a sc u r v i l n e a sp o r` [ e x p r e s s i o n 1 ,e x p r e s s i o n 2 ,. . . ] . ` C o o r d e n a d a s' s ee s t a b l e c ee ne lv e c t o r `[ i n d e t e r m i n a t e 1 , i n d e t e r m i n a t e 2 ,. . . ]' y` d i m e n s i n "e s t a j u s t a d oal al o n g i t u dd ee s t a v e c t o r i a l .S F[ 1 ] ,S a nF r a n c i s c o[ 2 ] ,. . . ,S F[ D I M E N S I O N ]s ea j u s t a nal a c o o r d i n a rl o sf a c t o r e sd ee s c a l a ,y` s f p r o d' s ee s t a b l e c ee ne lp r o d u c t od e e s t o sf a c t o r e sd ee s c a l a .I n i c i a l m e n t e ,` c o o r d e n a d a s' e s `[ X ,Y ,Z ] ' , ` D i m e n s i n' e s3 ,yS F[ 1 ]=S F[ 2 ]=S F[ 3 ]=S F P R O D=1 ,c o r r e s p o n d i e n t ea C o o r d e n a d a sc a r t e s i a n a sr e c t a n g u l a r e s3 d i m e n s i o n a l e s .P a r aa m p l i a ru n e x p r e s i ne nc o m p o n e n t e sf s i c o se nl ac o o r d e n a d aa c t u a l s i s t e m a ,h a yu n af u n c i nc o ne lu s od el af o r m a
F u n c i n :s e t e l m x( < x > ,< j > ,< M > ) A s i g n a< x >a l( ,< j > ) s i m oe l e m e n t od el am a t r i z< M >y d e v u e l v el am a t r i za l t e r a d a . ` < M >[ ,< j > ] :< x >' T i e n ee lm i s m oe f e c t o ,p e r ov u e l v e< X >l u g a r d e< M > .
230/633
28/08/13
F u n c i n :s i m i l a r i t y t r a n s f o r m( < M > ) F u n c i n :s i m t r a n( < M > )
` S i m i l a r i t y t r a n s f o r m' c a l c u l al at r a n s f o r m a d ad es i m i l i t u dd el am a t r i z ` M' .S ed e v u e l v eu n al i s t aq u ee sl as a l i d ad el a C o m a n d o` u n i t e i g e n v e c t o r s .A d e m s ,s il ab a n d e r a ` N o n d i a g o n a l i z a b l e' e s 'f a l s e' d o s m a t r i c e sg l o b a l e s `l e f t m a t r i x ' y` r i g h t m a t r i x' s ec a l c u l a n .E s t a sm a t r i c e st i e n e nl ap r o p i e d a d q u e` l e f t m a t r i x .< M > .r i g h t m a t r i x' e su n am a t r i zd i a g o n a lc o nl o s l o sv a l o r e sp r o p i o sd e< M >e nl ad i a g o n a l .S i` n o n d i a g o n a l i z a b l e' e s ` T r u e' l a sm a t r i c e si z q u i e r d ayd e r e c h an os ec o m p u t a n . S il ab a n d e r a` h e r m i t i a n m a t r i x' e s `t r u e 'y` l e f t m a t r i x' e sl a c o n j u g a d oc o m p l e j od el at r a n s p u e s t ad e` r i g h t m a t r i x' .D eo t r am a n e r a ` L e f t m a t r i x' e se li n v e r s od e l `r i g h t m a t r i x ' . ` R i g h t m a t r i x' e sl am a t r i zc u y a sc o l u m n a ss o nl au n i d a d v e c t o r e sp r o p i o sd e< M > .L a so t r a sv a r i a b l e s( v a n s e` v a l o r e sp r o p i o syd e ` V e c t o r e sp r o p i o s " )t i e n e nl o sm i s m o se f e c t o sd e s d e` s i m i l a r i t y t r a n s f o r m' l l a m aal a so t r a sf u n c i o n e se ne lp a q u e t ec o ne lf i nd es e rc a p a zd e f o r m a r` r i g h t m a t r i x' . ` L o a d( "e i g e n" )' c a r g ae s t af u n c i n . ` S i m t r a n' e ss i n n i m od e 's i m i l a r i t y t r a n s f o r m' .
V a r i a b l eo p c i o n a l :r a l o V a l o rp o rd e f e c t o :f a l s e' C u a n d o` s p a r s e' e s `t r u e ' ,ys i` r a t m x' e s `t r u e ' ,e n t o n c e s ' D e t e r m i n a n t e 'u t i l i z a r r u t i n a se s p e c i a l e sd ee s c a s ac o m p u t i n g d e t e r m i n a n t e s .
F u n c i n :s u b m a t r i z( ,. . . , ,< M > ,< j _ 1 > ,. . . ,< j _ n > ) F u n c i n :s u b m a t r i z( ,. . . , ,< M > ) F u n c i n :s u b m a t r i z( < M > ,< j _ 1 > ,. . . ,< j _ n > ) D e v u e l v eu n an u e v am a t r i zf o r m a d ad e l< M >m a t r i zc o nf i l a s , . . . ,E l i m i n ayc o l u m n a s< j _ 1 > ,. . . ,e l i m i n a< j _ n > .
F u n c i n :t r a n s p o r t a r( < M > ) D e v u e l v el at r a n s p u e s t ad e< M > . S i< M >e su n am a t r i z ,e lv a l o rd e v u e l t oe so t r am a t r i zt a l< N > q u e` N[ i ,j ]=M[ j ,i ]' . S i< M >e su n al i s t a ,e lv a l o rd e v u e l t oe su n am a t r i zd e< N >` l o n g i t u d( m )' f i l a sy1c o l u m n a ,d em a n e r aq u e` N[ i ,1 ]=M[ i ]' . D el oc o n t r a r i o< M >e su ns m b o l o ,ye lv a l o rd er e t o r n oe su ns u s t a n t i v o e x p r e s i n` ' t r a n s p o s i c i n( < M > ) .
F u n c i n :t r i a n g u l a r i z e( < M > ) D e v u e l v el af o r m at r i a n g u l a rs u p e r i o rd el am a t r i z` M' ,t a lc o m os ep r o d u c e p o re l i m i n a c i ng a u s s i a n a .E lv a l o rd er e t o r n oe se lm i s m oq u e ` E s c a l n' ,e x c e p t oq u ee le l e m e n t on on u l od ec a d af i l a n os en o r m a l i z aa1 . L u _ f a c t o r` ' y `c h o l e s k y 's o no t r a sf u n c i o n e sq u ep r o d u c e n t r i a n g u l a r i z a nm a t r i c e s . ( %I 1 )M :m a t r i z( [ 3 ,7 ,a a ,b b ] ,[ 1 ,8 ,5 ,2 ] ,[ 9 ,2 ,1 1 ,4 ] ) ; [ 37a ab b ] [ ] ( %O 1 )[ -1852 ] [ ] [ 921 14 ] ( %I 2 )t r i a n g u l a r i z e( M ) ; [ -1852 ] [ ] ( %O 2 )[ 0-7 4a5 6-2 2 ] [ ] [ 006 2 6 7 4a a2 3 8 7 4b b ]
F u n c i n :u n i t e i g e n v e c t o r s( < M > ) F u n c i n :n o m b r eu e i v e c t s( < M > ) C a l c u l al o sv e c t o r e sp r o p i o su n i t a r i o sd el am a t r i z< M > .E lv a l o rd er e t o r n oe s u n al i s t ad el i s t a s ,l ap r i m e r as u b l i s t ad eq u ee sl as a l i d ad el a ` C o m a n d o' v a l o r e sp r o p i o s ,ye lr e s t od es u b l i s t a sd el o sc u a l e ss o nl o s v e c t o r e sp r o p i o sd el am a t r i zc o r r e s p o n d i e n t e sae s o sv a l o r e sp r o p i o s
231/633
28/08/13
r e s p e c t i v a m e n t e .
L a sv a r i a b l e sc i t a d a se nl ad e s c r i p c i nd el o sv e c t o r e sp r o p i o s` ' c o m a n d ot i e n el o sm i s m o se f e c t o se n s t et a m b i n . C u a n d o` k n o w n e i g v e c t s' e s `t r u e ' ,e lp a q u e t e' e i g e n 'a s u m eq u e l o sv e c t o r e sp r o p i o sd el am a t r i zs o nc o n o c i d o sp o re lu s u a r i oys o n a l m a c e n a d ob a j oe ln o m b r eg l o b a l` l i s t e i g v e c t s' .` L i s t e i g v e c t s "d e b e r a e s t a b l e c e re nu n al i s t as i m i l a ral as a l i d ad el o s' v e c t o r e sp r o p i o s ' c o m a n d o . S i` k n o w n e i g v e c t s' e s t a j u s t a d oa 't r u e' yl al i s t ad ev e c t o r e sp r o p i o se s t e n i e n d oe nc u e n t al ac o n f i g u r a c i nd el ab a n d e r a` n o n d i a g o n a l i z a b l e "n op u e d eh a b e r c o r r e g i r .S ie s ee se lc a s o ,p o rf a v o r ,p n g a l oe ne lv a l o rc o r r e c t o . E la u t o ra s u m eq u ee lu s u a r i os a b el oq u ee s t h a c i e n d oyl oh a r N ot r a t ed ed i a g o n a l i z a ru n am a t r i zd el o sv e c t o r e sp r o p i o sd el o sq u en ol oh a c e n a b a r c a re le s p a c i ov e c t o r i a ld el ad i m e n s i na p r o p i a d a . ` L o a d( "e i g e n" )' c a r g ae s t af u n c i n . ` N o m b r eu e i v e c t s' e su ns i n n i m od e ù n i t e i g e n v e c t o r s .
F u n c i n :u n i t v e c t o r( < x > ) F u n c i n :n o m b r eu v e c t( < x > ) D e v o l u c i o n e s< x >/n o r m( < x > ) ,l oq u ee su nv e c t o ru n i t a r i oe nl am i s m ad i r e c c i n c o m o< x > . ` L o a d( "e i g e n" )' c a r g ae s t af u n c i n . ` N o m b r eu v e c t' e ss i n n i m od e 'u n i t v e c t o r' .
F u n c i n :v e c t o r p o t e n t i a l( < g i v e n c u r l > ) D e v u e l v ee lv e c t o rp o t e n c i a ld eu nv e c t o rr o t a c i o n a le ne l s i s t e m ad ec o o r d e n a d a sa c t u a l .` P o t e n t i a l z e r o l o c' t i e n eu np a p e ls i m i l a r c o m op a r a` p o t e n c i a l " ,p e r oe lo r d e nd el o sl a d o si z q u i e r d o sd el a e c u a c i o n e sd e b e ns e ru n ap e r m u t a c i nc c l i c ad el a sv a r i a b l e sd ec o o r d e n a d a s .
F u n c i n :v e c t o r s i m p( e x p r ) R e a l i z as i m p l i f i c a c i o n e sye x p a n s i o n e sd ea c u e r d oc o nl as i g u i e n t e i n d i c a d o r e sg l o b a l e s : E x p a n d A l l` ' , è x p a n d d o t ' ,` e x p a n d d o t p l u s' , è x p a n d c r o s s ' ,` e x p a n d c r o s s p l u s' , E x p a n d c r o s s c r o s s` ' , è x p a n d g r a d ' ,` e x p a n d g r a d p l u s' , è x p a n d g r a d p r o d ' , E x p a n d d i v` ' , è x p a n d d i v p l u s ' ,` e x p a n d d i v p r o d' , è x p a n d c u r l ' ,` e x p a n d c u r l p l u s' , E x p a n d c u r l c u r l` ' , è x p a n d l a p l a c i a n ' ,` e x p a n d l a p l a c i a n p l u s' , y` e x p a n d l a p l a c i a n p r o d' . T o d a se s t a sv a r i a b l e st i e n e nv a l o rp o rd e f e c t o` f a l s e' .E ls u f i j o' p l u s ' s er e f i e r ea lu s od el as u m aod i s t r i b u t i v a .E l` p r o d' s u f i j os er e f i e r eal ae x p a n s i nd eo p e r a d o r e sq u er e a l i z a nc u a l q u i e rt i p od e p r o d u c t o . ` E x p a n d c r o s s c r o s s' S i m p l i f i c ap~( q~r )a( pr . )*Q-( .Pq )*r . ` E x p a n d c u r l c u r l' S i m p l i f i c aC u r lC u r lpap+g r a dd i vd i vg r a dp . ` E x p a n d l a p l a c i a n t o d i v g r a d' S i m p l i f i c al a p l a c i a n opp a r ad i vg r a dp . ` E x p a n d c r o s s' P e r m i t e` e x p a n d c r o s s p l u s' y è x p a n d c r o s s c r o s s ' . ` E x p a n d p l u s' P e r m i t e` e x p a n d d o t p l u s' , è x p a n d c r o s s p l u s ' ,` e x p a n d g r a d p l u s' , E x p a n d d i v p l u s` ' , è x p a n d c u r l p l u s 'y` e x p a n d l a p l a c i a n p l u s' . ` E x p a n d p r o d' P e r m i t e` e x p a n d g r a d p r o d' , è x p a n d d i v p r o d ' ,y ` E x p a n d l a p l a c i a n p r o d' . E s t o si n d i c a d o r e sh a ns i d ot o d a sd e c l a r a d a s` e v f l a g' .
V a r i a b l eo p c i o n a l :v e c t _ c r o s s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` v e c t _ c r o s s' e s `t r u e ' ,p e r m i t eD I F( X~Y ,T )p a r at r a b a j a re ne l~ s ed e f i n ee nl ac u o t a ;V E C T( d o n d eV E C T _ C R O S Se s t e n` t r u e' , d et o d o sm o d o s . )
232/633
28/08/13
F u n c i n :z e r o m a t r i x( < m > ,< n > )
D e v u e l v eu n< m >p o r< n >m a t r i z ,t o d o sl o se l e m e n t o sd el o sc u a l e ss o nc e r o .
24 Affine
I n t r o d u c c i nal o sa f i n e s F u n c i o n e syv a r i a b l e sp a r aA f i n e s
24.1 Introduccin a Afn

` A f n' e su np a q u e t ep a r at r a b a j a rc o ng r u p o sd ep o l i n o m i o s .
24.2 Funciones y variables para Afines

F u n c i n :f u n c i nf a s t _ l i n s o l v e( [ < e x p r _ 1 > ,. . . ,< e x p r _ m > ] ,[ < x _ 1 > ,. . . ,< x _ n > ] ) R e s u e l v ee ls i s t e m ad ee c u a c i o n e sl i n e a l e s< e x p r _ 1 > ,. . . ,< e x p r _ m > p a r al a< x _ 1 >l a sv a r i a b l e s ,. . . ,< x _ n > .C a d a< e x p r _ i >p u e d es e ru n a e c u a c i nou n ae x p r e s i ng e n e r a l ,ys id ac o m ou ng e n e r a l e x p r e s i n ,s et r a t ac o m ou n ae c u a c i nd el af o r m a` < e x p r _ i >= 0' . E lv a l o rd er e t o r n oe su n al i s t ad ee c u a c i o n e sd el af o r m a` [ < x _ 1 >= < a _ 1 > ,. . . ,< x _ n >< a _ n >= ]' d o n d e< a _ 1 > ,. . . ,< a _ n >s o ng r a t u i t o s d e< x _ 1 > ,. . . ,< x _ n > . ` F u n c i nf a s t _ l i n s o l v e' e sm sr p i d oq u e `l i n s o l v e 'p a r ae ls i s t e m ad ee c u a c i o n e s l o sc u a l e ss o ne s c a s o s . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :g r o b n e r _ b a s i s( [ < e x p r _ 1 > ,. . . ,< e x p r _ m > ] ) D e v u e l v eu n ab a s ed eG r o e b n e rp a r ae l< e x p r _ 1 >e c u a c i o n e s ,. . . ,< e x p r _ m > . L af u n c i n` p o l y s i m p' ,e n t o n c e ss ep u e d eu t i l i z a rp a r as i m p l i f i c a rl ao t r a f u n c i o n e sr e l a t i v a sal a se c u a c i o n e s . g r o b n e r _ b a s i s( [ 3*x^2+ 1 ,y*x ] )$ p o l y s i m p( y^2*x+x^3*9+2 )= = >3*x+2 ` P o l y s i m p( f )' d a0s iys l os i< f >e s t e ne li d e a l g e n e r a d ap o r< e x p r _ 1 > ,. . . ,< e x p r _ m > ,e sd e c i r ,s iys l os i< f > e su n ac o m b i n a c i nl i n e a ld el o se l e m e n t o sd e< e x p r _ 1 > ,. . . , < e x p r _ m > . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :s e t _ u p _ d o t _ s i m p l i f i c a t i o n s( < e q n s > ,< c h e c k _ t h r o u g h _ d e g r e e > ) F u n c i n :s e t _ u p _ d o t _ s i m p l i f i c a t i o n s( < e q n s > ) E l< e q n s >s o ne c u a c i o n e sp o l i n m i c a se nv a r i a b l e sn oc o n m u t a t i v a . E lv a l o rd e` c u r r e n t _ v a r i a b l e s' e sl al i s t ad ev a r i a b l e su t i l i z a d a sp a r a c l c u l od el o sg r a d o s .L a se c u a c i o n e sd e b e ns e rh o m o g n e a s ,c o ne lf i n p a r aq u ee lp r o c e d i m i e n t ot e r m i n e . S ih am a r c a d os o l a p a m i e n t os i m p l i f i c a c i o n e s ` D o t _ s i m p l i f i c a t i o n s' p o re n c i m ad e lg r a d od e< f > ,l as i g u i e n t e E sc i e r t o :` d o t s i m p( < f > )' d a0s iys l os i< f >e s t e ne l i d e a lg e n e r a d op o rl a se c u a c i o n e s ,e sd e c i r ,s iys l os ie su n< f > c o m b i n a c i nl i n e a ld el o se l e m e n t o sd el a se c u a c i o n e s . E lg r a d oe se ld e v u e l t op o r` n c _ d e g r e e' .E s t oas uv e ze s i n f l u e n c i a d op o rl o sp e s o sd el a sv a r i a b l e si n d i v i d u a l e s . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :d e c l a r e _ w e i g h t s( < x _ 1 > ,< w _ 1 > ,. . . ,< x _ n > ,< w _ n > ) A s i g n ap o n d e r a c i o n e s< w _ 1 > ,. . . ,< w _ n >a< x _ 1 > ,. . . ,< x _ n > , r e s p e c t i v a m e n t e .E s t o sp e s o ss o nl o su t i l i z a d o se ne lc l c u l od e` n c _ d e g r e e' . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :n c _ d e g r e e( ) D e v u e l v ee lg r a d od eu np o l i n o m i on oc o n m u t a t i v o .V e r
233/633
28/08/13
` D e c l a r e _ w e i g h t s' . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :d o t s i m p( < f > ) D e v u e l v e0s iys l os i< f >e s t e ne li d e a lg e n e r a d op o re l e c u a c i o n e s ,e sd e c i r ,s iys l os i< f >e su n ac o m b i n a c i nd ep o l i n o m i o l o se l e m e n t o sd el a se c u a c i o n e s . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :f a s t _ c e n t r a l _ e l e m e n t s( [ < x _ 1 > ,. . . ,< x _ n > ] ,< n > ) S i` s e t _ u p _ d o t _ s i m p l i f i c a t i o n s' s eh ah e c h oa n t e r i o r m e n t e ,e n c u e n t r a l o sp o l i n o m i o sc e n t r a l e se nl a< x _ 1 >v a r i a b l e s ,. . . ,e ne l< x _ n > g r a d od a d o ,< n > . P o re j e m p l o : s e t _ u p _ d o t _ s i m p l i f i c a t i o n s( [ y x+x y ] ,3 ) ; f a s t _ c e n t r a l _ e l e m e n t s( [ x ,y ] ,2 ) ; [ A a ,x x ] ; L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :c h e c k _ o v e r l a p s( < n > ,< a d d _ t o _ s i m p s > ) R e v i s al as u p e r p o s i c i nh a s t a< n >g r a d o ,a s e g u r n d o s ed eq u eu s t e dt i e n e s u f i c i e n t e sr e g l a sd es i m p l i f i c a c i ne nc a d ag r a d op a r aq u e` d o t s i m p "p a r a f u n c i o n ec o r r e c t a m e n t e .E s t ep r o c e s op u e d ea c e l e r a r s es is ec o n o c ed ea n t e m a n o c u le sl ad i m e n s i nd e le s p a c i od em o n o m i o s .S is et r a t ad e d i m e n s i ng l o b a lf i n i t o ,e n t o n c e ss ed e b eu t i l i z a r` H i l b e r t .S i n os a b e nl a sd i m e n s i o n e sd el o sm o n o m i o s ,n oe s p e c i f i q u eu n a ` R a n k _ f u n c t i o n' .U nt e r c e ra r g u m e n t o` r e s t a b l e c i m i e n t oo p c i o n a l' ,f a l s e ` ' ,d i c e n os em o l e s t a ne nc o n s u l t a ra c e r c ad ec m or e s t a b l e c e rl a sc o s a s . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :m o n o( [ < x _ 1 > ,. . . ,< x _ n > ] ,< n > ) D e v u e l v el al i s t ad em o n o m i o si n d e p e n d i e n t e sc o nr e s p e c t oal aa c t u a l s i m p l i f i c a c i o n e sp u n t od e< n >g r a d oe ne l< x _ 1 >v a r i a b l e s ,. . . , < x _ n > . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :m o n o m i a l _ d i m e n s i o n s( < n > ) C a l c u l ae ld e s a r r o l l od eH i l b e r td e< n >g r a d op a r al ac o r r i e n t e l g e b r a . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :e x t r a c t _ l i n e a r _ e q u a t i o n s( [ ,. . . , ] ,[ < m _ 1 > ,. . . ,< m _ n > ] ) H a c eu n al i s t ad el o sc o e f i c i e n t e sd el o sp o l i n o m i o sn oc o n m u t a t i v o s ,. . . ,d e lm o n o m i o sn oc o n m u t a t i v a< m _ 1 > ,. . . , < m _ n > .L o sc o e f i c i e n t e sd e b e ne s c a l a r e s .U t i l i z a r ` L i s t _ n c _ m o n o m i a l s' p a r ac o n s t r u i rl al i s t ad em o n o m i o s . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
F u n c i n :l i s t _ n c _ m o n o m i a l s( [ ,. . . , ] ) F u n c i n :l i s t _ n c _ m o n o m i a l s( ) D e v u e l v eu n al i s t ad el o sm o n o m i o sn oc o n m u t a t i v o sq u ea p a r e c e ne n p o l i n o m i oou n al i s t ad ep o l i n o m i o s ,. . . , . L o a d( a f f i n e )' c a r g ae s t af u n c i n .
V a r i a b l eo p c i o n a l :a l l _ d o t s i m p _ d e n o m s V a l o rp o rd e f e c t o :f a l s e' C u a n d o` a l l _ d o t s i m p _ d e n o m s' e su n al i s t a ,l o sd e n o m i n a d o r e se n c o n t r a d o s p o r` d o t s i m p' s ea a d e nal al i s t a .` A l l _ d o t s i m p _ d e n o m s' m a y s e ri n i c i a l i z a d oau n al i s t ad e` [ ]v a c a "a n t e sd el l a m a r` d o t s i m p' .
234/633
28/08/13

D ef o r m ap r e d e t e r m i n a d a ,l o sd e n o m i n a d o r e sn os o nr e c o g i d o sp o r` d o t s i m p' .
25 itensor
I n t r o d u c c i nai t e n s o r F u n c i o n e syv a r i a b l e sp a r ai t e n s o r
25.1 Introduccin a itensor

M a x i m ai m p l e m e n t am a n i p u l a c i ns i m b l i c at e n s o rd ed o st i p o sd i s t i n t o s : m a n i p u l a rc o m p o n e n t e sd et e n s o r e s( p a q u e t ec t e n s o r` ' )yt e n s o ri n d i c i a l m a n i p u l a c i n( p a q u e t ei t e n s o r` ' ) . N o t ab e n e :P o rf a v o r ,v e al an o t ae nl a" n u e v an o t a c i nt e n s o r i a l' ac o n t i n u a c i n . L am a n i p u l a c i nd ec o m p o n e n t e st e n s o rs i g n i f i c aq u el o so b j e t o sg e o m t r i c o st e n s o r i a l e s s er e p r e s e n t a nc o m om a t r i c e som a t r i c e s .O p e r a c i o n e st e n s o r i a l e sc o m ol a c o n t r a c c i nol ad i f e r e n c i a c i nc o v a r i a n t es el l e v a nac a b op o rh e c h o s u m a n d o n d i c e s( f i c t i c i o )c o nd e c l a r a c i o n e sd e l` h a c e m o s .E sd e c i r , s er e a l i z a no p e r a c i o n e sd el a sc o m p o n e n t e sd e lt e n s o r a l m a c e n a d oe nu na r r a yom a t r i z . M a n i p u l a c i ni n d e x a d ad et e n s o r e ss el l e v aac a b om e d i a n t el ar e p r e s e n t a c i nd el o st e n s o r e s c o m of u n c i o n e sd es u s n d i c e sc o v a r i a n t e s ,c o n t r a v a r i a n t e syd ed e r i v a d a s . O p e r a c i o n e st e n s o r i a l e sc o m ol ac o n t r a c c i nol ad i f e r e n c i a c i nc o v a r i a n t es o n r e a l i z a d om e d i a n t el am a n i p u l a c i nd el o sp r o p i o s n d i c e se nl u g a rd el a e l e m e n t o sal o sq u ec o r r e s p o n d e n . E s t o sd o se n f o q u e sp a r ae lt r a t a m i e n t od ed i f e r e n c i a l ,ya l g e b r a i c a p r o c e s o sa n a l t i c o se ne lc o n t e x t od el ag e o m e t r ar i e m a n n i a n at i e n e nv a r i a s v e n t a j a syd e s v e n t a j a sq u es u r g e ns l oat r a v sd el a e np a r t i c u l a rl an a t u r a l e z ayl ad i f i c u l t a dd e lp r o b l e m ad e lu s u a r i o .S i ne m b a r g o ,u n o d e b et e n e re nc u e n t al a ss i g u i e n t e sc a r a c t e r s t i c a sd el o sd o s i m p l e m e n t a c i o n e s : L ar e p r e s e n t a c i nd el o st e n s o r e sys u so p e r a c i o n e sd ef o r m ae x p l c i t ae n t r m i n o sd es u sc o m p o n e n t e sh a c eq u e` c t e n s o r' f c i ld eu s a r .E s p e c i f i c a c i nd e l am t r i c aye lc l c u l od el o st e n s o r e si n d u c i d o sei n v a r i a n t e se s s e n c i l l o .A u n q u et o d al ap o t e n c i ad es i m p l i f i c a c i nd eM a x i m a c a p a c i d a de s t al am a n o ,u n am t r i c ac o m p l e j ac o ni n t r i n c a d o sf u n c i o n a ly d e p e n d e n c i a sd ec o o r d e n a d a sp u e d ec o n d u c i rae x p r e s i o n e sd eg r a nt a m a oe s e s t r u c t u r ae x c e s i v ayc u y os eo c u l t a .A d e m s ,m u c h o sc l c u l o s i n v o l u c r a ral a se x p r e s i o n e si n t e r m e d i a sq u ep u e d e nc a u s a rl o sp r o g r a m a sd e f i n a l i z a ra n t e sd el at e r m i n a c i n .At r a v sd el ae x p e r i e n c i a ,e lu s u a r i op u e d ee v i t a rm u c h o s d ee s t a sd i f i c u l t a d e s . D e b i d oal af o r m ae s p e c i a le nq u et e n s o r e sys u so p e r a c i o n e s s er e p r e s e n t a ne nt r m i n o sd eo p e r a c i o n e ss i m b l i c a sc o ns u s n d i c e s , e x p r e s i o n e sq u ee nl ar e p r e s e n t a c i nd ec o m p o n e n t e ss e r a ni n m a n e j a b l e s av e c e sp u e d es e rs i m p l i f i c a d oe ng r a nm e d i d am e d i a n t ee lu s od el a sr u t i n a se s p e c i a l e sp a r a o b j e t o ss i m t r i c o sd e l` i t e n s o r' .D ee s t am a n e r al ae s t r u c t u r ad eu ng r a n e x p r e s i np u e d es e rm st r a n s p a r e n t e .P o ro t r ol a d o ,d e b i d oal a l ar e p r e s e n t a c i ni n d i c i a le s p e c i a le n` i t e n s o r' ,e na l g u n o sc a s o s ,l a u s u a r i oe n c o n t r a r d i f i c u l t a d e sc o nl ae s p e c i f i c a c i nd el am t r i c a ,l af u n c i n d e f i n i c i nyl ae v a l u a c i nd eo b j e t o sd i f e r e n c i a d o s" i n d e x a d o s " . E lp a q u e t ei t e n s o r` ' p u e d el l e v a rac a b ou n ad i f e r e n c i a c i nc o nr e s p e c t oal a u n av a r i a b l ei n d e x a d a ,q u ep e r m i t eu s a re lp a q u e t ec u a n d os et r a t a f o r m a l i s m od el a g r a n g i a n oyh a m i l t o n i a n o .C o m oe sp o s i b l e d e r i v a ru nc a m p ol a g r a n g i a n oc o nr e s p e c t oau nc a m p o( i n d e x a d o ) v a r i a b l e s ,s ep u e d eu t i l i z a rM a x i m ap a r ad e r i v a rl ac o r r e s p o n d i e n t ed eE u l e r L a g r a n g e e c u a c i o n e se nf o r m ai n d e x a d a .E s t a se c u a c i o n e ss ep u e d e nt r a d u c i re n " l o sp r o g r a m a sq u eu t i l i z a ne l ì c _ c o n v e r tc o m p o n e n t e st e n s o r i a l e s( c t e n s o r` ) "f u n c i n , l oq u ep e r m i t er e s o l v e rl a se c u a c i o n e sd ec a m p oe nu n ac o o r d e n a d ad e t e r m i n a d a r e p r e s e n t a c i n ,or e e s t r u c t u r a rl a se c u a c i o n e sd em o v i m i e n t oe nH a m i l t o n f o r m u l a r i o .C o n s u l t e` e i n h i l . d e m' y `b r a d i c . d e m 'd u r a n t ed o se j e m p l o sc o m p l e t o s . L ap r i m e r a ,' e i n h i l . d e m ' ,u t i l i z al aa c c i nd eE i n s t e i n H i l b e r tp a r ad e r i v a rl a E i n s t e i nt e n s o rd ec a m p oe ne lc a s oh o m o g n e oei s o t r p i c o( F r i e d m a n n e c u a c i o n e s )ye l ,c a s oe s t t i c os i m e t r ae s f r i c a( S c h w a r z s c h i l d s o l u c i n . )E ls e g u n d o ,` b r a d i c . d e m' ,m u e s t r ac m oc a l c u l a re l E c u a c i o n e sd eF r i e d m a n nap a r t i rd el aa c c i nd el at e o r ad el ag r a v e d a dd eB r a n s D i c k ey T a m b i ns ed e r i v ae lh a m i l t o n i a n oa s o c i a d oc o ne lc a m p oe s c a l a rd el at e o r a .
25.2 Funciones y variables para itensor

F u n c i n :l l a m a d ad i s p c o n( < t e n s o r _ 1 > ,< t e n s o r _ 2 > ,. . . ) F u n c i n :l l a m a d ad i s p c o n( t o d o s ) M u e s t r al a sp r o p i e d a d e sc o n t r a c t i v a sd es u sa r g u m e n t o st a lc o m of u e r o na s i g n a d a s a` d e f c o n .` L l a m a d ad i s p c o n( t o d o s )' m u e s t r at o d al ac o n t r a c c i n p r o p i e d a d e sq u es eh a nd e f i n i d o .
F u n c i n :e n t e r t e n s o r( < n o m b r e > ) e su n af u n c i nq u e ,a lp r o v o c a r ,l ep e r m i t eau n oc r e a ru n ai n d e x a d a
235/633
28/08/13

o b j e t ol l a m a< n o m b r e >c o nc u a l q u i e rn m e r od et e n s o r i a lyd e r i v a d o n d i c e s .C u a l q u i e r ad eu ns o l o n d i c eou n al i s t ad e n d i c e s( q u ep u e d es e r n u l l )s ei n t r o d u c ea c e p t a b l e( v a s ee le j e m p l od el as e c c i n` c o v d i f f' ) .
F u n c i n :c h a n g e n a m e( < V i e j o > ,< n u e v o > ,e x p r ) c a m b i a r e ln o m b r ed et o d o sl o so b j e t o si n d e x a d o sl l a m a d o s< V i e j o >a< n u e v o > e ne x p r .< V i e j o >p u e d es e ru ns m b o l oou n al i s t ad el af o r m a ` [ < n o m b r e > ,< m > ,< n > ]' ,E nc u y oc a s os l ol o so b j e t o si n d e x a d o s l l a m a d a< n o m b r e >c o n n d i c e sc o v a r i a n t e sy< n >< m > p a s a r al l a m a r s ea< n u e v o > .
F u n c i n :l i s t o f t e n s L i s t a st o d o sl o st e n s o r e se nu n ae x p r e s i nt e n s o r i a l ,j u n t oc o ns u s n d i c e s .P o re j e m p l o ,
F u n c i n :I S h o w( e x p r ) p a n t a l l a s< e x p r >c o nl o so b j e t o si n d e x a d o sq u et e n g a ns u n d i c e sc o v a r i a n t e sc o m os u b n d i c e syl o sc o n t r a v a r i a n t e sc o m o s u p e r n d i c e s .L o s n d i c e sd ed e r i v a d a ss em u e s t r a nc o m os u b n d i c e s , s e p a r a d o sd el o sc o v a r i a n t e sp o ru n ac o m a( v e al o se j e m p l o s al ol a r g od ee s t ed o c u m e n t o ) .
F u n c i n : n d i c e s( e x p r ) D e v u e l v eu n al i s t ac o nd o se l e m e n t o s .L ap r i m e r ae su n al i s t ad el o sl i b r e s n d i c e se ne x p r( l a sq u eo c u r r e nu n as o l av e z ) .E ls e g u n d oe sl a l i s t ad el o s n d i c e sm u d o se ne x p r( l a sq u eo c u r r e ne x a c t a m e n t e d o sv e c e s )c o m od e m u e s t r ae ls i g u i e n t ee j e m p l o .
F u n c i n :r e n a m e( e x p r ) F u n c i n :r e n a m e( e x p r ,< c o u n t > ) D e v u e l v eu n ae x p r e s i ne q u i v a l e n t eae x p rp e r oc o ne lm a n i q u n d i c e sd ec a d at r m i n oe l e g i d o sd e lc o n j u n t o` [ %1 , %2 ,. . . ]' ,s ie l s eo m i t ee ls e g u n d oa r g u m e n t oo p c i o n a l .D el oc o n t r a r i o ,l o s n d i c e sm u d o s s ei n d e x a nc o m e n z a n d op o re lv a l o rd e< c o u n t > .C a d a n d i c em u d o e nu np r o d u c t os e r d i f e r e n t e .P a r au nr e s u m e n ,` r e n a m e' f u n c i o n a r s o b r ec a d at r m i n od el as u m ac e r oe lc o n t a d o rc o nc a d at r m i n o .E n a s ` r e n a m e' p u e d es e r v i rc o m os i m p l i f i c a d o rt e n s o r i a l .E n A d e m s ,l o s n d i c e ss eo r d e n a r na l f a n u m r i c a m e n t e( s i` a l l s y m' e s` t r u e' )c o nr e s p e c t oal o s n d i c e sc o v a r i a n t e syc o n t r a v a r i a n t e s d e p e n d i e n d od e lv a l o rd e` f l i p f l a g' .S i` f l i p f l a g' e s 'f a l s e' e n t o n c e sl o s n d i c e ss ep u e d ec a m b i a re ln o m b r ed ea c u e r d oc o ne lo r d e nd e l n d i c e sc o n t r a v a r i a n t e s .S i` f l i p f l a g' e s `t r u e 'e lc a m b i od en o m b r es e r e a l i z a r d ea c u e r d oc o ne lo r d e nd el o s n d i c e sc o v a r i a n t e s .Am e n u d o S u c e d eq u ee le f e c t oc o m b i n a d od el o sd o sc a m b i o sd en o m b r er e d u c i r u n ae x p r e s i nm sd ec u a l q u i e r ad ee l l o sp o rs m i s m o .
F u n c i n :p r o g r a m a( e x p r ) M u e s t r a` e x p r "c o nl o so b j e t o si n d e x a d o sq u et i e n e n n d i c e sc o v a r i a n t e sc o m os u b n d i c e s , n d i c e sc o n t r a v a r i a n t e sc o m o s u p e r n d i c e s .L o s n d i c e sd ed e r i v a d a ss em u e s t r a nc o m os u b n d i c e s , s e p a r a d o sd el o sc o v a r i a n t e sp o ru n ac o m a .
V a r i a b l eo p c i o n a l :f l i p f l a g P o rd e f e c t o :f a l s e' .S i` f a l s e' ,e n t o n c e ss ep u e d ec a m b i a re ln o m b r ed el o s n d i c e s d ea c u e r d oc o ne lo r d e nd el o s n d i c e sc o n t r a v a r i a n t e s ,d el oc o n t r a r i o s e g ne lo r d e nd el o s n d i c e sc o v a r i a n t e s . S i` f l i p f l a g' e s 'f a l s e' yl u e g o 'r e n a m e' f o r m au n al i s t ad el o s n d i c e sc o n t r a v a r i a n t e ss e g nv a na p a r e c i e n d od ei z q u i e r d aad e r e c h a ( S ie s` t r u e' yl u e g od el o s n d i c e sc o v a r i a n t e s ) .E lp r i m e r n d i c em u d o e nl al i s t as ec a m b i ae ln o m b r ea' %1 ' ,a ll a d od e' %2 ' ,e t cAc o n t i n u a c i n , c l a s i f i c a c i ns ep r o d u c ed e s p u sd eq u ee l` r e n a m e ' c i n( v a s ee le j e m p l oe n ' R e n o m b r a r ' ) .
F u n c i n :d e f c o n( < t e n s o r _ 1 > ) F u n c i n :d e f c o n( < t e n s o r _ 1 > ,< t e n s o r _ 2 > ,< t e n s o r _ 3 > ) d a< t e n s o r _ 1 >l ap r o p i e d a dd eq u el ac o n t r a c c i nd eu np r o d u c t od e < t e n s o r _ 1 >yr e s u l t a d o s< t e n s o r _ 2 >e n< t e n s o r _ 3 >c o nl a n d i c e sa p r o p i a d o s .S is l oh a yu na r g u m e n t o ,< t e n s o r _ 1 > ,s ed a ,
236/633
28/08/13

ac o n t i n u a c i n ,l ac o n t r a c c i nd e lp r o d u c t od el a< t e n s o r _ 1 >c o nc u a l q u i e ri n d e x a d a o b j e t oq u et e n g al o s n d i c e sa p r o p i a d o s( d i g a m o s` m y _ t e n s o r' )p r o d u c i r u no b j e t oi n d e x a d oc o ne s en o m b r e ,e sd e c i r ,` m y _ t e n s o r' ,yc o nu nn u e v o c o n j u n t od e n d i c e sq u er e f l e j e nl a sc o n t r a c c i o n e sr e a l i z a d a s .P a r a e j e m p l o ,s i` i m e t r i c :g' ,yl u e g o 'd e f c o n( g )p o n d r e nm a r c h ae l s u b i ryb a j a rat r a v sd el o s n d i c e sd ec o n t r a c c i nc o nl am t r i c a t e n s o r .M sd eu nd e f c o n` ' s ep u e d ed a rp o re lm i s m o o b j e t oi n d e x a d o ,e l l t i m od ee l l o sd a d oq u es ea p l i c ae nu nd e t e r m i n a d o s eu t i l i z a r c o n t r a c c i n .` C o n t r a c c i o n e s' e su n al i s t ad el o s o b j e t o si n d e x a d o sq u es eh a nd a d op r o p i e d a d e sd ec o n t r a c c i nc o n ` D e f c o n .
F u n c i n :G a t e w a yE a s t( < t e n s o r _ 1 > ,. . . ,< t e n s o r _ n > ) F u n c i n :G a t e w a yE a s t( t o d o s ) e l i m i n at o d a sl a sp r o p i e d a d e sd ec o n t r a c c i nd el a< t e n s o r _ 1 > ,. . . , < t e n s o r _ n > ) .` R e m c o n( a l l ) "b o r r at o d a sl a sp r o p i e d a d e sd ec o n t r a c c i nd e t o d o sl o so b j e t o si n d e x a d o s .
F u n c i n :c o n t r a t o( e x p r ) L l e v aac a b ol a sc o n t r a c c i o n e st e n s o r i a l e se ne x p r ,q u ep u e d es e rc u a l q u i e r c o m b i n a c i nd es u m a syp r o d u c t o s .E s t af u n c i nu t i l i z al a L ai n f o r m a c i nd a d aal af u n c i nd e f c o n` ' .P a r ao b t e n e rm e j o r e sr e s u l t a d o s , ` E x p r' d e b ee s t a rc o m p l e t a m e n t ee x p a n d i d a .` R a t e x p a n d' e sl am a n e r am sr p i d ad e e x p a n d i rp r o d u c t o syp o t e n c i a sd es u m a ss in oh a yv a r i a b l e se n l o sd e n o m i n a d o r e sd el o st r m i n o s .E l` m c d' i n t e r r u p t o rd e b es e r 'f a l s e' s il a sc a n c e l a c i o n e sG C Ds o ni n n e c e s a r i o s .
F u n c i n :i n d e x e d _ t e n s o r( < t e n s o r > ) D e b ee j e c u t a r s ea n t e sd ea s i g n a r l ec o m p o n e n t e sau n< t e n s o r >p a r a q u eu ns i s t e m ai n c o r p o r a d oe ne lv a l o ry ae x i s t ec o m oc o n` i c h r 1' , ì c h r 2 ' , ` I c u r v a t u r e' .V e ae le j e m p l oe n` i c u r v a t u r e' .
F u n c i n :c o m p o n e n t e s( < t e n s o r > ,e x p r ) P e r m i t ea s i g n a ru nv a l o ri n d e x a d oal ae x p r e s i ne x p r d a n d ol o sv a l o r e sd el o sc o m p o n e n t e sd e< t e n s o r > .E s t o ss o n s u s t i t u i d od ef o r m aa u t o m t i c ap a r ae lt e n s o rc a d av e zq u es ep r o d u c ec o n t o d o ss u s n d i c e s .E lt e n s o rd e b es e rd el af o r m a` t( [ . . . ] ,[ . . . ] )' d o n d ec u a l q u i e r ad el a sl i s t a sp u e d ee s t a rv a c o .< e x p r >p u e d es e rc u a l q u i e ri n d e x a d a e x p r e s i nd el ap a r t i c i p a c i nd eo t r o so b j e t o sc o nl o sm i s m o s n d i c e sl i b r e sc o m o < t e n s o r > .C u a n d os eu t i l i z ap a r aa s i g n a rv a l o r e sa lt e n s o rm t r i c oe ne lq u e l o sc o m p o n e n t e sc o n t e n g a n n d i c e sm u d o s ,s ed e b et e n e rc u i d a d od ed e f i n i r e s t o s n d i c e sp a r ae v i t a rl ag e n e r a c i nd em l t i p l e s n d i c e sm u d o s . L ae l i m i n a c i nd ee s t et r a b a j os ed aal af u n c i n` r e m c o m p s' . E si m p o r t a n t et e n e re nc u e n t aq u e' c o m p o n e n t e s 's l os ep r e o c u p ap o r l av a l e n c i ad e lt e n s o r ,n oe lo r d e nd el o s n d i c e s . P o rl ot a n t ol aa s i g n a c i nd ec o m p o n e n t e sa ,p o re j e m p l o ,` x( [ i , j ] ,[ ] )' , 'x( [ j ,i ] ,[ ] )' , o` x( [ i ] ,[ j ] )' a l lp r o d u c i re lm i s m or e s u l t a d o ,e sd e c i r ,l o sc o m p o n e n t e s s e ra s i g n a d oau nt e n s o rd en o m b r e` x' `c o nv a l e n c i a( 1 , 1 ) . L o sc o m p o n e n t e ss ep u e d e na s i g n a rau n ae x p r e s i ni n d e x a d ad ec u a t r om a n e r a s , d o sd el a sc u a l e si m p l i c a ne lu s od el ao r d e n' c o m p o n e n t e s ' : 1 )C o m ou n ae x p r e s i ni n d e x a d a .P o re j e m p l o : ( %I 2 )C o m p o n e n t e s( g( [ ] ,[ i ,j ] ) ,e( [ ] ,[ i ] )*p( [ ] ,[ j ] ) )$ ( %I 3 )I S h o w( g( [ ] ,[ i ,j ] ) )$ i j ( %T 3 )e p 2 )C o m ou n am a t r i z :
F u n c i n :r e m c o m p s( < t e n s o r > ) E l i m i n at o d a sl o sv a l o r e sd e< t e n s o r >q u ef u e r o na s i g n a d o sal a F u n c i n` c o m p o n e n t e s' .
F u n c i n :s h o w c o m p s( < t e n s o r > ) M u e s t r al a sc o m p o n e n t e sd eu nt e n s o r ,c o m os eh i z oc o ne l C o m a n d o' c o m p o n e n t e s ' .E s t af u n c i np u e d es e rp a r t i c u l a r m e n t e t i l c u a n d os ea s i g n au n am a t r i zp a r au nt e n s o ri n d i c i a lu t i l i z a n d o ` C o m p o n e n t e s' ,c o m ol od e m u e s t r ae ls i g u i e n t ee j e m p l o :
F u n c i n :i d u m m y( )
237/633
28/08/13

I n c r e m e n t o s` i c o u n t e r' yd e v u e l v ec o m oe lv a l o rd eu n n d i c ed el af o r m a ` %N " ,d o n d ene su ne n t e r op o s i t i v o .E s t og a r a n t i z aq u ee lm a n i q u n d i c e sq u es en e c e s i t a ne nl a se x p r e s i o n e sq u ef o r m a nn oe n t r e ne nc o n f l i c t o c o n n d i c e sq u ey ae s t ne nu s o( v a s ee le j e m p l od el as e c c i n` n d i c e s' ) .
V a r i a b l eo p c i o n a l :v a r i a b l ei d u m m y x V a l o rp o rd e f e c t o :' % ' E se lp r e f i j od e n d i c e sm u d o s( v a s ee le j e m p l od el as e c c i n` n d i c e s' ) .
V a r i a b l eo p c i o n a l :i c o u n t e r V a l o rp o rd e f e c t o :1' D e t e r m i n ae ls u f i j on u m r i c op a r as e ru t i l i z a d oe nl ag e n e r a c i nd el as i g u i e n t e n d i c ed em a n i q u e ne lp a q u e t ed et e n s o r e s .E lp r e f i j os ed e t e r m i n ap o r l ao p c i n` i d u m m y' ( p o rd e f e c t o : ' %' ) .
F u n c i n :k d e l t a( < L 1 > ,< L 2 > ) s ed e f i n el af u n c i nd e l t ad eK r o n e c k e rg e n e r a l i z a d ae ne l P a q u e t e` i t e n s o r' c o n< L 1 >l al i s t ad e n d i c e sc o v a r i a n t e sy< L 2 > l al i s t ad el o sc o n t r a v a r i a n t e s .` K d e l t a( [ i ][ j ] )' d e v u e l v ee l o r d i n a r i ad e l t ad eK r o n e c k e r .L a sc a u s a sd ec o m a n d o` e v( e x p r ,k d e l t a )' l ae v a l u a c i nd eu n ae x p r e s i nq u ec o n t i e n e` k d e l t a( [ ] ,[ ] ) "p a r al a d i m e n s i nd el av a r i e d a d . E nl oq u ee q u i v a l eau na b u s od el an o t a c i n ,i t e n s o r` ' t a m b i np e r m i t e ` K d e l t a' t e n e r2c o v a r i a n t e syn i n g u n oc o n t r a v a r i a n t e ,o2 n d i c e sc o n t r a v a r i a n t e syc o v a r i a n t e sn o ,e ne f e c t op r o p o r c i o n a ru n c ov a r i a n t e" m a t r i zu n i t a r i a "c a p a c i d a d( n t r a ) .E s t oe se s t r i c t a m e n t e c o n s i d e r a d ou n aa y u d ad ep r o g r a m a c i nyn op r e t e n d ed a rae n t e n d e rq u e ` K d e l t a( [ i ,j ] ,[ ] )' e su no b j e t ot e n s o r i a lv l i d a .
F u n c i n :k d e l s( < L 1 > ,< L 2 > ) S y m m e t r i z e dd e l t ad eK r o n e c k e r ,q u es eu t i l i z ae na l g u n o sc l c u l o s .P a r a e j e m p l o :
F u n c i n :l e v i _ c i v i t a( < L > ) e se lt e n s o rd ep e r m u t a c i n( oL e v i C i v i t a )e lc u a ld e v u e l v e1s ie l L i s t a< L >c o n s i s t ee nu n ap e r m u t a c i np a rd ee n t e r o s ,1s i c o n s i s t ee nu n ap e r m u t a c i ni m p a ry0s ia l g u n o s n d i c e se n< L >s o n r e p e t i d o .
F u n c i n :l c 2 k d t( e x p r ) S i m p l i f i c ae x p r e s i o n e sq u ec o n t i e n e ne ls m b o l od eL e v i C i v i t a , c o n v i r t i n d o l a se ne x p r e s i o n e sc o nl ad e l t ad eK r o n e c k e rs i e m p r eq u es e ap o s i b l e .L a d i f e r e n c i ap r i n c i p a le n t r ee s t af u n c i nyl as i m p l ee v a l u a c i nd el a L e v i C i v i t as m b o l oe sq u el ae v a l u a c i nd i r e c t aam e n u d or e s u l t ae n E x p r e s i o n e sd eK r o n e c k e rc o n n d i c e sn u m r i c o s , .E s t oe sam e n u d o i n d e s e a b l ey aq u ei m p i d eu n am a y o rs i m p l i f i c a c i n .E l` l c 2 k d t' f u n c i ne v i t ae s t ep r o b l e m a ,d a n d oe x p r e s i o n e sq u es o nm s f c i l m e n t es i m p l i f i c a d ac o n' r e n o m b r a r 'o' c o n t r a t o ' .
F u n c i n :l c _ l R e g l ad es i m p l i f i c a c i nu t i l i z a d ae ne x p r e s i o n e sq u ec o n t i e n e nl a s i ne v a l u a rL e v i C i v i t as m b o l o( ` l e v i _ c i v i t a' ) .J u n t oc o n` l c _ u' , q u es ep u e d eu t i l i z a rp a r as i m p l i f i c a rm u c h a se x p r e s i o n e sd ef o r m am se f i c i e n t eq u e l ae v a l u a c i nd el e v i _ c i v i t a` ' .P o re j e m p l o :
F u n c i n :l c _ u R e g l ad es i m p l i f i c a c i nu t i l i z a d ae ne x p r e s i o n e sq u ec o n t i e n e nl a s i ne v a l u a rL e v i C i v i t as m b o l o( ` l e v i _ c i v i t a' ) .J u n t oc o n` l c _ u' , q u es ep u e d eu t i l i z a rp a r as i m p l i f i c a rm u c h a se x p r e s i o n e sd ef o r m am se f i c i e n t eq u e l ae v a l u a c i nd el e v i _ c i v i t a` ' .P a r ao b t e n e rm si n f o r m a c i n ,c o n s u l t el as e c c i n` l c _ l' .
F u n c i n :c a n t e n( e x p r ) S i m p l i f i c ae x p rr e n o m b r a n d o( v a s er e n a m e` ' )yp e r m u t a n d om a n i q u
238/633
28/08/13

n d i c e s .' R e n o m b r a r 's er e s t r i n g eas u m a sd ep r o d u c t o sd et e n s o r e se n q u en oe s t np r e s e n t e sd e r i v a d o s .C o m ot a l ,e sl i m i t a d oyd e b e s l os eu t i l i z as i` c a n f o r m' n oe sc a p a zd el l e v a rac a b ol a r e q u e r i d as i m p l i f i c a c i n . L af u n c i n' c a n t e n 'd e v u e l v eu nr e s u l t a d om a t e m t i c a m e n t ec o r r e c t os l o s is ua r g u m e n t oe su n ae x p r e s i nc o m p l e t a m e n t es i m t r i c ae ns u n d i c e s .P o re s t ar a z n ,' c a n t e n 'd e v u e l v eu ne r r o rs i` a l l s y m' N os ea j u s t aa` t r u e' .
F u n c i n :c o n c a n( e x p r ) A li g u a lq u e` c a n t e n " ,s i n ot a m b i nr e a l i z al ac o n t r a c c i nd e l n d i c e .
V a r i a b l eo p c i o n a l :a l l s y m P o rd e f e c t o :f a l s e' .s is es u p o n eq u e` t r u e' yl u e g ot o d o sl o so b j e t o si n d e x a d o s s i m t r i c o sr e s p e c t od et o d o ss u s n d i c e sc o v a r i a n t e syc o n t r a v a r i a n t e s .S i ` F a l s e' ,e n t o n c e ss es u p o n eq u en oh a yn i n g nt i p od es i m e t r ae ne s t a s n d i c e s . n d i c e sd e r i v a d o ss ec o n s i d e r a ns i e m p r es i m t r i c o s am e n o sq u e` i f r a m e _ f l a g' e s t e n `t r u e ' .
F u n c i n :d e s c r i p c i nd ed e c s y m( < t e n s o r > ,< m > ,< n >[ < c o v _ 1 > ,< c o v _ 2 > ,. . . ] ,[ < c o n t r _ 1 > ,< c o n t r _ 2 > ,. . . ] ) D e c l a r ap r o p i e d a d e sd es i m e t r ad e< t e n s o r >d e< m >c o v a r i a n t ey< n > n d i c e sc o n t r a v a r i a n t e s .E l< c o v _ i >y< c o n t r _ i >s o n s e u d o f u n c i o n e sq u ee x p r e s a nr e l a c i o n e sd es i m e t r ae n t r el ac o v a r i a n t e yl o sc o n t r a v a r i a n t e s ,r e s p e c t i v a m e n t e .E s t o ss o nd el af o r m a ` S y m o p e r( , ,. . . )' ,d o n d e `s y m o p e r 'e su n od e ` S i m' , 'l u c h a' o 'c y c' ys o ne n t e r o sq u ei n d i c a n l ap o s i c i nd e l n d i c ee ne l< t e n s o r > .E s t ed e c l a r a r < t e n s o r >p a r as e rs i m t r i c a ,a n t i s i m t r i c aoc c l i c o ,r e s p e c t i v a m e n t e ,e n e l .` S y m o p e r( t o d o s )' e st a m b i nu n af o r m ap e r m i s i b l eq u e i n d i c aq u et o d o sl o s n d i c e so b e d e c e nal ac o n d i c i nd es i m e t r a .P o re j e m p l o , d a d ou no b j e t o` b' c o n5 n d i c e sc o v a r i a n t e s , ` D e s c r i p c i nd ed e c s y m( b ,5 , 3 ,[ s y m( 1 , 2 ) ,a n t i( 3 , 4 ) ] ,[ c y c( t o d o s ) ] )' d e c l a r a `b ' s i m t r i c ae ns up r i m e r ays e g u n d aya n t i s i m t r i c oe ns ut e r c e r a yc u a r t o n d i c e sc o v a r i a n t e syc c l i c oe nt o d as u n d i c e sc o n t r a v a r i a n t e s .C u a l q u i e r ad el a sl i s t a sd ed e c l a r a c i o n e sd es i m e t r ap u e d e s e rn u l o .L af u n c i nq u er e a l i z al a ss i m p l i f i c a c i o n e se s ` C a n f o r m' c o m oe le j e m p l oac o n t i n u a c i ni l u s t r a .
F u n c i n :r e m s y m( < t e n s o r > ,< m > ,< n > ) E l i m i n at o d a sl a sp r o p i e d a d e sd es i m e t r ad e< t e n s o r >q u et i e n e< m > n d i c e sc o v a r i a n t e syl o s n d i c e sc o n t r a v a r i a n t e s< n > .
F u n c i n :c a n f o r m( e x p r ) F u n c i n :c a n f o r m( e x p r ,< R e n o m b r a r > ) S i m p l i f i c ae x p rr e n o m b r a n d o n d i c e sm u d o syr e o r d e n a n d ot o d o s l o s n d i c e ss e g nl a sc o n d i c i o n e sd es i m e t r aq u es el e si m p o n e n .S i ` A l l s y m' e s `t r u e ' ,e n t o n c e st o d o sl o s n d i c e ss ec o n s i d e r a ns i m t r i c o s , d el oc o n t r a r i ol ai n f o r m a c i np r o p o r c i o n a d ap o rl as i m e t r ad e c l a r a c i o n e s` d e c s y m' s eu t i l i z a r .L o s n d i c e sm u d o ss er e n o m b r a nd el am i s m am a n e r aq u e e nl af u n c i nd ec a m b i od en o m b r e` ' .C u a n d o` c a n f o r m' s ea p l i c aau ng r a n e x p r e s i nd e lc l c u l op u e d et o m a ru n ac a n t i d a dc o n s i d e r a b l ed et i e m p o . E s t et i e m p os ep u e d ea c o r t a rl l a m a n d o` r e n o m b r a r' e nl ae x p r e s i n p r i m e r o .V e rt a m b i ne le j e m p l od el ad e s c r i p c i nd ed e c s y m` ' .N o t a :` c a n f o r m' p u e d e n os e rc a p a zd er e d u c i rc o m p l e t a m e n t eu n ae x p r e s i nas uf o r m am ss i m p l e f o r m a ra u n q u es i e m p r ed e v o l v e r u n am a t e m t i c a m e n t ec o r r e c t o c o m or e s u l t a d o . E ls e g u n d o< R e n o m b r a r >p a r m e t r oo p c i o n a l ,s ie n` f a l s e' , s u p r i m ee lc a m b i od en o m b r e .
F u n c i n :d i f f( e x p r ,< v _ 1 > ,[ < n _ 1 > ,[ < v _ 2 > ,< n _ 2 > ]. . . ] ) e sl ah a b i t u a lf u n c i nd eM a x i m ap a r al ad i f e r e n c i a c i nq u eh as i d o a m p l i a d oe ns u sh a b i l i d a d e sp a r ai t e n s o r` ' .C a l c u l al ad e r i v a d a d e< e x p r >c o nr e s p e c t oal o st i e m p o sd e< n _ 1 >< v _ 1 > ,c o nr e s p e c t oa< v _ 2 > v e c e s< n _ 2 > ,e t cP a r ae lp a q u e t ed et e n s o r e s ,l af u n c i nh as i d o m o d i f i c a d ap a r aq u ee l< v _ i >p u e d es e rn m e r o se n t e r o sd e1h a s t ae lv a l o r d el av a r i a b l e` d b i l' .E s t oh a r q u el ad i f e r e n c i a c i ns e a l l e v a d oac a b oc o nr e s p e c t oal a< v _ i >m i e m b r od el al i s t a ` V e c t _ c o o r d s' .S i` v e c t _ c o o r d s' s eu n eau n av a r i a b l ea t m i c a , ac o n t i n u a c i n ,q u ev a r i a b l ec o ns u b n d i c ep o r< v _ i >s eu t i l i z a r p a r al a v a r i a b l e sd ed i f e r e n c i a c i n .E s t op e r m i t eq u eu n as e r i ed ec o o r d e n a d a s n o m b r e son o m b r e ss u b i n d i c a d o sc o m o` x[ 1 ]' , `x[ 2 ] ' ,. . .p a r as e ru t i l i z a d o . O t r ae x t e n s i na g r e g al ac a p a c i d a dd e` d i f f' p a r ac a l c u l a r d e r i v a d a sc o nr e s p e c t oau n av a r i a b l ei n d e x a d a .E np a r t i c u l a r ,
239/633
28/08/13

e lp a q u e t ed et e n s o r e ss a b ec m od i f e r e n c i a re x p r e s i o n e s q u ec o n t i e n e nc o m b i n a c i o n e sd e lt e n s o rm t r i c oys u sd e r i v a d o s c o nr e s p e c t oa lt e n s o rm t r i c oys up r i m e r ays e g u n d a d e r i v a d o s .E s t ac a p a c i d a de sp a r t i c u l a r m e n t e t i lc u a n d o t e n i e n d oe nc u e n t al a sf o r m u l a c i o n e sd eL a g r a n g ed eu n at e o r ad el ag r a v e d a d , p e r m i t i e n d od eo b t e n e re lt e n s o rd eE i n s t e i nyl a se c u a c i o n e sd ec a m p o d e s d ee lp r i n c i p i od el aa c c i n .
F u n c i n :i d i f( e x p r ,< v _ 1 > ,[ < n _ 1 > ,[ < v _ 2 > ,< n _ 2 > ]. . . ] ) D i f e r e n c i a c i ni n d e x a d a .Ad i f e r e n c i ad e` d i f f' ,q u ed e r i v a c o nr e s p e c t oau n av a r i a b l ei n d e p e n d i e n t e ,` i d i f ) "s ep u e d eu t i l i z a rp a r a d i f e r e n c i a rc o nr e s p e c t oau n ac o o r d e n a d a .P a r aq u eu no b j e t oi n d e x a d o , E s t oe q u i v a l eaa g r e g a re l< v _ i >c o m o n d i c e sd e r i v a d o s . P o s t e r i o r m e n t e ,s eo r d e n a r nl o s n d i c e sd e r i v a d o s ,am e n o sq u e ` I f r a m e _ f l a g' e s t a j u s t a d oa 't r u e' . ` I d i f' t a m b i np u e d ed e r i v a re ld e t e r m i n a n t ed el am t r i c a t e n s o r .P o rl ot a n t o ,s i` i m e t r i c' s eh au n i d oa 'G' yl u e g o ` I d i f( d e t e r m i n a n t e( g ) ,k )' d e v o l v e r `2*d e t e r m i n a n t e( g )* i c h r 2( [ %i ,k ] ,[ %i ] )" ,d o n d ee l n d i c eii m i t a c i n ` %' s ee l i g e a p r o p i a d a m e n t e .
F u n c i n :l i e d i f f( < v > ,< t e n > ) C a l c u l al ad e r i v a d ad eL i ed el ae x p r e s i nt e n s o r i a lc o n< t e n > r e s p e c t oa lc a m p o< v >v e c t o r i a l .< t e n >d e b es e rc u a l q u i e ri n d e x a d a e x p r e s i nt e n s o r ;< v >d e b es e re ln o m b r e( s i n n d i c e s )d eu n c a m p ov e c t o r i a l .P o re j e m p l o :
F u n c i n :R e d i f f( < t e n > ) E v a l at o d a sl a sa p a r i c i o n e sd el ao r d e n` i d i f' e ne lt e n s o r i a l < t e n >e x p r e s i n .
F u n c i n :u n d i f f( e x p r ) D e v u e l v eu n ae x p r e s i ne q u i v a l e n t eae x p rp e r oc o nt o d a sl a sd e r i v a d a s d el o so b j e t o si n d e x a d o sr e e m p l a z a d a sp o rl af o r m an o m i n a ld e l` i d i f' f u n c i n .S u sa r g u m e n t o sd a r a ne s eo b j e t oi n d e x a d os ie l d i f e r e n c i a c i ns el l e v a r o nac a b o .E s t oe s t i lc u a n d oe s d e s e a d ap a r ar e e m p l a z a ru no b j e t oi n d e x a d od i f e r e n c i a d ac o na l g u n o s d e f i n i c i nd eu n af u n c i nq u er e s u l t ae n< e x p r >yl u e g ol l e v a rac a b ol a d i f e r e n c i a c i nd i c i e n d o` e v( e x p r ,i d i f ) .
F u n c i n :e v u n d i f f( e x p r ) E q u i v a l e n t eal ae j e c u c i nd e` u n d i f f' ,s e g u i d od e 'e v' y ` R e d i f f' . E lo b j e t i v od ee s t ao p e r a c i ne se v a l u a rd ef o r m as e n c i l l ae x p r e s i o n e sq u e n op u e d e ns e re v a l u a d o sd i r e c t a m e n t ee nf o r m ad ed e r i v a d o .P o re j e m p l o ,l a s i g u i e n t ep r o v o c au ne r r o r : ( %I 1 )l o a d( i t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/i t e n s o r . l i s p ( %I 2 )i c u r v a t u r e( [ i ,j ,k ] ,[ l ] ,m ) ; M a x i m ae n c o n t r u ne r r o rL i s p : E r r o re n$i c u r v a t u r e[ ou nd e s t i n a t a r i o ] : $I c u r v a t u r e[ ou nd e s t i n a t a r i o ]r e q u i e r em e n o sd et r e sa r g u m e n t o s . C o n t i n u aa u t o m t i c a m e n t e . P a r av o l v e rah a b i l i t a re ld e p u r a d o rL i s ps e t*d e b u g g e r h o o k*ac e r o . S i ne m b a r g o ,s is ei n t r o d u c e` i c u r v a t u r e' e nf o r m an o m i n a l ,p u e d es e r e v a l u a d ou s a n d o` e v u n d i f f' : ( %I 3 )I S h o w( ' i c u r v a t u r e( [ i ,j ,k ] ,[ l ] ,m ) )$ l ( %T 3 )i c u r v a t u r e I J K ,m ( %I 4 )I S h o w( e v u n d i f f( % ) )$ l l %1 %1l ( %T 4 )-i c h r 2-i c h r 2i c h r 2-i c h r 2i c h r 2 i k ,j m %1j i k ,m %1j ,m i k l l %1 %1l ++I c h r 2i c h r 2i c h r 2+i c h r 2i c h r 2 i j ,k m1 %k i j ,m %1k ,m i j N o t a :E nv e r s i o n e sa n t e r i o r e sd eM a x i m a ,l a sf o r m a sd e r i v a d a sd el a S m b o l o sd eC h r i s t o f f e lt a m p o c op u d i e r o ns e re v a l u a d o s .E s t oh as i d o f i j a d oa h o r a ,p a r a` e v u n d i f f' y an oe sn e c e s a r i op a r al a se x p r e s i o n e s a s :
240/633
28/08/13

( %I 5 )i m e t r i c( g ) ; ( %O 5 )h e c h o ( %I 6 )I S h o w( i c h r 2( [ i ,j ] ,[ k ] ,l ) )$ k3 % g( g-g+g ) j %3 ,i l i j , %3 %3l i ,j l ( %T 6 )2 k3 % g( g-g+g ) ,L j %3 ,I I J , %3 %3i ,j +2
F u n c i n :r u b o r( e x p r ,< t e n s o r _ 1 > ,< t e n s o r _ 2 > ,. . . ) I g u a l aac e r oe ne x p rt o d a sl a sa p a r i c i o n e sd el a< t e n s o r _ i >q u e n ot i e n e n n d i c e sd ed e r i v a d a s .
F u n c i n :f l u s h d( e x p r ,< t e n s o r _ 1 > ,< t e n s o r _ 2 > ,. . . ) I g u a l aac e r oe ne x p rt o d a sl a sa p a r i c i o n e sd el a< t e n s o r _ i >q u e t i e n e n n d i c e sd ed e r i v a d a s .
F u n c i n :f l u s h n d( e x p r ,< t e n s o r > ,< n > ) I g u a l aac e r oe ne x p rt o d a sl a sa p a r i c i o n e sd el ad i f e r e n c i a d a < t e n s o r >o b j e t oq u et e n g a n< n >om s n d i c e sd e r i v a d o sc o m ol a s i g u i e n t ee j e m p l o . ( %I 1 )l o a d( i t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/i t e n s o r . l i s p ( %I 2 )I S h o w( a( [ i ] ,[ J ,r ] ,k ,r )+a( [ i ][ j ,r ,s ] ,k ,r ,s ) )$ Jr j r s ( %T 2 )a+a i ,k r i ,k r s ( %I 3 )I S h o w( f l u s h n d( % ,u n a ,3 ) )$ Jr ( %T 3 )u n a i ,K R
F u n c i n :c o o r d( < t e n s o r _ 1 > ,< t e n s o r _ 2 > ,. . . ) D a< t e n s o r _ i >l a sp r o p i e d a d e sd ed i f e r e n c i a c i nc o o r d e n a d aq u ee l d e r i v a d od e lv e c t o rc o n t r a v a r i a n t ec u y on o m b r ee su n od el o s < t e n s o r _ i >p r o d u c eu nd e l t ad eK r o n e c k e r .P o re j e m p l o ,s i` c o o r d( x )' t i e n e h ah e c h oe n t o n c e s` i d i f( x( [ ] ,[ i ] ) ,j )' d a 'k d e l t a( [ i ][ j ] ) . C o o r d` ' e su n al i s t ad et o d o sl o so b j e t o si n d e x a d o sq u et i e n e ne s t ap r o p i e d a d .
F u n c i n :l l a m a d ar e m c o o r d( < t e n s o r _ 1 > ,< t e n s o r _ 2 > ,. . . ) F u n c i n :l l a m a d ar e m c o o r d( t o d o s ) E l i m i n al a sp r o p i e d a d e sd ed i f e r e n c i a c i nc o o r d e n a d ad e l` t e n s o r _ i' q u ef u ee s t a b l e c i d op o rl af u n c i n` c o o r d .` L l a m a d ar e m c o o r d( t o d o s )' e l i m i n ae s t ap r o p i e d a dd et o d o sl o so b j e t o si n d e x a d o s .
F u n c i n :m a k e b o x( e x p r ) M u e s t r a< e x p r >d el am i s m am a n e r ac o m o` s h o w' ,s i ne m b a r g o ,c u a l q u i e rt e n s o r d ' A l e m b e r tq u ea p a r e z c ae ne x p re s t a r i n d i c a d op o re l s m b o l o` [ ]' .P o re j e m p l o ,` [ ]p( [ m ] ,[ n ] )' r e p r e s e n t a ` G( [ ] ,[ i ,j ] )*p( [ m ] ,[ n ] ,i ,j ) .
F u n c i n :c o n m e t d e r i v( e x p r ,< t e n s o r > ) S i m p l i f i c ae x p r e s i o n e sq u ec o n t e n g a nd e r i v a d a so r d i n a r i a st a n t o f o r m a sc o v a r i a n t e syc o n t r a v a r i a n t e sd e lt e n s o rm t r i c o( l o s l i m i t a c i nd ec o r r i e n t e ) .P o re j e m p l o ,` c o n m e t d e r i v' p u e d er e l a c i o n a re l d e r i v a d ad e lt e n s o rm t r i c oc o n t r a v a r i a n t ec o ne lC h r i s t o f f e l s m b o l o s ,c o m os ev ee nl as i g u i e n t e :
F u n c i n :s i m p m e t d e r i v( e x p r ) F u n c i n :s i m p m e t d e r i v( e x p r[ ,< s t o p > ] ) S i m p l i f i c ae x p r e s i o n e sq u ec o n t i e n e np r o d u c t o sd el a sd e r i v a d a sd e
241/633
28/08/13

e lt e n s o rm t r i c o .E nc o n c r e t o ,` s i m p m e t d e r i v' r e c o n o c ed o s i d e n t i d a d e s :
F u n c i n :f l u s h 1 d e r i v( e x p r ,< t e n s o r > ) I g u a l aac e r oe ne x p r` ' ,t o d a sl a sa p a r i c i o n e sd et e n s o r ` 'q u et i e n e n e x a c t a m e n t eu n n d i c ed e r i v a d o .
F u n c i n :i m e t r i c( < g > ) V a r i a b l ed e ls i s t e m a :i m e t r i c E s p e c i f i c al am t r i c aa s i g n a n d ol av a r i a b l e` i m e t r i c :< g >' e n A d e m s ,l a sp r o p i e d a d e sd ec o n t r a c c i nd el a< g >m t r i c as ec o n f i g u r a n e j e c u t a n d ol a si n s t r u c c i o n e sd e f c o n` ( < g > ) ,d e f c o n( < g > ,< g > ,k d e l t a ) . E l` i m e t r i c "v a r i a b l e( n ou n i d ap o rd e f e c t o ) ,s eu n eal a m t r i c a ,a s i g n a d op o re lc o m a n d o` i m e t r i c( < g > ) .
F u n c i n :i d i m( < n > ) E s t a b l e c el a sd i m e n s i o n e sd el am t r i c a .T a m b i ni n i c i a l i z ae l p r o p i e d a d e sd ea n t i s i m e t r ad el o ss m b o l o sd eL e v i C i v i t ap a r al ap r o p u e s t a d i m e n s i n .
F u n c i n :i c h r 1( [ ,< j > ,< k > ] ) B r i n d ae ls m b o l od eC h r i s t o f f e ld ep r i m e r ae s p e c i ed a d op o rl ad e f i n i c i n ( G+g-g )/2 . i k ,jj k ,ii j ,k E v a l u a rl o ss m b o l o sd eC h r i s t o f f e ld eu n am t r i c ad e t e r m i n a d a ,l o s ` i m e t r i c "v a r i a b l es el ed e b ea s i g n a ru nn o m b r ea li g u a lq u ee ne le j e m p l od el a ` C h r 2' .
F u n c i n :i c h r 2( [ ,< j > ] ,[ < k > ] ) B r i n d ae ls m b o l od eC h r i s t o f f e ld es e g u n d ae s p e c i ed e f i n i d ap o re l r e l a c i n K a n s a s i c h r 2( [ i ,j ] ,[ k ] )=g( g+g-g )/2 E sd e c i r ,j sj ,ii j ,s
F u n c i n :i c u r v a t u r e( [ ,< j > ,< k > ] ,[ < h > ] ) P r o d u c ee lt e n s o rd ec u r v a t u r ad eR i e m a n ne nt r m i n o sd eC h r i s t o f f e l s m b o l o sd e ls e g u n d ot i p o( ` i c h r 2' ) .L as i g u i e n t en o t a c i ne s u t i l i z a d o : h h h %1h i c u r v a t u r e=-i c h r 2-i c h r 2i c h r 2+i c h r 2 i j k i k ,j1 %j i k i j ,k h %1 +I c h r 2i c h r 2 %1k i j
F u n c i n :c o v d i f f( e x p r ,< v _ 1 > ,< v _ 2 > ,. . . ) D e v u e l v el ad e r i v a d ac o v a r i a n t ed e< e x p r >c o nr e s p e c t oal a V a r i a b l e s< v _ i >e nt r m i n o sd el o ss m b o l o sd eC h r i s t o f f e ld es e g u n d a t i p o( ` i c h r 2' ) .C o ne lf i nd ee v a l u a re s t o s ,u n od e b eu t i l i z a r ` E v( e x p r ,i c h r 2 ) .
F u n c i n :l o r e n t z _ g a u g e( e x p r ) I m p o n el ac o n d i c i nd eL o r e n t zs u s t i t u y e n d op o r0t o d o sl o si n d e x a d o s o b j e t o se n< e x p r >q u et i e n e nu n n d i c ed e r i v a d oi d n t i c oau n n d i c ec o n t r a v a r i a n t e .
F u n c i n :i g e o d e s i c _ c o o r d s( e x p r ,N O M B R E ) C a u s a ss m b o l o sn od i f e r e n c i a d o sd eC h r i s t o f f e lyl a sp r i m e r a sd e r i v a d a s d e lt e n s o rm t r i c od ee x p r .E l< n o m b r e >e ne l F u n c i n` i g e o d e s i c _ c o o r d s' s er e f i e r eal a< n o m b r e >m t r i c a( s i a p a r e c ee ne x p r ) ,m i e n t r a sq u el o sc o e f i c i e n t e sd ec o n e x i nd e b e ns e r d e n o m i n a d oc o ne ln o m b r e` i c h r 1' y/o 'i c h r 2' .E le j e m p l os i g u i e n t e d e m u e s t r al av e r i f i c a c i nd el ai d e n t i d a dc c l i c as a t i s f e c h ap o r e lt e n s o rd ec u r v a t u r ad eR i e m a n nu s a n d ol af u n c i n` i g e o d e s i c _ c o o r d s' .
242/633
28/08/13
F u n c i n :i f r a m e s( ) D a d oq u ee ne s t av e r s i nd eM a x i m a ,l a si d e n t i d a d e sd ec o n t r a c c i nd e` I F R' y` i f r i' s ed e f i n es i e m p r e ,c o m oe se ls o p o r t ed e lb a s t i d o r( Ì F B" ) , e s t af u n c i nn oh a c en a d a .
V a r i a b l e :I F B E ls o p o r t ed e lb a s t i d o r .L ac o n t r i b u c i nd el am t r i c ad e ls i s t e m ad el a c o e f i c i e n t e sd ec o n e x i ns ee x p r e s au t i l i z a n d oe ls o p o r t ed ec h a s i s :
V a r i a b l e :i c c 1 C o e f i c i e n t e sd ec o n e x i nd el ap r i m e r ac l a s e .E n` i t e n s o r' ,d e f i n i d oc o m o
V a r i a b l e :i c c 2 C o e f i c i e n t e sd ec o n e x i nd el as e g u n d ac l a s e .E n` i t e n s o r' ,q u es ed e f i n e c o m o
V a r i a b l e :s i s t e m ad er e f e r e n c i ai f c 1 C o e f i c i e n t ed em a r c od el ap r i m e r ac l a s e( t a m b i nc o n o c i d oc o m od er o t a c i nd eR i c c i c o e f i c i e n t e s . )E s t et e n s o rr e p r e s e n t al ac o n t r i b u c i nd el a m t r i c ad e ls i s t e m aa lc o e f i c i e n t ed ec o n e x i nd ep r i m e r ae s p e c i e . S ed e f i n ec o m o :
V a r i a b l e :i f c 2 C o e f i c i e n t em a r c od el as e g u n d ac l a s e .E s t et e n s o rr e p r e s e n t al a c o n t r i b u c i nd el am t r i c ad e ls i s t e m ap a r ae lc o e f i c i e n t ed ec o n e x i nd e l as e g u n d ac l a s e .S ed e f i n ec o m ou n ap e r m u t a c i nd el ap e r c h a ( I F B` ' )c o nl o s n d i c e sa p r o p i a d o ss u b i ryb a j a rc o m o n e c e s a r i o :
V a r i a b l e :I F R E lc a m p od e ls i s t e m a .C o n t r a t o sc o ne lc a m p od er e f e r e n c i ai n v e r s o( ` i f r i' )p a r a f o r m a rl am t r i c ad e ls i s t e m a( ` i f g' ) .
V a r i a b l e :i f r i E lC a m p oi n v e r s o .E s p e c i f i c al ab a s ed e lm a r c o( e nb a s ed o b l e v e c t o r e s ) .J u n t oc o nl am t r i c am a r c o ,q u ec o n s t i t u y el ab a s ed et o d o sl o s c l c u l o sb a s a d o s e nt r a m a s .
V a r i a b l e :i f g L am t r i c ad e ls i s t e m a .E lv a l o rp r e d e t e r m i n a d oe s` k d e l t a' ,p e r os ep u e d ec a m b i a rc o n ` C o m p o n e n t e s' .
V a r i a b l e :I F G I E lm a r c om t r i c ai n v e r s a .C o n t r a t o sc o nl am t r i c ad et r a m a( ` i f g' ) a` k d e l t a' .
V a r i a b l eo p c i o n a l :i f r a m e _ b r a c k e t _ f o r m V a l o rp o rd e f e c t o :t r u e' E s p e c i f i c ac m os ec a l c u l al ap e r c h a( ` I F B " ) .
V a r i a b l e :i n m E lv e c t o rm e t r i c i d a d .C o n f o r m a lm e t r i c i d a ds ed e f i n eat r a v s l ad e r i v a d ac o v a r i a n t ed e lt e n s o rm t r i c o .N o r m a l m e n t ec e r o ,l a d e r i v a d ac o v a r i a n t ed e lt e n s o rm t r i c o ,e v a l u a r l a s i g u i e n d oa l` i n o n m e t _ f l a g' e s t a j u s t a d oa 't r u e' :
243/633
28/08/13
V a r i a b l e :i n m c 1 C o v a r i a n tp e r m u t a c i nd el a sc o m p o n e n t e sd e lv e c t o rm e t r i c i d a d . S ed e f i n ec o m o
V a r i a b l e :i n m c 2 P e r m u t a c i nc o n t r a v a r i a n t ed el a sc o m p o n e n t e sd e lv e c t o rm e t r i c i d a d . S eu t i l i z ae nl o sc o e f i c i e n t e sd ec o n e x i ns i` i n o n m e t _ f l a g' e s `t r u e ' . S ed e f i n ec o m o :
V a r i a b l e :i k t 1 C o v a r i a n t ed e lt e n s o rd ep e r m u t a c i nd et o r s i n( t a m b i nc o n o c i d oc o m o c o n t o r s i n ) .S ed e f i n ec o m o :
V a r i a b l e :i k t 2 P e r m u t a c i nc o n t r a v a r i a n t ed e lt e n s o rd et o r s i n( t a m b i nc o n o c i d oc o m o c o n t o r s i n ) .S ed e f i n ec o m o :
V a r i a b l e :I T R E lt e n s o rd et o r s i n .P a r au n am t r i c ac o nt o r s i n ,l ac o v a r i a n t e d i f e r e n c i a c i nd eu n af u n c i ne s c a l a rn os ec o n m u t a ,t a lc o m o d e m o s t r a d op o re ls i g u i e n t ee j e m p l o :
O p e r a d o r :~ E lo p e r a d o rd e lp r o d u c t oe x t e r i o rs er e p r e s e n t ap o re ls m b o l o` ~' .E s t ee su n o p e r a d o rb i n a r i o .S u sa r g u m e n t o sd e b e ns e re x p r e s i o n e sq u et e n g a n e s c a l a r e s ,t e n s o r e sc o v a r i a n t e sd er a n g ou n oot e n s o r e sc o v a r i a n t e sd e r a n g o` l' q u es eh a nd e c l a r a d oa n t i s i m t r i c oe nt o d o sc o v a r i a n t e n d i c e s . E lc o m p o r t a m i e n t od e lo p e r a d o rd e lp r o d u c t oe x t e r i o rs ec o n t r o l ap o re l B a n d e r a` i g e o w e d g e _ f l a g' ,c o m oe ne ls i g u i e n t ee j e m p l o : ( %I 1 )l o a d( i t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/i t e n s o r . l i s p ( %I 2 )I S h o w( a( [ i ] )~b( [ j ] ) )$ a b-b a i j i j ( %T 2 )2 ( %I 3 )d e s c r i p c i nd ed e c s y m( a ,2 , 0 ,[ c o n t r a( t o d o s ) ] ,[ ] ) ; ( %O 3 )d o n e ( %I 4 )I S h o w( a( [ i ,j ] )~b( [ k ] ) )$ a b+b a-a b i j k i j k i k j ( %T 4 )3 ( %I 5 )i g e o w e d g e _ f l a g :t r u e ; ( %O 5 )t r u e ( %I 6 )I S h o w( a( [ i ] )~b( [ j ] ) )$ ( %T 6 )a b-b a i j i j ( %I 7 )I S h o w( a( [ i ,j ] )~b( [ k ] ) )$ ( %T 7 )a b+b a-a b i j k i j k i k j
O p e r a d o r :| L ab a r r av e r t i c a ld e` |' d e n o t al a "c o n t r a c c i nc o nu nv e c t o r" b i n a r i o o p e r a c i n .C u a n d ou nt e n s o rc o v a r i a n t et o t a l m e n t ea n t i s i m t r i c oe s c o n t r a t au nv e c t o rc o n t r a v a r i a n t e ,e lr e s u l t a d oe se lm i s m o s i ni m p o r t a rq u n d i c es eu t i l i z p a r al ac o n t r a c c i n .P o rl ot a n t o ,e s p o s i b l ed e f i n i rl ao p e r a c i nd ec o n t r a c c i ne nu n n d i c es i n m a n e r a . E ne lp a q u e t ei t e n s o r` ' ,l ac o n t r a c c i nc o nu nv e c t o re ss i e m p r e l l e v a d oac a b oc o nr e s p e c t oal ap r i m e r ae ne l n d i c ed eo r d e n a c i nl i t e r a l o r d e n .E s t oa s e g u r au n am e j o rs i m p l i f i c a c i nd ee x p r e s i o n e sq u ei m p l i c a e l` |' o p e r a d o r .P o re j e m p l o : ( %I 1 )l o a d( i t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/i t e n s o r . l i s p ( %I 2 )d e s c r i p c i nd ed e c s y m( a ,2 , 0 ,[ c o n t r a( t o d o s ) ] ,[ ] ) ; ( %O 2 )d o n e
244/633
28/08/13

( %I 3 )I S h o w( a( [ i ,j ] ,[ ] )|v )$ %1 ( %T 3 )V A %1j ( %I 4 )I S h o w( a( [ j ,i ] ,[ ] )|v )$ %1 ( %T 4 )-v a %1j T e n g ae nc u e n t aq u ee se s e n c i a lq u el o st e n s o r e su t i l i z a d o sc o nl a` |' o p e r a d o rs ed e c l a r et o t a l m e n t ea n t i s i m t r i c oe ns uc o v a r i a n t e n d i c e s .D el oc o n t r a r i o ,l o sr e s u l t a d o ss e r ni n c o r r e c t o s .
F u n c i n :e x t d i f f( e x p r , ) C a l c u l al ad e r i v a d ae x t e r i o rd e< e x p r >c o nr e s p e c t oal a n d i c e .L ad e r i v a d ae x t e r i o rs ed e f i n ef o r m a l m e n t ec o m ol ac u a p r o d u c t od e lo p e r a d o rd el ad e r i v a d ap a r c i a lyu nd i f e r e n c i a l f o r m u l a r i o .C o m ot a l ,e s t ao p e r a c i nt a m b i ns ec o n t r o l am e d i a n t ee la j u s t ed e ` I g e o w e d g e _ f l a g' .P o re j e m p l o : ( %I 1 )l o a d( i t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/i t e n s o r . l i s p ( %I 2 )I S h o w( e x t d i f f( v( [ i ] ) ,j ) )$ v-v j ,i i ,j ( %T 2 )2 ( %I 3 )d e s c r i p c i nd ed e c s y m( a ,2 , 0 ,[ c o n t r a( t o d o s ) ] ,[ ] ) ; ( %O 3 )d o n e ( %I 4 )I S h o w( e x t d i f f( a( [ i ,j ] ) ,k ) )$ u n-a+a j k ,i i k ,j i j ,k ( %T 4 )3 ( %I 5 )i g e o w e d g e _ f l a g :t r u e ; ( %O 5 )t r u e ( %I 6 )I S h o w( e x t d i f f( v( [ i ] ) ,j ) )$ ( %T 6 )v-v j ,i i ,j ( %I 7 )I S h o w( e x t d i f f( a( [ i ,j ] ) ,k ) )$ ( %T 7 )-( a-a+a ) k j ,i k i ,j j i ,k
F u n c i n :H o d g e( e x p r ) C a l c u l a re ld u a ld eH o d g e< e x p r > .P o re j e m p l o :
V a r i a b l eo p c i o n a l :i g e o w e d g e _ f l a g V a l o rp o rd e f e c t o :f a l s e' C o n t r o l ae lc o m p o r t a m i e n t od e lp r o d u c t oe x t e r i o rye le x t e r i o r d e r i v a d o .C u a n d os ee s t a b l e c ee n` f a l s e' ( p o rd e f e c t o ) ,l an o c i nd e f o r m a sd i f e r e n c i a l e ss ec o r r e s p o n d ec o ne ld eu n af o r m at o t a l m e n t e a n t i s i m t r i c ac a m p ot e n s o r i a lc o v a r i a n t e .C u a n d os ee s t a b l e c ee n` t r u e' , f o r m a sd i f e r e n c i a l e ss ec o r r e s p o n d e nc o nl an o c i nd eq u ee lv o l u m e n e l e m e n t o .
F u n c i n :t e n t e x( e x p r ) P a r au s a re l` t e n t e x "f u n c i n ,p r i m e r od e b ec a r g a rt e n t e x` ' ,c o m oe n e ls i g u i e n t ee j e m p l o : ( %I 1 )l o a d( i t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/i t e n s o r . l i s p ( %I 2 )l o a d( t e n t e x ) ; ( %O 2 )/s h a r e/t e n s o r/t e n t e x . l i s p ( %I 3 )v a r i a b l ei d u m m y x :m ; ( %O 3 )m ( %I 4 )I S h o w( i c u r v a t u r e( [ j ,k ,l ] ,[ i ] ) )$ m 1m 1ii i ( %T 4 )i c h r 2i c h r 2-i c h r 2i c h r 2-i c h r 2 j km 1m 1l j lk j l ,k y o +I c h r 2 j k ,l ( %I 5 )t e n t e x( % )$ $$\G a m m a _{ j\ ,k }^{ m _ 1 }\ ,\g a m m a _{ l\ ,m _ 1 }^{ i }-\g a m m a _{ j\ ,l }^{ m _ 1 }\ , \G a m m a _{ k\ ,m _ 1 }^{ i }-\g a m m a _{ j\ ,l ,k }^{ i }+\g a m m a _{ j\ ,k ,l }^{ i }$$ O b s e r v ee lu s od el aa s i g n a c i nv a r i a b l ei d u m m y x` ' ,p a r ae v i t a rl aa p a r i c i n d e ls i g n od ep o r c e n t a j ee nl ae x p r e s i nT e X ,q u ep u e d ec o n d u c i ra e r r o r e sd ec o m p i l a c i n . N B :E s t av e r s i nd el af u n c i n` t e n t e x' e sa l g oe x p e r i m e n t a l .
245/633
28/08/13
F u n c i n :i c _ c o n v e r t( < e q n > ) C o n v i e r t ee l` i t e n s o r' < e q n >e c u a c i np a r au n `c t e n s o r 'a s i g n a c i n d e c l a r a c i n .S u m a si m p l c i t a ss o b r e n d i c e sm u d o ss eh a c e ne x p l c i t a s m i e n t r a sq u el o so b j e t o si n d e x a d o ss et r a n s f o r m a ne na r r e g l o s( l am a t r i z s u b n d i c e se s t ne ne lo r d e nd el o sc o v a r i a n t e ss e g u i d o sd ec o n t r a v a r i a n t e n d i c e sd el o so b j e t o si n d e x a d o s ) .L ad e r i v a d ad eu n ai n d e x a d a o b j e t os e r r e e m p l a z a d op o rl af o r m an o m i n a ld ed i f f` ' s et o m ac o n c o nr e s p e c t oa` c t _ c o o r d s' s u b n d i c ec o r r e s p o n d i e n t ea l n d i c ed e r i v a d o .L a S m b o l o sd eC h r i s t o f f e li c h r 1` ' y ì c h r 2 's e r nt r a d u c i d o sa ` L c s' y `m c s ' ,r e s p e c t i v a m e n t e ,ys i` m e t r i c c o n v e r t' e s `t r u e ' e n t o n c e st o d a sl a sa p a r i c i o n e sd el am t r i c ac o nd o sc o v a r i a n t e ( C o n t r a v a r i a n t e )l o s n d i c e ss ep u e d ec a m b i a re ln o m b r ea' l g '( ' g ' ) .E n A d e m s ,' h a c e r 'l o o p ss e r ni n t r o d u c i d o ss u m a n d ot o d og r a t i s n d i c e sp a r aq u el ai n s t r u c c i nd ea s i g n a c i np u e d es e rt r a n s f o r m a d o e v a l u a d oc o ns l oh a c e r` e v' .L o ss i g u i e n t e se j e m p l o sd e m u e s t r a n l a sc a r a c t e r s t i c a sd ee s t af u n c i n . ( %I 1 )l o a d( i t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/i t e n s o r . l i s p ( %I 2 )l ae c u a c i n :I S h o w( t( [ i ,j ] ,[ k ] )=f( [ ] ,[ ] )*g( [ l ,m ] ,[ ] )*a( [ ] ,[ m ],j ) *B( [ i ] ,[ l ,k ] ) )$ k m l k ( %T 2 )t=f a b g i j ,j i l m ( %I 3 )i c _ c o n v e r t( e c u a c i n ) ; ( %O 3 )p a r aiat r a v sd ed i mh a c e r( p a r ajt r a v sd i mh a c e r( p a r akt r a v sd i mh a c e r t :fs u m a( s u m( d i f f( a ,c t _ c o o r d s )b i ,j ,k m j i ,l ,k g ,l ,1 ,d i m ) ,m ,1 ,d i m ) ) ) l ,m ( %I 4 )i m e t r i c( g ) ; ( %O 4 )h e c h o ( %I 5 )m e t r i c c o n v e r t :t r u e ; ( %O 5 )t r u e ( %I 6 )i c _ c o n v e r t( e c u a c i n ) ; ( %O 6 )p a r aiat r a v sd ed i mh a c e r( p a r ajt r a v sd i mh a c e r( p a r akt r a v sd i mh a c e r t :fs u m a( s u m( d i f f( a ,c t _ c o o r d s )b i ,j ,k m j i ,l ,k l g ,l ,1 ,d i m ) ,m ,1 ,d i m ) ) ) l ,m
26 ctensor
I n t r o d u c c i nac t e n s o r F u n c i o n e syv a r i a b l e sp a r ac t e n s o r
26.1 Introduccin a ctensor

` C t e n s o r' e su np a q u e t ed em a n i p u l a rc o m p o n e n t e sd et e n s o r e s .P a r au t i l i z a re l ' P a q u e t e ,l o a d( c t e n s o r ) '` c t e n s o r .P a r ac o m e n z a ru np r o c e s oi n t e r a c t i v o s e s i nc o nc t e n s o r` ' ,e s c r i b a `c s e t u p( ) ' .S el ep e d i r p r i m e r o e s p e c i f i c a rl ad i m e n s i nd el av a r i e d a d .S il ad i m e n s i ne s2 ,3o4 ac o n t i n u a c i n ,l al i s t ad ev a l o r e sp o rd e f e c t op a r a` [ x ,y ]' , '[ x ,y ,z ]' oc o o r d e n a d a s ` [ X ,y ,z ,t ]' ,r e s p e c t i v a m e n t e .E s t o sn o m b r e ss ep u e d e nc a m b i a rm e d i a n t el aa s i g n a c i nd eu n n u e v al i s t ad el a sc o o r d e n a d a sd el o s` c t _ c o o r d sv a r i a b l e s "( d e s c r i t om sa d e l a n t e ) ys ep r e g u n t aa lu s u a r i oa c e r c ad ee s t o .S ed e b et e n e rc u i d a d op a r ae v i t a rl a c o o r d i n a rl o sn o m b r e se nc o n f l i c t oc o no t r a sd e f i n i c i o n e sd eo b j e t o s . Ac o n t i n u a c i n ,e lu s u a r i oi n t r o d u c el am t r i c a ,y as e ad i r e c t a m e n t eod e s d eu na r c h i v op o r e s p e c i f i c a n d os up o s i c i no r d i n a l .L am t r i c as ea l m a c e n ae nl am a t r i z ' L g ' .P o r l t i m o ,l am t r i c ai n v e r s as eo b t i e n eys ea l m a c e n ae nl am a t r i z ` G' .U n ot i e n el ao p c i nd el l e v a rac a b ot o d o sl o sc l c u l o se nu np o d e r s e r i e . U np r o t o c o l od em u e s t r e os ei n i c i aac o n t i n u a c i nd el ae s t t i c a ,e s f r i c a m t r i c a s( c o o r d e n a d a se s t n d a r )s i m t r i c a sq u es ea p l i c a r nal a p r o b l e m ad ed e r i v a rl a se c u a c i o n e sd ev a c od eE i n s t e i n( q u ec o n d u c eal a S o l u c i nd eS c h w a r z s c h i l d )c o m oe j e m p l o .M u c h a sd el a sf u n c i o n e se n ` C t e n s o r' s em o s t r a r d u r a n t el am t r i c ae s t n d a rc o m oe j e m p l o s . ( %I 1 )l o a d( c t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/c t e n s o r . m a c ( %I 2 )c s e t u p( ) ; I n t r o d u z c al ad i m e n s i nd e ls i s t e m ad ec o o r d e n a d a s : 4 ; D e s e ac a m b i a rl o sn o m b r e sd el a sc o o r d e n a d a s ? n ; Q u i e r e s 1 .I n t r o d u z c au n an u e v am t r i c a ? 2 .E s c r i b au n am t r i c ad eu na r c h i v o ?
246/633
28/08/13

3 .A p r o x i m a d od eu n am t r i c ac o nu n as e r i ed eT a y l o r ? 1 ; E sl am a t r i z1 .2D i a g o n a l .S i m t r i c a3 .A n t i s i m t r i c a4 .G e n e r a l R e s p u e s t a1 ,2 ,3o4 1 ; F i l a1C o l u m n a1 : u n a ; F i l a2C o l u m n a2 : x^2 ; F i l a3C o l u m n a3 : x^2*s i n( y )^2 ; F i l a4C o l u m n a4 : D ; M a t r i xe n t r . E n t r el a sd e p e n d e n c i a sf u n c i o n a l e sc o ne lD E P E N D Ef u n c i no' N 's in o d e p e n d e( [ a ,d ] ,x ) ; D e s e av e rl am t r i c a ? Y ; [ A000 ] [ ] [ 2 ] [ 0x00 ] [ ] [ 22 ] [ 00xs e n( y )0 ] [ ] [ 000-d ] ( %O 2 )d o n e ( %I 3 )c h r i s t o f( m c s ) ; u n x ( %T 3 )m c s=1 ,1 ,12u n 1 ( %T 4 )m c s=1 ,2 ,2x 1 ( %T 5 )m c s=1 ,3 ,3x d x ( %T 6 )m c s=1 ,4 ,42d x ( %T 7 )m c s=2 ,2 ,1u n c o s( y ) ( %T 8 )m c s=2 ,3 ,3s e n( y ) 2 xs i n( y ) ( %T 9 )m c s=3 ,3 ,1u n ( T 1 0 % )m c s=-c o s( y )s i n( y ) 3 ,3 ,2 d x ( T 1 1 % )m c s=4 ,4 ,12u n ( %O 1 1 )d o n e
26.2 Funciones y variables para ctensor

F u n c i n :c s e t u p( ) E sl af u n c i nd e l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o rq u e i n i c i a l i z ae lp a q u e t eyp e r m i t ea lu s u a r i oi n t r o d u c i ru n am t r i c a i n t e r a c t i v a .C o n s u l t e` c t e n s o r' p a r am sd e t a l l e s .
F u n c i n :c m e t r i c( < D I S > ) F u n c i n :c m e t r i c( ) E sl af u n c i nd e l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o rq u e c a l c u l al am t r i c ai n v e r s ayp r e p a r ae lp a q u e t ep a r as up o s t e r i o r c l c u l o s . S i` c f r a m e _ f l a g' e s 'f a l s e' ,l af u n c i nc a l c u l al ai n v e r s a ` u gm t r i c a " d e l( d e f i n i d op o re lu s u a r i o )d el am a t r i z' l g ' .L am t r i c a d e t e r m i n a n t et a m b i ns ec a l c u l ays ea l m a c e n ae nl a` g d e t' v a r i a b l e . A d e m s ,e lp a q u e t ed e t e r m i n as il am t r i c ae sd i a g o n a ly e s t a b l e c ee lv a l o rd e` d i a g m e t r i c' e nc o n s e c u e n c i a .S ie lo p c i o n a l < D I S >a r g u m e n t oe s t p r e s e n t eyn oe si g u a la` f a l s e' ,e lu s u a r i oe s
247/633
28/08/13

s el ep i d eq u ec o n s u l t el ai n v e r s am t r i c a . S i` c f r a m e _ f l a g' e s `t r u e ' ,l af u n c i ne s p e r aq u el o sv a l o r e sd e ` V i e' ( l am a t r i zd er e f e r e n c i ai n v e r s o )y `l f g '( l am t r i c a )s o n d e f i n i d o .D ee s t o s ,e lm a r c om a t r i z` f r "ye ls i s t e m ad er e f e r e n c i ai n v e r s o ` U F G m t r i c as ec a l c u l a .
F u n c i n :c t _ c o o r d s y s( < c o o r d i n a t e _ s y s t e m > ,< e x t r a _ a r g > ) F u n c i n :c t _ c o o r d s y s( < c o o r d i n a t e _ s y s t e m > ) E s t a b l e c eu ns i s t e m ad ec o o r d e n a d a sp r e d e f i n i d oyu n am t r i c a .E la r g u m e n t o < c o o r d i n a t e _ s y s t e m >p u e d es e ru n od el o ss i g u i e n t e ss m b o l o s :
F u n c i n :i n i t _ c t e n s o r( ) I n i c i a l i z ae lp a q u e t e` c t e n s o r . E l` i n i t _ c t e n s o r "f u n c i nr e i n i c i a l i z ae l` c t e n s o r' p a q u e t e . E l i m i n at o d o sl o sa r r a y sym a t r i c e su t i l i z a d o sp o rc t e n s o r` ' ,s er e p o n et o d o s b a n d e r a s ,r e s t a b l e c e` d b i l' a4 ,yr e s t a b l e c el am t r i c aal a L o r e n t z .
F u n c i n :C h r i s t o f( < D I S > ) E sl af u n c i nd e l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o r .L o c a l c u l al o ss m b o l o sd eC h r i s t o f f e ld ea m b o st i p o s .E la r g u m e n t o < D I S >d e t e r m i n aq u r e s u l t a d o ss ev a nam o s t r a rd ei n m e d i a t o . L o ss m b o l o sd eC h r i s t o f f e ld el o sp r i m e r oys e g u n d ot i p os ea l m a c e n a n e nl o sa r r a y s` l c s[ i ,j ,k ]' y `m c s[ i ,j ,k ] ' ,r e s p e c t i v a m e n t e ,y s ed e f i n e ns i m t r i c o se nl o sd o sp r i m e r o s n d i c e s .S ie la r g u m e n t o a` c h r i s t o f' e s 'l c s' o `m c s 'e n t o n c e sl o sv a l o r e sn on u l o sd e ` L c s[ i ,j ,k ]' o `m c s[ i ,j ,k ] ' ,r e s p e c t i v a m e n t e ,s em o s t r a r .S i e la r g u m e n t oe s' t o d o s 'e n t o n c e sl o sv a l o r e sn on u l o sd e ` L c s[ i ,j ,k ]' y `m c s[ i ,j ,k ] 'e nl ap a n t a l l a .S ie la r g u m e n t o e s` f a l s o' ,e n t o n c e sn os ep r o d u c i r l av i s u a l i z a c i nd el o se l e m e n t o s .L a e l e m e n t o sd el am a t r i z` m c s[ i ,j ,k ]' s ed e f i n e nd eu n am a n e r at a lq u ee l n d i c ef i n a le sc o n t r a v a r i a n t e .
F u n c i n :r i c c i( < D I S > ) E sl af u n c i nd e l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o r .` R i c c i' c a l c u l al a sc o m p o n e n t e sc o v a r i a n t e s( s i m t r i c a s )` r i c[ i ,j ]' d el a T e n s o rd eR i c c i .S ie l< D I S >a r g u m e n t oe s` t r u e' ,e n t o n c e sl an o c e r o s em u e s t r a nl o sc o m p o n e n t e s .
F u n c i n :u r i c c i( < D I S > ) E s t af u n c i nc a l c u l ae np r i m e rl u g a rl o sc o m p o n e n t e s` r i c[ i ,j ]' c o v a r i a n t e s d e lt e n s o rd eR i c c i .Ac o n t i n u a c i n ,e lt e n s o rd eR i c c im i x t as ec a l c u l a m e d i a n t ee lt e n s o rm t r i c oc o n t r a v a r i a n t e .S ie lv a l o rd el a < D I S >a r g u m e n t oe s` t r u e' ,e n t o n c e se s t o sc o m p o n e n t e sm e z c l a d o s , ` r i c o[ i ,j ] ' ( E l n d i c ed e' i 'e sc o v a r i a n t eye l n d i c e` j' c o n t r a v a r i a n t e ) s ev i s u a l i z a r d i r e c t a m e n t e .D el oc o n t r a r i o ,' r i c c i( f a l s e ) 's i m p l e m e n t es e c a l c u l a r l a se n t r a d a sd e l` r i c oa r r a y[ i ,j ]' s i nm o s t r a r l o sr e s u l t a d o s .
F u n c i n :s c u r v a t u r e( ) D e v u e l v el ac u r v a t u r ae s c a l a r( o b t e n i d ap o rc o n t r a c c i nd e lR i c c i t e n s o r )d el av a r i e d a dd eR i e m a n nc o nl am t r i c ad a d a .
F u n c i n :e i n s t e i n( < D I S > ) E sl af u n c i nd e l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o r . ` E i n s t e i n' c a l c u l ae lt e n s o rd eE i n s t e i nm i x t ad e s p u sd el a C h r i s t o f f e ls m b o l o syt e n s o rd eR i c c is eh a no b t e n i d o( c o nl a f u n c i o n e s` c h r i s t o f' y 'r i c c i' ) .S ie la r g u m e n t oe s< D I S > ` T r u e' ,e n t o n c e sl o sv a l o r e sn on u l o sd e lt e n s o rd eE i n s t e i n ` E i n[ i ,j ]' s em o s t r a r e n `j 'e se l n d i c ec o n t r a v a r i a n t e . E l` r a t e i n s t e i n "v a r i a b l ec a u s a r l as i m p l i f i c a c i nr a c i o n a l e ne s t o sc o m p o n e n t e s .S i` r a t f a c' e s `t r u e 'e n t o n c e sl a sc o m p o n e n t e s t a m b i nt e n e r s ee nc u e n t a .
F u n c i n :l e i n s t e i n( < D I S > ) T e n s o rc o v a r i a n t ed eE i n s t e i n .T i e n d a s` l e i n s t e i nd el o sv a l o r e sd el a t e n s o rc o v a r i a n t ed eE i n s t e i ne ne la r r e g l ol e i n` ' .E lc o v a r i a n t e
248/633
28/08/13

E i n s t e i n t e n s o rs ec a l c u l aap a r t i rd e lt e n s o rd eE i n s t e i ne i n` ' m u l t i p l i c n d o l op o re lt e n s o rm t r i c o .S ie la r g u m e n t oe s< D I S > ` T r u e' ,e n t o n c e sl o sv a l o r e sn on u l o sd e lt e n s o rc o v a r i a n t ed eE i n s t e i n s em u e s t r a n .
F u n c i n :r i e m a n n( < D I S > ) E sl af u n c i nd e l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o r .` R i e m a n n c a l c u l ae lt e n s o rd ec u r v a t u r ad eR i e m a n nd el am t r i c ayd a d a l o ss m b o l o sd eC h r i s t o f f e lc o r r e s p o n d i e n t e s .E ls i g u i e n t e n d i c e c o n v e n c i o n e s : l_ l_ l_ l_ l_ m_ m R[ i ,j ,k ,l ]=R=|-|+||-|| I J Ki j ,ki k ,jm jm ki ji k E s t an o t a c i ne sc o n s i s t e n t ec o nl an o t a c i nu t i l i z a d ap o re l` i t e n s o r' p a q u e t eys uf u n c i n` i c u r v a t u r e' .S ie la r g u m e n t oo p c i o n a l < D I S >e s` t r u e' ,l o sc o m p o n e n t e ss i n g u l a r e sn on u l o s `r i e m[ i ,j ,k ,l ] ' s em o s t r a r .A li g u a lq u ec o ne lt e n s o rd eE i n s t e i n ,v a r i o si n t e r r u p t o r e s a j u s t a d op o re lc o n t r o ld eu s u a r i oal as i m p l i f i c a c i nd el o sc o m p o n e n t e sd e e lt e n s o rd eR i e m a n n .S i` r a t r i e m a n n' e s `t r u e ' ,e n t o n c e sr a c i o n a l s i m p l i f i c a c i ns eh a r .S i` r a t f a c' e s `t r u e ' ,e n t o n c e sc a d au n od e l o sc o m p o n e n t e st a m b i ns et e n d r ne nc u e n t a . S ie l` c f r a m e _ f l a gv a r i a b l e "e s' f a l s e ' ,e lt e n s o rd eR i e m a n ne s c a l c u l a d od i r e c t a m e n t ed el o ss m b o l o sd eC h r i s t o f f e l .S i` c f r a m e _ f l a g' e s ` T r u e' ,e lt e n s o rc o v a r i a n t ed eR i e m a n ns ec a l c u l ap r i m e r od e l c o e f i c i e n t e sd e lc a m p o .
F u n c i n :l r i e m a n n( < D I S > ) T e n s o rc o v a r i a n t ed eR i e m a n n( l r i e m` [ ]' ) . C a l c u l ae lt e n s o rc o v a r i a n t ed eR i e m a n nc o m ol am a t r i z` l r i e m' .S ie l e s' t r u e ' ,s em u e s t r a n< D I S >a r g u m e n t ov a l o r e s n i c o sn on u l o s . S ie l` c f r a m e _ f l a gv a r i a b l e "e s` t r u e' ,l ac o v a r i a n t ed eR i e m a n n t e n s o rs ec a l c u l ad i r e c t a m e n t eap a r t i rd el o sc o e f i c i e n t e sd e lc a m p o . D el oc o n t r a r i o ,l a( 3 , 1 )t e n s o rd eR i e m a n ns ec a l c u l ap r i m e r o . P a r ao b t e n e ri n f o r m a c i ns o b r eo r d e n a c i nd e n d i c e ,c o n s u l t e` R i e m a n n .
F u n c i n :u r i e m a n n( < D I S > ) C a l c u l al a sc o m p o n e n t e sc o n t r a v a r i a n t e sd el ac u r v a t u r ad eR i e m a n n t e n s o rc o m oe l e m e n t o sd el am a t r i z` u r i e m[ i ,j ,k ,l ] .E s t o ss em u e s t r a ns i < D I S >e s` t r u e' .
F u n c i n :r i n v a r i a n t( ) F o r m ae lK r e t c h m a n ni n v a r i a n t e( ` k i n v a r i a n t' )o b t e n i d op o r c o n t r a c c i nd el o st e n s o r e s l r i e m[ i ,j ,k ,l ]*u r i e m[ i ,j ,k ,l ] . E s t eo b j e t on os es i m p l i f i c ad ef o r m aa u t o m t i c a ,y aq u ep u e d es e rm u y g r a n d e .
F u n c i n :w e y l( < D I S > ) C a l c u l ae lt e n s o rc o n f o r m eW e y l .S ie la r g u m e n t oe s< D I S > ` T r u e' , `w e y l[ i ,j ,k ,l ]al o sc o m p o n e n t e sd i s t i n t o sd ec e r o 's em o s t r a r n p a r ae lu s u a r i o .D el oc o n t r a r i o ,s l os ec o m p u t a r ne s t o sc o m p o n e n t e s ya l m a c e n a d o .S ie li n t e r r u p t o r` r a t w e y l' e s t a j u s t a d oa 't r u e' ,e n t o n c e se l L o sc o m p o n e n t e ss es i m p l i f i c a nr a c i o n a l m e n t e ,s i` r a t f a c' e s `t r u e ' ac o n t i n u a c i n ,l o sr e s u l t a d o ss et e n d r ne nc u e n t at a m b i n .
F u n c i n :c t a y l o r( ) L af u n c i n` c t a y l o r' t r u n c as ua r g u m e n t oc o n v i r t i n d o l oe n u n as e r i ed eT a y l o ru s a n d o' t a y l o r ' ,yl u e g ol l a m a r` r a t d i s r e p' .E s t e t i e n ee le f e c t od ee l i m i n a rt r m i n o sd eo r d e ns u p e r i o re ne l e x p a n s i nv a r i a b l e` c t a y v a r' .E lo r d e nd el o st r m i n o sq u ed e b e ns e r e l i m i n a d o ss ed e f i n e` c t a y p o v' ,e lp u n t oe nt o r n oa lc u a ll as e r i e l ae x p a n s i ns el l e v aac a b oe s t e s p e c i f i c a d oe n' c t a y p t ' . C o m ou ne j e m p l o ,c o n s i d e r a ru n am t r i c as i m p l eq u ee su n ap e r t u r b a c i nd e l am t r i c ad eM i n k o w s k i .S i nm sr e s t r i c c i o n e s ,i n c l u s ou n ad i a g o n a l m t r i c ap r o d u c ee x p r e s i o n e sp a r ae lt e n s o rd eE i n s t e i nq u ee s t nl e j o s d e m a s i a d oc o m p l e j o :
249/633
28/08/13

F u n c i n :f r a m e _ b r a c k e t( < f r > ,< f r i > ,< d i a g f r a m e > ) E ls o p o r t ed e lb a s t i d o r( ' f b[ ] ' ) . C a l c u l al ap e r c h as e g nl as i g u i e n t ed e f i n i c i n : c c c d e I F B=( i f r i-i f r i )I F RI F R a bd ,e e ,a p l i q u e
F u n c i n :n p t e t r a d( ) C a l c u l au nN e w m a n P e n r o s ec u a t e r n an u l a( ` n p' )ys ue l e v a d o n d i c ed e c o n t r a p a r t e( ` N P I ) .C o n s u l t e` P e t r o v' p a r au ne j e m p l o . L at t r a d an u l as ec o n s t r u y eb a j oe ls u p u e s t od eq u eu n t e t r a d i m e n s i o n a lo r t o n o r m a lm a r c om t r i c ac o ns i g n a t u r am t r i c a ( ,+ ,+ ,+ )S ee s t u t i l i z a n d o .L o sc o m p o n e n t e sd el at t r a d an u l as o n r e l a c i o n a d ac o nl am a t r i zd er e f e r e n c i ai n v e r s od el as i g u i e n t em a n e r a :
F u n c i n :p s i( < D I S > ) C a l c u l al o sc i n c o` p s ic o e f i c i e n t e sd eN e w m a n P e n r o s e[ 0 ]' . . . 'p s i[ 4 ] . S i' d i s 'e s t a j u s t a d oa' t r u e ' ,s em u e s t r a nl o sc o e f i c i e n t e s .V e r ' P e t r o v 'p a r au ne j e m p l o . E s t o sc o e f i c i e n t e ss ec a l c u l a nap a r t i rd e lt e n s o rd eW e y l e nu n c o o r d e n a d a sd el ab a s e .S is eu t i l i z au n ab a s e ,e lt e n s o rd eW e y l e s p r i m e r oc o n v e r t i d aau n ab a s ed ec o o r d e n a d a s ,q u ep u e d es e ru n p r o c e d i m i e n t oc o m p u t a c i o n a l m e n t ec a r o .P o re s t ar a z n ,e na l g u n o s c a s o sp u e d es e rm sv e n t a j o s ou s a ru n ab a s ed ec o o r d e n a d a se ne l p r i m e rl u g a ra n t e sd eq u ee lt e n s o rd eW e y ls ec a l c u l a .T e n g ae nc u e n t as i ne m b a r g o ,q u e l ac o n s t r u c c i nd eu nN e w m a n P e n r o s ec u a t e r n an u l ar e q u i e r eu n ab a s ed em a r c o . P o rl ot a n t o ,u n as e c u e n c i ad ec l c u l os i g n i f i c a t i v ap u e d ec o m e n z a rc o nu n b a s ed em a r c o ,q u es eu t i l i z aac o n t i n u a c i np a r ac a l c u l a r` l g' ( c o m p u t a r i z a d a a u t o m t i c a m e n t ep o r` c m e t r i c' yl u e g o 'g' .E ne s t ep u n t o ,s ep u e d e v o l v e rau n ab a s ed ec o o r d e n a d a se s t a b l e c i e n d o` c f r a m e _ f l a g' e nf a l s e a n t e sd ec o m e n z a rac a l c u l a rl o ss m b o l o sd eC h r i s t o f f e l .E lc a m b i oau n b a s ed e lm a r c oe nu n ae t a p ap o s t e r i o rp o d r ap r o d u c i rr e s u l t a d o si n c o n s i s t e n t e s ,c o m o u s t e dp u e d et e r m i n a rc o nu n am e z c l ad el o st e n s o r e s ,a l g u n o sc o m p u t a r i z a d ae nu n b a s ed em a r c o ,a l g u n o se nu n ab a s ed ec o o r d e n a d a s ,s i nm e d i o sp a r a d i s t i n g u i re n t r el o sd o s .
F u n c i n :P e t r o v( ) C a l c u l al ac l a s i f i c a c i nd eP e t r o vd el am t r i c ac a r a c t e r i z a d ap o r ` P s i[ 0 ]' . . . 'p s i[ 4 ] . P o re j e m p l o ,l as i g u i e n t em u e s t r ac m oo b t e n e re l C l a s i f i c a c i nd eP e t r o vp a r al am t r i c ad eK e r r : ( %I 1 )l o a d( c t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/c t e n s o r . m a c ( %I 2 )( c f r a m e _ f l a g :t r u e ,m c d :s p m o d ,c t r g s i m p :t r u e ,r a t f a c :t r u e ) ; ( %O 2 )t r u e ( %I 3 )c t _ c o o r d s y s( e x t e r i o r s c h w a r z s c h i l d ,t o d o s ) ; ( %O 3 )d o n e ( %I 4 )u g :i n v e r t i r( l g )$ ( %I 5 )w e y l( f a l s e ) ; ( %O 5 )h e c h o ( %I 6 )n p t e t r a d( t r u e ) ; ( %T 6 )n p= [ S q r t( r-2m )s q r t( r ) ] [ -00 ] [ ( 2 )s q r t( r )s q r ts q r t( 2 )s q r t( r-2m ) ] [ ] [ S q r t( r-2m )s q r t( r ) ] [ -00 ] [ ( 2 )s q r t( r )s q r ts q r t( 2 )s q r t( r-2m ) ] [ ] [ R %i rs i n( t h e t a ) ] [ 00] [ ( 2 )s q r ts q r t( 2 ) ] [ ] [ R %i rs i n( t h e t a ) ] [ 00] [ ( 2 )s q r ts q r t( 2 ) ] ( r )s q r ts q r t( r-2m ) ( %T 7 )n p i=m a t r i z( [ ,,0 ,0 ] , s q r t( 2 )s q r t( r-2m )s q r t( 2 )s q r t( r ) ( r )s q r ts q r t( r-2m ) [ ,,0 ,0 ] , s q r t( 2 )s q r t( r-2m )s q r t( 2 )s q r t( r ) 1 %i [ 0 ,0 ,,] ,
250/633
28/08/13

s q r t( 2 )rs q r t( 2 )rs i n( t h e t a ) 1 %i [ 0 ,0 ,,] ) s q r t( 2 )rs q r t( 2 )rs i n( t h e t a ) ( %O 7 )h e c h o ( %I 7 )p s i( t r u e ) ; T 8( % )=0p s i 0 T 9( % )=0p s i 1 m ( T 1 0 % )p s i=23 r ( T 1 1 % )p s i=0 3 ( T 1 2 % )p s i=0 4 ( %O 1 2 )d o n e ( %I 1 2 )P e t r o v( ) ; ( %O 1 2 )D L af u n c i nd ec l a s i f i c a c i nd eP e t r o vs eb a s ae ne la l g o r i t m o p u b l i c a d oe n" C l a s i f i c a c i nd el a sg e o m e t r a sd el ar e l a t i v i d a dg e n e r a l :I I I C l a s i f i c a c i ne nl ap r c t i c a" p o rP o l l n e y ,S k e ayd ' I n v e r n o , C l a s e .Q u a n t .G r a v .1 72 8 8 5 2 9 0 2( 2 0 0 0 ) .E x c e p t op a r aa l g u n o ss i m p l e s c a s o sd ep r u e b a ,l aa p l i c a c i nn os eh ap r o b a d oap a r t i rd e l1 9d ed i c i e m b r ed e 2 0 0 4 ,ye sp r o b a b l eq u ec o n t e n g ae r r o r e s .
F u n c i n :c o n t o r s i n( < t r > ) C a l c u l al o sc o e f i c i e n t e s( 2 , 1 )d ec o n t o r s i nd e lt e n s o rd et o r s i n < t r > .
F u n c i n :m e t r i c i d a d( < n m > ) C a l c u l al o sc o e f i c i e n t e s( 2 , 1 )m e t r i c i d a dd e lm e t r i c i d a d < n m >v e c t o r i a l .
F u n c i n :C T r a n s f o r m( < M > ) E sl af u n c i nd e l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o rq u es e l l e v a rac a b ou n at r a n s f o r m a c i nd ec o o r d e n a d a ss o b r eu nc u a d r a d oa r b i t r a r i a s i m t r i c a< M >m a t r i z .E lu s u a r i od e b ei n t r o d u c i rl a sf u n c i o n e sq u e d e f i n i rl at r a n s f o r m a c i n .( A n t e r i o r m e n t ec o n o c i d oc o m o` t r a n s f o r m a c i n' . )
F u n c i n :f i n d d e( < A > ,< n > ) d e v u e l v eu n al i s t ad el a se c u a c i o n e sd i f e r e n c i a l e ss i n g u l a r e s( e x p r e s i o n e s ) c o r r e s p o n d i e n t eal o se l e m e n t o sd el am a t r i zc u a d r a d ad i m e n s i o n e s< n > < A > .E nl aa c t u a l i d a d ,< n >p u e d es e r2o3 .D e i n d e x` ' e su n al i s t ag l o b a l q u ec o n t i e n el o s n d i c e sd e< A >c o r r e s p o n d i e n t e sae s t o s n i c o s e c u a c i o n e sd i f e r e n c i a l e s .P a r ae lt e n s o rd eE i n s t e i n( ' e i n ' ) ,q u ee s u n am a t r i zd ed o sd i m e n s i o n e s ,s ic a l c u l a d op a r al am t r i c ae ne le j e m p l o ac o n t i n u a c i n ,` f i n d d e' d ae ls i g u i e n t ed i f e r e n c i a li n d e p e n d i e n t e e c u a c i o n e s : ( %I 1 )l o a d( c t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/c t e n s o r . m a c ( %I 2 )d e r i v a b b r e v :t r u e ; ( %O 2 )t r u e ( %I 3 )d i m :4 ; ( %O 3 )4 ( %I 4 )L G :m a t r i z( [ a ,0 ,0 ,0 ] ,[ 0 ,x^2 ,0 ,0 ] , [ 0 ,0 ,x^2*s e n( y )^2 ,0 ] ,[ 0 , 0 , 0 , d ] ) ; [ A000 ] [ ] [ 2 ] [ 0x00 ] ( %O 4 )[ ] [ 22 ] [ 00xs e n( y )0 ] [ ] [ 000-d ] ( %I 5 )d e p e n d e( [ a ,d ] ,x ) ; ( %O 5 )[ a( x ) ,d( x ) ] ( %I 6 )c t _ c o o r d s :[ x ,y ,z ,t ] ; ( %O 6 )[ x ,y ,z ,t ] ( %I 7 )c m e t r i c( ) ; ( %O 7 )h e c h o ( %I 8 )e i n s t e i n( f a l s e ) ;
251/633
28/08/13
( %O 8 )h e c h o ( %I 9 )f i n d d e( e i n ,2 ) ;
2 ( %O 9 )[ d x-a d+d ,2a d d x-a( d )x-a d d x x x x x x x 22 +2a d d-2a n u n c i o s ,a x+a-a ] x x x ( %I 1 0 )d e i n d e x ; ( %O 1 0 )[ [ 1 ,1 ] ,[ 2 ,2 ] ,[ 4 ,4 ] ]
F u n c i n :c o g r a d( ) C a l c u l ae lg r a d i e n t ec o v a r i a n t ed eu n af u n c i ne s c a l a rp e r m i t i e n d oa l u s u a r i oe l e g i re ln o m b r ed e lv e c t o rc o r r e s p o n d i e n t e ,c o m oe le j e m p l od el a ` C o n t r a g r a d' i l u s t r a .
F u n c i n :c o n t r a g r a d( ) C a l c u l ae lg r a d i e n t ec o n t r a v a r i a n t ed eu n af u n c i ne s c a l a rp e r m i t i e n d o a lu s u a r i oe l e g i re ln o m b r ed e lv e c t o rc o r r e s p o n d i e n t e ,c o m oe le j e m p l o d e b a j od el am t r i c ad eS c h w a r z s c h i l di l u s t r a : ( %I 1 )l o a d( c t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/c t e n s o r . m a c ( %I 2 )d e r i v a b b r e v :t r u e ; ( %O 2 )t r u e ( %I 3 )c t _ c o o r d s y s( e x t e r i o r s c h w a r z s c h i l d ,t o d o s ) ; ( %O 3 )d o n e ( %I 4 )d e p e n d e( f ,r ) ; ( %O 4 )[ f( r ) ] ( %I 5 )c o g r a d( f ,g 1 ) ; ( %O 5 )h e c h o ( %I 6 )l i s t a r r a y( g 1 ) ; ( %O 6 )[ 0 ,f ,0 ,0 ] r ( %I 7 )c o n t r a g r a d( f ,g 2 ) ; ( %O 7 )h e c h o ( %I 8 )l i s t a r r a y( g 2 ) ; f r-2f m r r ( %O 8 )[ 0 ,,0 ,0 ] r
F u n c i n :d s c a l a r( ) c a l c u l ae lt e n s o rd ed ' A l e m b e r td el af u n c i ne s c a l a ru n av e z s eh a nd e c l a r a d oe nl af u n c i n .P o re j e m p l o : ( %I 1 )l o a d( c t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/c t e n s o r . m a c ( %I 2 )d e r i v a b b r e v :t r u e ; ( %O 2 )t r u e ( %I 3 )c t _ c o o r d s y s( e x t e r i o r s c h w a r z s c h i l d ,t o d o s ) ; ( %O 3 )d o n e ( %I 4 )d e p e n d e( p ,r ) ; ( %O 4 )[ P( R ) ] ( %I 5 )F a c t o rd e( d s c a l a r( p ) ) ; 2 p r-2m p r+2p r-2m p r r r r r r ( %O 5 )2 r
F u n c i n :c h e c k d i v( ) C a l c u l al ad i v e r g e n c i ac o v a r i a n t ed e lt e n s o rd es e g u n d or a n g om i x t o ( C u y op r i m e r n d i c ed e b es e rc o v a r i a n t e )i m p r i m i e n d ol a c o r r e s p o n d i e n t e snc o m p o n e n t e sd e lv e c t o rd ec a m p o( l ad i v e r g e n c i a ) d o n d en=` d b i l' .S ie la r g u m e n t od el af u n c i ne s' g ' ,e n t o n c e se l d i v e r g e n c i ad e lt e n s o rd eE i n s t e i ns ef o r m a r yd e b es e rc e r o . A d e m s ,l ad i v e r g e n c i a( v e c t o r )s el ed ae ln o m b r ed el am a t r i z' d i v ' .
F u n c i n :c g e o d e s i c( < D I S > ) E sl af u n c i nd e l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o r . ` C g e o d e s i c' c a l c u l al a se c u a c i o n e sg e o d s i c a sd e lm o v i m i e n t op a r au nd e t e r m i n a d o m t r i c a .S ea l m a c e n a ne nl am a t r i z` g e o d[ i ]' .S ie la r g u m e n t o < D I S >e s` t r u e' ,e n t o n c e ss em u e s t r a ne s t a se c u a c i o n e s .
252/633
28/08/13
F u n c i n :b d v a c( < f > )
g e n e r al a sc o m p o n e n t e sc o v a r i a n t e sd el a se c u a c i o n e sd ec a m p od ev a c od e l at e o r ag r a v i t a c i o n a ld eB r a n s D i c k e .E lc a m p oe s c a l a re s e s p e c i f i c a d op o re l< f >a r g u m e n t o ,q u ed e b es e ru n af u n c i n( c i t a d o ) n o m b r ec o nd e p e n d e n c i a sf u n c i o n a l e s ,p o re j e m p l o ,` ' p( x ) . L o sc o m p o n e n t e sd el as e g u n d af i l ac o v a r i a n t et e n s o rd ec a m p os o n r e p r e s e n t a d ap o rl am a t r i z` b d .
F u n c i n :i n v a r i a n t 1( ) g e n e r al am e z c l ad eE u l e r L a g r a n g et e n s o r( e c u a c i o n e sd ec a m p o )p a r a l ad e n s i d a di n v a r i a n t ed eR^2 .L a se c u a c i o n e sd ec a m p os o ne l c o m p o n e n t e sd eu n am a t r i zd e n o m i n a d a` I N V 1' .
F u n c i n :i n v a r i a n t 2( ) * * *N oi m p l e m e n t a d o* * * g e n e r al am e z c l ad eE u l e r L a g r a n g et e n s o r( e c u a c i o n e sd ec a m p o )p a r a l ad e n s i d a di n v a r i a n t ed e l` r i c[ i ,j ]*u r i e m[ i ,j ]' .E lc a m p o e c u a c i o n e ss o nl o sc o m p o n e n t e sd eu n am a t r i zd e n o m i n a d a` I N V 2' .
F u n c i n :b i m e t r i c( ) * * *N oi m p l e m e n t a d o* * * g e n e r al a se c u a c i o n e sd ec a m p od el at e o r ab i m e t r i cd eR o s e n .E lc a m p o e c u a c i o n e ss o nl o sc o m p o n e n t e sd eu n am a t r i zd e n o m i n a d a` r o s e n " .
F u n c i n :d i a g m a t r i x p( < M > ) D e v u e l v e` t r u e' s i< M >e su n am a t r i zd i a g o n a lo( 2 D )d em a t r i z .
F u n c i n :s y m m e t r i c p( < M > ) D e v u e l v e` t r u e' s i< M >e su n am a t r i zs i m t r i c ao( 2 D )d em a t r i z .
F u n c i n :n t e r m s t( < f > ) p r o p o r c i o n aa lu s u a r i ou n ai m a g e nr p i d ad e l" t a m a o "d el ap a r t i d ad o b l e t e n s o rs u b n d i c e( a r r a y )< f > .I m p r i m ed o sl i s t a sd ee l e m e n t o sq u e e ls e g u n d oe l e m e n t oc o r r e s p o n d ean T e r m sd el o sc o m p o n e n t e s e s p e c i f i c a d op o rl o sp r i m e r o se l e m e n t o s .D ee s t am a n e r a ,e sp o s i b l e e n c o n t r a rr p i d a m e n t el a se x p r e s i o n e sd i f e r e n t e sd ec e r oyl as i m p l i f i c a c i ni n t e n t o .
F u n c i n :c d i s p l a y( < t e n > ) m u e s t r at o d o sl o se l e m e n t o sd e lt e n s o rd e< t e n > ,c o m or e p r e s e n t a d o sp o ru n m a t r i zm u l t i d i m e n s i o n a l .L o st e n s o r e sd er a n g o0y1 ,a s c o m oo t r a s t i p o sd ev a r i a b l e s ,s em u e s t r a nc o m oc o n` l d i s p l a y' .T e n s o r e sd e r a n g o2s em u e s t r a nc o m om a t r i c e sd e2d i m e n s i o n e s ,m i e n t r a sq u et e n s o r e sd e m a y o rr a n g os em u e s t r a nc o m ou n al i s t ad em a t r i c e sd e2d i m e n s i o n e s .P a r a e j e m p l o ,e lt e n s o rd eR i e m a n nd el am t r i c ad eS c h w a r z s c h i l dp u e d es e r v i s t oc o m o : ( %I 1 )l o a d( c t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/c t e n s o r . m a c ( %I 2 )r a t f a c :t r u e ; ( %O 2 )t r u e ( %I 3 )c t _ c o o r d s y s( e x t e r i o r s c h w a r z s c h i l d ,t o d o s ) ; ( %O 3 )d o n e ( %I 4 )r i e m a n n( f a l s e ) ; ( %O 4 )h e c h o ( %I 5 )c d i s p l a y( r i e m ) ; [ 0000 ] [ ] [ 2 ] [ 3m( r-2m )m2m ] [ 0-+-00 ] [ 434 ] [ R r r ] [ ] r i e m=[ m( r-2m ) ] 1 ,1[ 00-0 ] [ 4 ] [ R ] [ ]
253/633
28/08/13
[ M( r-2m ) ] [ 000] [ 4 ] [ R ]
[ 2m( r-2m ) ] [ 0-00 ] [ 4 ] [ R ] r i e m=[ ] 1 ,2[ 0000 ] [ ] [ 0000 ] [ ] [ 0000 ] [ M( r-2m ) ] [ 00-0 ] [ 4 ] [ R ] r i e m=[ ] 1 ,3[ 0000 ] [ ] [ 0000 ] [ ] [ 0000 ] [ M( r-2m ) ] [ 000] [ 4 ] [ R ] r i e m=[ ] 1 ,4[ 0000 ] [ ] [ 0000 ] [ ] [ 0000 ] [ 0000 ] [ ] [ 2m ] [ -000 ] r i e m=[ 2 ] 2 ,1[ r( r-2m ) ] [ ] [ 0000 ] [ ] [ 0000 ] [ 2m ] [ -000 ] [ 2 ] [ R( r-2m ) ] [ ] [ 0000 ] [ ] r i e m=[ m ] 2 ,2[ 00-0 ] [ 2 ] [ R( r-2m ) ] [ ] [ M ] [ 000] [ 2 ] [ R( r-2m ) ] [ 0000 ] [ ] [ M ] [ 00-0 ] r i e m=[ 2 ] 2 ,3[ r( r-2m ) ] [ ] [ 0000 ] [ ] [ 0000 ] [ 0000 ] [ ] [ M ] [ 000] r i e m=[ 2 ] 2 ,4[ r( r-2m ) ] [ ] [ 0000 ] [ ] [ 0000 ] [ 0000 ] [ ] [ 0000 ] [ ] r i e m=[ m ] 3 ,1[ -000 ] [ R ] [ ] [ 0000 ]
254/633
28/08/13

[ 0000 ] [ ] [ 0000 ] [ ] r i e m=[ m ] 3 ,2[ 0-00 ] [ R ] [ ] [ 0000 ] [ M ] [ -000 ] [ R ] [ ] [ M ] [ 0-00 ] r i e m=[ r ] 3 ,3[ ] [ 0000 ] [ ] [ 2m-r ] [ 000-+1 ] [ R ] [ 0000 ] [ ] [ 0000 ] [ ] r i e m=[ 2m ] 3 ,4[ 000] [ R ] [ ] [ 0000 ] [ 0000 ] [ ] [ 0000 ] [ ] r i e m=[ 0000 ] 4 ,1[ ] [ 2 ] [ Ms i n( t h e t a ) ] [ -000 ] [ R ] [ 0000 ] [ ] [ 0000 ] [ ] r i e m=[ 0000 ] 4 ,2[ ] [ 2 ] [ Ms i n( t h e t a ) ] [ 0-00 ] [ R ] [ 0000 ] [ ] [ 0000 ] [ ] r i e m=[ 0000 ] 4 ,3[ ] [ 2 ] [ 2ms i n( t h e t a ) ] [ 00-0 ] [ R ] [ 2 ] [ Ms i n( t h e t a ) ] [ -000 ] [ R ] [ ] [ 2 ] [ Ms i n( t h e t a ) ] r i e m=[ 000] 4 ,4[ r ] [ ] [ 2 ] [ 2ms i n( t h e t a ) ] [ 00-0 ] [ R ] [ ] [ 0000 ] ( %O 5 )h e c h o
F u n c i n :d e l e t e n( < L > ,< n > ) D e v u e l v eu n an u e v al i s t af o r m a d ap o r< L >c o ne l< n > s i m oe l e m e n t o s u p r i m i d o .
255/633
28/08/13
V a r i a b l eo p c i o n a l :d i m V a l o rp o rd e f e c t o :4
U n ao p c i ne ne l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o r .` D b i l' s e l ad i m e n s i nd el av a r i e d a dc o ne lv a l o rp o rd e f e c t o4 .E lc o m a n d o ` D i m :n' s er e s t a b l e c e r l ad i m e n s i nac u a l q u i e ro t r ov a l o r `n ' .
V a r i a b l eo p c i o n a l :d i a g m e t r i c V a l o rp o rd e f e c t o :f a l s e' U n ao p c i ne ne l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o r .S i ` D i a g m e t r i c' e s `t r u e 'r u t i n a se s p e c i a l e sp a r ac a l c u l a rt o d a sg e o m t r i c a o b j e t o s( q u ec o n t i e n e ne lt e n s o rm t r i c oe x p l c i t a m e n t e )m e d i a n t el aa d o p c i nd e e nc u e n t al ad i a g o n a l i d a dd el am t r i c a .P l a z or e d u c i d o v e c e s ,p o rs u p u e s t o ,r e s u l t a d o .N o t a :e s t ao p c i ns ee s t a b l e c e a u t o m t i c a m e n t ep o r` c s e t u p' s in os ee s p e c i f i c au n am t r i c ad i a g o n a l .
V a r i a b l eo p c i o n a l :c t r g s i m p C a u s a ss i m p l i f i c a c i o n e st r i g o n o m t r i c a sq u es eu t i l i z a r na lt e n s o r e ss o n c a l c u l a d o .A c t u a l m e n t e ,` c t r g s i m p' a f e c t as l oac l c u l o s l ap a r t i c i p a c i nd eu nb a s t i d o rm v i l .
V a r i a b l eo p c i o n a l :c f r a m e _ f l a g C a u s a sc l c u l o sar e a l i z a re nr e l a c i nc o nu nm a r c oq u es em u e v ec o m o f r e n t eau n am t r i c ah o l o n m i c a .E lm a r c os ed e f i n ep o rl ai n v e r s a a r r a ym a r c ov i e` ' ye lc u a d r o `l f gm t r i c a .P a r al o sc l c u l o s u t i l i z a n d ou nm a r c oc a r t e s i a n o ,` l f g' d e b es e rl am a t r i zd el au n i d a dd e l d i m e n s i na d e c u a d a ,p a r al o sc l c u l o se nu nm a r c od eL o r e n t z ,` G R S' d e b ec o n t a rc o nl af i r m ac o r r e s p o n d i e n t e .
V a r i a b l eo p c i o n a l :c t o r s i o n _ f l a g H a c eq u ee lt e n s o rd ec o n t o r s i nq u es ei n c l u i r ne ne lc l c u l od el o s l o sc o e f i c i e n t e sd ec o n e x i n .E lp r o p i ot e n s o rd ec o n t o r s i ne s c a l c u l a d op o r` c o n t o r s i n "d e lt e n s o rs u m i n i s t r a d op o re lu s u a r i o` t r' .
V a r i a b l eo p c i o n a l :c n o n m e t _ f l a g C a u s a sd el o sc o e f i c i e n t e sm e t r i c i d a dq u es ei n c l u i r ne ne l c l c u l od el o sc o e f i c i e n t e sd ec o n e x i n .E lm e t r i c i d a d c o e f i c i e n t e ss ec a l c u l a nap a r t i rd el am e t r i c i d a ds u m i n i s t r a d op o re lu s u a r i o v e c t o r` n m' p o rl af u n c i n `m e t r i c i d a d ' .
V a r i a b l eo p c i o n a l :c t a y s w i t c h S is ee s t a b l e c ee n` t r u e' ,h a c eq u ea l g u n o s `c t e n s o r 'c l c u l o sar e a l i z a r c a b ou t i l i z a n d oe x p a n s i o n e sd eT a y l o rd el as e r i e .E nl aa c t u a l i d a d ,' C h r i s t o f ' ,` R i c c i , U r i c c i` ' , è i n s t e i n 'y` w e y l' t i e n e ne nc u e n t ae s t ea j u s t e .
V a r i a b l eo p c i o n a l :c t a y v a r V a r i a b l eu t i l i z a d ap a r ad e s a r r o l l o sd eT a y l o rs e r i e si f` c t a y s w i t c h' e s t a j u s t a d oa ` T r u e' .
V a r i a b l eo p c i o n a l :c t a y p o v L ap o t e n c i am x i m au t i l i z a d ae nl ae x p a n s i nd eT a y l o rd el as e r i ec u a n d o` c t a y s w i t c h' e s a j u s t a d oa` t r u e' .
V a r i a b l eo p c i o n a l :c t a y p t P u n t od ee x p a n s i nd eT a y l o ra l r e d e d o rd el ac u a ll as e r i es el l e v aac a b oc u a n d o ` C t a y s w i t c h' e s t a j u s t a d oa 't r u e' .
V a r i a b l ed e ls i s t e m a :g d e t E ld e t e r m i n a n t ed e lt e n s o rm t r i c o' l g ' .C a l c u l a d op o r` c m e t r i c' c u a n d o` c f r a m e _ f l a g' e s t a j u s t a d oa 'f a l s e' .
256/633
28/08/13
V a r i a b l eo p c i o n a l :r a t c h r i s t o f C a u s a ss i m p l i f i c a c i nr a c i o n a lp a r as e ra p l i c a d op o r` c h r i s t o f' .
V a r i a b l eo p c i o n a l :r a t e i n s t e i n V a l o rp o rd e f e c t o :t r u e' S i` t r u e' s i m p l i f i c a c i nr a c i o n a ls er e a l i z a r e ne l c o m p o n e n t e sn on u l o sd el o st e n s o r e sd eE i n s t e i n ,s i` r a t f a c' e s `t r u e ' ac o n t i n u a c i n ,l o sc o m p o n e n t e st a m b i ns et e n d r ne nc u e n t a .
V a r i a b l eo p c i o n a l :r a t r i e m a n n V a l o rp o rd e f e c t o :t r u e' U n ad el a sv a r i a b l e sq u ec o n t r o l a nl as i m p l i f i c a c i nd eR i e m a n n t e n s o r e s ,s i` t r u e' ,e n t o n c e ss eh a r l as i m p l i f i c a c i nr a c i o n a l ,s i ` R a t f a c' e s `v e r d a d e r o ' ,e n t o n c e sc a d au n od el o sc o m p o n e n t e st a m b i ns e r f a c t o r i z a d a .
V a r i a b l eo p c i o n a l :r a t w e y l V a l o rp o rd e f e c t o :t r u e' S i` t r u e' ,e s t ao p c i nh a c eq u ee l `w e y l" f u n c i nd ea p l i c a r s i m p l i f i c a c i nr a c i o n a lal o sv a l o r e sd e lt e n s o rd eW e y l .S i ` R a t f a c' e s `t r u e ' ,e n t o n c e sl a sc o m p o n e n t e st a m b i ns e r nf a c t o r i z a d a s .
V a r i a b l e :l f g E sl ac o v a r i a n t em t r i c a .D ef o r m ap r e d e t e r m i n a d a ,s ei n i c i ac o nl a M a r c od eL o r e n t z4 d i m e n s i o n a lc o nl af i r m a( + ,+ ,+ ,) .S eu t i l i z ac u a n d o ` C f r a m e _ f l a g' e s `t r u e ' .
V a r i a b l e :U F G E lm a r c om t r i c ai n v e r s a .C l c u l o sb a s a d o s e n` l f g "c u a n d o` c m e t r i c' e s l l a m a d am i e n t r a sc f r a m e _ f l a g` ' e s t a j u s t a d oa 't r u e' .
V a r i a b l e :r i e m E l( 3 , 1 )t e n s o rd eR i e m a n n .S ec a l c u l ac u a n d ol af u n c i n` R i e m a n ne s i n v o c a d o .P a r ao b t e n e ri n f o r m a c i na c e r c ad el aa d q u i s i c i nd e n d i c e ,c o n s u l t el ad e s c r i p c i n d e` R i e m a n n . S i` c f r a m e _ f l a g' e s `t r u e ' ,` r i e m' s ec a l c u l aap a r t i rd el ac o v a r i a n t e T e n s o rd eR i e m a n n` l r i e m' .
V a r i a b l e :l r i e m E lt e n s o rc o v a r i a n t ed eR i e m a n n .C a l c u l a d op o r` l r i e m a n n' .
V a r i a b l e :u r i e m E lt e n s o rc o n t r a v a r i a n t ed eR i e m a n n .C a l c u l a d op o r` u r i e m a n n' .
V a r i a b l e :r i c L am e z c l aT e n s o rd eR i c c i .C a l c u l al af u n c i nr i c c i` ' .
V a r i a b l e : r i c o E lc o n t r a v a r i a n t eT e n s o rd eR i c c i .C a l c u l a d op o r` u r i c c i' .
V a r i a b l e :l g
257/633
28/08/13

E lt e n s o rm t r i c o .S ed e b ee s p e c i f i c a rE s t et e n s o r( c o m o` t e n u e "p o r M a t r i z` d b i l' )a n t e sd ep o d e rr e a l i z a ro t r o sc l c u l o s .
V a r i a b l e :u g E li n v e r s od e lt e n s o rm t r i c o .C a l c u l a d op o r` c m e t r i c' .
V a r i a b l e :w e y l E lt e n s o rd eW e y l .C a l c u l a d op o r` w e y l' .
V a r i a b l e :f b C o e f i c i e n t e sp e r c h a ,t a lc o m ol o sc a l c u l a` f r a m e _ b r a c k e t' .
V a r i a b l e :k i n v a r i a n t E lK r e t c h m a n ni n v a r i a n t e .C a l c u l a d op o r` r i n v a r i a n t' .
V a r i a b l e :n p AN e w m a n P e n r o s ec u a t e r n an u l a .C a l c u l a d op o r` n p t e t r a d' .
V a r i a b l e :n p i E le l e v a d o n d i c ed eN e w m a n P e n r o s ec u a t e r n an u l a .C a l c u l a d op o r ` N p t e t r a d' .S ed e f i n ec o m o` u g . n p' .E lp r o d u c t o` n p . t r a n s p o s e( N P I )' e sc o n s t a n t e : ( %I 3 9 )t r i g s i m p( n p . t r a n s p o s e( N P I ) ) ; [ 0-100 ] [ ] [ -1000 ] ( %O 3 9 )[ ] [ 0001 ] [ ] [ 0010 ]
V a r i a b l e :t r A d q u i r i d op o re lu s u a r i oR a n g o3 t e n s o rr e p r e s e n t au n at o r s i n .U t i l i z a d op o r ` C o n t o r s i n .
V a r i a b l e :k t E lt e n s o rd ec o n t o r s i n ,c a l c u l a d oap a r t i rd e` t r' p o r `c o n t o r s i n .
V a r i a b l e :n m S u m i n i s t r a d op o re lu s u a r i ov e c t o rm e t r i c i d a d .U t i l i z a d op o r` m e t r i c i d a d' .
V a r i a b l e :n m c L o sc o e f i c i e n t e sm e t r i c i d a d ,c o n t a d o sap a r t i rd e` n m "p o r ` M e t r i c i d a d' .
V a r i a b l ed e ls i s t e m a :t e n s o r k i l l V a r i a b l eq u ei n d i c as ie lp a q u e t ed et e n s o r e ss eh ai n i c i a l i z a d o . E s t a b l e c e ryu t i l i z a d ap o r` c s e t u p' ,r e s t a b l e z c ap o r ì n i t _ c t e n s o r ' .
V a r i a b l eo p c i o n a l :c t _ c o o r d s V a l o rp o rd e f e c t o :[ ]' U n ao p c i ne ne l' ( c o m p o n e n t e sd et e n s o r e s )p a q u e t e` c t e n s o r .
258/633
28/08/13

` C t _ c o o r d s' c o n t i e n eu n al i s t ad ec o o r d e n a d a s .A u n q u en o r m a l m e n t e d e f i n i d o sc u a n d os el l a m aal af u n c i n` c s e t u p' ,s ep u e d er e d e f i n i re l c o o r d i n ac o nl aa s i g n a c i n` c t _ c o o r d s :[ j 1 ,j 2 ,. . . ,j n ]' d o n d ee ljd es o nl o sn u e v o sn o m b r e sd el a sc o o r d e n a d a s .C o n s u l t et a m b i n` c s e t u p' .
27 atensor
I n t r o d u c c i naa t e n s o r F u n c i o n e syv a r i a b l e sp a r aa t e n s o r
27.1 Introduccin a atensor

` A t e n s o r' e su np a q u e t ed em a n i p u l a c i na l g e b r a i c ad et e n s o r e s .P a r au s a r` a t e n s o r' , ` t i p od ec a r g a( a t e n s o r )' ,s e g u i d op o ru n al l a m a d aa l ì n i t _ a t e n s o r 'f u n c i n . L ae s e n c i ad el a` a t e n s o r' e su nc o n j u n t od er e g l a sd es i m p l i f i c a c i np a r ae l n oc o n m u t a t i v a( p u n t o )p r o d u c t o( " ` .' " ) .` A t e n s o r' r e c o n o c e v a r i o st i p o sd e l g e b r a ;l a sc o r r e s p o n d i e n t e sr e g l a sd es i m p l i f i c a c i ns ep o n e n e nv i g o rc u a n d os el l a m aal af u n c i n` i n i t _ a t e n s o r' . L a sc a p a c i d a d e sd e` a t e n s o r' s ep u e d e nd e m o s t r a rm e d i a n t el ad e f i n i c i nd el a l g e b r ad ec u a t e r n i o n e sc o m ou n l g e b r ad eC l i f f o r dC l( 0 , 2 )c o nd o sb a s e s v e c t o r e s .L a st r e su n i d a d e si m a g i n a r i a ss o nl o sd o sb a s e s v e c t o r e sys up r o d u c t o ,e sd e c i r : i=v j=v k=v .v 1212 A u n q u ee lp a q u e t e` a t e n s o r' t i e n eu n ad e f i n i c i ni n t e g r a d op a r al a l g e b r ad ec u a t e r n i o n e s ,q u en os eu t i l i z ae ne s t ee j e m p l o ,e ne lq u e e s f o r z a r s ep o rc o n s t r u i rl at a b l ad em u l t i p l i c a c i nc o m ou n am a t r i z : ( %I 1 )l o a d( a t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/a t e n s o r . m a c ( %I 2 )i n i t _ a t e n s o r( c l i f f o r d ,0 , 0 , 2 ) ; ( %O 2 )d o n e ( %I 3 )a t e n s i m p( v[ 1 ]v[ 1 ] . ) ; ( %O 3 )-1 ( %I 4 )a t e n s i m p( ( v[ 1 ]v[ 2 ] )( v[ 1 ]v[ 2 ] ) . . . ) ; ( %O 4 )-1 ( %I 5 )q :z e r o m a t r i x( 4 , 4 ) ; [ 0000 ] [ ] [ 0000 ] ( %O 5 )[ ] [ 0000 ] [ ] [ 0000 ] ( %I 6 )q[ 1 , 1 ] :1 ; ( %O 6 )1 ( %I 7 )p a r aiat r a v sa d i md oq[ 1 ,i+ 1 ] :q[ i+ 1 , 1 ] :v[ i ] ; ( %O 7 )h e c h o ( %I 8 )q[ 1 , 4 ] :q[ 4 , 1 ] : .V[ 1 ]v[ 2 ] ; ( %O 8 )v .v 12 ( %I 9 )p a r ai2 4h a g op o rj2 4h a c e r l o q[ i ,j ] :a t e n s i m p( .q[ i ,1 ]q[ 1 ,j ] ) ; ( %O 9 )h e c h o ( %I 1 0 )q ; [ 1v v v .v ] [ 1212 ] [ ] [ V-1V .v-v ] [ 1122 ] ( %O 1 0 )[ ] [ V-v .V-1V ] [ 2121 ] [ ] [ V .v v-v-1 ] [ 1221 ] ` A t e n s o r' r e c o n o c ec o m ov e c t o r e sb a s es m b o l o si n d e x a d o s ,d o n d ee l s m b o l oe sa l m a c e n a d ae n` a s y m b o l' ye l n d i c ev ad e s d e1h a s t a ` A d i m' .P a r al o ss m b o l o si n d e x a d o sys m b o l o si n d e x a d o ss o l a m e n t e ,e lb i l i n e a l e s s ee v a l a nl a sf o r m a s` s f' , à f 'y` a v .L o ss u s t i t u t o sd ee v a l u a c i n e lv a l o rd e` a f o r m[ i ,j ]' e nl u g a rd e 'l ad i v e r s i n( v[ i ] ,v[ j ] )' ,d o n d e `v ' r e p r e s e n t ae lv a l o rd e` a s y m b o l' y 'd i v e r t i d o' e so à f 'o' s f ' ,ob i e n , q u es u s t i t u y e` v[ a f o r m[ i ,j ] ]' e nl u g a rd e à v( v[ i ] ,v[ j ] ) . N iq u ed e c i rt i e n e ,l a sf u n c i o n e s` s f' , à f 'y' a v 'p u e d e ns e rr e d e f i n i d o s . C u a n d os ec a r g ae lp a q u e t e` a t e n s o r' ,s ee s t a b l e c e nl o ss i g u i e n t e si n d i c a d o r e s : d o t s c r u l e s :t r u e ; d o t d i s t r i b :t r u e ; d o t e x p t s i m p :f a l s e ; S id e s e ae x p e r i m e n t a rc o nu n a l g e b r an oa s o c i a t i v a ,t a m b i np u e d e c o n s i d e r a re le s t a b l e c i m i e n t od e` d o t a s s o c' a 'f a l s e' .E ne s t ec a s o ,s i ne m b a r g o , ` A t e n s i m p' n os i e m p r es e r c a p a zd eo b t e n e re ld e s e a d o s i m p l i f i c a c i o n e s .
259/633
28/08/13
27.2 Funciones y variables para atensor

F u n c i n :i n i t _ a t e n s o r( < a l g _ t y p e > ,< o p t _ d i m s > ) F u n c i n :i n i t _ a t e n s o r( < a l g _ t y p e > ) I n i c i a l i z ae lp a q u e t e` a t e n s o r' c o ne lt i p od e l g e b r ae s p e c i f i c a d o . < a l g _ t y p e >p u e d es e ru n od el o ss i g u i e n t e s : ` U n i v e r s a l " :E l l g e b r au n i v e r s a ln ot i e n er e g l a sd ec o n m u t a c i n . ` G r a s s m a n n' :E l l g e b r ad eG r a s s m a n ns ed e f i n ep o rl ac o n m u t a c i n r e l a c i n` u . v+v u=0' . ` C l i f f o r d' :E l l g e b r ad eC l i f f o r ds ed e f i n ep o rl ac o n m u t a c i n r e l a c i n` u . v+v u=2*s f( u ,v )' ,d o n d e `s f 'e ss i m t r i c a f u n c i nc o nv a l o r e se s c a l a r e s .P a r ae s t a l g e b r a ,< o p t _ d i m s >p u e d es e rd eh a s t a t r e se n t e r o sn on e g a t i v o s ,l oq u er e p r e s e n t ae ln m e r od ep o s i t i v o s , d e g e n e r a d o s ,yl a sd i m e n s i o n e sn e g a t i v a sd el a l g e b r a ,r e s p e c t i v a m e n t e . S is es u m i n i s t r a nl o sv a l o r e s< o p t _ d i m s > ,` a t e n s o r' c o n f i g u r a r e l v a l o r e sd e` a d i m' y à f o r m 'a p r o p i a d a m e n t e .D el oc o n t r a r i o ,` a d i ml av o l u n t a d p o rd e f e c t oa0y` a f o r m' n os ed e f i n e . ` S i m t r i c a' :E l l g e b r as i m t r i c as ed e f i n ep o rl ac o n m u t a c i n r e l a c i n` u v v u=0' . ` S i m p l c t i c o' :E l l g e b r as i m p l c t i c as ed e f i n ep o rl ac o n m u t a c i n r e l a c i n` u v v u=2*a f( u ,v )' ,d o n d e à f 'e sa n t i s i m t r i c a f u n c i nc o nv a l o r e se s c a l a r e s .P a r ae l l g e b r as i m p l c t i c a ,< o p t _ d i m s >p u e d e s e rd eh a s t ad o se n t e r o sn on e g a t i v o s ,l oq u er e p r e s e n t ae ln od e g e n e r a d a yd i m e n s i o n e sd e g e n e r a d a s ,r e s p e c t i v a m e n t e .S il o sv a l o r e sd ec u a l q u i e r< o p t _ d i m s > s es u m i n i s t r a n ,` a t e n s o r' c o n f i g u r a r l o sv a l o r e sd e à d i m" y ` A f o r m' a p r o p i a d a m e n t e .D el oc o n t r a r i o ,` a d i m' p o rd e f e c t oa0y N os ed e f i n ea f o r m` ' . ` L i e _ e n v e l o p' :E l l g e b r ad el ae n v o l v e n t ed eL i es ed e f i n em e d i a n t el a c o n m u t a c i nr e l a c i n` u v v u=2*a v( u ,v )' ,d o n d e à v" e su n f u n c i na n t i s i m t r i c a . L af u n c i n` i n i t _ a t e n s o r' t a m b i nr e c o n o c ev a r i o sm o d o s t i p o sd e l g e b r a : ` C o m p l e j a' i m p l e m e n t ae l l g e b r ad el o sn m e r o sc o m p l e j o sc o m ol a l g e b r ad eC l i f f o r dC l( 0 , 1 ) .L al l a m a d a` i n i t _ a t e n s o r( c o m p l e j o )' e s e q u i v a l e n t ea` i n i t _ a t e n s o r( c l i f f o r d ,0 , 0 , 1 ) . ` C u a t e r n i n' i m p l e m e n t ae l l g e b r ad ec u a t e r n i o n e s .L al l a m a d a ` I n i t _ a t e n s o r( q u a t e r n i o n )' e se q u i v a l e n t ea 'i n i t _ a t e n s o r ( C l i f f o r d ,0 , 0 , 2 ) . ` P a u l i' i m p l e m e n t ae l l g e b r ad eP a u l ic o m ol a l g e b r ad eC l i f f o r dC l( 3 , 0 ) .U n al l a m a d aa` i n i t _ a t e n s o r( p a u l i )' e s e q u i v a l e n t ea` i n i t _ a t e n s o r( c l i f f o r d ,3 ) . ` D i r a ci m p l e m e n t ae l l g e b r ad eD i r a cc o m ol a l g e b r ad eC l i f f o r dC l( 3 , 1 ) .U n al l a m a d aa` i n i t _ a t e n s o r( D i r a c ) "e s e q u i v a l e n t ea` i n i t _ a t e n s o r( c l i f f o r d ,3 , 0 , 1 ) .
F u n c i n :a t e n s i m p( e x p r ) S i m p l i f i c aa l g e b r a i c ad eu nt e n s o r< e x p r >e x p r e s i nd ea c u e r d oc o nl a r e g l a sc o n f i g u r a d a sp o ru n al l a m a d aa` i n i t _ a t e n s o r' .S i m p l i f i c a c i n i n c l u y el aa p l i c a c i nr e c u r s i v ad el a sr e l a c i o n e sd ec o n m u t a c i ny r e s o l v e rl a sl l a m a d a sas f` ' , à f 'y` a v' e ns uc a s o .L a s a l v a g u a r d a rs eu t i l i z ap a r ag a r a n t i z a rq u el af u n c i nt e r m i n as i e m p r e , i n c l u s op a r ae x p r e s i o n e sc o m p l e j a s .
F u n c i n :a l g _ t y p e E lt i p od e l g e b r a .L o sv a l o r e sv l i d o ss o n' u n i v e r s a l e s ' ,` G r a s s m a n n , ' C l i f f o r d ' ,' s i m t r i c a ' ,` s i m p l c t i c a' y `l i e _ e n v e l o p ' .
V a r i a b l e :a d i m V a l o rp o rd e f e c t o :0 L ad i m e n s i nd e l l g e b r a .` A t e n s o r' u t i l i z ae lv a l o rd e ` A d i m' p a r ad e t e r m i n a rs iu no b j e t oi n d e x a d oe su nv e c t o rb a s ev l i d a . C o n s u l t e` a b a s e p' .
V a r i a b l e :a f o r m V a l o rp o rd e f e c t o :i d e n t( 3 )' L o sv a l o r e sp o rd e f e c t op a r al a sf o r m a sb i l i n e a l e ss f` ' , à f 'y` a v' .L a
260/633
28/08/13

p o rd e f e c t oe sl am a t r i zi d e n t i d a di d e n t` ( 3 ) .
V a r i a b l e :a s y m b o l V a l o rp o rd e f e c t o :` v' E ls m b o l od ev e c t o r e sb a s e .
F u n c i n :s f( ,< v > ) U n af u n c i ne s c a l a rs i m t r i c aq u es eu t i l i z ae nr e l a c i o n e sd ec o n m u t a c i n . C o m p r u e b al aa p l i c a c i np o rd e f e c t os ia m b o sa r g u m e n t o ss o nl ab a s e v e c t o r e su s a n d o` a b a s e p' ys ie s ee se lc a s o ,s u s t i t u y el a v a l o rc o r r e s p o n d i e n t ed el am a t r i z` a f o r m' .
F u n c i n :a f( ,< v > ) U n af u n c i ne s c a l a ra n t i s i m t r i c aq u es eu t i l i z ae nl ac o n m u t a c i n r e l a c i o n e s .L ai m p l e m e n t a c i np o rd e f e c t os ia m b o sa r g u m e n t o s s o nv e c t o r e sb a s em e d i a n t e` a b a s e p' ys ie s ee se lc a s o , s u s t i t u y ee lv a l o rc o r r e s p o n d i e n t ed el am a t r i z` a f o r m' .
F u n c i n :a v( ,< v > ) U n af u n c i na n t i s i m t r i c aq u es eu t i l i z ae nr e l a c i o n e sd ec o n m u t a c i n . C o m p r u e b al aa p l i c a c i np o rd e f e c t os ia m b o sa r g u m e n t o ss o nl ab a s e v e c t o r e su s a n d o` a b a s e p' ys ie s ee se lc a s o ,s u s t i t u y el a v a l o rc o r r e s p o n d i e n t ed el am a t r i z` a f o r m' . P o re j e m p l o : ( %I 1 )l o a d( a t e n s o r ) ; ( %O 1 )/s h a r e/t e n s o r/a t e n s o r . m a c ( %I 2 )a d i m :3 ; ( %O 2 )3 ( %I 3 )a f o r m :m a t r i z( [ 0 , 3 ,2 ] ,[ 3 , 0 , 1 ] ,[ 2 ,1 , 0 ] ) ; [ 03-2 ] [ ] ( %O 3 )[ -301 ] [ ] [ 2-10 ] ( %I 4 )a s y m b o l :x ; ( %O 4 )x ( %I 5 )a v( x[ 1 ] ,x[ 2 ] ) ; ( %O 5 )x 3
F u n c i n :a b a s e p( < v > ) C o m p r u e b as is ua r g u m e n t oe su nv e c t o rb a s e` a t e n s o r' .E sd e c i r ,s is e e su ns m b o l oi n d e x a d o ,c o ne ls m b o l od es e re lm i s m oq u ee lv a l o r d e` a s y m b o l' ,ye l n d i c et i e n eu nv a l o rn u m r i c oe n t r e1y ` A d i m' .
28 Sumas, productos y Series

S u m a syP r o d u c t o s I n t r o d u c c i nal aS e r i e F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s s e r i e sd eP o i s s o n
28.1 Sumas y productos

F u n c i n :b a s h i n d i c e s( e x p r ) T r a n s f o r m al ae x p r e s i ne x p rd n d o l eac a d as u m ay p r o d u c t od eu n n d i c e n i c o .E s t od a` c h a n g e v a r' m a y o rp r e c i s i n c u a n d os ee s t t r a b a j a n d oc o ns u m a syp r o d u c t o s .L af o r m ad el a n d i c e n i c oe s` j< n m e r o >' .S ed e t e r m i n al ac a n t i d a d< n m e r o > h a c i e n d or e f e r e n c i aa` g e n s u m n u m' ,q u ep u e d es e rc a m b i a d op o re lu s u a r i o . P o re j e m p l o ,` g e n s u m n u m :0$' r e s t a b l e c e .
F u n c i n :l s u m( e x p r ,< x >< L > ) R e p r e s e n t al as u m ad ee x p rp a r ac a d ae l e m e n t od e< x >< L > .U ns u s t a n t i v o f o r m a` ' l s u m 's ed e v u e l v es ie l< L >a r g u m e n t on os ee v a l a
261/633
28/08/13
u n al i s t a . E j e m p l o s :
( %I 1 )l s u m( xî ,i ,[ 1 ,2 ,7 ] ) ; 72 ( %O 1 )x+x+x ( %I 2 )l s u m( i^2 ,i ,r o o t s o f( x^3-1 ) ) ; = = = = \2 ( %O 2 ) >i / = = = = 3 ie nr o o t s o f( x-1 )
F u n c i n :i n t o s u m( e x p r ) M u e v el o sf a c t o r e sm u l t i p l i c a t i v o sf u e r ad eu ns u m a t o r i oh a c i ad e n t r o .S i e l n d i c es eu t i l i z ae nl ae x p r e s i ne x t e r i o r ,e n t o n c e sl af u n c i n t r a t ad ee n c o n t r a ru n n d i c er a z o n a b l e ,l om i s m oq u el oh a c ep a r a ` S u m c o n t r a c t' .E s t ae se s e n c i a l m e n t el ai d e ai n v e r s ad el a P r o p i e d a d` o u t a t i v e' d es u m a s ,p e r on o t aq u en ol oh a c e e l i m i n a re s t ee s t a b l e c i m i e n t o ,s l os ep a s ap o re l l a . E na l g u n o sc a s o s ,u n a` s c a n m a p( m u l t t h r u ,e x p r )' p u e d es e rn e c e s a r i o a n t e sd el a` i n t o s u m' .
F u n c i n :p r o d u c t o( e x p r , , , ) R e p r e s e n t au np r o d u c t od el o sv a l o r e sd e< e x p r >c o m oe l n d i c ed e v a r ad ea .S em u e s t r al af o r m an o m i n a l' 'p r o d u c t o' c o m op im a y s c u l a . ` P r o d u c t' e v a l ae x p ryl o sl m i t e si n f e r i o rys u p e r i o ry ,' q u o t e s` d ep r o d u c t o s( n oe v a l a )e l n d i c e . S il o sl m i t e ss u p e r i o rei n f e r i o rd i f i e r e ne nu nn m e r oe n t e r o ,e s< e x p r > e v a l ap a r ac a d av a l o rd el a n d i c e ,ye lr e s u l t a d oe su n a p r o d u c t oe x p l c i t o . D el oc o n t r a r i o ,e li n t e r v a l od e l n d i c ee si n d e f i n i d a .A l g u n a sr e g l a ss o n a p l i c a d ap a r as i m p l i f i c a re lp r o d u c t o .C u a n d ol av a r i a b l eg l o b a l S i m p p r o d u c tv a l g a` ' e s `t r u e ' ,s ea p l i c a nr e g l a sa d i c i o n a l e s .E na l g u n o s c a s o s ,l as i m p l i f i c a c i ns eo b t i e n eu nr e s u l t a d oq u en oe su np r o d u c t o ; d el oc o n t r a r i o ,e lr e s u l t a d oe su n af o r m an o m i n a l' " p r o d u c t o " . V e rt a m b i n` n o m b r e s' y è v f l a g ' . E j e m p l o s : ( %I 1 )p r o d u c t o( x+i*( i+ 1 )/2 ,i ,1 ,4 ) ; ( %O 1 )( x+1 )( x+3 )( x+6 )( x+1 0 ) ( %I 2 )p r o d u c t o( i^2 ,i ,1 ,7 ) ; ( %O 2 )2 5 4 0 1 6 0 0 ( %I 3 )p r o d u c t o( a[ i ] ,i ,1 ,7 ) ; ( %O 3 )a a a a a a a 1234567 ( %I 4 )p r o d u c t o( a( i ) ,i ,1 ,7 ) ; ( %O 4 )u n a( 1 )a( 2 )a( 3 )u n a( 4 )u n a( 5 )a( 6 )u n a( 7 ) ( %I 5 )p r o d u c t o( a( i ) ,i ,1 ,n ) ; n /= = =\ !! ( %O 5 ) !!u n( i ) !! i=1 ( %I 6 )p r o d u c t o( k ,k ,1 ,n ) ; n /= = =\ !! ( %O 6 ) !!k !! k=1 ( %I 7 )p r o d u c t o( k ,k ,1 ,n ) ,s i m p p r o d u c tv a l g a ; ( %O 7 )n ! ( %I 8 )p r o d u c t o( i n t e g r a r( x^k ,x ,0 ,1 ) ,k ,1 ,n ) ; n /= = =\ !!1 ( %O 8 ) !!!!k+1 k=1 ( %I 9 )p r o d u c t o( s ik< =5ac o n t i n u a c i n ,u n ap e r s o n ab^k^k ,k ,1 ,1 0 ) ; 1 54 0 ( %O 9 )a b
V a r i a b l eo p c i o n a l :s i m p s u m V a l o rp o rd e f e c t o :f a l s e'
262/633
28/08/13

C u a n d o` s i m p s u m' e s `t r u e ' ,e lr e s u l t a d od eu n a' s u m a 's es i m p l i f i c a . E s t as i m p l i f i c a c i np u e d eav e c e ss e rc a p a zd ep r o d u c i ru n ac e r r a d a f o r m u l a r i o .S i` s i m p s u m' e s 'f a l s e' os ie lf o r m u l a r i oc i t a d o `" s u m a "e s u t i l i z a ,e lv a l o re su n af o r m an o m i n a ls u m aq u ee su n ar e p r e s e n t a c i nd e l an o t a c i ns i g m ah a b i t u a le nm a t e m t i c a s .
F u n c i n :s u m( e x p r , , , ) R e p r e s e n t au n as u m ad el o sv a l o r e sd e< e x p r >c o m oe l n d i c ed e v a r ad ea .L af o r m an o m i n a l' " s u m a "s em u e s t r ac o m o u n al e t r am a y s c u l as i g m a . ' S u m a 'e v a l as us u m a n d oe x p ryl o sl m i t e si n f e r i o rys u p e r i o r y ,c i t a s` s u m' ( n oe v a l a )e l n d i c e . S il o sl m i t e ss u p e r i o rei n f e r i o rd i f i e r e ne nu nn m e r oe n t e r o ,e ls u m a n d o < e x p r >s ee v a l ap a r ac a d av a l o rd el a n d i c ed es u m a ,y e lr e s u l t a d oe su n as u m ae x p l c i t a . D el oc o n t r a r i o ,e li n t e r v a l od e l n d i c ee si n d e f i n i d a .A l g u n a sr e g l a ss o n a p l i c a d ap a r as i m p l i f i c a rl as u m a .C u a n d ol av a r i a b l eg l o b a l ` S i m p s u m' e s `t r u e ' ,s ea p l i c a nr e g l a sa d i c i o n a l e s .E na l g u n o sc a s o s , s i m p l i f i c a c i ns eo b t i e n eu nr e s u l t a d oq u en oe su n as u m a ; d el oc o n t r a r i o ,e lr e s u l t a d oe su n af o r m an o m i n a l' " s u m a " . C u a n d oe l` e v f l a g' ( b a n d e r ad ee v a l u a c i n ) `c a u c h y s u m 'e s` t r u e' ,u n p r o d u c t od es u m a t o r i o ss ee x p r e s ac o m ou np r o d u c t od eC a u c h y ,e ne lq u e e l n d i c ed e ls u m a t o r i oi n t e r i o re su n af u n c i nd e l n d i c ed el a u n oe x t e r i o r ,e nl u g a rd ev a r i a rd ef o r m ai n d e p e n d i e n t e . E l` g e n i n d e xv a r i a b l eg l o b a l' e se lp r e f i j oa l f a b t i c ou t i l i z a d op a r a g e n e r a re ls i g u i e n t e n d i c ed el as u m a ,c u a n d ou na u t o m t i c a m e n t e S en e c e s i t a n d i c eg e n e r a d o . ` G e n s u m n u m' e se ls u f i j on u m r i c ou t i l i z a d op a r ag e n e r a re ls i g u i e n t e n d i c e d el as u m a ,e sn e c e s a r i oc u a n d ou n n d i c eg e n e r a d oa u t o m t i c a m e n t e . C u a n d o` g e n s u m n u m' e s 'f a l s e' ,u n n d i c es eg e n e r aa u t o m t i c a m e n t ee s s l o` g e n i n d e x' ,s i ns u f i j on u m r i c o . C o n s u l t et a m b i n` s u m c o n t r a c t' , ì n t o s u m ' ,` b a s h i n d i c e s' , `n i c e i n d i c e s ' , ` N o m b r e s' , è v f l a g 'y` z e i l b e r g e r' . E j e m p l o s : ( %I 1 )s u m a( i^2 ,i ,1 ,7 ) ; ( %O 1 )1 4 0 ( %I 2 )s u m( a[ i ] ,i ,1 ,7 ) ; ( %O 2 )a+a+a+a+a+a+a 7654321 ( %I 3 )s u m a( a( i ) ,i ,1 ,7 ) ; ( %O 3 )u n a( 7 )+a( 6 )+a( 5 )+a( 4 )+a( 3 )+a( 2 )+a( 1 ) ( %I 4 )s u m a( a( i ) ,i ,1 ,n ) ; n = = = = \ ( %O 4 ) >a( i ) / = = = = i=1 ( %I 5 )s u m a( 2î+i^2 ,i ,0 ,n ) ; n = = = = \I2 ( %O 5 ) >( 2+i ) / = = = = i=0 ( %I 6 )s u m a( 2î+i^2 ,i ,0 ,n ) ,s i m p s u m ; 32 n+1n+2n+3n ( %O 6 )2+-1 6 ( %I 7 )s u m a( 1 / 3î ,i ,1 ,i n f ) ; i n f = = = = \1 ( %O 7 ) >/I = = = =3 i=1 ( %I 8 )s u m a( 1 / 3î ,i ,1 ,i n f ) ,s i m p s u m ; 1 ( %O 8 )2 ( %I 9 )s u m a( i^2 ,i ,1 ,4 )*s u m a( 1 / 2î ,i ,1 ,i n f ) ; i n f = = = = \1 ( %O 9 )3 0 >/2 = = = =I i=1 ( %I 1 0 )s u m a( i^2 ,i ,1 ,4 )*s u m a( 1 / 2î ,i ,1 ,i n f ) ,s i m p s u m ; 2
263/633
28/08/13

( %O 1 0 )5 %p i ( %I 1 1 )s u m a( i n t e g r a r( x^k ,x ,0 ,1 ) ,k ,1 ,n ) ; n = = = = \1 ( %O 1 1 ) >/K+1 = = = = k=1 ( %I 1 2 )s u m a( s ik< =5ac o n t i n u a c i n ,u n ap e r s o n ab^k^k ,k ,1 ,1 0 ) ; 1 098765432 ( %O 1 2 )b+b+b+b+b+a+a+a+a+a
F u n c i n :s u m c o n t r a c t( e x p r ) C o m b i n at o d o sl o ss u m a t o r i o sd eu n as u m ac u y o sl m i t e ss u p e r i o rei n f e r i o r q u ed i f i e r e np o rc o n s t a n t e s .E lr e s u l t a d oe su n ae x p r e s i nq u ec o n t i e n e u n as u m ap a r ac a d ac o n j u n t od et a l e ss u m a sa a d eat o d o sl o s t r m i n o sa d i c i o n a l e sa p r o p i a d a sq u et u v i e r o nq u es e re x t r a d o sp a r af o r m a re s t as u m a . ` S u m c o n t r a c t' c o m b i n at o d a sl a sc a n t i d a d e sc o m p a t i b l e syu t i l i z au n od el o s n d i c e sd eu n od el o ss u m a t o r i o ss ip u e d e ,yl u e g ot r a t a rd ef o r m a ru n n d i c er a z o n a b l es in os ep u e d eu t i l i z a rc u a l q u i e rs u m i n i s t r a . P u e d es e rn e c e s a r i oh a c e ru n` i n t o s u m( e x p r )' a n t e sd el a ` S u m c o n t r a c t' .
V a r i a b l eo p c i o n a l :s u m e x p a n d V a l o rp o rd e f e c t o :f a l s e' C u a n d o` s u m e x p a n d' e s `t r u e ' ,p r o d u c t o sd es u m a sye x p o n e n c i a d a s u m a ss er e d u c e nas u m a t o r i o sa n i d a d o s . C o n s u l t et a m b i n` c a u c h y s u m' . E j e m p l o s : ( %I 1 )s u m e x p a n d :t r u e$ ( %I 2 )s u m a( f( i ) ,i ,0 ,m )*s u m a( g( j ) ,j ,0 ,n ) ; M i n n e s o t a = = = = = = = = \\ ( %O 2 )> >f( i 1 )g( i 2 ) // = = = = = = = = i 1=0i 2=0 ( %I 3 )s u m a( f( i ) ,i ,0 ,m )^2 ; m m = = = = = = = = \\ ( %O 3 )> >f( i 3 )f( i 4 ) // = = = = = = = = i 3i 4=0=0
28.2 Introduccin a la Serie

M a x i m ac o n t i e n ef u n c i o n e s' t a y l o r 'y` P o w e r S e r i e s' p a r ae n c o n t r a rl a s e r i ed ef u n c i o n e sd i f e r e n c i a b l e s .T a m b i nc u e n t ac o nh e r r a m i e n t a sc o m o` n u s u m' c a p a zd ee n c o n t r a rl ae x p r e s i nc o m p a c t ad ea l g u n a ss e r i e s .L a so p e r a c i o n e sc o m o s u m ayl am u l t i p l i c a c i nt r a b a j oc o m od ec o s t u m b r ee nl as e r i e .E ne s t as e c c i n p r e s e n t al a sv a r i a b l e sg l o b a l e sq u ec o n t r o l a nl ae x p a n s i n .
28.3 Funciones y variables para las series

V a r i a b l eo p c i o n a l :c a u c h y s u m V a l o rp o rd e f e c t o :f a l s e' C u a n d os em u l t i p l i c a ns u m a t o r i o sc o n' i n f 'c o m os ul m i t es u p e r i o r ,s i ` S u m e x p a n d' e s `t r u e 'y' c a u c h y s u m 'e s` t r u e' ,e n t o n c e sl aC a u c h y p r o d u c t os e r u t i l i z a d oe nl u g a rd e lp r o d u c t oh a b i t u a l .E nl ad e s i g u a l d a dd eC a u c h y p r o d u c t oe l n d i c ed e ls u m a t o r i oi n t e r i o re su n af u n c i nd el a n d i c ed el ae x t e r i o re nl u g a rd ev a r i a ri n d e p e n d i e n t e m e n t e . E j e m p l o : ( %I 1 )s u m e x p a n d :f a l s e$ ( %I 2 )c a u c h y s u m :f a l s e$ ( %I 3 )s :s u m a( f( i ) ,i ,0 ,i n f )*s u m( g( j ) ,j ,0 ,i n f ) ; i n fi n f = = = = = = = = \\ ( %O 3 )( >f( i ) ) >g( j ) // = = = = = = = = i=0j=0
264/633
28/08/13

( %I 4 )s u m e x p a n d :t r u e$ ( %I 5 )c a u c h y s u m :t r u e$ ( %I 6 ) ' 's ; i n fi 1 = = = = = = = = \\ ( %O 6 )> >g( i 1-i 2 )f( i 2 ) // = = = = = = = = i 1=0i 2=0
F u n c i n :d e f t a y l o r( < f _ 1 >( < x _ 1 > ) ,< e x p r _ 1 > ,. . . ,< f _ n >( < x _ n > ) ,< e x p r _ n > ) P a r ac a d a< f _ i >f u n c i nd eu n a< x _ i >v a r i a b l e` d e f t a y l o r' d e f i n e < e x p r _ i >c o m ol as e r i ed eT a y l o ra l r e d e d o rd ec e r o .< e x p r _ i >e st p i c a m e n t eu n p o l i n o m i oe n< x _ i >ou n as u m a ;e x p r e s i o n e sm sg e n e r a l e ss o n a c e p t a d op o r` d e f t a y l o r' s i nq u e j a r s e . ` P o w e r S e r i e s( < f _ i >( < x _ i > ) ,< x _ i > ,0 )' d e v u e l v el as e r i ed e f i n i d a p o r` d e f t a y l o r' . ` D e f t a y l o r' d e v u e l v eu n al i s t ad el o s< f _ 1 >f u n c i o n e s ,. . . ,< f _ n > . ` D e f t a y l o r' e v a l as u sa r g u m e n t o s . E j e m p l o : ( %I 1 )d e f t a y l o r( f( x ) ,x^2+s u m( xî/( 2î*i^2 ) ,i ,4 ,i n f ) ! ) ; ( %O 1 )[ f ] ( %I 2 )P o w e r S e r i e s( f( x ) ,x ,0 ) ; i n f = = = =I 1 \X2 ( %O 2 ) >-+x /I 12 = = = =2i 1 ! i 1=4 ( %I 3 )t a y l o r( e x p( s q r t( f( x ) ) ) ,x ,0 ,4 ) ; 234 x3 0 7 3x1 2 8 1 7x ( %O 3 )/T/1+x+-+-+-+ ... 21 8 4 3 23 0 7 2 0 0
V a r i a b l eo p c i o n a l :m a x t a y o r d e r V a l o rp o rd e f e c t o :t r u e' C u a n d o` m a x t a y o r d e r' e s `t r u e ' ,e n t o n c e sd u r a n t el am a n i p u l a c i na l g e b r a i c a d es e r i e s( t r u n c a d a s )d eT a y l o r ,' t a y l o r 't r a t ad er e t e n e rl am a y o rc a n t i d a d t r m i n o sc o m os o nc o n o c i d o sp o rs e rc o r r e c t a .
F u n c i n :n i c e i n d i c e s( e x p r ) C a m b i ae ln o m b r ed el o s n d i c e sd es u m a syp r o d u c t o sd ee x p r .` N i c e i n d i c e s' l o si n t e n t o sd ec a m b i a re ln o m b r ed ec a d a n d i c ep a r ae lv a l o rd e ` V a r i a b l en i c e i n d i c e s p r e f[ 1 ] " ,am e n o sq u ee ln o m b r ea p a r e c ee ne ls u m a n d oo m u l t i p l i c a n d o ,e nc u y oc a s o` n i c e i n d i c e s' i n t e n t ae l x i t o e l e m e n t o sd el av a r i a b l en i c e i n d i c e s p r e f` ' as uv e z ,h a s t aq u eu n av a r i a b l en ou t i l i z a d ae s e n c o n t r a d a .S is ea g o t al al i s t ac o m p l e t a , n d i c e sa d i c i o n a l e s s ec o n s t r u y e na a d i e n d on m e r o se n t e r o sc o ne lv a l o rd e ` V a r i a b l en i c e i n d i c e s p r e f[ 1 ] " ,p o re j e m p l o ,' i 0 ' ,' i 1 ' ,' i 2 ' ,. . . ` N i c e i n d i c e s' d e v u e l v eu n ae x p r e s i n .` N i c e i n d i c e s' e v a l as u a r g u m e n t o . E j e m p l o : ( %I 1 )v a r i a b l en i c e i n d i c e s p r e f ; ( %O 1 )[ i ,j ,k ,l ,m ,n ] ( %I 2 )p r o d u c t o( s u m a( f( f o o+i*j*b a r ) ,f o o ,1 ,i n f ) ,b a r ,1 ,i n f ) ; i n fi n f /= = =\= = = = !!\ ( %O 2 ) !!>F( b a ri j+f o o ) !!/ b a r=1= = = = f o o=1 ( %I 3 )n i c e i n d i c e s( % ) ; i n fi n f /= = =\= = = = !!\ ( %O 3 ) !!>F( i j l+k ) !!/ l=1= = = = k=1
V a r i a b l eo p c i o n a l :v a r i a b l en i c e i n d i c e s p r e f
265/633
28/08/13

V a l o rp o rd e f e c t o :[ i ,j ,k ,l ,m ,n ]' ` V a r i a b l en i c e i n d i c e s p r e f' e sl al i s t ad el aq u e `n i c e i n d i c e s 't o m al a L o sn o m b r e sd el o s n d i c e sd es u m a syp r o d u c t o s . L o se l e m e n t o sd el av a r i a b l en i c e i n d i c e s p r e f` ' s o nt p i c a m e n t el o sn o m b r e sd el a sv a r i a b l e s , ap e s a rd eq u en oe s t f o r z a d ap o r` n i c e i n d i c e s . E j e m p l o : ( %I 1 )v a r i a b l en i c e i n d i c e s p r e f :[ p ,q ,r ,s ,t ,u ]$ ( %I 2 )p r o d u c t o( s u m a( f( f o o+i*j*b a r ) ,f o o ,1 ,i n f ) ,b a r ,1 ,i n f ) ; i n fi n f /= = =\= = = = !!\ ( %O 2 ) !!>F( b a ri j+f o o ) !!/ b a r=1= = = = f o o=1 ( %I 3 )n i c e i n d i c e s( % ) ; i n fi n f /= = =\= = = = !!\ ( %O 3 ) !!>F( I J Q+p ) !!/ q=1= = = = p=1
F u n c i n :n u s u m( e x p r ,< x > , ) R e a l i z al as u m ah i p e r g e o m t r i c ai n d e f i n i d ad ee x p rc o n r e s p e c t oa< x >u t i l i z a n d ou np r o c e d i m i e n t od ed e c i s i nd e b i d oaR WG o s p e r . e x p rye lr e s u l t a d od e b e ns e re s c r i t o sc o m op r o d u c t o sd en m e r oe n t e r o p o d e r e s ,f a c t o r i a l e s ,c o e f i c i e n t e sb i n o m i a l e syf u n c i o n e sr a c i o n a l e s . L o st r m i n o s" d e f i n i t i v a "y" l as u m ai n d e f i n i d a "s eu t i l i z a n a n l o g aal a" d e f i n i t i v a "yl a" i n t e g r a c i ni n d e f i n i d a " .E nr e s u m e n i n d e f i n i d a m e n t em e d i o sp a r ad a ru nr e s u l t a d os i m b l i c op a r al as u m as o b r e i n t e r v a l o sd el o n g i t u dv a r i a b l e ,n os l o ,p o re j e m p l o0ai n f .P o rl ot a n t o ,d e s d e n oe x i s t eu n af r m u l ap a r al as u m ap a r c i a lg e n e r a ld el ab i n o m i a l s e r i e s ,` n u s u m' n op u e d eh a c e r l o . N u s u m` ' y ù n s u m 's a b e nu np o c oa c e r c ad es u m a syd i f e r e n c i a sd e p r o d u c t o sf i n i t o s .C o n s u l t et a m b i n` u n s u m' . E j e m p l o s : ( %I 1 )n u s u m( n*n ,n ,0 ,n ! ) ; E c u a c i o n e sd e p e n d i e n t e se l i m i n a d o s :( 1 ) ( %O 1 )( n+1 ) !-1 ( %I 2 )n u s u m( n^4*4^n/b i n o m i a l( 2*n ,n ) ,n ,0 ,n ) ; 432n 2( n+1 )( n+6 31 1 2+n1 8n-2 2n+3 )42 ( %O 2 )-6 9 3b i n o m i a l( 2n ,n )31 17 ( %I 3 )u n s u m( % ,n ) ; 4n n4 ( %O 3 )b i n o m i a l( 2n ,n ) ( %I 4 )u n s u m( p r o d( i^2 ,i ,1 ,n ) ,n ) ; n-1 /= = =\ !!2 ( %O 4 )( n-1 )( i ! ! )( N+1 ) !! i=1 ( %I 5 )n u s u m( % ,n ,1 ,n ) ; E c u a c i o n e sd e p e n d i e n t e se l i m i n a d o s :( 23 ) n /= = =\ !!2 ( %O 5 ) !!i-1 !! i=1
F u n c i n :P A D E( < t a y l o r _ s e r i e s > ,< n u m e r _ d e g _ b o u n d > ,< d e n o m _ d e g _ b o u n d > ) D e v u e l v eu n al i s t ad et o d a sl a sf u n c i o n e sr a c i o n a l e sq u eh a nd a d ol a D e s a r r o l l oe ns e r i ed eT a y l o rd o n d el as u m ad el o sg r a d o sd el a n u m e r a d o rye ld e n o m i n a d o re sm e n o rq u eoi g u a lal a n i v e ld et r u n c a m i e n t od el as e r i ed ep o t e n c i a s ,e sd e c i r ,s o n" m e j o r e s " a p r o x i m a c i o n e s ,yq u e ,a d e m s ,c u m p l e nc o ne lg r a d oe s p e c i f i c a d o l m i t e s . < t a y l o r _ s e r i e s >e su n as e r i ed eT a y l o ru n i v a r i a n t e .< n u m e r _ d e g _ b o u n d > y< d e n o m _ d e g _ b o u n d >s o nn m e r o se n t e r o sp o s i t i v o sq u ei n d i c a ng r a d o l m i t e se ne ln u m e r a d o rye ld e n o m i n a d o r . < t a y l o r _ s e r i e s >t a m b i np u e d es e ru n as e r i ed eL a u r e n t ,ye lg r a d o
266/633
28/08/13

l m i t e sp u e d e ns e r' i n f ' ,q u eh a c eq u et o d a sl a sf u n c i o n e sr a c i o n a l e sc u y o st o t a l e s g r a d oe sm e n o rq u eoi g u a lal al o n g i t u dd el as e r i ed ep o t e n c i a sd e s e rd e v u e l t o s .G r a d ot o t a ls ed e f i n ec o m o` < n u m e r _ d e g _ b o u n d >+ < d e n o m _ d e g _ b o u n d >' .L o n g i t u dd eu n as e r i ed ep o t e n c i as ed e f i n ec o m o ` "N i v e ld et r u n c a m i e n t o" +1-m i n( 0 , "e lf i nd el as e r i e" ) . ( %I 1 )t a y l o r( 1+x+x^2+x^3 ,x ,0 ,3 ) ; 23 ( %O 1 )/T/1+x+x+x+ ... ( %I 2 )P A D E( % ,1 ,1 ) ; 1 ( %O 2 )[ ] x-1 ( %I 3 )t :t a y l o r( -( 8 3 7 8 7*x^1 0 4 5 5 5 2*x^9 1 8 7 2 9 6*x^8 +3 8 70 7 2*x^7+8 60 1 6*x^6 1 5 0 7 3 2 8*x^5 +1 9 6 6 0 8 0*x^4+x^*4 1 9 4 3 0 43 2 5 1 6 5 8 2 4*x^2 +6 7 1 0 8 8 6 4*x-1 3 4 2 1 7 7 2 8 ) /1 3 4 2 1 7 7 2 8 ,x ,0 ,1 0 ) ; 234567 x3x x1 5x2 3x2 1x1 8 9x ( %O 3 )/T/1-+-+21 63 21 0 2 42 0 4 83 2 7 6 86 5 5 3 6 891 0 5 8 5 3x2 8 4 7x8 37 8 7x +-+-+ ... 4 1 9 4 3 0 48 3 8 8 6 0 81 3 4 2 1 7 7 2 8 ( %I 4 )P A D E( t ,4 ,4 ) ; ( %O 4 )[ ] N oh a yn i n g u n af u n c i nr a c i o n a ld eg r a d o4n u m e r a d o r/d e n o m i n a d o r , c o ne s t ae x p a n s i ne ns e r i ed ep o t e n c i a s .U s t e dd e b e ,e ng e n e r a l ,t e n e ru nt t u l o d e ln u m e r a d o rye lg r a d od e ld e n o m i n a d o rs u m a na m e n o se lg r a d od el as e r i ed ep o t e n c i a s ,c o ne lf i nd et e n e rs u f i c i e n t e c o e f i c i e n t e sd e s c o n o c i d o sp a r ar e s o l v e r . ( %I 5 )P A D E( t ,5 ,5 ) ; 543 ( %O 5 )[ -( 5 2 0 . 2 5 6 . 3 2 9x-x9 6 7 1 9 0 2 0 6 3 2-4 8 9 6 5 1 4 1 0 2 4 0x 2 -1 6 1 9 1 0 0 8 1 3 3 1 2x-x2 1 7 6 8 8 5 1 5 7 8 8 8-2 3 8 6 5 1 6 8 0 3 5 8 4 ) 543 /( 4 7 0 4 1 3 6 5 4 3 5xx+3 8 1 7 0 2 6 1 3 8 4 8+1 3 6 0 6 7 8 4 8 9 1 5 2x 2 +2 8 5 6 7 0 0 6 9 2 4 8 0x+3 3 7 0 1 4 3 5 5 9 6 8 0x+2 3 8 6 5 1 6 8 0 3 5 8 4 ) ]
F u n c i n :P o w e r S e r i e s( e x p r ,< x >< a > ) D e v u e l v el af o r m ag e n e r a ld el ae x p a n s i ne ns e r i ed ep o t e n c i a sd ee x p r e ne l< x >v a r i a b l e ss o b r ee l< a >p u n t o( q u ep u e d es e r' i n f 'p a r a i n f i n i t o ) : i n f = = = = \N >B( x-a ) /N = = = = n=0 S i` P o w e r S e r i e s' n oe s t e nc o n d i c i o n e sd ea m p l i a r< e x p r > , 't a y l o r' p u e d ed a rl a p r i m e r o st r m i n o sd el as e r i e . C u a n d o` v e r b o s e' e s `t r u e ' ,` P o w e r S e r i e s' i m p r i m em e n s a j e sd ep r o g r e s o . ( %I 1 )d e t a l l a d o :t r u e$ ( %I 2 )P o w e r S e r i e s( l o g( s i n( x )/x ) ,x ,0 ) ; n os ep u e d ea m p l i a r r e g i s t r o( s i n( x ) ) a s q u ev a m o sat r a t a rd en u e v od e s p u sd el aa p l i c a c i nd el ar e g l a : d /-( S i n( x ) ) [ D x l o g( s i n( x ) )=i-d x ]S i n( x ) / e nl ap r i m e r as i m p l i f i c a c i nh e m o sv u e l t o : / [ ic o t( x )d x-l o g( x ) ] / i n f = = = =2i 1i 1i 12 \( -1 )2b e r n a( 2i 1 )x >/I 1( 2i 1 ) ! = = = = i 1=1 ( %O 2 )2
267/633
28/08/13
V a r i a b l eo p c i o n a l :p s e x p a n d V a l o rp o rd e f e c t o :f a l s e'
C u a n d o` p s e x p a n d' e s `t r u e ' ,u n af u n c i nr a c i o n a la m p l i a d a e x p r e s i ns em u e s t r ac o m p l e t a m e n t ee x p a n d i d a .E li n t e r r u p t o r` r a t e x p a n d' t i e n ee lm i s m oe f e c t o . C u a n d o` p s e x p a n d' e s 'f a l s e' ,s em u e s t r au n ae x p r e s i nm u l t i v a r i a n t e a li g u a lq u ee ne lp a q u e t ed ef u n c i o n e sr a c i o n a l e s . C u a n d o` p s e x p a n d' e s `m l t i p l e s ' ,e n t o n c e sl o st r m i n o sc o ne lm i s m og r a d ot o t a l e nl a sv a r i a b l e ss ea g r u p a n .
F u n c i n :v o l v e r( e x p r ,< x > ) F u n c i n :r e v e r t 2( e x p r ,< x >< n > ) E s t a sf u n c i o n e sd e v u e l v e nl ar e v e r s i nd ee x p r ,u n as e r i ed eT a y l o r a l r e d e d o rd ec e r oe ne l< x >v a r i a b l e .' R e v e r t i r 'd e v u e l v eu np o l i n o m i od e g r a d oi g u a lal ap o t e n c i am sa l t ad ee x p r .` R e v e r t 2' d e v u e l v eu n p o l i n o m i od eg r a d o< n > ,q u ep u e d es e rm a y o rq u e ,i g u a la ,o m e n o rq u ee lg r a d od e< e x p r > . L o a d( " r e v e r t i r " )' c a r g a se s a sf u n c i o n e s . E j e m p l o s : ( %I 1 )l o a d( " r e v e r t i r " )$ ( %I 2 )t :t a y l o r( e x p( x )-1 ,x ,0 ,6 ) ; 23456 x x x x x ( %O 2 )/T/x+-+-+-+-+-+ ... 262 41 2 07 2 0 ( %I 3 )v o l v e r( t ,x ) ; 65432 1 0x-1 2x+1 5x-2 0x+3 0x-6 0x ( %O 3 )/R/-6 0 ( %I 4 )r a t e x p a n d( % ) ; 65432 x x x x x ( %O 4 )-+-+-+x 65432 ( %I 5 )t a y l o r( l o g( x1 ) ,x ,0 ,6 ) ; 23456 x x x x x ( %O 5 )/T/x-+-+-+ ... 23456 ( %I 6 )r a t s i m p( r e v e r t i r( t ,x )-T a y l o r( l o g( x1 ) ,x ,0 ,6 ) ) ; ( %O 6 )0 ( %I 7 )r e v e r t 2( t ,x ,4 ) ; 432 x x x ( %O 7 )-+-+x 432
F u n c i n :t a y l o r( e x p r ,< x >< a >< n > ) F u n c i n :t a y l o r( e x p r ,[ < x _ 1 > ,< x _ 2 > ,. . . ] ,< a >< n > ) F u n c i n :t a y l o r( e x p r ,[ < x >< a > ,< n >' a s y m p ] ) F u n c i n :t a y l o r( e x p r ,[ < x _ 1 > ,< x _ 2 > ,. . . ] ,[ < a _ 1 > ,< a _ 2 > ,. . . ] ,[ < n _ 1 > ,< n _ 2 > ,. . . ] ) F u n c i n :t a y l o r( e x p r ,[ < x _ 1 > ,< a _ 1 > ,< n _ 1 > ] ,[ < x _ 2 > ,< a _ 2 > ,< n _ 2 > ] ,. . . ) ` T a y l o r( e x p r ,< x >< a >< n > ) "s ea m p l i a r l a< e x p r >e x p r e s i ne n u n as e r i et r u n c a d ad eT a y l o rod eL a u r e n te ne l< x >v a r i a b l ed ea l r e d e d o rd e e l< a >p u n t o ,q u ec o n t i e n et r m i n o sat r a v sd e` ( < x >-< a > )^< n >' . S ie x p re sd el af o r m a` < f >( < x > )/< g >( < x > )' y `< g >( < x > )" n ot i e n e p l a z o sd eh a s t a< n >g r a d oe n t o n c e s` T a y l o ri n t e n t o sd ea m p l i a r `< g >( < x > )' h a s t ag r a d o2< n >` ' .S ia nn oh a yt r m i n o sn on u l o s , ` T a y l o rd o b l ae lg r a d od e ld e s a r r o l l od e l `< g >( < x > )' t a n t ot i e m p o c o m oe lg r a d od el ae x p a n s i ne sm e n o rq u eoi g u a la` < n > 2^t a y l o r d e p t h' . ` T a y l o r( e x p r ,[ < x _ 1 > ,< x _ 2 > ,. . . ] ,< a >< n > )' d e v u e l v eu n t r u n c a d as e r i ed ep o t e n c i a sd e< n >g r a d oe nt o d a sl a sv a r i a b l e s< x _ 1 > , < x _ 2 > ,. . .s o b r ee lp u n t o` ( < a >< a > ,. . . ) . ` T a y l o r( e x p r ,[ < x _ 1 > ,< a _ 1 > ,< n _ 1 > ] ,[ < x _ 2 > ,< a _ 2 > ,< n _ 2 > ] , . . . )' D e v u e l v el as e r i ee np o t e n c i a st r u n c a d ae ne l< x _ 1 >v a r i a b l e s < x _ 2 > ,. . .s o b r ee lp u n t o` ( < a _ 1 > ,< a _ 2 > ,. . . ) " ,t r u n c a d ae n < n _ 1 > ,< n _ 2 > ,. . . ` T a y l o r( e x p r ,[ < x _ 1 > ,< x _ 2 > ,. . . ] ,[ < a _ 1 > ,< a _ 2 > ,. . . ] ,[ < n _ 1 > , < n _ 2 > ,. . . ] )' d e v u e l v el as e r i ee np o t e n c i a st r u n c a d ae nl a sv a r i a b l e s < x _ 1 > ,< x _ 2 > ,. . .s o b r ee lp u n t o` ( < a _ 1 > ,< a _ 2 > ,. . . ) " ,t r u n c a d a e n< n _ 1 > ,< n _ 2 > ,. . . ` T a y l o r( e x p r ,[ < x >< a > ,< n >' a s y m p ] ) 'd e v u e l v eu n ae x p a n s i nd e < e x p r >e np o t e n c i a sn e g a t i v a sd e` < x >-< a >' .E lt r m i n od em a y o ro r d e n e s` ( < x >-< a > )^< n >' . C u a n d o` m a x t a y o r d e r' e s `t r u e ' ,e n t o n c e sd u r a n t el am a n i p u l a c i na l g e b r a i c a
268/633
28/08/13

d es e r i e s( t r u n c a d a s )d eT a y l o r ,' t a y l o r 't r a t ad er e t e n e rl am a y o rc a n t i d a d t r m i n o sc o m os o nc o n o c i d o sp o rs e rc o r r e c t a . C u a n d o` p s e x p a n d' e s `t r u e ' ,u n af u n c i nr a c i o n a la m p l i a d a e x p r e s i ns em u e s t r ac o m p l e t a m e n t ee x p a n d i d a .E li n t e r r u p t o r` r a t e x p a n d' t i e n ee lm i s m oe f e c t o .C u a n d o` p s e x p a n d' e s 'f a l s e' ,u nm u l t i v a r i a n t e e x p r e s i ns em u e s t r ac o m oe ne lp a q u e t ed ef u n c i o n e sr a c i o n a l e s . C u a n d o` p s e x p a n d' e s `m l t i p l e s ' ,e n t o n c e sl o st r m i n o sc o ne lm i s m og r a d ot o t a l e nl a sv a r i a b l e ss ea g r u p a n . V a s et a m b i nl av a r i a b l e` t a y l o r _ l o g e x p a n d' p a r ae lc o n t r o ld el ae x p a n s i n . E j e m p l o s : ( %I 1 )t a y l o r( s q r t( s i n( x )+a*x+1 ) ,x ,0 ,3 ) ; 22 ( A+1 )x( a+2a+1 )x ( %O 1 )/T/1+28 323 ( 3a+a+99a-1 )x +-+ ... 4 8 ( %I 2 ) %^2 ; 3 x ( %O 2 )/T/1+( a+1 )x-+ ... 6 ( %I 3 )t a y l o r( s q r t( x+1 ) ,x ,0 ,5 ) ; 2345 x x x5x7x ( %O 3 )/T/1+-+-+-+ ... 281 61 2 82 5 6 ( %I 4 ) %^2 ; ( %O 4 )/T/1+x+ ... ( %I 5 )p r o d u c t o( ( 1+xî )^2 . 5 ,i ,1 ,i n f )/( 1+x^2 ) ; i n f /= = =\ !!i2 . 5 !!( X+1 ) !! i=1 ( %O 5 )2 x+1 ( %I 6 )E V( T a y l o r( % ,x ,0 ,3 ) ,k e e p f l o a t ) ; 23 ( %O 6 )/T/1+2 , 5x+3 , 3 7 5x+6 , 5 6 2 5x+ ... ( %I 7 )t a y l o r( 1 / l o g( x+1 ) ,x ,0 ,3 ) ; 23 11x x1 9x ( %O 7 )/T/-+-+-+ ... x21 22 47 2 0 ( %I 8 )t a y l o r( c o s( x )-s( x ) ,x ,0 ,5 ) ; 4 2x ( %O 8 )/T/-x-+ ... 6 ( %I 9 )t a y l o r( ( c o s( x )-s( x ) )^3 ,x ,0 ,5 ) ; ( %O 9 )/T/0+ ... ( %I 1 0 )t a y l o r( 1/( c o s( x )-s( x ) )^3 ,x ,0 ,5 ) ; 24 111 13 4 76 7 6 7x1 5 3 7 7x ( %O 1 0 )/T/-+-+6421 51 2 06 0 48 0 07 , 9 8 3 , 3 6 0 x2x1 2 0x + ... ( %I 1 1 )t a y l o r( s q r t( 1-k^2*s e n( x )^2 ) ,x ,0 ,6 ) ; 22424 k x( 3k-4k )x ( %O 1 1 )/T/122 4 6426 ( 4 5k-6 0k+1 6k )x -+ ... 7 2 0 ( %I 1 2 )t a y l o r( ( x+1 )^n ,x ,0 ,4 ) ; 22323 ( N-n )x( n-3n+2n )x ( %O 1 2 )/T/1+n x+-+26 4234 ( N-6n+1 1N-6N )x +-+ ... 2 4 ( %I 1 3 )t a y l o r( s e n( y+x ) ,x ,0 ,3 ,y ,0 ,3 ) ; 32 y y ( %O 1 3 )/T/a o-+ ...+( 1+-. . . )x 62 32 y y21y3
269/633
28/08/13

+( -+-+. . . )X+( -+-+. . . )x+ ... 21 261 2 ( %I 1 4 )t a y l o r( s e n( y+x ) ,[ x ,y ] ,0 ,3 ) ; 3223 x+3+3y xy x+y ( %O 1 4 )/T/a ox+-+ ... 6 ( %I 1 5 )t a y l o r( 1 / s i n( y+x ) ,x ,0 ,3 ,y ,0 ,3 ) ; 1y1112 ( %O 1 5 )/T/-+-+ ...+( -+-+. . . )X+( -+. . . )x y6263 y y 13 +( -+. . . )X+ ... 4 y ( %I 1 6 )t a y l o r( 1 / s i n( y+x ) ,[ x ,y ] ,0 ,3 ) ; 3223 1x+y+7x2 1y x+2 1y x+y7 ( %O 1 6 )/T/-+-+-+ ... x+y63 6 0
V a r i a b l eo p c i o n a l :t a y l o r d e p t h V a l o rp o rd e f e c t o :3 S ia nn oh a yt r m i n o sn on u l o s ,t a y l o r` ' d u p l i c ae lg r a d o d el ae x p a n s i nd e l` < g >( < x > ) "s i e m p r eyc u a n d oe lg r a d od el a e x p a n s i ne sm e n o rq u eoi g u a la` < n >2^t a y l o r d e p t h' .
F u n c i n :t a y l o r i n f o( e x p r ) D e v u e l v ei n f o r m a c i ns o b r el as e r i ed eT a y l o re x p r .E lr e g r e s o v a l o re su n al i s t ad el i s t a s .C a d al i s t ac o n t i e n ee ln o m b r ed eu n v a r i a b l e ,e lp u n t od ee x p a n s i n ,ye lg r a d od el ae x p a n s i n . ` T a y l o r i n f o' d e v u e l v e 'f a l s e' s ie x p rn oe su nd e s a r r o l l od eT a y l o r . E j e m p l o : ( %I 1 )t a y l o r( ( 1-y^2 )/( 1-x ) ,x ,0 ,3 ,[ Y ,A ,i n f ] ) ; 22 ( %O 1 )/T/-( a-a )-2A( y-a )+( 1-a ) 22 +( 1-a-2u n( a-a )-( y-a ) )x 222 +( 1-a-2u n( a-a )-( y-a ) )x 223 +( 1-a-2u n( a-a )-( y-a ) )x+ ... ( %I 2 )t a y l o r i n f o( % ) ; ( %O 2 )[ [ y ,a ,i n f ] ,[ x ,0 ,3 ] ]
F u n c i n :t a y l o r p( e x p r ) D e v u e l v e` t r u e' s ie x p re su n as e r i ed eT a y l o r ,y `f a l s e 'e nc a s oc o n t r a r i o .
V a r i a b l eo p c i o n a l :t a y l o r _ l o g e x p a n d V a l o rp o rd e f e c t o :t r u e' ` T a y l o r _ l o g e x p a n d' c o n t r o l al o sd e s a r r o l l o sd el o g a r i t m o se n 't a y l o r' s e r i e . C u a n d o` t a y l o r _ l o g e x p a n d' e s `t r u e ' ,t o d o sl o sl o g a r i t m o ss ee x p a n d e n p l e n a m e n t ep a r aq u el o sp r o b l e m a sd er e c o n o c i m i e n t od ec e r oi m p l i c a nl o g a r t m i c a i d e n t i d a d e sn op e r t u r b a ne lp r o c e s od ee x p a n s i n .S i ne m b a r g o ,e s t e s i s t e m an os i e m p r ee sd e lt o d oc o r r e c t oq u ei g n o r a i n f o r m a c i ns o b r el as u c u r s a l . C u a n d o` t a y l o r _ l o g e x p a n d' e s t a j u s t a d oa 'f a l s e' ,e n t o n c e sl a n i c ae x p a n s i n d el o sl o g a r i t m o sq u es ep r o d u c e ne sl an e c e s a r i ap a r ao b t e n e ru n af o r m a l e s s e r i ed ep o t e n c i a s .
V a r i a b l eo p c i o n a l :t a y l o r _ o r d e r _ c o e f f i c i e n t s V a l o rp o rd e f e c t o :t r u e' ` T a y l o r _ o r d e r _ c o e f f i c i e n t s' c o n t r o l ae lo r d e nd el o sc o e f i c i e n t e s e ns e r i ed eT a y l o r . C u a n d o` t a y l o r _ o r d e r _ c o e f f i c i e n t s' e s `t r u e ' ,c o e f i c i e n t e sd et a y l o r
270/633
28/08/13
s e r i e ss eo r d e n a nc a n n i c a m e n t e .
F u n c i n :t a y l o r _ s i m p l i f i e r( e x p r ) S i m p l i f i c al o sc o e f i c i e n t e sd el as e r i e< e x p r >p o d e r .' T a y l o r ' l l a m aae s t af u n c i n .
V a r i a b l eo p c i o n a l :t a y l o r _ t r u n c a t e _ p o l y n o m i a l s V a l o rp o rd e f e c t o :t r u e' C u a n d o` t a y l o r _ t r u n c a t e _ p o l y n o m i a l s' e s `t r u e ' ,p o l i n o m i o ss o n t r u n c a d o se nb a s eal o sn i v e l e sd et r u n c a m i e n t od ee n t r a d a . D el oc o n t r a r i o ,l o sp o l i n o m i o sd ee n t r a d aa' t a y l o r 's ec o n s i d e r aq u et i e n e n i n f i n i t ap r e c i s o n .
F u n c i n :t a y t o r a t( e x p r ) C o n v i e r t ee x p rd el af o r m a` t a y l o r' as uf o r m ac a n n i c a ( C R E ) .E le f e c t oe se lm i s m oq u e` r a t a( r a t d i s r e p( < e x p r > ) )' , p e r om sr p i d o .
F u n c i n :t r u n c( e x p r ) A n o t al ar e p r e s e n t a c i ni n t e r n ad el ae x p r e s i ng e n e r a l < e x p r >m a n e r aq u es em u e s t r ac o m os is et r u n c a ns u ss u m a s S e r i ed eT a y l o r .< e x p r >n os em o d i f i c ad eo t r am a n e r a . E j e m p l o : ( %I 1 )e x p r :x^2+x+1 ; 2 ( %O 1 )x+x+1 ( %I 2 )t r u n c( e x p r ) ; 2 ( %O 2 )1+x+x+ ... ( %I 3 )e s( e x p r=t r u n c( e x p r ) ) ; ( %O 3 )t r u e
F u n c i n :u n s u m( < f > ,< n > ) D e v u e l v el ap r i m e r ad i f e r e n c i ah a c i aa t r s` < f >( < n > )-< f >( < n >-1 )' . A s ` u n s u m' e nu ns e n t i d oe sl ai n v e r s ad e 's u m a' . C o n s u l t et a m b i n` n u s u m' . E j e m p l o s : ( %I 1 )g( t ) :=p*4^n/b i n o m i a l( 2*n ,n ) ; n p4 ( %O 1 )g( t ) :=b i n o m i a l( 2n ,n ) ( %I 2 )g( n^4 ) ; 4n n4 ( %O 2 )b i n o m i a l( 2n ,n ) ( %I 3 )n u s u m( % ,n ,0 ,n ) ; 432n 2( n+1 )( n+6 31 1 2+n1 8n-2 2n+3 )42 ( %O 3 )-6 9 3b i n o m i a l( 2n ,n )31 17 ( %I 4 )u n s u m( % ,n ) ; 4n n4 ( %O 4 )b i n o m i a l( 2n ,n )
V a r i a b l eo p c i o n a l :v e r b o s a V a l o rp o rd e f e c t o :f a l s e' C u a n d o` v e r b o s e' e s `t r u e ' ,` P o w e r S e r i e s' i m p r i m em e n s a j e sd ep r o g r e s o .
28.4 series de Poisson

F u n c i n :i n t o p o i s( < a > )
271/633
28/08/13

C o n v i e r t e< a >e nu n ac o d i f i c a c i nd eP o i s s o n .
F u n c i n :o u t o f p o i s( < a > ) C o n v i e r t e< a >d ec o d i f i c a c i nd eP o i s s o nau n ar e p r e s e n t a c i ng e n e r a l .S i < a >n oe s t e nf o r m aP o i s s o n ,` o u t o f p o i s' l l e v aac a b ol ac o n v e r s i n , e sd e c i r ,e lv a l o rd er e t o r n oe s` o u t o f p o i s( i n t o p o i s( < a > ) )' .E s t e f u n c i ne su ns i m p l i f i c a d o rc a n n i c op a r as u m a sd ep o t e n c i a sd es e n o s yc o s e n ot r m i n o sd eu nt i p op a r t i c u l a r .
F u n c i n :p o i s d i f f( < a > ) D i f e r e n c i a< a >r e s p e c t oa .d e b eo c u r r i rs l oe ne l a r g u m e n t o st r i g o n o m t r i c o sos l oe nl o sc o e f i c i e n t e s .
F u n c i n :p o i s e x p t( < a > ) F u n c i o n a l m e n t ei d n t i c oa l` i n t o p o i s( < a >^ ) .d e b es e ru n e n t e r op o s i t i v o .
F u n c i n :p o i s i n t( < a > ) S ei n t e g r ae nu ns e n t i d os i m i l a rr e s t r i n g i d o( a` p o i s d i f f' ) . T r m i n o sn op e r i d i c a se ns ee l i m i n a ns ie s t e ne lt r i g a r g u m e n t o s .
V a r i a b l eo p c i o n a l :v a r i a b l ep o i s l i m V a l o rp o rd e f e c t o :5 ` V a r i a b l ep o i s l i m' d e t e r m i n ae ld o m i n i od el o sc o e f i c i e n t e se ne l a r g u m e n t o sd el a sf u n c i o n e st r i g o n o m t r i c a s .E lv a l o ri n i c i a ld e5 c o r r e s p o n d ea li n t e r v a l o[ 2^( 5 1 )+ 1 , 2^( 5 1 ) ] ,o[ 1 5 , 1 6 ] ,p e r o q u es ep u e d ec o n f i g u r a rp a r a[ 2^( n 1 )1 ,2^( n 1 ) ] .
F u n c i n :p o i s m a p( < s e r i e s > ,< s i n f n > ,< c o s f n > ) t r a z a r u nm a p ad el a< s i n f n >f u n c i o n e se nl o st r m i n o ss i n u s o i d a l e sy< c o s f n >e nl a t r m i n o sc o s e n od el as e r i ed eP o i s s o nd a d o .< s i n f n >y< c o s f n >s o n f u n c i o n e sd ed o sa r g u m e n t o sq u es o nu nc o e f i c i e n t eyu n p a r t et r i g o n o m t r i c ad eu nt r m i n oe ns e r i er e s p e c t i v a m e n t e .
F u n c i n :p o i s p l u s( < a > ) E sf u n c i o n a l m e n t ei d n t i c oa l` i n t o p o i s( a+b )' .
F u n c i n :p o i s s i m p( < a > ) C o n v i e r t e< a >e nu n as e r i ed eP o i s s o np a r a< a >e ng e n e r a l r e p r e s e n t a c i n .
S m b o l oe s p e c i a l :p o i s s o n E ls m b o l o` /P/' s i g u eal ae t i q u e t ad el al n e ad el as e r i ed eP o i s s o n e x p r e s i o n e s .
F u n c i n :p o i s s u b s t( < a > ,< c > ) S u p l e n t e s< A >e n< c > .< c >e su n as e r i ed eP o i s s o n . ( 1 )C u a n d oe su nv a r i a b l e< v > ,< w > ,< x >< y >o< z > ,ac o n t i n u a c i n , < a >d e b es e ru n ae x p r e s i nl i n e a le ne s a sv a r i a b l e s( p o re j e m p l o ,` 6*u+ 4*v' ) . ( 2 )C u a n d oe sd i s t i n t od ee s a sv a r i a b l e s ,e n t o n c e s< a >d e b es e rt a m b i n l i b r ed ee s a sv a r i a b l e s ,ya d e m s ,n is e n o s ,n ic o s e n o s . ` P o i s s u b s t( < a > ,< c > ,< d > ,< n > )' e su nt i p oe s p e c i a ld e s u s t i t u c i nq u eo p e r ae n< a >yc o m oe ne lt i p o( 1 )a n t e r i o r , p e r od o n d e< d >e su n as e r i ed eP o i s s o n ,s ee x p a n d e` c o s( < d > )' y ` P e c a d o( < d > )' p a r ao r d e n a r< n >af i nd ep r o p o r c i o n a re lr e s u l t a d od es u s t i t u i r
272/633
28/08/13

` < a >+< d >' P a r a< c > .L ai d e ae sq u e< d >e su n ae x p a n s i n e nt r m i n o sd eu np a r m e t r op e q u e o .P o re j e m p l o ,` p o i s s u b s t( u ,v , c o s( v ) , %e ,3 )' r e n d i m i e n t o s` c o s( u )*( 1%e^ 2 / 2 )-s i n( u )*( %e%E^3 / 6 ) .
F u n c i n :p o i s t i m e s( < a > ) E sf u n c i o n a l m e n t ei d n t i c oa l` i n t o p o i s( < a >* ) .
F u n c i n :p o i s t r i m( ) e su nn o m b r ed ef u n c i nr e s e r v a d aq u e( s ie lu s u a r i ol oh ad e f i n i d o ) c o n s i g u ea p l i c a d ad u r a n t el am u l t i p l i c a c i nd eP o i s s o n .E su np r e d i c a d o f u n c i nd e6a r g u m e n t o sq u es o nl o sc o e f i c i e n t e sd el a , < v > ,. . . ,< z >e nu np l a z o .C o n d i c i o n e sp a r al aq u e` p o i s t r i m' e s `t r u e ' ( P a r al o sc o e f i c i e n t e sd ee s et r m i n o )s o ne l i m i n a d o sd u r a n t e m u l t i p l i c a c i n .
F u n c i n :p r i n t p o i s( < a > ) I m p r i m eu n as e r i ed eP o i s s o ne nu nf o r m a t ol e g i b l e .E nc o m nc o nl o s ` O u t o f p o i s' ,s ec o n v e r t i r e nu n ac o d i f i c a c i n< a >P o i s s o np r i m e r o ,s i n e c e s a r i o .
29 Teora de Nmeros
F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s
29.1 Funciones y variables para teora de nmeros

F u n c i n :b e r n a( < n > ) D e v u e l v ee l< n > s i m on m e r od eB e r n o u l l ip a r a< n >e n t e r o .B e r n o u l l i u nn m e r oi g u a lac e r os es u p r i m e ns i` z e r o b e r n' e s 'f a l s e' . V a s et a m b i n' q u e m a r ' . ( %I 1 )z e r o b e r n :t r u e$ ( %I 2 )m a p a( B e r n a ,[ 0 ,1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ] ) ; 11111 ( %O 2 )[ 1 ,,,0 ,,0 ,,0 ,] 263 04 23 0 ( %I 3 )z e r o b e r n :f a l s e$ ( %I 4 )m a p a( B e r n a ,[ 0 ,1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ] ) ; 11156 9 13 6 1 774 3 8 6 7 ( %O 4 )[ 1 ,,,,,,,,] 263 06 627 3 065 1 07 9 8
F u n c i n :b e r n p o l y( < x >< n > ) D e v u e l v ee l< n >' t hB e r n o u l l ip o l i n o m i oe ne l< x >v a r i a b l e .
F u n c i n :b f z e t a( < S > ,< n > ) D e v u e l v el af u n c i nz e t ad eR i e m a n np a r al a< S >a r g u m e n t o .L a v a l o rd er e t o r n oe su ng r a nf l o t a d o r( b f l o a t ) ;< n >e se ln m e r od ed g i t o s e ne lv a l o rd er e t o r n o .
F u n c i n :b f h z e t a( < S > ,< h > ,< n > ) D e v u e l v el af u n c i nz e t ad eH u r w i t zp a r al o sa r g u m e n t o s< S >y< h > . E lv a l o rd er e t o r n oe su ng r a nf l o t a d o r( b f l o a t ) ;< n >e se ln m e r od e d g i t o se ne lv a l o rd er e t o r n o . L af u n c i nz e t ad eH u r w i t zs ed e f i n ec o m o i n f = = = = \1 z e t a( s ,h )= >/S = = = =( K+h ) k=0 ` L o a d( "b f f a c" )' c a r g ae s t af u n c i n .
273/633
28/08/13
F u n c i n :b u r n( < n > )
D e v u e l v eu nn m e r or a c i o n a l ,q u ee su n aa p r o x i m a c i nd el a< n >t h' N m e r od eB e r n o u l l ip a r a< n >e n t e r o .' Q u e m a 'e x p l o t al ao b s e r v a c i n q u e( r a c i o n a l )l o sn m e r o sd eB e r n o u l l ip u e d e na p r o x i m a r s ep o r ( T r a s c e n d e n t a l )z e t a sc o nu n ae f i c i e n c i aa c e p t a b l e : n-11-2n ( -1 )2z e t a( 2N )( 2N ) ! B( 2n )=2n %P i ` Q u e m a r' p u e d es e rm se f i c i e n t eq u eb e r n ` 'p a r a ,< n >f o n d og r a n d e c o m o` b e r n a' c a l c u l at o d o sl o sn m e r o sd eB e r n o u l l ih a s t a< n > n d i c ea n t e s v o l v e r .' Q u e m a 'i n v o c aal aa p r o x i m a c i nd en m e r o se n t e r o sh a s t a< n > >2 5 5 .P a r al o sn m e r o se n t e r o si m p a r e sy< n >< =2 5 5l af u n c i n` b e r n a' e s l l a m a d a . ` L o a d( "b f f a c" )' c a r g ae s t af u n c i n .C o n s u l t et a m b i n` b e r n a' .
F u n c i n :c f( e x p r ) C o n v i e r t ee x p re nu n af r a c c i nc o n t i n u a .e x p re su n ae x p r e s i n c o n t i e n ef r a c c i o n e sc o n t i n u a syr a c e sc u a d r a d a sd en m e r o se n t e r o s . L o so p e r a n d o sd el ae x p r e s i ns ep u e d e nc o m b i n a rc o nl aa r i t m t i c a o p e r a d o r e s .A d e m sd ef r a c c i o n e sc o n t i n u a syr a c e sc u a d r a d a s , f a c t o r e sd el ae x p r e s i nd e b e ns e rn m e r o se n t e r o sor a c i o n a l e s . M a x i m an os a b es o b r eo p e r a c i o n e sc o nf r a c c i o n e sc o n t i n u a s f u e r ad e' c f ' . ' C f 'e v a l as u sa r g u m e n t o sd e s p u sd el au n i n` l i s t a r i t h' a 'f a l s e' . ' C f 'd e v u e l v eu n af r a c c i nc o n t i n u a ,r e p r e s e n t a d ac o m ou n al i s t a . U n af r a c c i nc o n t i n u a` a+1/( b+1/( c+. . . ) )' e s t r e p r e s e n t a d op o r l al i s t a` [ a ,b ,c ,. . . ]' .L al i s t ad ee l e m e n t o s` a' , 'b' , 'c' ,. . . d e b ee v a l u a rae n t e r o s .< e x p r >t a m b i np u e d ec o n t e n e r` s q r t( n )' d o n d e` n' e su nn m e r oe n t e r o .E ne s t ec a s o' c f 'l ed a r t o d o t r m i n o sd el af r a c c i nc o n t i n u ac o m oe lv a l o rd el av a r i a b l e V a r i a b l ec f l e n g t h" t i e m p o s è lp e r o d o . U n af r a c c i nc o n t i n u ap u e d ee v a l u a r s eau nn m e r om e d i a n t el ae v a l u a c i n l ar e p r e s e n t a c i na r i t m t i c aq u ed e v u e l v e` c f d i s r e p' .V a s et a m b i n ` C f e x p a n d' d eo t r am a n e r ad ee v a l u a ru n af r a c c i nc o n t i n u a . C o n s u l t et a m b i n` c f d i s r e p' , `c f e x p a n d 'y` v a r i a b l ec f l e n g t h' . E j e m p l o s : *E x p re su n ae x p r e s i nq u ec o m p r e n d el a sf r a c c i o n e sc o n t i n u a sy r a c e sc u a d r a d a sd en m e r o se n t e r o s . ( %I 1 )C F( [ 5 ,3 ,1 ]*[ 1 1 ,9 ,7 ]+[ 3 ,7 ]/[ 4 ,3 ,2 ] ) ; ( %O 1 )[ 5 9 ,1 7 ,2 ,1 ,1 ,1 ,2 7 ] ( %I 2 )c f( ( 3 / 1 7 )*[ 1 ,2 ,5 ]/s q r t( 1 1 )+( 8 / 1 3 ) ) ; ( %O 2 )[ 0 ,1 ,1 ,1 ,3 ,2 ,1 ,4 ,1 ,9 ,1 ,9 ,2 ] *` V a r i a b l ec f l e n g t h' c o n t r o l ac u n t o sp e r o d o sd el af r a c c i nc o n t i n u a s ec a l c u l a nl o sn m e r o si r r a c i o n a l e sa l g e b r a i c o s . ( %I 1 )v a r i a b l ec f l e n g t h :1$ ( %I 2 )c f( ( 1+s q r t( 5 ) )/2 ) ; ( %O 2 )[ 1 ,1 ,1 ,1 ,2 ] ( %I 3 )v a r i a b l ec f l e n g t h :$2 ( %I 4 )c f( ( 1+s q r t( 5 ) )/2 ) ; ( %O 4 )[ 1 ,1 ,1 ,1 ,1 ,1 ,1 ,2 ] ( %I 5 )v a r i a b l ec f l e n g t h :3$ ( %I 6 )c f( ( 1+s q r t( 5 ) )/2 ) ; ( %O 6 )[ 1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,2 ] *U n af r a c c i nc o n t i n u ap u e d es e re v a l u a d om e d i a n t el ae v a l u a c i nd el a r e p r e s e n t a c i na r i t m t i c aq u ed e v u e l v e` c f d i s r e p' . ( %I 1 )v a r i a b l ec f l e n g t h :3$ ( %I 2 )c f d i s r e p( c f( s q r t( 3 ) ) )$ ( %I 3 )e v( % ,n u m e r ) ; ( %O 3 )1 . 7 3 1 7 0 7 3 1 7 0 7 3 1 7 1 *M a x i m an os a b es o b r eo p e r a c i o n e sc o nf r a c c i o n e sc o n t i n u a s f u e r ad e' c f ' . ( %I 1 )c f( [ 1 , 1 , 1 , 1 , 1 , 2 ]*3 ) ; ( %O 1 )[ 4 ,1 ,5 ,2 ] ( %I 2 )c f( [ 1 , 1 , 1 , 1 , 1 , 2 ] )*3 ; ( %O 2 )[ 3 ,3 ,3 ,3 ,3 ,6 ]
F u n c i n :c f d i s r e p( < l i s t > ) C o n s t r u y eyd e v u e l v eu n ae x p r e s i na r i t m t i c ao r d i n a r i ad el a f o r m a r` a+1/( b+1/( c+. . . ) ) "d el ar e p r e s e n t a c i nd el al i s t ad e f r a c c i nc o n t i n u a` [ a ,b ,c ,. . . ]' .
274/633
28/08/13

( %I 1 )C F( [ 1 ,2 ,3 ]+[ 1 ,2 ,1 ] ) ; ( %O 1 )[ 1 ,1 ,1 ,2 ] ( %I 2 )c f d i s r e p( % ) ; 1 ( %O 2 )1+1 1+1 1+2
F u n c i n :c f e x p a n d( < x > ) D e v u e l v eu n am a t r i zc o nl o sn u m e r a d o r e syd e n o m i n a d o r e sd el a l t i m a ( C o l u m n a1 )yl as i g u i e n t eal a l t i m a( c o l u m n a2 )c o n v e r g e n t e sd el a s e g u i d o< x >f r a c c i n . ( %I 1 )c f( r a t a( e v( %p i ,n u m e r ) ) ) ; ' R a t a 'r e e m p l a z a d op o r3 . 1 4 1 5 9 2 6 5 3 5 8 9 7 9 31 0 3 9 9 3 / 3 3 1 0 2=3 . 1 4 1 5 9 2 6 5 3 0 1 1 9 0 2 ( %O 1 )[ 3 ,7 ,1 5 ,1 ,2 9 2 ] ( %I 2 )c f e x p a n d ,q u ee s( % ) ; [ 1 0 3 9 9 33 5 5 ] ( %O 2 )[ ] [ 3 3 1 0 21 1 3 ] ( %I 3 ) %[ 1 , 1 ]/ %[ 2 , 1 ] ,n u m e r ; ( %O 3 )3 . 1 4 1 5 9 2 6 5 3 0 1 1 9 0 2
V a r i a b l eo p c i o n a l :v a r i a b l ec f l e n g t h V a l o rp o rd e f e c t o :1 ` V a r i a b l ec f l e n g t h' c o n t r o l ae ln m e r od et r m i n o sd el af r a c c i nc o n t i n u a l af u n c i n' c f 'd a r ,c o m oe lv a l o r` ' v a r i a b l ec f l e n g t hv e c e se l p e r o d o .A s ,e lv a l o rp o rd e f e c t oe se ld eu np e r o d o . ( %I 1 )v a r i a b l ec f l e n g t h :1$ ( %I 2 )c f( ( 1+s q r t( 5 ) )/2 ) ; ( %O 2 )[ 1 ,1 ,1 ,1 ,2 ] ( %I 3 )v a r i a b l ec f l e n g t h :$2 ( %I 4 )c f( ( 1+s q r t( 5 ) )/2 ) ; ( %O 4 )[ 1 ,1 ,1 ,1 ,1 ,1 ,1 ,2 ] ( %I 5 )v a r i a b l ec f l e n g t h :3$ ( %I 6 )c f( ( 1+s q r t( 5 ) )/2 ) ; ( %O 6 )[ 1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,2 ]
F u n c i n :l l a m a d ad i v s u m( < n > ,< k > ) F u n c i n :l l a m a d ad i v s u m( < n > ) ` L l a m a d ad i v s u m( < n > ,< k > )' d e v u e l v el as u m ad el o sd i v i s o r e sd e< n >p l a n t e a d o al a< k >' s i m ap o t e n c i a . ` L l a m a d ad i v s u m( < n > )' d e v u e l v el as u m ad el o sd i v i s o r e sd e< n > . ( %I 1 )l l a m a d ad i v s u m( 1 2 ) ; ( %O 1 )2 8 ( %I 2 )1+2+3+4+6+1 2 ; ( %O 2 )2 8 ( %I 3 )l l a m a d ad i v s u m( 1 2 ,2 ) ; ( %O 3 )2 1 0 ( %I 4 )1^2+2^2+3^2+4^2+6^2+1 2^2 ; ( %O 4 )2 1 0
F u n c i n :e u l e r( < n > ) D e v u e l v ee l< n > s i m on m e r od eE u l e rp a r ae le n t e r on on e g a t i v o< n > . P a r al ac o n s t a n t ed eE u l e r M a s c h e r o n i ,c o n s u l t e` %g a m m a . ( %I 1 )m a p a( E u l e r ,[ 0 ,1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,1 0 ] ) ; ( %O 1 )[ 1 ,0 ,-1 ,0 ,5 ,0 ,-6 1 ,0 ,1 3 8 5 ,0 ,-5 05 2 1 ]
F u n c i n :f i b( < n > ) D e v u e l v ee l< n > s i m on m e r od eF i b o n a c c i .` F i b( 0 )' i g u a la0y ` F i b( 1 )' i g u a la1 ,y 'f i b( -< n > )' i g u a l '( 1 )^( < n >+1 )* f i b( < n > ) . D e s p u sd el l a m a r` f i b' , 'v a r i a b l ep r e v f i bt o m a' e si g u a la 'f i b( < x >-1 )' ,l a N m e r oF i b o n a c c iq u ep r e c e d ea l l t i m oc a l c u l a d o . ( %I 1 )m a p a( f i b ,[ 0 ,1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,1 0 ] ) ; ( %O 1 )[ 0 ,1 ,1 ,2 ,3 ,5 ,8 ,1 3 ,2 1 ,3 4 ,5 5 ]
275/633
28/08/13
F u n c i n :f u n c i nf i b t o p h i( e x p r )
E x p r e s al o sn m e r o sd eF i b o n a c c ie ne x p re nt r m i n o sd el ac o n s t a n t e ` %P h i' ,q u ee s '( 1+s q r t( 5 ) )/2' ,a p r o x i m a d a m e n t e1 , 6 1 8 0 3 3 9 9 . E j e m p l o s : ( %I 1 )f u n c i nf i b t o p h i( f i b( n ) ) ; n n %P h i-( 1%p h i ) ( %O 1 )2 %p h i-1 ( %I 2 )f i b( n 1 )+f i b( n )-f i b( n+ 1 ) ; ( %O 2 )-f i b( n+1 )+f i b( n )+f i b( n-1 ) ( %I 3 )f u n c i nf i b t o p h i( % ) ; n+1n+1n n %P h i-( 1%p h i ) %p h i-( 1%p h i ) ( %O 3 )-+-2 %p h i-12 %p h i-1 n-1n-1 %P h i-( 1%p h i ) +2 %p h i-1 ( %I 4 )r a t s i m p( % ) ; ( %O 4 )0
F u n c i n :i f a c t o r s( < n > ) P a r au nn m e r oe n t e r op o s i t i v o< n >d e v u e l v el af a c t o r i z a c i nd e< n > .S i ` N=p 1ê 1. .p k^n k "e sl ad e s c o m p o s i c i nd e< n >e nf a c t o r e sp r i m o s , i f a c t o r sr e g r e s a` [ [ p 1 ,e 1 ] ,. . .,[ P k ,e k ] ]' . M t o d o sd ef a c t o r i z a c i nu t i l i z a d a ss o nl a sd i v i s i o n e st e n t a t i v a sd ep r i m o sh a s t a 9 9 7 3 ,e lm t o d or h od eP o l l a r dye lm t o d od el ac u r v ae l p t i c a . ( %I 1 )i f a c t o r s( 5 1 5 7 5 3 1 9 6 5 1 6 0 0 ) ; ( %O 1 )[ [ 2 ,4 ] ,[ 3 ,2 ] ,[ 5 ,2 ] ,[ 1 5 8 3 ,1 ] ,[ 9 , 0 5 0 , 2 0 7 ,1 ] ] ( %I 2 )s ea p l i c a n( " * " ,m a p a( l a m b d a( [ u ] ,u[ 1 ]û[ 2 ] ) , % ) ) ; ( %O 2 )5 1 5 7 5 3 1 9 6 5 1 6 0 0
F u n c i n :i g c d e x( < n > ,< k > ) D e v u e l v eu n al i s t ad e` [ < a > , ]' d o n d ee se lm x i m oc o m n d i v i s o rd e< n >y< k >ye si g u a la` < a >< n >+< k >' . E l< n >a r g u m e n t o sy< k >d e b e ns e re n t e r o s . ` I g c d e x' i m p l e m e n t ae la l g o r i t m od eE u c l i d e s .C o n s u l t et a m b i n` f u n c i ng c d e x' . E l` c o m a n d od ec a r g a( f u n c i ng c d e x ) c a r g a sd el af u n c i n . E j e m p l o s : ( %I 1 )l o a d( f u n c i ng c d e x )$ ( %I 2 )i g c d e x( 3 0 , 1 8 ) ; ( %O 2 )[ -1 ,2 ,6 ] ( %I 3 )i g c d e x( 1 5 2 6 7 5 7 6 6 8 ,7 8 3 5 6 2 6 7 3 5 7 3 6 ) ; ( %O 3 )[ 8 4 59 2 23 4 11 2 3 ,-1 6 48 2 64 3 5 ,4 ] ( %I 4 )i g c d e x( f i b( 2 0 ) ,b o l a( 2 1 ) ) ; ( %O 4 )[ 4 1 8 1 ,-2 5 8 4 ,1 ]
F u n c i n :I N R T( < x >< n > ) D e v u e l v ee ln m e r oe n t e r o< n >' t hr a zd e lv a l o ra b s o l u t od e< x > . ( %I 1 )l :[ 1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,1 0 ,1 1 ,1 2 ]$ ( %I 2 )m a p a( l a m b d a( [ a ] ,I N R T( 1 0û n a ,3 ) ) ,l ) ; ( %O 2 )[ 2 ,4 ,1 0 ,2 1 ,4 6 ,1 0 0 ,2 1 5 ,4 6 4 ,1 0 0 0 ,2 1 5 4 ,4 6 4 1 ,1 0 0 0 0 ]
F u n c i n :i n v _ m o d( < n > ,< m > ) C a l c u l ae li n v e r s od e< n >m o d u l o< m > .` I n v _ m o d( n ,m )' d e v u e l v e ' F a l s e ' ,s i< n >e su nd i v i s o rd ec e r om d u l o< m > . ( %I 1 )i n v _ m o d( 3 ,4 1 ) ; ( %O 1 )1 4 ( %I 2 )r a t s i m p( 3^1 ) ,m d u l o=4 1 ; ( %O 2 )1 4 ( %I 3 )i n v _ m o d( 3 ,4 2 ) ; ( %O 3 )f a l s e
F u n c i n :i s q r t( < x > ) D e v u e l v el a" r a zc u a d r a d ae n t e r a "d e lv a l o ra b s o l u t od e< x > ,
276/633
28/08/13
q u ee su nn m e r oe n t e r o .
F u n c i n :J a c o b i( ,< q > ) D e v u e l v ee ls m b o l od eJ a c o b i y< q > . ( %I 1 )l :[ 1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ,1 0 ,1 1 ,1 2 ]$ ( %I 2 )m a p a( l a m b d a( [ a ] ,J a c o b i( a ,9 ) ) ,l ) ; ( %O 2 )[ 1 ,1 ,0 ,1 ,1 ,0 ,1 ,1 ,0 ,1 ,1 ,0 ]
F u n c i n :l c m( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) D e v u e l v ee lm n i m oc o m nm l t i p l od es u sa r g u m e n t o s .L o sa r g u m e n t o s p u e d e ns e re x p r e s i o n e sg e n e r a l e sc o m oe n t e r o s . ` L o a d( "f u n c t s" )' c a r g ae s t af u n c i n .
F u n c i n :m o d ( < x >< y > ) S i< x >y< y >s o nn m e r o sr e a l e sy< y >e sd i s t i n t od ec e r o ,v o l v e r` < x >< y >*P i s o( < x >/< y > ) .P a r at o d o sl o sr e a l e s< x > ,t e n e m o s` m o d ( < x > ,0 )=< x >' .P a r au n ad i s c u s i nd el a` d e f i n i c i nd em o d( < x > ,0 ) =< x >" ,C o n s u l t el aS e c c i n3 . 4 ,d e "M a t e m t i c a sd eh o r m i g n" ,d eG r a h a m , K n u t h ,yP a t a s h n i k .E l` m o df u n c i n( < x > ,1 )' e su nd i e n t ed es i e r r a f u n c i nc o np e r i o d o1c o n` m o d( 1 ,1 )=0' y `m o d( 0 ,1 )=0 ' . P a r ae n c o n t r a re la r g u m e n t op r i n c i p a l( u nn m e r oe ne li n t e r v a l od e` ( %p i , %P i ]' )d eu nn m e r oc o m p l e j o ,u t i l i c el af u n c i n` < x >|> %p i-m o d ( %P i-< x > ,2* %p i )' ,d o n d e< x >e su na r g u m e n t o . C u a n d o< x >y< y >s o ne x p r e s i o n e sc o n s t a n t e s( ` 1 0* %p i' ,p o r e j e m p l o ) ,' m o d 'u t i l i z ae lm i s m oe s q u e m ad ee v a l u a c i nd eg r a nc a r r o z aq u e ` B a j a' y 't e c h o' u s o s .U n av e zm s ,e sp o s i b l e ,a u n q u e i m p r o b a b l e ,q u em o d` ' p o d r ad e v o l v e ru nv a l o re r r n e oe nt a l e sc a s o s . P a r aa r g u m e n t o sn on u m r i c o s< x >o< y > ,' m o d 's a b ev a r i o s r e g l a sd es i m p l i f i c a c i n : ( %I 1 )m o d( x ,0 ) ; ( %O 1 )x ( %I 2 )m o d( a*x ,a*y ) ; ( %O 2 )u nm o d( x ,y ) ( %I 3 )m o d( 0 ,x ) ; ( %O 3 )0
F u n c i n :n e x t _ p r i m e( < n > ) D e v u e l v ee lm e n o rp r i m om a y o rq u e< n > . ( %I 1 )n e x t _ p r i m e( 2 7 ) ; ( %O 1 )2 9
F u n c i n :P A R T F R A C( e x p r ,< v a r > ) E x p a n d el ae x p r e s i ne x p re nf r a c c i o n e sp a r c i a l e sc o nr e s p e c t oal a e lp r i n c i p a l< v a r >v a r i a b l e .` P A R T F R A C' h a c eu np a r c i a lc o m p l e t o d e s c o m p o s i c i ne nf r a c c i o n e s .E la l g o r i t m oe m p l e a d os eb a s ae nl a h e c h od eq u el o sd e n o m i n a d o r e sd el ae x p a n s i ne nf r a c c i o n e sp a r c i a l e s( e l f a c t o r e sd e ld e n o m i n a d o ro r i g i n a l e s )s o np r i m o se n t r es .L a n u m e r a d o r e ss ep u e d e ne s c r i b i rc o m oc o m b i n a c i o n e sl i n e a l e sd el o sd e n o m i n a d o r e s , yl ae x p a n s i ns ec a e . ( %I 1 )1/( 1+x )^2-2/( 1+x )+2/( 2+x ) ; 221 ( %O 1 )-+x+2x+12 ( X+1 ) ( %I 2 )r a t s i m p( % ) ; x ( %O 2 )32 x+4x+5x+2 ( %I 3 )P A R T F R A C( % ,x ) ; 221 ( %O 3 )-+x+2x+12 ( X+1 ) F u n c i n :p o w e r _ m o d( < a > ,< n >< m > ) U t i l i z au na l g o r i t m om o d u l a rp a r ac a l c u l a r` a^nm o dm' d o n d e< a >y< n > s o nn m e r o se n t e r o sy< m >e su nn m e r oe n t e r op o s i t i v o .S i< n >e sn e g a t i v o , ` I n v _ m o d' s eu t i l i z ap a r ae n c o n t r a re li n v e r s om o d u l a r . ( %I 1 )p o w e r _ m o d( 3 ,1 5 ,5 ) ;
277/633
28/08/13
( %O 1 )2 ( %I 2 )m o d( 3^1 5 , 5 ) ; ( %O 2 )2 ( %I 3 )p o w e r _ m o d( 2 ,1 ,5 ) ; ( %O 3 )3 ( %I 4 )i n v _ m o d( 2 , 5 ) ; ( %O 4 )3
F u n c i n :p r i m e p( < n > ) P r u e b ad ep r i m a l i d a d .S i` p r i m e p( < n > )' d e v u e l v e 'f a l s e' ,< n >e su n n m e r oc o m p u e s t o ,ys id e v u e l v e` t r u e' ,< n >e su nn m e r op r i m o c o nm u ya l t ap r o b a b i l i d a d . P a r a< n >m e n o sd e3 4 1 5 5 0 0 7 1 7 2 8 3 2 1u n av e r s i nd e t e r m i n i s t ad e S eu t i l i z e lt e s td eM i l l e r R a b i n .S i` p r i m e p( < n > )' d e v u e l v e 't r u e' , e n t o n c e s< n >e su nn m e r op r i m o . P a r a< n >m sg r a n d eq u e3 4 1 5 5 0 0 7 1 7 2 8 3 2 1u t i l i z a` p r i m e p' ` ' P r u e b a sys e u d o p r i m a l i d a dd eM i l l e r R a b i np r i m e p _ n u m b e r _ o f _ t e s t s u n ap r u e b ad es e u d o p r i m a l i d a dL u c a s .L ap r o b a b i l i d a dd eq u es e< n > p a s a ru n ap r u e b ad eM i l l e r R a b i ne sm e n o sd e1 / 4 .C o ne lv a l o rp o rd e f e c t o v a l o rd e2 5p a r a` p r i m e p _ n u m b e r _ o f _ t e s t s' ,l ap r o b a b i l i d a dd e< n > b e e i n gc o m p u e s t oe sm u c h om sp e q u e aq u e1 0^1 5 .
V a r i a b l eo p c i o n a l :p r i m e p _ n u m b e r _ o f _ t e s t s V a l o rp o rd e f e c t o :2 5 N m e r od ep r u e b a sd eM i l l e r R a b i nu t i l i z a d o se n` p r i m e p' .
F u n c i n :p r e v _ p r i m e( < n > ) D e v u e l v ee lm a y o rn m e r op r i m om sp e q u e oq u e< n > . ( %I 1 )p r e v _ p r i m e( 2 7 ) ; ( %O 1 )2 3
F u n c i n :q u n i t( < n > ) D e v u e l v el au n i d a dp r i n c i p a ld e lc a m p od en m e r oc u a d r t i c av e r d a d e r a ` S q r t( < n > )' d o n d e< n >e su nn m e r oe n t e r o ,e sd e c i r ,e le l e m e n t oc u y an o r m a e sl au n i d a d .E s t oe q u i v a l eal as o l u c i nd el ae c u a c i nd eP e l l` a^2-b^2< n > =1' . ( %I 1 )q u n i t( 1 7 ) ; ( %O 1 )s q r t( 1 7 )+4 ( %I 2 )a m p l i a r( %*( s q r t( 1 7 )-4 ) ) ; ( %O 2 )1
F u n c i n :t o t i e n t( < n > ) D e v u e l v ee ln m e r od ee n t e r o sd em e n o sd eoi g u a la< n >q u es o n p r i m oc o n< n > .
V a r i a b l eo p c i o n a l :z e r o b e r n V a l o rp o rd e f e c t o :t r u e' C u a n d o` z e r o b e r n' e s 'f a l s e' , `b e r n a 'e x c l u y el o sn m e r o sd eB e r n o u l l i y` E u l e r' e x c l u y el o sn m e r o sd eE u l e rq u es o ni g u a l e sac e r o . C o n s u l t e` b e r n a' y È u l e r .
F u n c i n :z e t a( < n > ) D e v u e l v el af u n c i nz e t ad eR i e m a n n .S i< n >e su ne n t e r on e g a t i v o , 0ou nn m e r oe n t e r o ,l af u n c i nz e t ad eR i e m a n np o s i t i v o s i m p l i f i c aau nv a l o re x a c t o .P a r au nn m e r oe n t e r op o s i t i v o ,i n c l u s ol a o p c i nv a r i a b l e` z e t a %p i' t i e n eq u es e r 't r u e' ,a d e m s( V e r ` Z e t a %p i' ) .P a r au np u n t of l o t a n t eon m e r ob i g f l o a te lR i e m a n n f u n c i nz e t as ee v a l an u m r i c a m e n t e .M a x i m ad e v u e l v eu ns u s t a n t i v o f o r m a` z e t a( < n > )' p a r ae lr e s t od ea r g u m e n t o s ,i n c l u i d o sr a c i o n a l n oe n t e r o ,yl o sa r g u m e n t o sc o m p l e j o s ,oi n c l u s op a r an m e r o se n t e r o s ,s i ` Z e t a %p i' t i e n ee lv a l o r 'f a l s e' . ` Z e t a( 1 )' n oe s t d e f i n i d o ,p e r oM a x i m ac o n o c el m i t ed e ll m i t e '( z e t a( x ) , x ,1 )' d e s d ea r r i b aya b a j o . L af u n c i nz e t ad eR i e m a n ns ed i s t r i b u y es o b r el i s t a s ,m a t r i c e sy e c u a c i o n e s .
278/633
28/08/13

C o n s u l t et a m b i n` b f z e t a' y 'z e t a %p i' . E j e m p l o s : ( %I 1 )z e t a( [ 2 ,1 ,0 ,0 , 5 ,2 ,3 ,1+ %i ] ) ; 2 11 %p i ( %O 1 )[ 0 ,,,-1 , 4 6 0 3 5 4 5 0 8 8 0 9 5 8 6 ,,z e t a( 3 ) , 1 226 z e t a( %i+1 ) ] ( %I 2 )l m i t e( z e t a( x ) ,x ,1 ,m s ) ; ( %O 2 )i n f ( %I 3 )l m i t e( z e t a( x ) ,x ,1 ,m e n o s ) ; ( %O 3 )m i n f
V a r i a b l eo p c i o n a l :z e t a %p i V a l o rp o rd e f e c t o :t r u e' C u a n d o` z e t a %p i' e s 't r u e' , 'z e t a' d e v u e l v eu n ae x p r e s i n p r o p o r c i o n a la` %p i^n' p o re n t e r op a r `n ' .D el oc o n t r a r i o ,` z e t a' d e v u e l v eu n af o r m an o m i n a l' z e t a( n )" p o re n t e r op a r `n ' . E j e m p l o s : ( %I 1 )z e t a %p i :t r u e$ ( %I 2 )z e t a( 4 ) ; 4 %P i ( %O 2 )9 0 ( %I 3 )z e t a %p i :f a l s e$ ( %I 4 )z e t a( 4 ) ; ( %O 4 )z e t a( 4 )
30 Simetras
I n t r o d u c c i naS i m e t r a s F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s
30.1 Introduccin a simetras

` S y m' e su np a q u e t ep a r ae lt r a b a j oc o ng r u p o ss i m t r i c o sd ep o l i n o m i o s . F u ee s c r i t op a r aM a c s y m a S y m b o l i c sp o rA n n i c kV a l i b o u z e ( ` ~H t t p : / / w w w c a l f o r . l i p 6 . f r /a v b/' ) .L o sa l g o r i t m o ss ed e s c r i b e ne n l o ss i g u i e n t e sd o c u m e n t o s : 1 .F o n c t i o n ss y m e ' t r i q u e se tC h a n g e m e n t sd eb a s e s .A n n i c kV a l i b o u z e . E U R O C A L ' 8 7( L e i p z i g ,1 9 8 7 ) ,3 2 3 3 3 2 ,L e c t u r eN o t e si nC o m p u t .C i e n c i a 3 7 8 .S p r i n g e r ,B e r l i n ,1 9 8 9 . ` H t t p : / / w w w . s t i x . p o l y t e c h n i q u e . f r / p u b l i c a t i o n s / 1 9 8 4 1 9 9 4 . h t m l' 2 .R e ' s o l v a n t e se tf o n c t i o n ss y m e ' t r i q u e s .A n n i c kV a l i b o u z e . A c t a sd el aA C M S I G S A M1 9 8 9S i m p o s i oI n t e r n a c i o n a ls o b r e C o m p u t a c i nS i m b l i c ayA l g e b r a i c a ,I S S A C ' 8 9( P o r t l a n d ,O r e g o n ) . A C MP r e s s ,3 9 0 3 9 9 ,1 9 8 9 . ` H t t p : / / w w w c a l f o r . l i p 6 . f r /~a v b / D o n n e e s T e l e c h a r g e a b l e s / M e s A r t i c l e s / i s s a c 8 9 A C M V a l i b o u z e . p d f' 3 .C l c u l os i m b l i c oc o np o l i n o m i o ss i m t r i c o s ,u n ae x t e n s i nd e M a c s y m a .A n n i c kV a l i b o u z e .I n f o r m t i c ayM a t e m t i c a s( M I T ,E E . U U . , 1 3 1 7j u n i o1 9 8 9 ) ,S p r i n g e r V e r l a g ,B e r l n ,N u e v aY o r k ,3 0 8 3 2 0 ,1 9 8 9 . ` H t t p : / / w w w . s t i x . p o l y t e c h n i q u e . f r / p u b l i c a t i o n s / 1 9 8 4 1 9 9 4 . h t m l' 4 .T h e ' o r i ed eG a l o i sc o n s t r u c t i v a .A n n i c kV a l i b o u z e .M e ' m o i r e d ' h a b i l i t a c i na` d i r i g e rl e sR e c h e r c h e s( H D R ) ,U n i v e r s i t ' P .e t M .C u r i e( P a r sV I ) ,1 9 9 4 .
30.2 Funciones y variables para Simetras

F u n c i n :c o m p 2 p u i( < n > ,< L > ) i m p l e m e n t ae lp a s od el a sf u n c i o n e ss i m t r i c a sc o m p l e t a sq u ef i g u r a ne n l al i s t a< L >al a sf u n c i o n e ss i m t r i c a se l e m e n t a l e sd e0a< n > . S il al i s t a< L >c o n t i e n em e n o sd ee l e m e n t o s< n + 1 > ,s e r c o m p l e t a d oc o nl o sv a l o r e sf o r m a l e sd e lt i p o< h 1 > ,< h 2 > ,e t cS ie l p r i m e re l e m e n t od el al i s t ae x i s t e< L > ,q u ee s p e c i f i c ae lt a m a od el a a l f a b e t o ,d el oc o n t r a r i oe lt a m a os ee s t a b l e c ea< n > . ( %I 1 )c o m p 2 p u i( 3 ,[ 4 ,g ] ) ; 22 ( %O 1 )[ 4 ,g ,2h 2-g ,3h 3-h 2g+g( g-2h 2 ) ]
279/633
28/08/13
F u n c i n :e l e 2 p u i( < m > ,< L > )
v ad el a sf u n c i o n e ss i m t r i c a se l e m e n t a l e sal ac o m p l e t a f u n c i o n e s .A li g u a lq u e` c o m p 2 e l e' y `c o m p 2 p u i ' . O t r a sf u n c i o n e sp a r ac a m b i od eb a s e s :` c o m p 2 e l e' .
F u n c i n :e l e 2 c o m p( < m > ,< L > ) V ad el a sf u n c i o n e ss i m t r i c a se l e m e n t a l e sd el ac o m p e t e n c i a f u n c i o n e s .A li g u a lq u e` c o m p 2 e l e' y `c o m p 2 p u i ' . O t r a sf u n c i o n e sp a r ac a m b i od eb a s e s :` c o m p 2 e l e' .
F u n c i n :e l e m( < e l e > ,< s y m > ,< l v a r > ) s ed e s c o m p o n ee l< s y m >p o l i n o m i os i m t r i c o ,e nl a sv a r i a b l e s q u ef i g u r ae nl al i s t a< l v a r > ,e nt r m i n o sd el as i m t r i c ae l e m e n t a l f u n c i o n e sf i g u r a ne nl al i s t a< e l e > .S ie lp r i m e re l e m e n t od e< e l e > s ed a ,s e r e lt a m a od e la l f a b e t o ,d el oc o n t r a r i oe lt a m a o s e r e lg r a d od e lp o l i n o m i o< s y m > .S il o sv a l o r e ss ee s t np e r d i e n d o e nl al i s t a< e l e > ,l o sv a l o r e sf o r m a l e sd el a< e 1 >t i p o ,< e 2 > ,e t cs e s e ra a d i d o .E l< s y m >p o l i n o m i os ep u e d ed a re nt r e sd i f e r e n t e s f o r m a s :c o n t r a d a( ` e l e m' e n t o n c e sd e b es e r1 ,s uv a l o rp o rd e f e c t o ) , p a r t i c i o n a d o( ` e l e m' d e b es e r3 ) ,oe x t e n d i d a( e sd e c i r ,l at o t a l i d a d p o l i n o m i o ,y` e l e m' d e b e ne n t o n c e s2 ) .L af u n c i n` p u i' e s s eu t i l i z ad el am i s m am a n e r a . E nu na l f a b e t od et a m a o3c o n< e 1 > ,l ap r i m e r as i m t r i c ae l e m e n t a l f u n c i n ,c o nu nv a l o rd e7 ,e lp o l i n o m i os i m t r i c oe n3v a r i a b l e s c u y af o r m ac o n t r a d a( q u ea q u d e p e n d ed es l od o sd es u s L a sv a r i a b l e s )e s< x ^ 4 2 * x * y >s ed e s c o m p o n ed el as i g u i e n t em a n e r ae nl ae s c u e l ap r i m a r i a f u n c i o n e ss i m t r i c a s : ( %I 1 )e l e m( [ 3 ,7 ] ,x^4-2*x*y ,[ x ,y ] ) ; ( %O 1 )7( e 3-7e 2+7( 4 9-e 2 ) )+2 1e 3 +( -2( 4 9-e 2 )-2 )e 2 ( %I 2 )r a t s i m p( % ) ; 2 ( %O 2 )2 8e 3+2e 2-e 2+1 9 82 4 0 1 O t r a sf u n c i o n e sp a r ac a m b i od eb a s e s :` c o m p 2 e l e' .
F u n c i n :m o n 2 s c h u r( < L > ) L al i s t a< L >r e p r e s e n t ae lS _ Lf u n c i nd eS c h u r :t e n e m o sL=[ i _ 1 , i _ 2 ,. . . ,i _ q ] ,c o ni _ 1< =i _ 2< =. . .< =I _ q .L af u n c i nd eS c h u r S _[ i _ 1 ,i _ 2 ,. . . ,i _ q ]e se lm e n o rd el am a t r i zi n f i n i t a H _[ i j ] ,i< =1 ,j< =1 ,q u ec o n s i s t ee nl a sp r i m e r a sf i l a sqye l c o l u m n a s1+ ,2+i _ 1i _ 2 ,. . . ,q+i _ q . E s t af u n c i nd eS c h u rs ep u e d ee s c r i b i re nt r m i n o sd em o n o m i o sm e d i a n t ee lu s o T r e i n a t` ' y `k o s t k a ' .L ae x p r e s i nq u es eo b t i e n ee su n as i m t r i c a p o l i n o m i oe nu n ar e p r e s e n t a c i nc o n t r a t a d ae nl a sv a r i a b l e s x _ 1 ,x _ 2 ,. . . ( %I 1 )m o n 2 s c h u r( [ 1 ,1 ,1 ] ) ; ( %O 1 )x 1x 2x 3 ( %I 2 )m o n 2 s c h u r( [ 3 ] ) ; 23 ( %O 2 )x 1x 2x 3x 1+x 2+x 1 ( %I 3 )m o n 2 s c h u r( [ 1 ,2 ] ) ; 2 ( %O 3 )2x 1x 2x 3x 1+x 2 l oq u es i g n i f i c aq u ep a r a3v a r i a b l e sd ee s t od a : 2x 1x 2x 3x 1+x 2^2+x 2^2x 1+x 1^2+x 3x 3^2x 1 +X 2+x 3^2^2x 3x 2 O t r a sf u n c i o n e sp a r ac a m b i od eb a s e s :` c o m p 2 e l e' .
F u n c i n :m u l t i _ e l e m( < l _ e l e m > ,< m u l t i _ p c > ,< l _ v a r > ) s ed e s c o m p o n eu np o l i n o m i od em l t i p l e ss i m t r i c ae ne lm u l t i c o n t r a t a d a f o r m a< m u l t i _ p c >e nl o sg r u p o sd el a sv a r i a b l e sc o n t e n i d a se nl al i s t a d el i s t a s< l _ v a r >e nt r m i n o sd el a sf u n c i o n e ss i m t r i c a se l e m e n t a l e s c o n t e n i d ae n< l _ e l e m > . ( %I 1 )m u l t i _ e l e m( [ [ 2 ,e 1 ,e 2 ] ,[ 2 ,f 1 ,f 2 ] ] ,a*x+a^2+x^3 , [ [ X ,y ] ,[ a ,b ] ] ) ; 3 ( %O 1 )-2+f 1f 2( f 1+e 1 )-3E 1E 2+e 1 ( %I 2 )r a t s i m p( % ) ; 23 ( %O 2 )-2+f 2f 1f 1+e 1-3e 1e 2e 1+
280/633
28/08/13

O t r a sf u n c i o n e sp a r ac a m b i od eb a s e s :` c o m p 2 e l e' .
F u n c i n :m u l t i _ p u i e sl af u n c i n` p u i' c u le sl af u n c i n `m u l t i _ e l e m 'e sl a f u n c i n` e l e m . ( %I 1 )m u l t i _ p u i( [ [ 2 ,p 1 ,p 2 ] ,[ 2 ,t 1 ,t 2 ] ] ,a*x+a^2+x^3 , [ [ X ,y ] ,[ a ,b ] ] ) ; 3 3p 1p 2p 1 ( %O 1 )t 2t 1+p 1+22
F u n c i n :p u i( < L > ,< s y m > ,< l v a r > ) s ed e s c o m p o n ee l< s y m >p o l i n o m i os i m t r i c o ,e nl a sv a r i a b l e se ne l l i s t a< l v a r > ,e nt r m i n o sd el a sf u n c i o n e sd ep o d e re nl al i s t a< L > .S i s ed ae lp r i m e re l e m e n t od e< L > ,s e r e lt a m a od el a a l f a b e t o ,d el oc o n t r a r i oe lt a m a os e r e lg r a d od e lp o l i n o m i o < s y m > .S il o sv a l o r e sn oe s t np r e s e n t e se nl al i s t a< L > ,l o sv a l o r e sf o r m a l e sd e S ea a d i r e lt i p o , ,e t c .E l< s y m >p o l i n o m i op u e d e s ed ae nt r e sf o r m a sd i f e r e n t e s :c o n t r a t a d a s( ` e l e m' d e b e r ae n t o n c e s s e r1 ,s uv a l o rp o rd e f e c t o ) ,s er e p a r t i ( ` e l e m' d e b es e rd e3 ) ,o e x t e n d i d a( e sd e c i r ,l at o t a l i d a dd e lp o l i n o m i o ,y` e l e m' d e b es e re n t o n c e s 2 ) .L af u n c i n` P u i' s eu t i l i z ad el am i s m am a n e r a . ( %I 1 )p u i ; ( %O 1 )1 ( %I 2 )P u i( [ 3 ,a ,b ] ,u*x*y*z ,[ x ,y ,z ] ) ; 2 a( a-b )u( a b-p 3 )u ( %O 2 )63 ( %I 3 )r a t s i m p( % ) ; 3 ( 2p 3-3a b+a )u ( %O 3 )6 O t r a sf u n c i o n e sp a r ac a m b i od eb a s e s :` c o m p 2 e l e' .
F u n c i n :p u i 2 c o m p( < n > ,< l p u i > ) h a c eq u el al i s t ad el a sp r i m e r a sf u n c i o n e sc o m p l e t a s< n >( c o nl a L o n g i t u dd e lp r i m e r o )e nt r m i n o sd el a sf u n c i o n e sd ep o t e n c i ai n d i c a d o se nl al i s t a < l p u i > .S il al i s t a< l p u i >e s t v a c a ,e lc a r d e n a le s< n > , d el oc o n t r a r i o ,e ss up r i m e re l e m e n t o( c o m oe n' c o m p 2 e l e" y ` C o m p 2 p u i' ) . ( %I 1 )p u i 2 c o m p( 2 ,[ ] ) ; 2 p 1+p 2 ( %O 1 )[ 2 ,p 1 ,] 2 ( %I 2 )p u i 2 c o m p( 3 ,[ 2 ,a 1 ] ) ; 2 A 1( p 2+a 1 ) 2p 3+-+a 1p 2 p 2+a 12 ( %O 2 )[ 2 ,a 1 ,,] 23 ( %I 3 )r a t s i m p( % ) ; 23 p 2+p 3+a 123a 1p 2+a 1 ( %O 3 )[ 2 ,a 1 ,,] 26 O t r a sf u n c i o n e sp a r ac a m b i od eb a s e s :` c o m p 2 e l e' .
F u n c i n :p u i 2 e l e( < n > ,< l p u i > ) e f e c t o sd e lp a s od ef u n c i o n e sd ep o t e n c i aal ap r i m a r i a f u n c i o n e ss i m t r i c a s .S il ab a n d e r a` p u i 2 e l e' e s 'G i r a r d ,s e r d e v o l v e rl al i s t ad ef u n c i o n e ss i m t r i c a se l e m e n t a l e sd e l1a l< n > , ys il ab a n d e r ae s' c l o s e ' ,d e v o l v e r e l< n > t hp r i m a r i a f u n c i ns i m t r i c a . O t r a sf u n c i o n e sp a r ac a m b i od eb a s e s :` c o m p 2 e l e' .
F u n c i n :p u i r e d u c( < n > ,< l p u i > ) < l p u i >e su n al i s t ac u y op r i m e re l e m e n t oe su n< m >e n t e r o . ` P u i r e d u c' d al a sp r i m e r a sf u n c i o n e sd ep o t e n c i a< n >e nt r m i n o sd el a p r i m e r o< m > . ( %I 1 )p u i r e d u c( 3 ,[ 2 ] ) ;
281/633
28/08/13

2 p 1( p 1-p 2 ) ( %O 1 )[ 2 ,p 1 ,p 2 ,p 1p 2] 2 ( %I 2 )r a t s i m p( % ) ; 3 3p 1p 2-p 1 ( %O 2 )[ 2 ,p 1 ,p 2 ,] 2
F u n c i n :s c h u r 2 c o m p( ,< l _ v a r > ) E su np o l i n o m i oe nl a sv a r i a b l e sd el al i s t a< l _ v a r > .C a d au n od e e s t a sv a r i a b l e sr e p r e s e n t au n af u n c i ns i m t r i c ac o m p l e t a .E n < l _ v a r >l af u n c i ns i m t r i c a t he sr e p r e s e n t a d op o r l ac o n c a t e n a c i nd el al e t r a' h 'yl ae n t e r o :` h . E s t af u n c i ne x p r e s ae nt r m i n o sd ef u n c i o n e sd eS c h u r . ( %I 1 )s c h u r 2 c o m p( h 1*h 2-h 3 ,[ h 1 ,h 2 ,h 3 ] ) ; ( %O 1 )s 1 ,2 ( %I 2 )s c h u r 2 c o m p( a*h 3 ,[ h 3 ] ) ; ( %O 2 )S A 3
F u n c i n :c o n t 2 p a r t( ,< l v a r > ) d e v u e l v ee lp o l i n o m i os er e p a r t i a s o c i a d aal ac o n t r a t a d a f o r m ac u y a sv a r i a b l e se s t ne n< l v a r > . ( %I 1 )p c :2*a^3*b*x^4*y+x^5 ; 345 ( %O 1 )2a b x y+x ( %I 2 )c o n t 2 p a r t( p c ,[ x ,y ] ) ; 3 ( %O 2 )[ [ 1 ,5 ,0 ] ,[ 2A B ,4 ,1 ] ]
F u n c i n :c o n t r a t o( ,< l v a r > ) d e v u e l v eu n af o r m ac o n t r a d a( e sd e c i r ,u n a r b i t am o n o m i ob a j ol aa c c i n d e lg r u p os i m t r i c o )d el ap o l i n o m i oe nl a sv a r i a b l e s q u ef i g u r ae nl al i s t a< l v a r > .L af u n c i n` e x p l o s e' r e a l i z al a o p e r a c i ni n v e r s a .L af u n c i nd el a sp r u e b a sd e` t c o n t r a c t' l as i m e t r ad e e lp o l i n o m i o . ( %I 1 )P s y m :e x p l o s e( 2*a^3*b*x^4*y ,[ x ,y ,z ] ) ; 34343434 ( %O 1 )A B Y Z2+2+2a b x zA B Y Z+2a b x z 3434 +2+2a b x ya b x y ( %I 2 )c o n t r a t o( P s y m ,[ x ,y ,z ] ) ; 34 ( %O 2 )2a b x y
F u n c i n :e x p l o s e( ,< l v a r > ) d e v u e l v ee lp o l i n o m i os i m t r i c aa s o c i a d ac o nl ac o n t r a t a d a f o r m a r .L al i s t a< l v a r >c o n t i e n el a sv a r i a b l e s . ( %I 1 )e x p l o s e( a*x+1 ,[ x ,y ,z ] ) ; ( %O 1 )z+a y+a x+1
F u n c i n :p a r t 2 c o n t( ,< l v a r > ) p a s ad ef o r m ad i v i d i d aal af o r m ac o n t r a d ad eu n p o l i n o m i os i m t r i c o .L af o r m ac o n t r a d as eh a c ec o ne l v a r i a b l e se n< l v a r > . ( %I 1 )p a r t 2 c o n t( [ [ 2*a*b^3 ,4 ,1 ] ] ,[ x ,y ] ) ; 34 ( %O 1 )2a b x y
F u n c i n :p a r t p o l( ,< l v a r > ) e su np o l i n o m i os i m t r i c oe nl a sv a r i a b l e sd el al i s t a < l v a r > .E s t af u n c i nr e t t u r n ss ur e p r e s e n t a c i nc o np a r t i c i o n e s . ( %I 1 )p a r t p o l( a*( x+y )+3*x*y ,[ x ,y ] ) ; ( %O 1 )[ [ 3 ,1 ,1 ] ,[ -u n ,1 ,0 ] ]
282/633
28/08/13
F u n c i n :t c o n t r a c t( ,< l v a r > )
p r u e b a ss ie lp o l i n o m i oe ss i m t r i c ae nl a sv a r i a b l e sd el a l i s t a< l v a r > .S ie sa s ,d e v u e l v eu n ar e p r e s e n t a c i nc o n t r a t a d ac o m o l af u n c i n` c o n t r a t o .
F u n c i n :t p a r t p o l( ,< l v a r > ) p r u e b a ss ie lp o l i n o m i oe ss i m t r i c ae nl a sv a r i a b l e sd el a l i s t a< l v a r > .S ie sa s ,d e v u e l v es ur e p r e s e n t a c i nc o m op a r t i c i o n e s l af u n c i n` p a r t p o l' .
F u n c i n :d i r e c t a( [ ,. . . , ] ,< y > ,< f > ,[ < l v a r _ 1 > ,. . . ,< l v a r _ n > ] ) c a l c u l al ai m a g e nd i r e c t a( v a s eM .G i u s t i ,D .L a z a r de tA . V a l i b o u z e ,I S S A C1 9 8 8 ,R o m a )a s o c i a d oal a< f >f u n c i n ,e n l a sl i s t a sd ev a r i a b l e s< l v a r _ 1 > ,. . . ,< l v a r _ n > ,ye nl a p o l i n o m i o s ,. . . ,e nu n< y >v a r i a b l e s .L aa r i d a dd e l < f >f u n c i ne si m p o r t a n t ep a r al ac a l u l a t i o n .P o rl ot a n t o ,s ie l e x p r e s i np a r a< f >n od e p e n d ed ea l g u n av a r i a b l e ,e si n t i l p a r ai n c l u i re s t av a r i a b l e ,yn oi n c l u y e n d ot a m b i ns e r e d u c i rc o n s i d e r a b l e m e n t el ac a n t i d a dd ec l c u l o s . ( %I 1 )d i r e c t a( [ z^2-e 1+e 2*z ,z^2-f 1+f 2*z ] , z ,b*v+a*u ,[ [ u ,v ] ,[ a ,b ] ] ) ; 2 ( %O 1 )y-e 1yf 1 2222 -4e 2f 2-( e 1-e 22 )( f 1-f 22 )+e 1f 1 +2 ( %I 2 )r a t s i m p( % ) ; 222 ( %O 2 )y-e 1yf 1+( e 1-e 24 )e 2+f 2f 1 ( %I 3 )r a t s i m p( d i r e c t a( [ z^3 e 1*z^2+e 2*z e 3 ,z^2-f 1+f 2*z ] , z ,b*v+a*u ,[ [ u ,v ] ,[ a ,b ] ] ) ) ; 652224 ( %O 3 )y-2e 1yf 1+( ( 2e 1-e 26 )f 2+( 2+e 2e 1 )f 1 )y 333 +( ( 9e 3+5e 1e 2-2e 1 )f 1f 2+( -2e 3-2e 1e 2 )f 1 )y 2242 +( ( 9e 2-6E 1E 2+e 1 )f 2 22224 +( -9e 1e 3-6e 2+3e 1e 2 )f 1f 2+( 2e 1+e 2e 3 )f 1 ) 22232 y+( ( ( 9e 1-e 22 7 )e 3+3e 1e 2-e 1e 2 )f 1f 2 2235 +( ( 1 5e 2-2e 1 )e 3-e 1e 2 )f 1f 2-f 12e 2e 3 )y 233223 +( -2 7e 3+( 1 8e 1e 2-4e 1 )e 3-4+e 2e 1e 2 )f 2 23322 +( 2 7e 3+( e 1-e 2e 19 )e 3+e 2 )f 1f 2 2426 +( E 1e 2e 3-9e 3 )f 1f 2f 1+e 3 E n c o n t r a re lp o l i n o m i oc u y a sr a c e ss o nl as u m ad eu+d o n d eae su n a r a zd ez^2-e _ 1z+e _ 2yUe sl ar a zd ez^2-f _ 1z+f _ 2 . ( %I 1 )r a t s i m p( d i r e c t a( [ z^2-e 1+e 2*z ,z^2-f 1+f 2*z ] , z ,a+u ,[ [ u ] ,[ a ] ] ) ) ; 432 ( %O 1 )y+( -2f 1-2e 1 )y+( 2+f 2f 1+3e 1f 1+2e 2 2222 +E 1 )y+( ( -2f 1-2e 1 )f 2-f 1e 1+( -2e 2-e 1 )f 1 222 -2e 1e 2 )y++f 2( f 1e 1-e 2+2e 1 )+f 2f 1+e 2e 1e 2f 1 2 +E 2 ` D i r e c t a' a c e p t ad o sb a n d e r a s : ` l m e n t a i r e s 'y` p u i s s a n c e s' ( P o rd e f e c t o )q u ep e r m i t e nd e s c o m p o n e rl o sp o l i n o m i o ss i m t r i c o s q u ea p a r e c ee ne lc l c u l oe nf u n c i o n e ss i m t r i c a se l e m e n t a l e s , of u n c i o n e sd ep o t e n c i a ,r e s p e c t i v a m e n t e . F u n c i o n e sd e l` s y m "u t i l i z a d a se ne s t af u n c i n : ` M u l t i _ o r b i t' ( p a r a ' r b i t a' ) , `p u i _ d i r e c t ' ,` m u l t i _ e l e m' ( p o rl o ` E l e m' ) , `m u l t i _ p u i '( p a r a' p u i ' ) ,` p u i 2 e l e' , è l e 2 p u i '( s il ab a n d e r a ` D i r e c t a' e se n `p u i s s a n c e s ' ) .
283/633
28/08/13
F u n c i n :m u l t i _ o r b i t( ,[ < l v a r _ 1 > ,< l v a r _ 2 > ,. . . ,< l v a r _ p > ] ) E su np o l i n o m i oe ne lc o n j u n t od ev a r i a b l e sq u ef i g u r a ne nl a sl i s t a s < l v a r _ 1 > ,< l v a r _ 2 > ,. . . ,< l v a r _ p > .E s t af u n c i nd e v u e l v el a r b i t a d el ap o l i n o m i ob a j ol aa c c i nd e lp r o d u c t od el a g r u p o ss i m t r i c o sd el o sc o n j u n t o sd ev a r i a b l e sr e p r e s e n t a d o se ne s t o s l i s t a s . ( %I 1 )m u l t i _ o r b i t( a*x+b*y ,[ [ x ,y ] ,[ a ,b ] ] ) ; ( %O 1 )[ p o r+a x ,a y+b x ] ( %I 2 )m u l t i _ o r b i t( x+y+2*a ,[ [ x ,y ] ,[ a ,b ,c ] ] ) ; ( %O 2 )[ y+x2+c ,y+x+2b ,y+x+2a ] V a s et a m b i n :` r b i t a' p a r al aa c c i nd eu n n i c og r u p os i m t r i c o .
F u n c i n :m u l t s y m( , ,< n > ) d e v u e l v ee lp r o d u c t od el o sd o sp o l i n o m i o ss i m t r i c o se n< n > v a r i a b l e sp o rm d u l od et r a b a j os l ol aa c c i nd e lg r u p os i m t r i c o d e< n >o r d e n .L o sp o l i n o m i o se s t ne ns uf o r m ac o np a r t i c i o n e s . D a d a sl a s2p o l i n o m i o ss i m t r i c o se n< x >< y > :` 3*( x+y )+ 2*x*y' y` 5*( x^2+y^2 ) ' ,c u y a sf o r m a se s t nd i v i d i d a s `[ [ 3 ,1 ] , [ 2 ,1 ,1 ] ]' y '[ [ 5 ,2 ] ]' ,s up r o d u c t os e r ( %I 1 )m u l t s y m( [ [ 3 ,1 ] ,[ 2 ,1 ,1 ] ] ,[ [ 5 ,2 ] ] ,2 ) ; ( %O 1 )[ [ 1 0 ,3 ,1 ] ,[ 1 5 ,3 ,0 ] ,[ 1 5 ,2 ,1 ] ] e s` 1 0*( x^3*y+y^3*x )+1 5*( x^2*y+y^2*x )+1 5*( x^3+y^3 ) . F u n c i o n e sp a r ac a m b i a rl a sr e p r e s e n t a c i o n e sd eu n as i m t r i c a p o l i n o m i o : ' C o n t r a t o ' ,` c o n t 2 p a r t' , è x p l o s e ' ,` p a r t 2 c o n t' , `p a r t p o l ' , T c o n t r a c t` ' , `t p a r t p o l ' .
F u n c i n : r b i t a( ,< l v a r > ) c a l c u l al a r b i t ad el ap o l i n o m i oe nl a sv a r i a b l e se ne l l i s t a r< l v a r >b a j ol aa c c i nd e lg r u p os i m t r i c od e lc o n j u n t od e v a r i a b l e se nl al i s t a< l v a r > . ( %I 1 ) r b i t a( a*x+b*y ,[ x ,y ] ) ; ( %O 1 )[ a y+b x ,p o ra x+ ] ( %I 2 ) r b i t a( 2*x+x^2 ,[ x ,y ] ) ; 22 ( %O 2 )[ y2+y ,x+2x ] V a s et a m b i n` m u l t i _ o r b i t' p a r al aa c c i nd eu np r o d u c t od es i m t r i c a g r u p o se nu np o l i n o m i o .
F u n c i n :p u i _ d i r e c t( < o r b i t e > ,[ < l v a r _ 1 > ,. . . ,< l v a r _ n > ] ,[ < d _ 1 > ,< d _ 2 > ,. . . ,< d _ n > ] ) D e j e< f >u np o l i n o m i oe nb l o q u e s< n >d ev a r i a b l e s< l v a r _ 1 > ,. . . , < l v a r _ n > .V a m o s< c _ i >s e re ln m e r od ev a r i a b l e se n< l v a r _ i > ,y < S C >S e re lp r o d u c t od eg r u p o ss i m t r i c o s< n >d e< c _ 1 >g r a d o ,. . . , < c _ n > .E s t eg r u p oa c t an a t u r a l m e n t ee n< f > .L al i s t ae sl a< o r b i t e > r b i t a ,d e n o m i n a d o` < S C >( < f > )' ,d e l< f >f u n c i nb a j ol aa c c i n d e< S C > .( E s t al i s t ap u e d es e ro b t e n i d op o rl af u n c i n ` M u l t i _ o r b i t . )E l< d i >s o ne n t e r o ss tc _ 1< =d _ 1 ,c _ 2< = d _ 2 ,. . . ,c _ n< =d _ n . V a m o s< S D >s e re lp r o d u c t od el o sg r u p o ss i m t r i c o sS _[ d _ 1 ]xS _[ d _ 2 ] x. . .xS _[ d _ n ] .L af u n c i n` p u i _ d i r e c t' d e v u e l v ee lp r i m e r< n > f u n c i o n e sd ep o d e rd e` < S D >( < f > )' d e d u c i r s ed el a sf u n c i o n e sd ep o t e n c i ad e ` < S C >( < f > )' ,D o n d e< n >e se lt a m a od e l `< S D >( < f > ) . E lr e s u l t a d oe s t e nm u l t i c o n t r a t a d af o r m aw r t< S D > ,e sd e c i r ,s l ou n o e l e m e n t os em a n t i e n ep o r r b i t a ,b a j ol aa c c i nd e< S D > . ( %I 1 )l :[ [ x ,y ] ,[ a ,b ] ] ; ( %O 1 )[ [ x ,y ] ,[ a ,b ] ] ( %I 2 )p u i _ d i r e c t( m u l t i _ o r b i t( a*x+b*y ,l ) ,l ,[ 2 ,2 ] ) ; 22 ( %O 2 )[ a x ,4a b x y+a x ] ( %I 3 )p u i _ d i r e c t( m u l t i _ o r b i t( a*x+b*y ,l ) ,l ,[ 3 ,2 ] ) ; 222233 ( %O 3 )[ 2a x ,4a b x y+a x2 ,3a b x y+2a x , 22223344 1 2a b x y+4a b x y+2a x , 32324455 1 0a b x y+5a b x y+2a x , 333342245566 A b x y4 0+1 5+6a b x ya b x y+2a x ] ( %I 4 )p u i _ d i r e c t( [ y+x+2*c ,y+x+2*b ,y+x+2*a ] , [ [ X ,y ] ,[ a ,b ,c ] ] ,[ 2 ,3 ] ) ; 22 ( %O 4 )[ 3x+2a ,6x y+3+4xa x+4a ,
284/633
28/08/13

23223 9x y+1 2A X y+3x+6+a xa x1 2+8a ]
F u n c i n :k o s t k a( , ) e s c r i t op o rP .E s p e r e t ,c a l c u l ae ln m e r od eK o s t k ad el a p a r t i c i ny . ( %I 1 )k o s t k a( [ 3 ,3 ,3 ] ,[ 2 ,2 ,2 ,1 ,1 ,1 ] ) ; ( %O 1 )6
F u n c i n :l g t r e i l l i s( < n > ,< m > ) d e v u e l v el al i s t ad ep a r t i c i o n e sd e< n >< m >p e s oyl o n g i t u d . ( %I 1 )l g t r e i l l i s( 4 ,2 ) ; ( %O 1 )[ [ 3 ,1 ] ,[ 2 ,2 ] ] V e rt a m b i n :` l t r e i l l i s' , `t r e i l l i s 'y` t r e i n a t' .
F u n c i n :l t r e i l l i s( < n > ,< m > ) d e v u e l v el al i s t ad ep a r t i c i o n e sd e< n >p e s oyl o n g i t u di n f e r i o ra oi g u a la< m > . ( %I 1 )l t r e i l l i s( 4 ,2 ) ; ( %O 1 )[ [ 4 ,0 ] ,[ 3 ,1 ] ,[ 2 ,2 ] ] V e rt a m b i n :` l g t r e i l l i s' , `t r e i l l i s 'y` t r e i n a t' .
F u n c i n :t r e i l l i s( < n > ) d e v u e l v et o d a sl a sp a r t i c i o n e sd e< n >p e s o . ( %I 1 )t r e i l l i s( 4 ) ; ( %O 1 )[ [ 4 ] ,[ 3 ,1 ] ,[ 2 ,2 ] ,[ 2 ,1 ,1 ] ,[ 1 ,1 ,1 ,1 ] ] V e rt a m b i n :` l g t r e i l l i s' , `l t r e i l l i s 'y` t r e i n a t' .
F u n c i n :t r e i n a t( ) R e t r u n sl al i s t ad ep a r t i c i o n e si n f e r i o ra lp a r t i c i n w r te lo r d e nn a t u r a l . ( %I 1 )t r e i n a t( [ 5 ] ) ; ( %O 1 )[ [ 5 ] ] ( %I 2 )t r e i n a t( [ 1 ,1 ,1 ,1 ,1 ] ) ; ( %O 2 )[ [ 5 ] ,[ 4 ,1 ] ,[ 3 ,2 ] ,[ 3 ,1 ,1 ] ,[ 2 ,2 ,1 ] ,[ 2 ,1 ,1 ,1 ] , [ 1 ,1 ,1 ,1 ,1 ] ] ( %I 3 )t r e i n a t( [ 3 ,2 ] ) ; ( %O 3 )[ [ 5 ] ,[ 4 ,1 ] ,[ 3 ,2 ] ] V e rt a m b i n :` l g t r e i l l i s' , `l t r e i l l i s 'y` t r e i l l i s .
F u n c i n :e l e 2 p o l y n o m e( < L > ,< z > ) d e v u e l v ee lp o l i n o m i oe n< z >s tl as i m t r i c ae l e m e n t a l f u n c i o n e sd es u sr a c e se s t ne nl al i s t a` < L >=[ < n > ,< e _ 1 > ,. . . , < e _ n > ]' ,d o n d e< n >e se lg r a d od e lp o l i n o m i oye l< e _ i > s i m af u n c i ns i m t r i c ae l e m e n t a l . ( %I 1 )e l e 2 p o l y n o m e( [ 2 ,e 1 ,e 2 ] ,z ) ; 2 ( %O 1 )z-ze 1+e 2 ( %I 2 )p o l y n o m e 2 e l e( x^7 1 4*x^5+5 6*x^3 5 6*x+2 2 ,x ) ; ( %O 2 )[ 7 ,0-1 4 ,0 ,5 6 ,0 ,-5 6 ,- 2 2 ] ( %I 3 )e l e 2 p o l y n o m e( [ 7 ,0 ,1 4 ,0 ,5 6 ,0 ,5 6 ,2 2 ] ,x ) ; 753 ( %O 3 )x-1 4x+5 6x-5 6x+2 2 L ai n v e r s a :` p o l y n o m e 2 e l e( ,< z > ) . V e rt a m b i n :` p o l y n o m e 2 e l e' , `p u i 2 p o l y n o m e ' .
F u n c i n :p o l y n o m e 2 e l e( ,< x > ) d al al i s t a` < l >=[ < n > ,< e _ 1 > ,. . . ,< e _ n > ]' d o n d e< n >e se l g r a d od e lp o l i n o m i oe ne l< x >v a r i a b l ey< e _ i >e sl a l af u n c i ns i m t r i c ae l e m e n t a ld el a sr a c e sd e . ( %I 1 )p o l y n o m e 2 e l e( x^7 1 4*x^5+5 6*x^3 5 6*x+2 2 ,x ) ;
285/633
28/08/13

( %O 1 )[ 7 ,0-1 4 ,0 ,5 6 ,0 ,-5 6 ,- 2 2 ] ( %I 2 )e l e 2 p o l y n o m e( [ 7 ,0 ,1 4 ,0 ,5 6 ,0 ,5 6 ,2 2 ] ,x ) ; 753 ( %O 2 )x-1 4x+5 6x-5 6x+2 2 L ai n v e r s a :` e l e 2 p o l y n o m e( < l > ,< x > )'
F u n c i n :p r o d r a c( < L > ,< k > ) < L >E su n al i s t aq u ec o n t i e n el a sf u n c i o n e ss i m t r i c a se l e m e n t a l e se nu n e s t a b l e c e r< A > .` P r o d r a c' d e v u e l v ee lp o l i n o m i oc u y a sr a c e ss o nl a< k > p o rp r o d u c t o s< k >d el o se l e m e n t o sd e< A > . C o n s u l t et a m b i n` s o m r a c' .
F u n c i n :p u i 2 p o l y n o m e( < x >< l p u i > ) C a l c u l ae lp o l i n o m i od e< x >c u y op o d e rl a sf u n c i o n e sd el a sr a c e s f i g u r a ne nl al i s t a< l p u i > . ( %I 1 )p u i ; ( %O 1 )1 ( %I 2 )k i l l( e t i q u e t a s ) ; ( %O 0 )h e c h o ( %I 1 )p o l y n o m e 2 e l e( x^3 4*x^2+5*x-1 ,x ) ; ( %O 1 )[ 3 ,4 ,5 ,1 ] ( %I 2 )e l e 2 p u i( 3 , % ) ; ( %O 2 )[ 3 ,4 ,6 ,7 ] ( %I 3 )p u i 2 p o l y n o m e( x , % ) ; 32 ( %O 3 )x-4x+5x-1 V e rt a m b i n :` p o l y n o m e 2 e l e' , è l e 2 p o l y n o m e ' .
F u n c i n :s o m r a c( < L > ,< k > ) L al i s t a< L >c o n t i e n ef u n c i o n e ss i m t r i c a se l e m e n t a l e sd eu n p o l i n m i c a .L af u n c i nc a l c u l ae lp o l i n o m i oc u y a sr a c e s s o nl o s< k >p o rs u m a sd i s t i n t a s< k >d el a sr a c e sd e . C o n s u l t et a m b i n` p r o d r a c' .
F u n c i n :r e s o l v a n t e( ,< x >< f > ,[ < x _ 1 > ,. . . ,< x _ d > ] ) c a l c u l ae lr e s o l u t i v od e lp o l i n o m i oe n< x >d eg r a d o < n > >=< d >p o re l< f >f u n c i ne x p r e s a d ae ne l< x _ 1 >v a r i a b l e s . . . ,< x _ d > .P a r al ae f i c i e n c i ad el ac o m p u t a c i ne si m p o r t a n t en o i n c l u i re nl al i s t a[ < x _ 1 > ,. . . ,< x _ d > ]" v a r i a b l e s `q u en ol oh a c e n a p a r e c e r e nl af u n c i n< f >t r a n s f o r m a c i n . P a r aa u m e n t a rl ae f i c i e n c i ad el ac o m p u t a c i ns ep u e d ee s t a b l e c e ri n d i c a d o r e se n ` R e s o l v a n t e' c o ne lf i nd eu t i l i z a ra l g o r i t m o sa p r o p i a d o s : S il af u n c i ne s< f >u n i t a r i a : *U np o l i n o m i oe nu n av a r i a b l e n i c a , *L i n e a l , *A l t e r n a , *U n as u m a , *S i m t r i c a , *U np r o d u c t o , *L af u n c i nd e lC a y l e yr e s o l u t i v o( u t i l i z a b l eh a s t ag r a d o5 ) ( X 1*x 2+x 2+x 3*x 3*x 4+x 5+x 4*x 5*x 1( X 1*x 3x 3+*+x 5x 5*x 2+x 4+x 2*x 4*x 1 ) )^2 e ng e n e r a l , l ab a n d e r ad e` r e s o l v a n t e' p u e d es e r ,r e s p e c t i v a m e n t e : *U n i t a i r e , *L i n e a i r e , *A l t e r n e , *S o m m e , *P r o d u i t , *C a y l e y , *G e n e r a l e . ( %I 1 )r e s o l v a n t e :u n i t a i r e$ ( %I 2 )r e s o l v a n t e( x^7 1 4*x^5+5 6*x^3 5 6*x+2 2 ,x ,x^3-1 ,
286/633
28/08/13
[ X ] ) ;
" R e s o l v a n t eu n i t a i r e "[ 7 ,0 ,2 8 ,0 ,1 6 8 ,0 ,1 1 2 0 ,-1 5 4 ,7 8 4 0 , -2 . 7 7 2 ,5 6 . 4 4 8 ,-3 3 . 8 8 0 , 4 1 3 . 9 5 2 ,-3 5 2 . 3 5 2 ,3 . 0 7 6 . 6 6 8 ,-3 . 3 6 3 . 3 6 0 ,2 3 . 1 1 4 . 1 1 2 ,-3 0 4 9 4 4 6 4 , 1 7 5 2 3 0 8 3 2 ,-2 6 7 4 1 2 9 9 2 ,1 3 3 8 8 8 6 5 2 8 ,-2 2 9 2 1 2 6 7 6 0 ] 363963 [ X-1 ,x-2x+1 ,x-x3+3x-1 , 1 29631 51 2963 x-4x+6x-4x+1 ,x-x+5x1 0-1 0x+5x 1 81 51 2963 -1 ,x-x+6x1 5-2 0x1 5+x-6x+1 , 2 11 81 51 2963 x-x+7x2 1-3 5x+3 5x-2 1x+7x-1 ] [ -7 ,1 1 2 7 ,-6 1 3 9 ,4 3 17 6 7 ,-5 4 7 2 0 4 7 ,2 0 16 9 25 1 9 ,-3 6 0 3 9 8 2 0 1 1 ] 765432 ( %O 2 )y+7y-y5 3 9-1 8 4 1y+5 14 4 33 1 51 3 3y+y +3 7 69 9 9y+1 2 52 5 3 ( %I 3 )r e s o l v a n t e :l i n e a i r e$ ( %I 4 )r e s o l v a n t e( x^4-1 ,x ,x 1+x 2+2*3*x 3 ,[ x 1 ,x 2 ,x 3 ] ) ; " R e s o l v a n t el i n e a i r e " 2 42 01 61 28 ( %O 4 )y+8 0y+7 . 5 2 0y+y+1 . 1 0 7 . 2 0 0y4 9 . 4 7 5 . 8 4 0 4 +3 4 4 4 8 9 9 8 4y+6 5 5 3 6 0 0 0 0 ( %I 5 )r e s o l v a n t e :G e n e r a l$ ( %I 6 )r e s o l v a n t e( x^4-1 ,x ,x 1+x 2+2*3*x 3 ,[ x 1 ,x 2 ,x 3 ] ) ; " R e s o l v a n t eg e n e r a l e " 2 42 01 61 28 ( %O 6 )y+8 0y+7 . 5 2 0y+y+1 . 1 0 7 . 2 0 0y4 9 . 4 7 5 . 8 4 0 4 +3 4 4 4 8 9 9 8 4y+6 5 5 3 6 0 0 0 0 ( %I 7 )r e s o l v a n t e( x^4-1 ,x ,x 1+x 2+2*3*x 3 ,[ x 1 ,x 2 ,x 3 ,x 4 ] ) ; " R e s o l v a n t eg e n e r a l e " 2 42 01 61 28 ( %O 7 )y+8 0y+7 . 5 2 0y+y+1 . 1 0 7 . 2 0 0y4 9 . 4 7 5 . 8 4 0 4 +3 4 4 4 8 9 9 8 4y+6 5 5 3 6 0 0 0 0 ( %I 8 )d i r e c t a( [ x^4-1 ] ,x ,x 1+x 2+2*3*x 3 ,[ [ x 1 ,x 2 ,x 3 ] ] ) ; 2 42 01 61 28 ( %O 8 )y+8 0y+7 . 5 2 0y+y+1 . 1 0 7 . 2 0 0y4 9 . 4 7 5 . 8 4 0 4 +3 4 4 4 8 9 9 8 4y+6 5 5 3 6 0 0 0 0 ( %I 9 )r e s o l v a n t e :l i n e a i r e$ ( %I 1 0 )r e s o l v a n t e( x^4-1 ,x ,x 1+x 2+x 3 ,[ x 1 ,x 2 ,x 3 ] ) ; " R e s o l v a n t el i n e a i r e " 4 ( %O 1 0 )y-1 ( %I 1 1 )r e s o l v a n t e :S y m e t r i q u e$ ( %I 1 2 )r e s o l v a n t e( x^4-1 ,x ,x 1+x 2+x 3 ,[ x 1 ,x 2 ,x 3 ] ) ; " R e s o l v a n t eS y m e t r i q u e " 4 ( %O 1 2 )y-1 ( %I 1 3 )r e s o l v a n t e( x^4+x+1 ,x ,x 1-x 2 ,[ x 1 ,x 2 ] ) ; " R e s o l v a n t eS y m e t r i q u e " 62 ( %O 1 3 )y-4y-1 ( %I 1 4 )r e s o l v a n t e :a l t e r n e$ ( %I 1 5 )r e s o l v a n t e( x^4+x+1 ,x ,x 1-x 2 ,[ x 1 ,x 2 ] ) ; " R e s o l v a n t ea l t e r n e " 1 28642 ( %O 1 5 )y+8y+2 6y-1 1 2y+2 1 6y+2 2 9 ( %I 1 6 )r e s o l v a n t e :p r o d u i t$ ( %I 1 7 )r e s o l v a n t e( x^7 7*x+3 ,x ,x 1*x 2*x 3 ,[ x 1 ,x 2 ,x 3 ] ) ; " R e s o l v a n t ep r o d u i t " 3 53 32 92 82 72 6 ( %O 1 7 )y-y7-1 0 2 9y+y+1 3 5y7 2 0 3-7 5 6y 2 42 32 22 12 0 1 3 2 3+y+3 5 29 4 7y-4 6 3 0 5y-2 . 4 6 3 . 3 3 9y+3 2 41 3 5y 1 91 81 71 5 -3 0 6 1 8y-4 5 3 7 8 9y-4 0 2 4 6 4 4 4y+2 8 22 2 52 0 2y 1 41 21 11 0 -4 4 2 7 4 4 9 2y+1 5 5 0 9 8 5 0 3y+1 2 2 5 2 3 0 3y+2 8 9 3 4 0 1y 9876 -1 7 1 5 3 2 2 4 2y+6 7 5 1 2 6 9+2 6 5 7 2 0 5yY-9 4 5 1 7 7 6 6y
287/633
28/08/13

53 -3 7 2 0 0 8 7y+2 6 0 4 0 6 0 9y+1 4 3 4 8 9 0 7 ( %I 1 8 )r e s o l v a n t e :S y m e t r i q u e$ ( %I 1 9 )r e s o l v a n t e( x^7 7*x+3 ,x ,x 1*x 2*x 3 ,[ x 1 ,x 2 ,x 3 ] ) ; " R e s o l v a n t eS y m e t r i q u e " 3 53 32 92 82 72 6 ( %O 1 9 )y-y7-1 0 2 9y+y+1 3 5y7 2 0 3-7 5 6y 2 42 32 22 12 0 1 3 2 3+y+3 5 29 4 7y-4 6 3 0 5y-2 . 4 6 3 . 3 3 9y+3 2 41 3 5y 1 91 81 71 5 -3 0 6 1 8y-4 5 3 7 8 9y-4 0 2 4 6 4 4 4y+2 8 22 2 52 0 2y 1 41 21 11 0 -4 4 2 7 4 4 9 2y+1 5 5 0 9 8 5 0 3y+1 2 2 5 2 3 0 3y+2 8 9 3 4 0 1y 9876 -1 7 1 5 3 2 2 4 2y+6 7 5 1 2 6 9+2 6 5 7 2 0 5yY-9 4 5 1 7 7 6 6y 53 -3 7 2 0 0 8 7y+2 6 0 4 0 6 0 9y+1 4 3 4 8 9 0 7 ( %I 2 0 )r e s o l v a n t e :c a y l e y$ ( %I 2 1 )r e s o l v a n t e( x^5 4*x^2+x+1 ,x ,a ,[ ] ) ; " R e s o l v a n t ed eC a y l e y " 65432 ( %O 2 1 )x-4 0x+4 , 0 8 0x-9 2 , 9 2 8x+x+3 . 7 7 2 . 1 6 03 7 . 8 8 0 . 8 3 2x +9 3 3 9 2 8 9 6 P a r ae lC a y l e yr e s o l u t i v o ,l o s2 l t i m o sa r g u m e n t o ss o nn e u t r a l e sye l p o l i n o m i od ee n t r a d ad e b es e rn e c e s a r i a m e n t ed eg r a d o5 . V e rt a m b i n : R e s o l v a n t e _ b i p a r t i t e` ' , `r e s o l v a n t e _ p r o d u i t _ s y m ' , R e s o l v a n t e _ u n i t a i r e` ' , `r e s o l v a n t e _ a l t e r n e e 1 ' ,` r e s o l v a n t e _ k l e i n' , R e s o l v a n t e _ k l e i n 3` ' , `r e s o l v a n t e _ v i e r e r ' ,` r e s o l v a n t e _ d i e d r a l e' .
F u n c i n :r e s o l v a n t e _ a l t e r n e e 1( ,< x > ) c a l c u l al at r a n s f o r m a c i n` ( < x > )' d e< n >m e d i d ap o rl a f u n c i nd e lp r o d u c t o( x _ i-x _ j ,1< =i< j< =n-1 ) . V e rt a m b i n : R e s o l v a n t e _ p r o d u i t _ s y m` ' , `r e s o l v a n t e _ u n i t a i r e ' , R e s o l v a n t e` ' , `r e s o l v a n t e _ k l e i n ' ,` r e s o l v a n t e _ k l e i n 3' , R e s o l v a n t e _ v i e r e r` ' , `r e s o l v a n t e _ d i e d r a l e ' ,` r e s o l v a n t e _ b i p a r t i t e' .
F u n c i n :r e s o l v a n t e _ b i p a r t i t e( ,< x > ) c a l c u l al at r a n s f o r m a c i nd e l` ( < x > )' d ei n c l u s o< n >g r a d od e l af u n c i nx _ 1 ,x _ 2. . .x _[ n/2 ]+x _[ n/2+1 ]. . .x _ n . ( %I 1 )r e s o l v a n t e _ b i p a r t i t e( x^6+1 0 8 ,x ) ; 1 0864 ( %O 1 )y-9 7 2y+3 1 49 2 8y-3 4 0 1 2 2 2 4y V e rt a m b i n : R e s o l v a n t e _ p r o d u i t _ s y m` ' , `r e s o l v a n t e _ u n i t a i r e ' , R e s o l v a n t e` ' , `r e s o l v a n t e _ k l e i n ' ,` r e s o l v a n t e _ k l e i n 3' , R e s o l v a n t e _ v i e r e r` ' , `r e s o l v a n t e _ d i e d r a l e ' ,` r e s o l v a n t e _ a l t e r n e e 1' .
F u n c i n :r e s o l v a n t e _ d i e d r a l e( ,< x > ) c a l c u l al at r a n s f o r m a c i nd e l` ( < x > )' p o rl af u n c i n `< x _ 1 > < x _ 2 >+< x _ 3 >< x _ 4 >' . ( %I 1 )r e s o l v a n t e _ d i e d r a l e( x^5 3*x^4+1 ,x ) ; 1 51 21 11 0987 ( %O 1 )x-x2 1-8 1x-2 1x+2 0 7x+1 , 1 3 4x+2 , 3 3 1x 65432 -X9 4 5-4 9 7 0x-x1 8 3 3 3-2 9 0 7 9x-x2 0 7 4 5-2 5 3 2 6x -6 9 7 V e rt a m b i n : R e s o l v a n t e _ p r o d u i t _ s y m` ' , `r e s o l v a n t e _ u n i t a i r e ' , R e s o l v a n t e _ a l t e r n e e 1` ' , `r e s o l v a n t e _ k l e i n ' ,` r e s o l v a n t e _ k l e i n 3' , R e s o l v a n t e _ v i e r e r` ' , `r e s o l v a n t e ' .
F u n c i n :r e s o l v a n t e _ k l e i n( ,< x > ) c a l c u l al at r a n s f o r m a c i nd e l` ( < x > )' p o rl af u n c i n `< x _ 1 >
288/633
28/08/13
< x _ 2 >< x _ 4 >+< x _ 4 >' .
V e rt a m b i n : R e s o l v a n t e _ p r o d u i t _ s y m` ' , `r e s o l v a n t e _ u n i t a i r e ' , R e s o l v a n t e _ a l t e r n e e 1` ' , `r e s o l v a n t e ' ,` r e s o l v a n t e _ k l e i n 3' , R e s o l v a n t e _ v i e r e r` ' , `r e s o l v a n t e _ d i e d r a l e ' .
F u n c i n :r e s o l v a n t e _ k l e i n 3( ,< x > ) c a l c u l al at r a n s f o r m a c i nd e l` ( < x > )' p o rl af u n c i n `< x _ 1 > < x _ 2 >< x _ 4 >+< x _ 4 >' . V e rt a m b i n : R e s o l v a n t e _ p r o d u i t _ s y m` ' , `r e s o l v a n t e _ u n i t a i r e ' , R e s o l v a n t e _ a l t e r n e e 1` ' , `r e s o l v a n t e _ k l e i n ' ,` r e s o l v a n t e' , R e s o l v a n t e _ v i e r e r` ' , `r e s o l v a n t e _ d i e d r a l e ' .
F u n c i n :r e s o l v a n t e _ p r o d u i t _ s y m( ,< x > ) c a l c u l al al i s t ad et o d o sl o sr e s o l v e n t e sd ep r o d u c t o sd e lp o l i n o m i o ` ( < x > ) . ( %I 1 )r e s o l v a n t e _ p r o d u i t _ s y m( x^5+3*x^4+2*x-1 ,x ) ; 541 08765 ( %O 1 )[ y+3y+2y-1 ,y-2y-2 1y-3 1y-1 4y 4321 087654 -1 4y+y+3y+1 ,y+3y+1 4y-y-y1 4-3 1a o s 3254 -2 1y-2y+1 ,y-2y-3y-1 ,y-1 ] ( %I 2 )r e s o l v a n t e :$p r o d u i t ( %I 3 )r e s o l v a n t e( x^3+5*x^2+4*x-1 ,x ,a*b*c ,[ a ,b ,c ] ) ; " R e s o l v a n t ep r o d u i t " 1 08765432 ( %O 3 )y+3y+1 4y-y-1 4y-3 1y-2 1y-2y+1 V e rt a m b i n : R e s o l v a n t e` ' , `r e s o l v a n t e _ u n i t a i r e ' , R e s o l v a n t e _ a l t e r n e e 1` ' , `r e s o l v a n t e _ k l e i n ' , R e s o l v a n t e _ k l e i n 3` ' , `r e s o l v a n t e _ v i e r e r ' , ` R e s o l v a n t e _ d i e d r a l e' .
F u n c i n :r e s o l v a n t e _ u n i t a i r e( ,< Q > ,< x > ) c a l c u l ae lr e s o l u t i v od e l` p o l i n o m i o( < x > )' p o rl a p o l i n o m i o` < Q >( < x > ) . V e rt a m b i n : R e s o l v a n t e _ p r o d u i t _ s y m` ' , `r e s o l v a n t e ' , R e s o l v a n t e _ a l t e r n e e 1` ' , `r e s o l v a n t e _ k l e i n ' ,` r e s o l v a n t e _ k l e i n 3' , R e s o l v a n t e _ v i e r e r` ' , `r e s o l v a n t e _ d i e d r a l e ' .
F u n c i n :r e s o l v a n t e _ v i e r e r( ,< x > ) c a l c u l al at r a n s f o r m a c i nd e l` ( < x > )' p o re l `< x _ 1 >f u n c i n < x _ 2 >-< x _ 3 >< x _ 4 >' . V e rt a m b i n : R e s o l v a n t e _ p r o d u i t _ s y m` ' , `r e s o l v a n t e _ u n i t a i r e ' , R e s o l v a n t e _ a l t e r n e e 1` ' , `r e s o l v a n t e _ k l e i n ' ,` r e s o l v a n t e _ k l e i n 3' , R e s o l v a n t e` ' , `r e s o l v a n t e _ d i e d r a l e ' .
F u n c i n :m u l t i n o m i a l( < r > , ) d o n d e< r >e se lp e s od el ap a r t i c i n .E s t af u n c i n d e v u e l v ee lc o e f i c i e n t em u l t i n o m i a la s o c i a d o :s il a sp a r t e sd e l s o n , ,. . . , ,e lr e s u l t a d oe s` < r > !/( ! !. . . ! )' .
F u n c i n :P e r m u t( < L > ) d e v u e l v el al i s t ad ep e r m u t a c i o n e sd el al i s t a< L > .
31 Grupos
F u n c i o n e syv a r i a b l e sp a r aG r u p o s
289/633
28/08/13
31.1 Funciones y variables para Grupos

F u n c i n :t o d d _ c o x e t e r( < r e l a t i o n s > ,< s u b g r o u p > ) F u n c i n :t o d d _ c o x e t e r( < r e l a t i o n s > ) E n c o n t r a re lo r d e nd eG/Hd o n d eGe se lg r u p od em d u l ol i b r e < r e l a t i o n s > ,yHe se ls u b g r u p od eGg e n e r a d op o r< s u b g r o u p > . < s u b g r o u p >e su na r g u m e n t oo p c i o n a l ,p o rd e f e c t oa[ ] .A lh a c e r e s t ep r o c e s os eo b t i e n eu n at a b l ad em u l t i p l i c a c i np a r al aa c c i nc o r r e c t ad eG e nG/H ,d o n d el a sc l a s e sl a t e r a l e ss o ne n u m e r a d o s[ H ,H g 2 ,H g 3 ,. . . ] .E s t op u e d e v e r s ei n t e r n a m e n t ee ne l` t o d d _ c o x e t e r _ s t a t e' v a r i a b l e . E j e m p l o : ( %I 1 )s y m e t( n ) :=c r e a t e _ l i s t( s i( j-i )=1 ,e n t o n c e s( p( i ,j ) )^^3m s s i( n oi=j ) ,e n t o n c e s( p( i ,j ) )^2ô t r ac o s a p( i ,i ) ,j ,1 ,n 1 ,i ,1 ,j ) ; < 3 > ( %O 1 )s y m e t( n ) :=c r e a t e _ l i s t( s ij-i=1e n t o n c e sp( i ,j ) < 2 > o t r o( s in oi=je n t o n c e sp( i ,j )e l s ep( i ,i ) ) ,j ,1 ,n-1 , i ,1 ,j ) .( %I 2 )p( i ,j ) :=c o n c a t( x ,i )c o n c a t( x ,j ) ; ( %O 2 )p( i ,j ) :=c o n c a t( x ,i ) .c o n c a t( x ,j ) ( %I 3 )s y m e t( 5 ) ; < 2 >< 3 >< 2 >< 2 >< 3 > ( %O 3 )[ x 1 ,( x 1 .X 2 ) ,x 2( x 1 .X 3 ) ,( x 2 .X 3 ) , < 2 >< 2 >< 2 >< 3 >< 2 > x 3 ,( x 1 .x 4 ) ,( x 2 .x 4 ) ,( x 3 .x 4 ) ,x 4 ] ( %I 4 )t o d d _ c o x e t e r( %o 3 ) ; F i l a st r a t a r o n4 2 6 ( %O 4 )1 2 0 ( %I 5 )t o d d _ c o x e t e r( %o 3 ,[ x 1 ] ) ; F i l a st r a t a r o n2 1 3 ( %O 5 )6 0 ( %I 6 )t o d d _ c o x e t e r( %o 3 ,[ x 1 ,x 2 ] ) ; F i l a st r a t a r o n7 1 ( %O 6 )2 0
32 Runtime Environment
I n t r o d u c c i np a r aR u n t i m eE n v i r o n m e n t A l a r m a s F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n
32.1 Introduccin al entorno de ejecucin

` M a x i m a i n i t . m a c' e su na r c h i v oq u es ec a r g aa u t o m t i c a m e n t ec u a n d oM a x i m a c o m i e n z a .U s t e dp u e d eu s a r` m a x i m a i n i t . m a c' p a r ap e r s o n a l i z a rs uM a x i m a m e d i oa m b i e n t e .` M a x i m a i n i t . m a c' ,s ie x i s t e ,s ec o l o c an o r m a l m e n t ee n e ld i r e c t o r i ol l a m a d o` p o rm a x i m a _ u s e r d i r' ,a u n q u ep u e d ee s t a re nc u a l q u i e r d i r e c t o r i ob u s c a d op o rl af u n c i n` f i l e _ s e a r c h' . E s t ee su na r c h i v om a x i m a i n i t . m a c' e j e m p l o ' : s e t u p _ a u t o l o a d( " s p e c f u n . m a c " ,u l t r a s p h e r i c a l ,a s s o c _ l e g e n d r e _ p ) ; s h o w t i m e :a l l ; E ne s t ee j e m p l o ,` s e t u p _ a u t o l o a d' l ed i c eaM a x i m aq u ec a r g u ee le s p e c i f i c a d o a r c h i v o( ` s p e c f u n . m a c' )s ia l g u n ad el a sf u n c i o n e s( u l t r a s p h e r i c a l ` ' , ` A s s o c _ l e g e n d r e _ p' )s o nl l a m a d o s ,p e r oa nn os ed e f i n e .P o rl ot a n t on oe sn e c e s a r i o r e c u e r d ec a r g a re la r c h i v oa n t e sd el l a m a ral a sf u n c i o n e s . L ad e c l a r a c i n` s h o w t i m e :a l l' l ed i c eaM a x i m aq u ee s t a b l e c ee l 's h o w t i m e' v a r i a b l e .E la r c h i v o` m a x i m a i n i t . m a c' p u e d ec o n t e n e rc u a l q u i e ro t r aa s i g n a c i n uo t r a sd e c l a r a c i o n e sd eM a x i m a .
32.2 Interrupciones
E lu s u a r i op u e d ed e t e n e ru nc m p u t od et i e m p oc o ne l^C( c o n t r o l C ) c a r c t e r .L aa c c i np r e d e t e r m i n a d ae sd e t e n e re lc l c u l oei m p r e s i n o t r ou s u a r i od e ls i s t e m a .E ne s t ec a s o ,n oe sp o s i b l er e i n i c i a ru n d e j a d od ec l c u l o . S il av a r i a b l eL i s p` *d e b u g g e r h o o k*' e s t e n `n i l ' ,m e d i a n t el ae j e c u c i nd e :L i s p( s e t q*d e b u g g e r h o o k*n i l ) e n t o n c e st r a sr e c i b i r^C ,M a x i m ae n t r ae ne ld e p u r a d o rd eL i s pye l
290/633
28/08/13

u s u a r i op u e d eu t i l i z a re ld e p u r a d o rp a r ai n s p e c c i o n a re le n t o r n oL i s p .E ld e t e n i d o c l c u l os ep u e d er e i n i c i a rm e d i a n t el ai n t r o d u c c i nd e` s e g u i r' e nL i s p d e p u r a d o r .L o sm e d i o sd ev o l v e raM a x i m ad e s d ee ld e p u r a d o rd eL i s p ( A p a r t ed ep e r m i t i rl ac o m p u t a c i nh a s t al at e r m i n a c i n )e sd i f e r e n t ep a r a c a d av e r s i nd eL i s p . E nl o ss i s t e m a sU n i x ,e lc a r c t e r^Z( c o n t r o l Z )h a c eq u eM a x i m ad e j ed e p o rc o m p l e t o ,ys ed e v u e l v ee lc o n t r o lal al n e ad ec o m a n d o s .E l` f g' c o m a n d oh a c eq u eM a x i m ap a r ar e a n u d a rd e s d ee lp u n t oe nq u es ed e t u v o .
32.3 Funciones y variables para el entorno de tiempo de ejecucin

V a r i a b l ed e ls i s t e m a :m a x i m a _ t e m p d i r ` M a x i m a _ t e m p d i r' d an o m b r ea ld i r e c t o r i oe ne lq u eM a x i m ac r e ac i e r t a a r c h i v o st e m p o r a l e s .E np a r t i c u l a r ,l o sa r c h i v o st e m p o r a l e sp a r ae lt r a z a d os o n c r e a d oe n` m a x i m a _ t e m p d i r' . E lv a l o ri n i c i a ld e` m a x i m a _ t e m p d i r' e se lh o g a rd e lu s u a r i o d i r e c t o r i o ,s iM a x i m ae sc a p a zd el o c a l i z a r l o ,d el oc o n t r a r i oM a x i m ai n t e n t a s o b r eu nd i r e c t o r i oa d e c u a d o . ` M a x i m a _ t e m p d i r' s el ep u e d ea s i g n a ru n ac a d e n ad ec a r a c t e r e sc o nu nd i r e c t o r i o .
V a r i a b l ed e ls i s t e m a :m a x i m a _ u s e r d i r ` M a x i m a _ u s e r d i r' n o m b r aau nd i r e c t o r i oq u eM a x i m ab u s c a r M a x i m ayL i s pa r c h i v o s .( M a x i m at a m b i nb u s c ae no t r o sd i r e c t o r i o sc o m o a s ,` f i l e _ s e a r c h _ m a x i m a' y `f i l e _ s e a r c h _ l i s p 's o ne lc o m p l e t o l i s t a s . ) E lv a l o ri n i c i a ld e` m a x i m a _ u s e r d i r' e su ns u b d i r e c t o r i od e l d i r e c t o r i od ei n i c i od e lu s u a r i o ,s iM a x i m ae sc a p a zd el o c a l i z a r l o ,d el oc o n t r a r i oM a x i m a h a c eu n as u p o s i c i ns o b r eu nd i r e c t o r i oa d e c u a d o . ` M a x i m a _ u s e r d i r' s el ep u e d ea s i g n a ru n ac a d e n ad ec a r a c t e r e sc o nu nd i r e c t o r i o . S i ne m b a r g o ,l aa s i g n a c i nd e` m a x i m a _ u s e r d i r' n oa u t o m t i c a m e n t e C a m b i e` f i l e _ s e a r c h _ m a x i m a' y `f i l e _ s e a r c h _ l i s p ' ,a q u e l l o s l a sv a r i a b l e sd e b e ns e rc a m b i a d o sp o rs e p a r a d o .
F u n c i n :h a b i t a c i n( ) F u n c i n :h a b i t a c i n( t r u e ) F u n c i n :h a b i t a c i n( f a l s e ) I m p r i m eu n ad e s c r i p c i nd e le s t a d od ea l m a c e n a m i e n t oyl ap i l a g e s t i nd eM a x i m a .' R o o m 'l l a m aal af u n c i nL i s pd e lm i s m o n o m b r e . *` S a l a( )i m p r i m eu n ad e s c r i p c i nm o d e r a d o . *` H a b i t a c i n( t r u e )' i m p r i m eu n ad e s c r i p c i nd e t a l l a d a . *` H a b i t a c i n( f a l s e )' i m p r i m eu n ad e s c r i p c i nc o n c i s a .
F u n c i n :s s t a t u s( < k e y w o r d > , ) C u a n d o< k e y w o r d >e sl af u n c i n` ' s m b o l o ,s ep u s oe nl al i s t a d el a sc a r a c t e r s t i c a sd e ls i s t e m a .D e s p u s` s s t a t u s( p a l a b r ac l a v e ,t e m a )' s ee j e c u t a , ` S t a t u s( f e a t u r e ,e l e m e n t o )' d e v u e l v e `t r u e ' .S i< k e y w o r d >e sl a s m b o l o` n o f e a t u r e' ,s ee l i m i n ad el al i s t ad es i s t e m a c a r a c t e r s t i c a s .E s t op u e d es e r t i lp a r al o se s c r i t o r e sd ep a q u e t e s ,p a r ar e a l i z a ru ns e g u i m i e n t o d el a sc a r a c t e r s t i c a sq u es eh a nc a r g a d op u l g C o n s u l t et a m b i n` s t a t u s' .
F u n c i n :s t a t u s( ' f u n c i n ' ) F u n c i n :s t a t u s( ' f u n c i n ' , ) D e v u e l v ei n f o r m a c i ns o b r el ap r e s e n c i aoa u s e n c i ad ed e t e r m i n a d a s d e p e n d i e n t ed e ls i s t e m ac a r a c t e r s t i c a s . *` S t a t u s( f e a t u r e )' d e v u e l v eu n al i s t ad el a sc a r a c t e r s t i c a sd e ls i s t e m a .E s t o s i n c l u i rl av e r s i nd eL i s p ,t i p od es i s t e m ao p e r a t i v o ,e t cL al i s t a p u e d ev a r i a rd eu nL i s pao t r o . *` S t a t u s( f e a t u r e ,e l e m e n t o )' d e v u e l v e 't r u e' s ie s t e nl a l i s t ad ea r t c u l o sd e v u e l t o sp o r` s t a t u s( f e a t u r e )' y 'f a l s e' d eo t r om o d o .` S t a t u s' c i t ae la r g u m e n t o .L a o p e r a d o rc o m i l l a c o m i l l a ' '` ' aq u es er e a l i c e .U n ad el a sc a r a c t e r s t i c a sq u e n o m b r ec o n t i e n eu nc a r c t e re s p e c i a l ,c o m ou ng u i n ,d e b es e r d a d oc o m ou na r g u m e n t od ec a d e n a .P o re j e m p l o ,e le s t a d o( f u n c i n` , " A n s i c l " ) . C o n s u l t et a m b i n` s s t a t u s' .
291/633
28/08/13

L o s` c a r a c t e r s t i c a sv a r i a b l e s "c o n t i e n eu n al i s t ad el a sc a r a c t e r s t i c a sq u es ea p l i c a na e x p r e s i o n e sm a t e m t i c a s .C o n s u l t e` f u n c i o n e s' y `f e a t u r e p 'p a r am s i n f o r m a c i n .
F u n c i n :s i s t e m a( < c o m a n d o > ) E j e c u t a< c o m a n d o >c o m ou np r o c e s oi n d e p e n d i e n t e .E lc o m a n d os ep a s a al as h e l lp o rd e f e c t op a r as ue j e c u c i n .` S i s t e m a' n oa d m i t e t o d o sl o ss i s t e m a so p e r a t i v o s ,p e r os u e l ee s t a r l oe nU n i xyU n i x l i k e a m b i e n t e s . S u p o n i e n d o_ h i s t . o u t` ' e su n al i s t ad ef r e c u e n c i a sq u ed e s e a p a r c e l ae nf o r m ad eg r f i c od eb a r r a su t i l i z a n d o` x g r a p h' . ( %I 1 )( w i t h _ s t d o u t( " _ h i s t . o u t " , p a r ai :1t h r ul o n g i t u d( h i s t )h a c e r( p r i n t( i ,h i s t[ i ] ) ) ) , d e ls i s t e m a( " x g r a p h b a r b r w0 . 7 n l< _ h i s t . o u t " ) ) ; C o ne lf i nd eh a c e rq u el at r a m as er e a l i z ae ns e g u n d op l a n o( v o l v i e n d o c o n t r o l a raM a x i m a )ye l i m i n a re la r c h i v ot e m p o r a ld e s p u sd eq u es eh a g a h a c e r : d e ls i s t e m a( " ( x g r a p h b a r b r w0 . 7 n l< _ h i s t . o u t ;r m f_ h i s t . o u t )& " ) F u n c i n :t i e m p o( %o 1 , %o 2 , %o 3 ,. . . ) D e v u e l v eu n al i s t ad el a sv e c e s ,e ns e g u n d o s ,q u ef u e r o nn e c e s a r i o sp a r ac a l c u l a rl a l n e a sd es a l i d a` %o 1' , ' %o 2' , ` %o 3 ' ,. . .L ah o r ad e v u e l t ae sM a x i m a e s t i m a c i nd e lt i e m p od ec l c u l oi n t e r n o ,n oe lt i e m p ot r a n s c u r r i d o . ` T i e m p o' s l os ep u e d ea p l i c a ral a sv a r i a b l e sd el al n e ad es a l i d a ;p a r ac u a l q u i e ro t r a l a sv a r i a b l e s ,' t i e m p o 'd e v u e l v e` d e s c o n o c i d o' . E s t a b l e c e r` s h o w t i m e :t r u e "p a r aq u eM a x i m ad e v u e l v ae lt i e m p od ec l c u l o ye lt i e m p ot r a n s c u r r i d oe n t r el al n e ad es a l i d a .
F u n c i n :T i m e D a t e( ) F u n c i n :T i m e D a t e( < T > ) ` T i m e D a t e( )s i na r g u m e n t o sd e v u e l v eu n ac a d e n aq u er e p r e s e n t ae l h o r ayl af e c h aa c t u a l .L ac a d e n at i e n ee lf o r m a t o' A A A A M M D D H H :M M :S S[ +|]Z Z :Z Z' ,d o n d el o sc a m p o ss o na o s ,m e s e s ,d a s ,h o r a s , m i n u t o s ,s e g u n d o syz o n ah o r a r i ae nh o r a sym i n u t o s . ` T i m e D a t e( < T > )' d e v u e l v ee lt i e m p o< T >c o m ou n ac a d e n ac o ne lf o r m a t o ` A A A A M M D DH H :M M :S S[ +|]Z Z :Z Z' .< T >S ei n t e r p r e t ac o m oe ln m e r o d es e g u n d o sd e s d el am e d i a n o c h ed e l1d ee n e r od e1 9 0 0 ,t a lc o m ol od e v u e l v e ` A b s o l u t e _ r e a l _ t i m e' . E j e m p l o : ` T i m e D a t e' s i na r g u m e n t o sd e v u e l v eu n ac a d e n aq u er e p r e s e n t ae l h o r ayl af e c h aa c t u a l . ( %I 1 )d :T i m e D a t e( ) ; ( %O 1 )2 0 1 0 0 6 0 80 4 : 0 8 : 0 9+ 0 1 : 0 0 ( %I 2 )p r i n t( " T i m e D a t ei n f o r m ad el ah o r aa c t u a l " ,d )$ T i m e D a t ei n f o r m ah o r a2 0 1 0 0 6 0 80 4 : 0 8 : 0 9+ 0 1 : 0 0 ` T i m e D a t e' c o nu na r g u m e n t od e v u e l v eu n ac a d e n aq u er e p r e s e n t ae l a r g u m e n t o . ( %I 1 )T i m e D a t e( 0 ) ; ( %O 1 )1 9 0 0 0 1 0 10 1 : 0 0 : 0 0+ 0 1 : 0 0 ( %I 2 )T i m e D a t e( a b s o l u t e _ r e a l _ t i m e( )-7*2 4*3 6 0 0 ) ; ( %O 2 )2 0 1 0 0 6 0 10 4 : 1 9 : 5 1+ 0 1 : 0 0
F u n c i n :a b s o l u t e _ r e a l _ t i m e( ) D e v u e l v ee ln m e r od es e g u n d o sd e s d el am e d i a n o c h ed e l1d ee n e r o1 9 0 0U T C . E lv a l o rd er e t o r n oe su ne n t e r o . C o n s u l t et a m b i n` e l a p s e d _ r e a l _ t i m e' y è l a p s e d _ r u n _ t i m e ' . E j e m p l o : ( %I 1 )a b s o l u t e _ r e a l _ t i m e( ) ; ( %O 1 )3 3 8 5 0 4 5 2 7 7 ( %I 2 )1 9 0 0+a b s o l u t e _ r e a l _ t i m e( )/( 3 6 5 , 2 5*2 4*3 6 0 0 ) ; ( %O 2 )2 0 0 7 . 2 6 5 6 1 2 0 8 7 1 0 4
F u n c i n :e l a p s e d _ r e a l _ t i m e( ) D e v u e l v ee ln m e r od es e g u n d o s( i n c l u y e n d of r a c c i o n e sd es e g u n d o ) d e s d eM a x i m as ei n i c i aor e i n i c i al am sr e c i e n t e .E lr e g r e s o v a l o re su nn m e r od ec o m af l o t a n t e .
292/633
28/08/13

C o n s u l t et a m b i n` a b s o l u t e _ r e a l _ t i m e' y è l a p s e d _ r u n _ t i m e ' . E j e m p l o : ( %I 1 )e l a p s e d _ r e a l _ t i m e( ) ; ( %O 1 )2 . 5 5 9 3 2 4 ( %I 2 )a m p l i a r( ( a+b )^5 0 0 )$ ( %I 3 )e l a p s e d _ r e a l _ t i m e( ) ; ( %O 3 )7 . 5 5 2 0 8 7
F u n c i n :e l a p s e d _ r u n _ t i m e( ) D e v u e l v eu n ae s t i m a c i nd e ln m e r od es e g u n d o s( i n c l u y e n d of r a c c i o n e s d eu ns e g u n d o ) ,q u eM a x i m ah ae s t a d oe nl o sc l c u l o sd e s d eM a x i m a f u ei n i c i a d oor e i n i c i a d or e c i e n t e m e n t e .E lv a l o rd er e t o r n oe su n n m e r od ep u n t of l o t a n t e . C o n s u l t et a m b i n` a b s o l u t e _ r e a l _ t i m e' y è l a p s e d _ r e a l _ t i m e ' . E j e m p l o : ( %I 1 )e l a p s e d _ r u n _ t i m e( ) ; ( %O 1 )0 . 0 4 ( %I 2 )a m p l i a r( ( a+b )^5 0 0 )$ ( %I 3 )e l a p s e d _ r u n _ t i m e( ) ; ( %O 3 )1 . 2 6
33 Opciones varias
I n t r o d u c c i nal am i s c e l n e ad eo p c i o n e s C o m p a r t i r F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s
33.1 Introduccin a la miscelnea de opciones

E ne s t as e c c i ns ed i s c u t e nd i v e r s a so p c i o n e sq u et i e n e nu ne f e c t og l o b a l e nl ao p e r a c i nd eM a x i m a .T a m b i nv a r i a sl i s t a s ,c o m ol al i s t ad et o d o s S ed i s c u t e nl a sf u n c i o n e sd e f i n i d a sp o re lu s u a r i o , .
33.2 Share
E l" s h a r e "d eM a x i m ac o n t i e n ep r o g r a m a syo t r o sa r c h i v o sd e i n t e r sp a r al o su s u a r i o sd eM a x i m a ,p e r on oe sp a r t ed el aa p l i c a c i nd en c l e o M a x i m a .E s t o sp r o g r a m a ss u e l e ns e rc a r g a d o sat r a v sd e` c a r g a' o ` S e t u p _ a u t o l o a d' . ` :L i s p*m a x i m a s h a r e d i r*' m u e s t r al au b i c a c i nd e lr e c u r s oc o m p a r t i d o d i r e c t o r i oe ne ls i s t e m ad ea r c h i v o sd e lu s u a r i o . ` P r i n t f i l e( "s h a r e . u s g" ) "i m p r i m eu n al i s t af u e r ad el af e c h ad el aa c c i n p a q u e t e s .L o su s u a r i o sp u e d e ne n c o n t r a rm si n f o r m a t i v op a r an a v e g a rp o rl ac u o t ad e d i r e c t o r i om e d i a n t eu nn a v e g a d o rd es i s t e m ad ea r c h i v o s .
33.3 Funciones y variables para la miscelnea de opciones

V a r i a b l ed e ls i s t e m a :a s k e x p C u a n d o' s el l a m a` a s k e x p ' à s k s i g ne sl ae x p r e s i n` a s k s i g n' e s p r u e b a s . E nu nt i e m p o ,e r ap o s i b l eq u eu nu s u a r i oi n s p e c c i o n a r` a s k e x p' p o r e n t r a re nu n ai n t e r r u p c i nd eM a x i m ac o ne lc o n t r o l A .
V a r i a b l eo p c i o n a l :g e n i n d e x V a l o rp o rd e f e c t o :` i' ` G e n i n d e x' e se lp r e f i j oa l f a b t i c ou t i l i z a d op a r ag e n e r a rl as i g u i e n t e v a r i a b l e sd es u m a c i ne nc a s on e c e s a r i o .
V a r i a b l eo p c i o n a l :g e n s u m n u m V a l o rp o rd e f e c t o :0 ` G e n s u m n u m' e se ls u f i j on u m r i c ou t i l i z a d op a r ag e n e r a rl as i g u i e n t e v a r i a b l ed e ls u m a t o r i o .S is ee s t a b l e c ea' f a l s e ' ,e n t o n c e se l n d i c ed e c o n s i s t i r s l od e` g e n i n d e x' ,s i ns u f i j on u m r i c o .
293/633
28/08/13
F u n c i n :g e n s y m( ) F u n c i n :g e n s y m( < x > )
` G e n s y m( )' c r e ayd e v u e l v eu ns m b o l of r e s c o . E ln o m b r ed el an u e v a s m b o l oe sl ac o n c a t e n a c i nd eu np r e f i j o ,q u es e p o rd e f e c t oe s" g " ,yu ns u f i j o ,q u ee sl ar e p r e s e n t a c i nd e c i m a l d eu n as e r i eq u ep o rd e f e c t oe se lv a l o rd eu nc o n t a d o ri n t e r n oL i s p . S is es u m i n i s t r a< x > ,ye su n ac a d e n a ,e n t o n c e se s ac a d e n as eu t i l i z ac o m ou n p r e f i j oe nl u g a rd e" g "p a r al ap r e s e n t ec o n v o c a t o r i ad eG e n s y ms o l a m e n t e . S is es u m i n i s t r a< x > ,ye su nn m e r oe n t e r o ,e n t o n c e se s en m e r oe n t e r o ,e nl u g a r d e lv a l o rd e ln m e r oe n t e r oL i s pi n t e r n o ,s eu t i l i z ac o m os u f i j o p a r al ap r e s e n t ec o n v o c a t o r i ad eG e n s y ms o l a m e n t e . S iys l os in os ep r o p o r c i o n an i n g ns u f i j oe x p l c i t o ,e lL i s pi n t e r n a n m e r oe n t e r os ei n c r e m e n t ad e s p u sd eq u es eu t i l i z a . E j e m p l o s : ( %I 1 )g e n s y m( ) ; ( %O 1 )g 8 8 7 ( %I 2 )g e n s y m( " n u e v o " ) ; ( %O 2 )n e w 8 8 8 ( %I 3 )g e n s y m( 1 2 3 ) ; ( %O 3 )G 1 2 3 V a r i a b l eo p c i o n a l :p a c k a g e f i l e V a l o rp o rd e f e c t o :f a l s e' L o sd e s a r r o l l a d o r e sd ep a q u e t e sq u eu t i l i z a n' g u a r d a r 'o' t r a d u c i r 'p a r ac r e a r p a q u e t e s( a r c h i v o s )p a r aq u eo t r o su t i l i c e nl od e s e a ,p u e d ec o n f i g u r a r` p a c k a g e f i l e : v e r d a d" p a r ae v i t a rq u el ai n f o r m a c i nq u es ea a d eaM a x i m a l i s t a sd ei n f o r m a c i n( p o re j e m p l o ,` v a l o r e s' , `f u n c i o n e s ' ) ,s a l v oq u es e n e c e s a r i oc u a n d oe la r c h i v os ec a r g ap u l gD ee s t am a n e r a ,l o sc o n t e n i d o s d e lp a q u e t en os ei n t e r p o n g a ne ne lc a m i n od e lu s u a r i oc u a n d os ea a d es up r o p i a d a t o s .T e n g ae nc u e n t aq u ee s t on ov aar e s o l v e re lp r o b l e m ad el ap o s i b l en o m b r e c o n f l i c t o s .T a m b i nt e n g ae nc u e n t aq u el ab a n d e r as l oa f e c t aal oq u es ee m i t e e ne lf i c h e r od ep a q u e t e .C o n f i g u r a c i nd el ab a n d e r ad e` t r u e' t a m b i ne s t i lp a r a c r e a n d oM a x i m aa r c h i v o si n i t .
F u n c i n :r e m v a l u e( < n a m e _ 1 > ,. . . ,< n a m e _ n > ) F u n c i n :r e m v a l u e( t o d o s ) E l i m i n al o sv a l o r e sd el a sv a r i a b l e sd eu s u a r i o< n a m e _ 1 > ,. . . ,< n a m e _ n > ( Q u ep u e d es e rs u b n d i c e )d e s d ee ls i s t e m a . ` R e m v a l u e( t o d o s )' e l i m i n al o sv a l o r e sd et o d a sl a sv a r i a b l e se n 'v a l o r e s' , l al i s t ad et o d o sl o sn o m b r e sd ev a r i a b l e sd a d a sp o re lu s u a r i o( e no p o s i c i na l o sq u es ea s i g n aa u t o m t i c a m e n t ep o rM a x i m a ) . V e rt a m b i n` v a l o r e s' .
F u n c i n :r n c o m b i n e( e x p r ) T r a n s f o r m ae x p rc o m b i n a n d ot o d o sl o st r m i n o sd ee x p rq u et e n g a n d e n o m i n a d o r e si d n t i c o soq u es ed i f e r e n c i a ne lu n od e lo t r o p o rf a c t o r e sn u m r i c o ss o l a m e n t e .E s t ac i f r ae sl i g e r a m e n t ed i f e r e n t ed el a c o m p o r t a m i e n t od e` c o m b i n a n' ,q u er e c o g et r m i n o sq u et i e n e ni d n t i c a d e n o m i n a d o r e s . A j u s t e` p f e f o r m a t :t r u e' ye lu s od e `C o m b i n e 'p r o d u c er e s u l t a d o s s i m i l a r e sal o sq u es ep u e d eo b t e n e rc o n` r n c o m b i n e' ,p e r o ` R n c o m b i n e' d ae lp a s oa d i c i o n a ld ec r o s s m u l t i p l i c a c i n f a c t o r e sd e n o m i n a d o rn u m r i c o s .E s t od al u g a raf o r m a sm so r d e n a d o ,y l ap o s i b i l i d a dd er e c o n o c e ra l g u n a sc a n c e l a c i o n e s . C a r g a s` c a r g a( r n c o m b )' e s t af u n c i n .
F u n c i n :s e t u p _ a u t o l o a d( < f i l e n a m e > ,< f u n c t i o n _ 1 > ,. . . ,< f u n c t i o n _ n > ) E s p e c i f i c aq u es ia l g u n od e< f u n c t i o n _ 1 > ,. . . ,s o n< f u n c t i o n _ n > r e f e r e n c i ayq u ea nn os ed e f i n e ,< f i l e n a m e >s ec a r g aat r a v sd e` c a r g a' . < f i l e n a m e >p o rl og e n e r a lc o n t i e n el a sd e f i n i c i o n e sd el a sf u n c i o n e s e s p e c i f i c a d a ,a u n q u ee s t on oe si m p e r a t i v o . ` S e t u p _ a u t o l o a d' n of u n c i o n ap a r al a sf u n c i o n e sd em a t r i z . ` S e t u p _ a u t o l o a d' e v a l as u sa r g u m e n t o s . E j e m p l o : ( %I 1 )l e g e n d r e _ p( 1 , %p i ) ; ( %O 1 )l e g e n d r e _ p( 1 , %p i ) ( %I 2 )s e t u p _ a u t o l o a d( " s p e c f u n . m a c " ,l e g e n d r e _ p ,u l t r a s p h e r i c a l ) ; ( %O 2 )d o n e ( %I 3 )u l t r a s p h e r i c a l( 2 ,1 / 2 , %p i ) ;
294/633
28/08/13

A d v e r t e n c i a-u s t e de s t r e d e f i n i e n d ol af u n c i nM a c s y m au l t r a s p h e r i c a l A d v e r t e n c i a-u s t e de s t r e d e f i n i e n d ol af u n c i nM a c s y m al e g e n d r e _ p 2 3( %p i-1 ) ( %O 3 )-+3( %p i-1 )+1 2 ( %I 4 )l e g e n d r e _ p( 1 , %p i ) ; ( %O 4 ) %p i ( %I 5 )l e g e n d r e _ q( 1 , %p i ) ; %P i+1 %P il o g( ) 1%p i ( %O 5 )-1 2
F u n c i n :t c l _ o u t p u t( < l i s t > , ,< S K I P > ) F u n c i n :t c l _ o u t p u t( < l i s t > , ) F u n c i n :t c l _ o u t p u t( [ < l i s t _ 1 > ,. . . ,< l i s t _ n > ] , ) I m p r i m el o se l e m e n t o sd eu n al i s t ae n c e r r a d o sp o rl l a v e s' { } ' ,a d e c u a d a s c o m op a r t ed eu np r o g r a m ae ne ll e n g u a j eT c l/T k . ` T c l _ o u t p u t( < l i s t > , ,< S K I P > )' i m p r i m e< l i s t > ,c o m e n z a n d oc o n e l e m e n t oyl o se l e m e n t o sd ei m p r e s i n` +< S K I P >' , `+2 < S K I P >' ,e t c ` T c l _ o u t p u t( < l i s t > , )' e se q u i v a l e n t ea 't c l _ o u t p u t( < l i s t > , ,2 ) . ` T c l _ o u t p u t( [ < l i s t _ 1 > ,. . . ,< l i s t _ n > ] , )' i m p r i m ee l 't h e l e m e n t o sd e< l i s t _ 1 > ,. . . ,< l i s t _ n > . E j e m p l o s : ( %I 1 )t c l _ o u t p u t( [ 1 ,2 ,3 ,4 ,5 ,6 ] ,1 ,3 )$ { 1 , 0 0 0 0 0 0 0 0 04 , 0 0 0 0 0 0 0 0 0 } ( %I 2 )t c l _ o u t p u t( [ 1 ,2 ,3 ,4 ,5 ,6 ] ,2 ,3 )$ { 2 , 0 0 0 0 0 0 0 0 05 , 0 0 0 0 0 0 0 0 0 } ( %I 3 )t c l _ o u t p u t( [ 3 / 7 ,5 / 9 ,1 1 / 1 3 ,1 3 / 1 7 ] ,1 )$ { ( ( S I M PR A T )37 )( ( S I M PR A T )1 11 3 ) } ( %I 4 )t c l _ o u t p u t( [ x 1 ,y 1 ,x 2 ,y 2 ,x 3 ,y 3 ] ,2 )$ { $$Y 1Y 2Y 3$ } ( %I 5 )t c l _ o u t p u t( [ [ 1 ,2 ,3 ] ,[ 1 1 ,2 2 ,3 3 ] ] ,1 )$ { S I M P1 , 0 0 0 0 0 0 0 0 01 1 , 0 0 0 0 0 0 0 0 }
34 Reglas y patrones
I n t r o d u c c i nar e g l a syp a t r o n e s F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s
34.1 Introduccin a reglas y patrones

E ne s t as e c c i ns ed e s c r i b ed e f i n i d ap o re lu s u a r i oc o i n c i d e n c i ad ep a t r o n e sys i m p l i f i c a c i n r e g l a s .H a yd o sg r u p o sd ef u n c i o n e sq u ei m p l e m e n t a nu nt a n t o p a t r nd i f e r e n t ee s q u e m a sj u e g o .E nu ng r u p oe s t nt e l l s i m p` ' , T e l l s i m p a f t e r` ' , `d e f m a t c h ' ,` d e f r u l e' , à p p l y 1 ' ,` a p p l y b 1' ,y ` A p p l y 2' .E ne lo t r og r u p oe s t n` l e t' y `l e t s i m p ' .A m b o se s q u e m a s d e f i n i rp a t r o n e se nt r m i n o sd ev a r i a b l e sd ep a t r o n e sd e c l a r a d a sp o r ` M a t c h d e c l a r e' . R e g l a sd ec o m p a r a c i nd ep a t r o n e sd e f i n i d a sp o rt e l l s i m p` ' y `t e l l s i m p a f t e r 's o n a p l i c a d oa u t o m t i c a m e n t ep o re ls i m p l i f i c a d o rd eM a x i m a .L a sr e g l a sd e f i n i d a sp o r D e f m a t c h` ' , `d e f r u l e 'y` l e t' s o na p l i c a d a sp o ru n af u n c i ne x p l c i t a l l a m a r . H a yo t r o sm e c a n i s m o sp a r al a sr e g l a sa p l i c a d a sal o sp o l i n o m i o s ` T e l l r a t' ,yp a r ae l l g e b r ac o n m u t a t i v ayn oc o n m u t a t i v ae n 'a f n' p a q u e t e .
34.2 Funciones y variables sobre reglas y patrones

F u n c i n :a p p l y 1( e x p r ,< r u l e _ 1 > ,. . . ,< r u l e _ n > ) A p l i c ar e p e t i d a m e n t e< r u l e _ 1 >ae x p rh a s t aq u ef a l l a , s ea p l i c al am i s m ar e g l aat o d a sl a ss u b e x p r e s i o n e sd ee x p r , i z q u i e r d aad e r e c h a ,h a s t a< r u l e _ 1 >h af a l l a d oe nt o d a sl a ss u b e x p r e s i o n e s .
295/633
28/08/13

L l a m ea lr e s u l t a d od et r a n s f o r m a re x p rd ee s t af o r m a< e x p r _ 2 > . E n t o n c e s< r u l e _ 2 >s ea p l i c ad el am i s m af o r m aap a r t i rd el ap a r t es u p e r i o r d e< e x p r _ 2 > .C u a n d o< r u l e _ n >f a l l ae nl as u b e x p r e s i nf i n a l ,l a r e s u l t a d os ed e v u e l v e . ` M a x a p p l y d e p t h' e sl ap r o f u n d i d a dd el a ss u b e x p r e s i o n e sm s p r o c e s a d op o r` a p p l y 1' y à p p l y 2 ' . C o n s u l t et a m b i n` a p p l y b 1' , à p p l y 2 'y` l e t' .
F u n c i n :a p p l y 2( e x p r ,< r u l e _ 1 > ,. . . ,< r u l e _ n > ) S i< r u l e _ 1 >f a l l ae nu n as u b e x p r e s i nd a d a ,e n t o n c e se s< r u l e _ 2 > a p l i c a d o sr e p e t i d a m e n t e ,e t cS l os it o d a sl a sr e g l a sf a l l a ne nu nd e t e r m i n a d o s u b e x p r e s i ne se lc o n j u n t od er e g l a sq u es ea p l i c a ne nv a r i a so c a s i o n e sal a s i g u i e n t es u b e x p r e s i n .S iu n ad el a sr e g l a st i e n e x i t oe n t o n c e sl am i s m a s u b e x p r e s i ne sr e p r o c e s a d a ,c o m e n z a n d oc o nl ap r i m e r ar e g l a . ` M a x a p p l y d e p t h' e sl ap r o f u n d i d a dd el a ss u b e x p r e s i o n e sm s p r o c e s a d op o r` a p p l y 1' y à p p l y 2 ' . C o n s u l t et a m b i n` a p p l y 1' y `l e t ' .
F u n c i n :a p p l y b 1( e x p r ,< r u l e _ 1 > ,. . . ,< r u l e _ n > ) A p l i c ar e p e t i d a m e n t e< r u l e _ 1 >al as u b e x p r e s i nm si n t e r n ad ee x p r h a s t aq u ef a l l a ,e n t o n c e ss ea p l i c al am i s m ar e g l ae nu nn i v e l s u p e r i o r( e sd e c i r ,l a ss u b e x p r e s i o n e sm sg r a n d e s ) ,h a s t a< r u l e _ 1 >h af r a c a s a d oe n l ae x p r e s i nd ea l t on i v e l .E n t o n c e s< r u l e _ 2 >s ea p l i c ae nl am i s m a l am o d ap a r ae lr e s u l t a d od e< r u l e _ 1 > .D e s p u sd e< r u l e _ n >h as i d o a p l i c a d oal ae x p r e s i nd ea l t on i v e l ,s ed e v u e l v ee lr e s u l t a d o . ` A p p l y b 1' e ss i m i l a ra 'a p p l y 1' ,p e r of u n c i o n ad ea b a j oh a c i aa r r i b a e nl u g a rd ed e s d el ap a r t es u p e r i o rh a c i aa b a j o . ` M a x a p p l y h e i g h t' e sl aa l t u r am x i m aq u e à p p l y b 1 'a l c a n z a a n t e sd ea b a n d o n a r . C o n s u l t et a m b i n` a p p l y 1' , à p p l y 2 'y` l e t' .
V a r i a b l eo p c i o n a l :c u r r e n t _ l e t _ r u l e _ p a c k a g e V a l o rp o rd e f e c t o :d e f a u l t _ l e t _ r u l e _ p a c k a g e' ` C u r r e n t _ l e t _ r u l e _ p a c k a g e' e se ln o m b r ed e lp a q u e t ed er e g l a sq u es e u t i l i z a d op o rl a sf u n c i o n e se ne l" p a q u e t e( l e t s i m p `' ` l e t ,e t c )s in o s ee s p e c i f i c ao t r op a q u e t ed er e g l a s .E s t av a r i a b l es el ep u e d ea s i g n a r e ln o m b r ed ec u a l q u i e rp a q u e t ed er e g l a sd e f i n i d om e d i a n t ee lc o m a n d o` l e t' . S is er e a l i z au n al l a m a d ac o m o` l e t s i m p( e x p r ,r u l e _ p k g _ n a m e ) " ,e l r e g l ad ep a q u e t e` r u l e _ p k g _ n a m e "s eu t i l i z ap a r ae s al l a m a d ad ef u n c i n n i c a , ye lv a l o rd e` c u r r e n t _ l e t _ r u l e _ p a c k a g e' n os ec a m b i a .
V a r i a b l eo p c i o n a l :d e f a u l t _ l e t _ r u l e _ p a c k a g e V a l o rp o rd e f e c t o :d e f a u l t _ l e t _ r u l e _ p a c k a g e' ` D e f a u l t _ l e t _ r u l e _ p a c k a g e' e se ln o m b r ed e lp a q u e t ed er e g l a su t i l i z a d o c u a n d ou n on os ee s t a b l e c ee x p l c i t a m e n t ep o re lu s u a r i oc o n` l e t' o c a m b i a n d oe lv a l o rd e` c u r r e n t _ l e t _ r u l e _ p a c k a g e' .
F u n c i n :d e f m a t c h( , ,< x _ 1 > ,. . . ,< x _ n > ) F u n c i n :d e f m a t c h( , ) D e f i n eu n af u n c i n` ( e x p r ,< x _ 1 > ,. . . ,< x _ n > ) " ,q u e p r u e b a s< e x p r >p a r av e rs ic o i n c i d ec o n . e su n ae x p r e s i nq u ec o n t i e n ee lp a t r nd ea r g u m e n t o s< x _ 1 > , . . . ,< x _ n >( S il o sh a y )ya l g u n a sv a r i a b l e sd ep a t r n( s il o sh a y ) .L a a r g u m e n t o sd ep a t r ns ed a nd ef o r m ae x p l c i t ac o m oa r g u m e n t o sa` d e f m a t c h' m i e n t r a sq u el a sv a r i a b l e sd ep a t r ns ed e c l a r a np o re l` m a t c h d e c l a r e' f u n c i n .C u a l q u i e rv a r i a b l en od e c l a r a d ac o m ou n av a r i a b l ed ep a t r ne n ` M a t c h d e c l a r e' oc o m ou na r g u m e n t op a t r ne n `d e f m a t c h 'c o i n c i d es l o e ns . E lp r i m e ra r g u m e n t od el af u n c i nc r e a d ae su n e x p r e s i nac u m p l i rc o ne lp a t r nye lo t r o a r g u m e n t o ss o nl o sa r g u m e n t o sr e a l e sq u es ec o r r e s p o n d e nc o ne lm a n i q u l a sv a r i a b l e s< x _ 1 > ,. . . ,< x _ n >e ne lp a t r n . S ie lp a r t i d ot i e n e x i t o ,d e v u e l v eu n al i s t ad ee c u a c i o n e s c u y o sl a d o si z q u i e r d o ss o nl o sa r g u m e n t o sd ep a t r o n e syv a r i a b l e sd e lm o d e l o , yc u y od e r e c h ol a d o ss o nl a ss u b e x p r e s i o n e sq u ee lp a t r n a r g u m e n t o syv a r i a b l e sc o i n c i d e n t e s .L a sv a r i a b l e sd ep a t r n ,p e r on o l o sa r g u m e n t o sd ep a t r n ,s ea s i g n a nl a ss u b e x p r e s i o n e sq u ec o i n c i d a n .
296/633
28/08/13

S il ac o m p a r a c i nf a l l a ,d e v u e l v e` f a l s e' . U np a t r nl i t e r a l( e sd e c i r ,u np a t r nq u en oc o n t i e n en i a r g u m e n t o sp a t r nn iv a r i a b l e sd ep a t r o n e s )d e v u e l v e` t r u e' s ie l p a r t i d ot i e n e x i t o . C o n s u l t et a m b i n` m a t c h d e c l a r e' , `d e f r u l e ' ,` t e l l s i m p' ,y ` T e l l s i m p a f t e r' . E j e m p l o s : D e f i n i ru n` l i n e a r pf u n c i n( e x p r ,x ) " ,q u ep o n eap r u e b a' e x p r 'p a r av e rs i e sd el af o r m a` a*x+b' d et a lm a n e r aq u e à 'y' b 'n oc o n t i e n e n ` X' y 'a' e sd i s t i n t od ec e r o .E s t af u n c i np u e d ec o i n c i d i rc o nl a se x p r e s i o n e s q u es o nl i n e a l e se nu n av a r i a b l e ,p o r q u ee la r g u m e n t op a t r n` x' s ed aa` d e f m a t c h' . ( %I 1 )m a t c h d e c l a r e( a ,l a m b d a( [ e ] ,e#0yf r e e o f( x ,e ) ) ,b , f r e e o f( x ) ) ; ( %O 1 )h e c h o ( %I 2 )d e f m a t c h( l i n e a r p ,a*x+b ,x ) ; ( %O 2 )l i n e a r p ( %I 3 )l i n e a r p( 3*z+( y+1 )*z+y^2 ,z ) ; 2 ( %O 3 )[ b=y ,a=y+4 ,x=z ] ( %I 4 )a ; ( %O 4 )y+4 ( %I 5 )b ; 2 ( %O 5 )y ( %I 6 )x ; ( %O 6 )x D e f i n i ru n af u n c i n` l i n e a r p( e x p r )' ,q u ep o n eap r u e b a 'e x p r' p a r av e rs is e e sd el af o r m a' a*x+b 'd et a lm a n e r aq u e` a' y 'b' n oc o n t i e n e n `x ' y' a 'e sd i s t i n t od ec e r o .E s t af u n c i ns l op a r t i d oc o i n c i d ec o nl a se x p r e s i o n e s l i n e a le n` x' ,yn oc u a l q u i e ro t r av a r i a b l e ,y aq u en i n g na r g u m e n t od ep a t r n s ed aa` d e f m a t c h' . ( %I 1 )m a t c h d e c l a r e( a ,l a m b d a( [ e ] ,e#0yf r e e o f( x ,e ) ) ,b , f r e e o f( x ) ) ; ( %O 1 )h e c h o ( %I 2 )d e f m a t c h( l i n e a r p ,a*x+b ) ; ( %O 2 )l i n e a r p ( %I 3 )l i n e a r p( 3*z+( y+1 )*z+y^2 ) ; ( %O 3 )f a l s e ( %I 4 )l i n e a r p( 3*x+( y+1 )*x+y^2 ) ; 2 ( %O 4 )[ b=y ,a=y+4 ] D e f i n i ru n` c h e c k l i m i t sf u n c i n( e x p r )' ,q u ep o n eap r u e b a 'e x p r' p a r av e rs i q u ee su n ai n t e g r a ld e f i n i d a . ( %I 1 )m a t c h d e c l a r e( [ a ,f ] ,t r u e ) ; ( %O 1 )h e c h o ( %I 2 )c o n s t i n t e r v a l( l ,h ) :=c o n s t a n t p( h-l ) ; ( %O 2 )c o n s t i n t e r v a l( l ,h ) :=c o n s t a n t p( h-l ) ( %I 3 )m a t c h d e c l a r e( b ,c o n s t i n t e r v a l( a ) ) ; ( %O 3 )d o n e ( %I 4 )m a t c h d e c l a r e( x , t o m o ) ; ( %O 4 )h e c h o ( %I 5 )s i m p :f a l s e ; ( %O 5 )f a l s e ( %I 6 )d e f m a t c h( c h e c k l i m i t s ,' i n t e g r a t e( f ,x ,a ,b ) ) ; ( %O 6 )c h e c k l i m i t s ( %I 7 )s i m p :t r u e ; ( %O 7 )t r u e ( %I 8 )' i n t e g r a t e( s i n( t ) ,t , %p i+x ,2* %p i+x ) ; x+2 %p i / [ ( %O 8 )Y os i n( t )d t ] / x+ %p i ( %I 9 )c h e c k l i m i t s( % ) ; ( %O 9 )[ b=x+2 %p i ,a=x+ %p i ,x=t ,f=s e n( t ) ]
F u n c i n :d e f r u l e( < r u l e n a m e > , ,< r e p l a c e m e n t > ) D e f i n eyn o m b r au n ar e g l ad es u s t i t u c i np a r ae lp a t r nd a d o .S i l ar e g l al l a m a d a< r u l e n a m e >s ea p l i c aau n ae x p r e s i n( p o r A p p l y 1` ' , à p p l y b 1 ' ,o` a p p l y 2' ) ,c a d as u b e x p r e s i nc o i n c i d e n t e e lp a t r ns e r r e e m p l a z a d ap o rl as u s t i t u c i n .T o d a sl a sv a r i a b l e se n l as u s t i t u c i nq u es eh a na s i g n a d ol o sv a l o r e sp o re lp a t r n c o i n c i d i rs ea s i g n a ne s o sv a l o r e se nl ar e p o s i c i nq u eac o n t i n u a c i ns e s i m p l i f i c a d a . L a sp r o p i a sr e g l a sp u e d e ns e rt r a t a d a sc o m of u n c i o n e sq u et r a n s f o r m a n u n ae x p r e s i nm e d i a n t eu n ao p e r a c i nd ea j u s t ed ep a t r o n e sy r e e m p l a z o .S il ac o m p a r a c i nf a l l a ,l af u n c i nd er e g l ad e v u e l v e ' F a l s e ' .
297/633
28/08/13

F u n c i n :d i s p r u l e( < r u l e n a m e _ 1 > ,. . . ,< r u l e n a m e _ 2 > ) F u n c i n :d i s p r u l e( t o d o s ) M u e s t r al a sr e g l a sd e< r u l e n a m e _ 1 >n o m b r e s ,. . . ,< r u l e n a m e _ n > ,c o m o d e v u e l t op o r` d e f r u l e' , `t e l l s i m p ' ,o` t e l l s i m p a f t e r' ,ou n a p a t r nd e f i n i d op o r` d e f m a t c h' .C a d ar e g l as em u e s t r ac o nu n e t i q u e t a sd ee x p r e s i o n e si n t e r m e d i a s( %t` ' ) . ` D i s p r u l e( t o d o s )' m u e s t r at o d a sl a sr e g l a s . ` D i s p r u l e' e v a l as u sa r g u m e n t o s .` D i s p r u l e' d e v u e l v el al i s t ad e e t i q u e t a sd ee x p r e s i o n e si n t e r m e d i a sc o r r e s p o n d i e n t e sal am o s t r a d a r e g l a s . C o n s u l t et a m b i n` l e t r u l e s' ,q u em u e s t r al a sr e g l a sd e f i n i d a sp o re l `l e t ' . E j e m p l o s : ( %I 1 )t e l l s i m p a f t e r( f o o( x ,y ) ,b a r( x )+b a z( y ) ) ; ( %O 1 )[ f o o r u l e 1 ,f a l s e ] ( %I 2 )t e l l s i m p a f t e r( x+y ,s p e c i a l _ a d d( x ,y ) ) ; ( %O 2 )[ +r e g l a 1 ,S i m p l u s ] ( %I 3 )d e f m a t c h( q u u x ,e n t r ed i e n t e s( x ) ) ; ( %O 3 )q u u x ( %I 4 )d i s p r u l e( f o o r u l e 1 ," +r e g l a 1 " ,q u u x ) ; ( %T 4 )f o o r u l e 1 :f o o( x ,y )>b a z( y )+b a r( x ) ( %T 5 )+r e g l a 1 :y+x>s p e c i a l _ a d d( x ,y ) ( %T 6 )q u u x :m u r m u l l o( x )>[ ] ( %O 6 )[ %t 4 ,t 5 % , %t 6 ] ( %I 6 ) ' ' % ; ( %O 6 )[ f o o r u l e 1 :f o o( x ,y )>b a z( y )+b a r( x ) , +R e g l a 1 :y+x>s p e c i a l _ a d d( x ,y ) ,q u u x :m u r m u l l o( x )>[ ] ]
F u n c i n :l e t( ,< r e p l > , ,< a r g _ 1 > ,. . . ,< a r g _ n > ) F u n c i n :p e r m i t i rq u e( [ ,< r e p l > , ,< a r g _ 1 > ,. . . ,< a r g _ n > ] ,< n o m b r e _ p a q u e t e > ) D e f i n eu n ar e g l ad es u s t i t u c i np a r a` l e t s i m p' t a lq u ee s r e e m p l a z a d op o r< r e p l > .e su np r o d u c t od el ap o s i t i v aon e g a t i v a p o d e r e sd el o ss i g u i e n t e st r m i n o s : *L o s t o m o sq u e` l e t s i m p' b u s c a r l i t e r a l m e n t e ,am e n o s a ll l a m a r` l e t s i m p' d e l `m a t c h d e c l a r e" f u n c i ne s u t i l i z a d op a r aa s o c i a ru np r e d i c a d oc o ne l t o m o .E ne s t ec a s o ` L e t s i m p' c o i n c i d i r c o ne l t o m od ec u a l q u i e r ad el o st r m i n o sd eu np r o d u c t o s a t i s f a c e re lp r e d i c a d o . *L o sg r a n o sc o m oe l` p e c a d o( x )' , 'n' , 'f( x ,y )' ,e t cA li g u a lq u ec o nl o s t o m o s p o re n c i m ad e` l e t s i m p' b u s c a r u n ac o i n c i d e n c i al i t e r a lam e n o s ` M a t c h d e c l a r e' s eu t i l i z ap a r aa s o c i a ru np r e d i c a d oc o ne l a r g u m e n t od e lk e r n e l . U nt r m i n oau n ap o t e n c i ap o s i t i v as l oi g u a l a r u nt r m i n oq u et i e n ep o rl om e n o s e s ep o d e r .U nt r m i n op a r au n ap o t e n c i an e g a t i v ae ne lo t r ol a d os e t e n e m o ss l ou nt r m i n oc o nu n ap o t e n c i ad ea lm e n o st a nn e g a t i v o .E ne lc a s o d el o sp o d e r e sn e g a t i v o se ne l` l e t r a t' i n t e r r u p t o rd e b ee s t a re n ` T r u e' .C o n s u l t et a m b i n` l e t r a t' . S iu np r e d i c a d oe s t i n c l u i d oe nl af u n c i n` l e t' s e g u i d od eu n l i s t ad ea r g u m e n t o s ,u np a r t i d op r o v i s i o n a l( e sd e c i r ,u n oq u es e r a a c e p t a d os is eo m i t ee lp r e d i c a d o )s ea c e p t as l os i ` P r e d n a m e( a r g _ 1' ,. . . ,a r g _ n ' )' s ee v a l ac o m o `t r u e ' ,d o n d e < a r g _ i ' >e se lv a l o rc o i n c i d e n t ec o n< a r g _ i > .E l< a r g _ i >p u e d es e re l n o m b r ed ec u a l q u i e r t o m ooe la r g u m e n t od ec u a l q u i e rk e r n e lq u ea p a r e c ee n . < r e p l >p u e d es e rc u a l q u i e re x p r e s i nr a c i o n a l .S ic u a l q u i e r ad el o s t o m o so a r g u m e n t o sd ea p a r e c e ne n< r e p l >l aa d e c u a d a s ee s t nr e a l i z a n d os u s t i t u c i o n e s .E li n d i c a d o rg l o b a l` l e t r a t' c o n t r o l ae l s i m p l i f i c a c i nd ec o c i e n t e sp o r` l e t s i m p' .C u a n d o` l e t r a t' e s ' F a l s e ' ,` l e t s i m p' s i m p l i f i c ae ln u m e r a d o rye ld e n o m i n a d o rd e < e x p r >p o rs e p a r a d o ,yn os i m p l i f i c ae lc o c i e n t e . S u s t i t u c i o n e st a l e sc o m o` n !/N' v aa `( n 1 ) ! 'l u e g on o . C u n d o ` L e t r a t' e s `t r u e ' ,e n t o n c e se ln u m e r a d o r ,d e n o m i n a d o rye l c o c i e n t es es i m p l i f i c a ne ne s eo r d e n . E s t a sf u n c i o n e sd es u s t i t u c i np e r m i t e nt r a b a j a rc o nv a r i a sr e g l a s p a q u e t e sal av e z .C a d ap a q u e t ed er e g l a sp u e d ec o n t e n e rc u a l q u i e rn m e r od e ` L e t' r e g l a sye sl aq u eh a c er e f e r e n c i au nn o m b r ed e f i n i d op o re lu s u a r i o .E lc o m a n d o ` L e t( [ ,< r e p l > , ,< a r g _ 1 > ,. . . ,< a r g _ n > ] , < n o m b r e _ p a q u e t e > )' a g r e g ae lr e g l aa lp a q u e t ed er e g l a s < n o m b r e _ p a q u e t e > .E l` l e t s i m pc o m a n d o s( e x p r ,< n o m b r e _ p a q u e t e > )' a p l i c al a sr e g l a se n< n o m b r e _ p a q u e t e > .` L e t s i m p( e x p r , , ,. . . )' e se q u i v a l e n t ea 'l e t s i m p ( E x p r , )' s e g u i d od e 'l e t s i m p( % )' ,. . . ` C u r r e n t _ l e t _ r u l e _ p a c k a g e' e se ln o m b r ed e lp a q u e t ed er e g l a sq u es e q u es ee s t u t i l i z a n d o .E s t av a r i a b l es el ep u e d ea s i g n a re ln o m b r ed e c u a l q u i e rp a q u e t ed er e g l a sd e f i n i d om e d i a n t ee lc o m a n d o` l e t' .S i e m p r eq u ec u a l q u i e r ad e l a sf u n c i o n e si n c l u i d a se ne lp a q u e t e` l e t' s el l a m a ns i n n o m b r ed e lp a q u e t e ,e lp a q u e t el l a m a d op o r` c u r r e n t _ l e t _ r u l e _ p a c k a g e' e s u t i l i z a d o .S iu n al l a m a d ac o m o` l e t s i m p( e x p r ,< r u l e _ p k g _ n a m e > )' e s h e c h o ,e lp a q u e t ed er e g l a s< r u l e _ p k g _ n a m e >s eu t i l i z ap a r ae s e` l e t s i m p' s o l oc o m a n d o ,y` c u r r e n t _ l e t _ r u l e _ p a c k a g e "n os ec a m b i a .S i
298/633
28/08/13

n oe s p e c i f i c a d o se no t r a' ,p o rd e f e c t o` c u r r e n t _ l e t _ r u l e _ p a c k a g ea ` D e f a u l t _ l e t _ r u l e _ p a c k a g e' . ( %I 1 )m a t c h d e c l a r e( [ a ,a 1 ,a 2 ] ,t r u e )$ ( %I 2 )o n e l e s s( x ,y ) :=e s( x=y 1 )$ ( %I 3 )s e a( a 1*a 2 ,a 1 ,o n e l e s s ,a 2 ,a 1 ! ) ; ( %O 3 )a 1a 2 !>A 1 !d o n d eo n e l e s s( a 2 ,a 1 ) ( %I 4 )l e t r a t :t r u e$ ( %I 5 )s e a( a 1 !/a 1 ,( a 1 1 ) ! ) ; a 1 ! ( %O 5 )>( a 1-1 ) ! a 1 ( %I 6 )l e t s i m p( n*m*( n 1 )/m ! ! ) ; ( %O 6 )( m-1 ) !n ! ( %I 7 )s e a( s i n( a )^2 ,1-c o s( a )^2 ) ; 22 ( %O 7 )s i n( a )>1-c o s( a ) ( %I 8 )l e t s i m p( s i n( x )^4 ) ; 42 ( %O 8 )c o s( x )-2c o s( x )+1
V a r i a b l eo p c i o n a l :l e t r a t V a l o rp o rd e f e c t o :f a l s e' C u a n d o` l e t r a t' e s 'f a l s e' , `l e t s i m p 's i m p l i f i c ae ln u m e r a d o rye l d e n o m i n a d o rd eu n ar e l a c i nd ef o r m as e p a r a d a ,yn os i m p l i f i c al a c o c i e n t e . C u a n d o` l e t r a t' e s `t r u e ' ,e ln u m e r a d o r ,d e n o m i n a d o rys u c o c i e n t es es i m p l i f i c a ne ne s eo r d e n . ( %I 1 )m a t c h d e c l a r e( n ,t r u e )$ ( %I 2 )s e a( n !/N ,( n 1 ) ! ) ; n ! ( %O 2 )>( n-1 ) ! n ( %I 3 )l e t r a t :f a l s e$ ( %I 4 )l e t s i m p( a !/a ) ; u n ! ( %O 4 )u n ( %I 5 )l e t r a t :t r u e$ ( %I 6 )l e t s i m p( a !/a ) ; ( %O 6 )( a-1 ) !
F u n c i n :l e t r u l e s( ) F u n c i n :l e t r u l e s( < n o m b r e _ p a q u e t e > ) M u e s t r al a sr e g l a se nu np a q u e t ed er e g l a s .` L e t r u l e s( )' m u e s t r ae l r e g l a se ne lp a q u e t ed er e g l a sa c t u a l .` L e t r u l e s( < n o m b r e _ p a q u e t e > )' m u e s t r al a sr e g l a se n< n o m b r e _ p a q u e t e > . E lp a q u e t ed er e g l a sa c t u a lt i e n es un o m b r ep o r` c u r r e n t _ l e t _ r u l e _ p a c k a g e' . S in os ee s p e c i f i c al oc o n t r a r i o ,' p o rd e f e c t o` c u r r e n t _ l e t _ r u l e _ p a c k a g ea ` D e f a u l t _ l e t _ r u l e _ p a c k a g e' . C o n s u l t et a m b i n` d i s p r u l e' ,q u em u e s t r al a sr e g l a sd e f i n i d a sp o r `t e l l s i m p" y ` T e l l s i m p a f t e r' .
F u n c i n :l e t s i m p( e x p r ) F u n c i n :l e t s i m p( e x p r ,< n o m b r e _ p a q u e t e > ) F u n c i n :l e t s i m p( e x p r , ,. . . , ) A p l i c ar e p e t i d a m e n t el a sr e g l a sd e f i n i d a sp o r` l e t' h a s t a n i n g no t r oc a m b i os eh a c eae x p r . ` L e t s i m p( e x p r )' u t i l i z al a sr e g l a sd e `c u r r e n t _ l e t _ r u l e _ p a c k a g e ' . ` L e t s i m p( e x p r ,< n o m b r e _ p a q u e t e > )' u t i l i z al a sr e g l a sd e < n o m b r e _ p a q u e t e >s i nc a m b i a r` c u r r e n t _ l e t _ r u l e _ p a c k a g e' . ` L e t s i m p( e x p r , ,. . . , )' e s e q u i v a l e n t ea` l e t s i m p( e x p r ,' ,s e g u i d od e ` L e t s i m p( % , )' ,ya s s u c e s i v a m e n t e .
V a r i a b l eo p c i o n a l :l e t _ r u l e _ p a c k a g e s V a l o rp o rd e f e c t o :[ d e f a u l t _ l e t _ r u l e _ p a c k a g e ]' L e t _ r u l e _ p a c k a g e s` ' e su n al i s t ad et o d o sl o sp a q u e t e sd er e g l a sd e f i n i d a sp o re lu s u a r i od e j e m se lv a l o rp o rd e f e c t o` d e f a u l t _ l e t _ r u l e _ p a c k a g ep a c k a g e' .
F u n c i n :m a t c h d e c l a r e( < a _ 1 > , ,. . . ,< a _ n > , )
299/633
28/08/13

A s o c i au np r e d i c a d oc o nu n av a r i a b l eou n al i s t ad e V a r i a b l e s< a _ k >p a r aq u ec o i n c i d ac o n< a _ k >e x p r e s i o n e sp a r al a sc u a l e sl a p r e d i c a d od e v u e l v ed i s t i n t od e` f a l s e' n a d a . U np r e d i c a d oe se ln o m b r ed eu n af u n c i nou n ae x p r e s i nl a m b d ao u n al l a m a d aal af u n c i nol a m b d al l a m a ns i ne l l t i m oa r g u m e n t o ,o ` T r u e' o 'a l l' .C u a l q u i e re x p r e s i nc o i n c i d e` t r u e' o 'a l l' .S ie l p r e d i c a d os ee s p e c i f i c ac o m ou n al l a m a d ad ef u n c i nol l a m a d al a m b d a ,l a e x p r e s i nas e ra n a l i z a d as ea a d eal al i s t ad ea r g u m e n t o s ,l a a r g u m e n t o ss o ne v a l u a d o sa lm o m e n t od ee v a l u a re le n c u e n t r o . D el oc o n t r a r i o ,e lp r e d i c a d os ee s p e c i f i c ac o m ou nn o m b r ed ef u n c i nol a m b d a e x p r e s i nyl ae x p r e s i nas e ra n a l i z a d ae se l n i c oa r g u m e n t o . U n af u n c i nd ep r e d i c a d on on e c e s i t as e rd e f i n i d oc u a n d o` m a t c h d e c l a r e' e s l l a m a ;e lp r e d i c a d on os ee v a l ah a s t aq u es ee n s a y au np a r t i d o . U np r e d i c a d op u e d ed e v o l v e ru n ae x p r e s i nb o o l e a n a ,a s c o m o' t r u e 'o ' F a l s e ' .L a se x p r e s i o n e sb o o l e a n a ss ee v a l a np o r` e s' d e n t r od el a c o n s t r u i d oF u n c i nd er e g l a ,p o rl oq u en oe sn e c e s a r i ol l a m a r` e s' d e n t r od e lp r e d i c a d o . S iu n ae x p r e s i ns a t i s f a c eu np r e d i c a d o ,l av a r i a b l ed ec o m p a r a c i n s el ea s i g n al ae x p r e s i n ,e x c e p t ol a sv a r i a b l e sd ec o m p a r a c i ns o n o p e r a n d o sd el as u m a' + 'om u l t i p l i c a c i n` *' .S l oa d i c i ny m u l t i p l i c a c i ns em a n e j a ne s p e c i a l m e n t e ,o t r o so p e r a d o r e sn a r i o s( t a n t o i n t e g r a d oyd e f i n i d op o re lu s u a r i o )s o nt r a t a d o sc o m of u n c i o n e so r d i n a r i a s . E ne lc a s od el aa d i c i nym u l t i p l i c a c i n ,l av a r i a b l ed ec o m p a r a c i np u e d e a s i g n a ru n ae x p r e s i ns i m p l eq u es a t i s f a g ae lp a r t i d o p r e d i c a d o ,ou n as u m aop r o d u c t o( r e s p e c t i v a m e n t e )d et a l e se x p r e s i o n e s . T a lc o i n c i d e n c i ad em l t i p l e sp l a z oe sc o d i c i o s o :p r e d i c a d o ss ee v a l a ne n e lo r d e ne nq u es u sv a r i a b l e sa s o c i a d a sa p a r e c e ne ne lp a r t i d o m o d e l o ,yu n aq u es a t i s f a g am sd eu np r e d i c a d oe s a d o p t a d ap o re lp r i m e rp r e d i c a d oq u es a t i s f a g a .C a d ap r e d i c a d o s ep r u e b ac o n t r at o d o sl o st r m i n o sd el as u m aop r o d u c t oa n t e sd el a s ee v a l as i g u i e n t ep r e d i c a d o .A d e m s ,s i0o1 ( R e s p e c t i v a m e n t e )s a t i s f a c eu np r e d i c a d o ,yn oh a yo t r a t r m i n o sq u es a t i s f a c e ne lp r e d i c a d o ,0o1s ea s i g n aa lp a r t i d o v a r i a b l ea s o c i a d aa lp r e d i c a d o . E la l g o r i t m op a r al aa d i c i nd ep r o c e s a m i e n t oyl o sp a t r o n e sd em u l t i p l i c a c i n h a c ea l g u n o sr e s u l t a d o sd el o sp a r t i d o s( p o re j e m p l o ,u np a t r ne ne lq u eu n" c o i n c i d e A p a r e c ev a r i a b l e sn a d a" )d e p e n d ed e lo r d e nd el o st r m i n o se n e lp a t r nd ec o m p a r a c i nye nl ae x p r e s i ns e a ns e l e c c i o n a d o s .S i ne m b a r g o , s it o d o sl o sp r e d i c a d o sd ec o m p a r a c i ns o nm u t u a m e n t ee x c l u y e n t e s ,e lr e s u l t a d od e lp a r t i d o e si n s e n s i b l eal o sp e d i d o s ,c o m op r e d i c a d od ec o m p a r a c i nn op u e d ea c e p t a r T r m i n o se n c o n t r a d o sp o ro t r o . L l a m a d a` m a t c h d e c l a r e "c o nu n< a >v a r i a b l ec o m ou na r g u m e n t oc a m b i a l ap r o p i e d a d` m a t c h d e c l a r e' p a r a< a > ,s iy af u ed e c l a r a d o ; s l oe lm sr e c i e n t e` m a t c h d e c l a r e' e s ,e ne f e c t o ,c u a n d ou n an o r m ae s d e f i n i d o .M st a r d e ,l o sc a m b i o se nl ap r o p i e d a d` m a t c h d e c l a r e' ( at r a v sd e ` M a t c h d e c l a r e' o 'r e m o v e' )n oa f e c t a nal a sn o r m a sv i g e n t e s . ` P r o p v a r s( m a t c h d e c l a r e )' d e v u e l v el al i s t ad et o d a sl a sv a r i a b l e sd e q u eh a yu n ap r o p i e d a d` m a t c h d e c l a r e' .` P r i n t p r o p s( < a > , m a t c h d e c l a r e )' d e v u e l v ee lp r e d i c a d op a r al av a r i a b l e 'a' . ` P r i n t p r o p s( t o d a s ,m a t c h d e c l a r e )' d e v u e l v el al i s t ad ep r e d i c a d o s p a r at o d a sl a sv a r i a b l e s` m a t c h d e c l a r e .` R e m o v e( < a >m a t c h d e c l a r e )' e l i m i n al ap r o p i e d a d` m a t c h d e c l a r e "d e< a > . L a sf u n c i o n e s` d e f m a t c h' , `d e f r u l e ' ,` t e l l s i m p' , `t e l l s i m p a f t e r ' , y' V a m o sac o n s t r u i rr e g l a sq u ep o n e nap r u e b al a se x p r e s i o n e se nc o n t r ad el o sp a t r o n e s . ` M a t c h d e c l a r e' e v a l as u sa r g u m e n t o s .` M a t c h d e c l a r e "s i e m p r e d e v u e l v e' H e c h o ' . E j e m p l o s : U np r e d i c a d oe se ln o m b r ed eu n af u n c i nou n ae x p r e s i nl a m b d ao u n al l a m a d aal af u n c i nol a m b d al l a m a ns i ne l l t i m oa r g u m e n t o ,o ` T r u e' o 'a l l' . ( %I 1 )m a t c h d e c l a r e( a a ,i n t e g e r p ) ; ( %O 1 )h e c h o ( %I 2 )m a t c h d e c l a r e( b b ,l a m b d a( [ x ] ,x >0 ) ) ; ( %O 2 )d o n e ( %I 3 )m a t c h d e c l a r e( c cf r e e o f( %e , %p i , %i ) ) ; ( %O 3 )d o n e ( %I 4 )m a t c h d e c l a r e( d d ,l a m b d a( [ x ,y ] ,m c d( x ,y )=1 )( 1 7 2 8 ) ) ; ( %O 4 )h e c h o ( %I 5 )m a t c h d e c l a r e( e e ,t r u e ) ; ( %O 5 )h e c h o ( %I 6 )m a t c h d e c l a r e( f f ,t o d o s ) ; ( %O 6 )h e c h o S iu n ae x p r e s i ns a t i s f a c eu np r e d i c a d o ,l av a r i a b l ed ec o m p a r a c i n s el ea s i g n al ae x p r e s i n . ( %I 1 )m a t c h d e c l a r e( a a ,i n t e g e r p ,b b , t o m o ) ; ( %O 1 )h e c h o ( %I 2 )d e f r u l e( r 1 ,b bâ a ,[ " e n t e r o "=a a ," t o m o "=B B ] ) ; a a ( %O 2 )r 1 :b b>[ n m e r oe n t e r o=a a , t o m o=b b ] ( %I 3 )r 1( %p i^8 ) ; ( %O 3 )[ n m e r oe n t e r o=8 , t o m o= %p i ] E ne lc a s od el aa d i c i nym u l t i p l i c a c i n ,l av a r i a b l ed ec o m p a r a c i np u e d e
300/633
28/08/13

a s i g n a ru n ae x p r e s i ns i m p l eq u es a t i s f a g ae lp a r t i d o p r e d i c a d o ,ou n as u m aop r o d u c t o( r e s p e c t i v a m e n t e )d et a l e se x p r e s i o n e s . ( %I 1 )m a t c h d e c l a r e( A A , t o m o ,b b ,l a m b d a( [ x ] ,n o t o m o( x ) ) ) ; ( %O 1 )h e c h o ( %I 2 )d e f r u l e( r 1 ,a a+b b ,[ " t o d o sl o s t o m o s "=a a ," t o d o sn o n a t o m s "= b b ] ) ; b b+a ap a r t i c i o n e s' s u m a ' ( %O 2 )r 1 :b b+a a>[ t o d o sl o s t o m o s=a a ,t o d o sn o n a t o m s=b b ] ( %I 3 )r 1( 8+a*b+s e n( x ) ) ; ( %O 3 )[ t o d o sl o s t o m o s=8 ,t o d o sl o sn o n a t o m s=s e n( x )+a b ] ( %I 4 )d e f r u l e( r 2 ,a a*b b ,[ " t o d o sl o s t o m o s "=a a ," t o d o sn o n a t o m s "= b b ] ) ; b ba ap a r t i c i o n e s` p r o d u c t' ( %O 4 )r 2 :a ab b>[ t o d o sl o s t o m o s=a a ,t o d on o n a t o m s=b b ] ( %I 5 )r 2( 8*( a+b )*s i n( x ) ) ; ( %O 5 )[ t o d o sl o s t o m o s=8 ,t o d o sl o sn o n a t o m s=( B+A )s e n( x ) ] C u a n d os ee s p e c i f i q u ea r g u m e n t o sd e` +' y '*' ,s it o d op a r t i d op r e d i c a d o s s o nm u t u a m e n t ee x c l u y e n t e s ,e lr e s u l t a d od e lp a r t i d oe si n s e n s i b l ea o r d e n a r ,c o m op r e d i c a d od ec o m p a r a c i nn op u e d ea c e p t a rt r m i n o sa c e p t a d o sp o r o t r a . ( %I 1 )m a t c h d e c l a r e( A A , t o m o ,b b ,l a m b d a( [ x ] ,n o t o m o( x ) ) ) ; ( %O 1 )h e c h o ( %I 2 )d e f r u l e( r 1 ,a a+b b ,[ " t o d o sl o s t o m o s "=a a ," t o d o sn o n a t o m s "= b b ] ) ; b b+a ap a r t i c i o n e s' s u m a ' ( %O 2 )r 1 :b b+a a>[ t o d o sl o s t o m o s=a a ,t o d o sn o n a t o m s=b b ] ( %I 3 )r 1( 8+a*b+ %p i+s e n( x )-c+2^n ) ; n ( %O 3 )[ t o d o sl o s t o m o s= %p i+8 ,t o d o sl o sn o n a t o m s=s e n( x )+2-c+a b ] ( %I 4 )d e f r u l e( r 2 ,a a*b b ,[ " t o d o sl o s t o m o s "=a a ," t o d o sn o n a t o m s "= b b ] ) ; b ba ap a r t i c i o n e s` p r o d u c t' ( %O 4 )r 2 :a ab b>[ t o d o sl o s t o m o s=a a ,t o d on o n a t o m s=b b ] ( %I 5 )r 2( 8*( a+b )* %p i*s i n( x )/c*2^n ) ; n ( B+a )2s i n( x ) ( %O 5 )[ t o d o sl o s t o m o s=8 %p i ,t o d a sn o n a t o m s=] c L a sf u n c i o n e sp r o p v a r s` ' y `p r i n t p r o p s 'd e v u e l v e ni n f o r m a c i ns o b r e c o i n c i d i rc o nl a sv a r i a b l e s . ( %I 1 )m a t c h d e c l a r e( [ a a ,b b ,c c ] , t o m o ,[ d d ,e e ] ,i n t e g e r p ) ; ( %O 1 )h e c h o ( %I 2 )m a t c h d e c l a r e( f f ,f l o a t n u m p ,g g ,l a m b d a( [ x ] ,x >1 0 0 ) ) ; ( %O 2 )d o n e ( %I 3 )p r o p v a r s( m a t c h d e c l a r e ) ; ( %O 3 )[ a a ,b b ,c c ,d d ,e e ,f f ,g g ] ( %I 4 )p r i n t p r o p s( e e ,m a t c h d e c l a r e ) ; ( %O 4 )[ i n t e g e r p( e e ) ] ( %I 5 )p r i n t p r o p s( g g ,m a t c h d e c l a r e ) ; ( %O 5 )[ l a m b d a( [ x ] ,x >1 0 0 ,g g ) ] ( %I 6 )p r i n t p r o p s( t o d a s ,m a t c h d e c l a r e ) ; ( %O 6 )[ l a m b d a( [ x ] ,x >1 0 0 ,g g ) ,f l o a t n u m p( F F ) ,i n t e g e r p( e e ) , i n t e g e r p( d d ) , t o m o( c c ) , t o m o( b b ) , t o m o( a a ) ]
V a r i a b l eo p c i o n a l :m a x a p p l y d e p t h V a l o rp o rd e f e c t o :1 0 0 0 0 ` M a x a p p l y d e p t h' e sl ap r o f u n d i d a dm x i m aal aq u e à p p l y 1" y ` A p p l y 2' a h o n d a r .
V a r i a b l eo p c i o n a l :m a x a p p l y h e i g h t V a l o rp o rd e f e c t o :1 0 0 0 0 ` M a x a p p l y h e i g h t' e sl aa l t u r am x i m aal aq u e à p p l y b 1l av o l u n t a d l l e g a ra n t e sd ea b a n d o n a r .
F u n c i n :r e m l e t( ,N O M B R E ) F u n c i n :r e m l e t( ) F u n c i n :r e m l e t( t o d o s ) F u n c i n :r e m l e t( t o d o ,N O M B R E ) E l i m i n al ar e g l ad es u s t i t u c i n ,>s u s t ,m sr e c i e n t e m e n t e d e f i n i d ap o rl af u n c i n` l e t' .S in os ep r o p o r c i o n ae ln o m b r ed el ar e g l ae s e l i m i n a d od e ln o m b r ed e lp a q u e t ed er e g l a s . ` R e m l e t( )' y `r e m l e t( t o d o s ) 'E l i m i n a rt o d a sl a sr e g l a sd es u s t i t u c i nd el a p a q u e t ed er e g l a sa c t u a l .S is es u m i n i s t r ae ln o m b r ed eu np a q u e t ed er e g l a s , p o re j e m p l o ,` r e m l e t( t o d o ,N O M B R E ) " ,e lp a q u e t ed er e g l a s< n o m b r e >t a m b i n s u p r i m i d o . S iu nc a m b i oe sq u es e rc a m b i a d ou s a n d oe lm i s m op r o d u c t o , ` R e m l e t' n ot i e n ep o rq u s e rl l a m a d o ,s i m p l e m e n t er e d e f i n i rl as u s t i t u c i nc o n e lm i s m op r o d u c t o( l i t e r a l m e n t e )c o nl af u n c i n` l e t' ye ln u e v o
301/633
28/08/13

s u s t i t u c i ny/oe ln o m b r ed ep r e d i c a d o .S i` r e m l e t( )' a h o r as e r l l a m al ar e g l ad es u s t i t u c i no r i g i n a ls er e a n i m . C o n s u l t et a m b i n` r e m r u l e' ,q u ee l i m i n au n ar e g l ad e f i n i d ap o r `t e l l s i m p" o ` T e l l s i m p a f t e r' .
F u n c i n :r e m r u l e( < o p > ,< r u l e n a m e > ) F u n c i n :r e m r u l e( < o p > ,t o d o s ) Q u i t al a sr e g l a sd e f i n i d a sp o rt e l l s i m p` ' o `t e l l s i m p a f t e r ' . ` R e m r u l e( < o p > ,< r u l e n a m e > )' e l i m i n al ar e g l ac o ne ln o m b r e < r u l e n a m e >d el a< o p >o p e r a d o r .C u a n d o< o p >e su nb u i l t i nod e l o p e r a d o rd e f i n i d op o re lu s u a r i o( c o m os ed e f i n ep o r` i n f i j o' , 'p r e f i j o' ,e t c ) , < o p >y< r u l e n a m e >d e b e ni re n t r ec o m i l l a sd o b l e s . ` R e m r u l e( < o p > ,t o d o s )' e l i m i n at o d a sl a sr e g l a sp a r al a< o p >o p e r a d o r . C o n s u l t et a m b i n` r e m l e t' ,q u ee l i m i n au n ar e g l ad e f i n i d ap o r `l e t ' . E j e m p l o s : ( %I 1 )t e l l s i m p( f o o( a a ,b b ) ,b b-a a ) ; ( %O 1 )[ f o o r u l e 1 ,f a l s e ] ( %I 2 )t e l l s i m p a f t e r( a a+b b ,s p e c i a l _ a d d( a a ,b b ) ) ; ( %O 2 )[ +r e g l a 1 ,S i m p l u s ] ( %I 3 )i n f i j a( " @@ " ) ; ( %O 3 )@@ ( %I 4 )t e l l s i m p( a a@@b b ,b b/a a ) ; ( %O 4 )[ @@r e g l a 1 ,f a l s e ] ( %I 5 )t e l l s i m p a f t e r( q u u x( %p i , %e ) , %p i%e ) ; ( %O 5 )[ q u u x r u l e 1 ,f a l s e ] ( %I 6 )t e l l s i m p a f t e r( q u u x( %e , %p i ) , %p i+ %e ) ; ( %O 6 )[ q u u x r u l e 2 ,q u u x r u l e 1 ,f a l s e ] ( %I 7 )[ f o o( a a ,b b ) ,a a+b b ,a a@@b b ,q u u x( %p i , %e ) , q u u x( %e , %p i ) ] ; b b ( %O 7 )[ b b-a a ,s p e c i a l _ a d d( a a ,b b ) ,, %p i%e , %p i+ %e ] a a ( %I 8 )r e m r u l e( f o o ,f o o r u l e 1 ) ; ( %O 8 )f o o ( %I 9 )r e m r u l e( " + " ,\+r e g l a 1 ? ) ; ( %O 9 )+ ( %I 1 0 )r e m r u l e( " @@ "\@\@r e g l a 1 ? ) ; ( %O 1 0 )@@ ( %I 1 1 )r e m r u l e( q u u x ,t o d o s ) ; ( %O 1 1 )q u u x ( %I 1 2 )[ f o o( a a ,b b ) ,a a+b b ,a a@@b b ,q u u x( %p i , %e ) , q u u x( %e , %p i ) ] ; ( %O 1 2 )[ f o o( a a ,b b ) ,b b+a a ,a a@@b b ,q u u x( %p i , %e ) , q u u x( %e , %p i ) ]
F u n c i n :t e l l s i m p( ,< r e p l a c e m e n t > ) e ss i m i l a ra` t e l l s i m p a f t e r' p e r oc o l o c an u e v ai n f o r m a c i na n t e s v i e j o ,a s q u es ea p l i c aa n t e sd el ai n c o r p o r a d ae nl a sr e g l a sd es i m p l i f i c a c i n . ` T e l l s i m ps eu t i l i z a "c u a n d oe si m p o r t a n t em o d i f i c a rl ae x p r e s i n a n t e sd eq u ee ls i m p l i f i c a d o rt r a b a j ae n l ,p o re j e m p l o ,c u a n d oe ls i m p l i f i c a d o r " S a b e "a l g os o b r eu n ae x p r e s i np e r ol oq u ed e v u e l v en oe s as ug u s t o .S ie ls i m p l i f i c a d o ry a" s a b e "a l g os o b r ee l p r i n c i p a lo p e r a d o rd el ae x p r e s i n ,s i n oq u es i m p l e m e n t en oe s t h a c i e n d ol os u f i c i e n t ep a r a u s t e d ,e sp r o b a b l eq u ed e s e eu s a r' t e l l s i m p a f t e r ' . E lp a t r np u e d en os e ru n as u m a ,p r o d u c t o ,d eu n as o l av a r i a b l e ,oe ln m e r o . E ls i s t e m a` r u l e s' v a r i a b l e se sl al i s t ad er e g l a sd e f i n i d a sp o r D e f r u l e` ' , `d e f m a t c h ' ,` t e l l s i m p' y `t e l l s i m p a f t e r ' . E j e m p l o s : ( %I 1 )m a t c h d e c l a r e( x ,f r e e o f( %i ) ) ; ( %O 1 )h e c h o ( %I 2 ) %i a r g s :f a l s e$ ( %I 3 )t e l l s i m p( s i n( %i*x ) , %i*s i n h( x ) ) ; ( %O 3 )[ s i n r u l e 1 ,s i m p %p e c a d o ] ( %I 4 )t r i g e x p a n d( s i n( %i*y+x ) ) ; ( %O 4 )s i n( x )c o s( %i y )+ %ic o s( x )s i n h( y ) ( %I 5 ) %i a r g s :t r u e$ ( %I 6 )e r r c a t c h( 0^0 ) ; 0 0S eh ag e n e r a d o ( %O 6 )[ ] ( %I 7 )e v( t e l l s i m p( 0^0 ,1 ) ,s i m p :f a l s e ) ; ( %O 7 )[ ^r e g l a 1 ,s i m p e x p t ] ( %I 8 )0^0 ; ( %O 8 )1 ( %I 9 )r e m r u l e( " ^ " , %t h( 2 )[ 1 ] ) ; ( %O 9 )^ ( %I 1 0 )t e l l s i m p( s i n( x )^2 ,1-c o s( x )^2 ) ; ( %O 1 0 )[ ^r u l e 2 ,s i m p e x p t ] ( %I 1 1 )( 1+s e n( x ) )^2 ;
302/633
28/08/13
( %O 1 1 )( s i n( x )+1 ) ( %I 1 2 )e x p a n s i n( % ) ;

2
2 ( %O 1 2 )2s e n( x )-c o s( x )+2 ( %I 1 3 )s i n( x )^2 ; 2 ( %O 1 3 )1-c o s( x ) ( %I 1 4 )k i l l( r u l e s ) ; ( %O 1 4 )d o n e ( %I 1 5 )m a t c h d e c l a r e( a ,t r u e ) ; ( %O 1 5 )d o n e ( %I 1 6 )t e l l s i m p( s e n( a )^2 ,1-c o s( a )^2 ) ; ( %O 1 6 )[ ^N o r m a 3 ,s i m p e x p t ] ( %I 1 7 )s i n( y )^2 ; 2 ( %O 1 7 )1-c o s( y )
F u n c i n :t e l l s i m p a f t e r( ,< r e p l a c e m e n t > ) D e f i n eu n ar e g l ad es i m p l i f i c a c i nq u es ea p l i c aa ls i m p l i f i c a d o rd eM a x i m a d e s p u sd er e g l a sd es i m p l i f i c a c i ni n t e g r a d o s .e su n ae x p r e s i n , q u ec o m p r e n d e nv a r i a b l e sd ep a t r n( d e c l a r a d a sp o r` m a t c h d e c l a r e' )y o t r o s t o m o syo p e r a d o r e s ,c o n s i d e r a d o sl i t e r a l e sp a r ae lp r o p s i t od e c o i n c i d e n c i ad ep a t r o n e s .< r e p l a c e m e n t >e ss u s t i t u i d op o ru nr e a l e x p r e s i nq u ec o i n c i d e ;v a r i a b l e sd ep a t r ne n < r e p l a c e m e n t >s ea s i g n a nl o sv a l o r e sc o i n c i d e n t e se ne la c t u a l e x p r e s i n . p u e d es e rc u a l q u i e re x p r e s i nn oa t m i c ae nl aq u ee lp r i n c i p a l o p e r a d o rn oe su n av a r i a b l ed ep a t r n ,l ar e g l ad es i m p l i f i c a c i ne s a s o c i a d oc o ne lo p e r a d o rp r i n c i p a l .L o sn o m b r e sd ef u n c i o n e s( c o n u n ae x c e p c i n ,s ed e s c r i b eac o n t i n u a c i n ) ,l i s t a s ,yl a sm a t r i c e sp u e d e na p a r e c e re n c o m oe lo p e r a d o rp r i n c i p a ls l oc o m ol i t e r a l e s( n op a t r n L a sv a r i a b l e s ) :e s t oe x c l u y ee x p r e s i o n e sc o m o` a a( x )' y `b b[ y ] ' c o m op a t r o n e s ,s i` a a' y 'b b' s o nv a r i a b l e sd ep a t r n .L o sn o m b r e sd el o s f u n c i o n e s ,l i s t a sya r r a y sq u es e a nv a r i a b l e sd ep a t r np u e d e n a p a r e c e nc o m ol o so p e r a d o r e sq u en os e a ne lp r i n c i p a lo p e r a d o rd e . H a yu n ae x c e p c i nal ar e g l aa n t e r i o rd e d i c a d oal o sn o m b r e sd e f u n c i o n e s .E ln o m b r ed eu n af u n c i nd es u b n d i c ee nu n ae x p r e s i n c o m o` a a[ x ]( y )' p u e d es e ru n av a r i a b l ed ep a t r n ,y aq u ee lp r i n c i p a l o p e r a d o rn oe s' a a ' ,s i n om sb i e ne l t o m od eL i s p` m q a p p l y' .E s u n ac o n s e c u e n c i ad el ar e p r e s e n t a c i nd ee x p r e s i o n e sq u ei m p l i c a n f u n c i o n e ss u b n d i c e . R e g l a sd es i m p l i f i c a c i ns ea p l i c a nd e s p u sd el ae v a l u a c i n( s in o s u p r i m a nc o ne la p s t r o f ool ab a n d e r a` n o e v a l' ) .R e g l a s e s t a b l e c i d op o r` t e l l s i m p a f t e r' s ea p l i c a ne ne lo r d e ne nq u ef u e r o n d e f i n i d o ,yd e s p u sd el a sr e g l a si n t e g r a d a s .S ea p l i c a nr e g l a s d ea b a j oh a c i aa r r i b a ,e sd e c i r ,s ea p l i c ap r i m e r oal a ss u b e x p r e s i o n e sa n t e s a p l i c a c i nat o d al ae x p r e s i n .P u e d es e rn e c e s a r i o s i m p l i f i c a rr e p e t i d a m e n t eu nr e s u l t a d o( p o re j e m p l o ,at r a v sd el ac i t a c i t a o p e r a d o r` ' '' ol ab a n d e r a ì n f e v a l ' )p a r ag a r a n t i z a rq u et o d a sl a sn o r m a ss o n a p l i c a d a . L a sv a r i a b l e sd ep a t r ns et r a t a nc o m ov a r i a b l e sl o c a l e se nl as i m p l i f i c a c i n r e g l a s .U n av e zq u es ed e f i n eu n ar e g l a ,e lv a l o rd eu n av a r i a b l ed ep a t r n n oa f e c t aal ar e g l a ,yn os ev ea f e c t a d ap o rl ar e g l a .U n a s i g n a c i nau n av a r i a b l ed ep a t r nq u er e s u l t ad eu n ae x i t o s a c o i n c i d e n c i ad er e g l an oa f e c t aal aa s i g n a c i na c t u a l( of a l t ad ee l l a ) d el av a r i a b l ep a t r n .S i ne m b a r g o ,c o m oc u a l q u i e ro t r o t o m od eM a x i m a , l a sp r o p i e d a d e sd el a sv a r i a b l e sd ep a t r n( s e g nl od e c l a r a d op o r' p u t 'y f u n c i o n e sr e l a c i o n a d a s )s o ng l o b a l e s . L ar e g l ac o n s t r u i d ap o r` t e l l s i m p a f t e r' d e b es un o m b r ea lp r i n c i p a l o p e r a d o rd e .R e g l a sp a r al o so p e r a d o r e si n t e g r a d o sy o p e r a d o r e sd e f i n i d o sp o re lu s u a r i od e f i n i d o sp o r` i n f i j o' , 'p r e f i x' , `p o s t f i x ' , M a t c h f i x` ' y `n o f i x ' ,t i e n e nn o m b r e sq u es o ni d e n t i f i c a d o r e sL i s p . R e g l a sp a r ao t r a sf u n c i o n e st i e n e nn o m b r e sq u es o ni d e n t i f i c a d o r e sM a x i m a . E lt r a t a m i e n t od el a sf o r m a sn o m i n a l e syv e r b a l e se su np o c oc o n f u s o .S iu n n o r m as ed e f i n ep o ru nn o m b r e( ov e r b a l )yu n an o r m ap a r al a f o r m av e r b a l( on o m i n a l )y ae x i s t e ,e l r e g l ar e c i nd e f i n i d as ea p l i c aaa m b a sf o r m a s( s u s t a n t i v oyv e r b o ) .S iu n g o b e r n a rp a r ae lv e r b o( on o m i n a l )f o r m u l a r i on oe x i s t e ,e l r e g l ar e c i nd e f i n i d as ea p l i c as l oal an o m i n a l( ov e r b a l ) . L ar e g l ac o n s t r u i d ap o r` t e l l s i m p a f t e r' e su nL i s p f u n c i n .S ie ln o m b r ed el ar e g l ae s' $f o o r u l e 1 ' ,l ac o n s t r u c c i nd e ` :L i s p( t r a c e$f o o r u l e 1 )' t r a z al af u n c i n ,y ` :l i s p ( S y m b o l f u n c t i o n' $f o o r u l e 1 ) 'm u e s t r as ud e f i n i c i n . ` T e l l s i m p a f t e r' e v a l as u sa r g u m e n t o s .` T e l l s i m p a f t e r' d e v u e l v ee l l i s t ad er e g l a sp a r ae lo p e r a d o rp r i n c i p a ld e ,i n c l u y e n d oe l E s t a d od er e c i e n t ec r e a c i n . C o n s u l t et a m b i n` m a t c h d e c l a r e' , `d e f m a t c h ' ,` d e f r u l e' , `t e l l s i m p ' ,` l e t' , ` K i l l' , `r e m r u l e 'y` c l e a r _ r u l e s' . E j e m p l o s : p u e d es e rc u a l q u i e re x p r e s i nn oa t m i c ae nl aq u ee lp r i n c i p a l o p e r a d o rn oe su n av a r i a b l ed ep a t r n .
303/633
28/08/13

( %I 1 )m a t c h d e c l a r e( a a , t o m o ,[ l l ,m m ] ,l i s t p ,x x ,t r u e )$ ( %I 2 )t e l l s i m p a f t e r( s i n( l l ) ,m a p a s( s i n ,l l ) ) ; ( %O 2 )[ s i n r u l e 1 ,s i m p %p e c a d o ] ( %I 3 )s e n( [ 1 / 6 ,1 / 4 ,1 / 3 ,1 / 2 ,1 ]* %p i ) ; 1s q r t( 2 )s q r t( 3 ) ( %O 3 )[ ,,,1 ,0 ] 222 ( %I 4 )t e l l s i m p a f t e r( l l^m m ,m a p a( " ^ " ,l l ,m m ) ) ; ( %O 4 )[ ^r e g l a 1 ,s i m p e x p t ] ( %I 5 )[ a ,b ,c ]^[ 1 ,2 ,3 ] ; 23 ( %O 5 )[ a ,b ,c ] ( %I 6 )t e l l s i m p a f t e r( f o o( a a( x x ) ) ,a a( f o o( x x ) ) ) ; ( %O 6 )[ f o o r u l e 1 ,f a l s e ] ( %I 7 )f o o( b a r( u-v ) ) ; ( %O 7 )b a r( f o o( u-v ) ) L a sr e g l a ss ea p l i c a ne ne lo r d e ne nq u ef u e r o nd e f i n i d o s .S id o sn o r m a s p u e d ec o i n c i d i rc o nu n ae x p r e s i n ,e li m p e r i oq u es ed e f i n i p r i m e r oe s a p l i c a d a . ( %I 1 )m a t c h d e c l a r e( a a ,i n t e g e r p ) ; ( %O 1 )h e c h o ( %I 2 )t e l l s i m p a f t e r( f o o( a a ) ,b a r _ 1( a a ) ) ; ( %O 2 )[ f o o r u l e 1 ,f a l s e ] ( %I 3 )t e l l s i m p a f t e r( f o o( a a ) ,b a r _ 2( a a ) ) ; ( %O 3 )[ f o o r u l e 2 ,f o o r u l e 1 ,f a l s e ] ( %I 4 )f o o( 4 2 ) ; ( %O 4 )b a r _ 1( 4 2 ) L a sv a r i a b l e sd ep a t r ns et r a t a nc o m ov a r i a b l e sl o c a l e se nl as i m p l i f i c a c i n r e g l a s .( C o m p a r ec o n` d e f m a t c h' ,q u et r a t aal a sv a r i a b l e sd ep a t r n , v a r i a b l e sg l o b a l e s . ) ( %I 1 )m a t c h d e c l a r e( a a ,i n t e g e r p ,b b , t o m o ) ; ( %O 1 )h e c h o ( %I 2 )t e l l s i m p a f t e r( f o o( a a ,b b ) ,b a r( ' a a=a a ' ,b bb b= ) ) ; ( %O 2 )[ f o o r u l e 1 ,f a l s e ] ( %I 3 )b b :1 2 3 4 5 ; ( %O 3 )1 2 3 4 5 ( %I 4 )f o o( 4 2 , %e ) ; ( %O 4 )b a r( a a=4 2 ,b b= %e ) ( %I 5 )b b ; ( %O 5 )1 2 3 4 5 A li g u a lq u ec o nt o d o sl o s t o m o s ,l a sp r o p i e d a d e sd el a sv a r i a b l e sd ep a t r ns o ng l o b a l e s ,i n c l u s o a u n q u el o sv a l o r e ss o nl o c a l e s .E ne s t ee j e m p l o ,u n ap r o p i e d a dd ea s i g n a c i n s ed e c l a r aat r a v sd e` d e f i n e _ v a r i a b l e' .E s t ae su n ap r o p i e d a dd e l t o m o ' B b 't o d oM a x i m a . ( %I 1 )m a t c h d e c l a r e( a a ,i n t e g e r p ,b b , t o m o ) ; ( %O 1 )h e c h o ( %I 2 )t e l l s i m p a f t e r( f o o( a a ,b b ) ,b a r( ' a a=a a ' ,b bb b= ) ) ; ( %O 2 )[ f o o r u l e 1 ,f a l s e ] ( %I 3 )f o o( 4 2 , %e ) ; ( %O 3 )b a r( a a=4 2 ,b b= %e ) ( %I 4 )d e f i n e _ v a r i a b l e( b b ,e sc i e r t o ,b o o l e a n o ) ; ( %O 4 )t r u e ( %I 5 )f o o( 4 2 , %e ) ; E r r o r :b bf u ed e c l a r a d om o d ob o o l e a n o ,t i e n ev a l o r : %e -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; R e g l a sl l e v a ne ln o m b r ed el o so p e r a d o r e sp r i n c i p a l e s .L o sn o m b r e sd er e g l a sp a r au n af u n c i nd e yl o so p e r a d o r e sd e f i n i d o sp o re lu s u a r i os o ni d e n t i f i c a d o r e sL i s p ,m i e n t r a sq u el o sn o m b r e sd e o t r a sf u n c i o n e ss o ni d e n t i f i c a d o r e sM a x i m a . ( %I 1 )t e l l s i m p a f t e r( f o o( %p i+ %e ) ,3* %p i ) ; ( %O 1 )[ f o o r u l e 1 ,f a l s e ] ( %I 2 )t e l l s i m p a f t e r( f o o( %p i* %e ) ,1 7* %e ) ; ( %O 2 )[ f o o r u l e 2 ,f o o r u l e 1 ,f a l s e ] ( %I 3 )t e l l s i m p a f t e r( f o o( %i^ %e ) ,4 2* %i ) ; ( %O 3 )[ f o o r u l e 3 ,f o o r u l e 2 ,f o o r u l e 1 ,f a l s e ] ( %I 4 )t e l l s i m p a f t e r( f o o( 9 )+f o o( 1 3 ) ,q u u x( 2 2 ) ) ; ( %O 4 )[ +r e g l a 1 ,S i m p l u s ] ( %I 5 )t e l l s i m p a f t e r( f o o( 9 )*f o o( 1 3 ) ,b l u r f( 2 2 ) ) ; ( %O 5 )[ *r e g l a 1 ,s i m p t i m e s ] ( %I 6 )t e l l s i m p a f t e r( f o o( 9 )^f o o( 1 3 ) ,e n t r ed i e n t e s( 2 2 ) ) ; ( %O 6 )[ ^r e g l a 1 ,s i m p e x p t ] ( %I 7 )l a sn o r m a s ; ( %O 7 )[ f o o r u l e 1 ,f o o r u l e 2 ,f o o r u l e 3 ,+r e g l a 1 ,*r e g l a 1 ,^r e g l a 1 ] ( %I 8 )f o o r u l e _ n a m e :p r i m e r a( %o 1 ) ; ( %O 8 )f o o r u l e 1 ( %I 9 )p l u s r u l e _ n a m e :p r i m e r a( %o 4 ) ; ( %O 9 )+r e g l a 1 ( %I 1 0 )r e m r u l e( f o o ,f o o r u l e 1 ) ; ( %O 1 0 )f o o ( %I 1 1 )r e m r u l e( " ^ " ,\^r e g l a 1 ? ) ; ( %O 1 1 )^ ( %I 1 2 )l a sn o r m a s ; ( %O 1 2 )[ f o o r u l e 2 ,f o o r u l e 3 ,+r e g l a 1 ,*r e g l a 1 ] U ne j e m p l op r c t i c od ep r o d u c t oa n t i c o n m u t a t i v o . ( %I 1 )g t( i ,j ) :=i n t e g e r p( j )yi< j ; ( %O 1 )g t( i ,j ) :=i n t e g e r p( j )yi< j ( %I 2 )m a t c h d e c l a r e( i ,i n t e g e r p ,j ,G T( i ) ) ; ( %O 2 )d o n e
304/633
28/08/13

( %I 3 )t e l l s i m p a f t e r( s[ i ]^^2 ,1 ) ; ( %O 3 )[ ^^r e g l a 1 ,s i m p n c e x p t ] ( %I 4 )t e l l s i m p a f t e r( s[ i ]s[ j ] , s[ j ]s[ i ] . . ) ; ( %O 4 )[ .R e g l a 1 ,s i m p n c t ] ( %I 5 )s[ 1 ] .( S[ 1 ]+s[ 2 ] ) ; ( %O 5 )s .( S+s ) 121 ( %I 6 )e x p a n s i n( % ) ; ( %O 6 )1-s .s 21 ( %I 7 )F a c t o r( e x p a n d( s u m a( s[ i ] ,i ,0 ,9 )^^5 ) ) ; ( %O 7 )1 0 0( s+s+s+s+s+s+s+s+s+s ) 9876543210
F u n c i n :c l e a r _ r u l e s( ) E j e c u t a` k i l l( r u l e s ) "yl u e g or e i n i c i ae ls i g u i e n t en m e r od er e g l aa1 p a r al as u m a' + ' ,l am u l t i p l i c a c i n' * 'ye x p o n e n c i a c i n` ^' .
35 Sets
I n t r o d u c c i nal o sc o n j u n t o sd e F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s
35.1 Introduccin a los conjuntos

M a x i m ao f r e c ef u n c i o n e se s t a b l e c i d a s ,c o m ol ai n t e r s e c c i nou n i n ,p a r a c o n j u n t o sf i n i t o syd e f i n i d o sp o re n u m e r a c i n .M a x i m at r a t a l i s t a syc o n j u n t o sc o m oo b j e t o sd i s t i n t o s .E s t ac a r a c t e r s t i c ah a c eq u es e ap o s i b l e t r a b a j a rc o ng r u p o sq u et i e n e nm i e m b r o sq u es o nc o n j u n t o sol i s t a s . A d e m sd el a sf u n c i o n e sp a r ac o n j u n t o sf i n i t o s ,M a x i m ad i s p o n ed ea l g u n o s f u n c i o n e sr e l a c i o n a d a sc o nl ac o m b i n a t o r i a ,c o m ol o sn m e r o sd eS t i r l i n g d el ap r i m e r ays e g u n d ac l a s e ,l o sn m e r o sd eB e l l ,m u l t i n o m i a l c o e f i c i e n t e s ,p a r t i c i o n e sd ee n t e r o sn on e g a t i v o s ,ya l g u n o so t r o s . M a x i m at a m b i nd e f i n eu n af u n c i nd e l t ad eK r o n e c k e r .
35.2 Funciones y variables para los conjuntos

F u n c i n :c o l i n d a n( < x >< a > ) D e v u e l v el au n i nd el a< a >c o n j u n t oc o n` < x >{ }' . ` C o l i n d a n' s eq u e j as i< a >n oe su nc o n j u n t ol i t e r a l . ` C o l i n d a n( < x >< a > )' y ù n i o n( s e t( < x > ) ,< a > ) 's o ne q u i v a l e n t e s ; S i ne m b a r g o ,` c o l i n d a n' p u e d es e ru np o c om sr p i d oq u e `s i n d i c a t o . C o n s u l t et a m b i n` d i s j o i n' . E j e m p l o s : ( %I 1 )c o l i n d a n( c ,{ a ,b } ) ; ( %O 1 ){ a ,b ,c } ( %I 2 )c o l i n d a n( a ,{ a ,b } ) ; ( %O 2 ){ a ,b }
F u n c i n :b e l l n( < n > ) R e p r e s e n t ae ln m e r od eB e l le n s i m o .` B e l l n( n )e se ln m e r od e p a r t i c i o n e sd eu nc o n j u n t oc o nl o sm i e m b r o s< n > . P a r an m e r o se n t e r o sn on e g a t i v o s< n > ,` b e l l n( < n > )' s es i m p l i f i c aal ae n s i m a N m e r od eB e l l .` B e l l n' n os i m p l i f i c ap a r ac u a l q u i e ro t r oa r g u m e n t o . ` B e l l n' d i s t r i b u y es o b r ee c u a c i o n e s ,l i s t a s ,m a t r i c e syc o n j u n t o s . E j e m p l o s : ` B e l l n' a p l i c a d aal o sn m e r o se n t e r o sn on e g a t i v o s . ( %I 1 )m a k e L i s t( b e l l n( i ) ,i ,0 ,6 ) ; ( %O 1 )[ 1 ,1 ,2 ,5 ,1 5 ,5 2 ,2 0 3 ] ( %I 2 )e s( c a r d i n a l i d a d( s e n t e n c i as e t _ p a r t i t i o n s( { } ) )=b e l l n( 0 ) ) ; ( %O 2 )t r u e ( %I 3 )e s( c a r d i n a l i d a d( s e n t e n c i as e t _ p a r t i t i o n s( { 1 ,2 ,3 ,4 ,5 ,6 } ) )= b e l l n( 6 ) ) ; ( %O 3 )t r u e ` B e l l n' a p l i c a d oal o sa r g u m e n t o sq u en os o ne n t e r o sn on e g a t i v o s . ( %I 1 )[ b e l l n( x ) ,b e l l n( s q r t( 3 ) ) ,b e l l n( 9 ) ] ; ( %O 1 )[ b e l l n( x ) ,b e l l n( s q r t( 3 ) ) ,b e l l n( -9 ) ]
305/633
28/08/13
F u n c i n :c a r d i n a l i d a d( < a > ) D e v u e l v ee ln m e r od ee l e m e n t o sd i s t i n t o sd el a< a >c o n j u n t o . ' C a r d i n a l i d a d 'i g n o r al o se l e m e n t o sr e d u n d a n t e s ,i n c l u s oc u a n d ol as i m p l i f i c a c i n s ed e s a c t i v a . E j e m p l o s : ( %I 1 )c a r d i n a l i d a d( { } ) ; ( %O 1 )0 ( %I 2 )c a r d i n a l i d a d( { a ,a ,b ,c } ) ; ( %O 2 )3 ( %I 3 )s i m p :f a l s e ; ( %O 3 )f a l s e ( %I 4 )c a r d i n a l i d a d( { a ,a ,b ,c } ) ; ( %O 4 )3
F u n c i n :c a r t e s i a n _ p r o d u c t( ,. . . , ) D e v u e l v eu nc o n j u n t od el i s t a sd el af o r m a` [ < x _ 1 > ,. . . ,< x _ n > ]' ,d o n d e < x _ 1 > ,. . . ,< x _ n >s o ne l e m e n t o sd el o sc o n j u n t o s ,. . ., , r e s p e c t i v a m e n t e . ` C a r t e s i a n _ p r o d u c t' s eq u e j as ia l g na r g u m e n t on oe su nc o n j u n t ol i t e r a l . E j e m p l o s : ( %I 1 )c a r t e s i a n _ p r o d u c t( { 0 ,1 } ) ; ( %O 1 ){ [ 0 ] ,[ 1 ] } ( %I 2 )c a r t e s i a n _ p r o d u c t( { 0 ,1 } ,{ 0 ,1 } ) ; ( %O 2 ){ [ 0 ,0 ] ,[ 0 ,1 ] ,[ 1 ,0 ] ,[ 1 ,1 ] } ( %I 3 )c a r t e s i a n _ p r o d u c t( { x } ,{ y } ,{ z } ) ; ( %O 3 ){ [ x ,y ,z ] } ( %I 4 )c a r t e s i a n _ p r o d u c t( { x } ,{ 1 ,0 ,1 } ) ; ( %O 4 ){ [ x ,-1 ] ,[ x ,0 ] ,[ x ,1 ] }
F u n c i n :d i s j o i n( < x >< a > ) D e v u e l v ee lc o n j u n t o< a >s i n< x >m i e m b r o .S in oe su n< x > m i e m b r od e l< a > ,v u e l v a< a >s i nc a m b i o s . ` D i s j o i n' s eq u e j as i< a >n oe su nc o n j u n t ol i t e r a l . ` D i s j o i n( < x >< a > )' , `d e l e t e( < x >< a > ) 'y` s e t d i f f e r e n c e( < a > , c o n f i g u r a r( < x > ) )' s o nt o d o se q u i v a l e n t e s .D ee l l o s ,` d i s j o i n' e sg e n e r a l m e n t e m sr p i d oq u el o so t r o s . E j e m p l o s : ( %I 1 )d i s j o i n( a ,{ a ,b ,c ,d } ) ; ( %O 1 ){ b ,c ,d } ( %I 2 )d i s j o i n( a+b ,{ 5 ,z ,a+b , %p i } ) ; ( %O 2 ){ 5 , %p i ,z } ( %I 3 )d i s j o i n( a-b ,{ 5 ,z ,a+b , %p i } ) ; ( %O 3 ){ 5 , %p i ,b+a ,z }
F u n c i n :d i s j o i n t p( < a > ) D e v u e l v e` t r u e' s iys l os il o sc o n j u n t o s< a >ys o nd i s j u n t o s . ` D i s j o i n t p' s eq u e j as ib i e n< a >on oe su nc o n j u n t ol i t e r a l . E j e m p l o s : ( %I 1 )d i s j o i n t p( { a ,b ,c } ,{ 1 ,2 ,3 } ) ; ( %O 1 )t r u e ( %I 2 )d i s j o i n t p( { a ,b ,3 } ,{ 1 ,2 ,3 } ) ; ( %O 2 )f a l s e
F u n c i n :d i v i s o r e s( < n > ) R e p r e s e n t ae lc o n j u n t od ed i v i s o r e sd e< n > . ` D i v i s o r e s( < n > )' s i m p l i f i c aau nc o n j u n t od en m e r o se n t e r o sc u a n d oe su n< n > n m e r oe n t e r od i s t i n t od ec e r o .E lc o n j u n t od ed i v i s o r e si n c l u y el o se l e m e n t o s1y < n > .L o sd i v i s o r e sd eu ne n t e r on e g a t i v os o nl o sd i v i s o r e sd es u v a l o ra b s o l u t o . ` D i v i s o r e s' d i s t r i b u y es o b r ee c u a c i o n e s ,l i s t a s ,m a t r i c e syc o n j u n t o s . E j e m p l o s : P o d e m o sc o m p r o b a rq u e2 8e su nn m e r op e r f e c t o :l as u m ad es u sd i v i s o r e s
306/633
28/08/13
( E x c e p t op o rs m i s m o )e s2 8 .
( %I 1 )s :d i v i s o r e s( 2 8 ) ; ( %O 1 ){ 1 ,2 ,4 ,7 ,1 4 ,2 8 } ( %I 2 )l r e d u c e( " + " ,a r g s( s ) )-2 8 ; ( %O 2 )2 8 D i v i s o r e s` ' e su n af u n c i nd el as i m p l i f i c a c i n .S u s t i t u y e n d o8p a r a' a 'e n ` D i v i s o r e s( a )' d e v u e l v el o sd i v i s o r e ss i nr e e v a l u a r ` D i v i s o r e s( 8 ) " . ( %I 1 )d i v i s o r e s( a ) ; ( %O 1 )d i v i s o r e s( a ) ( %I 2 )s u b s t( 8 ,u n , % ) ; ( %O 2 ){ 1 ,2 ,4 ,8 } ` D i v i s o r e s' d i s t r i b u y es o b r ee c u a c i o n e s ,l i s t a s ,m a t r i c e syc o n j u n t o s . ( %I 1 )d i v i s o r e s( a=b ) ; ( %O 1 )d i v i s o r e s( a )=d i v i s o r e s( b ) ( %I 2 )d i v i s o r e s( [ a ,b ,c ] ) ; ( %O 2 )[ d i v i s o r e s( a ) ,d i v i s o r e s( b ) ,d i v i s o r e s( c ) ] ( %I 3 )d i v i s o r e s( m a t r i z( [ a ,b ] ,[ c ,d ] ) ) ; [ D i v i s o r e s( a )d i v i s o r e s( b ) ] ( %O 3 )[ ] [ D i v i s o r e s( c )d i v i s o r e s( d ) ] ( %I 4 )d i v i s o r e s( { a ,b ,c } ) ; ( %O 4 ){ d i v i s o r e s( a ) ,d i v i s o r e s( b ) ,d i v i s o r e s( c ) }
F u n c i n :e l e m e n t p( < x >< a > ) D e v u e l v e` t r u e' s iys l os i< x >e su nm i e m b r od el a< a >s e t . ` E l e m e n t p' s eq u e j as i< a >n oe su nc o n j u n t ol i t e r a l . E j e m p l o s : ( %I 1 )e l e m e n t p( s i n( 1 ) ,{ s i n( 1 ) ,s i n( 2 ) ,s i n( 3 ) } ) ; ( %O 1 )t r u e ( %I 2 )e l e m e n t p( s e n( 1 ) ,{ c o s( 1 ) ,c o s( 2 ) ,c o s( 3 ) } ) ; ( %O 2 )f a l s e
F u n c i n :e m p t y p( < a > ) V o l v e r` t r u e' s iys l os i< a >e se lc o n j u n t ov a c ooe lv a c o l i s t a . E j e m p l o s : ( %I 1 )m a p a( e m p t y p ,[ { } ,[ ] ] ) ; ( %O 1 )[ t r u e ,t r u e ] ( %I 2 )m a p a( e m p t y p ,[ a+b ,{ { } } , %p i ] ) ; ( %O 2 )[ f a l s o ,f a l s o ,f a l s o ]
F u n c i n :e q u i v _ c l a s s e s( < S > ,< F > ) D e v u e l v eu nc o n j u n t od el a sc l a s e sd ee q u i v a l e n c i ad el a< S >c o n j u n t oc o n c o nr e s p e c t oal ar e l a c i n< F >e q u i v a l e n c i a . < F >E su n af u n c i nd ed o sv a r i a b l e sd e f i n i d oe ne lc a r t e s i a n o p r o d u c t od e< S >c o n< S > .E lv a l o rd er e t o r n od e< F >e so` t r u e' o' f a l s e 'ou n ae x p r e s i ne x p rd et a lm a n e r aq u es e` ( e x p r )' e s y as e a` t r u e' o 'f a l s e' . C u a n d o< F >n oe su n ar e l a c i nd ee q u i v a l e n c i a ,` e q u i v _ c l a s s e s' a c e p t a s i nq u e j a r s e ,p e r oe lr e s u l t a d oe si n c o r r e c t oe ng e n e r a l e s ec a s o . E j e m p l o s : L ar e l a c i nd ee q u i v a l e n c i ae su n ae x p r e s i nl a m b d aq u ed e v u e l v e ` T r u e' o 'f a l s e' . ( %I 1 )e q u i v _ c l a s s e s( { 1 ,1 . 0 ,2 ,2 . 0 ,3 ,3 . 0 } , l a m b d a( [ x ,y ] ,e s( i g u a l( x ,y ) ) ) ) ; ( %O 1 ){ { 1 ,1 , 0 } ,{ 2 ,2 , 0 } ,{ 3 ,3 . 0 } } L ar e l a c i nd ee q u i v a l e n c i ae se ln o m b r ed eu n af u n c i nr e l a c i o n a l q u e` e s' e v a l aa `t r u e 'o' f a l s e ' . ( %I 1 )e q u i v _ c l a s s e s( { 1 ,1 . 0 ,2 ,2 . 0 ,3 ,3 . 0 } ,i g u a l e s ) ; ( %O 1 ){ { 1 ,1 , 0 } ,{ 2 ,2 , 0 } ,{ 3 ,3 . 0 } } L a sc l a s e sd ee q u i v a l e n c i as o nn m e r o sq u ed i f i e r e ne nu nm l t i p l od e 3 . ( %I 1 )e q u i v _ c l a s s e s( { 1 ,2 ,3 ,4 ,5 ,6 ,7 } , l a m b d a( [ x ,y ] ,e lr e s t o( x-y ,3 )=0 ) ) ; ( %O 1 ){ { 1 ,4 ,7 } ,{ 2 ,5 } ,{ 3 ,6 } }
307/633
28/08/13
F u n c i n :t o d o s( < f > ,< S > ) F u n c i n :t o d o s( < f > ,< L _ 1 > ,. . . ,< L _ n > ) D e v u e l v e` t r u e' s ie l< f >p r e d i c a d oe s `t r u e 'p a r at o d o sd a d o a r g u m e n t o s . D a d ou nc o n j u n t oc o m oe ls e g u n d oa r g u m e n t o ,c a d a( < f > ,< S > )d e v u e l v e` ' ` T r u e' s i 'e s( < f >( < a _ i > ) )' d e v u e l v e 't r u e' p a r at o d o s< a _ i >e n< S > . ` T o d a s' p u e d eon oe v a l u a r< f >p a r at o d o s< a _ i >e n< S > .D e s d e c o n j u n t o sn oe s t no r d e n a d o s ,` t o d o s' p u e d ee v a l u a r `< f >( < a _ i > ) 'e nc u a l q u i e ro r d e n . T e n i e n d oe nc u e n t au n aov a r i a sl i s t a sc o m oa r g u m e n t o s ,c a d a` ( < f > ,< L _ 1 > ,. . . , < L _ n > )' D e v u e l v e 't r u e' s i` e s( < f >( < x _ 1 > ,. . . ,< x _ n > ) ) "r e t o r n o s ` T r u e' p a r at o d o s< x _ 1 > ,. . . ,< x _ n >e n< L _ 1 > ,. . . ,< L _ n > , r e s p e c t i v a m e n t e .` T o d a s' p u e d eon oe v a l u a r< f >p a r ac a d a < x _ 1 >c o m b i n a c i n ,. . . ,< x _ n > .` T o d o' e v a l al a sl i s t a se ne l o r d e nc r e c i e n t e n d i c e . D a d ou nc o n j u n t ov a c o' { } 'ol i s t a sv a c a s` [ ]' c o m oa r g u m e n t o s , 'c a d a' d e v u e l v e` f a l s e' . C u a n d oe li n d i c a d o rg l o b a l` m a p e r r o r' e s `t r u e ' ,t o d a sl a sl i s t a s< L _ 1 > ,. . . , < L _ n >D e b et e n e rl am i s m al o n g i t u d .C u a n d o` m a p e r r o r' e s 'f a l s e' ,l al i s t ad e a r g u m e n t o ss et r u n c a np a r al al o n g i t u dd el am sc o r t a l i s t a . V a l o r e sd el a< f >p r e d i c a d oq u ee v a l u a rd er e g r e s o( at r a v sd e` e s' )p a r a a l g oq u en os e a` t r u e' o 'f a l s e' s er i g e np o re lm u n d i a l b a n d e r a` p r e d e r r o r .C u a n d op r e d e r r o r` ' e s `t r u e ' ,e s t o sv a l o r e ss o n t r a t a d o sc o m o` f a l s o' ,ye lv a l o rd er e t o r n od e `t o d o s 'e s' f a l s e ' . C u a n d op r e d e r r o r` ' e s 'f a l s e' ,t a l e sv a l o r e ss ec o n s i d e r a nc o m o 'd e s c o n o c i d o' , ye lv a l o rd er e t o r n od e` t o d o s' e s 'd e s c o n o c i d o' . E j e m p l o s : C a d a` ' a p l i c aau n n i c oc o n j u n t o .E lp r e d i c a d oe su n af u n c i nd e u na r g u m e n t o . ( %I 1 )c a d a( i n t e g e r p ,{ 1 ,2 ,3 ,4 ,5 ,6 } ) ; ( %O 1 )t r u e ( %I 2 )c a d a( t o m o ,{ 1 ,2 ,s e n( 3 ) ,4 ,5+y ,6 } ) ; ( %O 2 )f a l s e ` T o d o' a p l i c a d oad o sl i s t a s .E lp r e d i c a d oe su n af u n c i nd ed o s a r g u m e n t o s . ( %I 1 )c a d a( " = " ,[ a ,b ,c ] ,[ a ,b ,c ] ) ; ( %O 1 )t r u e ( %I 2 )c a d a( " # " ,[ a ,b ,c ] ,[ a ,b ,c ] ) ; ( %O 2 )f a l s e L o sv a l o r e sq u ed e v u e l v el a< f >p r e d i c a d oq u es ee v a l a nc o m oa l g o q u en os e a` t r u e' o 'f a l s e' e s t ng o b e r n a d a sp o re li n d i c a d o rg l o b a l ` P r e d e r r o r . ( %I 1 )p r e d e r r o r :f a l s e ; ( %O 1 )f a l s e ( %I 2 )m a p a( l a m b d a( [ a ,b ] ,e s( a< b ) ) ,[ x ,y ,z ] , [ X^2 ,y^2 ,z^2 ] ) ; ( %O 2 )[ d e s c o n o c i d o ,d e s c o n o c i d o ,d e s c o n o c i d o ] ( %I 3 )c a d a( " < " ,[ x ,y ,z ] ,[ x^2 ,y^2 ,z^2 ] ) ; ( %O 3 )d e s c o n o c i d o ( %I 4 )p r e d e r r o r :t r u e ; ( %O 4 )t r u e ( %I 5 )c a d a( " < " ,[ x ,y ,z ] ,[ x^2 ,y^2 ,z^2 ] ) ; ( %O 5 )f a l s e
F u n c i n :e x t r e m a l _ s u b s e t( < S > ,< f > ,m a x ) F u n c i n :e x t r e m a l _ s u b s e t( < S > ,< f > ,m i n ) D e v u e l v ee ls u b c o n j u n t od e< S >p a r al o sq u el af u n c i nt o m ae l< f > l o sv a l o r e sm x i m o som n i m o s . ` E x t r e m a l _ s u b s e t( < S > ,< f > ,m a x )' d e v u e l v ee ls u b c o n j u n t od e lc o n j u n t oo L i s t a< S >p a r al o sc u a l e se l< f >f u n c i nr e a la d q u i e r es u v a l o rm x i m o . ` E x t r e m a l _ s u b s e t( < S > ,< f > ,m i n )' d e v u e l v ee ls u b c o n j u n t od e lc o n j u n t oo L i s t a< S >p a r al o sc u a l e se l< f >f u n c i nr e a la d q u i e r es u v a l o rm n i m o . E j e m p l o s : ( %I 1 )e x t r e m a l _ s u b s e t( { 2 ,1 ,0 ,1 ,2 } ,A B S ,m a x ) ; ( %O 1 ){ -2 ,2 } ( %I 2 )e x t r e m a l _ s u b s e t( { s q r t( 2 ) ,1 , 5 7 , %p i/2 } ,e lp e c a d o ,m i n ) ; ( %O 2 ){ s q r t( 2 ) }
F u n c i n :a p l a n a r( e x p r )
308/633
28/08/13

R e c o g el o sa r g u m e n t o sd es u b e x p r e s i o n e sc o ne lm i s m oo p e r a d o r c o m o< e x p r >yc o n s t r u c c i o n e sd eu n ae x p r e s i nap a r t i rd ee s t o sr e c o g i d o a r g u m e n t o s . S u b e x p r e s i o n e se ne lq u ee lo p e r a d o re sd i f e r e n t ed el ap r i n c i p a l o p e r a d o rd e l` e x p r' s ec o p i a ns i nm o d i f i c a c i o n e s ,a u n q u e , as uv e z ,c o n t i e n e na l g u n a ss u b e x p r e s i o n e se nl a sq u ee lo p e r a d o re se l m i s m oq u ep a r a` e x p r' . P u e d es e rp o s i b l ep a r aa p l a n a r` ' p a r ac o n s t r u i re x p r e s i o n e se nl a sq u e e ln m e r od ea r g u m e n t o se sd i f e r e n t ed el o sa r g u m e n t o sa d m i t i d op o re l o p e r a d o r ,l oq u ep u e d ep r o v o c a ru nm e n s a j ed ee r r o ra ls i m p l i f i c a d o ro e v a l u a d o r .' A p l a n a r 'n ot r a t ad ed e t e c t a re s t et i p od es i t u a c i o n e s . E x p r e s i o n e sc o nr e p r e s e n t a c i o n e se s p e c i a l e s ,p o re j e m p l o ,c a n n i c a s e x p r e s i o n e sr a c i o n a l e s( C R E ) ,n os ep u e d e na p l a n a r ,e nt a l e sc a s o s , ' A p l a n a r 'd e v u e l v ee la r g u m e n t os i nc a m b i o s . E j e m p l o s : A p l i c a d oau n al i s t a ,' a p l a n a r 'r e u n et o d o sl o se l e m e n t o sq u es o n l i s t a s . ( %I 1 )a p l a n a r( [ a ,b ,[ c ,[ d ,e ] ,f ] ,[ [ g ,h ] ] ,i ,j ] ) ; ( %O 1 )[ a ,b ,c ,d ,e ,f ,g ,h ,i ,j ] A p l i c a d oau nc o n j u n t o ,' a p l a n a r 'r e n eat o d o sl o sm i e m b r o sd e lc o n j u n t od ee l e m e n t o s q u es o nc o n j u n t o s . ( %I 1 )a p l a n a r( { a ,{ b } ,{ { c } } } ) ; ( %O 1 ){ a ,b ,c } ( %I 2 )a p l a n a r( { a ,{ [ a ] ,{ a } } } ) ; ( %O 2 ){ a ,[ a ] } ' A p l a n a r 'e ss i m i l a ra le f e c t od ed e c l a r a re lp r i n c i p a lo p e r a d o r n a r i a .S i ne m b a r g o ,' a p l a n a r 'n ot i e n ee f e c t os o b r es u b e x p r e s i o n e sq u e t e n e ru no p e r a d o rd i f e r e n t ea lo p e r a d o rp r i n c i p a l ,m i e n t r a sq u eu nn a r i a d e c l a r a c i na f e c t aal a sp e r s o n a s . ( %I 1 )e x p r :a p l a n a r( f( g( f( f( x ) ) ) ) ) ; ( %O 1 )f( g( f( f( x ) ) ) ) ( %I 2 )d e c l a r e( f ,n a r y ) ; ( %O 2 )d o n e ( %I 3 )e v( e x p r ) ; ( %O 3 )f( g( f( x ) ) ) ' A p l a n a r 't r a t af u n c i o n e ss u b i n d i c a d a sl om i s m oq u ec u a l q u i e ro t r o o p e r a d o r . ( %I 1 )a p l a n a r( f[ 5 ]( f[ 5 ]( x ,y ) ,z ) ) ; ( %O 1 )f( x ,y ,z ) 5 P u e d es e rp o s i b l ep a r aa p l a n a r` ' p a r ac o n s t r u i re x p r e s i o n e se nl a sq u e e ln m e r od ea r g u m e n t o se sd i f e r e n t ed el o sa r g u m e n t o sa d m i t i d op o re l o p e r a d o r ; ( %I 1 )' m o d( 5 , 'm o d( 7 ,4 ) ) ; ( %O 1 )m o d( 5 ,m o d( 7 ,4 ) ) ( %I 2 )a p l a n a r( % ) ; ( %O 2 )m o d( 5 ,7 ,4 ) ( %I 3 ) ' ' % ,l o ss u s t a n t i v o s ; N m e r oi n c o r r e c t od ea r g u m e n t o sd em o d -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ;
F u n c i n :f u n c i nf u l l _ l i s t i f y( < a > ) R e e m p l a z ac a d ao p e r a d o rf i j a d a se n< a >p o ru no p e r a d o rd el al i s t a ,yd e v u e l v e e lr e s u l t a d o .` F u n c i nf u l l _ l i s t i f y' s u s t i t u y eal o so p e r a d o r e se s t a b l e c i d o se na n i d a d a s u b e x p r e s i o n e s ,i n c l u s os ie lo p e r a d o rp r i n c i p a ln oe s` s e t' . ` L i s t i f y' r e e m p l a z as l oe lo p e r a d o rp r i n c i p a l . E j e m p l o s : ( %I 1 )f u n c i nf u l l _ l i s t i f y( { a ,b ,c{ ,{ d ,e ,f } ,g } } ) ; ( %O 1 )[ a ,b ,[ c ,[ d ,e ,f ] ,g ] ] ( %I 2 )f u n c i nf u l l _ l i s t i f y( F( G( { a ,b ,H( { c ,d ,e } ) } ) ) ) ; ( %O 2 )F( G( [ a ,b ,H( [ c ,d ,e ] ) ] ) )
F u n c i n :f u l l s e t i f y( < a > ) C u a n d o< a >e su n al i s t a ,s u s t i t u y ee lo p e r a d o rd el al i s t ac o nu no p e r a d o rd ej u e g o , ys ea p l i c a` f u l l s e t i f y "ac a d am i e m b r oq u ee su nc o n j u n t o .C u a n d o< a > N oe su n al i s t a ,s ed e v u e l v es i nc a m b i o s . ` S e t i f y' r e e m p l a z as l oe lo p e r a d o rp r i n c i p a l . E j e m p l o s : E nl al n e a` ( %o 2 )' ,e la r g u m e n t od e 'f' n os ec o n v i e r t ee nu nc o n j u n t o p o r q u ee lo p e r a d o rp r i n c i p a ld e` f( [ b ] )' n oe su n al i s t a .
309/633
28/08/13

( %I 1 )f u l l s e t i f y( [ a ,[ a ] ] ) ; ( %O 1 ){ a ,{ a } } ( %I 2 )f u l l s e t i f y( [ a ,f( [ b ] ) ] ) ; ( %O 2 ){ a ,f( [ b ] ) }
F u n c i n :l ai d e n t i d a d( < x > ) D e v o l u c i o n e s< X >p a r ac u a l q u i e r< x >a r g u m e n t o . E j e m p l o s : ` I d e n t i d a d' p u e d es e ru t i l i z a d oc o m ou np r e d i c a d oc u a n d ol o sa r g u m e n t o ss o n y av a l o r e sb o o l e a n o s . ( %I 1 )c a d a( i d e n t i d a d ,[ t r u e ,t r u e ] ) ; ( %O 1 )t r u e F u n c i n :i n t e g e r _ p a r t i t i o n s( < n > ) F u n c i n :i n t e g e r _ p a r t i t i o n s( < n > ,< l e n > ) D e v u e l v ep a r t i c i o n e se n t e r a sd e< n > ,e sd e c i r ,l i s t a sd en m e r o se n t e r o s q u es u m aa< n > . ` I n t e g e r _ p a r t i t i o n s< n >( )' d e v u e l v ee lc o n j u n t od et o d a sl a sp a r t i c i o n e sd el a < n >n m e r oe n t e r o .C a d ap a r t i c i ne su n al i s t ao r d e n a d ad em a y o ra m e n o s . ` I n t e g e r _ p a r t i t i o n s( < n > ,< l e n > )' d e v u e l v et o d a sl a sp a r t i c i o n e sq u et i e n e n < l e n >l o n g i t u dom e n o s ,e ne s t ec a s o ,l o sc e r o ss ea a d e nac a d au n o p a r t i c i nc o nm e n o st r m i n o s< l e n >p a r aq u ec a d ap a r t i c i nt e n g a t r m i n o se x a c t a m e n t e< l e n > .C a d ap a r t i c i ne su n al i s t ao r d e n a d ad e m a y o ram e n o r . U n al i s t a[ a _ 1 ,. . . ,a _ m ]e su n ap a r t i c i nd eu ne n t e r on on e g a t i v on c u a n d o( 1 )c a d aa _ ie su nn m e r oe n t e r od i s t i n t od ec e r o ,y( 2 )a _ 1+. . .+A _ m= n .A s ,0n ot i e n ep a r t i c i o n e s . E j e m p l o s : ( %I 1 )i n t e g e r _ p a r t i t i o n s( 3 ) ; ( %O 1 ){ [ 1 ,1 ,1 ] ,[ 2 ,1 ] ,[ 3 ] } ( %I 2 )s :i n t e g e r _ p a r t i t i o n s( 2 5 )$ ( %I 3 )c a r d i n a l i d a d( s ) ; ( %O 3 )1 9 5 8 ( %I 4 )m a p a( l a m b d a( [ x ] ,a p l i c a r( " + " ,x ) ) ,s ) ; ( %O 4 ){ 2 5 } ( %I 5 )i n t e g e r _ p a r t i t i o n s( 5 ,3 ) ; ( %O 5 ){ [ 2 ,2 ,1 ] ,[ 3 ,1 ,1 ] ,[ 3 ,2 ,0 ] ,[ 4 ,1 ,0 ] ,[ 5 ,0 ,0 ] } ( %I 6 )i n t e g e r _ p a r t i t i o n s( 5 ,2 ) ; ( %O 6 ){ [ 3 ,2 ] ,[ 4 ,1 ] ,[ 5 ,0 ] } P a r ae n c o n t r a rt o d a sl a sp a r t i c i o n e sq u es a t i s f a c e nu n ac o n d i c i n ,u t i l i c el af u n c i n ' S u b g r u p o ' ,a q u e su ne j e m p l oq u ee n c u e n t r at o d a sl a sp a r t i c i o n e sd e1 0 c o n s t a r d el o sn m e r o sp r i m o s . ( %I 1 )s :i n t e g e r _ p a r t i t i o n s( 1 0 )$ ( %I 2 )c a r d i n a l i d a d( s ) ; ( %O 2 )4 2 ( %I 3 )x p r i m e p( x ) :=i n t e g e r p( x )y( x >1 )yp r i m e p( x )$ ( %I 4 )s u b g r u p o( s ,l a m b d a( [ x ] ,c a d a( x p r i m e p ,x ) ) ) ; ( %O 4 ){ [ 2 ,2 ,2 ,2 ,2 ] ,[ 3 ,3 ,2 ,2 ] ,[ 5 ,3 ,2 ] ,[ 5 ,5 ] ,[ 7 ,3 ] }
F u n c i n :i n t e r s e c c i n( < a _ 1 > ,. . . ,< a _ n > ) ` C r u z a n' e sl om i s m oq u e 'i n t e r s e c c i n' ,q u ev e r .
F u n c i n :i n t e r s e c c i n( < a _ 1 > ,. . . ,< a _ n > ) D e v u e l v eu nc o n j u n t oq u ec o n t i e n el o se l e m e n t o sq u es o nc o m u n e sal o sc o n j u n t o s < a _ 1 >t r a v s< a _ n > . L a sp r o t e s t a sd e` i n t e r s e c c i ns ia l g na r g u m e n t on oe su nc o n j u n t ol i t e r a l . E j e m p l o s : ( %I 1 )S _ 1 :{ a ,b ,c ,d } ; ( %O 1 ){ a ,b ,c ,d } ( %I 2 )S _ 2 :{ d ,e ,f ,g } ; ( %O 2 ){ d ,e ,f ,g } ( %I 3 )S _ 3 :{ c ,d ,e ,f } ; ( %O 3 ){ c ,d ,e ,f } ( %I 4 )S _ 4 :{ u ,v ,w } ; ( %O 4 ){ u ,v ,w } ( %I 5 )i n t e r s e c c i n( S _ 1 ,S _ 2 ) ; ( %O 5 ){ d } ( %I 6 )i n t e r s e c c i n( S _ 2 ,S _ 3 ) ; ( %O 6 ){ d ,e ,f } ( %I 7 )i n t e r s e c c i n( S _ 1 ,S _ 2 ,S _ 3 ) ; ( %O 7 ){ d }
310/633
28/08/13

( %I 8 )i n t e r s e c c i n( S _ 1 ,S _ 2 ,S _ 3 ,S _ 4 ) ; ( %O 8 ){ }
F u n c i n :k r o n _ d e l t a( < x 1 > ,< x 2 > ,. . . ,< x p > ) R e p r e s e n t al af u n c i nd e l t ad eK r o n e c k e r . ` K r o n _ d e l t a' s es i m p l i f i c aa1c u a n d o< x i >y< y j >s o ni g u a l e sp a r at o d o s p a r e sd ea r g u m e n t o s ,ys es i m p l i f i c aa0c u a n d o< x i >y< y j >s o n n oe si g u a laa l g np a rd ea r g u m e n t o s .L ai g u a l d a ds ed e t e r m i n au t i l i z a n d o ` I s( e q u a l( x i ,x j ) )' yp o r 'l ad e s i g u a l d a de s( n o t e q u a l( x i ,x j ) )' .P a r a e x a c t a m e n t eu na r g u m e n t o ,` k r o n _ d e l t a' s e a l au ne r r o r . E j e m p l o s : ( %I 1 )k r o n _ d e l t a( a ,a ) ; ( %O 1 )1 ( %I 2 )k r o n _ d e l t a( a ,b ,a ,b ) ; ( %O 2 )k r o n _ d e l t a( a ,b ) ( %I 3 )k r o n _ d e l t a( a ,a ,b ,a1 ) ; ( %O 3 )0 ( %I 4 )a s u m i r( i g u a l( x ,y ) ) ; ( %O 4 )[ i g u a l( x ,y ) ] ( %I 5 )k r o n _ d e l t a( x ,y ) ; ( %O 5 )1
F u n c i n :l i s t i f y( < a > ) D e v u e l v eu n al i s t ac o nl o sm i e m b r o sd e< a >c u a n d o< a >e su nc o n j u n t o . D el oc o n t r a r i o ,` l i s t i f y' r e g r e s a< a > . ` F u n c i nf u l l _ l i s t i f y' s u s t i t u y eat o d o sl o so p e r a d o r e se s t a b l e c i d o se n< a >p o rl o so p e r a d o r e sd el al i s t a . E j e m p l o s : ( %I 1 )l i s t i f y( { a ,b ,c ,d } ) ; ( %O 1 )[ a ,b ,c ,d ] ( %I 2 )l i s t i f y( F( { a ,b ,c ,d } ) ) ; ( %O 2 )F( { a ,b ,c ,d } )
F u n c i n :l r e d u c e( < F > ,< S > ) F u n c i n :l r e d u c e( < F > ,< S > ,< s _ 0 > ) E x t i e n d el a< F >f u n c i nb i n a r i aau n af u n c i nn a r i am e d i a n t e c o m p o s i c i n ,d o n d e< S >e su n al i s t a . ` L r e d u c e( < F > ,< S > )' d e v u e l v e 'F( . . .F( F( s _ 1 ,s _ 2 ) ,s _ 3 ) ,. . .s _ n ) . C u a n d oe l< s _ 0 >a r g u m e n t oo p c i o n a le s t p r e s e n t e ,e lr e s u l t a d oe s e q u i v a l e n t ea` l r e d u c e( < F > ,c o n s( < s _ 0 > ,< S > ) ) . E l< F >f u n c i ns ea p l i c ap r i m e r oal o se l e m e n t o sd el al i s t am sal ai z q u i e r d a , d ea h e ln o m b r e" l r e d u c e " . C o n s u l t et a m b i n` r r e d u c e' , `x r e d u c e 'y` t r e e _ r e d u c e' . E j e m p l o s : ` L r e d u c e' s i ne la r g u m e n t oo p c i o n a l . ( %I 1 )l r e d u c e( f ,[ 1 ,2 ,3 ] ) ; ( %O 1 )f( F( 1 ,2 ) ,3 ) ( %I 2 )l r e d u c e( f ,[ 1 ,2 ,3 ,4 ] ) ; ( %O 2 )f( f( f( 1 ,2 ) ,3 ) ,4 ) ` L r e d u c e' c o ne la r g u m e n t oo p c i o n a l . ( %I 1 )l r e d u c e( f ,[ 1 ,2 ,3 ] ,4 ) ; ( %O 1 )f( f( f( 4 ,1 ) ,2 ) ,3 ) ` L r e d u c e' a p l i c a d oau n af u n c i nd eo p e r a d o r e sb i n a r i o s .` /' E sl a o p e r a d o rd ed i v i s i n . ( %I 1 )l r e d u c e( " ^ " ,a r g s( { a ,b ,c ,d } ) ) ; b c d ( %O 1 )( ( a ) ) ( %I 2 )l r e d u c e( " / " ,a r g s( { a ,b ,c ,d } ) ) ; u n ( %O 2 )b c d
F u n c i n :m a k e s e t( e x p r ,< x >< S > ) D e v u e l v eu nc o n j u n t oc o nl o sm i e m b r o sg e n e r a d o sap a r t i rd el ae x p r e s i ne x p r , d o n d e< x >e su n al i s t ad ev a r i a b l e se ne x p ry< S >e su nc o n j u n t oo l i s t ad el i s t a s .P a r ag e n e r a rc a d ae l e m e n t od e lc o n j u n t o ,s ee v a l ae x p r c o nl a sv a r i a b l e s< x >u n i d o se np a r a l e l oau nm i e m b r od e< S > .
311/633
28/08/13

C a d am i e m b r od e< S >d e b et e n e rl am i s m al o n g i t u dq u e< x > .L al i s t ad e l a sv a r i a b l e s< x >d e b es e ru n al i s t ad el o ss m b o l o s ,s i ns u b n d i c e s .I n c l u s o s is l oh a yu ns m b o l o ,< x >d e b es e ru n al i s t ad eu ns o l oe l e m e n t o , yc a d am i e m b r od e< S >d e b es e ru n al i s t ad eu ns o l oe l e m e n t o . C o n s u l t et a m b i n` m a k e L i s t' . E j e m p l o s : ( %I 1 )m a k e s e t( i/j ,[ i ,j ] ,[ [ 1 ,a ] ,[ 2 ,b ] ,[ 3 ,c ] ,[ 4 ,d ] ] ) ; 1234 ( %O 1 ){ ,,,} a b c d ( %I 2 )S :{ x ,y ,z }$ ( %I 3 )S 3 :c a r t e s i a n _ p r o d u c t( S ,S ,S ) ; ( %O 3 ){ [ x ,x ,x ] ,[ x ,x ,y ] ,[ x ,x ,z ] ,[ x ,y ,x ] ,[ x ,y ,y ] , [ X ,y ,z ] ,[ x ,z ,x ] ,[ x ,z ,y ] ,[ x ,z ,z ] ,[ y ,x ,x ] , [ Y ,x ,y ] ,[ y ,x ,z ] ,[ y ,y ,x ] ,[ y ,y ,y ] ,[ y ,y ,z ] , [ Y ,z ,x ] ,[ y ,z ,y ] ,[ y ,z ,z ] ,[ z ,x ,x ] ,[ z ,x ,y ] , [ Z ,x ,z ] ,[ z ,y ,x ] ,[ z ,y ,y ] ,[ z ,y ,z ] ,[ z ,z ,x ] , [ Z ,z ,y ] ,[ z ,z ,z ] } ( %I 4 )m a k e s e t( i+j+k ,[ i ,j ,k ] ,S 3 ) ; ( %O 4 ){ x3 ,3y ,yx+2 ,2y+x ,3z ,z+2x ,z+y+x , z+2y ,z2+x ,z2+y } ( %I 5 )m a k e s e t( s i n( x ) ,[ x ] ,{ [ 1 ] ,[ 2 ] ,[ 3 ] } ) ; ( %O 5 ){ s i n( 1 ) ,s i n( 2 ) ,s i n( 3 ) }
F u n c i n :m o e b i u s( < n > ) R e p r e s e n t al af u n c i nM o e b i u s . C u a n d o< n >e sp r o d u c t od ekn m e r o sp r i m o sd i s t i n t o s ,` m o e b i u s( < n > )' s es i m p l i f i c aa( 1 )^k ;c u a n d o< n >=1 ,q u es es i m p l i f i c aa1 ;y s i m p l i f i c aa0p a r at o d o sl o sd e m sn m e r o se n t e r o sp o s i t i v o s . ' M o e b i u s 'd i s t r i b u y es o b r ee c u a c i o n e s ,l i s t a s ,m a t r i c e syc o n j u n t o s . E j e m p l o s : ( %I 1 )m o e b i u s( 1 ) ; ( %O 1 )1 ( %I 2 )m o e b i u s( 2*3*5 ) ; ( %O 2 )-1 ( %I 3 )m o e b i u s( 1 1*1 7*2 9*3 1 ) ; ( %O 3 )1 ( %I 4 )m o e b i u s( 2^3 2 ) ; ( %O 4 )0 ( %I 5 )m o e b i u s( n ) ; ( %O 5 )m o e b i u s( n ) ( %I 6 )m o e b i u s( n=1 2 ) ; ( %O 6 )m o e b i u s( n )=0 ( %I 7 )m o e b i u s( [ 1 1 ,1 1*1 3 ,1 1*1 3*1 5 ] ) ; ( %O 7 )[ -1 ,1 ,1 ] ( %I 8 )m o e b i u s( m a t r i z( [ 1 1 ,1 2 ] ,[ 1 3 ,1 4 ] ) ) ; [ -10 ] ( %O 8 )[ ] [ -11 ] ( %I 9 )m o e b i u s( { 2 1 ,2 2 ,2 3 ,2 4 } ) ; ( %O 9 ){ -1 ,0 ,1 }
F u n c i n :m u l t i n o m i a l _ c o e f f( < a _ 1 > ,. . . ,< a _ n > ) F u n c i n :m u l t i n o m i a l _ c o e f f( ) D e v u e l v ee lc o e f i c i e n t em u l t i n o m i a l . C u a n d oc a d a< a _ k >e su ne n t e r on on e g a t i v o ,l am u l t i n o m i a l c o e f i c i e n t ei n d i c ae ln m e r od ef o r m a sd ec o l o c a r` < a _ 1 >+. . .+ o b j e t o sd i s t i n t o s< a _ n >' e nnc a j a sc o ne l e m e n t o s< a _ k >e ne l k s i m ac a j a .E ng e n e r a l ,` m u l t i n o m i a l _ c o e f f( < a _ 1 > ,. . . ,< a _ n > )' e v a l aa` ( < a _ 1 >+. . .+< a _ n > ) !/( < a _ 1 > !. . .< a _ n > ! )' . ` M u l t i n o m i a l _ c o e f f( )( s i na r g u m e n t o s )d e v u e l v e1 . ` M i n f a c t o r i a l' p u e d es e rc a p a zd es i m p l i f i c a re lv a l o rd e v u e l t op o r ` M u l t i n o m i a l _ c o e f f' . E j e m p l o s : ( %I 1 )m u l t i n o m i a l _ c o e f f( 1 ,2 ,x ) ; ( X+3 ) ! ( %O 1 )2x ! ( %I 2 )m i n f a c t o r i a l( % ) ; ( X+1 )( x+2 )( x+3 ) ( %O 2 )2 ( %I 3 )m u l t i n o m i a l _ c o e f f( 6 ,2 ) ; ( -4 ) ! ( %O 3 )2( -6 ) ! ( %I 4 )m i n f a c t o r i a l( % ) ; ( %O 4 )1 0
312/633
28/08/13
F u n c i n :s e n t e n c i an u m _ d i s t i n c t _ p a r t i t i o n s( < n > ) F u n c i n :s e n t e n c i an u m _ d i s t i n c t _ p a r t i t i o n s( < n > ,l i s t ) D e v u e l v ee ln m e r od ep a r t i c i o n e se n t e r a sd i s t i n t a sd e< n >c u a n d o< n > e su ne n t e r on on e g a t i v o .D el oc o n t r a r i o ,` s e n t e n c i an u m _ d i s t i n c t _ p a r t i t i o n s' d e v u e l v eu n ae x p r e s i nn o m i n a l . ` S e n t e n c i an u m _ d i s t i n c t _ p a r t i t i o n s( < n > ,l i s t )' d e v u e l v eu n al i s t ac o ne ln m e r o d ep a r t i c i o n e sd i s t i n t a sd e1 ,2 ,3 ,. . . ,< n > . U n ap a r t i c i nd i s t i n t ad e< n >e su n al i s t ad ed i s t i n t ap o s i t i v o e n t e r o sk _ 1 ,. . . ,k _ mt a lq u e< n >=k _ 1+. . .+K _ m . E j e m p l o s : ( %I 1 )s e n t e n c i an u m _ d i s t i n c t _ p a r t i t i o n s( 1 2 ) ; ( %O 1 )1 5 ( %I 2 )s e n t e n c i an u m _ d i s t i n c t _ p a r t i t i o n s( 1 2 ,l i s t ) ; ( %O 2 )[ 1 ,1 ,1 ,2 ,2 ,3 ,4 ,5 ,6 ,8 ,1 0 ,1 2 ,1 5 ] ( %I 3 )s e n t e n c i an u m _ d i s t i n c t _ p a r t i t i o n s( n ) ; ( %O 3 )s e n t e n c i an u m _ d i s t i n c t _ p a r t i t i o n s( n )
F u n c i n :n u m _ p a r t i t i o n s( < n > ) F u n c i n :n u m _ p a r t i t i o n s( < n > ,l i s t ) D e v u e l v ee ln m e r od ep a r t i c i o n e se n t e r a sd e< n >c u a n d o< n >e su n e n t e r on on e g a t i v o .D el oc o n t r a r i o ,` n u m _ p a r t i t i o n s' d e v u e l v eu ns u s t a n t i v o e x p r e s i n . ` N u m _ p a r t i t i o n s( < n > ,l i s t )' d e v u e l v eu n al i s t ac o ne ln m e r od e p a r t i c i o n e se n t e r a sd e1 ,2 ,3 ,. . . ,< n > . P a r au ne n t e r on on e g a t i v o< n > ,` n u m _ p a r t i t i o n s( < n > )' e si g u a la ` C a r d i n a l i d a d( i n t e g e r _ p a r t i t i o n s( < n > ) ) " ,s i ne m b a r g o ,` n u m _ p a r t i t i o n s' n oe nr e a l i d a dn oc o n s t r u i re lc o n j u n t od ep a r t i c i o n e s ,l oq u ee sm u c h o m sr p i d o . E j e m p l o s : ( %I 1 )n u m _ p a r t i t i o n s( 5 )=c a r d i n a l i d a d( i n t e g e r _ p a r t i t i o n s( 5 ) ) ; ( %O 1 )7=7 ( %I 2 )n u m _ p a r t i t i o n s( 8 ,l i s t ) ; ( %O 2 )[ 1 ,1 ,2 ,3 ,5 ,7 ,1 1 ,1 5 ,2 2 ] ( %I 3 )n u m _ p a r t i t i o n s( n ) ; ( %O 3 )n u m _ p a r t i t i o n s( n )
F u n c i n :p a r t i t i o n _ s e t( < a >< f > ) P a r t i c i o n e sd e l< a >c o n j u n t os e g nl a< f >p r e d i c a d o . ` P a r t i t i o n _ s e t' d e v u e l v eu n al i s t ad ed o ss e t s .E lp r i m e rc o n j u n t o c o m p r e n d el o se l e m e n t o sd e< a >p a r aq u e< f >e v a l aa` f a l s e' , ye ls e g u n d oc o m p r e n d ec u a l q u i e ro t r oe l e m e n t od e< a > . ` P a r t i t i o n _ s e t' n os ea p l i c a 'e s' e lv a l o rd er e t o r n od e< f > . ` P a r t i t i o n _ s e t' s eq u e j as i< a >n oe su nc o n j u n t ol i t e r a l . V a s et a m b i n' s u b c o n j u n t o ' . E j e m p l o s : ( %I 1 )p a r t i t i o n _ s e t( { 2 ,7 ,1 ,8 ,2 ,8 } ,e v e n p ) ; ( %O 1 )[ { 1 ,7 } ,{ 2 ,8 } ] ( %I 2 )p a r t i t i o n _ s e t( { x ,r a t a( y ) ,l ar a t a( y )+z ,1 } , l a m b d a( [ x ] ,l aR A T P( x ) ) ) ; ( %O 2 )/R/[ { 1 ,x } ,{ y ,y+z } ]
F u n c i n :p e r m u t a c i o n e s( < a > ) D e v u e l v eu nc o n j u n t od et o d a sl a sp e r m u t a c i o n e sd i s t i n t a sd el o sm i e m b r o sd el a u n al i s t aoc o n j u n t o< a > .C a d ap e r m u t a c i ne su n al i s t a ,n oe su nj u e g o . C u a n d o< a >e su n al i s t a ,s u sm i e m b r o sd u p l i c a d o s< a >s ei n c l u y e ne ne l p e r m u t a c i o n e s . L a sp r o t e s t a sd e` p e r m u t a c i o n e ss i< a >n oe su n al i s t aoc o n j u n t ol i t e r a l . C o n s u l t et a m b i n` r a n d o m _ p e r m u t a t i o n' . E j e m p l o s : ( %I 1 )p e r m u t a c i o n e s( [ a ,a ] ) ; ( %O 1 ){ [ a ,a ] } ( %I 2 )p e r m u t a c i o n e s( [ a ,a ,b ] ) ; ( %O 2 ){ [ a ,a ,b ] ,[ a ,b ,a ] ,[ b ,a ,a ] }
313/633
28/08/13
F u n c i n :p o w e r s e t( < a > ) F u n c i n :p o w e r s e t( < a >< n > )
D e v u e l v ee lc o n j u n t od et o d o sl o ss u b c o n j u n t o sd e< a > ,ou ns u b c o n j u n t od ee l l a s . ` P o w e r s e t( < a > )' d e v u e l v ee lc o n j u n t od et o d o sl o ss u b c o n j u n t o sd e lc o n j u n t o< a > . ` P o w e r s e t( < a > )' t i e n e '2^c a r d i n a l i d a d( < a > )' m i e m b r o s . ` P o w e r s e t( < a >< n > )' d e v u e l v ee lc o n j u n t od et o d o sl o ss u b c o n j u n t o sd e< a >q u e t e n e r< n >c a r d i n a l i d a d . S eq u e j a` P o w e r s e t' s i< a >n oe su nc o n j u n t ol i t e r a l ,os in oe s< n > u ne n t e r on on e g a t i v o . E j e m p l o s : ( %I 1 )p o w e r s e t( { a ,b ,c } ) ; ( %O 1 ){ { } ,{ a } ,{ a ,b } ,{ a ,b ,c } ,{ a ,c } ,{ b } ,{ b ,c } ,{ c } } ( %I 2 )p o w e r s e t( { w ,x ,y ,z } ,4 ) ; ( %O 2 ){ { w ,x ,y ,z } } ( %I 3 )p o w e r s e t( { w ,x ,y ,z } ,3 ) ; ( %O 3 ){ { w ,x ,y } ,{ w ,x ,z } ,{ w ,y ,z } ,{ x ,y ,z } } ( %I 4 )p o w e r s e t( { w ,x ,y ,z } ,2 ) ; ( %O 4 ){ { w ,x } ,{ w ,y } ,{ w ,z } ,{ x ,y } ,{ x ,z } ,{ y ,z } } ( %I 5 )p o w e r s e t( { w ,x ,y ,z } ,1 ) ; ( %O 5 ){ { w } ,{ x } ,{ y } ,{ z } } ( %I 6 )p o w e r s e t( { w ,x ,y ,z } ,0 ) ; ( %O 6 ){ { } }
F u n c i n :r a n d o m _ p e r m u t a t i o n( < a > ) D e v u e l v eu n ap e r m u t a c i na l e a t o r i ad e lc o n j u n t ool i s t a< a > ,c o m o c o n s t r u i d op o re la l g o r i t m od eK n u t hS h u f f l e . E lv a l o rd er e t o r n oe su n an u e v al i s t a ,q u ee sd i s t i n t ad el a a r g u m e n t oi n c l u s os it o d o sl o se l e m e n t o sr e s u l t a ns e rl am i s m a .S i ne m b a r g o ,l a e l e m e n t o sd e la r g u m e n t on os ec o p i a n . E j e m p l o s : ( %I 1 )r a n d o m _ p e r m u t a t i o n( [ a ,b ,c ,1 ,2 ,3 ] ) ; ( %O 1 )[ c ,1 ,2 ,3 ,a ,b ] ( %I 2 )r a n d o m _ p e r m u t a t i o n( [ a ,b ,c ,1 ,2 ,3 ] ) ; ( %O 2 )[ b ,3 ,1 ,c ,a ,2 ] ( %I 3 )r a n d o m _ p e r m u t a t i o n( { x+1 ,y+2 ,z+3 } ) ; ( %O 3 )[ y+2+3z ,x+1 ] ( %I 4 )r a n d o m _ p e r m u t a t i o n( { x+1 ,y+2 ,z+3 } ) ; ( %O 4 )[ x+1 ,y+2 ,z+3 ]
F u n c i n :r r e d u c e( < F > ,< S > ) F u n c i n :r r e d u c e( < F > ,< S >< s _ { n+1 } > ) E x t i e n d el a< F >f u n c i nb i n a r i aau n af u n c i nn a r i am e d i a n t e c o m p o s i c i n ,d o n d e< S >e su n al i s t a . V u e l v er r e d u c e` ( < F > ,< S > )' `F( s _ 1 ,. . .F( s _{ n-2 } ,F( s _{ n-1 } , s _ n ) ) )' .C u a n d oe la r g u m e n t oo p c i o n a l< s _ { n+1 } >e s t p r e s e n t e ,e l r e s u l t a d oe se q u i v a l e n t ea` r r e d u c e( < F > ,e n d c o n s( < s _ { n+1 } > ,< S > ) )' . E l< F >f u n c i ns ea p l i c ap r i m e r oal o se l e m e n t o sd el al i s t am sal ad e r e c h a , d ea h e ln o m b r e" r r e d u c e " . C o n s u l t et a m b i n` l r e d u c e' , `t r e e _ r e d u c e 'y` x r e d u c e' . E j e m p l o s : ` R r e d u c e' s i ne la r g u m e n t oo p c i o n a l . ( %I 1 )r r e d u c e( f ,[ 1 ,2 ,3 ] ) ; ( %O 1 )f( 1 ,F( 2 ,3 ) ) ( %I 2 )r r e d u c e( f ,[ 1 ,2 ,3 ,4 ] ) ; ( %O 2 )f( 1 ,F( 2 ,F( 3 ,4 ) ) ) ` R r e d u c e' c o ne la r g u m e n t oo p c i o n a l . ( %I 1 )r r e d u c e( f ,[ 1 ,2 ,3 ] ,4 ) ; ( %O 1 )f( 1 ,F( 2 ,F( 3 ,4 ) ) ) ` R r e d u c e' a p l i c a d oau n af u n c i nd eo p e r a d o r e sb i n a r i o s .` /' E sl a o p e r a d o rd ed i v i s i n . ( %I 1 )r r e d u c e( " ^ " ,a r g s( { a ,b ,c ,d } ) ) ; d c b ( %O 1 )u n ( %I 2 )r r e d u c e( " / " ,a r g s( { a ,b ,c ,d } ) ) ; c o r r i e n t ea l t e r n a ( %O 2 )b d
314/633
28/08/13
F u n c i n :s e t d i f f e r e n c e( < a > )
D e v u e l v eu nc o n j u n t oq u ec o n t i e n el o se l e m e n t o sd el a< a >c o n j u n t oq u en oe s t n e ne ls e t . L a sp r o t e s t a sd e` s e t d i f f e r e n c es ib i e n< a >on oe su nl i t e r a l e s t a b l e c i d o . E j e m p l o s : ( %I 1 )S _ 1 :{ a ,b ,c ,x ,y ,z } ; ( %O 1 ){ a ,b ,c ,x ,y ,z } ( %I 2 )S _ 2 :{ a a ,b b ,c ,x ,y ,z z } ; ( %O 2 ){ a a ,b b ,c ,x ,y ,z z } ( %I 3 )s e t d i f f e r e n c e( S _ 1 ,S _ 2 ) ; ( %O 3 ){ a ,b ,z } ( %I 4 )s e t d i f f e r e n c e( S _ 2 ,S _ 1 ) ; ( %O 4 ){ a a ,b b ,z z } ( %I 5 )s e t d i f f e r e n c e( S _ 1 ,S _ 1 ) ; ( %O 5 ){ } ( %I 6 )s e t d i f f e r e n c e( S _ 1 ,{ } ) ; ( %O 6 ){ a ,b ,c ,x ,y ,z } ( %I 7 )s e t d i f f e r e n c e( { } ,S _ 1 ) ; ( %O 7 ){ }
F u n c i n :s e t e q u a l p( < a > ) D e v u e l v e` t r u e' s il o sc o n j u n t o s< a >yt i e n e ne lm i s m on m e r od ee l e m e n t o s y' e s( < x >=< y > ) 'e s` t r u e' p a r a `x 'e nl o se l e m e n t o sd e< a >y ` Y' e nl o se l e m e n t o sd e ,c o n s i d e r a d ae ne lo r d e nd e t e r m i n a d op o r ` L i s t i f y' .D el oc o n t r a r i o ,` s e t e q u a l p' d e v u e l v e 'f a l s e' . E j e m p l o s : ( %I 1 )s e t e q u a l p( { 1 ,2 ,3 } ,{ 1 ,2 ,3 } ) ; ( %O 1 )t r u e ( %I 2 )s e t e q u a l p( { a ,b ,c } ,{ 1 ,2 ,3 } ) ; ( %O 2 )f a l s e ( %I 3 )s e t e q u a l p( { x^2-y^2 } ,{ ( x+y )*( x-y ) } ) ; ( %O 3 )f a l s e
F u n c i n :s e t i f y( < a > ) C o n s t r u y eu nc o n j u n t oc o nl o sm i e m b r o sd el al i s t a< a > .D u p l i c a r e l e m e n t o sd el al i s t a< a >s ee l i m i n a nyl o se l e m e n t o ss eo r d e n a n d ea c u e r d oc o ne lp r e d i c a d o` o r d e r l e s s p' . ` S e t i f y' s eq u e j as i< a >l i s t an oe sl i t e r a l . E j e m p l o s : ( %I 1 )s e t i f y( [ 1 ,2 ,3 ,a ,b ,c ] ) ; ( %O 1 ){ 1 ,2 ,3 ,a ,b ,c } ( %I 2 )s e t i f y( [ a ,b ,c ,a ,b ,c ] ) ; ( %O 2 ){ a ,b ,c } ( %I 3 )s e t i f y( [ 7 ,1 3 ,1 1 ,1 ,3 ,9 ,5 ] ) ; ( %O 3 ){ 1 ,3 ,5 ,7 ,9 ,1 1 ,1 3 }
F u n c i n :s e t p( < a > ) D e v u e l v e` t r u e' s iys l os i< a >e su nc o n j u n t oM a x i m a . ` S e t p' d e v u e l v e 't r u e' p a r ac o n j u n t o sn os i m p l i f i c a d o s( e sd e c i r ,c o n j u n t o sd e m i e m b r o sr e d u n d a n t e s ) ,a s c o m oc o n j u n t o ss i m p l i f i c a d o s . ` S e t p' e se q u i v a l e n t eal af u n c i nd eM a x i m a `s e t p( a ) :=N o t o m o( a )yo p( a )=' s e t ' . E j e m p l o s : ( %I 1 )s i m p :f a l s e ; ( %O 1 )f a l s e ( %I 2 ){ a ,a ,a } ; ( %O 2 ){ a ,a ,a } ( %I 3 )s e t p( % ) ; ( %O 3 )t r u e
F u n c i n :s e n t e n c i as e t _ p a r t i t i o n s( < a > ) F u n c i n :s e n t e n c i as e t _ p a r t i t i o n s( < a >< n > ) D e v u e l v ee lc o n j u n t od et o d a sl a sp a r t i c i o n e sd e< a > ,ou ns u b c o n j u n t od ee l l a s . ` S e n t e n c i as e t _ p a r t i t i o n s( < a >< n > )' d e v u e l v eu nc o n j u n t od et o d a sl a sd e s c o m p o s i c i o n e sd e < a >e n< n >n ov a c o sd i s j u n t o s . ` S e n t e n c i as e t _ p a r t i t i o n s< a >( )' d e v u e l v ee lc o n j u n t od et o d a sl a sp a r t i c i o n e s .
315/633
28/08/13

` S t i r l i n g 2' d e v u e l v el ac a r d i n a l i d a dd e lc o n j u n t od ep a r t i c i o n e sd eu n e s t a b l e c i d o . U nc o n j u n t od ec o n j u n t o sd ePe su n ap a r t i c i nd eu nc o n j u n t oSc u a n d o 1 .c a d am i e m b r od el aPe su nc o n j u n t on ov a c o , 2 .m i e m b r o sd i s t i n t o sd ePs o nd i s j u n t o s , 3 .l au n i nd el o sm i e m b r o sd ePe si g u a laS . E j e m p l o s : E lc o n j u n t ov a c oe su n ap a r t i c i nd es m i s m o ,l a sc o n d i c i o n e s1y2 s i e n d ov a c u a m e n t ec i e r t o . ( %I 1 )s e n t e n c i as e t _ p a r t i t i o n s( { } ) ; ( %O 1 ){ { } } L ac a r d i n a l i d a dd e lc o n j u n t od ep a r t i c i o n e sd eu nc o n j u n t os ep u e d ee n c o n t r a r u s a n d o` s t i r l i n g 2' . ( %I 1 )s :{ 0 ,1 ,2 ,3 ,4 ,5 }$ ( %I 2 )t :s e n t e n c i as e t _ p a r t i t i o n s( s ,3 )$ ( %I 3 )c a r d i n a l i d a d( p )=s t i r l i n g 2( 6 ,3 ) ; ( %O 3 )9 0=9 0 C a d am i e m b r od el a` p' d e b et e n e r< n >=3m i e m b r o s ,v a m o sav e r . ( %I 1 )s :{ 0 ,1 ,2 ,3 ,4 ,5 }$ ( %I 2 )t :s e n t e n c i as e t _ p a r t i t i o n s( s ,3 )$ ( %I 3 )m a p a( c a r d i n a l i d a d ,p ) ; ( %O 3 ){ 3 } P o r l t i m o ,p a r ac a d am i e m b r od el a` p' ,l au n i nd es u sm i e m b r o sd e b e i g u a l` s' ,d en u e v ov a m o sav e r . ( %I 1 )s :{ 0 ,1 ,2 ,3 ,4 ,5 }$ ( %I 2 )t :s e n t e n c i as e t _ p a r t i t i o n s( s ,3 )$ ( %I 3 )m a p a( l a m b d a( [ x ] ,s ea p l i c a n( u n i n ,l i s t i f y( x ) ) ) ,p ) ; ( %O 3 ){ { 0 ,1 ,2 ,3 ,4 ,5 } }
F u n c i n :a l g u n o s( < f > ,< a > ) F u n c i n :a l g u n o s( < f > ,< L _ 1 > ,. . . ,< L _ n > ) D e v u e l v e` t r u e' s ie l< f >p r e d i c a d oe s `t r u e 'p a r au n aom s d a d oa r g u m e n t o s . D a d ou nc o n j u n t oc o m oe ls e g u n d oa r g u m e n t o ,a l g u n o sr e t o r n o s` ( < f > ,< S > )' ` T r u e' s i 'e s( < f >( < a _ i > ) )' d e v u e l v e 't r u e' p a r au n aom s< a _ i >e n < S > .` A l g u n o s "p u e d eon oe v a l u a r< f >p a r at o d o s< a _ i >e n< S > . D e s d ec o n j u n t o sn oe s t no r d e n a d o s ,' a l g u n o s 'p u e d ee v a l u a r` < f >( < a _ i > ) "e nc u a l q u i e r o r d e n . T e n i e n d oe nc u e n t au n aov a r i a sl i s t a sc o m oa r g u m e n t o s ,` a l g u n o s( < f > ,< L _ 1 > ,. . . , < L _ n > )' D e v u e l v e 't r u e' s i` e s( < f >( < x _ 1 > ,. . . ,< x _ n > ) ) "r e t o r n o s ` T r u e' p a r au n aom s< x _ 1 > ,. . . ,< x _ n >e n< L _ 1 > ,. . . ,< L _ n > , r e s p e c t i v a m e n t e .` A l g u n o s "p u e d eon op u e d ee v a l u a r< f >p a r aa l g u n o s c o m b i n a c i o n e s< x _ 1 > ,. . . ,< x _ n > .` A l g n "e v a l al a sl i s t a se ne l o r d e nc r e c i e n t e n d i c e . D a d ou nc o n j u n t ov a c o' { } 'ol i s t a sv a c a s` [ ]' c o m oa r g u m e n t o s , 'a l g u n o s' d e v u e l v e` f a l s e' . C u a n d oe li n d i c a d o rg l o b a l` m a p e r r o r' e s `t r u e ' ,t o d a sl a sl i s t a s< L _ 1 > ,. . . , < L _ n >D e b et e n e rl am i s m al o n g i t u d .C u a n d o` m a p e r r o r' e s 'f a l s e' ,l al i s t ad e a r g u m e n t o ss et r u n c a np a r al al o n g i t u dd el am sc o r t a l i s t a . V a l o r e sd el a< f >p r e d i c a d oq u ee v a l u a rd er e g r e s o( at r a v sd e` e s' )p a r a a l g oq u en os e a` t r u e' o 'f a l s e' s er i g e np o re lm u n d i a l b a n d e r a` p r e d e r r o r .C u a n d op r e d e r r o r` ' e s `t r u e ' ,e s t o sv a l o r e ss o n t r a t a d o sc o m o` f a l s o' .C u a n d op r e d e r r o r` ' e s 'f a l s e' ,e s t o sv a l o r e ss o n t r a t a d o sc o m o` d e s c o n o c i d o' . E j e m p l o s : ` A l g u n o s' a p l i c aau n n i c oc o n j u n t o .E lp r e d i c a d oe su n af u n c i nd e u na r g u m e n t o . ( %I 1 )a l g u n o s( i n t e g e r p ,{ 1 ,2 ,3 ,4 ,5 ,6 } ) ; ( %O 1 )t r u e ( %I 2 )a l g u n o s( t o m o ,{ 1 ,2 ,s e n( 3 ) ,4 ,5+y ,6 } ) ; ( %O 2 )t r u e ` A l g u n o s' a p l i c a d oad o sl i s t a s .E lp r e d i c a d oe su n af u n c i nd ed o s a r g u m e n t o s . ( %I 1 )a l g u n o s( " = " ,[ a ,b ,c ] ,[ a ,b ,c ] ) ; ( %O 1 )t r u e ( %I 2 )a l g u n o s( " # " ,[ a ,b ,c ] ,[ a ,b ,c ] ) ; ( %O 2 )f a l s e L o sv a l o r e sq u ed e v u e l v el a< f >p r e d i c a d oq u es ee v a l a nc o m oa l g o q u en os e a` t r u e' o 'f a l s e' e s t ng o b e r n a d a sp o re li n d i c a d o rg l o b a l
316/633
28/08/13
` P r e d e r r o r .
( %I 1 )p r e d e r r o r :f a l s e ; ( %O 1 )f a l s e ( %I 2 )m a p a( l a m b d a( [ a ,b ] ,e s( a< b ) ) ,[ x ,y ,z ] , [ X^2 ,y^2 ,z^2 ] ) ; ( %O 2 )[ d e s c o n o c i d o ,d e s c o n o c i d o ,d e s c o n o c i d o ] ( %I 3 )a l g u n o s( " < " ,[ x ,y ,z ] ,[ x^2 ,y^2 ,z^2 ] ) ; ( %O 3 )d e s c o n o c i d o ( %I 4 )a l g u n o s( " < " ,[ x ,y ,z ] ,[ x^2 ,y^2 ,z+1 ] ) ; ( %O 4 )t r u e ( %I 5 )p r e d e r r o r :t r u e ; ( %O 5 )t r u e ( %I 6 )a l g u n o s( " < " ,[ x ,y ,z ] ,[ x^2 ,y^2 ,z^2 ] ) ; ( %O 6 )f a l s e ( %I 7 )a l g u n o s( " < " ,[ x ,y ,z ] ,[ x^2 ,y^2 ,z+1 ] ) ; ( %O 7 )t r u e
F u n c i n :s t i r l i n g 1( < n > ,< m > ) R e p r e s e n t ae ln m e r od eS t i r l i n gd ep r i m e r ae s p e c i e . C u a n d o< n >y< m >s o ne n t e r o sn on e g a t i v o s ,l am a g n i t u dd e ` S t i r l i n g 1( < n > ,< m > )' e se ln m e r od ep e r m u t a c i o n e sd eu nc o n j u n t oc o n < n >m i e m b r o sq u et i e n e nc i c l o s< m > .P a r am sd e t a l l e s ,v a s eG r a h a m ,K n u t h yM a t e m t i c a sh o r m i g nP a t a s h n i k .M a x i m au t i l i z au n ar e c u r s i n r e l a c i nc o nl ad e f i n i c i nd e` s t i r l i n g 1( < n > ,< m > )' p a r a< m >i n f e r i o ra0 ,s i n oq u e n oe s t d e f i n i d op a r a< n >m e n o sd e0ya r g u m e n t o sn oe n t e r o s . S t i r l i n g 1` ' e su n af u n c i nd es i m p l i f i c a r .M a x i m ar e c o n o c el a ss i g u i e n t e s i d e n t i d a d e s . 1 .s t i r l i n g 1( 0 ,n )=k r o n _ d e l t a( 0 ,n )( R e f .[ 1 ] ) 2 .s t i r l i n g 1( n ,n )=1( R e f .[ 1 ] ) 3 .s t i r l i n g 1( n ,n-1 )=b i n o m i a l( n ,2 )( R e f .[ 1 ] ) 4 .s t i r l i n g 1( n+1 ,0 )=0( R e f .[ 1 ] ) 5 .s t i r l i n g 1( n+1 ,1 )=n !( R e f .[ 1 ] ) 6 .s t i r l i n g 1( n+1 ,2 )=2^n-1( R e f .[ 1 ] ) E s t a si d e n t i d a d e ss ea p l i c a nc u a n d ol o sa r g u m e n t o ss o nl i t e r a l e s e n t e r o sos m b o l o sd e c l a r a d o sc o m oe n t e r o sye lp r i m e ra r g u m e n t o e sn on e g a t i v o .` S t i r l i n g 1' n os i m p l i f i c ap a r an oe n t e r o a r g u m e n t o s . R e f e r e n c i a s : [ 1 ]D o n a l dK n u t h ,T h eA r to fC o m p u t e rP r o g r a m m i n g ,t e r c e r ae d i c i n , V o l u m e n1 ,S e c c i n1 . 2 . 6 ,E c u a c i o n e s4 8 ,4 9y5 0 . E j e m p l o s : ( %I 1 )d e c l a r e( n ,e n t e r o )$ ( %I 2 )a s u m i r ( n >=0 )$ ( %I 3 )s t i r l i n g 1( n ,n ) ; ( %O 3 )1 ` S t i r l i n g 1' n os i m p l i f i c al o sa r g u m e n t o sn oe n t e r o s . ( %I 1 )s t i r l i n g 1( s q r t( 2 ) ,s q r t( 2 ) ) ; ( %O 1 )s t i r l i n g 1( s q r t( 2 ) ,s q r t( 2 ) ) M a x i m aa p l i c ai d e n t i d a d e sa` s t i r l i n g 1' . ( %I 1 )d e c l a r e( n ,e n t e r o )$ ( %I 2 )a s u m i r ( n >=0 )$ ( %I 3 )s t i r l i n g 1( n+1 ,n ) ; n( n+1 ) ( %O 3 )2 ( %I 4 )s t i r l i n g 1( n+1 ,1 ) ; ( %O 4 )n !
F u n c i n :s t i r l i n g 2( < n > ,< m > ) R e p r e s e n t ae ln m e r od eS t i r l i n gd es e g u n d ae s p e c i e . C u a n d o< n >y< m >s o ne n t e r o sn on e g a t i v o s ,` s t i r l i n g 2( < n > ,< m > )' e se ln m e r od em a n e r a se nq u eu ns i s t e m ac o n< n >c a r d i n a l i d a dp u e d es e r d i v i d i d oe n< m >s u b c o n j u n t o sd i s j u n t o s .M a x i m au t i l i z au n ar e c u r s i n r e l a c i nc o nl ad e f i n i c i nd e` s t i r l i n g 2( < n > ,< m > )' p a r a< m >i n f e r i o ra0 ,s i n oq u e n oe s t d e f i n i d op a r a< n >m e n o sd e0ya r g u m e n t o sn oe n t e r o s . S t i r l i n g 2` ' e su n af u n c i nd es i m p l i f i c a r .M a x i m ar e c o n o c el a ss i g u i e n t e s i d e n t i d a d e s . 1 .s t i r l i n g 2( 0 ,n )=k r o n _ d e l t a( 0 ,n )( R e f .[ 1 ] )
317/633
28/08/13

2 .s t i r l i n g 2( n ,n )=1( R e f .[ 1 ] ) 3 .s t i r l i n g 2( n ,n-1 )=b i n o m i a l( n ,2 )( R e f .[ 1 ] ) 4 .s t i r l i n g 2( n+1 ,1 )=1( R e f .[ 1 ] ) 5 .s t i r l i n g 2( n+1 ,2 )=2^n-1( R e f .[ 1 ] ) 6 .s t i r l i n g 2( n ,0 )=k r o n _ d e l t a( n ,0 )( R e f .[ 2 ] ) 7 .s t i r l i n g 2( n ,m )=0c u a n d om >n( R e f .[ 2 ] ) 8 .s t i r l i n g 2( n ,m )=s u m( ( 1 )^( m-k )b i n o m i a l( m k )k^n ,i ,1 ,m )/ m !c u a n d omyns o nn m e r o se n t e r o s ,yne sn on e g a t i v o .( R e f . [ 3 ] ) E s t a si d e n t i d a d e ss ea p l i c a nc u a n d ol o sa r g u m e n t o ss o nl i t e r a l e s e n t e r o sos m b o l o sd e c l a r a d o sc o m oe n t e r o sye lp r i m e ra r g u m e n t o e sn on e g a t i v o .` S t i r l i n g 2' n os i m p l i f i c ap a r an oe n t e r o a r g u m e n t o s . R e f e r e n c i a s : [ 1 ]D o n a l dK n u t h .T h eA r to fC o m p u t e rP r o g r a m m i n g ,t e r c e r ae d i c i n , V o l u m e n1 ,S e c c i n1 . 2 . 6 ,E c u a c i o n e s4 8 ,4 9y5 0 . [ 2 ]G r a h a m ,K n u t h ,yP a t a s h n i k .M a t e m t i c a sc o n c r e t o ,e lc u a d r o2 6 4 . [ 3 ]A b r a m o w i t zyS t e g u n .H a n d b o o ko fM a t h e m a t i c a lF u n c t i o n s , S e c c i n2 4 . 1 . 4 . E j e m p l o s : ( %I 1 )d e c l a r e( n ,e n t e r o )$ ( %I 2 )a s u m i r ( n >=0 )$ ( %I 3 )s t i r l i n g 2( n ,n ) ; ( %O 3 )1 ` S t i r l i n g 2' n os i m p l i f i c al o sa r g u m e n t o sn oe n t e r o s . ( %I 1 )s t i r l i n g 2( %p i , %p i ) ; ( %O 1 )s t i r l i n g 2( %p i , %p i ) M a x i m aa p l i c ai d e n t i d a d e sa` s t i r l i n g 2' . ( %I 1 )d e c l a r e( n ,e n t e r o )$ ( %I 2 )a s u m i r ( n >=0 )$ ( %I 3 )s t i r l i n g 2( n+9 ,n+8 ) ; ( N+8 )( n+9 ) ( %O 3 )2 ( %I 4 )s t i r l i n g 2( n+1 ,2 ) ; n ( %O 4 )2-1
F u n c i n :s u b c o n j u n t o( < a >< f > ) D e v u e l v ee ls u b c o n j u n t od el a< a >c o n j u n t oq u es a t i s f a c el a< f >p r e d i c a d o . ' S u b g r u p o 'd e v u e l v eu nc o n j u n t oq u ec o m p r e n d el o se l e m e n t o sd e< a >p a r a q u e< f >d e v u e l v ed i s t i n t od e` f a l s e' n a d a .` S u b c o n j u n t o "n o a p l i c a r` e s' e lv a l o rd er e t o r n od e< f > . L a sp r o t e s t a sd e` s u b c o n j u n t os i< a >n oe su nc o n j u n t ol i t e r a l . C o n s u l t et a m b i n` p a r t i t i o n _ s e t' . E j e m p l o s : ( %I 1 )s u b c o n j u n t o( { 1 ,2 ,x ,x+y ,z ,x+y+z } , t o m o ) ; ( %O 1 ){ 1 ,2 ,x ,z } ( %I 2 )s u b c o n j u n t o( { 1 ,2 ,7 ,8 ,9 ,1 4 } ,e v e n p ) ; ( %O 2 ){ 2 ,8 ,1 4 }
F u n c i n :s u b s e t p( < a > ) D e v u e l v e` t r u e' s iys l os ie l< a >c o n j u n t oe su ns u b c o n j u n t od e . ` S u b s e t p' s eq u e j as ib i e n< a >on oe su nc o n j u n t ol i t e r a l . E j e m p l o s : ( %I 1 )s u b s e t p( { 1 ,2 ,3 } ,{ a ,1 ,b ,2 ,c ,3 } ) ; ( %O 1 )t r u e ( %I 2 )s u b s e t p( { a ,1 ,b ,2 ,c ,3 } ,{ 1 ,2 ,3 } ) ; ( %O 2 )f a l s e
F u n c i n :s y m m d i f f e r e n c e( < a _ 1 > ,. . . ,< a _ n > ) D e v u e l v el ad i f e r e n c i as i m t r i c ad el o sc o n j u n t o s< a _ 1 > ,. . . ,< a _ n > .
318/633
28/08/13

D a d o sd o sa r g u m e n t o s ,` s y m m d i f f e r e n c e( < a > )' e se lm i s m oq u e ` U n i o n( s e t d i f f e r e n c e( < a > ) ,s e t d i f f e r e n c e( ,< a > ) )' . L a sp r o t e s t a sd e` s y m m d i f f e r e n c es ia l g na r g u m e n t on oe su nc o n j u n t ol i t e r a l . E j e m p l o s : ( %I 1 )S _ 1 :{ a ,b ,c } ; ( %O 1 ){ a ,b ,c } ( %I 2 )S _ 2 :{ 1 ,b ,c } ; ( %O 2 ){ 1 ,b ,c } ( %I 3 )S _ 3 :{ a ,b ,z } ; ( %O 3 ){ a ,b ,z } ( %I 4 )s y m m d i f f e r e n c e( ) ; ( %O 4 ){ } ( %I 5 )s y m m d i f f e r e n c e( S _ 1 ) ; ( %O 5 ){ a ,b ,c } ( %I 6 )s y m m d i f f e r e n c e( S _ 1 ,S _ 2 ) ; ( %O 6 ){ 1 ,a } ( %I 7 )s y m m d i f f e r e n c e( S _ 1 ,S _ 2 ,S _ 3 ) ; ( %O 7 ){ 1 ,b ,z } ( %I 8 )s y m m d i f f e r e n c e( { } ,S _ 1 ,S _ 2 ,S _ 3 ) ; ( %O 8 ){ 1 ,b ,z }
F u n c i n :t r e e _ r e d u c e( < F > ,< S > ) F u n c i n :t r e e _ r e d u c e( < F > ,< S > ,< s _ 0 > ) E x t i e n d el a< F >f u n c i nb i n a r i aau n af u n c i nn a r i am e d i a n t e c o m p o s i c i n ,d o n d e< S >e su nc o n j u n t ool i s t a . ` T r e e _ r e d u c e' e se q u i v a l e n t eal as i g u i e n t e :A p l i c a ra< F > p a r e ss u c e s i v o sd ee l e m e n t o sp a r af o r m a ru n an u e v al i s t a` [ < F >( < s _ 1 > , < s _ 2 > ) ,< F >( < s _ 3 > ,< s _ 4 > ) ,. . . ] ,l l e v a n d oe le l e m e n t of i n a l s i nc a m b i o ss ih a yu nn m e r oi m p a rd ee l e m e n t o s .Ac o n t i n u a c i n ,r e p i t a h a s t aq u el al i s t as er e d u c eau ns o l oe l e m e n t o ,q u ee se lr e g r e s o v a l o r . C u a n d oe l< s _ 0 >a r g u m e n t oo p c i o n a le s t p r e s e n t e ,e lr e s u l t a d oe s ( < F > ,c o n se q u i v a l e n t e s` t r e e _ r e d u c e( < s _ 0 > ,< S > )' . P a r al as u m ad el o sn m e r o sd ep u n t of l o t a n t e ,` t r e e _ r e d u c e' p u e d ed e v o l v e ru n s u m aq u et i e n eu ne r r o rd er e d o n d e om e n o rq u ee l` r r e d u c e' o ` L r e d u c e' . L o se l e m e n t o sd e< S >yl o sr e s u l t a d o sp a r c i a l e sp u e d e ne s t a rd i s p u e s t o se nu n a r b o lb i n a r i od em n i m ap r o f u n d i d a d ,d ea h e ln o m b r e" t r e e _ r e d u c e " . E j e m p l o s : ` T r e e _ r e d u c e' a p l i c a d aau n al i s t ac o nu nn m e r op a rd ee l e m e n t o s . ( %I 1 )t r e e _ r e d u c e( f ,[ a ,b ,c ,d ] ) ; ( %O 1 )f( f( a ,b ) ,f( c ,d ) ) ` T r e e _ r e d u c e' a p l i c a d aau n al i s t ac o nu nn m e r oi m p a rd ee l e m e n t o s . ( %I 1 )t r e e _ r e d u c e( f ,[ a ,b ,c ,d ,e ] ) ; ( %O 1 )f( f( f( a ,b ) ,f( c ,d ) ) ,e )
F u n c i n :l au n i n( < a _ 1 > ,. . . ,< a _ n > ) D e v u e l v el au n i nd el o sc o n j u n t o s< a _ 1 >t r a v s< a _ n > . ` U n i o n( )( s i na r g u m e n t o s )d e v u e l v ee lc o n j u n t ov a c o . ` S i n d i c a t os eq u e j as ia l g na r g u m e n t on oe su nc o n j u n t ol i t e r a l . E j e m p l o s : ( %I 1 )S _ 1 :{ a ,b ,c+d , %e } ; ( %O 1 ){ %e ,a ,b ,d+c } ( %I 2 )S _ 2 :{ %p i , %i , %e ,c+d } ; ( %O 2 ){ %e , %i , %p i ,d+c } ( %I 3 )S _ 3 :{ 1 7 ,2 9 ,1 7 2 9 , %p i , %i } ; ( %O 3 ){ 1 7 ,2 9 ,1 7 2 9 , %i , %p i } ( %I 4 )u n i o n( ) ; ( %O 4 ){ } ( %I 5 )u n i o n( S _ 1 ) ; ( %O 5 ){ %e ,a ,b ,d+c } ( %I 6 )u n i o n( S _ 1 ,S _ 2 ) ; ( %O 6 ){ %e , %i , %p i ,a ,b ,d+c } ( %I 7 )u n i o n( S _ 1 ,S _ 2 ,S _ 3 ) ; ( %O 7 ){ 1 7 ,2 9 ,1 7 2 9 , %e , %i , %p i ,a ,b ,d+c } ( %I 8 )u n i o n( { } ,S _ 1 ,S _ 2 ,S _ 3 ) ; ( %O 8 ){ 1 7 ,2 9 ,1 7 2 9 , %e , %i , %p i ,a ,b ,d+c }
F u n c i n :x r e d u c e( < F > ,< S > ) F u n c i n :x r e d u c e( < F > ,< S > ,< s _ 0 > )
319/633
28/08/13

E x t i e n d el a< F >f u n c i nau n af u n c i nn a r i am e d i a n t ec o m p o s i c i n ,o , s i< F >y ae sn a r i a ,a p l i c a< F >p a r a< S > .C u a n d on oe s< F > n a r i a ,` x r e d u c e' e sl om i s m oq u e `l r e d u c e ' .E la r g u m e n t oe su n< S > l i s t a . F u n c i o n e sq u es es a b eq u en a r i ai n c l u y e na d e m s` +' ,m u l t i p l i c a c i n ' * ' ,' Y ' ,' o ' ,' m a x ' ,' m i n 'y' a p p e n d ' .L a sf u n c i o n e st a m b i np u e d e n d e c l a r a rn a r i am e d i a n t e` d e c l a r e( < F > ,n a r y ) .P a r ae s t a sf u n c i o n e s , " S ee s p e r aq u es e am sr p i d oq u ec u a l q u i e r ar r e d u c e `' ` x r e d u c eo ` L r e d u c e' . C u a n d oe l< s _ 0 >a r g u m e n t oo p c i o n a le s t p r e s e n t e ,e lr e s u l t a d oe s e q u i v a l e n t ea` x r e d u c e( < S >c o n s( < s _ 0 > ,< S > ) ) . A d e m sd ec o m af l o t a n t en oe se x a c t a m e n t ea s o c i a t i v a ,s e ac o m o p u e d e ,` x r e d u c e' s ea p l i c an a r i aA d e m sd eM a x i m ac u a n d o< S >c o n t i e n e n m e r o sd ep u n t of l o t a n t e . E j e m p l o s : ` X r e d u c e' a p l i c a d oau n af u n c i nc o n o c i d ad es e rn a r i a .` Fs el l a m a' u n av e z ,c o nt o d o sl o sa r g u m e n t o s . ( %I 1 )d e c l a r e( F ,n a r y ) ; ( %O 1 )h e c h o ( %I 2 )F( [ L ] ) :=L ; ( %O 2 )F( [ L ] ) :L= ( %I 3 )x r e d u c e( F ,[ a ,b ,c ,d ,e ] ) ; ( %O 3 )[ [ [ [ [ ( " [ " ,s i m p ) ,a ] ,b ] ,c ] ,d ] ,e ] ` X r e d u c e' a p l i c a d oau n af u n c i nn os es a b eq u ee sn a r i a .` G' e s l l a m a d ov a r i a sv e c e s ,c o nd o sa r g u m e n t o sc a d av e z . ( %I 1 )G( [ L ] ) :=L ; ( %O 1 )G( [ L ] ) :L= ( %I 2 )x r e d u c e( G ,[ a ,b ,c ,d ,e ] ) ; ( %O 2 )[ [ [ [ [ ( " [ " ,s i m p ) ,a ] ,b ] ,c ] ,d ] ,e ] ( %I 3 )l r e d u c e( G ,[ a ,b ,c ,d ,e ] ) ; ( %O 3 )[ [ [ [ a ,b ] ,c ] ,d ] ,e ]
36 Funcin Definicin
I n t r o d u c c i nal ad e f i n i c i nd ef u n c i n F u n c i n m a c r o s F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s
36.1 Introduccin a la Funcin Definicin 36.2 Funcin 36.3 Macros

F u n c i n :b u i l d q( < L > ,e x p r ) S u s t i t u t o sv a r i a b l e sc o nn o m b r ed el al i s t a< L >e nl ae x p r e s i n < e x p r > ,e np a r a l e l o ,s i ne v a l u a re x p r .E lr e s u l t a d o e x p r e s i ns es i m p l i f i c a ,p e r on os ee v a l a ,d e s p u sd e` b u i l d q' l l e v aac a b ol as u s t i t u c i n . L o se l e m e n t o sd e< L >s o ns m b o l o soe x p r e s i o n e sd ea s i g n a c i n ` < s y m b o l > :< v a l o r >' ,E v a l u a d ae np a r a l e l o .E sd e c i r ,l au n i n d eu n av a r i a b l ee ne ll a d od e r e c h od eu n aa s i g n a c i ne sl a l au n i nd ee s av a r i a b l ee ne lc o n t e x t od e lq u e` b u i l d q' f u e l l a m a d a ,n ol au n i nd ee s av a r i a b l ee nl al i s t a< L >v a r i a b l e . S ia l g u n av a r i a b l ee n< L >n os ed au n aa s i g n a c i ne x p l c i t a ,s u o b l i g a t o r i oe n` b u i l d q' e se lm i s m oq u ee ne lc o n t e x t od el ac u a l ` B u i l d q' f u el l a m a d o . Ac o n t i n u a c i n ,l a sv a r i a b l e sn o m b r a d a sp o r< L >s es u s t i t u y e ne ne x p re n p a r a l e l a s .E s oe s ,l as u s t i t u c i np a r ac a d av a r i a b l ee s d e t e r m i n a d oa n t e sd ee f e c t u a rl as u s t i t u c i n ,p o rl oq u el as u s t i t u c i n p a r au n av a r i a b l en ot i e n ee f e c t os o b r ec u a l q u i e ro t r o . S ia l g u n a< x >v a r i a b l ea p a r e c ec o m o' e m p a l m e( < x > ) 'e ne x p r ,e n t o n c e s< x > d e b ee s t a re n l a z a d oau n al i s t a ,yl al i s t as ee m p a l m a( i n t e r p o l a d o ) e nl u g a rd e< e x p r >s u s t i t u i d o . L a sv a r i a b l e se ne x p rq u en oa p a r e c e ne n< L >s er e a l i z a ne ne l d a rt e x t u a l m e n t e ,a u n q u et e n g a ne n l a c e se ne lc o n t e x t od e q u e` b u i l d q' f u el l a m a d o . E j e m p l o s ` A' e s t v i n c u l a d oe x p l c i t a m e n t ea `x ' ,y' b 't i e n ee lm i s m oe n l a c e ( As a b e r ,2 9 )c o m oe ne lc o n t e x t od el al l a m a d a ,y` c' s er e a l i z aat r a v s t e x t u a l m e n t e .L ae x p r e s i nr e s u l t a n t en os ee v a l ah a s t aq u ee l e v a l u a c i ne x p l c i t a ' '` %' .
320/633
28/08/13

( %I 1 )( a :1 7 ,B :2 9 ,c :1 7 2 9 )$ ( %I 2 )b u i l d q( [ a :x ,b ] ,a+b+c ) ; ( %O 2 )x+c+2 9 ( %I 3 ) ' ' % ; ( %O 3 )x+1 7 5 8 ` E' s eu n eau n al i s t a ,q u ea p a r e c ec o m ot a le nl o sa r g u m e n t o sd e ` F o o' ,ei n t e r p o l a d oe nl o sa r g u m e n t o sd e `b a r ' . ( %I 1 )b u i l d q( [ E :[ a ,b ,c ] ] ,f o o( x ,e ,y ) ) ; ( %O 1 )f o o( x ,[ a ,b ,c ] ,y ) ( %I 2 )b u i l d q( [ E :[ a ,b ,c ] ] ,b a r( x ,e m p a l m e( e ) ,y ) ) ; ( %O 2 )b a r r a( x ,a ,b ,c ,y ) E lr e s u l t a d os es i m p l i f i c ad e s p u sd el as u s t i t u c i n .S is i m p l i f i c a c i n s ea p l i c a r o na n t e sd el as u s t i t u c i n ,e s t o sd o sr e s u l t a d o ss e r a nl o s m i s m a . ( %I 1 )b u i l d q( [ E :[ a ,b ,c ] ] ,d ec o r t eye m p a l m e( e )+e m p a l m e( e ) ) ; ( %O 1 )2c+2+b2a ( %I 2 )b u i l d q( [ E :[ a ,b ,c ] ] ,2*e m p a l m e( e ) ) ; ( %O 2 )2a b c L a sv a r i a b l e se n< L >e s t nv i n c u l a d o sd ef o r m ap a r a l e l a ,s is ev i n c u l ad ef o r m as e c u e n c i a l , e lp r i m e rr e s u l t a d os e r a` f o o( a ,b ) .L a ss u s t i t u c i o n e ss er e a l i z a n ac a b oe np a r a l e l o ;c o m p a r a re ls e g u n d or e s u l t a d oc o ne lr e s u l t a d od e ` S u b s t' ,q u el l e v aac a b os u s t i t u c i o n e ss e c u e n c i a l m e n t e . ( %I 1 )b u i l d q( [ a :b ,b :a ] ,f o o( a ,b ) ) ; ( %O 1 )f o o( b ,a ) ( %I 2 )b u i l d q( [ u :v ,v :w ,w :x ,x :y ,y :z ,z :u ] , b a r r a( u ,v ,w ,x ,y ,z ) ) ; ( %O 2 )b a r( v ,w ,x ,y ,z ,u ) ( %I 3 )s u b s t( [ u=v ,v=w ,w=x ,x=y ,y=z ,z=u ] , b a r r a( u ,v ,w ,x ,y ,z ) ) ; ( %O 3 )b a r( u ,u ,u ,u ,u ,u ) C o n s t r u i ru n al i s t ad ee c u a c i o n e sc o na l g u n a sv a r i a b l e soe x p r e s i o n e s e ne ll a d od el ai z q u i e r d ays u sv a l o r e se ne ll a d od e r e c h o . ` M a c r o e x p a n d' m u e s t r al ae x p r e s i nq u ed e v u e l v e `s h o w _ v a l u e s . ( %I 1 )s h o w _ v a l u e s ( [ L ] ): :=b u i l d q( [ L ] ,m a p a( " = " ," L ,L ) ) ; ( %O 1 )s h o w _ v a l u e s ( [ L ] ): :=b u i l d q( [ L ] ,m a p a( " = " ," L ,L ) ) ( %I 2 )( a :1 7 ,B :2 9 ,c :1 7 2 9 )$ ( %I 3 )s h o w _ v a l u e s ( a ,b ,c-a-b ) ; ( %O 3 )[ a=1 7 ,b=2 9 ,c-b-a=1 , 6 8 3 ] ( %I 4 )m a c r o e x p a n d( s h o w _ v a l u e s ( a ,b ,c-a-b ) ) ; ( %O 4 )m a p a( = ,' ( [ a ,b ,c-b-a ] ) ,[ a ,b ,c-b-a ] ) D a d au n af u n c i nd ev a r i o sa r g u m e n t o s ,c r e a ro t r af u n c i np a r a q u ea l g u n o sd el o sa r g u m e n t o ss o nf i j o s . ( %I 1 )c u r r y( f ,[ a ] ) := b u i l d q( [ f ,a ] ,l a m b d a( [ [ x ] ] ,a p l i c a r( f ,a p p e n d( a ,x ) ) ) )$ ( %I 2 )b y 3 :c u r r y( " * " ,3 ) ; ( %O 2 )l a m b d a( [ [ x ] ] ,a p l i c a r( * ,a p p e n d( [ 3 ] ,x ) ) ) ( %I 3 )b y 3( a+b ) ; ( %O 3 )3( b+a )
F u n c i n :m a c r o e x p a n d( e x p r ) D e v u e l v el am a c r oe x p a n s i nd ee x p r ,s i ne v a l u a r l a ,c u a n d o ` E x p r' e su n al l a m a d aal af u n c i nm a c r o .D el oc o n t r a r i o ,` m a c r o e x p a n d' r e g r e s a e x p r . S il ae x p a n s i nd ee x p rp r o d u c eo t r al l a m a d aau n af u n c i nm a c r o , d i c h al l a m a d ad ef u n c i nm a c r ot a m b i ns ee x p a n d e . ` M a c r o e x p a n d' e v a l as ua r g u m e n t o .S i ne m b a r g o ,s il ae x p a n s i nd eu n l l a m a d aal af u n c i nm a c r ot i e n ee f e c t o ss e c u n d a r i o s ,l o se f e c t o ss e c u n d a r i o ss o n e j e c u t a d o . C o n s u l t et a m b i n` : :=' , `m a c r o s ' ,y` m a c r o e x p a n d 1' . E j e m p l o s ( %I 1 )g( x )=x: :/9 9 ; x ( %O 1 )g( x ): :=9 9 ( %I 2 )h( x )=: :b u i l d q( [ x ] ,g( x-a ) ) ; ( %O 2 )h( x )=: :b u i l d q( [ x ] ,g( x-a ) ) ( %I 3 )a :1 2 3 4 ; ( %O 3 )1 2 3 4 ( %I 4 )m a c r o e x p a n d( h( y ) ) ; y-u n a ( %O 4 )9 9 ( %I 5 )h( y ) ; y-1 2 3 4 ( %O 5 )9 9
321/633
28/08/13
F u n c i n :m a c r o e x p a n d 1( e x p r )
D e v u e l v el am a c r oe x p a n s i nd ee x p r ,s i ne v a l u a r l a ,c u a n d o ` E x p r' e su n al l a m a d aal af u n c i nm a c r o .D el oc o n t r a r i o ,` m a c r o e x p a n d 1' v u e l v e< e x p r > . ` M a c r o e x p a n d 1' e v a l as ua r g u m e n t o .S i ne m b a r g o ,s il ae x p a n s i nd el o s u n al l a m a d ad ef u n c i nm a c r ot i e n ee f e c t o ss e c u n d a r i o s ,l o se f e c t o ss e c u n d a r i o ss o n e j e c u t a d o . S il ae x p a n s i nd ee x p rp r o d u c eo t r al l a m a d aau n af u n c i nm a c r o , q u el al l a m a d aal af u n c i nm a c r on os ea m p l a . C o n s u l t et a m b i n` : :=' , `m a c r o s ' ,y` m a c r o e x p a n d' . E j e m p l o s ( %I 1 )g( x )=x: :/9 9 ; x ( %O 1 )g( x ): :=9 9 ( %I 2 )h( x )=: :b u i l d q( [ x ] ,g( x-a ) ) ; ( %O 2 )h( x )=: :b u i l d q( [ x ] ,g( x-a ) ) ( %I 3 )a :1 2 3 4 ; ( %O 3 )1 2 3 4 ( %I 4 )m a c r o e x p a n d 1( h( y ) ) ; ( %O 4 )g( y-a ) ( %I 5 )h( y ) ; y-1 2 3 4 ( %O 5 )9 9
V a r i a b l eg l o b a l :m a c r o s V a l o rp o rd e f e c t o :[ ]' ' M a c r o s 'e sl al i s t ad el o sd e f i n i d o sp o re lu s u a r i of u n c i o n e sd em a c r o .L am a c r o f u n c i nd eo p e r a d o rd ed e f i n i c i nd e` : :=' p o n eu n an u e v af u n c i nm a c r oe n e s t al i s t a ,y' m a t a r ' ,' q u i t a r 'y` r e m f u n c t i o n' r e m o v em a c r o f u n c i o n e sd el al i s t a . V e rt a m b i n` i n f o l i s t s .
F u n c i n :e m p a l m e s( < a > ) E m p a l m e s( i n t e r p o l a )l al i s t an o m b r a d op o re l< a > t o m oe nu n e x p r e s i n ,p e r os l os i' e m p a l m e 'a p a r e c ee n` b u i l d q' ; d el oc o n t r a r i o ,` e m p a l m e' s et r a t ac o m ou n af u n c i nn od e f i n i d a .S i a p a r e c i e n d oe n` b u i l d q "c o m o< a >s o l o( s i ne m p a l m e` ' ) ,s e< a > s u s t i t u i d o( n oi n t e r p o l a d o s )c o m ou n al i s t ae ne lr e s u l t a d o .L a a r g u m e n t od e` e m p a l m e' s l op u e d es e ru n t o m o ,n op u e d es e ru nl i t e r a l l i s t aou n ae x p r e s i nq u ed au n al i s t a . N o r m a l m e n t e` e m p a l m e' p r o p o r c i o n al o sa r g u m e n t o sp a r au n af u n c i no o p e r a d o r .P a r au n af u n c i n' f ' ,l ae x p r e s i n` f( s p l i c e( < a > ) )' d e n t r od e` b u i l d q' s ee x p a n d ea `f( < a >[ 1 ] ,< a >[ 2 ] ,< a >[ 3 ] ,. . . ) .P a r a u no p e r a d o r` o' ,l ae x p r e s i n `" o "( e m p a l m e( < a > ) 'd e n t r o ` B u i l d q' s ee x p a n d ea `" o "( < a >[ 1 ] ,< a >[ 2 ] ,< a >[ 3 ] ,. . . ) ' ,d o n d e` o' p u e d es e rc u a l q u i e rt i p od eo p e r a d o r( t p i c a m e n t eu n oq u et i e n em l t i p l e s a r g u m e n t o s ) .T e n g ae nc u e n t aq u ee lo p e r a d o rd e b ei re n t r ed o s c i t a s` "' . E j e m p l o s ( %I 1 )b u i l d q( [ x :[ 1 , %p i ,z-y ] ] ,f o o( e m p a l m e( x ) )/l o n g i t u d( x ) ) ; f o o( 1 , %p i ,z-y ) ( %O 1 )l o n g i t u d( [ 1 , %p i ,z-y ] ) ( %I 2 )b u i l d q( [ x :[ 1 , %p i ] ] ," / "( e m p a l m e( x ) ) ) ; 1 ( %O 2 )%P i ( %I 3 )m a t c h f i x( " < > " ," < > " ) ; ( %O 3 )< > ( %I 4 )b u i l d q( [ x :[ 1 , %p i ,z-y ] ] ," < > "( e m p a l m e( x ) ) ) ; ( %O 4 )< >1 , %p i ,z-y< >
36.4 Funciones y variables para la definicin de funciones

F u n c i n :a p l i c a r( < F > ,[ < x _ 1 > ,. . . ,< x _ n > ] ) C o n s t r u y eye v a l au n ae x p r e s i n` < F >( < a r g _ 1 > ,. . . , < a r g _ n > ) . ` A p p l y' n ot r a t ad ed i s t i n g u i rl a sf u n c i o n e sd em a t r i zd e f u n c i o n e so r d i n a r i a s ,c u a n d o< F >e se ln o m b r ed eu n af u n c i na r r a y , ` S ea p l i c a' e v a l a `< F >( . . . ) '( e sd e c i r ,u n al l a m a d ad ef u n c i nc o n p a r n t e s i se nl u g a rd ec o r c h e t e s ) .` A r r a y a p p l y' e v a l au n a l l a m a d aaf u n c i nc o nc o r c h e t e se ne s t ec a s o .
322/633
28/08/13
E j e m p l o s :
` A p l i c a b l e' e v a l as u sa r g u m e n t o s .E ne s t ee j e m p l o ,' m i n 'e s a p l i c a d oa lv a l o rd e` L' . ( %I 1 )L :[ 1 ,5 ,1 0 . 2 ,4 ,3 ] ; ( %O 1 )[ 1 ,5 ,-1 0 , 2 ,4 ,3 ] ( %I 2 )s ea p l i c a n( m i n ,L ) ; ( %O 2 )-1 0 , 2 ` A p p l y' e v a l al o sa r g u m e n t o s ,a u n q u ee l< F >f u n c i nd el o sc i t a . ( %I 1 )F( x ) :=x/1 7 2 9 ; x ( %O 1 )F( x ) :=1 7 2 9 ( %I 2 )f n o m b r e :F ; ( %O 2 )F ( %I 3 )d i s p f u n( F ) ; x ( %T 3 )F( x ) :=1 7 2 9 ( %O 3 )[ %t 3 ] ( %I 4 )d i s p f u n( f n a m e ) ; f n o m b r en oe se ln o m b r ed eu n af u n c i nd eu s u a r i o . -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; ( %I 5 )A p l i c a r( d i s p f u n ,[ f n a m e ] ) ; x ( T 5 % )F( x ) :=1 7 2 9 ( %O 5 )[ %t 5 ] ` A p l i c a b l e' e v a l ae ln o m b r ed el af u n c i n< F > .C o m i l l as i m p l e` ' 'd e r r o t a s e v a l u a c i n .` D e m o i v r e' e se ln o m b r ed eu n av a r i a b l eg l o b a ly u n af u n c i n . ( %I 1 )d e m o i v r e ; ( %O 1 )f a l s e ( %I 2 )d e m o i v r e( e x p( %i*x ) ) ; ( %O 2 ) %is i n( x )+c o s( x ) ( %I 3 )s ea p l i c a n( d e m o i v r e ,[ e x p( %i*x ) ] ) ; d e m o i v r ee v a l ae nf a l s e N o m b r ei n c o r r e c t ooe lv a l o re nl ap o s i c i nf u n c i o n a l . -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; ( %I 4 )a p p l y( ' d e m o i v r e ,[ e x p( %i*x ) ] ) ; ( %O 4 ) %is i n( x )+c o s( x )
F u n c i n :b l o q u e( [ < v _ 1 > ,. . . ,< v _ m > ] ,< e x p r _ 1 > ,. . . ,< e x p r _ n > ) F u n c i n :b l o q u e( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) ' B l o c k 'e v a l a< e x p r _ 1 > ,. . . ,< e x p r _ n >e ns e c u e n c i ayd e v u e l v e e lv a l o rd el a l t i m ae x p r e s i ne v a l u a d a .L as e c u e n c i ap u e d es e r m o d i f i c a d op o re l` g o' , 't i r a r' ,yl a sf u n c i o n e s `r e t u r n ' .L a l t i m a e x p r e s i ne s< e x p r _ n >m e n o s` r e t u r n' ou n ae x p r e s i nq u ec o n t i e n e ` T i r os ee v a l a .A l g u n a sv a r i a b l e sd e< v _ 1 > ,. . . ,< v _ m >p u e d es e r d e c l a r a r o nl o c a lp a r ae lb l o q u e ,l o sc u a l e ss ed i f e r e n c i a nd el o sm u n d i a l e s l a sv a r i a b l e sc o nl o sm i s m o sn o m b r e s .S ih a yv a r i a b l e sl o c a l e ss ed e c l a r a n ac o n t i n u a c i n ,s ep u e d eo m i t i rl al i s t a .D e n t r od e lb l o q u e ,c u a l q u i e rv a r i a b l e e x c e p t o< v _ 1 > ,. . . ,< v _ m >e su n av a r i a b l eg l o b a l . ' B l o c k 'g u a r d al o sv a l o r e sa c t u a l e sd el a sv a r i a b l e sd el a< v _ 1 > ,. . . , < v _ m >( s il o sh u b i e r a )al ae n t r a d aa lb l o q u e ,ac o n t i n u a c i n ,d e s e n l a z al a sv a r i a b l e s p a r aq u ee v a l e nas m i s m o s .L a sv a r i a b l e sl o c a l e sp u e d e ns e r l i g a d oav a l o r e sa r b i t r a r i o sd e n t r od e lb l o q u e ,p e r oc u a n d oe lb l o q u ee s s a l i d os er e s t a u r a nl o sv a l o r e sg u a r d a d o s ,yl o sv a l o r e sa s i g n a d o s d e n t r od e lb l o q u es ep i e r d e n . G u a r d al ad e c l a r a c i n` l o c a l e s( < v _ 1 > ,. . . ,< v _ m > )' d e n t r od e 'b l o c k' l a sp r o p i e d a d e sa s o c i a d a sc o ne l< v _ 1 >s m b o l o s ,. . . ,< v _ m > , e l i m i n al a sp r o p i e d a d e sa n t e sd ee v a l u a ro t r a se x p r e s i o n e sy r e s t a u r al a sp r o p i e d a d e sg u a r d a d a se nl as a l i d ad e lb l o q u e .A l g u n o s d e c l a r a c i o n e ss ei m p l e m e n t a nc o m op r o p i e d a d e sd eu ns m b o l o ,c o m o ` :=' , 'A r r a y' , 'd e p e n d e n c i a s' , à t v a l u e ' ,` m a t c h d e c l a r e' , ` A t o m g r a d' , 'c o n s t a n t e' , `n oe s c a l a r ' ,' a s u m i r ' ,ya l g u n o so t r o s . E le f e c t od e` l o c a l e s' e sh a c e rt a l e sd e c l a r a c i o n e ss l os o ne f i c a c e s d e n t r od e lb l o q u e ,d el oc o n t r a r i od e c l a r a c i o n e sd e n t r od eu nb l o q u es o n d e c l a r a c i o n e sr e a l m e n t eg l o b a l e s . ' B l o c k 'p u e d ea p a r e c e rd e n t r od eo t r ob l o q u e` ' .L a sv a r i a b l e sl o c a l e ss o n e s t a b l e c i d oc a d av e zq u es ee v a l au nn u e v o' b l o q u e ' .L a sv a r i a b l e sl o c a l e s p a r e c e ns e rg l o b a lp a r at o d o sl o sb l o q u e sc e r r a d o s .S iu n av a r i a b l ee s n ol o c a le nu nb l o q u e ,s uv a l o re se lv a l o rm sr e c i e n t e a s i g n a d op o ru nb l o q u eq u el oc o n t i e n e ,e ns uc a s o ,d el oc o n t r a r i o ,e se lv a l o r d el av a r i a b l ee ne le n t o r n og l o b a l .E s t ap o l t i c ap u e d e c o i n c i d i e n d oc o nl ac o m p r e n s i nh a b i t u a ld e" a l c a n c ed i n m i c o " . E lv a l o rd e lb l o q u ee se lv a l o rd el a l t i m ai n s t r u c c i nol a v a l o rd e la r g u m e n t oal af u n c i n` r e t u r n' q u es ep u e d eu t i l i z a r p a r as a l i re x p l c i t a m e n t ed e lb l o q u e .L af u n c i n' g o 's ep u e d eu s a r p a r at r a n s f e r i re lc o n t r o lal as e n t e n c i ad e lb l o q u eq u ee s t e t i q u e t a d a c o ne la r g u m e n t od eq u e' i r ' .P a r ae t i q u e t a ru nc o m u n i c a d o ,p r e c e d e r l op o ru n a r g u m e n t oa t m i c oc o m oc u a l q u i e ro t r as e n t e n c i ae ne lb l o q u e .P o re j e m p l o : ` B l o q u e( [ x ] ,x :1 ,l a z o ,x :x1 ,. . . ,i r( l o o p ) ,. . . ) .L a
323/633
28/08/13

a r g u m e n t od e` i r' d e b es e re ln o m b r ed eu n ae t i q u e t aq u ea p a r e c ee ne l b l o q u e a r .N os ep u e d eu s a r' g o 'p a r at r a n s f e r i rau n ae t i q u e t ae nu nb l o q u ed eo t r a q u el aq u ec o n t i e n ee l` g o' . B l o q u e st p i c a m e n t ea p a r e c e ne ne ll a d od e r e c h od eu n ad e f i n i c i nd ef u n c i n p e r op u e d es e ru t i l i z a d oe no t r o sl u g a r e st a m b i n .
F u n c i n :d e s c a n s o( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) E v a l aei m p r i m e< e x p r _ 1 > ,. . . ,< e x p r _ n >yp r o v o c au n a M a x i m ad e s c a n s oe nc u y op u n t oe lu s u a r i op u e d ee x a m i n a ryc a m b i a rs u m e d i oa m b i e n t e .A le s c r i b i r` e x i t ; "l a sh o j a sd ev i d ad ec o m p u t a c i n .
F u n c i n :c a t c h( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) E v a l a< e x p r _ 1 > ,. . . ,< e x p r _ n >u n op o ru n o ,ys ia l g u n ap i s t aa l e v a l u a c i nd eu n ae x p r e s i nd el af o r m a` t i r o( a r g )' ,e n t o n c e sl a v a l o rd el a' c a p t u r a 'e se lv a l o rd e' t h r o w( a r g ) ' ,yn om sa l l s ee v a l a nl a se x p r e s i o n e s .E s t e" r e t o r n on ol o c a l "v aa s at r a v sd ec u a l q u i e rp r o f u n d i d a dd ea n i d a c i nc o nu n ap r e c i s i nd ee n c e r r a r` c a p t u r a' .S i n oh a y' c a t c h 'e n c i e r r au n' t i r o ' ,u nm e n s a j ed ee r r o r i m p r e s o . S il ae v a l u a c i nd el o sa r g u m e n t o sn oc o n d u c eal ae v a l u a c i n d ec u a l q u i e r` t i r a r' ,e n t o n c e se lv a l o rd e 'c a p t u r a' e se lv a l o rd e< e x p r _ n > . ( %I 1 )l a m b d a( [ x ] ,s ix< 0e n t o n c e st i r o( x )e l s ef( x ) )$ ( %I 2 )g( l ) :=c a p t u r a( m a p a( ' ' % ,l ) )$ ( %I 3 )g( [ 1 ,2 ,3 ,7 ] ) ; ( %O 3 )[ F( 1 ) ,f( 2 ) ,f( 3 ) ,f( 7 ) ] ( %I 4 )g( [ 1 ,2 ,3 ,7 ] ) ; ( %O 4 )-3 L af u n c i n` g' d e v u e l v eu n al i s t ad e 'f' d ec a d ae l e m e n t od e 'l' s i ` L' s ec o m p o n es l od en m e r o sn on e g a t i v o s ,d el oc o n t r a r i o , `g '" c a p t u r a s " e lp r i m e re l e m e n t on e g a t i v od e' l 'y" l a n z a "h a c i aa r r i b a .
F u n c i n :c o m p f i l e( < f i l e n a m e > ,< f _ 1 > ,. . . ,< f _ n > ) F u n c i n :c o m p f i l e( < f i l e n a m e > ,f u n c i o n e s ) F u n c i n :c o m p f i l e( < f i l e n a m e > ,t o d o s ) T r a d u c el a sf u n c i o n e sd eM a x i m aaL i s pye s c r i b ee lt r a d u c i d o s c d i g oe ne la r c h i v o< f i l e n a m e > . ` C o m p f i l e( < f i l e n a m e > ,< f _ 1 > ,. . . ,< f _ n > )' t r a d u c ee le s p e c i f i c a d o f u n c i o n e s .` C o m p f i l e( < f i l e n a m e > ,f u n c i o n e s )' y `c o m p f i l e ( < f i l e n a m e > ,T o d o s )" t r a d u c i rt o d a sl a sf u n c i o n e sd e f i n i d a sp o re lu s u a r i o . L a st r a d u c c i o n e sL i s pn os ee v a l a n ,n ie la r c h i v od es a l i d a p r o c e s a d op o re lc o m p i l a d o rd eL i s p .' T r a d u c i r 'c r e aye v a l a T r a d u c c i o n e sL i s p .` C o m p i l e _ f i l e' t r a d u c eM a x i m aaL i s p , yl u e g oe j e c u t ae lc o m p i l a d o rd eL i s p . V a s et a m b i n' t r a d u c i r ' ,` t r a n s l a t e _ f i l e' y `c o m p i l e _ f i l e ' .
F u n c i n :c o m p i l a c i n( < f _ 1 > ,. . . ,< f _ n > ) F u n c i n :c o m p i l a c i n( f u n c i o n e s ) F u n c i n :c o m p i l a c i n( t o d o s ) T r a d u c el a sf u n c i o n e sd eM a x i m a< f _ 1 > ,. . . ,< f _ n >e nL i s p ,e v a l a l a st r a d u c c i o n e sL i s p ,yl l a m aal af u n c i nL i s pC O M P I L E` ' o n c a d af u n c i nt r a d u c i d o .` C o m p i l a c i n' d e v u e l v eu n al i s t ad el o sn o m b r e s d el a sf u n c i o n e sc o m p i l a d a s . ` C o m p i l e( a l l )' o `c o m p i l a c i n( f u n c i o n e s ) 'c o m p i l at o d od e f i n i d op o re lu s u a r i o f u n c i o n e s . ` C o m p i l a c i n' e v a l as u sa r g u m e n t o s ,e lo p e r a d o rc o m i l l a c o m i l l a ` ' ' ' d e r r o t a sc o t i z a c i n .
F u n c i n :d e f i n e( < f >( < x _ 1 > ,. . . ,< x _ n > ) ,e x p r ) F u n c i n :d e f i n e( < f >[ < x _ 1 > ,. . . ,< x _ n > ] ,e x p r ) F u n c i n :d e f i n e( f u n m a k e( < f > ,[ < x _ 1 > ,. . . ,< x _ n > ] ) ,e x p r ) F u n c i n :d e f i n e( a r r a y m a k e( < f > ,[ < x _ 1 > ,. . . ,< x _ n > ] ) ,e x p r ) F u n c i n :d e f i n e( e v( < e x p r _ 1 > ) ,< e x p r _ 2 > ) D e f i n eu n af u n c i nl l a m a d a< f >c o na r g u m e n t o s< x _ 1 > ,. . . ,y< x _ n > f u n c i n< e x p r >c u e r p o .` D e f i n i r "s i e m p r ee v a l as us e g u n d o a r g u m e n t o( am e n o sq u ec i t e x p l c i t a m e n t e ) .L af u n c i na s d e f i n i d ap u e d e s e ru n af u n c i no r d i n a r i ad eM a x i m a( c o na r g u m e n t o se n c e r r a d o se n t r e p a r n t e s i s )ou n af u n c i na r r a y( c o na r g u m e n t o se n c e r r a d o se n t r e c o r c h e t e s ) . C u a n d oe l l t i m oo n i c oa r g u m e n t o< x _ n >e su n al i s t ad eu n o e l e m e n t o ,l af u n c i nd e f i n i d ap o rd e f i n i r` ' a c e p t au n av a r i a b l e
324/633
28/08/13

n m e r od ea r g u m e n t o s .A r g u m e n t o sr e a l e ss ea s i g n a nu n oau n oa a r g u m e n t o sf o r m a l e s< x _ 1 > ,. . . ,< x _ ( n 1 ) >ym sl e j o sr e a l e s a r g u m e n t o s ,s ie s t p r e s e n t e ,s ea s i g n a na< x _ n >c o m ou n al i s t a . C u a n d oe lp r i m e ra r g u m e n t od e' d e f i n i r 'e su n ae x p r e s i nd el af o r m a ` < f >( < x _ 1 > ,. . . ,< x _ n > )' O `< f >[ < x _ 1 > ,. . . ,< x _ n > ] ' ,l af u n c i n a r g u m e n t o ss ee v a l a n< f >p e r on os ee v a l a ,i n c l u s os ih a y y au n af u n c i nov a r i a b l ec o ne s en o m b r e . C u a n d oe lp r i m e ra r g u m e n t oe su n ae x p r e s i nc o ne lo p e r a d o r` f u n m a k e' , A r r a y m a k e` ' o è v ' ,s ee v a l ae lp r i m e ra r g u m e n t o ,l oq u ep e r m i t e p a r ae ln o m b r ed el af u n c i nas e rc a l c u l a d o ,a s c o m oe lc u e r p o . T o d a sl a sd e f i n i c i o n e sd ef u n c i o n e sa p a r e c e ne ne lm i s m oe s p a c i od en o m b r e s ,q u ed e f i n eu n f u n c i n` f' d e n t r od eo t r af u n c i n `g 'n oa u t o m t i c a m e n t e l i m i t a re la l c a n c ed e` f' a 'g' .S i ne m b a r g o ,` l o c a l e s( f )' h a c eq u ee l d e f i n i c i nd el af u n c i nf' e f e c t i v a 's l od e n t r od e lb l o q u eo d ee x p r e s i o n e se nl aq u ea p a r e c e` l o c a l e s' . S ia l g u n a< x _ k >a r g u m e n t of o r m a le su ns m b o l oc i t a d o( d e s p u s e v a l u a c i n ) ,l af u n c i nd e f i n i d ap o r' d e f i n i r 'n oe v a l a e lc o r r e s p o n d i e n t ev a l o rd ea r g u m e n t o .P o rl od e m s ,l o sa r g u m e n t o sq u e s ee v a l a n . V a s et a m b i n' := 'y` : :=' . E j e m p l o s : ` D e f i n i r "s i e m p r ee v a l as us e g u n d oa r g u m e n t o( am e n o sq u ee x p l c i t a m e n t e c i t a d o ) . ( %I 1 )e x p r :c o s( y )-s i n( x ) ; ( %O 1 )c o s( y )-s i n( x ) ( %I 2 )d e f i n e( F 1( x ,y ) ,e x p r ) ; ( %O 2 )F 1( x ,y ) :=c o s( y )-s e n( x ) ( %I 3 )F 1( a ,b ) ; ( %O 3 )c o s( b )-s e n( a ) ( %I 4 )F 2( x ,y ) :=e x p r ; ( %O 4 )F 2( x ,y ) :=e x p r ( %I 5 )F 2( a ,b ) ; ( %O 5 )c o s( y )-s i n( x ) L af u n c i nd e f i n i d ap o r' d e f i n i r 'p u e d es e ru n ao r d i n a r i ad eM a x i m a f u n c i nou n af u n c i na r r a y . ( %I 1 )d e f i n e( G 1( x ,y ) ,X Y-Y X ) ; ( %O 1 )G 1( x ,y ) :=x .y-y .x ( %I 2 )d e f i n e( G 2[ x ,y ] ,x y-y x ) ; ( %O 2 )G 2 :=x .y-y .x x ,y C u a n d oe l l t i m oo n i c oa r g u m e n t o< x _ n >e su n al i s t ad eu n o e l e m e n t o ,l af u n c i nd e f i n i d ap o rd e f i n i r` ' a c e p t au n av a r i a b l e n m e r od ea r g u m e n t o s . ( %I 1 )d e f i n e( H( [ L ] ) ,' ( a p l i c a r( " + " ,L ) ) ) ; ( %O 1 )H( [ L ] ) :=a p p l y( " + " ,L ) ( %I 2 )H( a ,b ,c ) ; ( %O 2 )c+b+a C u a n d oe lp r i m e ra r g u m e n t oe su n ae x p r e s i nc o ne lo p e r a d o r` f u n m a k e' , ,S ee v a l ae lp r i m e ra r g u m e n t o` a r r a y m a k e' ,o 'e v' . ( %I 1 )[ F :I ,u :x ] ; ( %O 1 )[ I ,x ] ( %I 2 )f u n m a k e( F ,[ u ] ) ; ( %O 2 )I( x ) ( %I 3 )d e f i n e( f u n m a k e( F ,[ u ] ) ,c o s( u )+1 ) ; ( %O 3 )I( x ) :=c o s( x )+1 ( %I 4 )d e f i n e( a r r a y m a k e( F ,[ u ] ) ,c o s( u )+1 ) ; ( %O 4 )I :=c o s( x )+1 x ( %I 5 )d e f i n e( f o o( x ,y ) ,b a r( y ,x ) ) ; ( %O 5 )f o o( x ,y ) :=b a r( y ,x ) ( %I 6 )d e f i n e( e v( f o o( x ,y ) ) ,s i n( x )-c o s( y ) ) ; ( %O 6 )b a r( y ,x ) :=s i n( x )-c o s( y )
F u n c i n :d e f i n e _ v a r i a b l e( < n o m b r e > ,< d e f a u l t _ v a l u e > ,< m o d o > ) P r e s e n t au n av a r i a b l eg l o b a le ne le n t o r n od eM a x i m a . ` D e f i n e _ v a r i a b l e' e s t i le nl o sp a q u e t e se s c r i t o sp o re lu s u a r i o ,q u es o n m e n u d ot r a d u c i d aoc o m p i l a d a . ` D e f i n e _ v a r i a b l e' l l e v aac a b ol o ss i g u i e n t e sp a s o s : 1 .` M o d e _ d e c l a r e( < n o m b r e > ,< m o d o > )' d e c l a r ae lm o d od e< n o m b r e >a e lt r a d u c t o r .C o n s u l t e` m o d e _ d e c l a r e' p a r ao b t e n e ru n al i s t ad el a s p o s i b l e sm o d o s . 2 .S il av a r i a b l en oe s t c o n s o l i d a d o ,< d e f a u l t _ v a l u e >s ea s i g n aa N O M B R E . 3 .` D e c l a r e( < n o m b r e > ,e s p e c i a l ) a f i r m ae s p e c i a l . 4 .A s s o c i a t e s< n o m b r e >c o nu n af u n c i nd ep r u e b ap a r aa s e g u r a r s ed eq u e< n o m b r e >
325/633
28/08/13

e ss l ol o sv a l o r e sd e lm o d od e c l a r a d oa s i g n a d o . L ap r o p i e d a d` v a l u e _ c h e c k' s ep u e d ea s i g n a rac u a l q u i e rv a r i a b l eq u e h as i d od e f i n i d oat r a v sd e` d e f i n e _ v a r i a b l e' c o nu nm o d oq u en os e a ` C u a l q u i e r a' .L ap r o p i e d a d` v a l u e _ c h e c k' e su n ae x p r e s i nl a m b d aoe l n o m b r ed eu n af u n c i nd eu n av a r i a b l e ,q u es el l a m ac u a n d ou n s ei n t e n t a s i g n a ru nv a l o ral av a r i a b l e .E la r g u m e n t o d el af u n c i n` v a l u e _ c h e c k' e se lv a l o rd el o sa s p i r a n t e sas e ra s i g n a d o . ` D e f i n e _ v a r i a b l e' e v a l ad e f a u l t _ v a l u e ` ' ,yc i t aa' n o m b r e 'y ' M o d e ' .` D e f i n e _ v a r i a b l e' d e v u e l v ee lv a l o ra c t u a ld e 'n o m b r e' , q u ee s` d e f a u l t _ v a l u e' s i `n o m b r e 'f u eu n i d oa n t e s ,y d el oc o n t r a r i o ,e se lv a l o rp r e v i od e` n o m b r e' . E j e m p l o s : ` F o o' e su n av a r i a b l eb o o l e a n a ,c o ne lv a l o ri n i c i a ld e `t r u e ' . ( %I 1 )d e f i n e _ v a r i a b l e( f o o ,e sc i e r t o ,b o o l e a n o ) ; ( %O 1 )t r u e ( %I 2 )f o o ; ( %O 2 )t r u e ( %I 3 )f o o :f a l s e ; ( %O 3 )f a l s e ( %I 4 )f o o : %p i ; E r r o r :f o of u ed e c l a r a d om o d ob o o l e a n o ,t i e n ev a l o r : %p i -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; ( %I 5 )f o o ; ( %O 5 )f a l s e ` B a r' e su n av a r i a b l ee n t e r a ,q u ed e b es e rp r i m o r d i a l . ( %I 1 )d e f i n e _ v a r i a b l e( b a r ,2 ,e n t e r o ) ; ( %O 1 )2 ( %I 2 )q p u t( b a r ,p r i m e _ t e s t ,v a l u e _ c h e c k ) ; ( %O 2 )p r i m e _ t e s t ( %I 3 )p r i m e _ t e s t( y ) :=s in op r i m e p( y )ac o n t i n u a c i n , e r r o r( y ," n oe sp r i m o . " ) ; ( %O 3 )p r i m e _ t e s t( y ) :=s in op r i m e p( y ) e n t o n c e se r r o r( y ," n oe sp r i m o . " ) ( %I 4 )b a r :1 4 3 9 ; ( %O 4 )1 4 3 9 ( %I 5 )b a r :1 4 4 0 ; 1 4 4 0n oe sp r i m o . #0 :p r i m e _ t e s t( y=1 , 4 4 0 ) -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; ( %I 6 )b a r ; ( %O 6 )1 4 3 9 B a z _ q u u x` ' e su n av a r i a b l eq u en os ep u e d ea s i g n a ru nv a l o r .L a m o d o` a n y _ c h e c k' e sc o m o 'c u a l q u i e r' ,p e r o à n y _ c h e c k 'p e r m i t ea l " M e c a n i s m o ,y' n i n g u n a ' `v a l u e _ c h e c kn o . ( %I 1 )d e f i n e _ v a r i a b l e( b a z _ q u u x ,' b a z _ q u u x ,a n y _ c h e c k ) ; ( %O 1 )b a z _ q u u x ( %I 2 )F :l a m b d a( [ y ] ,s iy#' b a z _ q u u xc o n t i n u a c i n e r r o r( " N os ep u e d ea s i g n a ra `b a z _ q u u x' ." ) ) ; ( %O 2 )l a m b d a( [ y ] ,s iy#' b a z _ q u u x e n t o n c e se r r o r( N os ep u e d ea s i g n a ra` b a z _ q u u x' . ) ) ( %I 3 )q p u t( b a z _ q u u x ' ' ,F ,v a l u e _ c h e c k ) ; ( %O 3 )l a m b d a( [ y ] ,s iy#' b a z _ q u u x e n t o n c e se r r o r( N os ep u e d ea s i g n a ra` b a z _ q u u x' . ) ) ( %I 4 )b a z _ q u u x :' b a z _ q u u x ; ( %O 4 )b a z _ q u u x ( %I 5 )b a z _ q u u x :s q r t( 2 ) ; N os ep u e d ea s i g n a ra` b a z _ q u u x' . #0 :l a m b d a( [ y ] ,s ib a z _ q u u xy#' ,e n t o n c e s e r r o r( " N os ep u e d ea s i g n a ra `b a z _ q u u x' ." ) )( y=s q r t( 2 ) ) -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; ( %I 6 )b a z _ q u u x ; ( %O 6 )b a z _ q u u x
F u n c i n :d i s p f u n( < f _ 1 > ,. . . ,< f _ n > ) F u n c i n :d i s p f u n( t o d o s ) M u e s t r al ad e f i n i c i nd e lu s u a r i od ef u n c i o n e sd e f i n i d a sp o r< f _ 1 > ,. . . , < f _ n > .C a d aa r g u m e n t op u e d es e re ln o m b r ed eu n am a c r o( d e f i n i d am e d i a n t e ` : :=' ) ,U n af u n c i no r d i n a r i a( d e f i n i d oc o n ' :=' o 'd e f i n i r' ) ,u n f u n c i na r r a y( d e f i n i d oc o n' := 'o' d e f i n i r ' ,p e r oq u ee n c i e r r a a r g u m e n t o se n t r ec o r c h e t e s' [ ] 'c u a d r a d o s ) ,u n af u n c i nd es u b n d i c e , ( D e f i n i d oc o n' := 'o' d e f i n i r ' ,p e r oe n c e r r a n d oa l g u n o sa r g u m e n t o se n c o r c h e t e syo t r o se n t r ep a r n t e s i s' ( ) ' ) ,u n od eu n af a m i l i a d ef u n c i o n e ss u b i n d i c a d a ss e l e c c i o n a d o sp o ru nv a l o rd es u b n d i c e , ou n af u n c i nd es u b n d i c ed e f i n ec o nu ns u b n d i c ec o n s t a n t e . ` D i s p f u n( t o d o s )' m u e s t r at o d a sl a sf u n c i o n e sd e f i n i d a sp o re lu s u a r i od a d ap o r l a sf u n c i o n e s` ' , à r r a y syl i s t a s` m a c r o s ' ,o m i t i e n d o s u b i n d i c a d a sf u n c i o n e sd e f i n i d a sc o ns u b n d i c e sc o n s t a n t e s . ` D i s p f u n' c r e au n ae t i q u e t ad ee x p r e s i ni n t e r m e d i a( ` %t 1 ' ,' %t 2 ' , e t c )p a r ac a d af u n c i nq u es em u e s t r a ,yl ea s i g n al af u n c i nd e d e f i n i c i nal ae t i q u e t a .P o re lc o n t r a r i o ,` F U N D E F' d e v u e l v ee l
326/633
28/08/13
d e f i n i c i nd el af u n c i n .
` D i s p f u n' e v a l as u sa r g u m e n t o s ,e lo p e r a d o rc o m i l l a c o m i l l a ` ' ' ' d e r r o t a sc o t i z a c i n .` D i s p f u n' d e v u e l v el al i s t ad ei n t e r m e d i a e t i q u e t a sd ee x p r e s i o n e sc o r r e s p o n d i e n t e sal a sf u n c i o n e sq u es em u e s t r a n . E j e m p l o s : ( %I 1 )m( x ,y ): :=x^( y ) ; -Y ( %O 1 )m( x ,y )=x: : ( %I 2 )f( x ,y ) :=x^( y ) ; -Y ( %O 2 )f( x ,y ) :=x ( %I 3 )G[ x ,y ] :=x^( y ) ; -Y ( %O 3 )g :=x x ,y ( %I 4 )h[ x ]( y ) :=x^( y ) ; -Y ( %O 4 )h( y ) :=x x ( %I 5 )i[ 8 ]( y ) :=8^( y ) ; -Y ( %O 5 )i( y ) :=8 8 ( %I 6 )d i s p f u n( m ,f ,g ,h ,h[ 5 ] ,h[ 1 0 ] ,i[ 8 ] ) ; -Y ( %T 6 )m( x ,y )=x: : -Y ( %T 7 )f( x ,y ) :=x -Y ( %T 8 )g :=x x ,y -Y ( %T 9 )h( y ) :=x x 1 ( T 1 0 % )h( y ) :=5y 5 1 ( T 1 1 % )h( y ) :=1 0y 1 0 -Y ( T 1 2 % )i( y ) :=8 8 ( %O 1 2 )[ %t 6 , %t 7 ,t 8 % , %t 9 ,t 1 0 % , %t 1 1 ,t 1 2 % ] ( %I 1 2 ) ' ' % ; -Y-y-y ( %O 1 2 )[ m( x ,y ): :=x ,f( x ,y ) :=x ,g :=x , x ,y -1y1-y h( y ) :=x ,h( y ) :=,h( y ) :=,i( y ) :=8 ] x5y1 0y8 51 0
F u n c i n :f u l l m a p( < f > ,< e x p r _ 1 > ,. . . ) S i m i l a ra' m a p a ' ,p e r o` f u l l m a p' m a n t i e n ee lm a p e a d od e s c e n d e n t ed et o d a sl a s s u b e x p r e s i o n e sh a s t aq u el o so p e r a d o r e sp r i n c i p a l e sy an os o nl o sm i s m o s . ` F u l l m a p' e su t i l i z a d ap o re ls i m p l i f i c a d o rd eM a x i m ae nc i e r t am a t r i z m a n i p u l a c i o n e s ,p o rl oq u eM a x i m ag e n e r a r e na l g u n a so c a s i o n e sm e n s a j e sd ee r r o r r e l a t i v a` f u l l m a p' ap e s a rd eq u e `f u l l m a p 'n of u ee x p l c i t a m e n t e l l a m a d op o re lu s u a r i o . E j e m p l o s : ( %I 1 )a+b*c ; ( %O 1 )b c+a ( %I 2 )f u l l m a p( g , % ) ; ( %O 2 )g( b )g( c )+g( a ) ( %I 3 )m a p a( g , %t h( 2 ) ) ; ( %O 3 )g( b c )+g( a )
F u n c i n :f u l l m a p l( < f > ,< l i s t _ 1 > ,. . . ) S l os i m i l a r e sa' f u l l m a p ' ,p e r o` f u l l m a p l' m a p e os o b r el i s t a sy m a t r i c e s . E j e m p l o : ( %I 1 )f u l l m a p l( " + " ,[ 3 ,[ 4 ,5 ] ] ,[ [ a ,1 ] ,[ 0 ,1 . 5 ] ] ) ; ( %O 1 )[ [ a+3 ,4 ] ,[ 4 ,3 , 5 ] ]
327/633
28/08/13
V a r i a b l ed e ls i s t e m a :f u n c i o n e s V a l o rp o rd e f e c t o :[ ]' ' F u n c i o n e s 'p u e d ev e rl al i s t ad ef u n c i o n e sd eM a x i m ao r d i n a r i a sd el a s e s i na c t u a l .U n af u n c i no r d i n a r i ae su n af u n c i nc o n s t r u i d ap o r ` D e f i n i r' o ' :=' yl l a m c o np a r n t e s i s '( )' .U n af u n c i np u e d e d e f i n i re ne li n d i c a d o rd eM a x i m aoe nu na r c h i v oc a r g a d op o rM a x i m a ' C a r g a 'o' b a t c h ' . F u n c i o n e sd em a t r i z( l l a m a d ae n t r ec o r c h e t e s ,p o re j e m p l o ,` F[ x ]' )y f u n c i o n e ss u b n d i c e( l l a m a d a sc o nc o r c h e t e sy p a r n t e s i s ,p o re j e m p l o ,` F[ x ]( y )' )s ee n u m e r a np o rl av a r i a b l eg l o b a l A r r a y s` ' ,yn op o r `f u n c i o n e s ' . F u n c i o n e sL i s pn os eg u a r d a ne nn i n g u n al i s t a . E j e m p l o s : ( %I 1 )F _ 1( x ) :=x-1 0 0 ; ( %O 1 )F _ 1( x ) :=x-1 0 0 ( %I 2 )F _ 2( x ,y ) :=x/y ; x ( %O 2 )F _ 2( x ,y ) :=y ( %I 3 )d e f i n e( F _ 3( x ) ,s q r t( x ) ) ; ( %O 3 )F _ 3( x ) :=s q r t( x ) ( %I 4 )G _ 1[ x ] :=x-1 0 0 ; ( %O 4 )G _ 1 :=x-1 0 0 x ( %I 5 )G _ 2[ x ,y ] :=x/y ; x ( %O 5 )G _ 2 :=x ,y y ( %I 6 )d e f i n e( G _ 3[ x ] ,s q r t( x ) ) ; ( %O 6 )G _ 3 :=s q r t( x ) x ( %I 7 )H _ 1[ x ]( y ) :=x^y ; y ( %O 7 )H _ 1( y ) :=x x ( %I 8 )f u n c i o n e s ; ( %O 8 )[ F _ 1( x ) ,F _ 2( x ,y ) ,F _ 3( x ) ] ( %I 9 )m a t r i c e s ; ( %O 9 )[ G _ 1 ,G _ 2 ,G _ 3 ,H _ 1 ]
F u n c i n :F U N D E F( < f > ) D e v u e l v el ad e f i n i c i nd e l< f >f u n c i n . E la r g u m e n t op u e d es e re ln o m b r ed eu n am a c r o( d e f i n i d ac o n` : :=' ) ,u n f u n c i no r d i n a r i a( d e f i n i d oc o n' := 'o' d e f i n i r ' ) ,u n am a t r i z f u n c i n( d e f i n i d ac o n` :=' o 'd e f i n i r' ,p e r oe n c e r r a n d ol o sa r g u m e n t o s e n t r ec o r c h e t e s' [ ] ' ) ,u n af u n c i nd es u b n d i c e ,( d e f i n i d ac o n ` :=' O 'd e f i n i r' ,p e r oe n c e r r a n d oa l g u n o sa r g u m e n t o se n t r ec o r c h e t e s yo t r o se np a r n t e s i s` ( )' )u n od eu n af a m i l i ad es u b n d i c e f u n c i o n e ss e l e c c i o n a d a sp o ru nv a l o rd es u b n d i c e ,ou n f u n c i nd es u b n d i c ed e f i n i d ac o nu ns u b n d i c ec o n s t a n t e . ` F U N D E F' e v a l as ua r g u m e n t o ,e lo p e r a d o rc o m i l l a c o m i l l a ` ' ' ' d e r r o t a sc o t i z a c i n . ` F U N D E F( < f > )' d e v u e l v el ad e f i n i c i nd e< f > .P o re lc o n t r a r i o , ` D i s p f u n( < f > )' c r e au n ae t i q u e t ad ee x p r e s i ni n t e r m e d i ay a s i g n al ad e f i n i c i nd el ae t i q u e t a .
F u n c i n :f u n m a k e( < F > ,[ < a r g _ 1 > ,. . . ,< a r g _ n > ] ) D e v u e l v eu n ae x p r e s i n` < F >( < a r g _ 1 > ,. . . ,< a r g _ n > ) .E lr e g r e s o v a l o rs es i m p l i f i c a ,p e r on os ee v a l a ,p o rl oq u el af u n c i nn oe s t < F > l l a m a ,i n c l u s os ie x i s t e . ` F u n m a k e' n ot r a t ad ed i s t i n g u i rl a sf u n c i o n e sd em a t r i zd e f u n c i o n e so r d i n a r i a s ,c u a n d o< F >e se ln o m b r ed eu n af u n c i na r r a y , ' D e v u e l v e '< F >( . . . )' ` f u n m a k e( e sd e c i r ,u n al l a m a d ad ef u n c i nc o n p a r n t e s i se nl u g a rd ec o r c h e t e s ) .` A r r a y m a k e' d e v u e l v eu n l l a m a d aaf u n c i nc o nc o r c h e t e se ne s t ec a s o . ` F u n m a k e' e v a l as u sa r g u m e n t o s . E j e m p l o s : ` F u n m a k e' a p l i c a d aau n af u n c i no r d i n a r i ad eM a x i m a . ( %I 1 )F( x ,y ) :=y^2-x^2 ; 22 ( %O 1 )F( x ,y ) :=y-x ( %I 2 )f u n m a k e( F ,[ a+1 ,b+1 ] ) ; ( %O 2 )F( a+1 ,b+1 )
328/633
28/08/13
( %I 3 ) ' ' % ;

22 ( %O 3 )( b+1 )-( a+1 ) ` F u n m a k e' a p l i c a d oau n am a c r o . ( %I 1 )G( x ): :=( x-1 )/2 ; x-1 ( %O 1 )G( x ): :=2 ( %I 2 )f u n m a k e( G ,[ u ] ) ; ( %O 2 )G( u ) ( %I 3 ) ' ' % ; u-1 ( %O 3 )2 ` F u n m a k e' a p l i c a d oau n af u n c i nd es u b n d i c e . ( %I 1 )H[ A ]( x ) :=( x-1 )û n a ; u n ( %O 1 )H( x ) :=( x-1 ) u n ( %I 2 )f u n m a k e( H[ n ] ,[ %e ] ) ; n ( %O 2 )l a m b d a( [ x ] ,( x-1 ) )( %e ) ( %I 3 ) ' ' % ; n ( %O 3 )( %e-1 ) ( %I 4 )f u n m a k e( ' ( H[ n ] ) ,[ %s ] ) ; ( %O 4 )H( %e ) n ( %I 5 ) ' ' % ; n ( %O 5 )( %e-1 ) ` F u n m a k e' a p l i c a d aau ns m b o l oq u en oe su n af u n c i nd e f i n i d ad e n i n g nt i p o . ( %I 1 )f u n m a k e( A ,[ u ] ) ; ( %O 1 )A( u ) ( %I 2 ) ' ' % ; ( %O 2 )A( u ) ` F u n m a k e' e v a l as u sa r g u m e n t o s ,p e r on oe lv a l o rd er e t o r n o . ( %I 1 )d e t( a ,b ,c ) :=b^24*a*c ; 2 ( %O 1 )d e t( a ,b ,c ) :=b-4a c ( %I 2 )( x :8 ,y :1 0 ,z :1 2 ) ; ( %O 2 )1 2 ( %I 3 )f :d e t ; ( %O 3 )d e t ( %I 4 )f u n m a k e( f ,[ x ,y ,z ] ) ; ( %O 4 )d e t( 8 ,1 0 ,1 2 ) ( %I 5 ) ' ' % ; ( %O 5 )-2 8 4 M a x i m as i m p l i f i c av a l o rd e v u e l t os` f u n m a k e ' ' . ( %I 1 )f u n m a k e( s i n ,[ %p i/2 ] ) ; ( %O 1 )1
F u n c i n :l a m b d a( [ < x _ 1 > ,. . . ,< x _ m > ] ,< e x p r _ 1 > ,. . . ,< e x p r _ n > ) F u n c i n :l a m b d a( [ [ < L > ] ] ,< e x p r _ 1 > ,. . . ,< e x p r _ n > ) F u n c i n :l a m b d a( [ < x _ 1 > ,. . . ,< x _ m > ,[ < L > ] ] ,< e x p r _ 1 > ,. . . ,< e x p r _ n > ) D e f i n eyd e v u e l v eu n ae x p r e s i nl a m b d a( e sd e c i r ,u na n n i m o f u n c i n ) .L af u n c i np u e d eh a b e rr e q u e r i d oa r g u m e n t o s< x _ 1 > ,. . . , < x _ m >y/oo p c i o n a l e s< L >a r g u m e n t o s ,q u ea p a r e c e ne ne l c u e r p od el af u n c i ne nf o r m ad el i s t a .E lv a l o rd er e t o r n od el af u n c i ne s < e x p r _ n > .U n ae x p r e s i nl a m b d as ep u e d ea s i g n a rau n av a r i a b l ey e v a l u a d oc o m ou n af u n c i no r d i n a r i a .U n ae x p r e s i nl a m b d ap u e d e a p a r e c e re na l g u n o sc o n t e x t o se nl o sq u es ee s p e r au nn o m b r ed ef u n c i n . C u a n d os ee v a l al af u n c i n ,n ou n i d o< x _ 1 >l a sv a r i a b l e sl o c a l e s ,. . . , < x _ m >s ec r e a n .' L a m b d a 'p u e d ea p a r e c e re n' b l o q u e 'uo t r o ' L a m b d a ' ,l a sv a r i a b l e sl o c a l e ss ee s t a b l e c ec a d av e zq u eo t r o S ee v a l a` b l o q u e' o 'l a m b d a' .L a sv a r i a b l e sl o c a l e sp a r e c e ne s t a r m u n d i a lac u a l q u i e r` b l o q u ec e r r a d o' o 'l a m b d a' .S iu n av a r i a b l en oe s l o c a l ,s uv a l o re se lv a l o ra s i g n a d om sr e c i e n t e m e n t ee nu n a d j u n t a n d o` b l o q u e' o `l a m b d a ' ,e ns uc a s o ,d el oc o n t r a r i o ,e se lv a l o r d el av a r i a b l ee ne le n t o r n og l o b a l .E s t ap o l t i c ap u e d e c o i n c i d i e n d oc o nl ac o m p r e n s i nh a b i t u a ld e" a l c a n c ed i n m i c o " . U n av e ze s t a b l e c i d a sl a sv a r i a b l e sl o c a l e s ,< e x p r _ 1 >t r a v s< e x p r _ n > s ee v a l a nas uv e z .L av a r i a b l ee s p e c i a l` % %' ,l oq u er e p r e s e n t a s er e c o n o c ee lv a l o rd el ae x p r e s i na n t e r i o r , .` T i r a r' y ` C a p t u r a' t a m b i np u e d e na p a r e c e re nl al i s t ad ee x p r e s i o n e s . ` R e t u r n' n op u e d ea p a r e c e re nu n ae x p r e s i nl a m b d aam e n o se n c e r r a d op o r ' B l o c k ' ,e nc u y oc a s o` r e t u r n' d e f i n ee lv a l o rd er e t o r n od el a b l o q u e a ryn od el ae x p r e s i nl a m b d a ,am e n o sq u eo c u r r ae lb l o q u e s e r< e x p r _ n > .D e lm i s m om o d o ,' i r 'n op u e d ea p a r e c e re nu n al a m b d a e x p r e s i nm e n o sd e l i m i t a d ap o r' b l o c k ' .
329/633
28/08/13

' L a m b d a 'e v a l as u sa r g u m e n t o s ,e lo p e r a d o rc o m i l l a c o m i l l a` ' '' d e r r o t a sc o t i z a c i n . E j e m p l o s : *U n ae x p r e s i nl a m b d as ep u e d ea s i g n a rau n av a r i a b l ey e v a l u a d oc o m ou n af u n c i no r d i n a r i a . ( %I 1 )f :l a m b d a( [ x ] ,x^2 ) ; 2 ( %O 1 )l a m b d a( [ x ] ,x ) ( %I 2 )f( a ) ; 2 ( %O 2 )a *U n ae x p r e s i nl a m b d ap u e d ea p a r e c e re nc o n t e x t o se nl o sq u eu n S ee s p e r ae v a l u a c i nd el af u n c i n . ( %I 3 )l a m b d a( [ x ] ,x^2 )( a ) ; 2 ( %O 3 )u n ( %I 4 )A p l i c a r( l a m b d a( [ x ] ,x^2 ) ,[ a ] ) ; 2 ( %O 4 )u n ( %I 5 )m a p a( l a m b d a( [ x ] ,x^2 ) ,[ a ,b ,c ,d ,e ] ) ; 22222 ( %O 5 )[ a ,b ,c ,d ,e ] *V a r i a b l e sd ea r g u m e n t o ss o nv a r i a b l e sl o c a l e s .O t r a sv a r i a b l e s p a r e c e ns e rl a sv a r i a b l e sg l o b a l e s .L a sv a r i a b l e sg l o b a l e ss o n e v a l u a d oe ne lm o m e n t od ee v a l u a rl ae x p r e s i nl a m b d a , am e n o sq u ea l g nt i p od ee v a l u a c i ne s p e c i a ls ev eo b l i g a d op o ra l g u n o sm e d i o s ,t a l e s c o m o` ' '' . ( %I 6 )a : %p i$ ( %I 7 )b : %e$ ( %I 8 )g :l a m b d a( [ a ] ,a*b ) ; ( %O 8 )l a m b d a( [ a ] ,a b ) ( %I 9 )b : %g a m m a$ ( %I 1 0 )g( 1 / 2 ) ; %D eg a m m a ( %O 1 0 )2 ( %I 1 1 )G 2 :l a m b d a( [ a ] ,u n* ' 'b ) ; ( %O 1 1 )l a m b d a( [ a ] ,u ng a m m a % ) ( %I 1 2 )b : %e$ ( %I 1 3 )g 2( 1 / 2 ) ; %D eg a m m a ( %O 1 3 )2 *L a se x p r e s i o n e sl a m b d ap u e d e na n i d a r s e .L a sv a r i a b l e sl o c a l e sd e n t r od el a e x p r e s i nl a m b d ae x t e r i o rp a r e c es e rg l o b a la li n t e r i o r e x p r e s i nm e n o se n m a s c a r a d ap o rl a sv a r i a b l e sl o c a l e sc o ne lm i s m on o m b r e . ( %I 1 4 )h :l a m b d a( [ a ,b ] ,h 2 :l a m b d a( [ a ] ,a*b* ) ,H 2( 1 / 2 ) ) ; 1 ( %O 1 4 )l a m b d a( [ a ,b ] ,h 2 :l a m b d a( [ a ] ,a b ) ,h 2( ) ) 2 ( %I 1 5 )h( %p i , %g a m m a ) ; %D eg a m m a ( %O 1 5 )2 *D e s d e` l a m b d a' e v a l as u sa r g u m e n t o s ,l ae x p r e s i nl a m b d a ì ' a b a j on od e f i n eu n af u n c i nd e" m u l t i p l i c a rp o r' a ' " .T a l f u n c i ns ep u e d ed e f i n i rat r a v sd e` b u i l d q' ,c o m oe nl ae x p r e s i nl a m b d a ` I 2' ac o n t i n u a c i n . ( %I 1 6 )i :l a m b d a( [ a ] ,l a m b d a( [ x ] ,a*x ) ) ; ( %O 1 6 )l a m b d a( [ a ] ,l a m b d a( [ x ] ,a x ) ) ( %I 1 7 )i( 1 / 2 ) ; ( %O 1 7 )l a m b d a( [ x ] ,a x ) ( %I 1 8 )i 2 :l a m b d a( [ a ] ,b u i l d q( [ a :a ] ,l a m b d a( [ x ] ,a*x ) ) ) ; ( %O 1 8 )l a m b d a( [ a ] ,b u i l d q( [ a :a ] ,l a m b d a( [ x ] ,a x ) ) ) ( %I 1 9 )i 2( 1 / 2 ) ; x ( %O 1 9 )l a m b d a( [ x ] ,) 2 ( %I 2 0 )i 2( 1 / 2 )( %p i ) ; %P i ( %O 2 0 )2 *U n ae x p r e s i nl a m b d ap u e d et e n e ru nn m e r ov a r i a b l ed ea r g u m e n t o s , q u es ei n d i c a nc o n` [ < L > ]' c o m oe l n i c ooe l l t i m oa r g u m e n t o . L o sa r g u m e n t o sq u ea p a r e c e ne ne lc u e r p od el af u n c i ne nf o r m ad el i s t a . ( %I 1 )f :l a m b d a( [ a a ,b b ,[ c c ] ] ,*a ab bc c+ ) ; ( %O 1 )l a m b d a( [ a a ,b b ,[ c c ] ] ,a ab bc c+ ) ( %I 2 )f( f o o , %i ,1 7 ,2 9 ,2 5 6 ) ; ( %O 2 )[ 1 7f o o+ %i2 9 %f o o+i ,2 5 6f o o+ %i ] ( %I 3 )g :l a m b d a( [ [ a a ] ] ,s ea p l i c a n( " + " ,a a ) ) ; ( %O 3 )l a m b d a( [ [ a a ] ] ,s ea p l i c a n( + ,a a ) ) ( %I 4 )g( 1 7 ,2 9 ,x ,y ,z , %e ) ; ( %O 4 )z+y+x+e+4 6 %
330/633
28/08/13
F u n c i n :l o c a l e s( < v _ 1 > ,. . . ,< v _ n > ) G u a r d al a sp r o p i e d a d e sa s o c i a d a sc o ne l< v _ 1 >s m b o l o s ,. . . ,< v _ n > , e l i m i n al a sp r o p i e d a d e sa n t e sd ee v a l u a ro t r a se x p r e s i o n e sy r e s t a u r al a sp r o p i e d a d e sg u a r d a d a se nl as a l i d ad e lb l o q u euo t r o e x p r e s i nc o m p u e s t ae nl aq u ea p a r e c e` l o c a l e s' . A l g u n a sd e c l a r a c i o n e ss ei m p l e m e n t a nc o m op r o p i e d a d e sd eu ns m b o l o , i n c l u y e n d o` :=' , 'a r r a y' , 'd e p e n d e n c i a s' , à t v a l u e ' , M a t c h d e c l a r e` ' , à t o m g r a d ' ,' c o n s t a n t e ' ,` n oe s c a l a r' , 'a s u m e n' y a l g u n o so t r o s .E le f e c t od e` l o c a l e s' e sh a c e rt a l e sd e c l a r a c i o n e s e f e c t i v as l od e n t r od e lb l o q u eod ee x p r e s i o n e se nl a l o c a l e sq u ea p a r e z c a` ' ,d el oc o n t r a r i oe s t a sd e c l a r a c i o n e ss o ng l o b a l e s d e c l a r a c i o n e s . ` L o c a l e s' s l op u e d ea p a r e c e re n 'b l o q u e' oe ne lc u e r p od eu n af u n c i n d e f i n i c i noe x p r e s i nl a m b d a` ' ,ys l ou n ao c u r r e n c i ae s p e r m i t i d ae nc a d au n o . C i t a s` l o c a l e s' s u sa r g u m e n t o s .` L o c a l e s' d e v u e l v e 'H e c h o' . E j e m p l o : U n ad e f i n i c i nd ef u n c i nl o c a l . ( %I 1 )f o o( x ) :=1-x ; ( %O 1 )f o o( x ) :=1-x ( %I 2 )f o o( 1 0 0 ) ; ( %O 2 )-9 9 ( %I 3 )b l o q u e( l o c a l( f o o ) ,f o o( x ) :=2*x ,f o o( 1 0 0 ) ) ; ( %O 3 )2 0 0 ( %I 4 )f o o( 1 0 0 ) ; ( %O 4 )-9 9
V a r i a b l eo p c i o n a l :m a c r o e x p a n s i o n V a l o rp o rd e f e c t o :f a l s e' C o n t r o l e s` m a c r o e x p a n s i o n' s il ae x p a n s i n( e sd e c i r ,l o s v a l o rd er e t o r n o )d eu n af u n c i nm a c r oe ss u s t i t u i d ap o rl am a c r o l l a m a d ad ef u n c i n .U nc a m b i op a r at r a t a rd ea c e l e r a rl ae x p r e s i ns i g u i e n t e e v a l u a c i o n e s ,e ne lc o s t ed ea l m a c e n a m i e n t od el ae x p a n s i n . ' F a l s e ' L ae x p a n s i nd eu n af u n c i nm a c r on oe ss u s t i t u i d op o re l m a c r ol l a m a d aal af u n c i n . ` A m p l i a r' L ap r i m e r av e zq u es ee v a l au n al l a m a d ad ef u n c i nm a c r o ,l a e x p a n s i ns ea l m a c e n a .L ae x p a n s i nn os er e c a l c u l ae n l l a m a d a sp o s t e r i o r e s ;c u a l q u i e re f e c t os e c u n d a r i o( c o m o` p r i n t' o a s i g n a c i nal a sv a r i a b l e sg l o b a l e s )o c u r r es l oc u a n d ol am a c r o l l a m a d aal af u n c i ns ee v a l ap r i m e r o .L ae x p a n s i ne nu n ae x p r e s i n n oa f e c t aao t r a se x p r e s i o n e sq u et i e n e nl am i s m am a c r o l l a m a d ad ef u n c i n . ' D e s p l a z a r ' L ap r i m e r av e zq u es ee v a l au n al l a m a d ad ef u n c i nm a c r o ,l a e x p a n s i ne ss u s t i t u i d op o rl al l a m a d a ,m o d i f i c a n d oa s l a e x p r e s i nd el aq u es el l a m aal af u n c i nm a c r o .L a e x p a n s i nn os er e c a l c u l ae nl l a m a d a sp o s t e r i o r e s ,c u a l q u i e r ad el a sp a r t e s e f e c t o so c u r r e ns l oc u a n d ol al l a m a d aau n af u n c i nm a c r oe sp r i m e r o e v a l u a d o .L ae x p a n s i ne nu n ae x p r e s i nn oa f e c t aao t r o s e x p r e s i o n e sq u et i e n e nl am i s m al l a m a d ad ef u n c i nm a c r o . E j e m p l o s C u a n d o` m a c r o e x p a n s i o n' e s 'f a l s e' ,u n af u n c i nm a c r oe sl l a m a d ac a d a v e zq u es ee v a l al ae x p r e s i nd el l a m a d a ,yl al l a m a d a e x p r e s i nn os em o d i f i c a . ( %I 1 )f( x ) :=h( x )/g( x ) ; h( x ) ( %O 1 )f( x ) :=g( x ) ( %I 2 )g( x )=: :b l o q u e( p r i n t( " x+9 9e si g u a la " ,x ) , r e t o r n o( x+9 9 ) ) ; ( %O 2 )g( x )=: :b l o q u e( p r i n t( " x+9 9e si g u a la " ,x ) , v o l v e r( x+9 9 ) ) ( %I 3 )h( x )=: :b l o q u e( p r i n t( " x-9 9e si g u a la " ,x ) , v o l v e r( x-9 9 ) ) ; ( %O 3 )h( x )=: :b l o q u e( p r i n t( " x-9 9e si g u a la " ,x ) , v o l v e r( x-9 9 ) ) ( %I 4 )m a c r o e x p a n s i o n :f a l s e ; ( %O 4 )f a l s e ( %I 5 )f( a*b ) ; x-9 9e si g u a lax x+9 9e si g u a lax a b-9 9 ( %O 5 )a b+9 9
331/633
28/08/13
( %I 6 )d i s p f u n( f ) ;

h( x ) ( %T 6 )f( x ) :=g( x ) ( %O 6 )h e c h o ( %I 7 )f( a*b ) ; x-9 9e si g u a lax x+9 9e si g u a lax a b-9 9 ( %O 7 )a b+9 9 C u a n d o` m a c r o e x p a n s i o n' e s 'a m p l i a r' ,u n af u n c i nm a c r oe sl l a m a d au n av e z , yl ae x p r e s i nd el l a m a d an os em o d i f i c a . ( %I 1 )f( x ) :=h( x )/g( x ) ; h( x ) ( %O 1 )f( x ) :=g( x ) ( %I 2 )g( x )=: :b l o q u e( p r i n t( " x+9 9e si g u a la " ,x ) , r e t o r n o( x+9 9 ) ) ; ( %O 2 )g( x )=: :b l o q u e( p r i n t( " x+9 9e si g u a la " ,x ) , v o l v e r( x+9 9 ) ) ( %I 3 )h( x )=: :b l o q u e( p r i n t( " x-9 9e si g u a la " ,x ) , v o l v e r( x-9 9 ) ) ; ( %O 3 )h( x )=: :b l o q u e( p r i n t( " x-9 9e si g u a la " ,x ) , v o l v e r( x-9 9 ) ) ( %I 4 )m a c r o e x p a n s i o n :a m p l i a r ; ( %O 4 )a m p l i a r ( %I 5 )f( a*b ) ; x-9 9e si g u a lax x+9 9e si g u a lax a b-9 9 ( %O 5 )a b+9 9 ( %I 6 )d i s p f u n( f ) ; h( x ) ( %T 6 )f( x ) :=g( x ) ( %O 6 )h e c h o ( %I 7 )f( a*b ) ; a b-9 9 ( %O 7 )a b+9 9 C u a n d o` m a c r o e x p a n s i o n' e s 'a m p l i a r' ,u n af u n c i nm a c r oe sl l a m a d au n av e z , yl ae x p r e s i nq u eh al l a m a d os em o d i f i c a . ( %I 1 )f( x ) :=h( x )/g( x ) ; h( x ) ( %O 1 )f( x ) :=g( x ) ( %I 2 )g( x )=: :b l o q u e( p r i n t( " x+9 9e si g u a la " ,x ) , r e t o r n o( x+9 9 ) ) ; ( %O 2 )g( x )=: :b l o q u e( p r i n t( " x+9 9e si g u a la " ,x ) , v o l v e r( x+9 9 ) ) ( %I 3 )h( x )=: :b l o q u e( p r i n t( " x-9 9e si g u a la " ,x ) , v o l v e r( x-9 9 ) ) ; ( %O 3 )h( x )=: :b l o q u e( p r i n t( " x-9 9e si g u a la " ,x ) , v o l v e r( x-9 9 ) ) ( %I 4 )m a c r o e x p a n s i o n :d e s p l a z a r ; ( %O 4 )d e s p l a z a r ( %I 5 )f( a*b ) ; x-9 9e si g u a lax x+9 9e si g u a lax a b-9 9 ( %O 5 )a b+9 9 ( %I 6 )d i s p f u n( f ) ; x-9 9 ( %T 6 )f( x ) :=x+9 9 ( %O 6 )h e c h o ( %I 7 )f( a*b ) ; a b-9 9 ( %O 7 )a b+9 9
V a r i a b l eo p c i o n a l :m o d e _ c h e c k p V a l o rp o rd e f e c t o :t r u e' C u a n d o` m o d e _ c h e c k p' e s `t r u e ' ,` m o d e _ d e c l a r e' c o m p r u e b al o sm o d o sd e v a r i a b l e sl i g a d a s .
V a r i a b l eo p c i o n a l :m o d e _ c h e c k _ e r r o r p V a l o rp o rd e f e c t o :f a l s e'
332/633
28/08/13

C u a n d o` m o d e _ c h e c k _ e r r o r p' e s `t r u e ' ,` m o d e _ d e c l a r e' l l a m ae r r o r .
V a r i a b l eo p c i o n a l :m o d e _ c h e c k _ w a r n p V a l o rp o rd e f e c t o :t r u e' C u a n d o` m o d e _ c h e c k _ w a r n p' e s `t r u e ' ,s ed e s c r i b e nl o se r r o r e sd em o d o .
F u n c i n :m o d e _ d e c l a r e( < y _ 1 > ,< m o d e _ 1 > ,. . . ,< y _ n > ,< m o d e _ n > ) ` M o d e _ d e c l a r e' s eu t i l i z ap a r ad e c l a r a rl o sm o d o sd el a sv a r i a b l e sy f u n c i o n e sp a r al ap o s t e r i o rt r a d u c c i noc o m p i l a c i nd ef u n c i o n e s . ` M o d e _ d e c l a r e' s ec o l o c an o r m a l m e n t ee ne lp r i n c i p i od eu n af u n c i n d e f i n i c i n ,e ne lc o m i e n z od eu n as e c u e n c i ad ec o m a n d o sd eM a x i m a ,oe j e c u t a d oe n e lm o d oi n t e r a c t i v o . L o sa r g u m e n t o sd e` m o d e _ d e c l a r e' s o np a r e sq u ec o n s i s t e ne nu n av a r i a b l e yd eu nm o d oq u ee su n od e` b o o l e a n o' , `f i x n u m ' ,` n m e r o' , ' R a c i o n a l ' ,o' f l o a t ' .C a d av a r i a b l et a m b i np u e d es e ru n al i s t ad el o s t o d a sl a sv a r i a b l e sd el a sq u es ed e c l a r ee ne lm i s m om o d o . S iu n av a r i a b l ee su n am a t r i z ,ys it o d o sl o se l e m e n t o sd el am a t r i zq u e s eh a c er e f e r e n c i at i e n eu nv a l o r ,e n t o n c e s` a r r a y( y i ,c o m p l e t ad i m 1 ,D i m 2 , . . . )" E nl u g a rd e a r r a y( y i ,d i m 1 ,D i m 2 ,. . . ) s ed e b eu t i l i z a rc u a n d os ed e c l a r ap o rp r i m e r av e zl o sl m i t e sd el am a t r i z .S i t o d o sl o se l e m e n t o sd el am a t r i zs o nd em o d o` f i x n u m' ( `f l o t a d o r ' ) ,u t i l i z a n ` F i x n u m' ( 'f l o a t' )e nv e zd e 'c o m p l e t o' .A d e m s ,s ic a d ae l e m e n t o d el am a t r i ze sd e lm i s m om o d o ,p o re j e m p l o` m' ,l u e g o m o d e _ d e c l a r e( c o m p l e t e a r r a y( y i ) ,m ) ) s ed e b eu t i l i z a rp a r al at r a d u c c i ne f i c a z . C d i g on u m r i c ou t i l i z a n d om a t r i c e sp o d r ac o r r e rm sr p i d o ,a ld e c l a r a rl a t a m a oe s p e r a d od el am a t r i z ,c o m oe n : m o d e _ d e c l a r e( c o m p l e t e a r r a y( a[ 1 0 ,1 0 ] ) ,f l o a t ) p a r au nn m e r od ep u n t of l o t a n t em a t r i zq u ee sd e1 0x1 0 . S ep u e d ed e c l a r a re lm o d od e lr e s u l t a d od eu n af u n c i nm e d i a n t ee lu s od e ` F u n c i n( f _ 1 ,f _ 2 ,. . . ) "c o m oa r g u m e n t o ,a q u ` f _ 1' , `f _ 2 ' ,. . . s o nl o sn o m b r e sd el a sf u n c i o n e s .P o re j e m p l ol ae x p r e s i n , m o d e _ d e c l a r e( [ f u n c i n( f _ 1 ,f _ 2 ,. . . ) ] ,f i x n u m ) d e c l a r aq u el o sv a l o r e sd e v u e l t o sp o rf _ 1` ' , `f _ 2 ' ,. . .s o n e n t e r o sd eu n as o l ap a l a b r a . ` M o d e d e c l a r e' e ss i n n i m od e 'm o d e _ d e c l a r e' .
F u n c i n :m o d e _ i d e n t i t y( < a r g _ 1 > ,< a r g _ 2 > ) U n af o r m ae s p e c i a lq u es eu t i l i z ac o n` m o d e _ d e c l a r e' y `m a c r o s" p a r ad e c l a r a r , p o re j e m p l o ,u n al i s t ad el i s t a sd ef l o n u m s ,uo t r o so b j e t o sd ed a t o sc o m p u e s t o s . E lp r i m e ra r g u m e n t od e` m o d e _ i d e n t i t y' e su nm o d od ev a l o rs i m p l e n o m b r eq u ed aa` m o d e _ d e c l a r e "( e sd e c i r ,u n od el o s` f l o a t' , `f i x n u m ' , ` N m e r o' , 'l i s t' ,o 'n i n g u n a' ) ,ye ls e g u n d oa r g u m e n t oe su n e x p r e s i nq u es ee v a l ays ed e v u e l v ec o m oe lv a l o rd e ` M o d e _ i d e n t i t y' .S i ne m b a r g o ,s ie lv a l o rd er e t o r n on oe s t p e r m i t i d op o r e lm o d od e c l a r a d oe ne lp r i m e ra r g u m e n t o ,u ne r r o roa d v e r t e n c i ae s s e a l a d o .L oi m p o r t a n t ee sq u ee lm o d od el ae x p r e s i n t a lc o m os ed e t e r m i n ap o re lq u eM a x i m aL i s pt r a d u c t o r ,s e r q u e ,d a d o c o m op r i m e ra r g u m e n t o ,i n d e p e n d i e n t ed et o d ol oq u es u c e d ee ne l s e g u n d oa r g u m e n t o .P o re j e m p l o ,` x :3 , 3 ;m o d e _ i d e n t i t y( f i x n u m ,x ) ;' p r o d u c eu ne r r o r .` M o d e _ i d e n t i t y( f l o n u m ,x )d e v u e l v e3 . 3 .E s t e t i e n eu n as e r i ed eu s o s ,p o re j e m p l o ,s iu s t e ds a b aq u e` p r i m e r o( l )' d e v u e l v eu n N m e r oe n t o n c e su s t e dp u e d ee s c r i b i r` m o d e _ i d e n t i t y( n m e r o ,p r i m e r o( l ) ) . S i ne m b a r g o ,u n af o r m am se f i c i e n t ed eh a c e r l os e r al ad ed e f i n i ru nn u e v o p r i m i t i v o , f i r s t n u m b( x ): :=b u i l d q( [ x ] ,m o d e _ i d e n t i t y( n m e r o ,x ) ) ; yu t i l i z a r` f i r s t n u m b "c a d av e zq u es et o m al ap r i m e r ad eu n al i s t ad e n m e r o s .
F u n c i n :r e m f u n c t i o n( < f _ 1 > ,. . . ,< f _ n > ) F u n c i n :r e m f u n c t i o n( t o d o s ) E l i m i n al a sa s i g n a c i o n e sd el a sd e f i n i c i o n e sd ef u n c i nd e l< f _ 1 >s m b o l o s ,. . . ,< f _ n > . L o sa r g u m e n t o sp u e d e ns e rn o m b r e sd ef u n c i o n e so r d i n a r i a s( c r e a d a sp o r ` :=' O 'd e f i n i r' )od ef u n c i o n e sm a c r o( c r e a d a sp o r `: := ' ) . ` R e m f u n c t i o n( t o d o s )' d e s l i g at o d a sl a sd e f i n i c i o n e sd ef u n c i o n e s . ` R e m f u n c t i o n' e v a l as u sa r g u m e n t o s .
333/633
28/08/13

` R e m f u n c t i o n' d e v u e l v eu n al i s t ad el o ss m b o l o sp a r al o sq u el af u n c i n d e f i n i c i ne si n d e p e n d i e n t e .' F a l s e 's ed e v u e l v ee nl u g a rd ec u a l q u i e r s m b o l op a r ae lq u en oh a yn i n g u n ad e f i n i c i nd el af u n c i n . ` R e m f u n c t i o n' n os ea p l i c aal a sf u n c i o n e sd em a t r i zos u b n d i c e f u n c i o n e s .` R e m a r r a y' s ea p l i c aae s t et i p od ef u n c i o n e s .
V a r i a b l eo p c i o n a l :s a v e d e f V a l o rp o rd e f e c t o :t r u e' C u a n d o` s a v e d e f' e s `t r u e ' ,l av e r s i nM a x i m ad eu n af u n c i nd eu s u a r i o c o n s e r v a d ac u a n d ol af u n c i ns et r a d u c e .E s t op e r m i t eq u ee l d e f i n i c i nq u es em o s t r a r p o rd i s p f u n` ' yq u el af u n c i nd e p u e d ee d i t a r . C u a n d o` s a v e d e f' e s 'f a l s e' ,l o sn o m b r e sd el a sf u n c i o n e st r a d u c i d a ss o n e l i m i n a d od el al i s t a` f u n c i o n e s' .
V a r i a b l eo p c i o n a l :t r a n s c o m p i l e V a l o rp o rd e f e c t o :t r u e' C u a n d o` t r a n s c o m p i l e' e s 't r u e' , 't r a d u c i r' y `t r a n s l a t e _ f i l e ' g e n e r a rd e c l a r a c i o n e sp a r ah a c e re lc d i g ot r a d u c i d om sa d e c u a d o p a r al ac o m p i l a c i n . ` C o m p f i l e' f i j a 't r a n s c o m p i l e :t r u e "p a r ae lr e s t o .
F u n c i n :t r a d u c i r( < f _ 1 > ,. . . ,< f _ n > ) F u n c i n :t r a d u c i r( f u n c i o n e s ) F u n c i n :t r a d u c i r( t o d o s ) T r a s l a d al a< f _ 1 >f u n c i o n e sd e f i n i d a sp o re lu s u a r i o ,. . . ,< f _ n >d e l L e n g u a j ed eM a x i m aaL i s pye v a l al a st r a d u c c i o n e sL i s p . N o r m a l m e n t el a sf u n c i o n e st r a d u c i d a ss ee j e c u t a nm sr p i d oq u el o so r i g i n a l e s . ` T r a d u c i r( t o d o s )' o `t r a d u c i r( f u n c i o n e s )" t r a d u c et o d a sl a s f u n c i o n e sd e f i n i d a sp o re lu s u a r i o . F u n c i o n e sat r a d u c i rd e b e r ni n c l u i ru n al l a m a d aa` m o d e _ d e c l a r e' a lp r i n c i p i o ,c u a n d os e ap o s i b l ec o ne lf i nd ep r o d u c i rm se f i c i e n t e c d i g o .P o re j e m p l o : f( x _ 1 ,x _ 2 ,. . . ) :=b l o q u e( [ v _ 1 ,v _ 2 ,. . . ] m o d e _ d e c l a r e( v _ 1 ,m o d e _ 1 ,v _ 2 ,m o d e _ 2 ,. . . ) ,. . . ) d o n d ee l< x _ 1 > ,< x _ 2 > ,. . .s o nl o sp a r m e t r o sal af u n c i ny l a< v _ 1 > ,< v _ 2 > ,. . .s o nl a sv a r i a b l e sl o c a l e s . L o sn o m b r e sd el a sf u n c i o n e st r a d u c i d a ss ee l i m i n a nd el a sf u n c i o n e s` ' l i s t as i` s a v e d e f' e s 'f a l s e' ( v e ra b a j o )ys ea a d e nal a ' P r o p s 'l i s t a s . L a sf u n c i o n e sn od e b e ns e rt r a d u c i d o sam e n o sq u ee s t nc o m p l e t a m e n t ed e p u r a d a s . L a se x p r e s i o n e ss es u p o n es i m p l i f i c a r ,s in ol os o n ,p e r oc o r r e c t a c d i g on o p t i m os eg e n e r a .P o rl ot a n t o ,e lu s u a r i on od e b ee s t a b l e c e r e l" c a m b i oa `f a l s e' ` s i m pl ac u a li n h i b el as i m p l i f i c a c i nd el a e x p r e s i o n e sp a r as e rt r a d u c i d o s . E li n t e r r u p t o r` t r a d u c i r " ,s i` t r u e' ,h a c eq u el at r a d u c c i na u t o m t i c ad e l af u n c i nd eu nu s u a r i oaL i s p . T e n g ae nc u e n t aq u el a sf u n c i o n e st r a d u c i d a sn of u n c i o n e nd ef o r m ai d n t i c aal af o r m a l oh i c i e r o na n t e sd el at r a d u c c i nq u ep u e d e ne x i s t i rc i e r t a si n c o m p a t i b i l i d a d e s e n t r el av e r s i nd eL i s pyM a x i m a .P r i n c i p a l m e n t e ,l a' r a t a ' f u n c i nc o nm sd eu na r g u m e n t oyl af u n c i n` r a t v a r s' n od e b es e ru t i l i z a d os il a sv a r i a b l e ss o n` m o d e _ d e c l a r e ' 'dc a n n i c a e x p r e s i o n e sr a c i o n a l e s( C R E ) .T a m b i ne l` p r e d e r r o r :a j u s t ef a l s e' n os et r a d u c i r . ` S a v e d e f' -s i `t r u e 'h a r q u el av e r s i nM a x i m ad eu nu s u a r i o f u n c i np a r ap e r m a n e c e rc u a n d ol af u n c i ne s' t r a n s l a t e ' 'd .E s t e p e r m i t el ad e f i n i c i nq u es em o s t r a r p o r` d i s p f u n' yp e r m i t ea l f u n c i o n a rae d i t a r . ` T r a n s r u n' -s i `f a l s e 'h a r q u el av e r s i ni n t e r p r e t a d ad et o d o s f u n c i o n e sq u es ee j e c u t a n( s i e m p r eyc u a n d ot o d a v ae s t na l r e d e d o r )e nl u g a rd e l av e r s i nt r a d u c i d a . E lr e s u l t a d od e v u e l t op o r' t r a d u c i r 'e su n al i s t ad el o sn o m b r e sd el o s t r a d u c i d o sf u n c i o n e s .
F u n c i n :t r a n s l a t e _ f i l e( < m a x i m a _ f i l e n a m e > ) F u n c i n :t r a n s l a t e _ f i l e( < m a x i m a _ f i l e n a m e > ,< l i s p _ f i l e n a m e > )
334/633
28/08/13

C o n v i e r t eu na r c h i v od ec d i g od eM a x i m ae nu na r c h i v od ec d i g oL i s p . ` T r a n s l a t e _ f i l e' d e v u e l v eu n al i s t ad et r e sn o m b r e s :e ln o m b r ed e e la r c h i v od eM a x i m a ,e ln o m b r ed e la r c h i v od eL i s p ,ye ln o m b r ed ea r c h i v o q u ec o n t i e n ei n f o r m a c i na d i c i o n a la c e r c ad el at r a d u c c i n . ` T r a n s l a t e _ f i l e' e v a l as u sa r g u m e n t o s . ` T r a n s l a t e _ f i l e( "f o o . m a c" ) ;c a r g a( "f o o . L I S P" )' e se lm i s m oq u ee l ` l o t ed ec o m a n d o s( "f o o . m a c" )' ae x c e p c i nd ec i e r t a sr e s t r i c c i o n e s ,l o s e lu s od e` ' '' y ' %' ,p o re j e m p l o . ` T r a n s l a t e _ f i l e( < m a x i m a _ f i l e n a m e > )' t r a d u c eu na r c h i v od eM a x i m a < m a x i m a _ f i l e n a m e >au nf i c h e r oL i s pd en o m b r es i m i l a r .P o re j e m p l o , ` F o o . m a c' s et r a d u c ee n `f o o . L I S P ' .E ln o m b r ed e lf i c h e r oM a x i m ap u e d e i n c l u i ru nn o m b r ed ed i r e c t o r i oon o m b r e s ,e nc u y oc a s ol as a l i d aL i s p a r c h i v os ee s c r i b ee ne lm i s m od i r e c t o r i od e s d ee lq u el ae n t r a d ad eM a x i m a v i e n e . ` T r a n s l a t e _ f i l e( < m a x i m a _ f i l e n a m e > ,< l i s p _ f i l e n a m e > )' t r a d u c eu n M a x i m aa r c h i v o< m a x i m a _ f i l e n a m e >e nu n< l i s p _ f i l e n a m e >a r c h i v oL i s p . ` T r a n s l a t e _ f i l e' i g n o r al ae x t e n s i nd e ln o m b r ed e la r c h i v o ,e ns uc a s o ,d e ` L i s p _ f i l e n a m e' ,l ae x t e n s i nd e ln o m b r ed e lf i c h e r od es a l i d aL i s pe s s i e m p r e` L I S P .E ln o m b r ed e lf i c h e r oL i s pp u e d ei n c l u i ru nn o m b r ed ed i r e c t o r i oo n o m b r e s ,e nc u y oc a s oe la r c h i v od es a l i d aL i s ps ee s c r i b e ne ne l d i r e c t o r i oe s p e c i f i c a d o . ` T r a n s l a t e _ f i l e' t a m b i ne s c r i b eu na r c h i v od em e n s a j e sd ea d v e r t e n c i aT r a d u c t o r d ed i v e r s o sg r a d o sd eg r a v e d a d .L ae x t e n s i nd e ln o m b r ed ee s t e a r c h i v oe s` U N L I S P' .E s t ea r c h i v op u e d ec o n t e n e ri n f o r m a c i nv a l i o s a , a u n q u ep o s i b l e m e n t eo s c u r a ,p a r al al o c a l i z a c i nd ee r r o r e se ne lc d i g ot r a d u c i d o . E la r c h i v o` U N L I S P "s i e m p r es ee s c r i b ee ne lm i s m od i r e c t o r i od e s d ee l q u ev i e n el ae n t r a d ad eM a x i m a . ` T r a n s l a t e _ f i l e' e m i t ec d i g oL i s pq u eh a c eq u ea l g u n a sd e c l a r a c i o n e s yl a sd e f i n i c i o n e sp a r at e n e re f e c t ot a np r o n t oc o m oe lc d i g oL i s pe s c o m p i l a d o .C o n s u l t e` c o m p i l e _ f i l e' p a r am si n f o r m a c i ns o b r ee s t et e m a . V a s et a m b i n T r _ a r r a y _ a s _ r e f` ' , T r _ b o u n d _ f u n c t i o n _ a p p l y p` ' , T r _ e x p o n e n t` ' , T r _ f i l e _ t t y _ m e s s a g e s p` ' , T r _ f l o a t _ c a n _ b r a n c h _ c o m p l e x` ' , T r _ f u n c t i o n _ c a l l _ d e f a u l t` ' , T r _ n u m e r` ' , T r _ o p t i m i z e _ m a x _ l o o p` ' , T r _ s e m i c o m p i l e` ' , T r _ s t a t e _ v a r s` ' , T r _ w a r n i n g s _ g e t` ' , T r _ w a r n _ b a d _ f u n c t i o n _ c a l l s` ' , T r _ w a r n _ f e x p r` ' , T r _ w a r n _ m e v a l` ' , T r _ w a r n _ m o d e` ' , T r _ w a r n _ u n d e c l a r e d` ' , y` t r _ w a r n _ u n d e f i n e d _ v a r i a b l e' .
V a r i a b l eo p c i o n a l :t r a n s r u n V a l o rp o rd e f e c t o :t r u e' C u a n d o` t r a n s r u n' e s 'f a l s e' h a r q u el av e r s i ni n t e r p r e t a d ad e t o d a sl a sf u n c i o n e sq u es ee j e c u t a n( s i e m p r eq u et o d a v ae s t na l r e d e d o r )yn o q u el av e r s i nt r a d u c i d a .
V a r i a b l eo p c i o n a l :t r _ a r r a y _ a s _ r e f V a l o rp o rd e f e c t o :t r u e' S i` t r a n s l a t e _ f a s t _ a r r a y s' e s 'f a l s e' ,l a sr e f e r e n c i a sd em a t r i ze nL i s p c d i g oe m i t i d op o r` t r a n s l a t e _ f i l e' s ev e na f e c t a d o sp o r `t r _ a r r a y _ a s _ r e f ' . C u a n d o` t r _ a r r a y _ a s _ r e f' e s `t r u e ' ,s ee v a l a nl o sn o m b r e sd el am a t r i z , d el oc o n t r a r i ol o sn o m b r e sd em a t r i za p a r e c e nc o m os m b o l o sl i t e r a l e se ne lc d i g ot r a d u c i d o . ` T r _ a r r a y _ a s _ r e f' n ot i e n ee f e c t os i `t r a n s l a t e _ f a s t _ a r r a y s 'e s ` T r u e' .
V a r i a b l eo p c i o n a l :t r _ b o u n d _ f u n c t i o n _ a p p l y p V a l o rp o rd e f e c t o :t r u e' C u a n d o` t r _ b o u n d _ f u n c t i o n _ a p p l y p' e s `t r u e ' ,M a x i m ad au n aa d v e r t e n c i a s iu n av a r i a b l ed e t e r m i n a d a( t a lc o m ou na r g u m e n t od el af u n c i n )s ee n c u e n t r as i e n d o u t i l i z a d oc o m ou n af u n c i n .` T r _ b o u n d _ f u n c t i o n _ a p p l y p' n oa f e c t a E lc d i g og e n e r a d oe nt a l e sc a s o s . P o re j e m p l o ,u n ae x p r e s i nc o m o` g( f ,x )=f( x1 )l av o l u n t a d d e s e n c a d e n a re lm e n s a j ed ea d v e r t e n c i a .
335/633
28/08/13

V a r i a b l eo p c i o n a l :t r _ f i l e _ t t y _ m e s s a g e s p V a l o rp o rd e f e c t o :f a l s e' C u a n d o` t r _ f i l e _ t t y _ m e s s a g e s p' e s `t r u e ' ,l o sm e n s a j e sg e n e r a d o sp o r ` T r a n s l a t e _ f i l e' e nl at r a d u c c i nd eu na r c h i v os em o s t r a r e nl a c o n s o l ays ei n s e r t ae ne la r c h i v oU N L I S P .C u a n d o` f a l s o' ,m e n s a j e s s o b r el at r a d u c c i nd e la r c h i v os l os ei n s e r t ae ne lU N L I S P a r c h i v o .
V a r i a b l eo p c i o n a l :t r _ f l o a t _ c a n _ b r a n c h _ c o m p l e x V a l o rp o rd e f e c t o :t r u e' I n d i c ae lt r a d u c t o rM a x i m a a L i s ps u p o n e rq u el a sf u n c i o n e s ` A c o s' , 'a s i n' , à s e c 'y` a c s c "p u e d e nd e v o l v e rr e s u l t a d o sc o m p l e j o s . E le f e c t oo s t e n s i b l ed e l` t r _ f l o a t _ c a n _ b r a n c h _ c o m p l e x' e sl a s i g u i e n t e .S i ne m b a r g o ,p a r e c eq u ee s t ab a n d e r an ot i e n ee f e c t oe n l as a l i d ad e lt r a d u c t o r . C u a n d oe s` t r u e' y à c o s( x )e se lm o d od e` n i n g u n a ' ,a u n q u e' x 'e s d em o d o' f l o a t '( s e g nl oe s t a b l e c i d op o r` m o d e _ d e c l a r e' ) .C u a n d o` f a l s e' ,e n t o n c e s ` A c o s( x )' e sd em o d o `f l o t a d o r 's iys l os i` x' e sd em o d od ef l o t a d o r ` ' .
V a r i a b l eo p c i o n a l :t r _ f u n c t i o n _ c a l l _ d e f a u l t V a l o rp o rd e f e c t o :` G e n e r a l' ' F a l s e 's i g n i f i c ar e n u n c i a ryl l a m a r` m e v a l' ,s i g n i f i c a 'e x p r' a s u m e nL i s p f u n c i na r gf i j a .` G e n e r a l' ,p o rd e f e c t od ae lc d i g od eb u e n a M e x p r s` ' y `m l e x p r s ' ,p e r on o` m a c r o s .` G e n e r a l' a s e g u r a a s i g n a c i o n e sd ev a r i a b l e ss o nc o r r e c t a se ne lc d i g oc o m p i l a d o .E n` G e n e r a l' m o d o ,c u a n d os et r a d u c eF( X ) ,s iFe su n av a r i a b l el i g a d a ,e n t o n c e s s u p o n eq u e` s ea p l i c a n( f ,[ x ] ) "s ee n t i e n d e ,yt r a d u c eu ne j e m p l o , c o nl aa d v e r t e n c i aa d e c u a d a .N oh a yn e c e s i d a dd ed e s a c t i v a re s t ao p c i n . C o nl ac o n f i g u r a c i np r e d e t e r m i n a d a ,n oh a ym e n s a j e sd ea d v e r t e n c i ai m p l i c al ap l e n a c o m p a t i b i l i d a dd ec d i g ot r a d u c i d oyc o m p i l a d oc o ne lM a x i m a i n t r p r e t e .
V a r i a b l eo p c i o n a l :t r _ n u m e r V a l o rp o rd e f e c t o :f a l s e' C u a n d o` t r _ n u m e r' e s `t r u e ' ,` p r o p i e d a d e sn u m e r "s eu t i l i z a np a r al o s t o m o s q u ee l l o st i e n e n ,p o re j e m p l o ,` %p i' .
V a r i a b l eo p c i o n a l :t r _ o p t i m i z e _ m a x _ l o o p V a l o rp o rd e f e c t o :1 0 0 ` T r _ o p t i m i z e _ m a x _ l o o p' e se ln m e r om x i m od ev e c e sq u ee l m a c r o e x p a n s i nyo p t i m i z a c i np a s ed e lt r a d u c t o rs er e p e t i r e nl ac o n s i d e r a c i nd eu nf o r m u l a r i o .E s t os eh a c ep a r ad e t e c t a re r r o r e sd ee x p a n s i nd em a c r o , yn ot e r m i n ap r o p i e d a d e sd eo p t i m i z a c i n .
V a r i a b l eo p c i o n a l :t r _ s e m i c o m p i l e V a l o rp o rd e f e c t o :f a l s e' C u a n d o` t r _ s e m i c o m p i l e' e s `t r u e ' ,` t r a n s l a t e _ f i l e' y `c o m p f i l e ' f o r m u l a r i o sd es a l i d aq u es e r nm a c r o e x p a n d e dp e r on oc o m p i l a d oe n c d i g od em q u i n ap o re lc o m p i l a d o rd eL i s p .
V a r i a b l ed e ls i s t e m a :t r _ s t a t e _ v a r s V a l o rp o rd e f e c t o : [ T r a n s c o m p i l e ,t r _ s e m i c o m p i l e ,t r _ w a r n _ u n d e c l a r e d ,t r _ w a r n _ m e v a l , t r _ w a r n _ f e x p r ,t r _ w a r n _ m o d e ,t r _ w a r n _ u n d e f i n e d _ v a r i a b l e , t r _ f u n c t i o n _ c a l l _ d e f a u l t ,t r _ a r r a y _ a s _ r e f ,t r _ n u m e r ] L al i s t ad el o sm o d i f i c a d o r e sq u ea f e c t a nal af o r m ad el at r a d u j o d es a l i d a .E s t ai n f o r m a c i ne s t i lp a r al a sp e r s o n a sc u a n d os et r a t ad es i s t e m a s p a r ad e p u r a re lt r a d u c t o r .A lc o m p a r a re lp r o d u c t ot r a d u c i d oa l oq u ed e b e r ah a b e rs i d op r o d u c i d op o ru ne s t a d od e t e r m i n a d o ,e sp o s i b l e l o c a l i z a ral o sb i c h o s .
F u n c i n :t r _ w a r n i n g s _ g e t( ) I m p r i m eu n al i s t ad ea d v e r t e n c i a sq u es eh a nd a d op o re lt r a d u c t o r
336/633
28/08/13
d u r a n t el at r a d u c c i na c t u a l .
V a r i a b l eo p c i o n a l :t r _ w a r n _ b a d _ f u n c t i o n _ c a l l s V a l o rp o rd e f e c t o :t r u e' -D au n aa d v e r t e n c i ac u a n d oc u a n d os eh a c e nl l a m a d a saf u n c i o n e sq u e p u e d en os e rc o r r e c t a ,d e b i d oad e c l a r a c i o n e si n c o r r e c t a sq u es eh i c i e r o ne n t r a d u c i rt i e m p o .
V a r i a b l eo p c i o n a l :t r _ w a r n _ f e x p r V a l o rp o rd e f e c t o :c o m p f i l e' -D au n aa d v e r t e n c i as is ee n c u e n t r a nF E X P R s .F E X P R sd e b e q u en o r m a l m e n t en os ep u e d e ne m i t i re ne lc d i g ot r a d u c i d o ,t o d oe s p e c i a ll e g t i m a f o r m a sp r o g r a m as et r a d u c e n .
V a r i a b l eo p c i o n a l :t r _ w a r n _ m e v a l V a l o rp o rd e f e c t o :c o m p f i l e' -D au n aa d v e r t e n c i as il af u n c i n` m e v a l' s el l a m a .S i` m e v a l' s el l a m aq u ei n d i c ap r o b l e m a se nl at r a d u c c i n .
V a r i a b l eo p c i o n a l :t r _ w a r n _ m o d e V a l o rp o rd e f e c t o :` a l l' -D au n aa d v e r t e n c i ac u a n d ol a sv a r i a b l e ss el e sa s i g n a nv a l o r e si n a p r o p i a d o p a r as um o d o .
V a r i a b l eo p c i o n a l :t r _ w a r n _ u n d e c l a r e d V a l o rp o rd e f e c t o :c o m p i l a c i n' -D e t e r m i n ac u n d oe n v i a ra v i s o ss o b r ev a r i a b l e sn od e c l a r a d a sa e lT T Y .
V a r i a b l eo p c i o n a l :t r _ w a r n _ u n d e f i n e d _ v a r i a b l e V a l o rp o rd e f e c t o :` a l l' -D au n aa d v e r t e n c i ac u a n d os ec o n s i d e r a nl a sv a r i a b l e sg l o b a l e sd e f i n i d a s .
F u n c i n :c o m p i l e _ f i l e( < f i l e n a m e > ) F u n c i n :c o m p i l e _ f i l e( < f i l e n a m e > ,< c o m p i l e d _ f i l e n a m e > ) F u n c i n :c o m p i l e _ f i l e( < f i l e n a m e > ,< c o m p i l e d _ f i l e n a m e > ,< l i s p _ f i l e n a m e > ) T r a d u c ee la r c h i v o< n o m b r e D e A r c h i v o >M a x i m aaL i s p ,e j e c u t ae lL i s p c o m p i l a d o ry ,s il at r a d u c c i nyc o m p i l a c i nd e x i t o ,c a r g a s e lc d i g oc o m p i l a d oe nM a x i m a . ` C o m p i l e _ f i l e' d e v u e l v eu n al i s t ad el o sn o m b r e sd el o sc u a t r oa r c h i v o s :e l a r c h i v oo r i g i n a lM a x i m a ,l at r a d u c c i nL i s p ,n o t a ss o b r el at r a d u c c i n , ye lc d i g oc o m p i l a d o .S il ac o m p i l a c i nf a l l a ,e lc u a r t op u n t o e s' f a l s e ' . A l g u n a sd e c l a r a c i o n e syd e f i n i c i o n e st e n d r ne f e c t ot a np r o n t oc o m oe lL i s p c d i g oe sc o m p i l a d o( s i nc a r g a re lc d i g oc o m p i l a d o ) .E s t o s i n c l u y ef u n c i o n e sd e f i n i d a sc o nl a` := o p e r a d o r ,m a c r o sd e f i n e n c o ne l` : :=' o p e r a d o r , à l i a s ' ,' d e c l a r a r ' ,` d e f i n e _ v a r i a b l e' , M o d e _ d e c l a r e` ' y ì n f i j o ' ,` m a t c h f i x' , `n o f i x ' ,' s u f i j o ' , ` P r e f i j o' y `c o m p f i l e ' . A s i g n a c i o n e syl l a m a d a saf u n c i o n e sn os ee v a l a nh a s t aq u ee l s ec a r g ae lc d i g oc o m p i l a d o .E np a r t i c u l a r ,e ne la r c h i v od eM a x i m a , a s i g n a c i o n e sal a sb a n d e r a sd et r a d u c c i n( ` t r _ n u m e r " ,e t c )n ot i e n e n e f e c t os o b r el at r a d u c c i n . < f i l e n a m e >n op u e d e nc o n t e n e r` :d e c l a r a c i o n e sl i s p . ` C o m p i l e _ f i l e' e v a l as u sa r g u m e n t o s .
F u n c i n :d e c l a r e _ t r a n s l a t e d( < f _ 1 > ,< f _ 2 > ,. . . ) C u a n d os et r a d u c eu na r c h i v od ec d i g od eM a x i m aaL i s p ,e si m p o r t a n t e
337/633
28/08/13

p a r ae lt r a d u c t o rp a r as a b e rq u f u n c i o n e ss ev ee ne la r c h i v os o n q u es el l a m a r f u n c i o n e st r a d u c i d a soc o m p i l a d a s ,yc u l e s s o ns l of u n c i o n e sd eM a x i m aon od e f i n i d o s .P o n e rl ap r e s e n t ed e c l a r a c i n e nl ap a r t es u p e r i o rd e la r c h i v o ,q u el ep e r m i t es a b e rq u eap e s a rd eu ns m b o l oh a c e q u ea nn ot i e n eu nv a l o rd ef u n c i nL i s p ,t e n d r u n ae n p e d i rt i e m p o .` ( M F U N C T I O NL A SL L A M A D A Sf na r g 1a r g 2. . . ) "s eg e n e r ac u a n d o e lt r a d u c t o rn os a b e` f n' v aas e ru n af u n c i nL i s p .
37 Flujo del Programa

L i s pyM a x i m a G a r b a g eC o l l e c t i o n I n t r o d u c c i nal ap r o g r a m a c i n F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n
37.1 Lisp y Maxima

M a x i m ae s t e s c r i t oe nL i s p ,ye sf c i la c c e d e ral a sf u n c i o n e sL i s py l a sv a r i a b l e sd eM a x i m ayv i c e v e r s a .L i s pyM a x i m as o ns m b o l o s q u es ed i s t i n g u ep o ru n ac o n v e n c i nd en o m e n c l a t u r a .U ns m b o l oL i s pq u ec o m i e n z ac o n u ns i g n od ed l a r' $ 'c o r r e s p o n d eau ns m b o l oM a x i m as i ne ld l a r f i r m a r . U ns m b o l oM a x i m ae lc u a lc o m i e n z ac o nu ns i g n od ei n t e r r o g a c i n' ? 'c o r r e s p o n d ea u ns m b o l oL i s ps i nd i c h os i g n o .P o re j e m p l o ,e lM a x i m a s m b o l o` f o o' s ec o r r e s p o n d ec o ne ls m b o l oL i s p `$F O O ' ,m i e n t r a sq u ee lM a x i m a s m b o l o` ?f o o' s ec o r r e s p o n d ec o ne ls m b o l oL i s p `F O O ' .T e n g ae nc u e n t aq u e` ?F o o' s ee s c r i b es i ne s p a c i oe n t r e' ? 'y` f o o' ,d el oc o n t r a r i op o d r as e r c o n f u n d i d o` d e s c r i b e( "f o o" ) . G u i n' ' ,a s t e r i s c o' * ' ,uo t r o sc a r a c t e r e se s p e c i a l e se ns m b o l o sL i s p d e b es e re s c a p a d op o rb a r r ai n v e r t i d a' \ 'e ne lq u ea p a r e c e ne ne lc d i g od eM a x i m a .P a r a e j e m p l o ,e li d e n t i f i c a d o rL i s p` *f o o b a r*' s ee s c r i b e ` ?\*f o o\b a r\* 'e n M a x i m a . C d i g oL i s pp u e d ee j e c u t a r s ed e s d eu n as e s i nd eM a x i m a .U n n i c o l n e ad eL i s p( q u ec o n t i e n eu n aom sf o r m a s )p u e d es e re j e c u t a d ap o re l ` c o m a n d oe s p e c i a l :l i s p .P o re j e m p l o , ( %I 1 ) :l i s p( f o o$x$y ) l l a m aal af u n c i nL i s p` f o o' c o nv a r i a b l e sM a x i m a 'x' y 'y' c o m o a r g u m e n t o s .E l` :c o n s t r u c c i nl i s p "p u e d ea p a r e c e re ne lm o d oi n t e r a c t i v o oe nu nf i c h e r oe sp r o c e s a d op o rl o t e` ' o 'd e m o' ,p e r on oe nu na r c h i v o p r o c e s a d op o rl o a d' ,` b a t c h l o a d ' , T r a n s l a t e _ f i l e` ' o `c o m p i l e _ f i l e ' . L af u n c i n` t o _ l i s p' a b r eu n as e s i nL i s pi n t e r a c t i v o .I n t r o d u c c i n ` ( T o m a x i m a )' c i e r r al as e s i nc o nL i s pyv u e l v eaM a x i m a . F u n c i o n e syv a r i a b l e sL i s pq u ed e b e r ns e rv i s i b l e se nM a x i m ac o m o f u n c i o n e syv a r i a b l e sc o nn o m b r e sc o r r i e n t e s( s i np u n t u a c i o ne s p e c i a l ) d e b e nt e n e rn o m b r e st i p oL i s pq u ec o m i e n c e nc o ne ls i g n od ed l a r' $ ' . M a x i m ae sc a s e s e n s i t i v e ,d i s t i n g u ee n t r em i n s c u l a sy m a y s c u l a se nl o si d e n t i f i c a d o r e s .H a ya l g u n a sr e g l a sq u er i g e nl a t r a d u c c i nd en o m b r e se n t r eL i s pyM a x i m a . 1 .U ni d e n t i f i c a d o rL i s pn oe n c e r r a d oe nb a r r a sv e r t i c a l e sc o r r e s p o n d eau n M a x i m ai d e n t i f i c a d o re nm i n s c u l a s .S ie li d e n t i f i c a d o rL i s pe s m a y s c u l a s ,m i n s c u l a s ,om i x t o ,s ei g n o r a .P o re j e m p l o ,L i s p ` $F o o' , `$F O O 'y` $f o o' t o d a sc o r r e s p o n d e naM a x i m a `f o o ' .P e r o e s t os ed e b ea` $f o o' , `$F O O 'y` $F o o' s ec o n v i e r t e np o rl a L i s pl e c t o rp o rd e f e c t oh a s t ae ls m b o l oL i s p` $f o o' . 2 .U ni d e n t i f i c a d o rL i s pq u ee st o d oe nm a y s c u l a soe nm i n s c u l a sy e n c e r r a d oe nb a r r a sv e r t i c a l e sc o r r e s p o n d eau ni d e n t i f i c a d o rM a x i m ac o n e lc a s oc o n t r a r i o .E sd e c i r ,s ec a m b i aam a y s c u l a sym i n s c u l a s m i n s c u l a sam a y s c u l a s .P o re j e m p l o ,` L i s p|$F O O|' y '|$f o o|' c o r r e s p o n d e naM a x i m a` f o o' y `F O O ' ,r e s p e c t i v a m e n t e . 3 .U ni d e n t i f i c a d o rL i s pq u es em e z c l ad em a y s c u l a sym i n s c u l a sy e n c e r r a d oe nb a r r a sv e r t i c a l e sc o r r e s p o n d eau ni d e n t i f i c a d o rM a x i m ac o n e lm i s m oc a s o .P o re j e m p l o ,` L i s p|$f o o|' c o r r e s p o n d eaM a x i m a `F o o ' . E l` #$' m a c r oL i s pp e r m i t ee lu s od ee x p r e s i o n e sd eM a x i m ae nL i s p c d i g o .` #$E x p r$' s ee x p a n d eau n ae x p r e s i nL i s pe q u i v a l e n t eal am x i m a < e x p r >e x p r e s i n . ( M s e t q$f o o#$[ x ,y ]$ ) E s t ot i e n ee lm i s m oe f e c t oq u e : ( %I 1 )f o o :[ x ,y ] ; L af u n c i nL i s pd i s p l a` ' i m p r i m eu n ae x p r e s i ne nf o r m a t oM a x i m a . ( %I 1 ) :l i s p#$[ x ,y ,z ]$ ( M l i s t( S I M P )$X$Y$Z ) ( %I 1 ) :l i s p( d i s p l a' ( ( m l i s tS I M P )$X$Y$Z ) )
338/633
28/08/13
[ X ,y ,z ] N I L
L a sf u n c i o n e sd e f i n i d a se nM a x i m an os o nf u n c i o n e sL i s po r d i n a r i a s .L a L i s pf u n c i n` m f u n c a l l' l l a m aau n af u n c i nM a x i m a .P o re j e m p l o : ( %I 1 )f o o( x ,y ) :=x*y$ ( %I 2 ) :l i s p( m f u n c a l l' $f o o 'a' b ) ( ( M t i m e sS I M P )A B ) A l g u n a sf u n c i o n e sL i s ps o nc o m p a r t i d a se ne lp a q u e t eM a x i m a ,as a b e r ,l a s i g u i e n t e . c o m p l e m e n t a rc o n t i n u a r// f l o a ta r r a yf u n c t i o n p e x pe s c u c h a rs i g n u m a t a na s i na c o s a s i n ha c o s ha t a n h t a n hc o s hs i n h T a nd e s c a n s om c d
37.2 Recoleccin de Basura

L ac o m p u t a c i ns i m b l i c at i e n d eac r e a ru n ag r a nc a n t i d a dd eb a s u r a( t e m p o r a l or e s u l t a d o si n t e r m e d i o sq u ee v e n t u a l m e n t en ou t i l i z a d o s ) ,ye f i c a z e lm a n e j od ee s t op u e d es e rc r u c i a lp a r al af i n a l i z a c i nc o n x i t od ea l g u n o s p r o g r a m a s . B a j oG C L ,e ns i s t e m a sU N I Xd o n d el al l a m a d aa ls i s t e m ae sm p r o t e c t d i s p o n i b l e s( i n c l u y e n d oS u nO S4 . 0ya l g u n a sv a r i a n t e sd eB S D )u ne s t r a t i f i c a d o r e c o l e c c i nd eb a s u r ae s t d i s p o n i b l e .E s t ol i m i t al ac o l e c c i nd ep g i n a s q u es eh a ne s c r i t or e c i e n t e m e n t e .C o n s u l t el ad o c u m e n t a c i nd eG C Lb a j o A s i g n a ryG B C .An i v e lL i s ph a c e r( s e t qs i: :*n o t i f y g b c*t ) l ea y u d a r ad e t e r m i n a rq u r e a sp u e d e nn e c e s i t a rm se s p a c i o . P a r ao t r o sL i s p sq u es ee j e c u t a nM a x i m a ,r e m i t i m o sa ll e c t o ral a d o c u m e n t a c i nd ee s eL i s ps o b r ec m oc o n t r o l a rG C .
37.3 Introduccin a la programacin

M a x i m ao f r e c eu nb u c l e` d o' p a r al ai t e r a c i n ,a s c o m om sp r i m i t i v o c o n s t r u c c i o n e st a l e sc o m o` i r' .
37.4 Funciones y variables para la programacin

F u n c i n :b a c k t r a c e( ) F u n c i n :b a c k t r a c e( < n > ) I m p r i m el ap i l ad el l a m a d a s ,e sd e c i r ,l al i s t ad ef u n c i o n e sq u es ep e d a l af u n c i na c t i v ae ne s em o m e n t o . ` B a c k t r a c e( )i m p r i m et o d al ap i l ad el l a m a d a s . ` B a c k t r a c e( < n > )' i m p r i m el o s< n >f u n c i o n e sm sr e c i e n t e s ,i n c l u y e n d o l af u n c i na c t i v ae ne s em o m e n t o . ` B a c k t r a c e' s ep u e d el l a m a rd e s d eu ns c r i p t ,u n af u n c i nol a i n t e r a c t i v od e ls i s t e m a( n os l oe nu nc o n t e x t od ed e p u r a c i n ) . E j e m p l o s : *` B a c k t r a c e( )i m p r i m et o d al ap i l ad el l a m a d a s . ( %I 1 )h( x ) :=g( x/7 )$ ( %I 2 )g( x ) :=f( x 1 1 )$ ( %I 3 )f( x ) :=E( x^2 )$ ( %I 4 )e( x ) :=( t r a z a d oi n v e r s o( ) ,2*x+1 3 )$ ( %I 5 )h( 1 0 ) ; #0 :e( x=4 4 8 9 / 4 9 ) #1 :f( x=6 7/7 ) #2 :g( x=1 0 / 7 ) #3 :h( x=1 0 ) 9 6 1 5 ( %O 5 )4 9 *` B a c k t r a c e( < n > )' i m p r i m el o s< n >f u n c i o n e sm sr e c i e n t e s , i n c l u y e n d ol af u n c i na c t i v ae ne s em o m e n t o . ( %I 1 )h( x ) :=( t r a z a d oi n v e r s o( 1 ) ,g( x/7 ) )$ ( %I 2 )g( x ) :=( t r a z a d oi n v e r s o( 1 ) ,f( x 1 1 ) )$ ( %I 3 )f( x ) :=( t r a z a d oi n v e r s o( 1 ) ,e( x^2 ) )$ ( %I 4 )e( x ) :=( t r a z a d oi n v e r s o( 1 ) ,2*x+1 3 )$ ( %I 5 )h( 1 0 ) ; #0 :h( x=1 0 ) #0 :g( x=1 0 / 7 ) #0 :f( x=6 7/7 ) #0 :e( x=4 4 8 9 / 4 9 ) 9 6 1 5 ( %O 5 )4 9
339/633
28/08/13
O p e r a d o re s p e c i a l :h a c e r L ad e c l a r a c i n` h a c e r' s eu t i l i z ap a r ar e a l i z a rl ai t e r a c i n .D e b i d oas u g r a ng e n e r a l i d a dd el ad e c l a r a c i nd e` h a c e r' s ed e s c r i b i r e nd o sp a r t e s . E np r i m e rl u g a rl af o r m am su s u a l ,q u ee sa n l o g aal au t i l i z a d a e nv a r i o so t r o sl e n g u a j e sd ep r o g r a m a c i n( F o r t r a n ,A l g o l ,P L/I , e t c )y ,ac o n t i n u a c i ns em e n c i o n a r nl a so t r a sc a r a c t e r s t i c a s . H a yt r e sv a r i a n t e sd ee s t af o r m aq u es ed i f e r e n c i a ns l oe ns u c o n d i c i o n e sd et e r m i n a c i n .E l l o ss o n : *` P a r a< v a r i a b l e > :p a s ot h r u < l i m i t >h a c e r' *` P a r a< v a r i a b l e > :p a s om i e n t r a s < c o n d i c i n >h a c e r' *` P a r a< v a r i a b l e > :p a s o am e n o s< c o n d i c i n >h a c e r' ( P o ro t r ap a r t e ,e l' p a s o 's ep u e d ed a rd e s p u sd el at e r m i n a c i n c o n d i c i nol m i t e . ) , ,< l i m i t > ,yp u e d es e rc u a l q u i e r e x p r e s i o n e s .S ie li n c r e m e n t oe sd e1ac o n t i n u a c i n ," `p a s o1' " p u e d eo m i t i r s e . L ae j e c u c i nd el as e n t e n c i ad os e` ' p o rp r i m e r aa s i g n a c i n l aal a< v a r i a b l e >( e na d e l a n t el l a m a d oe l v a r i a b l ed ec o n t r o l ) .E n t o n c e s :( 1 )S il av a r i a b l ed ec o n t r o lh as u p e r a d o e ll m i t ed eu n ae s p e c i f i c a c i nat r a v sd e` ' ,os il ac o n d i c i nd el a ` M e n o s' e s `t r u e ' ,os il ac o n d i c i nd e l` w h i l e' e s 'f a l s e' e n t o n c e se l` n o' t e r m i n a .( 2 )S ee v a l al a .( 3 )L a V a l o rm n i m os ea a d eal av a r i a b l ed ec o n t r o l .E lp r o c e s oap a r t i rd e( 1 ) a( 3 )s el l e v aac a b ov a r i a sv e c e sh a s t aq u el ac o n d i c i nd et e r m i n a c i ne s s a t i s f e c h o .T a m b i ns ep u e d e nd a rv a r i a sc o n d i c i o n e sd et e r m i n a c i nd e c u y oc a s oe l` n o' t e r m i n ac u a n d oa l g u n od ee l l o ss ec u m p l e . E ng e n e r a l ,e lt e s t` t h r u' s es a t i s f a c ec u a n d ol av a r i a b l ed ec o n t r o l e sm a y o rq u ee l< l i m i t >s ie le r an on e g a t i v o , oc u a n d ol av a r i a b l ed ec o n t r o le sm e n o rq u ee l< l i m i t >s ie l f u en e g a t i v a .E ly< l i m i t >p u e d e ne s t a r e x p r e s i o n e sn on u m r i c a s ,s i e m p r eq u ee s t ad e s i g u a l d a dp u e d es e r d e t e r m i n a d o .S i ne m b a r g o ,am e n o sq u ee le ss i n t c t i c a m e n t e n e g a t i v o( p o re j e m p l o ,e su nn m e r on e g a t i v o )e ne lm o m e n t od e l` h a c e r' a f i r m a c i ne s ,M a x i m as u p o n d r q u es e r p o s i t i v oc u a n d ol a ` H a c e rq u es ee j e c u t e .S in oe sp o s i t i v a ,e n t o n c e se l' h a c e r 'n op u e d e t e r m i n a rc o r r e c t a m e n t e . T e n g ae nc u e n t aq u el a< l i m i t > ,yc o n d i c i nd et e r m i n a c i ns o n e v a l u a d oc a d ai t e r a c i nd e lb u c l e .P o rl ot a n t o ,s ia l g u n od e s t o si m p l i c a n m u c h o sc l c u l o syp r o d u c i ru nr e s u l t a d oq u en oc a m b i ad u r a n t el a t o d a sl a se j e c u c i o n e sd el o s ,e n t o n c e se sm se f i c i e n t ep a r ae s t a b l e c e r u n av a r i a b l ec o ns uv a l o ra n t e sd el a` h a c e r' yu t i l i z a re s t av a r i a b l e e nl af o r m a` d o' . E lv a l o rn o r m a l m e n t ed e v u e l t op o ru n ad e c l a r a c i n` h a c e r' e se l t o m o ` H e c h o' .S i ne m b a r g o ,l af u n c i n` r e t u r n' s ep u e d eu t i l i z a rd e n t r od el a p a r as a l i rd e l' h a c e r 'a n t e sd et i e m p oyp o n e r l ee lv a l o rd e s e a d o . T e n g ae nc u e n t as i ne m b a r g o ,q u eu n' r e t o r n o 'd e n t r od eu n' h a c e r 'q u es ep r o d u c ee nu n ' B l o c k 's a l d r s l oe l` h a c e r' yn o 'b l o c k' .T e n g ae nc u e n t at a m b i n q u ee l' g o 'f u n c i nn os ep u e d eu t i l i z a rp a r as a l i rd eu n' h a c e r 'e nu n r o d e a` b l o q u e' . L av a r i a b l ed ec o n t r o ls i e m p r ee sl o c a la l' h a c e r 'yp o rl ot a n t oc u a l q u i e r v a r i a b l ep u e d es e ru t i l i z a d os i na f e c t a re lv a l o rd eu n av a r i a b l ec o n e lm i s m on o m b r ef u e r ad e` h a c e r' .L av a r i a b l ed ec o n t r o ln oe s t e n l a z a d o d e s p u sd eq u ee l` h a c e r' t e r m i n a . ( %I 1 )p a r a :3 2 6p a s o7d od el ap a n t a l l a( a )$ a=-3 a=4 a=1 1 a=1 8 a=2 5 ( %I 1 )s :0$ ( %I 2 )p a r ai :1w h i l ei< =1 0h a c e rs :s+i ; ( %O 2 )d o n e ( %I 3 )s ; ( %O 3 )5 5 T e n g ae nc u e n t aq u el ac o n d i c i nd e` w h i l ei< =1 0' e se q u i v a l e n t ea 'm e n o sq u ei >1 0' yt a m b i n 'at r a v sd e1 0' . ( %I 1 )s e r i e :1$ ( %I 2 )T r m i n o :e x p( s i n( x ) )$ ( %I 3 )p a r ap :1am e n o sp >7d o ( P l a z o :d i f f( p l a z o ,x )/p , s e r i e s :S e r i e+s u b s t( x=0 ,p l a z o )*x^p )$ ( %I 4 )s e r i e s ;
340/633
28/08/13

76542 x x x x x ( %O 4 )-+-+x+1 9 02 4 01 582 l oq u ed a8t r m i n o sd el as e r i ed eT a y l o rp a r a' e^s i n( x ) . ( %I 1 )p o l i :$0 ( %I 2 )p a r ai :1 5h a c e r l o p a r aj :m ep a s o1 1h a c e r p o l i :p o l y+i*x^j$ ( %I 3 )p o l i ; 5432 ( %O 3 )5x+x+9+1 2x1 4x1 5+x ( %I 4 )c o n j e t u r a :3 . 0$ ( %I 5 )p a r ai :1 1 0h a c e r ( S u p o n g o :s u b s t( c o n j e t u r a ,x ,0 , 5*( x+1 0/x ) ) , s ia b s( s u p o n g o^2-1 0 )< 0 , 0 0 0 0 5l u e g or e g r e s o( c o n j e t u r a ) ) ; ( %O 5 )-3 . 1 6 2 2 8 0 7 0 1 7 5 4 3 8 6 E ne s t ee j e m p l os ec a l c u l al ar a zc u a d r a d an e g a t i v ad e1 0u t i l i z a n d oe l I t e r a c i nd eN e w t o n R a p h s o nu nm x i m od e1 0v e c e s .T e n ae l c r i t e r i od ec o n v e r g e n c i an os eh aa l c a n z a d oe lv a l o rd e v u e l t ot e n d r a s i d o` h e c h o' . E nl u g a rd es i e m p r ea a d i e n d ou n ac a n t i d a dal av a r i a b l ed ec o n t r o ls e Av e c e sp u e d eq u ed e s e ec a m b i a rd ea l g u n ao t r am a n e r ap a r aq u ec a d a i t e r a c i n .E ne s t ec a s os ep u e d eu s a r` p r x i m o< e x p r e s i n >' e nv e zd e ` P a s o' .E s t oh a r q u el av a r i a b l ed ec o n t r o ls e a e s t a b l e c ee ne lr e s u l t a d od ee v a l u a r< e x p r e s i n >c a d av e zat r a v sd el a b u c l e . ( %I 6 )p a r ae lr e c u e n t o :2s i g u i e n t e3*R e c u e n t ot h r u2 0d od i s p l a y( c u e n t a )$ c o u n t=2 c o u n t=6 c o u n t=1 8 C o m oa l t e r n a t i v aa` p a r a< v a r i a b l e > :< v a l o r >. . .d o. . . "l as i n t a x i s ` P a r a< v a r i a b l e >d e< v a l o r >. . .h a c e r. . . "p u e d es e ru t i l i z a d o .E s t op e r m i t e e l` d e l< v a l o r >' p a r as e rc o l o c a d od e s p u sd el a 'e t a p a' oe lv a l o r `N e x t ' od e s p u sd el ac o n d i c i nd et e r m i n a c i n .S i` d e< v a l o r >' s eo m i t e 1ac o n t i n u a c i n ,s eu t i l i z ac o m oe lv a l o ri n i c i a l . Av e c e su n op u e d ee s t a ri n t e r e s a d oe nr e a l i z a ru n ai t e r a c i ne n N u n c as eu t i l i z ar e a l m e n t el av a r i a b l ed ec o n t r o l .E sp o rl ot a n t o p e r m i s i b l ed a rs l ol a sc o n d i c i o n e sd et e r m i n a c i nd el ao m i s i nd el a i n i c i a l i z a c i nya c t u a l i z a c i nd el ai n f o r m a c i nc o m oe ne ls i g u i e n t e e j e m p l op a r ac a l c u l a rl ar a zc u a d r a d ad e5u t i l i z a n d ou n ae s t i m a c i ni n i c i a lp o b r e s . ( %I 1 )x :1 0 0 0$ ( %I 2 )at r a v sd e2 0d ox :0 . 5*( x+5 , 0/x )$ ( %I 3 )x ; ( %O 3 )2 . 2 3 6 0 6 7 9 7 7 4 9 9 7 9 ( %I 4 )s q r t( 5 ) ,n u m e r ; ( %O 4 )2 . 2 3 6 0 6 7 9 7 7 4 9 9 7 9 S is ed e s e ai n c l u s oe sp o s i b l eo m i t i rl a sc o n d i c i o n e sd et e r m i n a c i n c o m p l e t oys l ol ed a n` n o' q u ec o n t i n u a r e v a l u a n d o l ai n d e f i n i d a m e n t e .E ne s t ec a s o ,l af u n c i n` r e t o r n o' d e b eu t i l i z a r s ep a r at e r m i n a rl ae j e c u c i nd e l` h a c e r' . ( %I 1 )n e w t o n( f ,x ) :=( [ y ,d f ,D F X ] ,d f :d i f f( f( x ) :" x ) , h a c e r l o( a :e v( d f ) ,x :x-f( x )/y , s ia b s( f( x ) )< 5 e 6yl u e g or e g r e s o( x ) ) )$ ( %I 2 )S Q R( x ) :=x^2-5 . 0$ ( %I 3 )n e w t o n( S Q R ,1 0 0 0 ) ; ( %O 3 )2 . 2 3 6 0 6 8 0 2 7 0 6 2 1 9 5 ( T e n g ae nc u e n t aq u e` r e t o r n o' ,c u a n d os ee j e c u t a ,h a c eq u ee lv a l o ra c t u a ld e ` X' q u es ed e v u e l v ec o m oe lv a l o rd e l `h a c e r ' .E l' b l o c k 'e s s a l i ye s t ev a l o rd e l` h a c e r' s ed e v u e l v ec o m oe lv a l o rd el a ' B l o c k 'p o r q u ee l` h a c e r' e sl a l t i m ai n s t r u c c i nd e lb l o q u e . ) O t r af o r m ad e' h a c e r 'e s t d i s p o n i b l ee nM a x i m a .L as i n t a x i se sl as i g u i e n t e : p a r a< v a r i a b l e >e n< l i s t >< e n d _ t e s t s >h a c e r L o se l e m e n t o sd e< l i s t >s o nl a se x p r e s i o n e sq u es e r s u c e s i v a m e n t e s e ra s i g n a d oal av a r i a b l ed e` ' e nc a d ai t e r a c i nd el a . L at e r m i n a c i no p c i o n a lp r u e b a s< e n d _ t e s t s >s ep u e d eu t i l i z a rp a r a t e r m i n a rl ae j e c u c i nd e l` h a c e r' ,d el oc o n t r a r i ot e r m i n a r c u a n d o e l< l i s t >s ea g o t aoc u a n d ou n` r e t u r n' s ee j e c u t ae ne l .( D eh e c h o ,` l i s t' p u e d es e rc u a l q u i e re x p r e s i nn oa t m i c a ,y s et o m a np a r t e ss u c e s i v a s . ) ( %I 1 )d efe n[ l o g ,r h o ,a t a n ]h a c e rl d i s p( f )( 1 )$ ( %T 1 )0 ( %T 2 )r h o( 1 ) %P i ( %T 3 )4 ( %I 4 )e v( %t 3 ,n u m e r ) ; ( %O 4 )0 , 7 8 5 3 9 8 1 6
341/633
28/08/13

F u n c i n :e r r c a t c h( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) E v a l a< e x p r _ 1 > ,. . . ,< e x p r _ n >u n op o ru n oyv u e l v e ` [ < e x p r _ n > ]' ( U n al i s t a ) ,s in os ep r o d u c en i n g ne r r o r .S is ep r o d u c eu ne r r o re n l ae v a l u a c i nd ec u a l q u i e ra r g u m e n t o ,` e r r c a t c h' e v i t ae le r r o rd e p r o p a g a ryd e v u e l v el al i s t ad e` [ ]' v a c os i ne v a l u a r m sa r g u m e n t o s . ` E r r c a t c h' e s t i le n `l o t e s" a r c h i v o sd o n d es es o s p e c h aq u eu ne r r o r p o d r ao c u r r i rq u et e r m i n a re ll o t e` ' s ie le r r o rn of u e r a a t r a p a d o .
F u n c i n :e r r o r( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) V a r i a b l ed e ls i s t e m a :e r r o r E v a l aei m p r i m e< e x p r _ 1 > ,. . . ,< e x p r _ n > ,yl u e g oh a c eu n a e r r o rv o l v e ra ln i v e ls u p e r i o rM a x i m aoq u ee n c i e r r ae lm sc e r c a n o ` E r r c a t c h' . E l' e r r o r 'v a r i a b l es ee s t a b l e c ee nu n al i s t aq u ed e s c r i b ee le r r o r .L a p r i m e re l e m e n t od e' e r r o r 'e su n ac a d e n ad ef o r m a t o ,q u ec o m b i n at o d al a c u e r d a se n t r el o s< e x p r _ 1 >a r g u m e n t o s ,. . . ,< e x p r _ n >ye l e l e m e n t o sr e s t a n t e ss o nl o sv a l o r e sd el o sa r g u m e n t o sq u en os o nc a d e n a s . ` E r r o r m s g( )f o r m a t e aei m p r i m e' e r r o r ' .E s t oe se f e c t i v a m e n t e i m p r i m i rd en u e v oe lm e n s a j ed ee r r o rm sr e c i e n t e .
V a r i a b l eo p c i o n a l :e r r o r _ s i z e V a l o rp o rd e f e c t o :1 0 ` E r r o r _ s i z e' m o d i f i c al o sm e n s a j e sd ee r r o rd ea c u e r d oc o ne lt a m a od el o s e x p r e s i o n e sq u ea p a r e c e ne ne l l o s .S ie lt a m a od eu n ae x p r e s i n ( S e g nl od e t e r m i n a d op o rl af u n c i n` L i s pE R R O R s i z e' )e sm a y o rq u e ` E r r o r _ s i z e' ,l ae x p r e s i ns er e e m p l a z ae ne lm e n s a j ep o ru n s m b o l o ,ye ls m b o l os el ea s i g n al ae x p r e s i n .L o ss m b o l o s s eh a nt o m a d od el al i s t a` e r r o r _ s y m s' . D el oc o n t r a r i o ,l ae x p r e s i ne sm e n o rq u ee r r o r _ s i z e` ' ,ye l e x p r e s i ns em u e s t r ae ne lm e n s a j e . V a s et a m b i n' e r r o r 'y` e r r o r _ s y m s' . E j e m p l o : E lt a m a od e l` U' ,s e g nl od e t e r m i n a d op o r È R R O R s i z e ' ,e sd e2 4 . ( %I 1 )U :( C^DÊ+B+A )/( c o s( X 1 )+1 )$ ( %I 2 )e r r o r _ s i z e :2 0$ ( %I 3 )e r r o r( " E j e m p l od ee x p r e s i ne s " ,U ) ; E j e m p l oe x p r e s i ne se r r e x p 1 -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; ( %I 4 )e r r e x p 1 ; E D C+B+A ( %O 4 )c o s( X-1 )+1 ( %I 5 )e r r o r _ s i z e :3 0$ ( %I 6 )e r r o r( " E j e m p l od ee x p r e s i ne s " ,U ) ; E D C+B+A E j e m p l oe sl ae x p r e s i nc o s( X-1 )+1 -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ;
V a r i a b l eo p c i o n a l :e r r o r _ s y m s V a l o rp o rd e f e c t o :[ e r r e x p 1 ,e r r e x p 2 ,e r r e x p 3 ]' E nl o sm e n s a j e sd ee r r o r ,l a se x p r e s i o n e sm a y o r e sd e` e r r o r _ s i z e' s o n r e e m p l a z a d o sp o rs m b o l o s ,yl o ss m b o l o ss ea j u s t a nal a se x p r e s i o n e s . L o ss m b o l o ss et o m a nd el al i s t a` e r r o r _ s y m s' .L ap r i m e r a d e m a s i a d og r a n d ee x p r e s i ns es u s t i t u y ep o r` e r r o r _ s y m s[ 1 ]' ,e ls e g u n d op o r ` E r r o r _ s y m s[ 2 ]' ,ya s s u c e s i v a m e n t e . S ih a ym se x p r e s i o n e sd e m a s i a d og r a n d e sq u ee l e m e n t o sd e ` E r r o r _ s y m s' ,s m b o l o ss ec o n s t r u y e nd ef o r m aa u t o m t i c a ,c o nl a < n > s i m os m b o l oe q u i v a l e n t ea` c o n c a t( ' e r r e x p ,< n > ) . V a s et a m b i n' e r r o r 'y` e r r o r _ s i z e' .
342/633
28/08/13
F u n c i n :e r r o r m s g( )
R e i m p r e s i o n e se lm e n s a j ed ee r r o rm sr e c i e n t e .E l' e r r o r 'v a r i a b l e s t i e n ee lm e n s a j eye r r o r m s gf o r m a t o s` ' yl oi m p r i m e .
V a r i a b l eo p c i o n a l :e r r o r m s g V a l o rp o rd e f e c t o :t r u e' C u a n d o` f a l s e' l as a l i d ad em e n s a j e sd ee r r o rs es u p r i m e . L av a r i a b l eo p c i n` e r r o r m s g' n os ep u e d ee s t a b l e c e re nu nb l o q u eau nl o c a ld e v a l o r .E lv a l o rg l o b a ld e` e r r o r m s g' e s t s i e m p r ep r e s e n t e . ( %I 1 )e r r o r m s g ; ( %O 1 )t r u e ( %I 2 )s e n( a ,b ) ; N m e r oi n c o r r e c t od ea r g u m e n t o sd e lp e c a d o -U ne r r o r .P a r ad e p u r a re s t ei n t e n t o :d e b u g m o d e( t r u e ) ; ( %I 3 )e r r o r m s g :f a l s e ; ( %O 3 )f a l s e ( %I 4 )s e n( a ,b ) ; -U ne r r o r .P a r ad e p u r a re s t ei n t e n t o :d e b u g m o d e( t r u e ) ; L av a r i a b l eo p c i n` e r r o r m s g' n os ep u e d ee s t a b l e c e re nu nb l o q u eau n v a l o rl o c a l . ( %I 1 )f( i n t ) :=b l o q u e( [ e r r o r m s g :b o o l ] , p r i n t( " v a l o rd ee r r o r m s ge s " ,e r r o r m s g ) )$ ( %I 2 )e r r o r m s g :t r u e ; ( %O 2 )t r u e ( %I 3 )f( f a l s e ) ; v a l o rd ee r r o r m s ge sc i e r t o ( %O 3 )t r u e ( %I 4 )e r r o r m s g :f a l s e ; ( %O 4 )f a l s e ( %I 5 )f( t r u e ) ; v a l o rd ee r r o r m s ge sf a l s a ( %O 5 )f a l s e
O p e r a d o re s p e c i a l :p a r a S eu t i l i z ae nl a si t e r a c i o n e s .C o n s u l t e` h a c e r' p a r au n ad e s c r i p c i nd eM a x i m a i n s t a l a c i o n e sd ei t e r a c i n .
F u n c i n :i r( < t a g > ) s eu t i l i z ad e n t r od eu nb l o q u e` ' p a r at r a n s f e r i re lc o n t r o lal ai n s t r u c c i nd e e lb l o q u eq u es ee t i q u e t ac o ne la r g u m e n t od e` i r' .P a r ae t i q u e t a ru n a d e c l a r a c i n ,l op r e c e d e np o ru na r g u m e n t oa t m i c oc o m oc u a l q u i e ro t r as e n t e n c i ae n e l' b l o q u e ' .P o re j e m p l o : b l o q u e( [ x ] ,x :1 ,l a z o ,x1 ,. . . ,i r( l o o p ) ,. . . ) E la r g u m e n t od e` i r' d e b es e re ln o m b r ed eu n ae t i q u e t aq u ea p a r e c ee nl a m i s m a' b l o c k ' .N os ep u e d eu s a r' i r 'p a r at r a n s f e r i ral ae t i q u e t ae nu n' b l o q u e ' d i s t i n t ad el aq u ec o n t i e n ee l` i r' .
O p e r a d o re s p e c i a l :s i R e p r e s e n t aE v a l u a c i nc o n d i c i o n a l .V a r i a sf o r m a sd e` i f' s er e c o n o c e ne x p r e s i o n e s . ` S i< c o n d _ 1 >e n t o n c e s< e x p r _ 1 >m s< e x p r _ 0 >' e v a l as i< e x p r _ 1 > < c o n d _ 1 >e v a l ac o m o' t r u e ' ,d el oc o n t r a r i ol ae x p r e s i ns ee v a l a a< e x p r _ 0 > . E lc o m a n d o` s i< c o n d _ 1 >e n t o n c e s< e x p r _ 1 >e l s e i f< c o n d _ 2 >c o n t i n u a c i n < e x p r _ 2 >e l s e i f. . .m s< e x p r _ 0 >' s ee v a l ac o m os i< e x p r _ k > < c o n d _ k >e s` t r u e' yt o d a sl a sc o n d i c i o n e sa n t e r i o r e ss o n 'f a l s a s' .S i n i n g u n ad el a sc o n d i c i o n e se s` t r u e' ,l ae x p r e s i ns ee v a l a ` E x p r _ 0' . Af i n a l` c o s af a l s e' s ea s u m es i `c o s a 'n os ee n c u e n t r a .E sd e c i r , e lc o m a n d o` s i< c o n d _ 1 >e n t o n c e s< e x p r _ 1 >' e se q u i v a l e n t ea 's i < c o n d _ 1 >e n t o n c e s< e x p r _ 1 >d e m sf a l s e' ye lc o m a n d o` s i< c o n d _ 1 > e n t o n c e s< e x p r _ 1 >e l s e i f. . .e l s e i f< c o n d _ n >e n t o n c e s< e x p r _ n >' e s e q u i v a l e n t ea` s i< c o n d _ 1 >e n t o n c e s< e x p r _ 1 >e l s e i f. . .e l s e i f < c o n d _ n >e n t o n c e s< e x p r _ n >c o s af a l s a . E l< e x p r _ 0 >a l t e r n a t i v a s ,. . . ,< e x p r _ n >p u e d es e rc u a l q u i e rM a x i m a e x p r e s i o n e s ,c o m os il a se x p r e s i o n e sa n i d a d a s` ' .L a sa l t e r n a t i v a s n os o nn is i m p l i f i c a d on ie v a l u a d oam e n o sq u ee lc o r r e s p o n d i e n t e c o n d i c i ne s` t r u e' . E l< c o n d _ 1 >c o n d i c i o n e s ,. . . ,< c o n d _ n >s o ne x p r e s i o n e sq u e
343/633
28/08/13

p o t e n c i a lor e a l m e n t ee v a l u a ra` t r u e' o 'f a l s e' .C u a n d ou n c o n d i c i o n e sr e a l i d a dn oe v a l u a ra` t r u e' o 'f a l s e' ,l a c o m p o r t a m i e n t od e` i f' s er i g ep o rl ab a n d e r a `p r e d e r r o rg l o b a l" . C u n d o ` P r e d e r r o r' e s `t r u e ' ,e su ne r r o rs ic u a l q u i e rc o n d i c i ne v a l u a d a n os ee v a l ac o m o` t r u e' o 'f a l s e' .D el oc o n t r a r i o ,l a sc o n d i c i o n e s q u en oe v a l a na` t r u e' o 'f a l s e' s o na c e p t a d a s ,yl a r e s u l t a d oe su n ae x p r e s i nc o n d i c i o n a l . E n t r eo t r o se l e m e n t o s ,l a sc o n d i c i o n e sp u e d e nc o m p r e n d e rr e l a c i o n a ly o p e r a d o r e sl g i c o sd el as i g u i e n t em a n e r a . O p e r a c i nT i p oS m b o l o m e n o rq u e< r e l a c i o n a li n f i j o m e n o sd e< = oi g u a lar e l a c i o n a li n f i j o i g u a l d a d( s i n t c t i c a )=r e l a c i o n a li n f i j o n e g a c i nd e=#r e l a c i o n a li n f i j o i g u a l d a df u n c i nr e l a c i o n a ld ei g u a l d a d( v a l o r ) n e g a c i nd el af u n c i nr e l a c i o n a ln o t e q u a li g u a l m a y o rq u e >= oi g u a lar e l a c i o n a li n f i j o m a y o rq u e >r e l a c i o n a li n f i j o yei n f i j ol g i c a ooi n f i j ol g i c a n os i np r e f i j ol g i c a
F u n c i n :m a p a( < f > ,< e x p r _ 1 > ,. . . ,< e x p r _ n > ) D e v u e l v eu n ae x p r e s i nc u y oo p e r a d o rp r i n c i p a le se lm i s m oq u ee l d e l< e x p r _ 1 >e x p r e s i o n e s ,. . . ,< e x p r _ n >p e r oc u y a ss u b p a r t e ss o n l o sr e s u l t a d o sd el aa p l i c a c i n< f >au n ad el a ss u b p a r t e sd el a e x p r e s i o n e s .< f >e se ln o m b r ed eu n af u n c i nd ena r g u m e n t o s oe su n af o r m a' l a m b d a 'd ena r g u m e n t o s . ` M a p e r r o r' -s i `f a l s e 'h a r q u et o d a sl a sf u n c i o n e sd ea s i g n a c i nd e ( 1 )p a r e nc u a n d oh a y a nt e r m i n a d od eb a j a re lm e n o r< e x p r _ i >s in o t o d od el a< e x p r _ i >s o nd el am i s m al o n g i t u dy( 2 )s ea p l i c a na< f > [ < e x p r _ 1 > ,< e x p r _ 2 > ,. . . ]S ie l< e x p r _ i >n os o nt o d o si g u a l e s t i p od eo b j e t o .S i` m a p e r r o r' e s `t r u e 'yl u e g ou nm e n s a j ed ee r r o r s ed a r e nl o sd o sc a s o sa n t e r i o r e s . U n od el o su s o sd ee s t af u n c i ne s' m a p a 'd eu n af u n c i n( p o re j e m p l o , ` P A R T F R A C' )e nc a d ap e r o d od eu n ag r a ne x p r e s i ne ne lq u e n o r m a l m e n t en os e r ap o s i b l eu t i l i z a rl af u n c i nd el at o t a l i d a d e x p r e s i nd e b i d oau na g o t a m i e n t od ee s p a c i od ea l m a c e n a m i e n t ol i s t ae ne l c u r s od eu nc l c u l o . ( %I 1 )m a p a( f ,x+a*b*y+z ) ; ( %O 1 )f( b z )+f( a y )+f( x ) ( %I 2 )m a p a( l a m b d a( [ u ] ,P A R T F R A C( u ,x ) ) ,1x/( x^3+ 4*x^2*5x2 ) ) ; 111 ( %O 2 )-+-+x x+2x+12 ( X+1 ) ( %I 3 )m a p a( r a t s i m p ,x/( x^2+x )+( y^2+y )/y ) ; 1 ( %O 3 )y+-+1 x+1 ( %I 4 )M a p a( " = " ,[ a ,b ] ,[ 0 . 5 , 3 ] ) ; ( %O 4 )[ a=-0 , 5 ,b=3 ]
F u n c i n :m a p a t o m( e x p r ) D e v u e l v e` t r u e' s iys l os ie x p re st r a t a d ap o re lm a p e o r u t i n a sc o m ou n t o m o ." M a p a t o m s "s o nl o s t o m o s ,l o sn m e r o s( i n c l u y e n d o n m e r o sr a c i o n a l e s ) ,yl a sv a r i a b l e sc o ns u b n d i c e .
V a r i a b l eo p c i o n a l :m a p e r r o r V a l o rp o rd e f e c t o :t r u e' C u a n d o` m a p e r r o r' e s 'f a l s e' ,h a c eq u et o d a sl a sf u n c i o n e sd em a p e o , p o re j e m p l o m a p a( < f > ,< e x p r _ 1 > ,< e x p r _ 2 > ,. . . ) a( 1 )p a r e nc u a n d oh a y a nt e r m i n a d od eb a j a re l< e x p r _ i >m e n o rs i n ot o d oe l< e x p r _ i >s o nd el am i s m al o n g i t u dy( 2 )s ea p l i c a n< f > a[ < e x p r _ 1 > ,< e x p r _ 2 > ,. . . ]s ie l< e x p r _ i >n os o nt o d o si g u a l e s t i p od eo b j e t o . S i` m a p e r r o r' e s `t r u e ' ,e n t o n c e ss em u e s t r au nm e n s a j ed ee r r o re ne l p o re n c i m ad ed o sc a s o s .
V a r i a b l eo p c i o n a l :M a p p r i n t
344/633
28/08/13
V a l o rp o rd e f e c t o :t r u e'
C u a n d o` M a p p r i n t' e s `t r u e ' ,v a r i o sm e n s a j e sd ei n f o r m a c i nd e ' M a p a ' ,' m a p l 'y` f u l l m a p' s ep r o d u c e ne nd e t e r m i n a d a ss i t u a c i o n e s . E s t o si n c l u y e ns i t u a c i o n e sd o n d e` m a p a' u s a r a À p l i c a r 'o' m a p a ' s et r u n c ae nl al i s t ac o r t a . S i` M a p p r i n t' e s 'f a l s e' ,s es u p r i m e ne s t o sm e n s a j e s .
F u n c i n :m a p l i s t( < f > ,< e x p r _ 1 > ,. . . ,< e x p r _ n > ) D e v u e l v eu n al i s t ad el a sa p l i c a c i o n e sd e< f >al a sp a r t e sd el a e x p r e s i o n e s< e x p r _ 1 > ,. . . ,< e x p r _ n > .< f >e se ln o m b r ed eu n f u n c i nou n ae x p r e s i nl a m b d a . ` M a p l i s t' d i f i e r ed e l `m a p a( < f > ,< e x p r _ 1 > ,. . . ,< e x p r _ n > )" ,q u e d e v u e l v eu n ae x p r e s i nc o ne lm i s m oo p e r a d o rp r i n c i p a l ,t i e n e< e x p r _ i > ( Ae x c e p c i nd el a ss i m p l i f i c a c i o n e sye lc a s od o n d e` m a p a' h a c eu n ` A p l i c a r' ) .
V a r i a b l eo p c i o n a l :p r e d e r r o r V a l o rp o rd e f e c t o :f a l s e' C u a n d op r e d e r r o r` ' e s `t r u e ' ,s em u e s t r au nm e n s a j ed ee r r o rc a d av e zq u e l af u n c i nd ep r e d i c a d od eu n' s i 'e su n` e s t a d od ec u e n t ao "n ol o g r a e v a l u a rn ia` t r u e' o 'f a l s e' . S i` f a l s e' , 'd e s c o n o c i d o' s ed e v u e l v ee ns ul u g a re ne s t ec a s o .L a ` P r e d e r r o r :M o d of a l s e' n os ea d m i t ee nc d i g ot r a d u c i d o ; S i ne m b a r g o ,' t a lv e z 's ea p o y ae ne lc d i g ot r a d u c i d o . V a s et a m b i n' e s 'y' l om e j o r ' .
F u n c i n :r e g r e s o( < v a l o r > ) S ep u e d eu t i l i z a rp a r as a l i re x p l c i t a m e n t ed e s d eu nb l o q u e ,c o nl oq u es u a r g u m e n t o .C o n s u l t e` b l o q u e "p a r ao b t e n e rm si n f o r m a c i n .
F u n c i n :s c a n m a p( < f > ,e x p r ) F u n c i n :s c a n m a p( < f > ,e x p r ,b o t t o m ) R e c u r s i v a m e n t ea p l i c a< f >a< e x p r > ,e nu n am a n e r ad ea r r i b ah a c i aa b a j o .E s m s t i lc u a n d os ed e s e al af a c t o r i z a c i nc o m p l e t a ,p o re j e m p l o : ( %I 1 )e x p :( a^2+ 2*a1 )*y+x^2$ ( %I 2 )s c a n m a p( f a c t o r ,e x p ) ; 22 ( %O 2 )( a+1 )y+x T e n g ae nc u e n t al am a n e r ae nl aq u e` s c a n m a p' s ea p l i c al af u n c i nd a d a ` F a c t o r "al a ss u b e x p r e s i o n e sq u ef o r m a nae x p r ,s ic u a l q u i e ro t r o f o r m ad e< e x p r >s ep r e s e n t aa` s c a n m a p' ac o n t i n u a c i n ,e lr e s u l t a d op u e d es e r d i f e r e n t e .P o rl ot a n t o ,' %o 2 'n os er e c u p e r ac u a n d o` s c a n m a p' s ea p l i c a al af o r m aa m p l i a d ad e' e x p ' : ( %I 3 )s c a n m a p( f a c t o r ,a m p l i a r( e x p ) ) ; 22 ( %O 3 )a ya y+2+y+x A q u e so t r oe j e m p l od el am a n e r ae nl aq u ed ef o r m ar e c u r s i v a` s c a n m a p' s ea p l i c au n af u n c i nd a d aat o d a sl a ss u b e x p r e s i o n e s ,i n c l u y e n d o e x p o n e n t e s : ( %I 4 )e x p r :u*v^( a*x+b )+c$ ( %I 5 )s c a n m a p( ' f ,e x p r ) ; f( f( f( a )f( x ) )+f( b ) ) ( %O 5 )f( f( f( u )f( f( v ) ) )+f( c ) ) ` S c a n m a p( < f > ,e x p r ,b o t t o m ) "s ea p l i c aa< f >< e x p r >e nu n f o r m ad ea b a j oh a c i aa r r i b a .P o re j e m p l o ,p a r a` fi n d e f i n i d o' , s c a n m a p( f ,a*x+b )> f( a*x+b )>f( f( a*x )+f( b ) )>f( f( f( a )*f( x ) )+f( b ) ) s c a n m a p( f ,a*x+b ,b o t t o m )>f( a )*f( x )+f( b ) >F( f( a )*f( x ) )+f( b )> f( f( f( a )*f( x ) )+f( b ) ) E ne s t ec a s o ,s eo b t i e n el am i s m ar e s p u e s t ae na m b o ss e n t i d o s .
F u n c i n :l a n z a r( e x p r ) E v a l ae x p rya r r o j ae lv a l o rd en u e v oal a l t i m a ' E n g a n c h a r ' .` T i r o "s eu t i l i z ac o n' c a p t u r a 'c o m ou nr e t o r n on ol o c a l m e c a n i s m o .
345/633
28/08/13
O p e r a d o re s p e c i a l :m i e n t r a sq u e e lo p e r a d o re s p e c i a l :am e n o s C o n s u l t e` h a c e r' .
F u n c i n :o u t e r m a p( < f > ,< a _ 1 > ,. . . ,< a _ n > ) S ea p l i c al a< f >f u n c i nac a d au n od el o se l e m e n t o sd e le x t e r i o r p r o d u c t o< a _ 1 >c r u z< a _ 2 >. . .c r u z a r< a _ n > . < f >e se ln o m b r ed eu n af u n c i nd ena r g u m e n t o sou n ae x p r e s i nl a m b d a d ena r g u m e n t o s .C a d a< a _ k >a r g u m e n t op u e d es e ru n al i s t aou n al i s t aa n i d a d a , ou n am a t r i z ,oc u a l q u i e ro t r ot i p od ee x p r e s i n . E lv a l o rd er e t o r n oo u t e r m a p` ' e su n ae s t r u c t u r aa n i d a d a .V a m o s< x >s e re l v a l o rd er e t o r n o .E n t o n c e s< x >t i e n el am i s m ae s t r u c t u r aq u el ap r i m e r al i s t a , l i s t aa n i d a d aom a t r i z ,` < x >[ i _ 1 ]. . .[ i _ m ]' t i e n ee lm i s m o e s t r u c t u r aq u el as e g u n d al i s t a ,l i s t aa n i d a d aom a t r i z , ` < x >[ I _ 1 ]. . .[ i _ m ][ J _ 1 ]. . .[ j _ n ]' t i e n el am i s m ae s t r u c t u r aq u ee lt e r c e r o l i s t a ,l i s t aa n i d a d aom a t r i z ,ya s s u c e s i v a m e n t e ,d o n d e< m > ,< n > . . .s o nl o sn m e r o sd el o s n d i c e sn e c e s a r i o sp a r aa c c e d e ral o se l e m e n t o sd e c a d aa r g u m e n t o( u n ap a r al al i s t a ,d o sp o ru n am a t r i z ,u n oom sd e l i s t aa n i d a d a ) .A r g u m e n t o sq u en os o nl i s t a som a t r i c e sn ot i e n e n e f e c t os o b r el ae s t r u c t u r ad e lv a l o rd er e t o r n o . T e n g ae nc u e n t aq u ee le f e c t od e` o u t e r m a p' e sd i f e r e n t ed el ad el o s l aa p l i c a c i nd e< f >ac a d au n od el o se l e m e n t o sd e lp r o d u c t oe x t e r n o d e v u e l t op o r` c a r t e s i a n _ p r o d u c t' .` O u t e r m a p' p r e s e r v al a e s t r u c t u r ad el o sa r g u m e n t o se ne lv a l o rd er e t o r n o ,m i e n t r a sq u e ` C a r t e s i a n _ p r o d u c t' n ol oh a c e . ` O u t e r m a p' e v a l as u sa r g u m e n t o s . V a s et a m b i n' m a p a ' ,` m a p l i s t' ,y 'a p l i c a r' . E j e m p l o s : E j e m p l o se l e m e n t a l e sd e` o u t e r m a p' .P a r ad e m o s t r a re la r g u m e n t o c o m b i n a c i o n e sc o nm a y o rc l a r i d a d :' F 's ed e j as i nd e f i n i r . ( %I 1 )o u t e r m a p( F ,[ a ,b ,c ] ,[ 1 ,2 ,3 ] ) ; ( %O 1 )[ [ F( a ,1 ) ,F( a ,2 ) ,F( a ,3 ) ] ,[ F( b ,1 ) ,F( b ,2 ) ,F( b ,3 ) ], [ F( c ,1 ) ,F( c ,2 ) ,F( c ,3 ) ] ] ( %I 2 )o u t e r m a p( F ,m a t r i z( [ a ,b ] ,[ c ,d ] ) ,m a t r i z( [ 1 ,2 ] ,[ 3 ,4 ] ) ) ; [ [ F( a ,1 )F( a ,2 ) ][ F( b ,1 )F( b ,2 ) ] ] [ [ ][ ] ] [ [ F( a ,3 )F( a ,4 ) ][ F( b ,3 )F( b ,4 ) ] ] ( %O 2 )[ ] [ [ F( c ,1 )F( c ,2 ) ][ F( d ,1 )F( d ,2 ) ] ] [ [ ][ ] ] [ [ F( c ,3 )F( c ,4 ) ][ F( d ,3 )F( d ,4 ) ] ] ( %I 3 )o u t e r m a p( F ,[ a ,b ] ,x ,m a t r i z( [ 1 ,2 ] ,[ 3 ,4 ] ) ) ; [ F( a ,x ,1 )F( a ,x ,2 ) ][ F( b ,x ,1 )F( b ,x ,2 ) ] ( %O 3 )[ [ ] ,[ ] ] [ F( a ,x ,3 )F( a ,x ,4 ) ][ F( b ,x ,3 )F( b ,x ,4 ) ] ( %I 4 )o u t e r m a p( F ,[ a ,b ] ,l am a t r i z( [ 1 ,2 ] ) ,l am a t r i z( [ x ] ,[ y ] ) ) ; [ [ F( a ,1 ,x ) ][ F( a ,2 ,x ) ] ] ( %O 4 )[ [ [ ][ ] ] , [ [ F( a ,1 ,y ) ][ F( a ,2 ,y ) ] ] [ [ F( b ,1 ,x ) ][ F( b ,2 ,x ) ] ] [ [ ][ ] ] ] [ [ F( b ,1 ,y ) ][ F( b ,2 ,y ) ] ] ( %I 5 )o u t e r m a p( " + " ,[ a ,b ,c ] ,[ 1 ,2 ,3 ] ) ; ( %O 5 )[ [ a+1 ,a+2 ,a+3 ] ,[ b+1 ,2+b ,b+3 ] , [ C+1 ,2+c ,c+3 ] ] U ne x a m e nm sd e t a l l a d od e lv a l o rd er e t o r n o` o u t e r m a p' .E lp r i m e r o , a r g u m e n t o ss e g u n d a ,yt e r c e r as o nu n am a t r i z ,u n al i s t a ,yu n am a t r i z , r e s p e c t i v a m e n t e .E lv a l o rd e v u e l t oe su n am a t r i z .C a d ae l e m e n t od ee s a m a t r i ze su n al i s t ayc a d ae l e m e n t od ec a d al i s t ae su n am a t r i z . ( %I 1 )a r g _ 1 :m a t r i z( [ a ,b ] ,[ c ,d ] ) ; [ A b ] ( %O 1 )[ ] [ C d ] ( %I 2 )a r g _ 2 :[ 1 1 ,2 2 ] ; ( %O 2 )[ 1 1 ,2 2 ] ( %I 3 )a r g _ 3 :m a t r i z( [ x x ,y y ] ) ; ( %O 3 )[ x xy y ] ( %I 4 )x x _ 0 :o u t e r m a p( l a m b d a( [ x ,y ,z ] ,x/y+z ) ,a r g _ 1 , a r g _ 2 ,a r g _ 3 ) ; [ [ A a ][ a a ] ] [ [ [ X x+-y y+] ,[ x x+-y y+] ] ] [ [ 1 11 1 ][ 2 22 2 ] ] ( %O 4 )C o l1=[ ] [ [ C c ][ c c ] ] [ [ [ X x+-y y+] ,[ x x+-y y+] ] ] [ [ 1 11 1 ][ 2 22 2 ] ] [ [ B b ][ b b ] ] [ [ [ X x+-y y+] ,[ x x+-y y+] ] ] [ [ 1 11 1 ][ 2 22 2 ] ]
346/633
28/08/13

C o l2=[ ] [ [ D d ][ d d ] ] [ [ [ X x+-y y+] ,[ x x+-y y+] ] ] [ [ 1 11 1 ][ 2 22 2 ] ] ( %I 5 )x x _ 1 :x x _ 0[ 1 ][ 1 ] ; [ A a ][ a a ] ( %O 5 )[ [ x x+-y y+] ,[ x x+-y y+] ] [ 1 11 1 ][ 2 22 2 ] ( %I 6 )x x _ 2 :x x _ 0[ 1 ][ 1 ][ 1 ] ; [ A a ] ( %O 6 )[ +x x-y y+] [ 1 11 1 ] ( %I 7 )x x _ 3 :x x _ 0[ 1 ][ 1 ][ 1 ][ 1 ][ 1 ] ; u n ( %O 7 )x x+1 1 ( %I 8 )[ o p( a r g _ 1 ) ,o p( a r g _ 2 ) ,o p( a r g _ 3 ) ] ; ( %O 8 )[ m a t r i z ,[ ,m a t r i z ] ( %I 9 )[ o p( x x _ 0 ) ,o p( x x _ 1 ) ,o p( x x _ 2 ) ] ; ( %O 9 )[ m a t r i z ,[ ,m a t r i z ] ` O u t e r m a p' c o n s e r v al ae s t r u c t u r ad el o sa r g u m e n t o se nl ad e c l a r a c i n v a l o r ,m i e n t r a sq u e` c a r t e s i a n _ p r o d u c t' n ol oh a c e . ( %I 1 )o u t e r m a p( F ,[ a ,b ,c ] ,[ 1 ,2 ,3 ] ) ; ( %O 1 )[ [ F( a ,1 ) ,F( a ,2 ) ,F( a ,3 ) ] ,[ F( b ,1 ) ,F( b ,2 ) ,F( b ,3 ) ], [ F( c ,1 ) ,F( c ,2 ) ,F( c ,3 ) ] ] ( %I 2 )s e t i f y( a p l a n a r( % ) ) ; ( %O 2 ){ F( a ,1 ) ,F( a ,2 ) ,F( a ,3 ) ,F( b ,1 ) ,F( b ,2 ) ,F( b ,3 ) , F( c ,1 ) ,F( c ,2 ) ,F( c ,3 ) } ( %I 3 )m a p a( l a m b d a( [ L ] ,s ea p l i c a n( M ,L ) ) , c a r t e s i a n _ p r o d u c t( { a ,b ,c } ,{ 1 ,2 ,3 } ) ) ; ( %O 3 ){ F( a ,1 ) ,F( a ,2 ) ,F( a ,3 ) ,F( b ,1 ) ,F( b ,2 ) ,F( b ,3 ) , F( c ,1 ) ,F( c ,2 ) ,F( c ,3 ) } ( %I 4 )i s( e q u a l( % , %t h( 2 ) ) ) ; ( %O 4 )t r u e
38 Depuracin
F u e n t eN i v e ld ed e p u r a c i n p a l a b r ac l a v eC o m a n d o s F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n
38.1 Fuente depuracin Nivel

M a x i m at i e n eu nd e p u r a d o ran i v e ld ef u e n t ei n c o r p o r a d a .E lu s u a r i op u e d ee s t a b l e c e ru n a p u n t od ei n t e r r u p c i ne nu n af u n c i ny ,ac o n t i n u a c i n ,l al n e ap a s op o rl al n e aap a r t i rd ea h .L a p i l ad el l a m a d a sp u e d es e re x a m i n a d a ,j u n t oc o nl a sv a r i a b l e sc o nd e s t i n oe ne s e n i v e l . E lc o m a n d o' :h e l p 'o' :h 'm u e s t r al al i s t ad ec o m a n d o sd e ld e p u r a d o r . ( E ng e n e r a l ,l o sc o m a n d o sp u e d e na b r e v i a r s es il aa b r e v i a t u r ae s n i c a . S in oe s n i c o ,s ee n u m e r a nl a sa l t e r n a t i v a s . )E ne ld e p u r a d o r , e lu s u a r i ot a m b i np u e d eu t i l i z a rc u a l q u i e rf u n c i np r o p i ad eM a x i m ap a r ae x a m i n a r ,d e f i n i r , ym a n i p u l a rv a r i a b l e sye x p r e s i o n e s . U np u n t od ei n t e r r u p c i ns ee s t a b l e c ep o re l` c o m a n d o :b r' e ne li n d i c a d o rd eM a x i m a . E ne ld e p u r a d o r ,e lu s u a r i op u e d ea v a n z a ru n al n e aal av e zu t i l i z a n d ol a ` N' ( "s i g u i e n t e" )d ec o m a n d o s .E l` :c o m a n d ob t' ( "b a c k t r a c e" )m u e s t r au n al i s t ad e s t a c kf r a m e s .L o s` :c o m a n d or( "r e s u m e" )s ea b a n d o n ae ld e p u r a d o r c o n t i n ac o nl ae j e c u c i n .E s t a si n s t r u c c i o n e ss em u e s t r ae nl a e j e m p l oac o n t i n u a c i n . ( %I 1 )l o a d( " /t m p/f o o b a r . m a c " ) ; ( %O 1 )/t m p/f o o b a r . m a c ( %I 2 ) :b rf o o A c t i v a rd e p u r a c i nd e b u g m o d e( t r u e ) B k p t0d ef o o( e n/t m p/l n e af o o b a r . m a c1 ) ( %I 2 )b a r( 2 , 3 ) ; B k p t0 :( f o o b a r . m a c1 ) /T m p/f o o b a r . m a c :1: : ( D b m :1 ) :b t< -p u l s a n d o :b ts ed au ns e g u i m i e n t oh a c i aa t r s #0 :f o o( y=5 )( l n e af o o b a r . m a c1 ) #1 :b a r( x=2 ,y=3 )( l n e af o o b a r . m a c9 ) ( D b m :1 ) :n< -A q u t i p onp a r aa v a n z a re nl al n e a ( F o o b a r . m a c2 ) /T m p/f o o b a r . m a c :2: : ( D b m :1 ) :n< -A q u t i p onp a r aa v a n z a re nl al n e a ( F o o b a r . m a c3 ) /T m p/f o o b a r . m a c :3: : ( D b m :1 )u ;< -I n v e s t i g a rv a l o rd eu 2 8 ( D b m :1 )u :3 3 ;< -C a m b i a ru a3 3
347/633
28/08/13
3 3
( D b m :1 ) :r< -T i p o :rp a r ar e a n u d a re lc l c u l o ( %O 2 )1 0 9 4 E lf i c h e r o` /t m p/f o o b a r . m a c' e se ls i g u i e n t e : f o o( y ) :=b l o q u e( [ u :y^2 ] , u :u3 , u :u^2 , u ) ; b a r r a( x ,y ) :=( x :x2 , y :y2 , x :f o o( y ) , x+y ) ; U S OD E LD E P U R A D O RE NE M A C S S ie lu s u a r i oe j e c u t ae lc d i g ob a j oG N Ue m a c se nu n av e n t a n ad e ( D b ls h e l l ) ,os ee s t e j e c u t a n d ol av e r s i nd ei n t e r f a zg r f i c a ,X m a x i m a , e n t o n c e s ,s is ed e t i e n ee nu np u n t od eq u i e b r e ,v e r s up o s i c i na c t u a le n e la r c h i v od eo r i g e nq u es em u e s t r ae nl ao t r am i t a dd el a v e n t a n a ,y as e ae nr o j o ,oc o nu n ap e q u e af l e c h aa p u n t a n d o l al n e ad e r e c h a .S ep u e d ea v a n z a rl n e a ss i m p l e sal av e zt e c l e a n d oM n ( A l t n ) . B a j oE m a c ss ed e b ee j e c u t a re nu ns h e l l` d b l' ,q u er e q u i e r el a A r c h i v o` d b l . e l' e ne ld i r e c t o r i oe l i s p .A s e g r e s ed ei n s t a l a re le l i s p a r c h i v o soa g r e g a re ld i r e c t o r i oM a x i m ae l i s pas ut r a y e c t o r i a :p o re j e m p l o ,a a d i re l d e s p u sd e" a r c h i v ooe l' s i t e i n i t . e l 't u' .e m a c s ( S e t ql o a d p a t h( c o n s" /u s r / s h a r e / m a x i m a / 5 . 9 . 1 / e m a c s "l o a d p a t h ) ) ( C a r g aa u t o m t i c a' d b l" d b l " ) e n t o n c e se ne m a c s M xd b l d e b ei n i c i a ru n av e n t a n ad es h e l le ne lq u es ep u e d e ne j e c u t a rp r o g r a m a s ,p o r e j e m p l oM a x i m a ,g c l ,g d b ,e t cE s t av e n t a n at a m b i ns ec o n o c e d e p u r a c i nd en i v e ld ef u e n t e ,yl av i s u a l i z a c i nd ec d i g of u e n t ee nl ao t r av e n t a n a . E lu s u a r i op u e d ee s t a b l e c e ru np u n t od ei n t e r r u p c i ne nu n al n e ad e t e r m i n a d ad e le x p e d i e n t ep o r e s c r i b i e n d o` e s p a c i oC x .E s t a sc i f r a sac a b ol af u n c i nq u es ee n c u e n t r ae lc u r s o r , yl u e g os ev eq u el al n e ad eq u el af u n c i nd e lc u r s o r .S ie l c u r s o re s t s o b r e ,p o re j e m p l o ,l al n e a2d e l` f o o' ,e n t o n c e ss ei n s e r t ae nl ao t r a v e n t a n ad el ao r d e n :" ` :b rf o o2" ,p a r ar o m p e r `f o o' e ns us e g u n d al n e a . P a r at e n e re s t ao p c i na c t i v a d a ,e lu s u a r i od e b et e n e rm a x i m a m o d e . e la c t i v a d ae n l av e n t a n ae nl aq u ee la r c h i v o` f o o b a r . m a c' s ee n c u e n t r ad ev i s i t a .H a y c o m a n d o sd i s p o n i b l e se nl av e n t a n ad ea r c h i v o s ,t a l e sc o m ol ae v a l u a c i n l af u n c i nd e n t r od eM a x i m a ,t e c l e a n d o` A l t C o n t r o l x' .
38.2 Comandos de palabras clave

L a sc l a v e sd ed e p u r a c i ns o np a l a b r a sq u en os ei n t e r p r e t a nc o m o E x p r e s i o n e sd eM a x i m a .U n ac l a v es ep u e d ei n t r o d u c i re ne lM a x i m a d e ls i s t e m aoe ls i s t e m ad e p u r a d o r ,a u n q u en oa lp u n t od ei n t e r r u p c i n . L a sc l a v e sd ed e p u r a c i nc o m i e n z a nc o nd o sp u n t o s ,' ` : ' ' .P o re j e m p l o ,p a r ae v a l u a ru n a E x p r e s i nL i s p ,s ep u e d ee s c r i b i r` :l i s p' s e g u i d op o rl af o r m ad ee v a l u a r . ( %I 1 ) :l i s p( 2+3 ) 5 E ln m e r od ea r g u m e n t o sd e p e n d ed e lc o m a n d oe np a r t i c u l a r . A d e m s ,n oe sn e c e s a r i oe s c r i b i rt o d oe lc o m a n d o ,l os u f i c i e n t ep a r as e r n i c o e n t r el o sq u i e b r ep a l a b r a sc l a v e .A s ` :b r' s e r as u f i c i e n t ep a r a ` :b r e a k ' . L o sc o m a n d o sd ep a l a b r a sc l a v es ee n u m e r a nac o n t i n u a c i n . ` :R o t u r aFn' E s t a b l e z c au np u n t od ei n t e r r u p c i ne nl af u n c i n` F' e nl al n e ad ed e s p l a z a m i e n t od e `n 'd el a c o m i e n z od el af u n c i n .S i` F' e sd a d oc o m ou n ac a d e n a ,e n t o n c e s s es u p o n eq u ee su na r c h i v o ,y` n' e se ld e s p l a z a m i e n t od e s d ee lc o m i e n z o d e la r c h i v o .E ld e s p l a z a m i e n t oe so p c i o n a l .S in os ed a ,s es u p o n e ac e r o( p r i m e r al n e ad el af u n c i noa r c h i v o ) . ` :B t' I m p r i m i ru ns e g u i m i e n t od et o d o sl o sm a r c o sd ep i l a ` :C o n t i n u a r " C o n t i n u a re lc l c u l o ` :D e l e t e' E l i m i n a rl o sp u n t o sd er e f e r e n c i ae s p e c i f i c a d o s ,ot o d o ss in os ee s p e c i f i c a ` :D e s a c t i v a r' D e s a c t i v el o sp u n t o sd er e f e r e n c i ae s p e c i f i c a d o s ,ot o d o ss in os ee s p e c i f i c a ` :E n a b l e' A c t i v a rl o sp u n t o sd er e f e r e n c i ae s p e c i f i c a d o s ,ot o d o ss in os ee s p e c i f i c a ` :M a r c on'
348/633
28/08/13

I m p r i m i rs t a c kf r a m e` n' ,oe lm a r c oa c t u a l ,s in os ee s p e c i f i c an i n g u n o ` :H e l p' I m p r i m ea y u d as o b r eu nc o m a n d od ed e p u r a d o r ,ot o d o sl o sc o m a n d o ss in oe s e s p e c i f i c a d o ` :I n f o' I m p r i m i rl ai n f o r m a c i ns o b r ea r t c u l o ` :L i s pa l g u n af o r m a' E v a l u a r` a l g u n af o r m a " ,c o m ou n af o r m aL i s p ` :L i s p q u i e ta l g u n af o r m a' E v a l u a rL i s pf o r m a r` a l g u n af o r m a " ,s i nn i n g u n as a l i d a ` :N e x t' A li g u a lq u e` :s t e p' ,e x c e p t o ` :p r x i m op a s o sl l a m a d aal af u n c i n ` :Q u i t' S a l i rd e ln i v e la c t u a ld e p u r a d o rs i nc o m p l e t a re lc m p u t o ` :H o j ad ev i d a' C o n t i n u a re lc l c u l o ` :S t e p' C o n t i n u a re lc l c u l oh a s t aq u el l e g au n an u e v al n e ad ec d i g of u e n t e ` :T o p' V o l v e ral aM a x i m a( d ec u a l q u i e rn i v e ld e b u g g e r ) ,s i n c o m p l e t a re lc l c u l o
38.3 Funciones y variables para la depuracin

V a r i a b l eo p c i o n a l :d e b u g m o d e V a l o rp o rd e f e c t o :f a l s e' C u a n d os ep r o d u c eu ne r r o rd eM a x i m a ,M a x i m ai n i c i a l i z a r e ld e p u r a d o rs i ` D e b u g m o d e' e s `t r u e ' .E lu s u a r i op u e d ei n g r e s a rc o m a n d o sp a r ae x a m i n a rl a p i l ad el l a m a d a s ,e s t a b l e c e rp u n t o sd ei n t e r r u p c i n ,e lp a s oat r a v sd e lc d i g oM a x i m a ,y a s s u c e s i v a m e n t e . C o n s u l t e` d e p u r a c i n' p a r ao b t e n e ru n al i s t ad ec o m a n d o sd e ld e p u r a d o r . H a b i l i t a c i n` d e b u g m o d e' n od e t e c t a re r r o r e sL i s p .
V a r i a b l eo p c i o n a l :r e f c h e c k V a l o rp o rd e f e c t o :f a l s e' C u a n d o` r e f c h e c k' e s `t r u e ' ,M a x i m ai m p r i m eu nm e n s a j ec a d av e zq u eu n v a r i a b l ee su t i l i z a d op o rp r i m e r av e ze nu nc l c u l o .
V a r i a b l eo p c i o n a l :s e t c h e c k V a l o rp o rd e f e c t o :f a l s e' S i` s e t c h e c k "s ee n c u e n t r ae nu n al i s t ad ev a r i a b l e s( q u ep u e d es e r s u b n d i c e ) ,M a x i m ai m p r i m eu nm e n s a j ec a d av e zq u el a sv a r i a b l e so o c u r r e n c i a ss u b n d i c ed ee l l o s ,e s t no b l i g a d o sal ao r d i n a r i a o p e r a d o rd ea s i g n a c i n' : ' ,e l` : :' o p e r a d o rd ea s i g n a c i n ,ol af u n c i n v i n c u l a n t ea r g u m e n t o ,p e r on ol aa s i g n a c i nd el af u n c i n` :=' n ie l m a c r oa s i g n a c i n` : :=' o p e r a d o r e s .E lm e n s a j ec o m p r e n d ee ln o m b r e d el av a r i a b l eye lv a l o rq u ee s t e n l a z a d o . ` S e t c h e c k' s ep u e d ee s t a b l e c e re n à l l 'o' t r u e 'l oq u es ei n c l u y et o d al a v a r i a b l e s . C a d an u e v aa s i g n a c i nd e` s e t c h e c k' e s t a b l e c eu n an u e v al i s t ad e L a sv a r i a b l e sp a r ac o m p r o b a r ,yl a sv a r i a b l e sa s i g n a d a sp r e v i a m e n t e ` S e t c h e c k' s eo l v i d a n . L o sn o m b r e sa s i g n a d o sa` s e t c h e c k' d e b e ns e rc i t a d o ss iq u i s i e r a n d el oc o n t r a r i oe v a l u a raa l g od i s t i n t od es m i s m o s .P a r a e j e m p l o ,s i' x ' ,' y 'y' z 'q u ey ae s t nc o n s o l i d a d a s ,ac o n t i n u a c i n ,i n t r o d u z c a s e t c h e c k :[ ' x ' ,y' ,z ]$ p a r ap o n e r l o se nl al i s t ad ev a r i a b l e sp a r ac o m p r o b a r . N oi m p r i m es eg e n e r ac u a n d ou n av a r i a b l ee nl al i s t a` s e t c h e c k' e s a s i g n a d oas m i s m o ,p o re j e m p l o ,' X : 'X' .
V a r i a b l eo p c i o n a l :s e t c h e c k b r e a k V a l o rp o rd e f e c t o :f a l s e' C u a n d o` s e t c h e c k b r e a k' e s `t r u e ' ,M a x i m ap r e s e n t a r p r o n t ou nd e s c a n s o c a d av e zq u es ea s i g n au n av a r i a b l ee nl al i s t a` s e t c h e c k' u nn u e v ov a l o r .
349/633
28/08/13

L ar u p t u r as ep r o d u c ea n t e sd el aa s i g n a c i ns el l e v aac a b o .E ne s t e m o m e n t o ,` s e t v a l' c o n t i e n ee lv a l o rq u el av a r i a b l ee s t ap u n t od e s e ra s i g n a d o .P o rl ot a n t o ,s ep u e d ea s i g n a ru nv a l o rd i f e r e n t ea la s i g n a r a` s e t v a l' . C o n s u l t et a m b i n` s e t c h e c k' y `s e t v a l ' .
V a r i a b l ed e ls i s t e m a :s e t v a l C o n t i e n ee lv a l o rd eu n av a r i a b l eq u es ev aae s t a b l e c e rc u a n d ou n ` S e t c h e c k b r e a k' o c u r r e .P o rl ot a n t o ,s ep u e d ea s i g n a ru nv a l o rd i f e r e n t e a s i g n a n d oa` s e t v a l' . C o n s u l t et a m b i n` s e t c h e c k' y `s e t c h e c k b r e a k ' .
F u n c i n :t i m e r( < f _ 1 > ,. . . ,< f _ n > ) F u n c i n :t i m e r( t o d o s ) F u n c i n :t i m e r( ) D a d a sl a sf u n c i o n e s< f _ 1 > ,. . . ,< f _ n > ,' t i m e r 'p o n eac a d au n oe nl a l i s t ad ef u n c i o n e sp a r al a sq u es er e c o p i l a ne s t a d s t i c a sd et i e m p o . ` T i m e r( f )$t i m e r( g )$' p o n e 'f' y 'g' e nl al i s t a ,e l l i s t aa c u m u l ae n t r eu n al l a m a d ayl as i g u i e n t e . ` T e m p o r i z a d o r( t o d o s )' p o n et o d a sl a sf u n c i o n e sd e f i n i d a sp o re lu s u a r i o( c o m oe ln o m b r ed el a ` f u n c i o n e sv a r i a b l e sg l o b a l e s )e nl al i s t ad el a sf u n c i o n e sp r o g r a m a d a s . S i na r g u m e n t o s ,' t i m e r 'd e v u e l v el al i s t ad ef u n c i o n e sp r o g r a m a d a s . M a x i m ar e g i s t r ac u n t ot i e m p os ed e d i c aal ae j e c u c i nd ec a d af u n c i ne n l al i s t ad ef u n c i o n e st e m p o r i z a d a s .` T i m e r _ i n f o' d e v u e l v ee lt i e m p o e s t a d s t i c a s ,c o m oe lt i e m p om e d i ot r a n s c u r r i d op o rl l a m a d ad ef u n c i n , e ln m e r od el l a m a d a sye lt i e m p ot o t a lt r a n s c u r r i d o .` U n t i m e r' e l i m i n al a sf u n c i o n e sd el al i s t ad ef u n c i o n e st e m p o r i z a d a s . ` C o n t a d o r' e v a l as u sa r g u m e n t o s .` F( x ) :=x^2$g :f$t i m e r( g )$' h a c e N op o n g a` f' e nl al i s t ad e lt e m p o r i z a d o r . S i` t r a c e( f ) "e s t a c t i v o ,e n t o n c e s` t i m e r( f ) "n ot i e n en i n g ne f e c t o ;` h u e l l a' y' t i m e r 'n op u e d ee s t a ra m b o sa c t i v o sa lm i s m ot i e m p o . C o n s u l t et a m b i n` t i m e r _ d e v a l u e' .
F u n c i n :u n t i m e r( < f _ 1 > ,. . . ,< f _ n > ) F u n c i n :u n t i m e r( ) D a d a sl a sf u n c i o n e s< f _ 1 > ,. . . ,< f _ n > ,` u n t i m e r' e l i m i n ac a d af u n c i n d el al i s t ad e lt e m p o r i z a d o r . S i na r g u m e n t o s ,` u n t i m e r' e l i m i n at o d a sl a sf u n c i o n e sa c t u a l m e n t ee n l al i s t ad e lt e m p o r i z a d o r . D e s p u su n t i m e r( f )' s ee j e c u t a` t i m e r _ i n f o( f ) ' `s i g u ed e v o l v i e n d o e s t a d s t i c a sd et i e m p op r e v i a m e n t er e c o g i d o s ,a u n q u e` t i m e r _ i n f o( )' ( S i na r g u m e n t o s )n od e v u e l v ei n f o r m a c i na c e r c ad ec u a l q u i e rf u n c i n n oe s t e nl al i s t ad e lt e m p o r i z a d o r .` T i m e r( f )' r e s t a b l e c et o d al at e m p o r i z a c i n e s t a d s t i c a sac e r oyp o n e` f' e nl al i s t ad et e m p o r i z a d o r .
V a r i a b l eo p c i o n a l :t i m e r _ d e v a l u e V a l o rp o rd e f e c t o :f a l s e' C u a n d o` t i m e r _ d e v a l u e' e s `t r u e ' ,M a x i m al er e s t aac a d at e m p o r i z a d a f u n c i o n a re lt i e m p oe m p l e a d oe no t r a sf u n c i o n e sc r o n o m e t r a d a s .D el oc o n t r a r i o ,l a t i e m p or e p o r t a d op a r ac a d af u n c i ni n c l u y ee lt i e m p oe m p l e a d oe no t r a s f u n c i o n e s .T e n g ae nc u e n t aq u ee lt i e m p oi n v e r t i d oe nl a sf u n c i o n e ss i nh o r an oe s r e s t a d od e lt i e m p ot o t a l . V a s et a m b i n' t i m e r 'y` t i m e r _ i n f o' .
F u n c i n :t i m e r _ i n f o( < f _ 1 > ,. . . ,< f _ n > ) F u n c i n :t i m e r _ i n f o( ) D a d a sl a sf u n c i o n e s< f _ 1 > ,. . . ,< f _ n > ,` t i m e r _ i n f o' d e v u e l v eu n am a t r i z q u ec o n t i e n ei n f o r m a c i nd et e m p o r i z a c i np a r ac a d af u n c i n .S i n a r g u m e n t o s ,d e v u e l v e` t i m e r _ i n f o' i n f o r m a c i nd et e m p o r i z a c i np a r at o d o s f u n c i o n e sq u ea c t u a l m e n t ef i g u r a ne nl al i s t ad e lt e m p o r i z a d o r . L am a t r i zd e v u e l t ap o r` t i m e r _ i n f o' c o n t i e n ee ln o m b r ed el af u n c i n , v e zal al l a m a d aal af u n c i n ,e ln m e r od el l a m a d a sal af u n c i n ,e lt i e m p ot o t a l , G c t i m e` ' ,q u es i g n i f i c a "t i e m p od el ar e c o l e c c i nd eb a s u r a" e ne lo r i g i n a l M a c s y m ap e r oa h o r ae ss i e m p r ec e r o . L o sd a t o sd el o sq u e` t i m e r _ i n f o' c o n s t r u y es ur e s p u e s t ap u e d e n T a m b i np u e d eo b t e n e rm e d i a n t el af u n c i n` t e n e r' :
350/633
28/08/13

g e t( f ,' l a sl l a m a d a s ) ;g e t( f , 't i e m p od ee j e c u c i n ) ,g e t( f ,' g c t i m e ) ; V a s et a m b i n' t i m e r ' .
F u n c i n :t r a c e( < f _ 1 > ,. . . ,< f _ n > ) F u n c i n :t r a c e( t o d o s ) F u n c i n :t r a c e( ) D a d a sl a sf u n c i o n e s< f _ 1 > ,. . . ,< f _ n > ,' h u e l l a 'i n s t r u y eM a x i m a i m p r i m i ri n f o r m a c i nd ed e p u r a c i nc u a n d ol a sf u n c i o n e ss o n l l a m a d a .` T r a c e( f )$t r a c e( g )$' p o n e 'f' y 'g' e nl al i s t a d el a sf u n c i o n e sq u ed e l i m i t a r ,l al i s t as ea c u m u l ad eu n al l a m a d aa l as i g u i e n t e . ` T r a c e( t o d o s )' p o n et o d a sl a sf u n c i o n e sd e f i n i d a sp o re lu s u a r i o( c o m oe ln o m b r ed el a s e g u i rs up i s t a` f u n c i o n e sv a r i a b l e sg l o b a l e s )e nl al i s t ad ef u n c i o n e s . S i na r g u m e n t o s ,' h u e l l a 'd e v u e l v eu n al i s t ad et o d a sl a sf u n c i o n e s A c t u a l m e n t es ee s t r a s t r e a n d o . L af u n c i n` u n t r a c e' d e s a c t i v ae lr a s t r e o .V e rt a m b i n` t r a c e _ o p t i o n s . ` T r a c en oe v a l as u sa r g u m e n t o s .P o rl ot a n t o ,' f( x ) :=x^2$g :f$t r a c e( g )$ ' n op o n e` f' e nl al i s t ad et r a z a s . C u a n d os er e d e f i n eu n af u n c i n ,s ee l i m i n ad el al i s t ad e lt e m p o r i z a d o r . A s ,d e s p u sd e` t i m e r( f )$f( x ) :=x^2$' ,l af u n c i n 'f' y an oe s t e n l al i s t ad e lt e m p o r i z a d o r . S i` t i m e r( f ) "e s t a c t i v o ,e n t o n c e s` t r a c e( f ) "n ot i e n en i n g ne f e c t o ; ` H u e l l a' y 't i m e r' n op u e d e ne s t a ra m b o sa c t i v o sp a r al am i s m af u n c i n .
F u n c i n :t r a c e _ o p t i o n s( < f > ,< o p t i o n _ 1 > ,. . . ,< o p t i o n _ n > ) F u n c i n :t r a c e _ o p t i o n s( < f > ) E s t a b l e c el a so p c i o n e sd er a s t r e op a r al af u n c i n< f > .C u a l q u i e r ad el a so p c i o n e sa n t e r i o r e ss o n r e e m p l a z a d o .` T r a c e _ o p t i o n s( < f > ,. . . ) "n ot i e n en i n g ne f e c t oam e n o sq u e ` T r a c e( < f > ) "t a m b i ns el l a m a( y as e aa n t e sod e s p u sd e ` T r a c e _ o p t i o n s " ) . ` T r a c e _ o p t i o n s( < f > )' R e i n i c i at o d a sl a so p c i o n e sas u sv a l o r e sp r e d e t e r m i n a d o s . L a sc l a v e sd eo p c i o n e ss o n : *` N o p r i n t' N oi m p r i m au nm e n s a j ee nf u n c i nd el ae n t r a d ayl as a l i d a . *` R u p t u r a' P o n g au np u n t od ei n t e r r u p c i na n t e sd ei n t r o d u c i rl af u n c i ny d e s p u sd es a l i rd el af u n c i n .C o n s u l t e` b r e a k' . *` ' M o s t r a rl i s p _ p r i n ta r g u m e n t o syv a l o r e sd er e t o r n oc o m oL i s p o b j e t o s . *I n f o' P r i n t '>t r u e' ` e nf u n c i nd el ae n t r a d ayl as a l i d a . *` E r r o r e sd ec a p t u r ae r r o r c a t c h' ,d a n d ol ao p c i nd ei n d i c a ru n a e r r o r ,v u e l v aai n t e n t a rl al l a m a d aal af u n c i n ,oe s p e c i f i c a ru nv a l o rd er e t o r n o . O p c i o n e sd er a s t r e os ee s p e c i f i c a nd ed o sf o r m a s .L ap r e s e n c i ad el a o p c i ns o l ap a l a b r ac l a v ei n c l u y el ao p c i ne nv i g o ri n c o n d i c i o n a l m e n t e . ( T e n g ae nc u e n t aq u el ao p c i n< f o o >n os ep o n ee np r c t i c am e d i a n t el ae s p e c i f i c a c i n ` < f o o > :T r u e "ou n af o r m as i m i l a r ;n o t at a m b i nq u el a sp a l a b r a sc l a v en on e c e s i t a s e rc i t a d o . )E s p e c i f i c a c i nd el ap a l a b r ac l a v ec o nl ao p c i nd eu np r e d i c a d o f u n c i nh a c eq u el ao p c i nc o n d i c i o n a d aa lp r e d i c a d o . L al i s t ad ea r g u m e n t o sd el af u n c i nd ep r e d i c a d oe ss i e m p r e` n i v e l[ , d i r e c c i n ,f u n c i n ,i t e m ]' ,d o n d e` n i v e l "e se ln i v e ld er e c u r s i v i d a d p a r al af u n c i n ,' d i r e c t i o n 'e sy as e a` e n t e r' o è x i t ' , ' F u n c i n 'e se ln o m b r ed el af u n c i n ,y' p u n t o 'e se la r g u m e n t o l i s t a( a le n t r a r )oe lv a l o rd er e t o r n o( al as a l i d a ) . H ea q u u ne j e m p l od el a so p c i o n e sd er a s t r e on oc o n d i c i o n a l e s : ( %I 1 )f f( n ) :=s ie si g u a l( n ,0 )t h e n1e l s en*f f( n-1 )$ ( %I 2 )t r a c e( f f )$ ( %I 3 )t r a c e _ o p t i o n s( f f ,l i s p _ p r i n t ,d e s c a n s o )$ ( %I 4 )ys i g u i e n t e s( 3 ) ; E s t ae sl am i s m af u n c i n ,c o nl a' o p c i n 'p a u s ac o n d i c i o n a d aa u np r e d i c a d o : ( %I 5 )t r a c e _ o p t i o n s( f f ,d e s c a n s o( p p ) )$ ( %I 6 )p p( n i v e l ,l ad i r e c c i n ,l af u n c i n ,e l e m e n t o ) :=b l o q u e( i m p r e s i n( p u n t o ) , r e t o r n o( f u n c i n=' f fyl e v e l=3yl ad i r e c c i n=s a l i d a ) )$ ( %I 7 )ys i g u i e n t e s( 6 ) ;
351/633
28/08/13
F u n c i n :u n t r a c e( < f _ 1 > ,. . . ,< f _ n > ) F u n c i n :u n t r a c e( )
D a d a sl a sf u n c i o n e s< f _ 1 > ,. . . ,< f _ n > ,` u n t r a c e' d e s a c t i v ae lr a s t r e o h a b i l i t a d op o rl af u n c i n` t r a c e' .S i na r g u m e n t o s ,` u n t r a c e' d e s a c t i v ae lr a s t r e od et o d a sl a sf u n c i o n e s . ` U n t r a c e' d e v u e l v eu n al i s t ad el a sf u n c i o n e sp a r al a sc u a l e sd e s a c t i v a d o r a s t r e o .
39 asympa
I n t r o d u c c i naa s y m p a F u n c i o n e syv a r i a b l e sp a r aa s y m p a
39.1 Introduccin a asympa

F u n c i n :a s y m p a ` A s y m p a' e su np a q u e t ed ea n l i s i sa s i n t t i c o .E lp a q u e t ec o n t i e n e f u n c i o n e sd es i m p l i f i c a c i np a r ae la n l i s i sa s i n t t i c o ,i n c l u y e n d oe l " B i gO "y" p e q u e o s "of u n c i o n e sq u es eu t i l i z a na m p l i a m e n t ee n a n l i s i sd ec o m p l e j i d a dya n l i s i sn u m r i c o . C a r g a( " a s y m p a " )' c a r g a s 'E s t ep a q u e t e .
39.2 Funciones y variables para asympa 40 augmented_lagrangian

F u n c i o n e syv a r i a b l e sp a r aa u g m e n t e d _ l a g r a n g i a n
40.1 Funciones y variables para augmented_lagrangian

F u n c i n :a u g m e n t e d _ l a g r a n g i a n _ m e t h o d( < F O M > ,< x x > ,< C > ,< y y > ) F u n c i n :a u g m e n t e d _ l a g r a n g i a n _ m e t h o d( < F O M > ,< x x > ,< C > ,< y y > ,o p t i o n a l _ a r g s ) F u n c i n :a u g m e n t e d _ l a g r a n g i a n _ m e t h o d( [ < F O M > ,< g r a d > ] ,< x x > ,< C > ,< y y > ) F u n c i n :a u g m e n t e d _ l a g r a n g i a n _ m e t h o d( [ < F O M > ,< g r a d > ] ,< x x > ,< C > ,< y y > ,o p t i o n a l _ a r g s ) D e v u e l v eu nm n i m oa p r o x i m a d od el ae x p r e s i nc o n< F O M > r e s p e c t oal a sv a r i a b l e sd e< x x > ,m a n t e n i e n d ol a sr e s t r i c c i o n e s< C >i g u a l ac e r o .< y y >e su n al i s t ad ec o n j e t u r a si n i c i a l e sp a r a< x x > .E lm t o d o S ee m p l e e lm t o d od eL a g r a n g ea u m e n t a d a( v e rr e f e r e n c i a s[ 1 ]y[ 2 ] ) . < g r a d > ,s ie s t p r e s e n t e ,e se lg r a d i e n t ed e< F O M >c o nr e s p e c t oa< x x > , r e p r e s e n t a d oc o m ou n al i s t ad ee x p r e s i o n e s ,u n op a r ac a d av a r i a b l ee n < x x > .S in oe s t p r e s e n t e ,e lg r a d i e n t es ec o n s t r u y ed ef o r m aa u t o m t i c a . < F O M >Yc a d ae l e m e n t od e< g r a d > ,s ie s t p r e s e n t e ,d e b es e ro r d i n a r i a s e x p r e s i o n e s ,n ol o sn o m b r e sd el a sf u n c i o n e soe x p r e s i o n e sl a m b d a . ` O p t i o n a l _ a r g s' r e p r e s e n t aa r g u m e n t o sa d i c i o n a l e s ,e s p e c i f i c a d o sc o m o ` < s y m b o l >=< v a l o r >' .L o sa r g u m e n t o so p c i o n a l e sr e c o n o c i d o ss o n : ' N i t r o ' N m e r od ei t e r a c i o n e sd e la l g o r i t m od eL a g r a n g ea u m e n t a d a ` L b f g s _ t o l e r a n c e' T o l e r a n c i as u m i n i s t r aal b f g s ` I p r i n t' P a r m e t r oI P R I N T( u n al i s t ad ed o sn m e r o se n t e r o sq u ec o n t r o l a n v e r b o s i d a d )s u m i n i s t r a d aal b f g s ` %L a m b d a' V a l o ri n i c i a ld e` %l a m b d a' q u es eu t i l i z a r p a r ae lc l c u l od el a a u m e n t a d ad eL a g r a n g e E s t ai m p l e m e n t a c i nm i n i m i z ae ll a g r a n g i a n oa u m e n t a d om e d i a n t el aa p l i c a c i nd e a l g o r i t m od el al i m i t a d o l am e m o r i aB F G S( l b f g s ) ,q u ee su nc u a s i N e w t o n a l g o r i t m o . C a r g a s` c a r g a( a u g m e n t e d _ l a g r a n g i a n )' e s t af u n c i n . C o n s u l t et a m b i n` l b f g s' . R e f e r e n c i a s : [ 1 ] ` H t t p : / / w w w f p . m c s . a n l . g o v / o t c / G u i d e / O p t W e b / c o n t i n u o u s / c o n s t r a i n e d / n o n l i n e a r c o n / a u g l a g . h t m l' [ 2 ]` h t t p : / / w w w . c s . u b c . c a / s p i d e r / a s c h e r / 5 4 2 / c h a p 1 0 . p d f'
352/633
28/08/13
E j e m p l o s :
( %I 1 )l o a d( l b f g s ) ; ( %O 1 )/m a x i m a/s h a r e/l b f g s/l b f g s . m a c ( %I 2 )c a r g a( a u g m e n t e d _ l a g r a n g i a n ) ; ( %O 2 ) /M a x i m a/s h a r e/c o n t r i b/a u g m e n t e d _ l a g r a n g i a n . m a c ( %I 3 )F O M :x^2+2*y^2 ; 22 ( %O 3 )2y+x ( %I 4 )x x :[ x ,y ] ; ( %O 4 )[ x ,y ] ( %I 5 )C :[ x+y-1 ] ; ( %O 5 )[ y+x-1 ] ( %I 6 )a a :[ 1 ,1 ] ; ( %O 6 )[ 1 ,1 ] ( %I 7 )a u g m e n t e d _ l a g r a n g i a n _ m e t h o d( F O M ,x x ,C ,y y ,i p r i n t=[ 1 , 0 ] ) ; ( %O 7 )[ [ x=0 , 6 6 6 6 5 9 8 4 1 0 8 0 0 2 ,y=0 , 3 3 3 3 4 0 2 7 2 4 5 5 4 5 ] , %L a m b d a=[ -1 , 3 3 3 3 3 7 9 4 0 8 9 2 5 2 5 ] ] I g u a le j e m p l oc o m oa n t e s ,p e r oe s t av e ze lg r a d i e n t es es u m i n i s t r ac o m o u n ad i s c u s i n . ( %I 1 )l o a d( l b f g s )$ ( %I 2 )l o a d( a u g m e n t e d _ l a g r a n g i a n )$ ( %I 3 )F O M :x^2+2*y^2 ; 22 ( %O 3 )2y+x ( %I 4 )F O M :x^2+2*y^2 ; 22 ( %O 4 )2y+x ( %I 5 )x x :[ x ,y ] ; ( %O 5 )[ x ,y ] ( %I 6 )g r a d :[ 2x* ,4*y ] ; ( %O 6 )[ 2x ,4y ] ( %I 7 )C :[ x+y-1 ] ; ( %O 7 )[ y+x-1 ] ( %I 8 )y y :[ 1 ,1 ] ; ( %O 8 )[ 1 ,1 ] ( %I 9 )a u g m e n t e d _ l a g r a n g i a n _ m e t h o d( [ F O M ,g r a d ] ,x x ,C ,y y , i p r i n t=[ 1 ,0 ] ) ; ( %O 9 )[ [ x=0 . 6 6 6 6 5 9 8 4 1 0 8 0 0 2 5 ,y=0 . 3 3 3 3 4 0 2 7 2 4 5 5 4 4 6 2 ] , %L a m b d a=[ -1 , 3 3 3 3 3 7 9 4 0 8 9 2 5 4 3 ] ]
41 Bernstein
F u n c i o n e syv a r i a b l e sp a r aB e r n s t e i n
41.1 Funciones y variables para Bernstein

F u n c i n :b e r n s t e i n _ p o l y( < k > ,< n >< x > ) S i e m p r e` k' n oe su ne n t e r on e g a t i v o ,l o sp o l i n o m i o sd eB e r n s t e i n s ed e f i n e np o r` b e r n s t e i n _ p o l y( k ,n ,x )=b i n o m i a l( n ,k )x^k ( 1 x )^( n k )' ,p o ru ne n t e r on e g a t i v o` k ' ,e lp o l i n o m i od eB e r n s t e i n ` B e r n s t e i n _ p o l y( k ,n ,x )s ea n u l a .C u a n d os e a` k' o 'n' n os o n e n t e r o s ,l av a r i a b l eo p c i n` b e r n s t e i n _ e x p l i c i t' c o n t r o l ae l e x p a n s i nd el o sp o l i n o m i o sd eB e r n s t e i ne ns uf o r m ae x p l c i t a ; e j e m p l o : ( %I 1 )l o a d( B e r n s t e i n )$ ( %I 2 )b e r n s t e i n _ p o l y( k ,n ,x ) ; ( %O 2 )b e r n s t e i n _ p o l y( k ,n ,x ) ( %I 3 )b e r n s t e i n _ p o l y( k ,n ,x ) ,b e r n s t e i n _ e x p l i c i t :t r u e ; n-k k ( %O 3 )b i n o m i a l( n ,k )( 1-x )x L o sp o l i n o m i o sd eB e r n s t e i nt i e n e nt a n t ou n ap r o p i e d a dg r a d e fyu n i n t e g r a rl ap r o p i e d a d : ( %I 4 )d i f f( b e r n s t e i n _ p o l y( k ,n ,x ) ,x ) ; ( %O 4 )( b e r n s t e i n _ p o l y( k-1 ,n-1 ,x ) -B e r n s t e i n _ p o l y( k ,n-1 ,x ) )n ( %I 5 )i n t e g r a t e( b e r n s t e i n _ p o l y( k ,n ,x ) ,x ) ; ( %O 5 ) k+1 h i p e r g e o m t r i c a( [ k+1 ,k-n ] ,[ k+2 ] ,x )b i n o m i a l( n ,k )x -k+1 P a r al a se n t r a d a sn u m r i c a s ,t a n t or e a l e sc o m oc o m p l e j o s ,e lB e r n s t e i n p o l i n o m i o ss ee v a l a nc o m ou nr e s u l t a d on u m r i c o : ( %I 6 )b e r n s t e i n _ p o l y( 5 , 9 ,1 / 2+i % ) ; 3 9 . 3 7 5i3 9 . 3 7 5 % ( %O 6 )-+1 2 82 5 6 ( %I 7 )b e r n s t e i n _ p o l y( 5 , 9 ,0 . 5 b 0+ %i ) ; ( %O 7 )3 . 0 7 6 1 7 1 8 7 5 b 2 %i+1 . 5 3 8 0 8 5 9 3 7 5 b 2
353/633
28/08/13

P a r au s a r` b e r n s t e i n _ p o l y' ,p r i m e r ol o a d( "B e r n s t e i n" ) .
V a r i a b l e :b e r n s t e i n _ e x p l i c i t V a l o rp o rd e f e c t o :f a l s e' C u a n d os e a` k' o 'n' n os o ne n t e r o s ,l av a r i a b l eo p c i n ` B e r n s t e i n _ e x p l i c i t' c o n t r o l al ae x p a n s i nd e l `b e r n s t e i n( k ,n ,x ) e ns uf o r m ae x p l c i t a ,e j e m p l o : ( %I 1 )b e r n s t e i n _ p o l y( k ,n ,x ) ; ( %O 1 )b e r n s t e i n _ p o l y( k ,n ,x ) ( %I 2 )b e r n s t e i n _ p o l y( k ,n ,x ) ,b e r n s t e i n _ e x p l i c i t :t r u e ; n-k k ( %O 2 )b i n o m i a l( n ,k )( 1-x )x C u a n d oa m b o s` k' y 'n' s o nn m e r o se n t e r o se x p l c i t a m e n t e , `b e r n s t e i n( k ,n ,x ) _ s i e m p r e _e x p a n d eas uf o r m ae x p l c i t a .
F u n c i n :m u l t i b e r n s t e i n _ p o l y( < [ k 1 ,k 2 ,. . . ,k ] >< [ n 1 ,n 2 ,. . . ,n p ] >< [ x 1 ,x 2 ,. . . ,x p ] > ) E lp o l i n o m i om u l t i b e r n s t e i n` m u l t i b e r n s t e i n _ p o l y( < [ k 1 ,k 2 ,. . . , k p ] >< [ n 1 ,n 2 ,. . . ,n p ] >< [ x 1 ,x 2 ,. . . ,x p ] > )' e se lp r o d u c t od e b e r n s t e i np o l i n o m i o s` b e r n s t e i n _ p o l y( k 1 ,n 1 ,x 1 ) b e r n s t e i n _ p o l y( k 2 ,n 2 ,x 2 ). . .b e r n s t e i n _ p o l y( k p ,n p ,x p ) . P a r au s a r` m u l t i b e r n s t e i n _ p o l y' ,p r i m e r ol o a d( "B e r n s t e i n" ) .
F u n c i n :b e r n s t e i n _ a p p r o x( < f > ,< [ x 1 ,x 1 ,. . . ,x n ] > ,n ) D e v u e l v ae l` n' o r d e nu n i f o r m eB e r n s t e i na p r o x i m a c i np o l i n m i c a p a r al af u n c i n` ( x 1 ,x 2 ,. . . ,x n )|>f' .E j e m p l o s ( %I 1 )b e r n s t e i n _ a p p r o x( f( x ) ,[ x ] ,2 ) ; 212 ( %O 1 )f( 1 )x2+f( )( 1-x )x+f( 0 )( 1-x ) 2 ( %I 2 )b e r n s t e i n _ a p p r o x( f( x ,y ) ,[ x ,y ] ,2 ) ; 2212 ( %O 2 )f( 1 ,1 )x y+2f( ,1 )( 1-x )x y 2 2212 +F( 0 ,1 )( 1-x )y+2F( 1 ,)x( 1-y )y 2 1112 4+f( ,)( 1-x )x( 1-y )y+2f( 0 ,)( 1-x )( 1-y )y 222 2212 +F( 1 ,0 )x( 1-y )+2f( ,0 )( 1-x )x( 1-y ) 2 22 +F( 0 ,0 )( 1-x )( 1-y ) P a r au s a r` b e r n s t e i n _ a p p r o x' ,p r i m e r ol o a d( "B e r n s t e i n" ) .
F u n c i n :b e r n s t e i n _ e x p a n d( < e > ,< [ x 1 ,x 1 ,. . . ,x n ] > ) E x p r e s a rl a_ p o l y n o m i a l _` e' e x a c t a m e n t ec o m ou n ac o m b i n a c i nl i n e a ld e p o l i n o m i o sd eB e r n s t e i nd em l t i p l e sv a r i a b l e s . ( %I 1 )b e r n s t e i n _ e x p a n d( x*y1 ,[ x ,y ] ) ; ( %O 1 )2x y+( 1-x )y+x( 1-y )+( 1-x )( 1-y ) ( %I 2 )e x p a n s i n( % ) ; ( %O 2 )x y+1 M a x i m as e a l au ne r r o rc u a n d oe lp r i m e ra r g u m e n t on oe su np o l i n o m i o . P a r au s a r` b e r n s t e i n _ e x p a n d' ,p r i m e r ol o a d( "B e r n s t e i n" ) .
42 bode
F u n c i o n e syv a r i a b l e sp a r ab o d e
42.1 Funciones y variables para bode

F u n c i n :b o d e _ g a i n( < H > ,< r a n g o > ,. . .. . . ) F u n c i np a r ad i b u j a rd i a g r a m a sd eB o d ed eg a n a n c i a . E j e m p l o s( 1at r a v sd e7 H t t p : / / w w w . s w a r t h m o r e . e d u / N a t S c i / e c h e e v e 1 / R e f / B o d e / B o d e H o w . h t m l` ' , 8d eR o nC r u m m e t t ) :
354/633
28/08/13
( %I 1 )l o a d( " b o d e " )$
( %I 2 )H 1( s ) :=1 0 0*( 1+s )/( ( s+1 0 )*( s+1 0 0 ) )$ ( %I 3 )b o d e _ g a i n( H 1( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] )$ ( %I 4 )H 2( s ) :=1/( 1+s / o m e g a 0 )$ ( %I 5 )b o d e _ g a i n( H 2( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) ,o m e g a 0=1 0$ ( %I 6 )H 3( s ) :=1/( 1+s / o m e g a 0 )^2$ ( %I 7 )b o d e _ g a i n( H 3( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) ,o m e g a 0=1 0$ ( %I 8 )H 4( s ) :=1+$s / o m e g a 0 ( %I 9 )b o d e _ g a i n( H 4( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) ,o m e g a 0=1 0$ ( %I 1 0 )H 5( s ) :=1/s$ ( %I 1 1 )b o d e _ g a i n( H 5( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] )$ ( %I 1 2 )H 6( s ) :=1/( ( s / o m e g a 0 )^2+2*z e t a*( s / o m e g a 0 )+1 )$ ( %I 1 3 )b o d e _ g a i n( H 6( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) , o m e g a 0=1 0 ,z e t a=1 / 1 0$ ( %I 1 4 )H 7( s ) :=( s / o m e g a 0 )^2+2*z e t a*( s / o m e g a 0 )+1$ ( %I 1 5 )b o d e _ g a i n( H 7( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) , o m e g a 0=1 0 ,z e t a=1 / 1 0$ ( %I 1 6 )H 8( s ) :=0 , 5/( 0 . 0 0 0 1*s^3+0 . 0 0 2*s^2+0 . 0 1*s )$ ( %I 1 7 )b o d e _ g a i n( H 8( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] )$ P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " b o d e " ) .V a s et a m b i n ` B o d e _ p h a s e'
F u n c i n :b o d e _ p h a s e( < H > ,< r a n g o > ,. . .. . . ) F u n c i np a r ad i b u j a rd i a g r a m a sd eB o d ed ef a s e . E j e m p l o s( 1at r a v sd e7 H t t p : / / w w w . s w a r t h m o r e . e d u / N a t S c i / e c h e e v e 1 / R e f / B o d e / B o d e H o w . h t m l` ' , 8d eR o nC r u m m e t t ) : ( %I 1 )l o a d( " b o d e " )$ ( %I 2 )H 1( s ) :=1 0 0*( 1+s )/( ( s+1 0 )*( s+1 0 0 ) )$ ( %I 3 )b o d e _ p h a s e( H 1( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] )$ ( %I 4 )H 2( s ) :=1/( 1+s / o m e g a 0 )$ ( %I 5 )b o d e _ p h a s e( H 2( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) ,o m e g a 0=1 0$ ( %I 6 )H 3( s ) :=1/( 1+s / o m e g a 0 )^2$ ( %I 7 )b o d e _ p h a s e( H 3( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) ,o m e g a 0=1 0$ ( %I 8 )H 4( s ) :=1+$s / o m e g a 0 ( %I 9 )b o d e _ p h a s e( H 4( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) ,o m e g a 0=1 0$ ( %I 1 0 )H 5( s ) :=1/s$ ( %I 1 1 )b o d e _ p h a s e( H 5( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] )$ ( %I 1 2 )H 6( s ) :=1/( ( s / o m e g a 0 )^2+2*z e t a*( s / o m e g a 0 )+1 )$ ( %I 1 3 )b o d e _ p h a s e( H 6( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) , o m e g a 0=1 0 ,z e t a=1 / 1 0$ ( %I 1 4 )H 7( s ) :=( s / o m e g a 0 )^2+2*z e t a*( s / o m e g a 0 )+1$ ( %I 1 5 )b o d e _ p h a s e( H 7( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) , o m e g a 0=1 0 ,z e t a=1 / 1 0$ ( %I 1 6 )H 8( s ) :=0 , 5/( 0 . 0 0 0 1*s^3+0 . 0 0 2*s^2+0 . 0 1*s )$ ( %I 1 7 )b o d e _ p h a s e( H 8( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] )$ ( %I 1 8 )b l o q u e( [ b o d e _ p h a s e _ u n w r a p :f a l s e ] , b o d e _ p h a s e( H 8( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) ) ; ( %I 1 9 )b l o q u e( [ b o d e _ p h a s e _ u n w r a p :t r u e ] , b o d e _ p h a s e( H 8( s ) ,[ w ,1 / 1 0 0 0 ,1 0 0 0 ] ) ) ; P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " b o d e " ) .V a s et a m b i n ` B o d e _ g a i n'
43 cobyla
28/08/13
I n t r o d u c c i nac o b y l a F u n c i o n e syv a r i a b l e sp a r ac o b y l a E j e m p l o sd ec o b y l a
43.1 Introduccin a cobyla

F m i n _ c o b y l a` ' e su n at r a d u c c i nC o m m o nL i s p( v i a `f 2 c l ' )d e lF o r t r a n l i m i t a d oo p t i m i z a c i nC O B Y L Ar u t i n ap o rP o w e l l[ 1 ][ 2 ][ 3 ] . C O B Y L Am i n i m i z au n af u n c i no b j e t i v of( X )s u j e t aaMd e s i g u a l d a d r e s t r i c c i o n e sd el af o r m ag( x ) >=0e nX ,d o n d eXe su nv e c t o rd e v a r i a b l e sq u et i e n enc o m p o n e n t e s . R e s t r i c c i o n e sd ei g u a l d a dg( X )=0m e n u d op u e d e ns e re j e c u t a d a sp o ru np a rd e r e s t r i c c i o n e sd ed e s i g u a l d a dg( x ) >=0yg( x ) >=0 .L ai n t e r f a zd eM a x i m a C O B Y L Ap e r m i t er e s t r i c c i o n e sd ei g u a l d a dyc o n v i e r t ei n t e r n a m e n t el ai g u a l d a d l i m i t a c i o n e sal ap a rd er e s t r i c c i o n e sd ed e s i g u a l d a d . E la l g o r i t m ou t i l i z aa p r o x i m a c i o n e sl i n e a l e sp a r ae lo b j e t i v oy f u n c i o n e sd er e s t r i c c i n ,l a sa p r o x i m a c i o n e sq u es ef o r m a np o rl i n e a l i n t e r p o l a c i ne nN+ 1p u n t o se ne le s p a c i od el a sv a r i a b l e s .L a p u n t o sd ei n t e r p o l a c i ns o nc o n s i d e r a d o sc o m ov r t i c e sd eu ns i m p l e x .L a R H Op a r m e t r oc o n t r o l ae lt a m a od el as i m p l eys er e d u c e a u t o m t i c a m e n t ed eR H O B E GaR H O E N D .P a r ac a d aR H Ol as u b r u t i n ai n t e n t a p a r al o g r a ru nb u e nv e c t o rd ev a r i a b l e sp a r ae lt a m a oa c t u a ly ,ac o n t i n u a c i n , R H Os er e d u c eh a s t aq u es ea l c a n z ae lv a l o rR H O E N D .P o rl ot a n t oR H O B E Gy R H O E N Dd e b ea j u s t a r s eal o sc a m b i o si n i c i a l e syr a z o n a b l e sal ar e q u e r i d a p r e c i s i ne nl a sv a r i a b l e s ,r e s p e c t i v a m e n t e ,p e r oe s t ap r e c i s i nd e b e ns e r v i s t oc o m ou ns u j e t op a r al ae x p e r i m e n t a c i n ,y aq u en oe s t g a r a n t i z a d a . L ar u t i n at r a t aac a d ar e s t r i c c i ni n d i v i d u a l m e n t ep a r ac a l c u l a ru n c a m b i a ral a sv a r i a b l e s ,e nl u g a rd ea g r u p a rl a sl i m i t a c i o n e sj u n t o s e nu n a n i c af u n c i nd ep e n a l i z a c i n .S ed e r i v ae ln o m b r ed el as u b r u t i n a d el af r a s eo p t i m i z a c i nr e s t r i n g i d ap o ra p r o x i m a c i o n e sl i n e a l e s . R e f e r e n c i a s : [ 1 ]C d i g oF o r t r a ne sd e ` H t t p : / / p l a t o . a s u . e d u / s u b / n l o r e s . h t m l#g e n e r a l " [ 2 ]M J DP o w e l l ," U nm t o d od eo p t i m i z a c i nd eb s q u e d ad i r e c t aq u e m o d e l o sd el o so b j e t i v o syf u n c i o n e sd er e s t r i c c i np o ri n t e r p o l a c i nl i n e a l" A v a n c e se nO p t i m i z a c i nyA n l i s i sN u m r i c o ,e d s .S .G m e zy J . P .H e n n a r t( K l u w e rA c a d e m i c :D o r d r e c h t ,1 9 9 4 ) ,p .5 1 6 7 . [ 3 ]M J DP o w e l l ," l o sa l g o r i t m o sd eb s q u e d ad i r e c t ap a r al ao p t i m i z a c i n c l c u l o s ," A c t aN u m e r i c a7 ,2 8 7 3 3 6( 1 9 9 8 ) .T a m b i nd i s p o n i b l ec o m o U n i v e r s i d a dd eC a m b r i d g e ,d e lD e p a r t a m e n t od eM a t e m t i c aA p l i c a d ay F s i c aT e r i c a ,G r u p od eA n l i s i sN u m r i c o ,I n f o r m eN A 1 9 9 8 / 0 4d e ` H t t p : / / w w w . d a m t p . c a m . a c . u k / u s e r / n a / r e p o r t s . h t m l'
43.2 Funciones y variables para cobyla

F u n c i n :f m i n _ c o b y l a( < F > ,< X > ,< S > ) F u n c i n :f m i n _ c o b y l a( < F > ,< X > ,< S > ,o p t i o n a l _ a r g s ) D e v u e l v eu nm n i m oa p r o x i m a d od el a< F >e x p r e s i nc o nr e s p e c t o al a< X >l a sv a r i a b l e s ,s u j e t o sau nc o n j u n t oo p c i o n a ld el i m i t a c i o n e s . < S >E su n al i s t ad ec o n j e t u r a si n i c i a l e sp a r a< X > . < F >D e b es e ru n ae x p r e s i nc o m n ,n on o m b r e sd ef u n c i o n e so e x p r e s i o n e sl a m b d a . ` O p t i o n a l _ a r g s' r e p r e s e n t aa r g u m e n t o sa d i c i o n a l e s ,e s p e c i f i c a d o sc o m o ` < s y m b o l >=< v a l o r >' .L o sa r g u m e n t o so p c i o n a l e sr e c o n o c i d o ss o n : ` R e s t r i c c i o n e s' L i s t ad er e s t r i c c i o n e sd ed e s i g u a l d a dei g u a l d a dq u ed e b es e r s a t i s f e c h op o r< X > .L a sr e s t r i c c i o n e sd ed e s i g u a l d a dd e b e ns e rr e a l e s l a sd e s i g u a l d a d e sd el af o r m a` g( < X > ) >=h( < X > )' o `g( < X > )< = h( < X > ) .L a sr e s t r i c c i o n e sd ei g u a l d a dd e b e ns e rd el af o r m a ` G( < X > )=h( < X > ) . ` R h o b e g' V a l o ri n i c i a ld el av a r i a b l eR H Oi n t e r n oq u ec o n t r o l ae l t a m a od es i m p l e x .( E lv a l o rp r e d e t e r m i n a d oe s1 , 0 ) ` R h o e n d' E lp a r m e t r or h ov a l o rf i n a ld e s e a d o .S ee n c u e n t r aau n o s l ae x a c t i t u dd el a sv a r i a b l e s .( E lv a l o rp r e d e t e r m i n a d oe s1 d 6 . ) ` I p r i n t' N i v e ld es a l i d ad e t a l l a d a .( E lv a l o rp r e d e t e r m i n a d oe s0 ) *0-N oh a ys a l i d a *1-R e s u m e na lf i n a ld e lc l c u l o *2-C a d an u e v ov a l o rd eR H OyS I G M As eh ai m p r e s o ,i n c l u y e n d o e lv e c t o rd ev a r i a b l e s ,a l g u n a si n f o r m a c i o n e sf u n c i nc u a n d o R H Os er e d u c e . *3-A li g u a lq u e2 ,p e r ol ai n f o r m a c i ns ei m p r i m ee nF( X )e s
356/633
28/08/13
c a l c u l a d o .
` M A X F U N' E ln m e r om x i m od ee v a l u a c i o n e sd el af u n c i n .( E lv a l o rp r e d e t e r m i n a d oe s 1 0 0 0 ) . E nc a m b i o ,u nv e c t o re sd a d o , 1 .E lv a l o rd el a sv a r i a b l e sq u ed a ne lm n i m o .E s t ee su n l i s t ad el o se l e m e n t o sd el af o r m a` < v a r >=< v a l o r > "p a r ac a d au n od el o s L a sv a r i a b l e sa p a r e c e ne n< X > . 2 .E lv a l o rd el af u n c i nm i n i m i z a d a 3 .E ln m e r od ee v a l u a c i o n e sd el af u n c i n . 4 .C d i g od er e t o r n oc o nl o ss i g u i e n t e ss i g n i f i c a d o s 1 .0-N oh a ye r r o r e s . 2 .1-L m i t ee ne ln m e r om x i m od ee v a l u a c i o n e sd el af u n c i n a l c a n z a d o . 3 .2-e r r o r e sd er e d o n d e oi n h i b i re lp r o g r e s o . C a r g a s` c a r g a( f m i n _ c o b y l a )' e s t af u n c i n .
F u n c i n :b f _ f m i n _ c o b y l a( < F > ,< X > ,< S > ) F u n c i n :b f _ f m i n _ c o b y l a( < F > ,< X > ,< S > ,o p t i o n a l _ a r g s ) E s t af u n c i ne si d n t i c aal a` f m i n _ c o b y l a' ,e x c e p t oq u eb i g f l o a t o p e r a c i o n e ss eu t i l i z a n ,ye lv a l o rp o rd e f e c t op a r a< r h o e n d >e s ` 1 0^( f p p r e c/2 ) . C o n s u l t e` f m i n _ c o b y l a "p a r ao b t e n e rm si n f o r m a c i n . C a r g a s` c a r g a( f m i n _ c o b y l a )' e s t af u n c i n .
43.3 Ejemplos para cobyla

M i n i m i z a rx 1*x 2c o n1 x 1 x 2^2^2 >=0 .L as o l u c i nt e r i c ae sx 1=
44 contrib_ode
I n t r o d u c c i nac o n t r i b _ o d e F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e m e j o r a sp o s i b l e sac o n t r i b _ o d e c a s o sd ep r u e b ap a r ac o n t r i b _ o d e R e f e r e n c i a sp a r ac o n t r i b _ o d e
44.1 Introduccin a contrib_ode

E c u a c i nd i f e r e n c i a lo r d i n a r i ad eM a x i m a( O D E )s o l u c i o n a d o r` o d e 2' r e s u e l v e E D O sl i n e a l e se l e m e n t a l e sd ep r i m e rys e g u n d oo r d e n .L af u n c i n ` C o n t r i b _ o d e' e x t i e n d e 'o d e 2' c o nm t o d o sa d i c i o n a l e sp a r al i n e a ly n ol i n e a l e s ,e c u a c i o n e sd i f e r e n c i a l e so r d i n a r i a sd ep r i m e ro r d e nyd es e g u n d oo r d e nE D O sl i n e a l e sh o m o g n e a s . E lc d i g oe s t t o d a v ae nd e s a r r o l l oyl as e c u e n c i ad el l a m a d ap u e d ec a m b i a r e nf u t u r a sv e r s i o n e s .U n av e zq u ee lc d i g os eh ae s t a b i l i z a d os ep u e d em o v e rd e s d e e ld i r e c t o r i oc o n t r i bei n t e g r a d oe nM a x i m a . E s t ep a q u e t es ed e b ec a r g a rc o ne l` c o m a n d ol o a d( ' c o n t r i b _ o d e ) ' a n t e sd es uu s o . L ac o n v e n c i nd el l a m a d ap a r a` c o n t r i b _ o d e' e si d n t i c aal a ò d e 2 ' .L o t o m at r e sa r g u m e n t o s :u n ae c u a c i n( s l ol ai z q u i e r d an e c e s i t as e rd a d os i l ad e r e c h ae s0 ) ,l av a r i a b l ed e p e n d i e n t eye li n d e p e n d i e n t e v a r i a b l e .C u a n d ot i e n e x i t o ,d e v u e l v eu n al i s t ad es o l u c i o n e s . L af o r m ad el as o l u c i nd i f i e r ed e` o d e 2' .C o m on ol i n e a l e c u a c i o n e sp u e d e nt e n e rm l t i p l e ss o l u c i o n e s ,` c o n t r i b _ o d e' d e v u e l v eu n al i s t ad e s o l u c i o n e s .C a d as o l u c i np u e d et e n e ru nn m e r od ef o r m a s : *U n as o l u c i ne x p l c i t ad el av a r i a b l ed e p e n d i e n t e , *U n as o l u c i ni m p l c i t ad el av a r i a b l ed e p e n d i e n t e , *U n as o l u c i np a r a m t r i c ae nt r m i n o sd el av a r i a b l e` %T' o *At r a n f o r m a t i o ne no t r oO D Ee nl av a r i a b l e' %u ' . ` %C' s eu t i l i z ap a r ar e p r e s e n t a rl ac o n s t a n t ed ei n t e g r a c i np a r al ap r i m e r a e c u a c i o n e sd eo r d e n .` %K 1' y ` %k 2 's o nl a sc o n s t a n t e sd es e g u n d oo r d e n e c u a c i o n e s .S i` c o n t r i b _ o d e' n op u e d eo b t e n e ru n as o l u c i np a r al oq u e r a z n ,d e v u e l v e` f a l s e' ,a c o m p a a d oq u i z sd eu nm e n s a j ed ee r r o r . E sn e c e s a r i od e v o l v e ru n al i s t ad es o l u c i o n e s ,y aq u ei n c l u s od ep r i m e ro r d e n e c u a c i o n e sd i f e r e n c i a l e so r d i n a r i a sn ol i n e a l e sp u e d e nt e n e rm l t i p l e ss o l u c i o n e s .P o re j e m p l o : ( %I 1 )l o a d( ' c o n t r i b _ o d e )$
357/633
28/08/13

( %I 2 )l ae c u a c i n :x*' d i f f( y ,x )^2-( 1+x*y )* 'd i f f( y ,x )+y=0 ; d yd y2 ( %O 2 )x( )-( x+1 )-+y=0 d xd x ( %I 3 )c o n t r i b _ o d e( l ae c u a c i n ,y ,x ) ; x ( %O 3 )[ y=l o g( x )+ %C ,Y= %C %e ] ( %I 4 )M t o d o ; ( %O 4 )F a c t o r E D O sn ol i n e a l e sp u e d e nt e n e rs o l u c i o n e ss i n g u l a r e sys i nc o n s t a n t e sd e l ai n t e g r a c i n ,c o m oe nl as e g u n d as o l u c i nd el as i g u i e n t ee j e m p l o : ( %I 1 )l o a d( ' c o n t r i b _ o d e )$ ( %I 2 )l ae c u a c i n :' d i f f( y ,x )^2+x* 'd i f f( y ,x )y=0 ; d yd y2 ( %O 2 )( )x-+y=0 d xd x ( %I 3 )c o n t r i b _ o d e( l ae c u a c i n ,y ,x ) ; 2 2x ( %O 3 )[ y=c x+ % %c ,y=] 4 ( %I 4 )M t o d o ; ( %O 4 )C l a i r a u l t E ls i g u i e n t eO D Et i e n ed o ss o l u c i o n e sp a r a m t r i c a se nt r m i n o sd e lm a n i q u v a r i a b l e` %T' .E ne s t ec a s ol a ss o l u c i o n e sp a r a m t r i c a sp u e d e ns e rm a n i p u l a d o s p a r ad a rs o l u c i o n e se x p l c i t a s . ( %I 1 )l o a d( ' c o n t r i b _ o d e )$ ( %I 2 )l ae c u a c i n :' d i f f( y ,x )=( x+y )^2 ; d y2 ( %O 2 )-=( y+x ) d x ( %I 3 )c o n t r i b _ o d e( l ae c u a c i n ,y ,x ) ; ( %O 3 )[ [ x= %c-a t a n( s q r t( %t ) ) ,y=-x-s q r t( %t ) ] , [ X=a t a n( s q r t( %t ) )+ %c ,y=s q r t( %t )-x ] ] ( %I 4 )M t o d o ; ( %O 4 )l a g r a n g e E ls i g u i e n t ee j e m p l o( K a m k e1 . 1 1 2 )d e m u e s t r au n ai m p l c i t a s o l u c i n . ( %I 1 )l o a d( ' c o n t r i b _ o d e )$ ( %I 2 )a s u m i r ( x >0 ,y >0 ) ; ( %O 2 )[ x >0 ,y >0 ] ( %I 3 )l ae c u a c i n :x*' d i f f( y ,x ) x*s q r t( y^2+x^2 ) ,y ; d y22 ( %O 3 )x-xs q r t( y+x )-y d x ( %I 4 )c o n t r i b _ o d e( l ae c u a c i n ,y ,x ) ; y ( %O 4 )[ x-a s i n h( )= %c ] x ( %I 5 )M t o d o ; ( %O 5 )s ee n c u e n t r a n L as i g u i e n t ee c u a c i nd eR i c c a t is et r a n s f o r m ae nu n as e g u n d al i n e a l O D Eo r d e ne nl av a r i a b l e' %u ' .M a x i m ae si n c a p a zd er e s o l v e rl an u e v aO D E , p o rl oq u es ed e v u e l v es i ne v a l u a r . ( %I 1 )l o a d( ' c o n t r i b _ o d e )$ ( %I 2 )l ae c u a c i n :x^2*' d i f f( y ,x )=a+b*x^n+c*x^2*y^2 ; D y222n ( %O 2 )x-=c x y+b x+a d x ( %I 3 )c o n t r i b _ o d e( l ae c u a c i n ,y ,x ) ; d %u -2 d x2n-2a d %u ( %O 3 )[ [ y=, %u c( b x+)-+c=0 ] ] %U c22 xd x ( %I 4 )M t o d o ; ( %O 4 )R i c c a t i P o rp r i m e r ao r d e no d a s` c o n t r i b _ o d e' l l a m a ò d e 2 ' .Ac o n t i n u a c i n ,s et r a t ae l
358/633
28/08/13

s i g u i e n t e sm t o d o s :f a c t o r i z a c i n ,C l a i r a u l t ,L a g r a n g e ,R i c c a t i ,A b e l A c u s t e s eym t o d o sd es i m e t r a .E lm t o d od el am e n t i r an os et r a t d eA b e l e c u a c i o n e ss ie lm t o d od eA b e lf a l l a ,p e r os et r a t s ie lR i c c a t i m t o d od e v u e l v eu n aE D Od es e g u n d oo r d e ns i nr e s o l v e r . P a r aE D O sd es e g u n d oo r d e n` c o n t r i b _ o d e' l l a m a ò d e 2 'y` o d e l i n' . S em u e s t r a nl o sr a s t r o sd ed e p u r a c i ne x t e n s a sym e n s a j e ss ie lc o m a n d o ` P u t( ' c o n t r i b _ o d e ,c i e r t o d e t a l l a d o ) 's ee j e c u t a .
44.2 Funciones y variables para contrib_ode

F u n c i n :c o n t r i b _ o d e( < e q n > ,< y > ,< x > ) D e v u e l v eu n al i s t ad el a ss o l u c i o n e sd el a< e q n >O D Ec o ni n d e p e n d e n c i a < x >v a r i a b l ey< y >v a r i a b l ed e p e n d i e n t e .
F u n c i n :o d e l i n( < e q n > ,< y > ,< x > ) ` O d e l i n' r e s u e l v ee c u a c i o n e sd i f e r e n c i a l e so r d i n a r i a sl i n e a l e sh o m o g n e a sd ep r i m e rys e g u n d oo r d e n c o n< x >v a r i a b l ei n d e p e n d i e n t ey< y >v a r i a b l ed e p e n d i e n t e .L o d e v u e l v eu nc o n j u n t of u n d a m e n t a ld es o l u c i o n e sd el aE D O . P a r aE D O sd es e g u n d oo r d e n ,` o d e l i n' u t i l i z au nm t o d o ,d e b i d oaB r o n s t e i n yL a f a i l l e ,q u eb u s c as o l u c i o n e se nt r m i n o sd ed a d o f u n c i o n e se s p e c i a l e s . ( %I 1 )l o a d( ' c o n t r i b _ o d e ) ; ( %I 2 )o d e l i n( x*( x1 )*' d i f f( y ,x ,2 )+( 5x )* 'd i f f( y ,x ,1 )+( 4 )*y ,y ,x) ; . . .T r a t a n d om t o d od e lf a c t o r 7. . .s o l u c i nd ee c u a c i o n e se n4v a r i a b l e s . . .P r o b a re ls o l u c i o n a d o rd eB e s s e l 1. . .s o l u c i nd ee c u a c i o n e se n2v a r i a b l e s . . .P r o b a re lF 0 1s o l v e r 1. . .s o l u c i nd ee c u a c i o n e se n3v a r i a b l e s . . .T r a t a n d oe ls o l u c i o n a d o rd eo n d as p h e r o d i a l 1. . .s o l u c i nd ee c u a c i o n e se n4v a r i a b l e s . . .T r a t a n d ol ar a zc u a d r a d aB e s s e ls o l v e r 1. . .s o l u c i nd ee c u a c i o n e se n2v a r i a b l e s . . .T r a t a n d oe ls o l u c i o n a d o r2 F 1 R e s o l v e re c u a c i o n e s. . .9e n5v a r i a b l e s g a u s s _ a( -6 ,-2 ,-3 ,-x )g a u s s _ b( -6 ,-2 ,-3 ,-x ) ( %O 2 ){ ,-} 44 x x
F u n c i n :o d e _ c h e c k( < e q n > ,< s o l n > ) D e v u e l v ee lv a l o rd eO D E< e q n >d e s p u sd es u s t i t u i ru n ap o s i b l e < s o l n >s o l u c i n .E lv a l o re si g u a lac e r os i< s o l n >e su n s o l u c i nd e< e q n > . ( %I 1 )l o a d( ' c o n t r i b _ o d e )$ ( %I 2 )l ae c u a c i n :' d i f f( y ,x ,2 )+( a*x+b )*y ; 2 d y ( %O 2 )-+( a x+b )y
2 d x ( %I 3 )A m e r i c a nN a t i o n a lS t a n d a r d :[ Y=b e s s e l _ y( 1 / 3 ,2*( a*x+b )^( 3 / 2 )/( 3*a ) )* %k 2*s q r t( a*x+b ) +B e s s e l _ j( 1 / 3 ,2*( a*x+b )^( 3 / 2 )/( 3*a ) )* %k 1*s q r t( a*x+b ) ] ; 3 / 2 12( a x+b ) ( %O 3 )[ y=b e s s e l _ y( ,) %s q r tk 2( a x+b ) 33a 3 / 2 12( a x+b ) +B e s s e l _ j( ,) %k 1s q r t( a x+b ) ] 33a ( %I 4 )o d e _ c h e c k( e c u a c i n ,a n s[ 1 ] ) ; ( %O 4 )0
V a r i a b l ed e ls i s t e m a :m t o d o E l' m t o d o 'v a r i a b l es ee s t a b l e c ee ne lm t o d od es o l u c i ne x i t o s a .
V a r i a b l e :%C ` %C' e sl ac o n s t a n t ed el ap r i m e r aE D Oo r d e nd ei n t e g r a c i n .
359/633
28/08/13
V a r i a b l e :%k 1 ` %K 1' e sl ac o n s t a n t ed eE D O sd es e g u n d oo r d e np r i m e r oi n t e g r a c i n .
V a r i a b l e :%k 2 ` %K 2' e sl as e g u n d ac o n s t a n t ep a r aE D O sd es e g u n d oo r d e nd ei n t e g r a c i n .
F u n c i n :g a u s s _ a( < a > ,< c > ,< x > ) ` G a u s s _ a( a ,b ,c ,x )' y `g a u s s _ b( a ,b ,c ,x ) 's o n2 F 1g e o m t r i c a f u n c i o n e s .R e p r e s e n t a nl a sd o ss o l u c i o n e si n d e p e n d i e n t e sd el a e c u a c i nd i f e r e n c i a lh i p e r g e o m t r i c a` x( 1 x ) ,d i f f( y ,x ,2 )+ [ C ( a+b+1 )xd i f f( y ,x )-a b y=0' ( A&S1 5 . 5 . 1 ) . E l n i c ou s od ee s t a sf u n c i o n e ss ee n c u e n t r ae ns o l u c i o n e sd ee c u a c i o n e sd i f e r e n c i a l e so r d i n a r i a sd e v u e l t o sp o r O d e l i n` ' y `c o n t r i b _ o d e ' .L ad e f i n i c i nye lu s od ee s t o s f u n c i o n e sp u e d e nc a m b i a re nf u t u r a sv e r s i o n e sd eM a x i m a . C o n s u l t et a m b i n` g a u s s _ b' , `d g a u s s _ a 'y` g a u s s _ b' .
F u n c i n :g a u s s _ b( < a > ,< c > ,< x > ) C o n s u l t e` g a u s s _ a' .
F u n c i n :d g a u s s _ a( < a > ,< c > ,< x > ) L ad e r i v a d ac o nr e s p e c t oa< x >d e l` g a u s s _ a( < a > ,< c > , < x > ) .
F u n c i n :d g a u s s _ b( < a > ,< c > ,< x > ) L ad e r i v a d ac o nr e s p e c t oa< x >d e l` g a u s s _ b( < a > ,< c > , < x > ) .
F u n c i n :k u m m e r _ m( < a > ,< x > ) F u n c i nMd eK u m m e r ,t a lc o m os ed e f i n ee nA b r a m o w i t zyS t e g u n ,M a n u a l d ef u n c i o n e sm a t e m t i c a s ,S e c c i n1 3 . 1 . 2 . E l n i c ou s od ee s t af u n c i ne se nl a ss o l u c i o n e sd ee c u a c i o n e sd i f e r e n c i a l e so r d i n a r i a sd e v u e l t o sp o r O d e l i n` ' y `c o n t r i b _ o d e ' .L ad e f i n i c i nye lu s od ee s t e f u n c i n ,p u e d ec a m b i a re nf u t u r a sv e r s i o n e sd eM a x i m a . C o n s u l t et a m b i n` k u m m e r _ u' , `d k u m m e r _ m 'y` d k u m m e r _ u' .
F u n c i n :k u m m e r _ u( < a > ,< x > ) F u n c i nUd eK u m m e r ,t a lc o m os ed e f i n ee nA b r a m o w i t zyS t e g u n ,M a n u a l d ef u n c i o n e sm a t e m t i c a s ,S e c c i n1 3 . 1 . 3 . C o n s u l t e` k u m m e r _ m' .
F u n c i n :d k u m m e r _ m( < a > ,< x > ) L ad e r i v a d ac o nr e s p e c t oa< x >d e l` k u m m e r _ m( < a > ,< x > ) .
F u n c i n :d k u m m e r _ u( < a > ,< x > ) L ad e r i v a d ac o nr e s p e c t oa< x >d e l` k u m m e r _ u( < a > ,< x > ) .
44.3 Posibles mejoras contrib_ode

E s t a sr u t i n a ss o nu nt r a b a j oe np r o g r e s o .T o d a v an e c e s i t o : *E x t e n d e re lm t o d oF A C T O R` o d e 1 _ f a c t o r' t r a b a j a rp a r am l t i p l e sr a c e s . *E x t e n d e re lm t o d oF A C T O R` o d e 1 _ f a c t o r' p a r at r a t a rd er e s o l v e rs u p e r i o r f a c t o r e sd eo r d e n .E nl aa c t u a l i d a d ,s l oi n t e n t o sd er e s o l v e rf a c t o r e sl i n e a l e s .
360/633
28/08/13

*F i j a rl ar u t i n aL A G R A N G E` o d e 1 _ l a g r a n g e' p r e f e r i rr a c e sr e a l e ss o b r e r a c e sc o m p l e j a s . *A a d i rm t o d o sa d i c i o n a l e sp a r al a se c u a c i o n e sd eR i c c a t i . *M e j o r a rl ad e t e c c i nd eA b e le c u a c i o n e sd es e g u n d ot i p o .L a e x i s i t i n gc o i n c i d e n c i ad ep a t r o n e se sd b i l . *E lt r a b a j oe ne lg r u p od eL i es i m e t r ar u t i n a` o d e 1 _ l i e' .H a y b a s t a n t e sp r o b l e m a sc o n l :a l g u n a sp a r t e sn oe s t ni m p l e m e n t a d a s ,a l g u n o s c a s o sd ep r u e b ap a r e c e nc o r r e rp a r as i e m p r e ,o t r o sc a s o sd ep r u e b a sd ec h o q u e ,s i ne m b a r g o , o t r o sv u e l v e n" s o l u c i o n e s "m u yc o m p l e j o s .M ep r e g u n t os ir e a l m e n t e l i s t op a r as a l i ra n . *A a d i rm sc a s o sd ep r u e b a .
44.4 Los casos de prueba para contrib_ode

L a sr u t i n a ss eh a np r o b a d oe nu n ap r u e b ad ea p r o x i m a d a m e n t em i l c a s o sd eM u r p h y ,K a m k e ,Z w i l l i n g e rye no t r o sl u g a r e s .E n t r ee l l o ss ei n c l u y e n e nl a sp r u e b a sd es u b d i r e c t o r i o . *L aC l a i r a u l tr u t i n a` o d e 1 _ c l a i r a u l t' e n c u e n t r at o d a sl a ss o l u c i o n e sc o n o c i d a s , i n c l u y e n d os o l u c i o n e ss i n g u l a r e s ,d el a se c u a c i o n e sC l a i r a u l te nM u r p h y yK a m k e . *L a so t r a sr u t i n a sam e n u d or e g r e s a nu n a n i c as o l u c i nc u a n d om l t i p l e s e x i s t e ns o l u c i o n e s . *A l g u n a sd el a s" s o l u c i o n e s "d e` o d e 1 _ l i e' s o ne x c e s i v a m e n t ec o m p l e j o sy i m p o s i b l ed ec o m p r o b a r . *H a ya l g u n o sf a l l o s .
44.5 Referencias para contrib_ode

1 .E .K a m k e ,D i f f e r e n t i a l g l e i c h u n g e nL o s u n g s m e t h o d e nu n dL o s u n g e n , V o l .1 ,G e e s tyP o r t i g ,L e i p z i g ,1 9 6 1 2 .G MM u r p h y ,E c u a c i o n e sD i f e r e n c i a l e sO r d i n a r i a sys u ss o l u c i o n e s , V a nN o s t r a n d ,N e wY o r k ,1 9 6 0 3 .D .Z w i l l i n g e r ,M a n u a ld eE c u a c i o n e sD i f e r e n c i a l e s ,t e r c e r ae d i c i n , A c a d e m i cP r e s s ,1 9 9 8 4 .E s t u d i o sF .S c h w a r z ,A n l i s i sd es i m e t r ad el ae c u a c i nd eA b e l ,e n M a t e m t i c aA p l i c a d a ,1 0 0 : 2 6 9 2 9 4( 1 9 9 8 ) 5 .F .S c h w a r z ,s o l u c i na l g o r t m i c ad el ae c u a c i nd eA b e l ,I n f o r m t i c a 6 1 ,3 9 4 9( 1 9 9 8 ) 6 .E SC h e b T e r r a b ,A DR o c h e ,s i m e t r a syl aP r i m e r aO r d e nO D E P a t r o n e s ,f s i c ad el ac o m p u t a d o r ad eC o m u n i c a c i o n e s1 1 3( 1 9 9 8 ) ,p2 3 9 . ( ` H t t p : / / l i e . u w a t e r l o o . c a / p a p e r s / o d e _ v i i . p d f' ) 7 .E SC h e b T e r r a b ,T .K o l o k o l n i k o v ,F i r s tE D OO r d e n , S i m e t r a syt r a n s f o r m a c i o n e sl i n e a l e s ,E u r o p e a nJ o u r n a lo f M a t e m t i c aA p l i c a d a ,v o l .1 4 ,N2 ,p p2 3 1 2 4 6( 2 0 0 3 ) . ( H t t p : / / a r x i v . o r g / a b s / m a t h p h / 0 0 0 7 0 2 3` ' , ` H t t p : / / l i e . u w a t e r l o o . c a / p a p e r s / o d e _ i v . p d f' ) 8 .G WB l u m a n ,S CA n c o ,l as i m e t r ayl ai n t e g r a c i nd em t o d o sp a r a E c u a c i o n e sd i f e r e n c i a l e s ,S p r i n g e r ,( 2 0 0 2 ) 9 .M .B r o n s t e i n ,S .L a f a i l l e ,S o l u c i o n e sd ec o r r i e n t el i n e a l e c u a c i o n e sd i f e r e n c i a l e se nt r m i n o sd ef u n c i o n e se s p e c i a l e s ,P r o c e e d i n g s d eI S S A C2 0 0 2 ,L i l l e ,A C MP r e s s ,2 3 2 8 . ( ` H t t p : / / w w w s o p . i n r i a . f r / c a f e / M a n u e l . B r o n s t e i n / p u b l i c a t i o n s / i s s a c 2 0 0 2 . p d f' )
45 descriptiva
I n t r o d u c c i nal ad e s c r i p t i v o s F u n c i o n e syv a r i a b l e sp a r al am a n i p u l a c i nd ed a t o s F u n c i o n e syv a r i a b l e sp a r al ae s t a d s t i c ad e s c r i p t i v a F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s
45.1 Introduccin a descriptiva

P a q u e t e` d e s c r i p t i v a' c o n t i e n eu nc o n j u n t od ef u n c i o n e sp a r ah a c e r c l c u l o syg r f i c o se s t a d s t i c o sd e s c r i p t i v o s .J u n t oc o nl a c d i g of u e n t e ,h a yt r e sc o n j u n t o sd ed a t o se ne l r b o ld eM a x i m a : P i d i g i t s . d a t a` ' , `w i n d . d a t a 'y` b i o m e d . d a t a' . C u a l q u i e rm a n u a ld ee s t a d s t i c as ep u e d eu t i l i z a rc o m ou n ar e f e r e n c i aal a sf u n c i o n e se n p a q u e t e` d e s c r i p t i v a . P a r ac o m e n t a r i o s ,e r r o r e sos u g e r e n c i a s ,p o rf a v o rp n g a s ee nc o n t a c t oc o n m i g oa< ' m a r i oA T e d uX u n t aD O TD O Te s' > .
361/633
28/08/13

E s t ee su ne j e m p l os e n c i l l od ec m of u n c i o n ad e s c r i p t i v o se n ' D e s c r i p t i v o 'C m of u n c i o n a n ,d e p e n d i e n d od el an a t u r a l e z ad es u sa r g u m e n t o s , l i s t a som a t r i c e s , ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )/*m u e s t r au n i v a r i a d o*/m e d i a( [ a ,b ,c ] ) ; c+b+a ( %O 2 )3 ( %I 3 )m a t r i z( [ a ,b ] ,[ c ,d ] ,[ e ,f ] ) ; [ A b ] [ ] ( %O 3 )[ c d ] [ ] [ E f ] ( %I 4 )/*m u e s t r am u l t i v a r i a n t e*/m e d i a( % ) ; e+c+a f+d+b ( %O 4 )[ ,] 33 T e n g ae nc u e n t aq u ee nl a sm u e s t r a sm u l t i v a r i a n t e ss ec a l c u l al am e d i ap a r ac a d a l ac o l u m n a . E ne lc a s od ev a r i a sm u e s t r a sd ed i f e r e n t et a m a o ,e lM a x i m a f u n c i n` m a p a' s ep u e d eu t i l i z a rp a r ao b t e n e rl o sr e s u l t a d o sd e s e a d o sp a r ac a d am u e s t r a , ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )m a p a( m e d i a ,[ [ a ,b ,c ] ,[ d ,e ] ] ) ; c+b+a e+d ( %O 2 )[ ,] 32 E ne s t ec a s o ,d o sm u e s t r a sd et a m a o s3y2s ea l m a c e n a ne nu n al i s t a . M u e s t r a su n i v a r i a n t e sd e b e ns e ra l m a c e n a d o se nl i s t a sc o m o ( %I 1 )s 1 :[ 3 ,1 ,4 ,1 ,5 ,9 ,2 ,6 ,5 ,3 ,5 ] ; ( %O 1 )[ 3 ,1 ,4 ,1 ,5 ,9 ,2 ,6 ,5 ,3 ,5 ] ym u e s t r a sm u l t i v a r i a n t e se nm a t r i c e sc o m oe n ( %I 1 )s 2 :m a t r i z( [ 1 3 , 1 7 ,9 , 2 9 ] ,[ 1 4 . 7 1 ,1 6 . 8 8 ] ,[ 1 8 . 5 0 ,1 6 . 8 8 ] , [ 1 0 , 5 8 ,6 , 6 3 ] ,[ 1 3 , 3 3 ,1 3 , 2 5 ] ,[ 1 3 , 2 1 ,8 , 1 2 ] ) ; [ 1 3 . 1 79 . 2 9 ] [ ] [ 1 4 , 7 11 6 , 8 8 ] [ ] [ 1 8 . 51 6 . 8 8 ] ( %O 1 )[ ] [ 1 0 . 5 86 . 6 3 ] [ ] [ 1 3 , 3 31 3 , 2 5 ] [ ] [ 1 3 . 2 18 . 1 2 ] E ne s t ec a s o ,e ln m e r od ec o l u m n a se si g u a lal av a r i a b l ea l e a t o r i a d i m e n s i nye ln m e r od ef i l a se se lt a m a od el am u e s t r a . L o sd a t o sp u e d e ns e ri n t r o d u c i d o sam a n o ,p e r ol a sm u e s t r a sg r a n d e ss ea l m a c e n a ng e n e r a l m e n t e e na r c h i v o sd et e x t op l a n o .P o re j e m p l o ,e la r c h i v o` p i d i g i t s . d a t a' c o n t i e n ee l 1 0 0p r i m e r o sd g i t o sd e ln m e r op i` %' : 3 1 4 1 5 9 2 6 5 3. . . P a r al e e re s t o sd g i t o se nM a x i m a , ( %I 1 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 2 )L o n g i t u d( s 1 ) ; ( %O 2 )1 0 0 P o ro t r ol a d o ,e la r c h i v o` w i n d . d a t a' c o n t i e n ee lv i e n t om e d i ad i a r i a v e l o c i d a d e sd e5e s t a c i o n e sm e t e o r o l g i c a sd el aR e p b l i c ad eI r l a n d a( e s t os e p a r t ed eu nc o n j u n t od ed a t o st o m a d ae n1 2e s t a c i o n e sm e t e o r o l g i c a s .E lo r i g i n a l a r c h i v os ep u e d ed e s c a r g a rg r a t u i t a m e n t ed e s d ee lS t a t L i bD a t aR e p o s i t o r y' ys u a n l i s i ss et r a b a j od i s c u t ee nH a s l e t t ,J . ,R a f t e r y ,A E( 1 9 8 9 )< E le s p a c i o t i e m p o M o d e l a d oc o nd e p e n d e n c i aal a r g om e m o r i a :D e t e r m i n a c i nd el ae n e r g ae l i c ae nI r l a n d a R e c u r s o s ,c o nD i s c u s s i o n > .E s t a d s t i c aA p l i c a d a3 8 ,1 5 0 ) .E s t oc a r g a l o sd a t o s : ( %I 1 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 2 )L o n g i t u d( s 2 ) ; ( %O 2 )1 0 0 ( %I 3 )s 2[ % ] ;/* l t i m or e g i s t r o*/ ( %O 3 )[ 3 . 5 8 ,6 . 0 ,4 . 5 8 ,7 . 6 2 ,1 1 . 2 5 ] A l g u n a sm u e s t r a sc o n t i e n e nd a t o sn on u m r i c o s .C o m ou ne j e m p l o ,a r c h i v o ` B i o m e d . d a t a "( q u ee sp a r t ed eo t r om a y o rd e s c a r g a d od e S t a t L i bD a t aR e p o s i t o r y' )c o n t i e n ec u a t r om e d i c i o n e ss a n g u n e a st o m a d a sd ed o s
362/633
28/08/13

g r u p o sd ep a c i e n t e s ,` A' y 'B' ,d ed i f e r e n t e se d a d e s , ( %I 1 )s 3 :r e a d _ m a t r i x( f i l e _ s e a r c h( " b i o m e d . d a t a " ) )$ ( %I 2 )L o n g i t u d( s 3 ) ; ( %O 2 )1 0 0 ( %I 3 )s 3[ 1 ] ;/*p r i m e rr e g i s t r o*/ ( %O 3 )[ A ,3 0 ,1 6 7 . 0 ,8 9 . 0 ,2 5 . 6 ,3 6 4 ] E lp r i m e ri n d i v i d u op e r t e n e c ea lg r u p o` A' ,t i e n e3 0a o sy s u s/s u sm e d i d a ss a n g u n e a sf u e r o n1 6 7 . 0 ,8 9 . 0 ,2 5 . 6y3 6 4 . H a yq u et e n e rc u i d a d oc u a n d os et r a b a j ac o nd a t o sc a t e g r i c o s .E nl as i g u i e n t e e j e m p l o ,e ls m b o l o` a' s ea s i g n e du nv a l o re na l g nm o m e n t op r e v i oyl u e g o u n am u e s t r ac o ne lv a l o rc a t e g r i c o` s et o m aa' , ( %I 1 )a :1$ ( %I 2 )d el am a t r i z( [ a ,3 ] ,[ b ,5 ] ) ; [ 13 ] ( %O 2 )[ ] [ B5 ]
45.2 Funciones y variables para el tratamiento de datos

F u n c i n :c o n t i n u o u s _ f r e q( < l i s t > ) F u n c i n :c o n t i n u o u s _ f r e q( < l i s t > ,< m > ) E la r g u m e n t od e` c o n t i n u o u s _ f r e q' d e b es e ru n al i s t ad en m e r o s . D i v i d ee lr a n g od ei n t e r v a l o syc u e n t ac u n t o sv a l o r e ss o n d e n t r od ee l l o s .E ls e g u n d oa r g u m e n t oe so p c i o n a ly ,ob i e ne si g u a lal a n m e r od ec l a s e sq u eq u e r e m o s ,1 0p o rd e f e c t o ,oe si g u a lau n al i s t a q u ec o n t i e n el o sl m i t e sd ec l a s eye ln m e r od ec l a s e sq u eq u e r e m o s ,o u n al i s t aq u ec o n t i e n es l ol o sl m i t e s .A r g u m e n t o< l i s t >d e b es e ru n al i s t a d e( 2o3 )n m e r o sr e a l e s .S il o sv a l o r e sd el am u e s t r as o nt o d o si g u a l e s ,e s t o f u n c i nd e v u e l v eu n as o l ac l a s ed ea m p l i t u d2 . E j e m p l o s : E la r g u m e n t oo p c i o n a li n d i c ae ln m e r od ec l a s e sq u eq u e r e m o s .L a p r i m e r al i s t ae nl as a l i d ac o n t i e n el o sl m i t e sd e li n t e r v a l o ,yl o s s e g u n d ol a sc u e n t a sc o r r e s p o n d i e n t e s :h a y1 6d g i t o sd e n t r od e l ` i n t e r v a l o[ 0 ,1 , 8 ]' ,2 4d g i t o se n `( 1 . 8 ,3 . 6 ] ' ,ya s s u c e s i v a m e n t e . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )c o n t i n u o u s _ f r e q( s 1 ,5 ) ; ( %O 3 )[ [ 0 ,1 . 8 ,3 . 6 ,5 . 4 ,7 . 2 ,9 . 0 ] ,[ 1 6 ,2 4 ,1 8 ,1 7 ,2 5 ] ] E la r g u m e n t oo p c i o n a li n d i c aq u eq u e r e m o s7c l a s e sc o nl m i t e s2y 1 2 : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )c o n t i n u o u s _ f r e q( s 1 ,[ 2 , 1 2 , 7 ] ) ; ( %O 3 )[ [ -2 ,0 ,2 ,4 ,6 ,8 ,1 0 ,1 2 ] ,[ 8 ,2 0 ,2 2 ,1 7 ,2 0 ,1 3 ,0 ] ] E la r g u m e n t oo p c i o n a li n d i c aq u eq u e r e m o sq u ee ln m e r op r e d e t e r m i n a d od ec l a s e s c o nl m i t e s2y1 2 : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )c o n t i n u o u s _ f r e q( s 1 ,[ 2 , 1 2 ] ) ; 341 11 83 23 94 65 3 ( %O 3 )[ [ 2,,,,,5,,,,1 2 ] , 55555555 [ 0 ,8 ,2 0 ,1 2 ,1 8 ,9 ,8 ,2 5 ,0 ,0 ] ]
F u n c i n :d i s c r e t e _ f r e q( < l i s t > ) F r e c u e n c i a sa b s o l u t a se nm u e s t r a sd i s c r e t a s ,t a n t on u m r i c a sy c a t e g r i c a .S u n i c oa r g u m e n t oe su n al i s t a , ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )d i s c r e t e _ f r e q( s 1 ) ; ( %O 3 )[ [ 0 ,1 ,2 ,3 ,4 ,5 ,6 ,7 ,8 ,9 ] , [ 8 ,8 ,1 2 ,1 2 ,1 0 ,8 ,9 ,8 ,1 2 ,1 3 ] ] L ap r i m e r al i s t ac o n t i e n el o sv a l o r e sd el am u e s t r ayl as e g u n d as u f r e c u e n c i a sa b s o l u t a s .` C o m a n d o s ?c o l' y ' ?t r a n s p o s i c i n" d e b e r a a y u d a nac o m p r e n d e rl a l t i m ae n t r a d a .
F u n c i n :s u b m u e s t r a( < d a t a _ m a t r i x > , ) F u n c i n :s u b m u e s t r a( < d a t a _ m a t r i x > , ,< c o l _ n u m 1 > ,< c o l _ n u m 2 > ,. . . ) E s t oe su n ae s p e c i ed ev a r i a n t ed el af u n c i nd eM a x i m a` s u b m a t r i z' .L a p r i m e ra r g u m e n t oe sl am a t r i zd ed a t o s ,e ls e g u n d oe su np r e d i c a d o f u n c i nya r g u m e n t o sa d i c i o n a l e so p c i o n a l e ss o nl o sn m e r o sd el a c o l u m n a sq u ed e b e na d o p t a r s e .S uc o m p o r t a m i e n t os ee n t i e n d em e j o rc o n e j e m p l o s .
363/633
28/08/13

E s t o ss o nl o sr e g i s t r o sm u l t i v a r i a n t e se nl o sq u el av e l o c i d a dd e lv i e n t oe ne l p r i m e r ae s t a c i nm e t e o r o l g i c af u em a y o rd e1 8a o s .V e rq u ee n l ae x p r e s i nl a m b d ae lc o m p o n e n t e t he sr e f e r i d oc o m o` v[ i ]' . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 3 )s u b m u e s t r a( s 2 ,l a m b d a( [ v ] ,v[ 1 ] >1 8 ) ) ; [ 1 9 , 3 81 5 , 3 71 5 , 1 22 3 , 0 92 5 , 2 5 ] [ ] [ 1 8 , 2 91 8 , 6 61 9 , 0 82 6 , 0 82 7 , 6 3 ] ( %O 3 )[ ] [ 2 0 , 2 52 1 , 4 61 9 , 9 52 7 , 7 12 3 , 3 8 ] [ ] [ 1 8 , 7 91 8 , 9 61 4 , 4 62 6 , 3 82 1 , 8 4 ] E ne ls i g u i e n t ee j e m p l o ,s l os o l i c i t a m o sl ap r i m e r a ,s e g u n d ay q u i n t ac o m p o n e n t e sd ea q u e l l o sr e g i s t r o sc o nv e l o c i d a d e sd ev i e n t om a y o r e so i g u a la1 6e nl ae s t a c i nn m e r o1ym e n o sd e2 5n u d o se n e s t a c i nn m e r o4 .L am u e s t r ac o n t i e n es l ol o sd a t o sd el a se s t a c i o n e s1 ,2 y5 .E ne s t ec a s o ,l af u n c i nd ep r e d i c a d os ed e f i n ec o m ou n a f u n c i no r d i n a r i ad eM a x i m a . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 3 )g( x ) :=x[ 1 ] >=1 6yx[ 4 ]< 2 5$ ( %I 4 )s u b m u e s t r a( s 2 ,g ,1 ,2 ,5 ) ; [ 1 9 , 3 81 5 , 3 72 5 , 2 5 ] [ ] [ 1 7 , 3 31 4 , 6 71 9 , 5 8 ] ( %O 4 )[ ] [ 1 6 , 9 21 3 , 2 12 1 , 2 1 ] [ ] [ 1 7 , 2 51 8 , 4 62 3 , 8 7 ] A q u h a yu ne j e m p l oc o nl a sv a r i a b l e sc a t e g r i c a sd e` b i o m e d . d a t a' . Q u e r e m o sq u el o sr e g i s t r o sc o r r e s p o n d i e n t e sal o sp a c i e n t e se ne lg r u p o' B ' q u es o nm a y o r e sd e3 8a o s . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 3 :r e a d _ m a t r i x( f i l e _ s e a r c h( " b i o m e d . d a t a " ) )$ ( %I 3 )h( u ) :u=[ 1 ]=ByU[ 2 ] >3 8$ ( %I 4 )s u b m u e s t r a( s 3 ,h ) ; [ B3 92 8 , 01 0 2 , 31 7 , 11 4 6 ] [ ] [ B3 92 1 , 09 2 , 41 0 , 31 9 7 ] [ ] [ B3 92 3 , 01 1 1 , 51 0 , 01 3 3 ] [ ] [ B3 92 6 , 09 2 , 61 2 , 31 9 6 ] ( %O 4 )[ ] [ B3 92 5 , 09 8 , 71 0 , 01 7 4 ] [ ] [ B3 92 1 , 09 3 , 25 , 91 8 1 ] [ ] [ B3 91 8 , 09 5 , 01 1 , 36 6 ] [ ] [ B3 93 9 , 08 8 , 57 , 61 6 8 ] P r o b a b l e m e n t e ,e la n l i s i se s t a d s t i c oi n c l u i r s l ol as a n g r e m e d i d a s , ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 3 :r e a d _ m a t r i x( f i l e _ s e a r c h( " b i o m e d . d a t a " ) )$ ( %I 3 )s u b m u e s t r a( s 3 ,l a m b d a( [ v ] ,v[ 1 ]=Byv[ 2 ] >3 8 ) , 3 ,4 ,5 ,6 ) ; [ 2 8 , 01 0 2 , 31 7 , 11 4 6 ] [ ] [ 2 1 . 09 2 . 41 0 . 31 9 7 ] [ ] [ 2 3 , 01 1 1 , 51 0 , 01 3 3 ] [ ] [ 2 6 . 09 2 . 61 2 . 31 9 6 ] ( %O 3 )[ ] [ 2 5 . 09 8 . 71 0 . 01 7 4 ] [ ] [ 2 1 . 09 3 . 25 . 91 8 1 ] [ ] [ 1 8 , 09 5 , 01 1 , 36 6 ] [ ] [ 3 9 . 08 8 . 57 . 61 6 8 ] E s t ae sl am e d i am u l t i v a r i a n t ed es 3` ' , ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 3 :r e a d _ m a t r i x( f i l e _ s e a r c h( " b i o m e d . d a t a " ) )$ ( %I 3 )m e d i a( s 3 ) ; 6 5B3 5A+3 1 76N A+8 1 4 4 , 9 9 9 9 9 9 9 9 9 9 9 9 ( %O 3 )[ ,,8 7 . 1 7 8 ,, 1 0 01 01 0 0 3N A+1 9 5 8 7 1 8 . 1 2 3 ,] 1 0 0 A q u ,e lp r i m e rc o m p o n e n t en ot i e n es e n t i d o ,y aq u e` A' y 'B' s o n c a t e g r i c a ,e ls e g u n d oc o m p o n e n t ee sl am e d i ad ee d a dd el o si n d i v i d u o s e nf o r m ar a c i o n a l ,ye lc u a r t oye l l t i m ov a l o re x h i b e na l g u n a s c o m p o r t a m i e n t oe x t r a o .E s t os ed e b eaq u ee ls m b o l o` N A' s eu t i l i z aa q u p a r a i n d i c a rl o sd a t o s< n o nd i s p o n i b l e > ,yl o sd o sm e d i o ss o nt o n t e r a s .L a p o s i b l es o l u c i ns e r al ad es a c a rd el am a t r i za q u e l l a sf i l a s c o ns m b o l o sN A` ' ,a u n q u ee s t om e r e c eu np o c od ep r d i d ad ei n f o r m a c i n . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 3 :r e a d _ m a t r i x( f i l e _ s e a r c h( " b i o m e d . d a t a " ) )$
364/633
28/08/13

( %I 3 )g( v ) :v=[ 4 ]#N Ayv[ 6 ]#N A$ ( %I 4 )s i g n i f i c a( s u b m u e s t r a( s 3 ,g ,3 ,4 ,5 ,6 ) ) ; ( %O 4 )[ 7 9 . 4 9 2 3 0 7 6 9 2 3 0 7 7 ,8 6 . 2 0 3 2 9 6 7 0 3 2 9 6 7 ,1 6 . 9 3 1 8 6 8 1 3 1 8 6 8 1 3 , 2 5 1 4 ] 1 3
45.3 Funciones y variables de valores descriptivos

F u n c i n :s i g n i f i c a( < l i s t > ) F u n c i n :s i g n i f i c a( < m a t r i x > ) E s t ae sl am e d i ad el am u e s t r a ,q u es ed e f i n ec o m o n = = = = _1\ =x>x n/i = = = = i=1 E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )m e d i o( s 1 ) ; 4 7 1 ( %O 3 )1 0 0 ( %I 4 ) % ,n u m e r ; ( %O 4 )4 . 7 1 ( %I 5 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 6 )m e d i a( s 2 ) ; ( %O 6 )[ 9 . 9 4 8 5 ,1 0 . 1 6 0 7 ,1 0 . 8 6 8 5 ,1 5 . 7 1 6 6 ,1 4 . 8 4 4 1 ]
F u n c i n :v a r( < l i s t > ) F u n c i n :v a r( < m a t r i x > ) E s t ae sl av a r i a n z ad el am u e s t r a ,q u es ed e f i n ec o m o n = = = = 21\_2 s=>( x-x ) n/i = = = = i=1 E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )v a r( s 1 ) ,n u m e r ; ( %O 3 )8 . 4 2 5 8 9 9 9 9 9 9 9 9 9 9 9 V a s et a m b i nl af u n c i n` v a r 1' .
F u n c i n :v a r 1( < l i s t > ) F u n c i n :v a r 1( < m a t r i x > ) E s t ae sl av a r i a n z ad el am u e s t r a ,q u es ed e f i n ec o m o n = = = = 1\_2 >( X-x ) n 1/i = = = = i=1 E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )v a r 1( s 1 ) ,n u m e r ; ( %O 3 )8 . 5 1 1 0 1 0 1 0 1 0 1 0 1 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )v a r 1( s 2 ) ; ( %O 5 )[ 1 7 . 3 9 5 8 6 5 4 0 4 0 4 0 4 1 ,1 5 . 1 3 9 1 2 7 7 8 7 8 7 8 7 9 ,1 5 . 6 3 2 0 4 9 2 4 2 4 2 4 2 4 , 3 2 . 5 0 1 5 2 5 6 9 6 9 6 9 7 1 ,2 4 . 6 6 9 7 7 3 9 2 9 2 9 2 9 4 ] V a s et a m b i nl af u n c i n` v a r' .
F u n c i n :s t d( < l i s t > ) F u n c i n :s t d( < m a t r i x > ) E s t ae sl ar a zc u a d r a d ad el af u n c i n` v a r' ,c o nl av a r i a n z a d e n o m i n a d o rn .
365/633
28/08/13
E j e m p l o :
( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )e s t n d a r( s 1 ) ,n u m e r ; ( %O 3 )2 . 9 0 2 7 4 0 0 8 4 8 1 6 4 1 4 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )s t d( s 2 ) ; ( %O 5 )[ 4 . 1 4 9 9 2 8 5 2 3 4 8 0 8 5 8 ,3 . 8 7 1 3 9 9 8 1 2 7 2 9 2 4 1 ,3 . 9 3 3 9 2 0 2 7 7 5 3 4 8 6 6 , 5 . 6 7 2 4 3 4 2 6 0 5 2 6 9 5 7 ,4 . 9 4 1 9 7 0 8 8 1 1 3 6 3 9 2 ] V e rt a m b i nf u n c i o n a` v a r' y `s t d 1 ' .
F u n c i n :s t d 1( < l i s t > ) F u n c i n :s t d 1( < m a t r i x > ) E s t ae sl ar a zc u a d r a d ad el af u n c i n` v a r 1' ,c o nl av a r i a n z a d e n o m i n a d o rn 1 . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )s t d 1( s 1 ) ,n u m e r ; ( %O 3 )2 . 9 1 7 3 6 3 5 5 3 1 0 9 2 2 8 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )s t d 1( s 2 ) ; ( %O 5 )[ 4 . 1 7 0 8 3 5 0 9 6 7 2 1 0 8 9 ,3 . 8 9 0 9 0 3 2 0 9 7 8 0 3 2 ,3 . 9 5 3 7 3 8 6 4 1 1 3 7 5 5 5 , 5 . 7 0 1 0 1 0 9 3 6 4 0 1 5 1 7 ,4 . 9 6 6 8 6 7 6 1 7 4 5 1 9 6 3 ] V e rt a m b i nf u n c i o n e s` v a r 1' y 'e s t n d a r' .
F u n c i n :n o n c e n t r a l _ m o m e n t( < l i s t > ,< k > ) F u n c i n :n o n c e n t r a l _ m o m e n t( < m a t r i x > ,< k > ) E lm o m e n t oc e n t r a ln od eo r d e nk ,s ed e f i n ec o m o n = = = = 1\k >X n/i = = = = i=1 E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )n o n c e n t r a l _ m o m e n t( s 1 ,1 ) ,n u m e r ,/*l am e d i a*/ ( %O 3 )4 . 7 1 ( %I 5 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 6 )n o n c e n t r a l _ m o m e n t( s 2 ,5 ) ; ( %O 6 )[ 3 1 9 7 9 3 , 8 7 2 4 7 6 1 5 0 5 ,3 2 0 5 3 2 . 1 9 2 3 8 9 2 4 6 3 , 3 9 1 2 4 9 . 5 6 2 1 3 8 1 5 5 6 ,2 . 5 0 2 . 2 7 8 , 2 0 5 9 8 8 9 1 1 ,1 6 9 1 8 8 1 . 7 9 7 7 4 2 2 5 5 ] V a s et a m b i nl af u n c i n` c e n t r a l _ m o m e n t' .
F u n c i n :c e n t r a l _ m o m e n t( < l i s t > ,< k > ) F u n c i n :c e n t r a l _ m o m e n t( < m a t r i x > ,< k > ) E lm o m e n t oc e n t r a ld eo r d e nk ,s ed e f i n ec o m o n = = = = 1\_k >( X-x ) n/i = = = = i=1 E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )c e n t r a l _ m o m e n t( s 1 ,2 ) ,n u m e r ,/*l av a r i a n z a*/ ( %O 3 )8 . 4 2 5 8 9 9 9 9 9 9 9 9 9 9 9 ( %I 5 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 6 )c e n t r a l _ m o m e n t( s 2 ,3 ) ; ( %O 6 )[ 1 1 . 2 9 5 8 4 7 7 1 3 7 5 0 0 4 ,1 6 . 9 7 9 8 8 2 4 8 2 9 8 5 8 3 ,5 . 6 2 6 6 6 1 9 5 2 7 5 0 1 0 2 , 3 7 . 5 9 8 6 5 7 2 0 5 7 9 1 8 ,2 5 . 8 5 9 8 1 9 0 4 3 9 4 1 9 2 ] V e rt a m b i nf u n c i o n e s` c e n t r a l _ m o m e n t' y 's i g n i f i c a' .
F u n c i n :c v( < l i s t > ) F u n c i n :c v( < m a t r i x > ) E lc o e f i c i e n t ed ev a r i a c i ne se lc o c i e n t ee n t r el am u e s t r a
366/633
28/08/13

d e s v i a c i ne s t n d a r( ` s t d' )ye l 'm e d i o' , ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )c v( s 1 ) ,n u m e r ; ( %O 3 )0 . 6 1 9 3 9 7 7 8 1 9 7 6 4 8 1 5 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )c v( s 2 ) ; ( %O 5 )[ 0 . 4 1 9 2 4 2 6 0 9 1 0 9 0 2 0 4 ,0 . 3 8 2 9 3 6 5 3 0 9 2 6 0 5 0 2 ,0 . 3 6 3 7 7 9 6 0 5 3 8 5 9 8 3 , 0 . 3 6 2 7 3 8 1 8 3 6 0 2 1 4 7 8 ,0 . 3 3 4 6 0 2 1 3 9 3 9 8 9 5 0 6 ] V e rt a m b i nf u n c i o n e s` e s t n d a r' y 's i g n i f i c a' .
F u n c i n :s m i n( < l i s t > ) F u n c i n :s m i n( < m a t r i x > ) E s t ee se lv a l o rm n i m od el am u e s t r a< l i s t > .C u a n d oe la r g u m e n t o e su n am a t r i z ,` s m i n' d e v u e l v eu n al i s t aq u ec o n t i e n el o sv a l o r e sm n i m o s d el a sc o l u m n a s ,q u ee s t na s o c i a d o sal a sv a r i a b l e se s t a d s t i c a s . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )s m i n( s 1 ) ; ( %O 3 )0 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )s m i n( s 2 ) ; ( %O 5 )[ 0 . 5 8 ,0 . 5 ,2 . 6 7 ,5 . 2 5 ,5 . 1 7 ] V a s et a m b i nl af u n c i n` S m a x .
F u n c i n :S m a x( < l i s t > ) F u n c i n :S m a x( < m a t r i x > ) E s t ee se lv a l o rm x i m od el am u e s t r a< l i s t > .C u a n d oe la r g u m e n t o e su n am a t r i z ,` s m a x' d e v u e l v eu n al i s t aq u ec o n t i e n el o sv a l o r e sm x i m o s d el a sc o l u m n a s ,q u ee s t na s o c i a d o sal a sv a r i a b l e se s t a d s t i c a s . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )S m a x( s 1 ) ; ( %O 3 )9 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )S m a x( s 2 ) ; ( %O 5 )[ 2 0 . 2 5 ,2 1 . 4 6 ,2 0 . 0 4 ,2 9 . 6 3 ,2 7 . 6 3 ] V a s et a m b i nl af u n c i n` s m i n' .
F u n c i n :r a n g o( < l i s t > ) F u n c i n :r a n g o( < m a t r i x > ) E lr a n g oe sl ad i f e r e n c i ae n t r el o sv a l o r e se x t r e m o s . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )R a n g o( s 1 ) ; ( %O 3 )9 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )R a n g o( s 2 ) ; ( %O 5 )[ 1 9 . 6 7 ,2 0 . 9 6 ,1 7 . 3 7 ,2 4 . 3 8 ,2 2 . 4 6 ]
F u n c i n :c u a n t i l( < l i s t > , ) F u n c i n :c u a n t i l( < m a t r i x > , ) E s t ee se l c u a n t i l ,c o nu nn m e r oe n[ 0 ,1 ] ,d el a p r o b a r< l i s t > .A u n q u eh a yv a r i a sd e f i n i c i o n e sp a r al a c u a n t i lm u e s t r a( H y n d m a n ,R J ,V e n t i l a d o r ,Y .( 1 9 9 6 )< c u a n t i l e sd ee j e m p l o e np a q u e t e se s t a d s t i c o s > .E s t a d s t i c od eA m r i c a ,5 0 ,3 6 1 3 6 5 ) ,e l u n ob a s a d oe nl ai n t e r p o l a c i nl i n e a ls ei m p l e m e n t ae ne lp a q u e t e ' D e s c r i p t i v o ' . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )/*p r i m e r oyt e r c e r oc u a r t i l e s*/ [ C u a n t i l( s 1 ,1 / 4 ) ,c u a n t i l( s 1 ,3 / 4 ) ] ,n u m e r ; ( %O 3 )[ 2 . 0 ,7 . 2 5 ] ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )c u a n t i l( s 2 ,1 / 4 ) ; ( %O 5 )[ 7 , 2 5 7 5 ,7 , 4 7 7 5 0 0 0 0 0 0 0 0 0 0 1 ,7 , 8 2 ,1 1 , 2 8 ,1 1 , 4 8 ]
F u n c i n :m e d i a n a( < l i s t > ) F u n c i n :m e d i a n a( < m a t r i x > )
367/633
28/08/13

U n av e zq u el am u e s t r as eo r d e n a ,s ie lt a m a od el am u e s t r ae si m p a rl am e d i a n a e se lv a l o rc e n t r a l ,d el oc o n t r a r i o ,e sl am e d i ad el o sd o sc e n t r a l e s v a l o r e s . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )m e d i a n a( s 1 ) ; 9 ( %O 3 )2 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )m e d i a n a( s 2 ) ; ( %O 5 )[ 1 0 . 0 6 ,9 . 8 5 5 ,1 0 . 7 3 ,1 5 . 4 8 ,1 4 . 1 0 5 ] L am e d i a n ae se l1 / 2 q u a n t i l e . V a s et a m b i nl af u n c i n` c u a n t i l .
F u n c i n :q r a n g e( < l i s t > ) F u n c i n :q r a n g e( < m a t r i x > ) E lr a n g oi n t e r c u a r t l i c oe sl ad i f e r e n c i ae n t r el at e r c e r ay p r i m e r o sc u a r t i l e s ,` c u a n t i l( < l i s t > ,3 / 4 )-c u a n t i l( < l i s t > ,1 / 4 )' , ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )q r a n g e( s 1 ) ; 2 1 ( %O 3 )4 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )q r a n g e( s 2 ) ; ( %O 5 )[ 5 . 3 8 5 ,5 . 5 7 2 4 9 9 9 9 9 9 9 9 9 9 8 ,6 . 0 2 2 5 0 0 0 0 0 0 0 0 0 0 1 , 8 . 7 2 9 9 9 9 9 9 9 9 9 9 9 9 9 ,6 . 6 4 9 9 9 9 9 9 9 9 9 9 9 9 9 ] V a s et a m b i nl af u n c i n` c u a n t i l .
F u n c i n :m e a n _ d e v i a t i o n( < l i s t > ) F u n c i n :m e a n _ d e v i a t i o n( < m a t r i x > ) L ad e s v i a c i nm e d i a ,d e f i n i d ac o m o n = = = = 1\_ >|X-x| n/i = = = = i=1 E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )m e a n _ d e v i a t i o n( s 1 ) ; 5 1 ( %O 3 )2 0 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )m e a n _ d e v i a t i o n( s 2 ) ; ( %O 5 )[ 3 . 2 8 7 9 5 9 9 9 9 9 9 9 9 9 9 ,3 , 0 7 5 3 4 2 ,3 , 2 3 9 0 7 ,4 . 7 1 5 6 6 4 0 0 0 0 0 0 0 0 1 , 4 . 0 2 8 5 4 6 0 0 0 0 0 0 0 0 2 ] V a s et a m b i nl af u n c i n` s i g n i f i c a r " .
F u n c i n :m e d i a n _ d e v i a t i o n( < l i s t > ) F u n c i n :m e d i a n _ d e v i a t i o n( < m a t r i x > ) L ad e s v i a c i nm e d i a ,d e f i n i d ac o m o n = = = = 1\ >|X-m e d| n/i = = = = i=1 d o n d e` m e d' e sl am e d i a n ad e< l i s t > . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )m e d i a n _ d e v i a t i o n( s 1 ) ; 5 ( %O 3 )2 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )m e d i a n _ d e v i a t i o n( s 2 ) ;
368/633
28/08/13

( %O 5 )[ 2 . 7 5 ,2 . 7 5 5 ,3 . 0 8 ,4 . 3 1 5 ,3 . 3 1 ] V a s et a m b i nl af u n c i n` s i g n i f i c a r " .
F u n c i n :h a r m o n i c _ m e a n( < l i s t > ) F u n c i n :h a r m o n i c _ m e a n( < m a t r i x > ) L am e d i aa r m n i c a ,q u es ed e f i n ec o m o n n = = = = \1 >/X = = = =I i=1 E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )y :[ 5 ,7 ,2 ,5 ,9 ,5 ,6 ,4 ,9 ,2 ,4 ,2 ,5 ]$ ( %I 3 )h a r m o n i c _ m e a n( y ) ,n u m e r ; ( %O 3 )3 . 9 0 1 8 5 8 0 2 7 6 3 2 2 0 5 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )h a r m o n i c _ m e a n( s 2 ) ; ( %O 5 )[ 6 . 9 4 8 0 1 5 5 9 0 0 5 2 7 8 6 ,7 . 3 9 1 9 6 7 7 5 2 3 6 0 3 5 6 ,9 . 0 5 5 6 5 8 1 9 7 1 5 1 7 4 5 , 1 3 . 4 4 1 9 9 0 2 8 1 9 3 6 9 2 ,1 3 . 0 1 4 3 9 1 4 5 8 9 8 5 0 9 ] V e rt a m b i nf u n c i o n a` s i g n i f i c a n' y `g e o m e t r i c _ m e a n ' .
F u n c i n :g e o m e t r i c _ m e a n( < l i s t > ) F u n c i n :g e o m e t r i c _ m e a n( < m a t r i x > ) L am e d i ag e o m t r i c a ,q u es ed e f i n ec o m o /N\1/n |/= = =\| | !!| | !!x| | !!i| |I=1| \/ E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )y :[ 5 ,7 ,2 ,5 ,9 ,5 ,6 ,4 ,9 ,2 ,4 ,2 ,5 ]$ ( %I 3 )g e o m e t r i c _ m e a n( y ) ,n u m e r ; ( %O 3 )4 . 4 5 4 8 4 5 4 1 2 3 3 7 0 1 2 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )g e o m e t r i c _ m e a n( s 2 ) ; ( %O 5 )[ 8 . 8 2 4 7 6 2 7 4 3 4 7 9 7 9 ,9 . 2 2 6 5 2 6 0 4 7 3 9 3 6 1 ,1 0 . 0 4 4 2 6 7 5 7 1 4 8 8 9 , 1 4 . 6 1 2 7 4 1 2 6 3 4 9 0 2 1 ,1 3 . 9 6 1 8 4 1 6 3 4 4 4 2 7 5 ] V e rt a m b i nf u n c i o n a` s i g n i f i c a n' y `h a r m o n i c _ m e a n ' .
F u n c i n :c u r t o s i s( < l i s t > ) F u n c i n :c u r t o s i s( < m a t r i x > ) E lc o e f i c i e n t ed ec u r t o s i s ,q u es ed e f i n ec o m o n = = = = 1\_4 >( X-x )-3 4/i n s= = = = i=1 E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )c u r t o s i s( s 1 ) ,n u m e r ; ( %O 3 )-1 . 2 7 3 2 4 7 9 4 6 5 1 4 4 2 1 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )c u r t o s i s( s 2 ) ; ( %O 5 )[ -0 . 2 7 1 5 4 4 5 6 2 2 1 9 5 3 8 5 ,0 . 1 1 9 9 9 8 7 8 4 4 2 9 4 5 1 , -, 4 2 7 5 2 3 3 4 9 0 4 8 2 8 6 1 ,-, 6 4 0 5 3 6 1 9 7 9 0 1 9 5 2 2 ,-, 4 9 5 2 3 8 2 1 3 2 3 5 2 9 3 5 ] V e rt a m b i nf u n c i o n a` s i g n i f i c a n' , 'v a r' y 'a s i m e t r a' .
F u n c i n :a s i m e t r a( < l i s t > ) F u n c i n :a s i m e t r a( < m a t r i x > ) E lc o e f i c i e n t ed ea s i m e t r a ,q u es ed e f i n ec o m o n = = = =
369/633
28/08/13
1\_3 >( X-x ) 3/i n s= = = = i=1 E j e m p l o :
( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )a s i m e t r a( s 1 ) ,n u m e r ; ( %O 3 )0 . 0 0 9 1 9 6 1 8 0 4 7 6 4 5 0 4 2 4 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )a s i m e t r a( s 2 ) ; ( %O 5 )[ 0 . 1 5 8 0 5 0 9 0 2 0 0 0 0 9 7 8 ,0 . 2 9 2 6 3 7 9 2 3 2 0 6 1 8 5 4 ,0 , 0 9 2 4 2 1 7 4 4 1 6 1 0 7 7 1 7 , 0 . 2 0 5 9 9 8 4 3 4 8 1 4 8 6 8 7 ,0 . 2 1 4 2 5 2 0 2 4 8 8 9 0 8 3 1 ] V e rt a m b i nf u n c i o n a` s i g n i f i c a n' , 'v a r' y `c u r t o s i s .
F u n c i n :p e a r s o n _ s k e w n e s s( < l i s t > ) F u n c i n :p e a r s o n _ s k e w n e s s( < m a t r i x > ) C o e f i c i e n t ed ea s i m e t r ad eP e a r s o n ,d e f i n i d oc o m o _ 3( x-m e d ) s d o n d e< m e d >e sl am e d i a n ad e< l i s t > . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )p e a r s o n _ s k e w n e s s( s 1 ) ,n u m e r ; ( %O 3 )0 . 2 1 5 9 4 8 4 0 2 9 0 9 3 8 9 5 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )p e a r s o n _ s k e w n e s s( s 2 ) ; ( %O 5 )[ -, 0 8 0 1 9 9 7 6 6 2 9 2 1 1 8 9 2 ,0 . 2 3 5 7 0 3 6 2 7 2 9 5 2 6 4 9 , 0 . 1 0 5 0 9 0 4 0 6 2 4 9 1 2 0 4 ,0 . 1 2 4 5 0 4 2 3 4 0 5 9 2 3 6 8 ,0 . 4 4 6 4 1 8 1 7 9 5 8 0 4 5 1 9 ] V e rt a m b i nf u n c i o n a` s i g n i f i c a n' , 'v a r' y 'm e d i o' .
F u n c i n :q u a r t i l e _ s k e w n e s s( < l i s t > ) F u n c i n :q u a r t i l e _ s k e w n e s s( < m a t r i x > ) E lc o e f i c i e n t ed ea s i m e t r ac u a r t i l ,q u es ed e f i n ec o m o c-2c+c 3 / 41 / 21 / 4 c-c 3 / 41 / 4 d o n d ec _ pe sl a c u a n t i ld el am u e s t r a< l i s t > . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 1 :r e a d _ l i s t( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) )$ ( %I 3 )q u a r t i l e _ s k e w n e s s( s 1 ) ,n u m e r ; ( %O 3 )0 , 0 4 7 6 1 9 0 4 7 6 1 9 0 4 7 6 2 ( %I 4 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 5 )q u a r t i l e _ s k e w n e s s( s 2 ) ; ( %O 5 )[ -0 . 0 4 0 8 5 4 2 2 4 6 9 8 2 3 5 3 ,0 . 1 4 6 7 0 2 5 5 7 2 0 0 5 3 8 2 , 0 . 0 3 3 6 2 3 9 1 0 3 3 6 2 3 9 2 ,, 0 3 7 8 0 0 6 8 7 2 8 5 2 2 2 9 8 ,0 . 2 1 0 5 2 6 3 1 5 7 8 9 4 7 3 5 ] V a s et a m b i nl af u n c i n` c u a n t i l .
F u n c i n :c o v( < m a t r i x > ) L am a t r i zd ec o v a r i a n z ad el am u e s t r am u l t i v a r i a n t e ,d e f i n i d ac o m o n = = = = 1\_ _ S=>( X-X )( X-X )' n/j j = = = = j=1 d o n d eX _ jl aj s i m af i l ad el am a t r i zd el am u e s t r a . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 3 )f p p r i n t p r e c :7$/*p r e c i s i nd ec a m b i op a r al as a l i d ab a s t a n t e*/ ( %I 4 )c o v( s 2 ) ; [ 1 7 . 2 2 1 9 11 3 . 6 1 8 1 11 4 . 3 7 2 1 71 9 . 3 9 6 2 41 5 . 4 2 1 6 2 ] [ ] [ 1 3 . 6 1 8 1 11 4 . 9 8 7 7 41 3 . 3 0 4 4 81 5 . 1 5 8 3 41 4 . 9 7 1 1 ] [ ] ( %O 4 )[ 1 4 . 3 7 2 1 71 3 . 3 0 4 4 81 5 . 4 7 5 7 31 7 . 3 2 5 4 41 6 . 1 8 1 7 1 ] [ ]
370/633
28/08/13

[ 1 9 . 3 9 6 2 41 5 . 1 5 8 3 41 7 . 3 2 5 4 43 2 . 1 7 6 5 12 0 . 4 4 6 8 5 ] [ ] [ 1 5 . 4 2 1 6 21 4 . 9 7 1 11 6 . 1 8 1 7 12 0 . 4 4 6 8 52 4 . 4 2 3 0 8 ] V a s et a m b i nl af u n c i n` c o v 1' .
F u n c i n :c o v 1( < m a t r i x > ) L am a t r i zd ec o v a r i a n z ad el am u e s t r am u l t i v a r i a n t e ,d e f i n i d ac o m o n = = = = 1\_ _ S=>( X-X )( X-X )' 1n 1/j j = = = = j=1 d o n d eX _ jl aj s i m af i l ad el am a t r i zd el am u e s t r a . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 3 )f p p r i n t p r e c :7$/*p r e c i s i nd ec a m b i op a r al as a l i d ab a s t a n t e*/ ( %I 4 )c o v 1( s 2 ) ; [ 1 7 . 3 9 5 8 71 3 . 7 5 5 6 71 4 . 5 1 7 3 41 9 . 5 9 2 1 61 5 . 5 7 7 4 ] [ ] [ 1 3 . 7 5 5 6 71 5 . 1 3 9 1 31 3 . 4 3 8 8 71 5 . 3 1 1 4 51 5 . 1 2 2 3 2 ] [ ] ( %O 4 )[ 1 4 . 5 1 7 3 41 3 . 4 3 8 8 71 5 . 6 3 2 0 51 7 . 5 0 0 4 41 6 . 3 4 5 1 6 ] [ ] [ 1 9 . 5 9 2 1 61 5 . 3 1 1 4 51 7 . 5 0 0 4 43 2 . 5 0 1 5 32 0 . 6 5 3 3 8 ] [ ] [ 1 5 . 5 7 7 41 5 . 1 2 2 3 21 6 . 3 4 5 1 62 0 . 6 5 3 3 82 4 . 6 6 9 7 7 ] V a s et a m b i nl af u n c i n` c o b e r t u r a' .
F u n c i n :g l o b a l _ v a r i a n c e s( < m a t r i x > ) F u n c i n :g l o b a l _ v a r i a n c e s( < m a t r i x > ,< l o g i c a l _ v a l u e > ) F u n c i n` g l o b a l _ v a r i a n c e s' d e v u e l v eu n al i s t ad ev a r i a n z am u n d i a l m e d i d a s : *< T o t a lV a r i a n c e > :` t r a c e( S _ 1 )' , *< m e a nV a r i a n c e > :` t r a c e( S _ 1 )/p' , *< g e n e r a l i z e dV a r i a n c e > :` d e t e r m i n a n t e( S _ 1 )' , *< g e n e r a l i z e dE s t n d a rd e v i a t i o n > :` s q r t( d e t e r m i n a n t e( S _ 1 ) )' , *< e f e c t i v eV a r i a n c e >` d e t e r m i n a n t e( S _ 1 )^( 1/p )' ,( q u es ed e f i n ee n : P e n~a ,D .( 2 0 0 2 )< A n a ' l i s i sd eD a t o sm u l t i v a r i a n t e s > ; M c G r a w H i l l ,M a d r i d . ) *< e f e c t i v eD e v i a t i o n >e s t n d a r :` d e t e r m i n a n t e( S _ 1 )^( 1/( 2*p ) ) . d o n d ee sl ad i m e n s i nd el av a r i a b l ea l e a t o r i am u l t i v a r i a n t ey S _ 1l am a t r i zd ec o v a r i a n z ad e v u e l t op o r` c o v 1' . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 3 )g l o b a l _ v a r i a n c e s( s 2 ) ; ( %O 3 )[ 1 0 5 . 3 3 8 3 4 2 0 6 0 6 0 6 ,2 1 . 0 6 7 6 6 8 4 1 2 1 2 1 1 9 ,1 2 , 8 7 4 . 3 4 6 9 0 4 6 9 6 8 6 , 1 1 3 , 4 6 5 1 7 9 2 6 0 8 5 0 1 ,6 . 6 3 6 5 9 0 8 1 1 8 0 0 7 9 5 ,2 . 5 7 6 1 5 8 1 4 9 6 0 9 7 6 2 ] L af u n c i n` g l o b a l _ v a r i a n c e s' t i e n eu na r g u m e n t ol g i c oo p c i o n a l : ` G l o b a l _ v a r i a n c e s( x ,t r u e )' H a c eq u eM a x i m aq u e 'x' e sq u el o sd a t o s m a t r i z ,h a c i e n d oq u el am i s m ac o m o` g l o b a l _ v a r i a n c e s( x )' .P o ro t r o p a r t e ,` g l o b a l _ v a r i a n c e s( x ,f a l s e )' s i g n i f i c aq u e 'x' n os o nl o sd a t o s m a t r i z ,s i n ol ad ec o v a r i a n z a s ,e v i t a n d os un u e v oc l c u l o , ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 3 )s :c o v 1( s 2 )$ ( %I 4 )g l o b a l _ v a r i a n c e s( s ,f a l s e ) ; ( %O 4 )[ 1 0 5 . 3 3 8 3 4 2 0 6 0 6 0 6 ,2 1 . 0 6 7 6 6 8 4 1 2 1 2 1 1 9 ,1 2 , 8 7 4 . 3 4 6 9 0 4 6 9 6 8 6 , 1 1 3 , 4 6 5 1 7 9 2 6 0 8 5 0 1 ,6 . 6 3 6 5 9 0 8 1 1 8 0 0 7 9 5 ,2 . 5 7 6 1 5 8 1 4 9 6 0 9 7 6 2 ] V a s et a m b i n' c u 'y` c o v 1' .
F u n c i n :c o r( < m a t r i x > ) F u n c i n :c o r( < m a t r i x > ,< l o g i c a l _ v a l u e > ) L am a t r i zd ec o r r e l a c i nd el am u e s t r am u l t i v a r i a n t e . E j e m p l o : ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )f p p r i n t p r e c :7$
371/633
28/08/13

( %I 3 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 4 )c o r( s 2 ) ; [ 1 , 00 , 8 4 7 6 3 3 90 , 8 8 0 3 5 1 50 , 8 2 3 9 6 2 40 , 7 5 1 9 5 0 6 ] [ ] [ . 8 4 7 6 3 3 91 . 00 , 8 7 3 5 8 3 40 , 6 9 0 2 6 2 20 , 7 8 2 5 0 2 ] [ ] ( %O 4 )[ 0 , 8 8 0 3 5 1 50 , 8 7 3 5 8 3 40 , 7 7 6 4 0 6 50 , 8 3 2 3 3 5 81 , 0 ] [ ] [ . 8 2 3 9 6 2 4. 6 9 0 2 6 2 2. 7 7 6 4 0 6 51 . 00 . 7 2 9 3 8 4 8 ] [ ] [ . 7 5 1 9 5 0 60 . 7 8 2 5 0 2. 8 3 2 3 3 5 8. 7 2 9 3 8 4 81 . 0 ] F u n c i n' c o r 't i e n eu na r g u m e n t ol g i c oo p c i o n a l :` c o r( x ,t r u e )' H a c eq u eM a x i m aq u e' x 'e sl am a t r i zd ed a t o s ,h a c i e n d ol om i s m oq u e ` C o r( x )' .P o ro t r ol a d o ,` c o r( x ,f a l s a )' s i g n i f i c aq u e `x 'n oe s l am a t r i zd ed a t o s ,p e r ol am a t r i zd ec o v a r i a n z a s ,e v i t a n d oa s n u e v oc l c u l o , ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )f p p r i n t p r e c :7$ ( %I 3 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 4 )s :c o v 1( s 2 )$ ( %I 5 )c o r( s ,f a l s e ) ;/*e s t oe sm sr p i d o*/ [ 1 , 00 , 8 4 7 6 3 3 90 , 8 8 0 3 5 1 50 , 8 2 3 9 6 2 40 , 7 5 1 9 5 0 6 ] [ ] [ . 8 4 7 6 3 3 91 . 00 , 8 7 3 5 8 3 40 , 6 9 0 2 6 2 20 , 7 8 2 5 0 2 ] [ ] ( %O 5 )[ 0 , 8 8 0 3 5 1 50 , 8 7 3 5 8 3 40 , 7 7 6 4 0 6 50 , 8 3 2 3 3 5 81 , 0 ] [ ] [ . 8 2 3 9 6 2 4. 6 9 0 2 6 2 2. 7 7 6 4 0 6 51 . 00 . 7 2 9 3 8 4 8 ] [ ] [ . 7 5 1 9 5 0 60 . 7 8 2 5 0 2. 8 3 2 3 3 5 8. 7 2 9 3 8 4 81 . 0 ] V a s et a m b i n' c u 'y` c o v 1' .
F u n c i n :l i s t _ c o r r e l a t i o n s( < m a t r i x > ) F u n c i n :l i s t _ c o r r e l a t i o n s( < m a t r i x > ,< l o g i c a l _ v a l u e > ) F u n c i n` l i s t _ c o r r e l a t i o n s' d e v u e l v eu n al i s t ad ec o r r e l a c i n m e d i d a s : * :l ai n v e r s ad el am a t r i zd ec o v a r i a n z aS _ 1 , 1I j S=( s ) 1i ,j=1 , 2 ,. . . ,p *< S e l e c c i nM l t i p l e >c o r r e l a c i nv e c t o r > :( R _ 1^2 ,R _ 2^2 ,. . . ,R _ p^2 ) , c o n 21 R=1ii i s s i i e su ni n d i c a d o rd el ab o n d a dd ea j u s t ed e ll i n e a l m o d e l od er e g r e s i nm u l t i v a r i a n t ee nX _ ic u a n d oe lr e s t od e L a sv a r i a b l e ss eu t i l i z a nc o m or e g r e s o r e s . *c o r r e l a c i n :c o ne le l e m e n t o( i ,j )e s i j s r=i j . r e s t/i ij j\1 / 2 |S s| \/
45.4 Funciones y variables para grficos estadsticos

F u n c i n :b a r s p l o t( < d a t a 1 > ,< d a t a 2 > ,. . . ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :b a r s p l o t _ d e s c r i p t i o n( . . . ) P a r c e l a sb a r e sd i a g r a m a sp a r av a r i a b l e se s t a d s t i c a sd i s c r e t a s ,t a n t op a r a u n oom l t i p l e sm u e s t r a s . < d a t a >p u e d es e ru n al i s t ad el o sr e s u l t a d o sr e p r e s e n t a nu n am u e s t r a ,ou n m a t r i zd ef i l a syc o l u m n a s< m >< n > ,q u er e p r e s e n t am u e s t r a sd e< n > t a m a o< M >c a d au n o . L a so p c i o n e sd i s p o n i b l e ss o n : *( P o rd e f e c t o ,` 3 / 4' ) :a n c h or e l a t i v od el o sr e c t n g u l o s . E s t ev a l o rd e b ee s t a re ne lr a n g o` [ 0 , 1 ]' . *< g r o u p i n g >( P o rd e f e c t o :' c l s t e r ' ) :i n d i c ac m om l t i p l e s s em u e s t r a nl a sm u e s t r a s .L o sv a l o r e sv l i d o ss o n :' c l s t e r 'y ` A p i l a d a s . *< g r o u p s _ g a p >( P o rd e f e c t o ,` 1' ) :u nn m e r oe n t e r op o s i t i v o q u er e p r e s e n t al ad i f e r e n c i ae n t r ed o sg r u p o sc o n s e c u t i v o sd eb a r r a s . *( P o rd e f e c t o ,` [ ]' ) :u n al i s t ad ec o l o r e sp a r am l t i p l e s m u e s t r a s .C u a n d oh a ym sm u e s t r a sd eq u el o sc o l o r e se s p e c i f i c a d o s ,
372/633
28/08/13

l o sc o l o r e sN E C E S A R I Oa d i c i o n a l e ss o ne l e g i d o sa la z a r .C o n s u l t e` c o l o r " p a r aa p r e n d e rm ss o b r ee l l o s . *< f r e c u e n c i a >( P o rd e f e c t o :' a b s o l u t a ' ) :i n d i c al ae s c a l ad e l o r d e n a d a s .L o sv a l o r e sp o s i b l e ss o n :' a b s o l u t a ' ,' r e l a t i v a ' ,y ` C i e n t o' . *< o r d e r i n g >( P o rd e f e c t o ,` o r d e r l e s s p' ) :l o sv a l o r e sp o s i b l e ss o n O r d e r l e s s p` ' o ò r d e r g r e a t p ' ,l oq u ei n d i c al af o r m ae ne s t a d s t i c a l o sr e s u l t a d o sd e b e ns e rs o l i c i t a d o se ne l< x >e j e s . *< s a m p l e _ k e y s >( P o rd e f e c t o ,` [ ]' ) :u n al i s t ac o nl a sc u e r d a sp a r as e r u t i l i z a d oe nl al e y e n d a .C u a n d ol al o n g i t u dd el al i s t ae sd i s t i n t od e0o e ln m e r od em u e s t r a s ,s ed e v u e l v eu nm e n s a j ed ee r r o r . *< s t a r t _ a t >( P o rd e f e c t o ,` 0' ) :i n d i c aq u el at r a m ac o m i e n z aa s e rr e p r e s e n t a d ae ne le j ex . *T o d a sl a s' o p c i o n e s ,e x c e p t o` x t i c s 'g l o b a l e s è m p a t e ,e lc u a le s a s i g n a d oi n t e r n a m e n t ep o r` b a r s p l o t' .S id e s e ac o n f i g u r a rs u l o sp r o p i o sv a l o r e sp a r ae s t ao p c i nos iq u i e r e sc o n s t r u i re s c e n a sc o m p l e j a s , h a c e ru s od e` b a r s p l o t _ d e s c r i p t i o n' .C o n s u l t ee ls i g u i e n t ee j e m p l o . *L o ss i g u i e n t e s" o p c i o n e s : `c l a v e' l o c a l e s` e m p a t e , `c o l o r e s ' , F i l l _ c o l o r` ' , `f i l l _ d e n s i t y 'y` l i n e _ w i d t h' .V a s et a m b i n ` B a r r a s' .
F u n c i n :d i a g r a m ad ec a j a( < d a t a > ) F u n c i n :d i a g r a m ad ec a j a( < d a t a > ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :b o x p l o t _ d e s c r i p t i o n( . . . ) E s t af u n c i np a r c e l a sd i a g r a m a sd ec a j ayw h i s h k e r .< d a t a >A r g u m e n t op u e d e s e ru n al i s t a ,q u en oe sd eg r a ni n t e r s ,y aq u ee s t o sd i a g r a m a s s eu t i l i z a np r i n c i p a l m e n t ep a r al ac o m p a r a c i nd ed i f e r e n t e sm u e s t r a s ,ou n am a t r i z ,p o rl o e sp o s i b l ec o m p a r a rd o som sc o m p o n e n t e sd eu nm u l t i v a r i a n t e v a r i a b l ee s t a d s t i c a .P e r ot a m b i ns ep e r m i t e< d a t a >s e au n al i s t a d em u e s t r a sc o np o s i b l e sd i f e r e n t e st a m a o sd em u e s t r a ,d eh e c h o ,e s t ae s l a n i c af u n c i ne ne lp a q u e t e` d e s c r i p t i v a "q u ea d m i t ee s t et i p o d ee s t r u c t u r ad ed a t o s . L a so p c i o n e sd i s p o n i b l e ss o n : *( P o rd e f e c t o ,` 3 / 4' ) :a n c h u r ar e l a t i v ad el a sc a j a s .E s t e v a l o rd e b ee s t a re ne lr a n g o` [ 0 , 1 ]' . *( P o rd e f e c t o :' v e r t i c a l e s ' ) :l o sv a l o r e sp o s i b l e s : ' V e r t i c a l e s 'y' h o r i z o n t a l e s ' . *T o d a sl a s' o p c i o n e s ,e x c e p t op o i n t s _ j o i n e d` ' è m p a t e ,p o i n t _ s i z e` ' , P o i n t _ t y p e` ' , `x t i c s ' ,` Y T i c s' , `x r a n g e 'y` y r a n g e' ,q u e s ea s i g n a ni n t e r n a m e n t ep o r` d i a g r a m ad ec a j a' .S id e s e ae s t a b l e c e r s u sp r o p i o sv a l o r e sp a r ae s t ao p c i noq u i e r e nc o n s t r u i rc o m p l e j o s e s c e n a s ,h a c e nu s od e` b o x p l o t _ d e s c r i p t i o n' . *L o ss i g u i e n t e s" o p c i o n e s : `c l a v e' l o c a l e s` e m p a t e , `d ec o l o r" ,y ` L i n e _ w i d t h' .
F u n c i n :h i s t o g r a m a( < l i s t > ) F u n c i n :h i s t o g r a m a( < l i s t > ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :h i s t o g r a m a( < o n e _ c o l u m n _ m a t r i x > ) F u n c i n :h i s t o g r a m a( < o n e _ c o l u m n _ m a t r i x > ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :h i s t o g r a m a( < o n e _ r o w _ m a t r i x > ) F u n c i n :h i s t o g r a m a( < o n e _ r o w _ m a t r i x > ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :h i s t o g r a m _ d e s c r i p t i o n( . . . ) E s t af u n c i np a r c e l a sd eu nh i s t o g r a m ad eu n am u e s t r ac o n t i n u a .M u e s t r a d a t o sd e b e ns e ra l m a c e n a d o se nu n al i s t ad en m e r o sou nu n i d i m e n s i o n a l m a t r i z . L a so p c i o n e sd i s p o n i b l e ss o n : *< n c l a s s e s >( P o rd e f e c t o ,` 1 0' ) :e ln m e r od ec l a s e sd el a h i s t o g r a m a ,ou n al i s t aq u ei n d i c al o sl m i t e sd el a sc l a s e sy e ln m e r od ee l l o s ,os l od el o sl m i t e s . *< f r e c u e n c i a >( P o rd e f e c t o :' a b s o l u t a ' ) :i n d i c al ae s c a l ad e l o r d e n a d a s .L o sv a l o r e sp o s i b l e ss o n :' a b s o l u t a ' ,' r e l a t i v a ' ,y ` C i e n t o' . *< h t i c s >( P o rd e f e c t o :' a u t o ' ) :f o r m a t od el o st i c sd e lh i s t o g r a m a . L o sv a l o r e sp o s i b l e ss o n :' a u t o ' ,` e x t r e m o s' , ì n t e r v a l o s" ,ou n a l i s t ad ee t i q u e t a s . *T o d a sl a s' o p c i o n e s ,e x c e p t o` x r a n g e 'g l o b a l e s è m p a t e ,y r a n g e` ' ,y ` X t i c s' ,q u es ea s i g n a ni n t e r n a m e n t ep o r `h i s t o g r a m a .S i d e s e ae s t a b l e c e rs u sp r o p i o sv a l o r e sp a r ae s t a so p c i o n e s ,h a g au s od e ` H i s t o g r a m _ d e s c r i p t i o n' .V e al o se j e m p l o sa b a j o . *L o ss i g u i e n t e s" o p c i o n e s : `c l a v e' l o c a l e s` e m p a t e , `c o l o r e s ' , F i l l _ c o l o r` ' , `f i l l _ d e n s i t y 'y` l i n e _ w i d t h' .V a s et a m b i n ` B a r r a s' .
373/633
28/08/13

F u n c i n :p i e c h a r t( < l i s t > ) F u n c i n :p i e c h a r t( < l i s t > ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :p i e c h a r t( < o n e _ c o l u m n _ m a t r i x > ) F u n c i n :p i e c h a r t( < o n e _ c o l u m n _ m a t r i x > ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :p i e c h a r t( < o n e _ r o w _ m a t r i x > ) F u n c i n :p i e c h a r t( < o n e _ r o w _ m a t r i x > ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :p i e c h a r t _ d e s c r i p t i o n( . . . ) A li g u a lq u e` b a r s p l o t' ,p e r op a r c e l a ss e c t o r e se nl u g a rd er e c t n g u l o s . L a so p c i o n e sd i s p o n i b l e ss o n : *< s e c t o r _ c o l o r s >( P o rd e f e c t o ,` [ ]' ) :u n al i s t ad el o sc o l o r e sp a r al o ss e c t o r e s . C u a n d oh a ym ss e c t o r e sq u el o sc o l o r e se s p e c i f i c a d o s ,e ls u p l e t o r i a s c o l o r e sN E C E S A R I Os o ne l e g i d o sa la z a r .C o n s u l t e` c o l o r "p a r aa p r e n d e r m ss o b r ee l l o s . *( P o rd e f e c t o ,` [ 0 , 0 ]' ) :C e n t r od ed i a g r a m a . *( P o rd e f e c t o ,` 1' ) :e lr a d i od ed i a g r a m a . *T o d a sl a s' o p c i o n e s ,e x c e p t ol at e c l a` ' `g l o b a l e se m p a t e ,q u ee si n t e r n a m e n t e a s i g n a d op o r` p i e c h a r t' .S id e s e ae s t a b l e c e rs u sp r o p i o sv a l o r e s P a r aq u ee s t ao p c i noq u i e r ec o n s t r u i re s c e n a sc o m p l e j a s ,h a c e ru s od e ` P i e c h a r t _ d e s c r i p t i o n' . *L o ss i g u i e n t e s" o p c i o n e s : `c l a v e' l o c a l e s` e m p a t e , `c o l o r e s ' , F i l l _ d e n s i t y` ' y `l i n e _ w i d t h ' .C o n s u l t et a m b i n` e l i p s e .
F u n c i n :d i a g r a m ad ed i s p e r s i n( < l i s t > ) F u n c i n :d i a g r a m ad ed i s p e r s i n( < l i s t > ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :d i a g r a m ad ed i s p e r s i n( < m a t r i x > ) F u n c i n :d i a g r a m ad ed i s p e r s i n( < m a t r i x > ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :s c a t t e r p l o t _ d e s c r i p t i o n( . . . ) P a r c e l a sd i a g r a m a sd ed i s p e r s i n ,t a n t op a r au n i v a r i a d o( < l i s t > )y m u e s t r a sm u l t i v a r i a n t e s( < m a t r i x > ) . L a so p c i o n e sd i s p o n i b l e ss o nl a sm i s m a sa d m i t i d op o r` h i s t o g r a m a . F u n c i n` s c a t t e r p l o t _ d e s c r i p t i o n' c r e au no b j e t og r f i c o a d e c u a d op a r ac r e a re s c e n a sc o m p l e j a s ,j u n t oc o no t r ag r f i c a o b j e t o s .T a m b i nh a yu n af u n c i n` w x s c a t t e r p l o t' p a r ac r e a r h i s t o g r a m a si n c o r p o r a d o se nl a si n t e r f a c e sw x M a x i m ayi M a x i m a . E j e m p l o s : D i a g r a m ad ed i s p e r s i nu n i v a r i a n t ed eu n am u e s t r ad eG a u s ss i m u l a d o . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )l o a d( d i s t r i b )$ ( %I 3 )d i a g r a m ad ed i s p e r s i n( r a n d o m _ n o r m a l( 0 , 1 , 2 0 0 ) , e j ex=t r u e , p o i n t _ s i z e=2 , D i m e n s i o n e s=[ 6 0 0 1 5 0 ] )$ D o sd i a g r a m ad ed i s p e r s i nt r i d i m e n s i o n a l . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 3 )d i a g r a m ad ed i s p e r s i n( s u b m a t r i z( s 2 ,1 , 2 , 3 ) , t i t l e=" L o sd a t o sd el a se s t a c i o n e s#4y#5 " , p o i n t _ t y p e=d i a m a n t , p o i n t _ s i z e=2 , c o l o r=b l u e )$ T r e sd i a g r a m ad ed i s p e r s i nt r i d i m e n s i o n a l . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 3 )d i a g r a m ad ed i s p e r s i n( s u b m a t r i z( s 2 ,1 , 2 ) ,n c l a s s e s=4 )$ C i n c od i a g r a m ad ed i s p e r s i nt r i d i m e n s i o n a l ,c o nc i n c oc l a s e sd eh i s t o g r a m a s . ( %I 1 )l o a d( d e s c r i p t i v e )$ ( %I 2 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 3 )d i a g r a m ad ed i s p e r s i n( s 2 , n c l a s s e s=5 , =f r e c u e n c i ar e l a t i v a , f i l l _ c o l o r=a z u l , f i l l _ d e n s i t y=0 , 3 , x t i c s=5 )$ P a r at r a z a rp u n t o sa i s l a d o sol n e a s u m a d od o syt r e s d i m e n s i o n e s ,c o n s u l t el as e c c i n` p u n t o s " .V a s et a m b i ne lh i s t o g r a m a` ' .
F u n c i n :S t a r P l o t( < d a t a 1 > ,< d a t a 2 > ,. . . ,< o p t i o n _ 1 > ,< o p t i o n _ 2 > ,. . . ) F u n c i n :s t a r p l o t _ d e s c r i p t i o n( . . . )
374/633
28/08/13

P a r c e l a sd i a g r a m a se s t r e l l a sp a r av a r i a b l e se s t a d s t i c a sd i s c r e t a s ,t a n t op a r a u n oom l t i p l e sm u e s t r a s . < d a t a >p u e d es e ru n al i s t ad el o sr e s u l t a d o sr e p r e s e n t a nu n am u e s t r a ,ou n m a t r i zd ef i l a syc o l u m n a s< m >< n > ,q u er e p r e s e n t am u e s t r a sd e< n > t a m a o< M >c a d au n o . L a so p c i o n e sd i s p o n i b l e ss o n : *< s t a r s _ c o l o r s >( P o rd e f e c t o ,` [ ]' ) :u n al i s t ad ec o l o r e sp a r am l t i p l e s m u e s t r a s .C u a n d oh a ym sm u e s t r a sd eq u el o sc o l o r e se s p e c i f i c a d o s , l o sc o l o r e sN E C E S A R I Oa d i c i o n a l e ss o ne l e g i d o sa la z a r .C o n s u l t e` c o l o r " p a r aa p r e n d e rm ss o b r ee l l o s . *< f r e c u e n c i a >( P o rd e f e c t o :' a b s o l u t a ' ) :i n d i c al ae s c a l ad e l r a d i o s .L o sv a l o r e sp o s i b l e ss o n :' a b s o l u t a 'y' r e l a c i n ' . *< o r d e r i n g >( P o rd e f e c t o ,` o r d e r l e s s p' ) :l o sv a l o r e sp o s i b l e ss o n O r d e r l e s s p` ' o ò r d e r g r e a t p ' ,l oq u ei n d i c al af o r m ae ne s t a d s t i c a l o sr e s u l t a d o sd e b e ns e ro r d e n a d o s . *< s a m p l e _ k e y s >( P o rd e f e c t o ,` [ ]' ) :u n al i s t ac o nl a sc u e r d a sp a r as e r u t i l i z a d oe nl al e y e n d a .C u a n d ol al o n g i t u dd el al i s t ae sd i s t i n t od e0o e ln m e r od em u e s t r a s ,s ed e v u e l v eu nm e n s a j ed ee r r o r . *< s t a r _ c e n t e r >( P o rd e f e c t o ,` [ 0 , 0 ]' ) :C e n t r od ed i a g r a m a . *< s t a r _ r a d i u s >( P o rd e f e c t o ,` 1' ) :e lr a d i od ed i a g r a m a . *T o d a sl a s' o p c i o n e s ,e x c e p t o` p o i n t s _ j o i n e d 'g l o b a l e s è m p a t e , ` P o i n t _ t y p e' ,y 'c l a v e' ,q u es ea s i g n a ni n t e r n a m e n t e ` S t a r P l o t' .S id e s e ae s t a b l e c e rs u sp r o p i o sv a l o r e sp a r ae s t a o p c i o n e soq u i e r e nc o n s t r u i re s c e n a sc o m p l e j a s ,h a c e nu s od e ` S t a r p l o t _ d e s c r i p t i o n' . *L o ss i g u i e n t e sl o c a l e sd r a w' o p c i n :` l i n e _ w i d t h ' ` .
F u n c i n :d i a g r a m ad et a l l o s( < d a t a > ) F u n c i n :d i a g r a m ad et a l l o s( < d a t a > ,< o p t i o n > ) D i a g r a m a sd et a l l oyh o j ad i a g r a m a s . n i c ao p c i nd i s p o n i b l ee s : *< l e a f _ u n i t >( P o rd e f e c t o ,` 1' ) :i n d i c aq u el au n i d a dd el a sh o j a s ; d e b es e ru n ap o t e n c i ad e1 0 .
46 diag
F u n c i o n e syv a r i a b l e sp a r ad i a g
46.1 Funciones y variables para diag

F u n c i n :d i a g( < l m > ) C o n s t r u y eu n am a t r i zc u a d r a d ac o nl a sm a t r i c e sd e< l m >e ne l d i a g o n a l .< l m >e su n al i s t ad em a t r i c e soe s c a l a r e s . E j e m p l o : ( %I 1 )l o a d( " d i a g " )$ ( %I 2 )a 1 :m a t r i z( [ 1 , 2 , 3 ] ,[ 0 , 4 , 5 ] ,[ 0 , 0 , 6 ] )$ ( %I 3 )a 2 :m a t r i z( [ 1 , 1 ] ,[ 1 , 0 ] )$ ( %I 4 )d i a g( [ a 1 ,x ,a 2 ] ) ; [ 123000 ] [ ] [ 405000 ] [ ] [ 006000 ] ( %O 4 )[ ] [ 00000x ] [ ] [ 000011 ] [ ] [ 000010 ] P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " d i a g " ) .
F u n c i n :J F( < l a m b d a > ,< n > ) D e v u e l v ee lc e l u l a rJ o r d a n i a< n >o r d e nc o nv a l o rp r o p i o< l a m b d a > . E j e m p l o : ( %I 1 )l o a d( " d i a g " )$
375/633
28/08/13
( %I 2 )J F( 2 , 5 ) ;
[ 21000 ] [ ] [ 02100 ] [ ] ( %O 2 )[ 00210 ] [ ] [ 00021 ] [ ] [ 00002 ] ( %I 3 )J F( 3 , 2 ) ; [ 31 ] ( %O 3 )[ ] [ 03 ] P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " d i a g " ) .
F u n c i n :j o r d a n( < m a t > ) D e v u e l v el af o r m ad eJ o r d a nd el am a t r i z< m a t > ,p e r oc o d i f i c a d ae nu nM a x i m a l i s t a .P a r ao b t e n e rl am a t r i zc o r r e s p o n d i e n t e ,l af u n c i n` d i s p J o r d a n' c a l l u t i l i z a n d oc o m oa r g u m e n t ol as a l i d ad e` j o r d a n' . E j e m p l o : ( %I 1 )l o a d( " d i a g " )$ ( %I 3 )a :m a t r i z( [ 2 , 0 , 0 , 0 , 0 , 0 , 0 , 0 ] , [ 1 , 2 , 0 , 0 , 0 , 0 , 0 , 0 ] , [ 4 , 1 , 2 , 0 , 0 , 0 , 0 , 0 ] , [ 2 , 0 , 0 , 2 , 0 , 0 , 0 , 0 ] , [ 7 , 2 , 0 , 0 , 2 , 0 , 0 , 0 ] , [ 9 , 0 ,2 , 0 , 1 , 2 , 0 , 0 ] , [ 3 4 , 7 , 1 ,2 ,1 , 1 , 2 , 0 ] , [ 1 4 5 ,1 7 ,1 6 , 3 , 9 ,2 , 0 , 3 ] )$ ( %I 3 4 )J o r d a n( a ) ; ( %O 4 )[ [ 2 ,3 ,3 ,1 ] ,[ 3 ,1 ] ] ( %I 5 )d i s p J o r d a n( % ) ; [ 21000000 ] [ ] [ 02100000 ] [ ] [ 00200000 ] [ ] [ 00021000 ] ( %O 5 )[ ] [ 00002100 ] [ ] [ 00000200 ] [ ] [ 00000020 ] [ ] [ 00000003 ] P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " d i a g " ) .V a s et a m b i n D i s p J o r d a n` ' y `m i n i m a l P o l y ' .
F u n c i n :d i s p J o r d a n( < l > ) D e v u e l v el am a t r i zJ o r d a n i aa s o c i a d aal ac o d i f i c a c i nd a d ap o r l al i s t a< l >M a x i m a ,q u ee sl as a l i d ad a d ap o rl af u n c i n ' J o r d a n ' . E j e m p l o : ( %I 1 )l o a d( " d i a g " )$ ( %I 2 )b 1 :m a t r i z( [ 0 , 0 , 1 , 1 , 1 ] , [ 0 , 0 , 0 , 1 , 1 ] , [ 0 , 0 , 0 , 0 , 1 ] , [ 0 , 0 , 0 , 0 , 0 ] , [ 0 , 0 , 0 , 0 , 0 ] )$ ( %I 3 )j o r d a n( b 1 ) ; ( %O 3 )[ [ 0 ,3 ,2 ] ] ( %I 4 )d i s p J o r d a n( % ) ; [ 01000 ] [ ] [ 00100 ] [ ] ( %O 4 )[ 00000 ] [ ] [ 00001 ] [ ] [ 00000 ] P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " d i a g " ) .V a s et a m b i n' j o r d a n ' y` m i n i m a l P o l y' .
F u n c i n :m i n i m a l P o l y( < l > )
376/633
28/08/13

D e v u e l v ee lp o l i n o m i om n i m oa s o c i a d oal ac o d i f i c a c i n d a d op o rl al i s t a< l >M a x i m a ,q u ee sl as a l i d ad a d ap o r f u n c i n` j o r d a n' . E j e m p l o : ( %I 1 )l o a d( " d i a g " )$ ( %I 2 )a :m a t r i z( [ 2 , 1 , 2 , 0 ] , [ 2 , 2 , 1 , 2 ] , [ 2 ,1 ,1 , 1 ] , [ 3 , 1 , 2 ,1 ] )$ ( %I 3 )J o r d a n( a ) ; ( %O 3 )[ [ -1 ,1 ] ,[ 1 ,3 ] ] ( %I 4 )m i n i m a l P o l y( % ) ; 3 ( %O 4 )( x-1 )( x+1 ) P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " d i a g " ) .V a s et a m b i n' j o r d a n ' y` d i s p J o r d a n' .
F u n c i n :M o d e M a t r i x( < A > ,< l > ) D e v u e l v ee l< M >m a t r i zt a lq u e( M^^1 ) .A M=J ,d o n d e< J >e se l F o r m ad eJ o r d a nd e< A > .L al i s t a< l >M a x i m ae sl af o r m ac o d i f i c a d ad e l af o r m ad eJ o r d a nd e v u e l t op o rl af u n c i n' j o r d a n ' . E j e m p l o : ( %I 1 )l o a d( " d i a g " )$ ( %I 2 )a :m a t r i z( [ 2 , 1 , 2 , 0 ] , [ 2 , 2 , 1 , 2 ] , [ 2 ,1 ,1 , 1 ] , [ 3 , 1 , 2 ,1 ] )$ ( %I 3 )J o r d a n( a ) ; ( %O 3 )[ [ -1 ,1 ] ,[ 1 ,3 ] ] ( %I 4 )M :M o d e M a t r i x( u n , % ) ; [ 1-111 ] [ ] [ 1 ] [ -100 ] [ 9 ] [ ] ( %O 4 )[ 1 3 ] [ -1-10 ] [ 9 ] [ ] [ 1 7 ] [ -111 ] [ 9 ] ( %I 5 )e s( ( M^^1 )a M=d i s p J o r d a n( %o 3 ) . ) ; ( %O 5 )t r u e T e n g ae nc u e n t aq u e` d i s p J o r d a n( %o 3 ) "e sl af o r m ad eJ o r d a nd el am a t r i z` a' . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " d i a g " ) .V a s et a m b i n' j o r d a n ' y` d i s p J o r d a n' .
F u n c i n :m a t _ f u n c t i o n( < f > ,< m a t > ) D e v o l u c i o n e sf( m a t ) ,d o n d e< f >e su n af u n c i na n a l t i c ay< m a t >u n m a t r i z .E s t ec l c u l os eb a s ae nl af r m u l ai n t e g r a ld eC a u c h y , q u ee s t a b l e c eq u es if' ( x )e sa n a l t i c ay m a t=d i a g( [ J F( m 1 ,n 1 ) ,. . . ,J F( m k ,n k ) ] ) , e n t o n c e s f( m a t )=M o d e M a t r i x*d i a g( [ f( J F( m 1 ,n 1 ) ) ,. . . ,f( J F( m k ,n k ) ) ] ) *M o d e M a t r i x^^( 1 ) T e n g ae nc u e n t aq u eh a yu n o s6u8o t r o sm t o d o sp a r ae l l o c l c u l o . A l g u n o se j e m p l o ss o nl o ss i g u i e n t e s . E j e m p l o1 : ( %I 1 )l o a d( " d i a g " )$ ( %I 2 )b 2 :m a t r i z( [ 0 , 1 , 0 ] ,[ 0 , 0 , 1 ] ,[ 1 ,3 ,3 ] )$ ( %I 3 )m a t _ f u n c t i o n( e x p ,t*b 2 ) ; 2-t t %e-t-t ( %O 3 )m a t r i z( [ -+t %e+ %e , 2 -T-t-t 2 %e %e-t-t %e t( -+ %e )+t( 2 %e) t2t t
377/633
28/08/13

-T-t-t -T-t %e 2 %e %e +2 %e ,t( %-e )+t( ) t2t 2-t-t-t -T t %e 2 %e %e-t + %E ] ,[ ,-t( -+ %e ) , 2t2 t -T-t2-t 2 %e %y %e-t -T( ) ] ,[ -t %e , 2t2 -T-t-t 2 %e %e-t-t %e t( -+ %e )-t( 2 %e) , t2t t -T-t-t 2 %e %e-t %e t( )-t( %-e ) ] ) 2t t ( %I 4 )r a t s i m p( % ) ; [ 2-t ] [ ( T+2t+2 ) %e ] [ ] [ 2 ] [ ] [ 2-t ] ( %O 4 )C o l1=[ t %e ] [ ] [ 2 ] [ ] [ 2-t ] [ ( T-2t ) %e ] [ ] [ 2 ] [ 2-t ] [ ( T+t ) %e ] [ ] C o l2=[ 2-t ] [ -( T-t-1 ) %e ] [ ] [ 2-t ] [ ( T-3t ) %e ] [ 2-t ] [ T %e ] [ ] [ 2 ] [ ] [ 2-t ] C o l3=[ ( t-2t ) %e ] [ ] [ 2 ] [ ] [ 2-t ] [ ( T-4t+2 ) %e ] [ ] [ 2 ] E j e m p l o2 : ( %I 5 )b 1 :m a t r i z( [ 0 , 0 , 1 , 1 , 1 ] , [ 0 , 0 , 0 , 1 , 1 ] , [ 0 , 0 , 0 , 0 , 1 ] , [ 0 , 0 , 0 , 0 , 0 ] , [ 0 , 0 , 0 , 0 , 0 ] )$ ( %I 6 )m a t _ f u n c t i o n( e x p ,t*b 1 ) ; [ 2 ] [ T ] [ 10t t-+t ] [ 2 ] [ ] ( %O 6 )[ 010t t ] [ ] [ 0010t ] [ ] [ 00010 ] [ ] [ 00001 ] ( %I 7 )m i n i m a l P o l y( j o r d a n( b 1 ) ) ; 3 ( %O 7 )x ( %I 8 )i d e n t( 5 )+b 1*t1 / 2*( t^2 )*b 1^^2 ; [ 2 ] [ T ] [ 10t t-+t ] [ 2 ] [ ] ( %O 8 )[ 010t t ] [ ] [ 0010t ] [ ] [ 00010 ] [ ] [ 00001 ] ( %I 9 )m a t _ f u n c t i o n( e x p , %i*t*b 1 ) ;
378/633
28/08/13

[ 2 ] [ T ] [ 1 %0 %q u ee s %e s] [ 2 ] [ ] ( %O 9 )[ 010 %i t %l o ] [ ] [ 0010 %i t ] [ ] [ 00010 ] [ ] [ 00001 ] ( %I 1 0 )m a t _ f u n c t i o n( c o s ,t*b 1 )+ %i*m a t _ f u n c t i o n( s i n ,t*b 1 ) ; [ 2 ] [ T ] [ 1 %0 %q u ee s %e s] [ 2 ] [ ] ( %O 1 0 )[ 010 %i t %l o ] [ ] [ 0010 %i t ] [ ] [ 00010 ] [ ] [ 00001 ] E j e m p l o3 : ( %I 1 1 )a 1 :m a t r i z( [ 2 , 1 , 0 , 0 , 0 , 0 ] , [ 1 , 4 , 0 , 0 , 0 , 0 ] , [ 1 , 1 , 2 , 1 , 0 , 0 ] , [ 1 , 1 ,1 , 4 , 0 , 0 ] , [ 1 , 1 ,1 , 1 , 3 , 0 ] , [ 1 , 1 ,1 , 1 , 1 , 2 ] )$ ( %I 1 2 )F P O W( x ) :=b l o q u e( [ k ] ,d e c l a r e( k ,e n t e r o ) ,x^k )$ ( %I 1 3 )m a t _ f u n c t i o n( F P O W ,A 1 ) ; [ K k-1 ][ k-1 ] [ 3-3k ][ k3 ] [ ][ ] [ K-1 ][ k k-1 ] [ -K3 ][ 3+k3 ] [ ][ ] [ K-1 ][ k-1 ] [ -3k ][ k3 ] ( %O 1 3 )C o l1=[ ]C o l2=[ ] [ K-1 ][ k-1 ] [ -3k ][ k3 ] [ ][ ] [ K-1 ][ k-1 ] [ -3k ][ k3 ] [ ][ ] [ K-1 ][ k-1 ] [ -3k ][ k3 ] [ 0 ][ 0 ] [ ][ ] [ 0 ][ 0 ] [ ][ ] [ K k-1 ][ k-1 ] [ 3-3k ][ k3 ] [ ][ ] C o l3=[ k-1 ]C o l4=[ k k-1 ] [ -K3 ][ 3+k3 ] [ ][ ] [ K-1 ][ k-1 ] [ -3k ][ k3 ] [ ][ ] [ K-1 ][ k-1 ] [ -3k ][ k3 ] [ 0 ] [ ][ 0 ] [ 0 ][ ] [ ][ 0 ] [ 0 ][ ] [ ][ 0 ] C o l5=[ 0 ]C o l6=[ ] [ ][ 0 ] [ K ][ ] [ 3 ][ 0 ] [ ][ ] [ K k ][ k ] [ 3-2 ][ 2 ] P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " d i a g " ) .
47 distrib
I n t r o d u c c i nad i s t r i b F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s
47.1 Introduccin a distrib

28/08/13

P a q u e t e` d i s t r i b' c o n t i e n eu nc o n j u n t od ef u n c i o n e sp a r al at o m ad ep r o b a b i l i d a d c l c u l o se na m b o sm o d e l o su n i v a r i a n t e sd i s c r e t a syc o n t i n u a s . L oq u es i g u ee su nb r e v er e c o r d a t o r i od el a sp r o b a b i l s t i c oB s i c o s d e f i n i c i o n e s . S e af( x )l a< F u n c i n< d e n s i t yd eu na b s o l u t oa l e a t o r i ac o n t i n u a l av a r i a b l eX .E l< F u n c i nd i s t r i b u c i n >s ed e f i n ec o m o x / [ F( x )=If( u )d u ] / m i n f q u ee si g u a lal ap r o b a b i l i d a d . E lv a l o r< m e a n >e su np a r m e t r od el o c a l i z a c i nys ed e f i n ec o m o i n f / [ E[ X ]=Ix f( x )d x ] / m i n f E l< v a r i a n c e >e su n am e d i d ad el av a r i a c i n , i n f / [ 2 V[ X ]=If( x )( x-E[ X ] )d x ] / m i n f q u ee su nn m e r or e a lp o s i t i v o .L ar a zc u a d r a d ad el av a r i a n z ae s l ad e v i a t i o n >e s t n d a r > ,D[ X ]=s q r t( V[ X ] ) ,yq u ee so t r am e d i d ad e v a r i a c i n . E l< s k e w n e s sc o e f f i c i e n t >e su n am e d i d ad el an os i m e t r a , i n f / 1[ 3 S K[ X ]=-If( x )( x-E[ X ] )d x 3 ] D[ X ]/ m i n f Yl a< k u r t o s i sm i d ec o e f f i c i e n t >e la p u n t a m i e n t od el a d i s t r i b u c i n , i n f / 1[ 4 K U[ X ]=-If( x )( x-E[ X ] )d x-3 4 ] D[ X ]/ m i n f S iXe sg a u s s i a n a ,K U[ X ]=0 .D eh e c h o ,t a n t ol aa s i m e t r ayl ac u r t o s i ss o n p a r m e t r o sd ef o r m au t i l i z a d o sp a r am e d i rl an o g a u s s i a n i d a dd eu n ad i s t r i b u c i n . S il av a r i a b l ea l e a t o r i aXe sd i s c r e t a ,l ad e n s i d a do , l af u n c i nf( x )t o m av a l o r e sp o s i t i v o sd e n t r od eu nc o n j u n t on u m e r a b l ed e n m e r o sx _ i ,yc e r oe no t r ol u g a r .E ne s t ec a s o ,l ad i s t r i b u c i n f u n c i ne s = = = = \ F( x )= >f( x ) /I = = = = x< =x y o L am e d i a ,v a r i a n z a ,d e s v i a c i ne s t n d a r ,c o e f i c i e n t ed ea s i m e t r ay c o e f i c i e n t ed ec u r t o s i st o m a nl af o r m a = = = = \ E[ X ]= >x f( x ) , /I i = = = = x y o = = = = \2 V[ X ]= >f( x )( x-E[ X ] ) , /I i = = = = x y o D[ X ]=s q r t( V[ X ] ) , = = = = 1\3 S K[ X ]=>f( x )( x-E[ X ] ) D[ X ]^3/i i = = = = x
380/633
28/08/13
y o y
= = = = 1\4 K U[ X ]=>f( x )( x-E[ X ] )-3 , D[ X ]^4/i i = = = = x y o r e s p e c t i v a m e n t e . H a yu n ac o n v e n c i nd en o m e n c l a t u r ad ep a q u e t e` d i s t r i b .T o d a sl a sf u n c i o n e s n o m b r et i e n ed o sp a r t e s ,l ap r i m e r ad ee l l a sh a c er e f e r e n c i aal af u n c i no p a r m e t r oq u eq u e r e m o sc a l c u l a r , F u n c i o n e s : F u n c i nd ed e n s i d a d( p d f _* ) F u n c i nd ed i s t r i b u c i n( c d f _* ) C u a n t i l( q u a n t i l e _* ) L am e d i a( m e a n _* ) V a r i a n z a( v a r _* ) D e s v i a c i ne s t n d a r( s t d _* ) C o e f i c i e n t ed ea s i m e t r a( s k e w n e s s _* ) C o e f i c i e n t ed ec u r t o s i s( k u r t o s i s _* ) V a l o ra l e a t o r i o( r a n d o m _* ) L as e g u n d ap a r t ee su n ar e f e r e n c i ae x p l c i t aa lm o d e l op r o b a b i l s t i c o , D i s t r i b u c i o n e sc o n t i n u a s : N o r m a l( *n o r m a l ) E s t u d i a n t e s( *S t u d e n t _ t ) C h i^2( *c h i 2 ) N oc e n t r a lC h i^2( *n o n c e n t r a l _ c h i 2 ) F( f* ) E x p o n e n c i a l( *e x p ) L o g n o r m a l( *l o g n o r m a l ) G a m m a( g a m m a* ) B e t a( *b e t a ) U n i f o r m eC o n t i n u a( *c o n t i n u o u s _ u n i f o r m ) L o g s t i c a( *l o g s t i c a ) P a r e t o( P a r e t o* ) W e i b u l l( *w e i b u l l ) R a y l e i g h( *R a y l e i g h ) L a p l a c e( L a p l a c e* ) C a u c h y( *C a u c h y ) G u m b e l( G u m b e l* ) D i s t r i b u c i o n e sd i s c r e t a s : B i n o m i a l( *b i n o m i a l ) D eP o i s s o n( *P o i s s o n ) B e r n o u l l i( *B e r n o u l l i ) G e o m t r i c o s( *g e o m t r i c a ) U n i f o r m eD i s c r e t a( *d i s c r e t e _ u n i f o r m ) h i p e r g e o m t r i c a( *h i p e r g e o m t r i c a ) B i n o m i a ln e g a t i v a( *n e g a t i v e _ b i n o m i a l ) F i n i t o sd i s c r e t a( *g e n e r a l _ f i n i t e _ d i s c r e t e ) P o re j e m p l o ,` p d f _ s t u d e n t _ t( x ,n )e sl af u n c i nd ed e n s i d a dd el a D i s t r i b u c i nd eS t u d e n t< n >g r a d o sd el i b e r t a d ,` s t d _ p a r e t o( a ,b )' e s l ad e s v i a c i ne s t n d a rd el ad i s t r i b u c i nd eP a r e t oc o np a r m e t r o s< a > yy` k u r t o s i s _ p o i s s o n( m )' e se lc o e f i c i e n t ed ec u r t o s i sd el a D i s t r i b u c i nd eP o i s s o nc o nm e d i a< m > . P a r ah a c e ru s od e` d i s t r i bp a q u e t e "q u en e c e s i t ap r i m e r op a r ac a r g a r l o e s c r i b i e n d o ( %I 1 )l o a d( d i s t r i b )$ P a r ac o m e n t a r i o s ,e r r o r e sos u g e r e n c i a s ,p o rf a v o rp n g a s ee nc o n t a c t oc o ne la u t o re n < ' M a r i oA Te d uX u n t aD O TD O Te s ' > .
47.2 Funciones y variables para distribuciones continuas

F u n c i n :p d f _ n o r m a l( < x >< m > ,< S > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n aN o r m a l( m ,s ) v a r i a b l ea l e a t o r i a ,c o ns >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ n o r m a l( < x >< m > ,< S > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a N o r m a lv a r i a b l ea l e a t o r i a( m ,s ) ,c o ns >0 .E s t af u n c i ns ed e f i n ee n t r m i n o sd ee r r o ri n c o r p o r a d ol af u n c i n` e r f' d eM a x i m a . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )a s u m i rl a( s >0 )$c d f _ n o r m a l( x ,m ,s ) ; x-m e r f( ) s q r t( 2 )s1 ( %O 3 )-+22 C o n s u l t et a m b i n` e r f' .
381/633
28/08/13

F u n c i n :q u a n t i l e _ n o r m a l( < q > ,< m > ,< S > ) D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i aN o r m a l( m ,s ) ,c o n s >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ n o r m a l' .A r g u m e n t o < q >d e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )q u a n t i l e _ n o r m a l( 9 5 / 1 0 0 ,0 , 1 ) ; 9 ( %O 2 )s q r t( 2 )i n v e r s e _ e r f( ) 1 0 ( %I 3 )f l o t a d o r( % ) ; ( %O 3 )1 . 6 4 4 8 5 3 6 2 6 9 5 1 4 7 2
F u n c i n :m e a n _ n o r m a l( < m > ,< S > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i aN o r m a l( m ,s ) ,c o ns >0 , as a b e r< m > .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :v a r _ n o r m a l( < m > ,< S > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i aN o r m a l( m ,s ) ,c o ns >0 , as a b e r< s ^ 2 > .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s t d _ n o r m a l( < m > ,< S > ) D e v u e l v el ad e s v i a c i nt p i c ad eu n av a r i a b l ea l e a t o r i aN o r m a l( m ,s ) , c o ns >0 ,e sd e c i r< S > .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ n o r m a l( < m > ,< S > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n av a r i a b l ea l e a t o r i aN o r m a l( m ,s ) , c o ns >0 ,l oq u es i e m p r ee si g u a la0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ n o r m a l( < m > ,< S > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu n av a r i a b l ea l e a t o r i aN o r m a l( m ,s ) , c o ns >0 ,l oq u es i e m p r ee si g u a la0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ n o r m a l( < m > ,< S > ) F u n c i n :r a n d o m _ n o r m a l( < m > ,< S > ,< n > ) D e v u e l v eu n aN o r m a l( m ,s )v a l o ra l e a t o r i o ,c o ns >0 .L l a m a n d o ` R a n d o m _ n o r m a l' c o nu nt e r c e r< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o < n >s e r s i m u l a d o . E s t ae su n ai m p l e m e n t a c i nd e la l g o r i t m od eB o x M u e l l e r ,c o m o d e s c r i t oe nK n u t h ,D E( 1 9 8 1 )< A l g o r i t m o sS e m i n u m e r i c a l .E lA r t e d eP r o g r a m a c i n . >A d d i s o n W e s l e y . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ s t u d e n t _ t( < x >< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n ae s t u d i a n t e v a r i a b l ea l e a t o r i at( n ) ,c o nn >0g r a d o sd el i b e r t a d .P a r ah a c e ru s od e e s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ s t u d e n t _ t( < x >< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu nE s t u d i a n t e v a r i a b l ea l e a t o r i at( n ) ,c o nn >0g r a d o sd el i b e r t a d . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ s t u d e n t _ t( 1 / 2 ,7 / 3 ) ; 712 8 b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( ,,) 623 1 ( %O 2 )12 ( %I 3 )f l o t a d o r( % ) ;
382/633
28/08/13
( %O 3 )0 . 6 6 9 8 4 5 0 5 9 6 1 4 0 4 1 5
F u n c i n :q u a n t i l e _ s t u d e n t _ t( < q > ,< n > ) D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i ad eS t u d e n tt( n ) ,c o n n >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ s t u d e n t _ t' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ s t u d e n t _ t( < n > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i ad eS t u d e n tt( n ) ,c o nn >0 , q u es i e m p r ee si g u a la0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ s t u d e n t _ t( < n > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i ad eS t u d e n tt( n ) ,c o nn >2 . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )a s u m i r ( n >2 )$v a r _ s t u d e n t _ t( n ) ; n ( %O 3 )n-2
F u n c i n :s t d _ s t u d e n t _ t( < n > ) D e v u e l v el ad e s v i a c i nt p i c ad eu n av a r i a b l ea l e a t o r i ad eS t u d e n tt( n ) , c o nn >2 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ s t u d e n t _ t( < n > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n av a r i a b l ea l e a t o r i ad eS t u d e n t t( n ) ,c o nn >3 ,q u ee ss i e m p r ei g u a la0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ s t u d e n t _ t( < n > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu n av a r i a b l ea l e a t o r i ad eS t u d e n t t( n ) ,c o nn >4 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ s t u d e n t _ t( < n > ) F u n c i n :r a n d o m _ s t u d e n t _ t( < n > ,< m > ) D e v u e l v eu nv a l o ra l e a t o r i ot( n ) ,c o nn >0 .L l a m a n d o ` R a n d o m _ s t u d e n t _ t "c o nu ns e g u n d o< m >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad e t a m a o< m >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os eb a s ae ne lh e c h od eq u es ie su n< Z > l on o r m a lv a r i a b l ea l e a t o r i aN( 0 , 1 )yS^2e su n ac h ic u a d r a d oa la z a r v a r i a b l e< n >g r a d o sd el i b e r t a d ,C h i^2( n ) ,e n t o n c e s Z X=/2\1 / 2 |S| |-| \N/ e su n av a r i a b l ea l e a t o r i ad eS t u d e n tc o n< n >g r a d o sd el i b e r t a d ,t( n ) . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ n o n c e n t r a l _ s t u d e n t _ t( < x > ,< n >< n c p > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n an o n c e n t r a l E s t u d i a n t ev a r i a b l ea l e a t o r i an c _ t( n ,n c p ) ,c o nn >0g r a d o sd el i b e r t a d ye lp a r m e t r od en oc e n t r a l i d a dn c p .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) . Av e c e s ,u nt r a b a j oa d i c i o n a le sn e c e s a r i op a r ao b t e n e re lr e s u l t a d of i n a l . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )e x p a n s i n( p d f _ n o n c e n t r a l _ s t u d e n t _ t( 3 , 5 , 0 . 1 ) ) ; , 0 1 3 7 0 0 3 0 1 0 7 5 8 9 5 7 4S q r t( 5 ) ( %O 2 )( 2 )s q r t( 1 4 )s q r ts q r t( %p i )
383/633
28/08/13

1 . 6 5 4 5 6 2 8 8 4 1 1 1 5 1 5 E 4s q r t( 5 ) +s q r t( %p i ) 0 , 0 2 4 3 4 9 2 1 5 0 5 4 3 8 6 6 3s q r t( 5 ) +%P i ( %I 3 )f l o t a d o r( % ) ; ( %O 3 ), 0 2 0 8 0 5 9 3 1 5 9 4 0 5 6 6 9
F u n c i n :c d f _ n o n c e n t r a l _ s t u d e n t _ t( < x > ,< n >< n c p > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a E s t u d i a n t ev a r i a b l ea l e a t o r i an oc e n t r a ln c _ t( n ,n c p ) ,c o nn >0g r a d o s d el al i b e r t a dyp a r m e t r od en oc e n t r a l i d a dn c p .E s t af u n c i nn ot i e n e e x p r e s i nc o m p a c t ays ec a l c u l an u m r i c a m e n t es il av a r i a b l eg l o b a l ` N u m e r' e si g u a la 't r u e' op o rl om e n o su n od el o sa r g u m e n t o se su nf l o t a d o r , d el oc o n t r a r i o ,d e v u e l v eu n ae x p r e s i nn o m i n a l . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ n o n c e n t r a l _ s t u d e n t _ t( 2 , 5 ,5 ) ; ( %O 2 )c d f _ n o n c e n t r a l _ s t u d e n t _ t( -2 ,5 ,-5 ) ( %I 3 )c d f _ n o n c e n t r a l _ s t u d e n t _ t( 2 . 0 , 5 ,5 ) ; ( %O 3 )0 . 9 9 5 2 0 3 0 0 9 3 3 1 9 7 4 3
F u n c i n :q u a n t i l e _ n o n c e n t r a l _ s t u d e n t _ t( < q > ,< n >< n c p > ) D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i an oc e n t r a lE s t u d i a n t e n c _ t( n ,n c p ) ,c o nn >0g r a d o sd el i b e r t a dyd en oc e n t r a l i d a d p a r m e t r oN C P ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e ` C d f _ n o n c e n t r a l _ s t u d e n t _ t' .< q >A r g u m e n t od e b es e ru ne l e m e n t od e [ 0 , 1 ] .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ n o n c e n t r a l _ s t u d e n t _ t( < n > ,< n c p > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i ad eS t u d e n tn oc e n t r a l n c _ t( n ,n c p ) ,c o nn >1g r a d o sd el i b e r t a dyd en oc e n t r a l i d a d n c pp a r m e t r o .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )( c o ne l( d f >1 ) ,m e a n _ n o n c e n t r a l _ s t u d e n t _ t( d f ,k ) ) ; d f-1 g a m m a( )s q r t( d f )k 2 ( %O 2 )d f s q r t( 2 )g a m m a( ) 2
F u n c i n :v a r _ n o n c e n t r a l _ s t u d e n t _ t( < n > ,< n c p > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i ad eS t u d e n tn oc e n t r a l n c _ t( n ,n c p ) ,c o nn >2g r a d o sd el i b e r t a dyd en oc e n t r a l i d a d n c pp a r m e t r o .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s t d _ n o n c e n t r a l _ s t u d e n t _ t( < n > ,< n c p > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu ne s t u d i a n t en oc e n t r a la la z a r n c _ tv a r i a b l ed e( n ,n c p ) ,c o nn >2g r a d o sd el i b e r t a dy n c pp a r m e t r od en oc e n t r a l i d a d .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ n o n c e n t r a l _ s t u d e n t _ t( < n > ,< n c p > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu ne s t u d i a n t en oc e n t r a la la z a r n c _ tv a r i a b l e s( n ,n c p ) ,c o nn >3g r a d o sd el i b e r t a dy n c pp a r m e t r od en oc e n t r a l i d a d .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ n o n c e n t r a l _ s t u d e n t _ t( < n > ,< n c p > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu ne s t u d i a n t en oc e n t r a la la z a r n c _ tv a r i a b l ed e( n ,n c p ) ,c o nn >4g r a d o sd el i b e r t a dy n c pp a r m e t r od en oc e n t r a l i d a d .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
384/633
28/08/13

F u n c i n :r a n d o m _ n o n c e n t r a l _ s t u d e n t _ t( < n > ,< n c p > ) F u n c i n :r a n d o m _ n o n c e n t r a l _ s t u d e n t _ t( < n > ,< n c p > ,< m > ) D e v u e l v eu nv a l o ra l e a t o r i oS t u d e n tn oc e n t r a ln c _ t( n ,n c p ) ,c o nn >0 . L l a m a d a` r a n d o m _ n o n c e n t r a l _ s t u d e n t _ t' c o nu nt e r c e r< m >a r g u m e n t o ,u n m u e s t r aa l e a t o r i ad et a m a o< m >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os eb a s ae ne lh e c h od eq u es ie su n< X > l on o r m a lv a r i a b l ea l e a t o r i aN( N C P ,1 )yS^2e su n ac h ic u a d r a d oa la z a r v a r i a b l e< n >g r a d o sd el i b e r t a d ,C h i^2( n ) ,e n t o n c e s X U=/2\1 / 2 |S| |-| \N/ e su n av a r i a b l ea l e a t o r i an oc e n t r a ld eS t u d e n tg r a d o s< n >d e l al i b e r t a dyl an oc e n t r a l i d a dp a r m e t r on c p ,n c _ t( n ,n c p ) . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ c h i 2( < x >< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n aC h i c u a d r a d o v a r i a b l ea l e a t o r i aC h i^2( n ) ,c o nn >0 . E l^2( n )v a r i a b l ea l e a t o r i aC h ie se q u i v a l e n t eau n aG a m m a( n/2 , 2 ) , l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r ao b t e n e re l r e s u l t a d o ,d e v u e l v eu n af o r m an o m i n a lb a s a d ae nl ad e n s i d a dg a m m a . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )p d f _ c h i 2( x ,n ) ; n ( %O 2 )p d f _ g a m m a( x ,,2 ) 2 ( %I 3 )a s u m e( x >0 ,n >0 )$p d f _ c h i 2( x ,n ) ; n/2-1-x/2 x %e ( %O 4 )n/2n G a m m a2( ) 2
F u n c i n :c d f _ c h i 2( < x >< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a C h i c u a d r a d ov a r i a b l ea l e a t o r i aC h i^2( n ) ,c o nn >0 . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ c h i 2( 3 , 4 ) ; 3 ( %O 2 )1-g a m m a _ i n c o m p l e t e _ r e g u l a r i z e d( 2 ,) 2 ( %I 3 )f l o t a d o r( % ) ; ( %O 3 )0 . 4 4 2 1 7 4 5 9 9 6 2 8 9 2 5 6
F u n c i n :q u a n t i l e _ c h i 2( < q > ,< n > ) D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i ac h i c u a d r a d oC h i^2( n ) , c o nn >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ c h i 2' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] . E s t af u n c i nn ot i e n ee x p r e s i nc o m p a c t ays ec a l c u l an u m r i c a m e n t es i e l` n u m e rv a r i a b l eg l o b a l' e si g u a la 't r u e' ,d el oc o n t r a r i o ,d e v u e l v eu n e x p r e s i nn o m i n a lb a s a d ae nl af u n c i nc u a n t i lg a m m a ,y aq u ee l C h i^2( n )v a r i a b l ea l e a t o r i ae se q u i v a l e n t eau n aG a m m a( n/2 , 2 ) . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )q u a n t i l e _ c h i 2( 0 . 9 9 , 9 ) ; ( %O 2 )2 1 . 6 6 5 9 9 4 3 3 3 4 6 1 9 4 ( %I 3 )q u a n t i l e _ c h i 2( 0 . 9 9 ,n ) ; n ( %O 3 )q u a n t i l e _ g a m m a( 0 , 9 9 ,,2 ) 2
F u n c i n :m e a n _ c h i 2( < n > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i ac h i c u a d r a d oC h i^2( n ) ,c o n n >0 . E l^2( n )v a r i a b l ea l e a t o r i aC h ie se q u i v a l e n t eau n aG a m m a( n/2 , 2 ) , l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r ao b t e n e re l r e s u l t a d o ,d e v u e l v eu n af o r m an o m i n a lb a s a d ae nl am e d i ag a m m a . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )m e a n _ c h i 2( n ) ; n
385/633
28/08/13
( %O 2 )m e a n _ g a m m a( ,2 )

2 ( %I 3 )a s u m i r ( n >0 )$m e a n _ c h i 2( n ) ; ( %O 4 )n
F u n c i n :v a r _ c h i 2( < n > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i ac h i c u a d r a d oC h i^2( n ) , c o nn >0 . E l^2( n )v a r i a b l ea l e a t o r i aC h ie se q u i v a l e n t eau n aG a m m a( n/2 , 2 ) , l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r ao b t e n e re l r e s u l t a d o ,d e v u e l v eu n af o r m an o m i n a lb a s a d ae nl av a r i a n z ag a m m a . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )v a r _ c h i 2( n ) ; n ( %O 2 )v a r _ g a m m a( ,2 ) 2 ( %I 3 )a s u m i r ( n >0 )$v a r _ c h i 2( n ) ; ( %O 4 )2n
F u n c i n :s t d _ c h i 2( < n > ) D e v u e l v el ad e s v i a c i nt p i c ad eu n av a r i a b l ea l e a t o r i ac h i c u a d r a d o C h i^2( n ) ,c o nn >0 . E l^2( n )v a r i a b l ea l e a t o r i aC h ie se q u i v a l e n t eau n aG a m m a( n/2 , 2 ) , l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r ao b t e n e re l r e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl ad e s v i a c i ne s t n d a rg a m m ae s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )s t d _ c h i 2( n ) ; n ( %O 2 )s t d _ g a m m a( ,2 ) 2 ( %I 3 )a s u m i r ( n >0 )$s t d _ c h i 2( n ) ; ( %O 4 )s q r t( 2 )s q r t( n )
F u n c i n :s k e w n e s s _ c h i 2( < n > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n av a r i a b l ea l e a t o r i ac h i c u a d r a d o C h i^2( n ) ,c o nn >0 . E l^2( n )v a r i a b l ea l e a t o r i aC h ie se q u i v a l e n t eau n aG a m m a( n/2 , 2 ) , l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r ao b t e n e re l r e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae ne lc o e f i c i e n t ed ea s i m e t r ag a m m ae s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )s k e w n e s s _ c h i 2( n ) ; n ( %O 2 )s k e w n e s s _ g a m m a( ,2 ) 2 ( %I 3 )a s u m i r ( n >0 )$s k e w n e s s _ c h i 2( n ) ; 2s q r t( 2 ) ( %O 4 )s q r t( n )
F u n c i n :k u r t o s i s _ c h i 2( < n > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu n av a r i a b l ea l e a t o r i ac h i c u a d r a d o C h i^2( n ) ,c o nn >0 . E l^2( n )v a r i a b l ea l e a t o r i aC h ie se q u i v a l e n t eau n aG a m m a( n/2 , 2 ) , l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r ao b t e n e re l r e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae ne lc o e f i c i e n t ed ec u r t o s i sg a m m ae s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )k u r t o s i s _ c h i 2( n ) ; n ( %O 2 )k u r t o s i s _ g a m m a( ,2 ) 2 ( %I 3 )a s u m i r ( n >0 )$k u r t o s i s _ c h i 2( n ) ; 1 2 ( %O 4 )n
F u n c i n :r a n d o m _ c h i 2( < n > ) F u n c i n :r a n d o m _ c h i 2( < n > ,< m > ) D e v u e l v eu nC h i c u a d r a d ov a l o ra l e a t o r i oC h i^2( n ) ,c o nn >0 .L l a m a n d o ` R a n d o m _ c h i 2 "c o nu ns e g u n d o< m >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o
386/633
28/08/13
< m >s e r s i m u l a d o .
L as i m u l a c i ns eb a s ae ne la l g o r i t m od eA h r e n s C h e n g .V e r ` R a n d o m _ g a m m a' p a r am sd e t a l l e s . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ n o n c e n t r a l _ c h i 2( < x > ,< n >< n c p > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n an o n c e n t r a l V a r i a b l ea l e a t o r i aC h i c u a d r a d on c _ C h i^2( n ,n c p ) ,c o nn >0y p a r m e t r od en oc e n t r a l i d a dn c p >=0 .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) .
F u n c i n :c d f _ n o n c e n t r a l _ c h i 2( < x > ,< n >< n c p > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a n oc e n t r a lC h i c u a d r a d ov a r i a b l ea l e a t o r i an c _ C h i^2( n ,n c p ) ,c o nn >0 ye lp a r m e t r od en oc e n t r a l i d a dn c p >=0 .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ n o n c e n t r a l _ c h i 2( < q > ,< n >< n c p > ) D e v u e l v ee l< q > c u a n t i ld eu nn o n c e n t r a la l e a t o r i ac h i c u a d r a d o v a r i a b l e sn c _ C h i^2( n ,n c p ) ,c o nn >0yp a r m e t r od en oc e n t r a l i d a d P N C >=0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e ` C d f _ n o n c e n t r a l _ c h i 2' .< q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] . E s t af u n c i nn ot i e n ee x p r e s i nc o m p a c t ays ec a l c u l an u m r i c a m e n t es i e l` n u m e rv a r i a b l eg l o b a l' e si g u a la 't r u e' ,d el oc o n t r a r i o ,d e v u e l v eu n e x p r e s i nn o m i n a l .
F u n c i n :m e a n _ n o n c e n t r a l _ c h i 2( < n > ,< n c p > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i ac h i c u a d r a d on oc e n t r a l n c _ C h i^2( n ,n c p ) ,c o nn >0yp a r m e t r od en oc e n t r a l i d a dn c p >=0 .
F u n c i n :v a r _ n o n c e n t r a l _ c h i 2( < n > ,< n c p > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i ac h i c u a d r a d on oc e n t r a l n c _ C h i^2( n ,n c p ) ,c o nn >0yp a r m e t r od en oc e n t r a l i d a dn c p >=0 .
F u n c i n :s t d _ n o n c e n t r a l _ c h i 2( < n > ,< n c p > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n an o n c e n t r a la l e a t o r i ac h i c u a d r a d o v a r i a b l e sn c _ C h i^2( n ,n c p ) ,c o nn >0yp a r m e t r od en oc e n t r a l i d a d n c p >=0 .
F u n c i n :s k e w n e s s _ n o n c e n t r a l _ c h i 2( < n > ,< n c p > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n an o n c e n t r a la l e a t o r i ac h i c u a d r a d o v a r i a b l e sn c _ C h i^2( n ,n c p ) ,c o nn >0yp a r m e t r od en oc e n t r a l i d a d n c p >=0 .
F u n c i n :k u r t o s i s _ n o n c e n t r a l _ c h i 2( < n > ,< n c p > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i su n an o n c e n t r a la l e a t o r i ac h i c u a d r a d o v a r i a b l e sn c _ C h i^2( n ,n c p ) ,c o nn >0yp a r m e t r od en oc e n t r a l i d a d n c p >=0 .
F u n c i n :r a n d o m _ n o n c e n t r a l _ c h i 2( < n > ,< n c p > ) F u n c i n :r a n d o m _ n o n c e n t r a l _ c h i 2( < n > ,< n c p > ,< m > ) D e v u e l v eu n an o n c e n t r a lC h i c u a d r a d ov a l o ra l e a t o r i on c _ C h i^2( n ,n c p ) , c o nn >0ye lp a r m e t r od en oc e n t r a l i d a dn c p >=0 .L l a m a n d o ` R a n d o m _ n o n c e n t r a l _ c h i 2' c o nu nt e r c e r< m >a r g u m e n t o ,u na z a r m u e s t r ad et a m a o< m >s e r s i m u l a d o . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ f( < x >< m > ,< n > )
387/633
28/08/13

D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n aFa la z a r v a r i a b l eF( m ,n ) ,c o nm ,n >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ f( < x >< m > ,< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n aF v a r i a b l ea l e a t o r i aF( m ,n ) ,c o nm ,n >0 . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ f( 2 , 3 , 9/4 ) ; 933 ( %O 2 )1-b e t a _ i n c o m p l e t e _ r e g u l a r i z e d( ,,) 821 1 ( %I 3 )f l o t a d o r( % ) ; ( %O 3 )0 . 6 6 7 5 6 7 2 8 1 7 9 0 0 8
F u n c i n :q u a n t i l e _ f( < q > ,< m > ,< n > ) D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i aF( m ,n ) ,c o n m ,n >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ f' .A r g u m e n t o < q >d e b es e ru nn m e r od e[ 0 , 1 ] . E s t af u n c i nn ot i e n ee x p r e s i nc o m p a c t ays ec a l c u l an u m r i c a m e n t es i e l` n u m e rv a r i a b l eg l o b a l' e si g u a la 't r u e' ,d el oc o n t r a r i o ,d e v u e l v eu n e x p r e s i nn o m i n a l . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )q u a n t i l e _ f( 2 / 5 ,s q r t( 3 ) ,5 ) ; 2 ( %O 2 )q u a n t i l e _ f( ,s q r t( 3 ) ,5 ) 5 ( %I 3 ) % ,n u m e r ; ( %O 3 )0 . 5 1 8 9 4 7 8 3 8 5 7 3 6 9 3
F u n c i n :m e a n _ f( < m > ,< n > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i aF( m ,n ) ,c o nm >0 ,n >2 .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ f( < m > ,< n > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i aF( m ,n ) ,c o nm >0 ,n >4 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ f( < m > ,< n > ) D e v u e l v el ad e s v i a c i nt p i c ad eu n av a r i a b l ea l e a t o r i aF( m ,n ) ,c o n m >0 ,n >4 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ f( < m > ,< n > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n av a r i a b l ea l e a t o r i aF( m ,n ) , c o nm >0 ,n >6 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ f( < m > ,< n > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu n av a r i a b l ea l e a t o r i aF( m ,n ) , c o nm >0 ,n >8 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ f( < m > ,< n > ) F u n c i n :r a n d o m _ f( < m > ,< n >< k > ) D e v u e l v eu nv a l o ra l e a t o r i oFF( m ,n ) ,c o nm ,n >0 .L l a m a d a` r a n d o m _ f' c o nu nt e r c e r< k >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o< k >s e r s i m u l a d o . E la l g o r i t m od es i m u l a c i ns eb a s ae ne lh e c h od eq u es ie su n< X > C h i^2( m )v a r i a b l ea l e a t o r i aeYe su n2^( n )v a r i a b l ea l e a t o r i aC h i ,ac o n t i n u a c i n , nX F=mY e su n av a r i a b l ea l e a t o r i aFc o n< m >y< n >g r a d o sd el i b e r t a d ,F( m ,n ) .
388/633
28/08/13

P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ e x p( < x >< m > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n a V a r i a b l ea l e a t o r i aE x p o n e n c i a l( m ) ,c o nm >0 . L av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m )e se q u i v a l e n t eal a W e i b u l l( 1 , 1/m ) ,l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl ad e n s i d a dd eW e i b u l le s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )p d f _ e x p( x ,m ) ; 1 ( %O 2 )p d f _ w e i b u l l( x ,1 ,) m ( %I 3 )a s u m a( x >0 ,m >0 )$p d f _ e x p( x ,m ) ; -M x ( %O 4 )m %e
F u n c i n :c d f _ e x p( < x >< m > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n V a r i a b l ea l e a t o r i aE x p o n e n c i a l( m ) ,c o nm >0 . L av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m )e se q u i v a l e n t eal a W e i b u l l( 1 , 1/m ) ,l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl ad i s t r i b u c i nW e i b u l l s ed e v u e l v e . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ e x p( x ,m ) ; 1 ( %O 2 )c d f _ w e i b u l l( x ,1 ,) m ( %I 3 )a s u m a( x >0 ,m >0 )$c d f _ e x p( x ,m ) ; -M x ( %O 4 )1%e
F u n c i n :q u a n t i l e _ e x p( < q > ,< m > ) D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m ) , c o nm >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ e x p' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] . L av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m )e se q u i v a l e n t eal a W e i b u l l( 1 , 1/m ) ,l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae ne lc u a n t i lW e i b u l le s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )q u a n t i l e _ e x p( 0 . 5 6 , 5 ) ; ( %O 2 )0 . 1 6 4 1 9 6 1 1 0 4 1 3 9 6 6 1 ( %I 3 )q u a n t i l e _ e x p( 0 , 5 6m ) ; 1 ( %O 3 )q u a n t i l e _ w e i b u l l( 0 , 5 6 ,1 ,) m
F u n c i n :m e a n _ e x p( < m > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m ) ,c o nm >0 . L av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m )e se q u i v a l e n t eal a W e i b u l l( 1 , 1/m ) ,l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl am e d i ad el aW e i b u l le s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )m e a n _ e x p( m ) ; 1 ( %O 2 )m e a n _ w e i b u l l( 1 ,) m ( %I 3 )a s u m e( m >0 )$m e a n _ e x p( m ) ; 1 ( %O 4 )m
F u n c i n :v a r _ e x p( < m > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m ) ,c o n m >0 . L av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m )e se q u i v a l e n t eal a W e i b u l l( 1 , 1/m ) ,l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n
389/633
28/08/13

p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl av a r i a n z ad el aW e i b u l le s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )v a r _ e x p( m ) ; 1 ( %O 2 )v a r _ w e i b u l l( 1 ,) m ( %I 3 )a s u m e( m >0 )$v a r _ e x p( m ) ; 1 ( %O 4 )2 m
F u n c i n :s t d _ e x p( < m > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n aE x p o n e n c i a l( m )r a n d o m v a r i a b l e s ,c o nm >0 . L av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m )e se q u i v a l e n t eal a W e i b u l l( 1 , 1/m ) ,l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae ne le s t n d a rd eW e i b u l l s ed e v u e l v ed e s v i a c i n . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )s t d _ e x p( m ) ; 1 ( %O 2 )s t d _ w e i b u l l( 1 ,) m ( %I 3 )a s u m e( m >0 )$s t d _ e x p( m ) ; 1 ( %O 4 )m
F u n c i n :s k e w n e s s _ e x p( < m > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aE x p o n e n c i a l( m )r a n d o m v a r i a b l e s ,c o nm >0 . L av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m )e se q u i v a l e n t eal a W e i b u l l( 1 , 1/m ) ,l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl aa s i m e t r ad el aW e i b u l l s ed e v u e l v ec o e f i c i e n t e . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )s k e w n e s s _ e x p( m ) ; 1 ( %O 2 )s k e w n e s s _ w e i b u l l( 1 ,) m ( %I 3 )a s u m e( m >0 )$s k e w n e s s _ e x p( m ) ; ( %O 4 )2
F u n c i n :k u r t o s i s _ e x p( < m > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu nE x p o n e n c i a l( m )r a n d o m v a r i a b l e s ,c o nm >0 . L av a r i a b l ea l e a t o r i aE x p o n e n c i a l( m )e se q u i v a l e n t eal a W e i b u l l( 1 , 1/m ) ,l oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl ac u r t o s i sW e i b u l l s ed e v u e l v ec o e f i c i e n t e . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )k u r t o s i s _ e x p( m ) ; 1 ( %O 2 )k u r t o s i s _ w e i b u l l( 1 ,) m ( %I 3 )a s u m e( m >0 )$k u r t o s i s _ e x p( m ) ; ( %O 4 )6
F u n c i n :r a n d o m _ e x p( < m > ) F u n c i n :r a n d o m _ e x p( < m > ,< k > ) D e v u e l v eu n aE x p o n e n c i a l( m )v a l o ra l e a t o r i o ,c o nm >0 .L l a m a n d o ` R a n d o m _ e x p "c o nu ns e g u n d o< k >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o < k >s e r s i m u l a d o . E la l g o r i t m od es i m u l a c i ns eb a s ae ne lm t o d oi n v e r s o . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ l o g n o r m a l( < x >< m > ,< S > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n a L o g n o r m a l( m ,s )v a r i a b l ea l e a t o r i a ,c o ns >0 .P a r ah a c e ru s od ee s t a
390/633
28/08/13

f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ l o g n o r m a l( < x >< m > ,< S > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a L o g n o r m a l( m ,s )v a r i a b l ea l e a t o r i a ,c o ns >0 .E s t af u n c i ns ed e f i n e e nt r m i n o sd ee r r o ri n c o r p o r a d ol af u n c i n` e r f' d eM a x i m a . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )a s u m i r( x >0 ,s >0 )$c d f _ l o g n o r m a l( x ,m ,s ) ; l o g( x )-m e r f( ) s q r t( 2 )s1 ( %O 3 )-+22 C o n s u l t et a m b i n` e r f' .
F u n c i n :q u a n t i l e _ l o g n o r m a l( < q > ,< m > ,< S > ) D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i al o g n o r m a l( m ,s ) ,c o n s >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ l o g n o r m a l' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )q u a n t i l e _ l o g n o r m a l( 9 5 / 1 0 0 ,0 , 1 ) ; s q r t( 2 )i n v e r s e _ e r f( 9 / 1 0 ) ( %O 2 ) %e ( %I 3 )f l o t a d o r( % ) ; ( %O 3 )5 . 1 8 0 2 5 1 6 0 2 2 3 3 0 1 5
F u n c i n :m e a n _ l o g n o r m a l( < m > ,< S > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i al o g n o r m a l( m ,s ) ,c o ns >0 .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ l o g n o r m a l( < m > ,< S > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i al o g n o r m a l( m ,s ) ,c o n s >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ l o g n o r m a l( < m > ,< S > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n al o g n o r m a l( m ,s )r a n d o m v a r i a b l e s ,c o ns >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ l o g n o r m a l( < m > ,< S > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n al o g n o r m a l( m ,s )r a n d o m v a r i a b l e s ,c o ns >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ l o g n o r m a l( < m > ,< S > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i su n al o g n o r m a l( m ,s )r a n d o m v a r i a b l e s ,c o ns >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ l o g n o r m a l( < m > ,< S > ) F u n c i n :r a n d o m _ l o g n o r m a l( < m > ,< S > ,< n > ) D e v u e l v eu n al o g n o r m a l( m ,s )v a l o ra l e a t o r i o ,c o ns >0 .L l a m a n d o ` R a n d o m _ l o g n o r m a l' c o nu nt e r c e r< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad e t a m a o< n >s e r s i m u l a d o . V a r i a b l e sa l e a t o r i a sL o g n o r m a l e ss es i m u l a nm e d i a n t ea l e a t o r i an o r m a l v a r i a b l e sa l e a t o r i a s .C o n s u l t e` r a n d o m _ n o r m a l' p a r am sd e t a l l e s . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ g a m m a( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n aG a m m a( a ,b )
391/633
28/08/13

v a r i a b l ea l e a t o r i a ,c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ g a m m a( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a G a m m a( a ,b )v a r i a b l ea l e a t o r i a ,c o na ,b >0 . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ g a m m a( 3 , 5 , 2 1 ) ; 1 ( %O 2 )1-g a m m a _ i n c o m p l e t e _ r e g u l a r i z e d( 5 ,) 7 ( %I 3 )f l o t a d o r( % ) ; ( %O 3 )4 . 4 0 2 6 6 3 1 5 7 3 7 6 8 0 7 E 7
F u n c i n :q u a n t i l e _ g a m m a( < q > ,< a > ) D e v u e l v ee l< q > c u a n t i ld eu n aG a m m a( a ,b )v a r i a b l ea l e a t o r i a ,c o n a ,b >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ g a m m a' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ g a m m a( < a > ) D e v u e l v el am e d i ad eu n aG a m m a( a ,b )v a r i a b l ea l e a t o r i a ,c o na ,b >0 .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ g a m m a( < a > ) D e v u e l v el av a r i a n z ad eu n aG a m m a( a ,b )v a r i a b l ea l e a t o r i a ,c o na ,b >0 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ g a m m a( < a > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n aG a m m a( a ,b )v a r i a b l ea l e a t o r i a , c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ g a m m a( < a > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aG a m m a( a ,b )v a r i a b l ea l e a t o r i a , c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ g a m m a( < a > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i su n aG a m m a( a ,b )v a r i a b l ea l e a t o r i a , c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ g a m m a( < a > ) F u n c i n :r a n d o m _ g a m m a( < a > ,< n > ) D e v u e l v eu n aG a m m a( a ,b )v a l o ra l e a t o r i o ,c o na ,b >0 .L l a m a n d o ` R a n d o m _ g a m m a' c o nu nt e r c e r< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o < n >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d oe su nc o m b i n a n t i o nd ed o sp r o c e d i m i e n t o s , d e p e n d i e n d od e lv a l o rd e lp a r m e t r o< a > : P a r au n >=1 ,C h e n g ,R C HyF i e s t a ,G M( 1 9 7 9 ) .< A l g u n o ss e n c i l l ag a m m a g e n e r a d o r e sv a r i a t e > .A p p l .S t a t . ,2 8 ,3 ,2 9 0 2 9 5 . P a r a0< a< 1 ,A h r e n s ,J HyD i e t e r ,U .( 1 9 7 4 ) .< M t o d o sc o m p u t a c i o n a l e s p a r al at o m ad em u e s t r a sd eg a m m a ,b e t a ,p o i s s o nyb i n o m i a l c d f _ t r i b u t i o n s > .I n f o r m t i c a ,1 2 ,2 2 3 2 4 6 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ b e t a( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n aB e t a( a ,b ) v a r i a b l ea l e a t o r i a ,c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
392/633
28/08/13
F u n c i n :c d f _ b e t a( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a B e t a( a ,b )v a r i a b l ea l e a t o r i a ,c o na ,b >0 . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ b e t a( 1 / 3 ,1 5 , 2 ) ; 1 1 ( %O 2 )1 4 3 4 8 9 0 7 ( %I 3 )f l o t a d o r( % ) ; ( %O 3 )7 . 6 6 6 0 8 9 1 3 1 3 8 8 1 9 5 E 7
F u n c i n :q u a n t i l e _ b e t a( < q > ,< a > ) D e v u e l v ee l< q > c u a n t i ld eu n aB e t a( a ,b )v a r i a b l ea l e a t o r i a ,c o n a ,b >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ b e t a' .A r g u m e n t o < q >d e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) .
F u n c i n :m e a n _ b e t a( < a > ) D e v u e l v el am e d i ad eu n aB e t a( a ,b )v a r i a b l ea l e a t o r i a ,c o na ,b >0 .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ b e t a( < a > ) D e v u e l v el av a r i a n z ad eu n aB e t a( a ,b )v a r i a b l ea l e a t o r i a ,c o na ,b >0 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ b e t a( < a > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n aB e t a( a ,b )v a r i a b l ea l e a t o r i a , c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ b e t a( < a > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aB e t a( a ,b )v a r i a b l ea l e a t o r i a , c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ b e t a( < a > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu n aB e t a( a ,b )v a r i a b l ea l e a t o r i a , c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ b e t a( < a > ) F u n c i n :r a n d o m _ b e t a( < a > ,< n > ) D e v u e l v eu nB e t a( a ,b )v a l o ra l e a t o r i o ,c o na ,b >0 .L l a m a n d o ` R a n d o m _ b e t a' c o nu nt e r c e r< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o < n >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os ed e f i n ee nC h e n g ,R C H( 1 9 7 8 ) . < G e n e r a t i n gB e t av a r i a b l e sa l e a t o r i a sc o n< P a r m e t r o sf o r m an oi n t e g r a l e s . C o m u n i c a c i o n e sd el aA C M ,2 1 : 3 1 7 3 2 2 P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ c o n t i n u o u s _ u n i f o r m( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n ac o n t i n u a U n i f o r m e( a ,b )v a r i a b l ea l e a t o r i a ,c o na< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a U n i f o r m eC o n t i n u a( a ,b )v a r i a b l ea l e a t o r i a ,c o na ,< a > ) D e v u e l v ee l< q > c u a n t i ld eu nU n i f o r m eC o n t i n u a( a ,b )r a n d o m v a r i a b l e s ,c o naA r g u m e n t od e b es e ru ne l e m e n t od e [ 0 , 1 ] .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ c o n t i n u o u s _ u n i f o r m( < a > ) D e v u e l v el am e d i ad eu nU n i f o r m eC o n t i n u a( a ,b )v a r i a b l ea l e a t o r i a , c o na ) D e v u e l v el av a r i a n z ad eu n aU n i f o r m eC o n t i n u a( a ,b )v a r i a b l ea l e a t o r i a , c o na ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu nU n i f o r m eC o n t i n u a( a ,b )r a n d o m v a r i a b l e s ,c o na ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aU n i f o r m eC o n t i n u a( a ,b ) v a r i a b l ea l e a t o r i a ,c o na ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu nU n i f o r m eC o n t i n u a( a ,b ) v a r i a b l ea l e a t o r i a ,c o na ) F u n c i n :r a n d o m _ c o n t i n u o u s _ u n i f o r m( < a > ,< n > ) D e v u e l v eu nU n i f o r m eC o n t i n u a( a ,b )v a l o ra l e a t o r i o ,c o naa r g u m e n t o ,u n m u e s t r aa l e a t o r i ad et a m a o< n >s e r s i m u l a d o . E s t ae su n aa p l i c a c i nd i r e c t ad el a' r a n d o m 'b u i l t i nM a x i m a f u n c i n . V a s et a m b i n' r a n d o m ' .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :p d f _ l o g i s t i c( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n a L o g s t i c a( a ,b )v a r i a b l ea l e a t o r i a ,c o nb >0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ l o g i s t i c( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a L o g s t i c a( a ,b )v a r i a b l ea l e a t o r i a ,c o nb >0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ l o g i s t i c( < q > ,< a > ) D e v u e l v ee l< q > c u a n t i ld eL o g s t i c a( a ,b )v a r i a b l ea l e a t o r i a ,c o n b >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ l o g i s t i c' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
394/633
28/08/13
F u n c i n :m e a n _ l o g i s t i c( < a > )
D e v u e l v el am e d i ad el aL o g s t i c a( a ,b )v a r i a b l ea l e a t o r i a ,c o nb >0 .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ l o g i s t i c( < a > ) D e v u e l v el av a r i a n z ad eu n aL o g s t i c a( a ,b )v a r i a b l ea l e a t o r i a ,c o n b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ l o g i s t i c( < a > ) D e v u e l v el ad e s v i a c i ne s t n d a rd el aL o g s t i c a( a ,b )v a r i a b l ea l e a t o r i a ,C o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ l o g i s t i c( < a > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aL o g s t i c a( a ,b )r a n d o m v a r i a b l e s ,c o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ l o g i s t i c( < a > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eL o g s t i c a( a ,b )r a n d o m v a r i a b l e s ,c o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ l o g i s t i c( < a > ) F u n c i n :r a n d o m _ l o g i s t i c( < a > ,< n > ) D e v u e l v eu n aL o g s t i c a( a ,b )v a l o ra l e a t o r i o ,c o nb >0 .L l a m a n d o ` R a n d o m _ l o g i s t i c' c o nu nt e r c e r< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad e t a m a o< n >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os eb a s ae ne lm t o d oi n v e r s o . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ p a r e t o( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eP a r e t o( a ,b ) v a r i a b l ea l e a t o r i a ,c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ p a r e t o( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a D eP a r e t o( a ,b )v a r i a b l ea l e a t o r i a ,c o na ,b >0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ p a r e t o( < q > ,< a > ) D e v u e l v ee l< q > c u a n t i ld eu n( a ,b )v a r i a b l ea l e a t o r i ad eP a r e t o ,c o n a ,b >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ p a r e t o' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ p a r e t o( < a > ) D e v u e l v el am e d i ad eu n( a ,b )v a r i a b l ea l e a t o r i ad eP a r e t o ,c o na >1 ,b >0 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ p a r e t o( < a > ) D e v u e l v el av a r i a n z ad eu n a( a ,b )v a r i a b l ea l e a t o r i ad eP a r e t o ,c o n a >2 ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ p a r e t o( < a > )
395/633
28/08/13

D e v u e l v el ad e s v i a c i ne s t n d a rd eu n( a ,b )v a r i a b l ea l e a t o r i ad eP a r e t o , c o na >2 ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ p a r e t o( < a > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eP a r e t o( a ,b )v a r i a b l ea l e a t o r i a , c o nu n >3 ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ p a r e t o( < a > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eP a r e t o( a ,b )v a r i a b l ea l e a t o r i a , c o nu n >4 ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ p a r e t o( < a > ) F u n c i n :r a n d o m _ p a r e t o( < a > ,< n > ) D e v u e l v eu n ad eP a r e t o( a ,b )v a l o ra l e a t o r i o ,c o na >0 ,b >0 .L l a m a n d o ` R a n d o m _ p a r e t o' c o nu nt e r c e r< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o < n >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os eb a s ae ne lm t o d oi n v e r s o . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ w e i b u l l( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n aW e i b u l l( a ,b ) v a r i a b l ea l e a t o r i a ,c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ w e i b u l l( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a W e i b u l l( a ,b )v a r i a b l ea l e a t o r i a ,c o na ,b >0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ w e i b u l l( < q > ,< a > ) D e v u e l v ee l< q > c u a n t i ld eu n( a ,b )v a r i a b l ea l e a t o r i aW e i b u l l ,c o n a ,b >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ w e i b u l l' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ w e i b u l l( < a > ) D e v u e l v el am e d i ad eu n( a ,b )v a r i a b l ea l e a t o r i ad eW e i b u l l ,c o na ,b >0 .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ w e i b u l l( < a > ) D e v u e l v el av a r i a n z ad eu n a( a ,b )v a r i a b l ea l e a t o r i aW e i b u l l ,c o n a ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ w e i b u l l( < a > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n( a ,b )v a r i a b l ea l e a t o r i aW e i b u l l , c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ w e i b u l l( < a > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aW e i b u l l( a ,b )r a n d o m v a r i a b l e s ,c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ w e i b u l l( < a > )
396/633
28/08/13

D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i su n aW e i b u l l( a ,b )r a n d o m v a r i a b l e s ,c o na ,b >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ w e i b u l l( < a > ) F u n c i n :r a n d o m _ w e i b u l l( < a > ,< n > ) D e v u e l v eu n aW e i b u l l( a ,b )v a l o ra l e a t o r i o ,c o na ,b >0 .L l a m a n d o ` R a n d o m _ w e i b u l l' c o nu nt e r c e r< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad e t a m a o< n >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os eb a s ae ne lm t o d oi n v e r s o . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ r a y l e i g h( < x > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eR a y l e i g h( b ) v a r i a b l ea l e a t o r i a ,c o nb >0 . E lR a y l e i g h( b )v a r i a b l ea l e a t o r i ae se q u i v a l e n t eal a W e i b u l l( 2 , 1/b ) ,p o rl oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl ad e n s i d a dd eW e i b u l le s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )p d f _ r a y l e i g h( x ,b ) ; 1 ( %O 2 )p d f _ w e i b u l l( x ,2 ,) b ( %I 3 )a s u m e( x >0 ,b >0 )$p d f _ r a y l e i g h( x ,b ) ; 22 2-b x ( %O 4 )2b x %e
F u n c i n :c d f _ r a y l e i g h( < x > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a R a y l e i g h( b )v a r i a b l ea l e a t o r i a ,c o nb >0 . E lR a y l e i g h( b )v a r i a b l ea l e a t o r i ae se q u i v a l e n t eal a W e i b u l l( 2 , 1/b ) ,p o rl oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl ad i s t r i b u c i nW e i b u l l s ed e v u e l v e . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ r a y l e i g h( x ,b ) ; 1 ( %O 2 )c d f _ w e i b u l l( x ,2 ,) b ( %I 3 )a s u m e( x >0 ,b >0 )$c d f _ r a y l e i g h( x ,b ) ; 22 -B x ( %O 4 )1%e
F u n c i n :q u a n t i l e _ r a y l e i g h( < q > , ) D e v u e l v ee l< q > c u a n t i ld e( b )v a r i a b l ea l e a t o r i aR a y l e i g h ,c o n b >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ r a y l e i g h' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] . E lR a y l e i g h( b )v a r i a b l ea l e a t o r i ae se q u i v a l e n t eal a W e i b u l l( 2 , 1/b ) ,p o rl oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae ne lc u a n t i lW e i b u l le s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )q u a n t i l e _ r a y l e i g h( 0 . 9 9 ,b ) ; 1 ( %O 2 )q u a n t i l e _ w e i b u l l( 0 . 9 9 ,2 ,) b ( %I 3 )a s u m e( x >0 ,b >0 )$q u a n t i l e _ r a y l e i g h( 0 . 9 9 ,b ) ; 2 . 1 4 5 9 6 6 0 2 6 2 8 9 3 4 7 ( %O 4 )b
F u n c i n :m e a n _ r a y l e i g h( ) D e v u e l v el am e d i ad eu n a( b )v a r i a b l ea l e a t o r i aR a y l e i g h ,c o nb >0 . E lR a y l e i g h( b )v a r i a b l ea l e a t o r i ae se q u i v a l e n t eal a W e i b u l l( 2 , 1/b ) ,p o rl oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl am e d i ad el aW e i b u l le s d e v u e l t o .
397/633
28/08/13
( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )m e a n _ r a y l e i g h( b ) ;
1 ( %O 2 )m e a n _ w e i b u l l( 2 ,) b ( %I 3 )a s u m i r ( b >0 )$m e a n _ r a y l e i g h( b ) ; s q r t( %p i ) ( %O 4 )2b
F u n c i n :v a r _ r a y l e i g h( ) D e v u e l v el av a r i a n z ad eu n a( b )v a r i a b l ea l e a t o r i aR a y l e i g h ,c o nb >0 . E lR a y l e i g h( b )v a r i a b l ea l e a t o r i ae se q u i v a l e n t eal a W e i b u l l( 2 , 1/b ) ,p o rl oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl av a r i a n z ad el aW e i b u l le s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )v a r _ r a y l e i g h( b ) ; 1 ( %O 2 )v a r _ w e i b u l l( 2 ,) b ( %I 3 )a s u m i r ( b >0 )$v a r _ r a y l e i g h( b ) ; %P i 14 ( %O 4 )2 b
F u n c i n :s t d _ r a y l e i g h( ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n a( b )v a r i a b l ea l e a t o r i aR a y l e i g h , c o nb >0 . E lR a y l e i g h( b )v a r i a b l ea l e a t o r i ae se q u i v a l e n t eal a W e i b u l l( 2 , 1/b ) ,p o rl oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae ne le s t n d a rd eW e i b u l l s ed e v u e l v ed e s v i a c i n . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )s t d _ r a y l e i g h( b ) ; 1 ( %O 2 )s t d _ w e i b u l l( 2 ,) b ( %I 3 )a s u m i r ( b >0 )$s t d _ r a y l e i g h( b ) ; %P i s q r t( 1) 4 ( %O 4 )b
F u n c i n :s k e w n e s s _ r a y l e i g h( ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n a( b )v a r i a b l ea l e a t o r i aR a y l e i g h , c o nb >0 . E lR a y l e i g h( b )v a r i a b l ea l e a t o r i ae se q u i v a l e n t eal a W e i b u l l( 2 , 1/b ) ,p o rl oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl aa s i m e t r ad el aW e i b u l l s ed e v u e l v ec o e f i c i e n t e . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )s k e w n e s s _ r a y l e i g h( b ) ; 1 ( %O 2 )s k e w n e s s _ w e i b u l l( 2 ,) b ( %I 3 )a s u m i r ( b >0 )$s k e w n e s s _ r a y l e i g h( b ) ; 3 / 2 %P i3s q r t( %p i ) 44 ( %O 4 )%P i3 / 2 ( 1) 4
F u n c i n :k u r t o s i s _ r a y l e i g h( ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i su n a( b )v a r i a b l ea l e a t o r i aR a y l e i g h , c o nb >0 . E lR a y l e i g h( b )v a r i a b l ea l e a t o r i ae se q u i v a l e n t eal a W e i b u l l( 2 , 1/b ) ,p o rl oq u es iM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i n
398/633
28/08/13

p a r ao b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl ac u r t o s i sW e i b u l l s ed e v u e l v ec o e f i c i e n t e . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )k u r t o s i s _ r a y l e i g h( b ) ; 1 ( %O 2 )k u r t o s i s _ w e i b u l l( 2 ,) b ( %I 3 )a s u m i r ( b >0 )$k u r t o s i s _ r a y l e i g h( b ) ; 2 3 %p i 21 6 ( %O 4 )-3 %P i2 ( 1) 4
F u n c i n :r a n d o m _ r a y l e i g h( ) F u n c i n :r a n d o m _ r a y l e i g h( ,< n > ) D e v u e l v eu n aR a y l e i g h( b )v a l o ra l e a t o r i o ,c o nb >0 .L l a m a n d o ` R a n d o m _ r a y l e i g h "c o nu ns e g u n d o< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad e t a m a o< n >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os eb a s ae ne lm t o d oi n v e r s o . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ l a p l a c e( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n aL a p l a c e( a ,b ) v a r i a b l ea l e a t o r i a ,c o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ l a p l a c e( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a L a p l a c e( a ,b )v a r i a b l ea l e a t o r i a ,c o nb >0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ l a p l a c e( < q > ,< a > ) D e v u e l v ee l< q > c u a n t i ld eu n( a ,b )v a r i a b l ea l e a t o r i ad eL a p l a c e ,c o n b >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ l a p l a c e' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ l a p l a c e( < a > ) D e v u e l v el am e d i ad eu n( a ,b )v a r i a b l ea l e a t o r i ad eL a p l a c e ,c o nb >0 .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ l a p l a c e( < a > ) D e v u e l v el av a r i a n z ad eu n a( a ,b )v a r i a b l ea l e a t o r i ad eL a p l a c e ,c o nb >0 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ l a p l a c e( < a > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n( a ,b )v a r i a b l ea l e a t o r i ad eL a p l a c e , c o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ l a p l a c e( < a > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aL a p l a c e( a ,b )r a n d o m v a r i a b l e s ,c o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ l a p l a c e( < a > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eL a p l a c e( a ,b )r a n d o m v a r i a b l e s ,c o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
399/633
28/08/13
F u n c i n :r a n d o m _ l a p l a c e( < a > ) F u n c i n :r a n d o m _ l a p l a c e( < a > ,< n > ) D e v u e l v eu n aL a p l a c e( a ,b )v a l o ra l e a t o r i o ,c o nb >0 .L l a m a n d o ` R a n d o m _ l a p l a c e' c o nu nt e r c e r< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad e t a m a o< n >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os eb a s ae ne lm t o d oi n v e r s o . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ c a u c h y( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n aC a u c h y( a ,b ) v a r i a b l ea l e a t o r i a ,c o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ c a u c h y( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a C a u c h y( a ,b )v a r i a b l ea l e a t o r i a ,c o nb >0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ c a u c h y( < q > ,< a > ) D e v u e l v ee l< q > c u a n t i ld eu n( a ,b )v a r i a b l ea l e a t o r i ad eC a u c h y ,c o n b >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ c a u c h y' .A r g u m e n t o < q >d e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ c a u c h y( < a > ) F u n c i n :r a n d o m _ c a u c h y( < a > ,< n > ) D e v u e l v eu n aC a u c h y( a ,b )v a l o ra l e a t o r i o ,c o nb >0 .L l a m a n d o ` R a n d o m _ c a u c h y' c o nu nt e r c e r< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o < n >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os eb a s ae ne lm t o d oi n v e r s o . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ g u m b e l( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed e n s i d a dd eu n aG u m b e l( a ,b ) v a r i a b l ea l e a t o r i a ,c o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ g u m b e l( < x >< a > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a G u m b e l( a ,b )v a r i a b l ea l e a t o r i a ,c o nb >0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ g u m b e l( < q > ,< a > ) D e v u e l v ee l< q > c u a n t i ld eu n( a ,b )v a r i a b l ea l e a t o r i ad eG u m b e l ,c o n b >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ g u m b e l' .A r g u m e n t o < q >d e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) .
F u n c i n :m e a n _ g u m b e l( < a > ) D e v u e l v el am e d i ad eu n( a ,b )v a r i a b l ea l e a t o r i ad eG u m b e l ,c o nb >0 . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )a s u m i r( b >0 )$m e a n _ g u m b e l( a ,b ) ; ( %O 3 ) %g a m m ab+a d o n d ee ls m b o l o` %g a m m a' r e p r e s e n t al ac o n s t a n t ed eE u l e r M a s c h e r o n i . C o n s u l t et a m b i n` %g a m m a .
F u n c i n :v a r _ g u m b e l( < a > )
400/633
28/08/13

D e v u e l v el av a r i a n z ad eu n a( a ,b )v a r i a b l ea l e a t o r i ad eG u m b e l ,c o nb >0 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ g u m b e l( < a > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n( a ,b )v a r i a b l ea l e a t o r i ad eG u m b e l , c o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ g u m b e l( < a > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aG u m b e l( a ,b )v a r i a b l ea l e a t o r i a , c o nb >0 . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )a s u m i r( b >0 )$s k e w n e s s _ g u m b e l( a ,b ) ; 1 2s q r t( 6 )z e t a( 3 ) ( %O 3 )3 %P i ( %I 4 )n u m e r :t r u e$s k e w n e s s _ g u m b e l( a ,b ) ; ( %O 5 )1 . 1 3 9 5 4 7 0 9 9 4 0 4 6 4 9 d o n d e` z e t a' e ss i n n i m od el af u n c i nz e t ad eR i e m a n n .
F u n c i n :k u r t o s i s _ g u m b e l( < a > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eG u m b e l( a ,b )v a r i a b l ea l e a t o r i a , c o nb >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ g u m b e l( < a > ) F u n c i n :r a n d o m _ g u m b e l( < a > ,< n > ) D e v u e l v eu n aG u m b e l( a ,b )v a l o ra l e a t o r i o ,c o nb >0 .L l a m a n d o ` R a n d o m _ g u m b e l' c o nu nt e r c e r< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o < n >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os eb a s ae ne lm t o d oi n v e r s o . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
47.3 Funciones y variables para distribuciones discretas

F u n c i n :p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e( < x >< v > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ep r o b a b i l i d a dd eu ng e n e r a l f i n i t ov a r i a b l ea l e a t o r i ad i s c r e t a ,c o ne lv e c t o rd ep r o b a b i l i d a d e sv ,t a l e s q u e` P r( X=i )=v _ i' .V e c t o rvp u e d es e ru n al i s t ad en on e g a t i v o e x p r e s i o n e s ,c u y o sc o m p o n e n t e ss en o r m a l i z a r np a r ao b t e n e ru nv e c t o r d ep r o b a b i l i d a d e s .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e( 2 ,[ 1 / 7 ,4 / 7 ,2 / 7 ] ) ; 4 ( %O 2 )7 ( %I 3 )p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e( 2 ,[ 1 ,4 ,2 ] ) ; 4 ( %O 3 )7
F u n c i n :c d f _ g e n e r a l _ f i n i t e _ d i s c r e t e( < x >< v > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu ng e n e r a l v a r i a b l ea l e a t o r i ad i s c r e t af i n i t a ,c o np r o b a b i l i d a d e sv e c t o rv C o n s u l t e` p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e' p a r am sd e t a l l e s . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ g e n e r a l _ f i n i t e _ d i s c r e t e( 2 ,[ 1 / 7 ,4 / 7 ,2 / 7 ] ) ; 5 ( %O 2 )7 ( %I 3 )c d f _ g e n e r a l _ f i n i t e _ d i s c r e t e( 2 ,[ 1 ,4 ,2 ] ) ; 5 ( %O 3 )7 ( %I 4 )c d f _ g e n e r a l _ f i n i t e _ d i s c r e t e( 21 / 2 ,[ 1 ,4 ,2 ] ) ; 5
401/633
28/08/13
( %O 4 )-

7
F u n c i n :q u a n t i l e _ g e n e r a l _ f i n i t e _ d i s c r e t e( < q > ,< v > ) D e v u e l v ee l< q > c u a n t i ld eu ng e n e r a lf i n i t aa l e a t o r i ad i s c r e t a v a r i a b l e s ,c o np r o b a b i l i d a d e sv e c t o rv C o n s u l t e` p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e' p a r am sd e t a l l e s .
F u n c i n :m e a n _ g e n e r a l _ f i n i t e _ d i s c r e t e( < v > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i ad i s c r e t af i n i t ag e n e r a l c o np r o b a b i l i d a d e sv e c t o rv C o n s u l t e` p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e' p a r am sd e t a l l e s .
F u n c i n :v a r _ g e n e r a l _ f i n i t e _ d i s c r e t e( < v > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i ad i s c r e t af i n i t ag e n e r a l c o np r o b a b i l i d a d e sv e c t o rv C o n s u l t e` p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e' p a r am sd e t a l l e s .
F u n c i n :s t d _ g e n e r a l _ f i n i t e _ d i s c r e t e( < v > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu ng e n e r a lf i n i t aa l e a t o r i ad i s c r e t a v a r i a b l e s ,c o np r o b a b i l i d a d e sv e c t o rv C o n s u l t e` p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e' p a r am sd e t a l l e s .
F u n c i n :s k e w n e s s _ g e n e r a l _ f i n i t e _ d i s c r e t e( < v > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n af i n i t ae ng e n e r a ld i s c r e t a v a r i a b l ea l e a t o r i a ,c o np r o b a b i l i d a d e sv e c t o rv C o n s u l t e` p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e' p a r am sd e t a l l e s .
F u n c i n :k u r t o s i s _ g e n e r a l _ f i n i t e _ d i s c r e t e( < v > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu nf i n i t oe ng e n e r a ld i s c r e t a v a r i a b l ea l e a t o r i a ,c o np r o b a b i l i d a d e sv e c t o rv C o n s u l t e` p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e' p a r am sd e t a l l e s .
F u n c i n :r a n d o m _ g e n e r a l _ f i n i t e _ d i s c r e t e( < v > ) F u n c i n :r a n d o m _ g e n e r a l _ f i n i t e _ d i s c r e t e( < v > ,< m > ) D e v u e l v eu nv a l o ra l e a t o r i od i s c r e t of i n i t oe ng e n e r a l ,c o ne lv e c t o r p r o b a b i l i d a d e svL l a m a ra` r a n d o m _ g e n e r a l _ f i n i t e _ d i s c r e t e "c o nu n < m >s e g u n d oa r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o< m >s e r s i m u l a d o . C o n s u l t e` p d f _ g e n e r a l _ f i n i t e _ d i s c r e t e' p a r am sd e t a l l e s . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )r a n d o m _ g e n e r a l _ f i n i t e _ d i s c r e t e( [ 1 , 3 , 1 , 5 ] ) ; ( %O 2 )4 ( %I 3 )r a n d o m _ g e n e r a l _ f i n i t e _ d i s c r e t e( [ 1 , 3 , 1 , 5 ] ,1 0 ) ; ( %O 3 )[ 4 ,2 ,2 ,3 ,2 ,4 ,4 ,1 ,2 ,2 ]
F u n c i n :p d f _ b i n o m i a l( < x > ,< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ep r o b a b i l i d a dd eu n a B i n o m i a lv a r i a b l e s( n ,p )a la z a r ,c o n0< p< 1yn ap o s i t i v o n m e r oe n t e r o .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) . 4( %o 6 ) -7
F u n c i n :c d f _ b i n o m i a l( < x > ,< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a B i n o m i a lv a r i a b l ea l e a t o r i a( n ,p ) ,c o n0< p< 1yne n t e r op o s i t i v o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ b i n o m i a l( 5 , 7 , 1/6 ) ;
402/633
28/08/13
( %O 2 )-

7 7 7 5 7 7 7 6 ( %I 3 )f l o t a d o r( % ) ; ( %O 3 )0 . 9 9 9 8 7 1 3 9 9 1 7 6 9 5 4 8
F u n c i n :q u a n t i l e _ b i n o m i a l( < q > ,< n > ) D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i aB i n o m i a l( n ,p ) ,c o n 0< p< 1yne n t e r op o s i t i v o ,e no t r a sp a l a b r a s ,e s t ee se l i n v e r s od e` c d f _ b i n o m i a l' .< q >A r g u m e n t od e b es e ru ne l e m e n t od e [ 0 , 1 ] .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ b i n o m i a l( < n > , ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i aB i n o m i a l( n ,p ) ,c o n0< p< 1 ye le n t e r op o s i t i v on a .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ b i n o m i a l( < n > , ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i aB i n o m i a l( n ,p ) ,c o n 0< p< 1yne n t e r op o s i t i v o .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) .
F u n c i n :s t d _ b i n o m i a l( < n > , ) D e v u e l v el ad e s v i a c i nt p i c ad eu n av a r i a b l ea l e a t o r i aB i n o m i a l( n ,p ) , c o n0< p< 1yne n t e r op o s i t i v o .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ b i n o m i a l( < n > , ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aB i n o m i a l( n ,p )r a n d o m v a r i a b l e s ,c o n0< p< 1yne n t e r op o s i t i v o .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ b i n o m i a l( < n > , ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i su n aB i n o m i a l( n ,p )r a n d o m v a r i a b l e s ,c o n0< p< 1yne n t e r op o s i t i v o .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ b i n o m i a l( < n > , ) F u n c i n :r a n d o m _ b i n o m i a l( < n > , ,< m > ) D e v u e l v eu n aB i n o m i a l( n ,p )v a l o ra l e a t o r i o ,c o n0< p< 1yn a e n t e r op o s i t i v o .L l a m a d a` r a n d o m _ b i n o m i a l' c o nu nt e r c e ra r g u m e n t o < m > ,u n am u e s t r aa l e a t o r i ad et a m a o< m >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d os eb a s ae ne ld e s c r i t oe n K a c h i t v i c h y a n u k u l ,V .yS c h m e i s e r ,B W( 1 9 8 8 ) .C o m u n i c a c i o n e sd el aA C M ,3 1d ef e b r e r od e2 1 6 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ p o i s s o n( < x >< m > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ep r o b a b i l i d a dd eu n a P o i s s o n( m )v a r i a b l ea l e a t o r i a ,c o nm >0 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ p o i s s o n( < x >< m > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a P o i s s o n( m )v a r i a b l ea l e a t o r i a ,c o nm >0 . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ p o i s s o n( 3 , 5 ) ; ( %O 2 )g a m m a _ i n c o m p l e t e _ r e g u l a r i z e d( 4 ,5 ) ( %I 3 )f l o t a d o r( % ) ; ( %O 3 )0 . 2 6 5 0 2 5 9 1 5 2 9 7 3 6 2 3
403/633
28/08/13
F u n c i n :q u a n t i l e _ p o i s s o n( < q > ,< m > )
D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i ad eP o i s s o n( m ) ,c o n m >0 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ p o i s s o n' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ p o i s s o n( < m > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i ad eP o i s s o n( m ) ,c o nm >0 .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ p o i s s o n( < m > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i ad eP o i s s o n( m ) ,c o nm >0 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ p o i s s o n( < m > ) D e v u e l v el ad e s v i a c i nt p i c ad eu n av a r i a b l ea l e a t o r i ad eP o i s s o n( m ) , c o nm >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ p o i s s o n( < m > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n av a r i a b l ea l e a t o r i ad eP o i s s o n( m ) , c o nm >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ p o i s s o n( < m > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu n av a r i a b l ea l e a t o r i ad eP o i s s o n P o i( m ) ,c o nm >0 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ p o i s s o n( < m > ) F u n c i n :r a n d o m _ p o i s s o n( < m > ,< n > ) D e v u e l v eu n aP o i s s o n( m )v a l o ra l e a t o r i o ,c o nm >0 .L l a m a n d o ` R a n d o m _ p o i s s o n "c o nu ns e g u n d o< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad e t a m a o< n >s e r s i m u l a d o . E la l g o r i t m oi m p l e m e n t a d oe se ld e s c r i t oe nl aA h r e n s ,J Hy D i e t e r ,U .( 1 9 8 2 )< G e n e r a c i nd el ai n f o r m t i c ad eP o i s s o ns ed e s v ad e M o d i f i c a d o sd i s t r i b u c i o n e sn o r m a l e s > .A C MT r a n s .M a t h .S o f t w a r e ,8 ,2 , J u n i o , 1 6 3 1 7 9 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ b e r n o u l l i( < x > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ep r o b a b i l i d a dd eu n a B e r n o u l l i( p )v a r i a b l ea l e a t o r i a ,c o n0< p< 1 . L av a r i a b l ea l e a t o r i ad eB e r n o u l l i( p )e se q u i v a l e n t eal a B i n o m i a l( 1 ,p ) ,p o rl oq u ec u a n d oM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r a o b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl ap r o b a b i l i d a db i n o m i a l s ed e v u e l v el af u n c i n . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )p d f _ b e r n o u l l i( 1 ,p ) ; ( %O 2 )p d f _ b i n o m i a l( 1 ,1 ,p ) ( %I 3 )a s u m a( 0 ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a B e r n o u l l i( p )v a r i a b l ea l e a t o r i a ,c o n0< p< 1 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ b e r n o u l l i( < q > , ) D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i aB e r n o u l l i( p ) ,c o n 0< p< 1 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ b e r n o u l l i' .
404/633
28/08/13

< q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ b e r n o u l l i( ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i aB e r n o u l l i( p ) ,c o n0< p< 1 . L av a r i a b l ea l e a t o r i ad eB e r n o u l l i( p )e se q u i v a l e n t eal a B i n o m i a l( 1 ,p ) ,p o rl oq u ec u a n d oM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r a o b t e n e re lr e s u l t a d o ,d e v u e l v eu n af o r m an o m i n a lb a s a d ae nl am e d i ad el ab i n o m i a l . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )m e a n _ b e r n o u l l i( p ) ; ( %O 2 )m e a n _ b i n o m i a l( 1 ,p ) ( %I 3 )a s u m a( 0 ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i aB e r n o u l l i( p ) ,c o n0< p< 1 . L av a r i a b l ea l e a t o r i ad eB e r n o u l l i( p )e se q u i v a l e n t eal a B i n o m i a l( 1 ,p ) ,p o rl oq u ec u a n d oM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r a o b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl av a r i a n z ab i n o m i a le s d e v u e l t o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )v a r _ b e r n o u l l i( p ) ; ( %O 2 )v a r _ b i n o m i a l( 1 ,p ) ( %I 3 )a s u m a( 0 ) D e v u e l v el ad e s v i a c i nt p i c ad eu n av a r i a b l ea l e a t o r i aB e r n o u l l i( p ) , c o n0< p< 1 . L av a r i a b l ea l e a t o r i ad eB e r n o u l l i( p )e se q u i v a l e n t eal a B i n o m i a l( 1 ,p ) ,p o rl oq u ec u a n d oM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r a o b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae ne le s t n d a rb i n o m i a l s ed e v u e l v ed e s v i a c i n . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )s t d _ b e r n o u l l i( p ) ; ( %O 2 )s t d _ b i n o m i a l( 1 ,p ) ( %I 3 )a s u m a( 0 ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aB e r n o u l l i( p )r a n d o m v a r i a b l e s ,c o n0< p< 1 . L av a r i a b l ea l e a t o r i ad eB e r n o u l l i( p )e se q u i v a l e n t eal a B i n o m i a l( 1 ,p ) ,p o rl oq u ec u a n d oM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r a o b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl aa s i m e t r ad el ab i n o m i a l s ed e v u e l v ec o e f i c i e n t e . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )s k e w n e s s _ b e r n o u l l i( p ) ; ( %O 2 )s k e w n e s s _ b i n o m i a l( 1 ,p ) ( %I 3 )a s u m a( 0 ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eB e r n o u l l i( p )r a n d o m v a r i a b l e s ,c o n0< p< 1 . L av a r i a b l ea l e a t o r i ad eB e r n o u l l i( p )e se q u i v a l e n t eal a B i n o m i a l( 1 ,p ) ,p o rl oq u ec u a n d oM a x i m an ot i e n es u f i c i e n t ei n f o r m a c i np a r a o b t e n e re lr e s u l t a d o ,u n af o r m an o m i n a lb a s a d ae nl ac u r t o s i sb i n o m i a l s ed e v u e l v ec o e f i c i e n t e . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )k u r t o s i s _ b e r n o u l l i( p ) ; ( %O 2 )k u r t o s i s _ b i n o m i a l( 1 ,p ) ( %I 3 )a s u m a( 0 ) F u n c i n :r a n d o m _ b e r n o u l l i( ,< n > )
D e v u e l v eu n aB e r n o u l l i( p )v a l o ra l e a t o r i o ,c o n0< p< 1 .L l a m a n d o ` R a n d o m _ b e r n o u l l i "c o nu ns e g u n d o< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad e t a m a o< n >s e r s i m u l a d o . E s t ae su n aa p l i c a c i nd i r e c t ad el a' r a n d o m 'b u i l t i nM a x i m a f u n c i n . V a s et a m b i n' r a n d o m ' .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :p d f _ g e o m e t r i c( < x > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ep r o b a b i l i d a dd eu n a G e o m t r i c av a r i a b l ea l e a t o r i a( p ) ,c o n0< p< 1 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ g e o m e t r i c( < x > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a G e o m t r i c av a r i a b l ea l e a t o r i a( p ) ,c o n0< p< 1 .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ g e o m e t r i c( < q > , ) D e v u e l v ee l< q > c u a n t i ld eu n av a r i a b l ea l e a t o r i aG e o m t r i c a( p ) ,c o n 0< p< 1 ,e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e` c d f _ g e o m e t r i c' . < q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ g e o m e t r i c( ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i aG e o m t r i c a( p ) ,c o n0< p< 1 .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ g e o m e t r i c( ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i aG e o m t r i c a( p ) ,c o n 0< p< 1 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s t d _ g e o m e t r i c( ) D e v u e l v el ad e s v i a c i nt p i c ad eu n av a r i a b l ea l e a t o r i aG e o m t r i c a( p ) , c o n0< p< 1 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ g e o m e t r i c( ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aG e o m t r i c a( p )r a n d o m v a r i a b l e s ,c o n0< p< 1 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ g e o m e t r i c( ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu n av a r i a b l ea l e a t o r i ag e o m t r i c a G e o( p ) ,c o n0< p< 1 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ g e o m e t r i c( ) F u n c i n :r a n d o m _ g e o m e t r i c( ,< n > ) D e v u e l v eu nG e o m t r i c a( p )v a l o ra l e a t o r i o ,c o n0< p< 1 .L l a m a n d o ` R a n d o m _ g e o m e t r i c "c o nu ns e g u n d o< n >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad e t a m a o< n >s e r s i m u l a d o . E la l g o r i t m os eb a s ae nl as i m u l a c i nd ee n s a y o sd eB e r n o u l l i . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ d i s c r e t e _ u n i f o r m( < x >< n > )
406/633
28/08/13

D e v u e l v ee lv a l o r< x >d el af u n c i nd ep r o b a b i l i d a dd eu n ad i s c r e t a U n i f o r m e( n )v a r i a b l ea l e a t o r i a ,c o nne n t e r oe s t r i c t a m e n t ep o s i t i v o .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ d i s c r e t e _ u n i f o r m( < x >< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a U n i f o r m eD i s c r e t a( n )v a r i a b l ea l e a t o r i a ,c o nn ae s t r i c t a m e n t ep o s i t i v o n m e r oe n t e r o .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ d i s c r e t e _ u n i f o r m( < q > ,< n > ) D e v u e l v el av a r i a b l ea l e a t o r i a< q > c u a n t i ld eu nU n i f o r m eD i s c r e t a( n ) , c o nne n t e r oe s t r i c t a m e n t ep o s i t i v o ,e no t r a sp a l a b r a s ,e s t ee se l i n v e r s od e` c d f _ d i s c r e t e _ u n i f o r m' .< q >A r g u m e n t od e b es e ru ne l e m e n t o d e[ 0 , 1 ] .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :m e a n _ d i s c r e t e _ u n i f o r m( < n > ) D e v u e l v el am e d i ad eu nU n i f o r m eD i s c r e t a( n )v a r i a b l ea l e a t o r i a ,c o nn u ne n t e r oe s t r i c t a m e n t ep o s i t i v o .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s e p r i m e r ol o a d( d i s t r i b ) .
F u n c i n :v a r _ d i s c r e t e _ u n i f o r m( < n > ) D e v u e l v el av a r i a n z ad eu n aU n i f o r m eD i s c r e t a( n )v a r i a b l ea l e a t o r i a , c o nne n t e r oe s t r i c t a m e n t ep o s i t i v o .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) .
F u n c i n :s t d _ d i s c r e t e _ u n i f o r m( < n > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu nU n i f o r m eD i s c r e t a( n )r a n d o m v a r i a b l e ,n ae n t e r op o s i t i v o .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ d i s c r e t e _ u n i f o r m( < n > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aU n i f o r m eD i s c r e t a( n )r a n d o m v a r i a b l e ,n ae n t e r op o s i t i v o .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ d i s c r e t e _ u n i f o r m( < n > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i sd eu nU n i f o r m eD i s c r e t a( n )r a n d o m v a r i a b l e ,n ae n t e r op o s i t i v o .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ d i s c r e t e _ u n i f o r m( < n > ) F u n c i n :r a n d o m _ d i s c r e t e _ u n i f o r m( < n > ,< m > ) D e v u e l v eu nU n i f o r m eD i s c r e t a( n )v a l o ra l e a t o r i o ,c o nn ae s t r i c t a m e n t e e n t e r op o s i t i v o .L l a m a d a` r a n d o m _ d i s c r e t e _ u n i f o r m "c o nu ns e g u n d o < m >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o< m >s e r s i m u l a d o . E s t ae su n aa p l i c a c i nd i r e c t ad el a' r a n d o m 'b u i l t i nM a x i m a f u n c i n . V a s et a m b i n' r a n d o m ' .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :p d f _ h y p e r g e o m e t r i c( < x >< n 1 > ,< n 2 > ,< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ep r o b a b i l i d a dd eu n a H i p e r g e o m t r i c av a r i a b l ed e( n 1 ,n 2 ,n )a la z a r ,c o n< n 1 > ,< n 2 >y< n > n m e r o se n t e r o sp o s i t i v o syn< =n 1+n 2 .S e r< n 1 >e ln m e r od e o b j e t o sd el ac l a s eA ,< n 2 >e ln m e r od eo b j e t o sd el ac l a s eB ,y< n > e lt a m a od el am u e s t r as i nr e e m p l a z o ,e s t af u n c i nd e v u e l v e l ap r o b a b i l i d a dd ee v e n t o s" o b j e t o se x a c t a m e n t e< x >s o nd ec l a s eA " . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
407/633
28/08/13

F u n c i n :c d f _ h y p e r g e o m e t r i c( < x >< n 1 > ,< n 2 > ,< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a H i p e r g e o m t r i c av a r i a b l ed e( n 1 ,n 2 ,n )a la z a r ,c o n< n 1 > ,< n 2 >y< n > n m e r o se n t e r o sp o s i t i v o syn< =n 1+n 2 .C o n s u l t e` p d f _ h y p e r g e o m e t r i c "p a r a u n ad e s c r i p c i nm sc o m p l e t a . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :q u a n t i l e _ h y p e r g e o m e t r i c( < q > ,< n 1 > ,< n 2 > ,< n > ) D e v u e l v ee l< q > c u a n t i ld eu nh i p e r g e o m t r i c a( n 1 ,n 2 ,n )r a n d o m v a r i a b l e ,< n 1 > ,< n 2 >y< n >e n t e r o sp o s i t i v o sy n< =n 1+n 2 ;e no t r a sp a l a b r a s ,e s t ae sl ai n v e r s ad e ` C d f _ h y p e r g e o m e t r i c' .< q >A r g u m e n t od e b es e ru nn m e r od e[ 0 , 1 ] .A h a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :m e a n _ h y p e r g e o m e t r i c( < n 1 > ,< n 2 > ,< n > ) D e v u e l v el am e d i ad eu n av a r i a b l ea l e a t o r i au n i f o r m ed i s c r e t a H y p( n 1 ,n 2 ,n ) ,c o n< n 1 > ,< n 2 >y< n >n m e r o se n t e r o sn on e g a t i v o sy n< =n 1+n 2 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :v a r _ h y p e r g e o m e t r i c( < n 1 > ,< n 2 > ,< n > ) D e v u e l v el av a r i a n z ad eu n av a r i a b l ea l e a t o r i ah i p e r g e o m t r i c a H y p( n 1 ,n 2 ,n ) ,c o n< n 1 > ,< n 2 >y< n >n m e r o se n t e r o sn on e g a t i v o sy n< =n 1+n 2 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s t d _ h y p e r g e o m e t r i c( < n 1 > ,< n 2 > ,< n > ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n aa l e a t o r i ah i p e r g e o m t r i c a( n 1 ,n 2 ,n ) v a r i a b l e ,< n 1 > ,< n 2 >y< n >e n t e r o sp o s i t i v o sy n< =n 1+n 2 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ h y p e r g e o m e t r i c( < n 1 > ,< n 2 > ,< n > ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n ah i p e r g e o m t r i c a( n 1 ,n 2 ,n ) v a r i a b l ea l e a t o r i a ,c o n< n 1 > ,< n 2 >y< n >n m e r o se n t e r o sn on e g a t i v o sy n< =n 1+n 2 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ h y p e r g e o m e t r i c( < n 1 > ,< n 2 > ,< n > ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i su n ah i p e r g e o m t r i c a( n 1 ,n 2 ,n ) v a r i a b l ea l e a t o r i a ,c o n< n 1 > ,< n 2 >y< n >n m e r o se n t e r o sn on e g a t i v o sy n< =n 1+n 2 .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ h y p e r g e o m e t r i c( < n 1 > ,< n 2 > ,< n > ) F u n c i n :r a n d o m _ h y p e r g e o m e t r i c( < n 1 > ,< n 2 > ,< n >< m > ) D e v u e l v eu n ah i p e r g e o m t r i c a( n 1 ,n 2 ,n )v a l o ra l e a t o r i o ,c o n< n 1 > ,< n 2 > y< n >n m e r o se n t e r o sp o s i t i v o syn< =n 1+n 2 .L l a m a n d o ` R a n d o m _ h y p e r g e o m e t r i c' c o nu nc u a r t o< m >a r g u m e n t o ,u na z a r m u e s t r ad et a m a o< m >s e r s i m u l a d o . A l g o r i t m od e s c r i t oe nK a c h i t v i c h y a n u k u l ,V . ,S c h m e i s e r ,B W ( 1 9 8 5 )L ag e n e r a c i nd ee q u i p o >v a r i a t e s . >a l e a t o r i ah i p e r g e o m t r i c a D i a r i od el aC o m p u t a c i nd eE s t a d s t i c ayS i m u l a c i n2 2 ,1 2 7 1 4 5 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :p d f _ n e g a t i v e _ b i n o m i a l( < x > ,< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ep r o b a b i l i d a dd eu n an e g a t i v a B i n o m i a lv a r i a b l e s( n ,p )a la z a r ,c o n0< p< 1yn ap o s i t i v o n m e r oe n t e r o .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :c d f _ n e g a t i v e _ b i n o m i a l( < x > ,< n > ) D e v u e l v ee lv a l o r< x >d el af u n c i nd ed i s t r i b u c i nd eu n a
408/633
28/08/13

B i n o m i a lN e g a t i v a( n ,p )v a r i a b l ea l e a t o r i a ,c o n0< p< 1yn a e n t e r op o s i t i v o . ( %I 1 )l o a d( d i s t r i b )$ ( %I 2 )c d f _ n e g a t i v e _ b i n o m i a l( 3 , 4 , 1/8 ) ; 3 2 7 1 ( %O 2 )5 2 4 2 8 8 ( %I 3 )f l o t a d o r( % ) ; ( %O 3 )0 . 0 0 6 2 3 8 9 3 7 3 7 7 9 2 9 6 8 7
F u n c i n :q u a n t i l e _ n e g a t i v e _ b i n o m i a l( < q > ,< n > ) D e v u e l v ee l< q > c u a n t i ld eu n aB i n o m i a lN e g a t i v a( n ,p )r a n d o m v a r i a b l e s ,c o n0< p< 1yne n t e r op o s i t i v o ,e no t r a sp a l a b r a s , e s t ae sl ai n v e r s ad e` c d f _ n e g a t i v e _ b i n o m i a l' .< q >A r g u m e n t od e b e s e ru nn m e r od e[ 0 , 1 ] .P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r o L o a d( d i s t r i b ) .
F u n c i n :m e a n _ n e g a t i v e _ b i n o m i a l( < n > , ) D e v u e l v el am e d i ad eu n aB i n o m i a lN e g a t i v a( n ,p )v a r i a b l ea l e a t o r i a ,c o n 0< p< 1yne n t e r op o s i t i v o .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) .
F u n c i n :v a r _ n e g a t i v e _ b i n o m i a l( < n > , ) D e v u e l v el av a r i a n z ad eu n aB i n o m i a lN e g a t i v a( n ,p )v a r i a b l ea l e a t o r i a , c o n0< p< 1yne n t e r op o s i t i v o .P a r ah a c e ru s od ee s t af u n c i n , e j e c t e s el o a d( d i s t r i b ) .
F u n c i n :s t d _ n e g a t i v e _ b i n o m i a l( < n > , ) D e v u e l v el ad e s v i a c i ne s t n d a rd eu n aB i n o m i a lN e g a t i v a( n ,p )r a n d o m v a r i a b l e s ,c o n0< p< 1yne n t e r op o s i t i v o .P a r ah a c e ru s od ee s t a f u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :s k e w n e s s _ n e g a t i v e _ b i n o m i a l( < n > , ) D e v u e l v ee lc o e f i c i e n t ed ea s i m e t r ad eu n aB i n o m i a lN e g a t i v a( n ,p ) v a r i a b l ea l e a t o r i a ,c o n0< p< 1yne n t e r op o s i t i v o .P a r ah a c e ru s o d ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :k u r t o s i s _ n e g a t i v e _ b i n o m i a l( < n > , ) D e v u e l v ee lc o e f i c i e n t ed ec u r t o s i su n aB i n o m i a lN e g a t i v a( n ,p ) v a r i a b l ea l e a t o r i a ,c o n0< p< 1yne n t e r op o s i t i v o .P a r ah a c e ru s o d ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
F u n c i n :r a n d o m _ n e g a t i v e _ b i n o m i a l( < n > , ) F u n c i n :r a n d o m _ n e g a t i v e _ b i n o m i a l( < n > , ,< m > ) D e v u e l v eu n aB i n o m i a lN e g a t i v a( n ,p )v a l o ra l e a t o r i o ,c o n0< p< 1yn u ne n t e r op o s i t i v o .L l a m a d a` r a n d o m _ n e g a t i v e _ b i n o m i a l "c o nu n t e r c e r o< m >a r g u m e n t o ,u n am u e s t r aa l e a t o r i ad et a m a o< m >s e r s i m u l a d o . A l g o r i t m od e s c r i t oe nD e v r o y e ,L .( 1 9 8 6 )< R a n d o mn ou n i f o r m e V a r i a b l ea l e a t o r i aG e n e r a c i n > .S p r i n g e rV e r l a g ,p .4 8 0 . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d i s t r i b ) .
48 sorteo
I n t r o d u c c i nad i b u j a r F u n c i o n e syv a r i a b l e sp a r ad i b u j a r F u n c i o n e syv a r i a b l e sp a r al a si m g e n e s F u n c i o n e syv a r i a b l e sp a r aw o r l d m a p
48.1 Introduccin a dibujar

' D r a w 'e su n ai n t e r f a zd eM a x i m a G n u p l o t . H a yt r e sf u n c i o n e sp r i n c i p a l e sq u es eu t i l i z a r nan i v e lM a x i m a :` d r a w 2 d' ,
409/633
28/08/13
` D r a w 3 d' y 's a c a r' .
S i g ae s t ee n l a c ep a r av e re j e m p l o sm se l a b o r a d o sd ee s t ep a q u e t e : ` H t t p : / / r i o t o r t o . u s e r s . s o u r c e f o r g e . n e t / g n u p l o t' U s t e dn e c e s i t aG n u p l o t4 . 2op o s t e r i o rp a r ae j e c u t a re s t ep r o g r a m a .
48.2 Funciones y variables para draw

C o n s t r u c t o rd ee s c e n a :g r 2 d( o p c i n >< g r a p h i c ,. . . ,< g r a p h i co b j e t o > ,. . . ) F u n c i n` g r 2 d' c o n s t r u y eu no b j e t oq u ed e s c r i b eu n ae s c e n a2 D .A r g u m e n t o s s o no p c i o n e sg r f i c a s ,o b j e t o sg r f i c o sol i s t a sq u ec o n t i e n e nt a n t o o p c i o n e syo b j e t o sg r f i c o s .E s t ae s c e n as ei n t e r p r e t a s e c u e n c i a l m e n t e :l a so p c i o n e sg r f i c a sa f e c t a naa q u e l l o so b j e t o sg r f i c o sc o l o c a d o s as ud e r e c h a .A l g u n a so p c i o n e sg r f i c a sa f e c t a na la s p e c t og l o b a ld e l ae s c e n a . E s t ae sl al i s t ad eo b j e t o sg r f i c o sd i s p o n i b l e sp a r ae s c e n a se nd o s d i m e n s i o n e s :` b a r r a s' , è l i p s e ' ,` e x p l c i t a s' , ì m a g e n ' ,' i m p l c i t a ' , ` L a b e l' , 'p a r a m t r i c a' , 'p u n t o s' : 'p o l a r' , 'p o l g o n o' , ' C u a d r i l t e r o ' ,' r e c t n g u l o ' ,' t r i n g u l o ' ,' v e c t o r ' ,y` g e o m a p' ( s t es ed e f i n ee ne lp a q u e t e` m a p a m u n d i' ) . V a s et a m b i n' d i b u j a r 'y` d r a w 2 d' . P a r ah a c e ru s od ee s t eo b j e t o ,e j e c t e s ep r i m e r ol o a d( d r a w ) .
C o n s t r u c t o rd ee s c e n a :g r 3 d( o p c i n >< g r a p h i c ,. . . ,< g r a p h i co b j e t o > ,. . . ) F u n c i n` g r 3 d' c o n s t r u y eu no b j e t oq u ed e s c r i b eu n ae s c e n a3 D .A r g u m e n t o s s o no p c i o n e sg r f i c a s ,o b j e t o sg r f i c o sol i s t a sq u ec o n t i e n e nt a n t o o p c i o n e syo b j e t o sg r f i c o s .E s t ae s c e n as ei n t e r p r e t a s e c u e n c i a l m e n t e :l a so p c i o n e sg r f i c a sa f e c t a naa q u e l l o so b j e t o sg r f i c o sc o l o c a d o s as ud e r e c h a .A l g u n a so p c i o n e sg r f i c a sa f e c t a na la s p e c t og l o b a ld e l ae s c e n a . E s t ae sl al i s t ad eo b j e t o sg r f i c o sd i s p o n i b l e sp a r ae s c e n a se nt r e s d i m e n s i o n e s : ` C i l n d r i c a' , è l e v a t i o n _ g r i d ' ,' e x p l c i t a ' ,' i m p l c i t o ' ,' l a b e l ' , ' M a l l a ' ,' p a r a m t r i c a ' , ` P a r a m e t r i c _ s u r f a c e' , 'p u n t o s' , 'c u a d r i l t e r o' , è s f r i c a s" , ' T r i n g u l o ' ,' t u b o ' , ' V e c t o r ' ,y` g e o m a p' ( s t es ed e f i n ee ne lp a q u e t e `m a p a m u n d i ' ) . V a s et a m b i n' d i b u j a r 'y` d r a w 3 d' . P a r ah a c e ru s od ee s t eo b j e t o ,e j e c t e s ep r i m e r ol o a d( d r a w ) .
F u n c i n :d r a w( < g r 2 d > ,. . . ,< g r 3 d > ,. . . ,< o p c i o n e s > ,. . . ) P a r c e l a sd eu n as e r i ed ee s c e n a s ,s u sa r g u m e n t o ss o n` g r 2 d' y/o 'g r 3 d' o b j e t o s ,j u n t oc o na l g u n a so p c i o n e s ,ol i s t a sd ee s c e n a sy o p c i o n e s .P o rd e f e c t o ,l a se s c e n a ss er e p r e s e n t a ne nu n ac o l u m n a . F u n c i n' d r a w 'a c e p t al a ss i g u i e n t e so p c i o n e sg l o b a l e s :' t e r m i n a l e s ' , ` C o l u m n a s' , `d i m e n s i o n e s ' ,' n o m b r e _ a r c h i v o 'y' r e t r a s o ' . F u n c i o n e s` d r a w 2 d' y `d r a w 3 d 's o na t a j o sq u es eu t i l i z a r na l s l os er e q u i e r eu n ae s c e n a ,e nd o sot r e sd i m e n s i o n e s , r e s p e c t i v a m e n t e . C o n s u l t et a m b i n` g r 2 d' y `g r 3 d ' . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d r a w ) . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )s c e n e 1 :g r 2 d( t i t l e=" E l l i p s e " , n t i c k s=3 0 , p a r a m t r i c a( 2*c o s( t ) ,5*s e n( t ) ,t ,0 , 2* %p i ) )$ ( %I 3 )s c e n e 2 :g r 2 d( t i t l e=" T r i n g u l o " , p o l g o n o( [ 4 , 5 , 7 ] ,[ 6 . 4 . 2 ] ) )$ ( %I 4 )E m p a t e( E S C E N A 1 ,E s c e n a 2 ,c o l u m n a s=2 )$ L a sd o ss e n t e n c i a sg r f i c a ss i g u i e n t e ss o ne q u i v a l e n t e s : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w( g r 3 d( e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) ) ) ; ( %O 2 )[ g r 3 d( e x p l c i t a ) ] ( %I 3 )d r a w 3 d( e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) ) ; ( %O 3 )[ g r 3 d( e x p l c i t a ) ] U na r c h i v oG I Fa n i m a d o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w( d e l a y=1 0 0 , n o m b r e _ a r c h i v o=" z z z " , T e r m i n a l=' a n i m a t e d _ g i f ,
410/633
28/08/13

g r 2 d( e x p l c i t a( x^2 ,x ,1 , 1 ) ) , g r 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) ) , g r 2 d( e x p l c i t a( x^4 ,x ,1 , 1 ) ) ) ; F i nd el as e c u e n c i ad ea n i m a c i n ( %O 2 )[ g r 2 d( e x p l c i t a ) ,g r 2 d( e x p l c i t a ) ,g r 2 d( e x p l c i t a ) ] C o n s u l t et a m b i n` g r 2 d' , `g r 3 d ' ,` d r a w 2 d' y `d r a w 3 d '. .
F u n c i n :d r a w 2 d( < o p t i o n > ,< g r a p h i c _ o b j e c t > ,. . . ) E s t af u n c i ne su na t a j op a r a` d r a w( g r 2 d( < o p c i o n e s > ,. . . , < g r a p h i c _ o b j e c t > ,. . . ) )" . S ep u e d eu t i l i z a rp a r ar e p r e s e n t a ru n a n i c ae s c e n ae n2 d . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d r a w ) . V a s et a m b i n' d i b u j a r 'y` g r 2 d' .
F u n c i n :d r a w 3 d( < o p t i o n > ,< g r a p h i c _ o b j e c t > ,. . . ) E s t af u n c i ne su na t a j op a r a` d r a w( g r 3 d( < o p c i o n e s > ,. . . , < g r a p h i c _ o b j e c t > ,. . . ) )" . S ep u e d eu t i l i z a rp a r ar e p r e s e n t a ru n a n i c ae s c e n ae n3 d . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d r a w ) . V a s et a m b i n' d i b u j a r 'y` g r 3 d' .
F u n c i n :d r a w _ f i l e( o p c i n >< g r a p h i c ,. . . ,< g r a p h i co b j e t o > ,. . . ) G u a r d ae lg r f i c oa c t u a le nu na r c h i v o .O p c i o n e sg r f i c a sa c e p t a d o ss o n : ` T e r m i n a l e s' , `d i m e n s i o n e s ' ,' n o m b r e _ a r c h i v o 'y` b a c k g r o u n d _ c o l o r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )/*d i b u j op a n t a l l a*/ d r a w( g r 3 d( e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) ) )$ ( %I 3 )/*m i s m ap a r c e l ae nf o r m a t oE P S*/ d r a w _ f i l e( t e r m i n a l=e p s ,u n d i m e n s i o n e s=[ 5 , 5 ] )$
F u n c i n :m u l t i p l o t _ m o d e( < t e r m ) E s t af u n c i np e r m i t eaM a x i m ap a r at r a b a j a re nu n av e n t a n ad em o d od eg r f i c o sm l t i p l e s c o ne lt e r m i n a l< t e r m ;a r g u m e n t o sa c e p t a d o sp a r ae s t af u n c i ns o n ` S c r e e n' , `w x t ' ,` a q u a t e r m' y 'n o n e' . A lm o d od eg r f i c o sm l t i p l e se s t a c t i v a d a ,c a d al l a m a d aa` s a c a r' l a n z au n an u e v a r e p r e s e n t a ral am i s m av e n t a n a ,s i nb o r r a rl a sa n t e r i o r e s .A d e s a c t i v a re lm o d od eg r f i c o sm l t i p l e s ,e s c r i b a` m u l t i p l o t _ m o d e( n i n g u n o ) . A lm o d od eg r f i c o sm l t i p l e se s t a c t i v a d a ,l ao p c i n` T e r m i n a lg l o b a l "e s b l o q u e a d oyt i e n e sq u ed e s a c t i v a re s t em o d od et r a b a j oa n t e sd ec a m b i a r ao t r ot e r m i n a l . E s t ac a r a c t e r s t i c an of u n c i o n ae np l a t a f o r m a sW i n d o w s . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )( s e t _ d r a w _ d e f a u l t s x r a n g e=[ 1 , 1 ] , y r a n g e=[ 1 , 1 ] , g r i d=t r u e , t i t l e=" P a s oap a s ot r a m a " )$ ( %I 3 )m u l t i p l o t _ m o d e( p a n t a l l a )$ ( %I 4 )d r a w 2 d( c o l o r=b l u e ,e x p l c i t a( x^2 ,x ,1 , 1 ) )$ ( %I 5 )d r a w 2 d( c o l o r=r e d ,e x p l c i t a( x^3 ,x ,1 , 1 ) )$ ( %I 6 )d r a w 2 d( c o l o r=m a r r n ,e x p l c i t a( x^4 ,x ,1 , 1 ) )$ ( %I 7 )m u l t i p l o t _ m o d e( n i n g u n o )$
F u n c i n :s e t _ d r a w _ d e f a u l t s( o p c i n >< g r a p h i c ,. . . ,< g r f i c o o b j e c t > ,. . . ) E s t a b l e c el a so p c i o n e sg r f i c a sd eu s u a r i o .E s t af u n c i ne s t i lp a r at r a z a ru n s e c u e n c i ad eg r f i c o sc o no p c i o n e sg r f i c a sc o m u n e s .A ll l a m a rae s t e f u n c i ns i na r g u m e n t o sq u i t av a l o r e sp r e d e t e r m i n a d o sd e lu s u a r i o . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )( s e t _ d r a w _ d e f a u l t s
411/633
28/08/13

x r a n g e=[ 1 0 , 1 0 ] , y r a n g e=[ 2 ,2 ] , c o l o r=b l u e , g r i d=t r u e )$ ( %I 3 )/*d i b u j oc o no p c i o n e sd eu s u a r i o*/ d r a w 2 d( e x p l c i t a( ( ( 1+x )* *2/( 1+x*x ) )1 ,x ,1 0 , 1 0 ) )$ ( %I 4 )s e t _ d r a w _ d e f a u l t s( )$ ( %I 5 )/*d i b u j oc o no p c i o n e se s t n d a r*/ d r a w 2 d( e x p l c i t a( ( ( 1+x )* *2/( 1+x*x ) )1 ,x ,1 0 , 1 0 ) )$ P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d r a w ) .
O p c i ng r f i c a :a d a p t _ d e p t h V a l o rp o rd e f e c t o :1 0 ` A d a p t _ d e p t h' e se ln m e r om x i m od ep a r t i c i o n e su t i l i z a d op o re l r u t i n ag r f i c aa d a p t a t i v a . E s t ao p c i ns l oe sr e l e v a n t ep a r al a sf u n c i o n e se x p l c i t a s` ' 2 d .
O p c i ng r f i c a :a x i s _ 3 d V a l o rp o rd e f e c t o :t r u e' S i` a x i s _ 3 d' e s `t r u e ' ,e le j e< x >< y >y< z >s em u e s t r a ne n3 D e s c e n a s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( a x i s _ 3 d=f a l s e , e x p l c i t a( s i n( x^2+y^2 ) ,x ,2 , 2 ,y ,2 , 2 ) )$ C o n s u l t et a m b i n` a x i s _ b o t t o m' , à x i s _ l e f t ' ,` a x i s _ t o p' y à x i s _ r i g h t ' p a r ae le j ee n2 d .
O p c i ng r f i c a :a x i s _ b o t t o m V a l o rp o rd e f e c t o :t r u e' S i` a x i s _ b o t t o m' e s `t r u e ' ,e le j ei n f e r i o rp e r m a n e c ev i s i b l ee nl a se s c e n a s2 d . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( a x i s _ b o t t o m=f a l s e , e x p l c i t a( x^3 ,x ,1 , 1 ) )$ C o n s u l t et a m b i n` a x i s _ l e f t' , à x i s _ t o p ' ,` a x i s _ r i g h t' y à x i s _ 3 d ' .
O p c i ng r f i c a :a x i s _ l e f t V a l o rp o rd e f e c t o :t r u e' S i` a x i s _ l e f t' e s `t r u e ' ,e le j ed el ai z q u i e r d as em u e s t r ae nl a se s c e n a s2 d . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( a x i s _ l e f t=f a l s e , e x p l c i t a( x^3 ,x ,1 , 1 ) )$ C o n s u l t et a m b i n` a x i s _ b o t t o m' , à x i s _ t o p ' ,` a x i s _ r i g h t' y à x i s _ 3 d ' .
O p c i ng r f i c a :a x i s _ r i g h t V a l o rp o rd e f e c t o :t r u e' S i` a x i s _ r i g h t' e s `t r u e ' ,e le j ed el ad e r e c h as em u e s t r ae nl a se s c e n a s2 d . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o :
412/633
28/08/13

( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( a x i s _ r i g h t=f a l s e , e x p l c i t a( x^3 ,x ,1 , 1 ) )$ C o n s u l t et a m b i n` a x i s _ b o t t o m' , à x i s _ l e f t ' ,` a x i s _ t o p' y à x i s _ 3 d ' .
O p c i ng r f i c a :a x i s _ t o p V a l o rp o rd e f e c t o :t r u e' S i` a x i s _ t o p' e s `t r u e ' ,e le j es u p e r i o re sv i s i b l ee nl a se s c e n a s2 d . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( a x i s _ t o p=f a l s e , e x p l c i t a( x^3 ,x ,1 , 1 ) )$ C o n s u l t et a m b i n` a x i s _ b o t t o m' , à x i s _ l e f t ' ,` a x i s _ r i g h t' y à x i s _ 3 d ' .
O p c i ng r f i c a :b a c k g r o u n d _ c o l o r V a l o rp o rd e f e c t o :' w h i t e ' E s t a b l e c ee lc o l o rd ef o n d op a r al o st e r m i n a l e s' g i f ' ,' p n g ' ,' j p g ' ,y ' G i f ' .C o l o rd ef o n d op o rd e f e c t oe sb l a n c o . V a s et a m b i ne lc o l o rd e l` ' .
O p c i ng r f i c a :f r o n t e r a V a l o rp o rd e f e c t o :t r u e' S i` f r o n t e r a' e s `t r u e ' ,b o r d e sd el o sp o l g o n o se s t np i n t a d a sd ea c u e r d o a` l i n e _ t y p e' y `l i n e _ w i d t h ' . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 2 d' : 'p o l g o n o' , 'r e c t n g u l o' y è l i p s e . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( =c o l o rd em a r r n , l i n e _ w i d t h=8 , p o l g o n o( [ [ 3 , 2 ] ,[ 7 , 2 ] ,[ 5 , 5 ] ] ) , b o r d e r=f a l s o , f i l l _ c o l o r=a z u l , p o l g o n o( [ [ 5 , 2 ] ,[ 9 , 2 ] ,[ 7 , 5 ] ] ) )$
O p c i ng r f i c a :c b r a n g e V a l o rp o rd e f e c t o :a u t o' S i` c b r a n g e' e s 'a u t o' ,e lr a n g od el o sv a l o r e sq u es o nd ec o l o r e s c u a n d o` e n h a n c e d 3 d' n oe s 'f a l s e' s ec a l c u l aa u t o m t i c a m e n t e .V a l o r e s f u e r ad el ag a m ad ec o l o r e sd e lc o l o ru s od el ae x t r e m am sc e r c a n a . C u a n d o` e n h a n c e d 3 d' o `c o l o r b o x 'e s' f a l s e ' ,o p c i n' c b r a n g e 't i e n e n i n g ne f e c t o . S ie lu s u a r i oq u i e r ee s p e c i f i c a ru ni n t e r v a l op a r al o sv a l o r e sd ec o l o r ,s e d e b es e rd a d oc o m ou n al i s t ad eM a x i m a ,c o m oe n` c b r a n g e=[ 2 ,3 ] . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e n h a n c e d 3 d=t r u e , c o l o r=v e r d e , c b r a n g e=[ 3 , 1 0 ] , e x p l c i t a( x^2+y^2 ,x ,2 , 2 ,y ,2 , 2 ) )$ C o n s u l t et a m b i n` e n h a n c e d 3 d' , `c o l o r b o x 'y` c b t i c s' .
O p c i ng r f i c a :c b t i c s V a l o rp o rd e f e c t o :a u t o' E s t ao p c i ng r f i c ac o n t r o l al af o r m ae nq u el a sm a r c a ss ed i b u j a r ne ne l
413/633
28/08/13

c o l o r b o xc u a n d ol ao p c i n` e n h a n c e d 3 d' n oe s 'f a l s e' . C u a n d o` e n h a n c e d 3 d' o `c o l o r b o x 'e s' f a l s e ' ,o p c i n' c b t i c s" n ot i e n e e f e c t o . C o n s u l t e` x t i c s "p a r au n ad e s c r i p c i nc o m p l e t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e n h a n c e d 3 d=t r u e , c o l o r=v e r d e , c b t i c s={ [ " a l t a " ,1 0 ] ,[ " M e d i u m " ,0 5 ] ,[ " L o w " ,0 ] } , c b r a n g e=[ 0 ,1 0 ] , e x p l c i t a( x^2+y^2 ,x ,2 , 2 ,y ,2 , 2 ) )$ C o n s u l t et a m b i n` e n h a n c e d 3 d' , `c o l o r b o x 'y` c b r a n g e' .
O p c i ng r f i c a :c o l o rd e V a l o rp o rd e f e c t o :' b l u e ' ` C o l o r "e s p e c i f i c ae lc o l o rd el a sl n e a sd et r a z a d o ,p u n t o s ,b o r d e sd e p o l g o n o sye t i q u e t a s . L o sc o l o r e sp u e d e ns e rd a d o sc o m on o m b r e soe nc d i g oR G Bh e x a d e c i m a l . N o m b r e sd el o sc o l o r e sd i s p o n i b l e ss o n :b l a n c on e g r og r a y 0g r e y 0 g r a y 1 0g r e y 1 0g r a y 2 0g r e y 2 0 g r a y 3 0g r e y 3 0g r a y 4 0g r e y 4 0 G r a y 5 0g r e y 5 0g r a y 6 0g r e y 6 0 g r a y 7 0g r e y 7 0g r a y 8 0g r e y 8 0 g r a y 9 0g r e y 9 0g r a y 1 0 0g r e y 1 0 0 g r i sl i g h t _ g r a yg r i s _ c l a r o d a r k _ g r a yg r i s _ o s c u r or o j ol i g h t _ r e d d a r k _ r e da m a r i l l al i g h t _ y e l l o wd a r k _ y e l l o w v e r d el i g h t _ g r e e nd a r k _ g r e e ns p r i n g _ g r e e n f o r e s t _ g r e e ns e a _ g r e e na z u ll i g h t _ b l u e D a r k _ b l u em i d n i g h t _ b l u en a v ym e d i u m _ b l u e r o y a l b l u ec e l e s t ec i a nl i g h t _ c y a n d a r k _ c y a nm a g e n t al i g h t _ m a g e n t ad a r k _ m a g e n t a t u r q u e s al i g h t _ t u r q u o i s ed a r k _ t u r q u o i s er o s a l i g h t _ p i n kd a r k _ p i n kc o r a ll i g h t _ c o r a l o r a n g e _ r e ds a l m nl i g h t _ s a l m o nd a r k _ s a l m o n a g u a m a r i n ad ec o l o rc a q u id a r k _ k h a k iv a r ad eo r o l i g h t _ g o l d e n r o dd a r k _ g o l d e n r o do r oc o l o rb e i g e m a r r nn a r a n j ad a r k _ o r a n g ev i o l e t a d a r k _ v i o l e tp r p u r ad e lc i r u e l o C o m p o n e n t e sc r o m t i c a se nc d i g oh e x a d e c i m a ls ei n t r o d u c e ne ne l f o r m a` "#r r g g b b" . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^2 ,x ,_ 1 ,1 ) ,/*p o rd e f e c t oe sn e g r o*/ c o l o r=r e d , e x p l c i t a( 0 , 5+x^2 ,x ,1 , 1 ) , c o l o r=b l u e , e x p l c i t a( 1+x^2 ,x ,1 , 1 ) , c o l o r=l i g h t _ b l u e , e x p l c i t a( 1 , 5+x^2 ,x ,1 , 1 ) , c o l o r=" #2 3 a b 0 f " , e t i q u e t a( [ " E s t ae su n ae t i q u e t a " ,0 , 1 . 2 ] ) )$ C o n s u l t et a m b i n` f i l l _ c o l o r' .
O p c i ng r f i c a :c o l o r b o x V a l o rp o rd e f e c t o :t r u e' S i` c o l o r b o x' e s `t r u e ' ,u n ae s c a l ad ec o l o r e ss i ne t i q u e t as ed i b u j a j u n t oc o n` i m a g e n' o b j e t o s2 D ,uo b j e t o s3 dc o l o r e s .S i ` C o l o r b o x' e s 'f a l s e' ,n os em u e s t r an i n g u n ae s c a l ad ec o l o r e s .S i` c o l o r b o x' e su n c a d e n a ,s ed i b u j au n ae s c a l ad ec o l o r e sc o nl ae t i q u e t a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : E s c a l ad ec o l o r e sei m g e n e s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )i m :a p p l y( ' m a t r i z , m a k e L i s t( m a k e L i s t( r a n d o m( 2 0 0 ) ,i ,1 , 3 0 ) ,i ,1 , 3 0 ) )$ ( %I 3 )d r a w 2 d( i m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ ( %I 4 )d r a w 2 d( c o l o r b o x=f a l s e ,l ai m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ E s c a l ad ec o l o r e syu no b j e t od ec o l o r3 D .
414/633
28/08/13

( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( c o l o r b o x=" M a g n i t u d " , e n h a n c e d 3 d=t r u e , e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) )$ V a s et a m b i n' p a l e t a ' .
O p c i ng r f i c a :c o l u m n a s V a l o rp o rd e f e c t o :1 ' C o l u m n a s 'e se ln m e r od ec o l u m n a se nv a r i a sp a r c e l a s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .P u e d et a m b i ns e ru t i l i z a d oc o m ou na r g u m e n t od e f u n c i n` d i b u j a r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )s c e n e 1 :g r 2 d( t i t l e=" E l l i p s e " , n t i c k s=3 0 , p a r a m t r i c a( 2*c o s( t ) ,5*s e n( t ) ,t ,0 , 2* %p i ) )$ ( %I 3 )s c e n e 2 :g r 2 d( t i t l e=" T r i n g u l o " , p o l g o n o( [ 4 , 5 , 7 ] ,[ 6 . 4 . 2 ] ) )$ ( %I 4 )E m p a t e( E S C E N A 1 ,E s c e n a 2 ,c o l u m n a s=2 )$
O p c i ng r f i c a :c o n t o r n o V a l o rp o rd e f e c t o :n o n e' O p c i n' c o n t o r n o 'p e r m i t ea lu s u a r i os e l e c c i o n a rd n d et r a z a re lc o n t o r n o l n e a s .L o sv a l o r e sp o s i b l e ss o n : *` N o n e' :n o s et r a z a nl a sc u r v a sd en i v e l . *` B a s e' :l a sc u r v a sd en i v e ls ep r o y e c t a ns o b r ee lp l a n ox y . *` S u p e r f i c i e' :l a sl n e a sd ec o n t o r n os er e p r e s e n t a ne nl as u p e r f i c i e . *` T a n t o' :d o sl n e a sd ec o n t o r n os er e p r e s e n t a n :e ne lp l a n ox yye n l as u p e r f i c i e . *' M a p a ' :l a sc u r v a sd en i v e ls ep r o y e c t a ns o b r ee lp l a n ox y ,yl a p u n t od ev i s t as ee n c u e n t r aj u s t oal av e r t i c a l .
O p c i ng r f i c a :c o n t o u r _ l e v e l s V a l o rp o rd e f e c t o :5 E s t ao p c i ng r f i c ac o n t r o l al af o r m ae nq u es ed i b u j a nl o sc o n t o r n o s . ` C o n t o u r _ l e v e l s "s ep u e d e na j u s t a rau nn m e r oe n t e r op o s i t i v o ,u n al i s t a d et r e sn m e r o sou nc o n j u n t oa r b i t r a r i od el o sn m e r o s : *C u a n d ol ao p c i n` c o n t o u r _ l e v e l s' l i m i t aa ln m e r oe n t e r op o s i t i v o < n > ,< n >c u r v a sd en i v e ls ed i b u j a nai n t e r v a l o si g u a l e s .P o r d e f e c t o ,c i n c oi s o l n e a ss er e p r e s e n t a n . *C u a n d ol ao p c i n` c o n t o u r _ l e v e l s' e s t l i m i t a d aau n al i s t ad el o n g i t u d t r e sd el af o r m a` [ b a j o ,s ,l am sa l t a ] " ,l a sc u r v a sd en i v e ls o n t r a z a d aap a r t i rd e` b a j a' a 'a l t o' e np a s o sd e `s ' . *C u a n d ol ao p c i n` c o n t o u r _ l e v e l s' e s t l i m i t a d aau nc o n j u n t od en m e r o s d el af o r m a` { n 1 ,n 2 ,. . . }' ,l a sc u r v a sd en i v e ls ed i b u j a ne n v a l o r e s' n 1 ' ,' n 2 ' ,. . . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o s : D i e ze q u i d i s t a n t e sc u r v a sd en i v e l .E ln m e r or e a ld el o sn i v e l e sp u e d e s e ra j u s t a d op a r ad a re t i q u e t a ss i m p l e s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( c o l o r=v e r d e , e x p l c i t a( 2 0*e x p( x^2 y^2 )1 0 ,x ,0 , 2 ,y ,3 , 3 ) , c o n t o u r _ l e v e l s=1 0 , c o n t o r n o=t a n t o , s u r f a c e _ h i d e=t r u e )$ E n t r e8y8e np a s o sd e4 . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( c o l o r=v e r d e , e x p l c i t a( 2 0*e x p( x^2 y^2 )1 0 ,x ,0 , 2 ,y ,3 , 3 ) , c o n t o u r _ l e v e l s=[ 8 , 4 , 8 ] , c o n t o r n o=t a n t o , s u r f a c e _ h i d e=t r u e )$ L n e a sc o r r e s p o n d i e n t e sal o sn i v e l e s7 ,6 ,0 , 8y5 .
415/633
28/08/13

( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( c o l o r=v e r d e , e x p l c i t a( 2 0*e x p( x^2 y^2 )1 0 ,x ,0 , 2 ,y ,3 , 3 ) , c o n t o u r _ l e v e l s={ 7 ,6 ,0 , 8 ,5 } , c o n t o r n o=t a n t o , s u r f a c e _ h i d e=t r u e )$ V a s et a m b i n' c o n t o r n o ' .
O p c i ng r f i c a :d a t a _ f i l e _ n a m e V a l o rp o rd e f e c t o :" d a t a . g n u p l o t "' E s t ee se ln o m b r ed e la r c h i v oc o nl o sd a t o sn u m r i c o sq u en e c e s i t a nl o s G n u p l o tp a r ac o n s t r u i rl at r a m as o l i c i t a d a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .P u e d et a m b i ns e ru t i l i z a d oc o m ou na r g u m e n t od e f u n c i n` d i b u j a r' . V e ae le j e m p l oe n` g n u p l o t _ f i l e _ n a m e' .
O p c i ng r f i c a :r e t r a s o V a l o rp o rd e f e c t o :5 E s t ae sl ad e m o r ae nc e n t s i m a sd es e g u n d oe n t r ei m g e n e se na r c h i v o sG I Fa n i m a d o s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .P u e d et a m b i ns e ru t i l i z a d oc o m ou na r g u m e n t od e f u n c i n` d i b u j a r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w( d e l a y=1 0 0 , n o m b r e _ a r c h i v o=" z z z " , T e r m i n a l=' a n i m a t e d _ g i f , g r 2 d( e x p l c i t a( x^2 ,x ,1 , 1 ) ) , g r 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) ) , g r 2 d( e x p l c i t a( x^4 ,x ,1 , 1 ) ) ) ; F i nd el as e c u e n c i ad ea n i m a c i n ( %O 2 )[ g r 2 d( e x p l c i t a ) ,g r 2 d( e x p l c i t a ) ,g r 2 d( e x p l c i t a ) ] O p c i n` d e l a y' s l oe s t a c t i v ae ng i f sa n i m a d o s ,s i n oq u es et i e n ee nc u e n t ae n c u a l q u i e ro t r oc a s o . C o n s u l t et a m b i n` T e r m i n a l' , `d i m e n s i o n e s .
O p c i ng r f i c a :d i m e n s i o n e s V a l o rp o rd e f e c t o :[ 6 0 0 5 0 0 ]" D i m e n s i o n e sd el at e r m i n a ld es a l i d a .S uv a l o re su n al i s t af o r m a d ap o r l aa n c h u r ayl aa l t u r a .E ls i g n i f i c a d od el o sd o sn m e r o sd e p e n d ed e e lt e r m i n a lq u ee s t t r a b a j a n d o . C o nt e r m i n a l e s' g i f ' ,' a n i m a t e d _ g i f ' ,' p n g ' ,' j p g ' ,' s v g ' , ` S c r e e n' , `w x t 'y` a q u a t e r m' ,l o sn m e r o se n t e r o sr e p r e s e n t a ne ln m e r o d ep u n t o se nc a d ad i r e c c i n .S in ol os o ni n t e r g e r s ,q u es o n r e d o n d e a d a . C o nt e r m i n a l e s` E P S' , è p s _ c o l o r ' ,' p d f 'y` p d f c a i r o' ,t a n t o n m e r o sr e p r e s e n t a nc e n t s i m a sd ec m ,l oq u es i g n i f i c aq u e ,p o rd e f e c t o , f o t o se ne s t o sf o r m a t o ss o n6c md ea n c h oy5c md ea l t u r a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .P u e d et a m b i ns e ru t i l i z a d oc o m ou na r g u m e n t od e f u n c i n` d i b u j a r' . E j e m p l o s : O p c i n` d i m e n s i o n e s "a p l i c a d o sal ap r o d u c c i nyp a r ap r e s e n t a rW X Tl i e n z o . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( d i m e n s i o n e s=[ 3 0 0 , 3 0 0 ] , T e r m i n a l=' p n g , e x p l c i t a( x^4 ,x ,1 , 1 ) )$ ( %I 3 )d r a w 2 d( d i m e n s i o n e s=[ 3 0 0 , 3 0 0 ] , T e r m i n a l=' w x t , e x p l c i t a( x^4 ,x ,1 , 1 ) )$ O p c i n` d i m e n s i o n e s "a p l i c a d o sal as a l i d aE P S .Q u e r e m o su na r c h i v oE P S c o nd i m e n s i o n e sA 4v e r t i c a l . ( %I 1 )l o a d( d r a w )$ ( %I 2 )A 4 p o r t r a i t :1 0 0*[ 2 1 ,2 9 . 7 ]$
416/633
28/08/13

( %I 3 )d r a w 3 d( D i m e n s i o n e s=A 4 p o r t r a i t , E P ST e r m i n a l=' , e x p l c i t a( x^2 y^2 ,x ,2 , 2 ,y ,2 , 2 ) )$
O p c i ng r f i c a :d r a w _ r e a l p a r t V a l o rp o rd e f e c t o :t r u e' C u a n d o` t r u e' ,l a sf u n c i o n e sq u es ep u e d e ne x t r a e rs o nc o n s i d e r a d o sc o m oc o m p l e j o s f u n c i o n e sc u y ap a r t er e a lv a l o rd e b e ns e rt r a z a d o s ,c u a n d o` f a l s e' , n a d as et r a z ac u a n d ol af u n c i nn od au n av e r d a d e r a v a l o r . E s t ao p c i na f e c t aal o so b j e t o s` e x p l c i t a' y 'p a r a m t r i c a' e n2 Dy 3 Dy` p a r a m e t r i c _ s u r f a c e' . E j e m p l o : O p c i n` d r a w _ r e a l p a r t' a f e c t aal o so b j e t o s è x p l c i t a s 'y' p a r a m t r i c a ' . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( d r a w _ r e a l p a r t=f a l s e , e x p l c i t a( s q r t( x^2-4*x )-x ,x ,1 ,5 ) , c o l o r=r e d , d r a w _ r e a l p a r t=t r u e , p a r a m t r i c a( x ,s q r t( x^2-4*x )-x+1 ,x ,1 ,5 ) ) ;
O p c i ng r f i c a :e n h a n c e d 3 d V a l o rp o rd e f e c t o :n o n e' S i` e n h a n c e d 3 d' e s 'n o n e' ,s u p e r f i c i e sq u en os o nd ec o l o re ng r f i c o s3 D . C o ne lf i nd eo b t e n e ru n as u p e r f i c i ed ec o l o r ,u n al i s t ad e b es e ra s i g n a d oa o p c i n` e n h a n c e d 3 d' ,d o n d ee lp r i m e re l e m e n t oe su n ae x p r e s i ny e lr e s t os o nl o sn o m b r e sd el a sv a r i a b l e sop a r m e t r o su t i l i z a d o se ne s e e x p r e s i n .U n al i s t ad et a l e s` [ f( x ,y ,z ) ,x ,y ,z ]' s i g n i f i c aq u ee lp u n t o ` [ X ,y ,z ]' d el as u p e r f i c i es el ea s i g n ae ln m e r o 'f( x ,y ,z )' ,q u es e s e rc o l o r e a d od ea c u e r d oc o nl ap a l e t a` ' r e a l .P a r al o sg r f i c o s3 D o b j e t o sd e f i n i d o se nt r m i n o sd ep a r m e t r o s ,e sp o s i b l ed e f i n i r e ln m e r od e lc o l o re nt r m i n o sd el o sp a r m e t r o s ,c o m oe n` [ f( u ) ,u ]' ,c o m o e no b j e t o sp a r a m t r i c o s` ' y 't u b e' ,o '[ f( u ,v ) ,u ,v ] " ,c o m oe n o b j e t o` p a r a m e t r i c _ s u r f a c e' .M i e n t r a sq u et o d o sl o so b j e t o s3 Da d m i t e ne lm o d e l o b a s a d oe nc o o r d e n a d a sa b s o l u t a s ,` [ f( x ,y ,z ) ,x ,y ,z ] " ,s l od o sd el o s e l l o s ,as a b e r` e x p l c i t a' y è l e v a t i o n _ g r i d ' ,a c e p t a nt a m b i nm o d e l o s d e f i n i d oe ne l` [ x ,y ]' c o o r d i n a , `[ f( x ,y ) ,x ,y ] ' .G r f i c o3 D o b j e t o` i m p l c i t o "a c e p t as l oe l` [ f( x ,y ,z ) ,x ,y ,z ] "m o d e l o . O b j e t o` p u n t o s "a c e p t at a m b i ne l` [ f( x ,y ,z ) ,x ,y ,z ] "m o d e l o ,p e r o c u a n d ol o sp u n t o st i e n e nu n an a t u r a l e z ac r o n o l g i c o ,m o d e l o` [ f( k ) ,k ]' e st a m b i n v l i d a ,s i e n d o` k' u np a r m e t r od ep e d i d o . C u a n d oe n h a n c e d 3 d' s ea s i g n aa l g od i f e r e n t ea 'n o n e' ` , O p c i o n e sd ec o l o rd e l` ' y `s u r f a c e _ h i d e 's o ni g n o r a d o s . L o sn o m b r e sd el a sv a r i a b l e sd e f i n i d a se nl a sl i s t a sp u e d e ns e rd i f e r e n t e s al o su t i l i z a d o se nl a sd e f i n i c i o n e sd el o so b j e t o sg r f i c o s . P a r am a n t e n e rl ac o m p a t i b i l i d a dc o nv e r s i o n e sa n t e r i o r e s ,` e n h a n c e d 3 d=f a l s e' e s e q u i v a l e n t ea` e n h a n c e d 3 d=n o n e' ,y è n h a n c e d 3 d=t r u e 'e s t e q u i v a l e n t ea` e n h a n c e d 3 d=[ z ,x ,y ,z ]' .S iu n ae x p r e s i ne s d a d oa` e n h a n c e d 3 d' ,s u sv a r i a b l e sd e b e ns e re lm i s m ou t i l i z a d oe ne l d e f i n i c i nd el as u p e r f i c i e .E s t on oe sn e c e s a r i oc u a n d os eu t i l i z al i s t a s . C o n s u l t el ao p c i n` p a l e t a' p a r aa p r e n d e rc m os ee s p e c i f i c a nl a sp a l e t a s . E j e m p l o s : O b j e t o` e x p l c i t a' c o nc o l o r e a d od e f i n i d op o re l `[ f( x ,y ,z ) ,x ,y , z ]m o d e l o" . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e n h a n c e d 3 d=[ x z / 1 0 ,x ,y ,z ] , p a l e t a=g r i s , e x p l c i t a( 2 0*e x p( x^2 y^2 )1 0 ,x ,3 , 3 ,y ,3 , 3 ) )$ ' O b j e t oc o nc o l o r e a d od e f i n i d op o re l` [ f( x ,y ) ,x ,y ] ' è x p l c i t a m o d e l o .L o sn o m b r e sd el a sv a r i a b l e sd e f i n i d a se nl a sl i s t a sp u e d e ns e r d i f e r e n t e sal o su t i l i z a d o se nl a sd e f i n i c i o n e sd el o so b j e t o sg r f i c o s ; e ne s t ec a s o ,' r 'c o r r e s p o n d ea' x ' ,y' s 'a' y ' . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e n h a n c e d 3 d=[ s e n( r*s ) ,r ,s ] , e x p l c i t a( 2 0*e x p( x^2 y^2 )1 0 ,x ,3 , 3 ,y ,3 , 3 ) )$ O b j e t o` p a r a m t r i c a' c o nc o l o r e a d od e f i n i d op o re l `[ f( x ,y ,z ) ,x ,y , z ]m o d e l o" . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d(
417/633
28/08/13

n t i c k s=1 0 0 , l i n e _ w i d t h=2 , e n h a n c e d 3 d=[ s iy >=0e n t o n c e s10 ,x ,y ,z ] , p a r a m t r i c a( s e n( u )^2 ,c o s( u ) ,u ,u ,0 , 4* %p i ) )$ ' O b j e t oc o nc o l o r e a d od e f i n i d op o re l[ f( u ) ,u ]` ' `p a r a m t r i c am o d e l o . E ne s t ec a s o ,` ( u 1 )^2' e su na c c e s od i r e c t op a r a `[ ( u 1 )^2 ,u ] ' . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( n t i c k s=6 0 , l i n e _ w i d t h=3 , e n h a n c e d 3 d=( u 1 )^2 , p a r a m t r i c o( c o s( 5*u )^2 ,s i n( 7*u ) ,u 2 ,u ,0 , 2 ) )$ E l e v a t i o n _ g r i do b j e t o` ' c o nc o l o r e a d od e f i n i d op o re l `[ f( x ,y ) ,x , m o d e l oy ]' . ( %I 1 )l o a d( d r a w )$ ( %I 2 )m :a p l i c a r( m a t r i z , m a k e L i s t( m a k e L i s t( c o s( i^2 / 8 0 k / 3 0 ) ,k ,1 , 3 0 ) ,i ,1 , 2 0 ) )$ ( %I 3 )d r a w 3 d( e n h a n c e d 3 d=[ c o s( x*y*1 0 ) ,x ,y ] , e l e v a t i o n _ g r i d( m ,1 ,1 , 2 , 2 ) , x l a b e l=" x " , y l a b e l=" y " ) ; ' O b j e t oc o nc o l o r e a d od e f i n i d op o re l` [ f( x ,y ,z ) ,x ,y ,z ] ' `t u b o m o d e l o . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e n h a n c e d 3 d=[ c o s( x ,y ) ,x ,y ,z ] , p a l e t a=g r i s , x u _ g r i d=5 0 , t u b o( c o s( a ) ,u n a ,0 ,1 ,a ,0 ,4* %p i ) )$ ' O b j e t oc o nc o l o r e a d od e f i n i d op o re l[ f( u ) ,u ]` ' `t u b od em o d e l o . A q u ,` e n h a n c e d 3 d= a' s e r ae la c c e s od i r e c t op a r a è n h a n c e d 3 d= [ F o o ,f o o ]' . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( t u b e _ e x t r e m e s=[ a b i e r t o ,c e r r a d o ] , p a l e t a=[ 2 6 , 1 5 ,2 ] , e n h a n c e d 3 d=[ f o o ,f o o ] , t u b o( a ,a ,a^2 ,1 ,u n ,2 ,2 ) )$ ' I m p l c i t a 'y' p u n t o s 'o b j e t o sc o nc o l o r e a d od e f i n i d op o re l ` [ F( x ,y ,z ) ,x ,y ,z ]m o d e l o' . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e n h a n c e d 3 d=[ x y ,x ,y ,z ] , i m p l c i t a( ( x^2+y^2+z^2 1 )*( x^2+( y 1 . 5 )^2+z^2 0 , 5 )=0 , 0 1 5 , x ,1 , 1 ,y ,1 . 2 , 2 . 3 ,z ,1 , 1 ) )$ ( %I 3 )m :m a k e L i s t( [ a l e a t o r i a( 1 . 0 ) ,a la z a r( 1 . 0 ) ,a la z a r( 1 . 0 ) ] ,k ,1 , 2 0 0 0 )$ ( %I 4 )d r a w 3 d( p o i n t _ t y p e=f i l l e d _ c i r c l e , p o i n t _ s i z e=2 , e n h a n c e d 3 d=[ u+v w ,u ,v ,w ] , p u n t o s( m ) )$ C u a n d ol o sp u n t o st i e n e nu n an a t u r a l e z ac r o n o l g i c o ,m o d e l o` [ f( k ) ,k ]' e st a m b i n v l i d a ,s i e n d o` k' u np a r m e t r od ep e d i d o . ( %I 1 )l o a d( d r a w )$ ( %I 2 )m :m a k e L i s t( [ a l e a t o r i a( 1 . 0 ) ,a la z a r( 1 . 0 ) ,a la z a r( 1 . 0 ) ] ,k ,1 , 5 )$ ( %I 3 )d r a w 3 d( e n h a n c e d 3 d=[ s i n( j ) ,j ] , p o i n t _ s i z e=3 , p o i n t _ t y p e=f i l l e d _ c i r c l e , p o i n t s _ j o i n e d=t r u e , p u n t o s( m ) )$
O p c i ng r f i c a :t i p o _ e r r o r V a l o rp o rd e f e c t o :` y' E nf u n c i nd es uv a l o r ,q u ep u e d es e r` x' , 'y' ,o 'x y' ,g r f i c o ` e r r o r e sd eo b j e t o' s a c a r nl o sp u n t o sd eh o r i z o n t a l ,v e r t i c a l ,o t a n t o ,l a sb a r r a sd ee r r o r .C u a n d o` t i p o _ e r r o r=c a j a s' ,s ee l a b o r a r nc u a d r o s e nl u g a rd ec r u c e s . V e rt a m b i n` e r r o r e s . O p c i ng r f i c a :n o m b r e _ a r c h i v o V a l o rp o rd e f e c t o :" m a x i m a _ o u t "' E s t ee se ln o m b r ed e la r c h i v od o n d el o st e r m i n a l e s' p n g ' ,' j p g ' ,' g i f ' , ' E P S ' ,` e p s _ c o l o r' , 'p d f' , `p d f c a i r o 'y' s v g ' ,s eg u a r d a r e l g r f i c o .
418/633
28/08/13

D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .P u e d et a m b i ns e ru t i l i z a d oc o m ou na r g u m e n t od e f u n c i n` d i b u j a r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( n o m b r e _ a r c h i v o=" m i a r c h i v o " , e x p l c i t a( x^2 ,x ,1 , 1 ) , T e r m i n a l=' p n g )$ C o n s u l t et a m b i n` T e r m i n a l' , `d i m e n s i o n e s .
O p c i ng r f i c a :f i l l _ c o l o r V a l o rp o rd e f e c t o :" r o j o " ," ` F i l l _ c o l o r' e s p e c i f i c ae lc o l o rp a r ar e l l e n a rp o l g o n o sy2 d F u n c i o n e se x p l c i t a s` ' . C o n s u l t e` c o l o r "p a r aa p r e n d e rc m os ee s p e c i f i c a nl o sc o l o r e s .
O p c i ng r f i c a :f i l l _ d e n s i t y V a l o rp o rd e f e c t o :0 ` F i l l _ d e n s i t y' e su nn m e r oe n t r e0y1q u ee s p e c i f i c ae l i n t e n s i d a dd e l` f i l l _ c o l o r' e n `b a r r a s 'o b j e t o s . C o n s u l t e` b a r r a s "p a r ae j e m p l o s . O p c i ng r f i c a :f i l l e d _ f u n c V a l o rp o rd e f e c t o :f a l s e' O p c i n` f i l l e d _ f u n c' c o n t r o l ac m ol a sr e g i o n e sl i m i t a d a sp o rf u n c i o n e s d e b es e rl l e n a d o .C u a n d o` f i l l e d _ f u n c' e s `t r u e ' ,l ar e g i nd e l i m i t a d a p o rl af u n c i nd e f i n i d ae ne lo b j e t o` e x p l c i t a' yl ap a r t ei n f e r i o rd e l av e n t a n ag r f i c ae s t l l e n ad e` f i l l _ c o l o r' .C u a n d o` f i l l e d _ f u n c' c o n t i e n eu n ae x p r e s i nd ef u n c i n ,ac o n t i n u a c i n ,l ar e g i nl i m i t a d ap o re s t e f u n c i nyl af u n c i nd e f i n i d ae ne lo b j e t o` e x p l c i t o "s e r n l l e n a d o .P o rd e f e c t o ,l a sf u n c i o n e se x p l c i t a sn os el l e n a n . E s t ao p c i ns l oa f e c t aal o so b j e t o sg r f i c o s2 d` e x p l c i t o . E j e m p l o : R e g i nl i m i t a d ap o ru no b j e t o` e x p l c i t a' yl ap a r t ei n f e r i o rd el a v e n t a n ag r f i c a . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( f i l l _ c o l o r=r e d , f i l l e d _ f u n c=t r u e , e x p l c i t a( s i n( x ) ,x ,0 , 1 0 ) )$ R e g i nl i m i t a d ap o ru no b j e t o` e x p l c i t a "yl af u n c i nd e f i n i d ap o r o p c i n` f i l l e d _ f u n c' .T e n g ae nc u e n t aq u el av a r i a b l e` f i l l e d _ f u n c' d e b e s e rl am i s m aq u el au t i l i z a d ae n` e x p l c i t a' . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( f i l l _ c o l o r=g r i s , f i l l e d _ f u n c=s e n( x ) , e x p l c i t a( s e n( x ) ,x ,0 , %p i ) ) ; C o n s u l t et a m b i n` f i l l _ c o l o r' y è x p l c i t o .
O p c i ng r f i c a :f u e n t e V a l o rp o rd e f e c t o :" "" ( c a d e n av a c a ) E s t ao p c i ns ep u e d eu t i l i z a rp a r ae s t a b l e c e re lt i p od el e t r aau t i l i z a rp o re l t e r m i n a l .S l ou n ac a r aye lt a m a od el af u e n t es ep u e d e nu t i l i z a re nt o d oe l p a r c e l a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . C o n s u l t et a m b i n` f o n t _ s i z e' . G n u p l o tn om a n e j al a sf u e n t e sp o rs m i s m o ,d e j ae s t at a r e aa l b i b l i o t e c a sd es o p o r t ed el o sd i f e r e n t e st e r m i n a l e s ,c a d au n oc o ns up r o p i o f i l o s o f aa lr e s p e c t o .U nb r e v er e s u m e n : *X 1 1 :U t i l i z ae lm e c a n i s m od es e r v i d o rd ef u e n t e sx 1 1n o r m a l . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( f o n t=" A r i a l " , F O N T _ S I Z E=2 0 , e t i q u e t a( [ " f u e n t eA r i a l ,t a m a o2 0 " ,1 , 1 ] ) )$ *V e n t a n a s :E lt e r m i n a lw i n d o w sn op e r m i t ec a m b i a rd e
419/633
28/08/13

f u e n t e sd e s d ee li n t e r i o rd el ap a r c e l a .U n av e zq u ee lt e r r e n oh as i d o g e n e r a d a ,e lt i p od el e t r as ep u e d ec a m b i a ra lh a c e rc l i cd e r e c h oe ne lm e n d el av e n t a n ag r f i c a . *P n g ,j p e g ,g i f :L al i b r e r al i b g du t i l i z al ar u t ad el a sf u e n t e sa l m a c e n a d a s e ne le n t o r n od e` G D F O N T P A T H ' v a r i a b l e ,e ne s t ec a s o ,e s s l oe sn e c e s a r i oc o n f i g u r a rl ao p c i n` f u e n t e' a ln o m b r ed el af u e n t e .E s T a m b i np u e d ei n t r o d u c i rl ar u t ac o m p l e t aa la r c h i v of u e n t e . E j e m p l o s : O p c i n` f u e n t e' s ep u e d ed a rl ar u t ac o m p l e t aa la r c h i v od ef u e n t e : ( %I 1 )l o a d( d r a w )$ ( %I 2 )r u t a :" /u s r/s h a r e/f o n t s/t r u e t y p e/f r e e f o n t/ "$ ( %I 3 )A r c h i v o :" F r e e S e r i f B o l d I t a l i c . t t f "$ ( %I 4 )d r a w 2 d( f o n t=c o n c a t( p a t h ,a r c h i v o ) , F O N T _ S I Z E=2 0 , c o l o r=r e d , e t i q u e t a( [ " f o n tF r e e S e r i f B o l d I t a l i c ,t a m a o2 0 " ,1 , 1 ] ) , T e r m i n a l=p n g )$ S il av a r i a b l ed ee n t o r n o` G D F O N T P A T H "s ee n c u e n t r ae nl ar u t ad o n d e f i c h e r o ss ea s i g n a n ,e sp o s i b l ea j u s t a rg r f i c o o p c i n` f u e n t e' e ne ln o m b r ed el af u e n t e . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( f o n t=" F r e e S e r i f B o l d I t a l i c " , F O N T _ S I Z E=2 0 , c o l o r=r e d , e t i q u e t a( [ " f o n tF r e e S e r i f B o l d I t a l i c ,t a m a o2 0 " ,1 , 1 ] ) , T e r m i n a l=p n g )$ *P o s t S c r i p t :f u e n t e sP o s t S c r i p te s t n d a rs o n : ` "T i m e s R o m a n" ' , ' "T i m e s B o l d" ' , ' "L o st i e m p o s B o l d" ' , ` "T i m e s B o l d" ' , ` "H e l v e t i c a" ' , ' "H e l v e t i c a O b l i q u e" ' , ' "H e l v e t i c a B o l d" ' , ` "H e l v t i c a B o l d O b l i q u e" ' , ' "C o u r i e r" ' , ' "C o u r i e r O b l i q u e" ' , ` "C o u r i e r B o l d" ' , y" `" C o u r i e r B o l d O b l i q u e " . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( f o n t=" C o u r i e r O b l i q u e " , F O N T _ S I Z E=1 5 , e t i q u e t a( [ " f o n tC o u r i e r O b l i q u e ,t a m a o1 5 " ,1 , 1 ] ) , T e r m i n a l=e p s )$ *P d f :U t i l i z al a sm i s m a sf u e n t e sq u eP o s t s c r i p t . *P d f c a i r o :u t i l i z al a sm i s m a sf u e n t e sq u ew x t . *W x t :L al i b r e r ap a n g oe n c u e n t r al a sf u e n t e sat r a v sd el a` f o n t c o n f i g' u t i l i d a d . *A q u a :P o rd e f e c t oe s` "T i m e s R o m a n" . L ad o c u m e n t a c i nd eg n u p l o te su n ai m p o r t a n t ef u e n t ed ei n f o r m a c i n s o b r et e r m i n a l e syf u e n t e s .
O p c i ng r f i c a :f o n t _ s i z e V a l o rp o rd e f e c t o :1 0 E s t ao p c i ns ep u e d eu t i l i z a rp a r ae s t a b l e c e re lt a m a od ef u e n t eau t i l i z a rp o re l t e r m i n a l .S l ou n ac a r aye lt a m a od el af u e n t es ep u e d e nu t i l i z a re nt o d oe l p a r c e l a .` F o n t _ s i z e' s ea c t i v as l oc u a n d ol ao p c i n `f u e n t e 'n oe si g u a l e nl ac a d e n av a c a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . V a s et a m b i n' f o n t ' .
O p c i ng r f i c a :g n u p l o t _ f i l e _ n a m e V a l o rp o rd e f e c t o :" m a x o u t . g n u p l o t "' E s t ee se ln o m b r ed e la r c h i v oc o nl o sc o m a n d o sn e c e s a r i o sp a r as e r p r o c e s a d ap o rG n u p l o t . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .P u e d et a m b i ns e ru t i l i z a d oc o m ou na r g u m e n t od e f u n c i n` d i b u j a r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( n o m b r e _ a r c h i v o=" m i _ a r c h i v o " , g n u p l o t _ f i l e _ n a m e=" m y _ c o m m a n d s _ f o r _ g n u p l o t " ,
420/633
28/08/13

d a t a _ f i l e _ n a m e=" m y _ d a t a _ f o r _ g n u p l o t " , T e r m i n a l=p n g , e x p l c i t a( x^2 ,x ,1 , 1 ) )$ C o n s u l t et a m b i n` d a t a _ f i l e _ n a m e' .
O p c i ng r f i c a :g r i d V a l o rp o rd e f e c t o :f a l s e' S i` r e d' e s `t r u e ' ,u n ar e ds eh a r e f e c t i v ae ne lp l a n o< x y > . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( g r i d=t r u e , e x p l c i t a( e x p( u ) ,u ,2 , 2 ) )$
O p c i ng r f i c a :h e a d _ a n g l e V a l o rp o rd e f e c t o :4 5 ` H e a d _ a n g l e' i n d i c ae l n g u l o ,e ng r a d o s ,e n t r el af l e c h a c a b e z a sye ls e g m e n t o . E s t ao p c i ns l oe sr e l e v a n t ep a r ao b j e t o s` v e c t o r i a l e s . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 0 , 1 0 ] , y r a n g e=[ 0 , 9 ] , h e a d _ l e n g t h=0 , 7 , h e a d _ a n g l e=1 0 , v e c t o r( [ 1 , 1 ] ,[ 0 , 6 ] ) , h e a d _ a n g l e=2 0 , v e c t o r( [ 2 , 1 ] ,[ 0 , 6 ] ) , h e a d _ a n g l e=3 0 , v e c t o r( [ 3 , 1 ] ,[ 0 , 6 ] ) , h e a d _ a n g l e=4 0 , v e c t o r( [ 4 , 1 ] ,[ 0 , 6 ] ) , h e a d _ a n g l e=6 0 , v e c t o r( [ 5 , 1 ] ,[ 0 , 6 ] ) , h e a d _ a n g l e=9 0 , v e c t o r( [ 6 , 1 ] ,[ 0 , 6 ] ) , h e a d _ a n g l e=1 2 0 , v e c t o r( [ 7 , 1 ] ,[ 0 , 6 ] ) , h e a d _ a n g l e=1 6 0 , v e c t o r( [ 8 , 1 ] ,[ 0 , 6 ] ) , h e a d _ a n g l e=1 8 0 , v e c t o r( [ 9 , 1 ] ,[ 0 , 6 ] ) )$ C o n s u l t et a m b i n` h e a d _ b o t h' , `h e a d _ l e n g t h 'y` h e a d _ t y p e' .
O p c i ng r f i c a :h e a d _ b o t h V a l o rp o rd e f e c t o :f a l s e' S i` h e a d _ b o t h' e s `t r u e ' ,l o sv e c t o r e ss ed i b u j a nc o nd o sp u n t a sd ef l e c h a . S i` f a l s e' ,s l ou n af l e c h as ed i b u j a . E s t ao p c i ns l oe sr e l e v a n t ep a r ao b j e t o s` v e c t o r i a l e s . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 0 , 8 ] , y r a n g e=[ 0 , 8 ] , h e a d _ l e n g t h=0 , 7 , v e c t o r( [ 1 , 1 ] ,[ 6 , 0 ] ) , h e a d _ b o t h=t r u e , v e c t o r( [ 1 , 7 ] ,[ 6 , 0 ] ) )$ C o n s u l t et a m b i n` h e a d _ l e n g t h' , `h e a d _ a n g l e 'y` h e a d _ t y p e' .
O p c i ng r f i c a :h e a d _ l e n g t h V a l o rp o rd e f e c t o :2 ` H e a d _ l e n g t h' i n d i c a ,e nu n i d a d e s< x > e j e ,l al o n g i t u dd el af l e c h a c a b e z a s . E s t ao p c i ns l oe sr e l e v a n t ep a r ao b j e t o s` v e c t o r i a l e s .
421/633
28/08/13
E j e m p l o :
( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 0 , 1 2 ] , y r a n g e=[ 0 , 8 ] , v e c t o r( [ 0 , 1 ] ,[ 5 , 5 ] ) , h e a d _ l e n g t h=1 , v e c t o r( [ 2 , 1 ] ,[ 5 , 5 ] ) , h e a d _ l e n g t h=0 , 5 ; v e c t o r( [ 4 , 1 ] ,[ 5 , 5 ] ) , h e a d _ l e n g t h=0 , 2 5 , v e c t o r( [ 6 , 1 ] ,[ 5 , 5 ] ) )$ C o n s u l t et a m b i n` h e a d _ b o t h' , `h e a d _ a n g l e 'y` h e a d _ t y p e' .
O p c i ng r f i c a :h e a d _ t y p e V a l o rp o rd e f e c t o :` l l e n o' ` H e a d _ t y p e "s eu t i l i z ap a r ae s p e c i f i c a rc m os er e p r e s e n t a nl a sc a b e z a sd ef l e c h a . L o sv a l o r e sp o s i b l e ss o n :' l l e n o '( c e r r a d oyl l e n od ep u n t a sd ef l e c h a ) , ` V a c o' ( c e r r a d op e r on ol l e n al a sc a b e z a sd ef l e c h a ) ,y `n o f i l l e d '( a b i e r t o f l e c h ac a b e z a s ) . E s t ao p c i ns l oe sr e l e v a n t ep a r ao b j e t o s` v e c t o r i a l e s . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 0 , 1 2 ] , y r a n g e=[ 0 , 1 0 ] , h e a d _ l e n g t h=1 , v e c t o r( [ 0 , 1 ] ,[ 5 , 5 ] ) ,/*t i p op o rd e f e c t o*/ h e a d _ t y p e=' v a c o , v e c t o r( [ 3 , 1 ] ,[ 5 , 5 ] ) , h e a d _ t y p e=' n o f i l l e d , v e c t o r( [ 6 , 1 ] ,[ 5 , 5 ] ) )$ C o n s u l t et a m b i n` h e a d _ b o t h' , `h e a d _ a n g l e 'y` h e a d _ l e n g t h' .
O p c i ng r f i c a :i p _ g r i d V a l o rp o rd e f e c t o :[ 5 0 ,5 0 ]' ` I p _ g r i d' e s t a b l e c el ap a r r i l l ad el ap r i m e r at o m ad em u e s t r a se nl a sp a r c e l a si m p l c i t o s . E s t ao p c i ns l oe sr e l e v a n t ep a r ao b j e t o s` i m p l c i t a s .
O p c i ng r f i c a :i p _ g r i d _ i n V a l o rp o rd e f e c t o :[ 5 ,5 ]' ` I p _ g r i d _ i n' e s t a b l e c el ap a r r i l l ad el as e g u n d at o m ad em u e s t r a se ne li m p l c i t a p a r c e l a s . E s t ao p c i ns l oe sr e l e v a n t ep a r ao b j e t o s` i m p l c i t a s .
O p c i ng r f i c a :c l a v e V a l o rp o rd e f e c t o :" "" ( c a d e n av a c a ) ` L l a v e' e se ln o m b r ed eu n af u n c i ne nl al e y e n d a .S i` l l a v e' e su n c a d e n av a c a ,n os ea s i g n an i n g u n ac l a v ep a r al af u n c i n . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 2 d' : `p u n t o s ' ,' p o l g o n o ' ,' r e c t n g u l o ' ,` e l i p s e " , ' V e c t o r ' ,' e x p l c i t o ' ,' i m p l c i t o ' ,' p a r a m t r i c a ' ,y' p o l a r ' . *` G r 3 d' : `p u n t o s ' ,` e x p l c i t a s' , `p a r a m t r i c a s" ,y ` P a r a m e t r i c _ s u r f a c e' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( k e y=" S i n u s " , e x p l c i t a( s i n( x ) ,x ,0 , 1 0 ) , k e y=" C o s " , c o l o r=r e d , e x p l c i t a( c o s( x ) ,x ,0 , 1 0 ) )$
O p c i ng r f i c a :l a b e l _ a l i g n m e n t V a l o rp o rd e f e c t o :' c e n t e r ' ` L a b e l _ a l i g n m e n t' s eu t i l i z ap a r ae s p e c i f i c a rd n d ee s c r i b i re t i q u e t a sc o n
422/633
28/08/13

c o nr e s p e c t oal a sc o o r d e n a d a sd a d a s .L o sv a l o r e sp o s i b l e ss o n :` c e n t r o' , ` I z q u i e r d o' y 'd e r e c h a' . E s t ao p c i ns l oe sr e l e v a n t ep a r ao b j e t o s` ' e t i q u e t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 0 , 1 0 ] , y r a n g e=[ 0 , 1 0 ] , p o i n t s _ j o i n e d=t r u e , p u n t o s( [ [ 5 , 0 ] ,[ 5 , 1 0 ] ] ) , c o l o r=b l u e , e t i q u e t a( [ " a l i n e a d oC e n t e r e d( d e f a u l t ) " ,5 , 2 ] ) , l a b e l _ a l i g n m e n t=' l e f t , e t i q u e t a( [ " a l i n e a d oi z q u i e r d a " ,5 , 5 ] ) , l a b e l _ a l i g n m e n t=" d e r e c h o , e t i q u e t a( [ " a l i n e a d od e r e c h a " ,5 , 8 ] ) )$ C o n s u l t et a m b i n` l a b e l _ o r i e n t a t i o n' y `c o l o r" .
O p c i ng r f i c a :l a b e l _ o r i e n t a t i o n V a l o rp o rd e f e c t o :' h o r i z o n t a l ' ` L a b e l _ o r i e n t a t i o n' s eu t i l i z ap a r ai n d i c a rl ao r i e n t a c i nd el a se t i q u e t a s . L o sv a l o r e sp o s i b l e ss o n :' h o r i z o n t a l 'y' v e r t i c a l" . E s t ao p c i ns l oe sr e l e v a n t ep a r ao b j e t o s` ' e t i q u e t a . E j e m p l o : E ne s t ee j e m p l o ,s ea g r e g au np u n t of i c t i c i op a r ao b t e n e ru n ai m a g e n .P a q u e t e ' D r a w 'n e c e s i t as i e m p r ed ed a t o sp a r ad i b u j a ru n ae s c e n a . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 0 , 1 0 ] , y r a n g e=[ 0 , 1 0 ] , p o i n t _ s i z e=0 , p u n t o s( [ [ 5 , 5 ] ] ) , c o l o r=a z u lm a r i n o , e t i q u e t a( [ " O r i e n t a c i nh o r i z o n t a l( p r e d e t e r m i n a d o ) " ,5 , 2 ] ) , l a b e l _ o r i e n t a t i o n=' v e r t i c a l , c o l o r=" #6 5 4 3 2 1 " , e t i q u e t a( [ " o r i e n t a c i nV e r t i c a l " ,1 , 5 ] ) )$ C o n s u l t et a m b i n` l a b e l _ a l i g n m e n t' y 'C o l o r' .
O p c i ng r f i c a :l i n e _ t y p e V a l o rp o rd e f e c t o :` s l i d o' ` L i n e _ t y p e' i n d i c ac m os em u e s t r a nl a sl n e a s ,l o sv a l o r e sp o s i b l e ss o n ` S l i d o' y 'p u n t o s' . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 2 d' : `p u n t o s ' ,' p o l g o n o ' ,' r e c t n g u l o ' ,` e l i p s e " , ' V e c t o r ' ,' e x p l c i t o ' ,' i m p l c i t o ' ,' p a r a m t r i c a 'y' p o l a r ' . *` G r 3 d' : `p u n t o s ' ,` e x p l c i t a s' , `p a r a m t r i c a s" y ` P a r a m e t r i c _ s u r f a c e' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( l i n e _ t y p e=p u n t o s , e x p l c i t a( 1+x^2 ,x ,1 , 1 ) , l i n e _ t y p e=s l i d a ,/*d e f a u l t*/ e x p l c i t a( 2+x^2 ,x ,1 , 1 ) )$ C o n s u l t et a m b i n` l i n e _ w i d t h' .
O p c i ng r f i c a :l i n e _ w i d t h V a l o rp o rd e f e c t o :1 ` L i n e _ w i d t h' e sl aa n c h u r ad el a sl n e a st r a z a d a s .S uv a l o rd e b es e ru n n m e r op o s i t i v o . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 2 d' : `p u n t o s ' ,' p o l g o n o ' ,' r e c t n g u l o ' ,` e l i p s e " , ' V e c t o r ' ,' e x p l c i t o ' ,' i m p l c i t o ' ,' p a r a m t r i c a 'y' p o l a r ' . *` G r 3 d' : `p u n t o s 'y` p a r a m t r i c a s . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^2 ,x ,1 , 1 ) ,/*a n c h u r ap o rd e f e c t o*/ l i n e _ w i d t h=5 , 5 , e x p l c i t a( 1+x^2 ,x ,1 , 1 ) ,
423/633
28/08/13

l i n e _ w i d t h=1 0 , e x p l c i t a( 2+x^2 ,x ,1 , 1 ) )$ C o n s u l t et a m b i n` l i n e _ t y p e' .
O p c i ng r f i c a :l o g c b V a l o rp o rd e f e c t o :f a l s e' S i` l o g c b' e s `t r u e ' ,l o st i c se nl ac a j ad ec o l o r e ss ed i b u j a ne ne l e s c a l al o g a r t m i c a . C u a n d o` e n h a n c e d 3 d' o `c o l o r b o x 'e s' f a l s e ' ,o p c i n' l o g c b" n ot i e n e e f e c t o . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e n h a n c e d 3 d=t r u e , c o l o r=v e r d e , l o g c b=t r u e , l o g z=t r u e , p a l e t a=[ 1 5 , 2 4 ,9 ] , e x p l c i t a( e x p( x^2 y^2 ) ,x ,2 , 2 ,y ,2 , 2 ) )$ C o n s u l t et a m b i n` e n h a n c e d 3 d' , `c o l o r b o x 'y` c b r a n g e' .
O p c i ng r f i c a :l o g x V a l o rp o rd e f e c t o :f a l s e' S i` l o g x' e s `t r u e ' ,e le j e< x >s ed i b u j a r e ne ll o g a r t m i c a e s c a l a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( l o g( x ) ,x ,0 . 0 1 , 5 ) , l o gx=t r u e )$ C o n s u l t et a m b i n` l o g a' y `l o g z ' .
O p c i ng r f i c a :l o g y V a l o rp o rd e f e c t o :f a l s e' S i` l o g a' e s `t r u e ' ,e le j e< y >s ed i b u j a r e ne ll o g a r t m i c a e s c a l a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( l o g y=t r u e , e x p l c i t a( e x p( x ) ,x ,0 , 5 ) )$ C o n s u l t et a m b i n` l o g x' y `l o g z ' .
O p c i ng r f i c a :l o g z V a l o rp o rd e f e c t o :f a l s e' S i` l o g z' e s `t r u e ' ,e le j e< z >s ed i b u j a r e ne ll o g a r t m i c a e s c a l a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( l o g z=t r u e , e x p l c i t a( e x p( u^2+v^2 ) ,u ,2 , 2 ,v ,2 , 2 ) )$ C o n s u l t et a m b i n` l o g x' y `l o g a ' .
424/633
28/08/13
O p c i ng r f i c a :n t i c k s V a l o rp o rd e f e c t o :2 9
E n2 d ,` n t i c k s' i n d i c ae ln m e r oi n i c i a ld ep u n t o su t i l i z a d o sp o re l r u t i n ag r f i c aa d a p t a t i v ap a r al o so b j e t o se x p l c i t o s .E st a m b i ne l n m e r od ep u n t o sq u es em u e s t r a ne nl a sc u r v a sp a r a m t r i c a syp o l a r e s . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 2 d' : 'e l i p s e' , 'e x p l c i t a' , 'p a r a m t r i c a' y 'p o l a r' . *` G r 3 d' : 'p a r a m t r i c a' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( t r a n s p a r e n t e=t r u e , e l i p s e( 0 , 0 , 4 , 2 , 0 , 1 8 0 ) , n t i c k s=5 , e l i p s e( 0 , 0 , 4 , 2 , 1 8 0 , 1 8 0 ) )$
O p c i ng r f i c a :p a l e t a V a l o rp o rd e f e c t o :c o l o r" ' P a l e t a 'i n d i c ac m oa s i g n a rn i v e l e sd eg r i se nc o m p o n e n t e sd ec o l o r . S et r a b a j ae nc o n j u n t oc o nl ao p c i n` e n h a n c e d 3 d' e ng r f i c o s3 D ,q u e a s o c i a d o sc a d ap u n t od eu ns u p e r f i c i e sau nn m e r or e a log r i s n i v e l .T a m b i nt r a b a j ac o ni m g e n e se ng r i s .C o n` p a l e t a' ,l o sn i v e l e ss o n t r a n s f o r m a d oe nc o l o r e s . H a yd o sf o r m a sd ed e f i n i re s t a st r a n s f o r m a c i o n e s . E np r i m e rl u g a r ,' p a l e t a 'p u e d es e ru nv e c t o rd el o n g i t u dt r e sc o ns u sc o m p o n e n t e s o s c i l a n d od e s d e3 6h a s t a3 6 ;c a d av a l o re su n n d i c ep a r au n af r m u l a l ac a r t o g r a f ad el o sn i v e l e se nl o sc o l o r e sr o j o ,v e r d eya z u l ,r e s p e c t i v a m e n t e : 0 :01 :0 , 52 :1 3 :4x :x^25 :x^3 6 :x^47 :s q r t( x )8 :s q r t( s q r t( x ) ) 9 :s i n( 9 0 x )1 0 :c o s( 9 0 x )1 1 :|x 0 . 5| 1 2 :( 2 x 1 )^21 3 :s i n( 1 8 0 x )1 4 :|c o s( 1 8 0 x )| 1 5 :s i n( 3 6 0 x )1 6 :c o s( 3 6 0 x )1 7 :|s e n( 3 6 0 x )| 1 8 :|c o s( 3 6 0 x )|1 9 :|s e n( 7 2 0 x )|2 0 :|c o s( 7 2 0 x )| 2 1 :3 x2 2 :3 x 12 3 :3 x 2 2 4 :|3 x 1|2 5 :|3 x 2|2 6 :( 3 x 1 )/2 2 7 :( 3 x 2 )/22 8 :|( 3 x 1 )/2|2 9 :|( 3 x 2 )/2| 3 0 :x / 0 . 3 2 0 . 7 8 1 2 53 1 :2*x 0 . 8 43 2 :4 x ;1 ; 2 x1 , 8 4 ;x / 0 . 0 8 1 1 . 5 3 3 :|2*x-0 , 5|3 4 :2*x3 5 :2*x-0 , 5 3 6 :2*x-1 n m e r o sn e g a t i v o ss i g n i f i c a nc o m p o n e n t ed ec o l o rn e g a t i v o .` P a l e t a=g r i s' y' =p a l e t ad ec o l o r 's o na t a j o sp a r a` p a l e t a=[ 3 , 3 , 3 ]' y ` P a l e t a=[ 7 , 5 , 1 5 ]' ,r e s p e c t i v a m e n t e . E ns e g u n d ol u g a r ,' p a l e t a 'p u e d es e rd e f i n i d ob s q u e d ad et a b l ad eu s u a r i o .E ne s t ec a s o , e lf o r m a t op a r al ac o n s t r u c c i nd eu n at a b l ad eb s q u e d ad el o n g i t u d` n' e s ` P a l e t a=[ C O L O R _ 1 ,C O L O R _ 2 ,. . . ,c o l o r _ n ]' ,d o n d e `c o l o r _ i 'e su n C o l o rb i e nf o r m a d o s( v a s el ao p c i n` c o l o r " ) ,d em a n e r aq u e` C O L O R _ 1' e s a s i g n a d oa ln i v e ld eg r i sb a j oy` c o l o r _ n' a lm sa l t o . E lr e s t od el o sc o l o r e ss ei n t e r p o l a n . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o s : S et r a b a j ae nc o n j u n t oc o nl ao p c i n` e n h a n c e d 3 d' e ng r f i c o s3 D . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e n h a n c e d 3 d=[ z x2*y ,x ,y ,z ] , p a l e t a=[ 3 2 ,8 ,1 7 ] , e x p l c i t a( 2 0*e x p( x^2 y^2 )1 0 ,x ,3 , 3 ,y ,3 , 3 ) )$ T a m b i nt r a b a j ac o ni m g e n e se ng r i s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )i m :a p l i c a r( ' M a t r i z , m a k e L i s t( m a k e L i s t( r a n d o m( 2 0 0 ) ,i ,1 , 3 0 ) ,i ,1 , 3 0 ) )$ ( %I 3 )/*=p a l e t ad ec o l o r ,p o rd e f e c t o*/ d r a w 2 d( i m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ ( %I 4 )d r a w 2 d( g a m a=g r i s ,l ai m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ ( %I 5 )d r a w 2 d( g a m a=[ 1 5 , 2 0 ,4 ] , c o l o r b o x=f a l s e , i m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ ' P a l e t a 'p u e d es e ru n at a b l ad ec o n s u l t ad e f i n i d ou s u a r i o .E ne s t ee j e m p l o , s o nd ec o l o rd eb a j o sv a l o r e sd e' x 'e nr o j o ,yl o sv a l o r e sm sa l t o se na m a r i l l o . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( p a l e t a=[ r o j o ,a z u l ,a m a r i l l o ] , e n h a n c e d 3 d=x , e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) )$
425/633
28/08/13

C o n s u l t et a m b i n` c o l o r b o x' y è n h a n c e d 3 d ' .
O p c i ng r f i c a :p o i n t _ s i z e V a l o rp o rd e f e c t o :1 ` P o i n t _ s i z e' e s t a b l e c ee lt a m a od el o sp u n t o st r a z a d o s .T i e n eq u es e ru nn o n m e r on e g a t i v o . E s t ao p c i nn ot i e n ee f e c t os is ef i j ag r f i c oo p c i n` p o i n t _ t y p e' a' p u n t o ' . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 2 d' : `p u n t o s" . *` G r 3 d' : `p u n t o s" . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( p u n t o s( m a k e L i s t( [ a la z a r( 2 0 ) ,a la z a r( 5 0 ) ] ,k ,1 , 1 0 ) ) , p o i n t _ s i z e=5 , p u n t o s( m a k e L i s t( k ,k ,1 , 2 0 ) ,m a k e L i s t( a la z a r( 3 0 ) ,k ,1 , 2 0 ) ) )$
O p c i ng r f i c a :p o i n t _ t y p e V a l o rp o rd e f e c t o :1 ` P o i n t _ t y p e' i n d i c ac m os em u e s t r a nl o sp u n t o sa i s l a d o s ,e l v a l o rd ee s t ao p c i np u e d es e rc u a l q u i e r n d i c ed en m e r oe n t e r om a y o roi g u a l q u e1 ,oe ln o m b r ed eu ne s t i l od ep u n t o :` $n o n e' ( 1 ) , 'd o t' ( 0 ) , ` P l u s' ( 1 ) , 'm u l t i p l i c a r' ( 2 ) , 'a s t e r i s c o' ( 3 ) , 'c u a d r a d o' ( 4 ) , ` F i l l e d _ s q u a r e' ( 5 ) , 'c r c u l o' ( 6 ) , `f i l l e d _ c i r c l e '( 7 ) , ` U p _ t r i a n g l e' ( 8 ) , `f i l l e d _ u p _ t r i a n g l e" ( 9 ) , `d o w n _ t r i a n g l e '( 1 0 ) , ` F i l l e d _ d o w n _ t r i a n g l e' ( 1 1 ) , `d i a m a n t '( 1 2 )y` f i l l e d _ d i a m a n t' ( 1 3 ) . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 2 d' : `p u n t o s" . *` G r 3 d' : `p u n t o s" . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 0 , 1 0 ] , y r a n g e=[ 0 , 1 0 ] , p o i n t _ s i z e=3 , p o i n t _ t y p e=d i a m a n t , p u n t o s( [ [ 1 , 1 ] ,[ 5 , 1 ] ,[ 9 , 1 ] ] ) , p o i n t _ t y p e=f i l l e d _ d o w n _ t r i a n g l e , p u n t o s( [ [ 1 , 2 ] ,[ 5 , 2 ] ,[ 9 , 2 ] ] ) , p o i n t _ t y p e=a s t e r i s c o , p u n t o s( [ [ 1 , 3 ] ,[ 5 , 3 ] ,[ 9 , 3 ] ] ) , p o i n t _ t y p e=f i l l e d _ d i a m a n t , p u n t o s( [ [ 1 , 4 ] ,[ 5 , 4 ] ,[ 9 , 4 ] ] ) , p o i n t _ t y p e=5 , p u n t o s( [ [ 1 , 5 ] ,[ 5 , 5 ] ,[ 9 , 5 ] ] ) , p o i n t _ t y p e=6 , p u n t o s( [ [ 1 , 6 ] ,[ 5 , 6 ] ,[ 9 , 6 ] ] ) , p o i n t _ t y p e=f i l l e d _ c i r c l e , p u n t o s( [ [ 1 , 7 ] ,[ 5 , 7 ] ,[ 9 , 7 ] ] ) , p o i n t _ t y p e=8 , p u n t o s( [ [ 1 , 8 ] ,[ 5 , 8 ] ,[ 9 , 8 ] ] ) , p o i n t _ t y p e=f i l l e d _ d i a m a n t , p u n t o s( [ [ 1 , 9 ] ,[ 5 , 9 ] ,[ 9 , 9 ] ] ) )$
O p c i ng r f i c a :p o i n t s _ j o i n e d V a l o rp o rd e f e c t o :f a l s e' C u a n d o` p o i n t s _ j o i n e d' e s `t r u e ' ,l o sp u n t o se s t nu n i d o sp o rl n e a s ,c u a n d o ' F a l s e ' ,s ed i b u j a np u n t o sa i s l a d o s .U nt e r c e rv a l o rp o s i b l ep a r a E s t ao p c i ng r f i c ae s' i m p u l s o s ' ,e nc u y oc a s o ,s e g m e n t o sv e r t i c a l e s s ee x t r a e nd ep u n t o sp a r ae le j ex( 2 D )op a r ae lp l a n ox y( 3 D ) . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 2 d' : `p u n t o s" . *` G r 3 d' : `p u n t o s" . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 0 , 1 0 ] , y r a n g e=[ 0 , 4 ] , p o i n t _ s i z e=3 , p o i n t _ t y p e=u p _ t r i a n g l e , c o l o r=b l u e ,
426/633
28/08/13

p u n t o s( [ [ 1 , 1 ] ,[ 5 , 1 ] ,[ 9 , 1 ] ] ) , p o i n t s _ j o i n e d=t r u e , p o i n t _ t y p e=s q u a r e , l i n e _ t y p e=p u n t o s , p u n t o s( [ [ 1 , 2 ] ,[ 5 , 2 ] ,[ 9 , 2 ] ] ) , p o i n t _ t y p e=c r c u l o , c o l o r=r e d , l i n e _ w i d t h=7 , p u n t o s( [ [ 1 , 3 ] ,[ 5 , 3 ] ,[ 9 , 3 ] ] ) )$
O p c i ng r f i c a :p r o p o r t i o n a l _ a x e s V a l o rp o rd e f e c t o :n o n e' C u a n d o` p r o p o r t i o n a l _ a x e s' e si g u a la 'x y' o 'x y z' ,u n2 Do3 D e s c e n as ed i b u j ac o ne j e sp r o p o r c i o n a l e sas ur e l a c i n l o n g i t u d e s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E s t ao p c i nf u n c i o n ac o nl av e r s i n4 . 2 . 6os u p e r i o rG n u p l o t . E j e m p l o s : P a r c e l ai n d i v i d u a l2 D . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e l i p s e( 0 , 0 , 1 , 1 , 0 , 3 6 0 ) , t r a n s p a r e n t e=t r u e , c o l o r=b l u e , l i n e _ w i d t h=4 , e l i p s e( 0 , 0 , 2 , 1/2 , 0 , 3 6 0 ) , p r o p o r t i o n a l _ a x e s=x y )$ G .m l t i p l e . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w( T e r m i n a l=w x t , g r 2 d( p r o p o r t i o n a l _ a x e s=x y , e x p l c i t a( x^2 ,x ,0 , 1 ) ) , g r 2 d( e x p l c i t a( x^2 ,x ,0 , 1 ) , x r a n g e=[ 0 , 1 ] , y r a n g e=[ 0 , 2 ] , p r o p o r t i o n a l _ a x e s=x y ) , g r 2 d( e x p l c i t a( x^2 ,x ,0 , 1 ) )
O p c i ng r f i c a :s u r f a c e _ h i d e V a l o rp o rd e f e c t o :f a l s e' S i` s u r f a c e _ h i d e' e s `t r u e ' ,p a r t e so c u l t a sn os er e p r e s e n t a ne n3 d s u p e r f i c i e s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )E m p a t e( c o l u m n a s=2 , g r 3 d( e x p l c i t a( e x p( s i n( x )+c o s( x^2 ) ) ,x ,3 , 3 ,y ,3 , 3 ) ) , g r 3 d( s u r f a c e _ h i d e=t r u e , e x p l c i t a( e x p( s i n( x )+c o s( x^2 ) ) ,x ,3 , 3 ,y ,3 , 3 ) ) )$
O p c i ng r f i c a :T e r m i n a l V a l o rp o rd e f e c t o :` s c r e e n' S e l e c c i o n el at e r m i n a lp a r as e ru t i l i z a d op o rG n u p l o t ;v a l o r e sp o s i b l e ss o n : ` S c r e e n' ( p o rd e f e c t o ) , 'p n g' , `p n g c a i r o ' ,' j p g ' ,' c l i p ' ,` e p s _ c o l o r' , ' P d f ' ,` p d f c a i r o' , 'g i f' , 'a n i m a t e d _ g i f' , `w x t ' ,' s v g ' ,y ` A q u a t e r m' . T e r m i n a l e s` s c r e e n' , `w x t 'y` a q u a t e r m' t a m b i ns ep u e d e nd e f i n i rc o m ou n u n al i s t ac o nd o se l e m e n t o s :e ln o m b r ed el at e r m i n a le ns yu nn o n m e r oe n t e r on e g a t i v o .D ee s t af o r m a ,v a r i a sv e n t a n a sp u e d e ns e r a b i e r t oa lm i s m ot i e m p o ,c a d au n ac o ns un m e r oc o r r e s p o n d i e n t e .E s t e c a r a c t e r s t i c an of u n c i o n ae np l a t a f o r m a sW i n d o w s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .P u e d et a m b i ns e ru t i l i z a d oc o m ou na r g u m e n t od e f u n c i n` d i b u j a r' . N Bp d f c a i r or e q u i e r eG n u p l o t4 . 3om sr e c i e n t e .' P d f 'r e q u i e r e G n u p l o tp a r as e rc o m p i l a d oc o nl ao p c i n` -e n a b l e p d f' yl i b p d f d e b es e ri n s t a l a d o .L ab i b l i o t e c ap d fe s t d i s p o n i b l ee n : ` H t t p : / / w w w . p d f l i b . c o m / e n / d o w n l o a d / p d f l i b f a m i l y / p d f l i b l i t e /'
427/633
28/08/13
E j e m p l o s :
( %I 1 )l o a d( d r a w )$ ( %I 2 )/*t e r m i n a ld ep a n t a l l a( p o rd e f e c t o )*/ d r a w 2 d( e x p l c i t a( x^2 ,x ,1 , 1 ) )$ ( %I 3 )/*p n g*/ d r a w 2 d( t e r m i n a l=' p n g , e x p l c i t a( x^2 ,x ,1 , 1 ) )$ ( %I 4 )/*j p g*/ d r a w 2 d( t e r m i n a l=' j p g , d i m e n s i o n e s=[ 3 0 0 , 3 0 0 ] , e x p l c i t a( x^2 ,x ,1 , 1 ) )$ ( %I 5 )/*e p s*/ d r a w 2 d( n o m b r e _ a r c h i v o=" m i a r c h i v o " , e x p l c i t a( x^2 ,x ,1 , 1 ) , T e r m i n a l=' e p s )$ ( %I 6 )/*p d fa r c h i v o*/ d r a w 2 d( n o m b r e _ a r c h i v o=" m y p d f " , D i m e n s i o n e s=1 0 0*[ 1 2 . 0 , 8 . 0 ] , e x p l c i t a( x^2 ,x ,1 , 1 ) , T e r m i n a l=' p d f )$ ( %I 7 )V e n t a n a/*w x w i d g e t s*/ d r a w 2 d( e x p l c i t a( x^2 ,x ,1 , 1 ) , T e r m i n a l=' w x t )$ V a r i a sv e n t a n a s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^5 ,x ,2 , 2 ) ,l at e r m i n a l=[ P a n t a l l a ,3 ] )$ ( %I 3 )d r a w 2 d( e x p l c i t a( x^2 ,x ,2 , 2 ) ,l at e r m i n a l=[ P a n t a l l a ,0 ] )$ U na r c h i v oG I Fa n i m a d o . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w( d e l a y=1 0 0 , n o m b r e _ a r c h i v o=" z z z " , T e r m i n a l=' a n i m a t e d _ g i f , g r 2 d( e x p l c i t a( x^2 ,x ,1 , 1 ) ) , g r 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) ) , g r 2 d( e x p l c i t a( x^4 ,x ,1 , 1 ) ) ) ; F i nd el as e c u e n c i ad ea n i m a c i n ( %O 2 )[ g r 2 d( e x p l c i t a ) ,g r 2 d( e x p l c i t a ) ,g r 2 d( e x p l c i t a ) ] O p c i n` d e l a y' s l oe s t a c t i v ae ng i f sa n i m a d o s ,s i n oq u es et i e n ee nc u e n t ae n c u a l q u i e ro t r oc a s o . V a s et a m b i n' n o m b r e _ a r c h i v o ' ,` d i m e n s i o n e s' y 'r e t r a s o' .
O p c i ng r f i c a :t t u l o V a l o rp o rd e f e c t o :" "" ( c a d e n av a c a ) O p c i n` t i t l e' ,u n ac a d e n a ,e se lt t u l op r i n c i p a ld el ae s c e n a .P o r d e f e c t o ,n i n g nt t u l os ee s c r i b e . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( e x p( u ) ,u ,2 , 2 ) , t i t l e=" F u n c i ne x p o n e n c i a l " )$
O p c i ng r f i c a :t r a n s f o r m a r V a l o rp o rd e f e c t o :n o n e' S i` t r a n s f o r m a c i n' e s 'n o n e' ,e le s p a c i on os et r a n s f o r m ayg r f i c o L o so b j e t o ss ed i b u j a nc o m os eh ad e f i n i d o .C u a n d ou ne s p a c i od et r a n s f o r m a c i ne s d e s e a ,l al i s t ad e b es e ra s i g n a d oal ao p c i n' t r a n s f o r m a d a ' .E nc a s od e u n ae s c e n a2 D ,l al i s t at o m al af o r m a` [ f 1( x ,y ) ,f 2( x ,y ) ,x ,y ]' . E nc a s od eu n ae s c e n a3 D ,l al i s t ae sd el af o r m a` [ f 1( x ,y ,z ) , f 2( x ,y ,z ) ,f 3( x ,y ,z ) ,x ,y ,z ]' . L o sn o m b r e sd el a sv a r i a b l e sd e f i n i d a se nl a sl i s t a sp u e d e ns e rd i f e r e n t e s al o su t i l i z a d o se nl a sd e f i n i c i o n e sd el o so b j e t o sg r f i c o s . E j e m p l o s : R o t a c i ne n2 D . ( %I 1 )l o a d( d r a w )$ ( %I 2 )t h : %p i/4$ ( %I 3 )d r a w 2 d( c o l o r=" #e 2 4 5 f 0 " , p r o p o r t i o n a l _ a x e s=' x y , l i n e _ w i d t h=8 , t r i n g u l o( [ 3 , 2 ] ,[ 7 , 2 ] ,[ 5 , 5 ] ) , b o r d e r=f a l s o , f i l l _ c o l o r=a m a r i l l o , t r a n s f o r m a r=[ c o s( t )*x-s e n( t )*y ,
428/633
28/08/13

s i n( t )*x+c o s( t )*y ,x ,y ] , t r i n g u l o( [ 3 , 2 ] ,[ 7 , 2 ] ,[ 5 , 5 ] ) )$ T r a d u c c i ne n3 D . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( c o l o r=" #a 0 2 c 0 0 " , e x p l c i t a( 2 0*e x p( x^2 y^2 )1 0 ,x ,3 , 3 ,y ,3 , 3 ) , t r a n s f o r m a r=[ x1 0 ,y1 0 ,1 0z ,x ,y ,z ] , c o l o r=b l u e , e x p l c i t a( 2 0*e x p( x^2 y^2 )1 0 ,x ,3 , 3 ,y ,3 , 3 ) )$
O p c i ng r f i c a :t r a n s p a r e n t e V a l o rp o rd e f e c t o :f a l s e' S i` t r a n s p a r e n t e' e s `t r u e ' ,l a sr e g i o n e si n t e r i o r e sd el o sp o l g o n o ss o n l l e n a d od ea c u e r d oc o n` f i l l _ c o l o r' . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 2 d' : 'p o l g o n o' , 'r e c t n g u l o' y è l i p s e . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( p o l g o n o( [ [ 3 , 2 ] ,[ 7 , 2 ] ,[ 5 , 5 ] ] ) , t r a n s p a r e n t e=t r u e , c o l o r=b l u e , p o l g o n o( [ [ 5 , 2 ] ,[ 9 , 2 ] ,[ 7 , 5 ] ] ) )$
O p c i ng r f i c a :t u b e _ e x t r e m e s V a l o rp o rd e f e c t o :[ a b i e r t o ,a b i e r t o ]' U n al i s t ac o nd o se l e m e n t o sp o s i b l e s ,` a b i e r t o' y 'c e r r a d o' ,l oq u ei n d i c a s il o se x t r e m o sd eu no b j e t o` t u b o' g r f i c op e r m a n e c e na b i e r t a so d e b es e rc e r r a d o .D ef o r m ap r e d e t e r m i n a d a ,l o sd o se x t r e m o ss ed e j a na b i e r t a s . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( t u b e _ e x t r e m e s=[ a b i e r t o ,c e r r a d o ] , t u b o( 0 ,0 ,A ,1 , u n ,0 ,8 ) )$
O p c i ng r f i c a :u n i t _ v e c t o r s V a l o rp o rd e f e c t o :f a l s e' S i` u n i t _ v e c t o r s' e s `t r u e ' ,l o sv e c t o r e ss ed i b u j a nc o ne lm d u l o1 . E s t oe s t i lp a r ae lt r a z a d od el o sc a m p o sd ev e c t o r e s .S i` u n i t _ v e c t o r s' e s ' F a l s e ' ,l o sv e c t o r e ss ed i b u j a nc o ns ul o n g i t u do r i g i n a l . E s t ao p c i ns l oe sr e l e v a n t ep a r ao b j e t o s` v e c t o r i a l e s . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 1 , 6 ] , y r a n g e=[ 1 , 6 ] , h e a d _ l e n g t h=0 , 1 , v e c t o r( [ 0 , 0 ] ,[ 5 , 2 ] ) , u n i t _ v e c t o r s=t r u e , c o l o r=r e d , v e c t o r( [ 0 , 3 ] ,[ 5 , 2 ] ) )$
O p c i ng r f i c a :u s e r _ p r e a m b l e V a l o rp o rd e f e c t o :" "" ( c a d e n av a c a ) L o su s u a r i o se x p e r t o sG n u p l o tp u e d e nh a c e ru s od ee s t ao p c i np a r aa j u s t a r E lc o m p o r t a m i e n t od eG n u p l o te s c r i b i e n d oc o n f i g u r a c i nq u es ee n v i a r a n t e sd el a ` T r a m a' o `s p l o t 'c o m a n d o . E lv a l o rd ee s t ao p c i nd e b es e ru n ac a d e n aou n al i s t ad ec a d e n a s ( U n op o rl n e a ) . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : E lt e r m i n a ln oi n t e l i g e n t en oe ss o p o r t a d op o rp a q u e t e` d r a w' ,p e r oe s p o s i b l ee s t a b l e c e rq u e ,h a c i e n d ou s od el ao p c i n` u s e r _ p r e a m b l e' , ( %I 1 )l o a d( d r a w )$
429/633
28/08/13

( %I 2 )d r a w 2 d( e x p l c i t a( e x p( x )1 ,x ,1 , 1 ) , p a r a m t r i c o( c o s( u ) ,s i n( u ) ,u ,0 , 2* %p i ) , u s e r _ p r e a m b l e=" s e tt e r m i n a lt o n t a " )$
O p c i ng r f i c a :v i s t a V a l o rp o rd e f e c t o :[ 6 0 , 3 0 ]' U np a rd e n g u l o s ,m e d i d ae ng r a d o s ,l oq u ei n d i c al av i s t a d i r e c c i ne nu n ae s c e n a3 D .E lp r i m e r oe se l n g u l od er o t a c i nv e r t i c a l a l r e d e d o rd e le j e< x > ,e ne li n t e r v a l o[ 0 ,1 8 0 ] .E ls e g u n d oe se l r o t a c i nh o r i z o n t a la l r e d e d o rd e le j e< z > ,e ne li n t e r v a l o[ 0 ,3 6 0 ] . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( v i e w=[ 1 7 0 ,3 6 0 ] , e x p l c i t a( s i n( x^2+y^2 ) ,x ,2 , 2 ,y ,2 , 2 ) )$
O p c i ng r f i c a :w i r e d _ s u r f a c e V a l o rp o rd e f e c t o :f a l s e' I n d i c as il a ss u p e r f i c i e s3 De nm o d o` e n h a n c e d 3 d' m u e s t r a nl ar e d j o i n n i n gl o sp u n t o son o . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e n h a n c e d 3 d=[ s i n( x ) ,x ,y ] , w i r e d _ s u r f a c e=t r u e , e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) )$
O p c i ng r f i c a :x _ v o x e l V a l o rp o rd e f e c t o :1 0 ` X _ v o x e l' e se ln m e r od ev o x e l se nl ad i r e c c i nxp a r as e ru t i l i z a d op o r e la l g o r i t m om a r c h i n gc u b e si m p l e m e n t a d op o re l3 D' i m p l c i t a ' o b j e t o .T a m b i ns eu t i l i z ap o re lg r f i c o` z o n ad eo b j e t o' .
O p c i ng r f i c a :x a x i s V a l o rp o rd e f e c t o :f a l s e' S i` e j ex' e s `t r u e ' ,s ed i b u j ae le j e< x > . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) , e j ex=t r u e , x a x i s _ c o l o r=a z u l )$ C o n s u l t et a m b i n` x a x i s _ w i d t h' , `x a x i s _ t y p e 'y` x a x i s _ c o l o r' .
O p c i ng r f i c a :x a x i s _ c o l o r V a l o rp o rd e f e c t o :" n e g r o " ," ` X a x i s _ c o l o r' e s p e c i f i c ae lc o l o rp a r ae le j e< x > .C o n s u l t e` c o l o r "a s a b e nc m os ed e f i n e nl o sc o l o r e s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) , e j ex=t r u e , x a x i s _ c o l o r=r o j o )$ V a s et a m b i n' e j ex ' ,` x a x i s _ w i d t h' y `x a x i s _ t y p e ' .
430/633
28/08/13
O p c i ng r f i c a :x a x i s _ s e c o n d a r y V a l o rp o rd e f e c t o :f a l s e' S i` x a x i s _ s e c o n d a r y' e s `t r u e ' ,l o sv a l o r e sd ef u n c i o n e ss ep u e d e nr e p r e s e n t a rc o n r e s p e c t oa ls e g u n d oe j e< x > ,q u es ed i b u j ae nl ap a r t es u p e r i o rd el a e s c e n a . T e n g ae nc u e n t aq u ee s t ae su n ao p c i ng r f i c al o c a lq u es l oa f e c t aa2 d p a r c e l a s . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( k e y=" A b a j oe le j ex " , e x p l c i t a( x1 ,x ,1 , 2 ) , c o l o r=r e d , k e y=" P o re n c i m ad e le j ex " , x t i c s _ s e c o n d a r y=t r u e , x a x i s _ s e c o n d a r y=t r u e , e x p l c i t a( x^2 ,x ,1 , 1 ) )$ C o n s u l t et a m b i n` x r a n g e _ s e c o n d a r y' , `x t i c s _ s e c o n d a r y ' , X t i c s _ r o t a t e _ s e c o n d a r y` ' , `x t i c s _ a x i s _ s e c o n d a r y" y ` X a x i s _ s e c o n d a r y' .
O p c i ng r f i c a :x a x i s _ t y p e V a l o rp o rd e f e c t o :` p u n t o s " ` X a x i s _ t y p e' i n d i c ac m os em u e s t r ae le j e< x > ;p o s i b l e v a l o r e ss o n` s l i d o' y 'p u n t o s' . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) , e j ex=t r u e , x a x i s _ t y p e=s l i d o )$ V a s et a m b i n' e j ex ' ,` x a x i s _ w i d t h' y `x a x i s _ c o l o r ' .
O p c i ng r f i c a :x a x i s _ w i d t h V a l o rp o rd e f e c t o :1 ` X a x i s _ w i d t h' e sl aa n c h u r ad e le j e< x > .S uv a l o rd e b es e ru n n m e r op o s i t i v o . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) , e j ex=t r u e , x a x i s _ w i d t h=3 )$ V a s et a m b i n' e j ex ' ,` x a x i s _ t y p e' y `x a x i s _ c o l o r ' .
O p c i ng r f i c a :x l a b e l V a l o rp o rd e f e c t o :" "" ( c a d e n av a c a ) O p c i n` x l a b e l' ,u n ac a d e n a ,e sl ae t i q u e t ap a r ae le j e< x > .P o r p o rd e f e c t o ,n ot i e n ee t i q u e t a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x l a b e l=" T i m e " , e x p l c i t a( e x p( u ) ,u ,2 , 2 ) , y l a b e l=" P o b l a c i n " )$ C o n s u l t et a m b i n` y l a b e l' y `z l a b e l ' .
O p c i ng r f i c a :x r a n g e
431/633
28/08/13
V a l o rp o rd e f e c t o :a u t o'
S i` x r a n g e' e s 'a u t o' ,e lr a n g od el ac o o r d e n a d ae s< x > c a l c u l a d oa u t o m t i c a m e n t e . S ie lu s u a r i oq u i e r ee s p e c i f i c a ru ni n t e r v a l op a r a< x > ,s el ed e b ed a rc o m o u n al i s t ad eM a x i m a ,c o m oe n` x r a n g e=[ 2 ,3 ] . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 3 , 5 ] , e x p l c i t a( x^2 ,x ,1 , 1 ) )$ C o n s u l t et a m b i n` y r a n g e' y `z r a n g e ' .
O p c i ng r f i c a :x r a n g e _ s e c o n d a r y V a l o rp o rd e f e c t o :a u t o' S i` x r a n g e _ s e c o n d a r y' e s 'a u t o' ,e lr a n g op a r ae ls e g u n d oe j e< x > s ec a l c u l aa u t o m t i c a m e n t e . S ie lu s u a r i oq u i e r ee s p e c i f i c a ru ni n t e r v a l op a r ae ls e g u n d oe j e< x > ,s e d e b es e rd a d oc o m ou n al i s t ad eM a x i m a ,c o m oe n` x r a n g e _ s e c o n d a r y=[ 2 ,3 ] . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . C o n s u l t et a m b i n` x r a n g e' , `y r a n g e ' ,` z r a n g e' y `y r a n g e _ s e c o n d a r y ' .
O p c i ng r f i c a :x t i c s V a l o rp o rd e f e c t o :a u t o' E s t ao p c i ng r f i c ac o n t r o l al af o r m ae nq u el a sm a r c a ss ed i b u j a r ne ne l e j e< x > . *C u a n d ol ao p c i n` x t i c s' L i m i t aa ls m b o l o< a u t o > ,l a sm a r c a ss o n d i b u j a d oa u t o m t i c a m e n t e . *C u a n d ol ao p c i n` x t i c s' L i m i t aa ls m b o l o< n i n g u n o > ,l a sm a r c a ss o n n od i b u j a d o . *C u a n d ol ao p c i n` x t i c s' e s t l i m i t a d aau nn m e r op o s i t i v o ,s et r a t ad e l ad i s t a n c i ae n t r ed o sm a r c a sc o n s e c u t i v a st i c s . *C u a n d ol ao p c i n` x t i c s' e s t l i m i t a d aau n al i s t ad el o n g i t u dt r e sd e l af o r m a` [ s t a r t ,i n c r ,e n d ]' ,l a sm a r c a ss er e p r e s e n t a nd e ` C o m e n z a r' a 'a c a b a r' c o ni n t e r v a l o sd el o n g i t u di n c r ` ' . *C u a n d ol ao p c i n` x t i c s' e s t l i m i t a d aau nc o n j u n t od en m e r o sd el a f o r m a` { n 1 ,n 2 ,. . . } ,l a sm a r c a ss er e p r e s e n t a nav a l o r e sn 1 `' , ` N 2' ,. . . *C u a n d ol ao p c i n` x t i c s' e s t l i m i t a d aau nc o n j u n t od ep a r e sd el af o r m a ` { [ "L a b e l 1" ,n 1 ] ,[ "l a b e l 2" ,n 2 ] ,. . . }' ,l a sm a r c a s c o r r e s p o n d i e n t e sal o sv a l o r e s` n 1' , `n 2 ' ,. . .s ee t i q u e t a nc o n ` "L a b e l 1" ' , ' "l a b e l 2" ' ,. . . ,r e s p e c t i v a m e n t e . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o s : D e s a c t i v a rt i c s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x t i c s=' n i n g u n a , e x p l c i t a( x^3 ,x ,1 , 1 ) )$ T i c sc a d ac u a r t ou n i d a d e s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x t i c s=1 / 4 , e x p l c i t a( x^3 ,x ,1 , 1 ) )$ T i c sd e3/4a3 / 4e np a s o sd e1 / 8 . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x t i c s=[ 3/4 , 1/8 , 3/4 ] , e x p l c i t a( x^3 ,x ,1 , 1 ) )$ L o st i c se nl o sp u n t o s1/2 ,1/4y3 / 4 . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x t i c s={ 1/2 ,1/4 , 3/4 } , e x p l c i t a( x^3 ,x ,1 , 1 ) )$ E t i q u e t a d at i c s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x t i c s={ [ " a l t a " ,0 , 7 5 ] ,[ " M e d i u m " ,0 ] ,[ " L o w " ,0 , 7 5 ] } ,
432/633
28/08/13

e x p l c i t a( x^3 ,x ,1 , 1 ) )$ C o n s u l t et a m b i n` Y T i c s' y `z t i c s ' .
O p c i ng r f i c a :x t i c s _ a x i s V a l o rp o rd e f e c t o :f a l s e' S i` x t i c s _ a x i s' e s `t r u e ' ,l a sm a r c a sys u se t i q u e t a ss ed i b u j a n s l oal ol a r g od e le j e< x > ,s is et r a t ad el o st i c s` f a l s e' s er e p r e s e n t a ne ne l f r o n t e r a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O p c i ng r f i c a :x t i c s _ r o t a t e V a l o rp o rd e f e c t o :f a l s e' S i` x t i c s _ r o t a t e' e s `t r u e ' ,t i cm a r c ae ne le j e< x >s eg i r a n 9 0g r a d o s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O p c i ng r f i c a :x t i c s _ r o t a t e _ s e c o n d a r y V a l o rp o rd e f e c t o :f a l s e' S i` x t i c s _ r o t a t e _ s e c o n d a r y' e s `t r u e ' ,t i cm a r c ae ne ls e c u n d a r i o e j e< x >s eg i r a n9 0g r a d o s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O p c i ng r f i c a :x t i c s _ s e c o n d a r y V a l o rp o rd e f e c t o :a u t o' E s t ao p c i ng r f i c ac o n t r o l al af o r m ae nq u el a sm a r c a ss ed i b u j a r ne ne l s e g u n d oe j e< x > . C o n s u l t e` x t i c s "p a r au n ad e s c r i p c i nc o m p l e t a .
O p c i ng r f i c a :x t i c s _ s e c o n d a r y _ a x i s V a l o rp o rd e f e c t o :f a l s e' S i` x t i c s _ s e c o n d a r y _ a x i s' e s `t r u e ' ,t i cm a r c ays u se t i q u e t a s s er e p r e s e n t a ns l oal ol a r g od e le j e< x >s e c u n d a r i a ,s ie s` f a l s o' t i c ss er e p r e s e n t a ne nl af r o n t e r a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O p c i ng r f i c a :x u _ g r i d V a l o rp o rd e f e c t o :3 0 ` X u _ g r i d' e se ln m e r od ec o o r d e n a d a sd el ap r i m e r av a r i a b l e( 'x' e ne x p l c i t oy' u 'e ns u p e r f i c i e sp a r a m t r i c a s3 D )p a r ac o n s t r u i rl ar e d d ep u n t o sd em u e s t r a . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 3 d' : è x p l c i t a 'y` p a r a m e t r i c _ s u r f a c e' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( x u _ g r i d=1 0 , y v _ g r i d=5 0 , e x p l c i t a( x^2+y^2 ,x ,3 , 3 ,y ,3 , 3 ) )$ C o n s u l t et a m b i n` y v _ g r i d' .
O p c i ng r f i c a :x y _ f i l e V a l o rp o rd e f e c t o :" "" ( c a d e n av a c a ) ` X y _ f i l e' e se ln o m b r ed e la r c h i v od o n d el a sc o o r d e n a d a ss e r
433/633
28/08/13

s a l v a d od e s p u sd eh a c e rc l i cc o ne lb o t nd e lr a t nyg o l p e a rl a' x ' c l a v e .P o rd e f e c t o ,n oh a yc o o r d e n a d a ss eg u a r d a n . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O p c i ng r f i c a :x y p l a n e V a l o rp o rd e f e c t o :f a l s e' A s i g n ae lp l a n ox ye ne s c e n a s3 D .C u a n d o` x y p l a n e' e s 'f a l s e' , e lp l a n ox ys ec o l o c ad ef o r m aa u t o m t i c a ,c u a n d os et r a t ad eu nn m e r or e a l , e lp l a n ox ys ec r u z ac o ne le j eze ne s t en i v e l .E s t ao p c i nt i e n e n ot i e n ee f e c t oa l g u n oe ne s c e n a s2 D . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( x y p l a n e %=e 2 , e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) )$
O p c i ng r f i c a :y _ v o x e l V a l o rp o rd e f e c t o :1 0 ` Y _ v o x e l' e se ln m e r od ev o x e l se nl ad i r e c c i nyp a r as e ru t i l i z a d op o r e la l g o r i t m om a r c h i n gc u b e si m p l e m e n t a d op o re l3 D' i m p l c i t a ' o b j e t o .T a m b i ns eu t i l i z ap o re lg r f i c o` z o n ad eo b j e t o' .
O p c i ng r f i c a :y a x i s V a l o rp o rd e f e c t o :f a l s e' S i` y a x i s' e s `t r u e ' ,s ed i b u j ae le j e< y > . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) , y a x i s=t r u e , y a x i s _ c o l o r=a z u l )$ C o n s u l t et a m b i n` y a x i s _ w i d t h' , `y a x i s _ t y p e 'y` y a x i s _ c o l o r' .
O p c i ng r f i c a :y a x i s _ c o l o r V a l o rp o rd e f e c t o :" n e g r o " ," ` Y a x i s _ c o l o r' e s p e c i f i c ae lc o l o rp a r ae le j e< y > .C o n s u l t e` c o l o r "a s a b e nc m os ed e f i n e nl o sc o l o r e s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) , y a x i s=t r u e , y a x i s _ c o l o r=r o j o )$ C o n s u l t et a m b i n` y a x i s' , `y a x i s _ w i d t h 'y` y a x i s _ t y p e' .
O p c i ng r f i c a :y a x i s _ s e c o n d a r y V a l o rp o rd e f e c t o :f a l s e' S i` y a x i s _ s e c o n d a r y' e s `t r u e ' ,l o sv a l o r e sd ef u n c i o n e ss ep u e d e nr e p r e s e n t a rc o n r e s p e c t oa ls e g u n d oe j e< y > ,q u es ed i b u j aal ad e r e c h a l a d od el ae s c e n a . T e n g ae nc u e n t aq u ee s t ae su n ao p c i ng r f i c al o c a lq u es l oa f e c t aa2 d p a r c e l a s . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( s i n( x ) ,x ,0 , 1 0 ) ,
434/633
28/08/13

y a x i s _ s e c o n d a r y=t r u e , y t i c s _ s e c o n d a r y=t r u e , c o l o r=b l u e , e x p l c i t a( 1 0 0*s i n( x0 . 1 )2 ,x ,0 , 1 0 ) ) ; C o n s u l t et a m b i n` y r a n g e _ s e c o n d a r y' , `y t i c s _ s e c o n d a r y ' , Y t i c s _ r o t a t e _ s e c o n d a r y` ' y `y t i c s _ a x i s _ s e c o n d a r y ' .
O p c i ng r f i c a :y a x i s _ t y p e V a l o rp o rd e f e c t o :` p u n t o s " ` Y a x i s _ t y p e' i n d i c ac m os em u e s t r ae le j e< y > ;p o s i b l e v a l o r e ss o n` s l i d o' y 'p u n t o s' . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) , y a x i s=t r u e , y a x i s _ t y p e=s l i d o )$ C o n s u l t et a m b i n` y a x i s' , `y a x i s _ w i d t h 'y` y a x i s _ c o l o r' .
O p c i ng r f i c a :y a x i s _ w i d t h V a l o rp o rd e f e c t o :1 ` Y a x i s _ w i d t h' e sl aa n c h u r ad e le j e< y > .S uv a l o rd e b es e ru n n m e r op o s i t i v o . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( x^3 ,x ,1 , 1 ) , y a x i s=t r u e , y a x i s _ w i d t h=3 )$ C o n s u l t et a m b i n` y a x i s' , `y a x i s _ t y p e 'y` y a x i s _ c o l o r' .
O p c i ng r f i c a :y l a b e l V a l o rp o rd e f e c t o :" "" ( c a d e n av a c a ) O p c i n` y l a b e l' ,u n ac a d e n a ,e sl ae t i q u e t ap a r ae le j e< y > .P o r p o rd e f e c t o ,n ot i e n ee t i q u e t a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x l a b e l=" T i m e " , y l a b e l=" P o b l a c i n " , e x p l c i t a( e x p( u ) ,u ,2 , 2 ) )$ V a s et a m b i n' x l a b e l 'y` z l a b e l' .
O p c i ng r f i c a :y r a n g e V a l o rp o rd e f e c t o :a u t o' S i` y r a n g e' e s 'a u t o' ,e lr a n g od el ac o o r d e n a d ae s< y > c a l c u l a d oa u t o m t i c a m e n t e . S ie lu s u a r i oq u i e r ee s p e c i f i c a ru ni n t e r v a l op a r a< y > ,s el ed e b ed a rc o m o u n al i s t ad eM a x i m a ,c o m oe n` y r a n g e=[ 2 ,3 ] . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( y r a n g e=[ 2 , 3 ] , e x p l c i t a( x^2 ,x ,1 , 1 ) , x r a n g e=[ 3 , 3 ] )$ C o n s u l t et a m b i n` x r a n g e' , `y r a n g e _ s e c o n d a r y 'y` z r a n g e' .
435/633
28/08/13
O p c i ng r f i c a :y r a n g e _ s e c o n d a r y V a l o rp o rd e f e c t o :a u t o'
S i` y r a n g e _ s e c o n d a r y' e s 'a u t o' ,e lr a n g op a r ae ls e g u n d oe j e< y > s ec a l c u l aa u t o m t i c a m e n t e . S ie lu s u a r i oq u i e r ee s p e c i f i c a ru ni n t e r v a l op a r ae ls e g u n d oe j e< y > ,s e d e b es e rd a d oc o m ou n al i s t ad eM a x i m a ,c o m oe n` y r a n g e _ s e c o n d a r y=[ 2 ,3 ] . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( s i n( x ) ,x ,0 , 1 0 ) , y a x i s _ s e c o n d a r y=t r u e , y t i c s _ s e c o n d a r y=t r u e , y r a n g e=[ 3 ,3 ] , y r a n g e _ s e c o n d a r y=[ 2 0 ,2 0 ] , c o l o r=b l u e , e x p l c i t a( 1 0 0*s i n( x0 . 1 )2 ,x ,0 , 1 0 ) )$ C o n s u l t et a m b i n` x r a n g e' , `y r a n g e 'y` z r a n g e' .
O p c i ng r f i c a :Y T i c s V a l o rp o rd e f e c t o :a u t o' E s t ao p c i ng r f i c ac o n t r o l al af o r m ae nq u el a sm a r c a ss ed i b u j a r ne ne l e j e< y > . C o n s u l t e` x t i c s "p a r au n ad e s c r i p c i nc o m p l e t a .
O p c i ng r f i c a :y t i c s _ a x i s V a l o rp o rd e f e c t o :f a l s e' S i` y t i c s _ a x i s' e s `t r u e ' ,l a sm a r c a sys u se t i q u e t a ss ed i b u j a n s l oal ol a r g od e le j e< y > ,s is et r a t ad el o st i c s` f a l s e' s er e p r e s e n t a ne ne l f r o n t e r a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O p c i ng r f i c a :y t i c s _ r o t a t e V a l o rp o rd e f e c t o :f a l s e' S i` y t i c s _ r o t a t e' e s `t r u e ' ,t i cm a r c ae ne le j e< y >s eg i r a n 9 0g r a d o s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O p c i ng r f i c a :y t i c s _ r o t a t e _ s e c o n d a r y V a l o rp o rd e f e c t o :f a l s e' S i` y t i c s _ r o t a t e _ s e c o n d a r y' e s `t r u e ' ,t i cm a r c ae ne ls e c u n d a r i o e j e< y >s eg i r a n9 0g r a d o s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O p c i ng r f i c a :y t i c s _ s e c o n d a r y V a l o rp o rd e f e c t o :a u t o' E s t ao p c i ng r f i c ac o n t r o l al af o r m ae nq u el a sm a r c a ss ed i b u j a r ne ne l s e g u n d oe j e< y > . C o n s u l t e` x t i c s "p a r au n ad e s c r i p c i nc o m p l e t a .
O p c i ng r f i c a :y t i c s _ s e c o n d a r y _ a x i s V a l o rp o rd e f e c t o :f a l s e' S i` y t i c s _ s e c o n d a r y _ a x i s' e s `t r u e ' ,t i cm a r c ays u se t i q u e t a s s er e p r e s e n t a ns l oal ol a r g od e le j e< y >s e c u n d a r i a ,s ie s` f a l s o'
436/633
28/08/13

t i c ss er e p r e s e n t a ne nl af r o n t e r a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O p c i ng r f i c a :y v _ g r i d V a l o rp o rd e f e c t o :3 0 ` Y v _ g r i d' e se ln m e r od ec o o r d e n a d a sd el as e g u n d av a r i a b l e( `y ' e ne x p l c i t oy` v' e ns u p e r f i c i e sp a r a m t r i c a s3 D )p a r ac o n s t r u i rl ar e d d ep u n t o sd em u e s t r a . E s t ao p c i na f e c t aal o ss i g u i e n t e so b j e t o sg r f i c o s : *` G r 3 d' : è x p l c i t a 'y` p a r a m e t r i c _ s u r f a c e' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( x u _ g r i d=1 0 , y v _ g r i d=5 0 , e x p l c i t a( x^2+y^2 ,x ,3 , 3 ,y ,3 , 3 ) )$ C o n s u l t et a m b i n` x u _ g r i d' .
O p c i ng r f i c a :z _ v o x e l V a l o rp o rd e f e c t o :1 0 ` Z _ v o x e l' e se ln m e r od ev o x e l se nl ad i r e c c i nzp a r as e ru t i l i z a d op o r e la l g o r i t m om a r c h i n gc u b e si m p l e m e n t a d op o re l3 D' i m p l c i t a ' o b j e t o .
O p c i ng r f i c a :z a x i s V a l o rp o rd e f e c t o :f a l s e' S i` z a x i s' e s `t r u e ' ,e le j e< z >s ed i b u j ae ng r f i c o s3 D .E s t e o p c i nn ot i e n ee f e c t oa l g u n oe ne s c e n a s2 D . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) , z a x i s=t r u e , z a x i s _ t y p e=s l i d a , z a x i s _ c o l o r=a z u l )$ C o n s u l t et a m b i n` z a x i s _ w i d t h' , `z a x i s _ t y p e 'y` z a x i s _ c o l o r' .
O p c i ng r f i c a :z a x i s _ c o l o r V a l o rp o rd e f e c t o :" n e g r o " ," ` Z a x i s _ c o l o r' e s p e c i f i c ae lc o l o rp a r ae le j e< z > .C o n s u l t e` c o l o r "a s a b e nc m os ed e f i n e nl o sc o l o r e s .E s t ao p c i nn ot i e n en i n g ne f e c t oe n2 D e s c e n a s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) , z a x i s=t r u e , z a x i s _ t y p e=s l i d a , z a x i s _ c o l o r=r o j o )$ C o n s u l t et a m b i n` z a x i s' , `z a x i s _ w i d t h 'y` z a x i s _ t y p e' .
O p c i ng r f i c a :z a x i s _ t y p e V a l o rp o rd e f e c t o :` p u n t o s " ` Z a x i s _ t y p e' i n d i c ac m os em u e s t r ae le j e< z > ;p o s i b l e v a l o r e ss o n` s l i d o' y 'p u n t o s' .E s t ao p c i nn ot i e n en i n g ne f e c t oe n2 D e s c e n a s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
437/633
28/08/13
E j e m p l o :
( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) , z a x i s=t r u e , z a x i s _ t y p e=s l i d o )$ C o n s u l t et a m b i n` z a x i s' , `z a x i s _ w i d t h 'y` z a x i s _ c o l o r' .
O p c i ng r f i c a :z a x i s _ w i d t h V a l o rp o rd e f e c t o :1 ` Z a x i s _ w i d t h' e sl aa n c h u r ad e le j e< z > .S uv a l o rd e b es e ru n n m e r op o s i t i v o .E s t ao p c i nn ot i e n ee f e c t oa l g u n oe ne s c e n a s2 D . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) , z a x i s=t r u e , z a x i s _ t y p e=s l i d a , z a x i s _ w i d t h=3 )$ C o n s u l t et a m b i n` z a x i s' , `z a x i s _ t y p e 'y` z a x i s _ c o l o r' .
O p c i ng r f i c a :z l a b e l V a l o rp o rd e f e c t o :" "" ( c a d e n av a c a ) O p c i n` z l a b e l' ,u n ac a d e n a ,e sl ae t i q u e t ap a r ae le j e< z > .P o r p o rd e f e c t o ,n ot i e n ee t i q u e t a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( z l a b e l=" Zv a r i a b l e " , y l a b e l=v a r i a b l e" Y " , e x p l c i t a( s i n( x^2+y^2 ) ,x ,2 , 2 ,y ,2 , 2 ) , x l a b e l=" Xv a r i a b l e " )$ V a s et a m b i n' x l a b e l 'y` y l a b e l' .
O p c i ng r f i c a :z r a n g e V a l o rp o rd e f e c t o :a u t o' S i` z r a n g e' e s 'a u t o' ,e lr a n g od el ac o o r d e n a d ae s< z > c a l c u l a d oa u t o m t i c a m e n t e . S ie lu s u a r i oq u i e r ee s p e c i f i c a ru ni n t e r v a l op a r a< z > ,s el ed e b ed a rc o m o u n al i s t ad eM a x i m a ,c o m oe n` z r a n g e=[ 2 ,3 ] . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( y r a n g e=[ 3 , 3 ] , z r a n g e=[ 2 , 5 ] , e x p l c i t a( x^2+y^2 ,x ,1 , 1 ,y ,1 , 1 ) , x r a n g e=[ 3 , 3 ] )$ C o n s u l t et a m b i n` x r a n g e' y `y r a n g e ' .
O p c i ng r f i c a :z t i c s V a l o rp o rd e f e c t o :a u t o' E s t ao p c i ng r f i c ac o n t r o l al af o r m ae nq u el a sm a r c a ss ed i b u j a r ne ne l e j e< z > . C o n s u l t e` x t i c s "p a r au n ad e s c r i p c i nc o m p l e t a .
O p c i ng r f i c a :z t i c s _ a x i s V a l o rp o rd e f e c t o :f a l s e'
438/633
28/08/13

S i` z t i c s _ a x i s' e s `t r u e ' ,l a sm a r c a sys u se t i q u e t a ss ed i b u j a n s l oal ol a r g od e le j e< z > ,s is et r a t ad el o st i c s` f a l s e' s er e p r e s e n t a ne ne l f r o n t e r a . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O p c i ng r f i c a :z t i c s _ r o t a t e V a l o rp o rd e f e c t o :f a l s e' S i` z t i c s _ r o t a t e' e s `t r u e ' ,t i cm a r c ae ne le j e< z >s eg i r a n 9 0g r a d o s . D a d oq u ee s t ae su n ao p c i ng l o b a l ,s up o s i c i ne nl ae s c e n a D e s c r i p c i nn oi m p o r t a .
O b j e t og r f i c o :b a r e s( [ < x 1 > ,< h 1 > ,< w 1 > ] ,[ < x 2 > ,< h 2 > ,< w 2 > ,. . . ] ) D i b u j ab a r r a sv e r t i c a l e se n2 D . 2 D ` B a r e s( [ < x 1 > ,< h 1 > ,< w 1 > ] ,[ < x 2 > ,< h 2 > ,< w 2 > ,. . . ] )' d i b u j ab a r r a s c e n t r a d oe nl o sv a l o r e s< x 1 > ,< x 2 > ,. . .c o na l t u r a s< h 1 > ,< h 2 > ,. . . ya n c h o sd e< w 1 > ,< w 2 > ,. . . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s :' c l a v e ' , F i l l _ c o l o r` ' , `f i l l _ d e n s i t y 'y` l i n e _ w i d t h' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( k e y=" G r u p oA " , f i l l _ c o l o r=a z u l , f i l l _ d e n s i t y=0 , 2 , b a r e s( [ 0 . 8 , 5 , 0 . 4 ] ,[ 1 . 8 , 7 , 0 . 4 ] ,[ 2 . 8 ,4 , 0 . 4 ] ) , k e y=" G r u p oB " , f i l l _ c o l o r=r e d , f i l l _ d e n s i t y=0 , 6 , l i n e _ w i d t h=4 , b a r e s( [ 1 . 2 , 4 , 0 . 4 ] ,[ 2 . 2 ,2 , 0 . 4 ] ,[ 3 . 2 , 5 , 0 . 4 ] ) , e j ex=t r u e ) ;
O b j e t og r f i c o :c i l n d r i c a( < r a d i o > ,< z > ,< m i n z > ,< m a x z > ,< a z i > ,< m i n a z i > ,< m a x a z i > ) D i b u j af u n c i o n e s3 Dd e f i n i d a se nc o o r d e n a d a sc i l n d r i c a s . 3 D ` C i l n d r i c a( < r a d i o > ,< z > ,< m i n z > ,< m a x z > ,< a z i > ,< m i n a z i > , < m a x a z i > )' t r a z al af u n c i n` < r a d i o >( < z > ,< a z i > ) 'd e f i n e ne n c o o r d e n a d a sc i l n d r i c a s ,c o n< z >v a r i a b l e st o m a n d ov a l o r e sd e s d e < m i n z >a< m a x z >ye la z i m u t< a z i >t o m a n d ov a l o r e sd e s d e< m i n a z i >a < m a x a z i > . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : X u _ g r i d` ' , `y v _ g r i d ' ,` l i n e _ t y p e' , 'c l a v e' , `w i r e d _ s u r f a c e ' , ` E n h a n c e d 3 d' y 'C o l o r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( c i l n d r i c a( 1 ,z ,2 , 2 ,a z ,0 , 2* %p i ) )$
O b j e t og r f i c o :e l e v a t i o n _ g r i d( < m a t > ,< x 0 > ,< y 0 > ,< w i d t h > ,< h e i g h t > ) L l a m al am a t r i z< m a t >e ne le s p a c i o3 D .v a l o r e s< z >s et o m a nd e< m a t > , l ag a m ad ea b s c i s a s< x 0 >a< x 0 >+< w i d t h >yo r d e n a d a sd e < y 0 >a< y 0 >+< h e i g h t > .E l e m e n t oa( 1 , 1 )s ep r o y e c t ae ne lp u n t o ( X 0 ,y 0+a l t o ) ,a( 1 ,n )e l( x 0+a n c h o+a l t oy 0 ) ,a( m ,1 )e n( x 0 ,y 0 ) , y( m ,n )e n( x 0+a n c h o ,y 0 ) . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : L i n e _ t y p e` ' , `l i n e _ w i d t h ' ,' c l a v e ' ,` w i r e d _ s u r f a c e' , è n h a n c e d 3 d ' , y' d ec o l o r ' . E nl a sv e r s i o n e sm sa n t i g u a sd eM a x i m a ,` e l e v a t i o n _ g r i d' s el l a m a 'm a l l a' . V a s et a m b i n' m a l l a ' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )m :a p l i c a r( m a t r i z , m a k e L i s t( m a k e L i s t( a l e a t o r i o( 1 0 , 0 ) ,k ,1 , 3 0 ) ,i ,1 , 2 0 ) )$
439/633
28/08/13

( %I 3 )d r a w 3 d( c o l o r=b l u e , e l e v a t i o n _ g r i d( m ,0 , 0 , 3 , 2 ) , x l a b e l=" x " , y l a b e l=" y " , s u r f a c e _ h i d e=t r u e ) ;
O b j e t og r f i c o :e l i p s e( < x c > ,< y c > ,< a > ,< a n g 1 > ,< a n g 2 > ) D i b u j ae l i p s e syc r c u l o se n2 D . 2 D ` E l i p s e( < x c > ,< y c > ,< a > ,< a n g 1 > ,< a n g 2 > )' p a r c e l a sd eu n ae l i p s e c e n t r a d oe n` [ < x c > ,< y c > ]' c o ns e m i e j eh o r i z o n t a lyv e r t i c a l < a >y ,r e s p e c t i v a m e n t e ,ap a r t i rd e< a n g 1 > n g u l oc o nu n a a m p l i t u di g u a la< a n g 2 > n g u l o . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s :n t i c k s` ' , ' T r a n s p a r e n t e ' ,` f i l l _ c o l o r' , 'f r o n t e r a' , `l i n e _ w i d t h ' ,` l i n e _ t y p e' , ` L l a v e' y 'C o l o r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( t r a n s p a r e n t e=f a l s e , f i l l _ c o l o r=r e d , c o l o r=g r a y 3 0 , t r a n s p a r e n t e=f a l s e , l i n e _ w i d t h=5 , e l i p s e( 0 , 6 , 3 , 2 , 2 7 0 ,2 7 0 ) , /*C e n t r o( x ,y ) ,a ,b ,i n i c i oyf i ne ng r a d o s*/ t r a n s p a r e n t e=t r u e , c o l o r=b l u e , l i n e _ w i d t h=3 , e l i p s e( 2 . 5 , 6 , 2 , 3 , 3 0 ,9 0 ) , x r a n g e=[ 3 , 6 ] , y r a n g e=[ 2 , 9 ] )$
O b j e t og r f i c o :e r r o r e s( [ < x 1 > ,< x 2 > ,. . . ] ,[ < y 1 > ,< y 2 > ,. . . ] ) L l a m ap u n t o sc o nb a r r a sd ee r r o r ,h o r i z o n t a l m e n t e ,v e r t i c a l m e n t eoe na m b o s , e nf u n c i nd e lv a l o rd el ao p c i n` t i p o _ e r r o r' . 2 D S i` t i p o _ e r r o r=x' ,l o sa r g u m e n t o sa è r r o r e s 'd e b es e rd el af o r m a ` [ X ,y ,x d e l t a ]' o '[ x ,y ,X L o w ,X H i g h ]' .S i` t i p o _ e r r o r=y' , a r g u m e n t o sd e b e ns e rd el af o r m a` [ x ,y ,y d e l t a ]' o '[ x ,y ,y l o w , y h i g h ]' .S i` t i p o _ e r r o r=x y' o `t i p o _ e r r o r=c a j a s ' ,a r g u m e n t o s a` e r r o r e s' d e b e ns e rd el af o r m a `[ x ,y ,x d e l t a ,y d e l t a ] 'o` [ x , y ,X L o w ,X H i g h ,y l o w ,y h i g h ]' . C o n s u l t et a m b i n` t i p o _ e r r o r' . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : T i p o _ e r r o r` ' , `p o i n t s _ j o i n e d ' ,` l i n e _ w i d t h' , 'c l a v e' , `l i n e _ t y p e ' , C o l o rd e l` ' , `f i l l _ d e n s i t y ' ,` x a x i s _ s e c o n d a r y' y `y a x i s _ s e c o n d a r y ' . O p c i n` f i l l _ d e n s i t y' s l oe sr e l e v a n t ec u a n d o `t i p o _ e r r o r=c a j a s ' . E j e m p l o s : B a r r a sd ee r r o rh o r i z o n t a l e s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( t i p o _ e r r o r=y , e r r o r e s( [ [ 1 , 2 , 1 ] ,[ 3 , 5 , 3 ] ,[ 1 0 , 3 , 1 ] ,[ 1 7 , 6 , 2 ] ] ) )$ B a r r a sd ee r r o rv e r t i c a l e syh o r i z o n t a l e s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( t i p o _ e r r o r=x y , p o i n t s _ j o i n e d=t r u e , c o l o r=b l u e , e r r o r e s( [ [ 1 , 2 , 1 , 2 ] ,[ 3 , 5 , 2 , 1 ] ,[ 1 0 , 3 , 1 , 1 ] ,[ 1 7 , 6 , 1/2 , 2 ] ] ) ) ;
O b j e t og r f i c o :e x p l c i t o s( < f c n > ,< v a r > ,< m i n v a l > ,< m a x v a l > ) O b j e t og r f i c o :e x p l c i t a ( < f c n > ,< v a r 1 > ,< m i n v a l 1 > ,< m a x v a l 1 > ,< v a r 2 > ,< m i n v a l 2 > ,< m a x v a l 2 > ) D i b u j af u n c i o n e se x p l c i t a se n2 Dy3 D . 2 D ' P a r c e l a sf u n c i ne x p l c i t a` e x p l c i t a( < f c n > ,< v a r > ,< m i n v a l > ,< m a x v a l > ) < f c n > ,c o n< v a r >v a r i a b l e st o m a n d ov a l o r e sd e s d e< m i n v a l >a< m a x v a l > .
440/633
28/08/13

E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s :n t i c k s` ' , A d a p t _ d e p t h` ' , `d r a w _ r e a l p a r t ' ,` l i n e _ w i d t h' , `l i n e _ t y p e ' ,' c l a v e ' , F i l l e d _ f u n c` ' , `f i l l _ c o l o r 'y' C o l o r ' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( l i n e _ w i d t h=3 , c o l o r=b l u e , e x p l c i t a( x^2 ,x ,3 , 3 ) )$ ( %I 3 )d r a w 2 d( f i l l _ c o l o r=m a r r n , f i l l e d _ f u n c=t r u e , e x p l c i t a( x^2 ,x ,3 , 3 ) )$ 3 D ` E x p l c i t a( < f c n > ,< v a r 1 > ,< m i n v a l 1 > ,< m a x v a l 1 > ,< v a r 2 > ,< m i n v a l 2 > , < m a x v a l 2 > )' t r a z ae l< f c n >f u n c i ne x p l c i t a ,c o nl av a r i a b l e < v a r 1 >t o m a n d ov a l o r e sd e s d e< m i n v a l 1 >a< m a x v a l 1 >yv a r i a b l e s < v a r 2 >t o m a n d ov a l o r e sd e s d e< m i n v a l 2 >a< m a x v a l 2 > . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : D r a w _ r e a l p a r t` ' , `x u _ g r i d ' ,` y v _ g r i d' , `l i n e _ t y p e ' ,` l i n e _ w i d t h' , ` L l a v e' , `w i r e d _ s u r f a c e ' ,` e n h a n c e d 3 d' ,y 'd ec o l o r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( k e y=" G a u s s " , c o l o r=" #a 0 2 c 0 0 " , e x p l c i t a( 2 0*e x p( x^2 y^2 )1 0 ,x ,3 , 3 ,y ,3 , 3 ) , y v _ g r i d=1 0 , c o l o r=b l u e , k e y=" P l a n e " , e x p l c i t a( x+y ,x ,5 , 5 ,y ,5 , 5 ) , s u r f a c e _ h i d e=t r u e )$ C o n s u l t et a m b i n` f i l l e d _ f u n c' p a r af u n c i o n e sl l e n a s .
O b j e t og r f i c o :i m a g e n( ,< x 0 > ,< y 0 > ,< w i d t h > ,< h e i g h t > ) R e p r e s e n t al a si m g e n e se n2 D . 2 D ` I m a g e n( ,< x 0 > ,< y 0 > ,< w i d t h > ,< h e i g h t > )' p a r c e l a si m a g e ne ne l r e g i nr e c t a n g u l a rd e s d ee lv r t i c e` ( < x 0 > ,< y 0 > ) "p a r a ` ( X 0+< w i d t h > ,y 0+< h e i g h t > )' e ne la v i nr e a l .A r g u m e n t od e b e s e ru n am a t r i zd en m e r o sr e a l e s ,u n am a t r i zd ev e c t o r e sd el o n g i t u dt r e s ou no b j e t o . S ie su n am a t r i zd en m e r o sr e a l e sou no b j e t oP i c t u r e >< l e v e l s , v a l o r e sd el o sp x e l e ss ei n t e r p r e t a ns e g ne lg r f i c oo p c i n' p a l e t a ' , q u ee su nv e c t o rd el o n g i t u dt r e sc o ns u sc o m p o n e n t e sq u ev a nd e s d e3 6 a3 6 , c a d av a l o re su n n d i c ep a r au n af r m u l aq u et r a n s f o r m al o sn i v e l e s e nr o j o ,v e r d eya z u l ,r e s p e c t i v a m e n t e : 0 :01 :0 , 52 :1 3 :4x :x^25 :x^3 6 :x^47 :s q r t( x )8 :s q r t( s q r t( x ) ) 9 :s i n( 9 0 x )1 0 :c o s( 9 0 x )1 1 :|x 0 . 5| 1 2 :( 2 x 1 )^21 3 :s i n( 1 8 0 x )1 4 :|c o s( 1 8 0 x )| 1 5 :s i n( 3 6 0 x )1 6 :c o s( 3 6 0 x )1 7 :|s e n( 3 6 0 x )| 1 8 :|c o s( 3 6 0 x )|1 9 :|s e n( 7 2 0 x )|2 0 :|c o s( 7 2 0 x )| 2 1 :3 x2 2 :3 x 12 3 :3 x 2 2 4 :|3 x 1|2 5 :|3 x 2|2 6 :( 3 x 1 )/2 2 7 :( 3 x 2 )/22 8 :|( 3 x 1 )/2|2 9 :|( 3 x 2 )/2| 3 0 :x / 0 . 3 2 0 . 7 8 1 2 53 1 :2*x 0 . 8 4 3 2 :4 x ;1 ; 2 x1 , 8 4 ;x / 0 . 0 8 1 1 . 5 3 3 :|2*x-0 , 5|3 4 :2*x3 5 :2*x-0 , 5 3 6 :2*x-1 n m e r o sn e g a t i v o ss i g n i f i c a nc o m p o n e n t ed ec o l o rn e g a t i v o . ` P a l e t a=g r i s' y `p a l e t ad ec o l o r e s= 's o na t a j o sp a r a` p a l e t a =[ 3 , 3 , 3 ]' y` p a l e t a=[ 7 , 5 , 1 5 ] ' ,r e s p e c t i v a m e n t e . S ie su n am a t r i zd ev e c t o r e sd el o n g i t u dt r e sou nP i c t u r e >< R G B o b j e t o ,q u es ei n t e r p r e t a nc o m oe lr o j o ,v e r d eya z u l c o m p o n e n t e s . E j e m p l o s : S ie su n am a t r i zd en m e r o sr e a l e s ,l o sv a l o r e sd el o sp x e l e ss ei n t e r p r e t a n s e g nl ao p c i ng r f i c ap a l e t t e` ' . ( %I 1 )l o a d( d r a w )$ ( %I 2 )i m :a p l i c a r( ' M a t r i z , m a k e L i s t( m a k e L i s t( r a n d o m( 2 0 0 ) ,i ,1 , 3 0 ) ,i ,1 , 3 0 ) )$ ( %I 3 )/*=p a l e t ad ec o l o r ,p o rd e f e c t o*/ d r a w 2 d( i m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ ( %I 4 )d r a w 2 d( g a m a=g r i s ,l ai m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ ( %I 5 )d r a w 2 d( g a m a=[ 1 5 , 2 0 ,4 ] , c o l o r b o x=f a l s e , i m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ C o n s u l t et a m b i n` c o l o r b o x' .
441/633
28/08/13

S ie su n am a t r i zd ev e c t o r e sd el o n g i t u dt r e s ,q u es o n i n t e r p r e t a d oc o m oc o m p o n e n t e sd ec o l o ra z u lr o j o ,v e r d ey . ( %I 1 )l o a d( d r a w )$ ( %I 2 )i m :a p l i c a r( ' M a t r i z , m a k e L i s t( m a k e L i s t( [ a l e a t o r i a( 3 0 0 ) , a la z a r( 3 0 0 ) , r a n d o m( 3 0 0 ) ] ,i ,1 , 3 0 ) ,i ,1 , 3 0 ) )$ ( %I 3 )d r a w 2 d( i m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ P a q u e t e` d i b u j a r' c a r g aa u t o m t i c a m e n t e `c u a d r od e lp a q u e t e ' .E ne s t e e j e m p l o ,u n ai m a g e nd en i v e l e ss ec o n s t r u y eam a n oyl u e g op r e s t a d o s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )i m :m a k e _ l e v e l _ p i c t u r e( [ 4 5 , 8 7 , 2 , 1 3 4 , 2 0 4 , 1 6 ] ,3 , 2 ) ; ( %O 2 )i m a g e n( n i v e l3 ,2 ,{ a r r a y :#( 4 58 721 3 42 0 41 6 ) } ) ( %I 3 )/*p a l e t ad ec o l o r e sp o rd e f e c t o*/ d r a w 2 d( i m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ ( %I 4 )/*g r i sp a l e t a*/ d r a w 2 d( g a m a=g r i s , i m a g e n( i m ,0 , 0 , 3 0 , 3 0 ) )$ U na r c h i v oX P Ms el e eyl u e g op r e s t a d o s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )i m :r e a d _ x p m( " m y f i l e . x p m " )$ ( %I 3 )d r a w 2 d( i m a g e n( i m ,0 , 0 , 1 0 , 7 ) )$ C o n s u l t et a m b i n` m a k e _ l e v e l _ p i c t u r e' , `m a k e _ r g b _ p i c t u r e 'y` r e a d _ x p m' . ` H t t p : / / w w w . t e l e f o n i c a . n e t / w e b 2 / b i o m a t e s / m a x i m a / g p d r a w / i m a g e' c o n t i e n ee j e m p l o sm se l a b o r a d o s .
O b j e t og r f i c o :i m p l c i t a( < f c n > ,< x >< x m i n > ,< x m a x > ,< y > ,< y m i n > ,< y m a x > ) O b j e t og r f i c o :i m p l c i t a ( < f c n > ,< x >< x m i n > ,< x m a x > ,< y > ,< y m i n > ,< y m a x > ,< z > ,< z m i n > ,< z m a x > ) D i b u j af u n c i o n e si m p l c i t a se n2 Dy3 D . 2 D ` I m p l c i t a( < f c n > ,< x >< x m i n > ,< x m a x > ,< y > ,< y m i n > ,< y m a x > )' l a sp a r c e l a s f u n c i ni m p l c i t ad e f i n i d ap o r< f c n > ,c o n< x >v a r i a b l e st o m a n d ov a l o r e s d e< x m i n >a< x m a x >y< y >v a r i a b l e st o m a n d ov a l o r e sd e< y m i n > a< y m a x > . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : I p _ g r i d` ' , ì p _ g r i d _ i n ' ,` l i n e _ w i d t h' , `l i n e _ t y p e ' ,' c l a v e 'y C o l o rd e l` ' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( t e r m i n a l=e p s ,u n g r i d=t r u e , l i n e _ t y p e=s l i d a , k e y=" y^2=x^3 2*x1 " , i m p l c i t a( y^2=x^3 2*x1 ,x ,4 , 4 ,y ,4 , 4 ) , l i n e _ t y p e=p u n t o s , k e y=" x^3+y^3=3*x*y^2 x 1 " , i m p l c i t a( x^3+y^3=3*x*y^2 x 1 ,x ,4 , 4 ,y ,4 , 4 ) , t i t l e=" d o sf u n c i o n e si m p l c i t a s " )$ 3 D ` I m p l c i t a( < f c n > ,< x >< x m i n > ,< x m a x > ,< y > ,< y m i n > ,< y m a x > , < z > ,< z m i n > ,< z m a x > )p a r c e l a sd el as u p e r f i c i ei m p l c i t ad e f i n i d ap o r< f c n > , c o n< x >v a r i a b l e st o m a n d ov a l o r e sd e s d e< x m i n >a< x m a x > ,v a r i a b l e s < y >t o m a n d ov a l o r e sd e s d e< y m i n >a< y m a x >yt o m a n d o< z >v a r i a b l e s v a l o r e sd e< z m i n >a< z m a x > .E s t eo b j e t oi m p l e m e n t al am a r c h a A l g o r i t m oc u b o s . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : X _ v o x e l` ' , `y _ v o x e l ' ,` z _ v o x e l' , `l i n e _ w i d t h ' ,` l i n e _ t y p e' , 'c l a v e' , W i r e d _ s u r f a c e` ' , è n h a n c e d 3 d ' ,y' C o l o r ' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( c o l o r=b l u e , i m p l c i t a( ( x^2+y^2+z^2 1 )*( x^2+( y 1 . 5 )^2+z^2 0 , 5 )=0 , 0 1 5 , x ,1 , 1 ,y ,1 . 2 , 2 . 3 ,z ,1 , 1 ) , s u r f a c e _ h i d e=t r u e ) ;
O b j e t og r f i c o :l a b e l( [ < c a d e n a > ,< x >< y > ] ,. . . ) O b j e t og r f i c o :l a b e l( [ < c a d e n a > ,< x >< y > ,< z > ] ,. . . ) G r a b ae t i q u e t a se n2 Dy3 D . E t i q u e t a sd ec o l o r e ss l of u n c i o n a nc o nG n u p l o t4 . 3 .E s t ee su np r o b l e m ac o n o c i d od e p a q u e t e` d i b u j a r' .
442/633
28/08/13

E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : L a b e l _ a l i g n m e n t` ' , `l a b e l _ o r i e n t a t i o n 'y' C o l o r ' . 2 D ` L a b e l( [ < c a d e n a > ,< x >< y > ] ) " ,e s c r i b ee l< c a d e n a >e ne lp u n t o ` [ < x >< y > ] ' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( y r a n g e=[ 0 . 1 , 1 . 4 ] , c o l o r=r e d , e t i q u e t a( [ " E t i q u e t ad er o j o " ,0 , 0 . 3 ] ) , c o l o r=" #0 0 0 0 f f " , e t i q u e t a( [ " E t i q u e t ad ec o l o ra z u l " ,0 , 0 . 6 ] ) , c o l o r=l i g h t _ b l u e , e t i q u e t a( [ " E t i q u e t ad ec o l o ra z u lc l a r o " ,0 , 0 . 9 ] , [ " O t r al u za z u l " ,0 , 1 . 2 ] ) )$ 3 D ` L a b e l( [ < c a d e n a > ,< x >< y > ,< z > ] ) " ,e s c r i b ee l< c a d e n a >e ne lp u n t o ` [ < x >< y > ,< z > ]' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e x p l c i t a( e x p( s i n( x )+c o s( x^2 ) ) ,x ,3 , 3 ,y ,3 , 3 ) , c o l o r=r e d , e t i q u e t a( [ " U P1 " ,2 , 0 , 3 ] ,[ " U P2 " ,1 . 5 , 0 , 4 ] ) , c o l o r=b l u e , e t i q u e t a( [ " D O W N1 " ,2 , 0 ,3 ] ) )$
O b j e t og r f i c o :m a l l a( < r o w _ 1 > ,< r o w _ 2 > ,. . . ) D i b u j au n am a l l ac u a d r a n g u l a re n3 D . 3 D < r o w _ i >A r g u m e n t oe su n al i s t ad e< n >p u n t o s3 Dd el af o r m a ` [ [ X _ i 1 ,y _ i 1 ,z _ i 1 ] ,. . . ,[ x _ i n ,y _ i n ,z _ i n ] ]' ,yt o d a sl a sf i l a ss o nd e i g u a ll o n g i t u d .T o d o se s t o sp u n t o sd e f i n e nu n as u p e r f i c i ea r b i t r a r i ae n3 D ye nc i e r t os e n t i d os et r a t ad eu n ag e n e r a l i z a c i nd e l` e l e v a t i o n _ g r i d' o b j e t o . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : L i n e _ t y p e` ' , `l i n e _ w i d t h ' ,' C o l o r ' ,' c l a v e ' ,` w i r e d _ s u r f a c e' , ` E n h a n c e d 3 d' ,y 't r a n s f o r m a c i n' . E j e m p l o s : U ne j e m p l os e n c i l l o . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( m a l l a s( [ [ 1 , 1 , 3 ] ,[ 7 , 3 , 1 ] ,[ 1 2 ,2 , 4 ] ,[ 1 5 , 0 , 5 ] ] , [ [ 2 , 7 , 8 ] ,[ 4 , 3 , 1 ] ,[ 1 0 , 5 , 8 ] ,[ 1 2 , 7 , 1 ] ] , [ [ 2 , 1 1 , 1 0 ] ,[ 6 , 9 , 5 ] ,[ 6 , 1 5 , 1 ] ,[ 2 0 , 1 5 , 2 ] ] ) )$ T r a z a ru nt r i n g u l oe n3 D . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( l i n e _ w i d t h=2 , m a l l a s( [ [ 1 , 0 , 0 ] ,[ 0 , 1 , 0 ] ] , [ [ 0 , 0 , 1 ] ,[ 0 , 0 , 1 ] ] ) )$ D o sc u a d r i l t e r o s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( s u r f a c e _ h i d e=t r u e , l i n e _ w i d t h=3 , c o l o r=r e d , m a l l a s( [ [ 0 , 0 , 0 ] ,[ 0 , 1 , 0 ] ] , [ [ 2 , 0 , 2 ] ,[ 2 , 2 , 2 ] ] ) , c o l o r=b l u e , m a l l a s( [ [ 0 , 0 , 2 ] ,[ 0 , 1 , 2 ] ] , [ [ 2 , 0 , 4 ] ,[ 2 , 2 , 4 ] ] ) )$
O b j e t og r f i c o :p a r a m t r i c o( < x f u n > ,< y f u n > , , , ) O b j e t og r f i c o :p a r a m t r i c o ( < x f u n > ,< y f u n > ,< z f u n > , , , ) D i b u j af u n c i o n e sp a r a m t r i c a se n2 Dy3 D . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s :n t i c k s` ' , L i n e _ w i d t h` ' , `l i n e _ t y p e ' ,' c l a v e ' ,' C o l o r 'y' e n h a n c e d 3 d ' . 2 D
443/633
28/08/13

E l` p a r a m t r i c ad ec o m a n d o s( < x f u n > ,< y f u n > , , , )' t r a z al af u n c i n` [ < x f u n > ,< y f u n > ]p a r a m t r i c a ' ,c o n p a r m e t r ot o m a n d ov a l o r e sd e s d ea . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( e x p l c i t a( e x p( x ) ,x ,1 , 3 ) , c o l o r=r e d , k e y=" E s t ee se lp a r a m t r i c o ! " p a r a m t r i c a( 2*c o s( r r r ) ,r r r^2 ,r r r ,0 , 2* %p i ) )$ 3 D ` P a r a m t r i c a( < x f u n > ,< y f u n > ,< z f u n > , , , )' t r a z al ac u r v ap a r a m t r i c a` [ < x f u n > ,< y f u n > ,< z f u n > ]' ,c o n p a r m e t r ot o m a n d ov a l o r e sd e s d ea . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e x p l c i t a( e x p( s i n( x )+c o s( x^2 ) ) ,x ,3 , 3 ,y ,3 , 3 ) , c o l o r=r o y a l b l u e , p a r a m t r i c o( c o s( 5*u )^2 ,s i n( 7*u ) ,u 2 ,u ,0 , 2 ) , c o l o r=t u r q u e s a , l i n e _ w i d t h=2 , p a r a m t r i c a( t^2 ,s i n( t ) ,2+t ,t ,0 , 2 ) , s u r f a c e _ h i d e=t r u e , t i t l e=" S u p e r f i c i eyc u r v a s " )$
O b j e t og r f i c o :p a r a m e t r i c _ s u r f a c e( < x f u n > ,< y f u n > ,< z f u n > , , , , , , ) D i b u j as u p e r f i c i e sp a r a m t r i c a se n3 D . 3 D E l` p a r a m e t r i c _ s u r f a c ec o m a n d o s( < x f u n > ,< y f u n > ,< z f u n > , , p a r c e l a s , , , , ) e l s u p e r f i c i e` [ < x f u n > ,< y f u n > ,< z f u n > ]' p a r a m t r i c o ,c o ne lp a r m e t r o t o m a n d ov a l o r e sd e s d eaye lp a r m e t r o t o m a n d ov a l o r e sd e s d ea . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : D r a w _ r e a l p a r t` ' , `x u _ g r i d ' ,` y v _ g r i d' , `l i n e _ t y p e ' ,` l i n e _ w i d t h' , ` L l a v e' , `w i r e d _ s u r f a c e ' ,` e n h a n c e d 3 d' ,y 'd ec o l o r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( t i t l e=" p l a y a " , x u _ g r i d=1 0 0 , y v _ g r i d=2 5 , v e r=[ 1 0 0 , 2 0 ] , s u r f a c e _ h i d e=t r u e , p a r a m e t r i c _ s u r f a c e( 0 . 5*u*c o s( u )*( c o s( v )1 ) , 0 . 5*u*s i n( u )*( c o s( v )1 ) , u*s e n( v )-( ( 3U )/8* %p i )^2-2 0 , u ,0 ,1 3* %p i ,v ,%p i , %p i ) )$
O b j e t og r f i c o :p u n t o s( [ [ < x 1 > ,< y 1 > ] ,[ < x 2 > ,< y 2 > ] ,. . . ] ) O b j e t og r f i c o :p u n t o s( [ < x 1 > ,< x 2 > ,. . . ] ,[ < y 1 > ,< y 2 > ,. . . ] ) O b j e t og r f i c o :p u n t o s( [ < y 1 > ,< y 2 > ,. . . ] ) O b j e t og r f i c o :p u n t o s( [ [ < x 1 > ,< y 1 > ,< z 1 > ] ,[ < x 2 > ,< y 2 > ,< z 2 > ] ,. . . ] ) O b j e t og r f i c o :p u n t o s( [ < x 1 > ,< x 2 > ,. . . ] ,[ < y 1 > ,< y 2 > ,. . . ] ,[ < z 1 > ,< z 2 > ,. . . ] ) O b j e t og r f i c o :p u n t o s( < m a t r i x > ) O b j e t og r f i c o :p u n t o s( < 1 d _ y _ a r r a y > ) O b j e t og r f i c o :p u n t o s( < 1 d _ x _ a r r a y > ,< 1 d _ y _ a r r a y > ) O b j e t og r f i c o :p u n t o s( < 1 d _ x _ a r r a y > ,< 1 d _ y _ a r r a y > ,< 1 d _ z _ a r r a y > ) O b j e t og r f i c o :p u n t o s( < 2 d _ x y _ a r r a y > ) O b j e t og r f i c o :p u n t o s( < 2 d _ x y z _ a r r a y > ) D i b u j ap u n t o se n2 Dy3 D . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : P o i n t _ s i z e` ' , `p o i n t _ t y p e ' ,` p o i n t s _ j o i n e d' , `l i n e _ w i d t h ' ,' c l a v e ' , ` L i n e _ t y p e' y 'C o l o r' .E ne lm o d o3 D ,s i n oq u et a m b i ns ev ea f e c t a d ap o r ` E n h a n c e d 3 d' . 2 D P u n t o sp u n t o s( ` [ [ < x 1 > ,< y 1 > ] ,[ < x 2 > ,< y 2 > ] ,. . . ] )' o ` ( [ < x 1 > ,< x 2 > ,. . . ] ,[ < y 1 > ,< y 2 > ,. . . ] )' P a r c e l a s 'p u n t o s[ x 1 ,y 1 ]' , ` [ X 2 ,y 2 ] " ,e t cS in os ed a nl a sa b s c i s a s ,q u es ee s t a b l e c e ne n e n t e r o sp o s i t i v o sc o n s e c u t i v o s ,p o rl oq u e` p u n t o s( [ < y 1 > ,< y 2 > ,. . . ] )' d i b u j al o sp u n t o s` [ 1 ,< y 1 > ]' , '[ 2 ,< y 2 > ]' ,e t cS i< m a t r i x >e su n d o sc o l u m n a sod o sf i l a sd el am a t r i z ,` p u n t o s( < m a t r i x > )' s e a l aal a a s o c i a d ap u n t o s .S i< m a t r i x >e su n am a t r i zd eu n as o l ac o l u m n aou n as o l af i l a , a b s c i s a ss ea s i g n a na u t o m t i c a m e n t e . S i1 d _ y _ a r r a y< >e su na r r a yl i s p1 Dd en m e r o s ,` p u n t o s ( < > )' 1 d _ y _ a r r a yp a r c e l a se l l a se le s t a b l e c i m i e n t od ea b s c i s a sc o n s e c u t i v o
444/633
28/08/13

e n t e r o sp o s i t i v o s .` P u n t o s( 1 d _ x _ a r r a y< > ,< > )' 1 d _ y _ a r r a yp a r c e l a s p u n t o sc u y a sc o o r d e n a d a ss et o m a nap a r t i rd el o sd o sa r r a y sp a s a d o s c o m o a r g u m e n t o s .S i< 2 d _ x y _ a r r a y >e su na r r a y2 Dc o nd o sc o l u m n a s ,o c o nd o sf i l a s ,` p u n t o s( < > )2 d _ x y _ a r r a y' t r a z al ac o r r e s p o n d i e n t e p u n t o se ne lp l a n o . E j e m p l o s : H a yd o st i p o sd ea r g u m e n t o saf a v o rd e` p u n t o s " ,u n al i s t ad ep a r e syd o sl i s t a s d ec o o r d e n a d a ss e p a r a d a s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( c l a v e=" p e q u e o sp u n t o s " , p u n t o s( m a k e L i s t( [ a la z a r( 2 0 ) ,a la z a r( 5 0 ) ] ,k ,1 , 1 0 ) ) , p o i n t _ t y p e=c r c u l o , p o i n t _ s i z e=3 , p o i n t s _ j o i n e d=t r u e , k e y=" G r e a tp u n t o s " , p u n t o s( m a k e L i s t( k ,k ,1 , 2 0 ) ,m a k e L i s t( a la z a r( 3 0 ) ,k ,1 , 2 0 ) ) , p o i n t _ t y p e=f i l l e d _ d o w n _ t r i a n g l e , c l a v e=" A u t o m t i c o "a b s c i s a s , c o l o r=r e d , p u n t o s( [ 2 , 1 2 , 8 ] ) )$ D i b u j oi m p u l s o s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( p o i n t s _ j o i n e d=i m p u l s o s , l i n e _ w i d t h=2 , c o l o r=r e d , p u n t o s( m a k e L i s t( [ a la z a r( 2 0 ) ,a la z a r( 5 0 ) ] ,k ,1 , 1 0 ) ) )$ M a t r i zc o nc o o r d e n a d a s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )a :m a k e _ a r r a y( f l o n u m ,1 0 0 )$ ( %I 3 )p a r ai :0 9 9h a c e r l oa[ i ] :a la z a r( 1 , 0 )$ ( %I 4 )d r a w 2 d( p u n t o s( a ) )$ D o sm a t r i c e sd ec o o r d e n a d a si n d e p e n d i e n t e s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )x :m a k e _ a r r a y( f l o n u m ,1 0 0 )$ ( %I 3 )y :m a k e _ a r r a y( f i x n u m ,1 0 0 )$ ( %I 4 )p a r ai :0 9 9g u s t a( x[ i ] :f l o a t( I / 1 0 0 ) , y[ i ] :a la z a r( 1 0 ) )$ ( %I 5 )d r a w 2 d( l o sp u n t o s( x ,y ) )$ U na r r a y2 Dd ed o sc o l u m n a s . ( %I 1 )l o a d( d r a w )$ ( %I 2 )x y :m a k e _ a r r a y( f l o n u m ,1 0 0 ,2 )$ ( %I 3 )p a r ai :0 9 9g u s t a( x y[ i ,0 ] :f l o a t( I / 1 0 0 ) , x y[ i ,1 ] :a la z a r( 1 0 ) )$ ( %I 4 )( l e t r a s( x y ) )d r a w 2 d$ D i b u j a n d ou n as e r i el l e n ad ef u n c i n` r e a d _ a r r a y' . ( %I 1 )l o a d( d r a w )$ ( %I 2 )a :m a k e _ a r r a y( f l o n u m ,1 0 0 )$ ( %I 3 )r e a d _ a r r a y( f i l e _ s e a r c h( " p i d i g i t s . d a t a " ) ,a )$ ( %I 4 )d r a w 2 d( p u n t o s( a ) )$ 3 D ` P u n t o s( [ [ < x 1 > ,< y 1 > ,< z 1 > ] ,[ < x 2 > ,< y 2 > ,< z 2 > ] ,. . . ] ) o ` P u n t o s( [ < x 1 > ,< x 2 > ,. . . ] ,[ < y 1 > ,< y 2 > ,. . . ] ,[ < z 1 > ,< z 2 > ,. . . ] )' p a r c e l a sp u n t o s` [ < x 1 > ,< y 1 > ,< z 1 > ]' , '[ < x 2 > ,< y 2 > ,< z 2 > ] " ,e t cS i < m a t r i x >e su n am a t r i zd et r e sc o l u m n a syt r e sf i l a s ,` p u n t o s ( < m a t r i x > )' D i b u j al o sp u n t o sa s o c i a d o s . C u a n d ol o sa r g u m e n t o ss o nm a t r i c e sL i s p ,` p u n t o s( < 1 d _ x _ a r r a y > , < 1 d _ y _ a r r a y > ,< 1 d _ z _ a r r a y > )' t o m al a sc o o r d e n a d a sd el o st r e s1 D m a t r i c e s .S i< 2 d _ x y z _ a r r a y >e su na r r a y2 Dc o nt r e sc o l u m n a s ,o c o nt r e sf i l a s ,` p u n t o s( < > )' 2 d _ x y z _ a r r a yp a r c e l a sc o r r e s p o n d i e n t e sa l p u n t o s . E j e m p l o s : U n am u e s t r at r i d i m e n s i o n a l , ( %I 1 )l o a d( d r a w )$ ( %I 2 )l o a d( n u m e r i c a l i o )$ ( %I 3 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 4 )d r a w 3 d( t i t l e=" v e l o c i d a d e sd ev i e n t om e d i a sd i a r i a s " , p o i n t _ s i z e=2 , p u n t o s( a r g s( s u b m a t r i z( s 2 ,4 ,5 ) ) ) )$ D o sm u e s t r a st r i d i m e n s i o n a l e s , ( %I 1 )l o a d( d r a w )$ ( %I 2 )l o a d( n u m e r i c a l i o )$ ( %I 3 )s 2 :r e a d _ m a t r i x( f i l e _ s e a r c h( " w i n d . d a t a " ) )$ ( %I 4 )d r a w 3 d( t i t l e=" v e l o c i d a d e sd e lv i e n t op r o m e d i od i a r i o .D o sc o n j u n t o sd ed a t o s " , p o i n t _ s i z e=2 , k e y=" M u e s t r ad el a se s t a c i o n e s1 ,2y3 " , p u n t o s( a r g s( s u b m a t r i z( s 2 ,4 ,5 ) ) ) , p o i n t _ t y p e=4 , k e y=" M u e s t r ad el a se s t a c i o n e s1 ,4y5 " , p u n t o s( a r g s( s u b m a t r i z( s 2 ,2 ,3 ) ) ) )$
445/633
28/08/13

A r r a y su n i d i m e n s i o n a l e s , ( %I 1 )l o a d( d r a w )$ ( %I 2 )x :m a k e _ a r r a y( f i x n u m ,1 0 )$ ( %I 3 )y :m a k e _ a r r a y( f i x n u m ,1 0 )$ ( %I 4 )z :m a k e _ a r r a y( f i x n u m ,1 0 )$ ( %I 5 )p a r ai :0 9h a g o( x[ i ] :a la z a r( 1 0 ) , y[ i ] :a la z a r( 1 0 ) , z[ i ] :a la z a r( 1 0 ) )$ ( %I 6 )d r a w 3 d( p u n t o s( x ,y ,z ) )$ G a m ad ec o l o rb i d i m e n s i o n a l , ( %I 1 )l o a d( d r a w )$ ( %I 2 )x y z :m a k e _ a r r a y( f i x n u m ,1 0 ,3 )$ ( %I 3 )p a r ai :0 9h a g o( x y z[ i ,0 ] :a la z a r( 1 0 ) , x y z[ i ,1 ] :a la z a r( 1 0 ) , x y z[ i ,2 ] :a la z a r( 1 0 ) )$ ( %I 4 )d r a w 3 d( e n h a n c e d 3 d=t r u e , p o i n t s _ j o i n e d=t r u e , p u n t o s( x y z ) )$ N m e r o sd ec o l o re s p e c i f i c a d oe x p l c i t a m e n t ep o re lu s u a r i o . ( %I 1 )l o a d( d r a w )$ ( %I 2 )p t s :m a k e L i s t( [ t ,t^2 ,c o s( t ) ] ,t ,0 ,1 5 )$ ( %I 3 )c o l _ n u m :m a k e L i s t( k ,k ,1 ,l o n g i t u d( p t s ) )$ ( %I 4 )d r a w 3 d( e n h a n c e d 3 d=[ ' p a r t e( c o l _ n u m ,k ) ,k ] , p o i n t _ s i z e=3 , p o i n t _ t y p e=f i l l e d _ c i r c l e , p u n t o s( p t s ) )$
O b j e t og r f i c o :p o l a r( < r a d i o > ,< a n g > ,< m i n a n g > ,< m a x a n g > ) D i b u j af u n c i o n e s2 Dd e f i n i d a se nc o o r d e n a d a sp o l a r e s . 2 D ` P o l a r( < r a d i o > ,< a n g > ,< m i n a n g > ,< m a x a n g > ) "f u n c i nd el a sp a r c e l a s ` < r a d i o >( < a n g > )' D e f i n i d oe nc o o r d e n a d a sp o l a r e s ,c o nl av a r i a b l e < a n g >t o m a n d ov a l o r e sd e s d e< m i n a n g >a< m a x a n g > . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s :n t i c k s` ' , L i n e _ w i d t h` ' , `l i n e _ t y p e ' ,' c l a v e 'y' C o l o r ' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( u s e r _ p r e a m b l e=" s e tg r i dp o l a r " , n t i c k s=2 0 0 , x r a n g e=[ 5 , 5 ] , y r a n g e=[ 5 , 5 ] , c o l o r=b l u e , l i n e _ w i d t h=3 , t i t l e=" e s p i r a lh i p e r b l i c a " , p o l a r( 1 0 / t h e t a ,t h e t a ,1 , 1 0* %p i ) )$
O b j e t og r f i c o :p o l g o n o( [ [ < x 1 > ,< y 1 > ] ,[ < x 2 > ,< y 2 > ] ,. . . ] ) O b j e t og r f i c o :p o l g o n o( [ < x 1 > ,< x 2 > ,. . . ] ,[ < y 1 > ,< y 2 > ,. . . ] ) D i b u j ap o l g o n o se n2 D . 2 D E l` p o l g o n oc o m a n d o s( [ [ < x 1 > ,< y 1 > ] ,[ < x 2 > ,< y 2 > ] ,. . . ] ) o ` P o l g o n o( [ < x 1 > ,< x 2 > ,. . . ] ,[ < y 1 > ,< y 2 > ,. . . ] )S o l a r' e ne la v i n u np o l g o n oc o nv r t i c e s` [ < x 1 > ,< y 1 > ]' , '[ < x 2 > ,< y 2 > ]' ,e t c E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : ' T r a n s p a r e n t e ' ,` f i l l _ c o l o r' , 'f r o n t e r a' , `l i n e _ w i d t h ' ,' c l a v e ' , ` L i n e _ t y p e' y 'C o l o r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( c o l o r=" #e 2 4 5 f 0 " , l i n e _ w i d t h=8 , p o l g o n o( [ [ 3 , 2 ] ,[ 7 , 2 ] ,[ 5 , 5 ] ] ) , b o r d e r=f a l s o , f i l l _ c o l o r=a m a r i l l o , p o l g o n o( [ [ 5 , 2 ] ,[ 9 , 2 ] ,[ 7 , 5 ] ] ) )$
O b j e t og r f i c o :c u a d r i l t e r o( , , , ) D i b u j au nc u a d r i l t e r o . 2 D
446/633
28/08/13

` C u a d r i l t e r o( [ < x 1 > ,< y 1 > ] ,[ < x 2 > ,< y 2 > ] ,[ < x 3 > ,< y 3 > ] ,[ < x 4 > , < y 4 > ] )' d i b u j au nc u a d r i l t e r oc o nv r t i c e s` [ < x 1 > ,< y 1 > ] ' , ` [ < x 2 > ,< y 2 > ]' , '[ < x 3 > ,< y 3 > ]' Y `[ < x 4 > ,< y 4 > ] ' . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : ' T r a n s p a r e n t e ' ,` f i l l _ c o l o r' , 'f r o n t e r a' , `l i n e _ w i d t h ' ,' c l a v e ' , X a x i s _ s e c o n d a r y` ' , `y a x i s _ s e c o n d a r y ' ,` l i n e _ t y p e' , 't r a n s f o r m a c i n' y C o l o rd e l` ' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( c u a d r i l t e r o( [ 1 , 1 ] ,[ 2 , 2 ] ,[ 3 ,1 ] ,[ 2 ,2 ] ) )$ 3 D ` C u a d r i l t e r o( [ < x 1 > ,< y 1 > ,< z 1 > ] ,[ < x 2 > ,< y 2 > ,< z 2 > ] ,[ < x 3 > , < y 3 > ,< z 3 > ] ,[ < x 4 > ,< y 4 > ,< z 4 > ] )' d i b u j au nc u a d r i l t e r oc o n v r t i c e s` [ < x 1 > ,< y 1 > ,< z 1 > ]' , '[ < x 2 > ,< y 2 > ,< z 2 > ]' , '[ < x 3 > ,< y 3 > , < z 3 > ]' y` [ < x 4 > ,< y 4 > ,< z 4 > ] ' . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : L i n e _ t y p e` ' , `l i n e _ w i d t h ' ,' C o l o r ' ,' c l a v e ' ,` e n h a n c e d 3 d' ,y ' T r a n s f o r m a r ' .
O b j e t og r f i c o :r e c t n g u l o( [ < x 1 > ,< y 1 > ] ,[ < x 2 > ,< y 2 > ] ) D i b u j ar e c t n g u l o se n2 D . 2 D ` R e c t n g u l o( [ < x 1 > ,< y 1 > ] ,[ < x 2 > ,< y 2 > ] )' d i b u j au nr e c t n g u l oc o n v r t i c e so p u e s t o s` [ < x 1 > ,< y 1 > ]' y '[ < x 2 > ,< y 2 > ]' . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : ' T r a n s p a r e n t e ' ,` f i l l _ c o l o r' , 'f r o n t e r a' , `l i n e _ w i d t h ' ,' c l a v e ' , ` L i n e _ t y p e' y 'C o l o r' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( f i l l _ c o l o r=r e d , l i n e _ w i d t h=6 , l i n e _ t y p e=p u n t o s , t r a n s p a r e n t e=f a l s e , f i l l _ c o l o r=a z u l , r e c t n g u l o( [ 2 ,2 ] ,[ 8 ,1 ] ) ,/*o p u e s t av r t i c e s*/ t r a n s p a r e n t e=t r u e , l i n e _ t y p e=s l i d a , l i n e _ w i d t h=1 , r e c t n g u l o( [ 9 , 4 ] ,[ 2 ,1 , 5 ] ) , x r a n g e=[ 3 , 1 0 ] , y r a n g e=[ 3 , 4 . 5 ] )$
O b j e t og r f i c o :r e g i n ( E x p r ,< v a r 1 > ,< m i n v a l 1 > ,< m a x v a l 1 > ,< v a r 2 > ,< m i n v a l 2 > ,< m a x v a l 2 > ) P a r c e l a se nu n ar e g i ne ne lp l a n od e f i n i d op o rl a sd e s i g u a l d a d e s . 2 De x p re su n ae x p r e s i nf o r m a d ap o rl a sd e s i g u a l d a d e syb o o l e a n o s o p e r a d o r e s` y' , 'o' ,y 'n o' .L ar e g i ne s t l i m i t a d ap o rl a r e c t n g u l od e f i n i d op o r[ < m i n v a l 1 > ,< m a x v a l 1 > ]y[ < m i n v a l 2 > , < m a x v a l 2 > ] . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : ` F i l l _ c o l o r' , 'c l a v e' , `x _ v o x e l 'y` y _ v o x e l' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x _ v o x e l=3 0 , y _ v o x e l=3 0 , r e g i n( x^2+y^2< 1yx^2+y^2 >1 / 2 , x ,1 , 5 ,1 , 5 ,y ,1 , 5 ,1 , 5 ) ) ; O b j e t og r f i c o :e s f r i c a( < r a d i o > ,< a z i > ,< m i n a z i > ,< m a x a z i > ,< z e n > ,< m i n z e n > ,< m a x z e n > ) D i b u j af u n c i o n e s3 Dd e f i n i d a se nc o o r d e n a d a se s f r i c a s . 3 D ` E s f r i c a( < r a d i o > ,< a z i > ,< m i n a z i > ,< m a x a z i > ,< z e n > ,< m i n z e n > , < m a x z e n > )' t r a z al af u n c i n` < r a d i o >( < a z i > ,< z e n > ) 'd e f i n e ne n c o o r d e n a d a se s f r i c a s ,c o na c i m u t< a z i >t o m a n d ov a l o r e sd e s d e < m i n a z i >a< m a x a z i >yc e n i t a l< z e n >t o m a n d ov a l o r e sd e s d e< m i n z e n > a< m a x z e n > . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : X u _ g r i d` ' , `y v _ g r i d ' ,` l i n e _ t y p e' , 'c l a v e' , `w i r e d _ s u r f a c e ' , ` E n h a n c e d 3 d' y 'C o l o r' .
447/633
28/08/13
E j e m p l o :
( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e s f r i c a( 1 ,a ,0 , 2* %p i ,z ,0 , %p i ) )$
O b j e t og r f i c o :t r i n g u l o( , , ) D i b u j au nt r i n g u l o . 2 D ` T r i n g u l o( [ < x 1 > ,< y 1 > ] ,[ < x 2 > ,< y 2 > ] ,[ < x 3 > ,< y 3 > ] )' d i b u j au n a t r i n g u l oc o nv r t i c e s` [ < x 1 > ,< y 1 > ]' , '[ < x 2 > ,< y 2 > ] " ,y ` [ < x 3 > ,< y 3 > ]' . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : ' T r a n s p a r e n t e ' ,` f i l l _ c o l o r' , 'f r o n t e r a' , `l i n e _ w i d t h ' ,' c l a v e ' , X a x i s _ s e c o n d a r y` ' , `y a x i s _ s e c o n d a r y ' ,` l i n e _ t y p e' , 't r a n s f o r m a r' , y' d ec o l o r ' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( t r i n g u l o( [ 1 , 1 ] ,[ 2 , 2 ] ,[ 3 ,1 ] ) )$ 3 D ` T r i n g u l o( [ < x 1 > ,< y 1 > ,< z 1 > ] ,[ < x 2 > ,< y 2 > ,< z 2 > ] ,[ < x 3 > ,< y 3 > ,< z 3 > ] )' d i b u j au nt r i n g u l oc o nv r t i c e s` [ < x 1 > ,< y 1 > ,< z 1 > ]' , ` [ < x 2 > ,< y 2 > ,< z 2 > ]' Y `[ < x 3 > ,< y 3 > ,< z 3 > ] ' . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : L i n e _ t y p e` ' , `l i n e _ w i d t h ' ,' C o l o r ' ,' c l a v e ' ,` e n h a n c e d 3 d' ,y ' T r a n s f o r m a r ' .
O b j e t og r f i c o :t u b o( < x f u n > ,< y f u n > ,< z f u n > ,< r f u n > , , , ) D i b u j au nt u b oe n3 Dc o nd i m e t r ov a r i a b l e . 3 D ` [ < x f u n > ,< y f u n > ,< z f u n > ]' E sl ac u r v ap a r a m t r i c ac o ne lp a r m e t r o t o m a n d ov a l o r e sd e s d ea .C r c u l o sd e< r f u n >r a d i o s ec o l o c a nc o ns u sc e n t r o se nl ac u r v ap a r a m t r i c ay p e r p e n d i c u l a r e sae l l a . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : X u _ g r i d` ' , `y v _ g r i d ' ,` l i n e _ t y p e' , `l i n e _ w i d t h ' ,' c l a v e ' , W i r e d _ s u r f a c e` ' , è n h a n c e d 3 d ' ,' C o l o r 'y` t u b e _ e x t r e m e s . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( e n h a n c e d 3 d=t r u e , x u _ g r i d=5 0 , t u b o( c o s( a ) ,u n a ,0 ,c o s( A / 1 0 )^2 , u n ,0 ,4* %p i ) )$
O b j e t og r f i c o :v e c t o r( [ < x >< y > ] ,[ < d x > ,< d y > ] ) O b j e t og r f i c o :v e c t o r( [ < x >< y > ,< z > ] ,[ < d x > ,< d y > ,< d z > ] ) D i b u j al o sv e c t o r e se n2 Dy3 D . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : H e a d _ b o t h` ' , `h e a d _ l e n g t h ' ,` h e a d _ a n g l e' , `h e a d _ t y p e ' , L i n e _ w i d t h` ' , `l i n e _ t y p e ' ,' c l a v e 'y' C o l o r ' . 2 D ` V e c t o r( [ < x >< y > ] ,[ < d x > ,< d y > ] )' d i b u j ae lv e c t o r '[ < d x > ,< d y > ]' c o n o r i g e ne n` [ < x >< y > ] ' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 2 d( x r a n g e=[ 0 , 1 2 ] , y r a n g e=[ 0 , 1 0 ] , h e a d _ l e n g t h=1 , v e c t o r( [ 0 , 1 ] ,[ 5 , 5 ] ) ,/*t i p op o rd e f e c t o*/ h e a d _ t y p e=' v a c o , v e c t o r( [ 3 , 1 ] ,[ 5 , 5 ] ) , h e a d _ b o t h=t r u e , h e a d _ t y p e=' n o f i l l e d , l i n e _ t y p e=p u n t o s , v e c t o r( [ 6 , 1 ] ,[ 5 , 5 ] ) )$ 3 D
448/633
28/08/13

` V e c t o r( [ < x > ,< y > ,< z > ] ,[ < d x > ,< d y > ,< d z > ] )' d i b u j ae lv e c t o r ` [ < d x > ,< d y > ,< d z > ]' C o no r i g e ne n `[ < x >< y > ,< z > ] ' . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )d r a w 3 d( =c o l o rd ec i a n , v e c t o r( [ 0 , 0 , 0 ] ,[ 1 , 1 , 1 ]/s q r t( 3 ) ) , v e c t o r( [ 0 , 0 , 0 ] ,[ 1 ,1 , 0 ]/s q r t( 2 ) ) , v e c t o r( [ 0 , 0 , 0 ] ,[ 1 , 1 ,2 ]/s q r t( 6 ) ) )$
48.3 Funciones y variables para las fotos

F u n c i n :g e t _ p i x e l( ,< x >< y > ) D e v o l u c i o n e sp i x e ld el ai m a g e n .C o o r d e n a d a s< x >y< y >r a n g od e0a ` A n c h u r a 1' y à l t u r a 1 ' ,r e s p e c t i v a m e n t e .
F u n c i n :m a k e _ l e v e l _ p i c t u r e( < d a t a > ) F u n c i n :m a k e _ l e v e l _ p i c t u r e( < d a t a > ,< w i d t h > ,< h e i g h t > ) D e v u e l v eu no b j e t on i v e l e s .` M a k e _ l e v e l _ p i c t u r e( < d a t a > )' c o n s t r u y ee lo b j e t od el am a t r i z< d a t a > . ` M a k e _ l e v e l _ p i c t u r e( < d a t a > ,< w i d t h > ,< h e i g h t > )' c o n s t r u y ee lo b j e t o ap a r t i rd eu n al i s t ad en m e r o s ,e ne s t ec a s o ,t a n t oe l< w i d t h >ye l < h e i g h t >d e b ed a r . E lo b j e t od e v u e l t ac o n t i e n el a ss i g u i e n t e sc u a t r op a r t e s : 1 .s m b o l o` n i v e l' 2 .a n c h od el ai m a g e n 3 .a l t u r ad el ai m a g e n 4 .u n am a t r i zd ee n t e r o sc o nl o sd a t o sd ep x e l e sq u ev a nd e0a2 5 5 . < d a t a >A r g u m e n t od e b ec o n t e n e rs l on m e r o sv a r i a r o nd e0a 2 5 5 ;n m e r o sn e g a t i v o se s t ns u s t i t u i d o sc o n0 ,yl a sq u e s o nm a y o r e sq u e2 5 5s ee s t a b l e c e ne n2 5 5 . E j e m p l o : I m a g e nd en i v e l e sap a r t i rd eu n am a t r i z . ( %I 1 )l o a d( d r a w )$ ( %I 2 )m a k e _ l e v e l _ p i c t u r e( m a t r i z( [ 3 , 2 , 5 ] ,[ 7 ,9 , 3 0 0 0 ] ) ) ; ( %O 2 )i m a g e n( n i v e l3 ,2 ,{ a r r a y :#( 325702 5 5 ) } ) I m a g e nd en i v e l e sd el al i s t an u m r i c a . ( %I 1 )l o a d( d r a w )$ ( %I 2 )m a k e _ l e v e l _ p i c t u r e( [ 2 , 0 , 5 4 , %p i ] ,2 , 2 ) ; ( %O 2 )i m a g e n( n i v e l2 ,2 ,{ a r r a y :#( 005 43 ) } )
F u n c i n :m a k e _ r g b _ p i c t u r e( < r e d l e v e l > ,< g r e e n l e v e l > , ) D e v u e l v eu no b j e t or g bc o l o r .L o st r e sa r g u m e n t o sd e b e n s e ri m g e n e sd en i v e l e s ,r o j o ,v e r d eya z u l . E lo b j e t od e v u e l t ac o n t i e n el a ss i g u i e n t e sc u a t r op a r t e s : 1 .s m b o l o` r g b' 2 .a n c h od el ai m a g e n 3 .a l t u r ad el ai m a g e n 4 .u n am a t r i zd ee n t e r o sd el o n g i t u d< 3*w i d t h*h e i g h t >c o nd a t o sd el o sp x e l e s q u ev a nd e0a2 5 5 .C a d ap x e le s t r e p r e s e n t a d op o rt r e s n m e r o sc o n s e c u t i v o s( r o j o ,v e r d e ,a z u l ) . E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )r o j o :m a k e _ l e v e l _ p i c t u r e( m a t r i z( [ 3 , 2 ] ,[ 7 2 6 0 ] ) ) ; ( %O 2 )i m a g e n( n i v e l2 ,2 ,{ a r r a y :#( 3272 5 5 ) } ) ( %I 3 )v e r d e :m a k e _ l e v e l _ p i c t u r e( m a t r i z( [ 5 4 , 2 3 ] ,[ 7 3 ,9 ] ) ) ; ( %O 3 )i m a g e n( n i v e l2 ,2 ,{ a r r a y :#( 5 42 37 30 ) } ) ( %I 4 )a z u l :m a k e _ l e v e l _ p i c t u r e( m a t r i z( [ 1 2 3 , 8 2 ] ,[ 4 5 , 3 2 . 5 6 9 8 ] ) ) ; ( %O 4 )i m a g e n( n i v e l2 ,2 ,{ a r r a y :#( 1 2 38 24 53 3 ) } ) ( %I 5 )m a k e _ r g b _ p i c t u r e( r o j o ,v e r d e ,a z u l ) ; ( %O 5 )i m a g e n( R G B ,2 ,2 , { A r r a y :#( 35 41 2 322 38 277 34 52 5 503 3 ) } )
F u n c i n :n e g a t i v e _ p i c t u r e( ) D e v u e l v ee ln e g a t i v od eu n af o t o g r a f a( o< n i v e l >< R G B > ) .
449/633
28/08/13
F u n c i n :p i c t u r e _ e q u a l p( < x >< y > ) D e v u e l v e` t r u e' e ne lc a s od el a si m g e n e si g u a l e s ,y `f a l s e 'e nc a s oc o n t r a r i o .
F u n c i n :P i c t u r e P( < x > ) D e v u e l v e` t r u e' s ie la r g u m e n t oe su n ai m a g e nb i e nf o r m a d a ,y `f a l s e ' d eo t r om o d o .
F u n c i n :r e a d _ x p m( < x p m _ f i l e > ) L e eu na r c h i v oX P Myd e v u e l v eu no b j e t od ei m a g e n .
F u n c i n :r g b 2 l e v e l( ) T r a n s f o r m au n ai m a g e n< R G B >e nu n o< n i v e l >p r o m e d i a n d ol a r o j o ,c a n a l e sv e r d eya z u l .
F u n c i n :t a k e _ c h a n n e l( ,< c o l o r > ) S i< c o l o r >a r g u m e n t oe s' r o j o ' ,' v e r d e 'o' a z u l ' ,f u n c t i o n ` T a k e _ c h a n n e l' d e v u e l v ee lc a n a ld ec o l o rc o r r e s p o n d i e n t ed e lc u a d r o .E j e m p l o : ( %I 1 )l o a d( d r a w )$ ( %I 2 )r o j o :m a k e _ l e v e l _ p i c t u r e( m a t r i z( [ 3 , 2 ] ,[ 7 2 6 0 ] ) ) ; ( %O 2 )i m a g e n( n i v e l2 ,2 ,{ a r r a y :#( 3272 5 5 ) } ) ( %I 3 )v e r d e :m a k e _ l e v e l _ p i c t u r e( m a t r i z( [ 5 4 , 2 3 ] ,[ 7 3 ,9 ] ) ) ; ( %O 3 )i m a g e n( n i v e l2 ,2 ,{ a r r a y :#( 5 42 37 30 ) } ) ( %I 4 )a z u l :m a k e _ l e v e l _ p i c t u r e( m a t r i z( [ 1 2 3 , 8 2 ] ,[ 4 5 , 3 2 . 5 6 9 8 ] ) ) ; ( %O 4 )i m a g e n( n i v e l2 ,2 ,{ a r r a y :#( 1 2 38 24 53 3 ) } ) ( %I 5 )m a k e _ r g b _ p i c t u r e( r o j o ,v e r d e ,a z u l ) ; ( %O 5 )i m a g e n( R G B ,2 ,2 , { A r r a y :#( 35 41 2 322 38 277 34 52 5 503 3 ) } ) ( %I 6 )t a k e _ c h a n n e l( % ,' v e r d e ) ;/*c o t i z a c i ns e n c i l l a !*/ ( %O 6 )i m a g e n( n i v e l2 ,2 ,{ a r r a y :#( 5 42 37 30 ) } )
48.4 Funciones y variables para worldmap

E s t ep a q u e t ec a r g aa u t o m t i c a m e n t ep a q u e t e` d r a w' .
V a r i a b l eg l o b a l :b o u n d a r i e s _ a r r a y V a l o rp o rd e f e c t o :f a l s e' ` B o u n d a r i e s _ a r r a y' e sd o n d ee lo b j e t og r f i c o `g e o m a p 'b u s c a l m i t e sd el a sc o o r d e n a d a s . C a d ac o m p o n e n t ed e l` b o u n d a r i e s _ a r r a y' e su n am a t r i zd ep u n t of l o t a n t e c a n t i d a d e s ,l a sc o o r d e n a d a sd eu ns e g m e n t op o l i g o n a lol n e af r o n t e r i z a . C o n s u l t et a m b i n` g e o m a p' .
F u n c i n :n u m b e r e d _ b o u n d a r i e s( < n l i s t > ) D i b u j au n al i s t ad es e g m e n t o sp o l i g o n a l e s( l m i t e s ) ,m a r c a d op o rs u n m e r o s( c o o r d e n a d a s` b o u n d a r i e s _ a r r a y' ) .E s t oe sd eg r a na y u d a e nl ac o n s t r u c c i nd en u e v a se n t i d a d e sg e o g r f i c a s . E j e m p l o : M a p ad eE u r o p ae t i q u e t a d of r o n t e r a sc o ns un m e r od ec o m p o n e n t e ` B o u n d a r i e s _ a r r a y' . ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )e u r o p e a n _ b o r d e r s : r e g i o n _ b o u n d a r i e s( 3 1 . 8 1 , 7 4 . 9 2 , 4 9 . 8 4 , 3 2 . 0 6 )$ ( %I 3 )n u m b e r e d _ b o u n d a r i e s( e u r o p e a n _ b o r d e r s )$
F u n c i n :m a k e _ p o l y _ c o n t i n e n t( < c o n t i n e n t _ n a m e > ) F u n c i n :m a k e _ p o l y _ c o n t i n e n t( < c o u n t r y _ l i s t > ) H a c eq u el o sp o l g o n o sn e c e s a r i o sp a r ad i b u j a ru nc o n t i n e n t ed ec o l o r e sou n al i s t a d el o sp a s e s .
450/633
28/08/13
E j e m p l o :
( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )/*U nc o n t i n e n t e*/ m a k e _ p o l y _ c o n t i n e n t( f r i c a )$ ( %I 3 )s ea p l i c a n( d r a w 2 d , % )$ ( %I 4 )/*L al i s t ad el o sp a s e s*/ m a k e _ p o l y _ c o n t i n e n t( [ A l e m a n i a ,D i n a m a r c a ,P o l o n i a ] )$ ( %I 5 )A p l i c a r( d r a w 2 d , % )$
F u n c i n :m a k e _ p o l y _ c o u n t r y( < c o u n t r y _ n a m e > ) H a c eq u el o sp o l g o n o sn e c e s a r i o sp a r ad i b u j a ru np a sd ec o l o r .S i e x i s t e ni s l a s ,u np a sp u e d ed e f i n i r s ec o nm sd eu n p o l g o n o . E j e m p l o : ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )m a k e _ p o l y _ c o u n t r y( I n d i a ) ( %I 3 )s ea p l i c a n( d r a w 2 d , % )$
F u n c i n :m a k e _ p o l y g o n( < n l i s t > ) D e v u e l v eu no b j e t o` p o l g o n o "d el o s n d i c e sd ec o n t o r n o .A r g u m e n t o< n l i s t > e su n al i s t ad ec o m p o n e n t e sd eb o u n d a r i e s _ a r r a y` ' . E j e m p l o : B h u t ns ed e f i n ep o rl o sn m e r o sd ec o n t o r n o1 7 1 ,1 7 3y1 1 4 3 ,d em o d oq u e ` M a k e _ p o l y g o n( [ ] )1 7 1 , 1 7 3 , 1 1 4 3' c o n c a t e n al o sa r r a y s ` B o u n d a r i e s _ a r r a y[ 1 7 1 ]' , `b o u n d a r i e s _ a r r a y[ 1 7 3 ]" y ` B o u n d a r i e s _ a r r a y[ 1 1 4 3 ]' yd e v u e l v eu n 'p o l g o n o' o b j e t oa d e c u a d op a r a s e rt r a z a d op o r` d r a w' .P a r ae v i t a ru nm e n s a j ed ee r r o r ,l a sm a t r i c e sd e b e ne s t a r c o m p a t i b l ee ne ls e n t i d od eq u ed o sa r r a y sc o n s e c u t i v o st i e n e nd o s c o o r d e n a d a sd el o se x t r e m o se nc o m n .E ne s t ee j e m p l o ,l o sd o s p r i m e r o sc o m p o n e n t e sd e` b o u n d a r i e s _ a r r a y[ 1 7 1 ]' s o ni g u a l e sal a l t i m a d o sc o o r d e n a d a sd e l` b o u n d a r i e s _ a r r a y[ 1 7 3 ]' ,yl o sd o sp r i m e r o sd e ` B o u n d a r i e s _ a r r a y[ 1 7 3 ]' s o ni g u a l e sal o sd o sp r i m e r o s ` B o u n d a r i e s _ a r r a y[ 1 1 4 3 ] " ,e nC O N C L U S I N ,n m e r o sd ec o n t o r n o1 7 1 , 1 7 3y1 1 4 3( e ne s t eo r d e n )s o nc o m p a t i b l e sye lc o l o r p o l g o n os ep u e d ee x t r a e r . ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )B h u t n ; ( %O 2 )[ [ 1 7 1 ,1 7 3 ,1 1 4 3 ] ] ( %I 3 )b o u n d a r i e s _ a r r a y[ 1 7 1 ] ; ( %O 3 ){ m a t r i z : #( 8 8 . 7 5 0 5 4 92 7 . 1 4 7 2 72 7 . 2 5 3 0 58 8 . 8 0 6 3 5 18 8 . 9 0 1 3 6 72 7 . 2 8 2 2 2 1 8 8 . 9 1 7 8 7 72 7 . 3 2 1 0 3 9 ) } ( %I 4 )b o u n d a r i e s _ a r r a y[ 1 7 3 ] ; ( %O 4 ){ m a t r i z : #( 9 1 . 6 5 9 5 5 42 7 . 7 6 5 1 19 1 . 6 0 0 82 7 . 6 6 6 6 69 1 . 5 9 8 0 2 22 7 . 6 2 4 9 9 9 1 . 6 3 1 3 4 82 7 . 5 3 6 3 8 19 1 . 7 6 5 5 3 39 1 . 7 7 5 2 5 32 7 . 4 5 6 9 42 7 . 4 1 6 1 9 2 . 0 0 7 7 5 12 7 . 4 7 1 9 3 99 2 . 1 1 4 4 12 7 . 2 8 5 8 39 2 . 0 1 5 2 5 92 7 . 1 6 8 0 5 1 9 2 . 0 1 5 5 3 32 7 . 0 8 0 8 32 7 . 0 2 2 7 79 2 . 0 8 3 3 1 39 2 . 1 1 2 1 8 32 6 . 9 2 0 2 7 1 9 2 . 0 6 9 9 7 72 6 . 8 6 1 9 42 6 . 8 5 1 9 49 1 . 9 9 7 1 9 29 1 . 9 1 5 2 5 32 6 . 8 9 3 8 8 1 9 1 . 9 1 6 9 2 42 6 . 8 5 4 1 69 1 . 8 3 5 82 6 . 8 6 3 3 3 19 1 . 7 1 2 4 7 92 6 . 7 9 9 9 9 9 9 1 . 5 4 2 1 9 12 6 . 8 0 4 4 42 6 . 8 7 4 7 29 1 . 4 9 2 1 8 89 1 . 4 1 8 8 5 42 6 . 8 7 3 3 2 9 9 1 . 3 7 1 3 5 32 6 . 8 0 0 8 3 19 1 . 3 0 7 4 5 72 6 . 7 7 8 0 4 99 0 . 6 8 2 4 5 72 6 . 7 7 4 1 7 9 0 . 3 9 2 1 9 72 6 . 9 0 3 6 0 19 0 . 3 4 4 1 3 12 6 . 8 9 4 1 5 99 0 . 1 4 3 0 4 42 6 . 7 5 3 3 3 8 9 . 9 8 9 9 62 6 . 7 3 5 8 32 6 . 7 0 1 3 88 9 . 8 4 1 9 1 98 9 . 6 1 8 3 0 12 6 . 7 2 6 9 4 8 9 . 6 3 6 0 9 32 6 . 7 7 1 1 1 18 9 . 3 6 0 7 8 62 6 . 8 5 9 9 8 98 9 . 2 2 0 8 12 6 . 8 1 4 7 2 8 9 . 1 1 0 2 3 72 6 . 8 2 9 1 6 18 8 . 9 2 1 6 3 18 8 . 8 7 3 0 1 62 6 . 9 8 7 7 72 6 . 9 5 4 9 9 8 8 . 8 6 7 7 3 72 7 . 0 8 0 5 4 98 8 . 8 4 3 3 0 72 7 . 1 0 8 6 0 18 8 . 7 5 0 5 4 9 2 7 . 1 4 7 2 7 ) } ( %I 5 )b o u n d a r i e s _ a r r a y[ 1 1 4 3 ] ; ( %O 5 ){ m a t r i z : #( 9 1 . 6 5 9 5 5 49 1 . 6 6 6 9 2 42 7 . 7 6 5 1 12 7 . 8 8 8 8 89 1 . 6 5 8 3 12 7 . 9 4 8 0 5 9 1 . 3 3 8 0 2 82 8 . 0 5 2 4 99 1 . 3 1 4 9 7 22 8 . 0 9 6 6 6 19 1 . 1 0 8 8 5 62 7 . 9 7 1 1 0 9 9 1 . 0 1 5 8 0 82 7 . 9 7 7 7 79 0 . 8 9 6 9 2 72 8 . 0 5 0 5 59 0 . 3 8 2 4 6 22 8 . 0 7 9 7 2 9 0 . 3 9 6 0 8 82 8 . 2 3 5 5 59 0 . 3 6 6 0 7 42 8 . 2 5 7 7 7 18 9 . 9 9 6 3 5 32 8 . 3 2 3 3 3 8 9 . 8 3 1 6 52 8 . 2 4 8 8 88 9 . 5 8 6 0 98 9 . 3 5 9 9 72 7 . 8 7 1 6 62 8 . 1 3 9 9 9 9 2 7 . 7 9 58 9 . 2 2 5 5 1 78 9 . 1 2 5 7 9 38 8 . 9 7 1 0 7 72 7 . 5 6 7 4 92 7 . 4 7 3 6 1 8 8 . 9 1 7 8 7 72 7 . 3 2 1 0 3 9 ) } ( %I 6 )B h u t a n _ p o l y g o n :m a k e _ p o l y g o n( [ 1 7 1 , 1 7 3 , 1 1 4 3 ] )$ ( %I 7 )d r a w 2 d( B h u t a n _ p o l y g o n )$
F u n c i n :r e g i o n _ b o u n d a r i e s( < x 1 > ,< y 1 > ,< x 2 > ,< y 2 > ) D e t e c t al o ss e g m e n t o sp o l i g o n a l e s` b o u n d a r i e s _ a r r a yv a r i a b l eg l o b a l' t o t a l m e n t ec o n t e n i d ae ne lr e c t n g u l oc o nv r t i c e s( < x 1 > ,< y 1 > ) s u p e r i o r i z q u i e r d ay( < x 2 > ,< y 2 > ) i n f e r i o rd e r e c h a . E j e m p l o : D e v u e l v ee ln m e r od es e g m e n t o sp a r ae lt r a z a d od e ls u rd eI t a l i a . ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )r e g i o n _ b o u n d a r i e s( 1 0 . 4 , 4 1 . 5 , 2 0 . 7 , 3 5 . 4 ) ; ( %O 2 )[ 1 8 4 6 ,1 8 6 3 ,1 8 6 4 ,1 8 8 1 ,1 8 8 8 ,1 8 9 4 ] ( %I 3 )d r a w 2 d( g e o m a p( % ) )$
451/633
28/08/13
F u n c i n :r e g i o n _ b o u n d a r i e s _ p l u s( < x 1 > ,< y 1 > ,< x 2 > ,< y 2 > ) D e t e c t al o ss e g m e n t o sp o l i g o n a l e s` b o u n d a r i e s _ a r r a yv a r i a b l eg l o b a l' q u ec o n t i e n ea lm e n o su nv r t i c ee ne lr e c t n g u l od e f i n i d op o rl o s v r t i c e s( < x 1 > ,< y 1 > ) s u p e r i o ri z q u i e r d ay( < x 2 > ,< y 2 > ) i n f e r i o rd e r e c h a . E j e m p l o : ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )r e g i o n _ b o u n d a r i e s _ p l u s( 1 0 . 4 , 4 1 . 5 , 2 0 . 7 , 3 5 . 4 ) ; ( %O 2 )[ 1 0 6 0 ,1 0 6 2 ,1 0 7 6 ,1 8 3 5 ,1 8 3 9 ,1 8 4 4 ,1 8 4 6 ,1 8 5 8 , 1 8 6 1 ,1 8 6 3 ,1 8 6 4 ,1 8 7 1 ,1 8 8 1 ,1 8 8 8 ,1 8 9 4 ,1 8 9 7 ] ( %I 3 )d r a w 2 d( g e o m a p( % ) )$
O b j e t og r f i c o :g e o m a p( < n u m l i s t > ) O b j e t og r f i c o :g e o m a p( < n u m l i s t > ,< 3 D p r o j e c t i o n > ) D i b u j am a p a sc a r t o g r f i c o se n2 Dy3 D . 2 D E s t af u n c i nt r a b a j ac o nv a r i a b l eg l o b a l ` B o u n d a r i e s _ a r r a y' . A r g u m e n t o< n u m l i s t >e su n al i s t aq u ec o n t i e n el o sn m e r o sol i s t a sd e n m e r o s .T o d o se s t o sn m e r o sd e b e ns e re n t e r o sm a y o r e soi g u a l e sq u e c e r o ,q u er e p r e s e n t aal o sc o m p o n e n t e sd el am a t r i zg l o b a l ` B o u n d a r i e s _ a r r a y' . C a d ac o m p o n e n t ed e l` b o u n d a r i e s _ a r r a y' e su n am a t r i zd ep u n t of l o t a n t e c a n t i d a d e s ,l a sc o o r d e n a d a sd eu ns e g m e n t op o l i g o n a lol n e af r o n t e r i z a . ` G e o m a p( < n u m l i s t > )' a p l a n as u sa r g u m e n t o sys e a l aal a l m i t e sa s o c i a d o se n` b o u n d a r i e s _ a r r a y' . E s t eo b j e t os ev ea f e c t a d op o rl a ss i g u i e n t e so p c i o n e sg r f i c a s : L i n e _ w i d t h` ' , `l i n e _ t y p e 'y' C o l o r ' . E j e m p l o s : U ns i m p l em a p ad e f i n i d op o rl am a n o : ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )/*V r t i c e sd el m i t e#0 :{ ( 1 , 1 ) ,( 2 , 5 ) ,( 4 , 3 ) }*/ ( B n d 0 :m a k e _ a r r a y( f l o n u m ,6 ) , b n d 0[ 0 ] :1 , 0 ,b n d 0[ 1 ] :1 , 0 ,b n d 0[ 2 ] :2 , 0 , b n d 0[ 3 ] :5 , 0 ,b n d 0[ 4 ] : 4 , 0 ,b n d 0[ 5 ] :3 , 0 )$ ( %I 3 )/*L o sv r t i c e sd e ll m i t e#1 :{ ( 4 , 3 ) ,( 5 , 4 ) ,( 6 , 4 ) ,( 5 , 1 ) }*/ ( B n d 1 :m a k e _ a r r a y( f l o n u m ,8 ) , b n d 1[ 0 ] :4 , 0 ,b n d 1[ 1 ] :3 , 0 ,b n d 1[ 2 ] :5 , 0 ,b n d 1[ 3 ] :4 , 0 , b n d 1[ 4 ] : 6 , 0 ,b n d 1[ 5 ] :4 , 0 ,b n d 1[ 6 ] :5 , 0 ,b n d 1[ 7 ] :1 , 0 )$ ( %I 4 )/*L o sv r t i c e sd e ll m i t e#2 :{ ( 5 , 1 ) ,( 3 , 0 ) ,( 1 , 1 ) }*/ ( B n d 2 :m a k e _ a r r a y( f l o n u m ,6 ) , b n d 2[ 0 ] :5 , 0 ,b n d 2[ 1 ] :1 , 0 ,b n d 2[ 2 ] :3 , 0 , b n d 2[ 3 ] :0 , 0 ,b n d 2[ 4 ] : 1 , 0 ,b n d 2[ 5 ] :1 , 0 )$ ( %I 5 )/*V r t i c e sd el m i t e#3 :{ ( 1 , 1 ) ,( 4 , 3 ) }*/ ( B n d 3 :m a k e _ a r r a y( f l o n u m ,4 ) , b n d 3[ 0 ] :1 , 0 ,b n d 3[ 1 ] :1 , 0 ,b n d 3[ 2 ] :4 , 0 ,b n d 3[ 3 ] :3 , 0 )$ ( %I 6 )/*L o sv r t i c e sd eL m i t e#4 :{ ( 4 , 3 ) ,( 5 , 1 ) }*/ ( B n d 4 :m a k e _ a r r a y( f l o n u m ,4 ) , b n d 4[ 0 ] :4 , 0 ,b n d 4[ 1 ] :3 , 0 ,b n d 4[ 2 ] :5 , 0 ,b n d 4[ 3 ] :1 , 0 )$ ( %I 7 )/*P a q u e t et o d oj u n t oe nb o u n d a r i e s _ a r r a y*/ ( B o u n d a r i e s _ a r r a y :m a k e _ a r r a y( n i n g u n a ,5 ) , b o u n d a r i e s _ a r r a y[ 0 ] :b n d 0 ,b o u n d a r i e s _ a r r a y[ 1 ] :b n d 1 , b o u n d a r i e s _ a r r a y[ 2 ] :b n d 2 ,b o u n d a r i e s _ a r r a y[ 3 ] :b n d 3 , b o u n d a r i e s _ a r r a y[ 4 ] : b n d 4 )$ ( %I 8 )d r a w 2 d( g e o m a p( [ 0 , 1 , 2 , 3 , 4 ] ) )$ E lp a q u e t ea u x i l i a r` m a p a m u n d i' e s t a b l e c el av a r i a b l eg l o b a l ` B o u n d a r i e s _ a r r a y' al a sf r o n t e r a sd e lm u n d or e a le n( l o n g i t u d , l a t i t u d )c o o r d e n a d a s .E s t o sd a t o ss o nd ed o m i n i op b l i c oy p r o v e n i rd e` h t t p : / / w w w c g e r . n i e s . g o . j p / g r i d e / g r i d t x t / g r i d 1 9 . h t m l' . P a q u e t e` m a p a m u n d i' d e f i n et a m b i nl a sf r o n t e r a sd el o sp a s e s , c o n t i n e n t e syc o s t a sc o m ol a sl i s t a sc o nl o sc o m p o n e n t e sn e c e s a r i o sd e ` B o u n d a r i e s _ a r r a y' ( v a s ee la r c h i v o `s h a r e/d r a w/w o r l d m a p . m a c 'p a r am s i n f o r m a c i n ) .P a q u e t e` m a p a m u n d i' c a r g aa u t o m t i c a m e n t ep a q u e t e ` M a p a m u n d i . ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )c 1 :g r 2 d( g e o m a p( C a n a d ,E s t a d o s _ U n i d o s , M x i c o ,C u b a ) )$ ( %I 3 )c 2 :g r 2 d( g e o m a p( f r i c a ) )$ ( %I 4 )c 3 :g r 2 d( g e o m a p( O c e a n a ,C h i n a ,J a p n ) )$ ( %I 5 )c 4 :g r 2 d( g e o m a p( F r a n c i a ,P o r t u g a l ,E s p a a , M a r r u e c o s ,W e s t e r n _ S a h a r a ) )$ ( %I 6 )E m p a t e( c o l u m n a s=2 , c 1 ,c 2 ,c 3 ,c 4 )$ P a q u e t e` m a p a m u n d i' t a m b i ne s t i lp a r al o sp a s e sd et r a z a d oc o m o p o l g o n o s .E ne s t ec a s o ,e lo b j e t og r f i c o` g e o m a p' y an oe s n e c e s a r i oye lo b j e t o` p o l g o n o "s eu t i l i z ae ns ul u g a r .D e s d el i s t a s A h o r as eu t i l i z a nyn om a t r i c e s ,m a p a sd er e p r e s e n t a c i ns e r m sl e n t a .V e r T a m b i n` m a k e _ p o l y _ c o u n t r y' y `m a k e _ p o l y _ c o n t i n e n t 'p a r ae n t e n d e r
452/633
28/08/13

e ls i g u i e n t ec d i g o . ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )m y M a p :a p p e n d( [ C o l o r=b l a n c o ] ,/*b o r d e ss o nd ec o l o rb l a n c o*/ [ F i l l _ c o l o r=r e d ] ,m a k e _ p o l y _ c o u n t r y( B o l i v i a ) , [ F i l l _ c o l o r=c y a n ] ,m a k e _ p o l y _ c o u n t r y( P a r a g u a y ) , [ F i l l _ c o l o r=g r e e n ] ,m a k e _ p o l y _ c o u n t r y( C o l o m b i a ) , [ F i l l _ c o l o r=b l u e ] ,m a k e _ p o l y _ c o u n t r y( C h i l e ) , [ F i l l _ c o l o r=" #2 3 a b 0 f " ] ,m a k e _ p o l y _ c o u n t r y( B r a s i l ) , [ F i l l _ c o l o r=v a r ad eo r o ] ,m a k e _ p o l y _ c o u n t r y( A r g e n t i n a ) , [ F i l l _ c o l o r=" a z u lo s c u r o " ] ,m a k e _ p o l y _ c o u n t r y( U r u g u a y ) )$ ( %I 3 )s ea p l i c a n( d r a w 2 d ,m y M a p )$ 3 D ` G e o m a p( < n u m l i s t > )' p r o y e c t al o sm a p a ss o b r el ae s f e r ad el a r a d i o1c e n t r a d oe n( 0 , 0 , 0 ) .E sp o s i b l ec a m b i a rl ae s f e r a oe lt i p od ep r o y e c c i nu t i l i z a n d o` g e o m a p ( < n u m l i s t > ,< 3 D p r o j e c t i o n > )' . D i s p o n i b l ep r o y e c c i o n e se n3 D : *` [ S p h e r i c a l _ p r o j e c t i o n ,< x >< y > ,< z > ,< r > ] " :p r o y e c t o sd em a p a l m i t e se ne l m b i t od e< r >r a d i oc e n t r a d o se n ( < x >< y > ,< z > ) . ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )d r a w 3 d( g e o m a p( A u s t r a l i a ) ,/*p r o y e c c i np o rd e f e c t o*/ g e o m a p( A u s t r a l i a , [ S p h e r i c a l _ p r o j e c t i o n ,2 , 2 , 2 , 3 ] ) )$ *` [ C y l i n d r i c a l _ p r o j e c t i o n ,< x >< y > ,< z > ,< r > ,< R C > ]' :r e p r o y e c t o s m a p a se s f r i c o ss o b r ee lc i l i n d r od e< R C >r a d i oy e j eq u ep a s aat r a v sd el o sp o l o sd e lg l o b od er a d i od e< r > c e n t r a d oe n( < x >< y > ,< z > ) . ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )d r a w 3 d( g e o m a p( [ A m e r i c a _ c o a s t l i n e s ,E u r a s i a _ c o a s t l i n e s ] , [ C y l i n d r i c a l _ p r o j e c t i o n ,2 , 2 , 2 , 3 , 4 ] ) )$ *` [ C o n i c _ p r o j e c t i o n ,< x >< y > ,< z > ,< r > ,< a l p h a > ]' :r e p r o y e c t o s m a p a se s f r i c o ss o b r el o sc o n o sd e< a l p h a > n g u l o ,c o n e j eq u ep a s aat r a v sd el o sp o l o sd e lg l o b od er a d i od e< r > c e n t r a d oe n( < x >< y > ,< z > ) .T a n t oe ln o r t eye ls u r c o n o ss o nt a n g e n t e sal ae s f e r a . ( %I 1 )l o a d( m a p a m u n d i )$ ( %I 2 )d r a w 3 d( g e o m a p( W o r l d _ c o a s t l i n e s , [ C o n i c _ p r o j e c t i o n ,0 , 0 , 0 , 1 , 9 0 ] ) )$ V a s et a m b i n ` H t t p : / / w w w . t e l e f o n i c a . n e t / w e b 2 / b i o m a t e s / m a x i m a / g p d r a w / g e o m a p "p a r a e j e m p l o sm se l a b o r a d o .
49 drawdf
I n t r o d u c c i nad r a w d f F u n c i o n e syv a r i a b l e sp a r ad r a w d f
49.1 Introduccin a drawdf

L af u n c i n` d r a w d f' d i b u j ae lc a m p od ed i r e c c i o n e sd ep r i m e ro r d e n L ae c u a c i nd i f e r e n c i a lo r d i n a r i a( O D E )ou ns i s t e m ad ed o sa u t n o m a p r i m e ro r d e nd eO D E . C o m os et r a t ad eu np a q u e t ea d i c i o n a l ,c o ne lf i nd eu t i l i z a r l od e b e p r i m e r oc a r g a r l oc o nl o a d( d r a w d f ) .D r a w d fs eb a s ae ne l' d r a w ' p a q u e t e ,l oq u er e q u i e r eG n u p l o t4 . 2 . P a r ad i b u j a re lc a m p od ed i r e c c i nd eu n as o l aO D E ,e lO D Ed e b ee s c r i b i r s e e nl af o r m a : d y -=F( x ,y ) d x yl a< F >f u n c i nd e b ed a rc o m oa r g u m e n t op a r a` d r a w d f' . S il a sv a r i a b l e si n d e p e n d i e n t e syd e p e n d i e n t e sn os o n< x >y< y > ,c o m oe n l ae c u a c i na n t e r i o r ,ac o n t i n u a c i n ,e s a sd o sv a r i a b l e sd e b e ns e rn o m b r a d o se x p l c i t a m e n t e e nu n al i s t ad a d ac o m oa r g u m e n t oa lc o m a n d od r a w d f( v e rl o se j e m p l o s ) . P a r ad i b u j a re lc a m p od ed i r e c c i nd eu nc o n j u n t od ed o sE D Oa u t n o m ad e ,q u e d e b ee s t a re s c r i t oe nf o r m a d xd y -=G( x ,y )-=F( x ,y ) d td t ye la r g u m e n t op a r a` d r a w d f' d e b es e ru n al i s t ac o nl o sd o s f u n c i o n e s< G >y< F > ,e ne s eo r d e n ,as a b e r ,l ap r i m e r ae x p r e s i ne n l al i s t as et o m ac o m ol ad e r i v a d ad el av a r i a b l e r e p r e s e n t a d oe ne le j eh o r i z o n t a l ,yl as e g u n d ae x p r e s i ns e r l ad e r i v a d ad et i e m p od el av a r i a b l er e p r e s e n t a d ae ne le j ev e r t i c a l . E s a sd o sv a r i a b l e sn ot i e n e nq u es e r< x >y< y > ,p e r os in oe sa s , e n t o n c e se ls e g u n d oa r g u m e n t od a d oad r a w d fd e b es e ro t r al i s t ad en o m b r e s l a sd o sv a r i a b l e s ,p r i m e r oe lu n oe ne le j eh o r i z o n t a lyac o n t i n u a c i n ,l a
453/633
28/08/13
u n oe ne le j ev e r t i c a l .
S is l os ed au nO D E ,` d r a w d f' s e r i m p l c i t a m e n t ea d m i t i r `x=t ' ,y ` G( x ,y )=1' ,l at r a n s f o r m a c i nd el ae c u a c i nn oa u t n o m ae nu ns i s t e m ad e d o se c u a c i o n e sa u t n o m a s .
49.2 Funciones y variables para drawdf

F u n c i n :d r a w d f( < d y d x > ,. . .o p c i o n e syo b j e t o s. . . ) F u n c i n :d r a w d f( < d v d u > ,` [ ' ,< v > ` ] ' ,. . .o p c i o n e syo b j e t o s. . . ) F u n c i n :d r a w d f( < d v d u > ,` [ ' , , ` ] ' ,' [ '< v > ,< v m i n > ,< v m a x >` ]' ,. . .o p c i o n e syo b j e t o s. . . ) F u n c i n :d r a w d f( ` [ ' < d x d t > ,< d y d t > ` ] ' ,. . .o p c i o n e syo b j e t o s. . . ) F u n c i n :d r a w d f( ` [ ' < d u d t > ,< d v d t > ` ] ' ,' [ ' ,< v >` ]' ,. . .o p c i o n e s
yo b j e t o s. . . ) F u n c i n :d r a w d f( ` [ ' < d u d t > ,< d v d t > ` ] ' ,' [ ' , ,` ]' , '[ ' < v > ,< v m i n > ,< v m a x >` ]' ,. . .o p c i o n e syo b j e t o s. . . F u n c i n` d r a w d f' d i b u j au nc a m p od ed i r e c c i o n e se n2 Dc o nl ao p c i nd e c u r v a ss o l u c i nyo t r o sg r f i c o su t i l i z a n d oe lp a q u e t e` d r a w' . E lp r i m e ra r g u m e n t oe s p e c i f i c ae ld e r i v a d o( s ) ,yd e b es e ry as e a u n ae x p r e s i nou n al i s t ad ed o se x p r e s i o n e s .< d y d x > ,< d x d t >y < d y d t >s o ne x p r e s i o n e sq u ed e p e n d e nd e< x >y< y > .< d v d u > ,< d u d t > y< d v d t >s o ne x p r e s i o n e sq u ed e p e n d e nd ey< v > . S il a sv a r i a b l e si n d e p e n d i e n t e syd e p e n d i e n t e sn os o n< x >y< y > , ac o n t i n u a c i n ,s u sn o m b r e sd e b e ns e re s p e c i f i c a d o si n m e d i a t a m e n t ed e s p u sd el a d e r i v a d o( s ) ,y as e ac o m ou n al i s t ad en o m b r e sd ed o s` [ ' ,< v > ` ] ' ,oc o m o d o sl i s t a sd el af o r m a` [ ' , , ` ] 'y ` [ ' < v > ,< v m i n > ,< v m a x > ` ] . E lr e s t od ea r g u m e n t o ss o no p c i o n e sg r f i c a s ,o b j e t o sg r f i c o s ,o l i s t a sc o no p c i o n e sg r f i c a syo b j e t o s ,a n i d a rh a s t aa r b i t r a r i a p r o f u n d i d a d .E lc o n j u n t od eo p c i o n e sg r f i c a syo b j e t o sa d m i t i d o sp o r ` D r a w d f' e su ns u p e r c o n j u n t od el o sa d m i t i d o sp o rd r a w 2 d ` 'y` g r 2 d' d e lp a q u e t e` d r a w' . L o sa r g u m e n t o ss ei n t e r p r e t a ns e c u e n c i a l m e n t e :l a so p c i o n e sg r f i c a sa f e c t a n l o ss i g u i e n t e so b j e t o sg r f i c o s .A d e m s ,l o so b j e t o sg r f i c o ss o n d i b u j a d oe ne ll i e n z oe ne lo r d e ne s p e c i f i c a d o ,yp u e d eo c u l t a rl o sg r f i c o s d i b u j a d oa n t e r i o r m e n t e .A l g u n a so p c i o n e sg r f i c a sa f e c t a na la s p e c t og l o b a l d el ae s c e n a . L o so b j e t o sg r f i c o sa d i c i o n a l e ss o p o r t a d o sp o r` d r a w d f' i n c l u y e n : S o l n s _ a t` ' , `p o i n t s _ a t ' ,` s a d d l e s _ a t' , `s o l n _ a t ' ,` p o i n t _ a t' ,y ` S a d d l e _ a t' . L a so p c i o n e sg r f i c a sa d i c i o n a l e ss o p o r t a d o sp o r` d r a w d f' i n c l u y e n : F i e l d _ d e g r e e` ' , `s o l n _ a r r o w s ' ,` f i e l d _ a r r o w s' , `f i e l d _ g r i d ' , F i e l d _ c o l o r` ' , `s h o w _ f i e l d ' ,` t s t e p' , `n s t e p s ' ,' d u r a c i n ' , ` D i r e c c i n' , `f i e l d _ t s t e p ' ,` f i e l d _ n s t e p s' y `f i e l d _ d u r a t i o n ' . O b j e t o sg r f i c o sq u es eu t i l i z a nc o m n m e n t eh e r e d a d a sd e lp a q u e t e` d r a w' i n c l u y e n :` e x p l c i t a' , 'i m p l c i t o' , 'p a r a m t r i c a' , 'p o l g o n o' , ` P u n t o s' , `v e c t o r i a l e s ' ,` l a b e l' ,yt o d o sa q u e l l o ss o p o r t a d o sp o r `d r a w 2 d ' y` g r 2 d' . O p c i o n e sd eg r f i c o sq u es eu t i l i z a nc o m n m e n t eh e r e d a d a sd e lp a q u e t e` d r a w' i n c l u i r : ` P o i n t s _ j o i n e d' , 'C o l o r' , 'p o i n t _ t y p e' , `p o i n t _ s i z e ' ,` l i n e _ w i d t h' , ` L i n e _ t y p e' , 'c l a v e' , 't i t l e' , 'x l a b e l' , `y l a b e l ' ,` u s e r _ p r e a m b l e' , ` T e r m i n a l e s' , `d i m e n s i o n e s ' ,' n o m b r e _ a r c h i v o ' ,yt o d o sa q u e l l o ss o p o r t a d o sp o r D r a w 2 d` ' y `g r 2 d ' . C o n s u l t et a m b i n` d r a w 2 d' . L o su s u a r i o sd ew x M a x i m aoI m a x i m ap u e d e nu t i l i z a ro p c i o n a l m e n t ew x d r a w d f` ' ,q u e e si d n t i c aal a` d r a w d f' e x c e p t oq u el o sg r f i c o ss ed i b u j a nd e n t r o l an o t e b o o ku s a n d o` w x d r a w' . P a r ah a c e ru s od ee s t af u n c i n ,e j e c t e s ep r i m e r ol o a d( d r a w d f ) . E j e m p l o s : ( %I 1 )l o a d( d r a w d f )$ ( %I 2 )d r a w d f( e x p( x )+y )/*$v a r sd e f e c t o :x ,y*/ ( %I 3 )d r a w d f( e x p( t )+y[ t ,y ] )$/*r a n g op o rd e f e c t o :[ 1 0 , 1 0 ]*/ ( %I 4 )d r a w d f( [ y ,9*s i n( x )y/5 ] ,[ x ,1 , 5 ] ,[ y ,2 , 2 ] )$ P a r al ac o m p a t i b i l i d a dc o nv e r s i o n e sa n t e r i o r e s ,` d r a w d f' a c e p t al am a y o r ad el a s p a r m e t r o sq u ea d m i t ep l o t d f . ( %I 5 )d r a w d f( 2*c o s( t )1+y ,[ t ,y ] ,[ t ,5 , 1 0 ] ,[ y ,4 , 9 ] , [ T r a j e c t o r y _ a t ,0 , 0 ] )$ S o l n _ a t` ' y `s o l n s _ a t 'c u r v a se m p a t es o l u c i o n e sq u ep a s a np o re l p u n t o se s p e c i f i c a d o s ,m e d i a n t eu nl i g e r oa u m e n t od e4o r d e nR u n g eK u t t a i n t e g r a d o rn u m r i c o . ( %I 6 )d r a w d f( 2*c o s( t )1+y ,[ t ,5 , 1 0 ] ,[ y ,4 , 9 ] , s o l n s _ a t( [ 0 , 0 . 1 ] ,[ 0 ,0 , 1 ] ) , c o l o r=b l u e ,s o l n _ a t( 0 , 0 ) )$ ` F i e l d _ d e g r e e=2' h a c eq u ee lc a m p oq u es ec o m p o n ed es e g u n d og r a d o s p l i n e s ,b a s a d oe nl a sp r i m e r ays e g u n d ad e r i v a d a se nc a d ac u a d r c u l a
454/633
28/08/13

p u n t o .` F i e l d _ g r i d=[ ' < C O L S > ,< r o w s > ` ] 'e s p e c i f i c ae ln m e r od e c o l u m n a syf i l a se nl ac u a d r c u l a . ( %I 7 )d r a w d f( 2*c o s( t )1+y ,[ t ,5 , 1 0 ] ,[ y ,4 , 9 ] , f i e l d _ d e g r e e=2 ,f i e l d _ g r i d=[ 2 0 , 1 5 ] , s o l n s _ a t( [ 0 , 0 . 1 ] ,[ 0 ,0 , 1 ] ) , c o l o r=b l u e ,s o l n _ a t( 0 , 0 ) )$ ` S o l n _ a r r o w s=t r u e' a g r e g af l e c h a sal a sc u r v a sd el as o l u c i n ,y( p o r p o rd e f e c t o )l o sr e t i r ad e lc a m p od ed i r e c c i n .T a m b i nc a m b i a l o sc o l o r e sp r e d e t e r m i n a d o sp a r ae n f a t i z a rl a sc u r v a ss o l u c i n . ( %I 8 )d r a w d f( 2*c o s( t )1+y ,[ t ,5 , 1 0 ] ,[ y ,4 , 9 ] , s o l n _ a r r o w s=t r u e , s o l n s _ a t( [ 0 , 0 . 1 ] ,[ 0 ,0 , 1 ] ,[ 0 , 0 ] ) )$ D u r a c i n=` 4 0' e s p e c i f i c al ad u r a c i nd e lt i e m p od ei n t e g r a c i nn u m r i c a ( P o rd e f e c t o1 0 ) .L ai n t e g r a c i nt a m b i ns ed e t e n d r a u t o m t i c a m e n t es ie l s o l u c i nm u e v ed e m a s i a d ol e j o sd el ar e g i nd et r a z a d o ,os ie l d e r i v a d os ec o n v i e r t ee nc o m p l e j ooi n f i n i t o .A q u t a m b i ne s p e c i f i c a m o s ` F i e l d _ d e g r e e=2 "p a r at r a z a rs p l i n e sc u a d r t i c a s .L a ss i g u i e n t e se c u a c i o n e s m o d e l od eu ns i s t e m ad e p r e d a d o r p r e s a . ( %I 9 )d r a w d f( [ x*( 1 x y ) ,y*( 3 / 4 y x / 2 ) ] ,[ x ,0 , 1 . 1 ] ,[ s ,0 , 1 ] , f i e l d _ d e g r e e=2 ,d u r a c i n=4 0 , s o l n _ a r r o w s=t r u e ,p o i n t _ a t( 1 / 2 ,1 / 2 ) , s o l n s _ a t( [ 0 . 1 , 0 . 2 ] ,[ 0 . 2 , 0 . 1 ] ,[ 1 , 0 . 8 ] ,[ 0 . 8 , 1 ] , [ 0 . 1 , 0 . 1 ] ,[ 0 . 6 , 0 . 0 5 ] ,[ 0 . 0 5 , 0 . 4 ] , [ 1 , 0 . 0 1 ] ,[ 0 . 0 1 , 0 . 7 5 ] ) )$ ` F i e l d _ d e g r e e=' S O L N S 'h a c eq u ee lc a m p oq u es ec o m p o n ed em u c h o s c u r v a ss o l u c i np e q u e o sc a l c u l a nc u a r t oo r d e nd eR u n g eK u t t a ,c o n m e j o r e sr e s u l t a d o se ne s t ec a s o . ( %I 1 0 )d r a w d f( [ x*( 1 x y ) ,y*( 3 / 4 y x / 2 ) ] ,[ x ,0 , 1 . 1 ] ,[ s ,0 , 1 ] , f i e l d _ d e g r e e=' S O L N S ,d u r a c i n=4 0 , s o l n _ a r r o w s=t r u e ,p o i n t _ a t( 1 / 2 ,1 / 2 ) , s o l n s _ a t( [ 0 . 1 , 0 . 2 ] ,[ 0 . 2 , 0 . 1 ] ,[ 1 , 0 . 8 ] , [ 0 . 8 , 1 ] ,[ 0 . 1 , 0 . 1 ] ,[ 0 . 6 , 0 . 0 5 ] , [ 0 . 0 5 , 0 . 4 ] ,[ 1 , 0 . 0 1 ] ,[ 0 . 0 1 , 0 . 7 5 ] ) )$ I n t e n t o s` s a d d l e s _ a t' P a r aa l i n e a ra u t o m t i c a m e n t el ae c u a c i ne n c a d as i l l a ,yp a r at r a z a ru n as o l u c i nn u m r i c ac o r r e s p o n d i e n t eac a d a v e c t o rp r o p i o ,i n c l u y e n d ol o ss e p a r a t r i c e s .` T s t e p=0 . 0 5' e s p e c i f i c a e lp a s od et i e m p om x i m op a r ae li n t e g r a d o rn u m r i c o( e lv a l o rp r e d e t e r m i n a d oe s 0 . 1 ) .T e n g ae nc u e n t aq u ep e q u e o si n c r e m e n t o sd et i e m p oav e c e ss eu t i l i z a ne n P a r am a n t e n e rl axeyp a s o sp e q u e o s .L a ss i g u i e n t e se c u a c i o n e sm o d e l o u np n d u l oa m o r t i g u a d o . ( %I 1 1 )d r a w d f( [ y ,9*s i n( x )y/5 ] ,t s t e p=0 , 0 5 ; s o l n _ a r r o w s=t r u e ,p o i n t _ s i z e=0 , 5 ; p o i n t s _ a t( [ 0 , 0 ] ,[ 2* %p i ,0 ] ,[ 2* %p i ,0 ] ) , S O L N Sf i e l d _ d e g r e e=' , s a d d l e s _ a t( [ %p i ,0 ] ,[ %p i ,0 ] ) )$ ` S h o w _ f i e l d=f a l s e' s u p r i m ee lc a m p oc o m p l e t o . ( %I 1 2 )d r a w d f( [ y ,9*s i n( x )y/5 ] ,t s t e p=0 , 0 5 ; s h o w _ f i e l d=f a l s e ,s o l n _ a r r o w s=t r u e , p o i n t _ s i z e=0 , 5 ; p o i n t s _ a t( [ 0 , 0 ] ,[ 2* %p i ,0 ] ,[ 2* %p i ,0 ] ) , s a d d l e s _ a t( [ 3* %p i ,0 ] ,[ 3* %p i ,0 ] , [ %P i ,0 ] ,[ %p i ,0 ] ) )$ ` D r a w d f' p a s at o d o sl o sp a r m e t r o sn or e c o n o c i d o sp a r ad r a w 2 d ` 'o` g r 2 d' , q u el ep e r m i t ec o m b i n a rl ap o t e n c i ad e lp a q u e t e` d r a w' c o n ` D r a w d f' . ( %I 1 3 )d r a w d f( x^2+y^2 ,[ x ,2 , 2 ] ,[ y ,2 , 2 ] ,f i e l d _ c o l o r=g r i s , k e y=" s o l n1 " ,c o l o r=n e g r o ,s o l n _ a t( 0 , 0 ) , c l a v e=" S o l n2 " ,c o l o r=r o j o ,s o l n _ a t( 0 , 1 ) , k e y=" i s o c l i n a " ,c o l o r=v e r d e ,l i n e _ w i d t h=2 , n t i c k s=1 0 0 ,p a r a m t r i c a s( c o s( t ) ,s i n( t ) ,t ,0 , 2* %p i ) )$ ` D r a w d f' a c e p t al i s t a sa n i d a d a sd eo p c i o n e sg r f i c a syo b j e t o s , l oq u ep e r m i t ee lu s oc o n v e n i e n t ed em a k e L i s tyo t r af u n c i nl l a m aa g e n e r a rg r f i c o s . ( %I 1 4 )c o l o r e s :[ ' r o j o s 'b l u e' ,p r p u r a ," n a r a n j a " ,v e r d e ]$ ( %I 1 5 )d r a w d f( [ x x*y/2 ,( x*y-3*y )/4 ] , [ X ,2 . 5 , 3 . 5 ] ,[ y ,1 . 5 , 2 . 5 ] , f i e l d _ c o l o r=g r i s , m a k e L i s t( [ k e y=c o n c a t( " s o l n " ,k ) , c o l o r=c o l o r e s[ k ] , s o l n _ a t( 3 ,2+k / 2 0 ) ] , k ,1 , 5 ) )$
50 dinmicas
I n t r o d u c c i nal ad i n m i c a F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a
455/633
28/08/13
50.1 Introduccin a la dinmica

E lp a q u e t ea d i c i o n a l` d i n m i c a' i n c l u y ev a r i a sf u n c i o n e sp a r ac r e a r d i v e r s a sr e p r e s e n t a c i o n e sg r f i c a sd el o ss i s t e m a sd i n m i c o sd i s c r e t o sy f r a c t a l e s ,yu n aa p l i c a c i nd el aR u n g e K u t t ad ec u a r t oo r d e nn u m r i c o m t o d op a r as i s t e m a sd er e s o l u c i nd ee c u a c i o n e sd i f e r e n c i a l e s . P a r au t i l i z a rl a sf u n c i o n e sd ee s t ep a q u e t ep r i m e r od e b ec a r g a rc o n L o a d( " d i n m i c a " ) . L o sc a m b i o si n t r o d u c i d o se nM a x i m a5 . 1 2 Ap a r t i rd e5 , 1 2M a x i m a ,e lp a q u e t ed i n m i c aa h o r au t i l i z al af u n c i n ` P l o t 2 d "p a r ah a c e rl o sg r f i c o s .L o sc o m a n d o sq u ep r o d u c e ng r f i c o s( c o nl a e x c e p c i nd ej u l i a` ' y `m a n d e l b r o t ' )a h o r aa c e p t a nl a so p c i o n e sd e ` P l o t 2 d' ,i n c l u y e n d ol ao p c i nd ec a m b i a re n t r el o sd i s t i n t o sg r f i c a i n t e r f a c e s ,u t i l i z a n d od i f e r e n t e se s t i l o sd et r a z a d oyc o l o r e s ,yq u er e p r e s e n t a u n ooa m b o se j e se nu n ae s c a l al o g a r t m i c a .E lv i e j oo p c i o n e s< d o m i n i o > , ,< x c e n t e r > ,< x r a d i u s > ,< y c e n t e r > ,< y r a d i u s > ,< x a x i s l a b e l > y< y a x i s l a b e l >n os o na c e p t a d o se ne s t an u e v av e r s i n . T o d o sl o sp r o g r a m a ss e r na h o r aa c e p t a rn o m b r e sd el a sv a r i a b l e s ,yn os l o< x > y< y >c o m oe nl a sv e r s i o n e sa n t e r i o r e s .D o sp a r m e t r o sr e q u e r i d o st i e n e nc a m b i o s e nd o sd el o sp r o g r a m a s :` e v o l u t i o n 2 d' a h o r ar e q u i e r eu n al i s t ad en o m b r e s e x p l c i t a m e n t el a sd o sv a r i a b l e si n d e p e n d i e n t e s ,ye lr a n g oh o r i z o n t a lp a r a ` r b i t a s "y an or e q u i e r eu nt a m a od ep a s o ,e lr a n g os l os ed e b ee s p e c i f i c a r e ln o m b r ed ev a r i a b l eyl o sv a l o r e sm x i m oym n i m o ,e ln m e r od e m e d i d a sa h o r as ep u e d ec a m b i a rc o nl ao p c i n< n t i c k s > .
50.2 Funciones y variables para la dinmica

F u n c i n :c h a o s g a m e( ` [ [ ' < x 1 > ,< y 1 > ` ] '. . .' [ '< x m > ,< y m >` ] ]' , '[ ' < x 0 > ,< y 0 > ` ] ' , ,< n > ,. . . ,o p c i o n e s ,. . . ) ; I m p l e m e n t ae ll l a m a d oj u e g od e lc a o s :e lp u n t oi n i c i a l( < x 0 > , < y 0 > )s er e p r e s e n t aac o n t i n u a c i n ,u n od el o sp u n t o s< m >[ < x 1 >` ' , < y 1 >` ]' . . . '[ ' < x m > ,< y m > ` ] 's e r ns e l e c c i o n a d o sa la z a r .E lp r x i m o p u n t ot r a z ae s t a r e ne ls e g m e n t od e s d ee lp u n t oa n t e r i o r t r a z a d ah a s t ae lp u n t oe l e g i d oa la z a r ,au n ad i s t a n c i ad el a p u n t oa l e a t o r i oq u es e r v e c e sl al o n g i t u dd ee s es e g m e n t o .L a p r o c e d i m i e n t os er e p i t e< n >v e c e s .
F u n c i n :e v o l u c i n( < F > ,< y 0 > ,< n > ,. . . ,o p c i o n e s ,. . . ) ; L l a m al a< n + 1 >p u n t o se nu ng r f i c od ed o sd i m e n s i o n e s ,d o n d el ah o r i z o n t a l L a sc o o r d e n a d a sd el o sp u n t o ss o nl o sn m e r o se n t e r o s0 ,1 ,2 ,. . . ,< n > ,y l a sc o o r d e n a d a sv e r t i c a l e ss o nl o sv a l o r e sc o r r e s p o n d i e n t e s< y ( n ) >d e l s e c u e n c i ad e f i n i d ap o rl ar e l a c i nd er e c u r r e n c i a y( n+ 1 )=F( y( n ) ) C o n< y ( 0 ) >v a l o ri n i c i a li g u a la< y 0 > .< F >D e b es e ru n ae x p r e s i n q u es l od e p e n d ed eu n av a r i a b l e( e ne le j e m p l o ,q u ed e p e n d e < y > ,p e r oc u a l q u i e ro t r av a r i a b l ep u e d es e ru t i l i z a d o ) ,< y 0 >d e b es e ru nv e r d a d e r o n m e r oy< n >d e b es e ru nn m e r oe n t e r op o s i t i v o .
F u n c i n :e v o l u t i o n 2 d( ` [ ' < F > ,< G > ` ] ' ,' [ ' ,< v >` ]' , '[ ' ,< y 0 > ` ] ' ,< n >. . . ,o p c i o n e s ,. . . ) ; M u e s t r a ,e nu nd i a g r a m ab i d i m e n s i o n a l ,l o sp r i m e r o sp u n t o se nl a< n + 1 > s e c u e n c i ad ep u n t o sd e f i n i d o sp o rl ad i s c r e t ad ed o sd i m e n s i o n e s s i s t e m ad i n m i c od er e l a c i o n e sd er e c u r r e n c i a u( n+ 1 )=F( u( n ) ,v( n ) )v( n+ 1 )=G( u( n ) ,v( n ) ) C o nv a l o r e sy< v 0 >i n i c i a l .< F >Y< G >d e b eh a b e rd o s e x p r e s i o n e sq u ed e p e n d e ns l od ed o sv a r i a b l e s ,y< v > ,q u e d e b es e rn o m b r a d oe x p l c i t a m e n t ee nu n al i s t a .
F u n c i n :I F S( [ ' < R 1 > ,. . . ,< r m >` ] ' ` ,` [ ' < A 1 > ,. . . ,< A M > ` ] ' ,' [ [ '< x 1 > ,< y 1>` ]' ,. . . , '[ ' < x m > ,< y m > ` ] ] ' ,' [ '< x 0 > ,< y 0 >` < n > ,. . . ,o p c i o n e s ,. . . ) ; I m p l e m e n t ae lm t o d od es i s t e m ai t e r a d o .E s t em t o d oe s s i m i l a ral ad e lm t o d od e s c r i t oe nl af u n c i n` c h a o s g a m e' ,p e r o e nl u g a rd er e d u c i re ls e g m e n t od e s d ee lp u n t oa c t u a la l p u n t oe l e g i d oa la z a r ,l o s2c o m p o n e n t e sd ee s es e g m e n t os e r m u l t i p l i c a d op o re l2p o r2< A i >m a t r i zq u ec o r r e s p o n d ea lp u n t o e l e g i d oa la z a r . L ae l e c c i na la z a rd eu n od el o sp u n t o sa t r a c t i v o s< m >s ep u e d eh a c e r c o nu n ad i s t r i b u c i nd ep r o b a b i l i d a dn ou n i f o r m ed e f i n i d op o rl o sp e s o s < R 1 > ,. . . ,< r m > .L o sp e s o ss ed a ne nf o r m aa c u m u l a t i v a ;p a r a e j e m p l o ,s ih a y3p u n t o sc o np r o b a b i l i d a d e s0 . 2 ,0 . 5y 0 . 3 ,l o sp e s o s< R 1 > ,< R 2 >y< r 3 >p o d r a ns e r2 ,7y1 0 .
F u n c i n :j u l i a( < x >< y > ,. . .< o p c i o n e s >. . . ) C r e au na r c h i v od eg r f i c o sc o nl ar e p r e s e n t a c i nd e lc o n j u n t od eJ u l i a
456/633
28/08/13

p a r ae ln m e r oc o m p l e j o( < x >+i< y > ) .E l< x >p a r m e t r o sy< y > d e b es e rr e a l .E la r c h i v os ec r e ae ne ld i r e c t o r i oa c t u a loe n e ld i r e c t o r i od e lu s u a r i o ,u t i l i z a n d oe lf o r m a t og r f i c oX P M .E lp r o g r a m a p u e d et a r d a rv a r i o ss e g u n d o sp a r ac o r r e ryd e s p u sd eq u es eh a y at e r m i n a d o ,u n m e n s a j es e r i m p r e s oc o ne ln o m b r ed e la r c h i v oc r e a d o . L o sp u n t o sq u en op e r t e n e c e na lc o n j u n t od eJ u l i as ea s i g n a n d i f e r e n t e sc o l o r e s ,d ea c u e r d oc o ne ln m e r od ei t e r a c i o n e ss en e c e s i t a l as e c u e n c i ad ea r r a n q u ee ne s em o m e n t op a r as a l i rd el ac o n v e r g e n c i a c r c u l od er a d i o2 .E ln m e r om x i m od ei t e r a c i o n e ss ea j u s t ac o n l ao p c i n< l e v e l s > ;d e s p u sd eq u ee ln m e r od ei t e r a c i o n e s ,s ie l s e c u e n c i at o d a v ae s t d e n t r od e lc r c u l od ec o n v e r g e n c i a ,e lp u n t os e r p i n t a d oc o ne lc o l o rd e f i n i d op o rl ao p c i n< c o l o r > . T o d o sl o sc o l o r e su t i l i z a d o sp a r al o sp u n t o sq u en op e r t e n e c e nal aJ u l i a c o n j u n t ot e n d r e lm i s m o< s a t u r a t i o n >y< v a l o r > ,p e r oc o nd i f e r e n t e n g u l o sd et o n a l i d a d ,d i s t r i b u i d o su n i f o r m e m e n t ee n t r e< h u e >y( < h u e >+ < h u e r a n g e > ) . < o p c i o n e s >e su n as e c u e n c i ao p c i o n a ld eo p c i o n e s .L al i s t ad ea c e p t a d o s o p c i o n e ss ed ae nu n as e c c i nm sa d e l a n t e .
F u n c i n :m a n d e l b r o t( < o p c i o n e s > ) C r e au na r c h i v og r f i c oc o nl ar e p r e s e n t a c i nd el aM a n d e l b r o t e s t a b l e c i d o .E la r c h i v os ec r e ae ne ld i r e c t o r i oa c t u a loe ne ld e lu s u a r i o d i r e c t o r i o ,u s a n d oe lf o r m a t og r f i c oX P M .E lp r o g r a m ap u e d et o m a r v a r i o ss e g u n d o sp a r ac o r r e ryd e s p u sd eq u es eh a y at e r m i n a d o ,a p a r e c e r u nm e n s a j e i m p r e s oc o ne ln o m b r ed e la r c h i v oc r e a d o . L o sp u n t o sq u en op e r t e n e c e na lc o n j u n t od eM a n d e l b r o ts ea s i g n a n d i f e r e n t e sc o l o r e s ,d ea c u e r d oc o ne ln m e r od ei t e r a c i o n e ss en e c e s i t a l as e c u e n c i ag e n e r a d ac o ne s ep u n t od es a l i rd el a c o n v e r g e n c i ac r c u l oor a d i o2 .E ln m e r om x i m od ei t e r a c i o n e se s c o n j u n t oc o nl ao p c i n< l e v e l s > ,d e s p u sd eq u ee ln m e r od ei t e r a c i o n e s ,s i l as e c u e n c i at o d a v ae s t d e n t r od e lc r c u l od ec o n v e r g e n c i a ,e lp u n t o s e r p i n t a d oc o ne lc o l o rd e f i n i d op o rl ao p c i n< c o l o r > . T o d o sl o sc o l o r e su t i l i z a d o sp a r al o sp u n t o sq u en op e r t e n e c e nal a M a n d e l b r o tc o n j u n t ot e n d r e lm i s m o< s a t u r a t i o n >y< v a l o r > ,p e r o c o nd i f e r e n t e s n g u l o sd et o n a l i d a d ,d i s t r i b u i d o su n i f o r m e m e n t ee n t r e< h u e >y ( < h u e >+< h u e r a n g e > ) . < o p c i o n e s >e su n as e c u e n c i ao p c i o n a ld eo p c i o n e s .L al i s t ad ea c e p t a d o s o p c i o n e ss ed ae nu n as e c c i nm sa d e l a n t e .
F u n c i n : r b i t a s( < F > ,< y 0 > ,< n 1 > ,< n 2 > ,[ < x >< x 0 > ,< x f > ,< x s t e p > ] ,. . .o p c i o n e s. . . ) ; L l a m ae ld i a g r a m ad e r b i t a sp a r au n af a m i l i ad ed i s c r e t ou n i d i m e n s i o n a l s i s t e m a sd i n m i c o s ,c o nu np a r m e t r o< x > ;e s et i p od ed i a g r a m ae s u t i l i z a d op a r ae s t u d i a rl a sb i f u r c a c i o n e sd eu nd i s c r e t ou n i d i m e n s i o n a l s i s t e m a . E l< F ( y ) >f u n c i nd e f i n eu n as e c u e n c i ac o nu nv a l o rd ep a r t i d ad e < y 0 > ,c o m oe ne lc a s od el af u n c i n` e v o l u c i n' ,p e r oe ne s t ec a s o q u el af u n c i nt a m b i nd e p e n d e r d eu np a r m e t r o< x >q u et e n d r v a l o r e se ne li n t e r v a l od e< x 0 >a< x f >c o ni n c r e m e n t o sd e < x s t e p > .C a d av a l o ru t i l i z a d op a r ae l< x >p a r m e t r os em u e s t r ae nl a e j eh o r i z o n t a l .E ne le j ev e r t i c a ls em u e s t r a nl o sv a l o r e sd e< n 2 > e l< y ( n 1 + 1 ) >s e c u e n c i a ,. . . ,< y ( n 1 + n 2 + 1 ) >o b t i e n ed e s p u sd ed e j a r l as e c u e n c i ad ee v o l u c i o n a ri t e r a c i o n e s< n 1 > .
F u n c i n :r k( < O D E > ,< v a r > , ,< d o m i n i o > ) F u n c i n :r k( [ < O D E 1 > ,. . . ,< O D E m > ] ,[ < v 1 > ,. . . ,< v m > ] ,[ ,. . . , ] ,< d o m i n i o > ) L ap r i m e r af o r m ar e s u e l v en u m r i c a m e n t eu n ad ep r i m e ro r d e no r d i n a r i a e c u a c i nd i f e r e n c i a l ,yl as e g u n d af o r m ar e s u e l v eu ns i s t e m ad emd e e s a se c u a c i o n e s ,u t i l i z a n d oe lm t o d od ec u a r t oo r d e nd eR u n g e K u t t a .< v a r > r e p r e s e n t al av a r i a b l ed e p e n d i e n t e .< O D E >D e b es e ru n ae x p r e s i n q u es l od e p e n d ed el a sv a r i a b l e syd e p e n d i e n t e sei n d e p e n d i e n t e s d e f i n el ad e r i v a d ad el av a r i a b l ed e p e n d i e n t ec o nr e s p e c t oal o s l av a r i a b l ei n d e p e n d i e n t e . L av a r i a b l ei n d e p e n d i e n t es ee s p e c i f i c ac o ne ld o m i n i o` ' ,q u ed e b es e r u n al i s t ad ec u a t r oe l e m e n t o sc o m o ,p o re j e m p l o : [ T ,0 ,1 0 ,0 . 1 ] e lp r i m e re l e m e n t od el al i s t ai d e n t i f i c al av a r i a b l ei n d e p e n d i e n t e , l o se l e m e n t o ss e g u n d oyt e r c e r os o nl o sv a l o r e si n i c i a lyf i n a lp a r a e s av a r i a b l e ,ye l l t i m oe l e m e n t oe s t a b l e c el o si n c r e m e n t o sq u e d e b eu s a r s ed e n t r od ee s ei n t e r v a l o . S il a se c u a c i o n e s< m >v a nas e rr e s u e l t o ,n od e b e r ah a b e r< m > v a r i a b l e sd e p e n d i e n t e s< v 1 > ,< V 2 > ,. . . ,< v m > .L o sv a l o r e si n i c i a l e sp a r a e s a sv a r i a b l e ss e r n , ,. . . , .A l l s e g u i r s i e n d os l ou n av a r i a b l ei n d e p e n d i e n t ed e f i n i d ap o r' d o m i n i o ' , c o m oe ne lc a s oa n t e r i o r .< O D E 1 > ,. . . ,< O D E m >S o nl a se x p r e s i o n e s q u ed e f i n e nl a sd e r i v a d a sd ec a d av a r i a b l ed e p e n d i e n t ee nt r m i n o sd e l av a r i a b l ei n d e p e n d i e n t e .L a s n i c a sv a r i a b l e sq u ep u e d e na p a r e c e re n e s a se x p r e s i o n e ss o nl av a r i a b l ei n d e p e n d i e n t eyc u a l q u i e r ad el o s v a r i a b l e sd e p e n d i e n t e s .E si m p o r t a n t ed a ral o sd e r i v a d o s
457/633
28/08/13

< O D E 1 > ,. . . ,< O D E m >M e n c i o n a d o sd ee x a c t a m e n t ee lm i s m oo r d e nu t i l i z a d op a r a l a sv a r i a b l e sd e p e n d i e n t e s ,p o re j e m p l o ,e lt e r c e re l e m e n t oe ne l l i s t as e r i n t e r p r e t a d oc o m ol ad e r i v a d ad el at e r c e r ad e p e n d i e n t e v a r i a b l e . E lp r o g r a m at r a t a r d ei n t e g r a rl a se c u a c i o n e sd el ai n i c i a l v a l o rd el av a r i a b l ei n d e p e n d i e n t eh a s t as u l t i m ov a l o r ,u t i l i z a n d o i n c r e m e n t o sc o n s t a n t e s .S ie na l g np a s od eu n od el o sd e p e n d i e n t e s V a r i a b l e st o m au nv a l o ra b s o l u t om u yg r a n d e ,l ai n t e g r a c i ns e s e ri n t e r r u m p i d oe ne s ep u n t o .E lr e s u l t a d os e r u n al i s t ac o nc o m o t a n t o se l e m e n t o sc o m oe ln m e r od ei t e r a c i o n e sr e a l i z a d a s .C a d ae l e m e n t od e l al i s t ad er e s u l t a d o se se ns m i s m oo t r al i s t ac o n< m >1e l e m e n t o s : v a l o rd el av a r i a b l ei n d e p e n d i e n t e ,s e g u i d op o rl o sv a l o r e sd el a v a r i a b l e sd e p e n d i e n t e sc o r r e s p o n d i e n t e sae s ep u n t o .
F u n c i n :e s c a l e r a( < F > ,< y 0 > ,< n >. . .O p c i o n e s. . . ) ; L l a m au nd i a g r a m ad ee s c a l e r ap a r al as e c u e n c i ad e f i n i d ap o re l r e l a c i nd er e c u r r e n c i a y( n+ 1 )=F( y( n ) ) L ai n t e r p r e t a c i nyl o sv a l o r e sp e r m i t i d o sd el o sp a r m e t r o sd ee n t r a d as o n l am i s m aq u ep a r al af u n c i n` e v o l u c i n' .U nd i a g r a m ad ee s c a l e r a c o n s t ad eu n ap a r c e l ad el a< F ( y ) >f u n c i n ,j u n t oc o nl al n e a < G ( y ) >` =' < y > .U ns e g m e n t ov e r t i c a ls ed i b u j ad e s d ee lp u n t o( < y 0 > , < y 0 > )e ne s al n e ah a s t ae lp u n t od o n d es ec r u z ac o nl a < F >f u n c i n .D e s d ee s ep u n t od eu ns e g m e n t oh o r i z o n t a ls ed i b u j ah a s t a q u ea l c a n z ae lp u n t o( < y 1 > ,< y 1 > )e nl al n e a ,ye lp r o c e d i m i e n t o < n >v e c e ss er e p i t eh a s t aq u es ea l c a n z ae lp u n t o( < y n > ,< y n > ) .
51 ezunits
I n t r o d u c c i nae z u n i t s I n t r o d u c c i nap h y s i c a l _ c o n s t a n t s F u n c i o n e syv a r i a b l e sp a r ae z u n i t s
51.1 Introduccin a ezunits

` E z u n i t s' e su np a q u e t ep a r at r a b a j a rc o nm a g n i t u d e sd i m e n s i o n a l e s , i n c l u y e n d oa l g u n a sf u n c i o n e sp a r aa n l i s i sd i m e n s i o n a l .` E z u n i t s' p u e d e nl l e v a ra l a so p e r a c i o n e sa r i t m t i c a ss o b r el a sc a n t i d a d e sd i m e n s i o n a l e syl au n i d a d c o n v e r s i o n e s .L a su n i d a d e si n c o r p o r a d a si n c l u y e nS i s t e m aI n t e r n a c i o n a l( S I ) yl a su n i d a d e sd eE E . U U .yo t r a su n i d a d e ss ep u e d e nd e c l a r a r .V a s et a m b i n ` P h y s i c a l _ c o n s t a n t s' ,u n ac o l e c c i nd ec o n s t a n t e sf s i c a s . ` C a r g a( e z u n i t s )' c a r g ae lp a q u e t e .P a n t a l l a s` d e m o s t r a c i n( e z u n i t s )' v a r i o se j e m p l o s .L af u n c i nd ec o n v e n i e n c i a` k n o w n _ u n i t s' d e v u e l v eu n l i s t ad el a su n i d a d e si n t e g r a d a syf c i l e sd ed e c l a r a d a ,m i e n t r a sq u e ` D i s p l a y _ k n o w n _ u n i t _ c o n v e r s i o n s' m u e s t r ae lc o n j u n t od ec o n v e r s i o n e sc o n o c i d a s e nu nf o r m a t of c i ld el e e re lf o r m a t o . L ae x p r e s i na` br e p r e s e n t au n ac a n t i d a dd i m e n s i o n a l ,c o n' a ' l oq u ei n d i c au n ac a n t i d a da d i m e n s i o n a ly' b 'i n d i c al ad i m e n s i n u n i d a d e s .U ns m b o l op u e d es e ru t i l i z a d oc o m ou n au n i d a ds i nd e c l a r a rc o m ot a l ; s m b o l o sd el a su n i d a d e sn on e c e s i t a nt e n e rp r o p i e d a d e se s p e c i a l e s .L ac a n t i d a dy u n i d a dd eu n ae x p r e s i nd eu n` bp u e d es e re x t r a d op o re l `C a n t i d a d' y` u n i d a d e s ' f u n c i o n e s ,r e s p e c t i v a m e n t e . U ns m b o l op u e d es e rd e c l a r a d au n ac a n t i d a dd i m e n s i o n a l ,c o n c a n t i d a dd e t e r m i n a d aod e t e r m i n a d a su n i d a d e soa m b o s . L ae x p r e s i na` b` `cc o n v e r s o sd el au n i d a d `b' d eu n i d a d 'c' . ` E z u n i t s' h ai n c o r p o r a d oe nl a sc o n v e r s i o n e sd eu n i d a d e sS Ib s i c a s ,l a su n i d a d e sd e r i v a d a sd e lS I , ya l g u n a su n i d a d e sa j e n a sa lS I .L a sc o n v e r s i o n e sd eu n i d a d e sn oy ac o n o c i d o sp o r` e z u n i t s' p u e d es e rd e c l a r a d a .L a sc o n v e r s i o n e sd eu n i d a d e sc o n o c i d a sp a r a` e z u n i t s' s ee s p e c i f i c a n p o rl o s` k n o w n _ u n i t _ c o n v e r s i o n sv a r i a b l e sg l o b a l e s " ,q u ec o m p r e n d e d e f i n i d op o re lu s u a r i oi n c o r p o r a d oyc o n v e r s i o n e s .C o n v e r s i o n e sd el o sp r o d u c t o s , c o c i e n t e syp o t e n c i a sd el a su n i d a d e ss ed e r i v a nd e lc o n j u n t od eu n i d a dc o n o c i d a c o n v e r s i o n e s . C o m oM a x i m ag e n e r a l m e n t ep r e f i e r en m e r o se x a c t o s( e n t e r o sor a c i o n a l e s )p a r a i n e x a c t a( f l o a tob i g f l o a t ) ,p o rl oq u e` e z u n i t s' c o n s e r v an m e r o se x a c t o sc u a n d o e nq u ea p a r e c e ne nc a n t i d a d e sd i m e n s i o n a l e s .T o d a sl a sc o n v e r s i o n e sd eu n i d a d e si n c o r p o r a d a s s ee x p r e s a ne nt r m i n o sd ec i f r a se x a c t a s ,l o sn m e r o si n e x a c t o se nd e c l a r a r c o n v e r s i o n e ss o no b l i g a d o sae x i g i r . N oe x i s t eu ns i s t e m ap r e f e r i d op a r al av i s u a l i z a c i nd el a su n i d a d e s ;u n i d a d e sd ee n t r a d as o n n oc o n v e r t i d aao t r a su n i d a d e sm e n o sq u es ei n d i q u ee x p l c i t a m e n t ed ec o n v e r s i n . ` E z u n i t s' r e c o n o c el o sp r e f i j o sm , k ,MyG ( p o rm i l i ,k i l o , m e g ayg i g a )t a lc o m os ea p l i c aal a su n i d a d e sS Ib s i c a syu n i d a d e sd e r i v a d a sd e lS I ,p e r o e s t o sp r e f i j o ss ea p l i c a ns l oc u a n d oe s t i n d i c a d op o ru n ac o n v e r s i ne x p l c i t a . O p e r a c i o n e sa r i t m t i c a sc o nm a g n i t u d e sd i m e n s i o n a l e ss o nr e a l i z a d a sp o r n o r m a sc o n v e n c i o n a l e sp a r at a l e so p e r a c i o n e s . *( X` a )*( y `b )e si g u a la( x*y )` ( a*b ) . *( X` a )+( y à )e si g u a la( x+y )` a .
458/633
28/08/13

*( X` a )^ye si g u a lax^y à^yc u a n d o` y' e sa d i m e n s i o n a l . ` E z u n i t s' n or e q u i e r eq u el a su n i d a d e se nu n as u m at i e n e ne lm i s m o d i m e n s i o n e s ,d i c h o st r m i n o sn os es u m a n ,ys i ne r r o re sr e p o r t a d o . ` E z u n i t s' i n c l u y ef u n c i o n e sp a r ae la n l i s i sd i m e n s i o n a lp r i m a r i a , e sd e c i r ,l a sd i m e n s i o n e sf u n d a m e n t a l e syl a su n i d a d e sf u n d a m e n t a l e sd eu n m a g n i t u dd i m e n s i o n a l ,ye lc l c u l od em a g n i t u d e sa d i m e n s i o n a l e sy u n i d a d e sn a t u r a l e s .L a sf u n c i o n e sp a r ae la n l i s i sd i m e n s i o n a ls ea d a p t a r o n d ef u n c i o n e ss i m i l a r e se no t r op a q u e t e ,e s c r i t op o rB a r t o nW i l l i s . P a r ae lp r o p s i t od e la n l i s i sd i m e n s i o n a l ,u n al i s t ad ef u n d a m e n t a l d i m e n s i o n e syu n al i s t ad ea s o c i a d o sd el a su n i d a d e sf u n d a m e n t a l e ss em a n t i e n e n ; d ef o r m ap r e d e t e r m i n a d al a sd i m e n s i o n e sf u n d a m e n t a l e ss o nl o n g i t u d ,m a s a ,t i e m p o ,c a r g a , l at e m p e r a t u r ayl ac a n t i d a dyl a su n i d a d e sf u n d a m e n t a l e ss o ne la s o c i a d o U n i d a d e sd e lS I ,p e r oo t r a sd i m e n s i o n e syu n i d a d e sf u n d a m e n t a l e ss ep u e d e nd e c l a r a r .
51.2 Introduccin a physical_constants

P h y s i c a l _ c o n s t a n t s` ' e su n ac o l e c c i nd ec o n s t a n t e sf s i c a s ,c o p i a d od e V a l o r e sr e c o m e n d a d o sC O D A T A2 0 0 6 .[ 1 ]l o a d( p h y s i c a l _ c o n s t a n t s )' c a r g a s E s t ep a q u e t e ,yu nm o n t n` e z u n i t s' t a m b i n ,s in oe s t y ac a r g a d o . U n ac o n s t a n t ef s i c as er e p r e s e n t ac o m ou ns m b o l oq u et i e n eu n ap r o p i e d a d q u ee se lv a l o rc o n s t a n t e .E lv a l o rd el ac o n s t a n t ee su n ad i m e n s i o n e s c a n t i d a d ,c o m os er e p r e s e n t ap o re z u n i t s` ' .L af u n c i n` c o n s t v a l u e' r e c o g ee lv a l o rc o n s t a n t e ,e lv a l o rc o n s t a n t en oe sl oc o m n v a l o rd e ls m b o l o ,p o rl oq u el o ss m b o l o sd ec o n s t a n t e sf s i c a sp e r s i s t e ne n e v a l u a d oe x p r e s i o n e sh a s t aq u es u sv a l o r e ss er e c u p e r a np o r` c o n s t v a l u e' . ` P h y s i c a l _ c o n s t a n t s' i n c l u y ea l g u n ai n f o r m a c i na u x i l i a r ,e sd e c i r ,u n c a d e n ad ed e s c r i p c i np a r ac a d ac o n s t a n t e ,u n ae s t i m a c i nd e le r r o rd es u v a l o rn u m r i c oyu n ap r o p i e d a dp a r al av i s u a l i z a c i nT e X .P a r ai d e n t i f i c a rf s i c a c o n s t a n t e s ,c a d as m b o l ot i e n el ap r o p i e d a d` p h y s i c a l _ c o n s t a n t' ; ` P r o p v a r s( p h y s i c a l _ c o n s t a n t )' p o rl ot a n t o ,m u e s t r al al i s t ad et o d a se s a s s m b o l o s . ` P h y s i c a l _ c o n s t a n t s' c o m p r e n d el a ss i g u i e n t e sc o n s t a n t e s . ` %C' v e l o c i d a dd el al u ze ne lv a c o ` %M u _ 0' m a g n t i c oc o n s t a n t e ` %E _ 0' e l c t r i c oc o n s t a n t e ` %Z _ 0' i m p e d a n c i ac a r a c t e r s t i c ad e lv a c o ` %T' C o n s t a n t ed eN e w t o nd el ag r a v i t a c i n %` H' C o n s t a n t ed eP l a n c k ` %H _ b a r' C o n s t a n t ed eP l a n c k ` %M _ p' M a s ad eP l a n c k ` %T _ p' T e m p e r a t u r ad eP l a n c k ` %L _ p' L o n g i t u dd eP l a n c k ` %T _ p' T i e m p od eP l a n c k ` % %E' c a r g ae l e m e n t a l ` %P h i _ 0' c u a n t od ef l u j om a g n t i c o ` %G _ 0' c o n d u c t a n c i ac u n t i c a ` %K _ j' J o s e p h s o nc o n s t a n t e ` %R _ K' v o nK l i t z i n gc o n s t a n t e ` %M u _ B' B o h rm a g n e t n ` %M u _ N' n u c l e a rm a g n e t n %` A l p h a'
459/633
28/08/13
c o n s t a n t ed ee s t r u c t u r af i n a ` %R _ i n f' C o n s t a n t ed eR y d b e r g ` %A _ 0' R a d i od eB o h r ` %E _ h' E n e r g aH a r t r e e ` %R a t i o _ h _ m e' c u n t i c ad el ac i r c u l a c i n ` %M _ e' m a s ad e le l e c t r n ` %N _ A' C o n s t a n t ed eA v o g a d r o ` %M _ u' c o n s t a n t ed em a s aa t m i c a ` %F' C o n s t a n t ed eF a r a d a y ` %R' c o n s t a n t em o l a rd el o sg a s e s ` % %K' C o n s t a n t ed eB o l t z m a n n ` %VM .' v o l u m e nm o l a rd e lg a si d e a l ` %N _ 0' L o s c h m i d tc o n s t a n t e
` %R a t i o _ S 0 _ R' S a c k u r T e t r o d ec o n s t a n t e( c o n s t a n t ed ee n t r o p aa b s o l u t a ) ` %S i g m a' C o n s t a n t ed eS t e f a n B o l t z m a n n ` %C _ 1' p r i m e r ac o n s t a n t ed er a d i a c i n ` %C _ 1 L' p r i m e r ac o n s t a n t ed er a d i a c i np a r ar a d i a n c i ae s p e c t r a l ` %C _ 2' s e g u n d ac o n s t a n t ed er a d i a c i n ` %B' W i e nl e yd ed e s p l a z a m i e n t oc o n s t a n t e ` %B _ p r i m e' W i e nl e yd ed e s p l a z a m i e n t oc o n s t a n t e R e f e r e n c i a s : [ 1 ]` h t t p : / / p h y s i c s . n i s t . g o v / c o n s t a n t s' E j e m p l o s : L al i s t ad et o d o sl o ss m b o l o sq u et i e n e nl ap r o p i e d a d` p h y s i c a l _ c o n s t a n t' . ( %I 1 )l o a d( p h y s i c a l _ c o n s t a n t s )$ ( %I 2 )p r o p v a r s( p h y s i c a l _ c o n s t a n t ) ; ( %O 2 )[ %c , %m u _ 0 ,E _ 0 % , %Z _ 0 , %G , %h , %h _ b a r ,m _ p % , %t _ p , %l _ p , T _ p % , % %e , %P h i _ 0 ,G _ 0 % , %k _ j ,R _ K % , %m u _ B ,m u _ N % , %d ea l f a , R _ i n f % , %a _ 0 ,E _ h % , %r a t i o _ h _ m e ,m _ e % , %N _ A ,m _ u % , %F , %I , % %k , %VM . ,n _ 0 % , %r a t i o _ S 0 _ R , %s i g m a ,c _ 1 % , %c _ 1 L ,c _ 2 % , %b , %b _ p r i m e ] L a sp r o p i e d a d e sd el af s i c ac o n s t a n t e` %c' . ( %I 1 )l o a d( p h y s i c a l _ c o n s t a n t s )$ ( %I 2 )c o n s t a n t p( %c ) ; ( %O 2 )t r u e ( %I 3 )g e t( %c ,d e s c r i p c i n ) ; ( %O 3 )v e l o c i d a dd el al u ze ne lv a c o ( %I 4 )c o n s t v a l u e( %c ) ; m ( %O 4 )2 9 9 7 9 2 4 5 8` s ( %I 5 )g e t( %c ,R S U ) ; ( %O 5 )0 ( %I 6 )t e x( %c ) ; $$$$C ( %O 6 )f a l s e L ae n e r g ae q u i v a l e n t ea1l i b r ad em a s a .E ls m b o l o` %c' p e r s i s t e h a s t aq u es uv a l o rs er e c u p e r ap o r` c o n s t v a l u e' . ( %I 1 )l o a d( p h y s i c a l _ c o n s t a n t s )$ ( %I 2 )m* %c^2 ; 2
460/633
28/08/13
( %O 2 ) %c m ( %I 3 ) % ,m=1` l b m ; 2 ( %O 3 ) %c` l b m ( %I 4 )c o n s t v a l u e( % ) ;
2 l b mm ( %O 4 )8 9 8 7 5 5 1 7 8 7 3 6 8 1 7 6 4` 2 s ( %I 5 )E : %` `J ; I n f o r m t i c ac o n v e r s i o n e sau n i d a d e sd eb a s e ;p u e d et o m a ru nm o m e n t o . 3 6 6 8 3 8 8 4 8 4 6 4 0 0 7 2 0 0 ( %O 5 )-` J 9 ( %I 6 )E` `G J ; 4 5 8 5 4 8 5 6 0 5 8 0 0 0 9 ( %O 6 )-` G J 1 1 2 5 0 0 0 0 ( %I 7 )f l o t a d o r( % ) ; ( %O 7 )4 . 0 7 5 9 8 7 2 0 5 1 5 5 6 3 5 6 e7` G J
51.3 Funciones y variables para ezunits

O p e r a d o r :` E lo p e r a d o rd em a g n i t u dd i m e n s i o n a l .L ae x p r e s i na` br e p r e s e n t a u n ac a n t i d a dd i m e n s i o n a l ,c o nu n a` ' q u ei n d i c au na d i m e n s i o n a l c a n t i d a dy` b' i n d i c al a su n i d a d e sd em e d i d a .U ns m b o l op u e d e p u e d eu t i l i z a rc o m ou n au n i d a ds i nd e c l a r a r l oc o m ot a l ,s m b o l o sd el a su n i d a d e sd e b e n n ot i e n e np r o p i e d a d e se s p e c i a l e s .L ac a n t i d a dyl au n i d a dd eu n e x p r e s i nd eu n` bp u e d es e re x t r a d op o re l `C a n t i d a d' y` u n i d a d e s ' f u n c i o n e s ,r e s p e c t i v a m e n t e . O p e r a c i o n e sa r i t m t i c a sc o nm a g n i t u d e sd i m e n s i o n a l e ss o nr e a l i z a d a sp o r n o r m a sc o n v e n c i o n a l e sp a r at a l e so p e r a c i o n e s . *( X` a )*( y `b )e si g u a la( x*y )` ( a*b ) . *( X` a )+( y à )e si g u a la( x+y )` a . *( X` a )^ye si g u a lax^y à^yc u a n d o` y' e sa d i m e n s i o n a l . ` E z u n i t s' n or e q u i e r eq u el a su n i d a d e se nu n as u m at i e n e ne lm i s m o d i m e n s i o n e s ,t a l e st r m i n o sn os es u m a n ,yn i n g ne r r o re s r e p o r t a d o . L o a d( e z u n i t s )" p e r m i t eae s t eo p e r a d o r . E j e m p l o s : ( S y s t e m eI n t e r n a t i o n a l e )u n i d a d e sd e lS I . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )f o o :1 0` m ; ( %O 2 )1 0` m ( %I 3 )C a n t i d a d( f o o ) ; ( %O 3 )1 0 ( %I 4 )u n i d a d e s( f o o ) ; ( %O 4 )m ( %I 5 )D i m e n s i o n e s( f o o ) ; ( %O 5 )L o n g i t u d U n i d a d e s" c o n s u e t u d i n a r i o s " . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )b a r :x` a c r e ; ( %O 2 )x` a c r e ( %I 3 )D i m e n s i o n e s( b a r ) ; 2 ( %O 3 )L o n g i t u d ( %I 4 )f u n d a m e n t a l _ u n i t s( b a r ) ; 2 ( %O 4 )m U n i d a d e sa dh o c . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )b a z :` o v e j a s+8 `+` c a b a l l oc a b r a13 ; ( %O 2 )8` c a b r a+3+o v e j a `` c a b a l l o1 ( %I 3 )s u b s t( [ o v e j a s=3*c a b r a ,c a b a l l o=1 0*c a b r a ] ,b a z ) ; ( %O 3 )2 7` c a b r a ( %I 4 )b a z 2 :1 0 0 0` g a l n/q u i n c e n a ; g a l n ( %O 4 )1 0 0 0` q u i n c e n a ( %I 5 )s u b s t( q u i n c ed a s=1 4*d a s ,b a z 2 ) ; 5 0 0g a l o n e s ( %O 5 )-` 7d a s O p e r a c i o n e sa r i t m t i c a sc o nm a g n i t u d e sd i m e n s i o n a l e s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )1 0 0k g` + `2 0 0k g ;
461/633
28/08/13

( %O 2 )3 0 0k g` ( %I 3 )1 0 0` m^3-1 0 0 `m^3 ; 3 ( %O 3 )0` m ( %I 4 )( 1 0` k g )*( 1 7 `m/s^2 ) ; k gm ( %O 4 )-1 7 0` 2 s ( %I 5 )( x` m )/( y `s ) ; x m ( %O 5 )-` y s ( %I 6 )( a` m )^2 ; 22 ( %O 6 )a` m
O p e r a d o r :` ` E lo p e r a d o rd ec o n v e r s i nd eu n i d a d e s .U n ae x p r e s i nd eu n` b` `cc o n v e r s o s d el au n i d a d` b' al au n i d a d `c ' .` E z u n i t s' h ai n c o r p o r a d oe nl a sc o n v e r s i o n e sd e U n i d a d e sS Id eb a s e ,u n i d a d e sd e r i v a d a sd e lS I ,ya l g u n a su n i d a d e sa j e n a sa lS I .U n i d a d c o n v e r s i o n e sn oy as es a b eq u e` e z u n i t s' s ep u e d e nd e c l a r a r .L a c o n v e r s i o n e sd eu n i d a d e sc o n o c i d a s` e z u n i t s' s o ne s p e c i f i c a d o sp o re lm u n d i a l ` k n o w n _ u n i t _ c o n v e r s i o n s' v a r i a b l e s ,q u ei n c l u y eu n af u n c i nd ey c o n v e r s i o n e sd e f i n i d ap o re lu s u a r i o .C o n v e r s i o n e sd ep r o d u c t o s ,c o c i e n t e s , yp o t e n c i a sd eu n i d a d e ss ed e r i v a nd e lc o n j u n t od eu n i d a dc o n o c i d a c o n v e r s i o n e s . N oe x i s t eu ns i s t e m ap r e f e r i d op a r al av i s u a l i z a c i nd el a su n i d a d e s ;u n i d a d e sd ee n t r a d as o n n oc o n v e r t i d aao t r a su n i d a d e sd ec o n v e r s i ne sm e n o sq u ee x p l c i t a m e n t e s ei n d i c a .` E z u n i t s' n ot r a t ad es i m p l i f i c a rl a su n i d a d e sd e p r e f i j o s( m i l i ,c e n t i ,d e c i ,e t c )am e n o sq u ed i c h ac o n v e r s i ne s s ei n d i q u ee x p l c i t a m e n t e . L o a d( e z u n i t s )" p e r m i t eae s t eo p e r a d o r . E j e m p l o s : E lc o n j u n t od ec o n v e r s i o n e sd eu n i d a d e sc o n o c i d a s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )d i s p l a y 2 d :f a l s e$ ( %I 3 )k n o w n _ u n i t _ c o n v e r s i o n s ; ( %O 3 ){ a c r e=4 . 8 4 0*y a r d a^2 ,B t u=1 0 5 5*J ,c f m=p i e s^3 / m i n u t e , c m=m / 1 0 0 ,d a s=8 6 . 4 0 0*s ,p i e s=3 8 1*m / 1 2 5 0 ,f t=p i e s , g=k g / 1 0 0 0 ,g a l n=7 5 7*l / 2 0 0 ,G H z=1 0 0 0 0 0 0 0 0 0*H z , G O h m=1 0 0 0 0 0 0 0 0 0*O h m ,G P a=1 0 0 0 0 0 0 0 0 0*P a , G W B=1 0 0 0 0 0 0 0 0 0*W b ,G g=1 0 0 0 0 0 0*k g ,G M=1 0 0 0 0 0 0 0 0 0*m , G m o l=1 0 0 0 0 0 0*m o l ,G s=1 0 0 0 0 0 0 0 0 0*s ,h a=h e c t r e a s , h e c t r e a=1 0 0*m^2 ,h o r a s=3 6 0 0*s ,H z=1/s ,p u l g a d a=f e e t / 1 2 , k m=1 0 0 0*m ,k m o l=1 0 0 0*m o l ,k s=1 0 0 0*s ,l=l i t r o s , l b f=p o u n d _ f o r c e ,l b m=p o u n d _ m a s s ,l i t r o s=m^3 / 1 0 0 0 , m e t r i c _ t o n=M g ,m g=k g / 1 0 0 0 0 0 0 ,M H z=1 . 0 0 0 . 0 0 0*H z , m i c r o g r a m o=k g / 1 0 0 0 0 0 0 0 0 0 ,m i c r m e t r o=m / 1 0 0 0 0 0 0 , m i c r a=m i c r m e t r o ,m i c r o s e g u n d o=s / 1 0 0 0 0 0 0 , m i l l a=5 2 8 0p i e s* ,m i n u t o s=6 0*s ,m m=m / 1 0 0 0 , m m o l=m o l / 1 0 0 0 ,m e s=2 6 2 9 8 0 0*s ,M O h m=1 0 0 0 0 0 0*O h m , M P a=1 0 0 0 0 0 0*P a ,m s=s / 1 0 0 0 ,M W B=1 0 0 0 0 0 0*W b , M g=1 0 0 0*k g ,M m=1 0 0 0 0 0 0*m ,M m o l=1 0 0 0 0 0 0 0 0 0*m o l , M s=1 0 0 0 0 0 0*s ,n s=s / 1 0 0 0 0 0 0 0 0 0 ,o z=p o u n d _ m a s s / 1 6 , o z=o n z a ,O h m=s*J/C^2 , p o u n d _ f o r c e=3 2*m*p o u n d _ m a s s/s^2 , p o u n d _ m a s s=2 0 0*k g / 4 4 1 ,p s i=p o u n d _ f o r c e/c m^2 , P a=N/m^2 ,l as e m a n a=6 0 4 8 0 0*s ,W b=J/A ,y a r d a=3p i e s* , a o=3 1 5 5 7 6 0 0*s ,C=s*A ,F=C^2/J ,G A=1 0 0 0 0 0 0 0 0 0*A , G C=1 0 0 0 0 0 0 0 0 0*C ,G F=1 0 0 0 0 0 0 0 0 0*F ,G H=1 0 0 0 0 0 0 0 0 0*H , G J=1 0 0 0 0 0 0 0 0 0*J ,G K=1 0 0 0 0 0 0 0 0 0*K ,G N=1 0 0 0 0 0 0 0 0 0*N , G S=1 0 0 0 0 0 0 0 0 0*S ,G T=1 0 0 0 0 0 0 0 0 0*T ,G V=1 0 0 0 0 0 0 0 0 0*V , G W=1 0 0 0 0 0 0 0 0 0*W ,H=J/A^2 ,J=m*N ,k A=1 0 0 0*A , k C=1 0 0 0*C ,K F=1 0 0 0*F ,k H=1 0 0 0*H ,k H z=1 0 0 0*H z , k J=1 , 0 0 0*J ,K K=1 , 0 0 0*K ,k N=1 0 0 0*N ,k O h m=1 . 0 0 0O h m* , k P a=1 0 0 0*P a ,k S=1 0 0 0*S ,k T=1 . 0 0 0*T ,k V=1 0 0 0*V , k W=1 0 0 0*W ,K W B=1 0 0 0*W b ,m A=A / 1 0 0 0 ,m C=C / 1 0 0 0 , m F=F / 1 0 0 0 ,m H=H / 1 0 0 0 ,m H z=H z / 1 0 0 0 ,M J=J / 1 0 0 0 , m K=K / 1 0 0 0 ,m N=N / 1 0 0 0 ,m O h m=O h m / 1 0 0 0 ,m P a=P a / 1 0 0 0 , m S=s / 1 0 0 0 ,m T=T / 1 0 0 0 ,m V=V / 1 0 0 0 ,M w=W / 1 0 0 0 , m W b=W b / 1 0 0 0 ,M A=1 . 0 0 0 . 0 0 0*A ,M C=1 . 0 0 0 . 0 0 0*C , M F=1 0 0 0 0 0 0*F ,M H=1 0 0 0 0 0 0*H ,M J=1 0 0 0 0 0 0*J , M K=1 0 0 0 0 0 0*K ,M N=1 0 0 0 0 0 0*N ,M S=1 0 0 0 0 0 0*S , M T=1 0 0 0 0 0 0*T ,M V=1 0 0 0 0 0 0*V ,M W=1 0 0 0 0 0 0*W , N=k g*m/s^2 ,R=5*K/9 ,S=1 / o h m i o ,T=J/( m^2*A ) ,V=J/C , W=J/s } C o n v e r s i o n e sd eu n i d a d e se l e m e n t a l e s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )1f t` `` m ; I n f o r m t i c ac o n v e r s i o n e sau n i d a d e sd eb a s e ;p u e d et o m a ru nm o m e n t o . 3 8 1 ( %O 2 )-` m 1 2 5 0 ( %I 3 ) % ,n u m e r ; ( %O 3 )0 . 3 0 4 8m` ( %I 4 )1k g` ` `l b m ;
462/633
28/08/13
( %O 4 )-` l b m

4 4 1 2 0 0 ( %I 5 ) % ,n u m e r ; ( %O 5 )2 . 2 0 5` l b m ( %I 6 )1` ` `WB t u/h o r a ; 7 2 0B t u ( %O 6 )-' 2 1 1h o r a s ( %I 7 ) % ,n u m e r ; B t u ( %O 7 )3 , 4 1 2 3 2 2 2 7 4 8 8 1 5 1 7` h o r a ( %I 8 )1 0 0d e g C` ` `F ; ( %O 8 )2 1 2` d e g F ( %I 9 )4 0F` ` `d e g C ; ( %O 9 )( -4 0 )` d e g C ( %I 1 0 )1` a c r e sp i e s*` `m^3 ; 6 0 2 2 8 6 0 5 3 4 93 ( %O 1 0 )-` m 4 8 8 2 8 1 2 5 ( %I 1 1 ) % ,n u m e r ; 3 ( %O 1 1 )1 . 2 3 3 , 4 8 1 8 3 7 5 4 7 5 2` m C o a c c i o n a rc a n t i d a d e se np i e sym e t r o sau n aol ao t r a . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )1 0 0` 1 0 0 `m+m ; ( %O 2 )1 0 0` 1 0 0 `m+m ( %I 3 )( 1 0 0` 1 0 0 `m+m )` `p i e s ; I n f o r m t i c ac o n v e r s i o n e sau n i d a d e sd eb a s e ;p u e d et o m a ru nm o m e n t o . 1 6 3 1 0 0 ( %O 3 )-` f t 3 8 1 ( %I 4 ) % ,n u m e r ; ( %O 4 )4 2 8 , 0 8 3 9 8 9 5 0 1 3 1 2 3` f t ( %I 5 )( 1 0 0` 1 0 0 `m+m )` `m ; 3 2 6 2 ( %O 5 )-` m 2 5 ( %I 6 ) % ,n u m e r ; ( %O 6 )1 3 0 , 4 8m` E la n l i s i sd i m e n s i o n a lp a r ae n c o n t r a rl a sd i m e n s i o n e sf u n d a m e n t a l e sy u n i d a d e sf u n d a m e n t a l e s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )f o o :1` *a c r e sp i e s ; ( %O 2 )1` p i e sa c r e ( %I 3 )D i m e n s i o n e s( f o o ) ; 3 ( %O 3 )L o n g i t u d ( %I 4 )f u n d a m e n t a l _ u n i t s( f o o ) ; 3 ( %O 4 )m ( %I 5 )f o o` `m^3 ; I n f o r m t i c ac o n v e r s i o n e sau n i d a d e sd eb a s e ;p u e d et o m a ru nm o m e n t o . 6 0 2 2 8 6 0 5 3 4 93 ( %O 5 )-` m 4 8 8 2 8 1 2 5 ( %I 6 ) % ,n u m e r ; 3 ( %O 6 )1 2 3 3 , 4 8 1 8 3 7 5 4 7 5 2` m D e c l a r a d oc o n v e r s i o n e sd eu n i d a d e s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )d e c l a r e _ u n i t _ c o n v e r s i o n( M M B t u=1 0^6*B t u ,k W=1 0 0 0*W ) ; ( %O 2 )d o n e ( %I 3 )d e c l a r e _ u n i t _ c o n v e r s i o n( k W h=k W*h o r a ,M W h=1 0 0 0*k W h , c a m p a n a=1 8 0 0*s ) ; ( %O 3 )d o n e ( %I 4 )1` k W*s` `M W h ; I n f o r m t i c ac o n v e r s i o n e sau n i d a d e sd eb a s e ;p u e d et o m a ru nm o m e n t o . 1 ( %O 4 )-` M W h 3 6 0 0 0 0 0 ( %I 5 )1` k W/m^2` `M M B t u/c a m p a n a/m^2 ; 1 3 0 6 4 4 9M M B t u ( %O 5 )-` 8 2 4 2 1 8 7 5 0 02 c a m p a n af t
F u n c i n :c o n s t v a l u e( < x > ) F u n c i n :d e c l a r e _ c o n s t v a l u e( < a >< x > ) F u n c i n :r e m o v e _ c o n s t v a l u e( < a > ) D e v u e l v ee lv a l o rc o n s t a n t ed e c l a r a d ad eu ns m b o l o ,oe lv a l o rd eu n e x p r e s i nc o nv a l o r e sc o n s t a n t e sd e c l a r a d a ss u s t i t u i d o sp o rs m b o l o s . L o sv a l o r e sc o n s t a n t e ss ed e c l a r a np o r` d e c l a r e _ c o n s t v a l u e' .T e n g ae nc u e n t aq u e v a l o r e sc o n s t a n t e sc o m or e c o n o c e` c o n s t v a l u e' s o ni n d e p e n d i e n t e sd e v a l o r e sd e c l a r a d o sp o r` n u m e r v a l' yr e c o n o c i d a sp o r `c o n s t a n t p ' .
463/633
28/08/13

E lp a q u e t e` p h y s i c a l _ u n i t s' d e c l a r av a l o r e sc o n s t a n t e sp a r au nn m e r o d el a sc o n s t a n t e sf s i c a s . ` R e m o v e _ c o n s t v a l u e' r e v i e r t ee le f e c t od e `d e c l a r e _ c o n s t v a l u e ' . C a r g a( e z u n i t s ) c a r g a s è s t a sf u n c i o n e s . E j e m p l o s : V a l o rc o n s t a n t ed eu n ac o n s t a n t ef s i c a . ( %I 1 )l o a d( p h y s i c a l _ c o n s t a n t s )$ ( %I 2 )c o n s t v a l u e( %G ) ; 3 m ( %O 2 )6 , 6 7 4 2 8` 2 k gs ( %I 3 )g e t( ' %G , 'd e s c r i p c i n ) ; ( %O 3 )c o n s t a n t ed eN e w t o nd el ag r a v i t a c i n L ad e c l a r a c i nd eu n an u e v ac o n s t a n t e . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )d e c l a r e _ c o n s t v a l u e( F O O ,1 0 0` l b m/a c r e ) ; l b m ( %O 2 )1 0 0` a c r e ( %I 3 )F O O*( 5 0` a c r e ) ; ( %O 3 )5 0` F O Oa c r e ( %I 4 )c o n s t v a l u e( % ) ; ( %O 4 )5 0 0 0` l b m
F u n c i n :u n i d a d e s( < x > ) F u n c i n :d e c l a r e _ u n i t s( < a > ) D e v u e l v el o se l e m e n t o sd eu n< x >c a n t i d a dd i m e n s i o n a l ,od e v u e l v e1s i < x >e sa d i m e n s i o n a l . < x >p u e d es e ru n ae x p r e s i nl i t e r a ld i m e n s i o n a la` b ,u ns m b o l oc o n u n i d a d e sd e c l a r a d a sat r a v sd e` d e c l a r e _ u n i t s' ou n ae x p r e s i nq u ec o n t i e n e c u a l q u i e r aoa m b o sd ea q u e l l o s . ` D e c l a r e _ u n i t s' d e c l a r aq u e ù n i d a d e s( < a > ) 'd e b e nd e v o l v e r , d o n d ee su n ae x p r e s i n . C a r g a( e z u n i t s ) c a r g a s è s t a sf u n c i o n e s . E j e m p l o s : ` U n i d a d e s' a p l i c a d o sal a se x p r e s i o n e sd i m e n s i o n a l e sl i t e r a l e s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )f o o :` 1 0 0k g ; ( %O 2 )1 0 0k g` ( %I 3 )b a r r a :x` m/s ; m ( %O 3 )x` s ( %I 4 )u n i d a d e s( f o o ) ; ( %O 4 )k g ( %I 5 )u n i d a d e s( b a r ) ; m ( %O 5 )s ( %I 6 )u n i d a d e s( f o o*b a r ) ; k gm ( %O 6 )s ( %I 7 )u n i d a d e s( f o o/b a r ) ; k gs ( %O 7 )m ( %I 8 )u n i d a d e s( f o o^2 ) ; 2 ( %O 8 )k g ` U n i d a d e s' a p l i c a d a sal o ss m b o l o sc o nu n i d a d e sd e c l a r a d a s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )u n i d a d e s( a a ) ; ( %O 2 )1 ( %I 3 )d e c l a r e _ u n i t s( a a ,J ) ; ( %O 3 )J ( %I 4 )u n i d a d e s( a a ) ; ( %O 4 )J ( %I 5 )u n i d a d e s( A A^2 ) ; 2 ( %O 5 )J ( %I 6 )f o o :` 1 0 0k g ; ( %O 6 )1 0 0k g` ( %I 7 )u n i d a d e s( a a*f o o ) ; ( %O 7 )k gJ
464/633
28/08/13
F u n c i n :C a n t i d a d( < x > ) F u n c i n :d e c l a r e _ q t y( < a >< x > )
' C a n t i d a d 'd e v u e l v el ap a r t en od i m e n s i o n a ld eu n am a g n i t u dd i m e n s i o n a l < x >od e v o l u c i o n e s< x >s i< x >e sa d i m e n s i o n a l .< x >p u e d es e ru n e x p r e s i nl i t e r a ld i m e n s i o n a la` b ,u ns m b o l oc o nd e c l a r a d a c a n t i d a d ,ou n ae x p r e s i nq u ec o n t i e n ec u a l q u i e r aoa m b o sd ea q u e l l o s . ` D e c l a r e _ q t y' d e c l a r aq u e `C a n t i d a d( < a > ) 'd e b ed e v o l v e r< x > ,d o n d e < x >e su n ac a n t i d a da d i m e n s i o n a l . C a r g a( e z u n i t s ) c a r g a s è s t a sf u n c i o n e s . E j e m p l o s : ' C a n t i d a d 'a p l i c a d aal a se x p r e s i o n e sd i m e n s i o n a l e sl i t e r a l e s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )f o o :` 1 0 0k g ; ( %O 2 )1 0 0k g` ( %I 3 )C a n t i d a d( f o o ) ; ( %O 3 )1 0 0 ( %I 4 )b a r :v` m/s ; m ( %O 4 )v` s ( %I 5 )f o o*b a r ; k gm ( %O 5 )1 0 0v` s ( %I 6 )C a n t i d a d( f o o*b a r ) ; ( %O 6 )1 0 0v ' C a n t i d a d 'a p l i c a d aal o ss m b o l o sc o nl ac a n t i d a dd e c l a r a d a . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )d e c l a r e _ q t y( a a ,x x ) ; ( %O 2 )x x ( %I 3 )C a n t i d a d( a a ) ; ( %O 3 )x x ( %I 4 )C a n t i d a d( a a^2 ) ; 2 ( %O 4 )x x ( %I 5 )f o o :` 1 0 0k g ; ( %O 5 )1 0 0k g` ( %I 6 )C a n t i d a d( a a*f o o ) ; ( %O 6 )1 0 0x x
F u n c i n :u n i t p( < x > ) D e v u e l v e` t r u e' s i< x >e su n ae x p r e s i nd i m e n s i o n a ll i t e r a l ,u n a s m b o l od e c l a r d i m e n s i o n e s ,ou n ae x p r e s i ne nl aq u ee lp r i n c i p a l o p e r a d o rs ed e c l a r ad i m e n s i o n e s .` U n i t p' d e v u e l v e 'f a l s e' d eo t r om o d o . ( E z u n i t s ) c a r g a s `c a r g ae s t af u n c i n . E j e m p l o s : ` U n i t p' a p l i c a d oau n ae x p r e s i nd i m e n s i o n a ll i t e r a l . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )u n i t p( ` 1 0 0k g ) ; ( %O 2 )t r u e ` U n i t p' a p l i c a d aau ns m b o l od e c l a r d i m e n s i o n e s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )u n i t p( f o o ) ; ( %O 2 )f a l s e ( %I 3 )d e c l a r e( f o o ,d i m e n s i o n e s ) ; ( %O 3 )d o n e ( %I 4 )u n i t p( f o o ) ; ( %O 4 )t r u e ` U n i t p' a p l i c a d aau n ae x p r e s i ne nl aq u ee lo p e r a d o rp r i n c i p a le s d e c l a r a d od i m e n s i o n e s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )u n i t p( b a r r a( x ,y ,z ) ) ; ( %O 2 )f a l s e ( %I 3 )d e c l a r e( b a r ,d i m e n s i o n e s ) ; ( %O 3 )d o n e ( %I 4 )u n i t p( b a r r a( x ,y ,z ) ) ; ( %O 4 )t r u e
F u n c i n :d e c l a r e _ u n i t _ c o n v e r s i o n( =< v > ,. . . ) A a d ee c u a c i o n e s=< v > ,. . .al al i s t ad ec o n v e r s i o n e sd eu n i d a d e s s a b eq u el au n i d a dd ec o n v e r s i nd e lo p e r a d o r` ` .y< v >s o nt a n t o t r m i n o sm u l t i p l i c a t i v o s ,e nl aq u el a sv a r i a b l e ss o nu n i d a d e s ,oa m b o s e x p r e s i o n e sd i m e n s i o n a l e sl i t e r a l e s .
465/633
28/08/13

E nl aa c t u a l i d a d ,e sn e c e s a r i oe x p r e s a rl a sc o n v e r s i o n e sd et a lm a n e r aq u ee l l a d oi z q u i e r d od ec a d ae c u a c i ne su n au n i d a ds e n c i l l a( n ou n e x p r e s i nm u l t i p l i c a t i v o )ou n ae x p r e s i nd i m e n s i o n a ll i t e r a l c o nl ac a n t i d a di g u a la1yl au n i d a dd es e ru n au n i d a ds i m p l e . E s t al i m i t a c i np o d r as e rr e l a j a d oe nf u t u r a sv e r s i o n e s . ` K n o w n _ u n i t _ c o n v e r s i o n s' l al i s t ad ec o n v e r s i o n e sd eu n i d a d e sc o n o c i d a s . ( E z u n i t s ) c a r g a s `c a r g ae s t af u n c i n . E j e m p l o s : L a sc o n v e r s i o n e sd eu n i d a d e se x p r e s a d a sp o rl a se c u a c i o n e sd et r m i n o sm u l t i p l i c a t i v o s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )d e c l a r e _ u n i t _ c o n v e r s i o n( n a u t i c a l _ m i l e=1 8 5 2*m , q u i n c e n a=1 4*d a s ) ; ( %O 2 )d o n e ( %I 3 )1 0 0` n a u t i c a l _ m i l e/q u i n c e n a` `m/s ; I n f o r m t i c ac o n v e r s i o n e sau n i d a d e sd eb a s e ;p u e d et o m a ru nm o m e n t o . 4 6 3m ( %O 3 )-` 3 0 2 4s L a sc o n v e r s i o n e sd eu n i d a d e se x p r e s a d a sp o re c u a c i o n e sd el ad i m e n s i nl i t e r a l e x p r e s i o n e s . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )d e c l a r e _ u n i t _ c o n v e r s i o n( 1f l u i d _ o u n c e=2c u c h a r a d a` ` ) ; ( %O 2 )d o n e ( %I 3 )d e c l a r e _ u n i t _ c o n v e r s i o n( 1c u c h a r a d a=3` c u c h a r a d i t a ` ) ; ( %O 3 )d o n e ( %I 4 )1 5` f l u i d _ o u n c e` `c u c h a r a d i t a ; I n f o r m t i c ac o n v e r s i o n e sau n i d a d e sd eb a s e ;p u e d et o m a ru nm o m e n t o . ( %O 4 )9 0` c u c h a r a d i t a
F u n c i n :d e c l a r e _ d i m e n s i o n s( < a _ 1 > ,< d _ 1 > ,. . . ,< a _ n > ,< d _ n > ) F u n c i n :r e m o v e _ d i m e n s i o n s( < a _ 1 > ,. . . ,< a _ n > ) ` D e c l a r e _ d i m e n s i o n s' d e c l a r a< a _ 1 > ,. . . ,< a _ n >t e n e rd i m e n s i o n e s < d _ 1 > ,. . . ,< d _ n > ,r e s p e c t i v a m e n t e . C a d a< a _ k >e su ns m b o l oou n al i s t ad es m b o l o s .S is et r a t ad eu n al i s t a , e n t o n c e sc a d as m b o l oe n< a _ k >s ed e c l a r ee ns i t u a c i nd i m e n s i n< d _ k > . ` R e m o v e _ d i m e n s i o n s' r e v i e r t ee le f e c t od e l `d e c l a r e _ d i m e n s i o n s . C a r g a( e z u n i t s ) c a r g a s è s t a sf u n c i o n e s . E j e m p l o s : ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )d e c l a r e _ d i m e n s i o n s( [ x ,y ,z ] ,l o n g i t u d ,[ t ,u ] ,t i e m p o ) ; ( %O 2 )d o n e ( %I 3 )D i m e n s i o n e s( y^2/u ) ; 2 l o n g i t u d ( %O 3 )t i e m p o ( %I 4 )f u n d a m e n t a l _ u n i t s( y^2/u ) ; 0e r r o r e s ,0a d v e r t e n c i a s 2 m ( %O 4 )s
F u n c i n :d e c l a r e _ f u n d a m e n t a l _ d i m e n s i o n s( < d _ 1 > ,< d _ 2 > ,< d _ 3 > ,. . . ) F u n c i n :r e m o v e _ f u n d a m e n t a l _ d i m e n s i o n s( < d _ 1 > ,< d _ 2 > ,< d _ 3 > ,. . . ) V a r i a b l eg l o b a l :f u n d a m e n t a l _ d i m e n s i o n s ` D e c l a r e _ f u n d a m e n t a l _ d i m e n s i o n s' d e c l a r ad i m e n s i o n e sf u n d a m e n t a l e s . S m b o l o s< d _ 1 > ,< d _ 2 > ,< d _ 3 > ,. . .s ea n e x a nal al i s t ad e d i m e n s i o n e sf u n d a m e n t a l e s ,s ie sq u ey an oe s t ne nl al i s t a . ` R e m o v e _ f u n d a m e n t a l _ d i m e n s i o n s' r e v i e r t ee le f e c t od e ` D e c l a r e _ f u n d a m e n t a l _ d i m e n s i o n s' . ` F u n d a m e n t a l _ d i m e n s i o n s' p u e d ev e rl al i s t ad el a sd i m e n s i o n e sf u n d a m e n t a l e s . P o rd e f e c t o ,l al i s t ac o m p r e n d ev a r i a sd i m e n s i o n e sf s i c a s . C a r g a( e z u n i t s ) c a r g a s è s t a sf u n c i o n e s . E j e m p l o s : ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )f u n d a m e n t a l _ d i m e n s i o n s ; ( %O 2 )[ l o n g i t u d ,m a s a ,t i e m p o ,c o r r i e n t e ,t e m p e r a t u r a ,c a n t i d a d ] ( %I 3 )d e c l a r e _ f u n d a m e n t a l _ d i m e n s i o n s( d i n e r o ,g a n a d o ,f e l i c i d a d ) ; ( %O 3 )d o n e ( %I 4 )f u n d a m e n t a l _ d i m e n s i o n s ; ( %O 4 )[ l o n g i t u d ,m a s a ,t i e m p o ,c o r r i e n t e ,t e m p e r a t u r a ,c a n t i d a d ,
466/633
28/08/13

d i n e r o ,e lg a n a d o ,l af e l i c i d a d ] ( %I 5 )r e m o v e _ f u n d a m e n t a l _ d i m e n s i o n s( g a n a d o ,l af e l i c i d a d ) ; ( %O 5 )h e c h o ( %I 6 )f u n d a m e n t a l _ d i m e n s i o n s ; ( %O 6 )[ l o n g i t u d ,m a s a ,t i e m p o ,c o r r i e n t e ,t e m p e r a t u r a ,c a n t i d a d ,d i n e r o ]
F u n c i n :d e c l a r e _ f u n d a m e n t a l _ u n i t s( ,< d _ 1 > ,. . . , ,< d _ n > ) F u n c i n :r e m o v e _ f u n d a m e n t a l _ u n i t s( ,. . . , ) ` D e c l a r e _ f u n d a m e n t a l _ u n i t s' d e c l a r a ,. . . ,t e n e r d i m e n s i o n e s< d _ 1 > ,. . . ,< d _ n > ,r e s p e c t i v a m e n t e .T o d o sl o sa r g u m e n t o sd e b e ns e r s m b o l o s . D e s p u sd el l a m a r` d e c l a r e _ f u n d a m e n t a l _ u n i t s' , `d i m e n s i o n e s( ) ' v u e l v e< d _ k >p a r ac a d aa r g u m e n t o ,. . . ,y ` F u n d a m e n t a l _ u n i t s< d _ k >( )' d e v u e l v ep a r ac a d a< d _ 1 >a r g u m e n t o , . . . ,< d _ n > . ` R e m o v e _ f u n d a m e n t a l _ u n i t s' r e v i e r t ee le f e c t od e ` D e c l a r e _ f u n d a m e n t a l _ u n i t s' . C a r g a( e z u n i t s ) c a r g a s è s t a sf u n c i o n e s . E j e m p l o s : ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )d e c l a r e _ f u n d a m e n t a l _ d i m e n s i o n s( d i n e r o ,g a n a d o ,f e l i c i d a d ) ; ( %O 2 )d o n e ( %I 3 )d e c l a r e _ f u n d a m e n t a l _ u n i t s( d l a r ,d i n e r o ,c a b r a s ,g a n a d ov a c u n o , s o n r i s a ,f e l i c i d a d ) ; ( %O 3 )[ d l a r ,c a b r a ,s o n r i s a ] ( %I 4 )d i m e n s i o n e s( 1 0 0` d l a r/c a b r a/k m^2 ) ; d i n e r o ( %O 4 )2 L o n g i t u dd e lg a n a d o ( %I 5 )d i m e n s i o n e s( x` s o n r i s a/k g ) ; f e l i c i d a d ( %O 5 )m a s a ( %I 6 )f u n d a m e n t a l _ u n i t s( d i n e r og a n a d o/*f e l i c i d a d ) ; 0e r r o r e s ,0a d v e r t e n c i a s d l a rd ec a b r a ( %O 6 )s o n r e r
F u n c i n :d i m e n s i o n e s( < x > ) F u n c i n :d i m e n s i o n s _ a s _ l i s t( < x > ) ' D i m e n s i o n e s 'd e v u e l v el a sd i m e n s i o n e sd el a< x >c a n t i d a dd i m e n s i o n a l c o m ou n ae x p r e s i nq u ec o m p r e n d ep r o d u c t o syp o t e n c i a sd ed i m e n s i o n e sd el ab a s e . ` D i m e n s i o n s _ a s _ l i s t' d e v u e l v el a sd i m e n s i o n e sd el ad i m e n s i n < x >c a n t i d a dc o m ou n al i s t a ,e nl aq u ec a d ae l e m e n t oe su nn m e r oe n t e r oq u e i n d i c al ap o t e n c i ad el ad i m e n s i nd el ab a s ec o r r e s p o n d i e n t ee nl a d i m e n s i o n e sd e< x > . C a r g a( e z u n i t s ) c a r g a s è s t a sf u n c i o n e s . E j e m p l o s : ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )D i m e n s i o n e s( 1 . 0 0 0k g` *m^2/s^3 ) ; 2 m a s al o n g i t u d ( %O 2 )3 t i e m p o ( %I 3 )d e c l a r e _ u n i t s( f o o ,a c r e*f t/h o r a ) ; p i e sa c r e ( %O 3 )h o r a ( %I 4 )D i m e n s i o n e s( f o o ) ; 3 l o n g i t u d ( %O 4 )t i e m p o ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )f u n d a m e n t a l _ d i m e n s i o n s ; ( %O 2 )[ l o n g i t u d ,m a s a ,t i e m p o ,c a r g a ,t e m p e r a t u r a ,c a n t i d a d ] ( %I 3 )d i m e n s i o n s _ a s _ l i s t( 1 0 0 0` k g*m^2/s^3 ) ; ( %O 3 )[ 2 ,1 ,-3 ,0 ,0 ,0 ] ( %I 4 )d e c l a r e _ u n i t s( f o o ,a c r e*f t/h o r a ) ; p i e sa c r e ( %O 4 )h o r a ( %I 5 )d i m e n s i o n s _ a s _ l i s t( f o o ) ; ( %O 5 )[ 3 ,0 ,-1 ,0 ,0 ,0 ]
467/633
28/08/13
F u n c i n :f u n d a m e n t a l _ u n i t s( < x > ) F u n c i n :f u n d a m e n t a l _ u n i t s( )
` F u n d a m e n t a l _ u n i t s< x >( )' d e v u e l v el a su n i d a d e sa s o c i a d a sal a d i m e n s i o n e sf u n d a m e n t a l e sd e< x > .s e g nl od e t e r m i n a d op o r` d i m e n s i o n e s( < x > ) . < x >p u e d es e ru n ae x p r e s i nl i t e r a ld i m e n s i o n a la` b ,u ns m b o l oc o n u n i d a d e sd e c l a r a d a sat r a v sd e` d e c l a r e _ u n i t s' ou n ae x p r e s i nq u ec o n t i e n e c u a l q u i e r aoa m b o sd ea q u e l l o s . ` F u n d a m e n t a l _ u n i t s( )' d e v u e l v el al i s t ad et o d o sc o n o c i d af u n d a m e n t a l u n i d a d e s ,s e g nl od e c l a r a d op o r` d e c l a r e _ f u n d a m e n t a l _ u n i t s . ( E z u n i t s ) c a r g a s `c a r g ae s t af u n c i n . E j e m p l o s : ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )f u n d a m e n t a l _ u n i t s( ) ; ( %O 2 )[ m ,k g ,s ,A ,K ,m o l ] ( %I 3 )f u n d a m e n t a l _ u n i t s( ` 1 0 0m i l l a s/h o r a ) ; m ( %O 3 )s ( %I 4 )d e c l a r e _ u n i t s( a a ,g/p i e^2 ) ; g ( %O 4 )2 p i e ( %I 5 )f u n d a m e n t a l _ u n i t s( a a ) ; k g ( %O 5 )2 m
F u n c i n :d i m e n s i o n e s( < L > ) D e v u e l v eu n ab a s ed el a sc a n t i d a d e ss i nd i m e n s i o n e sq u ep u e d e ns e r f o r m a d oap a r t i rd eu n al i s t ad e< L >c a n t i d a d e sd i m e n s i o n a l e s . ( E z u n i t s ) c a r g a s `c a r g ae s t af u n c i n . E j e m p l o s : ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )s i nd i m e n s i o n e s( [ x` m ,y `m/s ,z` s ] ) ; 0e r r o r e s ,0a d v e r t e n c i a s 0e r r o r e s ,0a d v e r t e n c i a s y z ( %O 2 )[ ] x C a n t i d a d e sa d i m e n s i o n a l e sd e r i v a d o sd ef s i c af u n d a m e n t a l c a n t i d a d e s .T e n g ae nc u e n t aq u ee lp r i m e re l e m e n t oe nl al i s t ae s p r o p o r c i o n a lal ac o n s t a n t ed ee s t r u c t u r af i n a . ( %I 1 )l o a d( e z u n i t s )$ ( %I 2 )l o a d( p h y s i c a l _ c o n s t a n t s )$ ( %I 3 )s i nd i m e n s i o n e s( [ %h _ b a r , %m _ e ,m _ p % , % %e , %c , %E _ 0 ] ) ; 0e r r o r e s ,0a d v e r t e n c i a s 0e r r o r e s ,0a d v e r t e n c i a s 2 % %E %m _ e ( %O 3 )[ ,] %C %E _ 0 %h _ b a r %m _ p
F u n c i n :n a t u r a l _ u n i t( e x p r ,[ < v _ 1 > ,. . . ,< v _ n > ] ) E n c u e n t r ae x p o n e n t e s< e _ 1 > ,. . . ,< e _ n >t a lq u e` d i m e n s i n( e x p r )= d i m e n s i n( < v _ 1 >^< e _ 1 >. . .< v _ n >^< e _ n > ) . ( E z u n i t s ) c a r g a s `c a r g ae s t af u n c i n . E j e m p l o s :
52 f90
F u n c i o n e syv a r i a b l e sp a r af 9 0
52.1 Funciones y variables para f90

F u n c i n :f 9 0( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) I m p r i m eu n aom se x p r e s i o n e s< e x p r _ 1 > ,. . . ,< e x p r _ n >c o m o P r o g r a m ad eF o r t r a n9 0 .L as a l i d as ei m p r i m ee nl as a l i d ae s t n d a r .
468/633
28/08/13

` ' I m p r e s i o n e sq u ef 9 0e ne ll l a m a d of o r m a t od ee n t r a d a "f o r m al i b r e" d e F o r t r a n9 0 :n oh a yu n aa t e n c i ne s p e c i a lal a sp o s i c i o n e sd el a sc o l u m n a s . L a r g a sf i l a ss ed i v i d e ne nu na n c h of i j oc o ne ls i g n o' & ' c a r c t e rd ec o n t i n u a c i n . L o a d( f 9 0 )' c a r g ae s t af u n c i n .V a s et a m b i nl af u n c i n` f o r t r a n' . E j e m p l o s : ( %I 1 )l o a d( f 9 0 )$ ( %I 2 )f o o :e x p a n d( ( x x xy y y++7 )^4 ) ; 433222 ( %O 2 )y y y+4x x xy y yy y y+2 8+6+8 4x x xy y yx x xy y y 232 +2 9 4+4x x xy y yy y yy y yx x x+8 4+5 8 8+1 3 7 2x x xy y yy y y 432 ++2 8x x xx x xx x x+2 9 4+1 3 7 2+2 4 0 1x x x ( %I 3 )f 9 0( ' f o o=f o o ) ; f o o=y y y* *44*x x x*y y y* *3* *2 8*y y y36*x x x* *2*y y y2* *8 4*x x x*y y y* *2& 2 9 4*y y y* *2* *4*3*x x xy y yx x x* *8 4*2*5 8 8*x x xy y yy y y*1 3 7 2*y y y+x x x* *& 42 8*x x x* *3* *2 9 4*x x x*x x x21 3 7 22 4 0 1 ( %O 3 )f a l s e E x p r e s i o n e sm l t i p l e s .C a p t u r al as a l i d ae s t n d a rau nf i c h e r oat r a v sd el a F u n c i n` w i t h _ s t d o u t' . ( %I 1 )l o a d( f 9 0 )$ ( %I 2 )f o o :s i n( 3*x+1 )-c o s( 7*x-2 ) ; ( %O 2 )s i n( 3x+1 )-c o s( 7x-2 ) ( %I 3 )w i t h _ s t d o u t( " f o o . f 9 0 " , f 9 0( x=0 . 2 5 ,y=0 . 6 2 5 ,' f o o=f o o , 's t o p' ,f i n ) ) ; ( %O 3 )f a l s e ( %I 4 )p r i n t f i l e( " f o o . f 9 0 " ) ; x=0 . 2 5 y=0 , 6 2 5 f o o=s i n( 3*x+ 1 ) c o s( 7*x 2 ) d e t e n e r f i n a l ( %O 4 )f o o . f 9 0
53 Finanzas
I n t r o d u c c i nal af i n a n c i a c i n F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s
53.1 Introduccin a las finanzas

E s t ee se lp a q u e t ed ef i n a n c i a c i n( V e r0 . 1 ) . E nt o d a sl a sf u n c i o n e s ,< r a t e >e sl at a s ad ei n t e r sc o m p u e s t o ,e s< n u m > e ln m e r od ep e r o d o syd e b es e rp o s t i v i v ey< f l o w >s er e f i e r ead i n e r oe ne f e c t i v o f l u j op o rl oq u es iu s t e dt i e n eu n as a l i d ad e lf l u j oe sn e g a t i v oyp o s i t i v op a r a E n t r a d a s . T e n g ae nc u e n t aq u ea n t e sd eu t i l i z a rl a sf u n c i o n e sd e f i n i d a se ne s t ep a q u e t e , q u ec a r g a r l oe s c r i b i r` c a r g a( f i n a n z a s )$' . A u t o r :N i c o l sG u a r nZ a p a t a .
53.2 Funciones y variables para las finanzas

F u n c i n :D I A S 3 6 0( < y e a r 1 > ,< m o n t h 1 > ,< d a y 1 > ,< y e a r 2 > ,< m o n t h 2 > ,< d a y 2 > ) C a l c u l al ad i s t a n c i ae n t r e2f e c h a s ,s u p o n i e n d o3 6 0d a sa o , 3 0d a sm e s . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )D I A S 3 6 0( 2 0 0 8 , 1 2 , 1 6 , 2 0 0 7 , 3 , 2 5 ) ; ( %O 2 )-6 2 1
F u n c i n :f v( < r a t e > , ,< n u m > ) P o d e m o sc a l c u l a re lv a l o rf u t u r od eu np r e s e n t eq u es ed au nc i e r t o t a s ad ei n t e r s .< r a t e >e sl at a s ad ei n t e r s ,e se lp r e s e n t e v a l o ry< n u m >e se ln m e r od ep e r o d o s . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )f v( 0 . 1 2 , 1 0 0 0 , 3 ) ; ( %O 2 )1 4 0 4 . 9 2 8
469/633
28/08/13
F u n c i n :p v( < r a t e > ,< F V > ,< n u m > )
P o d e m o sc a l c u l a re lv a l o rp r e s e n t ed eu nf u t u r oq u es ed au nc i e r t o t a s ad ei n t e r s .< r a t e >e sl at a s ad ei n t e r s ,< F V >e se lf u t u r o v a l o ry< n u m >e se ln m e r od ep e r o d o s . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )p v( 0 . 1 2 , 1 0 0 0 , 3 ) ; ( %O 2 )7 1 1 , 7 8 0 2 4 7 8 1 3 4 1 0 8
F u n c i n :g r a p h _ f l o w( < v a l > ) T r a z ae lf l u j od ed i n e r oe nu n al n e ad et i e m p o ,l o sv a l o r e sp o s i t i v o ss ee n c u e n t r a ne n a z u lya lr e v s ;l o sn e g a t i v o se s t ne nr o j oyb a j a .L a d i r e c c i nd e lf l u j oe s t d e t e r m i n a d op o re ls i g n od e lv a l o r .< v a l >e s u n al i s t ad el o sv a l o r e sd ef l u j o . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )g r a p h _ f l o w( [ 5 0 0 0 ,3 0 0 0 , 8 0 0 , 1 3 0 0 , 1 5 0 0 , 2 0 0 0 ] )$
F u n c i n :a n n u i t y _ p v( < r a t e > , ,< n u m > ) P o d e m o sc a l c u l a rl aa n u a l i d a dc o n o c i e n d oe lv a l o rp r e s e n t e( c o m ou n M o n t o ) ,q u ee su np a g oc o n s t a n t eyp e r i d i c a .< r a t e >e sl a t a s ad ei n t e r s ,e se lv a l o rp r e s e n t ey< n u m >e se ln m e r o d ep e r o d o s . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )a n n u i t y _ p v( 0 . 1 2 , 5 0 0 0 , 1 0 ) ; ( %O 2 )8 8 4 , 9 2 0 8 2 0 7 9 9 2 2 0 2
F u n c i n :a n n u i t y _ f v( < r a t e > ,< F V > ,< n u m > ) P o d e m o sc a l c u l a rl aa n u a l i d a dc o n o c i e n d oe lv a l o rd e s e a d o( f u t u r o v a l o r ) ,q u ee su np a g oc o n s t a n t eyp e r i d i c a .< r a t e >e sl a t a s ad ei n t e r s ,< F V >e se lv a l o rf u t u r oy< n u m >e se ln m e r od e p e r o d o s . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )a n n u i t y _ f v( 0 . 1 2 , 6 5 0 0 0 , 1 0 ) ; ( %O 2 )3 . 7 0 3 , 9 7 0 6 7 0 3 8 9 8 6 3
F u n c i n :g e o _ a n n u i t y _ p v( < r a t e > ,< g r o w i n g _ r a t e > , ,< n u m > ) P o d e m o sc a l c u l a rl aa n u a l i d a dc o n o c i e n d oe lv a l o rp r e s e n t e( c o m ou n M o n t o ) ,e nu nc r e c i e n t ep a g op e r i d i c o .< r a t e >e se li n t e r s t a s a ,< g r o w i n g _ r a t e >e sl at a s ad ec r e c i m i e n t o ,e se lp r e s e n t e v a l o ry< n u m >e se ln m e r od ep e r o d o s . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )g e o _ a n n u i t y _ p v( 0 . 1 4 , 0 . 0 5 , 5 0 0 0 , 1 0 ) ; ( %O 2 )8 0 2 . 6 8 8 8 1 7 6 5 0 5 1 2 3
F u n c i n :g e o _ a n n u i t y _ f v( < r a t e > ,< g r o w i n g _ r a t e > ,< F V > ,< n u m > ) P o d e m o sc a l c u l a rl aa n u a l i d a dc o n o c i e n d oe lv a l o rd e s e a d o( f u t u r o v a l o r ) ,e nu nc r e c i e n t ep a g op e r i d i c o .< r a t e >e se li n t e r s t a s a ,< g r o w i n g _ r a t e >e sl at a s ad ec r e c i m i e n t o ,< F V >e se lv a l o rf u t u r o y< n u m >e se ln m e r od ep e r o d o s . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )g e o _ a n n u i t y _ f v( 0 . 1 4 , 0 . 0 5 , 5 0 0 0 , 1 0 ) ; ( %O 2 )2 1 6 , 5 2 0 3 3 9 5 3 1 2 6 9 5
F u n c i n :a m o r t i z a c i n( < r a t e > ,< a m m o u n t > ,< n u m > ) T a b l ad ea m o r t i z a c i nd e t e r m i n ae nf u n c i nd eu nt i p oe s p e c f i c o .< r a t e >e sl a t a s ad ei n t e r s ,< a m m o u n t >e se lv a l o rM o n t oy< n u m >e sl a n m e r od ep e r o d o s .
470/633
28/08/13
E j e m p l o :
( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )A m o r t i z a c i n( 0 . 0 5 , 5 6 0 0 0 , 1 2 )$ " N " ," B a l a n c e "" i n t e r s "" A m o r t i z a c i n " ," p a g o " 0 , 0 0 05 6 0 0 0 , 0 0 00 , 0 0 00 , 0 0 00 , 0 0 0 1 , 0 0 05 2 . 4 8 1 , 7 7 72 . 8 0 0 , 0 0 03 . 5 1 8 , 2 2 36 . 3 1 8 , 2 2 3 2 , 0 0 04 8 . 7 8 7 , 6 4 32 . 6 2 4 , 0 8 93 . 6 9 4 , 1 3 46 . 3 1 8 , 2 2 3 3 , 0 0 04 4 . 9 0 8 , 8 0 22 . 4 3 9 , 3 8 23 . 8 7 8 , 8 4 16 . 3 1 8 , 2 2 3 4 , 0 0 04 0 . 8 3 6 , 0 1 92 . 2 4 5 , 4 4 04 . 0 7 2 , 7 8 36 . 3 1 8 , 2 2 3 5 , 0 0 03 6 . 5 5 9 , 5 9 72 . 0 4 1 , 8 0 14 . 2 7 6 , 4 2 26 . 3 1 8 , 2 2 3 6 , 0 0 03 2 . 0 6 9 , 3 5 41 . 8 2 7 , 9 8 04 . 4 9 0 , 2 4 36 . 3 1 8 , 2 2 3 7 , 0 0 02 7 . 3 5 4 , 5 9 91 . 6 0 3 , 4 6 84 . 7 1 4 , 7 5 56 . 3 1 8 , 2 2 3 8 , 0 0 02 2 . 4 0 4 , 1 0 61 . 3 6 7 , 7 3 04 . 9 5 0 , 4 9 36 . 3 1 8 , 2 2 3 9 , 0 0 01 7 . 2 0 6 , 0 8 81 . 1 2 0 , 2 0 55 . 1 9 8 , 0 1 86 . 3 1 8 , 2 2 3 1 0 , 0 0 01 , 1 7 48 , 1 7 08 6 0 , 3 0 45 , 4 5 70 , 9 1 96 . 3 1 8 , 2 2 3 1 1 , 0 0 06 , 0 1 70 , 3 5 55 8 7 , 4 0 85 , 7 3 00 , 8 1 46 . 3 1 8 , 2 2 3 1 2 . 0 0 00 . 0 0 03 0 0 . 8 6 86 . 0 1 70 . 3 5 56 3 1 8 . 2 2 3
F u n c i n :a r i t _ a m o r t i z a t i o n( < r a t e > , ,< a m m o u n t > ,< n u m > ) L at a b l ad ea m o r t i z a c i nd e t e r m i n a d op o ru n at a s ae s p e c f i c ayc o n c r e c i m i e n t op a g os ep u e d ec l a c u l a t e dp o r` a r i t _ a m o r t i z a t i o n' .N o t a r q u ee lp a g on oe sc o n s t a n t e ,q u ep r e s e n t au n aa r i t m t i c a c a d av e zm a y o r ,e li n c r e m e n t oe se n t o n c e sl ad i f e r e n c i ae n t r ed o sc o n s e c u t i v o s l a sf i l a sd el ac o l u m n a" P a g o s " .< r a t e >e sl at a s ad ei n t e r s , e se li n c r e m e n t o ,< a m m o u n t >e se lv a l o rM o n t oy < n u m >e se ln m e r od ep e r o d o s . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )a r i t _ a m o r t i z a t i o n( 0 . 0 5 , 1 0 0 0 , 5 6 0 0 0 , 1 2 )$ " N " ," B a l a n c e "" i n t e r s "" A m o r t i z a c i n " ," p a g o " 0 , 0 0 05 6 0 0 0 , 0 0 00 , 0 0 00 , 0 0 00 , 0 0 0 1 , 0 0 05 7 . 4 0 3 , 6 7 92 . 8 0 0 , 0 0 01 . 3 9 6 , 3 2 11 , 4 0 3 . 6 7 9 2 , 0 0 05 7 . 8 7 7 , 5 4 12 . 8 7 0 , 1 8 42 . 3 9 6 , 3 2 14 7 3 . 8 6 3 3 , 0 0 05 7 . 3 7 5 , 0 9 72 . 8 9 3 , 8 7 75 0 2 , 4 4 43 , 3 9 60 , 3 2 1 4 , 0 0 05 5 . 8 4 7 , 5 3 02 . 8 6 8 , 7 5 51 . 5 2 7 , 5 6 74 . 3 9 6 , 3 2 1 5 , 0 0 05 3 . 2 4 3 , 5 8 62 . 7 9 2 , 3 7 72 . 6 0 3 , 9 4 55 . 3 9 6 , 3 2 1 6 , 0 0 04 9 . 5 0 9 , 4 4 32 . 6 6 2 , 1 7 93 . 7 3 4 , 1 4 26 . 3 9 6 , 3 2 1 7 , 0 0 04 4 . 5 8 8 , 5 9 42 . 4 7 5 , 4 7 24 . 9 2 0 , 8 4 97 . 3 9 6 , 3 2 1 8 , 0 0 03 8 . 4 2 1 , 7 0 32 . 2 2 9 , 4 3 06 . 1 6 6 , 8 9 28 . 3 9 6 , 3 2 1 9 , 0 0 03 0 . 9 4 6 , 4 6 61 . 9 2 1 , 0 8 57 . 4 7 5 , 2 3 69 . 3 9 6 , 3 2 1 1 0 , 0 0 02 , 2 0 97 , 4 6 81 . 5 4 7 , 3 2 38 . 8 4 8 , 9 9 81 0 . 3 9 6 , 3 2 1 1 1 , 0 0 01 , 1 8 06 , 0 2 01 . 1 0 4 , 8 7 31 0 . 2 9 1 , 4 4 81 1 . 3 9 6 , 3 2 1 1 2 . 0 0 00 . 0 0 05 9 0 . 3 0 11 . 1 8 06 . 0 2 01 2 3 9 6 . 3 2 1
F u n c i n :g e o _ a m o r t i z a t i o n( < r a t e > ,< g r o w i n g _ r a t e > ,< a m m o u n t > ,< n u m > ) L at a b l ad ea m o r t i z a c i nd e t e r m i n a d op o rt a r i f a ,M o n t oyn m e r o d ep e r o d o ss ep u e d e ne n c o n t r a rp o rg e o _ a m o r t i z a t i o n` ' .T e n g ae nc u e n t aq u el a p a g on oe sc o n s t a n t e ,q u ep r e s e n t au nc r e c i m i e n t og e o m t r i c o , < g r o w i n g _ r a t e >e se n t o n c e se lc o c i e n t ee n t r ed o sf i l a sc o n s e c u t i v a s e nl ac o l u m n a" P a g o s " .< r a t e >e sl at a s ad ei n t e r s ,< a m m o u n t > e se lv a l o rM o n t o ,y< n u m >e se ln m e r od ep e r o d o s . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )g e o _ a m o r t i z a t i o n( 0 . 0 5 , 0 . 0 3 , 5 6 0 0 0 , 1 2 )$ " N " ," B a l a n c e "" i n t e r s "" A m o r t i z a c i n " ," p a g o " 0 , 0 0 05 6 0 0 0 , 0 0 00 , 0 0 00 , 0 0 00 , 0 0 0 1 , 0 0 05 3 . 3 6 5 , 2 9 62 . 8 0 0 , 0 0 02 . 6 3 4 , 7 0 45 . 4 3 4 , 7 0 4 2 , 0 0 05 0 . 4 3 5 , 8 1 62 . 6 6 8 , 2 6 52 . 9 2 9 , 4 8 05 . 5 9 7 , 7 4 5 3 , 0 0 04 7 . 1 9 1 , 9 3 02 . 5 2 1 , 7 9 13 . 2 4 3 , 8 8 65 . 7 6 5 , 6 7 7 4 , 0 0 04 3 . 6 1 2 , 8 7 92 . 3 5 9 , 5 9 63 . 5 7 9 , 0 5 15 . 9 3 8 , 6 4 8 5 , 0 0 03 9 . 6 7 6 , 7 1 62 . 1 8 0 , 6 4 43 . 9 3 6 , 1 6 36 . 1 1 6 , 8 0 7 6 , 0 0 03 5 . 3 6 0 , 2 4 01 . 9 8 3 , 8 3 64 . 3 1 6 , 4 7 56 . 3 0 0 , 3 1 1 7 , 0 0 03 0 . 6 3 8 , 9 3 21 . 7 6 8 , 0 1 24 . 7 2 1 , 3 0 96 . 4 8 9 , 3 2 1 8 , 0 0 02 5 . 4 8 6 , 8 7 81 . 5 3 1 , 9 4 75 . 1 5 2 , 0 5 46 . 6 8 4 , 0 0 0 9 , 0 0 01 9 . 8 7 6 , 7 0 21 . 2 7 4 , 3 4 45 . 6 1 0 , 1 7 66 . 8 8 4 , 5 2 0 1 0 , 0 0 01 , 3 7 79 , 4 8 19 9 3 , 8 3 56 , 0 9 70 , 2 2 17 . 0 9 1 , 0 5 6 1 1 , 0 0 07 , 1 6 40 , 6 6 86 8 8 , 9 7 46 , 6 1 40 , 8 1 37 . 3 0 3 , 7 8 7 1 2 . 0 0 00 . 0 0 03 5 8 . 2 3 37 . 1 6 40 . 6 6 87 5 2 2 . 9 0 1
F u n c i n :a h o r r o( < r a t e > ,< a m m o u n t > ,< n u m > ) L at a b l aq u er e p r e s e n t al o sv a l o r e sd eu n ac o n s t a n t eyp e r i d i c a a h o r r os ep u e d ee n c o n t r a r' g u a r d a r ' .< a m m o u n t >r e p r e s e n t al ad e s e a d a c a n t i d a dye ln m e r oe ln m e r od ep e r o d o sd ea h o r r a r . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )A h o r r o( 0 . 1 5 , 1 2 0 0 0 , 1 5 )$ " N " ," B a l a n c e "" i n t e r s "" P a g o " 0 . 0 0 00 . 0 0 00 . 0 0 00 . 0 0 0 1 . 0 0 02 5 2 . 2 0 50 . 0 0 02 5 2 . 2 0 5 2 . 0 0 05 4 2 . 2 4 03 7 . 8 3 12 5 2 . 2 0 5
471/633
28/08/13

3 . 0 0 08 7 5 . 7 8 18 1 . 3 3 62 5 2 . 2 0 5 4 , 0 0 01 . 2 5 9 , 3 5 21 3 1 , 3 6 72 5 2 , 2 0 5 5 , 0 0 01 . 7 0 0 , 4 6 01 8 8 , 9 0 32 5 2 , 2 0 5 6 , 0 0 02 . 2 0 7 , 7 3 32 5 5 , 0 6 92 5 2 , 2 0 5 7 , 0 0 02 . 7 9 1 , 0 9 83 3 1 , 1 6 02 5 2 , 2 0 5 8 , 0 0 03 . 4 6 1 , 9 6 74 1 8 , 6 6 52 5 2 , 2 0 5 9 , 0 0 04 . 2 3 3 , 4 6 75 1 9 , 2 9 52 5 2 , 2 0 5 1 0 . 0 0 05 . 1 2 00 . 6 9 26 3 5 . 0 2 02 5 2 . 2 0 5 1 1 . 0 0 06 . 1 4 10 . 0 0 07 6 8 . 1 0 42 5 2 . 2 0 5 1 2 . 0 0 07 . 3 1 40 . 3 5 59 2 1 . 1 5 02 5 2 . 2 0 5 1 3 , 0 0 08 , 6 6 30 , 7 1 31 . 0 9 7 , 1 5 32 5 2 , 2 0 5 1 4 , 0 0 01 , 0 2 15 , 4 7 41 . 2 9 9 , 5 5 72 5 2 , 2 0 5 1 5 , 0 0 01 , 2 0 00 , 0 0 01 . 5 3 2 , 3 2 12 5 2 , 2 0 5
F u n c i n :V P N( < r a t e > ,< v a l > ) C a l c u l ae lv a l o ra c t u a ld eu n as e r i ed ev a l o r e sp a r ae v a l u a rl a l av i a b i l i d a dd eu np r o y e c t o .< f l o w V a l u e s >i sa nL i s t ac o nl o sV a l o r e s C a d ap r r a f oP e r i o d o . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )n p v( 0 , 2 5 ,[ 1 0 0 . 5 0 0 . 3 2 3 . 1 2 4 . 3 0 0 ] ) ; ( %O 2 )7 1 4 . 4 7 0 3 9 9 9 9 9 9 9 9 9
F u n c i n :i r r( < v a l > , ) T I R( T a s aI n t e r n ad eR e t o r n o )e se lv a l o rd el at a s aq u eh a c eN e t V a l o rP r e s e n t ec e r o .< f l o w V a l u e s >l o sV a l o r e sp r rC a d aP e r i o d o ( P a r aP E R I O D O SM A Y O R E Sa0 )ye lv a l o rP a r aE lP e r i o d oc e r o . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )r e s :i r r ( [ 5 0 0 0 , 0 , 8 0 0 , 1 3 0 0 , 1 5 0 0 , 2 0 0 0 ] ,0 )$ ( %I 3 )r h s( r e s[ 1 ][ 1 ] ) ; ( %O 3 )0 , 0 3 0 0 9 2 5 0 3 7 4 2 3 7 1 3 2
F u n c i n :b e n e f i t _ c o s t( < r a t e > , ,< o u t p u t > ) C a l c u l al ar e l a c i nb e n e f i c i o/c o s t o .E lb e n e f i c i oe sl aa c t u a ln e t o V a l o r( V A N )d el a se n t r a d a s ,ye lc o s t oe se lv a l o ra c t u a ln e t o( V A N ) d el a ss a l i d a s .O b s e r v eq u es in oh a yu n ae n t r a d aos a l i d a v a l o re nu np e r o d oe s p e c f i c o ,l ae n t r a d a/s a l i d as e r au nc e r op o r e s ep e r o d o .< r a t e >e sl at a s ad ei n t e r s ,e su n al i s t ad e v a l o r e sd ee n t r a d ay< o u t p u t >e su n al i s t ad el o sv a l o r e sd es a l i d a . E j e m p l o : ( %I 1 )l o a d( f i n a n z a s )$ ( %I 2 )b e n e f i t _ c o s t( 0 , 2 4 ,[ 0 3 0 0 5 0 0 1 5 0 ] ,[ 1 0 0 , 3 2 0 , 0 , 1 8 0 ] ) ; ( %O 2 )1 . 4 2 7 2 4 9 3 2 4 9 0 5 7 8 4
54 fractales
I n t r o d u c c i nal o sf r a c t a l e s D e f i n i c i o n e sp a r af r a c t a l e sI F S D e f i n i c i o n e sp a r af r a c t a l e sc o m p l e j a s d e f i n i c i o n e sd el o sc o p o sd en i e v ed eK o c h D e f i n i c i o n e sd em a p a sP e a n o
54.1 Introduccin a los fractales

E s t ep a q u e t ed e f i n ea l g u n o sf r a c t a l e sc o n o c i d o s : -C o nI F Sa z a r( s i s t e m ai t e r a d od el af u n c i n ) :e lS i e r p i n s k y t r i n g u l o ,u n r b o lyu nh e l e c h o -F r a c t a l e sc o m p l e j o s :e lM a n d e l b r o tyJ u l i aS e t s -E s t a b l e c ee lc o p od en i e v ed eK o c h -P e a n om a p a s :e lS i e r p i n s k iym a p a sH i l b e r t A u t o r :J o s e' R a m i ' r e zL a b r a d o r . P a r ap r e g u n t a s ,s u g e r e n c i a sye r r o r e s ,n od u d ee np o n e r s ee nc o n t a c t oc o n m i g o e n p e p eD O Tr a m i r e zA A A T T Tu c aD O Te s
472/633
28/08/13
54.2 Definiciones para fractales IFS

A l g u n a sf r a c t a l e sp u e d e ns e rg e n e r a d o sp o ra p l i c a c i o n e sd ec o n t r a c t i v oi t e r a t i v o t r a n s f o r m a c i o n e sa f i n e sd eu n af o r m aa l e a t o r i a ;v e r H o g g a rS G ," M a t e m t i c a sp a r al ac o m p u t a c i ng r f i c a " ,C a m b r i d g e U n i v e r s i t yP r e s s1 9 9 4 . S ed e f i n eu n al i s t ac o nv a r i a st r a n s f o r m a c i o n e sa f i n e sc o n t r a c t i v a s , ys e l e c c i o n a m o sa la z a rd el at r a n s f o r m a c i nd eu n af o r m ar e c u r s i v a .L a p r o b a b i l i d a dd eq u el ae l e c c i nd eu n at r a n s f o r m a c i nd e b ee s t a rr e l a c i o n a d oc o nl a r e l a c i nd ec o n t r a c c i n . P u e d ec a m b i a rl a st r a n s f o r m a c i o n e sye n c o n t r a ro t r of r a c t a l
F u n c i n :s i e r p i n s k i a l e( < n > ) T r i n g u l od eS i e r p i n s k i :3m a p a sc o n t r a c t i v a s ;0 , 5c o n t r a c c i nc o n s t a n t e yt r a d u c c i o n e s ;t o d o sl o sm a p a st i e n e nl am i s m ar e l a c i nd ec o n t r a c c i n . < n >A r g u m e n t od e b es e rg r a n d ee n o u g t h ,1 0 . 0 0 0om s . E j e m p l o : ( %I 1 )l o a d( f r a c t a l e s )$ ( %I 2 )n :1 0 . 0 0 0$ ( %I 3 )p l o t 2 d( [ d i s c r e t o s ,s i e r p i n s k i a l e( n ) ] ,[ e s t i l o ,p u n t o s ] )$
F u n c i n :t r e e f a l e( < n > ) 3m a p a sc o n t r a c t i v o s ,t o d a sc o nl am i s m ar e l a c i nd ec o n t r a c c i n .A r g u m e n t o < n >d e b es e rg r a n d ee n o u g t h ,1 0 . 0 0 0om s . E j e m p l o : ( %I 1 )l o a d( f r a c t a l e s )$ ( %I 2 )n :1 0 . 0 0 0$ ( %I 3 )p l o t 2 d( [ d i s c r e t o s ,t r e e f a l e( n ) ] ,[ e s t i l o ,p u n t o s ] )$
F u n c i n :f e r n f a l e( < n > ) 4m a p a sd ec o n t r a c c i n ,l ap r o b a b i l i d a dd ee l e g i ru n at r a n s f o r m a c i n d e b ee s t a rr e l a c i o n a d oc o nl ar e l a c i nd ec o n t r a c c i n .< n >A r g u m e n t od e b es e r g r a ne n o u g t h ,1 0 . 0 0 0om s . E j e m p l o : ( %I 1 )l o a d( f r a c t a l e s )$ ( %I 2 )n :1 0 . 0 0 0$ ( %I 3 )p l o t 2 d( [ d i s c r e t o s ,f e r n f a l e( n ) ] ,[ e s t i l o ,p u n t o s ] )$
54.3 Definiciones para fractales complejos

F u n c i n :m a n d e l b r o t _ s e t( < x >< y > ) C o n j u n t od eM a n d e l b r o t . E j e m p l o : E s t ep r o g r a m ae sm u c h ot i e m p op o r q u et i e n eq u eh a c e ru nm o n t nd e o p e r a c i o n e s ,e lt i e m p od ec l c u l ot a m b i ns er e l a c i o n ac o ne ln m e r od e p u n t o sd el ar e j i l l a . ( %I 1 )l o a d( f r a c t a l e s )$ ( %I 2 )p l o t 3 d( m a n d e l b r o t _ s e t ,[ x ,2 , 5 ,1 ] ,[ y ,1 , 5 ,1 , 5 ] , [ G n u p l o t _ p r e a m b l e" ,e s t a b l e c i v i s t ad em a p a " ] , [ G n u p l o t _ p m 3 d ,t r u e ] , [ G r i d ,1 5 0 ,1 5 0 ] )$
F u n c i n :j u l i a _ s e t( < x >< y > ) E s t a b l e c eJ u l i a . E s t ep r o g r a m ae sm u c h ot i e m p op o r q u et i e n eq u eh a c e ru nm o n t nd e o p e r a c i o n e s ,e lt i e m p od ec l c u l ot a m b i ns er e l a c i o n ac o ne ln m e r od e p u n t o sd el ar e j i l l a . E j e m p l o : ( %I 1 )l o a d( f r a c t a l e s )$ ( %I 2 )d i b u j a r 3 d( j u l i a _ s e t ,[ x ,2 ,1 ] ,[ y ,1 , 5 ,1 , 5 ] , [ G n u p l o t _ p r e a m b l e" ,e s t a b l e c i v i s t ad em a p a " ] , [ G n u p l o t _ p m 3 d ,t r u e ] , [ G r i d ,1 5 0 ,1 5 0 ] )$
473/633
28/08/13

C o n s u l t et a m b i n` j u l i a _ p a r a m e t e r' .
V a r i a b l eo p c i o n a l :j u l i a _ p a r a m e t e r V a l o rp o rd e f e c t o : %i' P a r m e t r oC o m p l e j od ef r a c t a l e sJ u l i a .S uv a l o rp o rd e f e c t oe s` %i' ; s u g e r i m o sl o sv a l o r e s` -0 , 7 4 5+ %i*0 , 1 1 3 0 0 2' , `-0 . 3 9 0 5 4-0 . 5 8 6 7 9 %i* ' , ` -0 . 1 5 6 5 2+1 . 0 3 2 2 5 %i*' , `-0 , 1 9 4+ %i*0 , 6 5 5 7 'y` 0 , 0 1 1 0 3 1-0 , 6 7 0 3 7 %i*' .
F u n c i n :j u l i a _ s i n( < x >< y > ) M i e n t r a sq u el af u n c i n` j u l i a _ s e t' i m p l e m e n t al at r a n s f o r m a c i n ` J u l i a _ p a r a m e t e r+z^2' ,f u n c t i o n `j u l i a _ s i n 'i m p l e m e n t a ` J u l i a _ p a r a m e t e r*s i n( z ) .V e rc d i g of u e n t ep a r am sd e t a l l e s . E s t ep r o g r a m as ee j e c u t ac o nl e n t i t u d ,y aq u ec a l c u l al ac a n t i d a dd es e n o s . E j e m p l o : E s t ep r o g r a m ae sm u c h ot i e m p op o r q u et i e n eq u eh a c e ru nm o n t nd e o p e r a c i o n e s ,e lt i e m p od ec l c u l ot a m b i ns er e l a c i o n ac o ne ln m e r od e p u n t o sd el ar e j i l l a . ( %I 1 )l o a d( f r a c t a l e s )$ ( %I 2 )j u l i a _ p a r a m e t e r :1+0 , 1* %i$ ( %I 3 )d i b u j a r 3 d( j u l i a _ s i n ,[ x ,2 ,2 ] ,[ y ,3 ,3 ] , [ G n u p l o t _ p r e a m b l e" ,e s t a b l e c i v i s t ad em a p a " ] , [ G n u p l o t _ p m 3 d ,t r u e ] , [ G r i d ,1 5 0 ,1 5 0 ] )$ C o n s u l t et a m b i n` j u l i a _ p a r a m e t e r' .
54.4 Definiciones para los copos de nieve de Koch

F u n c i n :s n o w m a p( < E n t > ,< n n > ) E s t a b l e c eK o c hc o p od en i e v e .P a r c e l a sf u n c i n` s n o w m a p' l an i e v ed eK o c hm a p a s o b r ee lv r t i c ed eu ni n i c i a lp o l i g o n a lc e r r a d o ,e ne lc o m p l e j o a v i n .A q u l ao r i e n t a c i nd e lp o l g o n oe si m p o r t a n t e .A r g u m e n t o < n n >e se ln m e r od es o l i c i t u d e sr e c u r s i v a sd eK o c h t r a n s f o r m a c i n ;< n n >d e b es e rp e q u e o( 5o6 ) . E j e m p l o s : ( %I 1 )l o a d( f r a c t a l e s )$ ( %I 2 )p l o t 2 d( [ d i s c r e t a , s n o w m a p( [ 1 ,e x p( %i* %p i*2 / 3 ) ,e x p( %i* %p i*2 / 3 ) ,1 ] ,4 ) ] )$ ( %I 3 )p l o t 2 d( [ d i s c r e t a , s n o w m a p( [ 1 ,e x p( %i* %p i*2 / 3 ) ,e x p( %i* %p i*2 / 3 ) ,1 ] ,4 ) ] )$ ( %I 4 )p l o t 2 d( [ d i s c r e t a ,s n o w m a p( [ 0 , 1 , 1+ %i , %i ,0 ] ,4 ) ] )$ ( %I 5 )p l o t 2 d( [ d i s c r e t a ,s n o w m a p( [ 0 , %i ,1+i % ,1 , 0 ] ,4 ) ] )$
54.5 Definiciones para mapas Peano

C u r v a sc o n t i n u a sq u ec u b r e nu n r e a .A d v e r t e n c i a :e ln m e r od ep u n t o s c r e c ee x p o n e n c i a l m e n t ec o n< n > .
F u n c i n :h i l b e r t m a p( < n n > ) M a p ad eH i l b e r t .< n n >A r g u m e n t od e b es e rp e q u e o( 5 ,p o re j e m p l o ) .M a x i m a p u e d eb l o q u e a r s es i< n n >e s7om a y o r . E j e m p l o : ( %I 1 )l o a d( f r a c t a l e s )$ ( %I 2 )p l o t 2 d( [ d i s c r e t a ,h i l b e r t m a p( 6 ) ] )$
F u n c i n :s i e r p i n s k i m a p( < n n > ) M a p ad eS i e r p i n s k i .< n n >A r g u m e n t od e b es e rp e q u e o( 5 ,p o re j e m p l o ) . M a x i m ap u e d ef a l l a rs i< n n >e s7om a y o r . E j e m p l o : ( %I 1 )l o a d( f r a c t a l e s )$ ( %I 2 )p l o t 2 d( [ d i s c r e t a ,s i e r p i n s k i m a p( 6 ) ] )$
55 ggf
28/08/13
F u n c i o n e syv a r i a b l e sp a r ag g f
55.1 Funciones y variables para ggf

V a r i a b l eo p c i o n a l :G G F I N F I N I T Y V a l o rp o rd e f e c t o :3 E s t ae su n av a r i a b l ed eo p c i np a r al af u n c i n` G G F' . C u a n d os ec a l c u l al af r a c c i nc o n t i n u ad el af u n c i nd eg e n e r a c i n , u nc o c i e n t ep a r c i a lq u et i e n eu ng r a d o( e ns e n t i d oe s t r i c t o )m a y o rq u e < G G F I N F I N I T Y >S ed e s c a r t a r nye lc o n v e r g e n t ea c t u a ls e r c o n s i d e r a d oc o m oe lv a l o re x a c t od el af u n c i ng e n e r a t r i z ,l am a y o r a am e n u d oe lg r a d od et o d o sl o sc o c i e n t e sp a r c i a l e ss e r 0o1 ;s i u t i l i z a ru nv a l o rm a y o r ,e n t o n c e su s t e dd e b ed a rt r m i n o ss u f i c i e n t e sp a r a c o n s e g u i ru nc l c u l om se x a c t o . V a s et a m b i ng g f` ' .
V a r i a b l eo p c i o n a l :G G F C F M A X V a l o rp o rd e f e c t o :3 E s t ae su n av a r i a b l ed eo p c i np a r al af u n c i n` G G F' . C u a n d os ec a l c u l al af r a c c i nc o n t i n u ad el af u n c i nd eg e n e r a c i n , s in os eh ae n c o n t r a d on i n g nb u e nr e s u l t a d o( v e rl ab a n d e r a< G G F I N F I N I T Y > ) d e s p u sd eh a b e rc a l c u l a d o< G G F C F M A X >c o c i e n t e sp a r c i a l e s ,l ag e n e r a c i nd e f u n c i ns e r c o n s i d e r a d ac o m on os i e n d ou n af r a c c i nd ed o s p o l i n o m i o syl af u n c i nt e r m i n a r .P o n g al i b r e m e n t eu nv a l o rm a y o r p a r al a sf u n c i o n e sd eg e n e r a c i nm sc o m p l i c a d o s . V a s et a m b i ng g f` ' .
F u n c i n :g g f( < l > ) C a l c u l a rl af u n c i nd eg e n e r a c i n( s is et r a t ad eu n af r a c c i nd ed o s p o l i n o m i o s )d eu n as e c u e n c i a ,l o sp r i m e r o st r m i n o sq u es ed a n .< l >e su n l i s t ad en m e r o s . L as o l u c i ns ed e v u e l v ec o m ou n af r a c c i nd ed o sp o l i n o m i o s .S in oh a y s eh ae n c o n t r a d os o l u c i n ,v u e l v ec o n' h a c e r ' . E s t af u n c i ne s t c o n t r o l a d ap o rl a sv a r i a b l e sg l o b a l e sy< G G F I N F I N I T Y > < G G F C F M A X > .V a s et a m b i n< G G F I N F I N I T Y >y< G G F C F M A X > . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " g g f " ) .
56 grficas
I n t r o d u c c i nal o sg r f i c o s F u n c i o n e syv a r i a b l e sp a r ag r f i c o s
56.1 Introduccin a los grficos

E lp a q u e t e` g r f i c o s' o f r e c eg r f i c oye s t r u c t u r ad ed a t o sp a r ae ld g r a f o M a x i m a .L o sg r f i c o ss o ns i m p l e syd g r a f o s( n ot i e n e nm l t i p l e sa r i s t a sn i l o o p s ) ,a u n q u ed g r a f o sp u e d e nt e n e ru n aa r i s t ad i r i g i d ad ep a r a< v >y u n aa r i s t ad i r i g i d ad e< v >e n . I n t e r n a m e n t el o sg r f i c o se s t nr e p r e s e n t a d a sp o rl i s t a sd ea d y a c e n c i aei m p l e m e n t a d o s c o m oe s t r u c t u r a sl i s p .L o sv r t i c e ss ei d e n t i f i c a nm e d i a n t es u si d e n t i f i c a d o r e s( u ni de su n n m e r oe n t e r o ) .B o r d e s/a r c o se s t nr e p r e s e n t a d o sp o rl i s t a sd el o n g i t u d2 .L a se t i q u e t a sp u e d e ns e r a s i g n a d o sal o sv r t i c e sd el o sg r a f o s/d i g r a f o syp e s o sp u e d e ns e ra s i g n a d o sa a r i s t a s/a r c o sd eg r f i c o s/d g r a f o s . H a yu n af u n c i n` d r a w _ g r a p h' p a r ag r f i c o sd ed i b u j o .L o sg r f i c o ss o n d i b u j a d ac o nu n af u e r z ab a s a d aa l g o r i t m od ep o s i c i o n a m i e n t ov r t i c e .` D r a w _ g r a p h' T a m b i np u e d eu t i l i z a rp r o g r a m a sg r a p h v i zd i s p o n i b l e s ` H t t p : / / w w w . g r a p h v i z . o r g' .` D r a w _ g r a p h' s eb a s ae nl o sm x i m o s `s o r t e o ' p a q u e t e . P a r au s a re l` g r f i c o s' p a q u e t e ,p r i m e r oc a r g a r l oc o nl o a d( g r f i c o s ) .
56.2 Funciones y variables para grficos

F u n c i n :c r e a t e _ g r a p h( < v _ l i s t > ,< e _ l i s t > ) F u n c i n :c r e a t e _ g r a p h( < n > ,< e _ l i s t > )
475/633
28/08/13

F u n c i n :c r e a t e _ g r a p h( < v _ l i s t > ,< e _ l i s t > ,< d i r e c t e d > ) C r e au nn u e v og r f i c oe ne lc o n j u n t od ev r t i c e s< v _ l i s t >yc o nl o sb o r d e s < e _ l i s t > . < v _ l i s t >e su n al i s t ad ev r t i c e s( ` [ v 1 ,v 2 ,. . . ,v n ]' )ou n al i s t ad e v r t i c e s ,j u n t oc o nl a se t i q u e t a sd el o sv r t i c e s( ` [ [ v 1 ,l 1 ] ,[ v 2 ,l 2 ] ,. . . , [ V n ,l n ] ]' ) . < n >e se ln m e r od ev r t i c e s .L o sv r t i c e ss e r ni d e n t i f i c a d o sp o r n m e r o se n t e r o sd e0an 1 . < e _ l i s t >e su n al i s t ad el o sb o r d e s( ` [ e 1 ,e 2 ,. . . ,e m ]' )ou n al i s t ad e b o r d e sj u n t oc o nE d g e p e s o s( ` [ [ e 1 ,w 1 ] ,. . . ,[ e m ,w m ] ]' ) . S i< d i r e c t e d >n oe s' f a l s e ' ,s ed e v o l v e r u ng r a f od i r i g i d o . E j e m p l o1 :c r e a ru nc r c u l od e3v r t i c e s : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( [ 1 , 2 , 3 ] ,[ [ 1 , 2 ] ,[ 2 , 3 ] ,[ 1 , 3 ] ] )$ ( %I 3 )p r i n t _ g r a p h( g )$ G r f i c oe n3v r t i c e sc o n3b o r d e s . A d y a c e n c i a s : 3 :12 2 :31 1 :32 E j e m p l o2 :c r e a ru nc r c u l od e3v r t i c e sc o np e s o sd el a sa r i s t a s : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( [ 1 , 2 , 3 ] ,[ [ [ 1 , 2 ] ,1 , 0 ] ,[ [ 2 , 3 ] ,2 , 0 ] , [ [ 1 , 3 ] ,3 . 0 ] ] )$ ( %I 3 )p r i n t _ g r a p h( g )$ G r f i c oe n3v r t i c e sc o n3b o r d e s . A d y a c e n c i a s : 3 :12 2 :31 1 :32 E j e m p l o3 :c r e a ru ng r f i c od i r i g i d o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )d :c r e a t e _ g r a p h( [ 1 , 2 , 3 , 4 ] , [ [ 1 , 3 ] ,[ 1 , 4 ] , [ 2 , 3 ] ,[ 2 , 4 ] ] , ' D i r i g i d o=t r u e )$ ( %I 3 )p r i n t _ g r a p h( d )$ D g r a f oe n4v r t i c e sc o n4a r c o s . A d y a c e n c i a s : 4 : 3 : 2 :34 1 :34
F u n c i n :c o p y _ g r a p h( < g > ) D e v u e l v eu n ac o p i ad el a< g >g r f i c o .
F u n c i n :c i r c u l a n t _ g r a p h( < n > ,< d > ) D e v u e l v ee lg r a f oc i r c u l a n t ec o np a r m e t r o s< n >y< d > . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c i r c u l a n t _ g r a p h( 1 0 ,[ 1 , 3 ] )$ ( %I 3 )p r i n t _ g r a p h( g )$ G r f i c oe n1 0v r t i c e sc o n2 0a r i s t a s . A d y a c e n c i a s : 9 :2068 8 :1597 7 :0468 6 :9753 5 :8642 4 :7153 36042 2 :9531 1 :8420 0 :7391
F u n c i n :c l e b s c h _ g r a p h( ) D e v u e l v ee lg r a f oC l e b s c h .
F u n c i n :c o m p l e m e n t _ g r a p h( < g > ) D e v u e l v ee lc o m p l e m e n t od el a< g >g r f i c o .
476/633
28/08/13
F u n c i n :c o m p l e t e _ b i p a r t i t e _ g r a p h( < n > ,< m > ) D e v u e l v ee lg r a f ob i p a r t i t oc o m p l e t od ev r t i c e s< n + m > .
F u n c i n :c o m p l e t e _ g r a p h( < n > ) D e v u e l v ee lg r a f oc o m p l e t od ev r t i c e s< n > .
F u n c i n :c y c l e _ d i g r a p h( < n > ) D e v u e l v ee lc i c l od i r i g i d op o rv r t i c e s< n > .
F u n c i n :c y c l e _ g r a p h( < n > ) D e v u e l v ee lc i c l od ev r t i c e s< n > .
F u n c i n :c u b o c t a h e d r o n _ g r a p h( < n > ) D e v u e l v ee lg r a f oc u b o c t a e d r o .
F u n c i n :c u b e _ g r a p h( < n > ) D e v u e l v ee lc u b o< n > d i m e n s i o n a l .
F u n c i n :d o d e c a h e d r o n _ g r a p h( ) D e v u e l v ee lg r a f od o d e c a e d r o .
F u n c i n :e m p t y _ g r a p h( < n > ) D e v u e l v ee lg r a f ov a c od ev r t i c e s< n > .
F u n c i n :f l o w e r _ s n a r k( < n > ) D e v u e l v ee lg r f i c od el af l o re n< 4 n >v r t i c e s . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )f 5 :f l o w e r _ s n a r k( 5 )$ ( %I 3 )c h r o m a t i c _ i n d e x( f 5 ) ; ( %O 3 )4
F u n c i n :f r o m _ a d j a c e n c y _ m a t r i x( < A > ) D e v u e l v ee lg r a f or e p r e s e n t a d op o rs u< A >m a t r i zd ea d y a c e n c i a .
F u n c i n :f r u c h t _ g r a p h( ) D e v u e l v ee lg r a f oF r u c h t .
F u n c i n :g r a p h _ p r o d u c t( < g 1 > ,< g 1 > ) D e v u e l v ee lp r o d u c t od i r e c t od el o sg r f i c o s< g 1 >y< G 2 > . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g r i d :g r a p h _ p r o d u c t( p a t h _ g r a p h( 3 ) ,p a t h _ g r a p h( 4 ) )$ ( %I 3 )d r a w _ g r a p h( g r i d )$
F u n c i n :g r a p h _ u n i o n( < g 1 > ,< g 1 > ) D e v u e l v el au n i n( s u m a )d eg r f i c o s< g 1 >y< G 2 > .
477/633
28/08/13
F u n c i n :g r i d _ g r a p h( < n > ,< m > ) D e v u e l v el ar e j i l l am >< n x .
F u n c i n :g r e a t _ r h o m b i c o s i d o d e c a h e d r o n _ g r a p h( ) D e v u e l v ee lg r a ng r f i c or o m b i c o s i d o d e c a e d r o .
F u n c i n :g r e a t _ r h o m b i c u b o c t a h e d r o n _ g r a p h( ) D e v u e l v ee lg r a ng r f i c or o m b i c u b o c t a e d r o .
F u n c i n :g r o t z c h _ g r a p h( ) D e v u e l v ee lg r a f oG r o t z c h .
F u n c i n :h e a w o o d _ g r a p h( ) D e v u e l v ee lg r a f oH e a w o o d .
F u n c i n :i c o s a h e d r o n _ g r a p h( ) D e v u e l v ee lg r a f oi c o s a e d r o .
F u n c i n :i c o s i d o d e c a h e d r o n _ g r a p h( ) D e v u e l v ee lg r a f oi c o s i d o d e c a e d r o .
F u n c i n :i n d u c e d _ s u b g r a p h( < V > ,< g > ) D e v u e l v ee lg r a f oi n d u c i d oe ne l< V >s u b c o n j u n t od ev r t i c e sd el a < g >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p e t e r s e n _ g r a p h( )$ ( %I 3 )V :[ 0 , 1 , 2 , 3 , 4 ]$ ( %I 4 )g :i n d u c e d _ s u b g r a p h( V ,p )$ ( %I 5 )p r i n t _ g r a p h( g )$ G r f i c oe n5v r t i c e sc o n5b o r d e s . A d y a c e n c i a s : 4 :30 3 :24 2 :13 1 :02 0 :14
F u n c i n :l i n e _ g r a p h( < g > ) D e v u e l v el al n e ag r f i c ad e l< g >g r f i c o .
F u n c i n :m a k e _ g r a p h( < v r t > ,< f > ) F u n c i n :m a k e _ g r a p h( < v r t > ,< f > ,< o r i e n t e d > ) C r e au n ag r f i c ac o nu n af u n c i n< f >p r e d i c a d o . < v r t >e su n al i s t a/c o n j u n t od ev r t i c e sou ne n t e r o .S ie su n< v r t > n m e r oe n t e r o ,e n t o n c e sl o sv r t i c e sd el ag r f i c as e r nn m e r o se n t e r o sd e1a < v r t > . < f >e su n af u n c i nd ep r e d i c a d o .D o sv r t i c e s< a >ys e r n c o n e c t a d os i` f( a ,b )=t r u e' . S i< d i r e c t e d >n oe s< f a l s e > ,ac o n t i n u a c i n ,s ed i r i g ee lg r f i c o . E j e m p l o1 : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :m a k e _ g r a p h( P o w e r s e t( { 1 , 2 , 3 , 4 , 5 } ,2 ) ,d i s j o i n t p )$ ( %I 3 )i s _ i s o m o r p h i c( g ,p e t e r s e n _ g r a p h( ) ) ; ( %O 3 )t r u e ( %I 4 )g e t _ v e r t e x _ l a b e l( 1 ,g ) ; ( %O 4 ){ 1 ,2 } E j e m p l o2 :
478/633
28/08/13

( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )f( i ,j ) :=e s( m o d( j ,i )=0 )$ ( %I 3 )g :m a k e _ g r a p h( 2 0 ,f ,d i r i g i d a=t r u e )$ ( %I 4 )o u t _ n e i g h b o r s( 4 ,g ) ; ( %O 4 )[ 8 ,1 2 ,1 6 ,2 0 ] ( %I 5 )i n _ n e i g h b o r s( 1 8g ) ; ( %O 5 )[ 1 ,2 ,3 ,6 ,9 ]
F u n c i n :m y c i e l s k i _ g r a p h( < g > ) D e v u e l v ee lg r a f om y c i e l s k i a nd e l< g >g r f i c o .
F u n c i n :n e w _ g r a p h( ) D e v u e l v ee lg r a f os i nv r t i c e sn ia r i s t a s .
F u n c i n :p a t h _ d i g r a p h( < n > ) D e v u e l v el ar u t as ei n d i c ae nv r t i c e s< n > .
F u n c i n :p a t h _ g r a p h( < n > ) D e v u e l v el ar u t ad ev r t i c e s< n > .
F u n c i n :p e t e r s e n _ g r a p h( ) F u n c i n :p e t e r s e n _ g r a p h( < n > ,< d > ) D e v u e l v ee lg r f i c oP e t e r s e n .L o sv a l o r e sp r e d e t e r m i n a d o sp a r a< n > y< d >s o n` n=5' y `d=2 .
F u n c i n :r a n d o m _ b i p a r t i t e _ g r a p h( < a > , ) D e v u e l v eu ng r a f ob i p a r t i t oa z a re n` v r t i c e sa+b' .C a d ab o r d ee s p r e s e n t a rc o np r o b a b i l i d a d .
F u n c i n :r a n d o m _ d i g r a p h( < n > , ) D e v u e l v eu ng r a f od i r i g i d oa z a re nv r t i c e s< n > .C a d aa r c oe s p r e s e n t a rc o np r o b a b i l i d a d .
F u n c i n :r a n d o m _ r e g u l a r _ g r a p h( < n > ) F u n c i n :r a n d o m _ r e g u l a r _ g r a p h( < n > ,< d > ) D e v u e l v eu ng r a f o< d > r e g u l a r e sa z a re nv r t i c e s< n > .E lv a l o rp o rd e f e c t o r e l a c i nc a l i d a d < d >e s` d=3' .
F u n c i n :r a n d o m _ g r a p h( < n > , ) D e v u e l v eu ng r a f oa l e a t o r i od ev r t i c e s< n > .C a d aa r i s t ae s t p r e s e n t ec o n p r o b a b i l i d a d .
F u n c i n :r a n d o m _ g r a p h 1( < n > ,< m > ) D e v u e l v eu ng r a f oa l e a t o r i od ev r t i c e sya r i s t a s< n >< m >a z a r .
F u n c i n :r a n d o m _ n e t w o r k( < n > , ,< w > ) D e v u e l v eu n ar e da l e a t o r i ad ev r t i c e s< n > .C a d aa r c oe s t p r e s e n t ec o n p r o b a b i l i d a dyt i e n eu np e s oe ne lr a n g o` [ 0 ,w ]' .L a f u n c i nd e v u e l v eu n al i s t a` [ r e d ,f u e n t e ,f r e g a d e r o ]' . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )[ n e t a ,s ,t ] :r a n d o m _ n e t w o r k( 5 0 ,0 , 2 ,1 0 , 0 ) ; ( %O 2 )[ d g r a f o ,5 0 ,5 1 ] ( %I 3 )m a x _ f l o w( n e t o ,s ,t )$ ( %I 4 )p r i m e r a( % ) ; ( %O 4 )2 7 . 6 5 9 8 1 3 9 7 9 3 2 5 0 7
479/633
28/08/13
F u n c i n :r a n d o m _ t o u r n a m e n t( < n > )
D e v u e l v eu nt o r n e od ea z a re nv r t i c e s< n > .
F u n c i n :r a n d o m _ t r e e( < n > ) D e v u e l v eu n r b o ld ea z a re nv r t i c e s< n > .
F u n c i n :s m a l l _ r h o m b i c o s i d o d e c a h e d r o n _ g r a p h( ) D e v u e l v ee lp e q u e og r f i c or o m b i c o s i d o d e c a e d r o .
F u n c i n :s m a l l _ r h o m b i c u b o c t a h e d r o n _ g r a p h( ) D e v u e l v ee lp e q u e og r f i c or o m b i c u b o c t a e d r o .
F u n c i n :s n u b _ c u b e _ g r a p h( ) D e v u e l v ee lg r a f oc u b od e s a i r e .
F u n c i n :s n u b _ d o d e c a h e d r o n _ g r a p h( ) D e v u e l v ee ld o d e c a e d r og r f i c od e s a i r e .
F u n c i n :t r u n c a t e d _ c u b e _ g r a p h( ) D e v u e l v ee lg r a f oc u b ot r u n c a d o .
F u n c i n :t r u n c a t e d _ d o d e c a h e d r o n _ g r a p h( ) D e v u e l v ee lg r a f od o d e c a e d r ot r u n c a d o .
F u n c i n :t r u n c a t e d _ i c o s a h e d r o n _ g r a p h( ) D e v u e l v ee lg r a f oi c o s a e d r ot r u n c a d o .
F u n c i n :t r u n c a t e d _ t e t r a h e d r o n _ g r a p h( ) D e v u e l v ee lg r a f ot e t r a e d r ot r u n c a d o .
F u n c i n :t u t t e _ g r a p h( ) D e v u e l v ee lg r a f oT u t t e .
F u n c i n :u n d e r l y i n g _ g r a p h( < g > ) D e v u e l v ee lg r a f os u b y a c e n t ed el a< g >g r a f od i r i g i d o .
F u n c i n :w h e e l _ g r a p h( < n > ) D e v u e l v ee lg r a f or u e d av r t i c e s< n + 1 > .
F u n c i n :a d j a c e n c y _ m a t r i x( < g r > ) D e v u e l v el am a t r i zd ea d y a c e n c i ad e l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )c 5 :c y c l e _ g r a p h( 4 )$ ( %I 3 )a d j a c e n c y _ m a t r i x( c 5 ) ; [ 0101 ] [ ] [ 1010 ] ( %O 3 )[ ]
480/633
28/08/13

[ 0101 ] [ ] [ 1010 ]
F u n c i n :a v e r a g e _ d e g r e e( < g r > ) D e v u e l v ee lg r a d om e d i od el o sv r t i c e se ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )a v e r a g e _ d e g r e e( g r o t z c h _ g r a p h( ) ) ; 4 0 ( %O 2 )1 1
F u n c i n :b i c o n n e c t e d _ c o m p o n e n t s( < g r > ) D e v u e l v el o sc o m p o n e n t e s2c o n e c t a d o sd el ag r f i c a( c o n j u n t o sd ev r t i c e s ) < g r > . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( [ 1 , 2 , 3 , 4 , 5 , 6 , 7 ] , [ [ 1 , 2 ] ,[ 2 , 3 ] ,[ 2 , 4 ] ,[ 3 , 4 ] , [ 4 , 5 ] ,[ 5 , 6 ] ,[ 4 , 6 ] ,[ 6 , 7 ] ] )$ ( %I 3 )b i c o n n e c t e d _ c o m p o n e n t s( g ) ; ( %O 3 )[ [ 6 ,7 ] ,[ 4 ,5 ,6 ] ,[ 1 ,2 ] ,[ 2 ,3 ,4 ] ]
F u n c i n :b i p a r t i c i n( < g r > ) D e v u e l v eu n ab i p a r t i c i nd el o sv r t i c e sd e lg r a f o< g r >ou nv a c o l i s t as i< g r >n oe sb i p a r t i t a . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )h :h e a w o o d _ g r a p h( )$ ( %I 3 )[ A ,B ] :b i p a r t i c i n( h ) ; ( %O 3 )[ [ 8 ,1 2 ,6 ,1 0 ,0 ,2 ,4 ] ,[ 1 3 ,5 ,1 1 ,7 ,9 ,1 ,3 ] ] ( %I 4 )d r a w _ g r a p h( h ,s h o w _ v e r t i c e s=A ,p r o g r a m a=c i r c u l a r )$
F u n c i n :c h r o m a t i c _ i n d e x( < g r > ) D e v u e l v ee l n d i c ec r o m t i c od e l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p e t e r s e n _ g r a p h( )$ ( %I 3 )c h r o m a t i c _ i n d e x( p ) ; ( %O 3 )4
F u n c i n :c h r o m a t i c _ n u m b e r( < g r > ) D e v u e l v ee ln m e r oc r o m t i c od e l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )c h r o m a t i c _ n u m b e r( c y c l e _ g r a p h( 5 ) ) ; ( %O 2 )3 ( %I 3 )c h r o m a t i c _ n u m b e r( c y c l e _ g r a p h( 6 ) ) ; ( %O 3 )2
F u n c i n :c l e a r _ e d g e _ w e i g h t( < e > ,< g r > ) E l i m i n ae lp e s od el a< e >v e n t a j ae ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( 3 ,[ [ [ 0 , 1 ] ,1 , 5 ] ,[ [ 1 , 2 ] ,1 , 3 ] ] )$ ( %I 3 )g e t _ e d g e _ w e i g h t( [ 0 , 1 ] ,g ) ; ( %O 3 )1 , 5 ( %I 4 )c l e a r _ e d g e _ w e i g h t( [ 0 , 1 ] ,g )$ ( %I 5 )g e t _ e d g e _ w e i g h t( [ 0 , 1 ] ,g ) ; ( %O 5 )1
F u n c i n :c l e a r _ v e r t e x _ l a b e l( < v > ,< g r > )
481/633
28/08/13

E l i m i n al ae t i q u e t ad e l< v >v r t i c ee ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( [ [ 0 ," Z e r o " ] ,[ 1 ," u n o " ] ] ,[ [ 0 , 1 ] ] )$ ( %I 3 )g e t _ v e r t e x _ l a b e l( 0 ,g ) ; ( %O 3 )Z e r o ( %I 4 )c l e a r _ v e r t e x _ l a b e l( 0 ,g ) ; ( %O 4 )h e c h o ( %I 5 )g e t _ v e r t e x _ l a b e l( 0 ,g ) ; ( %O 5 )f a l s e
F u n c i n :c o n n e c t e d _ c o m p o n e n t s( < g r > ) D e v u e l v el o sc o m p o n e n t e s( c o n j u n t o sd ev r t i c e s )c o n e c t a d o sd el ag r f i c a < g r > . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :g r a p h _ u n i o n( c y c l e _ g r a p h( 5 ) ,p a t h _ g r a p h( 4 ) )$ ( %I 3 )c o n n e c t e d _ c o m p o n e n t s( g ) ; ( %O 3 )[ [ 1 ,2 ,3 ,4 ,0 ] ,[ 8 ,7 ,6 ,5 ] ]
F u n c i n :d i m e t r o( < g r > ) D e v u e l v ee ld i m e t r od el a< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )d ed i m e t r o( d o d e c a h e d r o n _ g r a p h( ) ) ; ( %O 2 )5
F u n c i n :e d g e _ c o l o r i n g( < g r > ) D e v u e l v eu n ac o l o r a c i n p t i m ad el o sb o r d e sd el a< g r >g r f i c o . L af u n c i nd e v u e l v ee l n d i c ec r o m t i c oyu n al i s t aq u er e p r e s e n t a l ac o l o r a c i nd el o sb o r d e sd e< g r > . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p e t e r s e n _ g r a p h( )$ ( %I 3 )[ c h _ i n d e x ,c o l ] :e d g e _ c o l o r i n g( p ) ; ( %O 3 )[ 4 ,[ [ [ 0 ,5 ] ,3 ] ,[ [ 5 ,7 ] ,1 ] ,[ [ 0 ,1 ] ,1 ] ,[ [ 1 ,6 ] ,2 ] , [ [ 6 ,8 ] ,1 ] ,[ [ 1 ,2 ] ,3 ] ,[ [ 2 ,7 ] ,4 ] ,[ [ 7 ,9 ] ,2 ] ,[ [ 2 ,3 ] ,2 ] , [ [ 3 ,8 ] ,3 ] ,[ [ 5 ,8 ] ,2 ] ,[ [ 3 ,4 ] ,1 ] ,[ [ 4 ,9 ] ,4 ] ,[ [ 6 ,9 ] ,3 ] , [ [ 0 ,4 ] ,2 ] ] ] ( %I 4 )a s o c( [ 0 , 1 ] ,c o l ) ; ( %O 4 )1 ( %I 5 )a s o c( [ 0 , 5 ] ,c o l ) ; ( %O 5 )3
F u n c i n :d e g r e e _ s e q u e n c e( < g r > ) D e v u e l v el al i s t ad eg r a d o sd e lv r t i c ed el a< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )d e g r e e _ s e q u e n c e( r a n d o m _ g r a p h( 1 0 ,0 . 4 ) ) ; ( %O 2 )[ 2 ,2 ,2 ,2 ,2 ,2 ,3 ,3 ,3 ,3 ]
F u n c i n :e d g e _ c o n n e c t i v i t y( < g r > ) D e v u e l v ee lb o r d e c o n e c t i v i d a dd e l< g r >g r f i c o . C o n s u l t et a m b i n` m i n _ e d g e _ c u t' .
F u n c i n :b o r d e s( < g r > ) D e v u e l v el al i s t ad ea r i s t a s( a r c o s )e nu n( d i r i g i d a )< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )b o r d e s( c o m p l e t e _ g r a p h( 4 ) ) ; ( %O 2 )[ [ 2 ,3 ] ,[ 1 ,3 ] ,[ 1 ,2 ] ,[ 0 ,3 ] ,[ 0 ,2 ] ,[ 0 ,1 ] ]
F u n c i n :g e t _ e d g e _ w e i g h t( < e > ,< g r > ) F u n c i n :g e t _ e d g e _ w e i g h t( < e > ,< g r > , )
482/633
28/08/13

D e v u e l v ee lp e s od el a< e >v e n t a j ae ne l< g r >g r f i c o . S in oh a yn i n g np e s oa s i g n a d oa lb o r d e ,l af u n c i nd e v u e l v e 1 .S ie lb o r d en oe s t p r e s e n t ee nl ag r f i c a ,l af u n c i ns e a l a u ne r r o rod e v u e l v ee la r g u m e n t oo p c i o n a l . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )c 5 :c y c l e _ g r a p h( 5 )$ ( %I 3 )g e t _ e d g e _ w e i g h t( [ 1 , 2 ] ,C 5 ) ; ( %O 3 )1 ( %I 4 )s e t _ e d g e _ w e i g h t( [ 1 , 2 ] ,2 , 0 ,c 5 ) ; ( %O 4 )h e c h o ( %I 5 )g e t _ e d g e _ w e i g h t( [ 1 , 2 ] ,C 5 ) ; ( %O 5 )2 , 0
F u n c i n :g e t _ v e r t e x _ l a b e l( < v > ,< g r > ) D e v u e l v el ae t i q u e t ad e l< v >v r t i c ee ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( [ [ 0 ," Z e r o " ] ,[ 1 ," u n o " ] ] ,[ [ 0 , 1 ] ] )$ ( %I 3 )g e t _ v e r t e x _ l a b e l( 0 ,g ) ; ( %O 3 )Z e r o
F u n c i n :g r a p h _ c h a r p o l y( < g r > ,< x > ) D e v u e l v ee lp o l i n o m i oc a r a c t e r s t i c o( e n< x >v a r i a b l e )d el a < g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p e t e r s e n _ g r a p h( )$ ( %I 3 )g r a p h _ c h a r p o l y( p ,x ) ,e lf a c t o r ; 54 ( %O 3 )( x-3 )( x-1 )( x+2 )
F u n c i n :g r a p h _ c e n t e r( < g r > ) D e v u e l v ee lc e n t r od el a< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :g r i d _ g r a p h( 5 , 5 )$ ( %I 3 )g r a p h _ c e n t e r( g ) ; ( %O 3 )[ 1 2 ]
F u n c i n :g r a p h _ e i g e n v a l u e s ( < g r > ) D e v u e l v el o sv a l o r e sp r o p i o sd el a< g r >g r f i c o .L af u n c i nd e v u e l v e v a l o r e sp r o p i o se ne lm i s m of o r m a t oq u el af u n c i n` m a x i m av a l o rp r o p i o' . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p e t e r s e n _ g r a p h( )$ ( %I 3 )g r a p h _ e i g e n v a l u e s ( p ) ; ( %O 3 )[ [ 3 ,-2 ,1 ] ,[ 1 ,4 ,5 ] ]
F u n c i n :g r a p h _ p e r i p h e r y( < g r > ) D e v u e l v el ap e r i f e r i ad el a< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :g r i d _ g r a p h( 5 , 5 )$ ( %I 3 )g r a p h _ p e r i p h e r y( g ) ; ( %O 3 )[ 2 4 ,2 0 ,4 ,0 ]
F u n c i n :g r a p h _ s i z e( < g r > ) D e v u e l v ee ln m e r od ea r i s t a se ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p e t e r s e n _ g r a p h( )$ ( %I 3 )g r a p h _ s i z e( p ) ; ( %O 3 )1 5
F u n c i n :g r a p h _ o r d e r( < g r > )
483/633
28/08/13

D e v u e l v ee ln m e r od ev r t i c e se ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p e t e r s e n _ g r a p h( )$ ( %I 3 )g r a p h _ o r d e r( p ) ; ( %O 3 )1 0
F u n c i n :l ac i r c u n f e r e n c i a( < g r > ) D e v u e l v el al o n g i t u dd e lc i c l om sc o r t oe n< g r > . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :h e a w o o d _ g r a p h( )$ ( %I 3 )c i r c u n f e r e n c i a( g ) ; ( %O 3 )6
F u n c i n :h a m i l t o n _ c y c l e( < g r > ) D e v u e l v ee lc i c l od eH a m i l t o nd e l< g r >g r f i c oou n al i s t av a c as i < g r >n oe sh a m i l t o n i a n o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )c :c u b e _ g r a p h( 3 )$ ( %I 3 )H C :h a m i l t o n _ c y c l e( c ) ; ( %O 3 )[ 7 ,3 ,2 ,6 ,4 ,0 ,1 ,5 ,7 ] ( %I 4 )d r a w _ g r a p h( c ,s h o w _ e d g e s=v e r t i c e s _ t o _ c y c l e( h c ) )$
F u n c i n :h a m i l t o n _ p a t h( < g r > ) D e v u e l v el ar u t ad eH a m i l t o nd e l< g r >g r f i c oou n al i s t av a c as i < g r >n ot i e n eu n ar u t ad eH a m i l t o n . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p e t e r s e n _ g r a p h( )$ ( %I 3 )h p :h a m i l t o n _ p a t h( p ) ; ( %O 3 )[ 0 ,5 ,7 ,2 ,1 ,6 ,8 ,3 ,4 ,9 ] ( %I 4 )d r a w _ g r a p h( p ,s h o w _ e d g e s=v e r t i c e s _ t o _ p a t h( C V ) )$
F u n c i n :i s o m o r f i s m o( < g r 1 > ,< g r 2 > ) D e v u e l v eu ni s o m o r f i s m oe n t r eg r a f o s/d i g r a f o s< g r 1 >y< g r 2 > . S i< g r 1 >y< g r 2 >n os o ni s o m o r f o s ,d e v u e l v eu n al i s t av a c a . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )c l k 5 :c o m p l e m e n t _ g r a p h( l i n e _ g r a p h( c o m p l e t e _ g r a p h( 5 ) ) )$ ( %I 3 )i s o m o r f i s m o( c l k 5 ,p e t e r s e n _ g r a p h( ) ) ; ( %O 3 )[ 9>0 ,2>1 ,6>2 ,5>3 ,0>4 ,1>5 ,3>6 , 4>7 ,7>8 ,8>9 ]
F u n c i n :i n _ n e i g h b o r s( < v > ,< g r > ) D e v u e l v el al i s t ad ei n v e c i n o sd el a< v >v r t i c ee nl ad i r e c c i n < g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p a t h _ d i g r a p h( 3 )$ ( %I 3 )i n _ n e i g h b o r s( 2 ,p ) ; ( %O 3 )[ 1 ] ( %I 4 )o u t _ n e i g h b o r s( 2 ,p ) ; ( %O 4 )[ ]
F u n c i n :i s _ b i c o n n e c t e d( < g r > ) D e v u e l v e` t r u e' s i< g r >e s2 c o n e c t a d oy `f a l s e 'e nc a s oc o n t r a r i o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )i s _ b i c o n n e c t e d( c y c l e _ g r a p h( 5 ) ) ; ( %O 2 )t r u e ( %I 3 )i s _ b i c o n n e c t e d( p a t h _ g r a p h( 5 ) ) ; ( %O 3 )f a l s e
F u n c i n :i s _ b i p a r t i t e( < g r > )
484/633
28/08/13

D e v u e l v e` t r u e' s i< g r >e sb i p a r t i t a( 2 c o l o r e a b l e )y 'f a l s e' d eo t r om o d o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )i s _ b i p a r t i t e( p e t e r s e n _ g r a p h( ) ) ; ( %O 2 )f a l s e ( %I 3 )i s _ b i p a r t i t e( h e a w o o d _ g r a p h( ) ) ; ( %O 3 )t r u e
F u n c i n :i s _ c o n n e c t e d( < g r > ) D e v u e l v e` t r u e' s ie l< g r >g r a f oe sc o n e x oy 'f a l s e' d eo t r om o d o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )i s _ c o n n e c t e d( g r a p h _ u n i o n( c y c l e _ g r a p h( 4 ) ,p a t h _ g r a p h( 3 ) ) ) ; ( %O 2 )f a l s e
F u n c i n :i s _ d i g r a p h( < g r > ) D e v u e l v e` t r u e' s i< g r >e su ng r a f od i r i g i d oy `f a l s e 'e nc a s oc o n t r a r i o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )i s _ d i g r a p h( p a t h _ g r a p h( 5 ) ) ; ( %O 2 )f a l s e ( %I 3 )i s _ d i g r a p h( p a t h _ d i g r a p h( 5 ) ) ; ( %O 3 )t r u e
F u n c i n :i s _ e d g e _ i n _ g r a p h( < e > ,< g r > ) D e v u e l v e` t r u e' s i< e >e su n aa r i s t a( a r c o )e ne l( d i r i g i d a )< g >g r f i c o y` f a l s e' e nc a s oc o n t r a r i o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )c 4 :c y c l e _ g r a p h( 4 )$ ( %I 3 )i s _ e d g e _ i n _ g r a p h( [ 2 , 3 ] ,c 4 ) ; ( %O 3 )t r u e ( %I 4 )i s _ e d g e _ i n _ g r a p h( [ 3 , 2 ] ,C 4 ) ; ( %O 4 )t r u e ( %I 5 )i s _ e d g e _ i n _ g r a p h( [ 2 , 4 ] ,C 4 ) ; ( %O 5 )f a l s e ( %I 6 )i s _ e d g e _ i n _ g r a p h( [ 3 , 2 ] ,c y c l e _ d i g r a p h( 4 ) ) ; ( %O 6 )f a l s e
F u n c i n :i s _ g r a p h( < g r > ) D e v u e l v e` t r u e' s i< g r >e su ng r f i c oy `f a l s e 'e nc a s oc o n t r a r i o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )i s _ g r a p h( p a t h _ g r a p h( 5 ) ) ; ( %O 2 )t r u e ( %I 3 )i s _ g r a p h( p a t h _ d i g r a p h( 5 ) ) ; ( %O 3 )f a l s e
F u n c i n :i s _ g r a p h _ o r _ d i g r a p h( < g r > ) D e v u e l v e` t r u e' s i< g r >e su ng r f i c oou ng r f i c od i r i g i d oy 'f a l s e' d eo t r om o d o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )i s _ g r a p h _ o r _ d i g r a p h( p a t h _ g r a p h( 5 ) ) ; ( %O 2 )t r u e ( %I 3 )i s _ g r a p h _ o r _ d i g r a p h( p a t h _ d i g r a p h( 5 ) ) ; ( %O 3 )t r u e
F u n c i n :i s _ i s o m o r p h i c( < g r 1 > ,< g r 2 > ) D e v u e l v e` t r u e' s ig r f i c a s/d g r a f o s< g r 1 >y< g r 2 >s o ni s o m o r f o s y` f a l s e' e nc a s oc o n t r a r i o . V a s et a m b i n' i s o m o r f i s m o ' . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )c l k 5 :c o m p l e m e n t _ g r a p h( l i n e _ g r a p h( c o m p l e t e _ g r a p h( 5 ) ) )$
485/633
28/08/13

( %I 3 )i s _ i s o m o r p h i c( c l k 5 ,p e t e r s e n _ g r a p h( ) ) ; ( %O 3 )t r u e
F u n c i n :i s _ p l a n a r( < g r > ) D e v u e l v e` t r u e' s i< g r >e su ng r a f op l a n oy `f a l s e 'e nc a s oc o n t r a r i o . E la l g o r i t m ou t i l i z a d oe se la l g o r i t m od eD e m o u c r o n ,q u ee su n a l g o r i t m od et i e m p oc u a d r t i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )i s _ p l a n a r( d o d e c a h e d r o n _ g r a p h( ) ) ; ( %O 2 )t r u e ( %I 3 )i s _ p l a n a r( p e t e r s e n _ g r a p h( ) ) ; ( %O 3 )f a l s e ( %I 4 )i s _ p l a n a r( p e t e r s e n _ g r a p h( 1 0 , 2 ) ) ; ( %O 4 )t r u e
F u n c i n :i s _ s c o n n e c t e d( < g r > ) D e v u e l v e` t r u e' s ie l< g r >g r a f od i r i g i d oe s t f u e r t e m e n t ec o n e c t a d oy ` F a l s e' e nc a s oc o n t r a r i o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )i s _ s c o n n e c t e d( c y c l e _ d i g r a p h( 5 ) ) ; ( %O 2 )t r u e ( %I 3 )i s _ s c o n n e c t e d( p a t h _ d i g r a p h( 5 ) ) ; ( %O 3 )f a l s e
F u n c i n :i s _ v e r t e x _ i n _ g r a p h( < v > ,< g r > ) D e v u e l v e` t r u e' s i< v >e su nv r t i c ee ne l< g >g r f i c oy `f a l s e ' d eo t r om o d o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )c 4 :c y c l e _ g r a p h( 4 )$ ( %I 3 )i s _ v e r t e x _ i n _ g r a p h( 0 ,C 4 ) ; ( %O 3 )t r u e ( %I 4 )i s _ v e r t e x _ i n _ g r a p h( 6 ,c 4 ) ; ( %O 4 )f a l s e
F u n c i n :i s _ t r e e( < g r > ) D e v u e l v e` t r u e' s i< g r >e su n r b o ly `f a l s e 'e nc a s oc o n t r a r i o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )i s _ t r e e( r a n d o m _ t r e e( 4 ) ) ; ( %O 2 )t r u e ( %I 3 )i s _ t r e e( g r a p h _ u n i o n( r a n d o m _ t r e e( 4 ) ,r a n d o m _ t r e e( 5 ) ) ) ; ( %O 3 )f a l s e
F u n c i n :l a p l a c i a n _ m a t r i x( < g r > ) D e v u e l v el am a t r i zl a p l a c i a n od e l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )l a p l a c i a n _ m a t r i x( c y c l e _ g r a p h( 5 ) ) ; [ 2-100-1 ] [ ] [ -12-100 ] [ ] ( %O 2 )[ 0-12-10 ] [ ] [ 00-2a1e n ] [ ] [ -100-1 ,2 ]
F u n c i n :m a x _ c l i q u e( < g r > ) D e v u e l v eu n ac a m a r i l l am x i m ad e l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :r a n d o m _ g r a p h( 1 0 0 ,0 . 5 )$ ( %I 3 )m a x _ c l i q u e( g ) ; ( %O 3 )[ 6 ,1 2 ,3 1 ,3 6 ,5 2 ,5 9 ,6 2 ,6 3 ,8 0 ]
486/633
28/08/13
F u n c i n :m a x _ d e g r e e( < g r > )
D e v u e l v ee lg r a d om x i m od ev r t i c e sd e l< g r >g r f i c oyu n a v r t i c ed eg r a d om x i m o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :r a n d o m _ g r a p h( 1 0 0 ,0 . 0 2 )$ ( %I 3 )m a x _ d e g r e e( g ) ; ( %O 3 )[ 6 ,7 9 ] ( %I 4 )v e r t e x _ d e g r e e( 9 5g ) ; ( %O 4 )2
F u n c i n :m a x _ f l o w( < r e d > ,< S > ,< t > ) D e v u e l v eu nf l u j om x i m oat r a v sd el ar e d< r e d >c o nl af u e n t e < S >ye ll a v a b o< t > . L af u n c i nd e v u e l v ee lv a l o rd e lf l u j om x i m oyu n al i s t a q u er e p r e s e n t al o sp e s o sd el o sa r c o se ne lf l u j o p t i m o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )n e t :c r e a t e _ g r a p h( [ 1 , 2 , 3 , 4 , 5 , 6 ] , [ [ [ 1 , 2 ] ,1 , 0 ] , [ [ 1 , 3 ] ,0 , 3 ] , [ [ 2 , 4 ] ,0 , 2 ] , [ [ 2 , 5 ] ,0 , 3 ] , [ [ 3 , 4 ] ,0 , 1 ] , [ [ 3 , 5 ] ,0 , 1 ] , [ [ 4 , 6 ] ,1 , 0 ] , [ [ 5 , 6 ] ,1 , 0 ] ] , d i r i g i d o=t r u e )$ ( %I 3 )[ f l o w _ v a l u e ,f l u j o ] :m a x _ f l o w( n e t o ,1 ,6 ) ; ( %O 3 )[ 0 , 7 ,[ [ [ 1 ,2 ] ,0 , 5 ] ,[ [ 1 ,3 ] ,0 , 2 ] ,[ [ 2 ,4 ] ,0 , 2 ] , [ [ 2 ,5 ] ,0 , 3 ] ,[ [ 3 ,4 ] ,0 , 1 ] ,[ [ 3 ,5 ] ,0 , 1 ] ,[ [ 4 ,6 ] ,0 , 3 ] , [ [ 5 ,6 ] ,0 , 4 ] ] ] ( %I 4 )b a j a :$0 ( %I 5 )p a r aue no u t _ n e i g h b o r s( 1 ,n e t o ) h a c e rf lf l+a s o c( [ 1 ,e ] ,f l u j o )$ ( %I 6 )f l ; ( %O 6 )0 , 7
F u n c i n :m a x _ i n d e p e n d e n t _ s e t( < g r > ) D e v u e l v eu nc o n j u n t oi n d e p e n d i e n t em x i m od e l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )d :d o d e c a h e d r o n _ g r a p h( )$ ( %I 3 )m i :m a x _ i n d e p e n d e n t _ s e t( d ) ; ( %O 3 )[ 0 ,3 ,5 ,9 ,1 0 ,1 1 ,1 8 ,1 9 ] ( %I 4 )d r a w _ g r a p h( d ,s h o w _ v e r t i c e s=m i )$
F u n c i n :m a x _ m a t c h i n g( < g r > ) D e v u e l v eu n ac o i n c i d e n c i am x i m ad e l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )d :d o d e c a h e d r o n _ g r a p h( )$ ( %I 3 )m :m a x _ m a t c h i n g( d ) ; ( %O 3 )[ [ 5 ,7 ] ,[ 8 ,9 ] ,[ 6 ,1 0 ] ,[ 1 4 ,1 9 ] ,[ 1 3 ,1 8 ] ,[ 1 2 ,1 7 ] , [ 1 1 ,1 6 ] ,[ 0 ,1 5 ] ,[ 3 ,4 ] ,[ 1 ,2 ] ] ( %I 4 )d r a w _ g r a p h( d ,s h o w _ e d g e s=m )$
F u n c i n :m i n _ d e g r e e( < g r > ) D e v u e l v ee lm n i m od ev r t i c e sd e l< g r >g r f i c oyu n a v r t i c ed eg r a d om n i m o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :r a n d o m _ g r a p h( 1 0 0 ,0 . 1 )$ ( %I 3 )m i n _ d e g r e e( g ) ; ( %O 3 )[ 3 ,4 9 ] ( %I 4 )v e r t e x _ d e g r e e( 2 1g ) ; ( %O 4 )9
F u n c i n :m i n _ e d g e _ c u t( < g r > ) D e v u e l v ee lb o r d ed ec o r t em n i m oe ne l< g r >g r f i c o .
487/633
28/08/13

C o n s u l t et a m b i n` e d g e _ c o n n e c t i v i t y' .
F u n c i n :m i n _ v e r t e x _ c o v e r( < g r > ) D e v u e l v el ac o b e r t u r am n i m av r t i c ed e l< g r >g r f i c o .
F u n c i n :m i n _ v e r t e x _ c u t( < g r > ) D e v u e l v ee lv r t i c ed ec o r t em n i m oe ne l< g r >g r f i c o . C o n s u l t et a m b i n` v e r t e x _ c o n n e c t i v i t y' .
F u n c i n :m i n i m u m _ s p a n n i n g _ t r e e( < g r > ) D e v u e l v ee l r b o ld ee x p a n s i nm n i m ad e l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :g r a p h _ p r o d u c t( p a t h _ g r a p h( 1 0 ) ,p a t h _ g r a p h( 1 0 ) )$ ( %I 3 )t :m i n i m u m _ s p a n n i n g _ t r e e( g )$ ( %I 4 )d r a w _ g r a p h( g ,s h o w _ e d g e s=b o r d e s( t ) )$
F u n c i n :v e c i n o s( < v > ,< g r > ) D e v u e l v el al i s t ad ev e c i n o sd el a< v >v r t i c ee ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p e t e r s e n _ g r a p h( )$ ( %I 3 )v e c i n o s( 3 ,p ) ; ( %O 3 )[ 4 ,8 ,2 ]
F u n c i n :o d d _ g i r t h( < g r > ) D e v u e l v el al o n g i t u dd el am sc o r t ad e lc i c l oe x t r a oe ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :g r a p h _ p r o d u c t( c y c l e _ g r a p h( 4 ) ,c y c l e _ g r a p h( 7 ) )$ ( %I 3 )c i r c u n f e r e n c i a( g ) ; ( %O 3 )4 ( %I 4 )o d d _ g i r t h( g ) ; ( %O 4 )7
F u n c i n :o u t _ n e i g h b o r s( < v > ,< g r > ) D e v u e l v el al i s t ad ef u e r a v e c i n o sd el a< v >v r t i c ee nl ad i r e c c i n < g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p a t h _ d i g r a p h( 3 )$ ( %I 3 )i n _ n e i g h b o r s( 2 ,p ) ; ( %O 3 )[ 1 ] ( %I 4 )o u t _ n e i g h b o r s( 2 ,p ) ; ( %O 4 )[ ]
F u n c i n :p l a n a r _ e m b e d d i n g( < g r > ) D e v u e l v el al i s t ad ep a s e o sf a c i a l e se nu n ai n m e r s i np l a n ad e l< g r >y ' F a l s e 's i< g r >n oe su ng r a f op l a n o . E l< g r >g r f i c od e b es e rb i c o n e x o . E la l g o r i t m ou t i l i z a d oe se la l g o r i t m od eD e m o u c r o n ,q u ee su n a l g o r i t m od et i e m p oc u a d r t i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p l a n a r _ e m b e d d i n g( g r i d _ g r a p h( 3 , 3 ) ) ; ( %O 2 )[ [ 3 ,6 ,7 ,8 ,5 ,2 ,1 ,0 ] ,[ 4 ,3 ,0 ,1 ] ,[ 3 ,4 ,7 ,6 ] , [ 8 ,7 ,4 ,5 ] ,[ 1 ,2 ,5 ,4 ] ]
F u n c i n :p r i n t _ g r a p h( < g r > ) I m p r i m ea l g u n ai n f o r m a c i ns o b r el a< g r >g r f i c o .
488/633
28/08/13

E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )c 5 :c y c l e _ g r a p h( 5 )$ ( %I 3 )p r i n t _ g r a p h( c 5 )$ G r f i c oe n5v r t i c e sc o n5b o r d e s . A d y a c e n c i a s : 4 :03 3 :42 2 :31 1 :20 0 :41 ( %I 4 )d c 5 :c y c l e _ d i g r a p h( 5 )$ ( %I 5 )p r i n t _ g r a p h( D C 5 )$ D g r a f oe n5v r t i c e sc o n5a r c o s . A d y a c e n c i a s : 4 :0 3 :4 2 :3 1 :2 0 :1 ( %I 6 )o u t _ n e i g h b o r s( 0 ,D C 5 ) ; ( %O 6 )[ 1 ]
F u n c i n :R a d i o( < g r > ) D e v u e l v ee lr a d i od el a< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )R a d i o( d o d e c a h e d r o n _ g r a p h( ) ) ; ( %O 2 )5
F u n c i n :s e t _ e d g e _ w e i g h t( < e > ,< w >< g r > ) A s i g n ae l< w >p e s oal a< e >v e n t a j ae ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( [ 1 ,2 ] ,[ [ [ 1 , 2 ] ,1 , 2 ] ] )$ ( %I 3 )g e t _ e d g e _ w e i g h t( [ 1 , 2 ] ,g ) ; ( %O 3 )1 , 2 ( %I 4 )s e t _ e d g e _ w e i g h t( [ 1 , 2 ] ,2 . 1 ,g ) ; ( %O 4 )h e c h o ( %I 5 )g e t _ e d g e _ w e i g h t( [ 1 , 2 ] ,g ) ; ( %O 5 )2 , 1
F u n c i n :s e t _ v e r t e x _ l a b e l( < v > ,< l > ,< g r > ) A s i g n ae l< l >e t i q u e t aal a< v >v r t i c ee ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( [ [ 1 ," u n o " ] ,[ 2 ," D o s " ] ] ,[ [ 1 , 2 ] ] )$ ( %I 3 )g e t _ v e r t e x _ l a b e l( 1 ,g ) ; ( %O 3 )U n a ( %I 4 )s e t _ v e r t e x _ l a b e l( 1 ," u n o " ,g ) ; ( %O 4 )h e c h o ( %I 5 )g e t _ v e r t e x _ l a b e l( 1 ,g ) ; ( %O 5 )u n
F u n c i n :s h o r t e s t _ p a t h( ,< v > ,< g r > ) D e v u e l v el ar u t am sc o r t ad e s d ep a r a< v >e ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )d :d o d e c a h e d r o n _ g r a p h( )$ ( %I 3 )R u t a :s h o r t e s t _ p a t h( 0 ,7 ,d ) ; ( %O 3 )[ 0 ,1 ,1 9 ,1 3 ,7 ] ( %I 4 )d r a w _ g r a p h( d ,s h o w _ e d g e s=v e r t i c e s _ t o _ p a t h( p a t h ) )$
F u n c i n :s h o r t e s t _ w e i g h t e d _ p a t h( ,< v > ,< g r > ) D e v u e l v el al o n g i t u dd el at r a y e c t o r i ap o n d e r a d am sc o r t oye lm sc o r t o c a m i n op o n d e r a d od ep a r a< v >e ne l< g r >g r f i c o . L al o n g i t u dd eu nc a m i n op o n d e r a d ae sl as u m ad ep e s o sd el a sa r i s t a sd eb o r d e s e ne lc a m i n o .S iu nb o r d en ot i e n ep e s o ,e n t o n c e st i e n eu nv a l o rp r e d e t e r m i n a d o p e s o1 . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :p e t e r s e n _ g r a p h( 2 0 ,2 )$ ( %I 3 )p a r ae lc o r r e oe nl o sb o r d e s( g )h a c e rs e t _ e d g e _ w e i g h t( e ,r a n d o m( 1 , 0 ) ,g )$
489/633
28/08/13

( %I 4 )s h o r t e s t _ w e i g h t e d _ p a t h( 0 ,1 0 ,g ) ; ( %O 4 )[ 2 , 5 7 5 1 4 3 9 2 0 2 6 8 4 8 2 ,[ 0 ,2 0 ,3 8 ,3 6 ,3 4 ,3 2 ,3 0 ,1 0 ] ]
F u n c i n :s t r o n g _ c o m p o n e n t s( < g r > ) D e v u e l v el o sf u e r t e sc o m p o n e n t e sd eu n< g r >g r a f od i r i g i d o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )t :r a n d o m _ t o u r n a m e n t( 4 )$ ( %I 3 )s t r o n g _ c o m p o n e n t s( t ) ; ( %O 3 )[ [ 1 ] ,[ 0 ] ,[ 2 ] ,[ 3 ] ] ( %I 4 )v e r t e x _ o u t _ d e g r e e( 3 ,t ) ; ( %O 4 )3
F u n c i n :t o p o l o g i c a l _ s o r t( < d a g > ) D e v u e l v eu n ac l a s i f i c a c i nt o p o l g i c ad el o sv r t i c e sd eu ng r a f od i r i g i d o < d a g >ou n al i s t av a c as i< d a g >n oe su ng r a f oa c c l i c od i r i g i d o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( [ 1 , 2 , 3 , 4 , 5 ] , [ [ 1 , 2 ] ,[ 2 , 5 ] ,[ 5 , 3 ] , [ 5 , 4 ] ,[ 3 , 4 ] ,[ 1 , 3 ] ] , d i r i g i d o=t r u e )$ ( %I 3 )t o p o l o g i c a l _ s o r t( g ) ; ( %O 3 )[ 1 ,2 ,5 ,3 ,4 ]
F u n c i n :v e r t e x _ c o n n e c t i v i t y( < g > ) D e v u e l v el ac o n e c t i v i d a dv r t i c ed e l< g >g r f i c o . C o n s u l t et a m b i n` m i n _ v e r t e x _ c u t' .
F u n c i n :v e r t e x _ d e g r e e( < v > ,< g r > ) D e v u e l v ee lg r a d od el a< v >v r t i c ee ne lg r f i c o< g r > .
F u n c i n :v e r t e x _ d i s t a n c e( ,< v > ,< g r > ) D e v u e l v el al o n g i t u dd e lc a m i n om sc o r t oe n t r eye ne l< v > ( D i r i g i d a )< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )d :d o d e c a h e d r o n _ g r a p h( )$ ( %I 3 )v e r t e x _ d i s t a n c e( 0 ,7 ,d ) ; ( %O 3 )4 ( %I 4 )s h o r t e s t _ p a t h( 0 ,7 ,d ) ; ( %O 4 )[ 0 ,1 ,1 9 ,1 3 ,7 ]
F u n c i n :v e r t e x _ e c c e n t r i c i t y( < v > ,< g r > ) D e v u e l v el ae x c e n t r i c i d a dd el a< v >v r t i c ee ne lg r f i c o< g r > . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c y c l e _ g r a p h( 7 )$ ( %I 3 )v e r t e x _ e c c e n t r i c i t y( 0 ,g ) ; ( %O 3 )3
F u n c i n :v e r t e x _ i n _ d e g r e e( < v > ,< g r > ) D e v u e l v ee li n g r a d od el a< v >v r t i c ee ne l< g r >g r a f od i r i g i d o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p 5 :p a t h _ d i g r a p h( 5 )$ ( %I 3 )p r i n t _ g r a p h( p 5 )$ D g r a f oe n5v r t i c e sc o n4a r c o s . A d y a c e n c i a s : 4 : 3 :4 2 :3 1 :2 0 :1
490/633
28/08/13

( %I 4 )v e r t e x _ i n _ d e g r e e( 4 ,p 5 ) ; ( %O 4 )1 ( %I 5 )i n _ n e i g h b o r s( 4 ,P 5 ) ; ( %O 5 )[ 3 ]
F u n c i n :v e r t e x _ o u t _ d e g r e e( < v > ,< g r > ) D e v u e l v ee lg r a d od es a l i d ad e l< v >v r t i c ed e lg r a f od i r i g i d o < g r > . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )t :r a n d o m _ t o u r n a m e n t( 1 0 )$ ( %I 3 )v e r t e x _ o u t _ d e g r e e( 0 ,t ) ; ( %O 3 )2 ( %I 4 )o u t _ n e i g h b o r s( 0 ,t ) ; ( %O 4 )[ 7 ,1 ]
F u n c i n :v r t i c e s( < g r > ) D e v u e l v el al i s t ad ev r t i c e se ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )v r t i c e s( c o m p l e t e _ g r a p h( 4 ) ) ; ( %O 2 )[ 3 ,2 ,1 ,0 ]
F u n c i n :v e r t e x _ c o l o r i n g( < g r > ) D e v u e l v eu n ac o l o r a c i n p t i m ad el o sv r t i c e sd el a< g r >g r f i c o . L af u n c i nd e v u e l v ee ln m e r oc r o m t i c oyu n al i s t aq u er e p r e s e n t a l ac o l o r a c i nd el o sv r t i c e sd e< g r > . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p e t e r s e n _ g r a p h( )$ ( %I 3 )v e r t e x _ c o l o r i n g( p ) ; ( %O 3 )[ 3 ,[ [ 0 ,2 ] ,[ 1 ,3 ] ,[ 2 ,2 ] ,[ 3 ,3 ] ,[ 4 ,1 ] ,[ 5 ,3 ] , [ 6 ,1 ] ,[ 7 ,1 ] ,[ 8 ,2 ] ,[ 9 ,2 ] ] ]
F u n c i n :w i e n e r _ i n d e x( < g r > ) D e v u e l v ee l n d i c ed eW i e n e rd e l< g r >g r f i c o . E j e m p l o : ( %I 2 )w i e n e r _ i n d e x( d o d e c a h e d r o n _ g r a p h( ) ) ; ( %O 2 )5 0 0
F u n c i n :a d d _ e d g e( < e > ,< g r > ) A g r e g al a< e >b o r d ea l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )p :p a t h _ g r a p h( 4 )$ ( %I 3 )v e c i n o s( 0 ,p ) ; ( %O 3 )[ 1 ] ( %I 4 )a d d _ e d g e( [ 0 , 3 ] ,p ) ; ( %O 4 )h e c h o ( %I 5 )v e c i n o s( 0 ,p ) ; ( %O 5 )[ 3 ,1 ]
F u n c i n :a d d _ e d g e s( < e _ l i s t > ,< g r > ) A g r e g at o d o sl o sb o r d e sd el al i s t a< e _ l i s t >a l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :e m p t y _ g r a p h( 3 )$ ( %I 3 )a d d _ e d g e s( [ [ 0 , 1 ][ 1 , 2 ] ] ,g )$ ( %I 4 )p r i n t _ g r a p h( g )$ G r f i c oe n3v r t i c e sc o n2b o r d e s . A d y a c e n c i a s : 2 :1 1 :20 0 :1
F u n c i n :a d d _ v e r t e x( < v > ,< g r > )
491/633
28/08/13

A g r e g al a< v >v r t i c ea l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :p a t h _ g r a p h( 2 )$ ( %I 3 )a d d _ v e r t e x( 2 ,g )$ ( %I 4 )p r i n t _ g r a p h( g )$ G r f i c oe n3v r t i c e sc o n1a r i s t a s . A d y a c e n c i a s : 2 : 1 :0 0 :1
F u n c i n :a d d _ v e r t i c e s( < v _ l i s t > ,< g r > ) A g r e g at o d o sl o sv r t i c e sd el al i s t a< v _ l i s t >a l< g r >g r f i c o .
F u n c i n :c o n n e c t _ v e r t i c e s( < v _ l i s t > , ,< g r > ) C o n e c t at o d o sl o sv r t i c e sd el al i s t a< v _ l i s t >c o nl o sv r t i c e se n l al i s t ae ne l< g r >g r f i c o . < v _ l i s t >yp u e d e ns e rv r t i c e si n d i v i d u a l e sol i s t a sd ev r t i c e s . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :e m p t y _ g r a p h( 4 )$ ( %I 3 )c o n n e c t _ v e r t i c e s( 0 ,[ 1 , 2 , 3 ] ,g )$ ( %I 4 )p r i n t _ g r a p h( g )$ G r f i c oe n4v r t i c e sc o n3b o r d e s . A d y a c e n c i a s : 3 :0 2 :0 1 :0 0 :321
F u n c i n :c o n t r a c t _ e d g e( < e > ,< g r > ) L o sc o n t r a t o sd el o s< e >v e n t a j ae ne l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( 8 ,[ [ 0 , 3 ] ,[ 1 , 3 ] ,[ 2 , 3 ] ,[ 3 , 4 ] ,[ 4 , 5 ] ,[ 4 , 6 ] ,[ 4 , 7 ] ] )$ ( %I 3 )p r i n t _ g r a p h( g )$ G r f i c od e8v r t i c e sc o n7b o r d e s . A d y a c e n c i a s : 7 :4 6 :4 5 :4 4 :7653 3 :4210 2 :3 1 :3 0 :3 ( %I 4 )c o n t r a c t _ e d g e( [ 3 , 4 ] ,g )$ ( %I 5 )p r i n t _ g r a p h( g )$ G r f i c os o b r e7v r t i c e sc o n6b o r d e s . A d y a c e n c i a s : 7 :3 6 :3 5 :3 3567210 2 :3 1 :3 0 :3
F u n c i n :r e m o v e _ e d g e( < e > ,< g r > ) E l i m i n ae l< e >b o r d ed e l< g r >g r f i c o . E j e m p l o : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )c 3 :c y c l e _ g r a p h( 3 )$ ( %I 3 )r e m o v e _ e d g e( [ 0 , 1 ] ,c 3 )$ ( %I 4 )p r i n t _ g r a p h( c 3 )$ G r f i c oe n3v r t i c e sc o n2b o r d e s . A d y a c e n c i a s : 2 :01 1 :2 0 :2
F u n c i n :r e m o v e _ v e r t e x( < v > ,< g r > ) E l i m i n ae l< v >v r t i c ed e l< g r >g r f i c o .
492/633
28/08/13
F u n c i n :d i m a c s _ e x p o r t( < g r > ,< f l > ) F u n c i n :d i m a c s _ e x p o r t( < g r > ,< f l > ,< c o m m e n t 1 > ,. . . ,< c o m m e n t n > ) E x p o r t ae lg r f i c oe ne la r c h i v o< f l >e ne lf o r m a t oD I M A C S .O p c i o n a l c o m e n t a r i o ss ea a d i r nal ap a r t es u p e r i o rd e la r c h i v o .
F u n c i n :d i m a c s _ i m p o r t( < f l > ) D e v u e l v ee lg r a f od e< f l >a r c h i v oe ne lf o r m a t oD I M A C S .
F u n c i n :g r a p h 6 _ d e c o d e( < s t r > ) D e v u e l v ee lg r a f oc o d i f i c a d oe ne lf o r m a t og r a p h 6e ne l< s t r >c a d e n a .
F u n c i n :g r a p h 6 _ e n c o d e( < g r > ) D e v u e l v eu n ac a d e n aq u ec o d i f i c al a< g r >g r f i c oe ne lf o r m a t og r a p h 6 .
F u n c i n :g r a p h 6 _ e x p o r t( < g r _ l i s t > ,< f l > ) E x p o r t a c i nd eg r f i c o se nl al i s t a< g r _ l i s t >e ne la r c h i v o< f l >e ne l F o r m a t og r a p h 6 .
F u n c i n :g r a p h 6 _ i m p o r t( < f l > ) D e v u e l v eu n al i s t ad el o sg r f i c o sd e la r c h i v o< f l >e ne lf o r m a t og r a p h 6 .
F u n c i n :s p a r s e 6 _ d e c o d e( < s t r > ) D e v u e l v ee lg r a f oc o d i f i c a d oe ne lf o r m a t os p a r s e 6e nl ac a d e n a < s t r > .
F u n c i n :s p a r s e 6 _ e n c o d e( < g r > ) D e v u e l v eu n ac a d e n aq u ec o d i f i c al a< g r >g r f i c oe ne ls p a r s e 6 f o r m a t o .
F u n c i n :s p a r s e 6 _ e x p o r t( < g r _ l i s t > ,< f l > ) E x p o r t a c i nd eg r f i c o se nl al i s t a< g r _ l i s t >e ne la r c h i v o< f l >e ne l F o r m a t os p a r s e 6 .
F u n c i n :s p a r s e 6 _ i m p o r t( < f l > ) D e v u e l v eu n al i s t ad el o sg r f i c o sd e la r c h i v o< f l >e ne lf o r m a t os p a r s e 6 .
F u n c i n :d r a w _ g r a p h( < g r a p h > ) F u n c i n :d r a w _ g r a p h( < g r a p h > ,< o p t i o n 1 > ,. . . ,< o p t i o n k > ) D i b u j al ag r f i c au t i l i z a n d oe lp a q u e t e' d r a w ' . E la l g o r i t m ou t i l i z a d op a r av r t i c e sd ep o s i c i ns ee s p e c i f i c ap o re l a r g u m e n t oo p c i o n a l .E lv a l o rp r e d e t e r m i n a d oe s ` P r o g r a m a=s p r i n g _ e m b e d d i n g' .< d r a w _ g r a p h >T a m b i np u e d eu t i l i z a re lg r a p h v i z p r o g r a m a sd ev r t i c e sd ep o s i c i o n a m i e n t o ,p e r og r a p h v i zd e b e ni n s t a l a r s e p o rs e p a r a d o . E j e m p l o1 : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :g r i d _ g r a p h( 1 0 , 1 0 )$ ( %I 3 )m :m a x _ m a t c h i n g( g )$ ( %I 4 )d r a w _ g r a p h( g , s p r i n g _ e m b e d d i n g _ d e p t h=1 0 0 , s h o w _ e d g e s=m ,e d g e _ t y p e=p u n t o s , v e r t e x _ s i z e=0 )$ E j e m p l o2 :
493/633
28/08/13

( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( 1 6 , [ [ 0 , 1 ] ,[ 1 , 3 ] ,[ 2 , 3 ] ,[ 0 , 2 ] ,[ 3 , 4 ] ,[ 2 , 4 ] , [ 5 , 6 ] ,[ 6 , 4 ] ,[ 4 , 7 ] ,[ 6 , 7 ] ,[ 7 , 8 ] ,[ 7 , 1 0 ] ,[ 7 , 1 1 ] , [ 8 , 1 0 ] ,[ 1 1 , 1 0 ] ,[ 8 , 9 ] ,[ 1 1 , 1 2 ] ,[ 9 , 1 5 ] ,[ 1 2 , 1 3 ] , [ 1 0 , 1 4 ] ,[ 1 5 , 1 4 ] ,[ 1 3 , 1 4 ] ] )$ ( %I 3 )t :m i n i m u m _ s p a n n i n g _ t r e e( g )$ ( %I 4 )d r a w _ g r a p h( g , s h o w _ e d g e s=b o r d e s( t ) , s h o w _ e d g e _ w i d t h=4 , s h o w _ e d g e _ c o l o r=v e r d e , v e r t e x _ t y p e=f i l l e d _ s q u a r e , v e r t e x _ s i z e=2 )$ E j e m p l o3 : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :c r e a t e _ g r a p h( 1 6 , [ [ 0 , 1 ] ,[ 1 , 3 ] ,[ 2 , 3 ] ,[ 0 , 2 ] ,[ 3 , 4 ] ,[ 2 , 4 ] , [ 5 , 6 ] ,[ 6 , 4 ] ,[ 4 , 7 ] ,[ 6 , 7 ] ,[ 7 , 8 ] ,[ 7 , 1 0 ] ,[ 7 , 1 1 ] , [ 8 , 1 0 ] ,[ 1 1 , 1 0 ] ,[ 8 , 9 ] ,[ 1 1 , 1 2 ] ,[ 9 , 1 5 ] ,[ 1 2 , 1 3 ] , [ 1 0 , 1 4 ] ,[ 1 5 , 1 4 ] ,[ 1 3 , 1 4 ] ] )$ ( %I 3 )m i :m a x _ i n d e p e n d e n t _ s e t( g )$ ( %I 4 )d r a w _ g r a p h( g , s h o w _ v e r t i c e s=m i , s h o w _ v e r t e x _ t y p e=f i l l e d _ u p _ t r i a n g l e , s h o w _ v e r t e x _ s i z e=2 , e d g e _ c o l o r=c i a n , e d g e _ w i d t h=3 , s h o w _ i d=t r u e , t e x t _ c o l o r=m a r r n )$ E j e m p l o4 : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )n e t :c r e a t e _ g r a p h( [ 0 , 1 , 2 , 3 , 4 , 5 ] , [ [ [ 0 , 1 ] ,3 ] ,[ [ 0 , 2 ] ,2 ] , [ [ 1 , 3 ] ,1 ] ,[ [ 1 , 4 ] ,3 ] , [ [ 2 , 3 ] ,2 ] ,[ [ 2 , 4 ] ,2 ] , [ [ 4 , 5 ] ,2 ] ,[ [ 3 , 5 ] ,2 ] ] , d i r i g i d a=t r u e )$ ( %I 3 )d r a w _ g r a p h( n e t a , s h o w _ w e i g h t=t r u e , v e r t e x _ s i z e=0 , s h o w _ v e r t i c e s=[ 0 , 5 ] , s h o w _ v e r t e x _ t y p e=f i l l e d _ s q u a r e , h e a d _ l e n g t h=0 , 2 , h e a d _ a n g l e=1 0 , e d g e _ c o l o r=" v e r d eo s c u r o " , t e x t _ c o l o r=b l u e )$ E j e m p l o5 : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )g :p e t e r s e n _ g r a p h( 2 0 ,2 ) ; ( %O 2 )G R F I C O ( %I 3 )d r a w _ g r a p h( g ,r e d i b u j a r=t r u e ,e lp r o g r a m a=p l a n a r _ e m b e d d i n g ) ; ( %O 3 )d o n e E j e m p l o6 : ( %I 1 )l o a d( g r f i c o s )$ ( %I 2 )t :t u t t e _ g r a p h( ) ; ( %O 2 )G R F I C O ( %I 3 )d r a w _ g r a p h( t ,r e d i b u j a r=t r u e , f i x e d _ v e r t i c e s=[ 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 ] ) ; ( %O 3 )d o n e
V a r i a b l eo p c i o n a l :d r a w _ g r a p h _ p r o g r a m V a l o rp o rd e f e c t o :< s p r i n g _ e m b e d d i n g > E lv a l o rp o rd e f e c t op a r ae lp r o g r a m au s a d op a r ac o l o c a rv r t i c e se n P r o g r a m a` d r a w _ g r a p h' .
o p c i nd r a w _ g r a p h :s h o w _ i d V a l o rp o rd e f e c t o :< f a l s e >
494/633
28/08/13

S i< t r u e >c o n t i n u a c i ns em u e s t r a nl o si d e n t i f i c a d o r e sd el o sv r t i c e s .
o p c i nd r a w _ g r a p h :m o s t r a r _ e t i q u e t a V a l o rp o rd e f e c t o :< f a l s e > S is em u e s t r a nac o n t i n u a c i n< t r u e >e t i q u e t a sd el o sv r t i c e s .
o p c i nd r a w _ g r a p h :l a b e l _ a l i g n m e n t V a l o rp o rd e f e c t o :< c e n t e r > D e t e r m i n ac m oa l i n e a rl a se t i q u e t a s/i d e n t i f i c a d o r e sd el o sv r t i c e s .P u e d es e r ` I z q u i e r d o' , 'c e n t e r' o 'r i g h t' .
o p c i nd r a w _ g r a p h :s h o w _ w e i g h t V a l o rp o rd e f e c t o :< f a l s e > S i< t r u e >c o n t i n u a c i ns em u e s t r a nl o sp e s o sd el a sa r i s t a s .
o p c i nd r a w _ g r a p h :v e r t e x _ t y p e V a l o rp o rd e f e c t o :< c i r c l e > D e f i n ec m os em u e s t r a nl o sv r t i c e s .C o n s u l t el ao p c i np a r a e lp a q u e t e` d r a w' d ep o s i b l e sv a l o r e s .
o p c i nd r a w _ g r a p h :v e r t e x _ s i z e E lt a m a od el o sv r t i c e s .
o p c i nd r a w _ g r a p h :v e r t e x _ c o l o r E lc o l o ru t i l i z a d op a r al av i s u a l i z a c i nd ev r t i c e s .
o p c i nd r a w _ g r a p h :s h o w _ v e r t i c e s V a l o rp o rd e f e c t o :[ ] M o s t r a rv r t i c e ss e l e c c i o n a d o se ne lu s od eu nc o l o rd i f e r e n t e .
o p c i nd r a w _ g r a p h :s h o w _ v e r t e x _ t y p e D e f i n ec m os em u e s t r a nl o sv r t i c e se s p e c i f i c a d o se n< s h o w _ v e r t i c e s > . C o n s u l t el ao p c i np a r ae lp a q u e t e' d r a w 'p a r al ap o s i b l e v a l o r e s .
o p c i nd r a w _ g r a p h :s h o w _ v e r t e x _ s i z e E lt a m a od el o sv r t i c e se n< s h o w _ v e r t i c e s > .
o p c i nd r a w _ g r a p h :s h o w _ v e r t e x _ c o l o r E lc o l o ru t i l i z a d op a r al av i s u a l i z a c i nd ev r t i c e se nl al i s t a< s h o w _ v e r t i c e s > .
o p c i nd r a w _ g r a p h :v e r t e x _ p a r t i t i o n V a l o rp o rd e f e c t o :[ ] U n ap a r t i c i n` [ [ v 1 ,v 2 ,. . . ] ,. . . ,[ v k ,. . . ,v n ] ]' d el o sv r t i c e sd el a g r f i c o .L o sv r t i c e sd ec a d al i s t ae nl ap a r t i c i ns ee l a b o r a r ne n u nc o l o rd i f e r e n t e .
o p c i nd r a w _ g r a p h :v e r t e x _ c o l o r i n g
495/633
28/08/13

E s p e c i f i c al ac o l o r a c i nd el o sv r t i c e s .E lc o l o r a n t ed e b es e r< c o l > e s p e c i f i c a d oe ne lf o r m a t od e v u e l t op o r< v e r t e x _ c o l o r i n g > .
o p c i nd r a w _ g r a p h :e d g e _ c o l o r E lc o l o ru t i l i z a d op a r am o s t r a rl o sb o r d e s .
o p c i nd r a w _ g r a p h :e d g e _ w i d t h L aa n c h u r ad el o sb o r d e s .
o p c i nd r a w _ g r a p h :e d g e _ t y p e D e f i n ec m os em u e s t r a nl o sb o r d e s .V e rl ao p c i n< l i n e _ t y p e >p a r al a ` D i b u j a r' p a q u e t e .
o p c i nd r a w _ g r a p h :s h o w _ e d g e s M o s t r a rb o r d e se s p e c i f i c a d o se nl al i s t a< e _ l i s t >u s a n d ou n ad i f e r e n t e c o l o r .
o p c i nd r a w _ g r a p h :s h o w _ e d g e _ c o l o r E lc o l o ru t i l i z a d op a r al av i s u a l i z a c i nd el o sb o r d e se nl al i s t a< s h o w _ e d g e s > .
o p c i nd r a w _ g r a p h :s h o w _ e d g e _ w i d t h L aa n c h u r ad el o sb o r d e sd e< s h o w _ e d g e s > .
o p c i nd r a w _ g r a p h :s h o w _ e d g e _ t y p e D e f i n ec m os em u e s t r a nl o sb o r d e sd e< s h o w _ e d g e s > .C o n s u l t el a o p c i n< l i n e _ t y p e >p a r ae lp a q u e t e' d r a w ' .
o p c i nd r a w _ g r a p h :e d g e _ p a r t i t i o n U n ap a r t i c i n` [ [ e 1 ,e 2 ,. . . ] ,. . . ,[ e k ,. . . ,e m ] ]' d el o sb o r d e sd el ag r f i c a . L o sb o r d e sd ec a d al i s t ae nl ap a r t i c i ns ee l a b o r a r nu t i l i z a n d ou n c o l o rd i f e r e n t e .
o p c i nd r a w _ g r a p h :e d g e _ c o l o r i n g L ac o l o r a c i nd el o sb o r d e s .E lc o l o rs ed e b ee s p e c i f i c a re nl a f o r m a t oq u ee ld e v u e l t op o rl af u n c i n< e d g e _ c o l o r i n g > .
o p c i nd r a w _ g r a p h :r e d i b u j a r V a l o rp o rd e f e c t o :< f a l s e > S i` t r u e' ,p o s i c i o n e sd el o sv r t i c e ss er e c a l c u l a ni n c l u s os il a sp o s i c i o n e s s eh a ns a l v a d od eu nd i b u j op r e v i od el ag r f i c a .
o p c i nd r a w _ g r a p h :h e a d _ a n g l e V a l o rp o rd e f e c t o :1 5 E l n g u l od el a sf l e c h a sq u ea p a r e c e ne nl o sa r c o s( e ng r a f o sd i r i g i d o s ) .
o p c i nd r a w _ g r a p h :h e a d _ l e n g t h V a l o rp o rd e f e c t o :0 . 1 L al o n g i t u dd el a sf l e c h a sq u ea p a r e c e ne nl o sa r c o s( e ng r a f o sd i r i g i d o s ) .
o p c i nd r a w _ g r a p h :s p r i n g _ e m b e d d i n g _ d e p t h
496/633
28/08/13
V a l o rp o rd e f e c t o :5 0
E ln m e r od ei t e r a c i o n e se nl ai n c r u s t a c i nd ep r i m a v e r ad i b u j og r f i c o a l g o r i t m o .
o p c i nd r a w _ g r a p h :T e r m i n a l E lt e r m i n a lu t i l i z a d op a r ae ld i b u j o( v a s el ao p c i n< t e r m i n a l >e ne l ` S a c a r' e lp a q u e t e ) .
o p c i nd r a w _ g r a p h :n o m b r e _ a r c h i v o E ln o m b r ed ea r c h i v od e ld i b u j os ie lt e r m i n a ln oe sp a n t a l l a .
o p c i nd r a w _ g r a p h :p r o g r a m a D e f i n ee lp r o g r a m au t i l i z a d op a r al o sv r t i c e sd ep o s i c i o n a m i e n t od el ag r f i c a . P u e d es e ru n od el o sp r o g r a m a sg r a p h v i z( p u n t o ,n e a t o ,D o s P i ,c i r c ,f d p ) , < c i r c u l a r > ,< s p r i n g _ e m b e d d i n g >o . s l oe s t d i s p o n i b l ep a r ap l a n a r2c o n e c t a d o g r f i c a s .C u a n d oe lp r o g r a m a` =s p r i n g _ e m b e d d i n g' ,u nc o n j u n t od ev r t i c e sc o n p o s i c i nf i j ap u e d ee s p e c i f i c a r s ec o nl ao p c i n< f i x e d _ v e r t i c e s > .
o p c i nd r a w _ g r a p h :f i x e d _ v e r t i c e s E s p e c i f i c au n al i s t ad ev r t i c e sq u et i e n e np o s i c i o n e sf i j a sal ol a r g od e u np o l g o n or e g u l a r .S ep u e d eu t i l i z a rc u a n d oe lp r o g r a m a` =s p r i n g _ e m b e d d i n g' .
F u n c i n :v e r t i c e s _ t o _ p a t h( < v _ l i s t > ) C o n v i e r t eu n al i s t a< v _ l i s t >d ev r t i c e sau n al i s t ad el o sb o r d e sd el av a d e f i n i d op o r< v _ l i s t > .
F u n c i n :v e r t i c e s _ t o _ c y c l e( < v _ l i s t > ) C o n v i e r t eu n al i s t a< v _ l i s t >d ev r t i c e sau n al i s t ad eb o r d e sd el a c i c l od e f i n i d op o r< v _ l i s t > .
57 grobner
*I n t r o d u c c i nag r o b n e r: : *F u n c i o n e syv a r i a b l e sp a r ag r o b n e r: :
57.1 Introduccin a grobner

` G r o b n e r' e su np a q u e t ep a r at r a b a j a rc o nb a s e sd eG r o e b n e re nM a x i m a . U nt u t o r i a ls o b r e_ G r o e b n e rB a s e s _s ep u e d ee n c o n t r a re n ` H t t p : / / w w w . g e o c i t i e s . c o m / C a p e C a n a v e r a l / H a l l / 3 1 3 1 /' P a r au t i l i z a rl a ss i g u i e n t e sf u n c i o n e sd e b ec a r g a re lp a q u e t e` g r o b n e r . l i s p' . c a r g a( g r o b n e r ) ; U n ad e m o s t r a c i np u e d es e ri n i c i a d op o r d e m o( " g r o b n e r . d e m o " ) ; o p o rl o t e s( " g r o b n e r . d e m o " ) A l g u n o sd el o sc l c u l o se nl ad e m ot e n d r u nm o n t nd et i e m p op o rl ot a n t o , l as a l i d ad e` g r o b n e r d e m o . o u t p u t' d el ad e m o s t r a c i ns ep u e d ee n c o n t r a re ne lm i s m o d i r e c t o r i oq u ee la r c h i v od ed e m o s t r a c i n .
57.2 Funciones y variables para grobner

V a r i a b l eo p c i o n a l :p o l y _ m o n o m i a l _ o r d e r V a l o rp o rd e f e c t o :' l e x ' E s t o sc o n t r o l e sg l o b a l e si n t e r r u p t o rq u o r d e nm o n o m i os eu t i l i z ae n p o l i n m i c a syG r o e b n e rB a s e sc l c u l o s .S in os ee s t a b l e c e ,' l e x 's e
497/633
28/08/13
s e ru t i l i z a d o .
V a r i a b l eo p c i o n a l :p o l y _ c o e f f i c i e n t _ r i n g V a l o rp o rd e f e c t o :e x p r e s s i o n _ r i n g' E s t em o d i f i c a d o ri n d i c ae lc o e f i c i e n t ed ea n i l l od el o sp o l i n o m i o sq u e s eu t i l i z a r e nl o sc l c u l o sg r o b n e r .S in os ee s t a b l e c e ,_ m a x i m a ' s _ s eu t i l i z a r a n i l l od ee x p r e s i ng e n e r a l .E s t av a r i a b l es ep u e d ee s t a b l e c e re n ` R i n g _ o f _ i n t e g e r s' s il od e s e a .
V a r i a b l eo p c i o n a l :p o l y _ p r i m a r y _ e l i m i n a t i o n _ o r d e r V a l o rp o rd e f e c t o :f a l s e' N o m b r ed el ao r d e np o rd e f e c t op a r al a sv a r i a b l e se l i m i n a d a se n f u n c i o n e sd ee l i m i n a c i nb a s a d o s .S in os ee s t a b l e c e ,s eu t i l i z a r ' l e x ' .
V a r i a b l eo p c i o n a l :p o l y _ s e c o n d a r y _ e l i m i n a t i o n _ o r d e r V a l o rp o rd e f e c t o :f a l s e' N o m b r ed el ao r d e np o rd e f e c t op a r al a sv a r i a b l e sg u a r d a d o sd ee l i m i n a c i nb a s a d ae n f u n c i o n e s .S in os ee s t a b l e c e ,s eu t i l i z a r ' l e x ' .
V a r i a b l eo p c i o n a l :p o l y _ e l i m i n a t i o n _ o r d e r V a l o rp o rd e f e c t o :f a l s e' N o m b r ed el ao r d e nd ee l i m i n a c i np r e d e t e r m i n a d oq u es eu t i l i z ae nl ae l i m i n a c i n c l c u l o s .S is ee s t a b l e c e ,s ea n u l al ac o n f i g u r a c i nd el a sv a r i a b l e s ` P o l y _ p r i m a r y _ e l i m i n a t i o n _ o r d e r' y ` P o l y _ s e c o n d a r y _ e l i m i n a t i o n _ o r d e r' .E lu s u a r i od e b ea s e g u r a r s ed eq u e e s t ee su nv e r d a d e r oo r d e ne l i m i n a c i nv l i d op a r ae ln m e r od e l a sv a r i a b l e se l i m i n a d o .
V a r i a b l eo p c i o n a l :p o l y _ r e t u r n _ t e r m _ l i s t V a l o rp o rd e f e c t o :f a l s e' S is ee s t a b l e c ee n` t r u e' ,t o d a sl a sf u n c i o n e se ne s t ep a q u e t ev o l v e r nc a d a p o l i n o m i oc o m ou n al i s t ad et r m i n o se ne lo r d e nm o n o m i oa c t u a le nl u g a r q u eu n ae x p r e s i ng e n e r a l_ m a x i m a _ .
V a r i a b l eo p c i o n a l :p o l y _ g r o b n e r _ d e b u g V a l o rp o rd e f e c t o :f a l s e' S is ee s t a b l e c ee n` t r u e' ,p r o d u c e nd e p u r a c i nys e g u i m i e n t od es a l i d a .
V a r i a b l eo p c i o n a l :p o l y _ g r o b n e r _ a l g o r i t h m V a l o rp o rd e f e c t o :B u c h b e r g e r' V a l o r e sp o s i b l e s : *` B u c h b e r g e r' *` P a r a l l e l _ b u c h b e r g e r' *` G e b a u e r _ m o e l l e r' E ln o m b r ed e la l g o r i t m ou t i l i z a d op a r ad e t e r m i n a rl a sb a s e sd eG r o e b n e r .
V a r i a b l eo p c i o n a l :p o l y _ t o p _ r e d u c t i o n _ o n l y V a l o rp o rd e f e c t o :f a l s e' S in oe s` f a l s o' ,u t i l i c ee lc o m a n d ot o pr e d u c c i ns l oc u a n d os e ap o s i b l e .S u p e r i o r r e d u c c i ns i g n i f i c aq u ea l g o r i t m od el ad i v i s i ns ed e t i e n ed e s p u sd el ap r i m e r a r e d u c c i n .
F u n c i n :p o l y _ a d d( , ,< v a r l i s t > ) A a d ed o sp o l i n o m i o sy .
498/633
28/08/13

( %I 1 )p o l y _ a d d( z+x^2*y ,x z ,[ x ,y ,z ] ) ; 2 ( %O 1 )x y+x
F u n c i n :p o l y _ s u b t r a c t( , ,< v a r l i s t > ) R e s t au np o l i n o m i od e . ( %I 1 )p o l y _ s u b t r a c t( z+x^2*y ,x z ,[ x ,y ,z ] ) ; 2 ( %O 1 )z2+x y-x
F u n c i n :p o l y _ m u l t i p l y( , ,< v a r l i s t > ) D e v u e l v ee lp r o d u c t od el o sp o l i n o m i o sy . ( %I 2 )p o l y _ m u l t i p l y( z+x^2*y ,x z ,[ x ,y ,z ] )-( z+x^2*y )*( x z ) ,e x p a n d a ; ( %O 1 )0
F u n c i n :p o l y _ s _ p o l y n o m i a l( , ,< v a r l i s t > ) D e v u e l v ee l_ s y z y g yp o l y n o m i a l _( _ S p o l y n o m i a l _ )d ed o s p o l i n o m i o sy .
F u n c i n :p o l y _ p r i m i t i v e _ p a r t( ,< v a r l i s t > ) D e v u e l v ee lp o l i n o m i od i v i d i d op o re lM C Dd es u c o e f i c i e n t e s . ( %I 1 )p o l y _ p r i m i t i v e _ p a r t( 3 5*y2 1*x ,[ x ,y ] ) ; ( %O 1 )5y+3x
F u n c i n :p o l y _ n o r m a l i z e( ,< v a r l i s t > ) D e v u e l v ee lp o l i n o m i od i v i d i d op o re lc o e f i c i e n t ep r i n c i p a l . S es u p o n eq u el ad i v i s i ne sp o s i b l e ,l oq u en os i e m p r ep u e d es e r e lc a s oe ne lq u el o sa n i l l o sn os o nc a m p o s .
F u n c i n :p o l y _ e x p a n d( ,< v a r l i s t > ) E s t af u n c i na n a l i z al o sp o l i n o m i o saf o r m ai n t e r n ayl ae s p a l d a .E s e q u i v a l e n t ea` a m p l i a r( ) "s ia n a l i z ac o r r e c t a m e n t eau n p o l i n o m i o .S il ar e p r e s e n t a c i nn oe sc o m p a t i b l ec o nu n a p o l i n o m i oe nl a sv a r i a b l e s< v a r l i s t > ,e lr e s u l t a d oe su ne r r o r .S ep u e d e s e ru t i l i z a d op a r ap r o b a rs iu n ae x p r e s i ns ea n a l i z ac o r r e c t a m e n t eal a r e p r e s e n t a c i ni n t e r n a .L o ss i g u i e n t e se j e m p l o si l u s t r a nq u el o s s ep e r m i t e nv a r i a b l e sd el af u n c i ni n d e x a d a syt r a s c e n d e n t a l . ( %I 1 )p o l y _ e x p a n d( ( x ,y )*( y+x ) ,[ x ,y ] ) ; 22 ( %O 1 )x-y ( %I 2 )p o l y _ e x p a n d( ( y+x )^2 ,[ x ,y ] ) ; 22 ( %O 2 )y+2x y+x ( %I 3 )p o l y _ e x p a n d( ( y+x )^5 ,[ x ,y ] ) ; 54233245 ( %O 3 )y+x y+51 0+1 0x yx y+x y+5x ( %I 4 )p o l y _ e x p a n d( 1 x*e x p( y )+x^2 / s q r t( y ) ,[ x ] ) ; 2 y x ( %O 4 )-x %e+-1 s q r t( y ) ( %I 5 )p o l y _ e x p a n d( 1 s i n( x )^2+s e n( x ) ,[ s e n( x ) ] ) ; 2 ( %O 5 )-s i n( x )+s i n( x )-1
F u n c i n :p o l y _ e x p t( ,< n m e r o > ,< v a r l i s t > ) e x p o n e n t i t a t e s< n m e r o >p o ru nn m e r oe n t e r op o s i t i v o .S i< n m e r o > n oe su nn m e r oe n t e r op o s i t i v os ep r o d u c eu ne r r o r . ( %I 1 )p o l y _ e x p t( x y ,3 ,[ x ,y ] )-( x y )^3 ,e x p a n d a ; ( %O 1 )0
F u n c i n :p o l y _ c o n t e n t( < v a r l i s t > . )
499/633
28/08/13

` P o l y _ c o n t e n t' e x t r a ee lM C Dd el o sc o e f i c i e n t e s ( %I 1 )p o l y _ c o n t e n t( 3 5*y2 1*x ,[ x ,y ] ) ; ( %O 1 )7
F u n c i n :p o l y _ p s e u d o _ d i v i d e( , ,< v a r l i s t > ) P s e u d o d i v i d i ru np o l i n o m i op o rl al i s t ad enp o l i n o m i o s .D e v o l v e rv a r i o sv a l o r e s .E lp r i m e rv a l o re su n al i s t ad e c o c i e n t e sa .E ls e g u n d ov a l o re se lr e s t or .L at e r c e r a a r g u m e n t oe su nc o e f i c i e n t ee s c a l a rc ,t a lq u ec*p u e d es e rp o l i d i v i d i d op o rd e n t r od e la n i l l od ec o e f i c i e n t e s ,q u ee s n on e c e s a r i a m e n t eu nc a m p o .P o r l t i m o ,e lc u a r t ov a l o re su nn m e r oe n t e r o d ec o n t a re ln m e r od er e d u c c i o n e sr e a l i z a d a s .L o so b j e t o sr e s u l t a n t e s s a t i s f a c e rl ae c u a c i n : c*p o l y=s u m( a[ i ]*p o l y l i s t[ i ] ,i=1. . .n )+r .
F u n c i n :p o l y _ e x a c t _ d i v i d e( , ,< v a r l i s t > ) D i v i d eu np o l i n o m i op o ro t r op o l i n m i c a .A s u m e q u el ad i v i s i ne x a c t as i nr e s i d u oe sp o s i b l e .D e v u e l v ee l c o c i e n t e .
F u n c i n :p o l y _ n o r m a l _ f o r m( , ,< v a r l i s t > ) ` P o l y _ n o r m a l _ f o r m' e n c u e n t r al af o r m an o r m a ld eu np o l i n o m i o c o nr e s p e c t oau nc o n j u n t od ep o l i n o m i o s .
F u n c i n :p o l y _ b u c h b e r g e r _ c r i t e r i o n( ,< v a r l i s t > ) D e v u e l v e` t r u e' s ie su n ab a s ed eG r o e b n e rr e s p e c t od e e la c t u a lo r d e np l a z o ,u t i l i z a n d oe lc r i t e r i od eB u c h b e r g e r :p a r a c a d ad o sp o l i n o m i o sh 1yh 2e nl aS p o l i n o m i o S( h 1 ,h 2 )s er e d u c ea0m o d u l o .
F u n c i n :p o l y _ b u c h b e r g e r( < v a r l i s t > ) ` P o l y _ b u c h b e r g e r' r e a l i z ae la l g o r i t m od eB u c h b e r g e re nu n al i s t ad e p o l i n o m i o syd e v u e l v el ab a s ed eG r o e b n e rr e s u l t a n t e .
F u n c i n :p o l y _ r e d u c t i o n( ,< v a r l i s t > ) ` P o l y _ r e d u c t i o n "r e d u c el al i s t ad ep o l i n o m i o s ,p o rl oq u e c a d ap o l i n o m i oe s t c o m p l e t a m e n t er e d u c i d oc o nr e s p e c t oal ao t r a p o l i n o m i o s .
F u n c i n :p o l y _ m i n i m i z a t i o n( ,< v a r l i s t > ) D e v u e l v eu n al i s t as e c u n d a r i ad el al i s t ap o l i n o m i oq u ea b a r c ae l m i s m om o n o m i oi d e a lc o m op e r om n i m a ,e sd e c i r ,s i nl d e r m o n m i c od eu np o l i n o m i oe nl as u b l i s t ad i v i d ee ll d e r m o n o m i od eo t r op o l i n o m i o .
F u n c i n :p o l y _ n o r m a l i z e _ l i s t( ,< v a r l i s t > ) ` P o l y _ n o r m a l i z e _ l i s t' a p l i c a 'p o l y _ n o r m a l i z e "p a r ac a d ap o l i n o m i o e nl al i s t a .E s t os i g n i f i c aq u es ed i v i d ec a d ap o l i n o m i oe nu n al i s t a p o rs uc o e f i c i e n t ep r i n c i p a l .
F u n c i n :p o l y _ g r o b n e r( ,< v a r l i s t > ) D e v u e l v eu n ab a s ed eG r o e b n e rd e lt r a m oi d e a l e sp o rl o sp o l i n o m i o s .A f e c t a d o sp o rl o si n d i c a d o r e sg l o b a l e s .
F u n c i n :p o l y _ r e d u c e d _ g r o b n e r( ,< v a r l i s t > ) D e v u e l v eu n ab a s ed eG r o e b n e rr e d u c i d ad el ad u r a c i ni d e a ld el a p o l i n o m i o s .A f e c t a d o sp o rl o si n d i c a d o r e sg l o b a l e s .
500/633
28/08/13

F u n c i n :p o l y _ d e p e n d s _ p( ,< v a r > ,< v a r l i s t > ) " P r u e b a sd e `p o l y _ d e p e n d ss iu np o l i n o m i od e p e n d ed eu n av a r i a b l e < v a r > .
F u n c i n :p o l y _ e l i m i n a t i o n _ i d e a l( ,< n m e r o > ,< v a r l i s t > ) ` P o l y _ e l i m i n a t i o n _ i d e a l' d e v u e l v el ab a s ed el ag r o b n e r n m e r o s i m oe l i m i n a c i ni d e a ld eu ni d e a le s p e c i f i c a d oc o m ou n al i s t ad el o s p o l i n o m i o sg e n e r a d o r e s( n on e c e s a r i a m e n t eb a s ed eG r o e b n e r ) .
F u n c i n :p o l y _ c o l o n _ i d e a l( , ,< v a r l i s t > ) D e v u e l v el ab a s ed eG r o e b n e rr e d u c i d ad e li d e a ld ec o l o n I( p o l y l i s t 1 ) :I( p o l y l i s t 2 ) d o n d ep o l y l i s t 1yp o l y l i s t 2d o sl i s t a sd ep o l i n o m i o s .
F u n c i n :p o l y _ i d e a l _ i n t e r s e c t i o n( , ,< v a r l i s t > ) ` P o l y _ i d e a l _ i n t e r s e c t i o n' d e v u e l v el ai n t e r s e c c i nd ed o si d e a l e s .
F u n c i n :p o l y _ l c m( , ,< v a r l i s t > ) D e v u e l v ee lm n i m oc o m nm l t i p l od ey .
F u n c i n :p o l y _ g c d( , ,< v a r l i s t > ) D e v u e l v ee lm x i m oc o m nd i v i s o rd ey . C o n s u l t et a m b i n` e z g c d' , `m c d ' ,` f u n c i ng c d e x' y `g c d i v i d e ' . E j e m p l o : ( %I 1 )p 1 :6*x^31 9*x^2+ 1 9*x6 ; 32 ( %O 1 )+6x1 9x1 9+x+6 ( %I 2 )p 2 :6*x^51 3*x^41 2*x^31 3*x^26*x ; 5432 ( %O 2 )6x1 3+x+1 2x1 3+x+6x ( %I 3 )p o l y _ g c d( p 1 ,p 2 ,[ x ] ) ; 2 ( %O 3 )6x1 3+x+6
F u n c i n :p o l y _ g r o b n e r _ e q u a l( , ,< v a r l i s t > ) P r u e b a s` p o l y _ g r o b n e r _ e q u a l "s id o sb a s e sd eG r o e b n e rg e n e r a nl a m i s m oi d e a l .D e v u e l v e` t r u e' s id o sl i s t a sd ep o l i n o m i o s y ,s u p o n eq u el a sb a s e sd eG r o e b n e r , g e n e r a re lm i s m oi d e a l ,y` f a l s e' e nc a s oc o n t r a r i o .E s e q u i v a l e n t eal ac o m p r o b a c i nd eq u et o d op o l i n o m i od el ap r i m e r ab a s e s er e d u c ea0e ls e g u n d om d u l ob a s eyv i c e v e r s a .T e n g ae nc u e n t aq u ee n e le j e m p l oac o n t i n u a c i nl ap r i m e r al i s t an oe su n ab a s ed eG r o e b n e r ,yp o rl ot a n t o e lr e s u l t a d oe s' f a l s e ' . ( %I 1 )p o l y _ g r o b n e r _ e q u a l( [ y+x ,x y ] ,[ x ,y ] ,[ x ,y ] ) ; ( %O 1 )f a l s e
F u n c i n :p o l y _ g r o b n e r _ s u b s e t p( , ,< v a r l i s t > ) P r u e b a s` p o l y _ g r o b n e r _ s u b s e t p' s iu ni d e a lg e n e r a d op o r e s t c o n t e n i d ae ne li d e a lg e n e r a d op o r . P a r ae s t ap r u e b ap a r at e n e r x i t os i e m p r e ,d e b es e ru nG r o e b n e r b a s e .
F u n c i n :p o l y _ g r o b n e r _ m e m b e r( , ,< v a r l i s t > ) D e v u e l v e` t r u e' s iu np o l i n o m i op e r t e n e c ea li d e a l g e n e r a d ap o rl al i s t ap o l i n o m i o ,q u es es u p o n e s e ru n ab a s ed eG r o e b n e r .D e v u e l v e` f a l s e' e nc a s oc o n t r a r i o . P r u e b a s` p o l y _ g r o b n e r _ m e m b e r' s iu np o l i n o m i op e r t e n e c eau n a i d e a lg e n e r a d op o ru n al i s t ad ep o l i n o m i o s ,q u es es u p o n eq u ee su n B a s ed eG r o e b n e r .E q u i v a l e n t ea` s i e n d o0n o r m a l _ f o r m' .
501/633
28/08/13

F u n c i n :p o l y _ i d e a l _ s a t u r a t i o n 1( , ,< v a r l i s t > ) D e v u e l v el ab a s ed eG r o e b n e rr e d u c i d ad el as a t u r a c i nd e li d e a l I( p o l y l i s t ) :p o l iî n f G e o m t r i c a m e n t e ,s o b r eu nc a m p oa l g e b r a i c a m e n t ec e r r a d o ,e s t ee se lc o n j u n t o d ep o l i n o m i o se ne li d e a lg e n e r a d o sp o rq u en ol oh a c e n i d n t i c a m e n t ed e s a p a r e c e re nl av a r i e d a dd e .
F u n c i n :p o l y _ i d e a l _ s a t u r a t i o n( , ,< v a r l i s t > ) D e v u e l v el ab a s ed eG r o e b n e rr e d u c i d ad el as a t u r a c i nd e li d e a l I( p o l y l i s t 1 ) :I( p o l y l i s t 2 )î n f G e o m t r i c a m e n t e ,s o b r eu nc a m p oa l g e b r a i c a m e n t ec e r r a d o ,e s t ee se lc o n j u n t o d ep o l i n o m i o se ne li d e a lg e n e r a d op o rq u en ol oh a c e n i d n t i c a m e n t ed e s a p a r e c e re nl av a r i e d a dd e .
F u n c i n :p o l y _ i d e a l _ p o l y s a t u r a t i o n 1( , ,< v a r l i s t > ) e s t e nu n al i s t ad enp o l i n o m i o s` [ p o l y 1 ,. . . ,p o l y n ]' . D e v u e l v el ab a s ed eG r o e b n e rr e d u c i d ad e li d e a l I( p o l y l i s t ) :p o l y 1î n f :. . . :p o l y nî n f o b t e n i d op o ru n as e c u e n c i ad es a t u r a c i o n e ss u c e s i v a se nl o sp o l i n o m i o s d el al i s t ap o l i n o m i od e li d e a lg e n e r a d op o rl a L i s t ap o l i n m i c a .
F u n c i n :p o l y _ i d e a l _ p o l y s a t u r a t i o n( , ,< v a r l i s t > ) e su n al i s t ad enl i s t ad ep o l i n o m i o s ` [ P o l y l i s t 1 ,. . . ,p o l y l i s t n ]' .D e v u e l v el ab a s ed eG r o e b n e rr e d u c i d a d el as a t u r a c i nd e li d e a l I( p o l y l i s t ) :I( p o l y l i s t _ 1 )î n f :. . . :I( p o l y l i s t _ n )î n f
F u n c i n :p o l y _ s a t u r a t i o n _ e x t e n s i o n( , ,< v a r l i s t 1 > ,< v a r l i s t 2 > ) ` P o l y _ s a t u r a t i o n _ e x t e n s i o n' i m p l e m e n t ae lf a m o s ot r u c oR a b i n o w i t z .
F u n c i n :p o l y _ p o l y s a t u r a t i o n _ e x t e n s i o n( , ,< v a r l i s t 1 > ,< v a r l i s t 2 > )
58 impdiff
F u n c i o n e syv a r i a b l e sp a r ai m p d i f f
58.1 Funciones y variables para impdiff

F u n c i n :i m p l i c i t _ d e r i v a t i v e ( < f > , ,< o r d e r l i s t > ,< d e p v a r > ) E s t as u b r u t i n ac a l c u l al o sd e r i v a d o si m p l c i t o sd em u l t i v a r i a b l e f u n c i o n e s .< f >e su n af u n c i na r r a y ,l o s n d i c e ss o nl o s g r a d od e r i v a d oe ne lo r d e n ;e sl a l i s t ad ev a r i a b l e si n d e p e n d i e n t e s ;< o r d e r l i s t >e se lo r d e nq u es ed e s e e ,y < d e p v a r >e sl av a r i a b l ed e p e n d i e n t e . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " i m p d i f f " ) .
59 interpol
I n t r o d u c c i nal ai n t e r p o l F u n c i o n e syv a r i a b l e sp a r ai n t e r p o l
59.1 Introduccin a la interpol

P a q u e t e` i n t e r p o l' d e f i n el af u n c i nd eL a g r a n g e ,l al i n e a lyl ac b i c a
502/633
28/08/13

s p l i n e sm t o d o sp a r al ai n t e r p o l a c i np o l i n m i c a . P a r ac o m e n t a r i o s ,e r r o r e sos u g e r e n c i a s ,p o rf a v o rp n g a s ee nc o n t a c t oc o n m i g oa< ' m a r i oA T e d uX u n t aD O TD O Te s' > .
59.2 Funciones y variables para interpol

F u n c i n :l a g r a n g e( ) F u n c i n :l a g r a n g e( ,< o p t i o n > ) C a l c u l ae lp o l i n o m i od ei n t e r p o l a c i np o re lm t o d od eL a g r a n g e . A r g u m e n t od e b es e r : *U n am a t r i zd ed o sc o l u m n a s ,` p :m a t r i x( [ 2 , 4 ] ,[ 5 , 6 ] ,[ 9 , 3 ] )' , *U n al i s t ad ep a r e s ,` p :[ [ 2 , 4 ] ,[ 5 , 6 ] ,[ 9 , 3 ] ]' , *U n al i s t ad en m e r o s ,p` :[ 4 , 6 , 3 ]' ,e nc u y oc a s ol a sa b s c i s a s s el ea s i g n a r a u t o m t i c a m e n t ea1 ,2 ,3 ,e t c E nl o sd o sp r i m e r o sc a s o sl o sp a r e ss eo r d e n a nc o nr e s p e c t oal a p r i m e r ac o o r d i n a ra n t e sd el ar e a l i z a c i nd ec l c u l o s . C o ne la r g u m e n t o< o p t i o n >e sp o s i b l es e l e c c i o n a re ln o m b r ed e l av a r i a b l ei n d e p e n d i e n t e ,q u ee s` ' x 'p o rd e f e c t o ,p a r ad e f i n i r o t r o ,e s c r i b i ra l g oc o m o' v a r n a m e= 'z' . T e n g ae nc u e n t aq u ec u a n d os et r a b a j ac o np o l i n o m i o sd eg r a d oa l t o ,f l o t a n d o e v a l u a c i o n e sd ep u n t os o ni n e s t a b l e s . E j e m p l o s : ( %I 1 )l o a d( I n t e r p o l )$ ( %I 2 )p :[ [ 7 , 2 ] ,[ 8 , 2 ] ,[ 1 , 5 ] ,[ 3 , 2 ] ,[ 6 , 7 ] ]$ ( %I 3 )L a g r a n g e( p ) ; ( X-7 )( x-6 )( x-3 )( x-1 ) ( %O 3 )3 5 ( X-8 )( x-6 )( x-3 )( x-1 ) 1 2 7( x-8 )( x-7 )( x-3 )( x-1 ) +3 0 ( X-8 )( x-7 )( x-6 )( x-1 ) 6 0 ( X-8 )( x-7 )( x-6 )( x-3 ) +8 4 ( %I 4 )f( x ) := ' ' % ; ( X-7 )( x-6 )( x-3 )( x-1 ) ( %O 4 )f( x ) :=3 5 ( X-8 )( x-6 )( x-3 )( x-1 ) 1 2 7( x-8 )( x-7 )( x-3 )( x-1 ) +3 0 ( X-8 )( x-7 )( x-6 )( x-1 ) 6 0 ( X-8 )( x-7 )( x-6 )( x-3 ) +8 4 ( %I 5 )/*E v a l u a re lp o l i n o m i oe na l g u n o sp u n t o s*/ a m p l i a r( m a p( f ,[ 2 . 3 , 5/7 , %p i ] ) ) ; 432 9 1 90 6 27 3 %7 0 1 %p ip ip i8 . 9 5 7 % ( %O 5 )[ -1 , 5 6 7 5 3 5 ,,-+8 4 0 3 54 2 02 1 04 2 0 5 . 2 8 8 %p i1 8 6 -+] 1 0 55 ( %I 6 ) % ,n u m e r ; ( %O 6 )[ -1 , 5 6 7 5 3 5 ,1 0 . 9 3 6 6 5 7 3 4 5 1 5 3 8 ,2 . 8 9 3 1 9 6 5 5 1 2 5 6 9 2 ] ( %I 7 )l o a d( d r a w )$/*p a q u e t ed r a wc a r g a*/ ( %I 8 )/*P a r c e l ae lp o l i n o m i oj u n t oc o np u n t o s*/ d r a w 2 d( c o l o r=r e d , k e y=" p o l i n o m i od eL a g r a n g e " , e x p l c i t a( f( x ) ,x ,0 , 1 0 ) , p o i n t _ s i z e=3 , c o l o r=b l u e , c l a v e=" L o sp u n t o sd em u e s t r e o " , p u n t o s( p ) )$ ( %I 9 )/*C a m b i a re ln o m b r ed el av a r i a b l e*/ l a g r a n g e( p ,v a r n a m e=w ) ; ( W-7 )( w-6 )( w-3 )( w-1 ) ( %O 9 )3 5 ( W-8 )( w-6 )( w-3 )( w-1 ) 1 2
503/633
28/08/13

7( w-8 )( w-7 )( w-3 )( w-1 ) +3 0 ( W-8 )( w-7 )( w-6 )( w-1 ) 6 0 ( W-8 )( w-7 )( w-6 )( w-3 ) +8 4
F u n c i n :c h a r f u n 2( < x >< a > ) D e v u e l v e` t r u e' s ie ln m e r o< x >p e r t e n e c ea li n t e r v a l o[ a ,b ) ,y ` F a l s e' e nc a s oc o n t r a r i o .
F u n c i n :l i n e a r i n t e r p o l( ) F u n c i n :l i n e a r i n t e r p o l( ,< o p t i o n > ) C a l c u l ae lp o l i n o m i od ei n t e r p o l a c i np o re lm t o d ol i n e a l . A r g u m e n t od e b es e r : *U n am a t r i zd ed o sc o l u m n a s ,` p :m a t r i x( [ 2 , 4 ] ,[ 5 , 6 ] ,[ 9 , 3 ] )' , *U n al i s t ad ep a r e s ,` p :[ [ 2 , 4 ] ,[ 5 , 6 ] ,[ 9 , 3 ] ]' , *U n al i s t ad en m e r o s ,p` :[ 4 , 6 , 3 ]' ,e nc u y oc a s ol a sa b s c i s a s s el ea s i g n a r a u t o m t i c a m e n t ea1 ,2 ,3 ,e t c E nl o sd o sp r i m e r o sc a s o sl o sp a r e ss eo r d e n a nc o nr e s p e c t oal a p r i m e r ac o o r d i n a ra n t e sd el ar e a l i z a c i nd ec l c u l o s . C o ne la r g u m e n t o< o p t i o n >e sp o s i b l es e l e c c i o n a re ln o m b r ed e l av a r i a b l ei n d e p e n d i e n t e ,q u ee s` ' x 'p o rd e f e c t o ,p a r ad e f i n i r o t r o ,e s c r i b i ra l g oc o m o' v a r n a m e= 'z' . E j e m p l o s : ( %I 1 )l o a d( I n t e r p o l )$ ( %I 2 )p :m a t r i x( [ 7 , 2 ] ,[ 8 , 3 ] ,[ 1 , 5 ] ,[ 3 , 2 ] ,[ 6 , 7 ] )$ ( %I 3 )l i n e a r i n t e r p o l( p ) ; 1 3x3 ( %O 3 )( )c h a r f u n 2( x ,m i n f ,3 ) 22 +( X-5 )c h a r f u n 2( x ,7 ,i n f )+( 3 7-5x )c h a r f u n 2( x ,6 ,7 ) 5x +( -3 )c h a r f u n 2( x ,3 ,6 ) 3 ( %I 4 )f( x ) := ' ' % ; 1 3x3 ( %O 4 )f( x ) :=( )c h a r f u n 2( x ,m i n f ,3 ) 22 +( X-5 )c h a r f u n 2( x ,7 ,i n f )+( 3 7-5x )c h a r f u n 2( x ,6 ,7 ) 5x +( -3 )c h a r f u n 2( x ,3 ,6 ) 3 ( %I 5 )/*E v a l u a re lp o l i n o m i oe na l g u n o sp u n t o s*/ m a p a( f ,[ 7 . 3 , 2 5/7 , %p i ] ) ; 6 25 %p i ( %O 5 )[ 2 , 3 ,,-3 ] 2 13 ( %I 6 ) % ,n u m e r ; ( %O 6 )[ 2 , 3 ,2 . 9 5 2 3 8 0 9 5 2 3 8 0 9 5 3 ,2 . 2 3 5 9 8 7 7 5 5 9 8 2 9 8 9 ] ( %I 7 )l o a d( d r a w )$/*p a q u e t ed r a wc a r g a*/ ( %I 8 )/*P a r c e l ae lp o l i n o m i oj u n t oc o np u n t o s*/ d r a w 2 d( c o l o r=r e d , k e y=" i n t e r p o l a c i nl i n e a l " , e x p l c i t a( f( x ) ,x ,5 , 2 0 ) , p o i n t _ s i z e=3 , c o l o r=b l u e , c l a v e=" L o sp u n t o sd em u e s t r e o " , p u n t o s( a r g s( p ) ) )$ ( %I 9 )/*C a m b i a re ln o m b r ed el av a r i a b l e*/ l i n e a r i n t e r p o l( p ,v a r n a m e=' s ) ; 1 3s3 ( %O 9 )( )c h a r f u n 2( s ,m i n f ,3 ) 22 +( S-5 )c h a r f u n 2( s ,7 ,i n f )+( 3 7 5s )c h a r f u n 2( s ,6 ,7 ) 5s +( -3 )c h a r f u n 2( s ,3 ,6 ) 3
F u n c i n :C S P L I N E( ) F u n c i n :C S P L I N E( ,< o p t i o n 1 > ,< o p t i o n 2 > ,. . . ) C a l c u l ae lp o l i n o m i od ei n t e r p o l a c i np o re lm t o d od es p l i n e sc b i c o s . A r g u m e n t od e b es e r : *U n am a t r i zd ed o sc o l u m n a s ,` p :m a t r i x( [ 2 , 4 ] ,[ 5 , 6 ] ,[ 9 , 3 ] )' ,
504/633
28/08/13

*U n al i s t ad ep a r e s ,` p :[ [ 2 , 4 ] ,[ 5 , 6 ] ,[ 9 , 3 ] ]' , *U n al i s t ad en m e r o s ,p` :[ 4 , 6 , 3 ]' ,e nc u y oc a s ol a sa b s c i s a s s el ea s i g n a r a u t o m t i c a m e n t ea1 ,2 ,3 ,e t c E nl o sd o sp r i m e r o sc a s o sl o sp a r e ss eo r d e n a nc o nr e s p e c t oal a p r i m e r ac o o r d i n a ra n t e sd el ar e a l i z a c i nd ec l c u l o s . H a yt r e so p c i o n e sq u es ea d a p t a nal a sn e c e s i d a d e se s p e c f i c a s : *` ' D 1 ' , `d e f a u l t' d e s c o n o c i d o ' ,e sl ap r i m e r ad e r i v a d ae nx _ 1 ,s i e s` ' d e s c o n o c i d o ' ,l as e g u n d ad e r i v a d ae nx _ 1s eh a c ei g u a l a0( n a t u r a l e ss p l i n ec b i c a ) ,ys ie si g u a lau nn m e r o ,l a s e g u n d ad e r i v a d as ec a l c u l as o b r el ab a s ed ee s t en m e r o . *` ' D n ' ,' d e f a u l t 'd e s c o n o c i d o' ,e sl ap r i m e r ad e r i v a d ae nx _ n ,s i e s` ' d e s c o n o c i d o ' ,l as e g u n d ad e r i v a d ae nx _ ns eh a c ei g u a l a0( n a t u r a l e ss p l i n ec b i c a ) ,ys ie si g u a lau nn m e r o ,l a s e g u n d ad e r i v a d as ec a l c u l as o b r el ab a s ed ee s t en m e r o . *` ' V a r n a m e ' ,' d e f a u l t 'x' ,e se ln o m b r ed el ai n d e p e n d e n c i a v a r i a b l e . E j e m p l o s : ( %I 1 )l o a d( I n t e r p o l )$ ( %I 2 )p :[ [ 7 , 2 ] ,[ 8 , 2 ] ,[ 1 , 5 ] ,[ 3 , 2 ] ,[ 6 , 7 ] ]$ ( %I 3 )/*D e s c o n o c i d ap r i m e r a sd e r i v a d a se nl o se x t r e m o s e se q u i v a l e n t eas p l i n e sc b i c o sn a t u r a l e s*/ C S P L I N E( p ) ; 32 1 1 5 9x1 1 5 9x6 0 9 1x8 2 8 3 ( %O 3 )( -+)c h a r f u n 2( x ,m i n f ,3 ) 3 2 8 81 0 9 63 2 8 81 0 9 6 32 2 5 8 7x5 1 7 4x4 9 41 1 7x1 0 89 2 8 +( -+-+)C h a r f u n 2( x ,7 ,i n f ) 1 6 4 41 3 71 6 4 41 3 7 32 4 7 1 5x1 5 2 0 9x5 7 9 , 2 7 7x1 9 9 , 5 7 5 +( -+)C h a r f u n 2( x ,6 ,7 ) 1 6 4 42 7 41 6 4 42 7 4 32 3 2 8 7x2 2 2 3x4 8 2 7 5x9 6 0 9 +( -+-+)C h a r f u n 2( x ,3 ,6 ) 4 9 3 22 7 41 6 4 42 7 4 ( %I 4 )f( x ) := ' ' %$ ( %I 5 )/*A l g u n a se v a l u a c i o n e s*/ m a p a( f ,[ 2 . 3 , 5/7 , %p i ] ) ,n u m e r ; ( %O 5 )[ 1 . 9 9 1 4 6 0 7 6 6 4 2 3 3 5 6 ,5 . 8 2 3 2 0 0 1 8 7 2 6 9 9 0 3 ,2 . 2 2 7 4 0 5 3 1 2 4 2 9 5 0 7 ] ( %I 6 )l o a d( d r a w )$/*p a q u e t ed r a wc a r g a*/ ( %I 7 )/*T r a z a d of u n c i nd ei n t e r p o l a c i n*/ d r a w 2 d( c o l o r=r e d , c l a v e=" s p l i n e sc b i c o s " , e x p l c i t a( f( x ) ,x ,0 , 1 0 ) , p o i n t _ s i z e=3 , c o l o r=b l u e , c l a v e=" L o sp u n t o sd em u e s t r e o " , p u n t o s( p ) )$ ( %I 8 )/*L l a m a d an u e v a ,p e r od a n d ov a l o r e sal o sd e r i v a d o s*/ C S P L I N E( p ,d 1=0 ,D N=0 ) ; 32 1 9 4 9x1 1 4 3 7x1 7 0 2 7x1 2 4 7 ( %O 8 )( -+-+)c h a r f u n 2( x ,m i n f ,3 ) 2 2 5 62 2 5 62 2 5 67 5 2 32 1 5 4 7x3 5 5 8 1x6 8 0 6 8x1 7 3 5 4 6 +( -+-+)C h a r f u n 2( x ,7 ,i n f ) 5 6 45 6 41 4 11 4 1 32 6 0 7x3 5 1 4 7x5 5 7 0 6x3 8 4 2 0 +( -+)C h a r f u n 2( x ,6 ,7 ) 1 8 85 6 41 4 14 7 32 3 8 9 5x1 8 0 7x5 1 4 6x2 1 4 8 +( -+-+)C h a r f u n 2( x ,3 ,6 ) 5 0 7 61 8 81 4 14 7 ( %I 8 )/*D e f i n i rn u e v af u n c i nd ei n t e r p o l a c i n*/ g( x ) := ' ' %$ ( %I 9 )/*T r a z a d oa m b a sf u n c i o n e sj u n t a s*/ d r a w 2 d( c o l o r=n e g r o , c l a v e=" s p l i n e sc b i c o s( d e f a u l t ) " , e x p l c i t a( f( x ) ,x ,0 , 1 0 ) , c o l o r=r e d , c l a v e=" s p l i n e sc b i c o s( d 1=0 ,d n=0 ) " , e x p l c i t a( g( x ) ,x ,0 , 1 0 ) , p o i n t _ s i z e=3 , c o l o r=b l u e , c l a v e=" L o sp u n t o sd em u e s t r e o " , p u n t o s( p ) )$
F u n c i n :r a t i n t e r p o l( ,< n u m d e g > ) F u n c i n :r a t i n t e r p o l( ,< n u m d e g > ,< o p t i o n 1 > ,< o p t i o n 2 > ,. . . )
505/633
28/08/13

G e n e r au ni n t e r p o l a d o rr a c i o n a ld el o sd a t o sd a d o sp o ry e lg r a d od e ln u m e r a d o re si g u a la< n u m d e g > ;e lg r a d od e e ld e n o m i n a d o rs ec a l c u l aa u t o m t i c a m e n t e .A r g u m e n t o d e b es e r : *U n am a t r i zd ed o sc o l u m n a s ,` p :m a t r i x( [ 2 , 4 ] ,[ 5 , 6 ] ,[ 9 , 3 ] )' , *U n al i s t ad ep a r e s ,` p :[ [ 2 , 4 ] ,[ 5 , 6 ] ,[ 9 , 3 ] ]' , *U n al i s t ad en m e r o s ,p` :[ 4 , 6 , 3 ]' ,e nc u y oc a s ol a sa b s c i s a s s el ea s i g n a r a u t o m t i c a m e n t ea1 ,2 ,3 ,e t c E nl o sd o sp r i m e r o sc a s o sl o sp a r e ss eo r d e n a nc o nr e s p e c t oal a p r i m e r ac o o r d i n a ra n t e sd el ar e a l i z a c i nd ec l c u l o s . H a yd o so p c i o n e sq u es ea d a p t a nal a sn e c e s i d a d e se s p e c f i c a s : *` ' D e n t e r m ' ,d e f a u l t `1' ,e se lt r m i n oi n d e p e n d i e n t ed el a p o l i n o m i oe ne ld e n o m i n a d o r . *` ' V a r n a m e ' ,' d e f a u l t 'x' ,e se ln o m b r ed el ai n d e p e n d e n c i a v a r i a b l e . E j e m p l o s : ( %I 1 )l o a d( I n t e r p o l )$ ( %I 2 )l o a d( d r a w )$ ( %I 3 )p :[ [ 7 . 2 , 2 . 5 ] ,[ 8 . 5 , 2 . 1 ] ,[ 1 . 6 , 5 . 1 ] ,[ 3 . 4 , 2 . 4 ] ,[ 6 . 7 , 7 . 9 ] ]$ ( %I 4 )p a r ak :0al e n g t h( p )1h a c e r d r a w 2 d( e x p l c i t a( r a t i n t e r p o l( p ,k ) ,x ,0 , 9 ) , p o i n t _ s i z e=3 , p u n t o s( p ) , t i t l e=c o n c a t( " g r a d od en u m e r a d o r= " ,k ) , y r a n g e=[ 0 , 1 0 ] )$
60 lapack
I n t r o d u c c i naL A P A C K F u n c i o n e syv a r i a b l e sp a r al a p a c k
60.1 Introduccin a lapack

` L a p a c k' e su n at r a d u c c i nC o m m o nL i s p( at r a v sd e lp r o g r a m a `f 2 c ' )d el a F o r t r a nb i b l i o t e c aL A P A C K ,o b t e n i d aap a r t i rd e lp r o y e c t oS L A T E C .
60.2 Funciones y variables para lapack

F u n c i n :d g e e v( < A > ) F u n c i n :d g e e v( < A > ,< r i g h t _ p > ,< l e f t _ p > ) C a l c u l al o sv a l o r e sp r o p i o sy ,o p c i o n a l m e n t e ,l o sv e c t o r e sp r o p i o sd eu n a m a t r i z< A > .T o d o sl o se l e m e n t o sd e< A >d e b e ns e re n t e r oop u n t of l o t a n t e n m e r o s .< A >D e b es e rc u a d r a d a( i g u a ln m e r od ef i l a syc o l u m n a s ) . < A >P u e d eon op u e d es e rs i m t r i c a . ` D g e e v( < A > )' c o m p u t as l ol o sv a l o r e sp r o p i o sd e< A > .` D g e e v( < A > , < r i g h t _ p > ,< l e f t _ p > )' c a l c u l al o sv a l o r e sp r o p i o sd e< A >yl o s a u t o v e c t o r e sp o rl ad e r e c h ac u a n d o< r i g h t _ p >=' t r u e 'yl ai z q u i e r d a v e c t o r e sp r o p i o sc u a n d o< l e f t _ p >=' t r u e ' . S ed e v u e l v eu n al i s t ad et r e se l e m e n t o s .E lp r i m e re l e m e n t oe su n al i s t ad e l o sv a l o r e sp r o p i o s .E ls e g u n d oe l e m e n t oe s' f a l s e 'ol am a t r i zd e a u t o v e c t o r e sd e r e c h o s .E lt e r c e rp u n t oe s' f a l s e 'ol am a t r i zd e e i g e n v e c t o r e si z q u i e r d o s . L av( j )( l aj s i m ac o l u m n av e c t o rp r o p i od e r e c h od el ad e r e c h a m a t r i zd ea u t o v e c t o r e s )s a t i s f a c e U n a .v( j )=l a m b d a( j ) .v( j ) d o n d el a m b d a( j )e se lv a l o rp r o p i oc o r r e s p o n d i e n t e .L ai z q u i e r d a uv e c t o rp r o p i o( j )( l aj s i m ac o l u m n ad el am a t r i zd ea u t o v e c t o r e si z q u i e r d a ) s a t i s f a c e u( j )* *H .U nl a m b d a=( j ) .u( j )* *H d o n d eu( j )* *Hd e n o t al at r a n s p u e s t ac o n j u g a d ad eu( j ) .E lM a x i m a f u n c i n` c t r a n s p o s e' c a l c u l al at r a n s p u e s t ac o n j u g a d a . L o sv e c t o r e sp r o p i o sc a l c u l a d o se s t nn o r m a l i z a d o sat e n e rn o r m ae u c l i d i a n a i g u a la1 ,ye lc o m p o n e n t em sg r a n d et i e n ep a r t ei m a g i n a r i ai g u a lac e r o . E j e m p l o : ( %I 1 )l o a d( l a p a c k )$ ( %I 2 )f p p r i n t p r e c :6 ; ( %O 2 )6 ( %I 3 )M :m a t r i z( [ 9 . 5 ,1 . 7 5 ] ,[ 3 . 2 5 ,1 0 . 4 5 ] ) ;
506/633
28/08/13
( %O 3 )[ ]

[ 9 , 51 , 7 5 ] [ 3 . 2 51 0 . 4 5 ] ( %I 4 )d g e e v( M ) ; ( %O 4 )[ [ 7 . 5 4 3 3 1 ,1 2 . 4 0 6 7 ] ,f a l s e ,f a l s e ] ( %I 5 )[ L ,v ,u ] :d g e e v( M ,t r u e ,t r u e ) ; [ -0 , 6 6 6 6 4 2 , 5 1 5 7 9 2 ] ( %O 5 )[ [ 7 . 5 4 3 3 1 ,1 2 . 4 0 6 7 ] ,[ ] , [ 0 , 7 4 5 3 7 8 , 8 5 6 7 1 4 ] [ -, 8 5 6 7 1 4 0 , 7 4 5 3 7 8 ] [ ] ] [ , 5 1 5 7 9 2 0 , 6 6 6 6 4 2 ] ( %I 6 )D :E n v i a rc u r r c u l u m( d i a g _ m a t r i x ,L ) ; [ 7 , 5 4 3 3 10 ] ( %O 6 )[ ] [ 01 2 . 4 0 6 7 ] ( %I 7 )M .v-v .D ; [ 0 , 0-8 . 8 8 1 7 8 E 1 6 ] ( %O 7 )[ ] [ -8 . 8 8 1 7 8 E 1 60 , 0 ] ( %I 8 )t r a n s p o s i c i n( u ) .M-D .a d a p t a c i n( u ) ; [ 0 , 0-4 . 4 4 0 8 9 E 1 6 ] ( %O 8 )[ ] [ 0 , 00 , 0 ]
F u n c i n :d g e q r f( < A > ) C a l c u l al ad e s c o m p o s i c i nQ Rd el am a t r i zd e< A > .T o d o sl o se l e m e n t o sd e < A >D e b e ns e rn m e r o se n t e r o sod ep u n t of l o t a n t e .< A >P u e d eon o t e n e re lm i s m on m e r od ef i l a syc o l u m n a s . S ed e v u e l v eu n al i s t ad ed o se l e m e n t o s .E lp r i m e re l e m e n t oe sl am a t r i z < Q > ,Q u ee su n am a t r i zo r t o n o r m a lc u a d r a d aq u et i e n ee lm i s m o n m e r od ef i l a sc o m o< A > .E ls e g u n d oe l e m e n t oe sl a< R >m a t r i z ,q u e e sd e lm i s m ot a m a oq u e< A > ,yq u et i e n et o d o sl o se l e m e n t o si g u a l e sac e r o d e b a j od el ad i a g o n a l .E l` < Q >p r o d u c t o .< R >" ,D o n d e "" .e se l o p e r a d o rd em u l t i p l i c a c i nn oc o n m u t a t i v a ,e si g u a la< A >( i g n o r a n d o p u n t u a l e se r r o r e sd er e d o n d e of l o t a n t e s ) . ( %I 1 )l o a d( l a p a c k )$ ( %I 2 )f p p r i n t p r e c :6$ ( %I 3 )M :m a t r i z( [ 1 ,3 , 2 ,8 ] ,[ 1 1 ,2 . 7 ,5 . 9 ] )$ ( %I 4 )[ q ,r ] :d g e q r f( M ) ; [ -. 0 9 0 5 3 5 70 . 9 9 5 8 9 3 ] ( %O 4 )[ [ ] , [ 0 , 9 9 5 8 9 30 , 0 9 0 5 3 5 7 ] [ -1 1 , 0 4 5 42 , 9 7 8 6 35 , 1 5 1 4 8 ] [ ] ] [ 0a2 , 9 4 2 4 18 , 5 0 1 3 1 ] ( %I 5 )q .r-M ; [ -7 . 7 7 1 5 6 E 1 61 . 7 7 6 3 6 E 1 5-8 . 8 8 1 7 8 E 1 6 ] ( %O 5 )[ ] [ 0 , 0-1 . 3 3 2 2 7 E 1 58 . 8 8 1 7 8 E 1 6 ] ( %I 6 )m a t _ n o r m( % ,1 ) ; ( %O 6 )3 . 1 0 8 6 2 E 1 5
F u n c i n :d g e s v( < A > , ) C a l c u l ae l< x >s o l u c i nd el ae c u a c i nl i n e a l< A >< x >= , d o n d e< A >e su n am a t r i zc u a d r a d a ,ye su n am a t r i zd el am i s m a n m e r od ef i l a sc o m o< A >yc u a l q u i e rn m e r od ec o l u m n a s .E lv a l o rd er e t o r n o < x >e sd e lm i s m ot a m a oq u e . L o se l e m e n t o sd e< A >yd e b e ne v a l u a r s ec o m or e a le nc o m af l o t a n t e at r a v sd en m e r o sd e` f l o t a d o r' ,p o rl oq u el o se l e m e n t o sp u e d e ns e rd ec u a l q u i e rt i p on u m r i c o , c o n s t a n t e sn u m r i c a ss i m b l i c a s ,oe x p r e s i o n e sq u es ee v a l a nc o m o f l o t a d o r e s .L o se l e m e n t o sd e< x >s i e m p r es o nn m e r o sd ep u n t of l o t a n t e . T o d al aa r i t m t i c as el l e v aac a b oc o m oo p e r a c i o n e sd ep u n t of l o t a n t e . ` D g e s v' c a l c u l al as o l u c i nat r a v sd el ad e s c o m p o s i c i nL Ud e< A > . E j e m p l o s : ` D g e s v' c a l c u l al as o l u c i nd el ae c u a c i nl i n e a l< A >< x >= . ( %I 1 )A :m a t r i z( [ 1 ,2 , 5 ] ,[ 0 . 3 7 5 ,5 ] ) ; [ 1 2 , 5 ] ( %O 1 )[ ] [ 0 , 3 7 55 ] ( %I 2 )b :l am a t r i z( [ 1 . 7 5 ] ,[ 0 , 6 2 5 ] ) ; [ 1 . 7 5 ] ( %O 2 )[ ] [ -0 . 6 2 5 ] ( %I 3 )x :d g e s v( A ,b ) ; [ 1 . 2 1 0 5 2 6 3 1 5 7 8 9 4 7 4 ] ( %O 3 )[ ] [ -0 , 2 1 5 7 8 9 4 7 3 6 8 4 2 1 1 ] ( %I 4 )d l a n g e( i n f _ n o r m ,b-A x ) ; ( %O 4 )0 , 0 e su n am a t r i zc o ne lm i s m on m e r od ef i l a sc o m o< A >yc u a l q u i e rn m e r o d ec o l u m n a s .< x >e sd e lm i s m ot a m a oq u e .
507/633
28/08/13

( %I 1 )A :m a t r i z( [ 1 ,0 , 1 5 ] ,[ 1 . 8 2 ,2 ] ) ; [ 1 0 , 1 5 ] ( %O 1 )[ ] [ 1 , 8 22 ] ( %I 2 )b :m a t r i z( [ 3 , 7 ,1 ,8 ] ,[ 2 , 3 ,5 ,3 , 9 ] ) ; [ 3 , 718 ] ( %O 2 )[ ] [ -2 , 35 3 , 9 ] ( %I 3 )x :d g e s v( A ,b ) ; [ 3 . 1 0 3 8 2 7 5 4 0 6 9 5 1 1 71 . 2 0 9 8 5 4 8 1 7 4 2 1 9 16 . 7 8 1 7 8 6 1 8 5 6 5 7 7 2 2 ] ( %O 3 )[ ] [ 3 . 9 7 4 4 8 3 0 6 2 0 3 2 5 5 71 . 3 9 9 0 3 2 1 1 6 1 4 6 0 6 28 . 1 2 1 4 2 5 4 2 8 9 4 8 5 2 7 ] ( %I 4 )d l a n g e( i n f _ n o r m ,b-Ax . ) ; ( %O 4 )1 . 1 1 0 2 2 3 0 2 4 6 2 5 1 5 6 5 E 1 5 L o se l e m e n t o sd e< A >yd e b e ne v a l u a r s ec o m or e a le nc o m af l o t a n t e n m e r o s . ( %I 1 )A :m a t r i z( [ 5 ,%p i ] ,[ 1 B 0 ,1 1 / 1 7 ] ) ; [ 5%p i ] [ ] ( %O 1 )[ 1 1 ] [ 1 . 0 B 0] [ 1 7 ] ( %I 2 )b :l am a t r i z( [ %s ] ,[ s i n( 1 ) ] ) ; [ %S ] ( %O 2 )[ ] [ S i n( 1 ) ] ( %I 3 )x :d g e s v( A ,b ) ; [ 0 . 6 9 0 3 7 5 6 4 3 1 5 5 9 8 6 ] ( %O 3 )[ ] [ 0 . 2 3 3 5 1 0 9 8 2 5 5 2 9 5 2 ] ( %I 4 )d l a n g e( i n f _ n o r m ,b-Ax . ) ; ( %O 4 )2 . 2 2 0 4 4 6 0 4 9 2 5 0 3 1 3 E 1 6
F u n c i n :d g e s v d( < A > ) F u n c i n :d g e s v d( < A > ,< l e f t _ p > ,< r i g h t _ p > ) C a l c u l al ad e s c o m p o s i c i nd ev a l o rs i n g u l a r( S V D )d eu n am a t r i z< A > , q u ec o m p r e n d el o sv a l o r e ss i n g u l a r e sy ,o p c i o n a l m e n t e ,l ai z q u i e r d ayl ad e r e c h a v e c t o r e ss i n g u l a r e s .T o d o sl o se l e m e n t o sd e< A >d e b e ns e re n t e r o sof l o t a n t e s n m e r o sd ep u n t o .< A >P o d r aon op o d r as e rc u a d r a d a( i g u a ln m e r od e f i l a syc o l u m n a s ) . S e ame ln m e r od ef i l a syne ln m e r od ec o l u m n a sd e< A > . L ad e s c o m p o s i c i ne nv a l o r e ss i n g u l a r e sd e< A >c o m p r e n d et r e sm a t r i c e s , ,< S i g m a >Y< V ^ T > ,d em a n e r aq u e < A >= .< S i g m a > .< V >^T d o n d ee su n am a t r i zu n i t a r i am p o r m ,< S i g m a >e su n am p o r n m a t r i zd i a g o n a l ,y< V ^ T >e su n am a t r i zu n i t a r i ad en p o r n . V a m o ss i g m a[ i ]s e ru ne l e m e n t od el ad i a g o n a ld eS i g m a ,e sd e c i r ,< S i g m a >[ i , i ]=< s i g m a >[ i ] .L o se l e m e n t o ss i g m a[ i ]s o n l al l a m a d as i n g u l a r v a l o r e sd e< A > ;e s t o ss o nr e a l e syn on e g a t i v o s ,yr e g r e s a r o ne n o r d e nd e s c e n d e n t e .L o sp r i m e r o sm i n( m ,n )c o l u m n a sd ey< V >s o n l o sv e c t o r e ss i n g u l a r e si z q u i e r d oyd e r e c h od e< A > .T e n g ae nc u e n t aq u e` d g e s v d' d e v u e l v el at r a n s p u e s t ad e< V > ,n o< V >s . ` D g e s v d( < A > )' c a l c u l as l ol o sv a l o r e ss i n g u l a r e sd e< A > . ` D g e s v d( < A > ,< l e f t _ p > ,< r i g h t _ p > )' c a l c u l al o sv a l o r e ss i n g u l a r e sd e < A >Yl o sv e c t o r e ss i n g u l a r e si z q u i e r d oc u a n d o< l e f t _ p >=' t r u e 'ye l v e c t o r e ss i n g u l a r e sp o rl ad e r e c h ac u a n d o< r i g h t _ p >=' t r u e ' . S ed e v u e l v eu n al i s t ad et r e se l e m e n t o s .E lp r i m e re l e m e n t oe su n al i s t ad e l o sv a l o r e ss i n g u l a r e s .E ls e g u n d oe l e m e n t oe s' f a l s e 'ol am a t r i zd e i z q u i e r d av e c t o r e ss i n g u l a r e s .E lt e r c e rp u n t oe s' f a l s e 'ol am a t r i zd e v e c t o r e ss i n g u l a r e si z q u i e r d oyd e r e c h o . E j e m p l o : ( %I 1 )l o a d( l a p a c k )$ ( %I 2 )f p p r i n t p r e c :6 ; ( %O 2 )6 ( %I 3 )M :m a t r i z( [ 1 ,2 ,3 ] ,[ 3 , 5 ,0 , 5 ,8 ] ,[ 1 ,2 ,3 ] ,[ 4 ,9 ,7 ] ) ; [ 123 ] [ ] [ 3 . 50 . 58 ] ( %O 3 )[ ] [ -12-3 ] [ ] [ 497 ] ( %I 4 )d g e s v d( M ) ; ( %O 4 )[ [ 1 4 . 4 7 4 4 ,6 , 3 8 6 3 7 ,0 , 4 5 2 5 4 7 ] ,f a l s e ,f a l s e ] ( %I 5 )[ s i g m a ,U ,V T ] :d g e s v d( M ,t r u e ,t r u e ) ; ( %O 5 )[ [ 1 4 . 4 7 4 4 ,6 , 3 8 6 3 7 ,0 , 4 5 2 5 4 7 ] , [ -0 , 0 0 8 1 6 1 6 80 , 2 5 6 7 3 10 , 9 5 9 0 2 9 0 , 1 1 9 5 2 3 ] [ ] [ -0 . 5 2 6 4 5 6. 6 7 2 1 1 6-, 2 0 6 2 3 6 , 4 7 8 0 9 1 ] [ ] , [ 0 , 1 0 7 9 9 7a0 , 5 3 2 2 7 8-0 , 0 7 0 8 3 1 5a0 , 8 3 6 6 6 ] [ ] [ -. 8 0 3 2 8 7-0 , 5 1 4 6 5 9a0 , 1 8 0 8 6 70 , 2 3 9 0 4 6 ]
508/633
28/08/13

[ -. 3 7 4 4 8 6-0 , 5 3 8 2 0 9 0 , 7 5 5 0 4 4 ] [ ] [ , 1 3 0 6 2 3 0 , 8 3 6 7 9 90 . 5 3 1 7 ] ] [ ] [ -0 , 9 1 7 9 8 60 , 1 0 0 4 8 80 , 3 8 3 6 7 2 ] ( %I 6 )m :l o n g i t u d( U ) ; ( %O 6 )4 ( %I 7 )n :l o n g i t u d( V T ) ; ( %O 7 )3 ( %I 8 )S i g m a : g e n m a t r i x( l a m b d a( [ i ,j ] ,s ii=je n t o n c e ss i g m a[ i ]e l s e0 ) m ,n ) ; [ 1 4 , 4 7 4 400 ] [ ] [ 06 . 3 8 6 3 70 ] ( %O 8 )[ ] [ 00. 4 5 2 5 4 7 ] [ ] [ 000 ] ( %I 9 )U .S i g m a .V T-M ; [ 1 . 1 1 0 2 2 E 1 50 . 01 . 7 7 6 3 6 E 1 5 ] [ ] [ 1 . 3 3 2 2 7 E1 51 . 6 6 5 3 3 E 1 5 0 . 0 ] ( %O 9 )[ ] [ -4 . 4 4 0 8 9 E 1 6-8 . 8 8 1 7 8 E 1 64 . 4 4 0 8 9 E 1 6 ] [ ] [ 8 . 8 8 1 7 8 E 1 61 . 7 7 6 3 6 E 1 58 . 8 8 1 7 8 E 1 6 ] ( %I 1 0 )t r a n s p o s i c i n( U ) .U ; [ 1 , 05 . 5 5 1 1 2 E 1 72 . 4 9 8 E 1 62 . 7 7 5 5 6 E 1 7 ] [ ] [ 5 . 5 5 1 1 2 E 1 71 . 0 5 . 5 5 1 1 2 E1 74 . 1 6 3 3 4 E 1 7 ] ( %O 1 0 )[ ] [ 2 . 4 9 8 E 1 65 . 5 5 1 1 2 E 1 71 . 0-2 . 0 8 1 6 7 E 1 6 ] [ ] [ 2 . 7 7 5 5 6 E 1 74 . 1 6 3 3 4 E 1 7-2 . 0 8 1 6 7 E 1 61 , 0 ] ( %I 1 1 )V T .t r a n s p o s i c i n( V T ) ; [ 1 . 00 . 0-5 . 5 5 1 1 2 E 1 7 ] [ ] ( %O 1 1 )[ 0 , 01 , 05 . 5 5 1 1 2 E 1 7 ] [ ] [ -5 . 5 5 1 1 2 E1 75 . 5 5 1 1 2 E 1 7 1 . 0 ]
F u n c i n :d l a n g e( < n o r m a > ,< A > ) F u n c i n :z l a n g e( < n o r m a > ,< A > ) C a l c u l au n af u n c i nn o r m a t i v aon o r m as i m i l a rd e l< A >m a t r i z . ` M a x' C o m p u t em a x( a b s( A( i ,j ) ) )d o n d eiyjg a m am sl a sf i l a s yc o l u m n a s ,r e s p e c t i v a m e n t e ,d e< A > .T e n g ae nc u e n t aq u ee s t af u n c i n n oe su n an o r m ad el am a t r i za d e c u a d a . ` O n e _ n o r m' C a l c u l a rl aL[ 1 ]n o r m ad e< A > ,e sd e c i r ,e lm x i m od el as u m a d e lv a l o ra b s o l u t od el o se l e m e n t o se nc a d ac o l u m n a . ` I n f _ n o r m' C a l c u l a rl aL[ I N F ]n o r m ad e< A > ,e sd e c i r ,e lm x i m od el a s u m ad e lv a l o ra b s o l u t od el o se l e m e n t o se nc a d af i l a . ` F r o b e n i u s' C a l c u l a rl an o r m ad eF r o b e n i u sd e< A > ,e sd e c i r ,l ar a zc u a d r a d a d el as u m ad el o sc u a d r a d o sd el o se l e m e n t o sd em a t r i z .
F u n c i n :d g e m m( < A > , ) F u n c i n :d g e m m( < A > , ,< o p c i o n e s > ) C a l c u l a re lp r o d u c t od ed o sm a t r i c e sy ,o p c i o n a l m e n t e ,a a d i re lp r o d u c t o au n at e r c e r am a t r i z . E nl af o r m am ss i m p l e ,` d g e m m( < A > , )' c a l c u l ae lp r o d u c t od e l a sd o sm a t r i c e sr e a l e s ,< A >y . E nl as e g u n d af o r m a ,` d g e m m' c a l c u l al a< a l p h a >*< A >*+ *< C >d o n d e< A > , ,< C >s o nm a t r i c e sr e a l e sd el a t a m a o sy< a l p h a >ya p r o p i a d o ss o nn m e r o sr e a l e s . O p c i o n a l m e n t e ,< A >y/op u e d et r a s l a d a r s ea n t e sd ec a l c u l a re l p r o d u c t o .L o sp a r m e t r o sa d i c i o n a l e ss o ns p e c i f e dp o rp a l a b r ac l a v eo p c i o n a l a r g u m e n t o s :L o sa r g u m e n t o ss o no p c i o n a l e sys ep u e d e ne s p e c i f i c a r e nc u a l q u i e ro r d e n .T o d o se l l o st o m a nl af o r m ak e y=v a l` ' .L ap a l a b r ac l a v e a r g u m e n t o ss o n : < C > E l< C >m a t r i zq u es ed e b ea g r e g a r .E lv a l o rp r e d e t e r m i n a d oe s' f a l s o ' , l oq u es i g n i f i c aq u en os ea a d en i n g nm a t r i z . < a l p h a > E lp r o d u c t od e< A >ys em u l t i p l i c ap o re s t ev a l o r .L a p r e d e t e r m i n a d oe s1 . S is ed au n< C >m a t r i z ,e s t ev a l o rs em u l t i p l i c aa n t e sd eq u e< C >
509/633
28/08/13

s ea a d e .E lv a l o rp o rd e f e c t oe s0 ,l oq u ei m p l i c aq u ee s< C > N oa a d i ,a u n q u es ed a< C > .P o rl ot a n t o ,a s e g r e s ed ee s p e c i f i c a ru n v a l o rd i s t i n t od ec e r op a r a . < t r a n s p o s e _ a > S i` t r u e' ,l at r a n s p u e s t ad e< A >s eu t i l i z ae nl u g a rd e< A >p a r a e lp r o d u c t o .E lv a l o rp r e d e t e r m i n a d oe s' f a l s o ' . < t r a n s p o s e _ b > S i` t r u e' ,l at r a n s p u e s t ad es eu t i l i z ae nl u g a rd ep a r a e lp r o d u c t o .E lv a l o rp r e d e t e r m i n a d oe s' f a l s o ' . ( %I 1 )l o a d( l a p a c k )$ ( %I 2 )A :m a t r i z( [ 1 , 2 , 3 ] ,[ 4 , 5 , 6 ] ,[ 7 , 8 , 9 ] ) ; [ 123 ] [ ] ( %O 2 )[ 456 ] [ ] [ 789 ] ( %I 3 )B :m a t r i z( [ 1 ,2 ,3 ] ,[ 4 ,5 ,6 ] ,[ 7 ,8 ,9 ] ) ; [ -1-2-3 ] [ ] ( %O 3 )[ -4-5-6 ] [ ] [ -7-8-9 ] ( %I 4 )C :m a t r i z( [ 3 , 2 , 1 ] ,[ 6 , 5 , 4 ] ,[ 9 , 8 , 7 ] ) ; [ 321 ] [ ] ( %O 4 )[ 654 ] [ ] [ 987 ] ( %I 5 )d g e m m( A ,B ) ; [ -3 0 . 0-3 6 , 0a4 2 , 0 ] [ ] ( %O 5 )[ -6 6 . 0-8 1 , 0a9 6 , 0 ] [ ] [ -1 0 2 . 0-1 2 6 , 0 1 5 0 , 0 ] ( %I 6 )U n a .B ; [ -3 0-3 6 4 2 ] [ ] ( %O 6 )[ -6 6a8 1-9 6 ] [ ] [ -1 0 2 1 2 6-1 5 0 ] ( %I 7 )d g e m m( A ,B ,t r a n s p o s e _ a=t r u e ) ; [ -6 6 . 0-7 8 , 0 9 0 , 0 ] [ ] ( %O 7 )[ -7 8 . 0-9 3 , 0 1 0 8 , 0 ] [ ] [ -9 0 . 0-1 0 8 , 0 1 2 6 , 0 ] ( %I 8 )t r a n s p o n e r( A ) .B ; [ -6 6a7 8-9 0 ] [ ] ( %O 8 )[ -7 8a9 3-1 0 8 ] [ ] [ -9 0-1 0 8 1 2 6 ] ( %I 9 )d g e m m( A ,B ,C=C ,b e t a=1 ) ; [ -2 7 . 0-3 4 , 0a4 1 , 0 ] [ ] ( %O 9 )[ -6 0 . 0-7 6 , 0a9 2 , 0 ] [ ] [ -9 3 . 0-1 1 8 , 0 1 4 3 , 0 ] ( %I 1 0 )U n a .B+C ; [ -2 7-3 4 4 1 ] [ ] ( %O 1 0 )[ -6 0-7 6 9 2 ] [ ] [ -9 3a1 1 8-1 4 3 ] ( %I 1 1 )d g e m m( A ,B ,C=C ,b e t a=1 ,a l f a=1 ) ; [ 3 3 . 03 8 . 04 3 . 0 ] [ ] ( %O 1 1 )[ 7 2 , 08 6 , 01 0 0 , 0 ] [ ] [ 1 1 1 . 01 3 4 . 01 5 7 . 0 ] ( %I 1 2 ) A .B+C ; [ 3 33 84 3 ] [ ] ( %O 1 2 )[ 7 28 61 0 0 ] [ ] [ 1 1 11 3 41 5 7 ]
61 lbfgs
I n t r o d u c c i nal b f g s F u n c i o n e syv a r i a b l e sp a r al b f g s
61.1 Introduccin a lbfgs

` L b f g s' e su n ai m p l e m e n t a c i nd e la l g o r i t m od eL B F G S[ 1 ]p a r ar e s o l v e r p r o b l e m a sd em i n i m i z a c i ns i nr e s t r i c c i o n e sat r a v sd eu n am e m o r i al i m i t a d a c u a s i N e w t o n ( B F G S )a l g o r i t m o .S el l a m au nm t o d ol i m i t a d ad em e m o r i ad e b i d oaq u eu n b a j og r a d od ea p r o x i m a c i nd el am a t r i zi n v e r s ad eH e s s es ea l m a c e n ae nl u g a r
510/633
28/08/13

d et o d al ai n v e r s ad eH e s s e .E lp r o g r a m af u ee s c r i t oo r i g i n a l m e n t ee n F o r t r a n[ 2 ]p o rJ o r g eN o c e d a l ,i n c o r p o r a n d oa l g u n a sd el a sf u n c i o n e so r i g i n a l m e n t e e s c r i t op o rJ o r g eJ .M o r e' yD a v i dJ .T h u e n t e ,yt r a d u c i d oa l L i s pd ef o r m aa u t o m t i c aat r a v sd e lp r o g r a m a` f 2 c l' .E lp a q u e t eM a x i m a` l b f g s' c o m p r e n d ee lc d i g ot r a d u c i d oa d e m sd eu n af u n c i nd ei n t e r f a zq u eg e s t i o n a a l g u n o sd e t a l l e s . R e f e r e n c i a s : [ 1 ]D .L i uyJ .N o c e d a l ." E nl al i m i t a d am t o d oB F G Sm e m o r i ap a r a o p t i m i z a c i nag r a ne s c a l a" .P r o g r a m a c i nM a t e m t i c aB4 5 : 5 0 3 5 2 8( 1 9 8 9 ) [ 2 ]` h t t p : / / n e t l i b . o r g / o p t / l b f g s _ u m . s h a r'
61.2 Funciones y variables para lbfgs

F u n c i n :l b f g s( < F O M > ,< X > ,< X 0 > ,< e p s i l o n > , ) F u n c i n :l b f g s( [ < F O M > ,< g r a d > ]< X > ,< X 0 > ,< e p s i l o n > , ) E n c u e n t r au n as o l u c i na p r o x i m a d ad el am i n i m i z a c i ns i nr e s t r i c c i o n e sd e l af i g u r ad em r i t o< F O M >s o b r el al i s t ad ev a r i a b l e s< X > ,ap a r t i r d el a se s t i m a c i o n e s< X 0 >i n i c i a l ,d et a lm a n e r aq u el an o r m a( g r a d( F O M ) ) ,s ie s t p r e s e n t e ,e se lg r a d i e n t ed e< F O M >c o nr e s p e c t oal a V a r i a b l e s< X > .< g r a d >e su n al i s t a ,c o nu ne l e m e n t op o rc a d au n o e l e m e n t od e< X > .S in oe s t p r e s e n t e ,e lg r a d i e n t es ec a l c u l a a u t o m t i c a m e n t ep o rd i f e r e n c i a c i ns i m b l i c a . E la l g o r i t m oa p l i c a d oe su n am e m o r i al i m i t a d aq u a s i N e w t o n( B F G S ) a l g o r i t m o[ 1 ] .S el l a m au nm t o d ol i m i t a d ad em e m o r i ad e b i d oaq u eu n b a j og r a d od ea p r o x i m a c i nd el am a t r i zi n v e r s ad eH e s s es ea l m a c e n a e nl u g a rd et o d oe li n v e r s od eH e s s e .C a d ai t e r a c i nd e l a l g o r i t m oe su n ab s q u e d ad el n e a ,e sd e c i r ,u n ab s q u e d aal ol a r g od eu nr a y oe ne l l a sv a r i a b l e s< x > ,c o nl ad i r e c c i nd eb s q u e d ac a l c u l a d oap a r t i rd el a H e s s ei n v e r s aa p r o x i m a d a .L aF O Ms i e m p r es er e d u c ee nu n b s q u e d ae x i t o s al n e a .P o rl og e n e r a l( p e r on os i e m p r e )l an o r m ad el a g r a d i e n t ed eF O Mt a m b i nd i s m i n u y e . c o n t r o l al o sm e n s a j e sd ep r o g r e s oi m p r e s o sp o r` l b f g s . ` I p r i n t[ 1 ]' ` [ 1 ]' c o n t r o l al af r e c u e n c i ad el o sm e n s a j e sd ep r o g r e s o . ` I p r i n t[ 1 ]< 0' N oh a ym e n s a j e sd ep r o g r e s o . ` I p r i n t[ 1 ]=0' M e n s a j e se nl ap r i m e r ay l t i m ai t e r a c i n . ` I p r i n t[ 1 ] >0' M u e s t r au nm e n s a j ec a d a` [ 1 ]' i t e r a c i o n e s . ` I p r i n t[ 2 ]' ` [ 2 ]' c o n t r o l ae ln i v e ld ed e t a l l ed el o sm e n s a j e sd ep r o g r e s o . ` I p r i n t[ 2 ]=0' I m p r i m an m e r od ei t e r a c i o n e s ,e ln m e r od ee v a l u a c i o n e sd e < F O M > ,V a l o rd e< F O M > ,n o r m ad e lg r a d i e n t ed e< F O M > , yl al o n g i t u dd e lp a s o . ` I p r i n t[ 2 ]=1' I g u a lq u e` [ 2 ]=0' ,a d e m sd e< X 0 >ye lg r a d i e n t ed e < F O M >E v a l u a d oe n< X 0 > . ` I p r i n t[ 2 ]=2' I g u a lq u e` [ 2 ]=1' ,m sl o sv a l o r e sd e< X >e nc a d a i t e r a c i n . ` I p r i n t[ 2 ]=3' I g u a lq u e` [ 2 ]=2' ,m se lg r a d i e n t ed e< F O M >e n c a d ai t e r a c i n . L a sc o l u m n a si m p r e s a sp o r` l b f g s' s o nl o ss i g u i e n t e s . ` I' N m e r od ei t e r a c i o n e s .S ei n c r e m e n t ap a r ac a d al n e ad eb s q u e d a . ` N F N' N m e r od ee v a l u a c i o n e sd el af i g u r ad em r i t o . ' F U N C ' V a l o rd el af i g u r ad em r i t oe ne le x t r e m od el am sr e c i e n t e b s q u e d ad el n e a . ` G n o r m' N o r m ad el ap e n d i e n t ed el af i g u r ad em r i t oe ne le x t r e m od el a B s q u e d al n e am sr e c i e n t e . ` S T E P L E N G T H' U np a r m e t r oi n t e r n od e la l g o r i t m od eb s q u e d a . I n f o r m a c i na d i c i o n a lr e l a t i v aal o sd e t a l l e sd e la l g o r i t m os e q u es ee n c u e n t r ae nl o sc o m e n t a r i o sd e lc d i g oo r i g i n a lF o r t r a n[ 2 ] . C o n s u l t et a m b i n` l b f g s _ n f e v a l _ m a x' y `l b f g s _ n c o r r e c t i o n s .
511/633
28/08/13
R e f e r e n c i a s :
[ 1 ]D .L i uyJ .N o c e d a l ." E nl al i m i t a d am t o d oB F G Sm e m o r i ap a r a o p t i m i z a c i nag r a ne s c a l a" .P r o g r a m a c i nM a t e m t i c aB4 5 : 5 0 3 5 2 8 ( 1 9 8 9 ) [ 2 ]` h t t p : / / n e t l i b . o r g / o p t / l b f g s _ u m . s h a r' E j e m p l o s : L am i s m aF O Mc o m os ec a l c u l p o rF G C O M P U T Ee ne lp r o g r a m ae ns d r i v e . f e lp a q u e t el b f g sd eN e t l i b .T e n g ae nc u e n t aq u el a sv a r i a b l e se n c u e s t i ns o nv a r i a b l e sc o ns u b n d i c e .L aF O Mt i e n eu nm n i m oe x a c t o i g u a lac e r oe nu[ k ]=1p a r ak=1 ,. . . ,8 . ( %I 1 )l o a d( l b f g s ) ; ( %O 1 )/u s r / s h a r e / m a x i m a / 5 . 1 0 . 0 c v s / s h a r e / l b f g s / l b f g s . m a c ( %I 2 )t 1[ j ] :=1-u[ j ] ; ( %O 2 )t 1 :=1-u j j ( %I 3 )t 2[ j ] :=1 0*( u[ j+1 ]-u[ j ]^2 ) ; 2 ( %O 3 )t 2 :1 0=( u-u ) j j1+j ( %I 4 )n8 ; ( %O 4 )8 ( %I 5 )F O M :s u m a( t 1[ 2*j-1 ]^2+t 2[ 2*j-1 ]^2 ,j ,1 ,n/2 ) ; 222222 ( %O 5 )1 0 0( u-u )+( 1-u )+1 0 0( u-u )+( 1-u ) 877655 222222 +1 0 0( u-u )+( 1-u )+1 0 0( u-u )+( 1-u ) 433211 ( %I 6 )l b f g s( F O M ,' [ u[ 1 ] ,U[ 2 ] ,u[ 3 ] ,u[ 4 ] ,u[ 5 ] ,u[ 6 ] ,u[ 7 ] ,u[ 8 ] ], [ 1 , 2 ,1 ,1 , 2 ,1 ,1 , 2 ,1 ,1 , 2 ,1 ] ,1 e 3 ,[ 1 ,0 ] ) ; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * N=8N M E R OD EC O R R E C C I O N E S=2 5 V A L O R E SI N I C I A L E S F=9 . 6 8 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 1G n o r m=4 . 6 5 7 3 5 3 7 5 5 0 8 4 5 3 2 D0 2 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * IN F NF U N CG n o r mS T E P L E N G T H 131 . 6 5 1 4 7 9 5 2 6 3 4 0 3 0 4 D0 14 . 3 2 4 3 5 9 2 9 1 3 3 5 9 7 7 D0 07 . 9 2 6 1 5 3 9 3 4 3 9 0 6 3 1 D 0 4 240 11 . 6 5 0 2 0 9 3 1 6 6 3 8 3 7 1 D3 . 5 7 5 7 8 8 1 6 1 0 6 0 0 0 7 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 350 11 . 6 4 5 4 6 1 7 0 1 3 1 2 8 5 1 D6 . 2 3 0 8 6 9 9 0 3 6 0 1 5 7 7 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 460 11 . 6 3 6 8 6 7 3 0 1 2 7 5 5 8 8 D1 . 1 7 7 5 8 9 9 2 0 9 7 4 9 8 0 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 571 . 6 1 2 1 5 3 0 1 4 4 0 9 2 0 1 D0 12 . 2 9 2 7 9 7 1 4 7 1 5 1 2 8 8 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 680 11 . 5 6 9 1 1 8 4 0 7 3 9 0 6 2 8 D3 . 6 8 7 4 4 7 1 5 8 7 7 5 5 7 1 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 790 11 . 5 1 0 3 6 1 9 5 8 3 9 8 9 4 2 D4 . 5 0 1 9 3 1 7 2 8 1 2 3 6 8 0 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 81 00 11 . 3 9 1 0 7 7 8 7 5 7 7 4 2 9 4 D4 . 5 2 6 0 6 1 4 6 3 8 1 0 6 3 2 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 91 10 11 . 1 6 5 6 2 5 6 8 6 2 7 8 1 9 8 D2 . 7 4 8 3 4 8 9 6 5 3 5 6 9 1 7 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 1 01 20 09 . 8 5 9 4 2 2 6 8 7 8 5 9 1 3 7 D2 . 1 1 1 4 9 4 9 7 4 2 3 1 6 4 4 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 1 11 30 07 . 8 1 5 4 4 2 5 2 1 7 3 2 2 8 1 D6 . 1 1 0 7 6 2 3 2 5 7 6 6 5 5 6 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 1 21 50 07 . 3 4 6 3 8 0 9 0 5 7 7 3 1 6 0 D2 . 1 6 5 2 8 1 1 6 6 7 1 4 6 3 1 D0 11 . 2 8 5 3 1 6 4 0 1 7 7 9 5 3 3 D 0 1 1 31 60 06 . 3 3 0 4 6 0 6 3 4 0 6 6 3 7 0 D1 . 4 0 1 2 2 0 8 5 1 7 6 2 0 5 0 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 1 41 70 05 . 2 3 8 7 6 3 9 3 9 8 5 1 4 3 9 D1 . 7 0 2 4 7 3 7 8 7 6 1 3 2 5 5 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 1 51 80 03 . 7 5 4 0 1 6 7 9 0 4 0 6 7 0 1 D7 . 9 8 1 8 4 5 7 2 7 7 0 4 5 7 6 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 1 62 00 03 . 0 0 1 2 3 8 4 0 2 3 0 9 3 5 2 D3 . 9 2 5 4 8 2 9 4 4 7 1 6 6 9 1 D0 02 . 3 3 3 1 2 9 6 3 1 2 9 6 8 0 7 D 0 1 1 72 20 02 . 7 9 4 3 9 0 7 0 9 7 1 8 2 9 0 D8 . 2 4 3 3 2 9 9 8 2 5 4 6 4 7 3 D0 02 . 5 0 3 5 7 7 2 8 3 7 8 2 3 3 2 D 0 1 1 82 30 02 . 5 6 3 7 8 3 5 6 2 9 1 8 7 5 9 D1 . 0 3 5 4 1 3 4 2 6 5 2 1 7 9 0 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 1 92 40 02 . 0 1 9 4 2 9 9 7 6 3 7 7 8 5 6 D1 . 0 6 5 1 8 7 3 1 2 3 4 6 7 6 9 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 2 02 50 01 . 4 2 8 0 0 3 1 6 7 6 7 0 9 0 3 D2 . 4 7 5 9 6 2 4 5 0 8 2 6 9 6 1 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 2 12 70 01 . 1 9 7 8 7 4 2 6 4 8 6 1 3 4 0 D8 . 4 4 1 7 0 7 9 8 3 4 9 3 8 1 0 D0 04 . 3 0 3 4 5 1 0 6 0 8 0 8 7 5 6 D 0 1 2 22 89 . 0 2 3 8 4 8 9 4 1 9 4 2 7 7 3 D 0 11 . 1 1 3 1 8 9 2 1 6 6 3 5 1 6 2 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 2 32 95 . 5 0 8 2 2 6 4 0 5 8 6 3 7 7 0 D 0 12 . 3 8 0 8 3 0 6 0 0 3 2 6 3 0 8 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 2 43 10 15 . 6 2 5 5 9 5 8 1 6 5 8 4 4 2 1 D3 . 9 0 2 8 9 3 2 5 8 8 1 5 5 6 7 D 0 0 0 14 . 8 3 4 9 8 8 4 1 6 5 2 4 4 6 5 D 2 53 23 . 2 0 7 5 4 2 2 0 6 9 9 0 3 1 5 D 0 11 . 1 4 9 4 4 4 6 4 5 4 1 6 4 7 2 D0 11 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 2 63 31 . 8 7 4 4 6 8 2 6 6 3 6 2 7 9 1 D 0 13 . 6 3 2 4 8 2 1 5 2 8 8 0 9 9 7 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 2 73 49 . 5 7 5 7 6 3 3 8 0 7 0 6 5 9 8 D 0 24 . 8 1 6 4 9 7 4 4 6 1 5 4 3 5 4 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 2 83 54 . 0 8 5 1 4 5 1 0 7 5 4 3 4 0 6 D 0 22 . 0 8 7 0 0 9 3 5 0 1 6 6 4 9 5 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 2 93 61 . 9 3 1 1 0 6 0 0 1 3 7 9 2 9 0 D 0 23 . 8 8 6 8 1 8 6 0 8 4 9 8 9 6 6 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 3 03 76 . 8 9 4 0 0 0 7 2 1 4 9 9 6 7 0 D 0 33 . 1 9 8 5 0 5 7 9 6 3 4 2 2 1 4 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 3 13 81 . 4 4 3 2 9 6 0 3 3 0 5 1 8 6 4 D 0 31 . 5 9 0 2 6 5 4 7 1 0 2 5 0 4 3 D0 01 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 3 23 91 . 5 7 1 7 6 6 6 0 3 1 5 4 3 3 6 D 0 4 0 13 . 0 9 8 2 5 7 0 6 3 9 8 0 6 3 4 D1 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 3 34 01 . 2 8 8 0 1 1 7 7 6 5 8 1 9 7 0 D 0 5 0 21 . 2 0 7 7 8 4 1 8 3 5 7 7 2 5 7 D1 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 3 44 11 . 8 0 6 1 4 0 1 7 3 7 5 2 9 7 1 D 0 6 0 24 . 5 8 7 8 9 0 2 3 3 3 8 5 1 9 3 D1 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 3 54 21 . 7 6 9 0 0 4 6 4 5 4 5 9 3 5 8 D 0 7 0 21 . 7 9 0 5 3 7 3 7 5 0 5 2 2 0 8 D1 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0 3 64 33 . 3 1 2 1 6 4 1 0 0 7 6 3 2 1 7 D 1 0 0 46 . 7 8 2 0 6 8 4 2 6 1 1 9 6 8 1 D1 . 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D0 0
V a r i a b l e :l b f g s _ n f e v a l _ m a x V a l o rp o rd e f e c t o :1 0 0 ` L b f g s _ n f e v a l _ m a x' e se ln m e r om x i m od ee v a l u a c i o n e sd el a f i g u r ad em r i t o( F O M )e n` l b f g s' .C u a n d o` l b f g s _ n f e v a l _ m a x' e s a l c a n z a d o ,` l b f g s' d e v u e l v ee lr e s u l t a d od el a l t i m al n e ad e x i t o b u s c a r .
V a r i a b l e :l b f g s _ n c o r r e c t i o n s V a l o rp o rd e f e c t o :2 5
512/633
28/08/13

` L b f g s _ n c o r r e c t i o n s' e se ln m e r od ec o r r e c c i o n e sa p l i c a d a sal a a p r o x i m a rl am a t r i zi n v e r s ad eH e s s e ,q u es em a n t i e n eg r a c i a sa` l b f g s .
62 lindstedt
F u n c i o n e syv a r i a b l e sp a r al i n d s t e d t
62.1 Funciones y variables para lindstedt

F u n c i n :L i n d s t e d t( < e q > , ,< t o r d e r > , ) E s t ee su np r i m e rp a s oe nu nc d i g oL i n d s t e d t .P u e d er e s o l v e rp r o b l e m a s c o nl a sc o n d i c i o n e si n i c i a l e se n t r a d o ,q u ep u e d es e rc o n s t a n t e sa r b i t r a r i a s , ( S i m p l e m e n t en o< k 1 % >y< %k 2 > )d o n d el a sc o n d i c i o n e si n i c i a l e sd el a e c u a c i o n e sd ep e r t u r b a c i ns o nz[ i ]=0 ,z' [ i ]=0p a r ai >0 .e sl a l i s t ad ec o n d i c i o n e si n i c i a l e s . L o sp r o b l e m a ss ep r o d u c e nc u a n d on os ed a nl a sc o n d i c i o n e si n i c i a l e s ,c o m ol a c o n s t a n t e se nl a se c u a c i o n e sd ep e r t u r b a c i ns o nl o sm i s m o sq u ee lc e r o s o l u c i nd el ae c u a c i no r d e n .A d e m s ,s ep r o d u c e np r o b l e m a sc u a n d oe li n i c i a l c o n d i c i o n e sp a r al a se c u a c i o n e sd ep e r t u r b a c i nn os o nz[ i ]=0 ,z' [ i ]=0 p a r ai >0 ,t a lc o m ol ae c u a c i nd eV a nd e rP o l . E j e m p l o : ( %I 1 )l o a d( " m a k e O r d e r s " )$ ( %I 2 )l o a d( " l i n d s t e d t " )$ ( %I 3 )L i n d s t e d t( ' d i f f( x ,t ,2 )+x ( E*x^3 )/6 ,e ,2 ,[ 1 , 0 ] ) ; 2 e( c o s( 5T )-2 4c o s( 3T )+2 3c o s( t ) ) ( %O 3 )[ [ [ 3 6 8 6 4 e( c o s( 3T )-c o s( t ) ) -+C o s( T ) ] , 1 9 2 2 7e e T=( -+1 )t ] ] 3 0 7 21 6 P a r au t i l i z a re s t af u n c i n ,p r i m e r oe s c r i b a` l o a d( "m a k e O r d e r s" )' y L o a d( " l i n d s t e d t " ) .
63 linearalgebra
I n t r o d u c c i nal i n e a r a l g e b r a F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a
63.1 Introduccin a linearalgebra

L i n e a r a l g e b r a` ' e su n ac o l e c c i nd ef u n c i o n e sd e l g e b r al i n e a l . E j e m p l o : ( %I 1 )M :m a t r i z( [ 1 ,2 ] ,[ 1 ,2 ] ) ; [ 12 ] ( %O 1 )[ ] [ 12 ] ( %I 2 )e s p a c i on u l o( M ) ; [ 1 ] [ ] ( %O 2 )P e r i o d o( [ 1 ] ) [ ] [ 2 ] ( %I 3 )c o l u m n s p a c e( M ) ; [ 1 ] ( %O 3 )P e r i o d o( [ ] ) [ 1 ] ( %I 4 )p t r i a n g u l a r i z e( M-z*i d e n t( 2 ) ,z ) ; [ 12-z ] ( %O 4 )[ ] [ 2 ] [ 03z-z ] ( %I 5 )M :m a t r i z( [ 1 ,2 ,3 ] ,[ 4 ,5 ,6 ] ,[ 7 ,8 ,9 ] )-z*i d e n t( 3 ) ; [ 1-2z3 ] [ ] ( %O 5 )[ 45-z6 ] [ ] [ 789-z ] ( %I 6 )M M :p t r i a n g u l a r i z e( M ,z ) ; [ 45-z6 ] [ ]
513/633
28/08/13

[ 2 ] [ 6 6z1 0 2z1 3 2 ] [ 0-+-+] ( %O 6 )[ 4 974 94 9 ] [ ] [ 32 ] [ 4 9z2 4 5z1 4 7z ] [ 00] [ 2 6 48 84 4 ] ( %I 7 )a l g e b r a i c a :t r u e ; ( %O 7 )t r u e ( %I 8 )t e l l r a t( M M[ 3 ,3 ] ) ; 32 ( %O 8 )[ z-z1 5-1 8z ] ( %I 9 )M M :r a t s i m p( M M ) ; [ 45-z6 ] [ ] [ 2 ] ( %O 9 )[ 6 67z-z1 0 2-1 3 2 ] [ 0] [ 4 94 9 ] [ ] [ 000 ] ( %I 1 0 )e s p a c i on u l o( M M ) ; [ 1 ] [ ] [ 2 ] [ Z-z1 4-1 6 ] [ ] ( %O 1 0 )P e r i o d o( [ 8 ] ) [ ] [ 2 ] [ Z-z1 8-1 2 ] [ ] [ 1 2 ] ( %I 1 1 )M :m a t r i z( [ 1 ,2 ,3 ,4 ] ,[ 5 ,6 ,7 ,8 ] ,[ 9 ,1 0 ,1 1 ,1 2 ] , [ 1 3 ,1 4 ,1 5 ,1 6 ] ) ; [ 1234 ] [ ] [ 5678 ] ( %O 1 1 )[ ] [ 91 01 11 2 ] [ ] [ 1 31 41 51 6 ] ( %I 1 2 )c o l u m n s p a c e( M ) ; [ 1 ][ 2 ] [ ][ ] [ 5 ][ 6 ] ( %O 1 2 )P e r i o d o( [ ] ,[ ] ) [ 9 ][ 1 0 ] [ ][ ] [ 1 3 ][ 1 4 ] ( %I 1 3 )a p p l y( ' o r t h o g o n a l _ c o m p l e m e n t ,a r g s( e s p a c i on u l o( t r a n s p o s i c i n( M ) ) ) ) ; [ 0 ][ 1 ] [ ][ ] [ 1 ][ 0 ] ( %O 1 3 )P e r i o d o( [ ] ,[ ] ) [ 2 ][ -1 ] [ ][ ] [ 3 ][ -2 ]
63.2 Funciones y variables para linearalgebra

F u n c i n :a d d m a t r i c e s( < f > ,< M _ 1 > ,. . . ,< M _ n > ) U s a n d oe l< f >f u n c i nq u el af u n c i nd es u m a ,d e v o l v e rl as u m ad e l a< M _ 1 >m a t r i c e s ,. . . ,< M _ n > .E l< f >f u n c i nd e b ea c e p t a rc u a l q u i e r n m e r od ea r g u m e n t o s( aM a x i m an a r yf u n c i n ) . E j e m p l o s : ( %I 1 )m 1 :m a t r i z( [ 1 , 2 ] ,[ 3 , 4 ] )$ ( %I 2 )m 2 :m a t r i z( [ 7 , 8 ] ,[ 9 , 1 0 ] )$ ( %I 3 )a d d m a t r i c e s( ' m a x ,m 1 ,m 2 ) ; ( %O 3 )m a t r i z( [ 7 , 8 ] ,[ 9 , 1 0 ] ) ( %I 4 )a d d m a t r i c e s( ' m a x ,m 1 ,m 2 ,5*m 1 ) ; ( %O 4 )m a t r i z( [ 7 , 1 0 ] ,[ 1 5 , 2 0 ] )
F u n c i n :b l o c k m a t r i x p( < M > ) V o l v e rv e r d a d e r os iys l os i< M >e su n am a t r i zyc a d ae n t r a d ad e< M > e su n am a t r i z .
F u n c i n :c o l u m n o p( < M > , ,< j > ,< t h e t a > ) S i< M >e su n am a t r i z ,d e v u e l v el am a t r i zq u er e s u l t ad eh a c e rl a o p e r a c i nd el ac o l u m n a` C _ i< -C _ i-< t h e t a >*C _ J' .S i< M >n ot i e n e u nf i l ao< j > ,s e a l a nu ne r r o r .
514/633
28/08/13
F u n c i n :c o l u m n s w a p( < M > , ,< j > )
S i< M >e su n am a t r i z ,l a sc o l u m n a sd ei n t e r c a m b i oy< j > .S i< M >n ot i e n e u nc o l u m n ao< j > ,s e a l a nu ne r r o r .
F u n c i n :c o l u m n s p a c e( < M > ) S i< M >e su n am a t r i z ,d e v u e l v e` t r a m o( v _ 1 ,. . . ,v _ n )' ,d o n d ee lc o n j u n t o ` { V _ 1 ,. . . ,v _ n }' e su n ab a s ep a r ae le s p a c i oc o l u m n ad e< M > .E ll a p s o d e lc o n j u n t ov a c oe s' { 0 } ' .P o rl ot a n t o ,c u a n d oe le s p a c i od el ac o l u m n at i e n es l o u nm i e m b r o ,v o l v e r` l a p s o( )' .
F u n c i n :c o p y( < e > ) D e v u e l v eu n ac o p i ad el a< e >m x i m ae x p r e s i n .A u n q u ep u e d es e r< e > c u a l q u i e re x p r e s i nd eM a x i m a ,l af u n c i nd ec o p i ae sl am s t i lc u a n d o < e >e su n al i s t aou n am a t r i z ,c o n s i d e r a r : ( %I 1 )m :[ 1 ,[ 2 , 3 ] ]$ ( %I 2 )m m :m$ ( %I 3 )m m[ 2 ][ 1 ] :x$ ( %I 4 )m ; ( %O 4 )[ 1 ,[ x ,3 ] ] ( %I 5 )m m ; ( %O 5 )[ 1 ,[ x ,3 ] ] V a m o sai n t e n t a re lm i s m oe x p e r i m e n t o ,p e r oe s t av e zv a m o s< m m >s e au n ac o p i a < m > ( %I 6 )m :[ 1 ,[ 2 , 3 ] ]$ ( %I 7 )m m :c o p y( m )$ ( %I 8 )m m[ 2 ][ 1 ] :x$ ( %I 9 )m ; ( %O 9 )[ 1 ,[ 2 , 3 ] ] ( %I 1 0 )m m ; ( %O 1 0 )[ 1 ,[ x ,3 ] ] E s t av e z ,l aa s i g n a c i na< m m >n oc a m b i ae lv a l o rd e< m > .
F u n c i n :c h o l e s k y( < M > ) F u n c i n :c h o l e s k y( < M > ,< f i e l d > ) V u e l v al af a c t o r i z a c i nd eC h o l e s k yd el am a t r i za u t o a d j u n t o( o h e r m i t i a n o )m a t r i z< M > .E ls e g u n d oa r g u m e n t op o rd e f e c t oa ' G e n e r a l r i n g .P a r ao b t e n e ru n ad e s c r i p c i nd el o sv a l o r e sp o s i b l e sp a r a < f i e l d > ,c o n s u l t e` l u _ f a c t o r' .
F u n c i n :c t r a n s p o s e( < M > ) D e v u e l v ae lc o m p l e j oc o n j u g a d ot r a n s p u e s t ad el am a t r i z< M > .L a f u n c i n` c t r a n s p o s e' u s a `m a t r i x _ e l e m e n t _ t r a n s p o s e 'p a r at r a n s p o n e r c a d ae l e m e n t od el am a t r i z .
F u n c i n :d i a g _ m a t r i x( < d _ 1 > ,< d _ 2 > ,. . . ,< d _ n > ) D e v u e l v eu n am a t r i zd i a g o n a lc o ne n t r a d a sd i a g o n a l e s< d _ 1 > ,< d _ 2 > ,. . . , < d _ n > .C u a n d ol o se l e m e n t o sd el ad i a g o n a ls o nm a t r i c e s ,l o se l e m e n t o sc e r o d el am a t r i zs ed e v u e l v es o nc e r om a t r i c e sd e lt a m a oa p r o p i a d o ; p o re j e m p l o : ( %I 1 )d i a g _ m a t r i x( d i a g _ m a t r i x( 1 , 2 ) ,d i a g _ m a t r i x( 3 , 4 ) ) ; [ [ 10 ][ 00 ] ] [ [ ][ ] ] [ [ 02 ][ 00 ] ] ( %O 1 )[ ] [ [ 00 ][ 03 ] ] [ [ ][ ] ] [ [ 00 ][ 04 ] ] ( %I 2 )d i a g _ m a t r i x( p ,q ) ; [ P0 ] ( %O 2 )[ ] [ 0q ]
F u n c i n :d o t P r o d u c t( ,< v > ) D e v u e l v ae ld o t P r o d u c td ev e c t o r e sy< v > .E s t ee se lm i s m oq u e ` C o n j u g a d o( t r a n s p o s i c i n( ) ) .< v >' .E la r g u m e n t o sy< v > d e b es e rv e c t o r e sc o l u m n a .
515/633
28/08/13

F u n c i n :e i g e n s _ b y _ j a c o b i( < A > ) F u n c i n :e i g e n s _ b y _ j a c o b i( < A > ,< f i e l d _ t y p e > ) C a l c u l al o sv a l o r e sp r o p i o syv e c t o r e sp r o p i o sd e< A >p o re lm t o d od e R o t a c i o n e sd eJ a c o b i .< A >D e b es e ru n am a t r i zs i m t r i c a( p e r on oe sn e c e s a r i o s e rs e m i d e f i n i d od e f i n i d an ip o s i t i v op o s i t i v o ) .< f i e l d _ t y p e > i n d i c ae lc a m p oc o m p u t a c i o n a l ,y as e a` f l o a t f i e l d' o ` B i g f l o a t f i e l d' .S in os ee s p e c i f i c a< f i e l d _ t y p e > ,e lv a l o rp r e d e t e r m i n a d o ` F l o a t f i e l d' . L o se l e m e n t o sd e< A >d e b e ns e rn m e r o soe x p r e s i o n e sq u ee v a l a n al o sn m e r o sat r a v sd e' f l o a t 'o` b f l o a t' ( d e p e n d i e n d o< f i e l d _ t y p e > ) . E j e m p l o s : ( %I 1 )S :m a t r i z( [ 1 / s q r t( 2 ) ,1 / s q r t( 2 ) ] ,[ 1 / s q r t( 2 ) ,1 / s q r t( 2 ) ] ) ; [ 11 ] [ ] [ ( 2 )s q r ts q r t( 2 ) ] ( %O 1 )[ ] [ 11 ] [ ] [ ( 2 )s q r ts q r t( 2 ) ] ( %I 2 )L :m a t r i z( [ s q r t( 3 ) ,0 ] ,[ 0 ,s q r t( 5 ) ] ) ; [ S q r t( 3 )0 ] ( %O 2 )[ ] [ 0s q r t( 5 ) ] ( %I 3 )M :S .L .t r a n s p o s i c i n( S ) ; [ S q r t( 5 )s q r t( 3 )( 5 )s q r ts q r t( 3 ) ] [ -+] [ 2222 ] ( %O 3 )[ ] [ S q r t( 5 )s q r t( 3 )( 5 )s q r ts q r t( 3 ) ] [ -+] [ 2222 ] ( %I 4 )e i g e n s _ b y _ j a c o b i( M ) ; E lm a y o rp o r c e n t a j ed ec a m b i of u e0 . 1 4 5 4 9 7 2 2 4 3 6 7 9 E lm a y o rp o r c e n t a j ed ec a m b i of u ed e0 , 0 n m e r od eb a r r i d o s :2 n m e r od er o t a c i o n e s :1 ( %O 4 )[ [ 1 . 7 3 2 0 5 0 8 0 7 5 6 8 8 7 7 ,2 . 2 3 6 0 6 7 9 7 7 4 9 9 7 9 ] , [ 0 . 7 0 7 1 0 6 7 8 1 1 8 6 5 50 . 7 0 7 1 0 6 7 8 1 1 8 6 5 5 ] [ ] ] [ -0 , 7 0 7 1 0 6 7 8 1 1 8 6 5 50 , 7 0 7 1 0 6 7 8 1 1 8 6 5 5 ] ( %I 5 )f l o t a d o r( [ [ s q r t( 3 ) ,s q r t( 5 ) ] ,S ] ) ; ( %O 5 )[ [ 1 . 7 3 2 0 5 0 8 0 7 5 6 8 8 7 7 ,2 . 2 3 6 0 6 7 9 7 7 4 9 9 7 9 ] , [ 0 . 7 0 7 1 0 6 7 8 1 1 8 6 5 50 . 7 0 7 1 0 6 7 8 1 1 8 6 5 5 ] [ ] ] [ -0 , 7 0 7 1 0 6 7 8 1 1 8 6 5 50 , 7 0 7 1 0 6 7 8 1 1 8 6 5 5 ] ( %I 6 )e i g e n s _ b y _ j a c o b i( M ,b i g f l o a t f i e l d ) ; E lm a y o rp o r c e n t a j ed ec a m b i of u e1 . 4 5 4 9 7 2 2 4 3 6 7 9 0 2 8 b 1 E lm a y o rp o r c e n t a j ed ec a m b i of u e0 . 0 b 0 n m e r od eb a r r i d o s :2 n m e r od er o t a c i o n e s :1 ( %O 6 )[ [ 1 . 7 3 2 0 5 0 8 0 7 5 6 8 8 7 7 b 0 ,2 . 2 3 6 0 6 7 9 7 7 4 9 9 7 9 b 0 ] , [ 7 . 0 7 1 0 6 7 8 1 1 8 6 5 4 7 5 b 17 . 0 7 1 0 6 7 8 1 1 8 6 5 4 7 5 b 1 ] [ ] ] [ -7 . 0 7 1 0 6 7 8 1 1 8 6 5 4 7 5 b 17 . 0 7 1 0 6 7 8 1 1 8 6 5 4 7 5 b 1 ]
F u n c i n :g e t _ l u _ f a c t o r s( < x > ) C u a n d o` < x >=l u _ f a c t o r( < A > )' ,yl u e g o 'g e t _ l u _ f a c t o r s' d e v u e l v eu n al i s t a d el af o r m a` [ P ,L ,U ]' ,d o n d ee su n am a t r i zd ep e r m u t a c i n ,e s< L > t r i a n g u l a ri n f e r i o rc o nu n o se nl ad i a g o n a lye ss u p e r i o r t r i a n g u l a r ,y` < A >=< L >' .
F u n c i n :H a n k e l( < c o l > ) F u n c i n :H a n k e l( < c o l > ,< r o w > ) D e v u e l v eu n am a t r i zd eH a n k e l< H > .L ap r i m e r ac o l u m n ad e< H >e s< c o l > ; ae x c e p c i nd el ap r i m e r ae n t r a d a ,l a l t i m af i l ad e< H >e s< r o w > .L a p r e d e t e r m i n a d op a r a< r o w >e se lv e c t o rc e r oc o nl am i s m al o n g i t u dq u e< c o l > .
F u n c i n :a r p i l l e r a( < f > ,< x > ) D e v u e l v el am a t r i zd eH e s s ed e< f >c o nr e s p e c t oal al i s t ad e V a r i a b l e s< x > .E l` ( i ,j )' s i m oe l e m e n t od el am a t r i zd eH e s s ee s ` D i f f( < f > ,< x >[ i ] ,1 ,< x >[ j ] ,1 ) . E j e m p l o s : ( %I 1 )a r p i l l e r a( x*s i n( y ) ,[ x ,y ] ) ; [ 0c o s( y ) ] ( %O 1 )[ ] [ C o s( y )-xs e n( y ) ] ( %I 2 )d e p e n d e( F ,[ a ,b ] ) ; ( %O 2 )[ F( a ,b ) ] ( %I 3 )a r p i l l e r a( F ,[ a ,b ] ) ; [ 22 ]
516/633
28/08/13

[ DFdF ] [ ] [ 2d ad b ] [ D a ] ( %O 3 )[ ] [ 22 ] [ DFdF ] [ ] [ D ad b2 ] [ D b ]
F u n c i n :h i l b e r t _ m a t r i x( < n > ) D e v u e l v ae l< n >p o r< n >m a t r i zd eH i l b e r t .C u a n d o< n >n oe sp o s i t i v o e n t e r o ,d e v u e l v eu ne r r o r .
F u n c i n :i d e n t f o r( < M > ) F u n c i n :i d e n t f o r( < M > ,< f l d > ) D e v o l v e ru n am a t r i zd ei d e n t i d a dq u et i e n el am i s m af o r m aq u el am a t r i z < M > .L o se l e m e n t o sd el ad i a g o n a ld el am a t r i zd ei d e n t i d a ds o nl o s i d e n t i d a dm u l t i p l i c a t i v ad e l< f l d >c a m p o ;e lv a l o rp r e d e t e r m i n a d op a r a< f l d > e s< g e n e r a l r i n g > . L ap r i m e r a< M >a r g u m e n t od e b es e ru n am a t r i zc u a d r a d aod eu nn o m a t r i z . C u a n d o< M >e su n am a t r i z ,c a d ae n t r a d ad e< M >p u e d es e ru n am a t r i zc u a d r a d aa s < M >p u e d es e ru n am a t r i zd eM a x i m ab l o q u e a d o .L am a t r i zp u e d es e r b l o q u e a d oac u a l q u i e rp r o f u n d i d a d( f i n i t o ) . C o n s u l t et a m b i n` z e r o f o r'
F u n c i n :i n v e r t _ b y _ l u( < M > ,< ( r n gg e n e r a l r i n g ) > ) I n v e r t i ru n< M >m a t r i zu t i l i z a n d ol af a c t o r i z a c i nL U .L aL U f a c t o r i z a c i ns er e a l i z am e d i a n t ee la n i l l od e< r n g > .
F u n c i n :j a c o b i a n( < f > ,< x > ) D e v u e l v el am a t r i zj a c o b i a n ad el al i s t ad ef u n c i o n e sc o n< f > c o nr e s p e c t oal al i s t ad ev a r i a b l e s< x > .E l` ( i ,j )' s i m oe l e m e n t od e l am a t r i zj a c o b i a n ae s` d i f f( < f >[ i ] ,< x >[ j ] ) . E j e m p l o s : ( %I 1 )j a c o b i a n a( [ s e n( u-v ) ,s i n( u*v ) ] ,[ u ,v ] ) ; [ C o s( v-u )-c o s( v-u ) ] ( %O 1 )[ ] [ Vc o s( u v )uc o s( u v ) ] ( %I 2 )d e p e n d e( [ F ,G ] ,[ y ,z ] ) ; ( %O 2 )[ F( y ,z ) ,G( y ,z ) ] ( %I 3 )j a c o b i a n( [ F ,G ] ,[ y ,z ] ) ; [ D Fd F ] [ ] [ D yd z ] ( %O 3 )[ ] [ D Gd G ] [ ] [ D yd z ]
F u n c i n :k r o n e c k e r _ p r o d u c t( < A > , ) D e v u e l v ae lp r o d u c t oK r o n e c k e rd el a sm a t r i c e s< A >y .
F u n c i n :l i s t p( < e > , ) F u n c i n :l i s t p( < e > ) D a d ou na r g u m e n t oo p c i o n a l ,v u e l v a` t r u e' s i< e >e su nM a x i m a l i s t aye v a l aa` t r u e' p a r ac a d ae l e m e n t od el al i s t a . C u n d o ` L i s t p' n os ed ae la r g u m e n t oo p c i o n a l ,d e v u e l v e `t r u e 's i< e > e su n al i s t ad eM a x i m a .E nt o d o sl o sd e m sc a s o s ,v o l v e r` f a l s e' .
F u n c i n :l o c a t e _ m a t r i x _ e n t r y( < M > ,< r _ 1 > ,< c _ 1 > ,< r _ 2 > ,< c _ 2 > ,< f > ,< r e l > ) E lp r i m e ra r g u m e n t od e b es e ru n am a t r i z ,l o sa r g u m e n t o s< r _ 1 >t r a v s < c _ 2 >d e t e r m i n a ru n as u b m a t r i zd e< M >q u ec o n s i s t ee nf i l a s< r _ 1 > at r a v s< r _ 2 >yc o l u m n a s< c _ 1 >t r a v s< c _ 2 > . B u s q u eu n ae n t r a d ae ne l< M >s u b m a t r i zq u es a t i s f a c ea l g u n ap r o p i e d a d . T r e sc a s o s :
517/633
28/08/13

( 1 )` < r e l >=' b o o l 'y< f >u np r e d i c a d o : B u s q u ee nl as u b m a t r i zd ei z q u i e r d aad e r e c h ayd ea r r i b aaa b a j o ,y d e v o l v e re l n d i c ed el ap r i m e r ae n t r a d aq u es a t i s f a c ee lp r e d i c a d o < f > .S in oh a ye n t r a d ad el am a t r i zs a t i s f a c e< f > ,v o l v e r` f a l s e' . ( 2 )` < r e l >=' m a x 'y< f >d ev a l o rr e a l : B u s q u ee nl as u b m a t r i zb u s c a n d oe le l e m e n t oq u em a x i m i z a< f > . V o l v e ra l n d i c ed eu n ae n t r a d ad em a x i m i z a c i n . ( 3 )` < r e l >=' m i n 'y< f >d ev a l o rr e a l : B u s q u ee nl as u b m a t r i zb u s c a n d oe le l e m e n t oq u em i n i m i c e< f > . V o l v e ra l n d i c ed eu n ae n t r a d ad em i n i m i z a r .
F u n c i n :l u _ b a c k s u b( < M > , ) C u a n d o` < M >=l u _ f a c t o r( < A > ,< f i e l d > )' ,yl u e g o 'l u _ b a c k s u b( < M > , )' r e s u e l v ee ls i s t e m al i n e a l` < A >< x >= ' .
F u n c i n :l u _ f a c t o r( < M > ,< f i e l d > ) D e v u e l v eu n al i s t ad el af o r m a` [ < L U > , ,< f l d > ]' ,o `[ < L U > , ,< f l d > ,< l o w e r c n d > ]' ,d o n d e ( 1 )E l< L U >m a t r i zc o n t i e n el af a c t o r i z a c i nd e< M >e nu ne m p a q u e t a d o f o r m u l a r i o .F o r m aE m b a l a d os i g n i f i c at r e sc o s a s :E np r i m e rl u g a r ,l a sf i l a sd e< L U > e s t np e r m u t a d a sd ea c u e r d oc o nl al i s t a .S i ,p o re j e m p l o , l al i s t a` [ 3 , 2 , 1 ]' ,l ap r i m e r af i l aa c t u a ld e l< L U > f a c t o r i z a c i ne sl at e r c e r af i l ad el am a t r i zd e< L U > .E ns e g u n d ol u g a r , e lf a c t o rt r i a n g u l a ri n f e r i o rd eme sl ap a r t et r i a n g u l a ri n f e r i o r d e< L U >c o nl o se l e m e n t o sd el ad i a g o n a ls u s t i t u i d o sp o rl o sg r a n d e s . E nt e r c e rl u g a r ,e lf a c t o rt r i a n g u l a rs u p e r i o rd el ap a r t es u p e r i o re s< M > p a r t et r i a n g u l a rd e< L U > . ( 2 )C u a n d oe lc a m p oe s t b i e nf l o a t f i e l d` ' o `c o m p l e x f i e l d ' ,l a n m e r o s< l o w e r c n d >ys o nl m i t e si n f e r i o rys u p e r i o rp a r a l an o r m ai n f i n i t as e r i ed ec o n d i c i o n e s< M > .P a r at o d o sl o sc a m p o s ,l a n m e r od ec o n d i c i nn op u e d es e re s t i m a d o ,p o r q u ee s o sc a m p o s , ` L u _ f a c t o r' d e v u e l v eu n al i s t ad ed o sa r t c u l o .T a n t oe li n f e r i o rys u p e r i o r l m i t e sp u e d e nd i f e r i rd es u sv e r d a d e r o sv a l o r e sa r b i t r a r i a m e n t eg r a n d e s f a c t o r e s .( V a s et a m b i n' m a t _ c o n d ' . ) E l< M >a r g u m e n t od e b es e ru n am a t r i zc u a d r a d a . E l< f l d >a r g u m e n t oo p c i o n a ld e b es e ru ns m b o l oq u ed e t e r m i n au n a a n i l l ood ec a m p o .L o sc a m p o syl o sa n i l l o sp r e d e f i n i d o ss o n : ( A )` g e n e r a l r i n g' -e la n i l l od el a se x p r e s i o n e sd eM a x i m a , ( B )` f l o a t f i e l d "-e lc a m p od el o sn m e r o sd ep u n t of l o t a n t ed el a t i p od o u b l e , ( C )` c o m p l e x f i e l d' -e lc a m p od ep u n t of l o t a n t ec o m p l e j o n m e r o sd e lt i p od o b l e , ( D )` c r e r i n g' -e la n i l l od eM a x i m aC R Ee x p r e s i o n e s , ( E )` r a t i o n a l f i e l d "-e lc u e r p od el o sn m e r o sr a c i o n a l e s , ( F )` r u n n i n g e r r o r' -s e g u i m i e n t od e lr e d o n d e od ep u n t of l o t a n t et o d o e r r o r e s , ( G )` n o n c o m m u t i n g r i n g' -e la n i l l od el a se x p r e s i o n e sd eM a x i m ad o n d e m u l t i p l i c a c i ne sl an o c o n m u t a t i v a o p e r a d o rp u n t o . C u a n d oe lc a m p oe sf l o a t f i e l d` ' , `c o m p l e x f i e l d ' ,o` r u n n i n g e r r o r' , e la l g o r i t m ou t i l i z ap i v o t e op a r c i a l ,p o r q u et o d o sl o sd e m sc a m p o s ,f i l a s s l os ec o n m u t a nc u a n d os e an e c e s a r i op a r ae v i t a ru np i v o t ec e r o . F l o t a n t es u m aa r i t m t i c an oe sa s o c i a t i v a ,p o rl oq u ee l s i g n i f i c a d od e" c a m p o "s ed i f e r e n c i ad el ad e f i n i c i nm a t e m t i c a . U nm i e m b r od e lc a m p o` r u n n i n g e r r o r' e su n al i s t ad ed o sm i e m b r o sM a x i m a d el af o r m a` [ x ,n ]' ,d o n d e< x >e su nn m e r od ep u n t of l o t a n t ey 'n' e su nn m e r oe n t e r o .L ad i f e r e n c i ar e l a t i v ae n t r ee lv a l o r' t r u e ' d e' x 'y' x 'e sa p r o x i m a d a m e n t ed e l i m i t a d ap o re l p s i l o nd el am q u i n a v e c e s` n' .E le r r o rd ee j e c u c i nv i n c u l a d oc a ea l g u n o st r m i n o sd el a o r d e n a rl ap l a z ad e l p s i l o nd el am q u i n a . N oh a yn i n g u n ai n t e r f a zd eu s u a r i op a r al ad e f i n i c i nd eu nn u e v oc a m p o .U nu s u a r i oq u e e s t f a m i l i a r i z a d oc o nL i s pc o m nd e b es e rc a p a zd ed e f i n i ru nn u e v oc a m p o . P a r ae l l o ,e lu s u a r i od e b ed e f i n i rf u n c i o n e sp a r al aa r i t m t i c a o p e r a c i o n e syf u n c i o n e sp a r al ac o n v e r s i nd e lc a m p o r e p r e s e n t a c i nd eM a x i m ayv i c e v e r s a .A d e m s ,p o ro r d e n c a m p o s( d o n d es eu t i l i z a r np i v o t e op a r c i a l ) ,e lu s u a r i od e b ed e f i n i r f u n c i o n e sp a r al am a g n i t u dyp a r ac o m p a r a rm i e m b r o sd ec a m p o . D e s p u sd eq u et o d ol oq u eq u e d ae sd e f i n i ru n ae s t r u c t u r aC o m m o nL i s p ` M R i n g' .E l` m r i n g' f i l et i e n em u c h o se j e m p l o s .
518/633
28/08/13

P a r ac a l c u l a rl af a c t o r i z a c i n ,l ap r i m e r at a r e ac o n s i s t ee nc o n v e r t i rc a d a e n t r a d ad el am a t r i zau nm i e m b r od e lc a m p oi n d i c a d o .C u a n d ol ac o n v e r s i n n oe sp o s i b l e ,s ed e t i e n el af a c t o r i z a c i nc o nu nm e n s a j ed ee r r o r . L o sm i e m b r o sd e lc a m p on ot i e n e nq u es e re x p r e s i o n e sd eM a x i m a .L o sm i e m b r o sd el a ` C o m p l e x f i e l d' ,p o re j e m p l o ,s o nC o m m o nL i s pn m e r o sc o m p l e j o s .A s d e s p u sd ec a l c u l a rl af a c t o r i z a c i n ,l a se n t r a d a sd el am a t r i zd e b e ne s t a r c o n v e r t i d oe ne x p r e s i o n e sd eM a x i m a . V e rt a m b i n` g e t _ l u _ f a c t o r s . E j e m p l o s : ( %I 1 )w[ i ,j ] :=a l e a t o r i o( 1 , 0 )+ %i*a la z a r( 1 , 0 ) ; ( %O 1 )w :=r a n d o m( .1 )+ %ia z a r( 1 . ) i ,j ( %I 2 )s h o w t i m e :t r u e$ L ae v a l u a c i nt o m 0 , 0 0s e g u n d o s( 0 , 0 0t r a n s c u r r i d o ) ( %I 3 )M :g e n m a t r i x( w ,1 0 0 ,1 0 0 )$ E v a l u a c i nt o m 7 , 4 0s e g u n d o s( 8 , 2 3t r a n s c u r r i d o ) ( %I 4 )l u _ f a c t o r( M ,c o m p l e x f i e l d )$ L ae v a l u a c i nt o m 2 8 , 7 1s e g u n d o s( 3 5 , 0 0t r a n s c u r r i d o ) ( %I 5 )l u _ f a c t o r( M ,g e n e r a l r i n g )$ L ae v a l u a c i ns el l e v 1 0 9 , 2 4s e g u n d o s( 1 5 2 , 1 0t r a n s c u r r i d o ) ( %I 6 )s h o w t i m e :t r u e$ ( %I 7 )M :m a t r i z( [ 1-z ,3 ] ,[ 3 ,8-z ] ) ; [ 1-z3 ] ( %O 7 )[ ] [ 38-z ] ( %I 8 )l u _ f a c t o r( M ,g e n e r a l r i n g ) ; [ 1-z3 ] [ ] ( %O 8 )[ [ 39 ] ,[ 1 ,2 ] ,g e n e r a l r i n g ] [ Z-+-8 ] [ 1-z1-z ] ( %I 9 )g e t _ l u _ f a c t o r s( % ) ; [ 10 ][ 1-z3 ] [ 10 ][ ][ ] ( %O 9 )[ [ ] ,[ 3 ] ,[ 9 ] ] [ 01 ][ -1 ][ 0-z-+8 ] [ 1-z ][ 1-z ] ( %I 1 0 ) %[ 1 ] .%[ 2 ] .%[ 3 ] ; [ 1-z3 ] ( %O 1 0 )[ ] [ 38-z ]
F u n c i n :m a t _ c o n d( < M > ,1 ) F u n c i n :m a t _ c o n d( < M > ,i n f ) D e v u e l v ae l n o r m am a t r i c i a lc o n d i c i nn m e r od e l< m >m a t r i z . L o sv a l o r e sp e r m i t i d o sp a r as o n1y .E s t af u n c i nu t i l i z a l af a c t o r i z a c i nL Up a r ai n v e r t i rl a< m >m a t r i z .P o rl ot a n t oe lf u n c i o n a m i e n t o ` t i e m p op a r am a t _ c o n d' e sp r o p o r c i o n a la lc u b od el am a t r i z t a m a o ;` l u _ f a c t o r' d e t e r m i n al m i t e si n f e r i o rys u p e r i o rp a r ae l n o r m ai n f i n i t an m e r od ec o n d i c i ne nu nt i e m p op r o p o r c i o n a la lc u a d r a d o d e lt a m a od el am a t r i z .
F u n c i n :m a t _ n o r m( < M > ,1 ) F u n c i n :m a t _ n o r m( < M > ,i n f ) F u n c i n :m a t _ n o r m( < M > ,f r o b e n i u s ) V u e l v al am a t r i z n o r m ad e l< M >m a t r i z .L o sv a l o r e sp e r m i t i d o s p a r as o n1 ,' i n f 'y` F r o b e n i u s( l am a t r i zn o r m ad eF r o b e n i u s ) . E l< M >m a t r i zd e b es e ru n am a t r i zn ob l o q u e a d o .
F u n c i n :m a t r i x p( < e > , ) F u n c i n :m a t r i x p( < e > ) D a d ou na r g u m e n t oo p c i o n a l ,v u e l v a` t r u e' s i< e >e su n am a t r i z ye v a l ac o m o` t r u e' p a r ac a d ae l e m e n t od el am a t r i z . C u n d o ` M a t r i x p' n os el ed au na r g u m e n t oo p c i o n a l ,d e v u e l v e `t r u e 's i' e ' e su n am a t r i z .E nt o d o sl o sd e m sc a s o s ,v o l v e r` f a l s e' . C o n s u l t et a m b i n` b l o c k m a t r i x p'
F u n c i n :m a t r i x _ s i z e( < M > ) D e v u e l v eu n al i s t ad ed o sm i e m b r o sq u el ed ae ln m e r od ef i l a sy c o l u m n a s ,r e s p e c t i v a m e n t e ,d e l< M >m a t r i z .
F u n c i n :m a t _ f u l l u n b l o c k e r( < M > ) S i< M >e su n am a t r i zd eb l o q u e ,d e s b l o q u e a rl am a t r i zat o d o sl o sn i v e l e s .S i < M >E su n am a t r i z ,< M >r e t o r n o ,d el oc o n t r a r i o ,i n d i c a ru ne r r o r .
519/633
28/08/13
F u n c i n :m a t _ t r a c e( < M > ) V u e l v al at r a z ad el am a t r i z< M > .S i< M >n oe su n am a t r i z ,d e v u e l v e u n af o r m an o m i n a l .C u a n d o< M >e su n am a t r i zd eb l o q u e s ,` m a t _ t r a c ed e v u e l v e( M )' e lm i s m ov a l o rq u eh a c ee l` m a t _ t r a c e( m a t _ u n b l o c k e r( m ) )' .
F u n c i n :m a t _ u n b l o c k e r( < M > ) S i< M >e su n am a t r i zd eb l o q u e s ,d e s b l o q u e a r< M >u nn i v e l .S ie su n< M > m a t r i z ,` m a t _ u n b l o c k e r( M )' d e v u e l v e< M > ,d el oc o n t r a r i o ,l as e a ld eu n a d ee r r o r . A s ,s ic a d ae n t r a d ad e< M >e sl am a t r i z ,` m a t _ u n b l o c k e r( M )' d e v u e l v eu n m a t r i zn ob l o q u e a d o ,p e r os ic a d ae n t r a d ad e< M >e su n am a t r i zd eb l o q u e , ` M a t _ u n b l o c k e r( M )d e v u e l v eu n am a t r i zd eb l o q u ec o nu nn i v e li n f e r i o rd e b l o q u e o . S iu t i l i z am a t r i c e sd eb l o q u e s ,m sp r o b a b l ee sq u ed e s e ae s t a b l e c e r ` M a t r i x _ e l e m e n t _ m u l t' a ' " ." ' Y `m a t r i x _ e l e m e n t _ t r a n s p o s e" p a r a ` ' I n c o r p o r a r ' .C o n s u l t et a m b i n` m a t _ f u l l u n b l o c k e r' . E j e m p l o : ( %I 1 )A :m a t r i z( [ 1 ,2 ] ,[ 3 ,4 ] ) ; [ 12 ] ( %O 1 )[ ] [ 34 ] ( %I 2 )B :m a t r i z( [ 7 ,8 ] ,[ 9 ,1 0 ] ) ; [ 78 ] ( %O 2 )[ ] [ 91 0 ] ( %I 3 )m a t r i z( [ A ,B ] ) ; [ [ 12 ][ 7 ,8 ] ] ( %O 3 )[ [ ][ ] ] [ [ 34 ][ 91 0 ] ] ( %I 4 )m a t _ u n b l o c k e r( % ) ; [ 1278 ] ( %O 4 )[ ] [ 3491 0 ]
F u n c i n :e s p a c i on u l o( < M > ) S i< M >e su n am a t r i z ,d e v u e l v e` t r a m o( v _ 1 ,. . . ,v _ n )' ,d o n d ee lc o n j u n t o ` { V _ 1 ,. . . ,v _ n }' e su n ab a s ep a r ae le s p a c i on u l od e< M > .E ll a p s od e e lc o n j u n t ov a c oe s' { 0 } ' .P o rl ot a n t o ,c u a n d oe le s p a c i on u l ot i e n eu ns o l o m i e m b r o ,v o l v e r` l a p s o( )' .
F u n c i n :n u l i d a d( < M > ) S i< M >e su n am a t r i z ,d e v u e l v el ad i m e n s i nd e le s p a c i on u l od e< M > .
F u n c i n :o r t h o g o n a l _ c o m p l e m e n t( < v _ 1 > ,. . . ,< v _ n > ) V o l v e r` t r a m o( u _ 1 ,. . . ,u _ m )' ,d o n d ee lc o n j u n t o `{ u _ 1 ,. . . ,u _ m } 'e su n b a s ep a r ae lc o m p l e m e n t oo r t o g o n a ld e lc o n j u n t o` ( v _ 1 ,. . . ,v _ n )' . C a d a< v _ 1 >v e c t o rt r a v s< v _ n >d e b es e ru nv e c t o rc o l u m n a .
F u n c i n :p o l y n o m i a l p( ,< L > ,< c o e f f p > ,< e x p o n p > ) F u n c i n :p o l y n o m i a l p( ,< L > ,< c o e f f p > ) F u n c i n :p o l y n o m i a l p( ,< L > ) V o l v e r` t r u e' s i e su np o l i n o m i oe nl a sv a r i a b l e sd el al i s t a < L > .E l< c o e f f p >p r e d i c a d od e b ee v a l u a r s ea` t r u e' p a r ac a d a c o e f i c i e n t eye lp r e d i c a d o< e x p o n p >d e b e ne v a l u a ra` t r u e' p a r at o d o sl o se x p o n e n t e sd el a sv a r i a b l e se n< L > .S id e s e au t i l i z a ru n v a l o rn op r e d e t e r m i n a d op a r a< e x p o n p > ,d e b ep r o p o r c i o n a r< c o e f f p >c o nu n v a l o r ,i n c l u s os id e s e au t i l i z a re lv a l o rp r e d e t e r m i n a d op a r a< c o e f f p > . E l` p o l y n o m i a l pc o m a n d o s( ,< L > ,< c o e f f p > )' e se q u i v a l e n t ea ` P o l y n o m i a l p( ,< L > ,< c o e f f p > ,' n o n n e g i n t e g e r p ) "ye l c o m a n d o` p o l y n o m i a l p( ,< L > )' e se q u i v a l e n t ea 'p o l y n o m i a l p ( ,L< , >' c o n s t a n t p , 'n o n n e g i n t e g e r p ) . N oe sn e c e s a r i oq u es ea m p l ee lp o l i n o m i o : ( %I 1 )p o l y n o m i a l p( ( x+1 )*( x+2 ) ,[ x ] ) ; ( %O 1 )t r u e ( %I 2 )p o l y n o m i a l p( ( x+1 )*( x+2 )û n a ,[ x ] ) ; ( %O 2 )f a l s e U ne j e m p l oc o nv a l o r e sn op r e d e t e r m i n a d o sp a r ac o e f f pye x p o n p :
520/633
28/08/13

( %I 1 )p o l y n o m i a l p( ( x+1 )*( x+2 )^( 3 / 2 ) ,[ x ] ,n u m b e r p ,n u m b e r p ) ; ( %O 1 )t r u e ( %I 2 )p o l y n o m i a l p( ( x^( 1 / 2 )+1 )*( x+2 )^( 3 / 2 ) ,[ x ] ,n u m b e r p , n u m b e r p ) ; ( %O 2 )t r u e P o l i n o m i o sc o nd o sv a r i a b l e s : ( %I 1 )p o l y n o m i a l p( x^2+5*x*y+y^2 ,[ x ] ) ; ( %O 1 )f a l s e ( %I 2 )p o l y n o m i a l p( x^2+5*x*y+y^2 ,[ x ,y ] ) ; ( %O 2 )t r u e
F u n c i n :p o l y t o c o m p a n i o n( ,< x > ) S i e su np o l i n o m i oe n< x > ,d e v u e l v al am a t r i zc o m p a e r ad e . P a r au n ap o l i n o m i om n i c od eg r a d o< n > ,t e n e m o s` =( 1 )^< n > f u n c i nc h a r p o l y( p o l y t o c o m p a n i o n( ,< x > ) )' . C u a n d on oe su np o l i n o m i oe n< x > ,s e a l a ru ne r r o r .
F u n c i n :p t r i a n g u l a r i z e( < M > ,< v > ) S i< M >e su n am a t r i zc o nc a d ae n t r a d ad eu np o l i n o m i oe n< v > ,v u e l v aa < M 2 >m a t r i zd et a lm a n e r aq u e ( 1 )< M 2 >e st r i a n g u l a rs u p e r i o r , ( 2 )` < M 2 >=< E _ n >. . .< E _ 1 >< M >' ,D o n d e< E _ 1 >t r a v s< E _ n >s o n m a t r i c e se l e m e n t a l e sc u y o se l e m e n t o ss o np o l i n o m i o se n< v > , ( 3 )` |d e t( < M > )|=|d e t( < M 2 > )|' , N o t a :E s t af u n c i nn oc o m p r u e b aq u ec a d ae n t r a d ae su np o l i n o m i o e n< v > .
F u n c i n :r o w o p( < M > , ,< j > ,< t h e t a > ) S i< M >e su n am a t r i z ,d e v u e l v el am a t r i zq u er e s u l t ad eh a c e rl a o p e r a c i nd ef i l a` R _ i< -R _ i-t h e t a*R _ j' .S i< M >n ot i e n eu n f i l ao< j > ,s e a l a nu ne r r o r .
F u n c i n :r a n g o( < M > ) D e v u e l v ae lr a n g od eq u e< M >m a t r i z .E lr a n g oe sl ad i m e n s i nd e l e le s p a c i od el ac o l u m n a .E j e m p l o : ( %I 1 )r a n g o( m a t r i z( [ 1 , 2 ] ,[ 2 , 4 ] ) ) ; ( %O 1 )1 ( %I 2 )r a n g o( m a t r i z( [ 1 ,b ] ,[ c ,d ] ) ) ; S a l v e d a d :{ d-b c#0 } ( %O 2 )2
F u n c i n :r o w S w a p( < M > , ,< j > ) S i< M >e su n am a t r i z ,c a n j ef i l a sy< j > .S i< M >n ot i e n eu n f i l ao< j > ,s e a l a nu ne r r o r .
F u n c i n :t o e p l i t z( < c o l > ) F u n c i n :t o e p l i t z( < c o l > ,< r o w > ) D e v u e l v eu n am a t r i zd eT o e p l i t z< T > .L ap r i m e r ac o l u m n ad el ap r i m e r a< T >e s < c o l > ,ae x c e p c i nd el ap r i m e r ae n t r a d a ,l ap r i m e r af i l ad e< T >e s< r o w > . E lv a l o rp r e d e t e r m i n a d op a r a< r o w >e sc o m p l e j oc o n j u g a d od e< c o l > .E j e m p l o : ( %I 1 )t o e p l i t z( [ 1 , 2 , 3 ] ,[ x ,y ,z ] ) ; [ 1y z ] [ ] ( %O 1 )[ 21y ] [ ] [ 321 ] ( %I 2 )t o e p l i t z( [ 1 , 1+ %i ] ) ; [ 11%I ] ( %O 2 )[ ] [ %I+11 ]
F u n c i n :v a n d e r m o n d e _ m a t r i x( [ < x _ 1 > ,. . . ,< x _ n > ] ) D e v u e l v eu n am a t r i z< n >p o r< n >c u y af i l a t he s` [ 1 ,< x _ i > ,
521/633
28/08/13
< x _ i >^2 ,. . .< x _ i >^( < n >1 ) ] .
F u n c i n :z e r o f o r( < M > ) F u n c i n :z e r o f o r( < M > ,< f l d > ) D e v u e l v eu n am a t r i zc e r oq u et i e n el am i s m af o r m aq u el a< M >m a t r i z . C a d ae n t r a d ad el am a t r i zc e r oe sl ai d e n t i d a da d i t i v ad el a < f l d >c a m p o ,e lv a l o rp r e d e t e r m i n a d op a r a< f l d >e s< g e n e r a l r i n g > . L ap r i m e r a< M >a r g u m e n t od e b es e ru n am a t r i zc u a d r a d aod eu nn o m a t r i z . C u a n d o< M >e su n am a t r i z ,c a d ae n t r a d ad e< M >p u e d es e ru n am a t r i zc u a d r a d aa s < M >p u e d es e ru n am a t r i zd eM a x i m ab l o q u e a d o .L am a t r i zp u e d es e r b l o q u e a d oac u a l q u i e rp r o f u n d i d a d( f i n i t o ) . C o n s u l t et a m b i n` i d e n t f o r'
F u n c i n :z e r o m a t r i x p( < M > ) S i< M >n oe su n am a t r i zd eb l o q u e s ,d e v u e l v e` t r u e' s i ì s( e q u a l( < e > , 0 ) )' e sv e r d a d e r ap a r ac a d ae l e m e n t od el a< e >< M >m a t r i z .S ie su n< M > m a t r i zp o rb l o q u e s ,d e v u e l v e` t r u e' s i `z e r o m a t r i x p 's ee v a l ac o m o` t r u e' p a r ac a d ae l e m e n t od e< e > .
64 lsquares
I n t r o d u c c i nal s q u a r e s F u n c i o n e syv a r i a b l e sp a r al s q u a r e s
64.1 Introduccin a lsquares

` L s q u a r e s' e su n ac o l e c c i nd ef u n c i o n e sp a r ai m p l e m e n t a re lm t o d od e m n i m o sc u a d r a d o sp a r ae s t i m a rl o sp a r m e t r o sd eu nm o d e l oap a r t i rd el o sd a t o sn u m r i c o s .
64.2 Funciones y variables para lsquares

F u n c i n :l s q u a r e s _ e s t i m a t e s( < D > ,< x >< e > ,< a > ) F u n c i n :l s q u a r e s _ e s t i m a t e s( < D > ,< x >< e > ,< a > ,i n i c i a l=< L > ,t o l=< t > ) E s t i m a rp a r m e t r o s< A >p a r aa d a p t a r s em e j o ral a< e >e c u a c i ne ne l V a r i a b l e s< x >y< a >a l< D >d a t o s ,s e g nl od e t e r m i n a d op o re lm t o d o d el o sm n i m o sc u a d r a d o s .` L s q u a r e s _ e s t i m a t e s "b u s c ap r i m e r ou n ae x a c t a s o l u c i n ,ys ie s on of u n c i o n a ,e n t o n c e sb u s c au n as o l u c i na p r o x i m a d a . E lv a l o rd er e t o r n oe su n al i s t ad el i s t a sd ee c u a c i o n e sd el af o r m a` [ a= . . . ,B=. . . ,c=. . . ] .C a d ae l e m e n t od el al i s t ae su n ac l a r a , m n i m oe q u i v a l e n t ea le r r o rm e d i oc u a d r a d o . E l< D >d ed a t o sd e b es e ru n am a t r i z .C a d af i l ae su nd a t o( q u ep u e d e s e rl l a m a d ou n` r e g i s t r o' o `c a s e 'e na l g u n o sc o n t e x t o s ) ,yc a d ac o l u m n a c o n t i e n el o sv a l o r e sd eu n av a r i a b l eat r a v sd et o d o sl o sd a t o s .L al i s t ad e V a r i a b l e s< x >d au nn o m b r ep a r ac a d ac o l u m n ad e< D > ,h a s t ae l c o l u m n a sq u en oe n t r a ne ne la n l i s i s .L al i s t ad ep a r m e t r o s < a >d al o sn o m b r e sd el o sp a r m e t r o sp a r al o sc u a l e sl a se s t i m a c i o n e ss o n b u s c a d o .E l< e >e c u a c i ne su n ae x p r e s i noe c u a c i nd el a V a r i a b l e s< x >y< a > ,s i< e >n oe su n ae c u a c i n ,s et r a t a l am i s m ac o m o` < e >=0' . O t r o sa r g u m e n t o sa` l s q u a r e s _ e s t i m a t e s' s ee s p e c i f i c a nc o m o e c u a c i o n e sys et r a n s m i t e n t e g r a m e n t eal af u n c i n` l b f g s " ,q u ee s l l a m a d op a r ae n c o n t r a re s t i m a c i o n e sp o ru nm t o d on u m r i c oc u a n d ou n ae x a c t a r e s u l t a d on os ee n c u e n t r a . S is ee n c u e n t r aa l g u n as o l u c i ne x a c t a( at r a v sd e' r e s o l v e r ' ) ,< D >l o sd a t o s p u e d ec o n t e n e rv a l o r e sn on u m r i c o s .S i ne m b a r g o ,s in oh a ys o l u c i ne x a c t ae s e n c u e n t r a ,c a d ae l e m e n t od e< D >d e b et e n e ru nv a l o rn u m r i c o .E s t e i n c l u y ec o n s t a n t e sn u m r i c a st a l e sc o m o %p i` ' y ` %E ' ,a s c o m o n m e r o sl i t e r a l e s( e n t e r o s ,r a c i o n a l e s ,r e a l e so r d i n a r i o sy b i g f l o a t s ) .C l c u l o sn u m r i c o ss er e a l i z a nc o nc o r r i e n t e a r i t m t i c ad ep u n t of l o t a n t e ,p o rl oq u et o d o sl o sd e m st i p o sd en m e r o ss o n c o n v e r t i d oe nc a r r o z a so r d i n a r i a sp a r al o sc l c u l o s . C a r g a s` c a r g a( l s q u a r e s )' e s t af u n c i n . C o n s u l t et a m b i n` l s q u a r e s _ e s t i m a t e s _ e x a c t' , L s q u a r e s _ e s t i m a t e s _ a p p r o x i m a t e` ' , L s q u a r e s _ m s e` ' , `l s q u a r e s _ r e s i d u a l s 'y` l s q u a r e s _ r e s i d u a l _ m s e' . E j e m p l o s : U np r o b l e m ap a r ae lq u es ee n c u e n t r au n as o l u c i ne x a c t a . ( %I 1 )l o a d( l s q u a r e s )$ ( %I 2 )M :l am a t r i z(
522/633
28/08/13

[ 1 , 1 , 1 ] ,[ 3 / 2 ,1 , 2 ] ,[ 9 / 4 ,2 , 1 ] ,[ 3 , 2 , 2 ] ,[ 2 , 2 , 1 ] ) ; [ 111 ] [ ] [ 3 ] [ -12 ] [ 2 ] [ ] ( %O 2 )[ 9 ] [ -21 ] [ 4 ] [ ] [ 322 ] [ ] [ 221 ] ( %I 3 )( l s q u a r e s _ e s t i m a t e s M ,[ z ,x ,y ] ,( z+D )^2=A*B*x+y+C ,[ A ,B ,C ,D ] ) ; 5 92 71 0 9 2 11 0 7 ( %O 3 )[ [ A=,-=B ,C=,D=] ] 1 61 61 0 2 43 2 U np r o b l e m ap a r ae lq u en os ee n c u e n t r au n as o l u c i ne x a c t a ,p o rl oq u e ' E s t a c i o n e s` l s q u a r e s _ e s t i m a t e saa p r o x i m a c i nn u m r i c a . ( %I 1 )l o a d( l s q u a r e s )$ ( %I 2 )M :m a t r i z( [ 1 ,1 ] ,[ 2 ,7 / 4 ] ,[ 3 ,1 1 / 4 ] ,[ 4 ,1 3 / 4 ] ) ; [ 11 ] [ ] [ 7 ] [ 2] [ 4 ] [ ] ( %O 2 )[ 1 1 ] [ 3] [ 4 ] [ ] [ 1 3 ] [ 4] [ 4 ] ( %I 3 )( l s q u a r e s _ e s t i m a t e s M ,[ x ,y ] ,y=a*x^b+c ,[ a ,b ,c ] ,i n i c i a l=[ 3 , 3 , 3 ] ,i p r i n t=[ 1 , 0 ] ) ; ( %O 3 )[ [ a=1 . 3 8 7 3 6 5 8 7 4 9 2 0 6 3 7 ,b=0 . 7 1 1 0 9 5 6 6 3 9 5 9 3 7 6 7 , c=-, 4 1 4 2 7 0 5 6 2 2 4 3 9 1 0 5 ] ]
F u n c i n :l s q u a r e s _ e s t i m a t e s _ e x a c t( < M S E > ,< a > ) E s t i m a rp a r m e t r o s< A >p a r am i n i m i z a re l< M S E >e r r o rc u a d r t i c om e d i o , m e d i a n t el ac o n s t r u c c i nd eu ns i s t e m ad ee c u a c i o n e sye li n t e n t od es o l u c i o n a r l o s s i m b l i c a m e n t eat r a v sd e' r e s o l v e r ' .E le r r o rc u a d r t i c om e d i oe su n ae x p r e s i n e ne l< a >p a r m e t r o s ,t a l e sc o m oe ld e v u e l t op o r` l s q u a r e s _ m s e' . E lv a l o rd er e t o r n oe su n al i s t ad el i s t a sd ee c u a c i o n e sd el af o r m a` [ a= . . . ,B=. . . ,c=. . . ] .E lv a l o rd er e t o r n op u e d ec o n t e n e rc e r o ,u n o , od o som se l e m e n t o s .S is ed e v u e l v e nd o som se l e m e n t o s , c a d au n or e p r e s e n t au nc l a r o ,u nm n i m oe q u i v a l e n t eal am e d i ad ec u a d r a d o s d ee r r o r . V e rt a m b i n` l s q u a r e s _ e s t i m a t e s' , `l s q u a r e s _ e s t i m a t e s _ a p p r o x i m a t e ' , L s q u a r e s _ m s e` ' , `l s q u a r e s _ r e s i d u a l s 'y` l s q u a r e s _ r e s i d u a l _ m s e' . E j e m p l o : ( %I 1 )l o a d( l s q u a r e s )$ ( %I 2 )M :l am a t r i z( [ 1 , 1 , 1 ] ,[ 3 / 2 ,1 , 2 ] ,[ 9 / 4 ,2 , 1 ] ,[ 3 , 2 , 2 ] ,[ 2 , 2 , 1 ] ) ; [ 111 ] [ ] [ 3 ] [ -12 ] [ 2 ] [ ] ( %O 2 )[ 9 ] [ -21 ] [ 4 ] [ ] [ 322 ] [ ] [ 221 ] ( %I 3 )m s e :l s q u a r e s _ m s e( M ,[ z ,x ,y ] ,( z+D )^2=A*B*x+y+C ) ; 5 = = = = \22 >( ( D+M )-C-M B-M A ) /I ,i1 ,i3 ,2 = = = = i=1 ( %O 3 )5 ( %I 4 )l s q u a r e s _ e s t i m a t e s _ e x a c t( m s e ,[ A ,B ,C ,D ] ) ; 5 92 71 0 9 2 11 0 7 ( %O 4 )[ [ A=,-=B ,C=,D=] ] 1 61 61 0 2 43 2
523/633
28/08/13

F u n c i n :l s q u a r e s _ e s t i m a t e s _ a p p r o x i m a t e( < M S E > ,< a >=i n i c i a l e s < L > ,T o l=< t > ) E s t i m a rp a r m e t r o s< A >p a r am i n i m i z a re l< M S E >e r r o rc u a d r t i c om e d i o , at r a v sd el af u n c i nd el am i n i m i z a c i nn u m r i c a` l b f g s' .E lc u a d r a d om e d i o e r r o re su n ae x p r e s i ne nl a< a >p a r m e t r o s ,c o m ol aq u es e d e v u e l t op o r` l s q u a r e s _ m s e' . L as o l u c i nd e v u e l t op o r` l s q u a r e s _ e s t i m a t e s _ a p p r o x i m a t e' e su n m n i m ol o c a l( q u i z sg l o b a l )d e le r r o rc u a d r t i c om e d i o .P a r a c o h e r e n c i ac o n` l s q u a r e s _ e s t i m a t e s _ e x a c t' ,e lv a l o rd er e t o r n oe su n l i s t aa n i d a d aq u ec o n t i e n eu ne l e m e n t o ,as a b e r ,u n al i s t ad ee c u a c i o n e s d el af o r m a` [ a=. . . ,b=. . . ,c=. . . ] . O t r o sa r g u m e n t o sa` l s q u a r e s _ e s t i m a t e s _ a p p r o x i m a t e' s o n e s p e c i f i c a d oc o m oe c u a c i o n e sys et r a n s m i t e n t e g r a m e n t eal af u n c i n ` L b f g s' . < M S E >D e b ee v a l u a r s ec o m ou nn m e r oc u a n d os ea s i g n a nl o sp a r m e t r o s v a l o r e sn u m r i c o s .E s t or e q u i e r eq u el o sd a t o sd el o sq u e< M S E >e r a c o n s t r u i d ac o m p r e n d e ns l oc o n s t a n t e sn u m r i c a st a l e sc o m o %p i` ' y ` %E ' yn m e r o sl i t e r a l e s( e n t e r o s ,r a c i o n a l e s ,r e a l e so r d i n a r i o sy b i g f l o a t s ) .C l c u l o sn u m r i c o ss er e a l i z a nc o nc o r r i e n t e a r i t m t i c ad ep u n t of l o t a n t e ,p o rl oq u et o d o sl o sd e m st i p o sd en m e r o ss o n c o n v e r t i d oe nc a r r o z a so r d i n a r i a sp a r al o sc l c u l o s . C a r g a s` c a r g a( l s q u a r e s )' e s t af u n c i n . V e rt a m b i n` l s q u a r e s _ e s t i m a t e s' , `l s q u a r e s _ e s t i m a t e s _ e x a c t ' , L s q u a r e s _ m s e` ' , L s q u a r e s _ r e s i d u a l s` ' y `l s q u a r e s _ r e s i d u a l _ m s e ' . E j e m p l o : ( %I 1 )l o a d( l s q u a r e s )$ ( %I 2 )M :l am a t r i z( [ 1 , 1 , 1 ] ,[ 3 / 2 ,1 , 2 ] ,[ 9 / 4 ,2 , 1 ] ,[ 3 , 2 , 2 ] ,[ 2 , 2 , 1 ] ) ; [ 111 ] [ ] [ 3 ] [ -12 ] [ 2 ] [ ] ( %O 2 )[ 9 ] [ -21 ] [ 4 ] [ ] [ 322 ] [ ] [ 221 ] ( %I 3 )m s e :l s q u a r e s _ m s e( M ,[ z ,x ,y ] ,( z+D )^2=A*B*x+y+C ) ; 5 = = = = \22 >( ( D+M )-C-M B-M A ) /I ,i1 ,i3 ,2 = = = = i=1 ( %O 3 )5 ( %I 4 )l s q u a r e s _ e s t i m a t e s _ a p p r o x i m a t e( m s e ,[ A ,B ,C ,D ] ,i p r i n t=[ 1 ,0 ] ) ; ( %O 4 )[ [ A=-3 . 6 7 8 5 0 4 9 4 7 4 0 1 7 4 ,B=-1 . 6 8 3 0 7 0 3 5 1 1 7 7 8 1 3 , C=1 0 . 6 3 4 6 9 9 5 0 1 4 8 6 3 5 ,D=-3 . 3 4 0 3 5 7 9 9 3 1 7 5 2 0 6 ] ]
F u n c i n :l s q u a r e s _ m s e( < D > ,< x >< e > ) D e v u e l v ee le r r o rc u a d r t i c om e d i o( M S E ) ,u n ae x p r e s i nd el as u m a ,p a r a e l< e >e c u a c i ne ne l< x >v a r i a b l e sc o n< D >d a t o s . E lM S Es ed e f i n ec o m o : n = = = = 1\2 >( I z d a .( e )-r h s( e ) ) n/i i = = = = i=1 d o n d e< n >e se ln m e r od ed a t o sy` < e >[ i ]' e se l< e >e c u a c i n e v a l u a d oc o nl a sv a r i a b l e se nl o sv a l o r e sa s i g n a d o s< x >d e l ` Y o t hd a t o , `< D >[ i ]' . C a r g a s` c a r g a( l s q u a r e s )' e s t af u n c i n . E j e m p l o : ( %I 1 )l o a d( l s q u a r e s )$ ( %I 2 )M :l am a t r i z( [ 1 , 1 , 1 ] ,[ 3 / 2 ,1 , 2 ] ,[ 9 / 4 ,2 , 1 ] ,[ 3 , 2 , 2 ] ,[ 2 , 2 , 1 ] ) ; [ 111 ] [ ] [ 3 ]
524/633
28/08/13

[ -12 ] [ 2 ] [ ] ( %O 2 )[ 9 ] [ -21 ] [ 4 ] [ ] [ 322 ] [ ] [ 221 ] ( %I 3 )m s e :l s q u a r e s _ m s e( M ,[ z ,x ,y ] ,( z+D )^2=A*B*x+y+C ) ; 5 = = = = \22 >( ( D+M )-C-M B-M A ) /I ,i1 ,i3 ,2 = = = = i=1 ( %O 3 )5 ( %I 4 )d i f f( m s e ,D ) ; 5 = = = = \2 4 >( D+M )( ( D+M )-C-M B-M A ) /I ,i1 ,i1 ,i3 ,2 = = = = i=1 ( %O 4 )-5 ( %I 5 ) ' 'm s e ,l o ss u s t a n t i v o s ; 22922 ( %O 5 )( ( ( D+3 )-C-2B-2A )+( ( D+)-C-B-2A ) 4 22322 +( ( D+2 )-C-B-2A )+( ( D+)-C-2B-A ) 2 22 +( ( D+1 )-C-B-A ) )/5
F u n c i n :l s q u a r e s _ r e s i d u a l s( < D > ,< x >< e > ,< a > ) D e v u e l v el o sr e s i d u o sd el ae c u a c i nc o n< e >e s p e c i f i c a d a p a r m e t r o s< a >y< D >d a t o s . < D >E su n am a t r i z ,< x >e su n al i s t ad ev a r i a b l e s ,< e >e su n ae c u a c i no e x p r e s i ng e n e r a l ,s in ou n ae c u a c i n ,< e >s et r a t ac o m os is e e r a n` < e >=0' .< a >e su n al i s t ad ee c u a c i o n e sq u ee s p e c i f i c a nl o sv a l o r e s d el o sp a r m e t r o sl i b r e se n< e >a p a r t ed e< x > . L o sr e s i d u o ss ed e f i n e nc o m o : l h s( e )-r h s( e ) i i d o n d e` < e >[ i ]' e se l< e >e c u a c i ne v a l u a d oc o nl a sv a r i a b l e se n v a l o r e sa s i g n a d o s< x >d e l` y o t hd a t o , `< D >[ i ]' ,yl aa s i g n a c i nd e l a sv a r i a b l e sl i b r e sr e s t a n t e sd e< a > . C a r g a s` c a r g a( l s q u a r e s )' e s t af u n c i n . E j e m p l o : ( %I 1 )l o a d( l s q u a r e s )$ ( %I 2 )M :l am a t r i z( [ 1 , 1 , 1 ] ,[ 3 / 2 ,1 , 2 ] ,[ 9 / 4 ,2 , 1 ] ,[ 3 , 2 , 2 ] ,[ 2 , 2 , 1 ] ) ; [ 111 ] [ ] [ 3 ] [ -12 ] [ 2 ] [ ] ( %O 2 )[ 9 ] [ -21 ] [ 4 ] [ ] [ 322 ] [ ] [ 221 ] ( %I 3 )a :( l s q u a r e s _ e s t i m a t e s M ,[ z ,x ,y ] ,( z+D )^2=A*B*x+y+C ,[ A ,B ,C ,D ] ) ; 5 92 71 0 9 2 11 0 7 ( %O 3 )[ [ A=,-=B ,C=,D=] ] 1 61 61 0 2 43 2 ( %I 4 )l s q u a r e s _ r e s i d u a l s( M ,[ z ,x ,y ] ,( z+D )^2=A*B*x+y+C ,p r i m e r o( a ) ) ; 1 31 31 31 31 3 ( %O 4 )[ ,,,,] 6 46 43 26 46 4
525/633
28/08/13

F u n c i n :l s q u a r e s _ r e s i d u a l _ m s e( < D > ,< x >< e > ,< a > ) D e v u e l v ee le r r o rc u a d r a d om e d i or e s i d u a l( M S E )p a r al ae c u a c i n< e > c o nl o sp a r m e t r o se s p e c i f i c a d o s< a >y< D >d a t o s . E lM S Er e s i d u a ls ed e f i n ec o m o : n = = = = 1\2 >( I z d a .( e )-r h s( e ) ) n/i i = = = = i=1 d o n d e` < e >[ i ]' e se l< e >e c u a c i ne v a l u a d oc o nl a sv a r i a b l e se n v a l o r e sa s i g n a d o s< x >d e l` y o t hd a t o , `< D >[ i ]' ,yl aa s i g n a c i nd e l a sv a r i a b l e sl i b r e sr e s t a n t e sd e< a > . C a r g a s` c a r g a( l s q u a r e s )' e s t af u n c i n . E j e m p l o : ( %I 1 )l o a d( l s q u a r e s )$ ( %I 2 )M :l am a t r i z( [ 1 , 1 , 1 ] ,[ 3 / 2 ,1 , 2 ] ,[ 9 / 4 ,2 , 1 ] ,[ 3 , 2 , 2 ] ,[ 2 , 2 , 1 ] ) ; [ 111 ] [ ] [ 3 ] [ -12 ] [ 2 ] [ ] ( %O 2 )[ 9 ] [ -21 ] [ 4 ] [ ] [ 322 ] [ ] [ 221 ] ( %I 3 )a :( l s q u a r e s _ e s t i m a t e s M ,[ z ,x ,y ] ,( z+D )^2=A*B*x+y+C ,[ A ,B ,C ,D ] ) ; 5 92 71 0 9 2 11 0 7 ( %O 3 )[ [ A=,-=B ,C=,D=] ] 1 61 61 0 2 43 2 ( %I 4 )l s q u a r e s _ r e s i d u a l _ m s e( M ,[ z ,x ,y ] ,( z+D )^2=A*B*x+y+C ,p r i m e r o( a ) ) ; 1 6 9 ( %O 4 )2 5 6 0
F u n c i n :p l s q u a r e s( < M a t > ,< V a r L i s t > ,< d e p v a r s > ) F u n c i n :p l s q u a r e s( < M a t > ,< V a r L i s t > ,< d e p v a r s > ,< m a x e x p o n > ) F u n c i n :p l s q u a r e s ( < M a t > ,< V a r L i s t > ,< d e p v a r s > ,< m a x e x p o n > ,< m a x d e g r e e > ) A j u s t ep o l i n o m i a lm u l t i v a r i a b l ed eu n at a b l ad ed a t o sp o re l" m e n o s m t o d od el o sc u a d r a d o s" .< M a t >e su n am a t r i zq u ec o n t i e n el o sd a t o s ,< V a r L i s t > e su n al i s t ad el o sn o m b r e sd el a sv a r i a b l e s( u n ap o rc a d ac o l u m n ad eM a t ,p e r oe lu s od e" " n o m b r e sd ev a r i a b l e se nl u g a rd eh a c e rc a s oo m i s od el a sc o l u m n a sM A T ) ,< d e p v a r s >e se ln o m b r e d eu n av a r i a b l ed e p e n d i e n t eou n al i s t ac o nu n oom sn o m b r e sd e v a r i a b l e sd e p e n d i e n t e s( q u el o sn o m b r e sd e b e ne s t a re n< V a r L i s t > ) , < m a x e x p o n >e se lm x i m oe x p o n e n t eo p c i o n a lp a r ac a d au n oi n d e p e n d i e n t e v a r i a b l e( 1p o rd e f e c t o ) ,y< m a x d e g r e e >e se lm x i m oo p c i o n a l g r a d od e lp o l i n o m i o( < m a x e x p o n >p o rd e f e c t o ) ,t e n g ae nc u e n t aq u el as u m ad e e x p o n e n t e sd ec a d at r m i n od e b es e ri g u a lom e n o rq u e< m a x d e g r e e > , ys i` m a x d g r e e=0 " ,e n t o n c e sn os ea p l i c an i n g nl m i t e . S i< d e p v a r s >e se ln o m b r ed eu n av a r i a b l ed e p e n d i e n t e( n oe nu n al i s t a ) , ` P l s q u a r e s' d e v u e l v ee lp o l i n o m i oa j u s t a d o .S ie su n< d e p v a r s > l i s t ad eu n aom sv a r i a b l e sd e p e n d i e n t e s ,` p l s q u a r e s' d e v u e l v eu n l i s t ac o ne lp o l i n o m i oa j u s t a d o( s ) .L o sc o e f i c i e n t e sd e L ad e t e r m i n a c i ns em u e s t r a nc o ne lf i nd ei n f o r m a ra c e r c ad el ab o n d a d d ea j u s t e ,q u ev ad e s d e0( s i nc o r r e l a c i n )a1( e x a c t a c o r r e l a c i n ) .E s t o sv a l o r e st a m b i ns ea l m a c e n a ne nl av a r i a b l eg l o b a l < D E T C O E F >( U n al i s t as i< d e p v a r s >e su n al i s t a ) . U ne j e m p l os e n c i l l od ea j u s t el i n e a lm u l t i v a r i a b l e : ( %I 1 )l o a d( " p l s q u a r e s " )$ ( %I 2 )p l s q u a r e s( m a t r i z( [ 1 , 2 , 0 ] ,[ 3 , 5 , 4 ] ,[ 4 , 7 , 9 ] ,[ 5 , 8 , 1 0 ] ) , [ X ,y ,z ] ,z ) ; C o e f i c i e n t ed eD e t e r m i n a c i nd ez=0 . 9 8 9 7 0 3 9 8 9 7 0 3 9 8 9 7 Y1 1-9x-1 4 ( %O 2 )z=3 E lm i s m oe j e m p l os i nr e s t r i c c i o n e sg r a d o : ( %I 3 )p l s q u a r e s( m a t r i z( [ 1 , 2 , 0 ] ,[ 3 , 5 , 4 ] ,[ 4 , 7 , 9 ] ,[ 5 , 8 , 1 0 ] ) , [ X ,y ,z ] ,z ,1 , 0 ) ; C o e f i c i e n t ed eD e t e r m i n a c i nd ez=1 , 0 x y+2 3y-2 9x-1 9 ( %O 3 )z=6
526/633
28/08/13

C u n t a sd i a g o n a l e st i e n eu np o l g o n od enl a d o s ? Q u p o l i n o m i o g r a d os ed e b eu t i l i z a r ? ( %I 4 )p l s q u a r e s( m a t r i z( [ 3 , 0 ] ,[ 4 , 2 ] ,[ 5 , 5 ] ,[ 6 , 9 ] ,[ 7 , 1 4 ][ 8 , 2 0 ] ) , [ N ,d i a g o n a l e s ] ,d i a g o n a l e s ,5 ) ; C o e f i c i e n t ed ed e t e r m i n a c i nd ed i a g o n a l e s=1 . 0 2 N-3N ( %O 4 )d i a g o n a l e s=2 ( %I 5 )e v( % ,N=9 ) ;/*P r u e b a sd eu np o l g o n o9l a d o s*/ ( %O 5 )d i a g o n a l e s=2 7 D ec u n t a sm a n e r a st e n e m o sq u ep o n e rd o sr e i n a ss i nq u es e a n a m e n a z a d oe na n x nt a b l e r o ? ( %I 6 )p l s q u a r e s( m a t r i z( [ 0 , 0 ] ,[ 1 , 0 ] ,[ 2 , 0 ] ,[ 3 , 8 ] ,[ 4 , 4 4 ] ) , [ N ,p o s i c i o n e s ] ,[ p o s i c i o n e s ] ,4 ) ; C o e f i c i e n t ed ed e t e r m i n a c i nd ep o s i c i o n e s[ ]=[ 1 , 0 ] 432 3n-1 0n+9n-2n ( %O 6 )[ p o s i c i o n e s=] 6 ( %I 7 )e v( %[ 1 ] ,n=8 ) ;/*P r u e b a sp a r au n a( 8x8 )t a b l e r od ea j e d r e z*/ ( %O 7 )P o s i c i o n e s=1 2 8 8 U ne j e m p l oc o ns e i sv a r i a b l e sd e p e n d i e n t e s : ( %I 8 )M T R X :m a t r i z( [ 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 ] ,[ 0 , 1 , 0 , 1 , 1 , 1 , 0 , 0 ] , [ 1 , 0 , 0 , 1 , 1 , 1 , 0 , 0 ] ,[ 1 , 1 , 1 , 1 , 0 , 0 , 0 , 1 ] )$ ( %I 8 )p l s q u a r e s( M T R X ,[ a ,b ,_ y ,_ O r ,_ X o r ,_ N a n d ,_ N o r ,_ N x o r ] , [ _ y ,_ O r ,_ X o r ,_ N a n d ,_ N o r ,_ N x o r ] ,1 , 0 ) ; C o e f i c i e n t ed eD e t e r m i n a c i nd e [ _ y ,_ O r ,_ X o r ,_ N a n d ,_ N o r ,_ N x o r ]= [ 1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ,1 , 0 ] ( %O 2 )[ _ y=a b ,_ O r=-a b+b+a , _ X o r=-2a b+b+a ,_ N a n d=1-a b , _ N o r=A b-b-a+1 ,_ N x o r=2a b-b-a+1 ] P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " l s q u a r e s " ) .
65 MINPACK
I n t r o d u c c i naM I N P A C K F u n c i o n e syv a r i a b l e sp a r aM I N P A C K
65.1 Introduccin a MINPACK

M I N P A C K` ' e su n at r a d u c c i nC o m m o nL i s p( v i a `f 2 c l ' )d e lF o r t r a n b i b l i o t e c aM I N P A C K ,c o m os eo b t i e n ed eN e t l i b .
65.2 Funciones y variables para MINPACK

F u n c i n :m i n p a c k _ l s q u a r e s( < f l i s t > ,< v a r l i s t > ,< g u e s s >[ ,< t o l e r a n c e > ,< j a c o b i a n > ] ) C a l c u l a re lp u n t oq u em i n i m i z al as u m ad el o sc u a d r a d o sd el a f u n c i o n e sd el al i s t a< f l i s t > .L a sv a r i a b l e se s t ne nl al i s t a < v a r l i s t > .S ed e b ep r o p o r c i o n a ru n ae s t i m a c i ni n i c i a ld e lp u n t o p t i m o e n< g u e s s > . L o sa r g u m e n t o so p c i o n a l e s ,< t o l e r a n c e >y< j a c o b i a n >p r o p o r c i o n a n u nc i e r t oc o n t r o ls o b r ee la l g o r i t m o .< t o l e r a n c e >e se le s t i m a d o e r r o rr e l a t i v od el as u m ad el o sc u a d r a d o s .< j a c o b i a n >p u e d es e r s eu t i l i z ap a r ae s p e c i f i c a re lJ a c o b i a n o .S i< j a c o b i a n >n os ed aos e ` T r u e' ( p o rd e f e c t o ) ,e lj a c o b i a n os ec a l c u l aap a r t i r< f l i s t > .S i < j a c o b i a n >e s` f a l s o' ,s eu t i l i z au n aa p r o x i m a c i nn u m r i c a . ` M i n p a c k _ l s q u a r e s' d e v u e l v eu n al i s t a .E lp r i m e re l e m e n t oe se l s o l u c i np r e v i s t a ,yl as e g u n d ae sl as u m ad el o sc u a d r a d o s ,yl at e r c e r a i n d i c ae l x i t od e la l g o r i t m o .L o sv a l o r e sp o s i b l e ss o n ` 0' p a r m e t r o sd ee n t r a d ai n d e b i d a s . ` 1' e s t i m a c i o n e sa l g o r i t m oq u ee le r r o rr e l a t i v oe nl as u m ad e p l a z a se sal os u m o` t o l e r a n c i a " . ` 2' e s t i m a c i o n e sa l g o r i t m oq u ee le r r o rr e l a t i v oe n t r eXye l s o l u c i ne sc o m om x i m ol at o l e r a n c i a` ' . ` 3' c o n d i c i o n e sp a r ai n f o=1y=2i n f ot a n t oe s p e r a . ` 4' f v e ce so r t o g o n a lal a sc o l u m n a sd el aj a c o b i a n aam q u i n a p r e c i s i n . ` 5' n m e r od el l a m a d a saF C Nc o ni f l a g=1h aa l c a n z a d ol o s1 0 0*( n+ 1 ) .
527/633
28/08/13
` 6'
t o le sd e m a s i a d op e q u e o .h a yu n am a y o rr e d u c c i ne nl as u m ad ec u a d r a d o s E sp o s i b l e . ` 7' t o le sd e m a s i a d op e q u e o .n i n g u n am e j o r aa d i c i o n a le nl aa p r o x i m a d a xs o l u c i ne sp o s i b l e . /*P r o b l e m a6 :L af u n c i ns i n g u l a rP o w e l l*/ ( %I 1 )p o w e l l( x 1 ,x 2 ,x 3 ,x 4 ) := [ 1 0x 1*x 2 ,s q r t( 5 )*( x 3 x 4 ) ,( x 2 2*x 3 )^2 , s q r t( 1 0 )*( x 1 X 4 )^2 ]$ ( %I 2 )m i n p a c k _ l s q u a r e s( P o w e l l( x 1 ,x 2 ,x 3 ,x 4 ) ,[ x 1 ,x 2 ,x 3 ,x 4 ] , [ 3 ,1 , 0 , 1 ] ) ; ( %O 2 )[ [ 1 . 6 5 2 1 1 7 5 9 6 1 6 8 3 9 4 e 1 7 ,-1 . 6 5 2 1 1 7 5 9 6 1 6 8 3 9 3 e 1 8 , 2 . 6 4 3 3 8 8 1 5 3 8 6 9 4 6 8 e 1 8 ,2 . 6 4 3 3 8 8 1 5 3 8 6 9 4 6 8 e 1 8 ] , 6 . 1 0 9 3 2 7 8 5 9 2 0 7 7 7 7 e 3 4 ,4 ] /*E lm i s m op r o b l e m ap e r oe lu s od el aa p r o x i m a c i nn u m r i c ap a r aJ a c o b i a n*/ ( %I 3 )m i n p a c k _ l s q u a r e s( P o w e l l( x 1 ,x 2 ,x 3 ,x 4 ) ,[ x 1 ,x 2 ,x 3 ,x 4 ] , [ 3 ,1 , 0 , 1 ] ,j a c o b i a n=f a l s e ) ; ( %O 3 )[ [ 5 . 0 6 0 2 8 2 1 4 9 4 8 5 3 3 1 e 1 1 ,-5 . 0 6 0 2 8 2 1 4 9 4 9 1 2 0 6 e 1 2 , 2 . 1 7 9 4 4 7 8 4 3 5 4 7 2 1 8 e 1 1 ,2 . 1 7 9 4 4 7 8 4 3 5 4 7 2 1 8 e 1 1 ] , 3 . 5 3 4 4 9 1 7 9 4 8 4 7 0 3 1 e 2 1 ,5 ]
F u n c i n :m i n p a c k _ s o l v e( < f l i s t > ,< v a r l i s t > ,< g u e s s >[ ,< t o l e r a n c e > ,< j a c o b i a n > ] ) R e s o l v e ru ns i s t e m ad ee c u a c i o n e s' e n` n ' `ni n c g n i t a s .E l` n' e c u a c i o n e se s t nd a d a se nl al i s t a< f l i s t >yl a si n c g n i t a se s t ne n < v a r l i s t > .U n as u p o s i c i ni n i c i a ld el as o l u c i nd e b es e rp r o p o r c i o n a d ae n < g u e s s > . L o sa r g u m e n t o so p c i o n a l e s ,< t o l e r a n c e >y< j a c o b i a n >p r o p o r c i o n a n u nc i e r t oc o n t r o ls o b r ee la l g o r i t m o .< t o l e r a n c e >e se le s t i m a d o e r r o rr e l a t i v od el as u m ad el o sc u a d r a d o s .< j a c o b i a n >p u e d es e r s eu t i l i z ap a r ae s p e c i f i c a re lJ a c o b i a n o .S i< j a c o b i a n >n os ed aos e ` T r u e' ( p o rd e f e c t o ) ,e lj a c o b i a n os ec a l c u l aap a r t i r< f l i s t > .S i < j a c o b i a n >e s` f a l s o' ,s eu t i l i z au n aa p r o x i m a c i nn u m r i c a . ` M i n p a c k _ s o l v e' d e v u e l v eu n al i s t a .E lp r i m e re l e m e n t oe se le s t i m a d o s o l u c i n ;l as e g u n d ae sl as u m ad el o sc u a d r a d o s ,yl at e r c e r a i n d i c ae l x i t od e la l g o r i t m o .L o sv a l o r e sp o s i b l e ss o n ` 0' p a r m e t r o sd ee n t r a d ai n d e b i d a s . ` 1' a l g o r i t m oe s t i m aq u ee le r r o rr e l a t i v oe nl as o l u c i ne s e nl am a y o r ad e` t o l e r a n c i a' . ` 2' n m e r od el l a m a d a saF C Nc o ni f l a g=1h aa l c a n z a d ol o s1 0 0*( n+ 1 ) . ` 3' t o le sd e m a s i a d op e q u e o .h a yu n am a y o rr e d u c c i ne nl as u m ad ec u a d r a d o s E sp o s i b l e . ` 4' I t e r a c i nn oe s t h a c i e n d ou nb u e np r o g r e s o .
66 makeOrders
F u n c i o n e syv a r i a b l e sp a r am a k e O r d e r s
66.1 Funciones y variables para makeOrders

F u n c i n :m a k e O r d e r s( ,< o r d e r l i s t > ) D e v u e l v eu n al i s t ad et o d o sl o sp o d e r e sd eu np o l i n o m i od eh a s t aei n c l u y e n d o l o sa r g u m e n t o s . ( %I 1 )l o a d( " m a k e O r d e r s " )$ ( %I 2 )m a k e O r d e r s( [ a ,b ] ,[ 2 , 3 ] ) ; ( %O 2 )[ [ 0 ,0 ] ,[ 0 ,1 ] ,[ 0 ,2 ] ,[ 0 ,3 ] ,[ 1 ,0 ] ,[ 1 ,1 ] , [ 1 ,2 ] ,[ 1 ,3 ] ,[ 2 ,0 ] ,[ 2 ,1 ] ,[ 2 ,2 ] ,[ 2 ,3 ] ] ( %I 3 )e x p a n s i n( ( 1+a+a^2 )*( 1+b+b^2+b^3 ) ) ; 233322222 ( %O 3 )a b+a b+b+a b+a b+b+a b+a b 2 +B+a+u n a+1 d o n d e[ 0 ,1 ]' s ea s o c i ac o ne lt r m i n oby` [ 2 ,3 ] ' `c o nu n^2 b^3 . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " m a k e O r d e r s " ) .
528/633
28/08/13
67 mnewton
I n t r o d u c c i nam n e w t o n F u n c i o n e syv a r i a b l e sp a r am n e w t o n
67.1 Introduccin a mnewton

M n e w t o n` ' e su n ai m p l e m e n t a c i nd e lm t o d od eN e w t o np a r ar e s o l v e rn ol i n e a l e c u a c i o n e se nu n aom sv a r i a b l e s .
67.2 Funciones y variables para mnewton

V a r i a b l eo p c i o n a l :n e w t o n e p s i l o n V a l o rp o rd e f e c t o :1 0 , 0^( f p p r e c/2 )' L ap r e c i s i np a r ad e t e r m i n a rc u a n d ol af u n c i n` m n e w t o n' h ac o n v e r g i d o h a c i al as o l u c i n .S i` n e w t o n e p s i l o n' e su nn m e r od e c i m a lg r a n d e ,e n t o n c e s C m p u t o s` m n e w t o n' s eh a c e nc o nb i g f l o a t s .V a s et a m b i n ` M n e w t o n' .
V a r i a b l eo p c i o n a l :n e w t o n m a x i t e r V a l o rp o rd e f e c t o :5 0' N m e r om x i m od ei t e r a c i o n e sp a r ad e t e n e rl af u n c i n` m n e w t o n' s i n oc o n v e r g eos ic o n v e r g ed e m a s i a d ol e n t a m e n t e . C o n s u l t et a m b i n` m n e w t o n' .
F u n c i n :m n e w t o n( < F u n c L i s t > ,< V a r L i s t > ,< G u e s s L i s t > ) V a r i a sf u n c i o n e ss o l u c i nn ol i n e a lu t i l i z a n d oe lm t o d od eN e w t o n . < F u n c L i s t >E sl al i s t ad ef u n c i o n e sp a r ar e s o l v e r ,< V a r L i s t >e sl a l i s t ad en o m b r e sd ev a r i a b l e sy< G u e s s L i s t >l al i s t ai n i c i a ld e a p r o x i m a c i o n e s . L as o l u c i ns ed e v u e l v ee ne lm i s m of o r m a t oq u e' r e s o l v e r( ) 'd e v u e l v e . S in os ee n c u e n t r al as o l u c i n ,` [ ]' s ed e v u e l v e . E s t af u n c i ne s t c o n t r o l a d ap o rv a r i a b l e sg l o b a l e s` n e w t o n e p s i l o n' y ` N e w t o n m a x i t e r' . ( %I 1 )l o a d( " m n e w t o n " )$ ( %I 2 )m n e w t o n( [ x 1+ 3*l o g( x 1 ) x 2^2 ,2*x 1^2 x 1*x 2 5*x 11 ] , [ X 1 ,x 2 ] ,[ 5 ,5 ] ) ; ( %O 2 )[ [ x 1=3 . 7 5 6 8 3 4 0 0 8 0 1 2 7 6 9 ,x 2=2 . 7 7 9 8 4 9 5 9 2 8 1 7 8 9 7 ] ] ( %I 3 )m n e w t o n( [ 2*aâ 5 ] ,[ a ] ,[ 1 ] ) ; ( %O 3 )[ [ a=1 . 7 0 9 2 7 5 5 6 7 8 6 1 4 4 ] ] ( %I 4 )m n e w t o n( [ 2*3û v / u 5 ,u2^V 4 ] ,[ U ,V ] ,[ 2 ,2 ] ) ; ( %O 4 )[ [ u=1 . 0 6 6 6 1 8 3 8 9 5 9 5 4 0 7 ,1 . 5 5 2 5 6 4 7 6 6 8 4 1 7 8 6v= ] ] E l` n e w t o n e p s i l o n' v a r i a b l ec o n t r o l al ap r e c i s i nd el a a p r o x i m a c i o n e s .T a m b i nc o n t r o l as is er e a l i z a nc l c u l o s d ef l o t a d o r e sod e c i m a l e sg r a n d e s . ( %I 1 )l o a d( m n e w t o n )$ ( %I 2 )( f p p r e c :2 5 ,n e w t o n e p s i l o n :b f l o a t( 1 0^( f p p r e c5 ) ) )$ ( %I 3 )m n e w t o n( [ 2*3û v / u 5 ,u2^V 4 ] ,[ U ,V ] ,[ 2 ,2 ] ) ; ( %O 3 )[ [ u=1 . 0 6 6 6 1 8 3 8 9 5 9 5 4 0 6 7 7 2 5 9 1 1 7 3 b 0 , v=1 . 5 5 2 5 6 4 7 6 6 8 4 1 7 8 6 4 5 0 1 0 0 4 1 8 b 0 ] ] P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " m n e w t o n " ) .V a s et a m b i n N e w t o n e p s i l o n` ' y `n e w t o n m a x i t e r ' .
68 numericalio
I n t r o d u c c i nan u m e r i c a l i o F u n c i o n e syv a r i a b l e sp a r ae n t r a d ad et e x t os i nf o r m a t oys a l i d a F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ab i n a r i a
68.1 Introduccin a numericalio

N u m e r i c a l i o` ' e su n ac o l e c c i nd ef u n c i o n e sp a r al e e rye s c r i b i ra r c h i v o sy a r r o y o s .F u n c i o n e sp a r al ae n t r a d ays a l i d ad et e x t os i nf o r m a t os ep u e d e nl e e rye s c r i b i r n m e r o s( e n t e r o ,f l o t a n t eob i g f l o a t ) ,s m b o l o syc a d e n a s .F u n c i o n e s
529/633
28/08/13

p a r al ae n t r a d ays a l i d ab i n a r i ap u e d el e e rys l oc o m af l o t a n t ee s c r i b i r n m e r o s . S iy ae x i s t eu n al i s t a ,m a t r i zou no b j e t od em a t r i zp a r aa l m a c e n a r d a t o sd ee n t r a d a ,l a sf u n c i o n e sd ee n t r a d a` n u m e r i c a l i o' p u e d e ne s c r i b i rd a t o se ne s e o b j e t o .D el oc o n t r a r i o ,` n u m e r i c a l i o' p u e d ea d i v i n a r ,e na l g ng r a d o ,l a e s t r u c t u r ad eu no b j e t op a r aa l m a c e n a rl o sd a t o s ,yd e v o l v e re s eo b j e t o .
68.2 Funciones y variables para entrada y salida de texto sin formato

F u n c i n :r e a d _ m a t r i x( < S > ) F u n c i n :r e a d _ m a t r i x( < S > ,< M > ) F u n c i n :r e a d _ m a t r i x( < S > ,< s e p a r a t o r _ f l a g > ) F u n c i n :r e a d _ m a t r i x( < S > ,< M > ,< s e p a r a t o r _ f l a g > ) ` R e a d _ m a t r i x( < S > )' l e ee l< S >f u e n t eyd e v u e l v es ut o t a l i d a d c o n t e n i d oc o m ou n am a t r i z .E lt a m a od el am a t r i zs ed e d u c ed el a d a t o sd ee n t r a d a ,c a d al n e ad e la r c h i v os ec o n v i e r t ee nu n af i l ad el am a t r i z . S ia l g u n a sl n e a st i e n e nd i f e r e n t e sl o n g i t u d e s ,s eq u e j a` r e a d _ m a t r i x' . ` R e a d _ m a t r i x( < S > ,< M > )' l e ee l< S >d eo r i g e ne ne l< M >m a t r i z , h a s t a< M >e s t l l e n aol af u e n t es ea g o t a .L o sd a t o sd ee n t r a d as el e e n e nl am a t r i ze nl af i l a m a y o ro r d e n ,l ae n t r a d an ot i e n ep o rq u t e n e re l m i s m on m e r od ef i l a syc o l u m n a sq u e< M > . E l< S >f u e n t ep u e d es e ru nn o m b r ed ea r c h i v oou na r r o y o . L o sv a l o r e sr e c o n o c i d o ss o n< s e p a r a t o r _ f l a g >` c o m a' , 'p i p e' , ` C o m a' ,y 'e s p a c i o' .S in os ee s p e c i f i c a< s e p a r a t o r _ f l a g > , e la r c h i v os es u p o n eq u ee le s p a c i od e l i m i t a d o .
F u n c i n :r e a d _ a r r a y( < S > ,< A > ) F u n c i n :r e a d _ a r r a y( < S > ,< A > ,< s e p a r a t o r _ f l a g > ) L e ee l< S >d eo r i g e ne ne l< A >m a t r i z ,h a s t a< A >e s t l l e n aol a s ea g o t af u e n t e .L o sd a t o sd ee n t r a d as el e e ne nl am a t r i ze n d el a sf i l a so r d e n ;l ae n t r a d an od e b es e rc o n f o r m eal a sd i m e n s i o n e sd e < A > . E l< S >f u e n t ep u e d es e ru nn o m b r ed ea r c h i v oou na r r o y o . L o sv a l o r e sr e c o n o c i d o ss o n< s e p a r a t o r _ f l a g >` c o m a' , 'p i p e' , ` C o m a' ,y 'e s p a c i o' .S in os ee s p e c i f i c a< s e p a r a t o r _ f l a g > , e la r c h i v os es u p o n eq u ee le s p a c i od e l i m i t a d o .
F u n c i n :r e a d _ h a s h e d _ a r r a y( < S > ,< A > ) F u n c i n :r e a d _ h a s h e d _ a r r a y( < S > ,< A > ,< s e p a r a t o r _ f l a g > ) L e ee l< S >f u e n t eyd e v u e l v es uc o n t e n i d oc o m p l e t oc o m oh a s h a r r a y .E l< S >f u e n t ep u e d es e ru nn o m b r ed ea r c h i v oou na r r o y o . ` R e a d _ h a s h e d _ a r r a y' t r a t ae lp r i m e re l e m e n t oe nc a d al n e ac o m ou nh a s h c l a v e ,ya s o c i ae lr e s t od el al n e a( e nf o r m ad el i s t a )c o nl a c l a v e .P o re j e m p l o ,l al n e a` 5 6 71 21 73 25 5 "e se q u i v a l e n t ea ` A[ 5 6 7 ] :[ 1 2 ,1 7 ,3 2 ,5 5 ]$' .L n e a sn on e c e s i t at e n e re lm i s m on m e r o d el o se l e m e n t o s . L o sv a l o r e sr e c o n o c i d o ss o n< s e p a r a t o r _ f l a g >` c o m a' , 'p i p e' , ` C o m a' ,y 'e s p a c i o' .S in os ee s p e c i f i c a< s e p a r a t o r _ f l a g > , e la r c h i v os es u p o n eq u ee le s p a c i od e l i m i t a d o .
F u n c i n :r e a d _ n e s t e d _ l i s t( < S > ) F u n c i n :r e a d _ n e s t e d _ l i s t( < S > ,< s e p a r a t o r _ f l a g > ) L e ee l< S >f u e n t eyd e v u e l v es uc o n t e n i d oc o m p l e t oc o m oa n i d a d a l i s t a .E l< S >f u e n t ep u e d es e ru nn o m b r ed ea r c h i v oou na r r o y o . ` R e a d _ n e s t e d _ l i s t' d e v u e l v eu n al i s t aq u et i e n eu n al i s t as e c u n d a r i ap a r ac a d a l n e ad ee n t r a d a .L n e a sn on e c e s i t at e n e re lm i s m on m e r od ee l e m e n t o s . L a sl n e a sv a c a sn os et i e n e ne nc u e n t a :u n al n e ae nb l a n c os eo b t i e n eu ns u b l i s t av a c a . L o sv a l o r e sr e c o n o c i d o ss o n< s e p a r a t o r _ f l a g >` c o m a' , 'p i p e' , ` C o m a' ,y 'e s p a c i o' .S in os ee s p e c i f i c a< s e p a r a t o r _ f l a g > , e la r c h i v os es u p o n eq u ee le s p a c i od e l i m i t a d o .
F u n c i n :r e a d _ l i s t( < S > ) F u n c i n :r e a d _ l i s t( < S > ,< L > ) F u n c i n :r e a d _ l i s t( < S > ,< s e p a r a t o r _ f l a g > ) F u n c i n :r e a d _ l i s t( < S > ,< L > ,< s e p a r a t o r _ f l a g > ) ` R e a d _ l i s t( < S > )' l e ee l< S >f u e n t eyd e v u e l v es ut o t a l i d a d c o n t e n i d oc o m ou n al i s t ap l a n a . ` R e a d _ l i s t( < S > ,< L > )' l e ee l< S >d eo r i g e ne nl al i s t a< L > , h a s t a< L >e s t l l e n aol af u e n t es ea g o t a .
530/633
28/08/13

E l< S >f u e n t ep u e d es e ru nn o m b r ed ea r c h i v oou na r r o y o . L o sv a l o r e sr e c o n o c i d o ss o n< s e p a r a t o r _ f l a g >` c o m a' , 'p i p e' , ` C o m a' ,y 'e s p a c i o' .S in os ee s p e c i f i c a< s e p a r a t o r _ f l a g > , e la r c h i v os es u p o n eq u ee le s p a c i od e l i m i t a d o .
F u n c i n :w r i t e _ d a t a( < X > ,< D > ) F u n c i n :w r i t e _ d a t a( < X > ,< D > ,< s e p a r a t o r _ f l a g > ) E s c r i b ee l< X >o b j e t oa l< D >d e s t i n o . ` W r i t e _ d a t a' e s c r i b eu n am a t r i ze nl af i l a m a y o ro r d e n ,c o nu n al n e ap o r f i l a . ` W r i t e _ d a t a' e s c r i b eu n am a t r i zc r e a d ap o r à r r a y 'o` m a k e _ a r r a y' e n f i l a m a y o ro r d e n ,c o nu n an u e v al n e aa lf i n a ld ec a d al o s a . L o s a sd ed i m e n s i o n e ss u p e r i o r e se s t ns e p a r a d a sp o rn u e v a sl n e a sa d i c i o n a l e s . ` W r i t e _ d a t a' e s c r i b eu n am a t r i zh a s hc o nc a d at e c l as e g u i d ad es u l i s t aa s o c i a d ae nu n al n e a . ` W r i t e _ d a t a e s c r i b eu n al i s t aa n i d a d ac o nc a d as u b l i s t ae nu n al n e a . ` W r i t e _ d a t a e s c r i b eu n al i s t ap l a n ae nu n as o l al n e a . E l< D >d e s t i n op u e d es e ru nn o m b r ed ea r c h i v oou na r r o y o .C u a n d oe l d e s t i n oe su nn o m b r ed ea r c h i v o ,l av a r i a b l eg l o b a l G o b i e r n a` f i l e _ o u t p u t _ a p p e n d' s ie la r c h i v od es a l i d as ea a d e ot r u n c a d a .C u a n d oe ld e s t i n oe su nf l u j o ,n i n g u n aa c c i ne s p e c i a l s et o m ap o r` w r i t e _ d a t a' d e s p u sd et o d o sl o sd a t o ss ee s c r i b e n ,e n e np a r t i c u l a r ,l ac o r r i e n t ep e r m a n e c ea b i e r t a . L o sv a l o r e sr e c o n o c i d o ss o n< s e p a r a t o r _ f l a g >` c o m a' , 'p i p e' , ` C o m a' , 'e s p a c i o' ,y 'f i c h a' .S in oe s< s e p a r a t o r _ f l a g > e s p e c i f i c a ,e la r c h i v os ea s u m ee le s p a c i od e l i m i t a d o .
68.3 Funciones y variables para entrada y salida binaria

F u n c i n :a s s u m e _ e x t e r n a l _ b y t e _ o r d e r( ) L ed i c e` n u m e r i c a l i o' e lo r d e nd eb y t e sp a r al e e rye s c r i b i rb i n a r i o d a t o s .D o sv a l o r e sd es er e c o n o c e n :` l s b "q u e i n d i c ab y t em e n o ss i g n i f i c a t i v op r i m e r o ,t a m b i nl l a m a d ol i t t l e e n d i a n o r d e nd eb y t e s ,y` M S Bq u ei n d i c ab y t em ss i g n i f i c a t i v oe np r i m e rl u g a r , t a m b i nl l a m a d ao r d e nd eb y t e sb i g e n d i a n . S in os ee s p e c i f i c a ,` n u m e r i c a l i o' a s u m ee lo r d e nd eb y t e se x t e r n o b y t em ss i g n i f i c a t i v op r i m e r o .
F u n c i n :o p e n r _ b i n a r y( < n o m b r e _ a r c h i v o > ) D e v u e l v eu nf l u j od ee n t r a d ad e8b i t ss i ns i g n ob y t e sp a r al e e re la r c h i v o n o m b r a d op o r< n o m b r e _ a r c h i v o > .
F u n c i n :o p e n w _ b i n a r y( < n o m b r e _ a r c h i v o > ) D e v u e l v eu nf l u j od es a l i d ad eb y t e sd e8b i t ss i ns i g n op a r ae s c r i b i re la r c h i v o n o m b r a d op o r< n o m b r e _ a r c h i v o > .
F u n c i n :o p e n a _ b i n a r y( < n o m b r e _ a r c h i v o > ) D e v u e l v eu nf l u j od es a l i d ad eb y t e sd e8b i t ss i ns i g n op a r aa n e x a re l p r e s e n t a rn o m b r a d op o r< n o m b r e _ a r c h i v o > .
F u n c i n :r e a d _ b i n a r y _ m a t r i x( < S > ,< M > ) L e eb i n a r i on m e r o sd ep u n t of l o t a n t ed e8b y t e sd el af u e n t e< S > e ne l< M >m a t r i zh a s t a< M >e s t l l e n a ,ol af u e n t es ea g o t a . E l e m e n t o sd e< M >s el e e ne nl af i l a m a y o ro r d e n . E l< S >f u e n t ep u e d es e ru nn o m b r ed ea r c h i v oou na r r o y o . E lo r d e nd el o sb y t e se nl o se l e m e n t o sd el af u e n t es ee s p e c i f i c am e d i a n t e ` A s s u m e _ e x t e r n a l _ b y t e _ o r d e r' .
F u n c i n :r e a d _ b i n a r y _ a r r a y( < S > ,< A > ) L e eb i n a r i on m e r o sd ep u n t of l o t a n t ed e8b y t e sd el af u e n t e< S >
531/633
28/08/13

e ne l< A >m a t r i zh a s t a< A >e s t l l e n a ,ol af u e n t es ea g o t a . < A >D e b es e ru n am a t r i zc r e a d ap o r` a r r a y' o `m a k e _ a r r a y ' .E l e m e n t o s d e< A >s el e e ne nl af i l a m a y o ro r d e n . E l< S >f u e n t ep u e d es e ru nn o m b r ed ea r c h i v oou na r r o y o . E lo r d e nd el o sb y t e se nl o se l e m e n t o sd el af u e n t es ee s p e c i f i c am e d i a n t e ` A s s u m e _ e x t e r n a l _ b y t e _ o r d e r' .
F u n c i n :r e a d _ b i n a r y _ l i s t( < S > ) F u n c i n :r e a d _ b i n a r y _ l i s t( < S > ,< L > ) ` R e a d _ b i n a r y _ l i s t( < S > ) ,s el e et o d oe lc o n t e n i d od el af u e n t e< S > c o m on m e r o sd eu n as e c u e n c i ab i n a r i ad e8b y t e sc o m af l o t a n t e ,yv u e l v e c o m ou n al i s t a .E l< S >f u e n t ep u e d es e ru nn o m b r ed ea r c h i v oou na r r o y o . ` R e a d _ b i n a r y _ l i s t( < S > ,< L > ) ,s el e ee np u n t of l o t a n t eb i n a r i od e8b y t e s n m e r o sd el a< S >f u e n t eh a s t aq u el al i s t a< L >e s t l l e n a ,ol o s s ea g o t af u e n t e . E lo r d e nd el o sb y t e se nl o se l e m e n t o sd el af u e n t es ee s p e c i f i c am e d i a n t e ` A s s u m e _ e x t e r n a l _ b y t e _ o r d e r' .
F u n c i n :w r i t e _ b i n a r y _ d a t a( < X > ,< D > ) E s c r i b ee l< X >o b j e t o ,q u ec o m p r e n d eb i n a r i od e8b y t e sI E E E7 5 4 n m e r o sd ep u n t of l o t a n t e ,e nl a< D >d e s t i n o .O t r o st i p o sd e l o sn m e r o ss ec o n v i e r t e nal af l o t ad e8b y t e s .` W r i t e _ b i n a r y _ d a t a' n op u e d e e s c r i b i rd a t o sn on u m r i c o s . E l< X >o b j e t op u e d es e ru n al i s t a ,u n al i s t aa n i d a d a ,u n am a t r i zou n am a t r i z c r e a d op o r` a r r a y' o `m a k e _ a r r a y ' ;< X >n op u e d es e rd e c l a r a d a m a t r i zoc u a l q u i e ro t r ot i p od eo b j e t o .` W r i t e _ b i n a r y _ d a t a " ,e s c r i b e l i s t a sa n i d a d a s ,m a t r i c e sym a t r i c e se no r d e nd ei m p o r t a n c i ad ef i l a s . E l< D >d e s t i n op u e d es e ru nn o m b r ed ea r c h i v oou na r r o y o .C u a n d oe l d e s t i n oe su nn o m b r ed ea r c h i v o ,l av a r i a b l eg l o b a l G o b i e r n a` f i l e _ o u t p u t _ a p p e n d' s ie la r c h i v od es a l i d as ea a d e ot r u n c a d a .C u a n d oe ld e s t i n oe su nf l u j o ,n i n g u n aa c c i ne s p e c i a l s et o m ap o r` w r i t e _ b i n a r y _ d a t a' d e s p u sd et o d o sl o sd a t o ss ee s c r i b e n ,e n e np a r t i c u l a r ,l ac o r r i e n t ep e r m a n e c ea b i e r t a . E lo r d e nd eb y t e se ne l e m e n t o sd e ld e s t i n os ee s p e c i f i c ap o r ` A s s u m e _ e x t e r n a l _ b y t e _ o r d e r' .
69 opsubst
F u n c i o n e syv a r i a b l e sp a r ao p s u b s t
69.1 Funciones y variables para opsubst

F u n c i n :o p s u b s t( < f > ,< g > ,< e > ) F u n c i n :o p s u b s t( < g >=< f > ,< e > ) F u n c i n :o p s u b s t( [ < g 1 >=< f 1 > ,< G 2 >=< f 2 > ,. . . ,< g n >=< F n > ] ,< e > ) L af u n c i n` o p s u b s t' e ss i m i l a ral af u n c i n `s u b s t ' ,e x c e p t o q u e` o p s u b s t' s o l oh a c es u s t i t u c i o n e sp a r al o so p e r a d o r e se nu n e x p r e s i n .E ng e n e r a l ,c u a n d o< f >e su no p e r a d o re nl ae x p r e s i n < e > ,s u s t i t u y a< g >p a r a< f >e ne l< e >e x p r e s i n . P a r ad e t e r m i n a re lo p e r a d o r` o p s u b s t' f i j a 'i n f l a g' e nt r u e .E s t e s i g n i f i c as u s t i t u t o so p s u b s t` ' p a r ae lm e r c a d oi n t e r i o r ,n oe li d i o m a , o p e r a d o re nl ae x p r e s i n . E j e m p l o s : ( %I 1 )l o a d( o p s u b s t )$ ( %I 2 )o p s u b s t( f ,g ,g( g( x ) ) ) ; ( %O 2 )f( f( x ) ) ( %I 3 )o p s u b s t( f ,g ,g( g ) ) ; ( %O 3 )f( g ) ( %I 4 )o p s u b s t( f ,g[ x ] ,g[ x ]( z ) ) ; ( %O 4 )f( z ) ( %I 5 )o p s u b s t( g[ x ] ,f ,f( z ) ) ; ( %O 5 )g( z ) x ( %I 6 )o p s u b s t( t a n ,e lp e c a d o ,e lp e c a d o( p e c a d o ) ) ; ( %O 6 )t a n( e lp e c a d o ) ( %I 7 )o p s u b s t( [ f=g ,g=h ] ,f( x ) ) ; ( %O 7 )h( x ) I n t e r n a m e n t e ,M a x i m an ou t i l i z al an e g a c i nu n a r i a ,d i v i s i no l o so p e r a d o r e sd er e s t a ;a s : ( %I 8 )o p s u b s t( " + " ," " ,a b ) ; ( %O 8 )a-b ( %I 9 )o p s u b s t( " f " ," " , a ) ;
532/633
28/08/13

( %O 9 )-u n ( %I 1 0 )o p s u b s t( " ^^ " ," / " ,a/b ) ; u n ( %O 1 0 )b L ar e p r e s e n t a c i ni n t e r n ad e a*b*e s( 1 ,a ,b ) ,p o rl o ( %I 1 1 )o p s u b s t( " [ " ," * " , a*b ) ; ( %O 1 1 )[ -1 ,a ,b ] C u a n d oc u a l q u i e r ad eo p e r a d o rn oe su ns m b o l oM a x i m a ,g e n e r a l m e n t ea l g no t r o f u n c i ns e a l a r u ne r r o r : ( %I 1 2 )o p s u b s t( a+b ,f ,f( x ) ) ; N o m b r ei n c o r r e c t ooe lv a l o re nl ap o s i c i nf u n c i o n a l : b+a -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; N oo b s t a n t e ,s ea u t o r i z aal o st i t u l a r e ss u b n d i c e s : ( %I 1 3 )o p s u b s t( g[ 5 ] ,f ,f( x ) ) ; ( %O 1 3 )g( x ) 5 P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " o p s u b s t " ) .
70 orthopoly
I n t r o d u c c i nal o sp o l i n o m i o so r t o g o n a l e s F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s
70.1 Introduccin a los polinomios ortogonales

` O r t h o p o l y' e su np a q u e t ep a r al ae v a l u a c i ns i m b l i c ayn u m r i c ad e v a r i o st i p o sd ep o l i n o m i o so r t o g o n a l e s ,i n c l u y e n d oC h e b y s h e v ,L a g u e r r e , H e r m i t e ,J a c o b i ,L e g e n d r eyu l t r a s p h e r i c a lp o l i n o m i o s( G e g e n b a u e r ) . A d e m s ,` o r t h o p o l y' i n c l u y es o p o r t ep a r al aB e s s e le s f r i c a , e s f r i c ad eH a n k e lyf u n c i o n e sa r m n i c a se s f r i c a s . E ns um a y o rp a r t e ,` o r t h o p o l y' s i g u el a sc o n v e n c i o n e sd eA b r a m o w i t z yS t e g u nH a n d b o o ko fM a t h e m a t i c a lF u n c t i o n s ,C a p t u l o2 2( 1 0d e i m p r e s i n ,d i c i e m b r ed e1 9 7 2 ) ;a d e m s ,u t i l i z a m o sG r a d s h t e y nyR y z h i k , T a b l ad ei n t e g r a l e s ,s e r i e syP r o d u c t o s( 1 9 8 0c o r r e g i d oya m p l i a d o e d i c i n ) ,yE u g e nM e r z b a c h e rQ u a n t u mM e c h a n i c s( s e g u n d ae d i c i n ,1 9 7 0 ) . B a r t o nW i l l i sd el aU n i v e r s i d a dd eN e b r a s k ae nK e a r n e y( U N K )e s c r i b i e lp a q u e t e` o r t h o p o l y' ys ud o c u m e n t a c i n .S el i b e r ae lp a q u e t e b a j ol aL i c e n c i aP b l i c aG e n e r a ld eG N U( G P L ) .
70.2 Funciones y variables para polinomios ortogonales

F u n c i n :a s s o c _ l e g e n d r e _ p( < n > ,< m > ,< x > ) L af u n c i nd eL e g e n d r ea s o c i a d ad el ap r i m e r ac l a s ed e< n >g r a d o y< m >o r d e n . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i o n e s2 2 . 5 . 3 7 ,p g i n a7 7 9 , 8 . 6 . 6( s e g u n d ae c u a c i n ) ,p g i n a3 3 4 ,y8 . 2 . 5 ,e nl ap g i n a3 3 3 .
F u n c i n :a s s o c _ l e g e n d r e _ q( < n > ,< m > ,< x > ) L af u n c i na s o c i a d ad eL e g e n d r ed es e g u n d ae s p e c i ed e< n >g r a d o y< m >o r d e n . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,l ae c u a c i n8 . 5 . 3y8 . 1 . 8 .
F u n c i n :c h e b y s h e v _ t( < n > ,< x > ) L af u n c i nd eC h e b y s h e vd el ap r i m e r ac l a s e . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i n2 2 . 5 . 4 7 ,p g i n a7 7 9 .
F u n c i n :c h e b y s h e v _ u( < n > ,< x > ) L af u n c i nd eC h e b y s h e vd es e g u n d ae s p e c i e . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i n2 2 . 5 . 4 8 ,p g i n a7 7 9 .
F u n c i n :g e n _ l a g u e r r e( < n > ,< a >< x > )
533/633
28/08/13

E lp o l i n o m i og e n e r a l i z a d od eL a g u e r r ed e< n >g r a d o . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i n2 2 . 5 . 5 4 ,p g i n a7 8 0 .
F u n c i n :h e r m i t e( < n > ,< x > ) E lp o l i n o m i od eH e r m i t e . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i n2 2 . 5 . 5 5 ,p g i n a7 8 0 .
F u n c i n :i n t e r v a l p( < e > ) V o l v e r` t r u e' s il ae n t r a d ae su ni n t e r v a l oyd e v o l v e rf a l s es i n ol oe s .
F u n c i n :j a c o b i _ p( < n > ,< a > ,< x > ) E lp o l i n o m i od eJ a c o b i . L o sp o l i n o m i o sd eJ a c o b ie s t nd e f i n i d o sp a r at o d a s< a >y ; S i ne m b a r g o ,e lp e s op o l i n o m i od eJ a c o b i` ( 1-< x > )^< a >( 1+ < x > )^' n oe si n t e g r a b l ep a r a` < a >< =1 'o `< =1' . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i n2 2 . 5 . 4 2 ,p g i n a7 7 9 .
F u n c i n :L a g u e r r e( < n > ,< x > ) E lp o l i n o m i od eL a g u e r r e . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i o n e s2 2 . 5 . 1 6y2 2 . 5 . 5 4 , p g i n a7 8 0 .
F u n c i n :l e g e n d r e _ p( < n > ,< x > ) E lp o l i n o m i od eL e g e n d r ed ep r i m e r ac l a s e . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i o n e s2 2 . 5 . 5 0y2 2 . 5 . 5 1 , p g i n a7 7 9 .
F u n c i n :l e g e n d r e _ q( < n > ,< x > ) E lp o l i n o m i od eL e g e n d r ed ep r i m e r ac l a s e . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i o n e s8 . 5 . 3y8 . 1 . 8 .
F u n c i n :o r t h o p o l y _ r e c u r( < f > ,< a r g s > ) D e v u e l v eu n ar e l a c i nr e c u r s i v ap a r al af a m i l i ad ef u n c i o n e so r t o g o n a l e s < f >c o na r g u m e n t o s< a r g s > .L ar e c u r s i ne sc o nr e s p e c t oal a g r a d od e lp o l i n o m i o . ( %I 1 )o r t h o p o l y _ r e c u r( l e g e n d r e _ p ,[ n ,x ] ) ; ( 2n-1 )P( x )x+( 1-n )P( x ) n-1n-2 ( %O 1 )P( x )=n n E ls e g u n d oa r g u m e n t od e` o r t h o p o l y _ r e c u r' d e b es e ru n al i s t ac o ne l n m e r oc o r r e c t od ea r g u m e n t o sp a r al a< f >f u n c i n ,ys in ol oe s , M a x i m as e a l au ne r r o r . ( %I 1 )o r t h o p o l y _ r e c u r( j a c o b i _ p ,[ n ,x ] ) ; F u n c i nj a c o b i _ pt i e n e4a r g u m e n t o s ,s i n oq u er e c i b i 2 -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ; A d e m s ,c u a n d o< f >n oe se ln o m b r ed eu n ad el a sf a m i l i a sd el o s p o l i n o m i o so r t o g o n a l e s ,s es e a l i z au ne r r o r . ( %I 1 )o r t h o p o l y _ r e c u r( f o o ,[ n ,x ] ) ; U n ar e l a c i nr e c u r s i v ap a r ac o m i d an os es a b eq u eM a x i m a -U ne r r o r .D e j a rd ef u m a r .P a r ad e p u r a re s t ed e b u g m o d et r y( t r u e ) ;
V a r i a b l e :o r t h o p o l y _ r e t u r n s _ i n t e r v a l s V a l o rp o rd e f e c t o :t r u e'
534/633
28/08/13

C u a n d o` o r t h o p o l y _ r e t u r n s _ i n t e r v a l s' e s `t r u e ' ,p u n t of l o t a n t e r e s u l t a d o ss ed e v u e l v e ne ne li n t e r v a l od el af o r m a` ( < c > ,< r > )' ,d o n d e< c > e se lc e n t r od eu ni n t e r v a l oy< r >e ss ur a d i o .E lc e n t r op u e d e s e ru nn m e r oc o m p l e j o ,e nc u y oc a s o ,e li n t e r v a l oe sd eu nd i s c oe ne l p l a n oc o m p l e j o .
F u n c i n :o r t h o p o l y _ w e i g h t( < f > ,< a r g s > ) D e v u e l v eu n al i s t ad et r e se l e m e n t o s ,e lp r i m e re l e m e n t oe sl af r m u l ad e e lp e s od el af a m i l i ad ep o l i n o m i o so r t o g o n a l e s< f >c o na r g u m e n t o s d a d op o rl al i s t a< a r g s > ;l o se l e m e n t o ss e g u n d oyt e r c e r od a nl a e x t r e m o si n f e r i o rys u p e r i o rd e li n t e r v a l od eo r t o g o n a l i d a d .P a r a e j e m p l o , ( %I 1 )w :o r t h o p o l y _ w e i g h t( h e r m i t e ,[ n ,x ] ) ; 2 -X ( %O 1 )[ %e ,-i n f ,i n f ] ( %I 2 )i n t e g r a t e( w[ 1 ]*h e r m i t e( 3 ,x )*h e r m i t e( 2 ,x ) ,x ,w[ 2 ] ,w[ 3 ] ) ; ( %O 2 )0 L av a r i a b l ep r i n c i p a ld e l< f >d e b es e ru ns m b o l o ,ys in ol oe s ,M a x i m a s e a l au ne r r o r .
F u n c i n :p o c h h a m m e r( < n > ,< x > ) E ls m b o l oP o c h h a m m e r .P a r an m e r o se n t e r o sn on e g a t i v o s< n >c o n` < n >< = p o c h h a m m e r _ m a x _ i n d e x' ,l ae x p r e s i n` p o c h h a m m e r( < x >< n > ) ' s ee v a l u ae lp r o d u c t o` < x >( < x >+1 )( < x >+2 ). . .( < x >+N1 )" c u a n d o `< n > >0" ye n1c u a n d o `< n >=0' .P a r a< n >n e g a t i v a , ` P o c h h a m m e r( < x >< n > )' s ed e f i n ec o m o '( 1 )^< n >/p o c h h a m m e r( 1< x >-< n > ) .A s ( %I 1 )p o c h h a m m e r( x ,3 ) ; ( %O 1 )x( x+1 )( x+2 ) ( %I 2 )p o c h h a m m e r( x ,3 ) ; 1 ( %O 2 )( 1-x )( 2-x )( 3-x ) P a r ac o n v e r t i ru ns m b o l oP o c h h a m m e re nu nc o c i e n t ed ef u n c i o n e sg a m m a , ( V a s eA b r a m o w i t zyS t e g u n ,e c u a c i n6 . 1 . 2 2 )u t i l i z a n` m a k e g a m m a " ,p o r q u e e j e m p l o ( %I 1 )m a k e g a m m a( p o c h h a m m e r( x ,n ) ) ; g a m m a( x+n ) ( %O 1 )g a m m a( x ) C u a n d o< n >s u p e r ap o c h h a m m e r _ m a x _ i n d e x` ' oc u a n d o< n >e ss i m b l i c o , ` P o c h h a m m e r' d e v u e l v eu n af o r m an o m i n a l . ( %I 1 )p o c h h a m m e r( x ,n ) ; ( %O 1 )( x ) n
V a r i a b l e :p o c h h a m m e r _ m a x _ i n d e x V a l o rp o rd e f e c t o :1 0 0 ` P o c h h a m m e r( < n > ,< x > )' s ee x p a n d eau np r o d u c t os iys l os i `< n > < =P o c h h a m m e r _ m a x _ i n d e x' . E j e m p l o s : ( %I 1 )p o c h h a m m e r( x ,3 ) ,p o c h h a m m e r _ m a x _ i n d e x :3 ; ( %O 1 )x( x+1 )( x+2 ) ( %I 2 )p o c h h a m m e r( x ,4 ) ,p o c h h a m m e r _ m a x _ i n d e x :3 ; ( %O 2 )( x ) 4 R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i n6 . 1 . 1 6 ,p g i n a2 5 6 .
F u n c i n :s p h e r i c a l _ b e s s e l _ j( < n > ,< x > ) L af u n c i nd eB e s s e le s f r i c ad el ap r i m e r ac l a s e . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i o n e s1 0 . 1 . 8 ,p g i n a4 3 7y 1 0 . 1 . 1 5 ,p g i n a4 3 9 .
F u n c i n :s p h e r i c a l _ b e s s e l _ y( < n > ,< x > ) L af u n c i nd eB e s s e le s f r i c ad el as e g u n d ac l a s e .
535/633
28/08/13

R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i o n e s1 0 . 1 . 9 ,p g i n a4 3 7y 1 0 . 1 . 1 5 ,p g i n a4 3 9 .
F u n c i n :s p h e r i c a l _ h a n k e l 1( < n > ,< x > ) L af u n c i nd eH a n k e le s f r i c a sd el ap r i m e r ac l a s e . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i n1 0 . 1 . 3 6 ,p g i n a4 3 9 .
F u n c i n :s p h e r i c a l _ h a n k e l 2( < n > ,< x > ) L af u n c i nd eH a n k e le s f r i c a sd el as e g u n d ac l a s e . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i n1 0 . 1 . 1 7 ,p g i n a4 3 9 .
F u n c i n :s p h e r i c a l _ h a r m o n i c( < n > ,< m > ,< x >< y > ) L af u n c i na r m n i c ae s f r i c a . R e f e r e n c i a :M e r z b a c h e r9 , 6 4 .
F u n c i n :u n i t _ s t e p( < x > ) L af u n c i ne s c a l nu n i t a r i oc o n t i n u ap o rl ai z q u i e r d a ,p o rl oq u e` u n i t _ s t e p( < x > )' d e s a p a r e c ep a r a` < x >< =0 "ye si g u a la1p a r a` < x > >0 . S id e s e au n af u n c i ne s c a l nu n i d a dq u et o m ae lv a l o rd e1 / 2a c e r o ,u t i l i c e` ( 1+s i g n u m( < x > ) )/2' .
F u n c i n :u l t r a s p h e r i c a l( < n > ,< a >< x > ) E lp o l i n o m i ou l t r a s p h e r i c a l( t a m b i nc o n o c i d oc o m oe lG e g e n b a u e r p o l i n o m i o ) . R e f e r e n c i a :A b r a m o w i t zyS t e g u n ,e c u a c i n2 2 . 5 . 4 6 ,p g i n a7 7 9 .
71 plotdf
I n t r o d u c c i nap l o t d f F u n c i o n e syv a r i a b l e sp a r ap l o t d f
71.1 Introduccin a plotdf

L af u n c i n` p l o t d f' c r e au ng r f i c od e lc a m p od ed i r e c c i o n e s( t a m b i n l l a m a d oc a m p od ep e n d i e n t e )d ep r i m e ro r d e ne c u a c i nd i f e r e n c i a lo r d i n a r i a ( O D E )ou ns i s t e m ad ed o sa u t n o m ad ep r i m e ro r d e nd eO D E . P l o t d fr e q u i e r eX m a x i m a .S ep u e d eu t i l i z a rd e s d el ac o n s o l aoc u a l q u i e ro t r o i n t e r f a zd eM a x i m a ,p e r oe la r c h i v or e s u l t a n t es ee n v i a r aX m a x i m ap a r a t r a z a d o .P o rf a v o r ,a s e g r e s ed eh a b e ri n s t a l a d oX m a x i m aa n t e sd ei n t e n t a r u t i l i z a rp l o t d f . P a r ad i b u j a re lc a m p od ed i r e c c i nd eu n as o l aO D E ,e lO D Ed e b ee s c r i b i r s e e nl af o r m a : d y -=F( x ,y ) d x yl a< F >f u n c i nd e b ed a rc o m oa r g u m e n t op a r a` p l o t d f' . S il a sv a r i a b l e si n d e p e n d i e n t e syd e p e n d i e n t e sn os o n< x >y< y > ,c o m oe n l ae c u a c i na n t e r i o r ,ac o n t i n u a c i n ,e s a sd o sv a r i a b l e sd e b e ns e rn o m b r a d o se x p l c i t a m e n t e e nu n al i s t ad a d ac o m oa r g u m e n t oa lc o m a n d op l o t d f( v e rl o se j e m p l o s ) . P a r ad i b u j a re lc a m p od ed i r e c c i nd eu nc o n j u n t od ed o sE D Oa u t n o m ad e ,q u e d e b ee s t a re s c r i t oe nf o r m a d xd y -=G( x ,y )-=F( x ,y ) d td t ye la r g u m e n t op a r a` p l o t d f' d e b es e ru n al i s t ac o nl o sd o s f u n c i o n e s< G >y< F > ,e ne s eo r d e n ,as a b e r ,l ap r i m e r ae x p r e s i ne n l al i s t as et o m ac o m ol ad e r i v a d ad el av a r i a b l e r e p r e s e n t a d oe ne le j eh o r i z o n t a l ,yl as e g u n d ae x p r e s i ns e r l ad e r i v a d ad et i e m p od el av a r i a b l er e p r e s e n t a d ae ne le j ev e r t i c a l . E s a sd o sv a r i a b l e sn ot i e n e nq u es e r< x >y< y > ,p e r os in oe sa s , e n t o n c e se ls e g u n d oa r g u m e n t od a d oap l o t d fd e b es e ro t r al i s t ad en o m b r e s l a sd o sv a r i a b l e s ,p r i m e r oe lu n oe ne le j eh o r i z o n t a lyac o n t i n u a c i n ,l a u n oe ne le j ev e r t i c a l .
536/633
28/08/13

S is l os ed au nO D E ,` p l o t d f' s e r i m p l c i t a m e n t ea d m i t i r `x=t ' ,y ` G( x ,y )=1' ,l at r a n s f o r m a c i nd el ae c u a c i nn oa u t n o m ae nu ns i s t e m ad e d o se c u a c i o n e sa u t n o m a s .
71.2 Funciones y variables para plotdf

F u n c i n :p l o t d f( < d y d x > ,. . .o p c i o n e s. . . ) F u n c i n :p l o t d f( < d v d u > ,` [ ' ,< v > ` ] ' ,. . .o p c i o n e s. . . ) F u n c i n :p l o t d f( ` [ ' < d x d t > ,< d y d t > ` ] ' ,. . .o p c i o n e s. . . ) F u n c i n :p l o t d f( ` [ ' < d u d t > ,< d v d t > ` ] ' ,' [ ' ,< v >` ]' ,. . .o p c i o n e s. . . ) M u e s t r au nc a m p od ed i r e c c i ne nd o sd i m e n s i o n e s< x >y< y > . < d y d x > ,< d x d t >y< d y d t >s o ne x p r e s i o n e sq u ed e p e n d e nd e< x >y < y > .< d v d u > ,< d u d t >y< d v d t >s o ne x p r e s i o n e sq u ed e p e n d e nd e y< v > .A d e m sd ee s a sd o sv a r i a b l e s ,l a se x p r e s i o n e sp u e d e n T a m b i nd e p e n d e r d eu nc o n j u n t od ep a r m e t r o s ,c o nl o sv a l o r e sn u m r i c o sd a d o s c o nl ao p c i n` p a r m e t r o s' ( l as i n t a x i sd el ao p c i ns ed aac o n t i n u a c i n ) , oc o nu nr a n g od ev a l o r e sp e r m i t i d o se s p e c i f i c a d o sp o ru n ao p c i nd e< s l i d e r s > . V a r i a so p c i o n e ss ep u e d e nd a rd e n t r od e lc o m a n d o ,os e l e c c i o n a d o s e ne lm e n .C u r v a si n t e g r a l e ss ep u e d e no b t e n e rh a c i e n d oc l i ce ne l t r a m a ,oc o nl ao p c i n` t r a j e c t o r y _ a t' .L ad i r e c c i nd el a l ai n t e g r a c i np u e d es e rc o n t r o l a d ac o nl ao p c i n` d i r e c c i n' ,e lc u a l p u e d e nt e n e rv a l o r e sd e_ f o r w a r d _ ,_ b a c k w a r d _o_ b o t h _ .E ln m e r od e p a s o sd ei n t e g r a c i ne s t d a d ap o rn s t e p s` ' ye li n t e r v a l od et i e m p o e n t r ee l l o se s t c o n f i g u r a d oc o nl ao p c i n` t s t e p' .T h eA d a m sM o u l t o n m t o d os eu t i l i z ap a r al ai n t e g r a c i n ,s i n oq u et a m b i ne sp o s i b l ec a m b i a r au nm t o d op a r ac u a r t od eR u n g e K u t t ad ea d a p t a c i n . M e n d el av e n t a n aP l o t : E lm e n d el av e n t a n ad ed i b u j ot i e n el a ss i g u i e n t e so p c i o n e s :_ Z o o m _ ,v o l u n t a d c a m b i a re lc o m p o r t a m i e n t od e lr a t np a r aq u es el ep e r m i t i r h a c e rz o o m e nu n ar e g i nd e lg r f i c o ,h a g ac l i cc o ne lb o t ni z q u i e r d o .C a d a h a g ac l i ce nc e r c ad eu np u n t om a g n i f i c al at r a m a ,m a n t e n i e n d oe lc e n t r oe nl a p u n t oe ne lq u eh ah e c h oc l i c .M a n t e n i e n d op u l s a d al at e c l a< M a y s >m i e n t r a sh a c ec l i c , a l e j aal aa m p l i a c i na n t e r i o r .P a r ar e a n u d a rl ac o m p u t a c i n t r a y e c t o r i a sc u a n d os eh a c ec l i ce nu np u n t o ,s e l e c c i o n e_ I n t e g r a t e _d e e lm e n . L ao p c i n_ C o n f i g _e ne lm e n s ep u e d eu t i l i z a rp a r ac a m b i a rl aO D E( s )e n u t i l i z a ryr e a l i z a ro t r o sa j u s t e s .D e s p u sd el o sc a m b i o sd ec o n f i g u r a c i ns o n h e c h o ,l ao p c i nd em e n _ R e p l o t _s ed e b es e l e c c i o n a r ,p a r aa c t i v a re l n u e v ac o n f i g u r a c i n .S iu np a rd ec o o r d e n a d a ss ei n t r o d u c e ne ne lc a m p o A t __ T r a j e c t o r ye ne lm e n d ed i l o g o_ C o n f i g _ ,yl ac l a v e< e n t e r > s ep u l s a ,s em o s t r a r u n an u e v ac u r v ai n t e g r a l ,a d e m sd el a l o sq u es em u e s t r a n .C u a n d os es e l e c c i o n a_ R e p l o t _ ,s l ol a l t i m a a p a r e c e r c u r v ai n t e g r a le n t r a d o . M a n t e n i e n d op u l s a d oe lb o t nd e r e c h od e lr a t nm i e n t r a ss em u e v ee lc u r s o r ,p u e d e u t i l i z a r s ep a r aa r r a s t r a rl at r a m ah a c i al o sl a d o soh a c i aa r r i b ayh a c i aa b a j o .A d i c i o n a l p a r m e t r o st a l e sc o m oe ln m e r od ep a s o s ,e lv a l o ri n i c i a ld e< t > yXyYyc e n t r o sd er a d i o s ,s ep u e d ef i j a re ne lm e n C o n f i g . U n ac o p i ad el at r a m as ep u e d eg u a r d a rc o m ou na r c h i v oP o s t S c r i p t ,u s a n d ol a o p c i nd em e n _ S a v e _ . O p c i o n e sP a r c e l a : E lc o m a n d o` p l o t d f' p u e d ei n c l u i rv a r i o sc o m a n d o s ,c a d ac o m a n d oe s u n al i s t ad ed o som se l e m e n t o s .E lp r i m e re l e m e n t oe se ln o m b r ed el a o p c i n ,ye lr e s t oc o m p r e n d ee lv a l o rov a l o r e sa s i g n a d o s al ao p c i n . L a so p c i o n e sq u es o nr e c o n o c i d o sp o r` p l o t d f' s o nl o ss i g u i e n t e s : *" T s t e p "d e f i n el al o n g i t u dd el o si n c r e m e n t o se nl a v a r i a b l ei n d e p e n d i e n t e< t > ,u s a d op a r ac a l c u l a ru n ac u r v ai n t e g r a l . S is l os ed au n< d y d x >e x p r e s i n` p l o t d f' ,e l< x > v a r i a b l es e r d i r e c t a m e n t ep r o p o r c i o n a la< t > .E lv a l o rp o rd e f e c t o v a l o re s0 . 1 . *" N s t e p s "d e f i n ee ln m e r od ep a s o sd el o n g i t u d` T s t e p' q u e s eu t i l i z a r p a r al av a r i a b l ei n d e p e n d i e n t e ,p a r ac a l c u l a ru n a c u r v ai n t e g r a l .E lv a l o rp o rd e f e c t oe s1 0 0 . *" D i r e c c i n "d e f i n el ad i r e c c i nd el av a r i a b l ei n d e p e n d i e n t e q u es es e g u i r p a r ac a l c u l a ru n ac u r v ai n t e g r a l .P o s i b l e v a l o r e ss o n` h a c i aa d e l a n t e' ,p a r aq u el av a r i a b l ei n d e p e n d i e n t e a u m e n t a r` ' t i e m p o s ,c o ni n c r e m e n t o s `t s t e p 'n s t e p s ,` a t r s' , p a r ah a c e rq u el ad i s m i n u c i nv a r i a b l ei n d e p e n d i e n t e ,o` t a n t o' q u e d a r l u g a rau n ac u r v ai n t e g r a lq u es ee x t i e n d e` n s t e p s' h a c i aa d e l a n t e , yh a c i aa t r s` n s t e p s' .L a sp a l a b r a sc l a v e` d e r e c h o' y 'l e f t' p u e d e ns e r u t i l i z a d o sc o m os i n n i m o sd e` h a c i aa d e l a n t e' y 'a t r s' .E lv a l o rp o rd e f e c t o v a l o re s' t a n t o ' . *" T i n i t i a l "d e f i n ee lv a l o ri n i c i a ld el av a r i a b l eu s a d ap a r a< t > c a l c u l a rc u r v a si n t e g r a l e s .P u e s t oq u el a se c u a c i o n e sd i f e r e n c i a l e ss o n a u t n o m a ,e s ea j u s t es l oa p a r e c e r e nl at r a m ad el a c u r v a sc o m of u n c i o n e sd e< t > .E lv a l o rp o rd e f e c t oe s0 . *" V e r s u s _ t "s eu t i l i z ap a r ac r e a ru n as e g u n d av e n t a n ad ed i b u j o ,c o nu n a p a r c e l ad eu n ac u r v ai n t e g r a l ,c o m od o sf u n c i o n e s< x >< y > ,d e l
537/633
28/08/13

v a r i a b l ei n d e p e n d i e n t e< t > .S in os ed a` v e r s u s _ t' c u a l q u i e rv a l o r d i s t i n t od e0 ,s em o s t r a r l av e n t a n ad e ls e g u n d oa r g u m e n t o . L as e g u n d av e n t a n ad ed i b u j oi n c l u y eo t r om e n ,s i m i l a ral a m e n d el av e n t a n ap r i n c i p a la r g u m e n t o .E lv a l o rp o rd e f e c t oe s0 . *" T r a j e c t o r y _ a t "d e f i n ee l< x i n i t i a l >c o o r d e n a d a sy < y i n i t i a l >p a r ae lp u n t od ep a r t i d ad eu n ac u r v ai n t e g r a l .L a o p c i ne s t v a c ad ef o r m ap r e d e t e r m i n a d a . *" P a r m e t r o s "d e f i n eu n al i s t ad ep a r m e t r o sys u v a l o r e sn u m r i c o s ,u t i l i z a d o se nl ad e f i n i c i nd el ad i f e r e n c i a l e c u a c i o n e s .E ln o m b r eyl o sv a l o r e sd el o sp a r m e t r o sd e b e ns e r d a d ae nu n ac a d e n ac o nu n as e c u e n c i as e p a r a d ap o rc o m a sd ep a r e s ` N o m b r e=v a l o r' . *" S l i d e r s "d e f i n eu n al i s t ad ep a r m e t r o sq u es ep u e d e nc a m b i a r i n t e r a c t i v au t i l i z a n d ol o sb o t o n e sd e s l i z a n t e s ,yl ag a m ad e v a r i a c i nd ee s o sp a r m e t r o s .L o sn o m b r e syr a n g o sd el a p a r m e t r o sd e b e nd a r s ee nu n ac a d e n ac o nu n ac o m a s e p a r a d o s s e c u e n c i ad ee l e m e n t o s` n a m e=m i n :m a x' *" X f u n "d e f i n eu n ac a d e n ac o nl as e c u e n c i as e m i s e p a r a d ap o rd o sp u n t o sd e f u n c i o n e sd e< x >q u es em u e s t r e n ,e nl ap a r t es u p e r i o rd el ad i r e c c i n c a m p o .E s a sf u n c i o n e ss e r na n a l i z a d o sp o rT c lyn op o r M a x i m a . *" X "d e b ei rs e g u i d ad ed o sn m e r o s ,q u ed e b e np r e p a r a rl o s l o sv a l o r e sm n i m oym x i m os em u e s t r a ne ne le j eh o r i z o n t a l .S i l av a r i a b l ee ne le j eh o r i z o n t a ln oe s< x > ,e n t o n c e se s t e o p c i nd e b et e n e re ln o m b r ed el av a r i a b l ee ne le j eh o r i z o n t a l e j e .E lr a n g oh o r i z o n t a lp o rd e f e c t oe sd e1 0a1 0 . *" Y "d e b ei rs e g u i d ad ed o sn m e r o s ,q u ed e b e np r e p a r a rl o s l o sv a l o r e sm n i m oym x i m os em u e s t r a ne ne le j ev e r t i c a l .S ie l v a r i a b l es o b r ee le j ev e r t i c a ln oe s< y > ,ac o n t i n u a c i n ,e s t ao p c i n d e b et e n e re ln o m b r ed el av a r i a b l ee ne le j ev e r t i c a l . E lr a n g ov e r t i c a lp o rd e f e c t oe sd e1 0a1 0 . *E j e m p l o s :* *P a r am o s t r a re lc a m p od ed i r e c c i o n e sd el ae c u a c i nd i f e r e n c i a ly' = e x p( x )+y ,yl as o l u c i nq u ep a s ap o r( 2 ,0 , 1 ) : ( %I 1 )p l o t d f( e x p( x )+y ,[ t r a j e c t o r y _ a t ,2 ,0 , 1 ] )$ *P a r ao b t e n e re lc a m p od ed i r e c c i o n e sd el ae c u a c i nd i f f( y ,x )=x -Y^2yl as o l u c i nc o nl ac o n d i c i ni n i c i a ly( 1 )=3 ,n o s p u e d eu t i l i z a re lc o m a n d o : ( %I 1 )p l o t d f( x^2 ,[ x f u n" ,s q r t( x ) ,s q r t( x ) " ] , [ T r a j e c t o r y _ a t ,1 , 3 ] ,[ d i r e c c i n ,h a c i aa d e l a n t e ] , [ Y ,5 , 5 ] ,[ x ,4 , 1 6 ] )$ E lg r f i c ot a m b i nm u e s t r al af u n c i ny=s q r t( x ) . *E le j e m p l os i g u i e n t em u e s t r ae lc a m p od ed i r e c c i nd eu na r m n i c o o s c i l a d o r ,d e f i n i d op o rl a sd o se c u a c i o n e sd z/d t=vyd v/d t = K*z/m ,yl ac u r v ai n t e g r a lat r a v sd e( z ,v )=( 6 , 0 ) ,c o n u nc o n t r o ld e s l i z a n t eq u ep e r m i t ec a m b i a re lv a l o rd em i n t e r a c t i v a( ks ef i j ae n2 ) : ( %I 1 )p l o t d f( [ v , k*z/m ] ,[ z ,v ] ,[ p a r m e t r o s" ,m=2 ,k=2 " ] , [ S l i d e r s ," m=0 1 : 0 5 " ] ,[ t r a j e c t o r y _ a t ,6 , 0 ] )$ *P a r ad i b u j a re lc a m p od ed i r e c c i o n e sd el ae c u a c i nD u f f i n g , m*x" +c*x' +k*x+b*x^3=0 ,s ei n t r o d u c el av a r i a b l ey=x 'y u s a r : ( %I 1 )p l o t d f( [ y ,-( k*x+y+c*b*x^3 )/m ] , [ P a r m e t r o s ," k=1 ,m=1 , 0 ,c=0 ,b=1 " ] , [ S l i d e r s" ,k=2 : 2 ,m=1 : 1 " ] ,[ t s t e p ,0 , 1 ] )$ *E lc a m p od ed i r e c c i o n e sd eu np n d u l oa m o r t i g u a d o ,i n c l u y e n d oe l s o l u c i np a r al a sc o n d i c i o n e si n i c i a l e sd a d a s ,c o nu nc o n t r o ld e s l i z a n t eq u e s ep u e d eu t i l i z a rp a r ac a m b i a re lv a l o rd el am a s am ,yc o nu n p a r c e l ad el a sd o sv a r i a b l e sd ee s t a d oc o m ou n af u n c i nd e lt i e m p o : ( %I 1 )p l o t d f( [ w , g*s i n( a )/l-b*w/m/l ] ,[ a ,w ] , [ P a r m e t r o s" ,g=9 . 8 ,l=0 , 5 ,m=0 , 3 ,b=0 . 0 5 " ] , [ T r a j e c t o r y _ a t ,1 . 0 5 ,9 ] ,[ t s t e p ,0 , 0 1 ] , [ A ,1 0 , 2 ] ,[ w ,1 4 , 1 4 ] ,[ d i r e c c i n ,h a c i aa d e l a n t e ] , [ N s t e p s ,3 0 0 ] ,[ s l i d e r s ," m=0 , 1 : 1 " ] ,[ v e r s u s _ t ,1 ] )$
72 Romberg
F u n c i o n e syv a r i a b l e sp a r aR o m b e r g
72.1 Funciones y variables para Romberg

F u n c i n :R o m b e r g( e x p r ,< x >< a > ) F u n c i n :R o m b e r g( < F > ,< a > ) C a l c u l au n ai n t e g r a c i nn u m r i c ap o re lm t o d od eR o m b e r g . ` R o m b e r g( e x p r ,< x >< a > )' d e v u e l v eu n ae s t i m a c i nd el a
538/633
28/08/13

i n t e g r a l' i n t e g r a t e( e x p r ,< x >< a > ) .e x p rd e b es e ru n a e x p r e s i nq u es ee v a l ac o m ou nv a l o rd ep u n t of l o t a n t ec u a n d o< x >e s u n i d oau nv a l o rd ep u n t of l o t a n t e . ` R o m b e r g( < F > ,< a > )' d e v u e l v eu n ae s t i m a c i nd el ai n t e g r a l ` I n t e g r a r( < F >( x ) ,x ,< a > )' d o n d e 'x' r e p r e s e n t ae ls i nn o m b r e , n i c oa r g u m e n t od e< F > ,e la r g u m e n t or e a ln os el l a m a` x' .< F > d e b es e ru n af u n c i nd eM a x i m aod eL i s pq u ed e v u e l v eu np u n t of l o t a n t e v a l o rc u a n d oe la r g u m e n t oe su nv a l o rd ec o m af l o t a n t e .< F >P u e d en o m b r a r t r a d u c i d aoc o m p i l a d af u n c i nd eM a x i m a . L ap r e c i s i nd e` R o m b e r g' s er i g ep o rl a sv a r i a b l e sg l o b a l e s R o m b e r g a b s` ' y `r o m b e r g t o l ' .` R o m b e r g' t e r m i n ac o n x i t o c u a n d ol ad i f e r e n c i aa b s o l u t ae n t r es u c e s i v a sa p r o x i m a c i o n e se s m e n o sd e` r o m b e r g a b s' ,ol ad i f e r e n c i ar e l a t i v ae nl a ss u c e s i v a s a p r o x i m a c i o n e se sm e n o rq u er o m b e r g t o l` ' .A s ,c u a n d o` r o m b e r g a b s' e s0 . 0( e lv a l o rp r e d e t e r m i n a d o ) ,s l ol ap r u e b ad ee r r o rr e l a t i v ot i e n en i n g ne f e c t o e l` R o m b e r g . ` R o m b e r g' al am i t a de lt a m a od ep a s oe nl am a y o r ad e `r o m b e r g i t 'v e c e sa n t e sd eq u e r e n u n c i a ,e ln m e r om x i m od ee v a l u a c i o n e sd el af u n c i ne sp o rl ot a n t o ` 2^r o m b e r g i t' .S ie lc r i t e r i od ee r r o re s t a b l e c i d op o r` r o m b e r g a b s' y` r o m b e r g t o l' n oe s t s a t i s f e c h o , `R o m b e r g 'i m p r i m eu ne r r o r m e n s a j e .` R o m b e r g' s i e m p r eh a c ea lm e n o s `r o m b e r g m i n 'i t e r a c i o n e s ; s et r a t ad eu n ah e u r s t i c ap a r ae v i t a rl af i n a l i z a c i np r e m a t u r ac u a n d o e li n t e g r a n d oe so s c i l a t o r i o . ` R o m b e r ge v a l ae li n t e g r a n d or e p e t i d a m e n t et r a sl au n i nd e l v a r i a b l ed ei n t e g r a c i ne nu nv a l o re s p e c f i c o( yn oa n t e s ) . E s t ap o l t i c ad ee v a l u a c i np e r m i t ea n i d a rl l a m a d a sa ` R o m b e r g " ,p a r ac a l c u l a ri n t e g r a l e sm u l t i d i m e n s i o n a l e s .S i ne m b a r g o ,l a c l c u l o sd ee r r o rn ot i e n e nl o se r r o r e sd ei n t e g r a c i o n e sa n i d a d a s e nc u e n t a ,p o rl oq u ep u e d e ns e rs u b e s t i m a d o se r r o r e s .A d e m s ,l o sm t o d o s i d e a d oe s p e c i a l m e n t ep a r ap r o b l e m a sm u l t i d i m e n s i o n a l e sp u e d ep r o d u c i rl o m i s m ap r e c i s i nc o nu nm e n o rn m e r od ee v a l u a c i o n e sd el af u n c i n . C a r g a s` c a r g a( R o m b e r g )' e s t af u n c i n . C o n s u l t et a m b i n` Q U A D P A C K' ,u n ac o l e c c i nd ei n t e g r a c i nn u m r i c a f u n c i o n e s . E j e m p l o s : U n ai n t e g r a c i n1 d i m e n s i o n a l . ( %I 1 )l o a d( R o m b e r g ) ; ( %O 1 )/u s r / s h a r e / m a x i m a / 5 . 1 1 . 0 / s h a r e / n u m e r i c / r o m b e r g . l i s p ( %I 2 )f( x ) :=1/( ( x-1 )^2+1 / 1 0 0 )+1/( ( x-2 )^2+1 / 1 0 0 0 ) +1/( ( x-3 )^2+1 / 2 0 0 ) ; 111 ( %O 2 )f( x ) :=-+-+-212121 ( X-1 )+-( x-2 )+-( x-3 )+1 0 01 0 0 02 0 0 ( %I 3 )r o m b e r g t o l :1 e 6 ; ( %O 3 )9 . 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 5 E 7 ( %I 4 )r o m b e r g i t :1 5 ; ( %O 4 )1 5 ( %I 5 )e s t i m a c i n :R o m b e r g( f( x ) ,x ,5 ,5 ) ; ( %O 5 )1 7 3 , 6 7 3 0 7 3 6 6 1 7 4 6 4 ( %I 6 )e x a c t a :i n t e g r a t e( f( x ) ,x ,5 ,5 ) ; ( %O 6 )1 0s q r t( 1 0 )a t a n( 7 0s q r t( 1 0 ) ) 1 0+s q r t( 1 0 )a t a n( 3 0s q r t( 1 0 ) )1 0+s q r t( 2 )a t a n( 8 0s q r t( 2 ) ) 1 0+s q r t( 2 )a t a n( 2 0s q r t( 2 ) )+1 0a t a n( 6 0 )+1 0a t a n( 4 0 ) ( %I 7 )a b s( e s t i m a c i n-e x a c t a )/e x a c t a ,n u m e r ; ( %O 7 )7 . 5 5 2 7 0 6 0 8 6 5 0 6 0 0 8 8 E 1 1 U n ai n t e g r a c i nd e2d i m e n s i o n e s ,i m p l e m e n t a d op o rl l a m a d a sa n i d a d a sa ` R o m b e r g . ( %I 1 )l o a d( R o m b e r g ) ; ( %O 1 )/u s r / s h a r e / m a x i m a / 5 . 1 1 . 0 / s h a r e / n u m e r i c / r o m b e r g . l i s p ( %I 2 )g( x ,y ) :=x*y/( x+y ) ; x y ( %O 2 )g( x ,y ) :=x+y ( %I 3 )r o m b e r g t o l :1 e 6 ; ( %O 3 )9 . 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 5 E 7 ( %I 4 )e s t i m a c i n :R o m b e r g( R o m b e r g( g( x ,y ) ,y ,0 ,x/2 ) ,x ,1 ,3 ) ; ( %O 4 )0 . 8 1 9 3 0 2 3 9 6 2 8 3 5 6 ( %I 5 )a s u m i r ( x >0 ) ; ( %O 5 )[ x >0 ] ( %I 6 )i n t e g r a t e( i n t e g r a t e( g( x ,y ) ,y ,0 ,x/2 ) ,x ,1 ,3 ) ; 3 2l o g( )-1 929 ( %O 6 )-9l o g( )+9l o g( 3 )+-+262 ( %I 7 )e x a c t a :r a d c a n( % ) ; 2 6r e g i s t r o( 3 )-2 6l o g( 2 )-1 3 ( %O 7 )3 ( %I 8 )a b s( e s t i m a c i n-e x a c t a )/e x a c t a ,n u m e r ; ( %O 8 )1 . 3 7 1 1 9 7 9 8 7 1 8 5 1 0 2 4 E 1 0
539/633
28/08/13
V a r i a b l eo p c i o n a l :r o m b e r g a b s V a l o rp o rd e f e c t o :0 . 0
L ap r e c i s i nd e` R o m b e r g' s er i g ep o rl a sv a r i a b l e sg l o b a l e s R o m b e r g a b s` ' y `r o m b e r g t o l ' .` R o m b e r g' t e r m i n ac o n x i t o c u a n d ol ad i f e r e n c i aa b s o l u t ae n t r es u c e s i v a sa p r o x i m a c i o n e se s m e n o sd e` r o m b e r g a b s' ,ol ad i f e r e n c i ar e l a t i v ae nl a ss u c e s i v a s a p r o x i m a c i o n e se sm e n o rq u er o m b e r g t o l` ' .A s ,c u a n d o` r o m b e r g a b s' e s0 . 0( e lv a l o rp r e d e t e r m i n a d o ) ,s l ol ap r u e b ad ee r r o rr e l a t i v ot i e n en i n g ne f e c t o e l` R o m b e r g . C o n s u l t et a m b i n` r o m b e r g i t' y `r o m b e r g m i n ' .
V a r i a b l eo p c i o n a l :r o m b e r g i t V a l o rp o rd e f e c t o :1 1 ` R o m b e r g' al am i t a de lt a m a od ep a s oe nl am a y o r ad e `r o m b e r g i t 'v e c e sa n t e sd eq u e r e n u n c i a ,e ln m e r om x i m od ee v a l u a c i o n e sd el af u n c i ne sp o rl ot a n t o ` 2^r o m b e r g i t' .` R o m b e r g' s i e m p r eh a c el om e n o s `r o m b e r g m i n ' i t e r a c i o n e s ,s et r a t ad eu n ah e u r s t i c ap a r ae v i t a rl af a l s a t e r m i n a c i nc u a n d oe li n t e g r a n d oo s c i l am u c h o . C o n s u l t et a m b i n` r o m b e r g a b s' y `r o m b e r g t o l ' .
V a r i a b l eo p c i o n a l :r o m b e r g m i n V a l o rp o rd e f e c t o :0 ` R o m b e r g' s i e m p r eh a c ea lm e n o s `r o m b e r g m i n 'i t e r a c i o n e s ,l oq u ee su n h e u r s t i c ap a r ae v i t a rl af i n a l i z a c i np r e m a t u r ac u a n d oe l i n t e g r a n d oo s c i l am u c h o . C o n s u l t et a m b i n` r o m b e r g i t' , `r o m b e r g a b s 'y` r o m b e r g t o l' .
V a r i a b l eo p c i o n a l :r o m b e r g t o l V a l o rp o rd e f e c t o :1 e 4 L ap r e c i s i nd e` R o m b e r g' s er i g ep o rl a sv a r i a b l e sg l o b a l e s R o m b e r g a b s` ' y `r o m b e r g t o l ' .` R o m b e r g' t e r m i n ac o n x i t o c u a n d ol ad i f e r e n c i aa b s o l u t ae n t r es u c e s i v a sa p r o x i m a c i o n e se s m e n o sd e` r o m b e r g a b s' ,ol ad i f e r e n c i ar e l a t i v ae nl a ss u c e s i v a s a p r o x i m a c i o n e se sm e n o rq u er o m b e r g t o l` ' .A s ,c u a n d o` r o m b e r g a b s' e s0 . 0( e lv a l o rp r e d e t e r m i n a d o ) ,s l ol ap r u e b ad ee r r o rr e l a t i v ot i e n en i n g ne f e c t o e l` R o m b e r g . C o n s u l t et a m b i n` r o m b e r g i t' y `r o m b e r g m i n ' .
73 simplex
I n t r o d u c c i nas i m p l e x F u n c i o n e syv a r i a b l e sp a r as i m p l e x
73.1 Introduccin a simplex

` S i m p l e' e su np a q u e t ep a r al ao p t i m i z a c i nl i n e a lu t i l i z a n d oe ls i m p l e x a l g o r i t m o . E j e m p l o : ( %I 1 )l o a d( " s m p l e x " )$ ( %I 2 )m i n i m i z e _ l p( x+y ,[ 3*2*xy >2 ,x4*y >3 ] ) ; 971 ( %O 2 )[ ,[ y=,x=] ] 1 01 05
73.2 Funciones y variables para simplex

V a r i a b l eo p c i o n a l :e p s i l o n _ l p V a l o rp o rd e f e c t o :1 0^8' E p s i l o nu t i l i z ae nl o sc l c u l o sn u m r i c o se n` l i n e a r _ p r o g r a m' . V e rt a m b i n :` l i n e a r _ p r o g r a m' .
540/633
28/08/13
F u n c i n :l i n e a r _ p r o g r a m( < A > , ,< c > )
` L i n e a r _ p r o g r a m' e su n ai m p l e m e n t a c i nd e la l g o r i t m os i m p l e x . ` L i n e a r _ p r o g r a m( A ,b ,c )' c a l c u l au n< x >v e c t o rp a r aq u e `c x" e s m n i m ap o s i b l ee n t r el o sv e c t o r e sp a r aq u e` A x=b' y 'x >=0 . < A >A r g u m e n t oe su n am a t r i zya r g u m e n t o sy< c >e s t nl i s t a s . ` L i n e a r _ p r o g r a m' d e v u e l v eu n al i s t aq u ec o n t i e n el am i n i m i z a c i n < x >v e c t o rye lv a l o rm n i m oc . x` ' .S ie lp r o b l e m an oe s a c o t a d o ,d e v u e l v e" E lp r o b l e m an ol i m i t a d o ! "ys ie lp r o b l e m ae s n oe sf a c t i b l e ,d e v u e l v e" P r o b l e m an oe sf a c t i b l e " . P a r au t i l i z a re s t af u n c i n ,p r i m e r oc a r g u ee lp a q u e t e` s i m p l e' c o n L o a d( s i m p l e x ) ;' . E j e m p l o : ( %I 2 )A :m a t r i z( [ 1 , 1 ,1 , 0 ] ,[ 2 ,3 , 0 ,1 ] ,[ 4 ,5 , 0 , 0 ] )$ ( %I 3 )b :[ 1 , 1 , 6 ]$ ( %I 4 )c :[ 1 ,2 , 0 , 0 ]$ ( %I 5 )l i n e a r _ p r o g r a m( A ,B ,C ) ; 1 31 93 ( %O 5 )[ [ ,4,0 ] ,] 222 V e rt a m b i n :` m i n i m i z e _ l p' , `s c a l e _ l p 'y` e p s i l o n _ l p' .
F u n c i n :m a x i m i z e _ l p( < o b j > ,< c o n d > ,[ ] ) M a x i m i z al af u n c i no b j e t i v ol i n e a l< o b j >s u j e t o saa l g nl i n e a l l i m i t a c i o n e s< c o n d > .C o n s u l t e` m i n i m i z e _ l p' p a r ao b t e n e ru n ad e s c r i p c i nd e t a l l a d ad e a r g u m e n t o syv a l o r e sd er e t o r n o . V e rt a m b i n :` m i n i m i z e _ l p' .
F u n c i n :m i n i m i z e _ l p( < o b j > ,< c o n d > ,[ ] ) M i n i m i z au n af u n c i no b j e t i v ol i n e a l< o b j >s u j e t o saa l g nl i n e a l l i m i t a c i o n e s< c o n d > .< c o n d >u n al i s t ad ee c u a c i o n e sl i n e a l e so l a sd e s i g u a l d a d e s .E nd e s i g u a l d a d e se s t r i c t a s` >' s es u s t i t u y ep o r ' >=' y ` < ' P o r `< = ' .E la r g u m e n t oo p c i o n a le su n al i s t ad el ad e c i s i n L a sv a r i a b l e sq u es es u p o n e ns e rp o s i t i v o . S in oe x i s t ee lm n i m o ,` m i n i m i z e _ l p' d e v u e l v eu n al i s t aq u ec o n t i e n e e lv a l o rm n i m od el af u n c i no b j e t i v oyu n al i s t ad el ad e c i s i n v a l o r e sd el a sv a r i a b l e sp a r al a sq u es ea l c a n z ae lm n i m o .S ie lp r o b l e m a n oe s t l i m i t a d a ,` m i n i m i z e _ l p "d e v u e l v e" E lp r o b l e m an ol i m i t a d o ! "y s ie lp r o b l e m an oe sf a c t i b l e ,d e v u e l v e" p l o b l e mn oe sf a c t i b l e " . L a sv a r i a b l e sd ed e c i s i nn os es u p o n eq u es o nn o n e g a t i v ep o r p r e d e t e r m i n a d o .S it o d a sl a sv a r i a b l e sd ed e c i s i ns o nn o n e g a t i v e ,c o n j u n t o ` N o n e g a t i v e _ l p' a 't r u e' .S it a ns l oa l g u n a sd el a sv a r i a b l e sd ed e c i s i ns o n p o s i t i v o ,l a si n c o r p o r a r a la r g u m e n t oo p c i o n a l( t e n g ae nc u e n t aq u ee s t a e sm se f i c a zq u el aa d i c i nd el i m i t a c i o n e s ) . ` M i n i m i z e _ l p' u t i l i z ae la l g o r i t m os i m p l e xq u es ei m p l e m e n t ae n m a x i m a` l i n e a r _ p r o g r a mf u n c i n' . P a r au t i l i z a re s t af u n c i n ,p r i m e r oc a r g u ee lp a q u e t e` s i m p l e' c o n L o a d( s i m p l e x ) ;' . E j e m p l o s : ( %I 1 )m i n i m i z e _ l p( x+y ,[ 3*x+y=0 ,x2*y >2 ] ) ; 462 ( %O 1 )[ ,[ y=,x=] ] 555 ( %I 2 )m i n i m i z e _ l p( x+y ,[ 3*x+y >0 ,x2*y >2 ] ) ,n o n e g a t i v e _ l p=t r u e ; ( %O 2 )[ 1 ,[ y=1 ,x=0 ] ] ( %I 3 )m i n i m i z e _ l p( x+y ,[ 3*x+y=0 ,x2*y >2 ] ) ,n o n e g a t i v e _ l p=t r u e ; ( %O 3 )P r o b l e m an oe sp o s i b l e ! ( %I 4 )m i n i m i z e _ l p( x+y ,[ 3*x+y >0 ] ) ; ( %O 4 )P r o b l e m an ol i m i t a d o ! V e rt a m b i n :` m a x i m i z e _ l p' , `n o n e g a t i v e _ l p ' ,` e p s i l o n _ l p' .
V a r i a b l eo p c i o n a l :n o n e g a t i v e _ l p V a l o rp o rd e f e c t o :f a l s e' S i` n o n e g a t i v e _ l p' e sc i e r t ot o d a sl a sv a r i a b l e sd ed e c i s i na `m i n i m i z e _ l p ' y` m a x i m i z e _ l p' s es u p o n eq u ee sp o s i t i v o . V e rt a m b i n :` m i n i m i z e _ l p' .
74 de simplificacin
28/08/13
I n t r o d u c c i nal as i m p l i f i c a c i n d e lp a q u e t ea b s i m p p a q u e t ef a c e x p p a q u e t ef u n c t s p a q u e t eI n e q p a q u e t er d u c o n p a q u e t es c i f a c p a q u e t es q d n s t
74.1 Introduccin a la simplificacin

E ld i r e c t o r i o` m a x i m a/s h a r e/s i m p l i f i c a c i n "c o n t i e n ev a r i a ss e c u e n c i a sd ec o m a n d o s q u ea p l i c a rl a sn o r m a syf u n c i o n e sd es i m p l i f i c a c i n ,yt a m b i na l g u n o s f u n c i o n e sn or e l a c i o n a d a sc o nl as i m p l i f i c a c i n .
74.2 absimp paquete

E lp a q u e t e` a b s i m p' c o n t i e n en o r m a sc o i n c i d e n c i ad ep a t r o n e sq u ee x t i e n d e nl a i n c o r p o r a d oe nl a sr e g l a sd es i m p l i f i c a c i np a r al a sf u n c i o n e s` A B S' y `s i g n u m . ` A b s i m p' r e s p e t al a sr e l a c i o n e se s t a b l e c i d a sc o ne lb u i l t i n 'a s u m e n' f u n c i nyp o rd e c l a r a c i o n e sc o m o` m o d e d e c l a r e( m ,i n c l u s o ,n ,i m p a r )' d ep a roe n t e r o si m p a r e s . ` A b s i m p' d e f i n e 'u n i t r a m p' f u n c i o n e s ù n i t s t e p 'ye nt r m i n o sd e ` A B S' y 's i g n u m' . ( A b s i m p ) c a r g a s `c a r g ae s t ep a q u e t e .` D e m o( a b s i m p )' m u e s t r au n a d e m o s t r a c i nd ee s t ep a q u e t e . E j e m p l o s : ( %I 1 )l o a d( a b s i m p )$ ( %I 2 )( a b s( x ) )^2 ; 2 ( %O 2 )x ( %I 3 )d i f f( a b s( x ) ,x ) ; x ( %O 3 )a b s( x ) ( %I 4 )c o s h( a b s( x ) ) ; ( %O 4 )c o s h( x )
74.3 facexp paquete

E lp a q u e t e` f a c e x p' c o n t i e n ev a r i a sf u n c i o n e sr e l a c i o n a d a sq u ep r o p o r c i o n a n e lu s u a r i oc o nl ac a p a c i d a dd el ae s t r u c t u r ad ee x p r e s i o n e sp o rc o n t r o l a d o e x p a n s i n .E s t ac a p a c i d a de se s p e c i a l m e n t e t i lc u a n d ol ae x p r e s i n c o n t i e n ev a r i a b l e sq u et i e n e ns i g n i f i c a d of s i c o ,y aq u eam e n u d oe sc i e r t o q u el af o r m am se c o n m i c ad et a le x p r e s i ns ep u e d eo b t e n e r e x p a n d a np o rc o m p l e t ol ae x p r e s i nc o nr e s p e c t oal a sv a r i a b l e sy ,ac o n t i n u a c i n , f a c t o r i n gs u sc o e f i c i e n t e s .S ib i e ne sc i e r t oq u ee s t ep r o c e d i m i e n t oe s n oe sd i f c i ld el l e v a rac a b oe lu s od ef u n c i o n e sd eM a x i m ae s t n d a ra d i c i o n a l e s a j u s t ef i n ot a m b i np u e d es e rd e s e a b l e ,ye s t o st o q u e sf i n a l e sp u e d es e r m sd i f c i ld ea p l i c a r . L af u n c i n` f a c s u m "ys u sf o r m a sc o n e x a sp r o p o r c i o n a nu n ac o n v e n i e n t e m e d i o sp a r ac o n t r o l a rl ae s t r u c t u r ad el a se x p r e s i o n e sd ee s t am a n e r a . O t r af u n c i n ,` c o l l e c t t e r m s' ,s ep u e d eu t i l i z a rp a r aa g r e g a rd o som s e x p r e s i o n e sq u ey ah a ns i d os i m p l i f i c a d o sae s t af o r m a ,s i n r e s i m p l i f y i n gt o d al ae x p r e s i nd en u e v o .E s t af u n c i np u e d es e r t i l c u a n d ol a se x p r e s i o n e ss o nm u yg r a n d e s . ( F a c e x p ) c a r g a s `c a r g ae s t ep a q u e t e .` D e m o( f a c e x p )' m u e s t r au n a d e m o s t r a c i nd ee s t ep a q u e t e .
F u n c i n :f a c s u m( e x p r ,< a r g _ 1 > ,. . . ,< a r g _ n > ) D e v u e l v eu n af o r m ad e< e x p r >q u ed e p e n d ed el o sa r g u m e n t o s < a r g _ 1 > ,. . . ,< a r g _ n > .L o sa r g u m e n t o sp u e d e ns e rc u a l q u i e rf o r m aa d e c u a d ap a r a ` R a t v a r s' ,op u e d e ns e rl i s t a sd et a l e sf o r m a s .S ie l a r g u m e n t o sn os o nl i s t a s ,e n t o n c e sl ae x p r e s i nq u es eo b t i e n ee st o t a l m e n t e a m p l i a d oc o nr e s p e c t oal o sa r g u m e n t o s ,yl o sc o e f i c i e n t e sd e l o sa r g u m e n t o ss et i e n e ne nc u e n t a .E s t o sc o e f i c i e n t e se s t nl i b r e sd el a a r g u m e n t o s ,e x c e p t ot a lv e ze nu ns e n t i d on or a c i o n a l . S ia l g u n od el o sa r g u m e n t o ss o nl i s t a s ,e n t o n c e st o d a se s a sl i s t a ss o n c o m b i n a d oe nu n as o l al i s t a ,ye nl u g a rd el l a m a ra ` F a c t o r "d el o sc o e f i c i e n t e sd el o sa r g u m e n t o s ,` f a c s u m' l l a m aas m i s m ae ne s t o sc o e f i c i e n t e s ,u t i l i z a n d oe s t an u e v a c o n s t r u i d al i s t a n i c ac o m ol an u e v al i s t ad ea r g u m e n t o sp a r ae s t a l l a m a d ar e c u r s i v a .E s t ep r o c e s os ep u e d er e p e t i rp a r aa r b i t r a r i a p r o f u n d i d a dd ea n i d a m i e n t od el o se l e m e n t o sd e s e a d o se nl a sl i s t a s . E sp o s i b l eq u eu n op u e d ed e s e a r` f a c s u m' c o nr e s p e c t oal am s s u b e x p r e s i o n e sc o m p l i c a d a s ,t a l e sc o m o` l o g( x+y )' .T a l a r g u m e n t o st a m b i ns o np e r m i t i d o s . E no c a s i o n e s ,e lu s u a r i op u e d ed e s e a ro b t e n e rc u a l q u i e r ad el a sf o r m a sa n t e r i o r e s
542/633
28/08/13

p a r al a se x p r e s i o n e sq u es ee s p e c i f i c a ns l op o rs ul d e r o p e r a d o r e s .P o re j e m p l o ,s ep u e d ed e s e a r` f a c s u m' c o nr e s p e c t oa t o d o ' 's` l o g .E ne s t as i t u a c i n ,s ep u e d ei n c l u i re n t r el o s c u a l q u i e r ad el o sa r g u m e n t o s ' 'sd eu s u a r i o se s p e c f i c o s` q u es ev a y a nat r a t a re n d ee s t am a n e r a ,oa l t e r n a t i v a m e n t e ,y as e al ae x p r e s i n` o p e r a d o r ( L o g )' o` 'o p e r a d o r( l o g ) .S is eq u i s i e r a` f a c s u m' l a < e x p r >e x p r e s i nc o nr e s p e c t oal a< o p _ 1 >o p e r a d o r e s ,. . . , < o p _ n > ,s ep o d r ae v a l u a r` ( e x p r ,o p e r a d o rf a c s u m( < o p _ 1 > , . . . ,< o p _ n > ) )' .E lf o r m u l a r i o` o p e r a d o rt a m b i np u e d ea p a r e c e rd e n t r od el al i s t a a r g u m e n t o s . A d e m s ,l ac o n f i g u r a c i nd el o si n t e r r u p t o r e s` f a c s u m _ c o m b i n e' y` n e x t l a y e r f a c t o r' p u e d ea f e c t a re lr e s u l t a d od e `f a c s u m ' .
V a r i a b l eg l o b a l :n e x t l a y e r f a c t o r V a l o rp o rd e f e c t o :f a l s e' C u a n d o` n e x t l a y e r f a c t o r' e s `t r u e ' ,l a sl l a m a d a sr e c u r s i v a sd e` f a c s u m' s o n a p l i c a d oal o sf a c t o r e sd el af o r m af a c t o r i z a d ad el a c o e f i c i e n t e sd el o sa r g u m e n t o s . C u a n d of a l s e' ,` f a c s u m 's ea p l i c a `p a r ac a d ac o e f i c i e n t ee ns uc o n j u n t o s i e m p r eq u es ep r o d u z c a nl l a m a d a sr e c u s i v ea` f a c s u m' . L ai n c l u s i nd e l t o m on e x t l a y e r f a c t o r` ' e ne la r g u m e n t o l i s t ad e` f a c s u m' t i e n ee le f e c t od e `n e x t l a y e r f a c t o r :t r u e ' ,p e r o p a r ae ls i g u i e n t en i v e ld es l ol ae x p r e s i n .D e s d e ` N e x t l a y e r f a c t o r' s i e m p r ee s t o b l i g a d oab i e n `t r u e 'o' f a l s e ' , d e b es e rp r e s e n t a d ae n t r ec o m i l l a ss i m p l e ss i e m p r eq u ea p a r e z c ae ne l l i s t ad ea r g u m e n t o sd e` f a c s u m' .
V a r i a b l eg l o b a l :f a c s u m _ c o m b i n e V a l o rp o rd e f e c t o :t r u e' ` F a c s u m _ c o m b i n e' c o n t r o l al af o r m ad e lr e s u l t a d of i n a ld e v u e l t o p o r` f a c s u m' c u a n d os ua r g u m e n t oe su nc o c i e n t ed e p o l i n o m i o s .S i` f a c s u m _ c o m b i n e' e s 'f a l s e' e n t o n c e sl af o r m as e s e rd e v u e l t oc o m ou n as u m at o t a l m e n t ee x p a n d i d oc o m os ed e s c r i b ea n t e r i o r m e n t e ,p e r o s ie s` t r u e' ,l ae x p r e s i nd e v u e l t ae su n ar e l a c i nd e p o l i n o m i o s ,c o nc a d ap o l i n o m i oe nl af o r m ad e s c r i t aa n t e r i o r m e n t e . E lv a l o r` t r u e' d ee s t ei n t e r r u p t o re s t i lc u a n d os eq u i e r e ` F a c s u m' e ln u m e r a d o rye ld e n o m i n a d o rd eu n ar a c i o n a l e x p r e s i n ,p e r on oq u i e r eq u ee ld e n o m i n a d o rs e a m u l t i p l i c a d aat r a v sd el o st r m i n o sd e ln u m e r a d o r .
F u n c i n :f a c t o r f a c s u m( e x p r ,< a r g _ 1 > ,. . .< a r g _ n > ) D e v u e l v eu n af o r m ad e< e x p r >q u es eo b t i e n el l a m a n d o` f a c s u m' e nl o sf a c t o r e sd e< e x p r >c o n< a r g _ 1 > ,. . .< a r g _ n >c o m oa r g u m e n t o s . S ic u a l q u i e r ad el o sf a c t o r e sd e< e x p r >s ee l e v aau n ap o t e n c i a ,t a n t oe l f a c t o rye le x p o n e n t es e r np r o c e s a d a sd ee s t am a n e r a .
F u n c i n :c o l l e c t t e r m s( e x p r ,< a r g _ 1 > ,. . . ,< a r g _ n > ) S iv a r i a se x p r e s i o n e ss eh a ns i m p l i f i c a d oc o ne ls i g u i e n t e f u n c i o n e s` f a c s u m' , `f a c t o r f a c s u m ' ,` f a c t e n e x p a n d' , `f a c e x p t e n" o ` F a c t o r f a c e x p t e n' ,yq u es ed e b e na a d i rj u n t o s ,p u e d es e r d e s e a b l ec o m b i n a r l o su s a n d ol af u n c i n` c o l l e c t e r m s . ` C o l l e c t e r m s' p u e d e nt o m a rc o m oa r g u m e n t o st o d o sl o sa r g u m e n t o sq u es ep u e d e n s e rd a d oae s t a so t r a sf u n c i o n e sa s o c i a d a sc o nl ae x c e p c i nd e ` N e x t l a y e r f a c t o r' ,q u en ot i e n en i n g ne f e c t os o b r ec o l l e c t t e r m s ` ' .L a v e n t a j ad e` c o l l e c t t e r m s' e sq u ed e v u e l v eu n af o r m as i m i l a ra ` F a c s u m' ,p e r oy aq u ee sl aa d i c i nd ef o r m a sq u ey ah a ns i d o p r o c e s a d op o r` f a c s u m' ,n oe sn e c e s a r i or e p e t i re s ee s f u e r z o . E s t ac a p a c i d a de se s p e c i a l m e n t e t i lc u a n d ol a se x p r e s i o n e ss e a n r e s u m i s o nm u yg r a n d e s .
74.4 functs paquete

F u n c i n :r e m p a r t( e x p r ,< n > ) E l i m i n ap a r t e< n >d el ae x p r e s i ne x p r . S i< n >e su n al i s t ad el af o r m a` [ < l > ,< m > ]' ,e n t o n c e sl a sp a r t e s< l >t r a v s< m > s ee l i m i n a n . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :w r o n s k i a n o( [ < f _ 1 > ,. . . ,< f _ n > ] ,< x > )
543/633
28/08/13

D e v u e l v el am a t r i zw r o n s k i a n od el al i s t ad ee x p r e s i o n e s[ < f _ 1 > , . . . ,< f _ n > ]E ne l< x >v a r i a b l e .E ld e t e r m i n a n t ed el aw r o n s k i a n o m a t r i ze se ld e t e r m i n a n t ew r o n s k i a n od el al i s t ad ee x p r e s i o n e s . P a r au s a r` w r o n s k i a n o' ,p r i m e r ol o a d( f u n c t s ) .E j e m p l o : ( %I 1 )l o a d( f u n c t s )$ ( %I 2 )w r o n s k i a n o( [ f( x ) ,g( x ) ] ,x ) ; ( %O 2 )m a t r i z( [ f( x ) ,g( x ) ] ,[ ' d i f f( f( x ) ,x ,1 ) , 'd i f f( g( x ) ,x ,1 ) ] )
F u n c i n :t r a c e m a t r i x( < M > ) D e v u e l v el at r a z a( s u m ad el o se l e m e n t o sd i a g o n a l e s )d el am a t r i z< M > . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :r a c i o n a l( ` z' ) M u l t i p l i c ae ln u m e r a d o rye ld e n o m i n a d o rd e< z >p o re lc o m p l e j o c o n j u g a d od e ld e n o m i n a d o r ,r a c i o n a l i z a n d oa s e ld e n o m i n a d o r . D e v o l u c i o n e ss uf o r m ac a n n i c a( C R E )s is el e sd au n a , o t r af o r m ar e g r e s ag e n e r a l . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :l o g a n d( ' x ' ,' y ' ) D e v o l u c i o n e sl g i c a( b i tab i t )" y "d el o sa r g u m e n t o sxey . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :l o g o r( ' x ' ,' y ' ) D e v o l u c i o n e sl g i c a( b i tab i t )" o "d el o sa r g u m e n t o sxey . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :l o g x o r( ' x ' ,' y ' ) D e v o l u c i o n e sl g i c a( b i tab i t )O Re x c l u s i v ad el o sa r g u m e n t o sxey . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :n o n z e r o a n d f r e e o f( < x > ,e x p r ) D e v u e l v e` t r u e' s ie x p re sd i s t i n t od ec e r oy `f r e e o f( < x > ,e x p r ) ' d e v u e l v e` t r u e' .D e v u e l v e` f a l s e' e nc a s oc o n t r a r i o . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :l i n e a l( e x p r ,< x > ) C u a n d oe x p re su n ae x p r e s i nl i n e a le n< x >v a r i a b l e` l i n e a r' r e g r e s a` < a >*< x >+' d o n d e< a >e sd i s t i n t od ec e r o ,y< a >ys o n s i n< x > .D el oc o n t r a r i o ,` l i n e a r' d e v u e l v ee x p r . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :g c d i v i d e( ,< q > ) C u a n d ol av a r i a b l eo p c i n` t a k e g c d' e s `t r u e ' ,q u ee se lv a l o rp r e d e t e r m i n a d o , ` G c d i v i d e' d i v i d el o sp o l i n o m i o sy< q >p o rs um a y o r c o m nd i v i s o ryd e v u e l v el ar e l a c i nd el o sr e s u l t a d o s .` G c d i v d e' l l a m aal af u n c i n` e z g c d' p a r ad i v i d i rl o sp o l i n o m i o sp o re l m x i m oc o m nd i v i s o r . C u a n d o` t a k e g c d' e s 'f a l s e' , `g c d i v i d e 'd e v u e l v el ar e l a c i n` /< q >' . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) . C o n s u l t et a m b i n` e z g c d' , `m c d ' ,` f u n c i ng c d e x' y `p o l y _ g c d ' . E j e m p l o : ( %I 1 )l o a d( f u n c t s )$
544/633
28/08/13

( %I 2 )p 1 :6*x^31 9*x^2+ 1 9*x6 ; 32 ( %O 2 )6x+1 9x1 9+x+6 ( %I 3 )p 2 :6*x^51 3*x^41 2*x^31 3*x^26*x ; 5432 ( %O 3 )6x+x1 3+1 2x1 3+x+6x ( %I 4 )g c d i v i d e( P 1 ,P 2 ) ; x+1 ( %O 4 )3 x+x ( %I 5 )t a k e g c d :f a l s e ; ( %O 5 )f a l s e ( %I 6 )g c d i v i d e( P 1 ,P 2 ) ; 32 6x+1 9x1 9+x+6 ( %O 6 )5432 6x+x1 3+1 2x1 3+x+6x ( %I 7 )r a t s i m p( % ) ; x+1 ( %O 7 )3 x+x
F u n c i n :a r i t m t i c a( < a >< d > ,< n > ) D e v u e l v ee l< n > s i m ot r m i n od el as e r i ea r i t m t i c a` < a >< a >+< d > , < a >+2*< d > ,. . . ,< a >+( < n >-1 )*< d >' . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :g e o m t r i c a( < a >< r > ,< n > ) D e v u e l v ee l< n > s i m ot r m i n od el as e r i eg e o m t r i c a` < a >< a >*< r > , < a >*< r >^2 ,. . . ,< a >*< r >^( < n >-1 )' . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :a r m n i c a( < a > ,< c > ,< n > ) D e v u e l v ee l< n > s i m ot r m i n od el as e r i ea r m n i c a` < a >/ ,< a >/( +< c > ) ,< a >/( +2*< c > ) ,. . . ,< a >/( +( < n >-1 )*< c > )' . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :a r i t h s u m( < a >< d > ,< n > ) D e v u e l v el as u m ad el as e r i ea r i t m t i c ad e1a< n > . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :g e o s u m( < a >< r > ,< n > ) D e v u e l v el as u m ad el as e r i eg e o m t r i c ad e1a< n > .S ie s< n > i n f i n i t o( I N F` ' ) ,e n t o n c e se su n as u m af i n i t as l os ie lv a l o ra b s o l u t o d e< r >e sm e n o rq u e1 . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :g a u s s p r o b( < x > ) D e v u e l v el af u n c i nd ep r o b a b i l i d a dg a u s s i a n a` %e^ ( -< x >^2 / 2 )/ s q r t( 2* %p i ) . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i o n e s :g d( < x > ) D e v u e l v el af u n c i nG u d e r m a n n i a n` 2*a t a n( %e^ x )%p i/2' . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :A G D( < x > ) D e v u e l v el af u n c i nG u d e r m a n n i a n` l o gi n v e r s a( t a n( %p i/4+ x/2 ) ) )' .
545/633
28/08/13

P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :v e r s( < x > ) D e v u e l v ee ls e n o` 1v e r s a d o s -c o s( x )' . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :c u b r e( < x > ) D e v u e l v ee ls e n oc o v e r s e d` 1-s i n( < x > ) . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :e x s e c( < x > ) D e v u e l v ee l` se x s e c a n t( < x > )-1' . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :h a v( < x > ) D e v u e l v ee lh a v e r s i n e` ( 1-c o s( x ) )/2' . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :c o m b i n a c i n( < n > ,< r > ) D e v u e l v ee ln m e r od ec o m b i n a c i o n e sd eo b j e t o s< n >t o m a d a s< r >au n a t i e m p o . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
F u n c i n :p e r m u t a c i n( < n > ,< r > ) D e v u e l v ee ln m e r od ep e r m u t a c i o n e sd eo b j e t o s< r >s e l e c c i o n a d od eu n c o n j u n t od eo b j e t o s< n > . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( f u n c t s ) .
74.5 Ineq paquete

E lp a q u e t e` I n e q "c o n t i e n er e g l a sd es i m p l i f i c a c i nd el a sd e s i g u a l d a d e s . S e s i nd ee j e m p l o : ( %I 1 )l o a d( I n e q )$ A d v e r t e n c i a :P o n e rr e g l a se n' + 'o' * 'e si n e f i c i e n t e ,yp o d r an of u n c i o n a r . A d v e r t e n c i a :P o n e rr e g l a se n' + 'o' * 'e si n e f i c i e n t e ,yp o d r an of u n c i o n a r . A d v e r t e n c i a :P o n e rr e g l a se n' + 'o' * 'e si n e f i c i e n t e ,yp o d r an of u n c i o n a r . A d v e r t e n c i a :P o n e rr e g l a se n' + 'o' * 'e si n e f i c i e n t e ,yp o d r an of u n c i o n a r . A d v e r t e n c i a :P o n e rr e g l a se n' + 'o' * 'e si n e f i c i e n t e ,yp o d r an of u n c i o n a r . A d v e r t e n c i a :P o n e rr e g l a se n' + 'o' * 'e si n e f i c i e n t e ,yp o d r an of u n c i o n a r . A d v e r t e n c i a :P o n e rr e g l a se n' + 'o' * 'e si n e f i c i e n t e ,yp o d r an of u n c i o n a r . A d v e r t e n c i a :P o n e rr e g l a se n' + 'o' * 'e si n e f i c i e n t e ,yp o d r an of u n c i o n a r . ( %I 2 )a >=4 ;/*al ad e s i g u a l d a dd em u e s t r a*/ ( %O 2 )a >=4 ( %I 3 )( b >c )+ % ;/*a g r e g a ru ns e g u n d o ,d e s i g u a l d a de s t r i c t a*/ ( %O 3 )b+a >c+4 ( %I 4 )7*( x< y ) ;/*m u l t i p l i c a rp o ru nn m e r op o s i t i v o*/ ( %O 4 )7x< 7y ( %I 5 )2*( x >=3*z ) ;/*m u l t i p l i c a rp o ru nn m e r on e g a t i v o*/ ( %O 5 )-2x< =-6z ( %I 6 )( 1+a^2 )*( 1/( 1+a^2 )< =1 ) ;/*M a x i m ac o n o c eq u e1+a^2 >0*/ 2 ( %O 6 )1< =a+1 ( %I 7 )a s u m e( x >0 )$x*( 2< 3 ) ;/*s u p o n i e n d oq u ex >0*/ ( %O 7 )2x< 3x ( %I 8 )a >=b/*o t r ad e s i g u a l d a d*/ ( %O 8 )a >=b ( %I 9 )+3 % ;/*a g r e g a ra l g o*/ ( %O 9 )a+3 >=b+3 ( %I 1 0 )3 % ;/*r e s t a r l oac a b o*/ ( %O 1 0 )a >=b ( %I 1 1 )a >=c b ;/*o t r ad e s i g u a l d a d*/ ( %O 1 1 )a >=c-b ( %I 1 2 )+b % ;/*a g r e g a rbe na m b o sl a d o s*/ ( %O 1 2 )b+a >=c
546/633
28/08/13

( %I 1 3 ) % c ;/*r e s t ecd ea m b o sl a d o s*/ ( %O 1 3 )-c+b+a >=0 ( %I 1 4 )%/*m u l t i p l i c a rp o r1*/ ( %O 1 4 )c-b-a< =0 ( %I 1 5 )( z 1 )^2 >2z*/*d e t e r m i n a rl av e r d a dd el aa f i r m a c i n*/ 2 ( %O 1 5 )( z-1 ) >-2z ( %I 1 6 )e x p a n s i n( % )2*z/*a m p l i a re s t oya a d i r2*zd ea m b o sl a d o s*/ 2 ( %O 1 6 )z+1 >0 ( %I 1 7 ) % ,p r e d ; ( %O 1 7 )t r u e T e n g ac u i d a d oc u a n d ou t i l i c ep a r n t e s i sa l r e d e d o rd el a sd e s i g u a l d a d e s :c u a n d oe l u s u a r i ot e c l e a` ( A >B )+( C=5 ) "e l r e s u l t a d oe s' A+C >B+5 ' ,p e r o` A >B+C=5' e su ne r r o rd es i n t a x i s ,y '( A >B+C )=5' e sa l g om s e n t e r a m e n t e . H a g a` d i s p r u l e( t o d o s )' p a r av e ru n al i s t ac o m p l e t ad el ar e g l a d e f i n i c i o n e s . A lu s u a r i os el ep r e g u n t s iM a x i m an oe sc a p a zd ed e c i d i re ls i g n od eu n c a n t i d a dm u l t i p l i c a n d ou n ad e s i g u a l d a d . L o sm sc o m u n e se r r o r e sd ef u n c i ns ei l u s t r aat r a v sd e : ( %I 1 )e q :a > b ; ( %O 1 )a >b ( %I 2 )2*e q ; ( %O 2 )2( a >b ) ( %I 3 ) %-e q ; ( %O 3 )a >b O t r op r o b l e m ae s0v e c e su n ad e s i g u a l d a d ,e ld e f e c t od et e n e re s t e c o n v e r t i re n0s eh aq u e d a d os o l a .S i ne m b a r g o ,s ie s c r i b e ` X*< s o m e _ i n e q u a l i t y >' yM a x i m ap r e g u n t ap o re ls i g n od e 'X' y r e s p o n d e r` ' ( o 'z' ) ,e lp r o g r a m ad e v u e l v ec e r o `X*< s o m e _ i n e q u a l i t y >" y N ou s el ai n f o r m a c i nq u e` X' e s0 .U s t e dd e b eh a c e r` e v( % ,x :0 ) "e n t a lc a s o ,c o m ol ab a s ed ed a t o ss l os eu t i l i z ap a r af i n e sd ec o m p a r a c i n e nl a sd e c i s i o n e s ,yn oc o ne lp r o p s i t od ee v a l u a r` X' . E lu s u a r i op u e d eo b s e r v a ru n ar e s p u e s t am sl e n t aa lc a r g a re s t ep a q u e t e ,c o m o e ls i m p l i f i c a d o rs ev eo b l i g a d oae x a m i n a rm sr e g l a sq u es i nl a p a q u e t e ,a s q u ee sp o s i b l eq u ed e s e ee l i m i n a rl a sr e g l a sd e s p u sd eh a c e ru s od e e l l o s .N o` k i l l( r u l e s ) "p a r ae l i m i n a rt o d a sl a sr e g l a s( i n c l u y e n d oc u a l q u i e r q u ep o d r ah a b e rd e f i n i d o ) ,op u e d es e rm ss e l e c t i v oa lm a t a r s l oa l g u n o sd ee l l o s ,ou s a r` r e m r u l e' e nu n an o r m ae s p e c f i c a . T e n g ae nc u e n t aq u es is ec a r g ae lp a q u e t ed e s p u sd ed e f i n i rs u sp r o p i a sr e g l a sq u e s ec l o b b e rl a sr e g l a sq u et i e n e ne lm i s m on o m b r e .L a sr e g l a sd ee s t e p a q u e t es o n :` *r e g l a 1' ,. . . , '*r u l e 8' , `+r e g l a 1 ' ,. . . ,' +r u l e 1 8 ' ,y d e b ei n c l u i re ln o m b r er e g l ae n t r ec o m i l l a sp a r ar e f e r i r s eae l l a ,c o m oe n` r e m r u l e ( " + " ," +R e g l a 1 " )" p a r ae l i m i n a re s p e c f i c a m e n t el ap r i m e r ar e g l ae n `" + "" o ` D i s p r u l e( "*r u l e 2" ) "p a r am o s t r a rl ad e f i n i c i nd el as e g u n d a r e g l am u l t i p l i c a t i v a .
74.6 rducon paquete

F u n c i n :r e d u c e _ c o n s t s( e x p r ) S u s t i t u y es u b e x p r e s i o n e sc o n s t a n t e sd ee x p rc o nl ac o n s t r u c c i n t o m o sc o n s t a n t e s ,e la h o r r od el ad e f i n i c i nd et o d o se l l o sc o n s t r u i d o s c o n s t a n t e se nl al i s t ad ee c u a c i o n e sc o n s t _ e q n s` ' ,yr e g r e s a na l m o d i f i c a d o< e x p r > .L a sp a r t e sd e< e x p r >s o nc o n s t a n t e sq u er e g r e s o ` T r u e' c u a n d os eo p e r ap o rl af u n c i n `c o n s t a n t p ' .P o rl ot a n t o , a n t e sd el l a m a r` r e d u c e _ c o n s t s' ,u n od e b eh a c e r d e c l a r e( [ < o b j e c t sat e n e rl ap r o p i e d a d >c o n s t a n t e ] ,c o n s t a n t e )$ l ac r e a c i nd eu n ab a s ed ed a t o sd el a sc a n t i d a d e sc o n s t a n t e sq u eo c u r r e ne ns u e x p r e s i o n e s . S iu s t e de s t p l a n e a n d op a r ag e n e r a rl as a l i d aF o r t r a nd e s p u sd eq u ee s t o ss i m b l i c o s c l c u l o s ,u n ad el a sp r i m e r a ss e c c i o n e sd ec d i g od e b es e re l c l c u l od et o d a sl a sc o n s t a n t e s .P a r ag e n e r a re s t es e g m e n t od ec d i g o ,h a g a M a p a( ' f o r t r a n ,c o n s t _ e q n s )$ V a r i a b l e sa d e m s` c o n s t _ e q n sq u el aa f e c t e n `r e d u c e _ c o n s t s' s o n : ` C o n s t _ p r e f i x "( v a l o rp o rd e f e c t o :' x x ' )e sl ac a d e n ad ec a r a c t e r e s u t i l i z a ne lp r e f i j ot o d o sl o ss m b o l o sg e n e r a d o sp o r` r e d u c e _ c o n s t s' a r e p r e s e n t a ne x p r e s i o n e sc o n s t a n t e s . ` C o n s t _ c o u n t e r "( v a l o rp o rd e f e c t o :1 )e se l n d i c ed ee n t e r o su t i l i z a d op a r a g e n e r a rs m b o l o s n i c o sp a r ar e p r e s e n t a rc a d as u b e x p r e s i nc o n s t a n t e e n c o n t r a d op o r` r e d u c e _ c o n s t s . C a r g a s` c a r g a( r d u c o n )' e s t af u n c i n .` D e m o( r d u c o n )' m u e s t r au n a d e m o s t r a c i nd ee s t af u n c i n .
74.7 scifac paquete

28/08/13
F u n c i n :G C F a c( e x p r )
` G C F a c' e su n af u n c i nd ef a c t o r i z a c i nd eq u el o si n t e n t o sd ea p l i c a re lm i s m o h e u r s t i c aq u es ea p l i c a nl o sc i e n t f i c o sp a r at r a t a rd eh a c e re x p r e s i o n e s m ss i m p l e .` G C F a c' s el i m i t aat i p om o n o m i of a c t o r i n g .P a r au n a s u m a ,` G C F a c' h a c el os i g u i e n t e : 1 .F a c t o r e se nl o sn m e r o se n t e r o s . 2 .F a c t o r e sf u e r al o sm a y o r e sp o d e r e sd el o st r m i n o sq u ea p a r e c e nc o m o c o e f i c i e n t e s ,i n d e p e n d i e n t e m e n t ed el ac o m p l e j i d a dd el o st r m i n o s . 3 .U s o s( 1 )y( 2 )e ne lf a c t o r i n gp a r e sa d y a c e n t e sd et r m i n o s . 4 .R e p e t i d a m e n t eyd ef o r m ar e c u r s i v aa p l i c ae s t a st c n i c a sh a s t aq u ee l e x p r e s i ny an oc a m b i a . A r t c u l o( 3 )n on e c e s a r i a m e n t eh a c e nu nt r a b a j o p t i m od el o sp a r e s f a c t o r i z a c i nd e b i d oal an a t u r a l e z ac o m b i n a t o r i a d i f c i ld e e n c o n t r a rc u ld et o d a sl a sp o s i b l e sr e o r d e n a m i e n t o sd el o sr e n d i m i e n t o sp a r e s e lr e s u l t a d om sc o m p a c t op a r f a c t o r . C a r g a s` c a r g a( s c i f a c )' e s t af u n c i n .` D e m o( s c i f a c )' m u e s t r au n a d e m o s t r a c i nd ee s t af u n c i n .
74.8 sqdnst paquete

F u n c i n :s q r t d e n e s t( e x p r ) D e n e s t s` s q r t' d e ,n u m r i c o s ,i r r a c i o n a l e sb i n o m i a l e ss i m p l e s ,e ns u p o s i b l e .P o re j e m p l o , ( %I 1 )l o a d( s q d n s t )$ ( %I 2 )s q r t( s q r t( 3 )/21 )/s q r t( 1 1*s q r t( 2 )1 2 ) ; s q r t( 3 ) s q r t( -+1 ) 2 ( %O 2 )s q r t( 1 1s q r t( 2 )-1 2 ) ( %I 3 )s q r t d e n e s t( % ) ; s q r t( 3 )1 -+22 ( %O 3 )1 / 43 / 4 2 2m a r z o Av e c e sa y u d aaa p l i c a r` s q r t d e n e s t' m sd eu n av e z ,p o re j e m p l o , ` ( 1 9 . 6 0 1a1 3 . 8 6 0s q r t( 2 ) )^( 7 / 4 ) . C a r g a s` c a r g a( s q d n s t )' e s t af u n c i n .
75 solve_rec
I n t r o d u c c i nas o l v e _ r e c F u n c i o n e syv a r i a b l e sp a r as o l v e _ r e c
75.1 Introduccin a solve_rec

` S o l v e _ r e c' e su np a q u e t ep a r ar e s o l v e rr e c u r r e n c i a sl i n e a l e sc o np o l i n o m i o s c o e f i c i e n t e s . U n ad e m o s t r a c i ne s t d i s p o n i b l ec o n` d e m o( s o l v e _ r e c ) ;' . E j e m p l o : ( %I 1 )l o a d( " s o l v e _ r e c " )$ ( %I 2 )s o l v e _ r e c( ( n4 )*s[ n+ 2 ]+s[ n+ 1 ]-( n+ 1 )*s[ n ]s[ n ] ) ; n %K( 2n+3 )( -1 ) %k 12 ( %O 2 )s=-+n( n+1 )( n+2 )( n+1 )( n+2 )
75.2 Funciones y variables para solve_rec

F u n c i n :r e d u c e _ o r d e r( < R E C > ,< s o l > ,< v a r > ) R e d u c ee lo r d e nd e< R E C >r e c u r r e n c i al i n e a lc u a n d ou np a r t i c u l a r , S es a b e< s o l >s o l u c i n .E lr e c c u r e n c er e d u c i d ap u e d es e ru t i l i z a d op a r ao b t e n e r o t r a ss o l u c i o n e s . E j e m p l o :
548/633
28/08/13

( %I 3 )r e c :x[ n+ 2 ]=x[ n+ 1 ]+x[ n ]/n ; x n ( %O 3 )x=x+n+2n+1n ( %I 4 )s o l v e _ r e c( r e c ,x[ n ] ) ; A D V E R T E N C I A :e n c o n t r a d oa l g u n a ss o l u c i o n e sh i p e r g e o m t r i c o ! ( %O 4 )x= %k n n1 ( %I 5 )r e d u c e _ o r d e r( R E C ,n ,x[ n ] ) ; ( %T 5 )x=zn % n n n-1 = = = = \ ( %T 6 ) %z= > %u n/j % = = = = %J=0 ( %O 6 )( -n-2 ) %u%u n+1n ( %I 6 )s o l v e _ r e c( ( n+ 2 )* %u[ n+ 1 ]+ %u[ n ] , %u[ n ] ) ; n %K( -1 ) 1 ( %O 6 ) %u=n( n+1 ) ! P o rl ot a n t ol as o l u c i ng e n e r a le s n-1 = = = =J \( -1 ) %K n >-+ %k n 2/( j+1 ) !1 = = = = j=0
V a r i a b l eo p c i o n a l :s i m p l i f y _ p r o d u c t s V a l o rp o rd e f e c t o :t r u e' S i` s i m p l i f y _ p r o d u c t s' e s `t r u e ' ,` s o l v e _ r e c' t r a t a r d es i m p l i f i c a r p r o d u c t o se nc o n s e c u e n c i a . V e rt a m b i n :` s o l v e _ r e c' .
F u n c i n :s i m p l i f y _ s u m( e x p r ) T r a t ad es i m p l i f i c a rt o d a sl a sc a n t i d a d e sq u ea p a r e c e ne ne x p rau n af o r m ac e r r a d a . P a r au t i l i z a re s t af u n c i n ,p r i m e r oc a r g u ee lp a q u e t e` s i m p l i f y _ s u m' c o n L o a d( s i m p l i f y _ s u m ) . E j e m p l o : ( %I 1 )l o a d( " s i m p l i f y _ s u m " )$ ( %I 2 )s u m a( b i n o m i a l( n+k ,k )/2^k ,k ,1 ,n )+s u m a( b i n o m i a l( 2*n ,2*k ) ,k ,1 ,n ) ; n n = = = = = = = = \B i n o m i a l( n+k ,k )\ ( %O 2 ) >+>b i n o m i a l( 2N ,2k ) /K/ = = = =2= = = = k=1k=1 ( %I 3 )s i m p l i f y _ s u m( % ) ; 2n-1n ( %O 3 )2+2-2
F u n c i n :s o l v e _ r e c( < e q n > ,< v a r > ,[ ] ) R e s u e l v es o l u c i o n e sh i p e r g e o m t r i c oa< e q n >r e c u r r e n c i al i n e a l c o nu nc o e f i c i e n t ed ep o l i n o m i o se n< v a r >v a r i a b l e .A r g u m e n t o so p c i o n a l e s s o nl a sc o n d i c i o n e si n i c i a l e s . ` S o l v e _ r e c' p u e d er e s o l v e rr e c u r r e n c i a sl i n e a l e sc o nu n ac o n s t a n t e c o e f i c i e n t e s ,e n c u e n t r as o l u c i o n e sah i p e r g e o m t r i c oh o m o g n e a r e c u r r e n c i a sl i n e a l e sc o nc o e f i c i e n t e sp o l i n o m i a l e s ,r a c i o n a l e s s o l u c i o n e sar e c u r r e n c i a sl i n e a l e sc o nc o e f i c i e n t e sp o l i n o m i a l e sy p u e d er e s o l v e rr e c u r r e n c i a st i p oR i c a t t i . T e n g ae nc u e n t aq u ee lt i e m p od ee j e c u c i nd e la l g o r i t m ou s a d op a r ae n c o n t r a r s o l u c i o n e sh i p e r g e o m t r i c oe se x p o n e n c i a le ne lg r a d od el a i n i c i a l e syf i n a l e sc o e f i c i e n t e . P a r au t i l i z a re s t af u n c i n ,p r i m e r oc a r g u ee lp a q u e t e` s o l v e _ r e c' c o n L o a d( s o l v e _ r e c ) ;' .
549/633
28/08/13

E j e m p l od er e c u r r e n c i al i n e a lc o nc o e f i c i e n t e sc o n s t a n t e s : ( %I 2 )s o l v e _ r e c( u n a[ n ]=a[ n 1 ]+a[ n 2 ]+N/2^n ,u n[ n ] ) ; n n ( S q r t( 5 )-1 ) %K( -1 ) 1n ( %O 2 )a=n n n 252 n ( S q r t( 5 )+1 ) %k 22 -+ n n 252 E j e m p l od er e c u r r e n c i al i n e a lc o nc o e f i c i e n t e sd el o sp o l i n o m i o s : ( %I 7 )2*x*( x1 )*y[ x ]-( x^23*x 2 )*y[ x+ 1 ]+( x 1 )*y[ x2 ]; 2 ( %O 7 )( x-1 )y-( x+3x-2 )y+2x( x+1 )y x+2x+1x ( %I 8 )s o l v e _ r e c( % ,y[ x ] ,y[ 1 ]=1 ,y[ 3 ]=3 ) ; x 3x2 ! ( %O 9 )y=4x2 E j e m p l od et i p od er e p e t i c i nR i c a t t i : ( %I 2 )x*y[ x+ 1 ]*y[ x ]-y[ x1 ]/( x2 )+y[ x ]/( x 1 )=0 ; y y x+1x ( %O 2 )x y y-+-=0 x x+1x2+x-1 ( %I 3 )s o l v e _ r e c( % ,y[ x ] ,y[ 3 ]=5 )$ ( %I 4 )r a t s i m p( m i n f a c t o r i a l( f a c t c o m b( % ) ) ) ; 3 3 0x3 0x( %O 4 )y=-x65432 5x-3-x2 5x1 5+x+x2 0-1 2x-1 5 8 4 V e rt a m b i n :` s o l v e _ r e c _ r a t' , `s i m p l i f y _ p r o d u c t s ' ,y ` P r o d u c t _ u s e _ g a m m a' .
F u n c i n :s o l v e _ r e c _ r a t( < e q n > ,< v a r > ,[ ] ) R e s u e l v ed es o l u c i o n e sr a c i o n a l e sal a sr e c u r r e n c i a sl i n e a l e s .V e rs o l v e _ r e c p a r al ad e s c r i p c i nd el o sa r g u m e n t o s . P a r au t i l i z a re s t af u n c i n ,p r i m e r oc a r g u ee lp a q u e t e` s o l v e _ r e c' c o n L o a d( s o l v e _ r e c ) ;' . E j e m p l o : ( %I 1 )( x4 )*a[ x3 ]+( x3 )*a[ x2 ]-x*a[ x+ 1 ]+( x^2 1 )*a[ x] ; ( %O 1 )( x+4 )a+( x+3 )u n-x a x+3x+2x+1 2 +( X-1 )u n x ( %I 2 )s o l v e _ r e c _ r a t( %=( x2 )/( x1 ) ,u n[ x ] ) ; 1 ( %O 2 )a=x( x-1 )( x+1 ) V e rt a m b i n :` s o l v e _ r e c' .
V a r i a b l eo p c i o n a l :p r o d u c t _ u s e _ g a m m a V a l o rp o rd e f e c t o :t r u e' A ls i m p l i f i c a rl o sp r o d u c t o s ,` s o l v e _ r e c' i n t r o d u c el af u n c i ng a m m a e nl ae x p r e s i ni f` p r o d u c t _ u s e _ g a m m a' e s `t r u e ' . V e rt a m b i n :` s i m p l i f y _ p r o d u c t s' , `s o l v e _ r e c ' .
F u n c i n :s u m m a n d _ t o _ r e c( < s u m m a n d > ,< k > ,< n > ) F u n c i n :s u m m a n d _ t o _ r e c( < s u m m a n d > ,[ < k > ,< l o > ,< h i > ] ,< n > ) D e v u e l v el ar e c u r r e n c i aS A T T I S F I E Dp o rl as u m a H o l a = = = = \ >S u m a n d o / = = = =
550/633
28/08/13
k=l o
d o n d es u m a n d oe sh i p e r g e o m t r i c oe n< k >y< n > .S i< l o >y< h i > s o no m i t i d o s ,s es u p o n eq u e` l o= i n f' y `h i=i n f . P a r au t i l i z a re s t af u n c i n ,p r i m e r oc a r g u ee lp a q u e t e` s i m p l i f y _ s u m' c o n L o a d( s i m p l i f y _ s u m ) . E j e m p l o : ( %I 1 )l o a d( " s i m p l i f y _ s u m " )$ ( %I 2 )s u m a n d o :b i n o m( n ,k ) ; ( %O 2 )b i n o m i a l( n ,k ) ( %I 3 )s u m m a n d _ t o _ r e c( s u m a n d o ,k ,n ) ; ( %O 3 )2s m-s m=0 n n+1 ( %I 7 )s u m a n d o :b i n o m( n ,k )/( k+ 1 ) ; b i n o m i a l( n ,k ) ( %O 7 )k+1 ( %I 8 )s u m m a n d _ t o _ r e c( s u m a n d o ,[ k ,0 ,n ] ,n ) ; ( %O 8 )2( n+1 )S M-( n+2 )=s m-1 n n+1
76 Estadsticas
I n t r o d u c c i nal aE v o l u c i n F u n c i o n e syv a r i a b l e sp a r ai n f e r e n c e _ r e s u l t F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e se s p e c i a l e s
76.1 Introduccin a las estadsticas

P a q u e t e` e s t a d s t i c a sd el a' c o n t i e n eu nc o n j u n t od ei n f e r e n c i ae s t a d s t i c ac l s i c ay p r o c e d i m i e n t o sd ep r u e b ad eh i p t e s i s . T o d a se s t a sf u n c i o n e sd e v u e l v e nu ni n f e r e n c e _ r e s u l t' o b j e t o 'M a x i m aq u e c o n t i e n el o sr e s u l t a d o sn e c e s a r i o sp a r al a si n f e r e n c i a sd el ap o b l a c i nyl ad e c i s i n h a c e r . C o n t r o l e sg l o b a l e sv a r i a b l e` s t a t s _ n u m e r' s il o sr e s u l t a d o ss ed a ne n p u n t ooe nf o r m a t os i m b l i c oyr a c i o n a lf l o t a n d o ,ys uv a l o rp r e d e t e r m i n a d oe s ` T r u e' yl o sr e s u l t a d o ss ed e v u e l v e ne nf o r m a t od ec o m af l o t a n t e . P a q u e t e` d e s c r i p t i v a' c o n t i e n ea l g u n a su t i l i d a d e sp a r am a n i p u l a rl o sd a t o s ( e s t r u c t u r a sd el i s t a sym a t r i c e s ) ,p o re j e m p l o ,p a r ae x t r a e rs u b m u e s t r a s .L o T a m b i nc o n t i e n ea l g u n o se j e m p l o sd ec m ou t i l i z a re lp a q u e t e` n u m e r i c a l i o' p a r al e e r d a t o sd ea r c h i v o sd et e x t os i nf o r m a t o .C o n s u l t e` d e s c r i p t i v o' y `n u m e r i c a l i o" p a r a m sd e t a l l e s . " L ac a r g ad ep a q u e t e s `d e s c r i p t i v o s' p a q u e t e` e s t a d s t i c a s , `d i s t r i b" y ` I n f e r e n c e _ r e s u l t' . P a r ac o m e n t a r i o s ,e r r o r e sos u g e r e n c i a s ,p o rf a v o rp n g a s ee nc o n t a c t oc o ne la u t o re n < ' M a r i oA Te d uX u n t aD O TD O Te s ' > .
76.2 Funciones y variables para inference_result

F u n c i n :i n f e r e n c e _ r e s u l t( < t i t l e > ,< v a l o r e s > ,< n m e r o s > ) C o n s t r u y eu no b j e t o` i n f e r e n c e _ r e s u l t' d e lt i p od e v u e l t op o re l f u n c i o n e se s t a d s t i c a s .< t i t l e >A r g u m e n t oe su n ac a d e n ac o ne ln o m b r ed e l p r o c e d i m i e n t o ;< v a l o r e s >e su n al i s t ac o nl o se l e m e n t o sd e ls m b o l od el af o r m a` = v a l o r" y< n m e r o s >e su n al i s t ac o nl o sn m e r o se n t e r o sp o s i t i v o s d eu n oa` l o n g i t u d( < v a l o r e s > )' ,l oq u ei n d i c aq u el o sv a l o r e s s em o s t r a r p o rd e f e c t o . E j e m p l o : E s t ee su ne j e m p l os i m p l eq u em u e s t r al o sr e s u l t a d o sr e l a t i v o sau nr e c t n g u l o . E lt t u l od ee s t eo b j e t oe s" R e c t n g u l o " ,l ac a d e n a` ' ,q u ea l m a c e n a c i n c or e s u l t a d o s ,l l a m a d o` ' b a s e ' , `' h e i g h t ' ,` ' d i a g o n a l ' , `' a r e a ' ,y ` ' P e r m e t r o ' ,p e r os l ol ap r i m e r a ,s e g u n d a ,q u i n t a ,c u a r t ays e s em o s t r a r .E l` ' d i a g o n a l 's ea l m a c e n ae ne s t eo b j e t o ,p e r oe s n os em u e s t r a ,p a r aa c c e d e ras uv a l o r ,h a c e ru s od el af u n c i n ` T a k e _ i n f e r e n c e' . ( %I 1 )l o a d( i n f e r e n c e _ r e s u l t )$ ( %I 2 )b :3$h :2$ ( %I 3 )i n f e r e n c e _ r e s u l t( " R e c t a n g l e " , [ ' B a s e=b , ' A l t u r a=h , ' D i a g o n a l=s q r t( b^2+h^2 ) , ' A r e a=b*h , ' P e r m e t r o=2*( b+h ) ] , [ 1 , 2 , 5 , 4 ] ) ; |R e c t n g u l o |
551/633
28/08/13

|B a s e=3 | ( %O 3 )|A l t u r a=2 | |P e r m e t r o=1 0 | | r e a=6 ( %I 4 )t a k e _ i n f e r e n c e( ' d i a g o n a l , % ) ; ( %O 4 )s q r t( 1 3 ) C o n s u l t et a m b i n` t a k e _ i n f e r e n c e' .
F u n c i n :i n f e r e n c e p( < o b j > ) D e v u e l v e` t r u e' o 'f a l s e' ,d e p e n d i e n d od es ie su n< o b j > O b j e t o` i n f e r e n c e _ r e s u l t' on o .
F u n c i n :i t e m s _ i n f e r e n c e( < o b j > ) D e v u e l v eu n al i s t ac o nl o sn o m b r e sd el o se l e m e n t o sa l m a c e n a d o se n< o b j > ,q u e d e b es e ru no b j e t o` i n f e r e n c e _ r e s u l t' . E j e m p l o : E l` i n f e r e n c e _ r e s u l t "o b j e t oa l m a c e n ad o sv a l o r e s ,l l a m a d o s` ' p i 'y S em u e s t r a` ' e ' ,p e r os l oe ls e g u n d o .E l` i t e m s _ i n f e r e n c e' f u n c i nd e v u e l v el o sn o m b r e sd et o d o sl o sa r t c u l o s ,n oi m p o r t aq u es e a n r e p r e s e n t a d aon o . ( %I 1 )l o a d( i n f e r e n c e _ r e s u l t )$ ( %I 2 )i n f e r e n c e _ r e s u l t( " H o l a " ,[ ' p i= %p i , 'e= %e ] ,[ 2 ] ) ; |H o l a ( %O 2 )| |E= %e ( %I 3 )i t e m s _ i n f e r e n c e( % ) ; ( %O 3 )[ p i ,e ]
F u n c i n :t a k e _ i n f e r e n c e( < n > ,< o b j > ) F u n c i n :t a k e _ i n f e r e n c e( < n o m b r e > ,< o b j > ) F u n c i n :t a k e _ i n f e r e n c e( < l i s t > ,< o b j > ) D e v u e l v ee lv a l o r< n > t ha l m a c e n a d ae n< o b j >s i< n >e sp o s i t i v o n m e r oe n t e r o ,oe le l e m e n t od e n o m i n a d o< n o m b r e >s ie s t ee se ln o m b r ed eu ne l e m e n t o . S ie lp r i m e ra r g u m e n t oe su n al i s t ad en m e r o sy/os m b o l o s , f u n c i n` t a k e _ i n f e r e n c e' d e v u e l v eu n al i s t ac o nl o sc o r r e s p o n d i e n t e s r e s u l t a d o s . E j e m p l o : D a d ou n` i n f e r e n c e _ r e s u l t' o b j e t o ,l af u n c i n `t a k e _ i n f e r e n c e 'e s l l a m a d ac o ne lf i nd ee x t r a e ra l g od ei n f o r m a c i na l m a c e n a d ae ne lm i s m o . ( %I 1 )l o a d( i n f e r e n c e _ r e s u l t )$ ( %I 2 )b :3$h :2$ ( %I 3 )S o l :i n f e r e n c e _ r e s u l t( " R e c t a n g l e " , [ ' B a s e=b , ' A l t u r a=h , ' D i a g o n a l=s q r t( b^2+h^2 ) , ' A r e a=b*h , ' P e r m e t r o=2*( b+h ) ] , [ 1 , 2 , 5 , 4 ] ) ; |R e c t n g u l o | |B a s e=3 | ( %O 3 )|A l t u r a=2 | |P e r m e t r o=1 0 | | r e a=6 ( %I 4 )t a k e _ i n f e r e n c e( ' b a s e ,s o l ) ; ( %O 4 )3 ( %I 5 )t a k e _ i n f e r e n c e( 5 ,s o l ) ; ( %O 5 )1 0 ( %I 6 )t a k e _ i n f e r e n c e( [ 1 ,' d i a g o n a l ] ,s o l ) ; ( %O 6 )[ 3 ,s q r t( 1 3 ) ] ( %I 7 )t a k e _ i n f e r e n c e( i t e m s _ i n f e r e n c e( s o l ) ,s o l ) ; ( %O 7 )[ 3 ,2 ,s q r t( 1 3 ) ,6 ,1 0 ] C o n s u l t et a m b i n` i n f e r e n c e _ r e s u l t' y `t a k e _ i n f e r e n c e ' .
76.3 Funciones y variables para las estadsticas

V a r i a b l eo p c i o n a l :s t a t s _ n u m e r V a l o rp o rd e f e c t o :t r u e'
552/633
28/08/13

S i` s t a t s _ n u m e r' e s `t r u e ' ,f u n c i o n e se s t a d s t i c a sd ei n f e r e n c i ar e g r e s a n l o sr e s u l t a d o se nn m e r o sd ep u n t of l o t a n t e .S ie s` f a l s o' ,l o sr e s u l t a d o s s ed a ne nf o r m a t os i m b l i c oyr a c i o n a l .
F u n c i n :t e s t _ m e a n( < x > ) F u n c i n :t e s t _ m e a n( < x >< o p c i o n e s >. . . ) E s t ae sl am e d i a< t > t e s t .< x >A r g u m e n t oe su n al i s t aou n ac o l u m n a m a t r i zq u ec o n t i e n eu n am u e s t r au n i d i m e n s i o n a l .T a m b i nl l e v aac a b ou n a p r u e b aa s i n t t i c ob a s a d oe ne lT e o r e m aC e n t r a ld e ll m i t es il ao p c i n ` ' A s i n t t i c a 'e s `t r u e' . O p c i o n e s : *` ' S i g n i f i c a ' ,d e f a u l t `0' ,e se lv a l o rd el am e d i ap a r as e rr e v i s a d o . *` ' A l t e r n a t i v a ' ,' d e f a u l t 't w o s i d e d' ,e sl aa l t e r n a t i v a h i p t e s i s ,l o sv a l o r e sv l i d o ss o n :' 't w o s i d e d' ,` 'm a y o r' y ` "M e n o s" . *` ' D e v ' , `d e f a u l t' d e s c o n o c i d o ' ,e s t ee se lv a l o rd el an o r m a d e s v i a c i nc u a n d oe sc o n o c i d o ,l o sv a l o r e sv l i d o ss o n :' 'd e s c o n o c i d o' o e x p r e s i np o s i t i v a . *` ' C o n f l e v e l ' ,n i v e ld ec o n f i a n z ap r e d e t e r m i n a d o `9 5 / 1 0 0" p a r al a i n t e r v a l od ec o n f i a n z a ,s i n oq u ed e b es e ru n ae x p r e s i nq u et i e n eu n v a l o re n( 0 , 1 ) . *` ' A s i n t t i c a 'd e f a u l t' f a l s e ' ,i n d i c as is er e a l i z a u n ae x a c t a< t > p r u e b aou na s i n t t i c au n ob a s a d oe nl ac e n t r a l T e o r e m ad e ll m i t e ,l o sv a l o r e sv l i d o ss o n' t r u e 'y' f a l s e ' .
F u n c i n :t e s t _ m e a n s _ d i f f e r e n c e( < x 1 > ,< x 2 > ) F u n c i n :t e s t _ m e a n s _ d i f f e r e n c e( < x 1 > ,< x 2 > ,< o p c i o n e s >. . . ) E s t ae sl ad i f e r e n c i ad el o sm e d i o s< t > t e s tp a r ad o sm u e s t r a s . A r g u m e n t o s< x 1 >y< x 2 >s o nl i s t a som a t r i c e sc o l u m n aq u ec o n t i e n e n d o sm u e s t r a si n d e p e n d i e n t e s .E nc a s od ed i f e r e n t e sv a r i a n z a sd e s c o n o c i d a s ( C o n s u l t el as e c c i n` o p c i o n e s' d e v 1 ' ,' a b a j o 'v a r e q u a l' 'd e v 2' y ` ) ,l o sg r a d o s d el i b e r t a ds ec a l c u l a np o rm e d i od el aa p r o x i m a c i nd eW e l c h .L o T a m b i nr e a l i z ae lt e s ta s i n t t i c ob a s a d oe ne ll m i t ec e n t r a l T e o r e m as i" a s i n t t i c a "s ee s t a b l e c el ao p c i n` a `t r u e' . O p c i o n e s : ` * *' A l t e r n a t i v a ' ,' d e f a u l t 't w o s i d e d' ,e sl a h i p t e s i sa l t e r n a t i v a ,l o sv a l o r e sv l i d o ss o n :' 't w o s i d e d' , ` ' M a y o r 'y' 'm e n o s' . *` ' D e v 1 ' , `d e f a u l t' d e s c o n o c i d o ' ,e s t ee se lv a l o rd el a d e s v i a c i ne s t n d a rd el am u e s t r a< x 1 >c u a n d os es a b e ;v l i d a L o sv a l o r e ss o n :' 'd e s c o n o c i d o' ou n ae x p r e s i np o s i t i v a . *` ' D e v 2 ' ,' d e f a u l t 'd e s c o n o c i d o' ,e s t ee se lv a l o rd el a d e s v i a c i ne s t n d a rd el am u e s t r a< x 2 >c u a n d os es a b e ;v l i d a L o sv a l o r e ss o n :' 'd e s c o n o c i d o' ou n ae x p r e s i np o s i t i v a . *` ' V a r e q u a l 'd e f a u l t' f a l s e ' ,s il a sv a r i a n z a sd e b e ns e r c o n s i d e r e ls e ri g u a lon o ,e s t ao p c i ns l ot i e n ee f e c t o c u a n d o` ' d e v 1 'y/o' 'd e v 2' s o n ` 'u n k n o w n' . *` ' C o n f l e v e l ' ,n i v e ld ec o n f i a n z ap r e d e t e r m i n a d o `9 5 / 1 0 0" p a r al a i n t e r v a l od ec o n f i a n z a ,s i n oq u ed e b es e ru n ae x p r e s i nq u et i e n eu n v a l o re n( 0 , 1 ) . *` ' A s i n t t i c a 'd e f a u l t' f a l s e ' ,i n d i c as is er e a l i z a u n ae x a c t a< t > p r u e b aou na s i n t t i c au n ob a s a d oe nl ac e n t r a l T e o r e m ad e ll m i t e ,l o sv a l o r e sv l i d o ss o n' t r u e 'y' f a l s e ' .
F u n c i n :t e s t _ v a r i a n c e( < x > ) F u n c i n :t e s t _ v a r i a n c e( < x >< o p c i o n e s > ,. . . ) E s t ee se l< c h i ^ 2 > p r u e b ad ev a r i a n z a .< x >A r g u m e n t oe su n al i s t aou n a m a t r i zd el ac o l u m n aq u ec o n t i e n eu n am u e s t r au n i d i m e n s i o n a lt o m a d ad eu n p o b l a c i nn o r m a l . O p c i o n e s : *` ' S i g n i f i c a ' ,d e f a u l t `' d e s c o n o c i d o ' ,e sl am e d i ad el ap o b l a c i n ,c u a n d o s es a b e . *` ' A l t e r n a t i v a ' ,' d e f a u l t 't w o s i d e d' ,e sl aa l t e r n a t i v a h i p t e s i s ,l o sv a l o r e sv l i d o ss o n :' 't w o s i d e d' ,` 'm a y o r' y ` "M e n o s" . *` ' V a r i a c i n ' ,d e f a u l t `1' ,e s t ee se lv a l o rd ev a r i a n z a ( P o s i t i v o )p a r as e rr e v i s a d o . *` ' C o n f l e v e l ' ,n i v e ld ec o n f i a n z ap r e d e t e r m i n a d o `9 5 / 1 0 0" p a r al a
553/633
28/08/13

i n t e r v a l od ec o n f i a n z a ,s i n oq u ed e b es e ru n ae x p r e s i nq u et i e n eu n v a l o re n( 0 , 1 ) .
F u n c i n :t e s t _ v a r i a n c e _ r a t i o( < x 1 > ,< x 2 > ) F u n c i n :t e s t _ v a r i a n c e _ r a t i o( < x 1 > ,< x 2 > ,< o p c i o n e s >. . . ) E s t ae sl ar a z nd ev a r i a n z a s< F > t e s tp a r ad o sp o b l a c i o n e sn o r m a l e s . A r g u m e n t o s< x 1 >y< x 2 >s o nl i s t a som a t r i c e sc o l u m n aq u ec o n t i e n e n d o sm u e s t r a si n d e p e n d i e n t e s . O p c i o n e s : *` ' A l t e r n a t i v a ' ,' d e f a u l t 't w o s i d e d' ,e sl aa l t e r n a t i v a h i p t e s i s ,l o sv a l o r e sv l i d o ss o n :' 't w o s i d e d' ,` 'm a y o r' y ` "M e n o s" . *` ' M e a n 1 ' ,' d e f a u l t 'd e s c o n o c i d o' ,c u a n d os es e p a , s t ae sl a l am e d i ad el ap o b l a c i nd el aq u es et o m < x 1 > . *` ' M e a n 2 ' ,' d e f a u l t 'd e s c o n o c i d o' ,c u a n d os es e p a , s t ae sl a l am e d i ad el ap o b l a c i nd el aq u es et o m < x 2 > . *` ' C o n f l e v e l ' ,n i v e ld ec o n f i a n z ap r e d e t e r m i n a d o `9 5 / 1 0 0" p a r al a i n t e r v a l od ec o n f i a n z ad el ar e l a c i n ,s i n oq u ed e b es e ru n ae x p r e s i n q u et i e n eu nv a l o re n( 0 , 1 ) .
F u n c i n :t e s t _ p r o p o r t i o n( < x >< n > ) F u n c i n :t e s t _ p r o p o r t i o n( < x > ,< n >< o p c i o n e s >. . . ) I n f e r e n c i a ss o b r eu n ap r o p o r c i n .< x >A r g u m e n t oe se ln m e r od e x i t o s e nl o se n s a y o s< n >e nu ne x p e r i m e n t od eB e r n o u l l ic o nu n ap r o b a b i l i d a dd e s c o n o c i d a . O p c i o n e s : *` ' P r o p o r c i n ' ,d e f a u l t `1 / 2" ,e se lv a l o rd el ap r o p o r c i n p a r as e rr e v i s a d o . *` ' A l t e r n a t i v a ' ,' d e f a u l t 't w o s i d e d' ,e sl aa l t e r n a t i v a h i p t e s i s ,l o sv a l o r e sv l i d o ss o n :' 't w o s i d e d' ,` 'm a y o r' y ` "M e n o s" . *` ' C o n f l e v e l ' ,n i v e ld ec o n f i a n z ap r e d e t e r m i n a d o `9 5 / 1 0 0" p a r al a i n t e r v a l od ec o n f i a n z a ,s i n oq u ed e b es e ru n ae x p r e s i nq u et i e n eu n v a l o re n( 0 , 1 ) . *` ' A s i n t t i c a 'd e f a u l t' f a l s e ' ,i n d i c as is er e a l i z a u n ap r u e b ae x a c t as o b r el ab a s ed el ad i s t r i b u c i nb i n o m i a l ,ou n u n oa s i n t t i c ob a s a d oe ne lT e o r e m aC e n t r a ld e lL m i t e ,v l i d a L o sv a l o r e ss o n' t r u e 'y' f a l s e ' . *` ' C o r r e c t a ' ,d e f a u l t `t r u e' ,i n d i c as iY a t e s c o r r e c c i ns ea p l i c aon o .
F u n c i n :t e s t _ p r o p o r t i o n s _ d i f f e r e n c e( < x 1 > ,< n 1 > ,< x 2 > ,< n 2 > ) F u n c i n :t e s t _ p r o p o r t i o n s _ d i f f e r e n c e( < x 1 > ,< n 1 > ,< x 2 > ,< n 2 > ,< o p c i o n e s >. . . ) I n f e r e n c i a ss o b r el ad i f e r e n c i ad ed o sp r o p o r c i o n e s .< x 1 >A r g u m e n t oe s e ln m e r od e x i t o se nl o se n s a y o s< n 1 >e nu ne x p e r i m e n t od eB e r n o u l l i e nl ap r i m e r ap o b l a c i ny< x 2 >y< n 2 >s o nl o sc o r r e s p o n d i e n t e s v a l o r e se nl as e g u n d ap o b l a c i n .L a sm u e s t r a ss o ni n d e p e n d i e n t e syl a p r u e b ae sa s i n t t i c a . O p c i o n e s : *` ' A l t e r n a t i v a ' ,' d e f a u l t 't w o s i d e d' ,e sl aa l t e r n a t i v a h i p t e s i s ,l o sv a l o r e sv l i d o ss o n :' 't w o s i d e d' ( ` #p 1p 2 ' ) , ` ' M a y o r '( ' p 1 >p 2 ' )y' 'm e n o s' ( 'p 1< p 2' ) . *` ' C o n f l e v e l ' ,n i v e ld ec o n f i a n z ap r e d e t e r m i n a d o `9 5 / 1 0 0" p a r al a i n t e r v a l od ec o n f i a n z a ,s i n oq u ed e b es e ru n ae x p r e s i nq u et i e n eu n v a l o re n( 0 , 1 ) . *` ' C o r r e c t a ' ,d e f a u l t `t r u e' ,i n d i c as iY a t e s c o r r e c c i ns ea p l i c aon o .
F u n c i n :t e s t _ s i g n( < x > ) F u n c i n :t e s t _ s i g n( < x >< o p c i o n e s >. . . ) E s t ae sl ap r u e b ad el o ss i g n o sn op a r a m t r i c ap a r al am e d i a n ad eu n c o n t i n u od el ap o b l a c i n .< x >A r g u m e n t oe su n al i s t aom a t r i zc o l u m n a q u ec o n t i e n ed eu n am u e s t r au n i d i m e n s i o n a l . O p c i o n e s : *` ' A l t e r n a t i v a ' ,' d e f a u l t 't w o s i d e d' ,e sl aa l t e r n a t i v a h i p t e s i s ,l o sv a l o r e sv l i d o ss o n :' 't w o s i d e d' ,` 'm a y o r' y ` "M e n o s" .
554/633
28/08/13

*` ' M e d i a ' ,d e f a u l t `0' ,e se lv a l o rd el am e d i a n ap a r as e rr e v i s a d o .
F u n c i n :t e s t _ s i g n e d _ r a n k( < x > ) F u n c i n :t e s t _ s i g n e d _ r a n k( < x >< o p c i o n e s >. . . ) E s t ae sl ap r u e b ad er a n g o sd eW i l c o x o nf i r m a d op a r ah a c e ri n f e r e n c i a ss o b r el a m e d i a n ad eu n ap o b l a c i nc o n t i n u a .< x >A r g u m e n t oe su n al i s t aou n a m a t r i zd el ac o l u m n aq u ec o n t i e n eu n am u e s t r au n i d i m e n s i o n a l .R e a l i z an o r m a l e s a p r o x i m a c i ns ie lt a m a od el am u e s t r ae sm a y o rq u e2 0 ,os ih a y s o nc e r o sol a z o s . C o n s u l t et a m b i n` p d f _ r a n k _ t e s t' y `c d f _ r a n k _ t e s t ' . O p c i o n e s : *` ' M e d i a ' ,d e f a u l t `0' ,e se lv a l o rd el am e d i a n ap a r as e rr e v i s a d o . *` ' A l t e r n a t i v a ' ,' d e f a u l t 't w o s i d e d' ,e sl aa l t e r n a t i v a h i p t e s i s ,l o sv a l o r e sv l i d o ss o n :' 't w o s i d e d' ,` 'm a y o r' y ` "M e n o s" .
F u n c i n :t e s t _ r a n k _ s u m( < x 1 > ,< x 2 > ) F u n c i n :t e s t _ r a n k _ s u m( < x 1 > ,< x 2 > ,< o p t i o n > ) E s t ae sl ap r u e b ad eW i l c o x o n M a n n W h i t n e yp a r ac o m p a r a rl a sm e d i a n a s d ed o sp o b l a c i o n e sc o n t i n u a s .L o sd o sp r i m e r o sa r g u m e n t o s< x 1 >y < x 2 >s o nl i s t a som a t r i c e sc o l u m n ac o nl o sd a t o sd ed o si n d e p e n d i e n t e s m u e s t r a s .R e a l i z al aa p r o x i m a c i nn o r m a ls ic u a l q u i e r ad el o st a m a o sd el a sm u e s t r a s e sm a y o rq u e1 0 ,os ih a yl a z o s . O p c i n : *` ' A l t e r n a t i v a ' ,' d e f a u l t 't w o s i d e d' ,e sl aa l t e r n a t i v a h i p t e s i s ,l o sv a l o r e sv l i d o ss o n :' 't w o s i d e d' ,` 'm a y o r' y ` "M e n o s" .
F u n c i n :t e s t _ n o r m a l i t y( < x > ) P r u e b ad eS h a p i r o W i l kp a r al an o r m a l i d a d .< x >A r g u m e n t oe su n al i s t ad e n m e r oye lt a m a od el am u e s t r ad e b es e rm a y o rq u e2ym e n o roi g u a l d e5 0 0 0 ,d el oc o n t r a r i o ,l af u n c i n` t e s t _ n o r m a l i t y' s e a l au ne r r o r m e n s a j e . R e f e r e n c i a : [ 1 ]a l g o r i t m oq u eR 9 4 ,E s t a d s t i c aA p l i c a d a( 1 9 9 5 ) ,v o l . 4 4 ,n o . 4 , 5 4 7 5 5 1 L as a l i d ad el af u n c i n` t e s t _ n o r m a l i t y' e su n ì n f e r e n c e _ r e s u l t ' O b j e t oM a x i m ac o nl o ss i g u i e n t e sr e s u l t a d o s : 1 .` ' E s t a d s t i c a ' :v a l o rd e le s t a d s t i c o< W > . 2 .` ' P _ v a l u e ' :p v a l o rb a j os u p u e s t od en o r m a l i d a d .
F u n c i n :s i m p l e _ l i n e a r _ r e g r e s s i o n( < x > ) F u n c i n :s i m p l e _ l i n e a r _ r e g r e s s i o n( < x >< o p t i o n > ) R e g r e s i nl i n e a ls i m p l e ,y _ i=a+b+x _ ie _ i ,d o n d ee _ is o nN( 0 ,s i g m a ) v a r i a b l e sa l e a t o r i a si n d e p e n d i e n t e s .< x >A r g u m e n t od e b es e ru n ad ed o sc o l u m n a s m a t r i zou n al i s t ad ep a r e s . O p c i o n e s : *` ' C o n f l e v e l ' ,n i v e ld ec o n f i a n z ap r e d e t e r m i n a d o `9 5 / 1 0 0" p a r al a i n t e r v a l od ec o n f i a n z a ,s i n oq u ed e b es e ru n ae x p r e s i nq u et i e n eu n v a l o re n( 0 , 1 ) . *` ' R e g r e s o r ' ,' d e f a u l t 'x' ,e ln o m b r ed el av a r i a b l ei n d e p e n d i e n t e .
76.4 Funciones y variables para distribuciones especiales

F u n c i n :p d f _ s i g n e d _ r a n k( < x >< n > ) F u n c i nd ed e n s i d a dd ep r o b a b i l i d a dd el ad i s t r i b u c i ne x a c t ad el a f i r m a d or a n g oe s t a d s t i c o .< x >A r g u m e n t oe su nn m e r or e a lyu n< n > e n t e r op o s i t i v o . C o n s u l t et a m b i n` t e s t _ s i g n e d _ r a n k' .
555/633
28/08/13
F u n c i n :c d f _ s i g n e d _ r a n k( < x >< n > )
F u n c i nd ed e n s i d a da c u m u l a t i v ad el ad i s t r i b u c i ne x a c t ad el a f i r m a d or a n g oe s t a d s t i c o .< x >A r g u m e n t oe su nn m e r or e a lyu n< n > e n t e r op o s i t i v o . C o n s u l t et a m b i n` t e s t _ s i g n e d _ r a n k' .
F u n c i n :p d f _ r a n k _ s u m( < x > ,< n >< m > ) F u n c i nd ed e n s i d a dd ep r o b a b i l i d a dd el ad i s t r i b u c i ne x a c t ad el a sb a s e s r e s u m e ne s t a d s t i c o .< x >A r g u m e n t oe su nn m e r or e a ly< n >y< m >s o n a m b o sn m e r o se n t e r o sp o s i t i v o s . C o n s u l t et a m b i n` t e s t _ r a n k _ s u m' .
F u n c i n :c d f _ r a n k _ s u m( < x > ,< n >< m > ) F u n c i nd ed e n s i d a da c u m u l a t i v ad el ad i s t r i b u c i ne x a c t ad el a sb a s e s r e s u m e ne s t a d s t i c o .< x >A r g u m e n t oe su nn m e r or e a ly< n >y< m >s o n a m b o sn m e r o se n t e r o sp o s i t i v o s . C o n s u l t et a m b i n` t e s t _ r a n k _ s u m' .
77 stirling
F u n c i o n e syv a r i a b l e sp a r as t i r l i n g
77.1 Funciones y variables para stirling

F u n c i n :s t i r l i n g( < z > ,< n > ) F u n c i n :s t i r l i n g( < z > ,< n > ) R e e m p l a z a r` g a m m a( x )' c o ne lO( 1/x^( 2 n 1 ) )f r m u l ad eS t i r l i n g .c u a n d o < n >n oe su ne n t e r on on e g a t i v o ,d e v u e l v eu ne r r o r .C o ne l t e r c e ra r g u m e n t oo p c i o n a lp r e d' ,` s ea p l i c al af r m u l ad eS t i r l i n g s l oc u a n d o` p r e d' e sv e r d a d e r a . R e f e r e n c i a :A b r a m o w i t zyS t e g u n" ,M a n u a ld el am a t e m t i c a f u n c i o n e s" ,0 6 / 0 1 / 4 0 . E j e m p l o s : ( %I 1 )l o a d( s t i r l i n g )$ ( %I 2 )s t i r l i n g( g a m m a( %a l p h a+x )/g a m m a( x ) ,1 ) ; 1 / 2-x x+ %d ea l f a-1 / 2 ( %O 2 )x( x+ %a l f a ) 11 %D ea l f a 1 2( x+ %a l f a )1 2x %E ( %I 3 )t a y l o r( % ,x ,i n f ,1 ) ; %D ea l f a2 %d ea l f a %D ea l f ax %d ea l f a-x %d ea l f a ( %O 3 )/T/x+-+ ... 2x ( %I 4 )M a p a( " f a c t o r , % ) ; %D ea l f a-1 %D ea l f a( %d ea l f a-1 )x %d ea l f a ( %O 4 )x+2 L af u n c i n` s t i r l i n g' c o n o c el ad i f e r e n c i ae n t r el av a r i a b l e ' G a m m a 'yl af u n c i ng a m m a : ( %I 5 )s t i r l i n g( g a m m a+g a m m a( x ) ,0 ) ; x-1 / 2-x ( %O 5 )g a m m a+( 2 )s q r ts q r t( %p i )x %e ( %I 6 )s t i r l i n g( g a m m a( y )+g a m m a( x ) ,0 ) ; y-1 / 2-y ( %O 6 )s q r t( 2 )s q r t( %p i )y %e x-1 / 2-x +( 2 )s q r ts q r t( %p i )x %e P a r aa p l i c a rl af r m u l ad eS t i r l i n ge x c l u s i v a m e n t eal o st r m i n o sq u ei n v o l u c r a nl a ` k' v a r i a b l e s ,u t i l i z a ru nt e r c e ra r g u m e n t oo p c i o n a l ,p o re j e m p l o ( %I 7 )m a k e g a m m a( p o c h h a m m e r( a ,k )/p o c h h a m m e r( b ,k ) ) ; ( %O 7 )( g a m m a( b )*g a m m a( k+a ) )/( g a m m a( a )*g a m m a( k+b ) ) ( %I 8 )s t i r l i n g( % ,1 ,l a m b d a( [ s ] ,n o( f r e e o f( k ,s ) ) ) ) ; ( %O 8 )( %e^ ( b a )*g a m m a( b )*( k+a )^( k+A 1 / 2 )*( k+b )^( k 1 b/2 ) )/g a m m a( a ) L o st r m i n o s` g a m m a( a )' y `g a m m a( b ) 'e s t nl i b r e sd e` k' ,p o rl oq u ee l F r m u l ad eS t i r l i n gn os ea p l i c aae s t o sd o st r m i n o s . P a r au t i l i z a re s t af u n c i ne j e c t e s el o a d( " s t i r l i n g " ) .
556/633
28/08/13
78 stringproc
I n t r o d u c c i na lp r o c e s a m i e n t od ec a d e n a s F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s
78.1 Introduccin al procesamiento de cadenas

` S t r i n g p r o c' a m p l al a sc a p a c i d a d e sd eM a x i m ad et r a b a j a rc o nc a d e n a s ya a d ea l g u n a sf u n c i o n e s t i l e sp a r ae la r c h i v oe n/s a l i d a . P a r ap r e g u n t a sye r r o r e sp o rf a v o rav a n . n e ke na r c o r . d e . E nu n ac a d e n ad eM a x i m as ec o n s t r u y ef c i l m e n t ee s c r i b i e n d o" t e x t o " . P r u e b a s` p c a d e n a "p a r ac u e r d a s . ( %I 1 )m :" t e x t o " ; ( %O 1 )t e x t o ( %I 2 )p c a d e n a( m ) ; ( %O 2 )t r u e L o sc a r a c t e r e ss er e p r e s e n t a nc o m oc a d e n a sd el o n g i t u d1 .E s t o sn os o n C a r a c t e r e sL i s p .L a sp r u e b a ss ep u e d e nh a c e rc o n` c h a r p' ( r e s p e c t i v a m e n t e `l c h a r p ' yl ac o n v e r s i nd eL i s pac a r a c t e r e sM a x i m ac o n` c u n l i s p' ) . ( %I 1 )c :" e " ; ( %O 1 )e ( %I 2 )[ c h a r p( c ) ,l c h a r p( c ) ] ; ( %O 2 )[ t r u e ,f a l s e ] ( %I 3 )s u p c a s e( c ) ; ( %O 3 )E ( %I 4 )c h a r p( % ) ; ( %O 4 )t r u e T o d a sl a sf u n c i o n e sd e` s t r i n g p r o c' q u el o sp e r s o n a j e s ,v u e l t a M a x i m ac a r a c t e r e s .D e b i d oa lh e c h o ,d eq u el o sc a r a c t e r e si n t r o d u c i d o ss o n c a d e n a sd el o n g i t u d1 ,p u e d eu s a rl a sf u n c i o n e sd ec a d e n at a m b i np a r a p e r s o n a j e s .C o m os ev e ,` s u p c a s e' e su ne j e m p l o . E si m p o r t a n t es a b e r ,q u ee lp r i m e rc a r c t e rd eu n ac a d e n ad eM a x i m a e s t e nl ap o s i c i n1 .E s t oe s t d i s e a d od e b i d oa lh e c h od eq u el ap r i m e r a e l e m e n t oe nu n al i s t ad eM a x i m ae s t e nl ap o s i c i n1t a m b i n .V a n s el a sd e f i n i c i o n e sd e C h a r a t` ' y `c h a r l i s t 'p a r av e re j e m p l o s . E nl a sa p l i c a c i o n e sd ec a d e n ad ef u n c i o n e ss eu t i l i z a nam e n u d oc u a n d os et r a b a j ac o n a r c h i v o s .U s t e de n c o n t r a r a l g u n a si m p r e s i o n e sf u n c i o n e sc o r r i e n t e y t i le n ` S t r i n g p r o c' .E ls i g u i e n t ee j e m p l om u e s t r aa l g u n o sd el o sa q u f u n c i o n e se ne lt r a b a j op r e s e n t a d o . E j e m p l o : ` O p e n w' d e v u e l v eu nf l u j od es a l i d aau na r c h i v o , `p r i n t f 'p e r m i t ee n t o n c e s f o r m a t od ee s c r i t u r ap a r ae la r c h i v o .C o n s u l t e` p r i n t f' p a r am sd e t a l l e s . ( %I 1 )s :o p e n w( " E: /a r c h i v o . t x t " ) ; ( %O 1 )#< r e s u l t a d oE : / f i l e . t x t >c o r r i e n t e ( %I 2 )p a r an :0 1 0d op r i n t f( s ," ~d " ,f i b( n ) ) ; ( %O 2 )d o n e ( %I 3 )p r i n t f( s ," ~ %~d~f~a~a~f~e~a~ % " , 4 2 , 1 . 2 3 4 ,s q r t( 2 ) , %p i ,1 . 0 e 2 ,1 , 0E 2 ,1 . 0 b 2 ) ; ( %O 3 )f a l s e ( %I 4 )c e r c a( s ) ; ( %O 4 )t r u e D e s p u sd ec e r r a re lf l u j os ep u e d ea b r i rd en u e v o ,e s t av e zc o nl ap a r t i c i p a c i n d i r e c c i n .` R e a d l i n e' d e v u e l v et o d al al n e ac o m ou n ac a d e n a .L a P a q u e t e` s t r i n g p r o c' a h o r ao f r e c eu n ag r a nc a n t i d a dd ef u n c i o n e sp a r al am a n i p u l a c i nd e c a d e n a s .T o k e n i z a c i np u e d eh a c e r s ep o r' s p l i t 'o' t o k e n s ' . ( %I 5 )s :o p e n r( " E: /a r c h i v o . t x t " ) ; ( %O 5 )# ( %I 6 )r e a d l i n e( s ) ; ( %O 6 )01123581 32 13 45 5 ( %I 7 )L n e a :r e a d l i n e( s ) ; ( %O 7 )4 21 , 2 3 4s q r t( 2 ) %p i0 , 0 11 , 0E 21 . 0 b 2 ( %I 8 )L i s t a :t o k e n s( l n e a ) ; ( %O 8 )[ 4 2 ,1 . 2 3 4 ,s q r t( 2 ) , %p i ,0 , 0 1 ,1 , 0E 2 ,1 . 0 b 2 ] ( %I 9 )m a p a( p a r s e _ s t r i n g ,l i s t ) ; ( %O 9 )[ 4 2 ,1 . 2 3 4 ,s q r t( 2 ) , %p i ,0 . 0 1 ,0 . 0 1 ,1 . 0 b 2 ] ( %I 1 0 )d e lf l o t a d o r( % ) ; ( %O 1 0 )[ 4 2 . 0 ,1 . 2 3 4 ,1 . 4 1 4 2 1 3 5 6 2 3 7 3 0 9 5 ,3 . 1 4 1 5 9 2 6 5 3 5 8 9 7 9 3 ,0 . 0 1 , 0 . 0 1 ,0 . 0 1 ] ( %I 1 1 )r e a d l i n e( s ) ; ( %O 1 1 )f a l s e ( %I 1 2 )c l o s e( s )$ ` R e a d l i n e' d e v u e l v e 'f a l s e' c u a n d os ep r o d u c ea lf i n a ld e la r c h i v o .
78.2 Funciones y variables para entrada y salida

28/08/13
E j e m p l o :
( %I 1 )s :o p e n w( " E: /a r c h i v o . t x t " ) ; ( %O 1 )#< r e s u l t a d oE : / f i l e . t x t >c o r r i e n t e ( %I 2 )C o n t r o l : " ~2 t a n t o m o :~2 0 t~a~ %~2 t a n du n al i s t a :2 0 t~~~{ r }~~ %~2 t\ yu ne n t e r o :~2 0 t~d~ %" $ ( %I 3 )p r i n t f( s ,c o n t r o l ,' t r u e ,[ 1 , 2 , 3 ] ,4 2 )$ ( %O 3 )f a l s e ( %I 4 )c e r c a( s ) ; ( %O 4 )t r u e ( %I 5 )s :o p e n r( " E: /a r c h i v o . t x t " ) ; ( %O 5 )# ( %I 6 )m i e n t r a ss t r i n g p( t m p :r e a d l i n e( s ) )d op r i n t( t m p )$ U n t o m o :t r u e yu n al i s t a :u n o ,d o s ,t r e s yu ne n t e r o :4 2 ( %I 7 )c l o s e( s )$
F u n c i n :c l o s e( < s t r e a m > ) C i e r r a< s t r e a m >yd e v u e l v e` t r u e' s i< s t r e a m >h a b as i d oa b i e r t a .
F u n c i n :f l e n g t h( < s t r e a m > ) D e v u e l v ee ln m e r od ee l e m e n t o se n< s t r e a m > .
F u n c i n :f p o s i t i o n( < s t r e a m > ) F u n c i n :f p o s i t i o n( < s t r e a m > , ) D e v u e l v el ap o s i c i na c t u a le n< s t r e a m > ,s in os eu t i l i z a . S is eu t i l i z a ,` f p o s i t i o n' e s t a b l e c el ap o s i c i ne n< s t r e a m > . t i e n eq u es e ru nn m e r op o s i t i v o ,e lp r i m e re l e m e n t oe n< s t r e a m > e s t e nl ap o s i c i n1 .
F u n c i n :f r e s h l i n e( ) F u n c i n :f r e s h l i n e( < s t r e a m > ) E s c r i b eu n an u e v al n e a( a< s t r e a m > ) ,s il ap o s i c i nn oe s t e ne l ap a r t i rd eu n al n e a .V a s et a m b i n' n u e v al n e a ' .
F u n c i n :s a l t od el n e a( ) F u n c i n :s a l t od el n e a( < s t r e a m > ) E s c r i b eu n an u e v al n e a( a< s t r e a m > ) .C o n s u l t e` S p r i n tp a r au ne j e m p l od e u s a n d o` s a l t od el n e a( )' .T e n g ae nc u e n t aq u eh a ya l g u n o sc a s o se nl o sq u e ` N u e v al n e a( )' n of u n c i o n ac o m os ee s p e r a b a .
F u n c i n :o p e n a( < a r c h i v o > ) D e v u e l v eu nf l u j od es a l i d ap a r a< a r c h i v o > .S iu na r c h i v oe x i s t e n t ee s a b i e r t o ,` o p e n a "e l e m e n t o sa n e x aa lf i n a ld e la r c h i v o .
F u n c i n :o p e n r( < a r c h i v o > ) D e v u e l v eu nf l u j od ee n t r a d ad e< a r c h i v o > .S i< a r c h i v o >n oe x i s t e , s ec r e a r .
F u n c i n :o p e n w( < a r c h i v o > ) D e v u e l v eu nf l u j od es a l i d ap a r a< a r c h i v o > .S i< a r c h i v o >n oe x i s t e , s ec r e a r .S is ea b r eu na r c h i v oe x i s t e n t e ,` o p e n w' d e s t r u c t i v a m e n t em o d i f i c a< a r c h i v o > .
F u n c i n :p r i n t f( < d e s t > ,< c a d e n a > ) F u n c i n :p r i n t f( < d e s t > ,< c a d e n a > ,< e x p r _ 1 > ,. . . ,< e x p r _ n > ) H a c eq u ee lC o m m o nL i s pF O R M A T Of u n c i nd i s p o n i b l ee nM a x i m a .( D e g c l . i n f o :" f o r m a t op r o d u c el as a l i d ac o nf o r m a t od es a l i d ad el a c a r a c t e r e sd ec a d e n ad ec o n t r o ld ec u e r d a syo b s e r v a n d oq u eu n at i l d e i n t r o d u c eu n ad i r e c t i v a .E lc a r c t e rd e s p u sd el at i l d e ,p o s i b l e m e n t e p r e c e d i d op o rp a r m e t r o sp r e f i j oym o d i f i c a d o r e s ,e s p e c i f i c aq u t i p o s ed e s e ad ef o r m a t o .L am a y o r ad el a sd i r e c t i v a sd eu s od eu n aom s e l e m e n t o sd ea r g sp a r ac r e a rs u sp r o d u c t o s ." )
558/633
28/08/13

L as i g u i e n t ed e s c r i p c i nyl o se j e m p l o sp u e d e nd a ru n ai d e ad e u s a n d o` p r i n t f' .V a s eu n ar e f e r e n c i aL i s pp a r am si n f o r m a c i n . ~ %N u e v al n e a ~&L n e af r e s c a ~F i c h at ~$M o n e t a r i a ~De n t e r od e c i m a l ~Bb i n a r i oe n t e r o ~Oe n t e r oo c t a l ~Xe n t e r oh e x a d e c i m a l ~B rb a s ebe n t e r o ~Rd e l e t r e a ru ne n t e r o ~Pp l u r a l ~Fc o m af l o t a n t e ~En o t a c i nc i e n t f i c a ~G~f o~e ,d e p e n d i e n d od el am a g n i t u d ~Hb i g f l o a t ~U n ac a d e n ad eM a x i m au t i l i z al af u n c i n ~Sc o m o~a ,p e r ol ap r o d u c c i ni n c l u i d ae n" c o m i l l a sd o b l e s " ~~~ ~< J u s t i f i c a c i n ,~ >t e r m i n a ~( C o n v e r s i nc a s o ,~ )t e r m i n a ~[ S e l e c c i n ,~ ]t e r m i n a ~{ I t e r a c i n ,~ }t e r m i n a T e n g ae nc u e n t aq u el aD i r e c t i v as e l e c c i n` ~[ ' e si n d e x a d aac e r o .T a m b i nt e n g ae nc u e n t a q u el ad i r e c t i v a~*n oe sc o m p a t i b l e . ( %I 1 )p r i n t f( f a l s e ," ~a~a~4 f~a~@r " , " S t r i n g " ,s y m ,a t a d o ,s q r t( 1 2 ) ,1 4 4 ) ,c o nd e s t i n o=1 . 2 3 4 ; ( %O 1 )s y mC a d e n a1 , 2 32*s q r t( 3 )C X L I V ( %I 2 )p r i n t f( f a l s e ," ~{ ~a~ } " ,[ " u n o " ,2 ," t r e s " ] ) ; ( %O 2 )u n2T R E S ( %I 3 )p r i n t f( t r u e ," ~{ ~{ ~9 , 1f~ }~ %~ } " ,m a t ) , m a t=a r g s( m a t r i z( [ 1 . 1 , 2 , 3 . 3 3 ] ,[ 4 , 5 , 6 ] ,[ 7 , 8 . 8 8 , 9 ] ) )$ 1 , 12 , 03 , 3 4 , 05 , 06 , 0 7 , 08 , 99 , 0 ( %I 4 )C o n t r o l :" ~ : .( ~R~ )p j a r o~p~[ s e~ ;s o n~ ]c a n t a n d o "$ ( %I 5 )p r i n t f( f a l s o ,e lc o n t r o l ,n ,n ,s in=1 ,e n t o n c e s0d e m s1 ) ,n =2 ; ( %O 5 )D o sp j a r o se s t nc a n t a n d o . S i< d e s t >e su n ac o r r i e n t eo' t r u e ' ,e n t o n c e s` p r i n t f' d e v u e l v e 'f a l s e' . D el oc o n t r a r i o ,` p r i n t f' d e v u e l v eu n ac a d e n aq u ec o n t i e n el as a l i d a .
F u n c i n :r e a d l i n e( < s t r e a m > ) D e v u e l v eu n ac a d e n aq u ec o n t i e n el o sc a r a c t e r e sd el aa c t u a l p o s i c i ne n< s t r e a m >h a s t ae lf i n a ld el al n e ao< f a l s e >s ie l s ee n c o n t r f i n a ld e la r c h i v o .
F u n c i n :S p r i n t( < e x p r _ 1 > ,. . . ,< e x p r _ n > ) E v a l aym u e s t r as u sa r g u m e n t o su n ot r a so t r oe nu n` l i n e' ap a r t i rd el ap o s i c i nm sal ai z q u i e r d a .L o sn m e r o ss ei m p r i m e n c o ne l" "a ll a d od el ac a n t i d a d ,yn ot i e n ee nc u e n t al al n e a l o n g i t u d .` N u e v al n e a( )' ,q u es ec a r g aa u t o m t i c a m e n t ed e ` S t r i n g p r o c' p u e d es e r t i l ,s iu s t e dw h i s hp a r ac o l o c a r s a l t o sd el n e ai n t e r m e d i a . E j e m p l o : ( %I 1 )p a r an :0 1 9h a c e ne s p r i n t( f i b( n ) )$ 01123581 32 13 45 58 91 4 42 3 33 7 76 1 09 8 71 5 9 72 5 8 44 1 8 1 ( %I 2 )p a r an :0 2 2d o( S p r i n t( f i b( n ) ) ,s im o d( n ,1 0 )=9e n t o n c e sn u e v al n e a( ) )$ 01123581 32 13 4 5 58 91 4 42 3 33 7 76 1 09 8 71 5 9 72 5 8 44 1 8 1 6 7 6 51 0 9 4 61 7 7 1 1
78.3 Funciones y variables para caracteres

F u n c i n :a l p h a c h a r p( < c h a r > ) D e v u e l v e` t r u e' s i< c h a r >e su nc a r c t e ra l f a b t i c o .
F u n c i n :a l p h a n u m e r i c p( < c h a r > ) D e v u e l v e` t r u e' s i< c h a r >e su nc a r c t e ra l f a b t i c oou nd g i t o .
F u n c i n :a s c i i( ) D e v u e l v ee lc a r c t e rc o r r e s p o n d i e n t ea ln m e r oA S C I I .(
559/633
28/08/13
1< I n t< 2 5 6 )
( %I 1 )p a r an0 2 5 5d o( t m p :a s c i i( n ) ,s ia l p h a c h a r p( t m p )l u e g oh g a l o( t m p ) , s in=9 6e n t o n c e sn u e v al n e a( ) )$ A B C D E F G H I J K L M N O P Q R S T UV W X Y Z a b c d e f g h i j k l m n o p q r s t uv w x y z
F u n c i n :C E q u a l( < c h a r _ 1 > ,< c h a r _ 2 > ) D e v u e l v e` t r u e' s i< c h a r _ 1 >y< c h a r _ 2 >s o nl o sm i s m o s .
F u n c i n :c e q u a l i g n o r e( < c h a r _ 1 > ,< c h a r _ 2 > ) A li g u a lq u e` C E q u a l' ,p e r oi g n o r ac a s o .
F u n c i n :c g r e a t e r p( < c h a r _ 1 > ,< c h a r _ 2 > ) D e v u e l v e` t r u e' s ie ln m e r oA S C I Id e< c h a r _ 1 >e sm a y o rq u ee l n m e r od e< c h a r _ 2 > .
F u n c i n :c g r e a t e r p i g n o r e( < c h a r _ 1 > ,< c h a r _ 2 > ) A li g u a lq u e` c g r e a t e r p' p e r oi g n o r ac a s o .
F u n c i n :c h a r p( < o b j > ) D e v u e l v e` t r u e' s i< o b j >e su np e r s o n a j ed eM a x i m a .V a s el ai n t r o d u c c i n p o re j e m p l o .
F u n c i n :c i n t( < c h a r > ) D e v u e l v ee ln m e r oA S C I Id e< c h a r > .
F u n c i n :c l e s s p( < c h a r _ 1 > ,< c h a r _ 2 > ) D e v u e l v e` t r u e' s ie ln m e r oA S C I Id e< c h a r _ 1 >e sm e n o rq u ee l n m e r od e< c h a r _ 2 > .
F u n c i n :c l e s s p i g n o r e( < c h a r _ 1 > ,< c h a r _ 2 > ) A li g u a lq u e` c l e s s p' ,p e r oi g n o r ac a s o .
F u n c i n :c o n s t i t u y e n t e( < c h a r > ) D e v u e l v e` t r u e' s i< c h a r >e su nc a r c t e rg r f i c oyn oe le s p a c i o c a r c t e r .U nc a r c t e rg r f i c oe su np e r s o n a j es ep u e d ev e r ,a d e m sd e e lc a r c t e rd ee s p a c i o .( ` C o n s t i t u y e n t e "s ed e f i n ep o rP a u lG r a h a m , A N S IC o m m o nL i s p ,1 9 9 6 ,p g i n a6 7 . ) ( %I 1 )p a r an0 2 5 5d o( t m p :a s c i i( n ) ,s ie lc o n s t i t u y e n t e( t m p )l u e g oh g a l o( t m p ) )$ !" # %' ( )*+ ,-/0123456789 : ; . ?< = >A B@ C D E F G H I J K L M N O P Q R S T U V WX Y Z[ \ ]^_` a b c D E F G H I J K L M N O P Q R S T U V W XY Z{ | }~
F u n c i n :c u n l i s p( < l i s p _ c h a r > ) C o n v i e r t eu nc a r c t e rL i s pe nu np e r s o n a j ed eM a x i m a .( N os e l on e c e s i t a . )
F u n c i n :d i g i t c h a r p( < c h a r > ) D e v u e l v e` t r u e' s i< c h a r >e su nd g i t o .
F u n c i n :l c h a r p( < o b j > )
560/633
28/08/13

D e v u e l v e` t r u e' s i< o b j >e su nc a r c t e rL i s p .( N ol on e c e s i t a r . )
F u n c i n :l o w e r c a s e p( < c h a r > ) D e v u e l v e` t r u e' s i< c h a r >e su nc a r c t e re nm i n s c u l a .
V a r i a b l e :n u e v al n e a E lc a r c t e rd en u e v al n e a .
V a r i a b l e :e le s p a c i o E lc a r c t e rd ee s p a c i o .
V a r i a b l e :p e s t a a E lc a r c t e rd et a b u l a c i n .
F u n c i n :u p p e r c a s e p( < c h a r > ) D e v u e l v e` t r u e' s i< c h a r >e su nc a r c t e re nm a y s c u l a .
78.4 Funciones y variables para las cadenas

F u n c i n :s t r i n g p( < o b j > ) D e v u e l v e` t r u e' s i< o b j >e su n ac a d e n a .V a s el ai n t r o d u c c i n ,p o re j e m p l o .
F u n c i n :c h a r a t( < c a d e n a > ,< n > ) D e v u e l v ee l< n > s i m oc a r c t e rd e< c a d e n a > .E lp r i m e rc a r c t e r < c a d e n a >s ed e v u e l v ec o n< n >=1 . ( %I 1 )c h a r a t( " L i s p " ,1 ) ; ( %O 1 )L
F u n c i n :c h a r l i s t( < c a d e n a > ) D e v u e l v el al i s t ad et o d o sl o sc a r a c t e r e sd e< c a d e n a > . ( %I 1 )c h a r l i s t( " L i s p " ) ; ( %O 1 )[ L ,i ,s ,p ] ( %I 2 ) %[ 1 ] ; ( %O 2 )L
F u n c i n :e v a l _ s t r i n g( < s t r > ) A n a l i c el a< s t r >c a d e n ac o m om x i m ae x p r e s i nye v a l u a r l a . E l< s t r >c a d e n ap u e d eon op u e d et e n e ru n( s i g n od ed l a rt e r m i n a t o r' $ ' op u n t oyc o m a' ; ' ) .S l ol ap r i m e r ae x p r e s i ns ea n a l i z ay e v a l u a d o ,s ih a ym sd eu n o . Q u e j a r s es i< s t r >n oe su n ac a d e n a . E j e m p l o s : ( %I 1 )e v a l _ s t r i n g( " f o o :4 2 ;b a r :f o o^2+b a z " ) ; ( %O 1 )4 2 ( %I 2 )e v a l _ s t r i n g( " ( f o o :4 2b a r :f o o^2+b a z ) " ) ; ( %O 2 )b a z+1 7 6 4 C o n s u l t et a m b i n` p a r s e _ s t r i n g' .
F u n c i n :p a r s e _ s t r i n g( < s t r > ) A n a l i c el a< s t r >c a d e n ac o m om x i m ae x p r e s i n( n oe v a l u a r l a ) . E l< s t r >c a d e n ap u e d eon op u e d et e n e ru n( s i g n od ed l a rt e r m i n a t o r' $ ' op u n t oyc o m a' ; ' ) .S l ol ap r i m e r ae x p r e s i ns ea n a l i z a ,s ih a y e sm sd eu n o . Q u e j a r s es i< s t r >n oe su n ac a d e n a .
561/633
28/08/13
E j e m p l o s :
( %I 1 )p a r s e _ s t r i n g( " f o o :4 2 ;b a r :f o o^2+b a z " ) ; ( %O 1 )f o o :4 2 ( %I 2 )p a r s e _ s t r i n g( " ( f o o :4 2b a r :f o o^2+b a z ) " ) ; 2 ( %O 2 )( f o o :4 2b a r :f o o+b a z ) C o n s u l t et a m b i n` e v a l _ s t r i n g' .
F u n c i n :s c o p y( < c a d e n a > ) D e v u e l v eu n ac o p i ad e< c a d e n a >c o m ou n an u e v ac a d e n a .
F u n c i n :s d o w n c a s e( < c a d e n a > ) F u n c i n :s d o w n c a s e( < c a d e n a > , ) F u n c i n :s d o w n c a s e( < c a d e n a > , ,< e n d > ) A li g u a lq u e` s u p c a s e' ,p e r ol o sc a r a c t e r e se nm a y s c u l a ss ec o n v i e r t e ne n m i n s c u l a s .
F u n c i n :s e c u e l a( < s t r i n g _ 1 > ,< s t r i n g _ 2 > ) D e v u e l v e` t r u e' s i< s t r i n g _ 1 >y< s t r i n g _ 2 >t i e n e nl am i s m al o n g i t u d yc o n t e n e rl o sm i s m o sc a r a c t e r e s .
F u n c i n :s e q u a l i g n o r e( < s t r i n g _ 1 > ,< s t r i n g _ 2 > ) A li g u a lq u e' s e c u e l a ' ,p e r oi g n o r ac a s o .
F u n c i n :s e x p l o d e( < c a d e n a > ) ` S e x p l o d e' e su na l i a sp a r al af u n c i n `c h a r l i s t ' .
F u n c i n :s i m p l o d e( < l i s t > ) F u n c i n :s i m p l o d e( < l i s t > ,< d e l i m > ) ` S i m p l o d e' t o m au n al i s t ad ee x p r e s i o n e syc o n c a t e n ae n u n ac a d e n a .S in os ee s p e c i f i c an i n g nd e l i m i t a d o r< d e l i m > ,u t i l i z a` s i m p l o d e' n i n g nd e l i m i t a d o r .< d e l i m >p u e d es e rc u a l q u i e rc a d e n a . ( %I 1 )s i m p l o d e( [ " x x[ " ,3" ] : " ,e x p a n d i r( ( x+y )^3 ) ] ) ; ( %O 1 )x x[ 3 ] :3y^3*x*y^23*x^2*y+x^3 ( %I 2 )s i m p l o d e( s e x p l o d e( " e s t r e l l a s " ) ," * " ) ; ( %O 2 )s*t*a*r*s ( %I 3 )s i m p l o d e( [ " O n e " ," m s " ," c a f . " ] ," " ) ; ( %O 3 )U n om sc a f .
F u n c i n :s i n s e r t( < s e q > ,< c a d e n a > , ) D e v u e l v eu n ac a d e n aq u ee su n ac o n c a t e n a c i nd e` s u b s t r i n g( < c a d e n a > , 1 ,-1 )' ,l a< s e q >c u e r d ay` s u b s t r i n g( < c a d e n a > , ) . T e n g ae nc u e n t aq u ee lp r i m e rc a r c t e rd e< c a d e n a >e s t e nl ap o s i c i n1 . ( %I 1 )s :" U ns u b m a r i n o . "$ ( %I 2 )c o n c a t( s u b s t r i n g( s ,1 , 3 ) ," a m a r i l l o " ,s u b s t r i n g( s ,3 ) ) ; ( %O 2 )U ns u b m a r i n oa m a r i l l o . ( %I 3 )s i n s e r t( " h u e c o " ,s ,3 ) ; ( %O 3 )U ns u b m a r i n oh u e c o .
F u n c i n :s i n v e r t c a s e( < c a d e n a > ) F u n c i n :s i n v e r t c a s e( < c a d e n a > , ) F u n c i n :s i n v e r t c a s e( < c a d e n a > , ,< e n d > ) D e v o l u c i o n e s< c a d e n a >e x c e p t oq u ec a d ap e r s o n a j ed el ap o s i c i n a< e n d >s ei n v i e r t e .S in os ed a< e n d > ,t o d o sl o sc a r a c t e r e sd e h a s t ae lf i n a ld e< c a d e n a >s es u s t i t u y e n . ( %I 1 )s i n v e r t c a s e( " s I n v e r t C a s e " ) ; ( %O 1 )S i N V E R T c A S E
F u n c i n :s l e n g t h( < c a d e n a > ) D e v u e l v ee ln m e r od ec a r a c t e r e sd e< c a d e n a > .
562/633
28/08/13
F u n c i n :s m a k e( < n u m > ,< c h a r > ) D e v u e l v eu n an u e v ac a d e n ac o nu n as e r i ed ep e r s o n a j e s< n u m >< c h a r > . ( %I 1 )s m a k e( 3 ," w " ) ; ( %O 1 )w w w
F u n c i n :s m i s m a t c h( < s t r i n g _ 1 > ,< s t r i n g _ 2 > ) F u n c i n :s m i s m a t c h( < s t r i n g _ 1 > ,< s t r i n g _ 2 > ,< t e s t > ) D e v u e l v el ap o s i c i nd e lp r i m e rc a r c t e rd e< s t r i n g _ 1 >al aq u e < s t r i n g _ 1 >y< s t r i n g _ 2 >d i f i e r e no' f a l s e ' .P r u e b ap o rd e f e c t o f u n c i np a r al ac o i n c i d e n c i ae s' s e c u e l a ' .S i` s m i s m a t c h' d e b ei g n o r a r c a s o ,u t i l i c e` s e q u a l i g n o r e "c o m op r u e b a . ( %I 1 )s m i s m a t c h( " s i e t e " ," s p t i m o " ) ; ( %O 1 )6
F u n c i n :d i v i s i n( < c a d e n a > ) F u n c i n :d i v i s i n( < c a d e n a > ,< d e l i m > ) F u n c i n :d i v i s i n( < c a d e n a > ,< d e l i m > ,< m u l t i p l e > ) D e v u e l v el al i s t ad et o d o sl o st e s t i g o se n< c a d e n a > .C a d as m b o l oe su n s i na n a l i z a rc a d e n a .' S p l i t '< d e l i m >u t i l i z ac o m od e l i m i t a d o r .S i< d e l i m > n oe sd a d a ,e lc a r c t e rd ee s p a c i oe se ld e l i m i t a d o rp r e d e t e r m i n a d o . < m u l t i p l e >e su n av a r i a b l eb o o l e a n ac o n` t r u e' p o rd e f e c t o .M l t i p l e d e l i m i t a d o r e ss el e e nc o m ou n as o l a .E s t oe s t i ls il a sp e s t a a ss eg u a r d a nc o m o m l t i p l e se s p a c i o s .S i< m u l t i p l e >s ee s t a b l e c ee n' f a l s e ' ,c a d a S eo b s e r v ad e l i m i t a d o r . ( %I 1 )s p l i t( " 1 , 22 , 33 , 44 , 5 " ) ; ( %O 1 )[ 1 . 2 ,2 . 3 ,3 . 4 ,4 . 5 ] ( %I 2 )s p l i t( " p r i m e r o ,e nt e r c e rl u g a r ,e nc u a r t ol u g a r " ," , " ,f a l s e ) ; ( %O 2 )[ p r i m e r o ,t e r c e r o ,c u a r t o ]
F u n c i n :s p o s i t i o n( < c h a r > ,< c a d e n a > ) D e v u e l v el ap o s i c i nd e lp r i m e rc a r c t e rq u e< c a d e n a > c o i n c i d e< c h a r > .E lp r i m e rc a r c t e r< c a d e n a >e s t e nl ap o s i c i n1 . P o rc o i n c i d e n c i ac a r a c t e r e si g n o r a n d oc a s ov e r` s s e a r c h' .
F u n c i n :s r e m o v e( < s e q > ,< c a d e n a > ) F u n c i n :s r e m o v e( < s e q > ,< c a d e n a > ,< t e s t > ) F u n c i n :s r e m o v e( < s e q > ,< c a d e n a > ,< t e s t > , ) F u n c i n :s r e m o v e( < s e q > ,< c a d e n a > ,< t e s t > , ,< e n d > ) D e v u e l v eu n ac a d e n ac o m o< c a d e n a >p e r os i nt o d a sl a ss u b c a d e n a sc o i n c i d e n t e s < s e q > .F u n c i nd ec o m p a r a c i np o rd e f e c t oe s' s e c u e l a ' .S i ` S r e m o v e' d e b ei g n o r a re lc a s od u r a n t el ab s q u e d ad e< s e q > ,u t i l i c e ` S e q u a l i g n o r e "c o m op r u e b a .U t i l i c ey< e n d >p a r al i m i t a rl ab s q u e d a . T e n g ae nc u e n t aq u ee lp r i m e rc a r c t e rd e< c a d e n a >e s t e nl ap o s i c i n1 . ( %I 1 )s r e m o v e( " n ' t " ," N om eg u s t ae lc a f . " ) ; ( %O 1 )M eg u s t ae lc a f . ( %I 2 )s r e m o v e( " D O " , % ,' s e q u a l i g n o r e ) ; ( %O 2 )M eg u s t ae lc a f .
F u n c i n :s r e m o v e f i r s t( < s e q > ,< c a d e n a > ) F u n c i n :s r e m o v e f i r s t( < s e q > ,< c a d e n a > ,< t e s t > ) F u n c i n :s r e m o v e f i r s t( < s e q > ,< c a d e n a > ,< t e s t > , ) F u n c i n :s r e m o v e f i r s t( < s e q > ,< c a d e n a > ,< t e s t > , ,< e n d > ) A li g u a lq u e` s r e m o v e' e x c e p t oq u es l ol ap r i m e r as u b c a d e n aq u ec o i n c i d e S ee l i m i n a` s s' .
F u n c i n :s r e v e r s e( < c a d e n a > ) D e v u e l v eu n ac a d e n ac o nt o d o sl o sc a r a c t e r e sd e< c a d e n a >e nr e v e r s a o r d e n .
F u n c i n :s s e a r c h( < s e q > ,< c a d e n a > ) F u n c i n :s s e a r c h( < s e q > ,< c a d e n a > ,< t e s t > ) F u n c i n :s s e a r c h( < s e q > ,< c a d e n a > ,< t e s t > , ) F u n c i n :s s e a r c h( < s e q > ,< c a d e n a > ,< t e s t > , ,< e n d > ) D e v u e l v el ap o s i c i nd el ap r i m e r as u b c a d e n ad e< c a d e n a >q u e
563/633
28/08/13

c o i n c i d ec o ne l< s e q >c a d e n a .F u n c i nd ec o m p a r a c i np o rd e f e c t oe s ' S e c u e l a ' .S i` s s e a r c h' d e b ei g n o r a rc a s o ,u t i l i c e `s e q u a l i g n o r e" c o m o p r u e b a .U t i l i c ey< e n d >p a r al i m i t a rl ab s q u e d a .T e n g ae nc u e n t aq u ee l p r i m e rc a r c t e r< c a d e n a >e s t e nl ap o s i c i n1 . ( %I 1 )s s e a r c h( " ~s " ," ~{ ~S~ }~ % " ," s e q u a l i g n o r e ) ; ( %O 1 )4
F u n c i n :s s o r t( < c a d e n a > ) F u n c i n :s s o r t( < c a d e n a > ,< t e s t > ) D e v u e l v eu n ac a d e n aq u ec o n t i e n et o d o sl o sc a r a c t e r e sd e< c a d e n a >e nu n o r d e n a rt a l e sc o s a sn oh a yd o sc a r a c t e r e ss u c e s i v o s< c >y< d >t a l e s q u e` t e s t( < c > ,< d > )' e s 'f a l s e' y `t e s t( < d > ,< c > ) 'e s` t r u e' . F u n c i nd ep r u e b ap r e d e t e r m i n a d op a r al ac l a s i f i c a c i ne s< c l e s s p > .E lc o n j u n t od ep r u e b a f u n c i o n e se s` { c l e s s p ,c l e s s p i g n o r e ,c g r e a t e r p ,c g r e a t e r p i g n o r e , C E q u a l ,c e q u a l i g n o r e }' . ( %I 1 )s s o r t( " N om eg u s t a nl o sl u n e s . " ) ; ( %O 1 ) .I M a d d e i k l n n o o s t y ( %I 2 )s s o r t( " N om eg u s t a nl o sl u n e s . " ," C g r e a t e r p i g n o r e ) ; ( %O 2 )y t s o o n n M l k I i e d d a .
F u n c i n :s s u b s t( < n u e v o > ,< V i e j o > ,< c a d e n a > ) F u n c i n :s s u b s t( < n u e v o > ,< V i e j o > ,< c a d e n a > ,< t e s t > ) F u n c i n :s s u b s t( < n u e v o > ,< V i e j o > ,< c a d e n a > ,< t e s t > , ) F u n c i n :s s u b s t( < n u e v o > ,< V i e j o > ,< c a d e n a > ,< t e s t > , ,< e n d > ) D e v u e l v eu n ac a d e n ac o m o< c a d e n a >e x c e p t oq u et o d a sl a ss u b c a d e n a sc o i n c i d e n t e s < V i e j o >s es u s t i t u y e np o r< n u e v o > .< V i e j o >y< n u e v o >n e c e s i d a dd en os e rd e l am i s m al o n g i t u d .F u n c i nd ec o m p a r a c i np o rd e f e c t oe s' s e c u e l a ' . S i` s s u b s t' d e b ei g n o r a re lc a s od u r a n t el ab s q u e d ad ee d a d ,u s e ` S e q u a l i g n o r e "c o m op r u e b a .U t i l i c ey< e n d >p a r al i m i t a rl ab s q u e d a . T e n g ae nc u e n t aq u ee lp r i m e rc a r c t e rd e< c a d e n a >e s t e nl ap o s i c i n1 . ( %I 1 )s s u b s t( " c o m o " ," o d i o " ," N om eg u s t al ac o m i d at a i l a n d e s aO d i oe lt v e r d e . . " ) ; ( %O 1 )M eg u s t al ac o m i d at a i l a n d e s a .M eg u s t ae lt v e r d e . ( %I 2 )s s u b s t( " i n d i o " ," t h a i " , % ,' s e q u a l i g n o r e ,8 , 1 2 ) ; ( %O 2 )M eg u s t al ac o m i d ai n d i a .M eg u s t ae lt v e r d e .
F u n c i n :s s u b s t f i r s t( < n u e v o > ,< V i e j o > ,< c a d e n a > ) F u n c i n :s s u b s t f i r s t( < n u e v o > ,< V i e j o > ,< c a d e n a > ,< t e s t > ) F u n c i n :s s u b s t f i r s t( < n u e v o > ,< V i e j o > ,< c a d e n a > ,< t e s t > , ) F u n c i n :s s u b s t f i r s t( < n u e v o > ,< V i e j o > ,< c a d e n a > ,< t e s t > , ,< e n d > ) A li g u a lq u e` s u b s t' e x c e p t oq u es l ol ap r i m e r as u b c a d e n aq u ec o i n c i d e < V i e j o >s es u s t i t u y e .
F u n c i n :S t r i m( < s e q > ,< c a d e n a > ) D e v u e l v eu n ac a d e n ac o m o< c a d e n a > ,p e r oc o nt o d o sl o sp e r s o n a j e sq u e a p a r e c e r e n< s e q >e l i m i n a d od e s d ea m b o se x t r e m o s . ( %I 1 )" /*c o m e n t a r i o*/ "$ ( %I 2 )S t r i m( " /* " , % ) ; ( %O 2 )c o m e n t a r i o ( %I 3 )s l e n g t h( % ) ; ( %O 3 )7
F u n c i n :s t r i m l( < s e q > ,< c a d e n a > ) A li g u a lq u e` S t r i m' e x c e p t oq u es l oe le x t r e m oi z q u i e r d od e< c a d e n a >s er e c o r t a .
F u n c i n :s t r i m r( < s e q > ,< c a d e n a > ) A li g u a lq u e` S t r i m' e x c e p t oq u es l oe le x t r e m od e r e c h od el ac u e r d as er e c o r t a .
F u n c i n :s u b c a d e n a( < c a d e n a > , ) F u n c i n :s u b c a d e n a( < c a d e n a > , ,< e n d > ) D e v u e l v el as u b c a d e n ad e< c a d e n a >c o m e n z a n d oe nl ap o s i c i n yt e r m i n ae nl ap o s i c i n< e n d > .E lc a r c t e re nl ap o s i c i n< e n d >e s n oi n c l u i d o .S in os ed a< e n d > ,l as u b s e r i ec o n t i e n el a r e s t od el ac a d e n a .T e n g ae nc u e n t aq u ee lp r i m e rc a r c t e rd e< c a d e n a >e s e nl ap o s i c i n1 . ( %I 1 )s u b s t r i n g( " s u b c a d e n a " ,4 ) ; ( %O 1 )s t r i n g ( %I 2 )s u b s t r i n g( % ,4 , 6 ) ; ( %O 2 )e n
564/633
28/08/13
F u n c i n :s u p c a s e( < c a d e n a > ) F u n c i n :s u p c a s e( < c a d e n a > , ) F u n c i n :s u p c a s e( < c a d e n a > , ,< e n d > ) D e v o l u c i o n e s< c a d e n a >e x c e p t oq u el o sc a r a c t e r e se nm i n s c u l ad el ap o s i c i n a< e n d >s es u s t i t u y e np o rl o sc o r r e s p o n d i e n t e sm a y s c u l a s . S in os ed a< e n d > ,t o d o sl o sc a r a c t e r e se nm i n s c u l a sd ea A lf i n a ld e< c a d e n a >s es u s t i t u y e n . ( %I 1 )s u p c a s e( " I n g l s " ,1 , 2 ) ; ( %O 1 )I n g l s
F u n c i n :t o k e n s( < c a d e n a > ) F u n c i n :t o k e n s( < c a d e n a > ,< t e s t > ) D e v u e l v eu n al i s t ad et o k e n s ,q u es eh a ne x t r a d od e< c a d e n a > . L o st o k e n ss o ns u b c a d e n a sc u y o sp e r s o n a j e ss a t i s f a c e ru n ac i e r t ap r u e b a f u n c i n .S in os ed al ap r u e b a ,s eu t i l i z a< c o n s t i t u e n t >c o m o p r u e b ad ef o r m ap r e d e t e r m i n a d a .` { C o n s t i t u y e n t e ,a l p h a c h a r p ,d i g i t c h a r p ,l o w e r c a s e p , u p p e r c a s e p ,c h a r p ,c h a r a c t e r p ,a l p h a n u m e r i c p }' e se lc o n j u n t od ep r u e b a f u n c i o n e s .( E lL i s p v e r s i nd e` t o k e n s' e s t e s c r i t op o rP a u l G r a h a m .A N S IC o m m o nL i s p ,1 9 9 6 ,p g i n a6 7 . ) ( %I 1 )f i c h a s( " 2 4d eo c t u b r e2 0 0 5 " ) ; ( %O 1 )[ 2 4 ,o c t u b r ed e2 0 0 5 ] ( %I 2 )f i c h a s( " 1 0 / 0 5 / 2 4 " ," d i g i t c h a r p ) ; ( %O 2 )[ 0 5 ,1 0 ,2 4 ] ( %I 3 )m a p a( p a r s e _ s t r i n g , % ) ; ( %O 3 )[ 5 ,1 0 ,2 4 ]
79 to_poly_solve
F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e
79.1 Funciones y variables para to_poly_solve

L o sp a q u e t e s` T o p o l y' y `t o _ p o l y _ s o l v e 's o ne x p e r i m e n t a l e s ,l a e s p e c i f i c a c i o n e sd el a sf u n c i o n e sd ee s t o sp a q u e t e sp u e d e nc a m b i a rol a a l g u n a sd el a sf u n c i o n e sd ee s t o sp a q u e t e sp u e d e ns e ru n i d o sao t r o s F u n c i o n e sd eM a x i m a . B a r t o nW i l l i s( P r o f e s o rd eM a t e m t i c a sd el aU n i v e r s i d a dd eN e b r a s k ae n K e a r n e y )e s c r i b i l o sp a q u e t e s` T o p o l y' y `t o _ p o l y _ s o l v e 'yl o s I n g l sd o c u m e n t a c i nd eu s u a r i od el al e n g u ap a r ae s t o sp a q u e t e s .
O p e r a d o r :%y E lo p e r a d o r` %y' e su n as i m p l i f i c a c i nd ec i r c u i t ol g i c on o n s h o r t c o n j u n c i n .M a x i m as i m p l i f i c au n` %y' e x p r e s i nd ey as e a t r u e ,f a l s e ,ol g i c a m e n t ee q u i v a l e n t e s ,p e r os i m p l i f i c a d a , e x p r e s i n .E lo p e r a d o r` %y "e sa s o c i a t i v a ,c o n m u t a t i v ay i d e m p o t e n t e .A s ,c u a n d o` %y' d e v u e l v eu n af o r m an o m i n a l ,l o sa r g u m e n t o s d e` %y' f o r m a ru n al i s t ao r d e n a d an or e d u n d a n t e ,p o re j e m p l o ( %I 1 )yu n %( u n %yb ) ; ( %O 1 )a %b S iu na r g u m e n t oau n ac o n j u n c i ne sl ae x p l c i t an e g a c i nd e o t r oa r g u m e n t o ,` %y' d e v u e l v ef a l s o : ( %I 2 )yu n %( n ou n a ) ; ( %O 2 )f a l s e S ia l g nm i e m b r od el ac o n j u n c i ne sf a l s a ,l ac o n j u n c i n s i m p l i f i c ae nf a l s ei n c l u s os io t r o sm i e m b r o ss o nm a n i f i e s t a m e n t e n ob o o l e a n a ,p o re j e m p l o ( %I 3 )4 2 %yf a l s o ; ( %O 3 )f a l s e C u a l q u i e ra r g u m e n t od e %y' e x p r e s i n 'e su n ai n e c u a c i n( q u e E sd e c i r ,l ad e s i g u a l d a dol ae c u a c i n ) ,s es i m p l i f i c ae lu s od el at r a n s f o r m a d ad eF o u r i e r p a q u e t ed ee l i m i n a c i n .L ae l i m i n a c i ns i m p l i f i c a d o rd eF o u r i e rt i e n eu n p r e p r o c e s a d o rq u ec o n v i e r t ea l g u n o s ,p e r on ot o d o s ,n ol i n e a l i n e c u a c i o n e se ni n e c u a c i o n e sl i n e a l e s ,p o re j e m p l o ,e ld eF o u r i e r c d i g od ee l i m i n a c i ns i m p l i f i c a` a b s( x )+1 >0 "al av e r d a d e r a ,p o rl o ( %I 4 )( x< 1 ) %y( a b s( x )+1 >0 ) ; ( %O 4 )x< 1 N o t a s *L av a r i a b l eL ao p c i n` p r e d e r r o r' n oa l t e r ae l s i m p l i f i c a c i n` %y "e x p r e s i o n e s .
565/633
28/08/13

*P a r ae v i t a re r r o r e sd ep r e c e d e n c i ad el o so p e r a d o r e s ,e x p r e s i o n e sc o m p u e s t a s q u ei n c l u y el o so p e r a d o r e s` %y %o' ,y 'n o' d e b es e r c o m p l e t a m e n t ee n t r ep a r n t e s i s . *L o so p e r a d o r e sd eM a x i m a` e' y 'o' s o nt a n t od ec o r t o c i r c u i t o . A s ,` y' n oe sa s o c i a t i v aoc o n m u t a t i v a .
O p e r a d o r :%s i( ,< a > ) S i" E lo p e r a d o r ` %e su nc o n d i c i o n a ls i m p l i f i c a c i n .E lc o n d i c i o n a l d e b es e rb o o l e a n a .C u a n d ol ac o n d i c i ne sv e r d a d e r a , d e v o l v e re ls e g u n d oa r g u m e n t o ,c u a n d ol ac o n d i c i ne sf a l s a ,v o l v e r e lt e r c e r o ,e nl o sd e m sc a s o s ,d e v u e l v eu n af o r m an o m i n a l . I n e c u a c i o n e sM a x i m a( y as e au n ad e s i g u a l d a dou n ai g u a l d a d )n os o n b o o l e a n a ,p o re j e m p l o ,M a x i m an os i m p l i f i c a5< 6 c i e r t o ,yn os i m p l i f i c a r5=6e nf a l s o ,s i ne m b a r g o ,e ne l c o n t e x t od eu nc o n d i c i o n a lau n` %i f' ,M a x i m a i n t e n t ad e t e r m i n a ra u t o m t i c a m e n t ee lv a l o rd ev e r d a dd eu n a i n e c u a c i n .E j e m p l o s : ( %I 1 )f : %s i( x#1 ,2 ,8 ) ; ( %O 1 ) %s i( x-1#0 ,2 ,8 ) ( %I 2 )[ s u b s t( x=1 ,f ) ,s u b s t( x=1 ,f ) ] ; ( %O 2 )[ 2 ,8 ] S il ac o n d i c i ni m p l i c au n ai n e c u a c i n ,M a x i m as i m p l i f i c a u t i l i z a n d oe lp a q u e t ed ee l i m i n a c i nd eF o u r i e r . N o t a s *S il ac o n d i c i ne sm a n i f i e s t a m e n t en ob o o l e a n a ,M a x i m ad e v u e l v e u n af o r m an o m i n a l : ( %I 3 ) %s i( 4 2 , 1 , 2 ) ; ( %O 3 ) %s i( 4 2 ,1 ,2 ) *E lo p e r a d o rd eM a x i m a` i f' e sn a r i o ,e lo p e r a d o r ` %s i 'n oe s n a r i o . L i m i t a c i o n e sE lc d i g od ee l i m i n a c i nd eF o u r i e rs l os i m p l i f i c an ol i n e a l i n e c u a c i o n e sq u es o nf c i l m e n t ec o n v e r t i b l e sau n al i n e a le q u i v a l e n t e i n e c u a c i n . M o d od ee m p l e o :l o a d( t o _ p o l y _ s o l v e r )' E s t a d o :E lo p e r a d o r` %s i' e se x p e r i m e n t a l ,s u se s p e c i f i c a c i o n e s p u e d ec a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d ac o no t r a F u n c i o n e sd eM a x i m a .
O p e r a d o r :%o E lo p e r a d o r` %o' e su n as i m p l i f i c a c i nd ec i r c u i t ol g i c on o n s h o r t d i s y u n c i n .M a x i m as i m p l i f i c au n` %o' e x p r e s i nd ey as e a t r u e ,f a l s e ,ol g i c a m e n t ee q u i v a l e n t e s ,p e r os i m p l i f i c a d a , e x p r e s i n .E lo p e r a d o r' %u 'e sa s o c i a t i v a ,c o n m u t a t i v ay i d e m p o t e n t e .A s ,c u a n d o` %o' d e v u e l v eu n af o r m an o m i n a l ,l o sa r g u m e n t o sd e ` %O "f o r m a ru n al i s t ao r d e n a d an or e d u n d a n t e ,p o re j e m p l o ( %I 1 )ou n %( u n %ob ) ; ( %O 1 )u n %ob S iu nm i e m b r od el ad i s y u n c i ne sl ae x p l c i t al an e g a c i nd e o t r om i e m b r o ,o` %' d e v u e l v ev e r d a d e r o : ( %I 2 )ou n %( n ou n a ) ; ( %O 2 )t r u e S ia l g nm i e m b r od el ad i s y u n c i ne sv e r d a d e r a ,l ad i s y u n c i n s i m p l i f i c aac i e r t oi n c l u s os io t r o sm i e m b r o sd el ad i s y u n c i ns o n m a n i f i e s t a m e n t en ob o o l e a n a ,p o re j e m p l o ( %I 3 )4 2 %ov e r d a d e r o ; ( %O 3 )t r u e C u a l q u i e ra r g u m e n t od e %o' e x p r e s i n 'e su n ai n e c u a c i n( q u e E sd e c i r ,l ad e s i g u a l d a dol ae c u a c i n ) ,s es i m p l i f i c ae lu s od el at r a n s f o r m a d ad eF o u r i e r p a q u e t ed ee l i m i n a c i n .E lc d i g od ee l i m i n a c i nd eF o u r i e rs i m p l i f i c a ` A b s( x )+1 >0 "al av e r d a d e r a ,a s q u et e n e m o s ( %I 4 )( x< 1 )o %( a b s( x )+1 >0 ) ; ( %O 4 )t r u e N o t a s *L av a r i a b l eL ao p c i n` p r e d e r r o r' n oa l t e r ae l s i m p l i f i c a c i nd e` %o "e x p r e s i o n e s . *U s t e dd e b ep o n e re n t r ep a r n t e s i se x p r e s i o n e sc o m p u e s t a sq u ei m p l i c a nl a ` o p e r a d o r e s %y , % ,o' y 'n o' ,l a sf u e r z a sd ee n l a c ed ee s t a s l o so p e r a d o r e sp o d r a nn oc o i n c i d i rc o ns u se x p e c t a t i v a s .
566/633
28/08/13

*L o so p e r a d o r e sd eM a x i m a` e' y 'o' s o nt a n t od ec o r t o c i r c u i t o . A s ` o' n oe sa s o c i a t i v aoc o n m u t a t i v a .
F u n c i n :c o m p l e x _ n u m b e r _ p( < x > ) E lp r e d i c a d o` c o m p l e x _ n u m b e r _ p' d e v u e l v et r u es is ua r g u m e n t oe s y as e a` a+ %i*b' , 'a' , 'b %i' ,o ` %i ' ,d o n d e` a' y 'b' s o n n m e r o sd ep u n t oy as e ar a c i o n a lov a r i a b l e( i n c l u y e n d og r a nf l o t a n t e p u n t o ) ,p a r al a sd e m se n t r a d a s ,` c o m p l e x _ n u m b e r _ p' d e v u e l v ef a l s e ; p o re j e m p l o ( %I 1 )M a p a( ' c o m p l e x _ n u m b e r _ p ,[ 2 / 3 ,2+1 , 5* %i , %i ] ) ; ( %O 1 )[ t r u e ,t r u e ,t r u e ] ( %I 2 )c o m p l e x _ n u m b e r _ p( ( 2 %+i )/( 5%i ) ) ; ( %O 2 )f a l s e ( %I 3 )c o m p l e x _ n u m b e r _ p( c o s( 5-2* %i ) ) ; ( %O 3 )f a l s e F u n c i o n e sr e l a c i o n a d a s` i s r e a l _ p' P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e r )' S t a t u sE lo p e r a d o r` c o m p l e x _ n u m b e r _ p "e se x p e r i m e n t a l ,ys u e s p e c i f i c a c i o n e sp o d r a nc a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d o e no t r a sf u n c i o n e sd eM a x i m a .
F u n c i n :c o m p o s e _ f u n c t i o n s( < l > ) L al l a m a d aal af u n c i n` c o m p o s e _ f u n c t i o n s( l )' d e v u e l v eu n af o r m al a m b d a q u ee sl ac o m p o s i c i nd el a sf u n c i o n e sd el al i s t a< l > .L a f u n c i o n e ss ea p l i c a nd ed e r e c h aai z q u i e r d a ,p o re j e m p l o ( %I 1 )c o m p o s e _ f u n c t i o n s( [ c o s ,e x p ] ) ; %G 1 5 1 ( %O 1 )l a m b d a( [ %G 1 5 1 ] ,c o s( %e ) ) ( %I 2 ) %( x ) ; x ( %O 2 )c o s( %e ) C u a n d ol al i s t ad ef u n c i o n e se s t v a c o ,d e v o l v e rl af u n c i ni d e n t i d a d : ( %I 3 )c o m p o s e _ f u n c t i o n s( [ ] ) ; ( %O 3 )l a m b d a( [ %G 1 5 2 ] , %G 1 5 2 ) ( %I 4 ) %( x ) ; ( %O 4 )x N o t a s *C u a n d oM a x i m ad e t e r m i n aq u eu nm i e m b r od el al i s t an oe su ns m b o l oou n a f o r m al a m b d a ,` f u n m a k e' ( n o `c o m p o s e _ f u n c t i o n s ' )s e a l au n a e r r o r : ( %I 5 )c o m p o s e _ f u n c t i o n s( [ a< b ] ) ; f u n m a k e :p r i m e ra r g u m e n t od e b es e ru ns m b o l o ,s m b o l os u b n d i c e , c a d e n aou n ae x p r e s i nl a m b d a ,e n c o n t r a d o :a< b #0 :c o m p o s e _ f u n c t i o n s( l=[ a< b ] )( l n e at o _ p o l y _ s o l v e r . m a c4 0 ) -U ne r r o r .P a r ad e p u r a re s t ei n t e n t o :d e b u g m o d e( t r u e ) ; *P a r ae v i t a rc o n f l i c t o sd en o m b r e s ,l av a r i a b l ei n d e p e n d i e n t ee s d e t e r m i n a d ap o rl af u n c i n` n e w _ v a r i a b l e' . ( %I 6 )c o m p o s e _ f u n c t i o n s( [ g 0 % ] ) ; ( %O 6 )l a m b d a( [ %G 1 5 4 ] , %g 0( %G 1 5 4 ) ) ( %I 7 )c o m p o s e _ f u n c t i o n s( [ %g 0 ] ) ; ( %O 7 )l a m b d a( [ %G 1 5 5 ] , %g 0( %G 1 5 5 ) ) A u n q u el a sv a r i a b l e si n d e p e n d i e n t e ss o nd i f e r e n t e s ,e sM a x i m a c a p a zd ed e d u c i rq u ee s t a sf o r m a sl a m b d as o ns e m n t i c a m e n t e i g u a l : ( %I 8 )i s( e q u a l( %o 6 , %o 7 ) ) ; ( %O 8 )t r u e P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e r )' E s t a d oL af u n c i n` c o m p o s e _ f u n c t i o n s "e se x p e r i m e n t a l ,ys u e s p e c i f i c a c i o n e sp o d r a nc a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d o e no t r a sf u n c i o n e sd eM a x i m a . F u n c i n :d f l o a t( < x > ) L af u n c i n` d f l o a t' e su n as i m i l a ra 'f l o t e' ,p e r ol af u n c i n ` D f l o a t' a p l i c a 'r e c t f o r m' c u a n d o 'f l o a t' n oe v a l aau n N m e r od ep u n t of l o t a n t eI E E Ed o b l e ,p o rl oq u e ( %I 1 )f l o a t( 4 . 5^( 1+ %i ) ) ; %I+1 ( %O 1 )4 , 5 ( %I 2 )d f l o a t( 4 , 5^( 1+ %i ) ) ; ( %O 2 )4 . 4 8 9 9 8 8 0 2 9 6 2 8 8 4 %i+0 . 3 0 0 0 1 2 4 8 9 3 8 9 5 6 7 1 N o t a s
567/633
28/08/13

*L af o r m ar e c t a n g u l a rd eu n ae x p r e s i np u e d es e rp o c oa d e c u a d o p a r al ae v a l u a c i nn u m r i c a ,p o re j e m p l o ,l af o r m ar e c t a n g u l a r p o d r ai n v o l u c r a ri n n e c e s a r i a m e n t eal ad i f e r e n c i ad ep u n t of l o t a n t e n m e r o s( c a n c e l a c i nd es u s t r a c c i n ) . *E l' f l o a t 'i d e n t i f i c a d o re sal av e zu n av a r i a b l eo p c i n( p o rd e f e c t o v a l o rf a l s o )yu nn o m b r ed ef u n c i n .
F u n c i n :e l i m( < l > ,< x > ) L af u n c i n` e l i m' e l i m i n al a sv a r i a b l e sd e lc o n j u n t ool i s t ad e ` X' d el a se c u a c i o n e sd e lc o n j u n t ool i s t ad e `l ' .C a d am i e m b r od e` x' d e b es e ru ns m b o l o ,l o sm i e m b r o sd e` l' p u e d e ns e rt a n t ol a se c u a c i o n e so e x p r e s i o n e sq u es es u p o n eq u es o ni g u a l e sac e r o . L af u n c i n` e l i m' d e v u e l v eu n al i s t ad ed o sl i s t a s ,l ap r i m e r ae sl a l i s t ad ee x p r e s i o n e sc o nl a sv a r i a b l e se l i m i n a d oyl as e g u n d ae s l al i s t ad el o sp i v o t e s ,p o rl oq u el as e g u n d al i s t ae su n al i s t ad ee x p r e s i o n e s q u e` e l i m' u t i l i z ap a r ae l i m i n a rl a sv a r i a b l e s . H ea q u u ne j e m p l od el ae l i m i n a c i ne n t r el a se c u a c i o n e sl i n e a l e s : ( %I 1 )E l i m( c o n j u n t o( x+y+z=1 ,x-y-z=8 ,x-z=1 ) , c o n j u n t o( x ,y ) ) ; ( %O 1 )[ [ 2z-7 ] ,[ y+7 ,z-x+1 ] ] L ae l i m i n a c i nd e' x 'y' y 's eo b t i e n el ae c u a c i n n i c a` z2-7=0' ; l a se c u a c i o n e s` y+7=0' y `z-z+1=1 'f u e r o nu t i l i z a d o sc o m op i v o t e s . L ae l i m i n a c i nd el a st r e sv a r i a b l e sap a r t i rd ee s t a se c u a c i o n e s , t r i a n g u l a r i z e se ls i s t e m al i n e a l : ( %I 2 )E l i m( c o n j u n t o( x+y+z=1 ,x-y-z=8 ,x-z=1 ) , c o n j u n t o( x ,y ,z ) ) ; ( %O 2 )[ [ ] ,[ 2z-7 ,y+7 ,z-x+1 ] ] P o rs u p u e s t o ,l a se c u a c i o n e sn on e c e s i t a ns e rl i n e a l e s : ( %I 3 )E l i m( c o n j u n t o( x^2-2*y^3=1 ,x-y=5 ) ,[ x ,y ] ) ; 32 ( %O 3 )[ [ ] ,[ 2y-y-y1 0-2 4 ,y-x+5 ] ] E lu s u a r i on oc o n t r o l ae lo r d e nd el a sv a r i a b l e ss ee l i m i n a n . E ns ul u g a r ,e la l g o r i t m ou t i l i z au n ah e u r s t i c ap a r ai n t e n t a re l e g i re l m e j o rp i v o t eye lm e j o rp a r al ae l i m i n a c i n . N o t a s *Ad i f e r e n c i ad el af u n c i nr e l a c i o n a d a` e l i m i n a r' ,l af u n c i n è l i m ' n ol l a m a r' r e s o l v e r 'c u a n d oe ln m e r od ee c u a c i o n e se si g u a l e ln m e r od ev a r i a b l e s . *L af u n c i n` e l i m "f u n c i o n am e d i a n t el aa p l i c a c i nr e s u l t a n t e s ,l ao p c i n v a r i a b l ed e t e r m i n a` r e s u l t a n t e s " ,q u ea l g o r i t m ou t i l i z aM a x i m a . U s od e` s q f r' ,M a x i m af a c t o r e sc a d ar e s u l t a n t e sys u p r i m e m l t i p l e sc e r o s . *E l` e l i m' s et r i a n g u l a r i z eu nc o n j u n t ol i n e a ld ep o l i n o m i o s e c u a c i o n e s ;e lc o n j u n t os o l u c i nd e lc o n j u n t op u e d e ns e rt r i a n g u l a r i z a n m a y o rq u ee lc o n j u n t od es o l u c i o n e sd e lc o n j u n t ou n t r i a n g u l a r i z e d . P o rl ot a n t o ,l a se c u a c i o n e st r i a n g u l a r i z a np u e d e nt e n e re s p u r i a s o l u c i o n e s . F u n c i o n e sr e l a c i o n a d a se l i m _ a l l b u t ,e l i m i n a t e _ u s i n g ,e l i m i n a r V a r i a b l e sO p c i nr e s u l t a n t e s P a r au t i l i z a rl o a d( t o _ p o l y )' E s t a d oL af u n c i n` e l i m' e se x p e r i m e n t a l ,s u se s p e c i f i c a c i o n e s p u e d ec a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d ac o no t r a F u n c i o n e sd eM a x i m a .
F u n c i n :e l i m _ a l l b u t( < l > ,< x > ) E s t af u n c i ne ss i m i l a ra` e l i m' ,e x c e p t oq u ee l i m i n at o d o sl o s l a sv a r i a b l e se nl al i s t ad ee c u a c i o n e s` l' ae x c e p c i nd el o s v a r i a b l e sq u ee nl al i s t a` x' ( %I 1 )e l i m _ a l l b u t( [ x+y=1 ,x-5*y=1 ] ,[ ] ) ; ( %O 1 )[ [ ] ,[ y ,y+x-1 ] ] ( %I 2 )e l i m _ a l l b u t( [ x+y=1 ,x-5*y=1 ] ,[ x ] ) ; ( %O 2 )[ [ x-1 ] ,[ y+x-1 ] ] P a r au t i l i z a rl o a d( t o _ p o l y )' V a r i a b l e sO p c i nr e s u l t a n t e s F u n c i o n e sr e l a c i o n a d a se l i m ,e l i m i n a t e _ u s i n g ,e l i m i n a r E s t a d oL af u n c i n` e l i m _ a l l b u t "e se x p e r i m e n t a l ,ys u e s p e c i f i c a c i o n e sp o d r a nc a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d o
568/633
28/08/13
e no t r a sf u n c i o n e sd eM a x i m a .
F u n c i n :e l i m i n a t e _ u s i n g( < l > ,< e > ,< x > ) U s od e` e' c o m oe j e ,e l i m i n a re ls m b o l o 'x' d el al i s t ao c o n j u n t od ee c u a c i o n e se n` l' .L af u n c i n` e l i m i n a t e _ u s i n g' d e v u e l v eu n e s t a b l e c i d o . ( %I 1 )e q :[ x^2-y^2-z^3 ,x*y-z^2-5 ,x-y+z ] ; 3222 ( %O 1 )[ -z-y+x ,-z+x y-5 ,z-y+x ] ( %I 2 )e l i m i n a t e _ u s i n g( e q ,p r i m e r o( e q ) ,z ) ; 32232 ( %O 2 ){ y+( 1-3x )y+3x y-x-x , 433224 y-x yx y+1 3-7 5+x yx+1 2 5 } ( %I 3 )e l i m i n a t e _ u s i n g( e q ,s e g u n d o( e q ) ,z ) ; 22433224 ( %O 3 ){ y-3x y+x+5 ,y-x y+1 3x y-7 5x yx+ +1 2 5 } ( %I 4 )e l i m i n a t e _ u s i n g( e q ,t e r c e r o( e q ) ,z ) ; 2232232 ( %O 4 ){ y-3x y+x+5 ,y+( 1-3x )y+3x y-x-x } V a r i a b l e sO p c i nr e s u l t a n t e s F u n c i o n e sr e l a c i o n a d a se l i m ,e l i m i n a r ,e l i m _ a l l b u t P a r au t i l i z a rl o a d( T o p o l y )' E s t a d oL af u n c i n` e l i m i n a t e _ u s i n g "e se x p e r i m e n t a l ,ys u e s p e c i f i c a c i o n e sp o d r a nc a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d o e no t r a sf u n c i o n e sd eM a x i m a .
F u n c i n :f o u r i e r _ e l i m( [ < e q 1 > ,< e q 2 > ,. . . ] ,[ < v a r 1 > ,< v a r > ,. . . ] ) F o u r i e re l i m i n a c i ne se la n l o g od el ae l i m i n a c i nd eG a u s sp a r as i s t e m a s i n e c u a c i o n e s( e c u a c i o n e sod e s i g u a l d a d e s ) .L al l a m a d ad ef u n c i n ` F o u r i e r _ e l i m( [ e q 1 ,e q 2 ,. . . ] ,[ v a r 1 ,v a r 2 ,. . . ]' h a c eF o u r i e r e l i m i n a c i nd eu n al i s t ad ei n e c u a c i o n e sl i n e a l e s` [ e q 1 ,e q 2 ,. . . ] c o n c o nr e s p e c t oal a sv a r i a b l e s` [ v a r 1 ,v a r 2 ,. . . ]' ,p o re j e m p l o ( %I 1 )f o u r i e r _ e l i m( [ y x< 5 ,x-y< 7 ,1 0< y ] ,[ x ,y ] ) ; ( %O 1 )[ y-5< x ,x< y+7 ,1 0< y ] ( %I 2 )f o u r i e r _ e l i m( [ y x< 5 ,x-y< 7 ,1 0< y ] ,[ y ,x ] ) ; ( %O 2 )[ m a x( 1 0 ,x-7 )< y ,y< x+5 ,5< x ] L ae l i m i n a c i nd ep r i m e r ac o nr e s p e c t oaxys e g u n d oc o nr e s p e c t oay r e n d i m i e n t o sl m i t e si n f e r i o rys u p e r i o rd exq u ed e p e n d e nd ey ,ym e n o r e s yl m i t e ss u p e r i o r e sp a r ayq u es o nn m e r o s .L ae l i m i n a c i ne nl ao t r a f i nd al m i t e si n f e r i o rys u p e r i o rd e p e n d i e n t e sd exp o ry ,y l m i t e si n f e r i o rys u p e r i o rn u m r i c o sd ex . C u a n d os e an e c e s a r i o ,` f o u r i e r _ e l i m' d e v u e l v eu n_ d i s j u n c t i o n _d el a sl i s t a sd e i n e c u a c i o n e s : ( %I 3 )f o u r i e r _ e l i m( [ x#6 ] ,[ x ] ) ; ( %O 3 )[ x< 6 ]o[ 6< x ] C u a n d oe lc o n j u n t os o l u c i ne sv a c a ,` f o u r i e r _ e l i m' d e v u e l v e è m p t y s e t ' , yc u a n d oe lc o n j u n t od es o l u c i o n e se st o d or e a l e s ,d e v o l u c i o n e s` f o u r i e r _ e l i m' ` U n i v e r s a l s e t' ,p o re j e m p l o ( %I 4 )f o u r i e r _ e l i m( [ x< 1 ,x >1 ] ,[ x ] ) ; ( %O 4 )e m p t y s e t ( %I 5 )f o u r i e r _ e l i m( [ m i n f< x ,x< i n f ] ,[ x ] ) ; ( %O 5 )u n i v e r s a l s e t P a r ai n e c u a c i o n e sn ol i n e a l e s ,` f o u r i e r _ e l i m' d e v u e l v eu n a( u np o c o ) l i s t as i m p l i f i c a d ad ei n e c u a c i o n e s : ( %I 6 )f o u r i e r _ e l i m( [ x^3-1 >0 ] ,[ x ] ) ; 22 ( %O 6 )[ 1< x ,x+x+1 >0 ]o[ x< 1 ,-( x+x+1 ) >0 ] ( %I 7 )f o u r i e r _ e l i m( [ c o s( x )< 1 / 2 ] ,[ x ] ) ; ( %O 7 )[ 1-2c o s( x ) >0 ] E nl u g a rd eu n al i s t ad ei n e c u a c i o n e s ,e lp r i m e ra r g u m e n t o ` F o u r i e r _ e l i m' p u e d es e ru n ad i s y u n c i nl g i c aoc o n j u n t a m e n t e : ( %I 8 )f o u r i e r _ e l i m( ( x+y< 5 )y( x-y >8 ) ,[ x ,y ] ) ; 3 ( %O 8 )[ y+8< x ,x< 5-y ,y< ] 2 ( %I 9 )f o u r i e r _ e l i m( ( ( x+y< 5 )yx< 1 )o( x-y >8 ) ,[ x ,y ] ) ; ( %O 9 )[ y+8< x ]o[ x< m i n( 1 ,5-y ) ] L af u n c i n` f o u r i e r _ e l i m' s o p o r t al o so p e r a d o r e si n e c u a c i n '< , < = , > , >= ,#' ,Y '=' . E lc d i g od ee l i m i n a c i nd eF o u r i e rt i e n eu np r e p r o c e s a d o rq u ec o n v i e r t ea l g u n o s i n e c u a c i o n e sn ol i n e a l e sq u ei m p l i c a ne lv a l o ra b s o l u t o ,m n i m o ,y
569/633
28/08/13

m x i m a sf u n c i o n e se nl i n e a l e se nl a se c u a c i o n e s .A d e m s ,l a p r e p r o c e s a d o rm a n e j aa l g u n a se x p r e s i o n e sq u es o ne lp r o d u c t oo c o c i e n t ed et r m i n o sl i n e a l e s : ( %I 1 0 )f o u r i e r _ e l i m( [ m a x( x ,y ) >6 ,#8x ,a b s( y 1 ) >1 2 ] ,[ x ,y ] ) ; ( %O 1 0 )[ 6< x ,x< 8 ,y< -1 1 ]o[ 8< x ,y< -1 1 ] o[ x< 8 ,1 3< y ]o[ x=y ,1 3< y ]o[ 8< x ,x< y ,1 3< y ] o[ y< x ,1 3< y ] ( %I 1 1 )f o u r i e r _ e l i m( [ ( x6 )/( x 9 )< =6 ] ,[ x ] ) ; ( %O 1 1 )[ x=1 2 ]o[ 1 2< x ]o[ x< 9 ] ( %I 1 2 )f o u r i e r _ e l i m( [ x^2-1#0 ] ,[ x ] ) ; ( %O 1 2 )[ -1< x ,x< 1 ]o[ 1< x ]o[ x< -1 ] P a r au t i l i z a rl o a d( f o u r i e r _ e l i m )'
F u n c i n :i s r e a l _ p( < e > ) E lp r e d i c a d o` i s r e a l _ p' d e v u e l v ev e r d a d e r os iM a x i m ae sc a p a zd e d e t e r m i n a rq u e` e' e sd ev a l o rr e a le nt o d al ar e c t ar e a l ,s i n o d e v u e l v ef a l s es iM a x i m ae sc a p a zd ed e t e r m i n a rq u e` e' n oe s d ev a l o rr e a le nu ns u b c o n j u n t on ov a c od el al n e ar e a l ,y d e v u e l v eu n af o r m an o m i n a lp a r at o d o sl o sd e m sc a s o s . ( %I 1 )M a p a( ' i s r e a l _ p ,[ 1 ,0 , %i , %p i ] ) ; ( %O 1 )[ t r u e ,t r u e ,f a l s e ,t r u e ] L a sv a r i a b l e sM a x i m as es u p o n eq u es o nr e a l e s ,p o rl oq u e ( %I 2 )i s r e a l _ p( x ) ; ( %O 2 )t r u e L af u n c i n` i s r e a l _ p' e x a m i n al ab a s ed ed a t o sd eh e c h o : ( %I 3 )d e c l a r e( z ,c o m p l e j o )$ ( %I 4 )i s r e a l _ p( z ) ; ( %O 4 )i s r e a l _ p( z ) L i m i t a c i o n e sC o nd e m a s i a d af r e c u e n c i a ,` i s r e a l _ p' d e v u e l v eu n af o r m an o m i n a lc u a n d o d e b es e rc a p a zd ed e v o l v e rf a l s e ;u ne j e m p l os e n c i l l o :e ll o g a r i t m o f u n c i nn oe sd ev a l o rr e a le nt o d al ar e c t ar e a l ,p o rl oq u e ` I s r e a l _ p( l o g( x ) )' d e b ed e v o l v e rf a l s e ,p e r o ( %I 5 )i s r e a l _ p( l o g( x ) ) ; ( %O 5 )i s r e a l _ p( l o g( x ) ) P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e r )' F u n c i o n e sr e l a c i o n a d a sc o m p l e x _ n u m b e r _ p E s t a d oL af u n c i n` r e a l _ p "e se x p e r i m e n t a l ,s u se s p e c i f i c a c i o n e s p u e d ec a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d ac o no t r a F u n c i o n e sd eM a x i m a . F u n c i n :n e w _ v a r i a b l e( t i p o ) D e v o l u c i nd eu ns m b o l o n i c od el af o r m a` %[ z ,n ,r ,c ,g ]k' ,d o n d e `k 'e s u nn m e r oe n t e r o .L o sv a l o r e sp e r m i t i d o sp a r ae lt i p os o ne n t e r o s , n a t u r a l _ n u m b e r ,r e a l ,n a t u r a l _ n u m b e ryg e n e r a l .( P o rN a t u r a l n m e r o ,n o sr e f e r i m o sal o sn m e r o se n t e r o sn on e g a t i v o s ,p o rl oq u ee lc e r oe su np r o d u c t on a t u r a l n m e r o .A l g u n o s ,p e r on ot o d o s ,l a sd e f i n i c i o n e sd en m e r on a t u r a le x c l u y e n c e r o . ) C u a n d oe lt i p on os e au n od el o sv a l o r e sp e r m i t i d o s ,e lt i p op o rd e f e c t o e ng e n e r a l .P a r ae n t e r o s ,n m e r o sn a t u r a l e syn m e r o sc o m p l e j o s , M a x i m aa a d ea u t o m t i c a m e n t ee s t ai n f o r m a c i nal ab a s ed ed a t o sd eh e c h o . ( %I 1 )M a p a( ' n e w _ v a r i a b l e , [ ' E n t e r o 'n a t u r a l _ n u m b e r ," r e a l , "c o m p l e j o" ,e ng e n e r a l ] ) ; ( %O 1 )[ %Z 1 4 4 ,n 1 4 5 % , %R 1 4 6 ,C 1 4 7 % , %G 1 4 8 ] ( %I 2 )n i c e d u m m i e s( % ) ; ( %O 2 )[ %z 0 ,n 0 % , %r 0 ,c 0 % , %g 0 ] ( %I 3 )f e a t u r e p( %z 0 ,' i n t e g e r ) ; ( %O 3 )t r u e ( %I 4 )f e a t u r e p( %n 0 ,' i n t e g e r ) ; ( %O 4 )t r u e ( %I 5 )e s( %n 0 >=0 ) ; ( %O 5 )t r u e ( %I 6 )f e a t u r e p( %c 0' ,c o m p l e j o ) ; ( %O 6 )t r u e N o t ag e n e r a l ,e la r g u m e n t od e` n e w _ v a r i a b l e' d e b es e rc i t a d o . L ac i t av aap r o t e g e rc o n t r ae r r o r e ss i m i l a r e sa ( %I 7 )e n t e r o :1 2$ ( %I 8 )n e w _ v a r i a b l e( n m e r oe n t e r o ) ; ( %O 8 ) %G 1 4 9 ( %I 9 )n e w _ v a r i a b l e( ' n m e r oe n t e r o ) ; ( %O 9 ) %Z 1 5 0 F u n c i o n e sr e l a c i o n a d a sn i c e d u m m i e s P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e r )'
570/633
28/08/13

E s t a d oL af u n c i n` n e w _ v a r i a b l e "e se x p e r i m e n t a l ,ys u e s p e c i f i c a c i o n e sp o d r a nc a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d o e no t r a sf u n c i o n e sd eM a x i m a .
F u n c i n :n i c e d u m m i e s P a r t i e n d od ec e r o ,l af u n c i n` n i c e d u m m i e s' r e i n d e x ae l v a r i a b l e se nu n ae x p r e s i nq u es ei n t r o d u j op o r` n e w _ v a r i a b l e' ; ( %I 1 )n e w _ v a r i a b l e( ' i n t e g e r )+5 2*n e w _ v a r i a b l e( 'i n t e g e r ) ; ( %O 1 )5 2 %+ %Z 1 3 6Z 1 3 5 ( %I 2 )n e w _ v a r i a b l e( ' n m e r oe n t e r o )-n e w _ v a r i a b l e( 'n m e r oe n t e r o ) ; ( %O 2 ) %Z 1 3 7-Z 1 3 8 % ( %I 3 )n i c e d u m m i e s( % ) ; ( %O 3 )z 0 %%z 1 F u n c i o n e sr e l a c i o n a d a sn e w _ v a r i a b l e P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e r )' E s t a d oL af u n c i n` n i c e d u m m i e s "e se x p e r i m e n t a l ,ys u e s p e c i f i c a c i o n e sp o d r a nc a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d o e no t r a sf u n c i o n e sd eM a x i m a .
F u n c i n :P A R G( < x > ) L af u n c i n` P A R G' e su n av e r s i ns i m p l i f i c a c i nd e lc o m p l e j o f u n c i na r g u m e n t o` c a r g' ,p o rl oq u e ( %I 1 )M a p a( ' P A R G ,[ 1 , 1+ %i , %i ,1+ %i ,1 ] ) ; %P ip i %3 %p i ( %O 1 )[ 0 ,,,, %p i ] 424 E ng e n e r a l ,p a r au n ae n t r a d an oc o n s t a n t e ,` P A R G' d e v u e l v eu n af o r m an o m i n a l ; a s ( %I 2 )P A R G( x+ %i*s q r t( x ) ) ; ( %O 2 )P A R G( x+ %is q r t( x ) ) C u a n d ol am u e s t r ad e l` ' p u e d ed e t e r m i n a rq u el ae n t r a d ae su np o s i t i v oon e g a t i v o n m e r or e a l ,` P A R G' d e v o l v e r u n af o r m an o n o m b r ep a r au nn oc o n s t a n t e d ee n t r a d a .H ea q u d o se j e m p l o s : ( %I 3 )P A R G( a b s( x ) ) ; ( %O 3 )0 ( %I 4 )P A R G( x^2 1 ) ; ( %O 4 ) %p i N o t aL af u n c i nd e' s i g n o 'h a c ec a s oo m i s od el am a y o r ad el a sv a r i a b l e sq u es o n d e c l a r a d oc o m p l e j o( ` d e c l a r e( x ,c o m p l e j o )' ) ;p a r al a sv a r i a b l e sq u e s ed e c l a r a ns e rc o m p l e j o ,e l` P A R G' p u e d ev o l v e ri n c o r r e c t a s v a l o r e s ,p o re j e m p l o , ( %I 1 )d e c l a r e( x ,c o m p l e j o )$ ( %I 2 )P A R G( x^2+1 ) ; ( %O 2 )0 F u n c i nr e l a c i o n a d ac a r g ,i s r e a l _ p P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e r )' E s t a d oL af u n c i n` P A R G "e se x p e r i m e n t a l ,s u se s p e c i f i c a c i o n e s p u e d ec a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d ac o no t r a F u n c i o n e sd eM a x i m a .
F u n c i n :r e a l _ i m a g p a r t _ t o _ c o n j u g a t e( < e > ) L af u n c i n` r e a l _ i m a g p a r t _ t o _ c o n j u g a t e' r e e m p l a z at o d a sl a so c u r r e n c i a s d e` r e a l p a r t' y ì m a g p a r t 'aa l g e b r a i c a m e n t ee q u i v a l e n t e e x p r e s i o n e sc o ne l' c o n j u g a d o ' . ( %I 1 )d e c l a r e( x ,c o m p l e j o )$ ( %I 2 )r e a l _ i m a g p a r t _ t o _ c o n j u g a t e( r e a l p a r t( x )+i m a g p a r t( x )=3 ) ; c o n j u g a d o( x )+x %i( x-c o n j u g a d o( x ) ) ( %O 2 )-=3 22 P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e r )' E s t a d oL af u n c i n` r e a l _ i m a g p a r t _ t o _ c o n j u g a t e' e se x p e r i m e n t a l ; s u se s p e c i f i c a c i o n e sp o d r a nc a m b i a rys uf u n c i o n a l i d a dp o d r as e r f u s i o n a d oe no t r a sf u n c i o n e sd eM a x i m a .
F u n c i n :r e c t f o r m _ l o g _ i f _ c o n s t a n t( < e > )
571/633
28/08/13

L af u n c i n` r e c t f o r m _ i f _ c o n s t a n t' c o n v i e r t et o d o sl o st r m i n o sd el af o r m a ` L o g( c )' a `r e c t f o r m( l o g( c ) ) ' ,d o n d e` c' e sob i e nu nd e c l a r a d o e x p r e s i nc o n s t a n t eod e c l a r a d a se x p l c i t a m e n t ec o n s t a n t e ( %I 1 )r e c t f o r m _ l o g _ i f _ c o n s t a n t( l o g( 1%i )-l o g( x%i ) ) ; l o g( 2 ) %i %p i ( %O 1 )-l o g( x%i )+24 ( %I 2 )d e c l a r e( a ,c o n s t a n t e ,b ,c o n s t a n t e )$ ( %I 3 )r e c t f o r m _ l o g _ i f _ c o n s t a n t( l o g( a+ %i*b ) ) ; 22 l o g( b+a ) ( %O 3 )-+ %ia t a n 2( b ,a ) 2 P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e r )' E s t a d oL af u n c i n` r e c t f o r m _ l o g _ i f _ c o n s t a n t' e se x p e r i m e n t a l ; l a se s p e c i f i c a c i o n e sd ee s t af u n c i np o d r ac a m b i a rp u e d ec a m b i a ry s uf u n c i o n a l i d a dp u e d es e rc o m b i n a d oe no t r a sf u n c i o n e sd eM a x i m a .
F u n c i n :s i m p _ i n e q u a l i t y( < e > ) L af u n c i n` s i m p _ i n e q u a l i t y "s ea p l i c aaa l g u n a ss i m p l i f i c a c i o n e s c o n j u n c i o n e syd i s y u n c i o n e sd ei n e c u a c i o n e s . L i m i t a c i o n e sL af u n c i n` s i m p _ i n e q u a l i t y' e sl i m i t a d ae na lm e n o s d o sm a n e r a s :e np r i m e rl u g a r ,l a ss i m p l i f i c a c i o n e ss o nl o c a l e s ,p o rl oq u e ( %I 1 )s i m p _ i n e q u a l i t y( ( x >m i n f ) %y( x< 0 ) ) ; ( %O 1 )( x >1 ) %y( x< 1 ) Ye ns e g u n d ol u g a r ,` s i m p _ i n e q u a l i t y' n oc o n s u l t a rl ab a s ed ed a t o sd eh e c h o : ( %I 2 )a s u m i r ( x >0 )$ ( %I 3 )s i m p _ i n e q u a l i t y( x >0 ) ; ( %O 3 )x >0 P a r au t i l i z a rl o a d( f o u r i e r _ e l i m )' E s t a d oL af u n c i n` s i m p _ i n e q u a l i t y "e se x p e r i m e n t a l ,ys u e s p e c i f i c a c i o n e sp o d r a nc a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d o e no t r a sf u n c i o n e sd eM a x i m a .
F u n c i n :s t a n d a r d i z e _ i n v e r s e _ t r i g( < e > ) E s t af u n c i ns ea p l i c al ai d e n t i d a d` c o t( x )=a t a n( 1/x ) ,a c s c( x ) =A s i n( 1/x ) ,' yl om i s m op a r a` a s e c ,a c o t h ,a c s c h 'y à s e c h' au n ae x p r e s i n .V e rA b r a m o w i t zyS t e g u n ,l a se c u a c i o n e s .4 . 4 . 6t r a v s 4 . 4 . 8y4 . 6 . 4at r a v sd e4 . 6 . 6 . P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e r )' E s t a d oL af u n c i n` s t a n d a r d i z e _ i n v e r s e _ t r i g "e se x p e r i m e n t a l ,ys u e s p e c i f i c a c i o n e sp o d r a nc a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d o e no t r a sf u n c i o n e sd eM a x i m a . F u n c i n :s u b s t _ p a r a l l e l( < l > ,< e > ) C u a n d o` l' e su n ae c u a c i nol i s t ad ee c u a c i o n e s ,s u s t i t u y a e ll a d od e r e c h od ec a d ae c u a c i np a r al am a n oi z q u i e r d a .L a s u s t i t u c i o n e ss eh a c e ne np a r a l e l o ,p o re j e m p l o ( %I 1 )l o a d( t o _ p o l y _ s o l v e r )$ ( %I 2 )s u b s t _ p a r a l l e l( [ x=y ,y=x ] ,[ x ,y ] ) ; ( %O 2 )[ y ,x ] C o m p a r ee s t oc o nl a ss u s t i t u c i o n e sh e c h a se ns e r i e : ( %I 3 )s u b s t( [ x=y ,y=x ] ,[ x ,y ] ) ; ( %O 3 )[ x ,x ] L af u n c i n` s u b s t _ p a r a l l e l' e ss i m i l a ra 's u b l i s' e x c e p t oq u e ` S u b s t _ p a r a l l e l' p e r m i t el as u s t i t u c i nd en o n a t o m s ,p o re j e m p l o ( %I 4 )s u b s t _ p a r a l l e l( [ x^2=a ,y=b ] ,x^2*y ) ; ( %O 4 )a b ( %I 5 )s u b l i s( [ x^2=a ,y=b ] ,x^2*y ) ; 2 s u b l i s :l a d oi z q u i e r d od el ae c u a c i nd e b es e ru ns m b o l o ;e n c o n t r a d o :x -U ne r r o r .P a r ad e p u r a re s t ei n t e n t o :d e b u g m o d e( t r u e ) ; L a ss u s t i t u c i o n e sr e a l i z a d a sp o r` s u b s t _ p a r a l l e l' s o nl i t e r a l e s ,n o s e m n t i c a ,p o rl oq u e` s u b s t _ p a r a l l e l' n or e c o n o c eq u ex*ye su n s u b e x p r e s i nd ex^2*y ( %I 6 )s u b s t _ p a r a l l e l( [ x*y=a ] ,x^2*y ) ;
572/633
28/08/13
( %O 6 )x y

2
L af u n c i n` s u b s t _ p a r a l l e l' c o m p l e t et o d a sl a ss u s t i t u c i o n e sa n t e s s i m p l i f i c a c i o n e s .E s t op e r m i t es u s t i t u c i o n e se nc o n d i c i o n a l e x p r e s i o n e sd o n d ep u e d e np r o d u c i r s ee r r o r e ss il a ss i m p l i f i c a c i o n e se r a n h e c h oa n t e s : ( %I 7 )s u b s t _ p a r a l l e l( [ x=0 ] , %s i( x< 1 ,5 ,l o g( x ) ) ) ; ( %O 7 )5 ( %I 8 )s u b s t( [ x=0 ] , %s i( x< 1 ,5 ,l o g( x ) ) ) ; l o g :l o ge n c o n t r a d o( 0 ) . -U ne r r o r .P a r ad e p u r a re s t ei n t e n t o :d e b u g m o d e( t r u e ) ; F u n c i o n e sr e l a c i o n a d a ss u b s t ,s u b l i s ,r a t s u b s t P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e _ e x t r a . l i s p )' E s t a d oL af u n c i n` s u b s t _ p a r a l l e l "e se x p e r i m e n t a l ,l a e s p e c i f i c a c i o n e sd ee s t af u n c i np o d r ac a m b i a ryp o d r ac a m b i a rs u f u n c i o n a l i d a dp u e d es e rc o m b i n a d oe no t r a sf u n c i o n e sd eM a x i m a .
F u n c i n :t o _ p o l y( < e > ,< l > ) L af u n c i n' l o si n t e n t o sd ec o n v e r t i rl ae c u a c i n` e ' `t o _ p o l ye nu n s i s t e m ad ep o l i n o m i oj u n t oc o nr e s t r i c c i o n e sd ed e s i g u a l d a d ;l a ss o l u c i o n e s a ls i s t e m ad ep o l i n o m i oq u es a t i s f a c e nl a sr e s t r i c c i o n e ss o n s o l u c i o n e sd el ae c u a c i n` e' .I n f o r m a l m e n t e ,l o si n t e n t o s` t o _ p o l y' a p o l y n o m i a l i z e< e >l ae c u a c i n ,u ne j e m p l op o d r aa c l a r a r : ( %I 1 )l o a d( t o _ p o l y _ s o l v e r )$ ( %I 2 )t o _ p o l y( s q r t( x )=3 ,[ x ] ) ; 2 ( %O 2 )[ [ %G 1 3 0-3 ,x= %G 1 3 0 ] , %P i %p i [ -< P A R G( %G 1 3 0 ) ,P A R G( %G 1 3 0 )< =] ,[ ] ] 22 L a sc o n d i c i o n e s` %p i/2< P A R G( %g 6 ) ,P A R G( %g 6 )< %=p i/2' n o sd i c e nq u e ` %G 6' e s t e ne lr a n g od el af u n c i nd er a zc u a d r a d a .C u a n d oe s t ee s v e r d a d e r a ,l as o l u c i ne n` s q r t( x )=3' e se lm i s m oq u ee l s o l u c i ne n` %g 6 3 ,x= %g 6^2' . P a r ap o l y n o m i a l i z ee x p r e s i o n e st r i g o n o m t r i c a s ,e sn e c e s a r i o i n t r o d u c i ru n as u s t i t u c i nn oa l g e b r a i c a ,l o sc u a l e sn oa l g e b r a i c a s u s t i t u c i o n e ss ed e v u e l v e ne nl at e r c e r al i s t ad e v u e l t ap o r ` T o _ p o l y' ,p o re j e m p l o ( %I 3 )t o _ p o l y( c o s( x ) ,[ x ] ) ; 2 %i x ( %O 3 )[ [ %G 1 3 1+1 ] ,[ 2 %G 1 3 1#0 ] ,[ %G 1 3 1= %e ] ] T r m i n o sc o n s t a n t e sn oe s t np o l y n o m i a l i z i e dam e n o sq u ee ln m e r ou n oe su n m i e m b r od el al i s t ad ev a r i a b l e s ,p o re j e m p l o ( %I 4 )t o _ p o l y( x=s q r t( 5 ) ,[ x ] ) ; ( %O 4 )[ [ x-s q r t( 5 ) ] ,[ ] ,[ ] ] ( %I 5 )t o _ p o l y( x=s q r t( 5 ) ,[ 1 ,x ] ) ; 2 ( %O 5 )[ [ x-G 1 3 2 % ,5 %=G 1 3 2 ] , %P i %p i [ -< P A R G( %G 1 3 2 ) ,P A R G( %G 1 3 2 )< =] ,[ ] ] 22 P a r ag e n e r a ru np o l i n o m i oc o ns q r t( 5 )+s q r t( 7 )c o m ou n od es u s r a c e s ,u t i l i c el o sc o m a n d o s ( %I 6 )p r i m e r a( e l i m _ a l l b u t( p r i m e r o( t o _ p o l y( x=s q r t( 5 )+s q r t( 7 ) , [ 1 ,x ] ) ) ,[ x ] ) ) ; 42 ( %O 6 )[ x-2 4x+4 ] F u n c i o n e sr e l a c i o n a d a st o _ p o l y _ s o l v e P a r au t i l i z a rl o a d( t o _ p o l y )' E s t a d o :L af u n c i n` t o _ p o l y "e se x p e r i m e n t a l ,s u se s p e c i f i c a c i o n e s p u e d ec a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d ac o no t r a F u n c i o n e sd eM a x i m a .
F u n c i n :t o _ p o l y _ s o l v e( < e > ,< L > ,[ o p c i o n e s ] ) L af u n c i n` t o _ p o l y _ s o l v e' t r a t ad er e s o l v e rl a se c u a c i o n e sep a r a l a sv a r i a b l e sl .L ae c u a c i n( s )d ec o r r e op u e d es e ru n as o l a e x p r e s i nou nc o n j u n t ool i s t ad ee x p r e s i o n e s ,d em a n e r as i m i l a r ,p u e d o s e ru ns o l os m b o l oou n al i s t ad ec o n j u n t od es m b o l o s .C u a n d ou n m i e m b r od ec o r r e on oe se x p l c i t a m e n t eu n ae c u a c i n ,p o re j e m p l o ,x^21 ,e l s o l v e ra s u m m e sq u el ae x p r e s i ns ed e s v a n e c e . L ae s t r a t e g i ab s i c ad e l` t o _ p o l y _ s o l v e' e su s a r `t o _ p o l y 'p a r ac o n v e r t i r
573/633
28/08/13

l ae n t r a d ae nu n af o r m ap o l i n m i c ayl l a m a d a` a l g s y s' e ne l s i s t e m ad ep o l i n o m i o .P o rl ot a n t ol a so p c i o n e sd eu s u a r i oq u ea f e c t a na l g s y s` ' , e s p e c i a l m e n t e` a l g e x a c t' ,t a m b i na f e c t a n `t o _ p o l y _ s o l v e ' .E lv a l o rp o rd e f e c t o p a r a` a l g e x a c t' e sf a l s o ,p e r op a r a `t o _ p o l y _ s o l v e ' ,p o rl og e n e r a l ` A l g e x a c t' d e b es e rv e r d a d .L af u n c i n` t o _ p o l y _ s o l v e' n o l o c a l m e n t ec o n f i g u r a r` a l g e x a c t' ac i e r t op o r q u ee s t oh a r a i m p o s i b l ee n c o n t r a rs o l u c i o n e sa p r o x i m a d a sc u a n d oe l` a l g s y s' e s i n c a p a zd ed e t e r m i n a ru n as o l u c i ne x a c t a . C u a n d o` t o _ p o l y _ s o l v e' e sc a p a zd ed e t e r m i n a re lc o n j u n t od el as o l u c i n ,c a d a m i e m b r od e lc o n j u n t od es o l u c i o n e se su n al i s t ad eo b j e t o sa` %s i n d i c a t o : ( %I 1 )l o a d( t o _ p o l y _ s o l v e r )$ ( %I 2 )t o _ p o l y _ s o l v e( x*( x 1 )=0 ,x ) ; ( %O 2 ) %u n i o n( [ x=0 ] ,[ x=1 ] ) C u a n d o` t o _ p o l y _ s o l v e' n oe sc a p a zd ed e t e r m i n a re lc o n j u n t os o l u c i n ,u n a ` %R e s o l v e r' n o u n f o r ms ed e v u e l v e( e ne s t ec a s o ,s ei m p r i m eu n aa d v e r t e n c i a ) ( %I 3 )t o _ p o l y _ s o l v e( x^k+2*x+1=0 ,x ) ; A r g u m e n t on oa l g e b r a i c a sd a d oa' T o p o l y ' i n c a p a zd er e s o l v e r k ( %O 3 ) %r e s o l v e r( [ x+2x+1=0 ] ,[ x ] ) S u b s i t u t i o ne nu n` %r e s o l v e r' n o u n f o r mav e c e sp u e d er e s u l t a re nl a s o l u c i n ( %I 4 )s u b s t( k=2 , % ) ; ( %O 4 ) %u n i o n( [ x=-1 ] ) E s p e c i a l m e n t ep a r al a se c u a c i o n e st r i g o n o m t r i c a s ,av e c e sn e c e s i t ae ls o l u c i o n a d o r i n t r o d u c i ru ne n t e r oa r b i t r a r i o .E s t o sn m e r o se n t e r o sa r b i t r a r i o st i e n e nl a f o r m a` %Z x x x' ,d o n d e `X X X 'e su nn m e r oe n t e r o ,p o re j e m p l o ( %I 5 )t o _ p o l y _ s o l v e( s i n( x )=0 ,x ) ; ( %O 5 ) %u n i o n( [ x=2 %p i %z 3 3+ %p i ] ,[ x=2 %p i %z 3 5 ] ) P a r av o l v e rai n d e x a re s t a sv a r i a b l e se nc e r o ,u t i l i c e` n i c e d u m m i e s' : ( %I 6 )n i c e d u m m i e s( % ) ; ( %O 6 ) %u n i o n( [ x=2 %p i %z 0+ %p i ] ,[ x=2 %p i %z 1 ] ) E no c a s i o n e s ,e ls o l u c i o n a d o ri n t r o d u c eu nn m e r oc o m p l e j oa r b i t r a r i od e l af o r m a` %C x x x' ou nn m e r or e a la r b i t r a r i od el af o r m a ` %R x x x ' . L af u n c i n` n i c e d u m m i e s' v o l v e r nai n d e x a re s t o si d e n t i f i c a d o r e sac e r o . E lc o n j u n t od es o l u c i o n e sav e c e si m p l i c av e r s i o n e ss i m p l i f i n gd ev a r i o s d el o so p e r a d o r e sl g i c o sc o m o` %y' , ' %u' ,o ` %i f 'p a r a c o n j u n c i n ,d i s j u n t i o n ,ei m p l i c a c i n ,r e s p e c t i v a m e n t e ,p o re j e m p l o ( %I 7 )S o l :t o _ p o l y _ s o l v e( a b s( x )=a ,x ) ; ( %O 7 ) %u n i o n( %i f( i s n o n n e g a t i v e _ p( a ) ,[ x=-a ] , %u n i o n( ) ) , %S i( i s n o n n e g a t i v e _ p( a ) ,[ x=a ]u n i n , %( ) ) ) ( %I 8 )s u b s t( a=4 2 ,s o l ) ; ( %O 8 ) %u n i o n( [ x=-4 2 ] ,[ x=4 2 ] ) ( %I 9 )s u b s t( a=4 2 ,s o l ) ; ( %O 9 ) %u n i o n( ) E lc o n j u n t ov a c oe sr e p r e s e n t a d op o r` %u n i o n' . L af u n c i n` t o _ p o l y _ s o l v e' e sc a p a zd er e s o l v e ra l g u n o s ,p e r on ot o d o s , e c u a c i o n e sc o np o t e n c i a sr a c i o n a l e s ,a l g u n a sp o t e n c i a sn or a c i o n a l e s , v a l o r e sa b s o l u t o s ,f u n c i o n e st r i g o n o m t r i c a s ,ye lm n i m oye lm x i m o . A d e m s ,a l g u n o sp u e d er e s o l v e ra l g u n a se c u a c i o n e sq u es o nr e s o l u b l e se ne n t r m i n o sd el af u n c i nWd eL a m b e r t ;a l g u n o se j e m p l o s : ( %I 1 )l o a d( t o _ p o l y _ s o l v e r )$ ( %I 2 )t o _ p o l y _ s o l v e( c o n j u n t o( m a x( x ,y )=5 ,x+y=2 ) ,c o n j u n t o( x ,y ) ) ; ( %O 2 ) %u n i o n( [ x=-3 ,y=5 ] ,[ x=5 ,y=-3 ] ) ( %I 3 )t o _ p o l y _ s o l v e( A B S( A B S 1( 1 x ) )=1 0 ,x ) ; ( %O 3 ) %u n i o n( [ x=-1 0 ] ,[ x=1 2 ] ) ( %I 4 )t o _ p o l y _ s o l v e( c o n j u n t o( s q r t( x )+s q r t( y )=5 ,x+y=1 0 ) , c o n j u n t o( x ,y ) ) ; 3 / 23 / 2 5 %i-1 05 %i+1 0 ( %O 4 ) %u n i o n( [ x=,y=] , 22 3 / 23 / 2 5 %i+1 05 %i-1 0 [ X=,y=] ) 22 ( %I 5 )t o _ p o l y _ s o l v e( c o s( x )*s i n( x )=1 / 2 ,x , ' S i m p f u n c s=[ 'e x p a n d i r' n i c e d u m m i e s ] ) ; %P i ( %O 5 ) %u n i o n( [ x= %p i %z 0+] ) 4 ( %I 6 )t o _ p o l y _ s o l v e( x^( 2*a )+xâ+1 ,x ) ; 2 %i %p i %Z 8 1 1 / a a ( S q r t( 3 ) %i-1 ) %e ( %O 6 ) %u n i o n( [ x=] , 1/a
574/633
28/08/13

2 2 %i %p i %Z 8 3 1 / a a ( -S q r t( 3 ) %i-1 ) %e [ X=] ) 1/a 2 ( %I 7 )t o _ p o l y _ s o l v e( x*e x p( x )=a ,x ) ; ( %O 7 ) %u n i o n( [ x=l a m b e r t _ w( a ) ] ) P a r ad e s i g u a l d a d e sl i n e a l e s ,` t o _ p o l y _ s o l v e' h a c ea u t o m t i c a m e n t eF o u r i e r e l i m i n a c i n : ( %I 8 )t o _ p o l y _ s o l v e( [ x+y< 1 ,x-y >=8 ] ,[ x ,y ] ) ; 7 ( %O 8 ) %u n i o n( [ x=y+8 ,y< ] , 2 7 [ Y+8< x ,x< 1-y ,y< ] ) 2 C a d aa r g u m e n t oo p c i o n a la` t o _ p o l y _ s o l v e' d e b es e ru n ae c u a c i n ; e ng e n e r a l ,e lo r d e nd ee s t a so p c i o n e sn oi m p o r t a . *` S i m p f u n c s=l' ,d o n d e `l 'e su n al i s t ad ef u n c i o n e s .A p l i q u el a c o m p o s i c i nd el o sm i e m b r o sd elac a d as o l u c i n . ( %I 1 )t o _ p o l y _ s o l v e( x^2= %i ,x ) ; 1 / 41 / 4 ( %O 1 ) %u n i o n( [ x=-( -1 ) ] ,[ x=( -1 ) ] ) ( %I 2 )t o _ p o l y _ s o l v e( x^2= %i ,x ,' s i m p f u n c s=[ 'r e c t f o r m ] ) ; %I %i11 ( %O 2 ) %u n i o n( [ x=] ,[ x=-+] ) ( 2 )s q r t( 2 )s q r t( 2 )s q r ts q r t( 2 ) Av e c e ss i m p l i f i c a c i na d i c i o n a lp u e d er e v e r t i ru n s i m p l i f i c a c i n ,p o re j e m p l o ( %I 3 )t o _ p o l y _ s o l v e( x^2=1 ,x ) ; ( %O 3 ) %u n i o n( [ x=-1 ] ,[ x=1 ] ) ( %I 4 )t o _ p o l y _ s o l v e( x^2=1 ,x ,' s i m p f u n c s=[ p o l a r f o r m ] ) ; %I %p i ( %O 4 ) %u n i o n( [ x=1 ] ,[ x= %e ] M a x i m an oi n t e n t ac o m p r o b a rq u ec a d am i e m b r od el af u n c i n l i s t` l' e sp u r a m e n t eu n as i m p l i f i c a c i n ,p o rl oq u e ( %I 5 )t o _ p o l y _ s o l v e( x^2= %i ,x ,' s i m p f u n c s=[ l a m b d a( [ s ] ,s^ 2 ) ] ) ; ( %O 5 ) %u n i o n( [ x= %i ] ) P a r ac o n v e r t i rc a d as o l u c i nau nf l o t a d o rd o b l e ,u s e` s i m p f u n c= [ ' D f l o a t ] ' : ( %I 6 )t o _ p o l y _ s o l v e( x^3+x+1=0 ,x , ' S i m p f u n c s=[ 'd f l o a t ] ) ,a l g e x a c t :t r u e ; ( %O 6 ) %u n i o n( [ x=-0 . 6 8 2 3 2 7 8 0 3 8 2 8 0 1 7 8 ] , [ X=0 , 3 4 1 1 6 3 9 0 1 9 1 4 0 0 8 9 1 , 1 6 1 5 4 1 3 9 9 9 9 7 2 5 1 %i ] , [ X=1 . 1 6 1 5 4 1 3 9 9 9 9 7 2 5 10 . 3 4 1 1 6 3 9 0 1 9 1 4 0 0 8 9 %i+ ] ) *` U s e _ g r o b n e r=t r u e' C o ne s t ao p c i n ,l af u n c i n ` P o l y _ r e d u c e d _ g r o b n e r' s ea p l i c aal a se c u a c i o n e sa n t e s i n t e n t a rs us o l u c i n .P r i n c i p a l m e n t e ,e s t ao p c i np r o p o r c i o n au n a s o l u c i np a r al ad e b i l i d a de nl af u n c i na l g s y s` ' .A q u s ep r e s e n t au n a e j e m p l od ee s t as o l u c i n : ( %I 7 )t o _ p o l y _ s o l v e( [ x^2+y^2=2^2 ,( x 1 )^2+( y 1 )^2=2^2 ] ,[ x ,y ] , ' U s e _ g r o b n e r=t r u e ) ; s q r t( 7 )-1s q r t( 7 )+1 ( %O 7 ) %u n i o n( [ x=,y=] , 22 s q r t( 7 )1+s q r t( 7 )-1 [ X=,y=] ) 22 ( %I 8 )t o _ p o l y _ s o l v e( [ x^2+y^2=2^2 ,( x 1 )^2+( y 1 )^2=2^2 ] ,[ x ,y ] ) ; ( %O 8 ) %u n i o n( ) *` M a x d e p t h=k' ,d o n d e `k 'e su nn m e r oe n t e r op o s i t i v o .E s t e f u n c i nc o n t r o l al ap r o f u n d i d a dm x i m ad er e c u r s i np a r ae ls o l v e r . E lv a l o rp o rd e f e c t op a r a` m a x d e p t h' e sc i n c o .C u a n d oe l p r o f u n d i d a dd er e c u r s i v i d a ds ee x c e d e ,e ls o l u c i o n a d o rs e a l au ne r r o r : ( %I 9 )t o _ p o l y _ s o l v e( c o s( x )=x ,x ,' m a x d e p t h=2 ) ; I n c a p a zd er e s o l v e r I n c a p a zd er e s o l v e r ( %O 9 ) %s o l v e( [ c o s( x )=x ] ,[ x ] ,m a x d e p t h=2 ) *` P a r a m e t e r s=l' ,d o n d e `l 'e su n al i s t ad es m b o l o s .E ls o l u c i o n a d o r i n t e n t o sd ev o l v e ru n as o l u c i nq u es e av l i d ap a r at o d o sl o sm i e m b r o s d el al i s t a` l' ,p o re j e m p l o : ( %I 1 0 )t o _ p o l y _ s o l v e( a*x=x ,x ) ; ( %O 1 0 ) %u n i o n( [ x=0 ] ) ( %I 1 1 )t o _ p o l y _ s o l v e( a*x=x ,x ,' p a r m e t r o s=[ a ] ) ; ( %O 1 1 ) %u n i o n( %i f( a-1=0 ,[ x= %c 1 1 1 ] , %u n i o n( ) ) , %I f( a-1#0 ,[ x=0 ] , %u n i o n( ) ) )
575/633
28/08/13

E n` ( %o 2 )' ,e ls o l u c i o n a d o ri n t r o d u j ou n av a r i a b l ed u m m y ,p a r a v o l v e rai n d e x a rl a se s t a sv a r i a b l e sf i c t i c i a s ,u t i l i c el af u n c i n ` N i c e d u m m i e s' : ( %I 1 2 )n i c e d u m m i e s( % ) ; ( %O 1 2 ) %u n i o n( %i f( a-1=0 ,[ x= %c 0 ] , %u n i o n( ) ) , %I f( a-1#0 ,[ x=0 ] , %u n i o n( ) ) ) E l` t o _ p o l y _ s o l v e r' u t i l i z al o sd a t o sa l m a c e n a d o se nl am a t r i zh a s h ` O n e _ t o _ o n e _ r e d u c e' p a r ar e s o l v e re c u a c i o n e sd el af o r m af( a )=f( b ) . L at a r e a` o n e _ t o _ o n e _ r e d u c e[ ' f 'f ] :l a m b d a( [ a ,b ] ,a=b )' d i c e` t o _ p o l y _ s o l v e r' q u ee lc o n j u n t os o l u c i nd ef( a )=f( b )e si g u a la e lc o n j u n t os o l u c i nd ea=b ,p o re j e m p l o ( %I 1 3 )o n e _ t o _ o n e _ r e d u c e[ ' f 'f ] :l a m b d a( [ a ,b ] ,a=b )$ ( %I 1 4 )t o _ p o l y _ s o l v e( f( x^2 1 )=f( 0 ) ,x ) ; ( %O 1 4 ) %u n i o n( [ x=-1 ] ,[ x=1 ] ) M se ng e n e r a l ,l aa s i g n a c i n` o n e _ t o _ o n e _ r e d u c e[ ' f , 'g ] : l a m b d a( [ a ,b ] ,w( a ,b )=0' d i c e` t o _ p o l y _ s o l v e r 'q u ee l c o n j u n t od es o l u c i o n e sd ef( a )=f( b )e si g u a la lc o n j u n t od es o l u c i o n e sd ew( a ,b )=0 ; p o re j e m p l o ( %I 1 5 )o n e _ t o _ o n e _ r e d u c e[ ' f 'g ] :l a m b d a( [ a ,b ] ,a=1+b/2 )$ ( %I 1 6 )t o _ p o l y _ s o l v e( f( x )-g( x ) ,x ) ; ( %O 1 6 ) %u n i o n( [ x=2 ] ) A d e m s ,l af u n c i n` t o _ p o l y _ s o l v e r' u t i l i z al o sd a t o sa l m a c e n a d o se n l am a t r i zh a s h` f u n c t i o n _ i n v e r s e' p a r ar e s o l v e re c u a c i o n e sd el af o r m a f( a )=b .L at a r e a` f u n c t i o n _ i n v e r s e[ ' f ] :l a m b d a( [ s ] , G( s ) )' i n f o r m a` t o _ p o l y _ s o l v e r 'q u el as o l u c i ne n `f( x )= b' e si g u a lal as o l u c i ne s t a b l e c i d ae n` x=g( b ) ' ,d o se j e m p l o s : ( %I 1 7 )f u n c t i o n _ i n v e r s e[ ' Q ] :l a m b d a( [ s ] ,P( s ) )$ ( %I 1 8 )t o _ p o l y _ s o l v e( Q( x 1 )=2 . 0 0 9 ,x ) ; ( %O 1 8 ) %u n i o n( [ x=P( 2 0 0 9 )+1 ] ) ( %I 1 9 )f u n c t i o n _ i n v e r s e[ ' G ] :l a m b d a( [ s ] ,s+n e w _ v a r i a b l e( e n t e r o ) ) ; ( %O 1 9 )l a m b d a( [ s ] ,s+n e w _ v a r i a b l e( e n t e r o ) ) ( %I 2 0 )t o _ p o l y _ s o l v e( G( x-a )=b ,x ) ; ( %O 2 0 ) %u n i o n( [ x=b+a+ %Z 1 2 5 ] ) N o t a s *L ar e s o l v e rl a sv a r i a b l e sn on e c e s i t a ns e rs m b o l o s ,c u a n d o` f u l l r a t s u b s t' e s c a p a zd eh a c e ra p r o p i a d a m e n t el a ss u s t i t u c i o n e s ,e lr e s o l v e rl a sv a r i a b l e s p u e d es e rn o n s y m b o l s : ( %I 1 )t o _ p o l y _ s o l v e( [ x^2+y^2+x*y=5 ,x*y=8 ] , [ X^2+y^2 ,x*y ] ) ; 22 ( %O 1 ) %u n i o n( [ x y=8 ,y+x=-3 ] ) *P a r al a se c u a c i o n e sq u ei n v o l u c r a nc o m p l e j o sc o n j u g a d o s ,e ls o l u c i o n a d o r A u t o m t i c a m e n t ea a d el a se c u a c i o n e sc o n j u g a d a s ,p o re j e m p l o ( %I 1 )d e c l a r e( x ,c o m p l e j o )$ ( %I 2 )t o _ p o l y _ s o l v e( x+( 5 %+i )*c o n j u g a d o( x )=1 ,x ) ; %I+2 1 ( %O 2 ) %u n i o n( [ x=] ) 2 5 %i-1 2 5 ( %I 3 )d e c l a r a r( y ,c o m p l e j o )$ ( %I 4 )t o _ p o l y _ s o l v e( s e t( c o n j u g a d o( x )-y=4 2+ %i , x+c o n j u g a d o( y )=0 ) ,s i s t e m a( x ,y ) ) ; %I-4 2 %i+4 2 ( %O 4 ) %u n i o n( [ x-= ,y=] ) 22 *P a r au n ae c u a c i nq u ei m p l i c al af u n c i nd ev a l o ra b s o l u t o ,l a ` T o _ p o l y _ s o l v e r' c o n s u l t aal ab a s ed ed a t o sd eh e c h op a r ad e c i d i rs ie l a r g u m e n t oa lv a l o ra b s o l u t oe sc o m p l e j ov a l o r a d o . C u n d o ( %I 1 )t o _ p o l y _ s o l v e( a b s( x )=6 ,x ) ; ( %O 1 ) %u n i o n( [ x=-6 ] ,[ x=6 ] ) ( %I 2 )d e c l a r e( z ,c o m p l e j o )$ ( %I 3 )t o _ p o l y _ s o l v e( a b s( z )=6 ,z ) ; ( %O 3 ) %u n i o n( %i f( ( %c 1 1#0 ) %y( %c 1 1c o n j u g a d o( %c 1 1 )-3 6= 0 ) ,[ z= %c 1 1 ] , %u n i o n( ) ) ) E s t ae sl a n i c as i t u a c i ne nl aq u ee ls o l u c i o n a d o rd ec o n s u l t ae lh e c h o b a s ed ed a t o s .S iu n av a r i a b l er e s o l v e re sd e c l a r a d os e ru nn m e r oe n t e r o , p o re j e m p l o ,` t o _ p o l y _ s o l v e' i g n o r ae s t ad e c l a r a c i n . V a r i a b l e sd eo p c i nc o r r e s p o n d i e n t ea l g e x a c t ,r e s u l t a n t e ,a l g e b r a i c a s F u n c i o n e sr e l a c i o n a d a st o _ p o l y P a r au t i l i z a rl o a d( t o _ p o l y _ s o l v e r )' E s t a d o :L af u n c i n` t o _ p o l y _ s o l v e "e se x p e r i m e n t a l ,ys u e s p e c i f i c a c i o n e sp o d r a nc a m b i a rys uf u n c i o n a l i d a dp o d r as e rf u s i o n a d o
576/633
28/08/13
e no t r a sf u n c i o n e sd eM a x i m a .
80 unidad
I n t r o d u c c i nal a sU n i d a d e s F u n c i o n e syv a r i a b l e sp a r al a su n i d a d e s
80.1 Introduccin a las Unidades

E lp a q u e t e_ u n i t _p e r m i t ea lu s u a r i oc o n v e r t i re n t r eu n i d a d e sa r b i t r a r i a s yt r a b a j a rc o nl a sd i m e n s i o n e se nl a se c u a c i o n e s .E lf u n c i o n a m i e n t od ee s t ep a q u e t e e sr a d i c a l m e n t ed i f e r e n t ed el ao r i g i n a lM a x i m ap a q u e t ed eu n i d a d e s-m i e n t r a sq u e e lo r i g i n a le r au n al i s t ab s i c ad el a sd e f i n i c i o n e s ,u t i l i z ae s t ep a q u e t e c o n j u n t o sd er e g l a sp a r ap e r m i t i ra lu s u a r i oe l e g i r ,e nu n ab a s ep o rd i m e n s i n ,l o r e s p u e s t a sf i n a l e su n i t a r i o sd e b e ns e rp r e s t a d o sp u l gs e p a r a r u n i d a d e s e nl u g a rd ee n t r e m e z c l a re nl ap a n t a l l a ,l oq u ep e r m i t ea lu s u a r i o i d e n t i f i c a rf c i l m e n t el a su n i d a d e sa s o c i a d a sau n ar e s p u e s t ap a r t i c u l a r .L o p e r m i t i r au nu s u a r i op a r as i m p l i f i c a ru n ae x p r e s i nas ub a s ef u n d a m e n t a l U n i d a d e s ,a s c o m op r o p o r c i o n a ru nc o n t r o lp r e c i s os o b r el as i m p l i f i c a c i nd ed e r i v a d o u n i d a d e s .E la n l i s i sd i m e n s i o n a le sp o s i b l e ,yu n av a r i e d a dd eh e r r a m i e n t a s d i s p o n i b l e sp a r ag e s t i o n a rl ac o n v e r s i nyo p c i o n e sd es i m p l i f i c a c i n .A d e m s al ac o n v e r s i na u t o m t i c ap e r s o n a l i z a b l e ,_ u n i t s _t a m b i np r o p o r c i o n au n a o p c i nd ec o n v e r s i nm a n u a lt r a d i c i o n a l . N o t a-A lc o n v e r s i o n e sd eu n i d a d e ss o ni n e x a c t a sM a x i m ah a r a p r o x i m a c i o n e se nl a sf r a c c i o n e sr e s u l t a n t e s .E s t oe su n ac o n s e c u e n c i ad el a t c n i c a su t i l i z a np a r as i m p l i f i c a ru n i d a d e s .L o sm e n s a j e sd ea d v e r t e n c i ad ee s t et i p o d es u s t i t u c i ne s t nd e s h a b i l i t a d o sp o rd e f e c t oe ne lc a s od el a su n i d a d e s( n o r m a l m e n t e e s t ne n )y aq u ee s t as i t u a c i ns ed ac o nf r e c u e n c i ayl a sa d v e r t e n c i a s d e s o r d e nd el as a l i d a .( E le s t a d oa c t u a ld er a t p r i n tv a l er e s t a u r a d od e s p u s c o n v e r s i o n e sd eu n i d a d e s ,p o rl oq u ec a m b i o sd e lu s u a r i oe ne s ee n t o r n os ec o n s e r v a r n d eo t r am a n e r a . )S ie lu s u a r i on e c e s i t ae s t ai n f o r m a c i np a r al a su n i d a d e s ,p u e d e ne s t a b l e c e r _ u n i t v e r b o s e :o n _p a r ar e a c t i v a rl ai m p r e s i nd el a sa d v e r t e n c i a sd el au n i d a d p r o c e s od ec o n v e r s i n . _ u n i t _e s t i n c l u i d ae nM a x i m ae ne ls h a r e/c o n t r i b/d i r e c t o r i od el au n i d a d .L o o b e d e c eal a sc o n v e n c i o n e sd ec a r g ad e lp a q u e t eM a x i m an o r m a l e s : ( %I 1 )l o a d( " u n i t " )$ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * *U n i d a d e sv e r s i n0 . 5 0* *D e f i n i c i o n e se nb a s eal ar e f e r e n c i ad eN I S Te n* *C o n s t a n t e s ,u n i d a d e s ,yl ai n c e r t i d u m b r e* *F a c t o r e sd ec o n v e r s i nd ev a r i a sf u e n t e s ,e n t r ee l l a s* *N I S Tyu n i d a d e sG N Up a q u e t e* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * R e d e f i n i c i nd el a sf u n c i o n e sn e c e s a r i a s. . . A D V E R T E N C I A :D E F U N/d e f m a c r o :l ar e d e f i n i c i nd el af u n c i nd en i v e ls u p e r i o r M A C S Y M A E V A L. . . A D V E R T E N C I A :D E F U N/d e f m a c r o :l ar e d e f i n i c i nd el af u n c i nM S E T C H K. . . A D V E R T E N C I A :D E F U N/d e f m a c r o :l ar e d e f i n i c i nd el af u n c i nK I L L 1. . . A D V E R T E N C I A :D E F U N/d e f m a c r o :l ar e d e f i n i c i nd el af u n c i nN F O R M A C. . . L ai n i c i a l i z a c i nd el au n i d a da r r a y s. . . L i s t o . S ee s p e r aq u el o sm e n s a j e sd ea d v e r t e n c i ayn ou n ac a u s ad ep r e o c u p a c i n-q u e i n d i q u ee lp a q u e t e_ u n i t _e s t r e d e f i n i e n d of u n c i o n e sy ad e f i n i d a se n M a x i m aa d e c u a d a .E s t oe sn e c e s a r i oc o ne lf i nd em a n e j a rc o r r e c t a m e n t el a su n i d a d e s . E lu s u a r i od e b et e n e re nc u e n t aq u es is eh a nh e c h oo t r o sc a m b i o se ne s t o s f u n c i o n e sp o rp a r t ed eo t r o sp a q u e t e sd ee s o sc a m b i o ss es o b r e s c r i b i r nc o ne s t e p r o c e s od ec a r g a . E la r c h i v o_ u n i t . m a c _t a m b i nc a r g au na r c h i v ol i s p_ u n i t f u n c t i o n s . l i s p _ q u ec o n t i e n el a sf u n c i o n e sL i s pn e c e s a r i o sp a r ae lp a q u e t e . C l i f f o r dY a p pe se la u t o rp r i n c i p a l .H ar e c i b i d ov a l i o s a a y u d ad eB a r t o nW i l l i sd el aU n i v e r s i d a dd eN e b r a s k ae nK e a r n e y ( U N K ) ,R o b e r tD o d i e r ,yo t r ag e n t ei n t r p i d ad e lc o r r e oM a x i m a l i s t a . P r o b a b l e m e n t eh a yu nm o n t nd ee r r o r e s .D j a m es a b e r .' F l o a t 'y' n u m e r ' n oh a c e rl oq u es ee s p e r a b a . T O D O :f u n c i o n a l i d a dd i m e n s i n ,e lm a n e j od el at e m p e r a t u r a ,s h o w a b b r ya m i g o s .M o s t r a re j e m p l o sc o na d i c i nd ec a n t i d a d e sq u ec o n t i e n e n u n i d a d e s .
80.2 Funciones y variables para las unidades

F u n c i n :s e t u n i t s( < l i s t > ) D ef o r m ap r e d e t e r m i n a d a ,e lp a q u e t e_ u n i t _n ou t i l i z an i n g nd e r i v a d o d i m e n s i o n e s ,p e r ov aac o n v e r t i rt o d a sl a su n i d a d e sal o ss i e t ef u n d a m e n t a l d i m e n s i o n e su t i l i z a n d ou n i d a d e sM K S . ( %I 2 )N ; k gm ( %O 2 )2 s
577/633
28/08/13
( %I 3 )d y n ;

1k gm ( %O 3 )( )( ) 1 0 0 0 0 02 s ( %I 4 )g ; 1 ( %O 4 )( )( k g ) 1 0 0 0 ( %I 5 )c e n t i g r a m o*p u l g a d a s/m i n u t o^2 ; 1 2 7k gm ( %O 5 )( )( ) 1 8 0 0 0 0 0 0 0 0 0 0 02 s E na l g u n o sc a s o s ,e s t ee se lc o m p o r t a m i e n t od e s e a d o .S ie lu s u a r i od e s e a u t i l i z a ro t r a su n i d a d e s ,e s t os el o g r ac o ne lc o m a n d o` s e t u n i t s' : ( %I 6 )s e t u n i t s( [ c e n t i g r a m o ,p u l g a d a ,m i n u t o ] ) ; ( %O 6 )h e c h o ( %I 7 )N ; 1 8 0 0 0 0 0 0 0 0 0 0 0 %e nc g ( %O 7 )( )( ) 1 2 72 %M i n ( %I 8 )d y n ; 1 8 0 0 0 0 0 0 %e nc g ( %O 8 )( )( ) 1 2 72 %M i n ( %I 9 )g ; ( %O 9 )( 1 0 0 )( c g ) ( %I 1 0 )c e n t i g r a m o*p u l g a d a s/m i n u t o^2 ; %E nc g ( %O 1 0 )2 %M i n E la j u s t ed el a su n i d a d e se sb a s t a n t ef l e x i b l e .P o re j e m p l o ,s iq u e r e m o s v o l v e rak i l o s ,m e t r o sys e g u n d o sc o m ov a l o r e sp o rd e f e c t op a r al o s d i m e n s i o n e sq u ep o d e m o sh a c e r : ( %I 1 1 )s e t u n i t s( [ k g ,m ,s ] ) ; ( %O 1 1 )d o n e ( %I 1 2 )c e n t i g r a m o*p u l g a d a s/m i n u t o^2 ; 1 2 7k gm ( %O 1 2 )( )( ) 1 8 0 0 0 0 0 0 0 0 0 0 02 s U n i d a d e sd e r i v a d a st a m b i ns o nm a n e j a d o sp o re s t ec o m a n d o : ( %I 1 7 )s e t u n i t s( N ) ; ( %O 1 7 )d o n e ( %I 1 8 )N ; ( %O 1 8 )N ( %I 1 9 )d y n ; 1 ( %O 1 9 )( )( N ) 1 0 0 0 0 0 ( %I 2 0 )k g*m/s^2 ; ( %O 2 0 )N ( %I 2 1 )c e n t i g r a m o*p u l g a d a s/m i n u t o^2 ; 1 2 7 ( %O 2 1 )( )( N ) 1 8 0 0 0 0 0 0 0 0 0 0 0 T e n g ae nc u e n t aq u ee lp a q u e t e_ u n i t _r e c o n o c i l ac o m b i n a c i nn oM K S d em a s a ,l o n g i t u dyt i e m p oi n v e r s oa lc u a d r a d oc o m ou n af u e r z a ,y c o n v e r t i d aaN e w t o n s .A s e sc o m of u n c i o n aM a x i m ae ng e n e r a l . S i ,p o re j e m p l o ,p r e f e r i m o sd i n aaN e w t o n s ,s i m p l e m e n t eh a c e m o sl o s i g u i e n d o : ( %I 2 2 )s e t u n i t s( D Y N ) ; ( %O 2 2 )h e c h o ( %I 2 3 )k g*m/s^2 ; ( %O 2 3 )( 1 0 0 , 0 0 0 )( D Y N ) ( %I 2 4 )c e n t i g r a m o*p u l g a d a s/m i n u t o^2 ; 1 2 7 ( %O 2 4 )( )( D Y N ) 1 8 0 0 0 0 0 0 Q u es ed e j ed es i m p l i f i c a ran i n g u n af u e r z a ,u t i l i z a m o se lu f o r g e t c o m a n d o : ( %I 2 6 )u f o r g e t( D Y N ) ; ( %O 2 6 )f a l s e ( %I 2 7 )k g*m/s^2 ; k gm ( %O 2 7 )2 s ( %I 2 8 )c e n t i g r a m o*p u l g a d a s/m i n u t o^2 ; 1 2 7k gm ( %O 2 8 )( )( ) 1 8 0 0 0 0 0 0 0 0 0 0 02 s E s t oh a b r af u n c i o n a d oi g u a ld eb i e nc o n` u f o r g e t( N ) "o ` U f o r g e t( f u e r z a % ) . C o n s u l t et a m b i n` u f o r g e t' .P a r au t i l i z a re s t af u n c i ne j e c t e s e L o a d( " u n i t " ) .
578/633
28/08/13
F u n c i n :u f o r g e t( < l i s t > ) D ef o r m ap r e d e t e r m i n a d a ,e lp a q u e t e_ u n i t _c o n v i e r t et o d a sl a su n i d a d e sal o ss i e t e d i m e n s i o n e sf u n d a m e n t a l e sq u eu t i l i z a nu n i d a d e sM K S .E s t ec o m p o r t a m i e n t op u e d es e r c a m b i a d oc o ne lc o m a n d o` s e t u n i t s' .D e s p u sd ee s o ,e lu s u a r i op u e d e r e s t a u r a re lc o m p o r t a m i e n t op r e d e t e r m i n a d od eu n ad i m e n s i np a r t i c u l a rm e d i a n t e d e lc o m a n d o` u f o r g e t' : ( %I 1 3 )s e t u n i t s( [ c e n t i g r a m o ,p u l g a d a ,m i n u t o ] ) ; ( %O 1 3 )d o n e ( %I 1 4 )c e n t i g r a m o*p u l g a d a s/m i n u t o^2 ; %E nc g ( %O 1 4 )2 %M i n ( %I 1 5 )u f o r g e t( [ c g , %e n , %m i n ] ) ; ( %O 1 5 )[ f a l s o ,f a l s o ,f a l s o ] ( %I 1 6 )c e n t i g r a m o*p u l g a d a s/m i n u t o^2 ; 1 2 7k gm ( %O 1 6 )( )( ) 1 8 0 0 0 0 0 0 0 0 0 0 02 s ` U f o r g e t' o p e r ae nd i m e n s i o n e s ,n ou n i d a d e s ,p o rl oq u ec u a l q u i e ru n i d a dd eu n d i m e n s i np a r t i c u l a rf u n c i o n a r .L ad i m e n s i ne ns t a m b i ne su n a a r g u m e n t ol e g a l . V e rt a m b i n` s e t u n i t s .P a r au t i l i z a re s t af u n c i ne j e c t e s e L o a d( " u n i t " ) .
F u n c i n :c o n v e r t i r( e x p r ,< l i s t > ) A lr e s t a b l e c e re lm e d i oa m b i e n t eg l o b a le su n ae x a g e r a c i n ,n oe se l ' C o n v e r t i r 'c o m a n d o ,q u ep e r m i t eu n ac o n v e r s i nd et i e m p o .S ep u e d e a c e p t a rn iu ns o l oa r g u m e n t oou n al i s t ad eu n i d a d e sp a r as uu s oe n c o n v e r s i n .C u a n d os er e a l i z au n ao p e r a c i nd ec o n v e r s i n ,l og l o b a ln o r m a l e s s i s t e m ad ee v a l u a c i ns ep a s ap o ra l t o ,c o ne lf i nd ee v i t a rl ad e s e a d a r e s u l t a d os ec o n v i e r t ed en u e v o .C o m oc o n s e c u e n c i ad ee l l o ,p a r ai n e x a c t a c l c u l o sa d v e r t e n c i a s" r a t a "s e r nv i s i b l e ss ie lm u n d i a l c o n t r o l a re s t ec o m p o r t a m i e n t o( ` r a t p r i n t' )m e d i oa m b i e n t ee sc i e r t o .E s t e T a m b i ne s t i lp a r ae lp u n t od ec o m p r o b a c i nd el ae x a c t i t u dd eu nm u n d i a l c o n v e r s i n .O t r ac a r a c t e r s t i c ae s' c o n v e r t i r 'p e r m i t i r au nu s u a r i oh a c e r C o n v e r s i o n e sd i m e n s i nd el ab a s e ,i n c l u s os ie le n t o r n om u n d i a ls ee s t a b l e c ee n s i m p l i f i c a rau n ad i m e n s i nd e r i v a d a . ( %I 2 )k g*m/s^2 ; k gm ( %O 2 )2 s ( %I 3 )c o n v e r t( k g*m/s^2 ,[ g ,k m ,s ] ) ; gk m ( %O 3 )2 s ( %I 4 )c o n v e r t( k g*m/s^2 ,[ g ,p u l g a d a s ,m i n u t o ] ) ; ' R a t a 'r e e m p l a z a d op o r3 9 . 3 7 0 0 7 8 7 4 0 1 5 7 4 85 0 0 0 / 1 2 7=3 9 . 3 7 0 0 7 8 7 4 0 1 5 7 4 8 1 8 0 0 0 0 0 0 0 0 0 %e ng ( %O 4 )( )( ) 1 2 72 %M i n ( %I 5 )c o n v e r t( k g*m/s^2 ,[ N ] ) ; ( %O 5 )N ( %I 6 )c o n v e r t( k g*m^2/s^2 ,[ N ] ) ; ( %O 6 )mN ( %I 7 )s e t u n i t s( [ N ,J ] ) ; ( %O 7 )h e c h o ( %I 8 )c o n v e r t( k g*m^2/s^2 ,[ N ] ) ; ( %O 8 )mN ( %I 9 )c o n v e r t( k g*m^2/s^2 ,[ N ,p u l g a d a s ] ) ; ' R a t a 'r e e m p l a z a d op o r3 9 . 3 7 0 0 7 8 7 4 0 1 5 7 4 85 0 0 0 / 1 2 7=3 9 . 3 7 0 0 7 8 7 4 0 1 5 7 4 8 5 0 0 0 ( %O 9 )( )( %e nN ) 1 2 7 ( %I 1 0 )c o n v e r t( k g*m^2/s^2 ,[ J ] ) ; ( %O 1 0 )J ( %I 1 1 )k g*m^2/s^2 ; ( %O 1 1 )J ( %I 1 2 )s e t u n i t s( [ g ,p u l g a d a s ,s ] ) ; ( %O 1 2 )d o n e ( %I 1 3 )k g*m/s^2 ; ( %O 1 3 )N ( %I 1 4 )u f o r g e t( N ) ; ( %O 1 4 )f a l s e ( %I 1 5 )k g*m/s^2 ; 5 0 0 0 0 0 0 %e ng ( %O 1 5 )( )( ) 1 2 72 s ( %I 1 6 )c o n v e r t( k g*m/s^2 ,[ g ,p u l g a d a s ,s ] ) ;
579/633
28/08/13

' R a t a 'r e e m p l a z a d op o r3 9 . 3 7 0 0 7 8 7 4 0 1 5 7 4 85 0 0 0 / 1 2 7=3 9 . 3 7 0 0 7 8 7 4 0 1 5 7 4 8 5 0 0 0 0 0 0 %e ng ( %O 1 6 )( )( ) 1 2 72 s V e rt a m b i n` s e t u n i t s' y ù f o r g e t ' .P a r au t i l i z a re s t af u n c i ne j e c t e s e p r i m e r ol o a d( " u n i t " ) .
O p c i o n a lv a r i a b l e s :u s e r s e t u n i t s V a l o rp r e d e t e r m i n a d o :n i n g u n o S iu nu s u a r i od e s e at e n e ru nc o m p o r t a m i e n t od eu n i d a dp o rd e f e c t od i s t i n t o d e s c r i t o ,p u e d e nh a c e ru s od e_ m a x i m a i n i t . m a c _yl a v a r i a b l e s_ u s e r s e t u n i t s _ .E lp a q u e t e_ u n i t _c o m p r o b a r e ne li n i c i o p a r av e rs ie s t av a r i a b l es el eh aa s i g n a d ou n al i s t a .S il oh ah e c h o , u s a r s e t u n i t se ne s al i s t ayt o m a rl a su n i d a d e sd ee s al i s t a as e rv a l o r e sp r e d e t e r m i n a d o s .` U f o r g e t' v o l v e r a lc o m p o r t a m i e n t od e f i n i d op o r u s e r s e t u n i t ss o b r es u sp r o p i o sv a l o r e sp o rd e f e c t o .P o re j e m p l o ,s it e n e m o su n a a r c h i v o_ m a x i m a i n i t . m a c _c o n t i e n e : u s e r s e t u n i t s :[ N ,J ] ; v e r a m o se ls i g u i e n t ec o m p o r t a m i e n t o : ( %I 1 )l o a d( " u n i t " )$ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * *U n i d a d e sv e r s i n0 . 5 0* *D e f i n i c i o n e se nb a s eal ar e f e r e n c i ad eN I S Te n* *C o n s t a n t e s ,u n i d a d e s ,yl ai n c e r t i d u m b r e* *F a c t o r e sd ec o n v e r s i nd ev a r i a sf u e n t e s ,e n t r ee l l a s* *N I S Tyu n i d a d e sG N Up a q u e t e* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * R e d e f i n i c i nd el a sf u n c i o n e sn e c e s a r i a s. . . A D V E R T E N C I A :l ar e d e f i n i c i nd el af u n c i n :D E F U N/d e f m a c r o N i v e ls u p e r i o r M A C S Y M A E V A L. . . A D V E R T E N C I A :D E F U N/d e f m a c r o :l ar e d e f i n i c i nd el af u n c i nM S E T C H K. . . A D V E R T E N C I A :D E F U N/d e f m a c r o :l ar e d e f i n i c i nd el af u n c i nK I L L 1. . . A D V E R T E N C I A :D E F U N/d e f m a c r o :l ar e d e f i n i c i nd el af u n c i nN F O R M A C. . . L ai n i c i a l i z a c i nd el au n i d a da r r a y s. . . L i s t o . U s e rd e f a u l t se n c o n t r a r o n. . . U s e rd e f a u l t si n i c i a l i z a n . ( %I 2 )k g*m/s^2 ; ( %O 2 )N ( %I 3 )k g*m^2/s^2 ; ( %O 3 )J ( %I 4 )k g*m^3/s^2 ; ( %O 4 )Jm ( %I 5 )k g*m*k m/s^2 ; ( %O 5 )( 1 0 0 0 )( J ) ( %I 6 )s e t u n i t s( [ d y n ,e V ] ) ; ( %O 6 )h e c h o ( %I 7 )k g*m/s^2 ; ( %O 7 )( 1 0 0 , 0 0 0 )( D Y N ) ( %I 8 )k g*m^2/s^2 ; ( %O 8 )( 6 2 4 1 5 0 9 5 9 6 4 7 7 0 4 2 6 8 8 )( e V ) ( %I 9 )k g*m^3/s^2 ; ( %O 9 )( 6 2 4 1 5 0 9 5 9 6 4 7 7 0 4 2 6 8 8 )( e Vm ) ( %I 1 0 )k g*m*k m/s^2 ; ( %O 1 0 )( 6 2 4 1 5 0 9 5 9 6 4 7 7 0 4 2 6 8 8 0 0 0 )( e V ) ( %I 1 1 )u f o r g e t( [ d y n ,e V ] ) ; ( %O 1 1 )[ f a l s o ,f a l s e ] ( %I 1 2 )k g*m/s^2 ; ( %O 1 2 )N ( %I 1 3 )k g*m^2/s^2 ; ( %O 1 3 )J ( %I 1 4 )k g*m^3/s^2 ; ( %O 1 4 )Jm ( %I 1 5 )k g*m*k m/s^2 ; ( %O 1 5 )( 1 0 0 0 )( J ) S i nu s e r s e t u n i t s` ' ,l a se n t r a d a si n i c i a l e sh a b r a ns i d o c o n v i e r t ee nM K Syu f o r g e th a b r ad a d ol u g a rau nr e t o r n oal a N o r m a sM K S .E nc a m b i o ,l a sp r e f e r e n c i a sd el o su s u a r i o ss e a nr e s p e t a d o st a n t oe n c a s o s .T e n g ae nc u e n t ae s t o st o d a v ap u e d e ns e ra n u l a d o ss is ed e s e a .A e l i m i n a rp o rc o m p l e t oe s t as i m p l i f i c a c i n-e sd e c i r ,h a c e rq u ee lu s u a r i o r e s t a b l e c e rl o sv a l o r e sp r e d e t e r m i n a d o sd ec o n f i g u r a c i nd ef b r i c a-e l` d o n t u s e d i m e n s i o n' c o m a n d os ep u e d eu t i l i z a r .` U f o r g e t' p u e d er e s t a u r a rl ac o n f i g u r a c i nd eu s u a r i od en u e v o , p e r os l os i` u s e d i m e n s i o n' l ol i b e r ap a r as uu s o .A l t e r n a t i v a m e n t e , ` K i l l( u s e r s e t u n i t s )' v a nae l i m i n a rp o rc o m p l e t ot o d o sl o sc o n o c i m i e n t o sd el a v a l o r e sp r e d e t e r m i n a d o sd e lu s u a r i od el as e s i n .E s t o ss o na l g u n o se j e m p l o sd ec m o e s t a sd i v e r s a so p c i o n e sf u n c i o n a n . ( %I 2 )k g*m/s^2 ; ( %O 2 )N ( %I 3 )k g*m^2/s^2 ; ( %O 3 )J ( %I 4 )s e t u n i t s( [ d y n ,e V ] ) ; ( %O 4 )h e c h o ( %I 5 )k g*m/s^2 ; ( %O 5 )( 1 0 0 , 0 0 0 )( D Y N ) ( %I 6 )k g*m^2/s^2 ; ( %O 6 )( 6 2 4 1 5 0 9 5 9 6 4 7 7 0 4 2 6 8 8 )( e V ) ( %I 7 )u f o r g e t( [ d y n ,e V ] ) ; ( %O 7 )[ f a l s o ,f a l s e ] ( %I 8 )k g*m/s^2 ;
580/633
28/08/13

( %O 8 )N ( %I 9 )k g*m^2/s^2 ; ( %O 9 )J ( %I 1 0 )d o n t u s e d i m e n s i o n( N ) ; ( %O 1 0 )[ %v i g o r ] ( %I 1 1 )d o n t u s e d i m e n s i o n( J ) ; ( %O 1 1 )[ %d el ae n e r g a ,v i g o r % ] ( %I 1 2 )k g*m/s^2 ; k gm ( %O 1 2 )2 s ( %I 1 3 )k g*m^2/s^2 ; 2 k gm ( %O 1 3 )2 s ( %I 1 4 )s e t u n i t s( [ d y n ,e V ] ) ; ( %O 1 4 )d o n e ( %I 1 5 )k g*m/s^2 ; k gm ( %O 1 5 )2 s ( %I 1 6 )k g*m^2/s^2 ; 2 k gm ( %O 1 6 )2 s ( %I 1 7 )u f o r g e t( [ d y n ,e V ] ) ; ( %O 1 7 )[ f a l s o ,f a l s e ] ( %I 1 8 )k g*m/s^2 ; k gm ( %O 1 8 )2 s ( %I 1 9 )k g*m^2/s^2 ; 2 k gm ( %O 1 9 )2 s ( %I 2 0 )u s e d i m e n s i o n( N ) ; L i s t o .P a r aq u eM a x i m as i m p l i f i q u eae s t ad i m e n s i n ,u t i l i c e s e t u n i t s( [ u n i d a d ] )p a r as e l e c c i o n a ru n au n i d a d . ( %O 2 0 )t r u e ( %I 2 1 )u s e d i m e n s i o n( J ) ; L i s t o .P a r aq u eM a x i m as i m p l i f i q u eae s t ad i m e n s i n ,u t i l i c e s e t u n i t s( [ u n i d a d ] )p a r as e l e c c i o n a ru n au n i d a d . ( %O 2 1 )t r u e ( %I 2 2 )k g*m/s^2 ; k gm ( %O 2 2 )2 s ( %I 2 3 )k g*m^2/s^2 ; 2 k gm ( %O 2 3 )2 s ( %I 2 4 )s e t u n i t s( [ d y n ,e V ] ) ; ( %O 2 4 )d o n e ( %I 2 5 )k g*m/s^2 ; ( %O 2 5 )( 1 0 0 , 0 0 0 )( D Y N ) ( %I 2 6 )k g*m^2/s^2 ; ( %O 2 6 )( 6 2 4 1 5 0 9 5 9 6 4 7 7 0 4 2 6 8 8 )( e V ) ( %I 2 7 )u f o r g e t( [ d y n ,e V ] ) ; ( %O 2 7 )[ f a l s o ,f a l s e ] ( %I 2 8 )k g*m/s^2 ; ( %O 2 8 )N ( %I 2 9 )k g*m^2/s^2 ; ( %O 2 9 )J ( %I 3 0 )k i l l( u s e r s e t u n i t s ) ; ( %O 3 0 )d o n e ( %I 3 1 )u f o r g e t( [ d y n ,e V ] ) ; ( %O 3 1 )[ f a l s o ,f a l s e ] ( %I 3 2 )k g*m/s^2 ; k gm ( %O 3 2 )2 s ( %I 3 3 )k g*m^2/s^2 ; 2 k gm ( %O 3 3 )2 s D e s a f o r t u n a d a m e n t ee s t aa m p l i av a r i e d a dd eo p c i o n e se su np o c oc o n f u s o a lp r i n c i p i o ,p e r ou n av e zq u ee lu s u a r i oc r e c ea c o s t u m b r a d oae l l o sd e b e ne n c o n t r a r t i e n e nu nc o n t r o lm u yc o m p l e t os o b r ee le n t o r n od et r a b a j o .
F u n c i n :m e t r i c e x p a n d a l l( < x > )
581/633
28/08/13

R e c o n s t r u y el au n i d a dm u n d i a lm u e s t r al ac r e a c i na u t o m t i c ad et o d a sd e s e a d a u n i d a d e sm t r i c a s .< x >e su na r g u m e n t on u m r i c oq u es eu t i l i z ap a r a e s p e c i f i c a re ln m e r od ep r e f i j o sm t r i c o sd e s e o sd e f i n ee lu s u a r i o .L a a r g u m e n t o ss o nl o ss i g u i e n t e s ,c o nc a d an m e r om a y o rd e f i n i c i nd et o d o sl o s b a j a rl a su n i d a d e sn m e r o s' : 0-N i n g u n o .S l ol a su n i d a d e sd eb a s e 1-k i l o ,c e n t i ,m i l i ( P r e d e t e r m i n a d o )2-g i g a ,m e g a ,k i l o ,h e c t o ,d e c a ,d e c i ,c e n t i ,m i l i , m i c r o ,n a n o 3-p e t a ,t e r a ,g i g a ,m e g a ,k i l o ,h e c t o ,d e c a ,d e c i , c e n t i ,m i l i ,m i c r o ,n a n o ,p i c o ,f e m t o 4-t o d a s N o r m a l m e n t e ,M a x i m an od e f i n i r l ap l e n ae x p a n s i ny aq u ee s t a r e s u l t a d o se nu nn m e r om u yg r a n d ed eu n i d a d e s ,p e r o` m e t r i c e x p a n d a l l' p u e d e s e ru t i l i z a d op a r ar e c o n s t r u i rl al i s t ad eu n am a n e r am som e n o sc o m p l e t a . L av a r i a b l er e l e v a n t ee ne la r c h i v o_ u n i t . m a c _e s< %u n i t e x p a n d > .
V a r i a b l e :%u n i t e x p a n d V a l o rp o rd e f e c t o :2' E s t ee se lv a l o rp r o p o r c i o n a d oa` m e t r i c e x p a n d a l l' d u r a n t el ap r i m e r a c a r g ad e_ u n i t _ .
81 zeilberger
I n t r o d u c c i naz e i l b e r g e r F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r
81.1 Introduccin a zeilberger

Z e i l b e r g e r` ' e su n ai m p l e m e n t a c i nd e la l g o r i t m od eZ e i l b e r g e rd e f i n i d ap a r a s u m ah i p e r g e o m t r i c a ,ye la l g o r i t m od eG o s p e rp o rt i e m p oi n d e f i n i d o s u m ah i p e r g e o m t r i c a . ` Z e i l b e r g e r' h a c eu s od e lm t o d od eo p t i m i z a c i n "f i l t r a d o" d e s a r r o l l a d op o rA x e lR i e s e . ` Z e i l b e r g e r' f u ed e s a r r o l l a d op o rF a b r i z i oC a r u s o . ( Z e i l b e r g e r ) c a r g a s `c a r g ae s t ep a q u e t e .
81.2 Funciones y variables para zeilberger

F u n c i n :A n t i D i f f e r e n c e( F _ k ,< k > ) D e v u e l v ee la n t i d i f e r e n c i ah i p e r g e o m t r i c ad eF _ k ,s ie x i s t e . D el oc o n t r a r i o` A n t i D i f f e r e n c e' d e v u e l v e `n o _ h y p _ a n t i d i f f e r e n c e ' .
F u n c i n :G o s p e r( F _ k ,< k > ) D e v u e l v ee lr a c i o n a lc e r t i f i c a d od eR( k )p a r aF _ k ,e sd e c i r ,u ns e rr a c i o n a l f u n c i nt a lq u eF _ k=R( k+ 1 )F _( k+ 1 )-R( k )F _ k ,s ie x i s t e . D el oc o n t r a r i o ,` G o s p e r' d e v u e l v e `n o _ h y p _ s o l ' .
F u n c i n :G o s p e r S u m( F _ k ,< k > ,< a > ) D e v u e l v ee ls u m m m a t i o nd eF _ kd e< k >=< a >e n< k >=s iF _ k t i e n eu na n t i d i f e r e n c i ah i p e r g e o m t r i c a .D el oc o n t r a r i o ,` G o s p e r S u m' d e v u e l v e` n o n g o s p e r _ s u m m a b l e' . E j e m p l o s : ( %I 1 )l o a d( z e i l b e r g e r )$ ( %I 2 )G o s p e r S u m( ( 1 )^k*k/( 4*k^2-1 ) ,k ,1 ,n ) ; E c u a c i o n e sd e p e n d i e n t e se l i m i n a d o s :( 1 ) 3n+1 ( N+)( -1 ) 21 ( %O 2 )24 2( 4( n+1 )-1 ) ( %I 3 )G o s p e r S u m( 1/( 4*k^2-1 ) ,k ,1 ,n ) ; 3 -N21 ( %O 3 )-+22 4( n+1 )-1 ( %I 4 )G o s p e r S u m( x^k ,k ,1 ,n ) ;
582/633
28/08/13

n+1 x x ( %O 4 )x-1x-1 ( %I 5 )G o s p e r S u m( ( 1 )^k*a/( K !*( a-k ) ) ,k ,1 ,n ! ) ; n+1 u n !( N+1 )( -1 )u n ! ( %O 5 )a( -n+a-1 ) !( N+1 ) !a( a-1 ) ! ( %I 6 )G o s p e r S u m( k*k ,k ,1 ,n ! ) ; E c u a c i o n e sd e p e n d i e n t e se l i m i n a d o s :( 1 ) ( %O 6 )( n+1 ) !-1 ( %I 7 )G o s p e r S u m( ( k+1 )*k/( k+1 ) ,k ,1 ,n ! ) ; ( N+1 )( n+2 )( n+1 ) ! ( %O 7 )-1 ( N+2 ) ! ( %I 8 )G o s p e r S u m( 1/( ( a-k )*k ) ,k ,1 ,n ! ) ; ( %O 8 )N O N _ G O S P E R _ S U M M A B L E
F u n c i n :p a r G o s p e r( F _( n ,k ) ,< k > ,< n >< d > ) L o si n t e n t o sd ee n c o n t r a ru n a< d > s i m ar e p e t i c i np a r aq u eF _( n ,k ) . E la l g o r i t m op r o d u c eu n as e c u e n c i a[ s _ 1 ,s _ 2 ,. . . ,s _ m ]d es o l u c i o n e s . C a d as o l u c i nt i e n el af o r m a [ R( n ,k ) ,[ a _ 0 ,a _ 1 ,. . . ,A _ D ] ] . ` ' D e v u e l v e '[ ]' p a r G o s p e rs in ol o g r ae n c o n t r a ru n ar e c u r r e n c i a .
F u n c i n :Z e i l b e r g e r( F _( n ,k ) ,< k > ,< n > ) C a l c u l al as u m ah i p e r g e o m t r i c ai n d e f i n i d ad e F _( n ,k ) . ` Z e i l b e r g e r' i n v o c ap r i m e r oG o s p e r ` ' ,ys ie s of a l l ap a r ae n c o n t r a ru n a s o l u c i n ,e n t o n c e si n v o c a` p a r G o s p e r' c o no r d e n1 ,2 ,3 ,. . . ,h a s t a ` M a x _ o r d' .S iZ e i l b e r g e re n c u e n t r au n as o l u c i na n t e sd el l e g a r ` M a x _ o r d' ,s ed e t i e n eyd e v u e l v el as o l u c i n . L o sa l g o r i t m o sd el o sr e n d i m i e n t o sd eu n as e c u e n c i a[ s _ 1 ,s _ 2 ,. . . ,s _ m ]d es o l u c i o n e s . C a d as o l u c i nt i e n el af o r m a [ R( n ,k ) ,[ a _ 0 ,a _ 1 ,. . . ,A _ D ] ] . ` ' D e v u e l v e '[ ]' Z e i l b e r g e rs in ol o g r ae n c o n t r a ru n as o l u c i n . ` Z e i l b e r g e r' i n v o c a `G o s p e r 's i` G o s p e r _ i n _ Z e i l b e r g e r' e s ` T r u e' .
81.3 variables globales generales

V a r i a b l eg l o b a l :m a x _ o r d V a l o rp o rd e f e c t o :5 ` M a x _ o r d' e se lm x i m oo r d e nd er e c u r r e n c i ai n t e n t a d op o r ` Z e i l b e r g e r' .
V a r i a b l eg l o b a l :s i m p l i f i e d _ o u t p u t V a l o rp o rd e f e c t o :f a l s e' C u a n d o` s i m p l i f i e d _ o u t p u t' e s `t r u e ' ,l a sf u n c i o n e sd e l` z e i l b e r g e r' p a q u e t ed ei n t e n t od eu n am a y o rs i m p l i f i c a c i nd el as o l u c i n .
V a r i a b l eg l o b a l :l i n e a r _ s o l v e r V a l o rp o rd e f e c t o :l i n s o l v e' L o sn o m b r e sd e` l i n e a r _ s o l v e re ls o l u c i o n a d o rq u es eu t i l i z ap a r ar e s o l v e re ls i s t e m a d ee c u a c i o n e se ne la l g o r i t m od eZ e i l b e r g e r .
V a r i a b l e sg l o b a l e s :a d v e r t e n c i a s V a l o rp o rd e f e c t o :t r u e' C u a n d o` a d v e r t e n c i a s' e s `t r u e ' ,f u n c i o n ae ne lp a q u e t e` z e i l b e r g e r' i m p r i m i rm e n s a j e sd ea d v e r t e n c i ad u r a n t el ae j e c u c i n .
583/633
28/08/13
V a r i a b l eg l o b a l :G o s p e r _ i n _ Z e i l b e r g e r V a l o rp o rd e f e c t o :t r u e'
C u a n d o` G o s p e r _ i n _ Z e i l b e r g e r' e s `t r u e ' ,l af u n c i n` Z e i l b e r g e r' l l a m a d a s` G o s p e r "a n t e sd el l a m a r` p a r G o s p e r' .D el oc o n t r a r i o , ` Z e i l b e r g e r "v ai n m e d i a t a m e n t ea l` p a r G o s p e r' .
V a r i a b l eg l o b a l :t r i v i a l _ s o l u t i o n s V a l o rp o rd e f e c t o :t r u e' C u a n d o` t r i v i a l _ s o l u t i o n s' e s `t r u e ' ,` s o l u c i o n e sd e v o l u c i o n e sZ e i l b e r g e r' q u et i e n e nc e r t i f i c a d oi g u a lac e r o ,ot o d o sl o sc o e f i c i e n t e si g u a l e sa c e r o .
81.4 Las variables relacionadas con la prueba modular

V a r i a b l eg l o b a l :m o d _ t e s t V a l o rp o rd e f e c t o :f a l s e' C u a n d o` m o d _ t e s t' e s `t r u e ' ,` p a r G o s p e r' e j e c u t au n ap r u e b am o d u l a rp a r a s i s t e m a sd e s c a r t a n d os i ns o l u c i o n e s .
V a r i a b l eg l o b a l :m o d u l a r _ l i n e a r _ s o l v e r V a l o rp o rd e f e c t o :l i n s o l v e' ` M o d u l a r _ l i n e a r _ s o l v e r' n o m b r ae ls o l v e rl i n e a lu t i l i z a d op o re l p r u e b am o d u l a rd e` p a r G o s p e r' .
V a r i a b l eg l o b a l :e v _ p o i n t V a l o rp o rd e f e c t o :b i g _ p r i m e s[ 1 0 ]" ` E v _ p o i n t' e se lv a l o re ne lq u es ee v a l al av a r i a b l ed e< n > a le j e c u t a rl ap r u e b am o d u l a rd e` p a r G o s p e r' .
V a r i a b l eg l o b a l :m o d _ b i g _ p r i m e V a l o rp o rd e f e c t o :b i g _ p r i m e s[ 1 ]' ` M o d _ b i g _ p r i m e' e se lm d u l ou t i l i z a d op o rl ap r u e b am o d u l a rd e ` P a r G o s p e r' .
V a r i a b l eg l o b a l :m o d _ t h r e s h o l d V a l o rp o rd e f e c t o :4 ` M o d _ t h r e s h o l d' e se lm a y o rp e d i d op a r aq u el ap r u e b am o d u l a r i n' s ei n t e n t a` p a r G o s p e r .
82 ndices
A p n d i c eAye l n d i c ed eF u n c i nV a r i a b l e * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ?[ n d i c e ? ] * :F u n c i o n e sc o m b i n a t o r i a s . ( L n e a5 8 ) * : F u n c i o n e sc o m b i n a t o r i a s . ( L n e a7 ) *# :O p e r a d o r e sd ee c u a c i o n e s . ( L n e a7 ) * % :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L n e a9 2 ) * % % :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L n e a1 0 6 ) * %Y :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L n e a1 6 ) * %C :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L n e a7 6 ) * %E :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a7 ) * %E _ t o _ n u m l o g :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L n e a7 )
584/633
28/08/13

* %E d i s p f l a g :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L n e a7 ) * %E m o d e :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L n e a1 7 ) * %E n u m e r :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L n e a3 4 ) * %F :F u n c i o n e sh i p e r g e o m t r i c a s . ( L n e a2 2 ) * %G a m m a :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a2 2 ) * %I :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a1 3 ) * %I a r g s :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L n e a5 4 ) * %S i :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L n e a9 1 ) * %K 1 :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L n e a8 0 ) * %K 2 :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L n e a8 4 ) * %M :F u n c i o n e sh i p e r g e o m t r i c a s . ( L n e a1 3 ) * %O :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e1 3 4 ) * %P h i :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a4 9 ) * %P i :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L i n e1 0 5 ) * %P i a r g s :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L n e a7 ) * %R n u m _ l i s t :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L n e a7 ) * %S :F u n c i o n e sd eB e s s e l .( L i n e1 7 4 ) * %T h :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e1 5 3 ) * %U n i t e x p a n d :F u n c i o n e syv a r i a b l e sp a r al a su n i d a d e s . ( L i n e4 1 4 ) * %W :F u n c i o n e sh i p e r g e o m t r i c a s . ( L n e a1 8 ) *" :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L n e a7 ) * ' ' :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L n e a1 0 2 ) * * :L o so p e r a d o r e sa r i t m t i c o s . ( L n e a9 ) * * * :L o so p e r a d o r e sa r i t m t i c o s . ( L i n e1 6 7 ) *+ :L o so p e r a d o r e sa r i t m t i c o s . ( L n e a7 ) *:L o so p e r a d o r e sa r i t m t i c o s . ( L n e a8 ) * : .O p e r a d o r e sa r i t m t i c o s . ( L i n e2 0 9 ) */ :L o so p e r a d o r e sa r i t m t i c o s . ( L n e a1 0 ) *: :L o so p e r a d o r e sd ea s i g n a c i n . ( L n e a7 ) *: : :O p e r a d o r e sd ea s i g n a c i n . ( L n e a9 0 ) *: := :L o so p e r a d o r e sd ea s i g n a c i n . ( L i n e1 1 6 ) * := :L o so p e r a d o r e sd ea s i g n a c i n . ( L i n e1 9 0 ) *< :O p e r a d o r e sr e l a c i o n a l e s . ( L n e a7 ) *< = :O p e r a d o r e sr e l a c i o n a l e s . ( L n e a8 ) *= :O p e r a d o r e sd ee c u a c i o n e s . ( L n e a3 1 ) * > :L o so p e r a d o r e sr e l a c i o n a l e s . ( L n e a1 0 ) * >= :O p e r a d o r e sr e l a c i o n a l e s . ( L n e a9 ) * :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e1 8 3 ) * : ?F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e1 9 6 ) *@ :F u n c i o n e syv a r i a b l e sp a r al a se s t r u c t u r a s . ( L n e a7 1 ) *[ :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L n e a7 ) *\\ :I n t r o d u c c i nal a sc a d e n a s . ( L n e a6 ) * ] :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L n e a8 ) *^ :L o so p e r a d o r e sa r i t m t i c o s . ( L n e a1 1 ) *^^ :L o so p e r a d o r e sa r i t m t i c o s . ( L i n e1 9 0 ) *_ :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L n e a4 7 ) *_ _ :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L n e a7 ) *` :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L n e a7 ) *A b a s e p :F u n c i o n e syv a r i a b l e sp a r aa t e n s o r . ( L i n e1 3 6 )
585/633
28/08/13
*A B S :F u n c i o n e sp a r al o sn m e r o s .

( L n e a7 ) *A b s b o x c h a r :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L n e a2 7 ) *A b s i n t :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a3 2 ) *A b s o l u t e _ r e a l _ t i m e :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L i n e1 4 6 ) *A c o s :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L n e a8 4 ) *A c o s h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L n e a8 8 ) *A c o t :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L n e a9 2 ) *A c o t h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L n e a9 6 ) *A c s c :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 0 0 ) *A c s c h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L n e a1 0 4 ) *A c t i v a r :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L n e a7 ) *A c t i v e c o n t e x t s :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L n e a1 7 ) *A d a p t _ d e p t h< 1 > :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 9 5 ) *A d a p t _ d e p t h :O p c i o n e sg r f i c a s .( L n e a1 5 ) *A d d _ e d g e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 2 3 5 ) *A d d _ e d g e s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 2 4 9 ) *A d d _ v e r t e x :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 2 6 4 ) *A d d _ v e r t i c e s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 2 7 9 ) *A d d c o l :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L n e a7 ) *A d e m s :L o so p e r a d o r e sa r i t m t i c o s . ( L n e a7 ) *A d i t i v o :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L n e a7 ) *A d d m a t r i c e s :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L n e a7 ) *A d d R o w :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L n e a1 2 ) *A d i m :F u n c i o n e syv a r i a b l e sp a r aa t e n s o r . ( L n e a7 6 ) *A d j a c e n c y _ m a t r i x :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 6 1 ) *L i n d a n :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L n e a7 ) *A d j u n t o :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L n e a1 7 ) *A f :F u n c i o n e syv a r i a b l e sp a r aa t e n s o r . ( L n e a1 0 4 ) *A f o r m :F u n c i o n e syv a r i a b l e sp a r aa t e n s o r . ( L n e a8 4 ) *A g d :f u n c t sp a q u e t e .( L i n e1 6 7 ) *A i r y _ a is i e m p r e :F u n c i o n e sd eA i r y .( L n e a1 6 ) *A i r y _ b i :F u n c i o n e sd eA i r y .( L n e a3 0 ) *A i r y _ d a i :F u n c i o n e sd eA i r y .( L n e a2 4 ) *A i r y _ d b i :F u n c i o n e sd eA i r y .( L n e a3 8 ) *A l g _ t y p e :F u n c i o n e syv a r i a b l e sp a r aa t e n s o r . ( L n e a7 1 ) *A l g e b r a i c a :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L n e a7 ) *A l g e p s i l o n :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L n e a3 1 ) *A l g e x a c t :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L n e a3 7 ) *A l g s y s :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L n e a5 3 ) *A l i a s :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L n e a8 ) *A l i a s :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L n e a1 3 ) *A l l _ d o t s i m p _ d e n o m s :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L i n e1 4 3 ) *A l l b u t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L n e a2 1 ) *A l l r o o t s :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e1 5 6 ) *A l l s y m :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e5 2 5 ) *A l f a b t i c o :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L n e a7 ) *A l p h a c h a r p :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a7 ) *A l p h a n u m e r i c p :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a1 1 ) *A m o r t i z a c i n :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L n e a1 0 6 ) *Y :L o so p e r a d o r e sl g i c o s .( L n e a7 ) *A n n u i t y _ f v :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L n e a6 7 ) *A n n u i t y _ p v :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L n e a5 4 )
586/633
28/08/13

*A n t i d :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L n e a7 ) *A n t i d i f f :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L n e a6 1 ) *A n t i D i f f e r e n c e :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L n e a7 ) *A n t i s i m t r i c a :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L n e a3 1 ) *A n e x a r :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L n e a4 1 ) *A p p e n d f i l e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L n e a7 ) *A p l i c a r :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L n e a7 ) *A p p l y 1 :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L n e a7 ) *A p p l y 2 :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L n e a2 2 ) *A p p l y b 1 :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L n e a3 5 ) *A p r o p o s :F u n c i o n e syv a r i a b l e sp a r al aa y u d a . ( L n e a7 ) *A r g s :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L n e a5 2 ) *A r i t _ a m o r t i z a t i o n :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L i n e1 3 1 ) *A r i t m t i c a :f u n c t sp a q u e t e .( L i n e1 1 9 ) *A r i t h s u m :f u n c t sp a q u e t e .( L n e a1 4 0 ) *A r r a y :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L n e a9 ) *A r r a y a p p l y :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L n e a3 6 ) *A r r a y i n f o :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L n e a4 4 ) *A r r a y m a k e :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L i n e1 4 2 ) *A r r a y s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L i n e1 8 7 ) *A s c i i :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a1 5 ) *A s e c :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 0 8 ) *A s e c h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L n e a1 1 2 ) *A s i n :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 1 6 ) *A s i n h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L n e a1 2 0 ) *A s k e x p :F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s . ( L n e a7 ) *A s k i n t e g e r :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L n e a2 8 ) *A s k s i g n :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L n e a4 0 ) *O p e r a d o rd ea s i g n a c i n :L o so p e r a d o r e sd ea s i g n a c i n . ( L n e a7 ) *O p e r a d o rd ea s i g n a c i n( e v a l ai z q u i e r d a ) :L o so p e r a d o r e sd ea s i g n a c i n . ( L n e a9 0 ) *A s o c :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L n e a5 0 ) *A s s o c _ l e g e n d r e _ p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a7 ) *A s s o c _ l e g e n d r e _ q :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a1 5 ) *A s u m i r :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L n e a4 9 ) *A s s u m e _ e x t e r n a l _ b y t e _ o r d e r :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ab i n a r i a . ( L n e a7 ) *A s s u m e _ p o s :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e1 3 4 ) *A s s u m e _ p o s _ p r e d :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e1 5 9 ) *A s s u m e s c a l a r :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L n e a1 1 0 ) *A s y m b o l :F u n c i o n e syv a r i a b l e sp a r aa t e n s o r . ( L n e a9 1 ) *A s y m p a :I n t r o d u c c i naa s y m p a . ( L n e a7 ) *E n :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L n e a1 1 2 ) *A t a n :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 2 4 ) *A t a n 2 :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 2 8 ) *A t a n h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 3 3 ) *A t e n s i m p :F u n c i o n e syv a r i a b l e sp a r aa t e n s o r . ( L n e a6 2 ) * t o m o :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L n e a6 5 ) *A t o m g r a d :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e1 5 7 ) *A t r i g 1 :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 3 7 ) *A t v a l u e :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e1 6 2 ) *A u g c o e f m a t r i x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l .
587/633
28/08/13

( L n e a2 3 ) *A u g m e n t e d _ l a g r a n g i a n _ m e t h o d :F u n c i o n e syv a r i a b l e sp a r aa u g m e n t e d _ l a g r a n g i a n . ( L n e a1 3 ) *A v :F u n c i o n e syv a r i a b l e sp a r aa t e n s o r . ( L i n e1 1 1 ) *A v e r a g e _ d e g r e e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 7 7 ) *E j e s :T r a z a d oO p c i o n e s .( L n e a2 2 ) *A x i s _ 3 d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 0 4 ) *A x i s _ b o t t o m :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 2 3 ) *A x i s _ l e f t :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 4 0 ) *A x i s _ r i g h t :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 5 7 ) *A x i s _ t o p :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 7 4 ) *A c i m u t :O p c i o n e sg r f i c a s .( L n e a3 2 ) *B a c k g r o u n d _ c o l o r :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 9 1 ) *B a r r ai n v e r t i d a :I n t r o d u c c i nal a sc a d e n a s . ( L n e a6 ) *B a c k s u b s t :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e2 2 4 ) *B a c k t r a c e :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L n e a8 ) *L a sb a r r a s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 5 9 0 ) *B a r s p l o t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L n e a8 ) *B a r s p l o t _ d e s c r i p t i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L n e a9 ) *B a s ed el o g a r i t m on a t u r a l :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a7 ) *B a s h i n d i c e s :s u m a syp r o d u c t o s .( L n e a7 ) *L o t e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L n e a1 6 ) *B a t c h l o a d :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L n e a6 8 ) *B C 2 :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e sd i f e r e n c i a l e s . ( L n e a7 ) *B d v a c :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e8 0 1 ) *B e l l n :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L n e a2 5 ) *B e n e f i t _ c o s t :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L i n e2 4 1 ) *B e r l e f a c tv a l e :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L n e a1 4 ) *B e r n :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L n e a7 ) *B e r n p o l y :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L n e a2 5 ) *B e r n s t e i n _ a p p r o x :F u n c i o n e syv a r i a b l e sp a r aB e r n s t e i n . ( L n e a7 6 ) *B e r n s t e i n _ e x p a n d :F u n c i o n e syv a r i a b l e sp a r aB e r n s t e i n . ( L n e a1 0 3 ) *B e r n s t e i n _ e x p l i c i t :F u n c i o n e syv a r i a b l e sp a r aB e r n s t e i n . ( L n e a5 0 ) *B e r n s t e i n _ p o l y :F u n c i o n e syv a r i a b l e sp a r aB e r n s t e i n . ( L n e a7 ) *B e s s e l _ i :F u n c i o n e sd eB e s s e l .( L n e a3 5 ) *B e s s e l _ j :F u n c i o n e sd eB e s s e l .( L n e a7 ) *B e s s e l _ k :F u n c i o n e sd eB e s s e l .( L n e a5 1 ) *B e s s e l _ y :F u n c i o n e sd eB e s s e l .( L n e a2 3 ) *B e s s e l e x p a n d :F u n c i o n e sd eB e s s e l .( L i n e1 3 3 ) *B e t a :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e1 7 3 ) *B e t a _ a r g s _ s u m _ t o _ i n t e g e r :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e6 6 5 ) *B e t a _ e x p a n d :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e6 5 8 ) *B e t a _ i n c o m p l e t e :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e2 8 8 ) *B e t a _ i n c o m p l e t e _ g e n e r a l i z e d :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e5 3 6 ) *B e t a _ i n c o m p l e t e _ r e g u l a r i z e d :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e4 3 7 ) *B e z o u t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L n e a2 2 ) *B f _ f i n d _ r o o t :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L i n e2 3 6 ) *B f _ f m i n _ c o b y l a :F u n c i o n e syv a r i a b l e sp a r ac o b y l a . ( L n e a7 2 ) *B f a l l r o o t s :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e2 1 4 ) *B f f a c :F u n c i o n e sG a m m ayf a c t o r i a l . ( L n e a1 1 ) *B f h z e t a :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L n e a3 5 ) *B f l o a t :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a7 ) *B f l o a t p :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a1 7 ) *B f p s i :F u n c i o n e sG a m m ayf a c t o r i a l . ( L n e a1 7 )
588/633
28/08/13
*B f p s i 0 :F u n c i o n e sG a m m ayf a c t o r i a l .

( L n e a1 8 ) *B f t o r a t :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a2 1 ) *B f t r u n c :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a4 9 ) *B f z e t a :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L n e a2 9 ) *B i c o n n e c t e d _ c o m p o n e n t s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 8 8 ) *B i m e t r i c :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e8 2 5 ) *B i n d t e s t :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L n e a2 7 ) *B i n o m i a l :F u n c i o n e sc o m b i n a t o r i a s . ( L n e a2 4 ) *B i p a r t i c i n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e4 0 4 ) *B l o q u e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L n e a6 7 ) *B l o c k m a t r i x p :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L n e a2 2 ) *B o d e _ g a i n :F u n c i o n e syv a r i a b l e sp a r ab o d e . ( L n e a7 ) *B o d e _ p h a s e :F u n c i o n e syv a r i a b l e sp a r ab o d e . ( L n e a5 3 ) *F r o n t e r i z a :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 0 0 ) *B o t h c o e f :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L n e a4 0 ) *B o u n d a r i e s _ a r r a y :F u n c i o n e syv a r i a b l e sp a r aw o r l d m a p . ( L n e a1 2 ) *C a j ad e< 1 > :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L n e a7 2 ) *C a j a :T r a z a d oO p c i o n e s .( L n e a4 5 ) *B o x c h a r :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 2 1 ) *D i a g r a m ad ec a j a :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L i n e1 4 5 ) *B o x p l o t _ d e s c r i p t i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L i n e1 4 6 ) *R o m p e r :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 1 9 ) *R u p t u r a :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e2 4 3 ) *B u g _ r e p o r t :F u n c i o n e syv a r i a b l e sp a r al ad e t e c c i nei n f o r m ed ef a l l o s . ( L n e a6 5 ) *B u i l d _ i n f o :F u n c i o n e syv a r i a b l e sp a r al ad e t e c c i nei n f o r m ed ef a l l o s . ( L n e a7 6 ) *B u i l d q :M a c r o s .( L n e a7 ) *G r a b a r :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L n e a5 3 ) *T a x i s :F u n c i o n e sp a r al o sn m e r o sc o m p l e j o s . ( L n e a7 ) *C a n f o r m :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e5 8 8 ) *C a n t e n :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e5 0 5 ) *C a r d i n a l i d a d :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L n e a5 2 ) *C a r g :F u n c i o n e sp a r al o sn m e r o sc o m p l e j o s . ( L n e a7 3 ) *C a r t a n :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e2 1 9 ) *C a r t e s i a n _ p r o d u c t :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L n e a7 0 ) *C a p t u r a s :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 5 ) *C a u c h y _ m a t r i x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L n e a3 9 ) *C a u c h y s u m :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L n e a7 ) *C b f f a c :F u n c i o n e sG a m m ayf a c t o r i a l . ( L n e a2 7 ) *C b r a n g e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 2 0 ) *C b t i c s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e3 4 8 ) *C d f _ b e r n o u l l i :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 5 7 ) *C d f _ b e t a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 0 2 ) *C d f _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a1 1 2 ) *C d f _ c a u c h y :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 4 8 ) *C d f _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e3 0 3 ) *C d f _ c o n t i n u o u s _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 6 9 ) *C d f _ d i s c r e t e _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 2 8 ) *C d f _ e x p :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e6 0 2 ) *C d f _ f :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e5 0 8 ) *C d f _ g a m m a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s .
589/633
28/08/13

( L i n e8 2 9 ) *C d f _ g e n e r a l _ f i n i t e _ d i s c r e t e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a2 6 ) *C d f _ g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e3 7 0 ) *C d f _ g u m b e l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 7 8 ) *C d f _ h y p e r g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 9 6 ) *C d f _ l a p l a c e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 3 9 0 ) *C d f _ l o g i s t i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 3 1 ) *C d f _ l o g n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e7 5 3 ) *C d f _ n e g a t i v e _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 6 8 ) *C d f _ n o n c e n t r a l _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e4 4 6 ) *C d f _ n o n c e n t r a l _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 9 2 ) *C d f _ n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a1 3 ) *C d f _ p a r e t o :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 8 9 ) *C d f _ p o i s s o n :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e1 8 1 ) *C d f _ r a n k _ s u m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e se s p e c i a l e s . ( L n e a3 1 ) *C d f _ r a y l e i g h :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 2 1 9 ) *C d f _ s i g n e d _ r a n k :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e se s p e c i a l e s . ( L n e a1 5 ) *C d f _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a9 3 ) *C d f _ w e i b u l l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 4 7 ) *C D i s p l a y :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e8 5 1 ) *T e c h o :F u n c i o n e sp a r al o sn m e r o s . ( L n e a9 5 ) *C e n t r a l _ m o m e n t :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e1 4 3 ) *C E q u a l :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a2 6 ) *C e q u a l i g n o r e :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a3 0 ) *C f :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L n e a7 4 ) *C f d i s r e p :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L n e a1 4 0 ) *C f e x p a n d :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e1 5 7 ) *V a r i a b l ec f l e n g t h :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e1 7 4 ) *C f r a m e _ f l a g :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( P a r t i d a1 1 0 0 ) *C g e o d e s i c :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e7 9 4 ) *C g r e a t e r p :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a3 4 ) *C g r e a t e r p i g n o r e :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a3 9 ) *C h a n g e n a m e :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L n e a2 4 ) *C h a n g e v a r :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L n e a7 ) *C h a o s g a m e :F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a . ( L n e a8 ) *C h a r a t :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a1 1 ) *C h a r f u n :F u n c i o n e syv a r i a b l e sp a r ap r e d i c a d o s . ( L n e a7 ) *C h a r f u n 2 :F u n c i o n e syv a r i a b l e sp a r ai n t e r p o l . ( L i n e1 0 5 ) *C h a r l i s t :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a1 9 ) *C h a r p :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a4 3 ) *F u n c i nc h a r p o l y :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L n e a6 9 ) *C h e b y s h e v _ t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a2 2 ) *C h e b y s h e v _ u :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a2 8 ) *C h e c k _ o v e r l a p s :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a9 7 ) *C h e c k d i v :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e7 8 5 ) *C h o l e s k y :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L n e a7 2 ) *C h r i s t o f :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 9 6 ) *C h r o m a t i c _ i n d e x :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e4 1 7 ) *C h r o m a t i c _ n u m b e r :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e4 2 7 )
590/633
28/08/13

*C i n t :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a4 8 ) *C i r c u l a n t _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a7 1 ) *C l e a r _ e d g e _ w e i g h t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e4 3 8 ) *C l e a r _ r u l e s :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e8 5 6 ) *C l e a r _ v e r t e x _ l a b e l :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e4 5 2 ) *C l e b s c h _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a9 2 ) *C l e s s p :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a5 2 ) *C l e s s p i g n o r e :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a5 7 ) *C i e r r e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L n e a2 6 ) *F u n c i nc l o s e f i l e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L n e a8 4 ) *C m e t r i c :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L n e a1 7 ) *C n o n m e t _ f l a g :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 1 5 ) *C o e f i c i e n t e :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L n e a5 5 ) *C o e f m a t r i x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L n e a1 0 6 ) *C o g r a d :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e7 3 1 ) *C o l :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 1 6 ) *C o l a p s a r :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 3 3 ) *C o l l e c t t e r m s :f a c e x pp a q u e t e .( L n e a1 0 6 ) *E lc o l o rd e< 1 > :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 7 2 ) *C o l o r :T r a z a d oO p c i o n e s .( L n e a5 2 ) *C o l o r b o x< 1 > :T r a z a d oO p c i o n e s .( L n e a7 0 ) *C o l o r b o x :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e4 2 1 ) *C o l u m n o p :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L n e a2 7 ) *C o l u m n a s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e4 5 3 ) *C o l u m n s p a c e :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L n e a3 8 ) *C o l u m n s w a p :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L n e a3 3 ) *C o l u m n v e c t o r :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 1 ) *C o m b i n a c i n :f u n c t sp a q u e t e .( L i n e1 9 8 ) *C o m b i n a r :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L n e a5 8 ) *C o n m u t a t i v a :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L n e a6 3 ) *C o m p 2 p u i :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L n e a1 0 ) *C o m p a r a r :F u n c i o n e syv a r i a b l e sp a r ap r e d i c a d o s . ( L n e a2 4 ) *C o m p f i l e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 5 1 ) *C o m p i l a r :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 6 7 ) *C o m p i l e _ f i l e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 3 3 6 ) *C o m p l e m e n t _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a9 6 ) *C o m p l e t e _ b i p a r t i t e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 0 0 ) *C o m p l e t e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a1 0 4 ) *C o m p l e j o :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e5 4 8 ) *I n f i n i t yC o m p l e j o :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a4 1 ) *C o m p l e x _ n u m b e r _ p :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e2 0 9 ) *C o m p o n e n t e s :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 9 8 ) *C o m p o s e _ f u n c t i o n s :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e2 3 2 ) *C o n c a n :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e5 1 8 ) *C o n c a t :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a7 ) *E v a l u a c i nc o n d i c i o n a l :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L n e a9 1 ) *C o n j u g a r :F u n c i o n e sp a r al o sn m e r o sc o m p l e j o s . ( L n e a1 0 4 ) *C o n m e t d e r i v :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e7 8 8 ) *C o n n e c t _ v e r t i c e s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 2 8 3 ) *C o n n e c t e d _ c o m p o n e n t s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e4 6 6 ) *C o n t r a s :F u n c i o n e syv a r i a b l e sp a r al i s t a s .
591/633
28/08/13

( L n e a6 1 ) *C o n s t a n t e :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L n e a4 3 ) *C o n s t a n t p :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L n e a6 2 ) *C o m p o n e n t e :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a6 1 ) *C o n s t v a l u e :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e2 5 7 ) *C o n t 2 p a r t :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e2 2 3 ) *C o n t e n i d o :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 4 5 ) *C o n t e x t o :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e2 2 9 ) *C o n t e x t o s :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e2 4 5 ) *C o n t i n u o u s _ f r e q :F u n c i o n e syv a r i a b l e sp a r al am a n i p u l a c i nd ed a t o s . ( L n e a7 ) *C o n t o r s i n :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e6 6 4 ) *C o n t o r n o :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e4 7 3 ) *C o n t o u r _ l e v e l s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e5 0 4 ) *C o n t o u r _ p l o t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a8 ) *C o n t r a t od e< 1 > :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e2 3 5 ) *C o n t r a t o :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 8 2 ) *C o n t r a c t _ e d g e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 0 2 ) *L ac o n t r a c c i nc o nu nv e c t o r :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 4 2 8 ) *C o n t r a g r a d :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e7 3 7 ) *C o n t r i b _ o d e :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L n e a7 ) *C o n v e r t i r :F u n c i o n e syv a r i a b l e sp a r al a su n i d a d e s . ( L i n e1 4 4 ) *C o o r d :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e7 6 6 ) *C o p i a r :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L n e a4 5 ) *C o p y _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a6 7 ) *C o p y l i s t :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L n e a6 7 ) *C o p y m a t r i x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 4 8 ) *C o r :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e6 0 5 ) *C o s :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 4 6 ) *C o s h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L n e a1 5 0 ) *C o s n p i f l a g :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a6 3 ) *C u n a :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 5 4 ) *C o t h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 5 8 ) *C o v :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e4 9 9 ) *C o v 1 :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e5 2 9 ) *C o v d i f f :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e9 3 8 ) *L l a m a d ac o v e c t :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 2 ) *C o b e r t u r a :f u n c t sp a q u e t e .( L i n e1 8 0 ) *C r e a t e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a1 1 ) *C r e a t e _ l i s t :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L n e a7 2 ) *C s c :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 6 2 ) *C s c h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 6 6 ) *C s e t u p :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L n e a1 0 ) *C S P L I N E :F u n c i o n e syv a r i a b l e sp a r ai n t e r p o l . ( L i n e1 7 8 ) *C t _ c o o r d s :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 7 6 ) *C t _ c o o r d s y s :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L n e a3 7 ) *C t a y l o r :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e3 4 1 ) *C t a y p o v :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 3 3 ) *C t a y p t :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 3 8 ) *C t a y s w i t c h :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 2 2 ) *C t a y v a r :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r .
592/633
28/08/13

( L i n e1 1 2 8 ) *C t o r s i o n _ f l a g :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 0 9 ) *C T r a n s f o r m :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e6 7 7 ) *C t r a n s p o s e :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L n e a8 0 ) *C t r g s i m p :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 0 9 4 ) *C u b e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a1 2 0 ) *C u b o c t a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 1 6 ) *C u n l i s p :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a7 4 ) *E x p r e s i nd ee n t r a d aa c t u a l :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L n e a7 ) *C u r r e n t _ l e t _ r u l e _ p a c k a g e :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L n e a5 2 ) *C v :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e1 6 8 ) *C y c l e _ d i g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 0 8 ) *C y c l e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a1 1 2 ) *C i l n d r i c a :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 6 1 9 ) *D a t a _ f i l e _ n a m e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e5 5 6 ) *D I A S 3 6 0 :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L n e a7 ) *D b l i n t :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L n e a6 0 ) *D e s a c t i v a r :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e2 7 9 ) *D e b u g m o d e :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L n e a7 ) *D e c l a r a r :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L n e a9 8 ) *D e c l a r e _ c o n s t v a l u e :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e2 5 8 ) *D e c l a r e _ d i m e n s i o n s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e4 9 1 ) *D e c l a r e _ f u n d a m e n t a l _ d i m e n s i o n s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e5 2 1 ) *D e c l a r e _ f u n d a m e n t a l _ u n i t s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e5 5 3 ) *D e c l a r e _ q t y :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e3 6 3 ) *D e c l a r e _ t r a n s l a t e d :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 3 6 3 ) *D e c l a r e _ u n i t _ c o n v e r s i o n :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e4 4 8 ) *D e c l a r e _ u n i t s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e3 0 2 ) *D e c l a r e _ w e i g h t s :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a6 2 ) *D e c r e c i e n t e :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e2 4 1 ) *D e s c r i p c i nd ed e c s y m :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L n e a5 3 4 ) *D e f a u l t _ l e t _ r u l e _ p a c k a g e :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L n e a6 5 ) *D e f c o n :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 5 7 ) *D e f i n i r :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 8 5 ) *D e f i n e _ v a r i a b l e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e2 7 4 ) *D E F I N T :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L n e a1 0 6 ) *D e f m a t c h :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L n e a7 4 ) *D e f r u l e :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e1 7 5 ) *D e f s t r u c t :F u n c i o n e syv a r i a b l e sp a r al a se s t r u c t u r a s . ( L n e a1 3 ) *D e f t a y l o r :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L n e a4 1 ) *D e g r e e _ s e q u e n c e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e5 0 6 ) *D e l :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e2 3 1 ) *P l a z o :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e5 6 9 ) *E l i m i n a r :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e1 0 1 ) *D e l e t e n :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 0 6 7 ) *D e l t a :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e2 5 1 ) *D e m o :F u n c i o n e syv a r i a b l e sp a r al aa y u d a . ( L n e a3 3 ) *D e m o i v r e :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L n e a6 9 ) *D e n o m :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 5 8 )
593/633
28/08/13

*D e p e n d e n c i a s :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e2 6 6 ) *D e p e n d ed e :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e2 7 7 ) *D e r i v a b b r e v :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e3 3 3 ) *D e r i v d e g r e e :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e3 4 1 ) *D e r i v l i s t :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e3 5 8 ) *D e r i v s u b s t :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e3 6 3 ) *D e s c r i b i r :F u n c i o n e syv a r i a b l e sp a r al aa y u d a . ( L n e a7 0 ) *D e s o l v e :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e sd i f e r e n c i a l e s . ( L n e a2 0 ) *D e t e r m i n a n t e :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 5 9 ) *D e t o u t :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 7 0 ) *D f l o a t :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e2 8 4 ) *D g a u s s _ a :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L i n e1 0 5 ) *D g a u s s _ b :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L n e a1 1 0 ) *D g e e v :F u n c i o n e syv a r i a b l e sp a r al a p a c k . ( L n e a7 ) *D g e m m :F u n c i o n e syv a r i a b l e sp a r al a p a c k . ( L i n e2 9 9 ) *D g e q r f :F u n c i o n e syv a r i a b l e sp a r al a p a c k . ( L n e a7 3 ) *D g e s v :F u n c i o n e syv a r i a b l e sp a r al a p a c k . ( L n e a1 0 4 ) *D g e s v d :F u n c i o n e syv a r i a b l e sp a r al a p a c k . ( L i n e1 7 6 ) *D i a g :F u n c i o n e syv a r i a b l e sp a r ad i a g . ( L n e a7 ) *D i a g _ m a t r i x :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L n e a8 6 ) *D i a g m a t r i x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 9 8 ) *D i a g m a t r i x p :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e8 3 5 ) *D i a g m e t r i c :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 0 8 3 ) *D i m e t r o :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e4 7 7 ) *D i f f< 1 > :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e3 7 2 ) *D i f f< 2 > :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e6 1 0 ) *D i f f :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e3 7 3 ) *D i g i t c h a r p :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a7 9 ) *D i m :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 0 7 5 ) *D i m a c s _ e x p o r t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 5 5 ) *D i m a c s _ i m p o r t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 6 1 ) *D i m e n s i n :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e3 1 4 ) *D i m e n s i o n e s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e6 7 2 ) *D i m e n s i o n e sd e< 1 > :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e5 9 3 ) *D i m e n s i o n e s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e5 9 7 ) *D i m e n s i o n s _ a s _ l i s t :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e5 9 4 ) *D i r e c t a :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e2 9 5 ) *D i s c r e t e _ f r e q :F u n c i o n e syv a r i a b l e sp a r al am a n i p u l a c i nd ed a t o s . ( L n e a5 0 ) *D i s j o i n :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L n e a8 9 ) *D i s j o i n t p :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 0 9 ) *D i s o l a t e :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 4 4 ) *D i s p :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L n e a4 0 ) *L l a m a d ad i s p c o n :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L n e a1 0 ) *D i s p f l a g :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e3 2 1 ) *D i s p f o r m :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 5 5 ) *D i s p f u n :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e3 6 8 ) *D i s p J o r d a n :F u n c i o n e syv a r i a b l e sp a r ad i a g . ( L n e a9 8 ) *E x h i b i c i n :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L n e a6 3 ) *D i s p l a y 2 d :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a .
594/633
28/08/13

( L n e a8 9 ) *D i s p l a y _ f o r m a t _ i n t e r n a l :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L n e a1 1 0 ) *D i s p r u l e :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e1 9 1 ) *D i s p t e r m s :F u n c i o n e syv a r i a b l e sp a r am o s t r a r . ( L i n e1 3 4 ) *D i s t r i b :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L n e a8 6 ) *D i s t r i b u t e _ o v e r :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e1 0 8 ) *D i v i d i r :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 6 2 ) *D i r e c c i n :L o so p e r a d o r e sa r i t m t i c o s . ( L n e a1 0 ) *D i v i s o r e s :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 2 2 ) *L l a m a d ad i v s u m :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e1 9 3 ) *D k u m m e r _ m :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L i n e1 3 3 ) *D k u m m e r _ u :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L i n e1 3 7 ) *D l a n g e :F u n c i o n e syv a r i a b l e sp a r al a p a c k . ( L i n e2 7 7 ) *H a c e r :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L n e a5 4 ) *D o a l l m x o p s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e2 1 1 ) *D o d e c a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 2 4 ) *D o m i n i o :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e1 5 6 ) *D o m x e x p t :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e2 1 9 ) *D o m x m x o p s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e2 5 2 ) *D o m x n c t i m e s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e2 6 0 ) *D o n t f a c t o r :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e2 6 7 ) *D o s c m x o p s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e2 7 8 ) *D o s c m x p l u s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e2 8 5 ) *D o t 0 n s c s i m p :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e2 9 2 ) *D o t 0 s i m p :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e2 9 9 ) *D o t 1 s i m p :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e3 0 6 ) *D o t a s s o c :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e3 1 3 ) *D o t c o n s t r u l e s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e3 2 0 ) *D o t d i s t r i b :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e3 3 0 ) *D o t e x p t s i m p :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e3 3 7 ) *D o t i d e n t :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e3 4 4 ) *D o t P r o d u c t :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e1 0 8 ) *D o t s c r u l e s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e3 5 0 ) *D o t s i m p :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a7 6 ) *D o b l ef a c t o r i a l :F u n c i o n e sc o m b i n a t o r i a s . ( L n e a7 ) *D p a r t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e2 0 7 ) *C o n s u m o :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L n e a5 5 ) *D r a w 2 d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L n e a1 0 3 ) *D r a w 3 d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L n e a1 1 4 ) *D r a w _ f i l e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 2 5 ) *D r a w _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 4 0 4 ) *D r a w _ g r a p h _ p r o g r a m :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 0 9 ) *D r a w _ r e a l p a r t :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e6 4 2 ) *D r a w d f :F u n c i o n e syv a r i a b l e sp a r ad r a w d f . ( L n e a1 8 ) *D s c a l a r< 1 > :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e4 5 3 ) *D s c a l a r :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e7 6 4 ) *C o r r e o :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a7 ) *E s c a l n :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e3 5 7 ) *E d g e _ c o l o r :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 8 9 )
595/633
28/08/13

*E d g e _ c o l o r i n g :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e4 8 6 ) *E d g e _ c o n n e c t i v i t y :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e5 1 5 ) *E d g e _ p a r t i t i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 2 0 ) *E d g e _ t y p e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 9 7 ) *E d g e _ w i d t h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 9 3 ) *B o r d e s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e5 2 1 ) *E i g e n s _ b y _ j a c o b i :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L n e a1 1 4 ) *V a l o r e sp r o p i o s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e3 8 8 ) *A u t o v e c t o r e s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e4 1 7 ) *O c t a v a :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e1 6 5 ) *E i n s t e i n :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e2 3 5 ) *E ln o m b r ee i v a l s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e3 8 9 ) *E ln o m b r ee i v e c t s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e4 1 8 ) *E l a p s e d _ r e a l _ t i m e :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L i n e1 6 0 ) *E l a p s e d _ r u n _ t i m e :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L i n e1 7 6 ) *E l e 2 c o m p :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L n e a3 0 ) *E l e 2 p o l y n o m e :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e5 2 4 ) *E l e 2 p u i :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L n e a2 3 ) *E l e m :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L n e a3 7 ) *E l e m e n t p :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 6 5 ) *E l e v a c i n :O p c i o n e sg r f i c a s .( L n e a8 0 ) *E l e v a t i o n _ g r i d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 6 4 0 ) *E l i m :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e3 1 5 ) *E l i m _ a l l b u t :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e3 7 9 ) *E l i m i n a r :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 7 9 ) *E l i m i n a t e _ u s i n g :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e4 0 0 ) *E l i p s e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 6 6 8 ) *E l l i p t i c _ e :F u n c i o n e syv a r i a b l e sp a r ai n t e g r a l e se l p t i c a s . ( L n e a1 5 ) *E l l i p t i c _ e c :F u n c i o n e syv a r i a b l e sp a r ai n t e g r a l e se l p t i c a s . ( L n e a5 5 ) *E l l i p t i c _ e u :F u n c i o n e syv a r i a b l e sp a r ai n t e g r a l e se l p t i c a s . ( L n e a2 3 ) *E l l i p t i c _ f :F u n c i o n e syv a r i a b l e sp a r ai n t e g r a l e se l p t i c a s . ( L n e a7 ) *E l l i p t i c _ k c :F u n c i o n e syv a r i a b l e sp a r ai n t e g r a l e se l p t i c a s . ( L n e a4 6 ) *E l l i p t i c _ p i :F u n c i o n e syv a r i a b l e sp a r ai n t e g r a l e se l p t i c a s . ( L n e a3 8 ) *E M a t r i x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e5 2 8 ) *E m p t y _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 2 8 ) *E m p t y p :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 7 8 ) *E n d c o n s :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e1 7 0 ) *E n h a n c e d 3 d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e6 6 6 ) *E n t e r m a t r i x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e5 3 3 ) *E n t e r t e n s o r :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L n e a1 7 ) *E n t i e r :F u n c i o n e sp a r al o sn m e r o s . ( L n e a1 4 0 ) *E p s i l o n _ l p :F u n c i o n e syv a r i a b l e sp a r as i m p l e x . ( L n e a7 ) *I g u a l e s :F u n c i o n e syv a r i a b l e sp a r ap r e d i c a d o s . ( L n e a5 5 ) *I g u a l d a d( i g u a l d a ds i n t c t i c a ) :O p e r a d o r e sd ee c u a c i o n e s . ( L n e a3 1 ) *E q u a l p :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a7 ) *O p e r a d o rd el ae c u a c i n :O p e r a d o r e sd ee c u a c i o n e s . ( L n e a3 1 ) *E q u i v _ c l a s s e s :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 9 0 ) *E r f :F u n c i nd ee r r o r .( L n e a1 0 ) *E r f _ g e n e r a l i z e d :F u n c i nd ee r r o r .( L n e a2 8 ) *E r f _ r e p r e s e n t a t i o n :F u n c i nd ee r r o r .( L n e a5 8 ) *E r f c :F u n c i nd ee r r o r .( L n e a1 6 )
596/633
28/08/13

*E r f f l a g :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e1 1 9 ) *E r f i :F u n c i nd ee r r o r .( L n e a2 2 ) *E r r c a t c h :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e2 4 4 ) *E r r o r :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e2 5 6 ) *E r r o r _ s i z e :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e2 7 1 ) *E r r o r _ s y m s :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e3 1 6 ) *E R R O R _ T Y P E :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e8 0 5 ) *E r r o r m s g :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e3 3 7 ) *E r r o r e s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 7 0 0 ) *E u l e r :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e2 0 9 ) *E ln m e r od eE u l e r :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a7 ) *E u l e r M a s c h e r o n ic o n s t a n t e :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a2 2 ) *E v :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L i n e2 3 8 ) *E v _ p o i n t :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L i n e1 5 7 ) *E v a l :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L i n e4 2 8 ) *E v a l _ s t r i n g :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a2 8 ) *I n c l u s o :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e2 6 1 ) *E v e n f u n :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e1 6 3 ) *E v e n p :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a5 8 ) *C a d a :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e2 2 6 ) *E v f l a g :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L i n e4 4 6 ) *E v f u n :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L i n e5 1 0 ) *E v o l u c i n :F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a . ( L n e a1 8 ) *E v o l u t i o n 2 d :F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a . ( L n e a3 2 ) *E v u n d i f f :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e6 8 3 ) *E j e m p l o :F u n c i o n e syv a r i a b l e sp a r al aa y u d a . ( L i n e1 3 4 ) *E x p :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L n e a4 6 ) *A m p l i a r :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e1 8 4 ) *E x p a n d w r t :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e2 7 5 ) *E x p a n d w r t _ d e n o m :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e2 8 8 ) *E x p a n d w r t _ f a c t o r e d :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e2 9 8 ) *E x p i n t e g r a l _ c h i :i n t e g r a l e se x p o n e n c i a l e s . ( L n e a3 8 ) *E x p i n t e g r a l _ c i :i n t e g r a l e se x p o n e n c i a l e s . ( L n e a3 0 ) *E x p i n t e g r a l _ e :i n t e g r a l e se x p o n e n c i a l e s . ( L n e a2 2 ) *E x p i n t e g r a l _ e 1 :i n t e g r a l e se x p o n e n c i a l e s . ( L n e a1 0 ) *E x p i n t e g r a l _ e i :i n t e g r a l e se x p o n e n c i a l e s . ( L n e a1 4 ) *E x p i n t e g r a l _ l i :i n t e g r a l e se x p o n e n c i a l e s . ( L n e a1 8 ) *E x p i n t e g r a l _ s h i :i n t e g r a l e se x p o n e n c i a l e s . ( L n e a3 4 ) *E x p i n t e g r a l _ s i :i n t e g r a l e se x p o n e n c i a l e s . ( L n e a2 6 ) *E x p i n t e x p a n d :i n t e g r a l e se x p o n e n c i a l e s . ( L n e a5 0 ) *E x p i n t r e p :i n t e g r a l e se x p o n e n c i a l e s . ( L n e a4 2 ) *E x p l c i t a :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 7 4 2 ) *E x p l o s e :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e2 5 3 ) *E x p o n :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e3 0 6 ) *E x p o n e n t i a l i z e :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e3 1 5 ) *P o t e n c i a c i n :L o so p e r a d o r e sa r i t m t i c o s . ( L n e a1 1 ) *E x p o p :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e3 3 0 ) *E x p r e s s :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e4 5 9 ) *E x p t :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e1 6 1 )
597/633
28/08/13

*E x p t d i s p f l a g :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e1 6 9 ) *E x p t i s o l a t e :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L n e a2 2 2 ) *E x p t s u b s t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e2 2 9 ) *E x s e c :f u n c t sp a q u e t e .( L i n e1 8 6 ) *E x t d i f f :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 4 5 9 ) *E x t r a c t _ l i n e a r _ e q u a t i o n s :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a1 2 6 ) *E x t r e m a l _ s u b s e t :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e2 9 3 ) *E z g c d :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e2 0 7 ) *F 9 0 :F u n c i o n e syv a r i a b l e sp a r af 9 0 . ( L n e a7 ) *F a c e x p a n d :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e2 3 9 ) *F a c s u m :f a c e x pp a q u e t e .( L n e a2 8 ) *F a c s u m _ c o m b i n e :f a c e x pp a q u e t e .( L n e a8 3 ) *F a c t c o m b :F u n c i o n e sc o m b i n a t o r i a s . ( L n e a4 8 ) *F a c t l i m :F u n c i o n e sc o m b i n a t o r i a s . ( L i n e1 4 5 ) *F a c t o r :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e2 4 7 ) *F a c t o r f a c s u m :f a c e x pp a q u e t e .( L n e a9 9 ) *F a c t o r f l a g :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e3 7 9 ) *F a c t o r i a l :F u n c i o n e sc o m b i n a t o r i a s . ( L n e a5 7 ) *F a c t o r i a l _ e x p a n d :F u n c i o n e sc o m b i n a t o r i a s . ( L i n e1 5 2 ) *F a c t o r o u t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e3 8 6 ) *F a c t o r s u m :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e4 0 5 ) *H e c h o s :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e2 8 3 ) *F a l s o :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a1 7 ) *F a s t _ c e n t r a l _ e l e m e n t s :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a8 4 ) *F u n c i nf a s t _ l i n s o l v e :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a8 ) *F a s t t i m e s :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e4 2 5 ) *F b :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 2 6 ) *F u n c i n :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e2 8 2 ) *F e a t u r e p :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e2 9 1 ) *C a r a c t e r s t i c a s :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e3 0 8 ) *F e r n f a l e :D e f i n i c i o n e sp a r af r a c t a l e sI F S . ( L n e a4 3 ) *O b t e n e rd o c u m e n t a c i n :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e1 8 3 ) *O b t e n e rl ad o c u m e n t a c i n( i n e x a c t ab s q u e d a ) :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e1 9 6 ) *F F T :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L n e a1 0 2 ) *F i b :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e2 1 8 ) *F u n c i nf i b t o p h i :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e2 3 0 ) *Q u i n t o :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e1 7 6 ) *N o m b r e _ a r c h i v o< 1 > :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e8 1 5 ) *N o m b r e _ a r c h i v o :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 6 2 ) *C u e n t ae s t ev a l o r :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L n e a8 8 ) *F i l e _ s e a r c h :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L n e a1 1 3 ) *F i l e _ s e a r c h _ d e m o :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e1 5 4 ) *F i l e _ s e a r c h _ l i s p :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e1 5 3 ) *F i l e _ s e a r c h _ m a x i m a :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e1 5 2 ) *F i l e _ s e a r c h _ t e s t s :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e1 5 6 ) *F i l e _ s e a r c h _ u s a g e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e1 5 5 ) *F i l e _ t y p e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e1 9 0 ) *F i l e _ t y p e _ l i s p :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e2 1 4 ) *F i l e _ t y p e _ m a x i m a :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e2 2 3 ) *F i l e n a m e _ m e r g e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L n e a1 0 3 ) *F i l l _ c o l o r :F u n c i o n e syv a r i a b l e sp a r ad r a w .
598/633
28/08/13

( L i n e8 3 6 ) *F i l l _ d e n s i t y :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e8 4 5 ) *F i l l a r r a y :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L i n e2 1 7 ) *F i l l e d _ f u n c :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e8 5 3 ) *F i n d _ r o o t :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L i n e2 3 3 ) *F i n d _ r o o t _ a b s :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L i n e2 3 8 ) *F i n d _ r o o t _ e r r o r :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L i n e2 3 7 ) *F i n d _ r o o t _ r e l :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L i n e2 3 9 ) *F i n d d e :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e6 8 4 ) *P r i m e r o :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e1 8 1 ) *C o r r e c c i n :F u n c i o n e sp a r al o sn m e r o s . ( L i n e1 9 1 ) *F i x e d _ v e r t i c e s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 7 5 ) *A p l a n a r :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e3 1 4 ) *F l e n g t h :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L n e a3 0 ) *F l i p f l a g :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 4 4 ) *F l o a t :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a6 3 ) *F l o a t 2 b f :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a7 0 ) *F l o a t n u m p :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a7 8 ) *S u e l o :F u n c i o n e sp a r al o sn m e r o s . ( L i n e1 4 6 ) *F l o w e r _ s n a r k :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 2 ) *L i m p i a r :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e7 3 9 ) *F l u s h 1 d e r i v :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e8 8 6 ) *F l u s h d :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e7 4 4 ) *F l u s h n d :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e7 4 9 ) *F m i n _ c o b y l a :F u n c i o n e syv a r i a b l e sp a r ac o b y l a . ( L n e a7 ) *F u e n t e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e8 8 6 ) *F O N T _ S I Z E :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e9 7 3 ) *P a r a :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e3 7 3 ) *O l v i d e :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e2 9 6 ) *F o r t i n d e n t :F u n c i o n e syv a r i a b l e sp a r aF o r t r a ns a l i d a . ( L n e a7 ) *F o r t r a n :F u n c i o n e syv a r i a b l e sp a r aF o r t r a ns a l i d a . ( L n e a1 6 ) *F o r t s p a c e s :F u n c i o n e syv a r i a b l e sp a r aF o r t r a ns a l i d a . ( L n e a7 2 ) *F o u r c o s :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a7 5 ) *F o u r e x p a n d :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a6 9 ) *F o u r i e r :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a4 7 ) *F o u r i e r _ e l i m :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e4 3 2 ) *F o u r i n t :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a9 0 ) *F o u r i n t c o s :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a9 5 ) *F o u r i n t s i n :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L i n e1 0 0 ) *F o u r s i m p :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a5 2 ) *F o u r s i n :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a8 0 ) *I V :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e1 9 5 ) *F p o s i t i o n :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L n e a3 5 ) *F p p r e c :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a8 3 ) *F p p r i n t p r e c :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a9 3 ) *F r a m e _ b r a c k e t :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e4 7 2 ) *F r e e o f :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e2 3 6 ) *F r e s h l i n e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L n e a4 2 ) *F r e s n e l _ c :F u n c i nd ee r r o r .( L n e a3 2 ) *F r e s n e l _ s :F u n c i nd ee r r o r .( L n e a4 5 )
599/633
28/08/13

*F r o m _ a d j a c e n c y _ m a t r i x :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 4 2 ) *F r u c h t _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 4 6 ) *F u n c i nf u l l _ l i s t i f y :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e3 8 1 ) *F u l l m a p :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e4 5 1 ) *F u l l m a p l :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e4 7 0 ) *F u l l r a t s i m p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e4 3 4 ) *F u l l r a t s u b s t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e4 7 3 ) *F u l l s e t i f y :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e3 9 6 ) *F u n c s o l v e :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e3 3 0 ) *F u n c i nd eo p e r a d o rd ed e f i n i c i n :L o so p e r a d o r e sd ea s i g n a c i n . ( L i n e1 9 0 ) *F u n c i o n e s :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e4 8 0 ) *F u n d a m e n t a l _ d i m e n s i o n s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e5 2 3 ) *F u n d a m e n t a l _ u n i t s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e6 3 7 ) *F U N D E F :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e5 2 6 ) *F u n m a k e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e5 4 6 ) *F U N P :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a2 2 ) *F v :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L n e a1 8 ) *G a m m a :F u n c i o n e sG a m m ayf a c t o r i a l . ( L n e a3 3 ) *G a m m a _ i n c o m p l e t e :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e1 2 1 ) *G a m m a _ i n c o m p l e t e _ g e n e r a l i z e d :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e1 4 2 ) *G a m m a _ i n c o m p l e t e _ r e g u l a r i z e d :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e1 3 3 ) *G a m m a l i m :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e1 5 5 ) *G a u s s _ a :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L n e a8 8 ) *G a u s s _ b :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L i n e1 0 1 ) *G a u s s p r o b :f u n c t sp a q u e t e .( L i n e1 5 4 ) *M c d :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e5 3 0 ) *F u n c i ng c d e x :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e5 7 8 ) *G c d i v i d e :f u n c t sp a q u e t e .( L n e a7 6 ) *G C F a c :P a q u e t es c i f a c .( L n e a7 ) *G c f a c t o r :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e6 1 9 ) *G d :f u n c t sp a q u e t e .( L i n e1 6 1 ) *G d e t :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 4 3 ) *G e n _ l a g u e r r e :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a3 4 ) *G e n f a c t :F u n c i o n e sc o m b i n a t o r i a s . ( L i n e1 6 0 ) *G e n i n d e x :F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s . ( L n e a1 5 ) *G e n m a t r i x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e5 7 2 ) *G e n s u m n u m :F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s . ( L n e a2 2 ) *G e n s y m :F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s . ( L n e a3 0 ) *G e o _ a m o r t i z a t i o n :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L i n e1 6 0 ) *G e o _ a n n u i t y _ f v :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L n e a9 3 ) *G e o _ a n n u i t y _ p v :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L n e a8 0 ) *G e o m a p :F u n c i o n e syv a r i a b l e sp a r aw o r l d m a p . ( L i n e1 5 4 ) *G e o m t r i c a s :f u n c t sp a q u e t e .( L n e a1 2 6 ) *G e o m e t r i c _ m e a n :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e3 7 7 ) *G e o s u m :f u n c t sp a q u e t e .( L i n e1 4 6 ) *C o n s e g u i r :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e3 4 7 ) *G e t _ e d g e _ w e i g h t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e5 3 1 ) *G e t _ l u _ f a c t o r s :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e1 7 3 ) *G e t _ p i x e l :F u n c i o n e syv a r i a b l e sp a r al a sf o t o s . ( L n e a7 ) *G e t _ p l o t _ o p t i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a3 8 ) *G e t _ t e x _ e n v i r o n m e n t :F u n c i o n e syv a r i a b l e sp a r al as a l i d aT e X . ( L i n e2 0 9 ) *G e t _ t e x _ e n v i r o n m e n t _ d e f a u l t :F u n c i o n e syv a r i a b l e sp a r al as a l i d aT e X .
600/633
28/08/13

( L i n e2 4 9 ) *G e t _ v e r t e x _ l a b e l :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e5 4 9 ) *G f a c t o r :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e6 2 6 ) *G f a c t o r s u m :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e6 3 7 ) *G g f :F u n c i o n e syv a r i a b l e sp a r ag g f . ( L n e a3 8 ) *G G F C F M A X :F u n c i o n e syv a r i a b l e sp a r ag g f . ( L n e a2 3 ) *G G F I N F I N I T Y :F u n c i o n e syv a r i a b l e sp a r ag g f . ( L n e a7 ) *C i r c u n f e r e n c i a :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e6 2 2 ) *G l o b a l _ v a r i a n c e s :F u n c i o n e syv a r i a b l e sp a r al ae s t a d s t i c ad e s c r i p t i v a . ( L i n e5 6 0 ) *G l o b a l s o l v e :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e3 5 2 ) *G n u p l o t _ c l o s e :g n u p l o t _ p i p e sF o r m a t oF u n c i o n e s . ( L n e a1 3 ) *G n u p l o t _ c u r v e _ s t y l e s :O p c i o n e sd eG n u p l o t .( L n e a7 5 ) *G n u p l o t _ c u r v e _ t i t l e s :O p c i o n e sd eG n u p l o t .( L n e a7 0 ) *G n u p l o t _ d e f a u l t _ t e r m _ c o m m a n d :O p c i o n e sd eG n u p l o t .( L n e a7 9 ) *G n u p l o t _ d u m b _ t e r m _ c o m m a n d :O p c i o n e sd eG n u p l o t .( L n e a8 4 ) *G n u p l o t _ f i l e _ n a m e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e9 8 7 ) *G n u p l o t _ o u t _ f i l e :O p c i o n e sd eG n u p l o t .( L n e a4 7 ) *G n u p l o t _ p m 3 d :O p c i o n e sd eG n u p l o t .( L n e a5 7 ) *G n u p l o t _ p r e a m b l e :O p c i o n e sd eG n u p l o t .( L n e a6 2 ) *G n u p l o t _ p s _ t e r m _ c o m m a n d :O p c i o n e sd eG n u p l o t .( L n e a9 0 ) *G n u p l o t _ r e p l o t :g n u p l o t _ p i p e sF o r m a t oF u n c i o n e s . ( L n e a2 3 ) *G n u p l o t _ r e s e t :g n u p l o t _ p i p e sF o r m a t oF u n c i o n e s . ( L n e a3 0 ) *G n u p l o t _ r e s t a r t :g n u p l o t _ p i p e sF o r m a t oF u n c i o n e s . ( L n e a1 8 ) *G n u p l o t _ s t a r t :g n u p l o t _ p i p e sF o r m a t oF u n c i o n e s . ( L n e a7 ) *G n u p l o t _ t e r m :O p c i o n e sd eG n u p l o t .( L n e a1 4 ) *I r :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e3 7 8 ) *G o l d e nd e c i r :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a4 9 ) *G o s p e r :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L n e a1 2 ) *G o s p e r _ i n _ Z e i l b e r g e r :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L i n e1 2 4 ) *G o s p e r S u m :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L n e a1 8 ) *G r 2 d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L n e a1 1 ) *G r 3 d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L n e a3 1 ) *G r a d e f :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e5 2 1 ) *G r a d e f s :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e5 6 6 ) *G r a m s c h m i d t :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e6 3 2 ) *G r a p h 6 _ d e c o d e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 6 5 ) *G r a p h 6 _ e n c o d e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 6 9 ) *G r a p h 6 _ e x p o r t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 7 3 ) *G r a p h 6 _ i m p o r t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 7 8 ) *G r a p h _ c e n t e r :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e5 7 1 ) *G r a p h _ c h a r p o l y :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e5 5 9 ) *G r a p h _ e i g e n v a l u e s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e5 8 1 ) *G r a p h _ f l o w :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L n e a4 2 ) *G r a p h _ o r d e r :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a6 1 2 ) *G r a p h _ p e r i p h e r y :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e5 9 2 ) *G r a p h _ p r o d u c t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a1 5 0 ) *G r a p h _ s i z e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e6 0 2 ) *G r a p h _ u n i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 9 ) *G r e a t _ r h o m b i c o s i d o d e c a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 7 ) *G r e a t _ r h o m b i c u b o c t a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 7 1 ) *M a y o rq u e :L o so p e r a d o r e sr e l a c i o n a l e s . ( L n e a1 0 ) *M a y o roi g u a l :R e l a t i o n a lo p e r a d o r e s . ( L n e a9 ) *G r i d< 1 > :T r a z a d oO p c i o n e s .( L n e a9 4 ) *R e d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 0 1 0 )
601/633
28/08/13

*G r i d _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 3 ) *M o l e r :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e1 9 1 ) *G r o b n e r _ b a s i s :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a2 5 ) *G r o t z c h _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 7 5 ) *H a l f a n g l e s :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e1 7 0 ) *H a m i l t o n _ c y c l e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e6 3 2 ) *H a m i l t o n _ p a t h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e6 4 4 ) *H a n k e l :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e1 8 0 ) *H a n k e l _ 1 :F u n c i o n e sd eB e s s e l .( L n e a6 4 ) *H a n k e l _ 2 :F u n c i o n e sd eB e s s e l .( L n e a1 1 4 ) *A r m n i c a :f u n c t sp a q u e t e .( L i n e1 3 3 ) *H a r m o n i c _ m e a n :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e3 5 1 ) *H a v :f u n c t sp a q u e t e .( L i n e1 9 2 ) *H e a d _ a n g l e< 1 > :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 0 2 5 ) *H e a d _ a n g l e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 3 8 ) *H e a d _ b o t h :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 0 6 1 ) *H e a d _ l e n g t h< 1 > :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 4 4 ) *H e a d _ l e n g t h :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 0 8 2 ) *H E A D _ T Y P E :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 1 0 6 ) *H e a w o o d _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 7 9 ) *A y u d a :F u n c i o n e syv a r i a b l e sp a r al aa y u d a . ( L n e a7 2 ) *H e r m i t e : F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a4 0 ) *A r p i l l e r a :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e1 8 7 ) *H g f r e d :F u n c i o n e syv a r i a b l e sp a r al a sf u n c i o n e se s p e c i a l e s . ( L i n e1 0 0 ) *H i l b e r t _ m a t r i x :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e2 1 4 ) *H i l b e r t m a p :D e f i n i c i o n e sp a r al o sm a p a sd eP e a n o . ( L n e a1 0 ) *F u n c i nh i p o w :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e6 4 2 ) *H i s t o g r a m a :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L i n e2 0 8 ) *H i s t o g r a m _ d e s c r i p t i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L i n e2 0 9 ) *H o d g e :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 4 9 0 ) *H o r n e r :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L i n e2 0 7 ) *H i p e r g e o m t r i c a :F u n c i o n e sh i p e r g e o m t r i c a s . ( L n e a2 7 ) *H y p e r g e o m e t r i c _ r e p r e s e n t a t i o n :F u n c i nd ee r r o r .( L n e a6 4 ) *I :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a1 3 ) *I b a s e :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e2 9 1 ) *I c 1 :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e sd i f e r e n c i a l e s . ( L n e a7 0 ) *I c 2 :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e sd i f e r e n c i a l e s . ( L n e a8 0 ) *I c _ c o n v e r t :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 5 8 4 ) *I c c 1 :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 1 3 3 ) *I c c 2 :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 1 4 8 ) *I c h r 1 :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e9 0 9 ) *I c h r 2 :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e9 1 8 ) *I c o s a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 8 3 ) *I c o s i d o d e c a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 8 7 ) *I c o u n t e r :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e3 5 1 ) *I c u r v a t u r e :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e9 2 6 ) *I d e n t :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e6 8 7 ) *I d e n t f o r :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e2 1 9 ) *I d e n t i d a d :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e4 1 4 ) *I d i f :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e6 3 4 ) *I d i m :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e9 0 3 )
602/633
28/08/13

*I d u m m y :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e3 3 8 ) *V a r i a b l ei d u m m y x :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e3 4 5 ) *I e q n :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e4 0 8 ) *I e q n p r i n t :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L n e a4 3 9 ) *S i :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e3 9 1 ) *I f a c t o r s :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e2 5 6 ) *I F B :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 1 0 5 ) *S i s t e m ad er e f e r e n c i ai f c 1 :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 1 6 5 ) *I f c 2 :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 1 7 8 ) *I f g :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 2 0 2 ) *I F G I :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 2 0 7 ) *I F R :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 1 9 1 ) *I f r a m e _ b r a c k e t _ f o r m :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 2 1 2 ) *I f r a m e s :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 0 9 9 ) *I f r i :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 1 9 6 ) *I F S :F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a . ( L n e a4 5 ) *I g c d e x :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e2 7 0 ) *I g e o d e s i c _ c o o r d s :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e9 9 0 ) *I g e o w e d g e _ f l a g :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 5 2 8 ) *I k t 1 :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 2 6 5 ) *I k t 2 :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 2 7 9 ) *I l t :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e1 2 7 ) *I m a g e n :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 7 9 0 ) *I m a g i n a r i a :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e5 4 7 ) *L au n i d a di m a g i n a r i a :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a1 3 ) *I m a g p a r t :F u n c i o n e sp a r al o sn m e r o sc o m p l e j o s . ( L i n e1 2 4 ) *I m e t r i c :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e8 9 5 ) *I m p l c i t a :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 8 8 1 ) *I m p l i c i t _ d e r i v a t i v e :F u n c i o n e syv a r i a b l e sp a r ai m p d i f f . ( L n e a8 ) *I m p l i c i t _ p l o t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a4 9 ) *I n _ n e i g h b o r s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e6 6 8 ) *I n c h a r :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e2 0 4 ) *A u m e n t o :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e2 4 2 ) *I n d :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a2 6 ) *I n d e t e r m i n a d o :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a2 6 ) *I n d e x e d _ t e n s o r :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 9 2 ) * n d i c e s :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L n e a5 5 ) *I n d u c e d _ s u b g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 9 1 ) *I n f :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a3 7 ) *I n f e r e n c e _ r e s u l t :F u n c i o n e syv a r i a b l e sp a r ai n f e r e n c e _ r e s u l t . ( L n e a7 ) *I n f e r e n c e p :F u n c i o n e syv a r i a b l e sp a r ai n f e r e n c e _ r e s u l t . ( L n e a4 9 ) *I n f e v a l :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L i n e5 7 9 ) *I n f i n i t o :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a4 1 ) *I n f i j o :o p e r a d o r e sd e f i n i d o sp o re lu s u a r i o . ( L n e a7 ) *I n f l a g :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e3 2 7 ) *I n f o l i s t s :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e2 3 0 ) *I n i t _ a t e n s o r :F u n c i o n e syv a r i a b l e sp a r aa t e n s o r . ( L n e a7 ) *I n i t _ c t e n s o r :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 5 3 ) *I n m :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r .
603/633
28/08/13

( L i n e1 2 2 6 ) *I n m c 1 :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 2 3 7 ) *I n m c 2 :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 2 5 0 ) *I n n e r p r o d u c t :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e6 9 1 ) *I n p a r t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e3 4 8 ) *I n p r o d :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e6 9 2 ) *I N R T :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e2 9 1 ) *I n t a n a l y s i s :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e1 7 1 ) *E n t e r o :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e3 7 4 ) *I n t e g e r _ p a r t i t i o n s :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e4 2 5 ) *I n t e g e r p :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L n e a1 1 2 ) *I n t e g e r v a l u e d :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e3 9 1 ) *I n t e g r a r :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e2 1 1 ) *I n t e g r a t e _ u s e _ r o o t s o f :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e4 4 7 ) *I n t e g r a t i o n _ c o n s t a n t :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e3 8 4 ) *I n t e g r a t i o n _ c o n s t a n t _ c o u n t e r :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e4 1 0 ) *I n t e r s e c c i n :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e4 7 0 ) *I n t e r s e c c i n :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e4 7 4 ) *I n t e r v a l p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a4 6 ) *I n t f a c l i m :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e6 6 6 ) *I n t o p o i s :S e r i ed eP o i s s o n .( L n e a7 ) *I n t o s u m :S u m a syp r o d u c t o s .( L n e a3 6 ) *I n v _ m o d :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e2 9 9 ) *I n v a r i a n t 1 :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e8 1 1 ) *I n v a r i a n t 2 :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e8 1 7 ) *I n v e r s e _ f f t :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L n e a4 5 ) *I n v e r s e _ j a c o b i _ c d :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a8 7 ) *I n v e r s e _ j a c o b i _ c n :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a5 9 ) *I n v e r s e _ j a c o b i _ c s :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a8 3 ) *I n v e r s e _ j a c o b i _ d c :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a9 9 ) *I n v e r s e _ j a c o b i _ d n :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a6 3 ) *I n v e r s e _ j a c o b i _ d s :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a9 5 ) *I n v e r s e _ j a c o b i _ n c :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a7 9 ) *I n v e r s e _ j a c o b i _ n d :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a9 1 ) *I n v e r s e _ j a c o b i _ n s :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a6 7 ) *I n v e r s e _ j a c o b i _ s c :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a7 1 ) *I n v e r s e _ j a c o b i _ s d :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a7 5 ) *I n v e r s e _ j a c o b i _ s n :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a5 5 ) *I n v e r t i r :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L n e a7 0 4 ) *I n v e r t _ b y _ l u :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e2 3 4 ) *I p _ g r i d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 1 3 1 ) *I p _ g r i d _ i n :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 1 3 9 ) *I r r :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L i n e2 2 8 ) *I r r a c i o n a l :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e5 3 9 ) *E s :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e3 0 6 ) *I s _ b i c o n n e c t e d :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e6 8 1 ) *I s _ b i p a r t i t e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e6 9 2 ) *I s _ c o n n e c t e d :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a7 0 4 ) *I s _ d i g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e7 1 4 ) *I s _ e d g e _ i n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e7 2 5 )
604/633
28/08/13

*I s _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e7 4 2 ) *I s _ g r a p h _ o r _ d i g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e7 5 3 ) *I s _ i s o m o r p h i c :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e7 6 5 ) *I s _ p l a n a r :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e7 7 8 ) *I s _ s c o n n e c t e d :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e7 9 4 ) *I s _ t r e e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e8 1 9 ) *I s _ v e r t e x _ i n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e8 0 6 ) *I S h o w :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L n e a4 7 ) *A i s l a r :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e3 7 6 ) *I s o l a t e _ w r t _ t i m e s :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e3 9 5 ) *I s o m o r f i s m o :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e6 5 6 ) *I s q r t :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e3 1 1 ) *I s r e a l _ p :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e5 0 5 ) *I t e m s _ i n f e r e n c e :F u n c i o n e syv a r i a b l e sp a r ai n f e r e n c e _ r e s u l t . ( L n e a5 4 ) *I T R :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 2 9 1 ) *J a c o b i :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e3 1 6 ) *J a c o b i _ c d :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a3 9 ) *J a c o b i _ c n :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a1 1 ) *J a c o b i _ c s :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a3 5 ) *J a c o b i _ d c :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a5 1 ) *J a c o b i _ d n :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a1 5 ) *J a c o b i _ d s :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a4 7 ) *J a c o b i _ n c :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a3 1 ) *J a c o b i _ n d :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a4 3 ) *J a c o b i _ n s :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a1 9 ) *J a c o b i _ p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a5 1 ) *J a c o b i _ s c :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a2 3 ) *J a c o b i _ s d :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a2 7 ) *J a c o b i _ s n :F u n c i o n e syv a r i a b l e sp a r af u n c i o n e se l p t i c a s . ( L n e a7 ) *J a c o b i a n :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e2 3 9 ) *J F :F u n c i o n e syv a r i a b l e sp a r ad i a g . ( L n e a3 4 ) *J o i n :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e2 0 0 ) *J o r d a n :F u n c i o n e syv a r i a b l e sp a r ad i a g . ( L n e a5 8 ) *J u l i a :F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a . ( L n e a6 0 ) *J u l i a _ p a r a m e t e r :D e f i n i c i o n e sp a r af r a c t a l e sc o m p l e j o s . ( L n e a4 1 ) *J u l i a _ s e t :D e f i n i c i o n e sp a r af r a c t a l e sc o m p l e j o s . ( L n e a2 3 ) *J u l i a _ s i n :D e f i n i c i o n e sp a r af r a c t a l e sc o m p l e j o s . ( L n e a4 9 ) *K d e l s :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e3 7 5 ) *K d e l t a :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e3 5 9 ) *K e e p f l o a t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e6 8 3 ) T e c l a* :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 1 4 8 ) *M a t a r :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e2 9 1 ) *F u n c i nk i l l c o n t e x t :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e3 5 9 ) *K i n v a r i a n t :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 3 0 ) *K o s t k a :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e4 7 1 ) *K r o n _ d e l t a :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e5 0 0 ) *K r o n e c k e r _ p r o d u c t :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e2 6 2 ) *K t :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 5 8 ) *K u m m e r _ m :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e .
605/633
28/08/13

( L i n e1 1 5 ) *K u m m e r _ u :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L n e a1 2 6 ) *C u r t o s i s :F u n c i o n e syv a r i a b l e sp a r al ae s t a d s t i c ad e s c r i p t i v a . ( L i n e4 0 2 ) *K u r t o s i s _ b e r n o u l l i :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e3 3 3 ) *K u r t o s i s _ b e t a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 4 4 ) *K u r t o s i s _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e1 5 6 ) *K u r t o s i s _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e4 0 7 ) *K u r t o s i s _ c o n t i n u o u s _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 0 6 ) *K u r t o s i s _ d i s c r e t e _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 6 6 ) *K u r t o s i s _ e x p :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e7 1 8 ) *K u r t o s i s _ f :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e5 6 1 ) *K u r t o s i s _ g a m m a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 7 1 ) *K u r t o s i s _ g e n e r a l _ f i n i t e _ d i s c r e t e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a8 2 ) *K u r t o s i s _ g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 0 5 ) *K u r t o s i s _ g u m b e l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 5 2 7 ) *K u r t o s i s _ h y p e r g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 4 1 ) *K u r t o s i s _ l a p l a c e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 2 5 ) *K u r t o s i s _ l o g i s t i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 6 6 ) *K u r t o s i s _ l o g n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 0 5 ) *K u r t o s i s _ n e g a t i v e _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a6 1 4 ) *K u r t o s i s _ n o n c e n t r a l _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e4 8 6 ) *K u r t o s i s _ n o n c e n t r a l _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e2 5 3 ) *K u r t o s i s _ n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a6 8 ) *K u r t o s i s _ p a r e t o :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 2 4 ) *K u r t o s i s _ p o i s s o n :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 2 1 ) *K u r t o s i s _ r a y l e i g h :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 3 4 8 ) *K u r t o s i s _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 3 ) *K u r t o s i s _ w e i b u l l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 8 2 ) *L a b e l :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 9 3 1 ) *L a b e l _ a l i g n m e n t< 1 > :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 2 8 ) *L a b e l _ a l i g n m e n t :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 1 7 1 ) *L a b e l _ o r i e n t a t i o n :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 1 9 7 ) *E t i q u e t a s :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e3 5 5 ) *L a g r a n g e :F u n c i o n e syv a r i a b l e sp a r ai n t e r p o l . ( L n e a8 ) *L a g u e r r e :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a6 1 ) *L a m b d a :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e6 3 2 ) *L a m b e r t _ w :F u n c i o n e syv a r i a b l e sp a r al a sf u n c i o n e se s p e c i a l e s . ( L i n e1 4 9 ) *L a p l a c e :F u n c i o n e syv a r i a b l e sp a r al ad i f e r e n c i a c i n . ( L i n e5 7 5 ) *L a p l a c i a n _ m a t r i x :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e8 3 0 ) *L a s s o c i a t i v e :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e3 4 1 ) *U l t i m a :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e2 2 1 ) *L b f g s :F u n c i o n e syv a r i a b l e sp a r al b f g s . ( L n e a8 ) *L b f g s _ n c o r r e c t i o n s :F u n c i o n e syv a r i a b l e sp a r al b f g s . ( L i n e2 9 3 ) *L b f g s _ n f e v a l _ m a x :F u n c i o n e syv a r i a b l e sp a r al b f g s . ( L i n e2 8 4 ) *L c 2 k d t :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e4 0 3 ) *L c _ l :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e4 7 5 ) *L c _ u :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e4 9 8 ) *L c h a r p :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a8 3 ) *L c m :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e3 2 4 )
606/633
28/08/13

*L d e f i n t :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e4 9 8 ) *L d i s p :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e3 4 9 ) *L d i s p l a y :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e3 8 0 ) *L e f t j u s t :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e4 1 4 ) *L e y e n d a :T r a z a d oO p c i o n e s .( L i n e1 0 1 ) *L e g e n d r e _ p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a6 8 ) *L e g e n d r e _ q :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a7 5 ) *L e i n s t e i n :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e2 4 7 ) *L o n g i t u d :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e2 2 5 ) *M e n o s :O p e r a d o r e sr e l a c i o n a l e s . ( L n e a7 ) *M e n o sq u eoi g u a l :O p e r a d o r e sr e l a c i o n a l e s . ( L n e a8 ) *A l q u i l e r :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e2 2 6 ) *L e t _ r u l e _ p a c k a g e s :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e3 6 2 ) *L e t r a t :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e3 0 7 ) *L e t r u l e s :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e3 3 3 ) *L e t s i m p :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e3 4 7 ) *L e v i _ c i v i t a :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e3 9 6 ) *L f g :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 7 7 ) *L f r e e o f :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e4 6 6 ) *L g :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 1 3 ) *L g t r e i l l i s :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e4 7 9 ) *V a r i a b l el h o s p i t a l l i m :F u n c i o n e syv a r i a b l e sp a r al m i t e s . ( L n e a7 ) *L h s :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e4 5 7 ) *L i :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L n e a6 1 ) *L i e d i f f :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e6 4 9 ) *L m i t e :F u n c i o n e syv a r i a b l e sp a r al m i t e s . ( L n e a1 7 ) *L i m s u b s t :F u n c i o n e syv a r i a b l e sp a r al m i t e s . ( L n e a5 9 ) *L i n d s t e d t :F u n c i o n e syv a r i a b l e sp a r al i n d s t e d t . ( L n e a7 ) *L i n e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 1 0 ) *L i n e _ t y p e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 2 2 3 ) *L i n e _ w i d t h :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 2 4 7 ) *L i n e a l< 1 > :f u n c t sp a q u e t e .( L n e a6 8 ) *L i n e a l :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e3 4 7 ) *L i n e a r _ p r o g r a m :F u n c i o n e syv a r i a b l e sp a r as i m p l e x . ( L n e a1 5 ) *L i n e a r _ s o l v e r :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L n e a1 1 0 ) *L i n e a r i n t e r p o l :F u n c i o n e syv a r i a b l e sp a r ai n t e r p o l . ( L i n e1 1 1 ) *L i n e c h a r :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e3 9 2 ) *L i n e l :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e4 3 3 ) *L i n e n u m :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e4 1 1 ) *L i n s o l v e :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e4 9 9 ) *L i n s o l v e _ p a r a m s :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e5 7 6 ) *L i n s o l v e w a r n :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e5 6 9 ) *L i s p d i s p :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e4 4 4 ) *L i s t ad ed e l i m i t a d o r e s :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L n e a8 ) *L i s t _ c o r r e l a t i o n s :F u n c i o n e syv a r i a b l e sp a r al ae s t a d s t i c ad e s c r i p t i v a . ( L i n e6 4 9 ) *L i s t _ m a t r i x _ e n t r i e s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e7 3 5 ) *L i s t _ n c _ m o n o m i a l s :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L i n e1 3 6 ) *L i s t a r i t h :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e2 3 7 ) *L i s t a r r a y :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L i n e2 6 7 ) *L i s t c o n s t v a r s :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s .
607/633
28/08/13

( L i n e4 2 2 ) *L i s t d u m m y v a r s :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e4 3 1 ) *L i s t i f y :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e5 2 3 ) *L i s t o f t e n s :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L n e a3 2 ) *L i s t o f v a r s :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e4 5 1 ) *L i s t p< 1 > :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e2 6 7 ) *L i s t p :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e2 4 7 ) *L m a x :F u n c i o n e sp a r al o sn m e r o s . ( L i n e1 9 5 ) *L m i n :F u n c i o n e sp a r al o sn m e r o s . ( L i n e2 0 1 ) *L m x c h a r :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e7 4 4 ) *C a r g a :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e2 3 2 ) *L o a d _ p a t h n a m e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e2 6 0 ) *L o a d f i l e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e2 8 6 ) *L o a d p r i n t :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e2 9 7 ) *L o c a l :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e7 6 3 ) *L o c a t e _ m a t r i x _ e n t r y :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e2 7 5 ) *L o g :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L n e a1 2 0 ) *L o g _ g a m m a :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e1 1 7 ) *L o g a b s :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L i n e1 5 6 ) *L o g a n d :f u n c t sp a q u e t e .( L n e a4 3 ) *L o g a r c :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L i n e1 6 7 ) *L o g c b :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 2 7 1 ) *L o g c o n c o e f f p :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L i n e1 7 7 ) *L o g c o n t r a c t :F u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a sr a z . ( L i n e1 8 8 ) *L o g e x p a n d :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L i n e2 1 0 ) *C o n j u n c i nl g i c a< 1 > :L o so p e r a d o r e sl g i c o s .( L n e a7 ) *C o n j u n c i nl g i c a :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L n e a1 6 ) *L g i c od i s y u n c i n< 1 > :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e1 3 4 ) *D i s y u n c i nl g i c a :L o so p e r a d o r e sl g i c o s .( L n e a4 3 ) *N e g a c i nl g i c a :L o so p e r a d o r e sl g i c o s .( L n e a3 0 ) *L o g n e g i n t :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L i n e2 2 1 ) *L o g o r :f u n c t sp a q u e t e .( L n e a4 9 ) *L o g s i m p :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L i n e2 2 8 ) *L o gx< 1 > :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 2 9 7 ) *L o g x :O p c i o n e sg r f i c a s .( L n e a1 1 2 ) *L o g x o r :f u n c t sp a q u e t e .( L n e a5 5 ) *L o g a< 1 > :T r a z a d oO p c i o n e s .( L i n e1 1 7 ) *L o g a :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 3 1 5 ) *L o g z :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 3 3 3 ) *L o p o w :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e7 1 4 ) *L o r e n t z _ g a u g e :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e9 8 4 ) *L o w e r c a s e p :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a8 7 ) *L p a r t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e4 7 1 ) *L r a t s u b s t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e7 2 2 ) *L r e d u c e :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e5 3 7 ) *L r i e m :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 9 7 ) *L r i e m a n n :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e2 8 1 ) *L s q u a r e s _ e s t i m a t e s :F u n c i o n e syv a r i a b l e sp a r al s q u a r e s . ( L n e a9 ) *L s q u a r e s _ e s t i m a t e s _ a p p r o x i m a t e :F u n c i o n e syv a r i a b l e sp a r al s q u a r e s . ( L i n e1 4 9 ) *L s q u a r e s _ e s t i m a t e s _ e x a c t :F u n c i o n e syv a r i a b l e sp a r al s q u a r e s . ( L n e a9 9 ) *L s q u a r e s _ m s e :F u n c i o n e syv a r i a b l e sp a r al s q u a r e s . ( L i n e2 1 3 ) *L s q u a r e s _ r e s i d u a l _ m s e :F u n c i o n e syv a r i a b l e sp a r al s q u a r e s . ( L i n e3 3 5 ) *L s q u a r e s _ r e s i d u a l s :F u n c i o n e syv a r i a b l e sp a r al s q u a r e s . ( L i n e2 8 5 )
608/633
28/08/13

*L s u m :S u m a syp r o d u c t o s .( L n e a1 6 ) *L t r e i l l i s :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e4 8 7 ) *L u _ b a c k s u b :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e3 0 0 ) *L u _ f a c t o r :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e3 0 5 ) *V a r i a b l em 1 p b r a n c h :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L i n e1 4 1 ) *F u n c i nM a c r oo p e r a d o rd ed e f i n i c i n :L o so p e r a d o r e sd ea s i g n a c i n . ( L i n e1 1 6 ) *M a c r o e x p a n d :M a c r o s .( L n e a1 0 2 ) *M a c r o e x p a n d 1 :M a c r o s .( L i n e1 3 6 ) *M a c r o e x p a n s i o n :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e7 9 7 ) *M a c r o s :M a c r o s .( L i n e1 6 8 ) *M a i n v a r :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e4 7 7 ) *M a k e _ a r r a y :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L i n e3 5 8 ) *M a k e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 1 4 ) *M a k e _ l e v e l _ p i c t u r e :F u n c i o n e syv a r i a b l e sp a r al a sf o t o s . ( L n e a1 2 ) *M a k e _ p o l y _ c o n t i n e n t :F u n c i o n e syv a r i a b l e sp a r aw o r l d m a p . ( L n e a4 0 ) *M a k e _ p o l y _ c o u n t r y :F u n c i o n e syv a r i a b l e sp a r aw o r l d m a p . ( L n e a5 5 ) *M a k e _ p o l y g o n :F u n c i o n e syv a r i a b l e sp a r aw o r l d m a p . ( L n e a6 7 ) *L al l a m a d am a k e _ r a n d o m _ s t a t e :N m e r o sa l e a t o r i o s .( L n e a7 ) *M a k e _ r g b _ p i c t u r e :F u n c i o n e syv a r i a b l e sp a r al a sf o t o s . ( L n e a4 6 ) *M a k e _ t r a n s f o r m :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a6 9 ) *M a k e b o x :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e7 8 1 ) *M a k e f a c t :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e7 2 3 ) *M a k e g a m m a :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e1 6 6 ) *M a k e L i s t :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e2 5 1 ) *M a k e O r d e r s :F u n c i o n e syv a r i a b l e sp a r am a k e O r d e r s . ( L n e a7 ) *M a k e s e t :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e5 7 7 ) *M a n d e l b r o t :F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a . ( L n e a8 5 ) *M a n d e l b r o t _ s e t :D e f i n i c i o n e sp a r af r a c t a l e sc o m p l e j o s . ( L n e a7 ) *M a n u a l _ d e m o :F u n c i o n e syv a r i a b l e sp a r al aa y u d a . ( L i n e1 7 0 ) *M a p a :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e4 4 6 ) *M a p a t o m :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e4 8 1 ) *M a p e r r o r :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e4 8 7 ) *M a p l i s t :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e5 1 5 ) *M a p p r i n t :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e5 0 4 ) *M a t _ c o n d :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e4 2 2 ) *M a t _ f u l l u n b l o c k e r :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e4 5 6 ) *M a t _ f u n c t i o n :F u n c i o n e syv a r i a b l e sp a r ad i a g . ( L i n e1 8 9 ) *M a t _ n o r m :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e4 3 5 ) *M a t _ t r a c e :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e4 6 1 ) *M a t _ u n b l o c k e r :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e4 6 7 ) *M a t c h d e c l a r e :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e3 6 9 ) *M a t c h f i x :o p e r a d o r e sd e f i n i d o sp o re lu s u a r i o . ( L i n e1 0 5 ) *M a t r i z :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e7 6 1 ) *M a t r i x _ e l e m e n t _ a d d :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e9 2 6 ) *M a t r i x _ e l e m e n t _ m u l t :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e9 5 8 ) *M a t r i x _ e l e m e n t _ t r a n s p o s e :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 0 0 0 ) *M a t r i x _ s i z e :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e4 5 1 ) *M a t r i x m a p :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e9 1 6 ) *M a t r i x p< 1 > :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e4 4 2 ) *M a t r i x p :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e9 2 2 ) *M a t t r a c e :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 0 5 1 )
609/633
28/08/13
*M a x :F u n c i o n e sp a r al o sn m e r o s .

( L i n e2 0 7 ) *M a x _ c l i q u e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e8 4 7 ) *M a x _ d e g r e e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e8 5 7 ) *M a x _ f l o w :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e8 7 0 ) *M a x _ i n d e p e n d e n t _ s e t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 0 1 ) *M a x _ m a t c h i n g :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 1 2 ) *M a x _ o r d :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L n e a9 6 ) *M a x a p p l y d e p t h :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e5 2 7 ) *M a x a p p l y h e i g h t :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L n e a5 3 4 ) *M a x i m a _ t e m p d i r :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L n e a7 ) *M a x i m a _ u s e r d i r :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L n e a1 9 ) *M a x i m i z e _ l p :F u n c i o n e syv a r i a b l e sp a r as i m p l e x . ( L n e a4 2 ) *M a x n e g e x :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e3 8 0 ) *M a x p o s e x :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e3 8 7 ) *M a x p s i f r a c d e n o m :F u n c i o n e sG a m m ayf a c t o r i a l . ( L n e a7 1 5 ) *M a x p s i f r a c n u m :F u n c i o n e sG a m m ayf a c t o r i a l . ( L n e a7 0 7 ) *M a x p s i n e g i n t :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e6 9 8 ) *M a x p s i p o s i n t :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e6 9 1 ) *M a x t a y o r d e r :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L n e a7 2 ) *T a lv e z :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e3 7 7 ) *S i g n i f i c a :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L n e a7 ) *M e a n _ b e r n o u l l i :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 7 0 ) *M e a n _ b e t a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 2 2 ) *M e a n _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e1 3 2 ) *M e a n _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e3 3 5 ) *M e a n _ c o n t i n u o u s _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 8 2 ) *M e a n _ d e v i a t i o n :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e2 9 6 ) *M e a n _ d i s c r e t e _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 4 2 ) *M e a n _ e x p :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e6 4 0 ) *M e a n _ f :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e5 3 9 ) *M e a n _ g a m m a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 4 9 ) *M e a n _ g e n e r a l _ f i n i t e _ d i s c r e t e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a5 4 ) *M e a n _ g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e3 8 3 ) *M e a n _ g u m b e l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 9 1 ) *M e a n _ h y p e r g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 1 3 ) *M e a n _ l a p l a c e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 0 3 ) *M e a n _ l o g i s t i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 4 4 ) *M e a n _ l o g n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e7 8 3 ) *M e a n _ n e g a t i v e _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 9 0 ) *M e a n _ n o n c e n t r a l _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e4 6 4 ) *M e a n _ n o n c e n t r a l _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e2 1 5 ) *M e a n _ n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a4 4 ) *M e a n _ p a r e t o :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 0 2 ) *M e a n _ p o i s s o n :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a1 9 9 ) *M e a n _ r a y l e i g h :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 2 6 0 ) *M e a n _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 5 ) *M e a n _ w e i b u l l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 6 0 ) *M e d i a n a :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e2 5 5 ) *M e d i a n _ d e v i a t i o n :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s .
610/633
28/08/13

( L i n e3 2 4 ) *M i e m b r o :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e2 9 3 ) *M a l l a :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 9 7 3 ) *M e s h _ l i n e s _ c o l o r :O p c i o n e sg r f i c a s .( L i n e1 2 2 ) *M t o d o :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L n e a7 2 ) *M e t r i c e x p a n d a l l :F u n c i o n e syv a r i a b l e sp a r al a su n i d a d e s . ( L i n e3 9 5 ) *M i n :F u n c i o n e sp a r al o sn m e r o s . ( L i n e2 1 9 ) *M i n _ d e g r e e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 2 4 ) *M i n _ e d g e _ c u t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 3 7 ) *M i n _ v e r t e x _ c o v e r :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 4 3 ) *M i n _ v e r t e x _ c u t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 4 7 ) *M i n f :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a4 5 ) *M i n f a c t o r i a l :F u n c i o n e sc o m b i n a t o r i a s . ( L i n e1 6 6 ) *M i n i m a l P o l y :F u n c i o n e syv a r i a b l e sp a r ad i a g . ( L i n e1 2 9 ) *M i n i m i z e _ l p :F u n c i o n e syv a r i a b l e sp a r as i m p l e x . ( L n e a5 0 ) *M i n i m u m _ s p a n n i n g _ t r e e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 5 3 ) *M e n o r :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 0 6 1 ) *M i n p a c k _ l s q u a r e s :F u n c i o n e syv a r i a b l e sp a r aM I N P A C K . ( L n e a8 ) *M i n p a c k _ s o l v e :F u n c i o n e syv a r i a b l e sp a r aM I N P A C K . ( L n e a7 3 ) *M e n o si n f i n i t o :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a4 5 ) *M n e w t o n :F u n c i o n e syv a r i a b l e sp a r am n e w t o n . ( L n e a2 5 ) *M o d :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e3 3 1 ) *M o d _ b i g _ p r i m e :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L i n e1 6 4 ) *M o d _ t e s t :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L i n e1 4 3 ) *M o d _ t h r e s h o l d :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L i n e1 7 1 ) *M o d e _ c h e c k _ e r r o r p :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e9 4 2 ) *M o d e _ c h e c k _ w a r n p :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e9 4 8 ) *M o d e _ c h e c k p :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e9 3 5 ) *M o d e _ d e c l a r e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e9 5 4 ) *M o d e _ i d e n t i t y :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e9 9 8 ) *M o d e M a t r i x :F u n c i o n e syv a r i a b l e sp a r ad i a g . ( L i n e1 5 2 ) *M o d u l a r _ l i n e a r _ s o l v e r :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L n e a1 5 0 ) *M d u l o :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e7 5 2 ) *M o e b i u s :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e6 1 1 ) *M o n 2 s c h u r :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L n e a6 7 ) *M o n o :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a1 1 0 ) *M o n o m i a l _ d i m e n s i o n s :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a1 1 8 ) *M u l t i _ e l e m :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L n e a9 5 ) *M u l t i _ o r b i t :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e3 7 5 ) *M u l t i _ p u i :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L n e a1 1 2 ) *M u l t i b e r n s t e i n _ p o l y :F u n c i o n e syv a r i a b l e sp a r aB e r n s t e i n . ( L n e a6 7 ) *M u l t i n o m i a l :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e8 9 1 ) *M u l t i n o m i a l _ c o e f f :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e6 4 4 ) *M u l t i p l i c a c i n :L o so p e r a d o r e sa r i t m t i c o s . ( L n e a9 ) *M u l t i p l i c a t i v o :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e3 9 4 ) *M u l t i p l i c i d a d e s :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e5 8 6 ) *M u l t i p l o t _ m o d e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 3 9 ) *M u l t s y m :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e3 8 9 ) *M u l t t h r u :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e4 2 0 ) *M y c i e l s k i _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s .
611/633
28/08/13

( L i n e2 4 5 ) *M y o p t i o n s :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e4 1 6 ) *N s i m as a l i d aa n t e r i o r :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e1 5 3 ) *N a r i o< 1 > :E lu s u a r i od e f i n el o so p e r a d o r e s . ( L i n e2 0 9 ) *N a r i o< 2 > :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e4 6 6 ) *U r i n a r i a :E lu s u a r i od e f i n el o so p e r a d o r e s . ( L i n e2 0 8 ) *N a t u r a l _ u n i t :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L n e a7 0 3 ) *N c _ d e g r e e :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a6 9 ) *N c e x p t :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e1 6 2 ) *N c h a r p o l y :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 0 6 6 ) *I n f i n i t on e g a t i v o :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a4 5 ) *N e g a t i v e _ p i c t u r e :F u n c i o n e syv a r i a b l e sp a r al a sf o t o s . ( L n e a7 6 ) *N e g d i s t r i b :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e4 8 5 ) *N e g s u m d i s p f l a g :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e4 6 1 ) *V e c i n o s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 6 3 ) *N u e v o :F u n c i o n e syv a r i a b l e sp a r al a se s t r u c t u r a s . ( L n e a5 0 ) *N e w _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 4 9 ) *N e w _ v a r i a b l e :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e5 4 3 ) *N e w c o n t e x t :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e4 0 1 ) *N e w d e t :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 0 8 3 ) *N u e v al n e a< 1 > :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L n e a4 9 ) *N u e v al n e a :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a9 1 ) *N e w t o n :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L i n e3 2 2 ) *N e w t o n e p s i l o n :F u n c i o n e syv a r i a b l e sp a r am n e w t o n . ( L n e a7 ) *N e w t o n m a x i t e r :F u n c i o n e syv a r i a b l e sp a r am n e w t o n . ( L n e a1 6 ) *N e x t _ p r i m e :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e3 5 9 ) *N e x t l a y e r f a c t o r :f a c e x pp a q u e t e .( L n e a6 5 ) *N i c e d u m m i e s :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e5 8 8 ) *N i c e i n d i c e s :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L n e a8 0 ) *V a r i a b l en i c e i n d i c e s p r e f :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e1 1 5 ) *N o v e n a :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e3 2 9 ) *N m :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 6 2 ) *N m c :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 6 6 ) *N o e v a l :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L i n e5 8 7 ) *N o f i x :o p e r a d o r e sd e f i n i d o sp o re lu s u a r i o . ( L n e a2 2 2 ) *N o l a b e l s :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e4 2 3 ) *N o n a r r a y :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e4 0 9 ) *N o n c e n t r a l _ m o m e n t :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L n e a1 1 8 ) *E x p o n e n c i a c i nn oc o n m u t a t i v a :L o so p e r a d o r e sa r i t m t i c o s . ( L i n e1 9 0 ) *M u l t i p l i c a c i nn oc o n m u t a t i v a :L o so p e r a d o r e sa r i t m t i c o s . ( L i n e2 0 9 ) *N o n e g a t i v e _ l p :F u n c i o n e syv a r i a b l e sp a r as i m p l e x . ( L n e a9 1 ) *N oe n t e r o :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e3 7 5 ) *M e t r i c i d a d :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e6 6 9 ) *N o n n e g i n t e g e r p :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L i n e1 6 0 ) *N oe s c a l a r e s :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e4 3 0 ) *N o n s c a l a r p :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e4 3 7 ) *N o n z e r o a n d f r e e o f :f u n c t sp a q u e t e .( L n e a6 1 ) *N o :L o so p e r a d o r e sl g i c o s .( L n e a3 0 ) *N oi g u a l( d e s i g u a l d a ds i n t c t i c a ) :O p e r a d o r e sd ee c u a c i o n e s . ( L n e a7 ) *N o t e q u a l :F u n c i o n e syv a r i a b l e sp a r ap r e d i c a d o s . ( L i n e1 5 7 ) *N o m b r e :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s .
612/633
28/08/13

( L i n e4 9 0 ) *N o u n d i s p :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e5 0 9 ) *N o u n i f y :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e5 1 6 ) *N o m b r e s :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L i n e5 9 3 ) *N p :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 3 4 ) *N p i :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L n e a1 2 3 8 ) *N p t e t r a d :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e4 9 0 ) *N p v :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L i n e2 1 6 ) *F u n c i nn r o o t s :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e5 9 3 ) *N T e r m s :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e5 2 6 ) *N t e r m s t :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e8 4 3 ) *N t h r o o t :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e6 0 5 ) *N t i c k s< 1 > :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 3 5 1 ) *N t i c k s :l a so p c i o n e sg r f i c a s .( L i n e1 3 3 ) *N t r i g :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e2 2 4 ) *N u l i d a d :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e5 0 8 ) *E s p a c i on u l o :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e5 0 1 ) *N u m :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e7 9 6 ) *S e n t e n c i an u m _ d i s t i n c t _ p a r t i t i o n s :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e6 7 8 ) *N u m _ p a r t i t i o n s :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e6 9 9 ) *N u m b e r e d _ b o u n d a r i e s :F u n c i o n e syv a r i a b l e sp a r aw o r l d m a p . ( L n e a2 4 ) *N u m b e r p :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L i n e1 6 4 ) *N u m e r :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L i n e1 9 2 ) *N u m e r _ p b r a n c h :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L i n e2 1 1 ) *N u m e r v a l :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L i n e2 4 0 ) *N u m f a c t o r :F u n c i o n e sG a m m ayf a c t o r i a l . ( L i n e7 3 0 ) *N u s u m :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e1 4 5 ) *N z e t a :F u n c i o n e syv a r i a b l e sp a r al a sf u n c i o n e se s p e c i a l e s . ( L i n e1 5 4 ) *N z e t a i :F u n c i o n e syv a r i a b l e sp a r al a sf u n c i o n e se s p e c i a l e s . ( L i n e1 6 3 ) *N z e t a r :F u n c i o n e syv a r i a b l e sp a r al a sf u n c i o n e se s p e c i a l e s . ( L i n e1 5 9 ) *O b a s e :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e4 7 1 ) *I m p a r :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e2 6 2 ) *O d d _ g i r t h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 7 3 ) *E v e n f u n :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e1 6 4 ) *O d d p :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L i n e2 5 0 ) *O d e 2 :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e sd i f e r e n c i a l e s . ( L n e a9 3 ) *O d e _ c h e c k :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L n e a4 2 ) *O d e l i n :F u n c i o n e syv a r i a b l e sp a r ac o n t r i b _ o d e . ( L n e a1 2 ) *O p :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L n e a5 3 4 ) *O p e n a :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L n e a5 5 ) *O p e n a _ b i n a r y :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ab i n a r i a . ( L n e a2 8 ) *O p e n r :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L n e a6 0 ) *O p e n r _ b i n a r y :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ab i n a r i a . ( L n e a1 8 ) *O p e n w :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L n e a6 5 ) *O p e n w _ b i n a r y :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ab i n a r i a . ( L n e a2 3 ) *O p e r a t o r p :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e5 8 3 ) *O p p r o p e r t i e s :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e4 9 6 ) *O p s u b s t< 1 > :F u n c i o n e syv a r i a b l e sp a r ao p s u b s t . ( L n e a9 ) *O p s u b s t< 2 > :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e5 9 1 ) *O p s u b s t :F u n c i o n e syv a r i a b l e sp a r ao p s u b s t .
613/633
28/08/13

( L n e a8 ) *O p t i m i z a r :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e5 9 9 ) *V a r i a b l eo p t i m p r e f i x :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e6 0 7 ) *O p t i o n s e t :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e4 4 2 ) *O :L o so p e r a d o r e sl g i c o s .( L n e a4 3 ) * r b i t a :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e4 0 9 ) * r b i t a s :F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a . ( L n e a1 1 0 ) *O r d e r g r e a t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L n e a6 1 4 ) *O r d e r g r e a t p :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e6 3 2 ) *O r d e r l e s s :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e6 1 5 ) *O r d e r l e s s p :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e6 3 3 ) *O r t h o g o n a l _ c o m p l e m e n t :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e5 1 2 ) *O r t h o p o l y _ r e c u r :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a8 1 ) *O r t h o p o l y _ r e t u r n s _ i n t e r v a l s :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a1 1 0 ) *O r t h o p o l y _ w e i g h t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L n e a1 2 0 ) *O u t _ n e i g h b o r s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 8 5 ) *O u t a t i v e :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e5 0 4 ) *O u t c h a r :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e4 6 0 ) *O u t e r m a p :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e5 9 7 ) *O u t o f p o i s :S e r i ed eP o i s s o n .( L n e a1 1 ) *P a c k a g e f i l e :F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s . ( L n e a5 7 ) *P a d e :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e1 9 6 ) *P a l e t ad e< 1 > :T r a z a d oO p c i o n e s .( L i n e1 4 3 ) *P a l e t a :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 3 7 2 ) *P a r a b o l i c _ c y l i n d e r _ d :F u n c i o n e sd ec i l i n d r op a r a b l i c o . ( L n e a1 3 ) *P a r a m t r i c o :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 0 2 2 ) *P a r a m e t r i c _ s u r f a c e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 0 6 2 ) *P A R G :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e6 0 8 ) *P a r G o s p e r :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L n e a6 2 ) *P a r s e _ s t r i n g :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a4 6 ) *P a r t e :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e7 1 7 ) *P a r t 2 c o n t :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e2 6 1 ) *P A R T F R A C :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e3 6 6 ) *P a r t i c i n :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e7 5 5 ) *P a r t i t i o n _ s e t :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e7 2 3 ) *P a r t p o l :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e2 7 1 ) *P a r t s w i t c h :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e7 7 1 ) *P a t h _ d i g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 5 3 ) *P a t h _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 5 7 ) *P a t h n a m e _ d i r e c t o r y :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e3 1 3 ) *P a t h n a m e _ n a m e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e3 1 4 ) *P a t h n a m e _ t y p e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e3 1 5 ) *P d f _ b e r n o u l l i :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 4 1 ) *P d f _ b e t a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 9 6 ) *P d f _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a1 0 4 ) *P d f _ c a u c h y :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 4 2 ) *P d f _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e2 8 1 ) *P d f _ c o n t i n u o u s _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 6 3 ) *P d f _ d i s c r e t e _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 2 2 ) *P d f _ e x p :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e5 8 3 ) *P d f _ f :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s .
614/633
28/08/13

( L i n e5 0 2 ) *P d f _ g a m m a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 2 3 ) *P d f _ g e n e r a l _ f i n i t e _ d i s c r e t e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a7 ) *P d f _ g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e3 6 4 ) *P d f _ g u m b e l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 7 2 ) *P d f _ h y p e r g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 8 5 ) *P d f _ l a p l a c e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 3 8 4 ) *P d f _ l o g i s t i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 2 5 ) *P d f _ l o g n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e7 4 7 ) *P d f _ n e g a t i v e _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 6 2 ) *P d f _ n o n c e n t r a l _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a4 3 9 ) *P d f _ n o n c e n t r a l _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 6 9 ) *P d f _ n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a7 ) *P d f _ p a r e t o :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 8 3 ) *P d f _ p o i s s o n :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e1 7 5 ) *P d f _ r a n k _ s u m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e se s p e c i a l e s . ( L n e a2 3 ) *P d f _ r a y l e i g h :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 9 9 ) *P d f _ s i g n e d _ r a n k :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e se s p e c i a l e s . ( L n e a7 ) *P d f _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a8 7 ) *P d f _ w e i b u l l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 4 1 ) *P e a r s o n _ s k e w n e s s :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e4 5 2 ) *P e r m a n e n t e :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 0 8 9 ) *P e r m u t :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e8 9 8 ) *P e r m u t a c i n :f u n c t sp a q u e t e .( L i n e2 0 5 ) *P e r m u t a c i o n e s :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e7 4 4 ) *P e t e r s e n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 6 1 ) *P e t r o v :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e5 3 6 ) *P f e f o r m a t :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e5 0 6 ) *P h i :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L n e a4 9 ) *P i :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L i n e1 0 5 ) *P i c k a p a r t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e7 7 9 ) *P i c t u r e _ e q u a l p :F u n c i o n e syv a r i a b l e sp a r al a sf o t o s . ( L n e a8 0 ) *P i c t u r e P :F u n c i o n e syv a r i a b l e sp a r al a sf o t o s . ( L n e a8 4 ) *P i e z a :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e8 6 6 ) *P i e c h a r t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L i n e2 8 9 ) *P i e c h a r t _ d e s c r i p t i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L i n e2 9 6 ) *P l a n a r _ e m b e d d i n g :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e9 9 8 ) *R e p r o d u c c i n :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e4 9 0 ) *P l o g :R o o tF u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L i n e2 3 5 ) *P l o t 2 d :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a9 1 ) *P l o t 3 d :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 3 7 ) *P l o t _ f o r m a t :O p c i o n e sg r f i c a s .( L i n e1 7 2 ) *P l o t _ o p t i o n s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 4 4 ) *P l o t _ r e a l p a r t :O p c i o n e sg r f i c a s .( L i n e1 8 2 ) *P l o t d f :F u n c i o n e syv a r i a b l e sp a r ap l o t d f . ( L n e a7 ) *P l s q u a r e s :F u n c i o n e syv a r i a b l e sp a r al s q u a r e s . ( L i n e3 8 6 ) *P o c h h a m m e r :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L i n e1 3 8 ) *P o c h h a m m e r _ m a x _ i n d e x :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L i n e1 7 0 ) *P o i n t _ s i z e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 4 4 8 ) *P o i n t _ t y p e< 1 > :T r a z a d oO p c i o n e s .( L i n e1 9 6 ) *P o i n t _ t y p e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 4 7 0 )
615/633
28/08/13
*P u n t o s :F u n c i o n e syv a r i a b l e sp a r ad r a w .

( L i n e3 1 0 0 ) *P o i n t s _ j o i n e d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 5 1 3 ) *P o i s d i f f :S e r i ed eP o i s s o n .( L n e a1 9 ) *P o i s e x p t :S e r i ed eP o i s s o n .( L n e a2 4 ) *P o i s i n t :S e r i ed eP o i s s o n .( L n e a2 9 ) *V a r i a b l ep o i s l i m :S e r i ed eP o i s s o n .( L n e a3 5 ) *P o i s m a p :S e r i ed eP o i s s o n .( L n e a4 4 ) *P o i s p l u s :S e r i ed eP o i s s o n .( L n e a5 1 ) *P o i s s i m p :S e r i ed eP o i s s o n .( L n e a5 5 ) *P o i s s o n :S e r i ed eP o i s s o n .( L n e a6 0 ) *P o i s s u b s t :S e r i ed eP o i s s o n .( L n e a6 5 ) *P o i s t i m e s :S e r i ed eP o i s s o n .( L n e a8 5 ) *P o i s t r i m :S e r i ed eP o i s s o n .( L n e a8 9 ) *P o l a r :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 2 5 5 ) *P o l a r _ t o _ x y :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L n e a8 3 ) *P o l a r f o r m :F u n c i o n e sp a r al o sn m e r o sc o m p l e j o s . ( L i n e1 3 4 ) *P o l a r t o r e c t :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L n e a7 ) *P o l y _ a d d :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a9 5 ) *P o l y _ b u c h b e r g e r :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 1 5 ) *P o l y _ b u c h b e r g e r _ c r i t e r i o n :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 0 8 ) *P o l y _ c o e f f i c i e n t _ r i n g :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a1 8 ) *P o l y _ c o l o n _ i d e a l :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 7 4 ) *P o l y _ c o n t e n t :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e1 7 7 ) *P o l y _ d e p e n d s _ p :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 6 3 ) *P o l y _ e l i m i n a t i o n _ i d e a l :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 6 8 ) *P o l y _ e l i m i n a t i o n _ o r d e r :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a4 1 ) *P o l y _ e x a c t _ d i v i d e :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e1 9 7 ) *P o l y _ e x p a n d :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a1 4 0 ) *P o l y _ e x p t :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e1 6 9 ) *P o l y _ g c d :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 9 1 ) *P o l y _ g r o b n e r :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 5 3 ) *P o l y _ g r o b n e r _ a l g o r i t h m :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a6 6 ) *P o l y _ g r o b n e r _ d e b u g :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a6 0 ) *P o l y _ g r o b n e r _ e q u a l :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e3 0 9 ) *P o l y _ g r o b n e r _ m e m b e r :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e3 3 0 ) *P o l y _ g r o b n e r _ s u b s e t p :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e3 2 3 ) *P o l y _ i d e a l _ i n t e r s e c t i o n :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 8 3 ) *P o l y _ i d e a l _ p o l y s a t u r a t i o n :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e3 7 4 ) *P o l y _ i d e a l _ p o l y s a t u r a t i o n 1 :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e3 6 2 ) *P o l y _ i d e a l _ s a t u r a t i o n :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e3 5 1 ) *P o l y _ i d e a l _ s a t u r a t i o n 1 :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e3 4 0 ) *P o l y _ l c m :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 8 7 ) *P o l y _ m i n i m i z a t i o n :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 4 0 ) *P o l y _ m o n o m i a l _ o r d e r :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a1 0 ) *P o l y _ m u l t i p l y :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e1 1 1 ) *P o l y _ n o r m a l _ f o r m :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 0 3 ) *P o l y _ n o r m a l i z e :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e1 3 1 ) *P o l y _ n o r m a l i z e _ l i s t :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 4 7 ) *P o l y _ p o l y s a t u r a t i o n _ e x t e n s i o n :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e3 8 8 ) *P o l y _ p r i m a r y _ e l i m i n a t i o n _ o r d e r :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a2 7 ) *P o l y _ p r i m i t i v e _ p a r t :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a1 2 3 ) *P o l y _ p s e u d o _ d i v i d e :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e1 8 4 ) *P o l y _ r e d u c e d _ g r o b n e r :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 5 8 ) *P o l y _ r e d u c t i o n :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e2 3 4 )
616/633
28/08/13

*P o l y _ r e t u r n _ t e r m _ l i s t :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a5 2 ) *P o l y _ s _ p o l y n o m i a l :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a1 1 8 ) *P o l y _ s a t u r a t i o n _ e x t e n s i o n :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L i n e3 8 3 ) *P o l y _ s e c o n d a r y _ e l i m i n a t i o n _ o r d e r :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a3 4 ) *P o l y _ s u b t r a c t :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a1 0 3 ) *P o l y _ t o p _ r e d u c t i o n _ o n l y :F u n c i o n e syv a r i a b l e sp a r ag r o b n e r . ( L n e a7 9 ) *P o l y d e c o m p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e8 0 3 ) *P o l y f a c t o r :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e6 1 3 ) *P o l g o n o :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 2 8 0 ) *P o l y m o d :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e8 5 5 ) *P o l y n o m e 2 e l e :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e5 4 3 ) *P o l y n o m i a l p :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e5 1 9 ) *P o l y t o c o m p a n i o n :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e5 5 7 ) *P o p :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e3 3 4 ) *P o s f u n :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e4 4 4 ) *P o s t f i x :o p e r a d o r e sd e f i n i d o sp o re lu s u a r i o . ( L i n e2 3 4 ) *P o t e n c i a l :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e5 1 2 ) *P o w e r _ m o d :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e3 9 1 ) *P o w e r d i s p :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e5 3 1 ) *F a c u l t a d e s :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e8 6 7 ) *P o w e r S e r i e s :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e2 5 9 ) *P o w e r s e t :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e7 6 3 ) *P r e d :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L i n e6 0 1 ) *P r e d e r r o r :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e5 2 6 ) *P r e f i j o :E lu s u a r i od e f i n el o so p e r a d o r e s . ( L i n e2 4 6 ) *P r e v _ p r i m e :F u n c i o n e syv a r i a b l e sd el aT e o r ad eN m e r o s . ( L i n e4 2 9 ) *E n t r a d aA n t e r i o r :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L n e a4 7 ) *S a l i d aA n t e r i o r :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L n e a9 2 ) *R e s u l t a d oa n t e r i o re nl ae x p r e s i nc o m p u e s t a :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L n e a1 0 6 ) *P r i m e p :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e4 0 6 ) *P r i m e p _ n u m b e r _ o f _ t e s t s :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e4 2 3 ) *I m p r i m i r :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e5 5 6 ) *P r i n t _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 0 1 4 ) *P r i n t f :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L n e a7 2 ) *P r i n t f i l e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e3 2 8 ) *P r i n t p o i s :S e r i ed eP o i s s o n .( L n e a9 8 ) *P r i n t p r o p s :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e4 5 2 ) *P r o d r a c :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e5 5 6 ) *P r o d u c t o :S u m a syp r o d u c t o s .( L n e a4 8 ) *P r o d u c t _ u s e _ g a m m a :F u n c i o n e syv a r i a b l e sp a r as o l v e _ r e c . ( L i n e1 7 5 ) *P r o g r a m a :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 6 6 ) *P r o g r a m m o d e :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e6 2 4 ) *S i s t e m a :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e5 3 7 ) *P r o p i e d a d e s :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e4 6 3 ) *P r o p o r t i o n a l _ a x e s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e1 5 4 5 ) *P r o p s :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e4 6 8 ) *P r o p v a r s :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e4 7 9 ) *P s e x p a n d :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e3 0 4 ) *P s f i l e :O p c i o n e sg r f i c a s .( L i n e2 1 0 ) *P s i< 1 > :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e5 1 3 )
617/633
28/08/13
*P s i :F u n c i o n e sG a m m ayf a c t o r i a l .

( L i n e6 7 2 ) *P s u b s t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e8 7 3 ) *P t r i a n g u l a r i z e :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e5 6 5 ) *P u i :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e1 2 4 ) *P u i 2 c o m p :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e1 5 1 ) *P u i 2 e l e :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e1 7 8 ) *P u i 2 p o l y n o m e :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e5 6 4 ) *P u i _ d i r e c t :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e4 2 4 ) *P u i r e d u c :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e1 8 8 ) *I m p u l s a r :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e3 4 8 ) *P u e s t o :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e4 8 5 ) *P v :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L n e a3 0 ) *Q p u t :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e5 1 2 ) *Q r a n g e :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e2 7 8 ) *C a n t i d a d :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e3 6 2 ) *Q u a d _ c o n t r o l :F u n c i o n e syv a r i a b l e sp a r aQ U A D P A C K . ( L n e a7 0 4 ) *Q u a d _ q a g :F u n c i o n e syv a r i a b l e sp a r aQ U A D P A C K . ( L n e a1 0 ) *Q u a d _ q a g i :F u n c i o n e syv a r i a b l e sp a r aQ U A D P A C K . ( L i n e1 7 1 ) *Q u a d _ q a g p :F u n c i o n e syv a r i a b l e sp a r aQ U A D P A C K . ( L i n e6 2 1 ) *Q u a d _ q a g s :F u n c i o n e syv a r i a b l e sp a r aQ U A D P A C K . ( L n e a9 1 ) *Q u a d _ q a w c :F u n c i o n e syv a r i a b l e sp a r aQ U A D P A C K . ( L i n e2 5 5 ) *Q u a d _ q a w f :F u n c i o n e syv a r i a b l e sp a r aQ U A D P A C K . ( L i n e3 4 7 ) *L af u n c i nq u a d _ q a w o :F u n c i o n e syv a r i a b l e sp a r aQ U A D P A C K . ( L i n e4 3 5 ) *L af u n c i nq u a d _ q a w s :F u n c i o n e syv a r i a b l e sp a r aQ U A D P A C K . ( L i n e5 2 9 ) *C u a d r i l t e r o :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 3 0 6 ) *C u a n t i l :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e2 3 4 ) *Q u a n t i l e _ b e r n o u l l i :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 6 3 ) *Q u a n t i l e _ b e t a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 1 5 ) *Q u a n t i l e _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e1 2 5 ) *Q u a n t i l e _ c a u c h y :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 5 4 ) *Q u a n t i l e _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e3 1 6 ) *Q u a n t i l e _ c o n t i n u o u s _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 7 5 ) *Q u a n t i l e _ d i s c r e t e _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 3 4 ) *Q u a n t i l e _ e x p :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e6 2 1 ) *Q u a n t i l e _ f :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e5 2 1 ) *Q u a n t i l e _ g a m m a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 4 2 ) *Q u a n t i l e _ g e n e r a l _ f i n i t e _ d i s c r e t e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a4 7 ) *Q u a n t i l e _ g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e3 7 6 ) *Q u a n t i l e _ g u m b e l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 8 4 ) *Q u a n t i l e _ h y p e r g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 0 5 ) *Q u a n t i l e _ l a p l a c e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 3 9 6 ) *Q u a n t i l e _ l o g i s t i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 3 7 ) *Q u a n t i l e _ l o g n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e7 6 9 ) *Q u a n t i l e _ n e g a t i v e _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 8 2 ) *Q u a n t i l e _ n o n c e n t r a l _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e4 5 3 ) *Q u a n t i l e _ n o n c e n t r a l _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e2 0 7 ) *Q u a n t i l e _ n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a2 9 ) *Q u a n t i l e _ p a r e t o :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 9 5 ) *Q u a n t i l e _ p o i s s o n :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s .
618/633
28/08/13

( L i n e1 9 2 ) *Q u a n t i l e _ r a y l e i g h :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 2 3 9 ) *Q u a n t i l e _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 8 ) *Q u a n t i l e _ w e i b u l l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 5 3 ) *Q u a r t i l e _ s k e w n e s s :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e4 7 6 ) *Q u i t :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e5 4 4 ) *Q u n i t :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e4 3 6 ) *C i t ad e lo p e r a d o r :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L n e a7 ) *O p e r a d o rc o m i l l a c o m i l l a :F u n c i o n e syv a r i a b l e sp a r al ae v a l u a c i n . ( L n e a1 0 2 ) *C o c i e n t e :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e8 7 3 ) *R a d c a n :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e5 3 6 ) *R a d e x p a n d :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e5 6 5 ) *R a d i o :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 0 4 1 ) *R a d s u b s t f l a g :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 2 4 5 ) *R a n d o m :N m e r o sa l e a t o r i o s .( L n e a3 3 ) *R a n d o m _ b e r n o u l l i :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e3 5 2 ) *R a n d o m _ b e t a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 5 0 ) *R a n d o m _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e1 6 2 ) *R a n d o m _ b i p a r t i t e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 6 7 ) *R a n d o m _ c a u c h y :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 6 1 ) *R a n d o m _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e4 2 7 ) *R a n d o m _ c o n t i n u o u s _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 1 2 ) *R a n d o m _ d i g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 7 2 ) *R a n d o m _ d i s c r e t e _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 7 2 ) *R a n d o m _ e x p :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e7 3 6 ) *R a n d o m _ f :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e5 6 7 ) *R a n d o m _ g a m m a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 7 7 ) *R a n d o m _ g e n e r a l _ f i n i t e _ d i s c r e t e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a8 9 ) *R a n d o m _ g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 1 1 ) *R a n d o m _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 8 3 ) *R a n d o m _ g r a p h 1 :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 8 8 ) *R a n d o m _ g u m b e l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 5 3 3 ) *R a n d o m _ h y p e r g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 4 9 ) *R a n d o m _ l a p l a c e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 3 1 ) *R a n d o m _ l o g i s t i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 7 2 ) *R a n d o m _ l o g n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 1 1 ) *R a n d o m _ n e g a t i v e _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e6 2 0 ) *R a n d o m _ n e t w o r k :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 92 ) *R a n d o m _ n o n c e n t r a l _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e4 9 3 ) *R a n d o m _ n o n c e n t r a l _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e2 6 0 ) *R a n d o m _ n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a7 4 ) *R a n d o m _ p a r e t o :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 3 1 ) *R a n d o m _ p e r m u t a t i o n :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e7 9 2 ) *R a n d o m _ p o i s s o n :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 2 7 ) *R a n d o m _ r a y l e i g h :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 3 7 3 ) *R a n d o m _ r e g u l a r _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e2 7 8 ) *R a n d o m _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a1 5 0 ) *R a n d o m _ t o u r n a m e n t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 0 6 ) *R a n d o m _ t r e e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 1 0 ) *R a n d o m _ w e i b u l l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s .
619/633
28/08/13

( L i n e1 1 8 9 ) *R a n g o :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e2 1 8 ) *R a n g od e< 1 > :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e5 8 6 ) *G r a d o :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 0 9 7 ) *R a s s o c i a t i v e :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e5 8 7 ) *R a t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e8 8 2 ) *R a t a l g d e n o m :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e9 3 5 ) *R a t c h r i s t o f :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 4 8 ) *F u n c i nr a t c o e f :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e9 4 5 ) *R a t d e n o m :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e9 7 2 ) *R a t d e n o m d i v i d e :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e9 8 6 ) *F u n c i nr a t d i f f :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 0 3 1 ) *R a t d i s r e p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 0 7 4 ) *R a t e i n s t e i n :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 5 2 ) *R a t e p s i l o n :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L i n e2 5 5 ) *R a t e x p a n d :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 0 8 7 ) *R a t f a c :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 1 3 5 ) *R a t i n t e r p o l :F u n c i o n e syv a r i a b l e sp a r ai n t e r p o l . ( L i n e2 7 9 ) *R a c i o n a l< 1 > :f u n c t sp a q u e t e .( L n e a3 4 ) *R a c i o n a l :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e5 3 8 ) *R a c i o n a l i z a r :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L i n e2 6 3 ) *R a t m x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 1 0 5 ) *R a t n u m e r :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 1 5 8 ) *R a t n u m p :F u n c i o n e syv a r i a b l e sp a r al o sn m e r o s . ( L i n e3 2 9 ) *R a t p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 1 7 2 ) *R a t p r i n t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 1 8 0 ) *R a t r i e m a n n :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 6 0 ) *R a t s i m p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 1 8 8 ) *R a t s i m p e x p o n s :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L n e a1 2 3 8 ) *R a t s u b s t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 2 5 2 ) *R a t v a r s :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 2 9 1 ) *R a t v a r s w i t c h :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 3 1 1 ) *R a t w e i g h t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 3 6 4 ) *V a r i a b l er a t w e i g h t s :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 3 9 2 ) *R a t w e y l :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 6 9 ) *R a t w t l v l :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 4 0 2 ) *L e e :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e5 5 4 ) *R e a d _ a r r a y :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad et e x t os i nf o r m a t o . ( L n e a2 8 ) *R e a d _ b i n a r y _ a r r a y :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ab i n a r i a . ( L n e a4 4 ) *R e a d _ b i n a r y _ l i s t :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ab i n a r i a . ( L n e a5 7 ) *R e a d _ b i n a r y _ m a t r i x :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ab i n a r i a . ( L n e a3 3 ) *R e a d _ h a s h e d _ a r r a y :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad et e x t os i nf o r m a t o . ( L n e a4 3 ) *R e a d _ l i s t :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad et e x t os i nf o r m a t o . ( L n e a7 2 ) *R e a d _ m a t r i x :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad et e x t os i nf o r m a t o . ( L n e a1 0 ) *R e a d _ n e s t e d _ l i s t :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad et e x t os i nf o r m a t o . ( L n e a5 8 ) *R e a d _ x p m :F u n c i o n e syv a r i a b l e sp a r al a sf o t o s . ( L n e a8 9 ) *R e a d l i n e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L i n e1 2 8 ) *S l ol e c t u r a :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e5 7 2 ) *R e a l :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e5 4 6 ) *R e a li n f i n i t o :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s .
620/633
28/08/13

( L n e a3 7 ) *R e a l _ i m a g p a r t _ t o _ c o n j u g a t e :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e6 5 1 ) *R e a l o n l y :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e6 3 8 ) *R e a l p a r t :F u n c i o n e sp a r al o sn m e r o sc o m p l e j o s . ( L i n e1 3 9 ) *R e a l r o o t s :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e6 4 8 ) *R e A r r a y :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L i n e4 0 3 ) *R e c t n g u l o :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 3 3 8 ) *R e c t f o r m :F u n c i o n e sp a r al o sn m e r o sc o m p l e j o s . ( L i n e1 4 5 ) *R e c t f o r m _ l o g _ i f _ c o n s t a n t :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e6 7 0 ) *R e c t t o p o l a r :F u n c i o n e syv a r i a b l e sp a r al o sm t o d o sn u m r i c o s . ( L n e a2 5 ) *R e d i f f :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e6 6 8 ) *R e d i b u j a r :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 3 1 ) *R e d u c e _ c o n s t s :r d u c o np a q u e t e .( L n e a7 ) *R e d u c e _ o r d e r :F u n c i o n e syv a r i a b l e sp a r as o l v e _ r e c . ( L n e a7 ) *R e f c h e c k :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L n e a1 8 ) *R e g i n :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 3 6 8 ) *R e g i o n _ b o u n d a r i e s :F u n c i o n e syv a r i a b l e sp a r aw o r l d m a p . ( L i n e1 2 2 ) *R e g i o n _ b o u n d a r i e s _ p l u s :F u n c i o n e syv a r i a b l e sp a r aw o r l d m a p . ( L i n e1 3 6 ) *R e m :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e5 5 6 ) *R e s t o :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 4 1 1 ) *R e m a r r a y :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L i n e4 1 1 ) *L l a m a d ar e m b o x :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e8 9 3 ) *R e m c o m p s :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e2 8 9 ) *G a t e w a yE a s t :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 7 5 ) *L l a m a d ar e m c o o r d :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e7 7 4 ) *L l a m a d ar e m f u n :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a1 3 ) *R e m f u n c t i o n :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 0 2 3 ) *R e m l e t :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e5 4 2 ) *E l i m i n a r :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e5 6 6 ) *R e m o v e _ c o n s t v a l u e :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e2 5 9 ) *R e m o v e _ d i m e n s i o n s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e4 9 2 ) *R e m o v e _ e d g e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 3 3 ) *R e m o v e _ f u n d a m e n t a l _ d i m e n s i o n s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e5 2 2 ) *R e m o v e _ f u n d a m e n t a l _ u n i t s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e5 5 4 ) *R e m o v e _ v e r t e x :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 4 8 ) *R E M P A R T :f u n c t sp a q u e t e .( L n e a7 ) *R e m r u l e :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e5 6 5 ) *R e m s y m :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e5 8 3 ) *R e m v a l u e :F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s . ( L n e a7 2 ) *C a m b i a re ln o m b r e :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L n e a7 8 ) *R e s e t :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e5 9 4 ) *R e s i d u o s :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e5 2 4 ) *R e s o l v a n t e :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e5 9 3 ) *R e s o l v a n t e _ a l t e r n e e 1 :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e7 7 8 ) *R e s o l v a n t e _ b i p a r t i t e :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e7 8 8 ) *R e s o l v a n t e _ d i e d r a l e :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e8 0 2 ) *R e s o l v a n t e _ k l e i n :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e8 2 1 ) *R e s o l v a n t e _ k l e i n 3 :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e8 3 1 ) *R e s o l v a n t e _ p r o d u i t _ s y m :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e8 4 1 ) *R e s o l v a n t e _ u n i t a i r e :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e8 6 8 )
621/633
28/08/13

*R e s o l v a n t e _ v i e r e r :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e8 7 8 ) *R e s t o :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e3 8 9 ) *R e s u l t a n t e :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 4 5 8 ) *R e g r e s o :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e5 4 0 ) *R e v e l a r :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e9 6 3 ) *I n v e r s a :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e3 9 6 ) *V o l v e r :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e3 1 8 ) *R e v e r t 2 :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e3 1 9 ) *R g b 2 l e v e l :F u n c i o n e syv a r i a b l e sp a r al a sf o t o s . ( L n e a9 3 ) *D c h a . :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e6 9 3 ) *R i c :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 0 5 ) *R i c c i :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e2 1 2 ) *R i e m :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 8 8 ) *R i e m a n n :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e2 5 6 ) *R i n v a r i a n t :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e3 0 0 ) *R i s c h :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e5 4 1 ) *R k :F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a . ( L i n e1 2 8 ) *R m x c h a r :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 1 2 5 ) *R n c o m b i n e :F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s . ( L n e a8 4 ) *R o m b e r g :F u n c i o n e syv a r i a b l e sp a r aR o m b e r g . ( L n e a7 ) *R o m b e r g a b s :F u n c i o n e syv a r i a b l e sp a r aR o m b e r g . ( L i n e1 0 8 ) *R o m b e r g i t :F u n c i o n e syv a r i a b l e sp a r aR o m b e r g . ( L i n e1 2 2 ) *R o m b e r g m i n :F u n c i o n e syv a r i a b l e sp a r aR o m b e r g . ( L i n e1 3 4 ) *R o m b e r g t o l :F u n c i o n e syv a r i a b l e sp a r aR o m b e r g . ( L i n e1 4 4 ) *C u a r t o :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L n e a3 6 ) *R o o t s c o n m o d e :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e7 3 5 ) *R o o t s c o n t r a c t :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e7 4 2 ) *R o o t s e p s i l o n :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e8 0 4 ) *R e d o n d e a r :F u n c i o n e sp a r al o sn m e r o s . ( L i n e2 3 1 ) *C o n s e c u t i v a s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 1 2 0 ) *R o w o p :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e5 8 0 ) *R o w S w a p :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e5 9 7 ) *R r e d u c e :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e8 1 2 ) *R u n _ t e s t s u i t e :F u n c i o n e syv a r i a b l e sp a r al ad e t e c c i nei n f o r m ed ef a l l o s . ( L n e a7 ) *R u n _ v i e w e r :T r a z a d oO p c i o n e s .( L i n e2 1 9 ) *A h o r r a :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e3 4 2 ) *S a v e d e f :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 0 4 1 ) *S a v e f a c t o r s :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 4 8 0 ) *A h o r r o :F u n c i o n e syv a r i a b l e sp a r al a sf i n a n z a s . ( L i n e1 8 8 ) *E s c a l a r :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e6 0 4 ) *S c a l a r m a t r i x p :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 1 3 4 ) *S c a l a r p :F u n c i o n e syv a r i a b l e sp a r al a sp r o p i e d a d e s . ( L i n e6 1 1 ) *S c a l e d _ b e s s e l _ i :F u n c i o n e sd eB e s s e l .( L i n e1 5 6 ) *S c a l e d _ b e s s e l _ i 0 :F u n c i o n e sd eB e s s e l .( L i n e1 6 6 ) *S c a l e d _ b e s s e l _ i 1 :F u n c i o n e sd eB e s s e l .( L i n e1 7 0 ) *F a c t o r e sd ee s c a l a :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 1 4 8 ) *S c a n m a p :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e5 4 6 ) *D i a g r a m ad ed i s p e r s i n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L i n e3 4 0 ) *S c a t t e r p l o t _ d e s c r i p t i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L i n e3 4 1 ) *S c h u r 2 c o m p :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e2 0 5 ) *S c o n c a t :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s .
622/633
28/08/13

( L n e a4 6 ) *S c o p y :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a6 5 ) *S c s i m p :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e5 9 3 ) *S c u r v a t u r e :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e2 3 0 ) *S d o w n c a s e :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a6 9 ) *S e c :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e2 3 1 ) *S e c h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e2 3 5 ) *S e g u n d o :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e4 0 2 ) *S e c u e l a :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a7 6 ) *S e q u a l i g n o r e :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a8 1 ) *S e t _ d r a w _ d e f a u l t s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e1 7 0 ) *S e t _ e d g e _ w e i g h t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 0 5 0 ) *S e n t e n c i as e t _ p a r t i t i o n s :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e9 3 1 ) *S e t _ p l o t _ o p t i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 6 1 ) *S e t _ r a n d o m _ s t a t e :N m e r o sa l e a t o r i o s .( L n e a2 7 ) *S e t _ t e x _ e n v i r o n m e n t :F u n c i o n e syv a r i a b l e sp a r al as a l i d aT e X . ( L i n e2 1 0 ) *S e t _ t e x _ e n v i r o n m e n t _ d e f a u l t :F u n c i o n e syv a r i a b l e sp a r al as a l i d aT e X . ( L i n e2 5 0 ) *S e t _ u p _ d o t _ s i m p l i f i c a t i o n s :F u n c i o n e syv a r i a b l e sp a r aA f i n e s . ( L n e a4 4 ) *S e t _ v e r t e x _ l a b e l :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 0 6 4 ) *S e t c h e c k :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L n e a2 5 ) *S e t c h e c k b r e a k :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L n e a5 5 ) *S e t d i f f e r e n c e :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e8 5 4 ) *S e t e l m x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 1 6 6 ) *S e t e q u a l p :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e8 7 9 ) *S e t i f y :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e8 9 5 ) *S e t p :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e9 1 2 ) *S e t u n i t s :F u n c i o n e syv a r i a b l e sp a r al a su n i d a d e s . ( L n e a7 ) *S e t u p _ a u t o l o a d :F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s . ( L i n e1 0 1 ) *S e t v a l :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L n e a6 8 ) *S p t i m o :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e4 0 7 ) *S e x p l o d e :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a8 5 ) *S f :F u n c i o n e syv a r i a b l e sp a r aa t e n s o r . ( L n e a9 7 ) *S h o r t e s t _ p a t h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 0 7 8 ) *S h o r t e s t _ w e i g h t e d _ p a t h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 0 8 9 ) *M o s t r a r :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 3 7 ) *S h o w _ e d g e _ c o l o r :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 0 7 ) *S h o w _ e d g e _ t y p e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 1 5 ) *S h o w _ e d g e _ w i d t h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 1 1 ) *S h o w _ e d g e s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 0 2 ) *S h o w _ i d :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 1 6 ) *M o s t r a r _ e t i q u e t a :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 2 2 ) *S h o w _ v e r t e x _ c o l o r :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 7 2 ) *S h o w _ v e r t e x _ s i z e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 6 8 ) *S h o w _ v e r t e x _ t y p e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 6 2 ) *S h o w _ v e r t i c e s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 5 6 ) *S h o w _ w e i g h t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 3 5 ) *S h o w c o m p s :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e2 9 4 ) *S h o w r a t v a r s :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 4 8 9 ) *S h o w t i m e :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e6 0 5 ) *S i e r p i n s k i a l e :D e f i n i c i o n e sp a r af r a c t a l e sI F S .
623/633
28/08/13

( L n e a2 0 ) *S i e r p i n s k i m a p :D e f i n i c i o n e sp a r al o sm a p a sd eP e a n o . ( L n e a2 0 ) *F i r m a r :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e4 0 9 ) *S i g n u m :F u n c i o n e sp a r al o sn m e r o s . ( L i n e2 3 7 ) *S i m i l a r i t y t r a n s f o r m :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 1 7 4 ) *S i m p :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e6 0 3 ) *S i m p _ i n e q u a l i t y :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e6 9 4 ) *S i m p l e _ l i n e a r _ r e g r e s s i o n :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L i n e8 2 5 ) *S i m p l i f i e d _ o u t p u t :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L n e a1 0 3 ) *S i m p l i f y _ p r o d u c t s :F u n c i o n e syv a r i a b l e sp a r as o l v e _ r e c . ( L n e a5 5 ) *S i m p l i f y _ s u m :F u n c i o n e syv a r i a b l e sp a r as o l v e _ r e c . ( L n e a6 4 ) *S i m p l o d e :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a9 0 ) *S i m p m e t d e r i v :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e8 0 9 ) *S i m p s u m :S u m a syp r o d u c t o s .( L n e a1 0 7 ) *S i m t r a n :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 1 7 5 ) *S i n :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e2 3 9 ) *S i n h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e2 4 3 ) *S i n n p i f l a g :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a5 7 ) *S i n s e r t :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a1 0 3 ) *S i n v e r t c a s e :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e1 1 5 ) *S e x t o :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e4 1 2 ) *A s i m e t r a :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e4 2 8 ) *S k e w n e s s _ b e r n o u l l i :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e3 1 5 ) *S k e w n e s s _ b e t a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 3 8 ) *S k e w n e s s _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a1 5 0 ) *S k e w n e s s _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e3 8 7 ) *S k e w n e s s _ c o n t i n u o u s _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 0 0 ) *S k e w n e s s _ d i s c r e t e _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 6 0 ) *S k e w n e s s _ e x p :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e7 0 0 ) *S k e w n e s s _ f :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e5 5 5 ) *S k e w n e s s _ g a m m a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 6 5 ) *S k e w n e s s _ g e n e r a l _ f i n i t e _ d i s c r e t e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a7 5 ) *S k e w n e s s _ g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e3 9 9 ) *S k e w n e s s _ g u m b e l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 5 1 2 ) *S k e w n e s s _ h y p e r g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a5 3 4 ) *S k e w n e s s _ l a p l a c e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 1 9 ) *S k e w n e s s _ l o g i s t i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 6 0 ) *S k e w n e s s _ l o g n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e7 9 9 ) *S k e w n e s s _ n e g a t i v e _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e6 0 8 ) *S k e w n e s s _ n o n c e n t r a l _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e4 8 0 ) *S k e w n e s s _ n o n c e n t r a l _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e2 4 6 ) *S k e w n e s s _ n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a6 2 ) *S k e w n e s s _ p a r e t o :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 1 8 ) *S k e w n e s s _ p o i s s o n :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 1 5 ) *S k e w n e s s _ r a y l e i g h :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 3 2 3 ) *S k e w n e s s _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 3 7 ) *S k e w n e s s _ w e i b u l l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 7 6 ) *S l e n g t h :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a1 2 6 ) *S m a k e :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a1 3 0 ) *S m a l l _ r h o m b i c o s i d o d e c a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s .
624/633
28/08/13

( L i n e3 1 4 ) *S m a l l _ r h o m b i c u b o c t a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 1 8 ) *S m a x :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e2 0 1 ) *S m i n :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L i n e1 8 4 ) *S m i s m a t c h :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e1 3 7 ) *S n o w m a p :D e f i n i c i o n e sd el o sc o p o sd en i e v ed eK o c h . ( L n e a7 ) *S n u b _ c u b e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 2 2 ) *S n u b _ d o d e c a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 2 6 ) *R e s o l v e r :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e8 1 2 ) *S o l v e _ r e c :F u n c i o n e syv a r i a b l e sp a r as o l v e _ r e c . ( L n e a8 7 ) *S o l v e _ r e c _ r a t :F u n c i o n e syv a r i a b l e sp a r as o l v e _ r e c . ( L i n e1 5 2 ) *S o l v e d e c o m p o s e s :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e9 7 0 ) *S o l v e e x p l i c i t :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e9 7 7 ) *S o l v e f a c t o r s :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e9 8 5 ) *S o l v e n u l l w a r n :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e9 9 3 ) *S o l v e r a d c a n :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e1 0 0 2 ) *S o l v e t r i g w a r n :F u n c i o n e syv a r i a b l e sp a r ae c u a c i o n e s . ( L i n e1 0 1 1 ) *A l g u n o s :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e9 8 4 ) *S o m r a c :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e5 8 2 ) *C l a s i f i c a c i n :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e4 1 7 ) *E s p a c i o :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a9 5 ) *E s c a s a :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 0 0 ) *S p a r s e 6 _ d e c o d e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 8 2 ) *S p a r s e 6 _ e n c o d e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 8 7 ) *S p a r s e 6 _ e x p o r t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 9 2 ) *S p a r s e 6 _ i m p o r t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 3 9 7 ) *S p e c i n t :F u n c i o n e syv a r i a b l e sp a r al a sf u n c i o n e se s p e c i a l e s . ( L n e a7 ) *E s f r i c a :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 3 8 9 ) *S p h e r i c a l _ b e s s e l _ j :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L i n e1 8 7 ) *S p h e r i c a l _ b e s s e l _ y :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L i n e1 9 4 ) *S p h e r i c a l _ h a n k e l 1 :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L i n e2 0 1 ) *S p h e r i c a l _ h a n k e l 2 :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L i n e2 0 7 ) *S p h e r i c a l _ h a r m o n i c :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L i n e2 1 3 ) *S p h e r i c a l _ t o _ x y z :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 9 1 ) *E m p a l m e :M a c r o s .( L i n e1 7 9 ) *D i v i d i r :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e1 4 9 ) *S p o s i t i o n :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e1 6 5 ) *S p r i n g _ e m b e d d i n g _ d e p t h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 5 0 ) *S p r i n t :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d a . ( L i n e1 3 4 ) *S q f r :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 4 9 6 ) *S q r t :r a zf u n c i o n e se x p o n e n c i a l e syl o g a r t m i c a s . ( L i n e2 4 0 ) *S q r t d e n e s t :s q d n s tp a q u e t e .( L n e a7 ) *S q r t d i s p f l a g :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e5 9 2 ) *S r e m o v e :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e1 7 2 ) *S r e m o v e f i r s t :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e1 8 8 ) *S r e v e r s e :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e1 9 5 ) *S s e a r c h :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e2 0 3 ) *S s o r t :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e2 1 5 ) *S s t a t u s :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L n e a4 9 ) *S s u b s t :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e2 3 2 )
625/633
28/08/13

*S s u b s t f i r s t :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e2 5 0 ) *E s c a l e r a :F u n c i o n e syv a r i a b l e sp a r al ad i n m i c a . ( L i n e1 7 0 ) *S t a n d a r d i z e _ i n v e r s e _ t r i g :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e7 1 8 ) *S t a r d i s p :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e5 9 9 ) *S t a r P l o t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L i n e3 9 8 ) *S t a r p l o t _ d e s c r i p t i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o se s t a d s t i c o s . ( L i n e3 9 9 ) *S t a t s _ n u m e r :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L n e a7 ) *E s t a d o :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L n e a6 1 ) *S t d :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L n e a8 0 ) *S t d 1 :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L n e a9 9 ) *S t d _ b e r n o u l l i :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 9 9 ) *S t d _ b e t a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 3 2 ) *S t d _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e1 4 4 ) *S t d _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e3 6 9 ) *S t d _ c o n t i n u o u s _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 9 4 ) *S t d _ d i s c r e t e _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 5 4 ) *S t d _ e x p :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e6 8 0 ) *S t d _ f :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e5 4 9 ) *S t d _ g a m m a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 5 9 ) *S t d _ g e n e r a l _ f i n i t e _ d i s c r e t e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a6 8 ) *S t d _ g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e3 9 3 ) *S t d _ g u m b e l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 5 0 6 ) *S t d _ h y p e r g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 2 7 ) *S t d _ l a p l a c e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 1 3 ) *S t d _ l o g i s t i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 5 4 ) *S t d _ l o g n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e7 9 3 ) *S t d _ n e g a t i v e _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e6 0 2 ) *S t d _ n o n c e n t r a l _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e4 7 4 ) *S t d _ n o n c e n t r a l _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e2 3 9 ) *S t d _ n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a5 6 ) *S t d _ p a r e t o :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 1 2 ) *S t d _ p o i s s o n :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 0 9 ) *S t d _ r a y l e i g h :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 3 0 1 ) *S t d _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 3 1 ) *S t d _ w e i b u l l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 7 0 ) *D i a g r a m ad et a l l o s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o sd ee s t a d s t i c a s . ( L i n e4 6 1 ) *S t i r l i n g :F u n c i o n e syv a r i a b l e sp a r as t i r l i n g . ( L n e a8 ) *S t i r l i n g 1 :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 0 5 4 ) *S t i r l i n g 2 :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 1 1 3 ) *S t r i m :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e2 5 5 ) *S t r i m l :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e2 6 6 ) *S t r i m r :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e2 7 0 ) *C a d e n a :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a5 4 ) *S t r i n g d i s p :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a6 2 ) *S t r i n g o u t :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e3 9 9 ) *S t r i n g p :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L n e a7 ) *S t r o n g _ c o m p o n e n t s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 1 0 6 ) *E s t r u c t u r a s :F u n c i o n e syv a r i a b l e sp a r al a se s t r u c t u r a s . ( L n e a7 ) *S t r u v e _ h :F u n c i o n e sd eS t r u v e .( L n e a1 0 )
626/633
28/08/13

*S t r u v e _ l :F u n c i o n e sd eS t r u v e .( L n e a1 4 ) *E s t i l o :O p c i o n e sg r f i c a s .( L i n e2 2 7 ) *S u b l i s :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 0 2 6 ) *S u b l i s _ a p p l y _ l a m b d a :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 0 4 2 ) *S u b l i s t a :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e5 5 0 ) *S u b l i s t _ i n d i c e s :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e5 6 2 ) *S u b m a t r i z :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 0 9 ) *S u b n u m s i m p :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 0 5 0 ) *S u b m u e s t r a :F u n c i o n e syv a r i a b l e sp a r al am a n i p u l a c i nd ed a t o s . ( L n e a6 5 ) *S u b n d i c eo p e r a d o r :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L n e a8 ) *S u b g r u p o :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 1 8 3 ) *S u b s e t p :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 2 0 2 ) *S u b s t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 0 6 9 ) *S u b s t _ p a r a l l e l :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e7 3 0 ) *S u b s t i n p a r t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 1 2 0 ) *S u b s t p a r t :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 1 7 7 ) *S u b c a d e n a :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e2 7 4 ) *R e s t a :L o so p e r a d o r e sa r i t m t i c o s . ( L n e a8 ) *S u b v a r :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L i n e4 2 8 ) *S u b v a r p :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L i n e4 5 3 ) *S u m a :S u m a syp r o d u c t o s .( L i n e1 1 7 ) *S u m c o n t r a c t :S u m a syp r o d u c t o s .( L i n e2 1 8 ) *S u m e x p a n d :S u m a syp r o d u c t o s .( L i n e2 3 1 ) *S u m m a n d _ t o _ r e c :F u n c i o n e syv a r i a b l e sp a r as o l v e _ r e c . ( L i n e1 8 5 ) *V a r i a b l es u m s p l i t f a c tv a l e :F u n c i o n e sc o m b i n a t o r i a s . ( L i n e1 8 1 ) *S u p c a s e :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e2 8 9 ) *S u p c o n t e x t :F u n c i o n e syv a r i a b l e sp a r aD a t o s . ( L i n e4 1 9 ) *S u r f a c e _ h i d e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 5 8 4 ) *S y m b o l p :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 2 0 6 ) *S y m m d i f f e r e n c e :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 2 1 5 ) *S i m t r i c a :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e6 4 2 ) *S y m m e t r i c p :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e8 3 9 ) *S i s t e m a :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L n e a8 4 ) *T :O p c i o n e sg r f i c a s .( L i n e2 6 5 ) *F i c h a :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a9 9 ) *T a k e _ c h a n n e l :F u n c i o n e syv a r i a b l e sp a r al a sf o t o s . ( L n e a9 8 ) *T a k e _ i n f e r e n c e :F u n c i o n e syv a r i a b l e sp a r ai n f e r e n c e _ r e s u l t . ( L n e a7 4 ) *T a n :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e2 4 7 ) *T a n h :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e2 5 1 ) *T a y l o r :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e3 6 0 ) *T a y l o r _ l o g e x p a n d :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e5 5 5 ) *T a y l o r _ o r d e r _ c o e f f i c i e n t s :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e5 7 2 ) *T a y l o r _ s i m p l i f i e r :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e5 8 2 ) *T a y l o r _ t r u n c a t e _ p o l y n o m i a l s :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e5 8 7 ) *T a y l o r d e p t h :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e5 1 8 ) *T a y l o r i n f o :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e5 2 6 ) *T a y l o r p :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e5 5 1 ) *T a y t o r a t :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e5 9 7 ) *T c l _ o u t p u t :F u n c i o n e syv a r i a b l e sp a r al am i s c e l n e ad eo p c i o n e s . ( L i n e1 3 5 ) *T c o n t r a c t :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e2 7 9 ) *T e l l r a t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 5 1 3 ) *T e l l s i m p :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s .
627/633
28/08/13

( L i n e6 1 0 ) *T e l l s i m p a f t e r :F u n c i o n e syv a r i a b l e ss o b r er e g l a syp a t r o n e s . ( L i n e6 6 8 ) *T e n s o r k i l l :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 7 1 ) *T e n t e x :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 5 4 8 ) *D c i m a :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e5 9 9 ) *T e r m i n a ld e< 1 > :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 6 0 2 ) *T e r m i n a l :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 5 7 ) *T e s t _ m e a n :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L n e a1 6 ) *T e s t _ m e a n s _ d i f f e r e n c e :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L i n e1 2 5 ) *T e s t _ n o r m a l i t y :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L i n e7 9 1 ) *T e s t _ p r o p o r t i o n :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L i n e3 8 8 ) *T e s t _ p r o p o r t i o n s _ d i f f e r e n c e :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L i n e4 8 7 ) *T e s t _ r a n k _ s u m :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L i n e7 1 8 ) *T e s t _ s i g n :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L i n e5 8 0 ) *T e s t _ s i g n e d _ r a n k :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L i n e6 3 7 ) *T e s t _ v a r i a n c e :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L i n e2 4 1 ) *T e s t _ v a r i a n c e _ r a t i o :F u n c i o n e syv a r i a b l e sp a r al a se s t a d s t i c a s . ( L i n e3 1 4 ) *T e s t s u i t e _ f i l e s :F u n c i o n e syv a r i a b l e sp a r al ad e t e c c i nei n f o r m ed ef a l l o s . ( L n e a4 9 ) *T e x :F u n c i o n e syv a r i a b l e sp a r al as a l i d aT e X . ( L n e a1 2 ) *T E X 1 :F u n c i o n e syv a r i a b l e sp a r al as a l i d aT e X . ( L n e a6 6 ) *T e x p u t :F u n c i o n e syv a r i a b l e sp a r al as a l i d aT e X . ( L n e a7 6 ) *T e r c e r o :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e6 0 4 ) *T i r oF u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e5 8 6 ) *T i e m p o :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L n e a1 0 4 ) *T i m e D a t e :F u n c i o n e syv a r i a b l e sp a r ae le n t o r n od et i e m p od ee j e c u c i n . ( L i n e1 1 5 ) *T e m p o r i z a d o r :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L n e a7 8 ) *T i m e r _ d e v a l u e :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L i n e1 1 9 ) *T i m e r _ i n f o :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L i n e1 3 1 ) *T i t l e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 6 7 3 ) *T l d e f i n t :F u n c i o n e syv a r i a b l e sp a r al aI n t e g r a c i n . ( L i n e5 6 4 ) *T l i m i t :F u n c i o n e syv a r i a b l e sp a r al m i t e s . ( L n e a6 7 ) *T l i m s w i t c h :F u n c i o n e syv a r i a b l e sp a r al m i t e s . ( L n e a7 4 ) *T o _ l i s p :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e6 1 7 ) *T o _ p o l y :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e7 8 5 ) *T o _ p o l y _ s o l v e :F u n c i o n e syv a r i a b l e sp a r at o _ p o l y _ s o l v e . ( L i n e8 4 4 ) *T o d d _ c o x e t e r :F u n c i o n e syv a r i a b l e sp a r aG r u p o s . ( L n e a8 ) *T o e p l i t z :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e6 0 2 ) *T o k e n s :F u n c i o n e syv a r i a b l e sp a r al a sc a d e n a s . ( L i n e3 0 0 ) *T o p o l o g i c a l _ s o r t :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 1 1 8 ) *T o t a l d i s r e p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 5 6 7 ) *T o t a l f o u r i e r :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e sd eF o u r i e r . ( L n e a8 5 ) *T o t i e n t :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e4 4 8 ) *T p a r t p o l :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e2 8 5 ) *T r :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 5 3 ) *T r _ a r r a y _ a s _ r e f :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 1 8 4 ) *T r _ b o u n d _ f u n c t i o n _ a p p l y p :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 1 9 6 ) *T r _ f i l e _ t t y _ m e s s a g e s p :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 0 8 ) *T r _ f l o a t _ c a n _ b r a n c h _ c o m p l e x :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 1 8 ) *T r _ f u n c t i o n _ c a l l _ d e f a u l t :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 3 3 )
628/633
28/08/13

*T r _ n u m e r :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 4 8 ) *T r _ o p t i m i z e _ m a x _ l o o p :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 5 5 ) *T r _ s e m i c o m p i l e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 6 4 ) *T r _ s t a t e _ v a r s :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 7 2 ) *T r _ w a r n _ b a d _ f u n c t i o n _ c a l l s :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 9 0 ) *T r _ w a r n _ f e x p r :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 9 8 ) *T r _ w a r n _ m e v a l :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 3 0 6 ) *T r _ w a r n _ m o d e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 3 1 3 ) *T r _ w a r n _ u n d e c l a r e d :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 3 2 0 ) *T r _ w a r n _ u n d e f i n e d _ v a r i a b l e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 3 2 7 ) *T r _ w a r n i n g s _ g e t :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 2 8 5 ) *R e m o n t a r :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L i n e1 5 2 ) *T r a c e _ o p t i o n s :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L i n e1 7 9 ) *T r a c e m a t r i x :f u n c t sp a q u e t e .( L n e a2 8 ) *T r a n s c o m p i l e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 0 5 3 ) *T r a n s f o r m :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 6 8 9 ) *T r a n s f o r m _ x y :O p c i o n e sg r f i c a s .( L i n e2 7 1 ) *T r a d u c i r :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 0 6 5 ) *T r a n s l a t e _ f i l e :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 1 1 9 ) *T r a n s p a r e n t :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 7 3 0 ) *T r a n s p o s i c i n :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 1 5 ) *T r a n s r u n :F u n c i o n e syv a r i a b l e sp a r al ad e f i n i c i nd ef u n c i o n e s . ( L i n e1 1 7 6 ) *T r e e _ r e d u c e :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 2 4 3 ) *T r e e f a l e :D e f i n i c i o n e sp a r af r a c t a l e sI F S . ( L n e a3 2 ) *T r e i l l i s :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e4 9 6 ) *T r e i n a t :F u n c i o n e syv a r i a b l e sp a r aS i m e t r a s . ( L i n e5 0 5 ) *T r i n g u l o :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 4 1 0 ) *T r i a n g u l a r i z e :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 2 8 ) *T r i g e x p a n d :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e2 5 5 ) *T r i g e x p a n d p l u s :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e2 9 2 ) *T r i g e x p a n d t i m e s :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e3 0 1 ) *T r i g i n v e r s e s :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e3 1 0 ) *T r i g r a t :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e3 6 0 ) *T r i g r e d u c e :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e3 2 7 ) *T r i g s i g n :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e3 4 1 ) *T r i g s i m p :F u n c i o n e syv a r i a b l e sp a r at r i g o n o m t r i c a . ( L i n e3 4 9 ) *T r i v i a l _ s o l u t i o n s :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L i n e1 3 2 ) *T r u e :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L i n e1 1 1 ) *T r u n c :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e6 0 3 ) *T r u n c a t e d _ c u b e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 3 0 ) *T r u n c a t e d _ d o d e c a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 3 4 ) *T r u n c a t e d _ i c o s a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 3 8 ) *T r u n c a t e d _ t e t r a h e d r o n _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 4 2 ) *T t y o f f :F u n c i o n e syv a r i a b l e sp a r al ap a n t a l l a . ( L i n e6 0 6 ) *T u b o :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 4 4 1 ) *T u b e _ e x t r e m e s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e1 7 4 8 ) *T u t t e _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 4 6 ) *N o m b r eu e i v e c t s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 5 2 ) *U F G :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 1 8 3 ) *U f o r g e t :F u n c i o n e syv a r i a b l e sp a r al a su n i d a d e s .
629/633
28/08/13
*U g :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r .

( L i n e1 1 5 ) ( L i n e1 2 1 8 ) *U l t r a s p h e r i c a l :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L i n e2 2 7 ) *U n d :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L i n e1 1 6 ) *I n d e f i n i d o :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L i n e1 1 6 ) *U n d e r l y i n g _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 5 0 ) *U n d i f f :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e6 7 3 ) *S i n d i c a t o :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 2 7 8 ) * n i c o :F u n c i o n e syv a r i a b l e sp a r al i s t a s . ( L i n e5 8 6 ) *U n i t _ s t e p :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o so r t o g o n a l e s . ( L i n e2 1 9 ) *U n i t _ v e c t o r s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e1 7 6 4 ) *U n i t e i g e n v e c t o r s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 5 1 ) *U n i t p :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e4 1 0 ) *U n i d a d e s :F u n c i o n e syv a r i a b l e sp a r ae z u n i t s . ( L i n e3 0 1 ) *U n i t v e c t o r :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 8 0 ) *D e s c o n o c i d a :F u n c i o n e syv a r i a b l e sp a r ap r e d i c a d o s . ( L i n e1 8 4 ) *Am e n o sq u e :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e5 9 3 ) *U n o r d e r :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 2 1 4 ) *U n s u m :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e6 2 0 ) *U n t e l l r a t :F u n c i o n e syv a r i a b l e sp a r ap o l i n o m i o s . ( L i n e1 5 7 8 ) *U n t i m e r :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L n e a1 0 4 ) *U n t r a c e :F u n c i o n e syv a r i a b l e sp a r al ad e p u r a c i n . ( L i n e2 3 8 ) *U p p e r c a s e p :F u n c i o n e syv a r i a b l e sp a r ac a r a c t e r e s . ( L n e a1 0 3 ) * r i c o :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 0 9 ) *U r i c c i :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e2 1 9 ) *U r i e m :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 0 1 ) *U r i e m a n n :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e2 9 4 ) *U s e _ f a s t _ a r r a y s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e s . ( L i n e4 5 8 ) *U s e r _ p r e a m b l e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 7 8 5 ) *U s e r s e t u n i t s :F u n c i o n e syv a r i a b l e sp a r al a su n i d a d e s . ( L i n e2 1 6 ) *E ln o m b r eu v e c t :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 8 1 ) *V a l o r e s :F u n c i o n e syv a r i a b l e sp a r al al n e ad ec o m a n d o s . ( L i n e6 4 6 ) *V a n d e r m o n d e _ m a t r i x :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e6 2 1 ) *V a r :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L n e a3 4 ) *V a r 1 :F u n c i o n e syv a r i a b l e sd ev a l o r e sd e s c r i p t i v o s . ( L n e a5 5 ) *V a r _ b e r n o u l l i :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 8 4 ) *V a r _ b e t a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 2 7 ) *V a r _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e1 3 8 ) *V a r _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e3 5 2 ) *V a r _ c o n t i n u o u s _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e9 8 8 ) *V a r _ d i s c r e t e _ u n i f o r m :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e4 4 8 ) *V a r _ e x p :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e6 5 9 ) *V a r _ f :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e5 4 4 ) *V a r _ g a m m a :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e8 5 4 ) *V a r _ g e n e r a l _ f i n i t e _ d i s c r e t e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L n e a6 1 ) *V a r _ g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e3 8 8 ) *V a r _ g u m b e l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 5 0 1 ) *V a r _ h y p e r g e o m e t r i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 2 0 ) *V a r _ l a p l a c e :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 4 0 8 )
630/633
28/08/13

*V a r _ l o g i s t i c :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 0 4 9 ) *V a r _ l o g n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e7 8 8 ) *V a r _ n e g a t i v e _ b i n o m i a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e5 9 6 ) *V a r _ n o n c e n t r a l _ c h i 2 :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e4 6 9 ) *V a r _ n o n c e n t r a l _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e2 3 2 ) *V a r _ n o r m a l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L n e a5 0 ) *V a r _ p a r e t o :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 0 7 ) *V a r _ p o i s s o n :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sd i s c r e t a s . ( L i n e2 0 4 ) *V a r _ r a y l e i g h :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 2 7 9 ) *V a r _ s t u d e n t _ t :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 2 1 ) *V a r _ w e i b u l l :F u n c i o n e syv a r i a b l e sp a r ad i s t r i b u c i o n e sc o n t i n u a s . ( L i n e1 1 6 5 ) *V e c t _ c r o s s :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 3 3 5 ) *V e c t o r :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e3 4 6 6 ) *V e c t o r p o t e n t i a l :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 9 0 ) *V e c t o r s i m p :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 2 9 7 ) *V e r b i f y :F u n c i o n e syv a r i a b l e sp a r ae x p r e s i o n e s . ( L i n e1 2 5 2 ) *V e r b o s e :F u n c i o n e syv a r i a b l e sp a r al a ss e r i e s . ( L i n e6 5 0 ) *V e r s :f u n c t sp a q u e t e .( L i n e1 7 4 ) *V e r t e x _ c o l o r :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 5 2 ) *V e r t e x _ c o l o r i n g :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 2 1 0 ) *V e r t e x _ c o n n e c t i v i t y :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 1 3 5 ) *V e r t e x _ d e g r e e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 1 4 1 ) *V e r t e x _ d i s t a n c e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 1 4 5 ) *V e r t e x _ e c c e n t r i c i t y :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 1 5 8 ) *V e r t e x _ i n _ d e g r e e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 1 6 8 ) *V e r t e x _ o u t _ d e g r e e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 1 8 8 ) *V e r t e x _ p a r t i t i o n :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 7 6 ) *V e r t e x _ s i z e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 4 8 ) *V e r t e x _ t y p e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 5 4 1 ) *V r t i c e s :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 2 0 1 ) *V e r t i c e s _ t o _ c y c l e :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 8 5 ) *V e r t i c e s _ t o _ p a t h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 6 8 0 ) *V e r :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 8 0 8 ) *A d v e r t e n c i a s :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L i n e1 1 7 ) *P r o d u c t oW e d g e :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 3 9 4 ) *W e y l :F u n c i o n e syv a r i a b l e sp a r ac t e n s o r . ( L i n e1 2 2 2 ) *W h e e l _ g r a p h :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e3 5 4 ) *W h i l e :F u n c i o n e syv a r i a b l e sp a r al ap r o g r a m a c i n . ( L i n e5 9 2 ) *W i e n e r _ i n d e x :F u n c i o n e syv a r i a b l e sp a r ag r f i c o s . ( L i n e1 2 2 4 ) *W i r e d _ s u r f a c e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 8 2 6 ) *W i t h _ s t d o u t :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e4 4 5 ) *W r i t e _ b i n a r y _ d a t a :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ab i n a r i a . ( L n e a7 0 ) *W r i t e _ d a t a :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad et e x t os i nf o r m a t o . ( L n e a8 9 ) *W r i t e f i l e :F u n c i o n e syv a r i a b l e sp a r ae n t r a d ays a l i d ad ea r c h i v o s . ( L i n e4 7 4 ) *W r o n s k i a n o :f u n c t sp a q u e t e .( L n e a1 6 ) *X :T r a z a d oO p c i o n e s .( L i n e2 8 1 ) *X _ v o x e l :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 8 4 4 ) *X a x i s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e1 8 5 2 ) *X a x i s _ c o l o r :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 8 7 0 ) *X a x i s _ s e c o n d a r y :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 8 8 9 )
631/633
28/08/13

*X a x i s _ t y p e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 9 1 6 ) *X a x i s _ w i d t h :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 9 3 5 ) *X l a b e l< 1 > :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 9 5 4 ) *X l a b e l :O p c i o n e sg r f i c a s .( L i n e2 9 0 ) *X r a n g e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 9 7 3 ) *X r a n g e _ s e c o n d a r y :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e1 9 9 4 ) *X r e d u c e :F u n c i o n e syv a r i a b l e sp a r al o sc o n j u n t o s . ( L i n e1 3 0 6 ) *F u n c i nx t h r u :F u n c i o n e syv a r i a b l e sp a r as i m p l i f i c a c i n . ( L i n e6 5 0 ) *X t i c s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 0 0 9 ) *X t i c s _ a x i s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 0 7 0 ) *X t i c s _ r o t a t e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 0 8 1 ) *X t i c s _ r o t a t e _ s e c o n d a r y :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 0 9 1 ) *X t i c s _ s e c o n d a r y :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 1 0 1 ) *X t i c s _ s e c o n d a r y _ a x i s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 1 1 0 ) *X u _ g r i d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 1 2 1 ) *X y _ f i l e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 1 4 1 ) *X y p l a n e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 1 5 2 ) *Y :O p c i o n e sg r f i c a s .( L i n e3 0 0 ) *Y _ v o x e l :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 1 7 0 ) *Y a x i s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 1 7 8 ) *Y a x i s _ c o l o r :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 1 9 6 ) *Y a x i s _ s e c o n d a r y :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 2 1 5 ) *Y a x i s _ t y p e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 2 3 9 ) *Y a x i s _ w i d t h :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 2 5 8 ) *Y l a b e l< 1 > :T r a z a d oO p c i o n e s .( L i n e3 0 7 ) *Y l a b e l :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 2 7 7 ) *Y r a n g e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 2 9 6 ) *Y r a n g e _ s e c o n d a r y :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 3 1 8 ) *Y T i c s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 3 4 5 ) *Y t i c s _ a x i s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 3 5 4 ) *Y t i c s _ r o t a t e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 3 6 5 ) *Y t i c s _ r o t a t e _ s e c o n d a r y :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 3 7 5 ) *Y t i c s _ s e c o n d a r y :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 3 8 5 ) *Y t i c s _ s e c o n d a r y _ a x i s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 3 9 4 ) *Y v _ g r i d :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 4 0 5 ) *Z :T r a z a d oO p c i o n e s .( L i n e3 1 6 ) *Z _ v o x e l :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 4 2 5 ) *Z a x i s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 4 3 3 ) *Z a x i s _ c o l o r :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 4 5 3 ) *Z a x i s _ t y p e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 4 7 4 ) *Z a x i s _ w i d t h :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 4 9 4 ) *Z e i l b e r g e r :F u n c i o n e syv a r i a b l e sp a r az e i l b e r g e r . ( L n e a7 3 ) *Z e r o a :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L i n e1 2 7 ) *Z e r o b :F u n c i o n e syv a r i a b l e sp a r aC o n s t a n t e s . ( L i n e1 4 4 ) *Z e r o b e r n :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e4 5 3 ) *L af u n c i nz e r o e q u i v :F u n c i o n e syv a r i a b l e sp a r ap r e d i c a d o s . ( L i n e1 8 9 ) *Z e r o f o r :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e6 2 7 ) *Z e r o m a t r i x :F u n c i o n e syv a r i a b l e sp a r al a sm a t r i c e sye l l g e b r al i n e a l . ( L i n e1 3 4 3 ) *Z e r o m a t r i x p :F u n c i o n e syv a r i a b l e sp a r al i n e a r a l g e b r a . ( L i n e6 4 0 ) *Z e t a :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s . ( L i n e4 6 1 ) *Z e t a %p i :F u n c i o n e syv a r i a b l e sp a r at e o r ad en m e r o s .
632/633
28/08/13

( L i n e4 9 4 ) *Z l a b e l< 1 > :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 5 1 4 ) *Z l a b e l :O p c i o n e sg r f i c a s .( L i n e3 2 1 ) *Z l a n g e :F u n c i o n e syv a r i a b l e sp a r al a p a c k . ( L i n e2 7 8 ) *Z r a n g e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 5 3 4 ) *Z t i c s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 5 5 7 ) *Z t i c s _ a x i s :F u n c i o n e syv a r i a b l e sp a r as o r t e o . ( L i n e2 5 6 6 ) *Z t i c s _ r o t a t e :F u n c i o n e syv a r i a b l e sp a r ad r a w . ( L i n e2 5 7 7 ) *| :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 4 2 8 ) *~ :F u n c i o n e syv a r i a b l e sp a r ai t e n s o r . ( L i n e1 3 9 4 )
Pgina de Documentacin
633/633

Manual - Euler Math Toolbox

Enviado por

Direitos autorais:

Formatos disponíveis

Manual - Euler Math Toolbox

Enviado por

Dados do documento

Direitos autorais

Formatos disponíveis

Compartilhar este documento

Compartilhar ou incorporar documento

Opções de compartilhamento

Você considera este documento útil?

Este conteúdo é inapropriado?

Direitos autorais:

Formatos disponíveis

Manual - Euler Math Toolbox

Enviado por

Direitos autorais:

Formatos disponíveis

28/08/13

Euler Math Toolbox - Referencia

Maxima 5.26.0 Manual

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

2 Deteccin e informe de fallos

2.1 Funciones y variables para la deteccin e informe de fallos

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

F u n c i n :b u i l d _ i n f o( ) I m p r i m eu nr e s u m e nd el o sp a r m e t r o sd el aM a x i m ab u i l d . ` B u i l d _ i n f o' d e v u e l v eu n ac a d e n av a c a ' "" ' .C o n s u l t et a m b i n` b u g _ r e p o r t' .

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

3.2 Funciones y variables para la ayuda

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

` M a n u a l _ d e m o' e s p e c i f i c ae ln o m b r ed e la r c h i v oq u ec o n t i e n el a e j e m p l o sp a r al af u n c i n` e j e m p l o' .V a s ee le j e m p l o` ' .

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

4.3 Funciones y variables para la pantalla

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

` A b s b o x c h a r' e lc a r c t e rau t i l i z a rp a r ad i b u j a rl o ss i g n o sd ev a l o ra b s o l u t o u n ae x p r e s i nq u eo c u p am sd eu n al n e ad ea l t o . E j e m p l o : ( %I 1 )a b s( ( x^3+1 ) ) ; !3 ! ( %O 1 ) !X+1 !

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

V a r i a b l eo p c i o n a l :i b a s e V a l o rp o rd e f e c t o :1 0' ` I b a s e' e sl ab a s ed eM a x i m al e ev a l o r e se n t e r o s . ` I b a s e' p u e d ea s i g n a rc u a l q u i e re n t e r oe n t r e2y3 6( d e c i m a l ) ,

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

file:///C:/Program Files (x86)/Euler/docs/reference/maximacore.html

Euler Math Toolbox - Referencia

V a r i a b l eo p c i o n a l :s q r t d i s p f l a g V a l o rp o rd e f e c t o :t r u e' C u a n d o` s q r t d i s p f l a g' e s 'f a l s e' ,h a c eq u e `s q r t 'p a r av i s u a l i z a rc o n e x p o n e n t em e d i o .