Программы к курсу методы оптимизации / LAB_GOLD / BS

Ї а ¬Ґвал ЇҐз вм_®иЁЎ®Є §  ­ п вм
1 ЇҐз вм_®иЁЎ®Є word no п «м б
Ї а ¬Ґвал ў®§ўа в Ў Ґ  
2 ў®§ўа в word no ® в з
1 Ґб«Ё ­ з «м­ п_гбв ­®ўЄ  - Їа®ўҐ¤Ґ­ 
Ё ¬Ё­Ё¬г¬ - ­ ©¤Ґ­
Ё ЇҐз вм_१г«мв в  - ¤  Ё Їа®б¬®ва - ¤ 
в® § Їа®б - ¤ 
Ё ЇҐз вм_®иЁЎ®Є - ¤ 
2 Ґб«Ё §®«®в®Ґ_бҐзҐ­ЁҐ - Їа®ўҐ¤Ґ­ 
Ё Ё­д®а¬ жЁп - ўлўҐ¤Ґ­ 
Ё Ја ­Ёж _  - ¤ 
Ё Ја ­Ёж _Ў - ¤ 
в® и Ј - ᤥ« ­
3 Ґб«Ё д« Ј - ¤ 
Ё и Ј - ᤥ« ­
Ё ®Ў­ ў«Ґ­­ п_Ё­д®а¬ жЁп - ўлўҐ¤Ґ­ 
Ё Є®­Ґж - ¤ 
в® ¬Ё­Ё¬г¬ - ­ ©¤Ґ­
4 Ґб«Ё Є®­Ґж - ­Ґв
в® ¬Ё­Ё¬г¬ - ­Ґ_­ ©¤Ґ­
Ё ў®§ўа в - д« Ј
5 в® д« Ј - ¤ 
Ї а ¬Ґвал ­ з «м­ п_гбв ­®ўЄ 
3 initial word no
Ї а ¬Ґвал §®«®в®Ґ_бҐзҐ­ЁҐ
4 a1 word no
Ї а ¬Ґвал Ё­д®а¬ жЁп
5 a2 word no
Ї а ¬Ґвал ®Ў­ ў«Ґ­­ п_Ё­д®а¬ жЁп
5 a2 word no
Ї а ¬Ґвал Ја ­Ёж _ 
6 a3 real no
ў®Їа®б Ја ­Ёж _ 
‡ ¤ ©вҐ §­ зҐ­ЁҐ a (real)
Ї®¤бЄ §Є  Ја ­Ёж _ 
::: if f(x2)<f(x1) then a:=x1
Ї а ¬Ґвал Ја ­Ёж _Ў
7 a4 real no
ў®Їа®б Ја ­Ёж _Ў
‡ ¤ ©вҐ §­ зҐ­ЁҐ b (real)
Ї®¤бЄ §Є  Ја ­Ёж _Ў
::: if f(x2)>=f(x1) then b:=x2
Ї а ¬Ґвал Є®­Ґж
8 a5 word yes
ў®Їа®б Є®­Ґж
’®з­®бвм ¤®бвЁЈ­гв ? (¤ /­Ґв)
Ї®¤бЄ §Є  Є®­Ґж
::: if abs(a-b)<=eps+eps/100 then ¤  else ­Ґв
Ї а ¬Ґвал ЇҐз вм_१г«мв в 
9 a6 word no
ў®Їа®б Їа®б¬®ва
‚л Їа®б¬®в५Ё १г«мв вл? (¤ /­Ґв)