= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L u ibU\R`^
 
 
 
 	 	 L u SpeOSR`^L u O p t 3 2 . d l l 
 
 
 
 = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 # L u O p t O(uf{ 
 
 [ L u O p t 3 2 . d l l ]   L u O p t O(uf
 
 
 
         L u O p t 3 2 . d l l /f N*NL u SpeOSR`^;NS+T NNSpeOSQpeT㉹ezQpe0
 
 
 
         (WL u O p t -NvQpe/fǏN~Qpe}T
Tzz l u o p t  Qv@b	gQpeGWwQ	g{|<O l u o p t : : O p t ( . . . )  v<h_0O(u! ! ! u s i n g ( " l u o p t " ) ; S{SL u O p t -NvQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u o p t : : O p t { 
 
 [ L u O p t 3 2 . d l l ]   l u o p t : : O p t ( f ,   l u o p t : : o p t c o n f u n , r ,   l u o p t : : o p t r a n g e , x 1 m i n , x 1 m a x , x 2 m i n , x 2 m a x , . . . , x n m i n , x n m a x ,   l u o p t : : o p t a u t o r a n g e , a u t o r a n g e ,   l u o p t : : o p t m i n 0 , m i n 0 ,   l u o p t : : o p t m a x , m a x ,   l u o p t : : o p t b u f , & b u f ,   l u o p t : : o p t m o d e , m o d e ,   l u o p t : : o p t d e e p , d e e p ,   l u o p t : : o p t f a s t , f a s t ,   l u o p t : : o p t w a y n u l l ,   l u o p t : : o p t w a y s i m ,   l u o p t : : o p t w a y s i m d e e p ,   l u o p t : : o p t w a y c o n f r a ,   l u o p t : : o p t e p s , e p s ,   l u o p t : : o p t s a m e e p s , s a m e e p s ,   l u o p t : : o p t s a m e a b s , s a m e a b s ,   l u o p t : : o p t o u t , o u t ,   l u o p t : : o p t n u m , n u m ,   l u o p t : : o p t a r r a y , a ,   l u o p t : : o p t a r r a y b e g i n , & k ,   l u o p t : : o p t a r r a y s t a r t e r , a r r a y s t a r t e r ,   l u o p t : : o p t e x p a n d , e x p a n d ,   l u o p t : : o p t c o n t r a c t , c o n t r a c t ,   l u o p t : : o p t s t a r t e r , & x 1 ,   & x 2 ,   . . .   . . .   ,   & x n ,   & m i n ) Ble~_gb~_gagNNvn ~g\<P
 
 
 
 f ꁚ[INn CQQpeSg(uN{vhQpef ( x 1 , x 2 , . . . , x n ) v<P
NS:w0Qpe1u(u7b<h_YN
 
 
 
 f ( x 1 , x 2 , . . . , x n ) = 
 
 { 
 
         g ( x 1 , x 2 , . . . , x n ) 
 
 } ; 
 
 
 
 l u o p t : : o p t c o n f u n , r ꁚ[INn CQQpeSg(uN{~_gagNr ( x 1 , x 2 , . . . , x n ) v<PԏV^0 <Ph:yn~_gagN
Nn~_gagN^ԏV0 0f a l s e bn i l 	S:wSpe0Qpe1u(u7b<h_YN
 
 
 
 r ( x 1 , x 2 , . . . , x n ) = 
 
 { 
 
         g ( x 1 , x 2 , . . . , x n ) 
 
 } ; 
 
 
 
 l u o p t : : o p t r a n g e , x 1 m i n , x 1 m a x , x 2 m i n , x 2 m a x , . . . , x n m i n , x n m a x c[d"}:S0:wSpeR@b	gSϑ:SGW:N[ - 1 e 2 0 ^1 e 2 0 ] 0
 
 l u o p t : : o p t a u t o r a n g e , a u t o r a n g e a u t o r a n g e ! = 0 e\(Wc[d"}:SQꁨRTvd"}:S&TR
NۏL0؞/fꁨRd"}:Sv0
 
 l u o p t : : o p t m i n 0 , m i n 0 ㉄vSvg\<P0SN:wSpe:w<P:N 1 e - 2 0 0
 
 l u o p t : : o p t m a x , m a x m a x > = 1 0 c6Rd"}|^m a x 'Y|^ؚFOe0SN:wSpe:w<P:N1 0 0 0
 
 l u o p t : : o p t b u f , b u f b u f > = 1 c6RQ:S'Y\Q:Sv^^'Y}Y0SN:wSpe:w<P:N5 0
 
 l u o p t : : o p t m o d e , m o d e m o d e > = 0 c6R]\O!j_0m o d e 'YQnx^'Y0SN:wSpe:w<P:N1 6 0
 
 l u o p t : : o p t d e e p , d e e p d e e p > = 0 c6Rd"}m^0d e e p 'YQnx^'Y0SN:wSpe:w<P:N2 0 0
 
 l u o p t : : o p t f a s t , f a s t f a s t ! = 0 ۏL_d"}0SN:wSpe:w<P:Nf a s t = 0 0
 
 l u o p t : : o p t w a y n u l l nd@b	g@\d"}el0
 
 l u o p t : : o p t w a y s i m O(uUSb_Ol@\d"}ُ/f؞v@\d"}el0
 
 l u o p t : : o p t w a y s i m d e e p O(uUSb_Ol@\m^d"}0
 
 l u o p t : : o p t w a y c o n f r a O(uޏR_@\d"}el0
 
 l u o p t : : o p t e p s , e p s c6R|^Ble p s > 0 0SN:wSpe:w<P:N1 e - 6 0
 
 l u o p t : : o p t s a m e e p s , s a m e e p s v[k$N~<P/f&TvI{vg\<P0s a m e e p s > 0 0SN:wSpe:w<P:N1 e - 2 0
 
 l u o p t : : o p t s a m e a b s , s a m e a b s ~[k$N~<P/f&TvI{vg\<P0s a m e e p s > = 0 0SN:wSpe:w<P:N1 e - 3 0
 
 l u o p t : : o p t o u t , o u t /f&TQ~g0o u t ^0 eQ0SN:wSpe؞Q~g0
 
 l u o p t : : o p t n u m , n u m n gYQvg\<Pv*Npe0SN:wSpe؞Q1 *Ng\<P0
 
 l u o p t : : o p t a r r a y , a cO N*Npe~(uNcS~g0 N~~gSb@b	gvSϑSpeSg\<P0؞Npe~ _YX[>epenc_NS(uSpeo p t a r r a y b e g i n c[ _YX[>epencvMOn0SN:wSpe0
 
 l u o p t : : o p t a r r a y b e g i n , & k c[pe~-N _YX[>epencvMOnk ԏVN N*NX[>eMOn0SN:wSpe؞N0W@W0  _YX[>e0
 
 l u o p t : : o p t a r r a y s t a r t e r , a r r a y s t a r t e r a r r a y s t a r t e r ! = 0 \c[pe~-NS+T N~R<P0SN:wSpe:w<P:Na r r a y s t a r t e r = 0 0Tec[No p t s t a r t e r o p t s t a r t e r -NvR<P_eu0
 
 l u o p t : : o p t e x p a n d , e x p a n d ib _|pe0 N,S1 . 2 ^2 . 0 0SN:wSpe:w<P:N1 . 6 0
 
 l u o p t : : o p t c o n t r a c t , c o n t r a c t 6e)|pe0 N,S0 ^1 0SN:wSpe:w<P:N0 . 5 0
 
 l u o p t : : o p t s t a r t e r , & x 1 ,   & x 2 ,   . . .   . . .   ,   & x n ,   & m i n MRn *NSpecO N~R<PS:NNa<P	ԏV gOSpe<P gT N*NSpeԏVg\<P0SN:wSpe0
 
 
 
 ԏV<Pg\<P*Npe0
 
 
 
 f1 l u o p t : : o p t m a x 0l u o p t : : o p t b u f 0l u o p t : : o p t e p s I{hƋSpe{|W!k^/fNavS:w0
 
 
 
 f2 QpeO(u:g{ld"}hQ@\ g\<PEe/f
N3z[v^Y!kd"}uSbcSped"}N g\:N gO0
 
 
 
 ЏL
 
 
 
 1 c[vh_
NX[(W
 
 2 8^ϑh_bSϑ
N͑eK<P
 
 3 QX[
 
 4 Spe
N9SM
 
 5 
NSƋ+Rc&{
 
 6 Spe
N&{TBl
 
 7 ~_gQpe	gSpe
N9SM0Sϑ͑eK<PbQpe
NX[(W
 
 8 ꁚ[INQpeԏVN^l<P0
 
 
 
 OP[1 {NRvhQpevg\<PpNg\<P0
 
         J = 1 0 0 * ( x 1 - x 0 * x 0 ) 2 + ( 1 - x 0 ) 2 
 
 
 
 z^YN
 
 
 
 f ( x 0 , x 1 ) = 1 0 0 * ( x 1 - x 0 * x 0 ) ^ 2 + ( 1 - x 0 ) ^ 2 ; 
 
 l u o p t : : O p t [ @ f ] ; 
 
 
 
 ~g
 
 
 
 1 .   1 .   0 . 
 
 
 
 OP[2 BlNRQpez v g\<P
 
 
 
         z = s i n [ ( z * x - 0 . 5 ) ^ 2 + 2 * x * y * y - z / 1 0 ] * e x p { - [ ( x - 0 . 5 - e x p ( - y + z ) ) ^ 2 + y * y - z / 5 + 3 ] } 
 
 
 
         vQ-Nx V[ - 1 , 7 ] y V[ - 2 , 2 ] 0
 
 
 
 z^YN
 
 
 
 ! ! ! u s i n g ( " l u o p t " ) ; 
 
 f ( x , y , z ) = z + 1 e 1 0 * { z - s i n [ ( z * x - 0 . 5 ) ^ 2 + 2 * x * y * y - z / 1 0 ] * e x p { - [ ( x - 0 . 5 - e x p ( - y + z ) ) ^ 2 + y * y - z / 5 + 3 ] } } ^ 2 ;   / / g vhQpela1 e 1 0 
 
 O p t [ @ f ,   o p t w a y s i m d e e p ,   o p t w a y c o n f r a ,   o p t r a n g e , - 1 . , 7 . ,   - 2 . , 2 . ,   - 1 e 1 0 , 1 e 1 0 ] ; 
 
 
 
 ~g Y!kЏL	
 
 
 
 2 . 8 9 8 3 3 8 3 1 4 8 1 9 9 9 3   - 0 . 8 5 7 3 2 9 9 2 2 0 9 6 7 1 0 6   - 2 . 3 3 5 4 0 8 2 3 9 8 4 0 3 9 e - 0 0 2   - 2 . 3 3 5 4 0 8 2 3 9 7 9 6 5 4 4 e - 0 0 2 
 
 
 
 OP[3 BlrQpevhQ@\ g\<Pv^ԏV1 0 *Ng\<P
 
 
 
         f ( r ) = - s i n ( r ) / r + 1 
 
 
 
         vQ-N: r = s q r t [ ( x - 5 0 ) ^ 2 + ( y - 5 0 ) ^ 2 ] + e x p [ 1 . 0 ] 0
 
 
 
 z^YN
 
 
 
 ! ! ! u s i n g ( " l u o p t " ) ; 
 
 f ( x , y : t ) =       / / vhQpe[IN
 
 { 
 
         t = s q r t [ ( x - 5 0 ) ^ 2 + ( y - 5 0 ) ^ 2 ] + e x p [ 1 . 0 ] , 
 
         - s i n [ t ] / t - 1 
 
 } ; 
 
 O p t [ @ f ,   o p t w a y s i m d e e p ,   o p t w a y c o n f r a ,   o p t n u m , 1 0 ] ; 
 
 
 
 ~g Y!kЏL	
 
 
 
 5 0 .                               5 0 .                               - 1 . 1 5 1 1 1 7 9 9 1 5 9 3 8 9 4 
 
 4 5 . 0 4 7 1 3 6 7 0 1 5 4 1 6 8   5 0 . 7 3 4 0 9 3 5 7 9 8 7 6 4 9   - 1 . 1 2 8 3 7 4 5 5 3 5 2 5 8 9 9 
 
 4 7 . 9 5 3 5 8 1 5 6 6 5 1 1 1 3   5 4 . 5 6 9 6 0 3 3 7 5 1 7 7 4 2   - 1 . 1 2 8 3 7 4 5 5 3 2 5 9 3 9 2 
 
 4 8 . 6 1 0 8 4 7 2 7 9 8 8 1 4 2   4 5 . 1 8 9 6 8 4 7 4 4 1 1 5 1 3   - 1 . 1 2 8 3 7 4 5 5 3 0 4 0 8 2 1 
 
 5 1 . 5 3 8 8 8 9 9 4 3 6 0 6 6 8   5 5 . 2 7 9 5 6 6 3 3 5 7 8 6 9 9   - 1 . 1 1 3 7 3 6 0 3 8 4 5 3 4 3 
 
 5 0 . 0 9 1 4 0 0 3 2 8 5 7 8 5     3 8 . 6 5 2 4 5 6 0 0 6 3 9 2       - 1 . 0 7 0 9 1 3 4 5 9 4 5 0 4 6 2 
 
 5 5 . 5 7 7 5 6 8 4 4 7 3 3 1 3 3   4 0 . 1 1 7 3 9 7 1 6 5 3 7 7 9     - 1 . 0 7 0 9 1 3 4 5 9 4 5 0 4 6 2 
 
 4 7 . 7 8 2 6 4 7 0 0 5 4 6 6 2 5   3 8 . 8 7 0 8 0 8 2 0 7 7 0 1 5 4   - 1 . 0 7 0 9 1 3 4 5 9 4 3 6 1 7 6 
 
 4 3 . 5 9 6 3 0 9 8 7 0 6 6 7 4 1   4 0 . 6 3 1 5 0 4 9 9 5 7 4 8 1     - 1 . 0 7 0 9 1 3 4 5 9 4 0 2 2 1 1 
 
 4 6 . 7 5 2 0 4 5 4 4 7 0 3 2 5 2   3 9 . 1 2 6 7 5 9 9 8 5 8 2 7 0 7   - 1 . 0 7 0 9 1 3 4 5 9 3 0 6 0 3 6 
 
 1 0 . 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u o p t : : i F i n d { 
 
 [ L u O p t 3 2 . d l l ]   l u o p t : : i F i n d ( f ,   l u o p t : : o p t m a x , m ,   l u o p t : : o p t r a n g e , m i n , m a x ,   l u o p t : : o p t e p s , e p s ,   l u o p t : : o p t e x a c t , e x a c t ,   l u o p t : : o p t p a r a , x 1 , x 2 , . . . ,   l u o p t : : o p t t h i s , i ,   l u o p t : : o p t m i n 0 , m i n 0 ,   l u o p t : : o p t s a m e e p s , s a m e e p s ,   l u o p t : : o p t s a m e a b s , s a m e a b s ,   l u o p t : : o p t s t a r t e r , s t a r t e r ,   l u o p t : : o p t a r r a y , a ,   l u o p t : : o p t a r r a y b e g i n , & k ,   l u o p t : : o p t o u t , o u t ,   l u o p t : : o p t n u m , n u m ) BlUSSϑezvhQ
 
 
 
 f ꁚ[INn CQQpeSg
NS:w0<h_YN
 
 
 
 f ( x 1 , x 2 , . . . , x n ) = 
 
 { 
 
         . . .   . . . 
 
 } ; 
 
 
 
         ؞Blezf ( x 1 , x 2 , . . . , x n ) = 0 ,{ N*NSϑvhQvQNSϑK<P:N0 . 0 0SN(uSpeo p t t h i s c[Bl㉄vSϑ_NSN(uSpeo p t p a r a ~QvQNSϑv<P0
 
 
 
 l u o p t : : o p t m a x , m :SRrRpev'YNI{N1 0 	:SRrRpevY|^ؚ0SN:wSpe:w<P:N2 0 0 0
 
 l u o p t : : o p t r a n g e , m i n , m a x c[Bl:S0:wSpeRm i n :N- 1 e 5 0 m a x :N1 e 5 0 0
 
 l u o p t : : o p t e p s , e p s c6R|^Ble p s > 0 0SN:wSpe:w<P:N1 e - 6 0
 
 l u o p t : : o p t e x a c t , e x a c t c6R|^ve_e x a c t ^0 \%N<hc6R|^&TRSBl㉄vcknx'`=\Sn㉄v|^0SN:wSpe\%N<hc6R㉄v|^0
 
 l u o p t : : o p t p a r a , x 1 , x 2 , . . . ~c[BlSϑKNYvvQNSϑK<PSpex 1 , x 2 , . . . v*NpekhQSϑ*Npe\1 0:wSpevQNSϑ:w<PGW:N0 . 0 0
 
 l u o p t : : o p t t h i s , i c[Bl㉄vSϑ00 h:y,{ N*NSϑ1 h:y,{N*NSϑNdk{|c0:wSpei :N0 0
 
 l u o p t : : o p t m i n 0 , m i n 0 ㉄vSvg\<P0SN:wSpe:w<P:N 1 e - 5 0 0
 
 l u o p t : : o p t s a m e e p s , s a m e e p s v[k$N~<P/f&TvI{vg\<P0s a m e e p s > 0 0SN:wSpe:w<P:N1 e - 3 0
 
 l u o p t : : o p t s a m e a b s , s a m e a b s ~[k$N~<P/f&TvI{vg\<P0s a m e e p s > = 0 0SN:wSpe:w<P:N0 . 0 0
 
 l u o p t : : o p t s t a r t e r , s t a r t e r cO N*NR<P0SN:wSpe0
 
 l u o p t : : o p t a r r a y , a cO N*Npe~(uNcS~g0 N~~gSb@b	gvSϑSpeS]0؞Npe~ _YX[>epenc_NS(uSpeo p t a r r a y b e g i n c[ _YX[>epencvMOn0SN:wSpe0
 
 l u o p t : : o p t a r r a y b e g i n , & k c[pe~-N _YX[>epencvMOnk ԏVN N*NX[>eMOn0SN:wSpe؞N0W@W0  _YX[>e0
 
 l u o p t : : o p t o u t , o u t /f&TQ~g0o u t ^0 eQ0SN:wSpe؞Q~g0
 
 l u o p t : : o p t n u m , n u m n gYBl㉄v㉄v*Npe0SN:wSpe؞ gYBl1 0 0 *N0
 
 
 
 ԏV<P㉄v*Npe0
 
 
 
 ЏL
 
 
 
 1 c[vh_
NX[(W
 
 2 8^ϑh_
 
 3 SϑSpe͑eK<Pُ/f
NAQv
 
 4 Spe
N9SM
 
 5 
NSƋ+Rc&{
 
 6 Spe
N&{TBl
 
 7 ꁚ[INQpeԏVN^l<P0
 
 
 
 OP[1 BlezvhQf ( x ) = x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 2 0 ; 
 
 
 
 f ( x ) = x ^ 6 - 5 * x ^ 5 + 3 * x ^ 4 + x ^ 3 - 7 * x ^ 2 + 7 * x - 2 0 ; 
 
 l u o p t : : i F i n d [ @ f ] ; 
 
 
 
 OP[2 BlezvhQx S- 8 ^8 y S1 	f ( x , y ) = ( x ^ 2 + y ^ 2 ) ^ 3 - 3 6 * ( x ^ 2 - y ^ 2 ) ^ 2 ; 
 
 
 
 ! ! ! u s i n g ( " l u o p t " ) ; 
 
 f ( x , y ) = ( x ^ 2 + y ^ 2 ) ^ 3 - 3 6 * ( x ^ 2 - y ^ 2 ) ^ 2 ; 
 
 i F i n d [ @ f , o p t r a n g e , - 8 . , 8 . , o p t p a r a , 1 . ] ; 
 
 
 
 OP[3 BlezvhQx S1 y S- 8 ^8 	f ( x , y ) = ( x ^ 2 + y ^ 2 ) ^ 3 - 3 6 * ( x ^ 2 - y ^ 2 ) ^ 2 ; 
 
 
 
 ! ! ! u s i n g ( " l u o p t " ) ; 
 
 f ( x , y ) = ( x ^ 2 + y ^ 2 ) ^ 3 - 3 6 * ( x ^ 2 - y ^ 2 ) ^ 2 ; 
 
 i F i n d [ @ f ,   o p t r a n g e , - 8 . , 8 . ,   o p t t h i s , 1 ,   o p t p a r a , 1 . ] ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u o p t : : F i n d { 
 
 [ L u O p t 3 2 . d l l ]   l u o p t : : F i n d ( f ,   l u o p t : : o p t m a x , m ,   l u o p t : : o p t m o d e , m o d e ,   l u o p t : : o p t d e e p , d e e p ,   l u o p t : : o p t r a n g e , x 1 m i n , x 1 m a x , x 2 m i n , x 2 m a x , . . . , x n m i n , x n m a x ,   l u o p t : : o p t a u t o r a n g e , a u t o r a n g e l u o p t : : o p t e p s , e p s ,   l u o p t : : o p t m i n 0 , m i n 0 ,   l u o p t : : o p t s a m e e p s , s a m e e p s ,   l u o p t : : o p t s a m e a b s , s a m e a b s ,   l u o p t : : o p t s t a r t e r , & x 1 , & x 2 , . . . , & x n , & m i n ,   l u o p t : : o p t a r r a y , a ,   l u o p t : : o p t a r r a y b e g i n , & k ,   l u o p t : : o p t e x p a n d , e x p a n d ,   l u o p t : : o p t c o n t r a c t , c o n t r a c t ,   l u o p t : : o p t d x , d x ,   l u o p t : : o p t s t e p , s t e p ,   l u o p t : : o p t o u t , o u t ,   l u o p t : : o p t n u m , n u m ) Blez~vhQ
 
 
 
 f ꁚ[IN2 * n CQQpeSg
NS:w_{1uN~QpeH F o r _Sg0<h_YN
 
 
 
 f ( x 1 , x 2 , . . . , x n , y 1 , y 2 , . . . , y n ) = 
 
 { 
 
         y 1 =   . . . , 
 
         y 2 =   . . . , 
 
         . . .   . . . , 
 
         y n =   . . . 
 
 } ; 
 
 
 
 l u o p t : : o p t m a x , m :gpvpev'YNI{N1 0 	ppeY|^ؚ0SN:wSpe:w<P:N2 0 0 0
 
 l u o p t : : o p t m o d e , m o d e ]\O!j_S0 01 02 03 0. . .   . . . 08^]\O!j_S<P'Yd0Rv㉊YFOe0:wSpe]\O!j_S0 0
 
 l u o p t : : o p t d e e p , d e e p d"}m^S0 01 02 03 0. . .   . . . 08^d"}m^S<P'Yd0Rv㉊YFOe0:wSped"}m^S0 0
 
 l u o p t : : o p t r a n g e , x 1 m i n , x 1 m a x , x 2 m i n , x 2 m a x , . . . , x n m i n , x n m a x c[Bl:S0:wSpeR@b	gSϑ:SGW:N[ - 1 e 5 0 ^1 e 5 0 ] 0
 
 l u o p t : : o p t a u t o r a n g e , a u t o r a n g e a u t o r a n g e ! = 0 e\(Wc[d"}:SQꁨRTvd"}:S&TR
NۏL0؞/f
NOꁨRd"}:Sv0
 
 l u o p t : : o p t e p s , e p s c6R|^Ble p s > 0 0SN:wSpe:w<P:N1 e - 6 0ns q r t [ ( y 1 * y 1 + y 2 * y 2 + . . . + y n * y n ) / n ] < e p s 0
 
 l u o p t : : o p t m i n 0 , m i n 0 ㉄vSvg\<P0SN:wSpe:w<P:N 1 e - 5 0 0
 
 l u o p t : : o p t s a m e e p s , s a m e e p s v[k$N~<P/f&TvI{vg\<P0s a m e e p s > 0 0SN:wSpe:w<P:N1 e - 2 0
 
 l u o p t : : o p t s a m e a b s , s a m e a b s ~[k$N~<P/f&TvI{vg\<P0s a m e e p s > = 0 0SN:wSpe:w<P:N1 e - 3 0
 
 l u o p t : : o p t s t a r t e r , & x 1 , & x 2 , . . . , & x n , & m i n MRn *NSpecO N~R<Pv^ԏV N~ gT N*NSpem i n ԏV~㉄v]0SN:wSpe0
 
 l u o p t : : o p t a r r a y , a cO N*Npe~(uNcS~g0 N~~gSb@b	gvSϑSpeS]0؞Npe~ _YX[>epenc_NS(uSpeo p t a r r a y b e g i n c[ _YX[>epencvMOn0SN:wSpe0
 
 l u o p t : : o p t a r r a y b e g i n , & k c[pe~-N _YX[>epencvMOnk ԏVN N*NX[>eMOn0SN:wSpe؞N0W@W0  _YX[>e0
 
 l u o p t : : o p t e x p a n d , e x p a n d ib _|pe0 N,S1 . 2 ^2 . 0 0SN:wSpe:w<P:N1 . 6 0
 
 l u o p t : : o p t c o n t r a c t , c o n t r a c t 6e)|pe0 N,S0 ^1 0SN:wSpe:w<P:N0 . 5 0
 
 l u o p t : : o p t d x , d x d"}XϑR<Pd x > 0 0SN:wSpe:w<P:N0 . 1 0
 
 l u o p t : : o p t s t e p , s t e p d"}ekOck|pe0s t e p S0 ^1 KNvpe0SN:wSpe:w<P:N0 . 1 0
 
 l u o p t : : o p t o u t , o u t /f&TQ~g0o u t ^0 eQ0SN:wSpe؞Q~g0
 
 l u o p t : : o p t n u m , n u m n gYBl㉄v㉄v*Npe0SN:wSpe؞ gYBl1 0 *N0
 
 
 
 ԏV<P㉄v*Npe0
 
 
 
 f Y!kЏLQpeN_ v0
 
 
 
 ЏL
 
 
 
 1 c[vh_
NX[(W
 
 2 8^ϑh_bSpe
Nb[
 
 3 QX[
 
 4 Spe
N9SM
 
 5 
NSƋ+Rc&{
 
 6 Spe
N&{TBl
 
 7 ꁚ[INQpeԏVN^l<P0
 
 
 
 OP[1 ㉹ez~
 
 
 
 ( x - y ) ^ 2 - 3 * ( x - y )   =   1 0 
 
 x ^ 2 + 2 * x * y + y ^ 2   =   9 
 
 
 
 Nx
 
 
 
 f ( x , y , y 1 , y 2 ) = 
 
 { 
 
     y 1 = ( x - y ) ^ 2 - 3 * ( x - y ) - 1 0 , 
 
     y 2 = x ^ 2 + 2 * x * y + y ^ 2 - 9 
 
 } ; 
 
 l u o p t : : F i n d [ @ f ] ; 
 
 
 
 OP[2 ㉹ez~
 
 
 
 2 * x 1 - x 2 ^ 2 - e x p ( - x 1 )   =   0 
 
 - ( x 1 ^ 3 ) + x 1 * x 2 - e x p ( - x 2 )   =   0 
 
 
 
 Nx
 
 
 
 f ( x 1 , x 2 , y 1 , y 2 ) = 
 
 { 
 
     y 1 = 2 * x 1 - x 2 ^ 2 - e x p ( - x 1 ) , 
 
     y 2 = - ( x 1 ^ 3 ) + x 1 * x 2 - e x p ( - x 2 ) 
 
 } ; 
 
 l u o p t : : F i n d [ @ f ] ; 
 
 
 
 OP[3 ㉹ez~t S- 7 ^7 
 
 
 
 - b * s i n ( a + 6 * t ) + n - 4 0 . 4 9 4 5 = 0 
 
 - b * s i n ( a + 7 * t ) + n - 4 0 . 5 6 9 6 = 0 
 
 - b * s i n ( a + 8 * t ) + n - 4 1 . 0 4 4 3 = 0 
 
 - b * s i n ( a + 9 * t ) + n - 4 1 . 4 1 9 0 = 0 
 
 
 
 Nx
 
 
 
 ! ! ! u s i n g [ " l u o p t " ] ; 
 
 f ( a , b , n , t , y 1 , y 2 , y 3 , y 4 ) = 
 
 { 
 
     y 1 = - b * s i n ( a + 6 * t ) + n - 4 0 . 4 9 4 5 , 
 
     y 2 = - b * s i n ( a + 7 * t ) + n - 4 0 . 5 6 9 6 , 
 
     y 3 = - b * s i n ( a + 8 * t ) + n - 4 1 . 0 4 4 3 , 
 
     y 4 = - b * s i n ( a + 9 * t ) + n - 4 1 . 4 1 9 0 
 
 } ; 
 
 F i n d [ @ f ,   o p t m o d e , 5 ,   o p t r a n g e , - 1 e 5 0 , 1 e 5 0 , - 1 e 5 0 , 1 e 5 0 , - 1 e 5 0 , 1 e 5 0 , - 7 . , 7 . ] ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 