Разработка алгоритма и программы расчета электрической цепи (напряжение цепи - 640 В, частота - 111 Гц), страница 10

4.  Вычисляется значение полной площади прямоугольника S=Sum*H.

5.  Вычисляется действующее значение определенного интеграла.

6.  Осуществляется возврат в головной модуль.

3.2.3 Подпрограмма GRAFIK

Подпрограмма  GRAFIK имеет девять параметров:

  1. U,V,W,X,Y,Z– массивы значений исследуемых функций;
  2. N – размерность массивов;
  3. K – количество позиций для вывода графиков (если вывод осуществляется на широкую печать (АЦПУ), то K<=128, если на принтер, то K<=80 );
  4. Номер логического устройства для вывода графиков.

Вызов подпрограммы осуществляется оператором

CALL GRAFIK ( U,V,W,X,Y, Z,N,K,NU)

3.3 Входная информация.

Входная информация располагается в заранее созданном файле PROEKT.IN

3.4 Выходная информация.

Выходная информация располагается в файлах SAS1.RES, SAS2.RES, SAS3.RES, SAS4.RES.

В файле SAS1.RES находится таблица исходных данных и графики зависимостей токов от времени.

В файле SAS2.RES находятся и графики зависимостей напряжений от времени.

В файле SAS3.RES  находится таблица действующих значений  напряжений на элементах C2 и L3 и токов на них, графиков напряжений и токов на элементах C2 и L3 при заданной частоте.

В файле SAS4.RES   находятся графики напряжений и токов на элементах C2 и L3 при скачкообразном изменении частоты с 111 Гц до 200 Гц.

3.5Объем и временные характеристики.

Число операторов – 223

В головном модуле – 188

В подпрограмме INTEGRAL – 8

В подпрограмме GRAFIK - 27

Время процессорное – 2 с

Трансляция – 0,5 с

Редактирование – 1,2 с

Выполнения – 0,3с

Объем памяти – 30 Кб.

4 Результаты расчета

SAS1.RES

Программу составил студент гр. 106117  Минюк А.Г.

Вывод исходных данных            

*************************************************************

I  R2  I  R3  I  R4 I R5  I   C1   I   C2  I   C4   I   L1  I  L3  I   F  I  Q1 I  Q2 I

*************************************************************

I  Ом I  Ом I Ом I Ом  I  мкФ I мкФ I  мкФ I мГн I мГн I Гц  I  B   I   B  I

*************************************************************

I   15  I 500 I  85  I 500 I 8000 I  400  I  530   I    7   I  17  I 111 I 640 I 990 I

*************************************************************

Расчет  действ. . токов в цепи и в  ветвях

Графики изменения токов в ветвях

Действующий ток цепи  AD    IDAD=     25.98048 (A)

Действующий ток  ветви  1       ID1=     21.00939 (A)

Действующий ток  ветви  BC      IDBC=      0.66282 (A)

Действующий ток  ветви  2       ID2=      3.89550 (A)

Действующий ток  ветви  3       ID3=      0.66282 (A)

Действующий ток  ветви  cd      IDCD=     25.98048 (A)

Амплитудный ток цепи AD      IMAD=     36.74193 (A)

Амплитудный ток  ветви  1       IM1=     29.71175 (A)

Амплитудный ток  ветви  BC      IMBC=      0.93737 (A)

Амплитудный ток  ветви  2       IM2=      5.50907 (A)

Амплитудный ток  ветви  3       IM3=      0.93737 (A)

Амплитудный ток  ветви  cd      IMCD=     36.74193 (A)

------------------------------------------------------------------------------------IAD=@ ,       I1=# ,       IBC=$ ,      I2=%,       I3=^ ,  ICD=& 

------------------------------------------------------------------------------------!^ #&                              

!^%   # &                          

!^%      # &                       

!^ %        #  &                    

!^ %           #  &                

!^  %            #   &             

!^  %              #    &          

!^  %                 #    &       

!^   %                 #     &     

!^   %                   #     &   

!^   %                    #     &  

!^   %                     #      &

!^    %                     #      &

!^    %                      #     &

!^    %                      #     

!^    %                      #     &

!^    %                     #      &

!^   %                     #      &

!^   %                    #     &  

!^   %                   #     &