DIMENSION TOKM(1000)

WRITE (6,*)’Введите ИД’

READ (5,*)R1,R2,R3,C,AL,TN,TK,DT,F,UM,

W=2.*3.14*F

XL=W*AL

XC= –1./(W*C)

Z2=CMPLX(R2,XC)

Z3=CMPLX(R3,XL)

Z4=Z3*Z2/(Z2+Z3)

ZS=R1+Z4

I=1

DO 8 T=TN,TK,DT

U=UM*SIN(W*T)

Получим комплексные значения токов:

TOK1=U/ZS

TOK2=TOK1*Z3/(Z2+Z3)

TOK3=TOK1-TOK2

Модуль тока I1

TOKM(I)=SQRT(REAL(TOK1)**2+AIMAG(TOK1)**2)

WRITE (6,*)’При T=’,T,’ ток=’,TOK3

На экран будут выводиться значения: “При Т= ток=( , )

TOKM – массив данных для построения графика, содержит значения модуля тока I1 .

8 I=I+1

CALL GRAF(TOKM,I–1)

PAUSE

STOP

END








Дата добавления: 2015-06-10; просмотров: 413; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию, введите в поисковое поле ключевые слова и изучайте нужную вам информацию.

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2019 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.006 сек.