Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:1-курс / aaa / Kursak 33+ / Kursak / KursakDlg
.cppяю/ / K u r s a k D l g . c p p : i m p l e m e n t a t i o n f i l e
/ /
# i n c l u d e " s t d a f x . h "
# i n c l u d e " K u r s a k . h "
# i n c l u d e " K u r s a k D l g . h "
# i n c l u d e < m a t h . h >
# i n c l u d e < s t d i o . h >
# i f d e f _ D E B U G
# d e f i n e n e w D E B U G _ N E W
# e n d i f
/ / C K u r s a k D l g d i a l o g
C E d i t * p E d i t _ m i n _ x ; / / <0AA82 C:070B5;59 =0 E d i t C o n t r o l 4;O <8=8<0;L=>3> 7=0G5=8O X
C E d i t * p E d i t _ m i n _ y ; / / <0AA82 C:070B5;59 =0 E d i t C o n t r o l 4;O <8=8<0;L=>3> 7=0G5=8O X
C E d i t * p E d i t _ m a x _ x ; / / <0AA82 C:070B5;59 =0 E d i t C o n t r o l 4;O <0:A8<0;L=>3> 7=0G5=8O X
C E d i t * p E d i t _ m a x _ y ; / / <0AA82 C:070B5;59 =0 E d i t C o n t r o l 4;O <0:A8<0;L=>3> 7=0G5=8O Y
C E d i t * p E d i t _ g r i d ; / / <0AA82 C:070B5;59 =0 E d i t C o n t r o l 4;O 7=0G5=8O A5B:8
C E d i t * p E d i t _ n u m ; / / <0AA82 C:070B5;59 =0 E d i t C o n t r o l 4;O 7=0G5=8O G8A;0 48A:@5B=KE 7=0G5=89 3@0D8:0
C E d i t * p E d i t _ e i ;
C E d i t * p E d i t _ n ;
d o u b l e * x ; / / <0AA82 A> 7=0G5=8O<8 x
d o u b l e * y _ i n t e g r a l ; / / <0AA82 A> 7=0G5=8O<8 DC=:F88 ?>AG8B0=K<8 ?> 8=B53@0;L=><C ?@54AB02;5=8N
d o u b l e * y _ r y a d ; / / <0AA82 A> 7=0G5=8O<8 DC=:F88 ?>AG8B0=K<8 ?> @07;>65=8N 2 @O4
f l o a t x M i n = 1 , x M a x = 1 0 , y M i n = 0 , y M a x = 3 ; / / 7=0G5=8O, >3@0=8G820NI85 >1;0ABL
i n t N u m = 1 0 0 ; / / G8A;> 48A:@5B=KE 7=0G5=89 3@0D8:0
c h a r s t r B u f f e r [ 2 0 ] ; / / 2A?><030B5;L=K9 B5:AB>2K9 1CD5@
f l o a t e i = 0 . 0 0 1 ; / / B>G=>ABL 28G8A;5=89 4;O 8=B53@0;L=>3> ?@54AB02;5=8O
i n t N = 0 ;
# d e f i n e X _ E X T 1 0 0 0 / / @>BO65==>ABL >B>1@065=8O ?> X
# d e f i n e Y _ E X T 1 0 0 0 / / @>BO65==>ABL >B>1@065=8O ?> Y
i n t G R I D N U M = 1 0 ; / / 07<5@ A5B:8
# d e f i n e P I 3 . 1 4 1 5 9 2 6 5 3 5 8 9 7 9 3 2 3 8 4 6
d o u b l e X ;
l o n g d o u b l e p o w s ( l o n g d o u b l e , l o n g d o u b l e ) ;
l o n g d o u b l e r ( l o n g d o u b l e ) ; / / $C=:F8O @07;>65=8O 2 @O4
l o n g d o u b l e f a c t ( i n t ) ; / / $C=:F8O D0:B>@80;0
/ / $C=:F8O 8=B53@0;L=>3> ?@54AB02;5=8O
l o n g d o u b l e f ( l o n g d o u b l e ) ; / / $C=:F8O DC=:F88 2 8=B53@0;5
/ * @>B>B8? DC= F88, 2KG8A;ONI59 8=B53@0; * /
f l o a t i n t e g r a l ( f l o a t a , f l o a t b , f l o a t e ) ;
C K u r s a k D l g : : C K u r s a k D l g ( C W n d * p P a r e n t / * = N U L L * / )
: C D i a l o g ( C K u r s a k D l g : : I D D , p P a r e n t )
{
m _ h I c o n = A f x G e t A p p ( ) - > L o a d I c o n ( I D R _ M A I N F R A M E ) ;
}
v o i d C K u r s a k D l g : : D o D a t a E x c h a n g e ( C D a t a E x c h a n g e * p D X )
{
C D i a l o g : : D o D a t a E x c h a n g e ( p D X ) ;
}
B E G I N _ M E S S A G E _ M A P ( C K u r s a k D l g , C D i a l o g )
O N _ W M _ P A I N T ( )
O N _ W M _ Q U E R Y D R A G I C O N ( )
/ / } } A F X _ M S G _ M A P
O N _ B N _ C L I C K E D ( I D C _ B U T T O N 1 , & C K u r s a k D l g : : O n B n C l i c k e d B u t t o n 1 )
/ / O N _ W M _ S H O W W I N D O W ( )
/ / O N _ W M _ U P D A T E U I S T A T E ( )
E N D _ M E S S A G E _ M A P ( )
/ / C K u r s a k D l g m e s s a g e h a n d l e r s
B O O L C K u r s a k D l g : : O n I n i t D i a l o g ( )
{
C D i a l o g : : O n I n i t D i a l o g ( ) ;
/ / S e t t h e i c o n f o r t h i s d i a l o g . T h e f r a m e w o r k d o e s t h i s a u t o m a t i c a l l y
/ / w h e n t h e a p p l i c a t i o n ' s m a i n w i n d o w i s n o t a d i a l o g
S e t I c o n ( m _ h I c o n , T R U E ) ; / / S e t b i g i c o n
S e t I c o n ( m _ h I c o n , F A L S E ) ; / / S e t s m a l l i c o n
/ / 2K45;5=8O ?0<OB8 ?>4 C:070B5;8
x = n e w d o u b l e [ N u m ] ;
y _ i n t e g r a l = n e w d o u b l e [ N u m ] ;
y _ r y a d = n e w d o u b l e [ N u m ] ;
p E d i t _ m i n _ x = n e w C E d i t [ 2 ] ;
p E d i t _ m a x _ x = n e w C E d i t [ 2 ] ;
p E d i t _ m i n _ y = n e w C E d i t [ 2 ] ;
p E d i t _ m a x _ y = n e w C E d i t [ 2 ] ;
/ / =8F80;878@>20=85 <0AA82>2 C:070B5;59 =0 A>>B25BAB2CNI85 M;5<5=BK C?@02;5=8O
p E d i t _ m i n _ x = ( C E d i t * ) G e t D l g I t e m ( I D C _ M I N X ) ;
p E d i t _ m a x _ x = ( C E d i t * ) G e t D l g I t e m ( I D C _ M A X X ) ;
p E d i t _ m i n _ y = ( C E d i t * ) G e t D l g I t e m ( I D C _ M I N Y ) ;
p E d i t _ m a x _ y = ( C E d i t * ) G e t D l g I t e m ( I D C _ M A X Y ) ;
p E d i t _ g r i d = ( C E d i t * ) G e t D l g I t e m ( I D C _ G R I D ) ;
p E d i t _ n u m = ( C E d i t * ) G e t D l g I t e m ( I D C _ N U M ) ;
p E d i t _ e i = ( C E d i t * ) G e t D l g I t e m ( I D C _ E I ) ;
/ / 0?>;=5=85 M;5<5=B>2 C?@02;5=8O E d i t C o n t r o l 7=0G5=8O<8 ?> C<>;G0=8N
s p r i n t f ( s t r B u f f e r , " % g " , x M i n ) ;
p E d i t _ m i n _ x - > S e t W i n d o w T e x t ( ( C S t r i n g ) s t r B u f f e r ) ;
s p r i n t f ( s t r B u f f e r , " % g " , x M a x ) ;
p E d i t _ m a x _ x - > S e t W i n d o w T e x t ( ( C S t r i n g ) s t r B u f f e r ) ;
s p r i n t f ( s t r B u f f e r , " % g " , y M i n ) ;
p E d i t _ m i n _ y - > S e t W i n d o w T e x t ( ( C S t r i n g ) s t r B u f f e r ) ;
s p r i n t f ( s t r B u f f e r , " % g " , y M a x ) ;
p E d i t _ m a x _ y - > S e t W i n d o w T e x t ( ( C S t r i n g ) s t r B u f f e r ) ;
s p r i n t f ( s t r B u f f e r , " % i " , G R I D N U M ) ;
p E d i t _ g r i d - > S e t W i n d o w T e x t ( ( C S t r i n g ) s t r B u f f e r ) ;
s p r i n t f ( s t r B u f f e r , " % i " , N u m ) ;
p E d i t _ n u m - > S e t W i n d o w T e x t ( ( C S t r i n g ) s t r B u f f e r ) ;
s p r i n t f ( s t r B u f f e r , " % f " , e i ) ;
p E d i t _ e i - > S e t W i n d o w T e x t ( ( C S t r i n g ) s t r B u f f e r ) ;
r e t u r n T R U E ;
}
v o i d C K u r s a k D l g : : O n P a i n t ( )
{
i f ( I s I c o n i c ( ) )
{
C P a i n t D C d c ( t h i s ) ; / / d e v i c e c o n t e x t f o r p a i n t i n g
S e n d M e s s a g e ( W M _ I C O N E R A S E B K G N D , r e i n t e r p r e t _ c a s t < W P A R A M > ( d c . G e t S a f e H d c ( ) ) , 0 ) ;
/ / C e n t e r i c o n i n c l i e n t r e c t a n g l e
i n t c x I c o n = G e t S y s t e m M e t r i c s ( S M _ C X I C O N ) ;
i n t c y I c o n = G e t S y s t e m M e t r i c s ( S M _ C Y I C O N ) ;
C R e c t r e c t ;
G e t C l i e n t R e c t ( & r e c t ) ;
i n t x = ( r e c t . W i d t h ( ) - c x I c o n + 1 ) / 2 ;
i n t y = ( r e c t . H e i g h t ( ) - c y I c o n + 1 ) / 2 ;
/ / D r a w t h e i c o n
d c . D r a w I c o n ( x , y , m _ h I c o n ) ;
}
e l s e
{
C D i a l o g : : O n P a i n t ( ) ;
}
}
/ / T h e s y s t e m c a l l s t h i s f u n c t i o n t o o b t a i n t h e c u r s o r t o d i s p l a y w h i l e t h e u s e r d r a g s
/ / t h e m i n i m i z e d w i n d o w .
H C U R S O R C K u r s a k D l g : : O n Q u e r y D r a g I c o n ( )
{
r e t u r n s t a t i c _ c a s t < H C U R S O R > ( m _ h I c o n ) ;
}
v o i d C K u r s a k D l g : : O n B n C l i c k e d B u t t o n 1 ( )
{
/ / !G8BK20=85 7=0G5=89 ?0@0<5B@>2 ?@>3@0<<K, 7040==KE 2 M;5<5=B0E C?@02;5=8O
p E d i t _ m i n _ x - > G e t W i n d o w T e x t ( ( L P T S T R ) s t r B u f f e r , 2 0 ) ;
s s c a n f ( s t r B u f f e r , " % f " , & x M i n ) ;
p E d i t _ m a x _ x - > G e t W i n d o w T e x t ( ( L P T S T R ) s t r B u f f e r , 2 0 ) ;
s s c a n f ( s t r B u f f e r , " % f " , & x M a x ) ;
p E d i t _ m i n _ y - > G e t W i n d o w T e x t ( ( L P T S T R ) s t r B u f f e r , 2 0 ) ;
s s c a n f ( s t r B u f f e r , " % f " , & y M i n ) ;
p E d i t _ m a x _ y - > G e t W i n d o w T e x t ( ( L P T S T R ) s t r B u f f e r , 2 0 ) ;
s s c a n f ( s t r B u f f e r , " % f " , & y M a x ) ;
p E d i t _ g r i d - > G e t W i n d o w T e x t ( ( L P T S T R ) s t r B u f f e r , 2 0 ) ;
s s c a n f ( s t r B u f f e r , " % i " , & G R I D N U M ) ;
p E d i t _ n u m - > G e t W i n d o w T e x t ( ( L P T S T R ) s t r B u f f e r , 2 0 ) ;
s s c a n f ( s t r B u f f e r , " % i " , & N u m ) ;
p E d i t _ e i - > G e t W i n d o w T e x t ( ( L P T S T R ) s t r B u f f e r , 2 0 ) ;
s s c a n f ( s t r B u f f e r , " % f " , & e i ) ;
/ / ?@545;5=85 :>=B5:AB=>3> CAB@>9AB20 , A :>B>@K< A2O70= 3@0D8G5A:89 2K2>4
C W n d * p G r a p h i c R e g i o n = G e t D l g I t e m ( I D C _ S T A T I C ) ;
/ / !>740=85 :>=B5:AB=>3> CAB@>9AB20 4;O 2K2>40
C C l i e n t D C g d c ( p G r a p h i c R e g i o n ) ;
/ / ?@545;5=85 @568<0 >B>1@065=8O :>>@48=0B
g d c . S e t M a p M o d e ( M M _ A N I S O T R O P I C ) ;
/ / ?@545;5=85 ?@O<>C3>;L=8:0 G r a p h R e c t , 2=CB@8 :>B>@>3> 1C45B 2K2>48BLAO 3@0D8:
C R e c t G r a p h R e c t ;
p G r a p h i c R e g i o n - > G e t C l i e n t R e c t ( & G r a p h R e c t ) ;
G r a p h R e c t . r i g h t - = 2 ; G r a p h R e c t . t o p + = 1 5 ;
G r a p h R e c t . O f f s e t R e c t ( 1 , - 1 ) ;
/ / 0;82:0 >1;0AB8 345 1C45B =0E>48BAO 3@0D8:
C B r u s h S y s B r u s h ;
S y s B r u s h . C r e a t e S y s C o l o r B r u s h ( C O L O R _ 3 D F A C E ) ;
g d c . S e l e c t O b j e c t ( & S y s B r u s h ) ;
g d c . F i l l R e c t ( G r a p h R e c t , & S y s B r u s h ) ;
/ / ?@545;5=85 >1;0AB8 2K2>40 2 D878G5A:8E :>>@48=0B0E
i n t x V i e w p o r t E x t = ( i n t ) ( 0 . 9 * G r a p h R e c t . W i d t h ( ) ) ;
i n t y V i e w p o r t E x t = ( i n t ) ( 0 . 9 * G r a p h R e c t . H e i g h t ( ) ) ;
g d c . S e t V i e w p o r t E x t ( x V i e w p o r t E x t , y V i e w p o r t E x t ) ;
i n t x V i e w p o r t O r g = ( i n t ) ( 0 . 0 9 * G r a p h R e c t . W i d t h ( ) ) ;
i n t y V i e w p o r t O r g = ( i n t ) ( 0 . 9 7 * G r a p h R e c t . H e i g h t ( ) ) ;
g d c . S e t V i e w p o r t O r g ( x V i e w p o r t O r g , y V i e w p o r t O r g ) ;
/ / ?@545;5=85 ;>38G5A:>9 A8AB5<K :>>@48=0B 4;O 3@0D8:0
g d c . S e t W i n d o w E x t ( X _ E X T , - Y _ E X T ) ;
i n t x W i n d o w O r g = ( i n t ) ( x M i n * X _ E X T / ( x M a x - x M i n ) ) ;
i n t y W i n d o w O r g = ( i n t ) ( y M i n * Y _ E X T / ( y M a x - y M i n ) ) ;
g d c . S e t W i n d o w O r g ( x W i n d o w O r g , y W i n d o w O r g ) ;
/ / 0;82:0 >1;0AB8 3@0D8:0 15;K< F25B><
C B r u s h G r a p h B r u s h ( R G B ( 2 5 5 , 2 5 5 , 2 5 5 ) ) ;
g d c . S e l e c t O b j e c t ( & G r a p h B r u s h ) ;
G r a p h R e c t . S e t R e c t ( x W i n d o w O r g , y W i n d o w O r g + Y _ E X T , x W i n d o w O r g + X _ E X T , y W i n d o w O r g ) ;
g d c . F i l l R e c t ( G r a p h R e c t , & G r a p h B r u s h ) ;
/ / >43>B>2:0 ?5@0 4;O @8A>20=8O ;8=89 A5B:8
C P e n p e n G r i d ( P S _ S O L I D , 1 , R G B ( 0 , 0 , 0 ) ) ;
g d c . S e l e c t O b j e c t ( & p e n G r i d ) ;
/ / >43>B>2:0 AB@>:>2>3> 1CD5@0
c h a r S t r i n g B u f f e r [ 1 0 0 ] ;
/ / !>740=85 8 8=8F80;878@>20=85 H@8DB0
C F o n t f o n t ;
f o n t . C r e a t e P o i n t F o n t ( ( i n t ) ( Y _ E X T / 3 ) , ( C S t r i n g ) " T i m e s N e w R o m a n " ) ;
/ / ?@545;5=85 F25B0 D>=0 4;O 2K2>48<KE =04?8A59
g d c . S e l e c t O b j e c t ( & f o n t ) ;
g d c . S e t B k C o l o r ( R G B ( 2 3 1 , 2 3 1 , 2 3 1 ) ) ;
d o u b l e x V a l ;
d o u b l e y V a l ;
/ / &8:; 4;O ?@>2545=89 ;8=89 A5B:8 8 ?>4?8A59 : =8<
f o r ( i n t x P o s , y P o s , j = 0 ; j < = G R I D N U M ; j + + ) {
x V a l = x M i n + j * ( x M a x - x M i n ) / G R I D N U M ;
x P o s = ( i n t ) ( x V a l * X _ E X T / ( x M a x - x M i n ) ) ;
s p r i n t f ( s t r B u f f e r , " % g " , x V a l ) ;
g d c . T e x t O u t ( x P o s - ( i n t ) ( 0 . 0 3 5 * X _ E X T ) , ( i n t ) ( ( y M i n / ( y M a x - y M i n ) - 0 . 0 3 ) * Y _ E X T ) , ( C S t r i n g ) s t r B u f f e r ) ;
g d c . M o v e T o ( x P o s , ( i n t ) ( y M i n * Y _ E X T / ( y M a x - y M i n ) ) ) ;
g d c . L i n e T o ( x P o s , ( i n t ) ( y M i n * Y _ E X T / ( y M a x - y M i n ) ) + Y _ E X T ) ;
y V a l = y M i n + j * ( y M a x - y M i n ) / G R I D N U M ;
y P o s = ( i n t ) ( y V a l * Y _ E X T / ( y M a x - y M i n ) ) ;
s p r i n t f ( s t r B u f f e r , " % g " , y V a l ) ;
g d c . T e x t O u t ( ( i n t ) ( ( x M i n / ( x M a x - x M i n ) - 0 . 0 9 ) * X _ E X T ) , y P o s + ( i n t ) ( 0 . 0 2 * Y _ E X T ) , ( C S t r i n g ) s t r B u f f e r ) ;
g d c . M o v e T o ( ( i n t ) ( x M i n * X _ E X T / ( x M a x - x M i n ) ) , y P o s ) ;
g d c . L i n e T o ( ( i n t ) ( x M i n * X _ E X T / ( x M a x - x M i n ) ) + X _ E X T , y P o s ) ;
}
/ / BA5G5=85 ;8=89, 2KE>4OI8E 70 3@0=8FK >1;0AB8 3@0D8:0
g d c . L P t o D P ( & G r a p h R e c t ) ;
C R g n G r a p h R g n ;
G r a p h R g n . C r e a t e R e c t R g n I n d i r e c t ( & G r a p h R e c t ) ;
g d c . S e l e c t C l i p R g n ( & G r a p h R g n ) ;
/ / KG8A;5=85 <0AA82>2 7=0G5=89 DC=:F89
f o r ( i n t j = 0 ; j < = N u m ; j + + ) {
x [ j ] = x M i n + j * ( x M a x - x M i n ) / N u m ; / / KG8A;5=85 7=0G5=89 x
y _ i n t e g r a l [ j ] = i n t e g r a l ( 1 , x [ j ] , e i ) ; / / KG8A;5=85 7=0G5=89 8=B53@0;L=>3> ?@54AB02;5=8O
y _ r y a d [ j ] = r ( x [ j ] ) ; / / KG8A;5=85 7=0G5=89 @07;>65=89 2 @O4
}
/ / #AB0=>2:0 ?5@0 4;O ?@>@8A>2:8 @07;>65=89 2 @O4
C P e n p e n G r a p h ( P S _ S O L I D , 1 2 , R G B ( 0 , 0 , 2 5 5 ) ) ;
g d c . S e l e c t O b j e c t ( & p e n G r a p h ) ;
g d c . M o v e T o ( ( i n t ) ( x [ 0 ] * X _ E X T / ( x M a x - x M i n ) ) , ( i n t ) ( y _ r y a d [ 0 ] * Y _ E X T / ( y M a x - y M i n ) ) ) ; / / #AB0=>2:0 =0G0;L=>9 B>G:8
f o r ( i n t j = 0 ; j < = N u m ; j + + ) {
g d c . L i n e T o ( ( i n t ) ( x [ j ] * X _ E X T / ( x M a x - x M i n ) ) , ( i n t ) ( y _ r y a d [ j ] * Y _ E X T / ( y M a x - y M i n ) ) ) ; / / @>@8A>2:0 ;8=88
}
/ / #AB0=>2:0 ?5@0 4;O ?@>@8A>2:8 8=B53@0;L=>3> ?@54AB02;5=8O
C P e n p e n G r a p h 2 ( P S _ S O L I D , 6 , R G B ( 2 5 5 , 0 , 0 ) ) ;
g d c . S e l e c t O b j e c t ( & p e n G r a p h 2 ) ;
g d c . M o v e T o ( ( i n t ) ( x [ 0 ] * X _ E X T / ( x M a x - x M i n ) ) , ( i n t ) ( y _ i n t e g r a l [ 0 ] * Y _ E X T / ( y M a x - y M i n ) ) ) ; / / #AB0=>2:0 =0G0;L=>9 B>G:8
f o r ( i n t j = 0 ; j < = N u m ; j + + ) {
g d c . L i n e T o ( ( i n t ) ( x [ j ] * X _ E X T / ( x M a x - x M i n ) ) , ( i n t ) ( y _ i n t e g r a l [ j ] * Y _ E X T / ( y M a x - y M i n ) ) ) ; / / @>@8A>2:0 ;8=88
}
}
l o n g d o u b l e F a c t ( i n t x ) / / $C=:F8O 28G8A;5=8O D0:B>@80;
{
l o n g d o u b l e x x ;
x x = 1 ;
f o r ( i n t i = 2 ; i < = x ; i + + ) {
x x * = i ;
}
r e t u r n x x ;
}
l o n g d o u b l e p o w s ( l o n g d o u b l e x , l o n g d o u b l e y )
{
i f ( x = = 0 ) {
r e t u r n 0 ;
} e l s e i f ( y > 0 ) {
r e t u r n p o w ( x , y ) ;
} e l s e i f ( y < 0 ) {
r e t u r n 1 . 0 / p o w ( x , y ) ;
} e l s e {
r e t u r n 1 ;
}
}
/ / =B53@0;L=>5 ?@54AB02;5=85
l o n g d o u b l e f ( l o n g d o u b l e t ) / / 8G8A;5=8O DC=:F88 8=B53@0;0
{
i f ( p o w s ( t * t - 1 , ( l o n g d o u b l e ) 0 . 5 ) ! = 0 ) {
r e t u r n 1 . 0 / p o w s ( t * t - 1 , ( l o n g d o u b l e ) 0 . 5 ) ;
} e l s e {
r e t u r n 0 ;
}
}
/ * 50;870F8O DC= F88, 2KG8A;ONI59 8=B53@0; * /
f l o a t i n t e g r a l ( f l o a t a , f l o a t b , f l o a t e )
{
l o n g d o u b l e n = 2 , i ; / * 0G0;L=>5 G8A;> @07185=89 * /
l o n g d o u b l e s _ a b = f ( a ) + f ( b ) ; / * !C<<0 7=0G5=89 DC= F88 2 a 8 b * /
l o n g d o u b l e h = ( b - a ) / n ; / * KG8A;O5< H03 * /
l o n g d o u b l e s _ k = 0 , s _ m ;
l o n g d o u b l e s _ x = 0 , s _ x 0 ;
/ * !C<<0 7=0G5=89 DC= F88 2 =5G5B=KE B>G:0E * /
f o r ( i = 2 ; i < n ; i + = 2 ) {
s _ k + = f ( a + i * h ) ;
}
d o {
s _ m = 0 ;
s _ x 0 = s _ x ;
/ * !C<<0 7=0G5=89 DC= F88 2 G5B=KE B>G:0E * /
f o r ( i = 1 ; i < n ; i + = 2 ) {
s _ m + = f ( a + i * h ) ;
}
/ * >4AG5B @57C;LB0B0 * /
s _ x = h / 3 * ( s _ a b + 2 * s _ k + 4 * s _ m ) ;
/ * 715305< 45;5=8O =0 =>;L * /
i f ( s _ x = = 0 ) s _ x = e ;
s _ k + = s _ m ;
n * = 2 ;
h / = 2 ;
} w h i l e ( f a b s ( ( s _ x - s _ x 0 ) / 1 5 ) > e ) ; / * K?>;=OBL 4> B5E ?>@, ?>:0 @57C;LB0B =5 1C45B C4>2;5B2>@OBL 4>?CAB8<>9 >H81:5 * /
r e t u r n ( s _ x ) ;
}
l o n g d o u b l e r ( l o n g d o u b l e x ) / / 8G8A;5=8O ?> @07;>65=8N 2 @O4
{
r e t u r n l o g ( x + p o w ( x * x - 1 , ( l o n g d o u b l e ) 0 . 5 ) ) ;
}
Соседние файлы в папке Kursak