Программа определения места повреждения на воздушной линии электропередачи, страница 29

        call addmat (Y(k),kfmp,Diag(d),kf,Diag(d),kf,kf,kf)

        k=index(pp,p)

        call addmat (Y(k),kfmp,Diag(d),kf,Diag(d),kf,kf,kf)

      else   !   полюса p и pp подключены к разным узлам

        inverse=j>i

        if(inverse) then  !  шиворот навыворот:

          ! поддиагональный блок Y МП добавляется над диагональ в Y сети

          nstl=i   !  номер блочного столбца в Y сети

          nstr=j   !  номер блочной строки в Y сети

        else  !  без перетасовки:

          ! поддиагональный блок Y МП добавляется под диагональ в Y сети

          nstr=i

          nstl=j

        end if

          ! Корректировка элементов недиагональных блоков

        iu=index(p,pp)    !   начало наддиагонального блока

        il=index(pp,p)    !   начало поддиагонального блока

        if (inverse) then  !   шиворот навыворот

                    ! над ==> под

           call addmat (Yn(L),kf ,Y(iu),kfmp,Yn(L),kf ,kf ,kfi)

                    ! под ==> над

           call addmat (Yv(L),kfi,Y(il),kfmp,Yv(L),kfi,kfi,kf )

        else               !   без перетасовки

                    ! над ==> над

           call addmat (Yv(L),kf ,Y(iu),kfmp,Yv(L),kf ,kf ,kfi)

                    ! под ==> под

           call addmat (Yn(L),kfi,Y(il),kfmp,Yn(L),kfi,kfi,kf )

        endif

      end if

    end do

  end do

99 end function

Приложение 2

Расчет токов однофазного замыкания  фазы А на землю по программе       «Маскрарад»

Ведущий файл программы «Маскарад»

Произведем расчет токов короткого замыкания при замыкании фазы А на

землю

Сечение провода АС-95/16

Погонные параметры линии: rо=0.306 Ом/км Хо=0.431 Ом/км

; - 18   1_

Чт# patr.dat 17   1_

Опишем узлы нашей схемы:

УзVФ       1  3  0  0  0   110   110   110     0     0     0  3  60_

УзVФ       2  3  0  0  0   100   100   100     0     0     0  3  60_

УзPQ       3  3  0  0  0    10   100   100     0     0     0  2  60_

Составим цепочечную схему

@ newcep.ref 19   1_

МПЦе     110  2     3  0     1     3  0  5  6  45_

МПЦе     111  2     3  0     3     2  0  7  6  45_

МПЦе       6  1     0  0     3  0  9  6  39_

Произведем расчет режима:

Рж 100   .01     1     0Z  Z  Рг2 13   1_

? I  4   110   111     6       15  30_

? U  4     1     2     3       15  30_

.  20   1_

Файл результата расчетов:

Bсего в схеме   3 многополюсников и   3 узлов.

                     Нелинейных многополюсников в сети нет.

   НЕБАЛАНСЫ МОЩНОСТЕЙ В УЗЛАХ НА ТРАЕКТОРИИ СПУСКА К РАСЧЁТНОМУ РЕЖИМУ СЕТИ

  итер. max{P,Q}  узел фаза  шаг  метод  итер. max{P,Q}  узел фаза  шаг  метод

    0   .42E+03     3   3  .00E+00         1   .31E+01     3   1  .10E+01  Z 

 Pезультат получен на   2-й итерации.

    2   .38E-03     3   1  .10E+01  Z 

       T O K И   П O   Ф A З A M   M H O Г O П O Л Ю C H И K O B

   МП  Пак Пол Мас Ф  Модуль   Угол   Ф  Модуль   Угол   Ф  Модуль   Угол 

     6      1      1    6.206  -25.0  2     .000     .0  3     .000     .0

   110      1      1    1.324  -27.0  2     .094  -54.8  3     .094  -54.8

            2      1    1.324  153.0  2     .094  125.2  3     .094  125.2

   111      1      1    4.884  155.6  2     .094  -54.8  3     .094  -54.8

            2      1    4.884  -24.4  2     .094  125.2  3     .094  125.2

              H A П P Я Ж E H И Я   В   У З Л A Х   C E T И

  Узел Маска Фаза Mодуль  Угол     Фаза Mодуль  Угол     Фаза Mодуль  Угол

     1         1  110.00     .0      2  110.00     .0      3  110.00     .0

     2         1  100.00     .0      2  100.00     .0      3  100.00     .0

     3         1   62.06  -25.0      2   80.20   -9.4      3   80.20   -9.4

Справочный файл:

1- Параметры цепи R1=12.24 Ом Х1=17.36 Ом на 40 км

        3 Z- 12.24 17.36 12.24 17.36 48.96 69.44  3  48_

2- Параметры цепи R1=3.06 Ом Х1=4.34 Ом  на 10 км

        3 Z-  3.06  4.34  3.06  4.34 12.24 17.36  3  48_