Математические модели в расчетах на ЭВМ

Заменим параллельное соединение звеньев , одним эквивалентным звеном (рисунок 1.6).

Рисунок 1.6 - Структурные преобразования

При параллельном соединении звеньев передаточная и частотная функции находятся по формулам (1.1)-(1.2):

Общая вещественная составляющая и общая мнимая составляющая определяются соответственно как сумма вещественных и сумма мнимых составляющих отдельных звеньев по формулам (1.3)-(1.4):

При параллельном соединении удобнее работать с вещественными и мнимыми составляющими. Если требуется вычислить модуль и фазу такого соединения, то результирующие модуль и фаза определяются по формулам (1.5)-(1.6):

Заменим последовательное соединение звеньев , одним эквивалентным звеном (рисунок 1.7).

Рисунок 1.7 - Структурные преобразования

При последовательном соединении удобнее работать с модулями и фазами звеньев. Определим их по формулам (1.9)-(1.10):

По формулам (1.11)-(1.12) определим общую вещественную и общую мнимую составляющие:

Текст разработанной программы приведён на рисунке 1.9.

При разработке были введены следующие идентификаторы:

W- начальное значение диапазона изменения частоты, а также для хранения текущего значения частоты;

W1- конечное значение частоты;

W2- шаг изменения частоты.

Для ввода значений параметров звеньеви используются массивы К(7) и Т(7). Ввод значений этих параметров осуществляется с помощью операторов DATA READ. Вычисленные значения выходных переменных сохраняются в файле mm_8 txt на диске А.

OPEN "A:\mm_8.txt" FOR OUTPUT AS #2

CLS : Pi = 3.141592654#: W = 0: W1 = 1: W2 = .05

DIM K(7), T(7)

DATA 1,10,2,15,1,20,2,5,4,10,3,12,1,8

FOR i = 1 TO 7

READ K(i), T(i)

PRINT USING "K(#)=#, T(#)=##"; i; K(i); i; T(i)

NEXT i

10 FOR i = 1 TO 7

A(i) = K(i) / SQR(T(i) ^ 2 * W ^ 2 + 1)

F(i) = -ATN(T(i) * W)

P(i) = A(i) * COS(F(i))

Q(i) = A(i) * SIN(F(i))

NEXT i

REM ПАРАЛЛЕЛЬНОЕ СОЕДИНЕНИЕ

Pe(1) = P(1) + P(4)

Qe(1) = Q(1) + Q(4)

Ae(1) = SQR(Pe(1) ^ 2 + Qe(1) ^ 2)

Fe(1) = ATN(Qe(1) / Pe(1))

IF Pe(1) < 0 THEN Fe(1) = Fe(1) – Pi

REM ПАРАЛЛЕЛЬНОЕ СОЕДИНЕНИЕ

Pe(2) = P(2) + P(5)

Qe(2) = Q(2) + Q(5)

Ae(2) = SQR(Pe(2) ^ 2 + Qe(2) ^ 2)

Fe(2) = ATN(Qe(2) / Pe(2))

Рисунок 1.9, лист1- Листинг программы.

IF Pe(2) < 0 THEN Fe(2) = Fe(2) – Pi

REM ПОСЛЕДОВАТЕЛЬНОЕ СОЕДИНЕНИЕ

Ae(3) = Ae(1) * Ae(2)

Fe(3) = Fe(1) + Fe(2)

Pe(3) = Ae(3) * COS(Fe(3))

Qe(3) = Ae(3) * SIN(Fe(3))

REM ПОСЛЕДОВАТЕЛЬНОЕ СОЕДИНЕНИЕ

Ae(4) = A(6) * A(7)

Fe(4) = F(6) + F(7)

Pe(4) = Ae(4) * COS(Fe(4))

Qe(4) = Ae(4) * SIN(Fe(4))

 Скачать реферат