Program 5-IVANOVA

Var u,p,pc,I,Imin,Imax,di: real; k: integer; Label 1;

begin

PC:=-1e-12; Imin:= 0.; Imax:=1; dI:=(Imax-Imin)*0.1;

I:=dI*1.1;

writeln ('____k_______dI________I________U________P');

for k:=1 to 50 do begin

I:=I+dI;

U:= 2-(I*I)*2; P:=U*I;

writeln (k:5,di:9:3, I:9:2, U:9:3, P:9:3);

if abs(di/(Imax-Imin))<0.001 then goto 1;

if P<PC then dI:= -dI*0.7;

PC:=P;

end; 1: readln; END.

Звіт

1 - Головний результат - оптимальний стан ХДС: значення струму I і напруги U, при яких ХДС генерує максимальнe пoтужність P=UI.

2 - Підрахуйте ( дома! )значення внутрішнього опору ХДС R_ХДС та опору навантаження R_зовн, (дивіться пояснення до роботи № 1 та рис. 2 ) в режимі максимальної потужності.

3 - Виконайте досліди - спробуйте оптимізувати сам алгоритм з точки зору мінімізації об”єму роботи , тобто кількості кроків k пошуку оптимуму. Для цього:

-проведіть розрахунки при різних значеннях струму початкової точки; впевніться в очевидному - чим ближче Ви оберете початкову точку до оптимуму, тим скоріше ( меншим числом кроків k )його буде знайдено.

-проведіть розрахунки при різних значеннях початкового кроку ( в програмі він прийнятий 0.2 в операторі dI := (Imax-Imin)* 0.2, спробуйте 0.01.....0.4, 5-15 проб). Записуйте в табличку тільки значення цього коефіцієнта та числа кроків k.

-проведіть розрахунки при різних значеннях коефіцієнта зменшення кроку ( в програмі він прийнятий 0.5 в операторі dI := - dI*0.5), спробуйте 0.1....0.9, 5-15 проб. Записуйте в табличку тільки значення цього коефіцієнта та числа кроків k.

- зробіть висновки - який алгоритм працює на Вашій задачі найшвидше.

Лiтература

1. Н.Д.Кошель. Моделирование на ЭВМ элементов электрохимической технологии. Киев УМК ВО, 1992.

2. Брановицкая С.В., Медведев Р.Б., Фиалков Ю.Я. Вычислительная математика в химии и химической технологии. - К.: Вища шк. 1986. -216 с.

3. Батунер Л.М., Позин М.Е. Математические методы в химической технике. -Л.: Химия, 1971. -823 с.

21