Результаты решения задачи в виде таблицы
К У Р С О В А Я Р А Б О Т А
по дисциплине "Информатика"
РАЗРАБОТКА ПРОГРАММНОГО МОДУЛЯ НА ЯЗЫКЕ ПРОГРАММИРОВАНИЯ ВЫСОКОГО УРОВНЯ ДЛЯ РЕШЕНИЯ ИНЖЕНЕРНЫХ ЗАДАЧ
вариант №12
Выполнил
Студент: Лаптева И.Е.
Группа: ММ - 130703
Принял: Мещанинова Т.В.
Екатеринбург
Содержание
1.Введение (стр.3).
2. Отчет о решении задач (стр.4-16):
2.1. ЗАДАЧА 1. РАСЧЕТ ТРАНСФОРМАТОРА ПИТАНИЯ.(стр.4-6);
2.2. ЗАДАЧА 2. РАСЧЕТ И ПОСТРОЕНИЕ АМПЛИТУДНО-ЧАСТОТНОЙ
ХАРАКТЕРИСТИКИ КОЛЕБАТЕЛЬНОГО КОНТУРА.(стр.7-8);
2.3. ЗАДАЧА 3. ЧИСЛЕННОЕ ИНТЕГРИРОВАНИЕ АНАЛИТИЧЕСКИ ЗАДАННОЙ ФУНКЦИИ.(стр.9-11);
2.4. ЗАДАЧА 4. ЧИСЛЕННОЕ РЕШЕНИЕ НЕЛИНЕЙНЫХ УРАВНЕНИЙ С ЗАДАННОЙ ТОЧНОСТЬЮ.(стр.12-13).
3.Заключение(стр.14).
Введение
Цель: закрепление знаний основ информатики и умений решать с помощью персонального компьютера типовых инженерно-технических задач программными методами с использованием языка программирования Pascal.
Выполнение курсовой работы осуществляется самостоятельно по индивидуальному заданию под руководством преподавателя и предусматривает постановку, алгоритмизацию, программирование четырех задач (две – из области радиотехники и две – из области прикладной математики), получение их решения на персональном компьютере и оформление отчета. При этом используется весь арсенал изученных и освоенных методов и приемов работы на персональном компьютере.
Работа выполнена в среде Pascal ABC.net.
ОТЧЕТ О РЕШЕНИИ ЗАДАЧ.
ЗАДАЧА 1. РАСЧЕТ ТРАНСФОРМАТОРА ПИТАНИЯ.
По заданным значениям напряжения сети, площади сечения выбранного сердечника, требуемому количеству вторичных обмоток, величинам их напряжения и тока рассчитать количество витков и диаметр провода в каждой обмотке.
Для расчетов можно использовать приближенные зависимости, которые являются приемлемыми при следующих условиях:
· габаритная мощность трансформатора не более 100 ватт;
· частота сети 50 Гц;
· магнитная индукция в стальном сердечнике 1200 Гс;
· максимальная плотность тока в обмотках 2,55 а/кв.мм;
· коэффициент полезного действия трансформатора 0,8 – 0,9.
Габаритная мощность трансформатора вычисляется по формуле
(ватт),
где m – количество вторичных обмоток,
n – коэффициент полезного действия;
U(i) – напряжение на i-ой вторичной обмотке (вольт);
I(i) – величина тока в i-ой вторичной обмотке (ампер).
Количество витков первичной обмотки трансформатора определяется зависимостью:
где U – напряжение сети (вольт);
S – площадь сечения сердечника (кв. см).
Диаметр провода первичной обмотки определяется по формуле:
(мм).
Количество витков i-ой вторичной обмотки – по выражению:
.
Диаметр провода i – ой вторичной обмотки – по формуле:
(мм).
Исходные данные
| U | S | n | m | U1 | I1 | U2 | I2 | U3 | I3 |
| в | кв. см | в | а | в | а | в | a | ||
| 0,81 | 5,0 | - | - | - | - |
Таблица принятых обозначений переменных
| U | S | n | U1 | I1 | U2 | I2 | U3 | I3 |
| D0 | K0 | D1 | K1 | D2 | K2 | D3 | K3 | P |
Алгоритм решения задачи
1.Находим мощность трансформатора.
2.Вычисляем диаметр первичной и i-вторичных обмоток.
3.Вычисляем количество витковпервичной и i-вторичных обмоток.
4.Выводим результаты вычислений.
Текст программы
varu,s,n,u1,i1,u2,i2,u3,i3,p,d0,d1,d2,d3,k0,k1,k2,k3:real;
Begin
u:=110;
s:=2;
n:=0.8;
u1:=12;
i1:=5;
u2:=9;
i2:=3;
u3:=3;
i3:=1;
p:=1/n*((u1*i1)+(u2*i2)+(u3*i3));//находим мощность трансформатора
d0:=sqrt(p/(u*2));//диаметр первичной обмотки
d1:=sqrt(i1/2);
d2:=sqrt(i2/2);
d3:=sqrt(i3/2);//диаметры вторичных
k0:=1.83*1000000*0.95/(u*s);//количество витков первичной обмотки
k1:=38/s*u1*1.05;
k2:=38/s*u2*1.05;
k3:=38/s*u3*1.05;//количество витков вторичных обмоток
write('При напряжении ',u,' и площади сечения сердечника ', s);writeln;
write('а так же коэффициенте полезного действия трансформатора ', n:5:2);writeln;
write('мощность трансформатора = ',p:5:2);writeln;
write('количество витков первичной обмотки = ',k0:8:2,' а диаметр = ',d0:5:2);writeln;
write('количество витков 1-3 вторичных обмоток соответственно равно ',k1:5:2,' ',k2:5:2,' ', k3:5:2);writeln;
write('диаметр витков 1-3 вторичных обмоток соответственно равен ',d1:5:2,' ',d2:5:2,' ', d3:5:2);writeln;
readln;
END.
Результаты решения задачи в виде таблицы
| Тип параметра | Параметр | Значение |
| Количество витков | Первичной обмотки, K0 | 5268,2 |
| Первой вторичной обмотки, K1 | 79,8 | |
| Диаметр провода, мм | Первичной обмотки, D0 | 0,4 |
| Первой вторичной обмотки, D1 | 1,58 | |
| Ток, А | Первичной обмотки, I | 0,33 |
Краткий анализ результата
С уменьшением напряжения (U) количество витков вторичной обмотки уменьшается.С уменьшением силы тока (I) диаметр провода вторичной обмотки также уменьшается.
ЗАДАЧА 2. РАСЧЕТ И ПОСТРОЕНИЕ АМПЛИТУДНО-ЧАСТОТОЧНОЙ
ХАРАКТЕРИСТИКИ КОЛЕБАТЕЛЬНОГО КОНТУРА.
По заданному выражению для амплитудно-частотной характеристики резонансного контура
,
где K – коэффициент усиления,
WP – резонансная частота,
W – текущая частота,
Z – относительный коэффициент затухания,
рассчитать таблицу значений A(W) при изменении частоты W от 0 до Wкон с шагом DW=0,1*Wкон при различных значениях относительного коэффициента затухания Z, изменяющегося от Zнач до Zкон с шагом Zшаг.
По данным таблицы построить на осях координат A(W), W графики изменения амплитуды A(W) от частоты W для различных значений Z.
Исходные данные
| K | WP | Wкон | Zнач | Zкон | Zшаг |
| 7,0 | 8,0 | 0,2 | 0,7 | 0,25 |
Алгоритм решения задачи
Программа написана без использования функций и процедур.
1.Зная начальные и конечные z и w и их шаги,с помощью двух операторовwhile вычисляем AW (в первом while проходим от z начального до z конечного,во втором-от w начального до w конечного.При этом после каждого прохождения цикла вычисляем следующие значения z и w с помощью шагов).
2.После каждого вычисления формулы во втором операторе while выводим результат:W и AW,полученное при этом W.Всего получается 33 храктеристик (т.к.w-11,z-3).
Текст программы
vark,wp,w,wstep,z,zstep:real;
a:array[0..10] ofreal;
i:integer;
Begin
k:=7;
wp:=8;
z:=0.2;
zstep:=0.2;
wstep:=0.1*16;
whilez<=0.7 do
Begin
writeln('при z = ',z);
w:=0;
i:=0;
while<=16 do
Begin
a[i]:=(k*sqr(wp))/sqrt(sqr(sqr(wp)-sqr(w))+sqr(2*z*wp*w));
write(' ',a[i]:5:2);
w:=w+wstep;
inc(i);
end;
writeln;
z:=z+zstep;
end;
end.