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