otchet (1108529), страница 4
Текст из файла (страница 4)
0 ) )( define ( i n f o p o p u l a t i o n )( let ( ( s o r t e d - pop ( f i t n e s s - pop p o p u l a t i o n ) ) )22( l i s t ( c a r s o r t e d - pop ) ( c a r ( r e v e r s e s o r t e d - pop ) ) ( q u o t i e n t ( f o l d l + 0( map c d r s o r t e d - pop ) ) ( l e n g t h s o r t e d - pop ) ) ) ) )( define ( e v o l u t i o n p o p u l a t i o n i t e r t o t a l - sum r e s u l t s )( if ( or (= i t e r max - i t e r ) (= t o t a l - sum - 1 ) )( let ( ( answer ( c a r ( r e v e r s e ( f i t n e s s - pop p o p u l a t i o n ) ) ) ) )( if (> ( c d r answer ) c o n t r o l - w e i g h t ) ( l i s t r e s u l t s ( l i s t i t e r #f )graph )( if ( n u l l ? ( c d a r answer ) )( l i s t r e s u l t s ( l i s t i t e r #t ( c d r answer ) ( c a r answer ) ) graph )( l i s t r e s u l t s ( l i s t i t e r #t ( c d r answer ) ( c o n s ( c a r ( c a ranswer ) ) ( r e v e r s e ( c a r answer ) ) ) ) graph ) ) ) )( let* ( ( new - pop ( mutate - pop ( s e l e c t i o n p o p u l a t i o n ( c r o s s - poppopulation ) ) ) )( new - w e i g h t ( p o p u l a t i o n - w e i g h t new - pop ) ) )( if ( not (> ( abs ( - t o t a l - sum new - w e i g h t ) ) ( ∗ e x i t - p e r c e n tt o t a l - sum ) ) )( e v o l u t i o n new - pop (+ i t e r 1 ) - 1 ( append r e s u l t s ( l i s t ( i n f onew - pop ) ) ) )( e v o l u t i o n new - pop (+ i t e r 1 ) new - w e i g h t ( append r e s u l t s ( l i s t( i n f o new - pop ) ) ) ) ) ) ) )( let ( ( f i r s t ( gen - f i r s t - pop pop - s i z e graph ) ) )( e v o l u t i o n f i r s t 1 ( population - weight f i r s t ) ( l i s t ( i n f o f i r s t ) ) ) ) ); gen - g r a p h s( define ( gen - v e r t e x - name n )( s t r i n g ->symbol ( s t r i n g - append "v" ( number ->s t r i n g n ) ) ) )( define ( w e i g h t )( random 1 0 ) )( define ( i n c x )(+ x 1 ) )( define ( push l s t elem )( if ( not ( member elem l s t ) ) ( c o n s elem l s t ) l s t ) )( define ( a l l - v e r t e x graph )( define ( h e l p e r graph r e s u l t )( if ( n u l l ? graph ) ( r e v e r s e r e s u l t )( h e l p e r ( c d r graph ) ( push ( push r e s u l t ( c a a r graph ) ) ( c a d a r graph ) ) ) ) )( h e l p e r graph ' ( ) ) )( define ( v e r t e x - n e i g h b o r s v e r t e x graph )( define ( h e l p e r edge )( cond ( ( and ( e q u a l ? ( c a r edge ) v e r t e x ) ( not ( e q u a l ? ( c a d r edge ) v e r t e x ) ) )( c o n s ( c a d r edge ) ( caddr edge ) ) )( ( and ( e q u a l ? ( c a d r edge ) v e r t e x ) ( not ( e q u a l ? ( c a r edge ) v e r t e x ) ) )( c o n s ( c a r edge ) ( caddr edge ) ) )( else ' ( ) ) ) )( if ( not ( member v e r t e x ( a l l - v e r t e x graph ) ) ) ' ( )( f i l t e r ( lambda ( x ) ( not ( n u l l ? x ) ) ) ( map h e l p e r graph ) ) ) )( define ( gen - t e s t - e d g e s num- o f - v e r t e x )( define ( h e l p e r i t e r s r e s u l t )( if (= i t e r s 0 ) r e s u l t23( let* ( ( n1 ( i n c ( random num- o f - v e r t e x ) ) ) ( n2 ( i n c ( randomnum- o f - v e r t e x ) ) ) ( new ( l i s t ( gen - v e r t e x - name n1 ) ( gen - v e r t e x - namen2 ) ) ) )( if ( or (= n1 n2 ) ( member new r e s u l t ) ( member ( r e v e r s e new ) r e s u l t ) )( helper i t e r s result )( h e l p e r ( - i t e r s 1 ) ( c o n s new r e s u l t ) ) ) ) ) )( h e l p e r ( random (max (+ ( q u o t i e n t num- o f - v e r t e x 2 ) 1 ) 1 ) ) ' ( ) ) )( define ( gen - c y c l e n )( define ( h e l p e r n r e s u l t )( if (= n 1 ) r e s u l t( h e l p e r ( - n 1 ) ( c o n s ( l i s t ( gen - v e r t e x - name ( - n 1 ) ) ( gen - v e r t e x - namen) ( weight ) ) r e s u l t ) ) ) )( if (> n 2 )( h e l p e r n ( l i s t ( l i s t ( gen - v e r t e x - name n ) ( gen - v e r t e x - name 1 ) ( w e i g h t ) ) ) )'() ) )( define ( gen - s t a r n )( define ( h e l p e r n r e s u l t )( if (= n 1 ) r e s u l t( h e l p e r ( - n 1 ) ( c o n s ( l i s t ( gen - v e r t e x - name 1 ) ( gen - v e r t e x - name n )( weight ) ) r e s u l t ) ) ) )( if (> n 3 )( helper n '() ) '() ) )( define ( gen - f u l l n )( define ( h e l p e r n r e s u l t )( if (= n 1 ) r e s u l t( h e l p e r ( - n 1 ) ( f o l d r c o n s r e s u l t ( map ( lambda ( x ) ( l i s t( gen - v e r t e x - name ( i n c x ) ) ( gen - v e r t e x - name n ) ( w e i g h t ) ) ) ( b u i l d - l i s t( - n 1) values ) ) ) ) ) )( cond ((= n 1 ) ( l i s t ( l i s t ( gen - v e r t e x - name 1 ) ( gen - v e r t e x - name 1 ) ( w e i g h t ) ) ) )((> n 0 ) ( h e l p e r n ' ( ) ) ) ) )( define ( gen - random v - count )( define ( push elem l i s t )( if ( and ( not ( e q u a l ? ( c a r elem ) ( c a d r elem ) ) )( not ( a s s o c ( c a d r elem ) ( v e r t e x - n e i g h b o r s ( c a r elem ) l i s t ) ) )( not ( a s s o c ( c a r elem ) ( v e r t e x - n e i g h b o r s ( c a d r elem ) l i s t ) ) ) )( c o n s elem l i s t )list ))( define ( add - s i n g l e graph )( define a l l ( a l l - v e r t e x graph ) )( f o l d r c o n s graph( map ( lambda ( x ) ( l i s t ( gen - v e r t e x - name x ) ( gen - v e r t e x - name x )( weight ) ) )( f i l t e r ( lambda ( x ) ( not ( member ( gen - v e r t e x - name x ) a l l ) ) )( b u i l d - l i s t v - count i n c ) ) ) ) )( define ( h e l p e r e - c v - c r e s u l t )( if (= e - c 0 )( if (= ( l e n g t h ( a l l - v e r t e x r e s u l t ) ) v - c ) r e s u l t ( add - s i n g l e r e s u l t ) )( h e l p e r ( - e - c 1 ) v - c ( push ( l i s t ( gen - v e r t e x - name ( i n c ( random v - c ) ) )( gen - v e r t e x - name ( i n c ( random v - c ) ) ) ( w e i g h t ) ) r e s u l t ) ) ) )( if (> v - count 0 )( h e l p e r ( / ( ∗ ( - v - count 1 ) v - count ) 2 ) v - count ' ( ) ) ' ( ) ) )24; gui( define ( g u i )( define r e d ( make - o b j e c t color% 221 0 0 ) )( define g r e e n ( make - o b j e c t color% 0 170 0 ) )( define w h i t e ( make - o b j e c t color% 255 255 2 5 5 ) )( define g r e y ( make - o b j e c t color% 192 192 1 9 2 ) )( define b l u e ( make - o b j e c t color% 0 128 2 5 5 ) )( define p i c - h e i g h t 6 0 0 )( define p i c - width 8 5 0 )( define s p h e r e 4 5 )( define pop - s i z e 3 0 )( define mutate - prob 0 .
6 )( define par - p e r c e n t 0 . 6 )( define max - i t e r 1 0 0 0 0 )( define e x i t - p e r c e n t 0 . 0 0 0 0 1 )( define ( check - pop - s i z e )( define ( h e l p e r v a l u e )( let ( ( v a l ( s t r i n g ->number v a l u e ) ) )( cond ( ( or ( not v a l ) ( not ( i n t e g e r ? v a l ) ) ) " целое ␣ число ␣ от ␣ 1 ␣до␣ 50 " )( ( or (< v a l 1 ) (> v a l 5 0 ) ) " от ␣ 1 ␣до␣ 50 " )( else ' ( ) ) ) ) )( let ( ( check ( h e l p e r ( send i - pop - s i z e g e t - v a l u e ) ) ) )( if ( not ( n u l l ? check ) )( begin( send i - pop - s i z e s e t - f i e l d - background r e d )( send i - pop - s i z e s e t - v a l u e check )#f )( begin ( send i - pop - s i z e s e t - f i e l d - background g r e e n ) #t ) ) ) )( define ( check - mutate - prob )( define ( h e l p e r v a l u e )( let ( ( v a l ( s t r i n g ->number v a l u e ) ) )( cond ( ( or ( not v a l ) ( not ( r e a l ? v a l ) ) ) " вещ.
␣ число ␣ от ␣ 0 ␣до␣ 1" )( ( or (< v a l 0 ) (> v a l 1 ) ) " от ␣ 0 ␣до␣1 " )( else ' ( ) ) ) ) )( let ( ( check ( h e l p e r ( send i - mutate - prob g e t - v a l u e ) ) ) )( if ( not ( n u l l ? check ) )( begin( send i - mutate - prob s e t - f i e l d - background r e d )( send i - mutate - prob s e t - v a l u e check )#f )( begin ( send i - mutate - prob s e t - f i e l d - background g r e e n ) #t ) ) ) )( define ( check - par - p e r c e n t )( define ( h e l p e r v a l u e )( let ( ( v a l ( s t r i n g ->number v a l u e ) ) )( cond ( ( or ( not v a l ) ( not ( r e a l ? v a l ) ) ) " вещ. ␣ число ␣ от ␣ 0 ␣до␣ 1" )( ( or (< v a l 0 ) (> v a l 1 ) ) " от ␣ 0 ␣до␣1 " )( else ' ( ) ) ) ) )( let ( ( check ( h e l p e r ( send i - par - p e r c e n t g e t - v a l u e ) ) ) )( if ( not ( n u l l ? check ) )( begin( send i - par - p e r c e n t s e t - f i e l d - background r e d )( send i - par - p e r c e n t s e t - v a l u e check )#f )25( begin ( send i - par - p e r c e n t s e t - f i e l d - background g r e e n ) #t ) ) ) )( define ( check - max - i t e r )( define ( h e l p e r v a l u e )( let ( ( v a l ( s t r i n g ->number v a l u e ) ) )( cond ( ( or ( not v a l ) ( not ( i n t e g e r ? v a l ) ) ) " целое ␣ число ␣ от ␣ 1 ␣до␣ 10000 " )( ( or (< v a l 1 ) (> v a l 1 0 0 0 0 ) ) " от ␣ 1 ␣до␣ 10000 " )( else ' ( ) ) ) ) )( let ( ( check ( h e l p e r ( send i - max - i t e r g e t - v a l u e ) ) ) )( if ( not ( n u l l ? check ) )( begin( send i - max - i t e r s e t - f i e l d - background r e d )( send i - max - i t e r s e t - v a l u e check )#f )( begin ( send i - max - i t e r s e t - f i e l d - background g r e e n ) #t ) ) ) )( define ( check - e x i t - p e r c e n t )( define ( h e l p e r v a l u e )( let ( ( v a l ( s t r i n g ->number v a l u e ) ) )( cond ( ( or ( not v a l ) ( not ( r e a l ? v a l ) ) ) " вещ.
␣ число ␣ от ␣ 0 ␣до␣ 1" )( ( or (< v a l 0 ) (> v a l 1 ) ) " от ␣ 0 ␣до␣1 " )( else ' ( ) ) ) ) )( let ( ( check ( h e l p e r ( send i - e x i t - p e r c e n t g e t - v a l u e ) ) ) )( if ( not ( n u l l ? check ) )( begin( send i - e x i t - p e r c e n t s e t - f i e l d - background r e d )( send i - e x i t - p e r c e n t s e t - v a l u e check )#f )( begin ( send i - e x i t - p e r c e n t s e t - f i e l d - background g r e e n ) #t ) ) ) )( define ( check - v e r t i c e s -num)( define ( h e l p e r type v a l u e )( let ( ( v a l ( s t r i n g ->number v a l u e ) ) )( cond ( ( or ( not v a l ) ( not ( i n t e g e r ? v a l ) ) ) " целое ␣ число " )( ( e q u a l ? type "Полный␣граф" )( if ( or (< v a l 1 ) (> v a l 1 0 ) ) " от ␣ 1 ␣до␣ 10 " ' ( ) ) )( ( e q u a l ? type "Граф - з в е з д а " )( if ( or (< v a l 4 ) (> v a l 2 5 ) ) " от ␣ 4 ␣до␣ 25 " ' ( ) ) )( ( e q u a l ? type "Граф - цикл" )( if ( or (< v a l 3 ) (> v a l 2 5 ) ) " от ␣ 3 ␣до␣ 25 " ' ( ) ) )( ( e q u a l ? type "Случайный␣граф" )( if ( or (< v a l 1 ) (> v a l 1 2 ) ) " от ␣ 1 ␣до␣ 12 " ' ( ) ) ) ) ) )( let ( ( check ( h e l p e r ( send graph - type g e t - s t r i n g - s e l e c t i o n ) ( sendv e r t i c e s -num g e t - v a l u e ) ) ) )( if ( not ( n u l l ? check ) )( begin( send v e r t i c e s -num s e t - f i e l d - background r e d )( send v e r t i c e s -num s e t - v a l u e check )#f )( begin ( send v e r t i c e s -num s e t - f i e l d - background g r e e n ) #t ) ) ) )( define ( check - c o n t r o l - w e i g h t )( define ( h e l p e r v a l u e )( let ( ( v a l ( s t r i n g ->number v a l u e ) ) )( cond ( ( or ( not v a l ) ( not ( i n t e g e r ? v a l ) ) ) " целое ␣ число ␣ от ␣ 1 ␣до␣ 1000 " )( ( or (< v a l 1 ) (> v a l 1 0 0 0 ) ) " от ␣ 1 ␣до␣ 1000 " )( else ' ( ) ) ) ) )26( let ( ( check ( h e l p e r ( send c o n t r o l - w e i g h t g e t - v a l u e ) ) ) )( if ( not ( n u l l ? check ) )( begin( send c o n t r o l - w e i g h t s e t - f i e l d - background r e d )( send c o n t r o l - w e i g h t s e t - v a l u e check )#f )( begin ( send c o n t r o l - w e i g h t s e t - f i e l d - background g r e e n ) #t ) ) ) )( define ( check - i n f o )( member #f ( l i s t ( check - v e r t i c e s -num)( check - c o n t r o l - w e i g h t )( check - pop - s i z e )( check - mutate - prob )( check - par - p e r c e n t )( check - max - i t e r )( check - e x i t - p e r c e n t ) ) ) )( define ( gen - graph num)( let ( ( type ( send graph - type g e t - s t r i n g - s e l e c t i o n ) ) )( cond ( ( e q u a l ? type "Полный␣граф" ) ( gen - f u l l num) )( ( e q u a l ? type "Граф - з в е з д а " ) ( gen - s t a r num) )( ( e q u a l ? type "Граф - цикл" ) ( gen - c y c l e num) )( ( e q u a l ? type "Случайный␣граф" ) ( gen - random num) ) ) ) )( define ( need - e d g e s v - count )( if ( send gen - e d g e s g e t - v a l u e )( gen - t e s t - e d g e s v - count ) ' ( ) ) )( define ( g e t - c o o r d s v e r t i c e s a l p h a c o e f c o o r d s r a d i u s type )( define ( h e l p e r l s t a l p h a c o e f )( if ( n u l l ? l s t ) ' ( )( c o n s ( c o n s ( c a r l s t ) ( c o n s (+ ( c a r c o o r d s ) ( ∗ r a d i u s ( s i n( d e g r e e s ->r a d i a n s a l p h a ) ) ) ) ( - ( c d r c o o r d s ) ( ∗ r a d i u s ( c o s( d e g r e e s ->r a d i a n s a l p h a ) ) ) ) ) )( h e l p e r ( c d r l s t ) (+ a l p h a c o e f ) c o e f ) ) ) )( if type( h e l p e r v e r t i c e s alpha c o e f )( cons ( cons ( car v e r t i c e s ) ( cons ( car coords ) ( cdr coords ) ) ) ( h e l p e r( cdr v e r t i c e s ) alpha c o e f ) ) ) )( define ( v i s u a l i z e type r e s u l t graph v - c o o r d s c o o r d s r a d i u s c o n t r o l - e d g e s spd )( define ( draw - answer ans )( send dc draw - t e x t ( s t r i n g - append " Итерация: ␣ " ( number ->s t r i n g ( c a rans ) ) ) 0 5 3 5 )( send dc draw - t e x t " Ответ: ␣ " 0 5 5 0 )( if ( c a d r ans )( begin( send dc draw - t e x t "Да" 55 5 5 0 )( send dc draw - t e x t ( s t r i n g - append " В е с : ␣ " ( number ->s t r i n g ( caddrans ) ) ) 0 5 6 5 )( send dc draw - t e x t ( s t r i n g - append " Путь: ␣ " (~ a ( cadddr ans ) ) ) 0580) )( send dc draw - t e x t "Нет" 55 5 5 0 ) ) )( define ( make - f u l l - path path )( c o n s ( c a r path ) ( r e v e r s e path ) ) )27( define ( g e t - s t a t s s t )( define ( h e l p e r s t a t s i t e r r e s u l t s )( if ( n u l l ? s t a t s ) ( r e v e r s e r e s u l t s )( h e l p e r ( c d r s t a t s ) (+ i t e r 1 ) ( c o n s ( l i s t i t e r ( caddar s t a t s ) )results ))))( helper st 1 '() ) )( define ( draw s t a t s i t e r )( define ( draw - graph )( define ( draw - e d g e s graph )( if ( n u l l ? graph ) ' ( )( if ( not ( e q u a l ? ( c a a r graph ) ( c a d a r graph ) ) )( begin( let* ( ( c1 ( c d r ( a s s o c ( c a a r graph ) v - c o o r d s ) ) ) ( c2 ( c d r( a s s o c ( c a d a r graph ) v - c o o r d s ) ) ) ( rnd ( q u o t i e n t ( round( abs ( - ( c d r c2 ) ( c d r c1 ) ) ) ) 1 5 ) ) )( send dc s e t - pen " b l a c k " 3 ' h i l i t e )( send dc draw - l i n e (+ ( c a r c1 ) ( / s p h e r e 2 ) ) (+ ( c d r c1 )( / s p h e r e 2 ) ) (+ ( c a r c2 ) ( / s p h e r e 2 ) ) (+ ( c d r c2 ) ( /sphere 2) ) )( if ( send show - w e i g h t g e t - v a l u e )( send dc draw - t e x t ( number ->s t r i n g ( caddar graph ) ) ( ( / (+ ( c a r c1 ) ( c a r c2 ) s p h e r e ) 2 ) rnd ) ( - ( / (+( c d r c1 ) ( c d r c2 ) s p h e r e ) 2 ) rnd ) ) ' ( ) )( send dc s e t - pen " b l a c k " 3 ' s o l i d ) )( draw - e d g e s ( c d r graph ) ) ) ' ( ) ) ) )( define ( draw - path path )( if ( or ( n u l l ? ( c d r path ) ) ( e q u a l ? ( c a r path ) ( c a d r path ) ) ) ' ( )( begin( let ( ( c1 ( c d r ( a s s o c ( c a r path ) v - c o o r d s ) ) ) ( c2 ( c d r ( a s s o c( c a d r path ) v - c o o r d s ) ) ) )( send dc s e t - pen g r e e n 3 ' s h o r t - dash )( send dc draw - l i n e (+ ( c a r c1 ) ( / s p h e r e 2 ) ) (+ ( c d r c1 ) ( /s p h e r e 2 ) ) (+ ( c a r c2 ) ( / s p h e r e 2 ) ) (+ ( c d r c2 ) ( / s p h e r e2) ) )( send dc s e t - pen " b l a c k " 3 ' s o l i d ) )( draw - path ( c d r path ) ) ) ) )( define ( draw - v e r t i c e s v - c o o r d s )( if ( n u l l ? v - c o o r d s ) ' ( )( begin( send dc draw - e l l i p s e ( c a d a r v - c o o r d s ) ( cddar v - c o o r d s ) s p h e r esphere )( send dc s e t - f o n t ( make - o b j e c t font% 14 ' roman ' normal ' b o l d ) )( send dc draw - t e x t ( symbol ->s t r i n g ( c a a r v - c o o r d s ) ) (+ ( c a d a rv - c o o r d s ) 1 0 ) ( - ( cddar v - c o o r d s ) - 1 0 ) )( draw - v e r t i c e s ( c d r v - c o o r d s ) ) ) ) )( send dc s e t - brush b l u e ' xor )( send dc s e t - pen " b l a c k " 3 ' s o l i d )( draw - v e r t i c e s v - c o o r d s )( draw - e d g e s graph )( draw - path ( make - f u l l - path ( c a a d a r s t a t s ) ) ) )( if ( n u l l ? s t a t s ) ' ( )( begin( send dc c l e a r )( send dc s e t - f o n t ( make - o b j e c t font% 12 ' roman ' normal ' b o l d ) )28( draw - answer ( c a d r r e s u l t ) )( if ( not ( n u l l ? c o n t r o l - e d g e s ) )( send dc draw - t e x t ( s t r i n g - append "Контрольные␣ р ё б р а : ␣ " (~ ac o n t r o l - edges ) ) 0 90) ' ( ) )( send dc draw - t e x t ( s t r i n g - append " Итерация: ␣ " ( number ->s t r i n gi t e r ) ) 0 0)( send dc draw - t e x t "Лучшая␣ особь ␣ - ␣ Путь: ␣ " 0 1 5 )( send dc s e t - t e x t - f o r e g r o u n d g r e e n )( send dc draw - t e x t (~ a ( make - f u l l - path ( c a a d a r s t a t s ) ) ) 160 1 5 )( send dc s e t - t e x t - f o r e g r o u n d " b l a c k " )( send dc draw - t e x t " В е с : ␣ " 124 3 0 )( send dc s e t - t e x t - f o r e g r o u n d g r e e n )( send dc draw - t e x t ( number ->s t r i n g ( cdadar s t a t s ) ) 160 3 0 )( send dc s e t - t e x t - f o r e g r o u n d " b l a c k " )( send dc draw - t e x t "Худшая␣ особь ␣ - ␣ Путь: ␣ " 0 4 5 )( send dc s e t - t e x t - f o r e g r o u n d r e d )( send dc draw - t e x t (~ a ( make - f u l l - path ( c a a a r s t a t s ) ) ) 160 4 5 )( send dc s e t - t e x t - f o r e g r o u n d " b l a c k " )( send dc draw - t e x t " ␣ В е с : ␣ " 118 6 0 )( send dc s e t - t e x t - f o r e g r o u n d r e d )( send dc draw - t e x t ( number ->s t r i n g ( c d a a r s t a t s ) ) 160 6 0 )( send dc s e t - t e x t - f o r e g r o u n d " b l a c k " )( send dc draw - t e x t " Среднее ␣ значение ␣фитнес - функции:␣ " 0 7 5 )( send dc s e t - t e x t - f o r e g r o u n d " b l u e " )( send dc draw - t e x t ( number ->s t r i n g ( caddar s t a t s ) ) 265 7 5 )( send dc s e t - t e x t - f o r e g r o u n d " b l a c k " )( draw - graph )( send p i c t u r e s e t - l a b e l t a r g e t )( if ( not ( n u l l ? ( c d r s t a t s ) ) )( s l e e p spd ) ' ( ) )( draw ( c d r s t a t s ) (+ i t e r 1 ) ) ) ) )( draw ( c a r r e s u l t ) 1 )( define t a r g ( p l o t - bitmap ( l i n e s ( g e t - s t a t s ( c a r r e s u l t ) ) ) #:x - min 0#:y - min 0 #:x - l a b e l "Итерация" #:y - l a b e l "Средний␣ в е с " #: width 800#: h e i g h t 6 0 0 ) )( send p l s e t - l a b e l t a r g )( send p l o t i n g show #t )( send frame show #t ) )( define ( s t a r t - g e n e t i c s )( map ( lambda ( x ) ( send x e n a b l e #f )( send x s e t - f i e l d - background g r e y ) ) ( c d r i n p u t s ) )( send gen - e d g e s e n a b l e #f )( send show - w e i g h t e n a b l e #f )( send s t a r t e n a b l e #f )( send end e n a b l e #t )( send dc c l e a r )( send dc s e t - f o n t ( make - o b j e c t font% 18 ' d e f a u l t ) )( send dc draw - t e x t " Загрузка ␣ р е з у л ь т а т о в .
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
