Входная информация размещается в заранее созданном файле. Как следует из текста головного модуля программы EMO.FOR, за файлом исходных данных закрепляется имя EMO.in.
Выходная информация
Вся выходная информация заносится в файл под именем EMO.out. Исходные данные печатаются в виде таблицы. Затем выводятся на печать результаты расчета действующих значений токов на различных частях цепи, графики изменения токов в неразветвленной части схемы и ее ветвях, значения действующих напряжений на зажимах схемы AD, на конденсаторе С1 и на индуктивности L3, графики изменения напряжения на зажимах схемы АД, на конденсаторе С1 и индуктивности L3. В этот же файл выводятся на печать результаты расчета действующих значений токов и напряжений на конденсаторе С1 и индуктивности L3 в зависимости от изменяющегося параметра R4. Вывод графиков, отражающих влияние изменения параметра Q от значения Q1 до Q2 на действующие значения токов и напряжений на катушке L3 и на конденсаторе С1.
АНАЛИЗ ОШИБОК
В процессе отладки программы был выявлен ряд синтаксических и логических ошибок. Синтаксические ошибки находились на этапе трансляции программы, и в программу вносились необходимые изменения. Логические ошибки определялись в ходе проверочных расчетов при помощи введения в программу дополнительных операторов, позволяющих находить значения некоторых параметров электрической цепи, легко проверяемых по известным законам Ома и Кирхгофа. Для получения значений этих параметров вводилась отладочная печать
ЗАКЛЮЧЕНИЕ
В ходе выполнения работы была составлена программа расчета электрической цепи на языке ФОРТРАН, отлажена на ЭВМ, получены результаты решения в виде таблиц и графиков.
В процессе программирования разработана подпрограмма расчета действующих значений синусоидальных величин токов и напряжений по их мгновенным значениям.
Составленная программа может быть использована для исследования параметров идентичной электрической цепи. Такое ограниченное использование является недостатком данной программы.
В целом выполнение курсовой работы позволило углубить знания по программированию на языке ФОРТРАН.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. Фурунжиев Р.И. Вычислительная техника- практикум. Минск: Выcшая школа, 1985.
2. Методические указания по выполнению курсовой работы для студентов специальности 1-53 01 04”Автоматизация и управление энергетическими процессами”./Булат В.А., Дерюгина Е.А., Климкович П.И. – Минск: БНТУ, 2007.
3. Бессонов Л.А. Теоретические основы электротехники. Электрические цепи. М.: Высшая школа, 1978.
ПРИЛОЖЕНИЕ А
Текст программы
real mgi1(60),mgi2(60),mgi3(60),mgi4(60), mgi5(60)
real Udad(60),IdC1(60),IdL3(60),UdC1(60),Udl3(60)
real mguad(60),mguc1(60),mgul3(60)
complex z1,z2,z3,zef,zad
real l2,l3,i3d
real i1m,i2m,i3m,i4m,i4d, xc1,xc2,xc4,xl2,xl3,xp,i1d,i2d,
*umc1,uml3
open(30,file='EMO.in',status='old')
read(30,*)r1,r3,r4,r5,c1,c2,c4,l2,l3,Umad,f2,q1,q2
close(30)
open(2,file='EMO.out',status='old')
write(2,1)
write(2,2)r1,r3,r4,r5,c1,c2,c4,l2,l3,umad,f2,r4,q1,q2
1 format(20x,'Выполнил студент гр. 106618 Веленто И.',/,/,28x,
*'Схема № 1а Вариант 7',/)
2 format(4x,'/',69('-'),'\',/,4x,'|',34(' '),'Исходные данные'
*20(' '),'|',/,4x,'-',13('-----'),'-----',/,
*4x,'| R1 | R3 | R4| R5 | C1 | C2 | C4 | L2 | L3 | U | F | Q |
*Q1 | Q2 |',/,
*4x,'------',12('-----'),'-----',/,
*4x,'| Ом | Ом |Ом | Ом | мкФ |мкФ |мкФ |мГн |мГн | В | Гц ',
*'|мкф|мкф |мкФ |',/,
*4x,'------',12('-----'),'-----',/,
*4x, '|',F4.0,'|',F4.0,'|',F4.0,'|',F4.0,'|',F5.0,'|',F4.0,'|',F4.0,
*'|',F4.0,'|',F4.0,'|',F4.0,'|',F4.0,'|',F3.0,'|',F4.0,'|',f4.0,'|'
*,/,
*4x,'\-----',12('-----'),'----/')
data pi,n/3.14156,50/
l=0
pri=0
9 w=2.*pi*f2
T=1./f2
c Расчет полного сопротивления цепи
Xl2=w*l2*1.E-3
xl3=w*l3*1.E-3
Xc1=1./(w*c1*1.E-6)
Xc2=1./(w*c2*1.E-6)
Xc4=1./(w*c4*1.E-6)
z1=cmplx(R3,-Xc1)
z2=cmplx(r4,Xl2-Xc2)
z3=cmplx(r5,0)
xp=xl3-xc4
z4=cmplx(r1,xp)
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.