! ! ! u s i n g ( " s y s " , " w i n " , " m a t h " ) ; 
 
 
 
 " 
 
 !jWW C h a r t W n d [(uQpe ]~ыSNvcO(u!jWWvQpe0
 
 " ; 
 
 
 
 / / l u S h a r e X cS N*Nw5N~pe~	~6RqQNX tƉV
 
 : : : l u S h a r e X ( A r r a y   :   A r r a y L e n ,   D i m L e n ,   n C o l s ,   n R o w s ,   i ,   x ,   k ) = 
 
     A r r a y   =   c a s t [ A r r a y ,   r e a l _ s ] , 
 
     A r r a y L e n   =   l e n [ A r r a y ,   & D i m L e n ,   & n C o l s ,   & n R o w s ] , 
 
     c w R e s e t C h a r t ( ) ,   c w A t t a c h [ t y p e S h a r e X ] ,   c w R e s i z e P l o t s ( n R o w s - 1 ) , 
 
     x = A r r a y ( a l l : 0 ) . r e s h a p e ( ) ,   i = 1 ,   w h i l e { i < n R o w s ,   c w A d d C u r v e [ x ,   A r r a y ( a l l : i ) . r e s h a p e ( ) ,   n C o l s ,   i - 1 ] ,   i + + } ; 
 
 
 
 / / l u P l o t cS N*Nl u [a~6R NCQQpeqQNX tVb_l u [a<h_
 
 / / l u { x M i n ,   x M a x ,   ~Vppe_ :w:N1 0 0 0 ,   @ f 1 ,   " f 1 f~hS:w	" ,   @ f 2 ,   " f 2 f~hS:w	" ,   . . .   . . . } 
 
 : : : l u P l o t ( m e   :   m e L e n ,   x ,   n x ,   k ,   i ,   f ,   f m a x ,   i d D a t a ) = 
 
 { 
 
     m e L e n   =   l e n [ m e ] , 
 
     n x   =   w h i c h { m e ( 2 ) . v t y p e ( ) = = v t y p e ( 0 ) ,   [ k = 3 ,   m e ( 2 ) ] ,   [ k = 2 ,   1 0 0 0 ] } , 
 
     x   =   l i n s p a c e [ m e ( 0 ) , m e ( 1 ) , n x ] , 
 
     f m a x = 0 ,   i = k ,   w h i l e { i < m e L e n ,   i f [ v t y p e ( @ l u P l o t ) = = v t y p e ( m e ( i + + ) ) ,   f m a x + + ] } , 
 
     c w R e s e t C h a r t ( ) ,   c w A t t a c h [ t y p e S h a r e X ] ,   c w R e s i z e P l o t s ( f m a x ) , 
 
     f m a x = 0 ,   i = k ,   w h i l e { i < m e L e n , 
 
         i f [ v t y p e ( @ l u P l o t ) ! = v t y p e ( m e ( i ) ) ,   i + + ,   c o n t i n u e ( ) ] , 
 
         f   =   m e ( i + + ) ,   i d D a t a = c w A d d C u r v e [ x ,   f ( x ) ,   n x ,   f m a x ] ,   c w S e t U s e L e g e n d [ t r u e ,   f m a x ] ,   
 
         i f { i < m e L e n ,   i f [ v t y p e ( " " ) = = v t y p e ( m e ( i ) ) ,   c w S e t D a t a T i t l e ( m e ( i ) ,   c w G e t I n d e x ( i d D a t a ) ,   f m a x ) ] } , 
 
         f m a x + + 
 
     } 
 
 } ; 
 
 