Подпрограмма lndKat plosk q. Индуктивность плоской катушки

Вызов: CALL lndKat_plosk_q (R, Z, ndimrz, nwtk, NACHW, KONW, shr, shz, rindkat).

! SUBROUTINE lndKat_plosk_q (R, Z, ndimrz, nwtk, NACHW, KONW, shr, shz, rindkat).

!Пп рассчитывает индуктивность плоской катушки с ОДИНАКОВЫМИ сечениями витков! и с ОДИНАКОВОЙ разбивкой сечений по формуле.

! п п-1 п.

! Lk=SUM Ljj + 2*SUM SUM Ljm, где.

! j =1 j =1 m=j + 1.

!Ljj — собственная индуктивность массивного витка;

!Ljm — взаимная индуктивность j-ro и m-го массивных витков катушки;

!пверхний предел суммы — количество витков в катушке;

!j, mиндексы суммирования в суммах.

!Витки могут иметь как одинаковые, так и неодинаковые поперечные сечения.

1ТРЕБУЕМЫЕ ПП: lndKat_plosk_q, Vzi_WW_hor_qq, REAVZI {ИСПОЛЬЗОВАН УСКОРЕННЫЙ АЛГОРИТМ! Правильное расположение витков плоской катушки.

! |Z.

! |__.

! I I I I I I I II.

! I₁_1 Ы Ы 1₁

! |_R.

!

! ВХОД:

!R, Z — одномерные массивы, содержащие радиусы и z-координаты нитевидных.

! контуров в центрах элементарных площадок.

Indimrz — размерность массивов R и Z Inwtk — количество витков в катушке.

!NACHW, KONW — одномерные массивы размерности nwtk, содержащие номер первой и.

! конечной элементарных площадок в очередном витке.

!nrr, nrz — числа разбиений сечения витка вдоль радиуса и вдоль z-координаты.

!shr, shz — шаги разбиения витков по радиусу и вдоль z-координаты.

! ВЫХОД:

Irindkat — рассчитанная индуктивность катушки в Гн.

SUBROUTINE lndKat_plosk_q (R, Z, ndimrz, nwtk, NACHW, KONW, nrr, nrz, shr, shz, rindkat) integer: ndimrz, nwtk, NACHW (nwtk), KONW (nwtk), j, m, nachl, konl, nrr, nrz real (8): R (ndimrz), Z (ndimrz), shr, shz, rj, zj, & rindkat, soblnd, s, vziww.

rindkat=OdO; s=0d0 DO j=l, nwtk.

rj=R (j)_; zj=Z (j); nachl=NACHW (j); konl=KONW (j).

!Расчет собственной индуктивности витков слоя:

CALL lndMWtk_qq (R_/Z_/ndimrz_/nrr_/nrz_/nachl_/konl_/shr, shz_/ soblnd) rindkat=rindkat+Soblnd Суммирование собств. индуктивностей витков if (j==nwtk)exit do m=j+l, nwtk.

CALL Vzi_WW_hor_qq (R, Z, ndimrz, nachl, konl, NACHW (m), KONW (m), nrr, nrz, vziww) s=s+vziww ! Суммирование во внутр. и внешн. циклах.

enddo enddo.

rindkat=rindkat+2d0*s.

END.