Elektrisko mašīnu magnētiskās sistēmas un to optimizācija

5. Mērķfunkcijas risināšana ar FORTRAN programmas palīdzību

Tālāk tiek dota FORTRAN programma, kas realizē iepriekš iztirzāto algoritmu. Šī programma ietver vairākas apakšprogrammas, kas paredzētas atsevišķu procedūru izpildei. Pirmā no tām (subroutine mag) paredzēta magnetizēšanas līknes izvēlei, kas tiek veikta atbilstoši ieejas datos uzdotajam magnētiskā materiāla nosacītajam apzīmējumam jeb identifikācijas numuram praksē visvairāk izmantojamo elektrotehnisko lokšņu tēraudu un lieto tēraudu markām. Otrā apakšprogramma (subroutine hb) attiecīgai tērauda markai ļauj noteikt magnētiskās indukcijas vērtībai atbilstošu lauka intensitātes H vērtību. Trešā apakšprogramma (subroutine merkfunk) paredzēta mērķfunkcijas skaitlisko vērtību aprēķināšanai pēc iegūtajām formulām.
…