Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
АВТОМАТИЧНИЙ ПОТЕНЦІОМЕТР З МАГНІТНИМ ПІДСИЛЮВАЧЕМ
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
ІКТА
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2013
Тип роботи:
Курсова робота
Предмет:
Комп’ютерні методи дослідження інформаційних процесів та систем
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ
„ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА
Кафедра БІТ
Курсова робота
з курсу:
" Комп'ютерні методи дослідження інформаційних процесів і систем "
на тему:
" АВТОМАТИЧНИЙ ПОТЕНЦІОМЕТР З МАГНІТНИМ ПІДСИЛЮВАЧЕМ "
Тема 2, варіант 9
Львів- 2013
В даній роботі розглянено застосування модифікованого методу Ейлера та методу Рунге-Кутта-Мерсона для дослідження перехідного процесу автоматичного потенціометра з диференціюючим контуром. Розв’язок поставленої задачі представлений в середовищі С# і платформі Visual Studio 2010. Графіки уточнень побудовані в середовищі С#.
Зміст
1. Постановка задачі……………………………………………………………….. 4
2. Перетворення рівнянь………………………………………………………….. 6
3. Теоретичні відомості……………………………………………………………. 8
3.1 Модифікований метод Ейлера для розв’язку систем диференціальних рівнянь…..…..…..…..…..…..…..…..…..…..…..…..…..…..…..…..…..…..….. 8
3.2 Метод Рунге-Кутта-Мерсона ………………………………………………… 10
4. Лістинг програм………………………………………………………………… 11
4.1 Модифікований метод Ейлера …………………………………….…………. 11
4.2 Метод Рунге-Кутта-Мерсона …………………………………………………. 16
5. Результати виконання програми……………………………………………... 21
5.1 Модифікованим методом Ейлера ……………………………………………. 21
5.2 Метод Рунге-Кутта-Мерсона………………………………………………… 25
6. Графік перехідного процесу…………………………………………………… 42
7. Список літератури………………………………………………………………. 43
1. Постановка задачі
Схема:
Рівняння ланок :
вимірювальна схема
електронний підсилювач
магнітний підсилювач
двигун
редуктор
При початкових параметрах
Параметри
9
(m (рад)
5
Un (мв)
40
Cu (г.см.в)
10
C( (г.см.сек/рад)
2
IД (г.см.сек2)
0,02
І (г.см.сек2)
8
КМ
15
Т (сек)
0,05
і
25
Звести систему алгебро-диференціальних рівнянь до системи трьох диференціальних рівнянь першого порядку, представити її у нормальній формі та розв’язати цю систему вказаними методами. Початкові умови - =1 радіан, решта початкових умов – нульові. Числові значення сталих параметрів, заданих в таблиці, слід зобразити з допомогою одиниць системи СІ.
Побудувати графік зміни величини
2. Перетворення рівнянь
МП Т + e2 = км e1
ЕП U = кп ·e2
2х фазний двигун змінного струму
I = CuU — C ω
Редуктор
Вимірювальна схема
е1 = (вх — вих)
Необхідно звести ці рівняння до системи ЗДР I-го порядку
T + e2 = км(вх — вих)
Розв ‘ язуємо відносно
= (вх — вих) —
Це перше рівняння системи
У рівняння (3) підставляємо (2) та (4), при цьому з рівняння (4) знаходимо
ω = = i =
I = CuU — C ω ;
I = Cu· кпe2 — C ω· ω
I=Iд+ Iн/ i2 = (1— ) —
=
=
Таблиця ідентифікаторів
I — I1
Ѳ — QM
Un — UN
T — T
Cu — CU KU – вибір експериментів
C ω — CW
Id — ID
In — IN
E2 —Y(1)
Ѳвих — Y(2)
ω — Y(3)
— F(1)
— F(2)
— F(3) II=ID+IN/(I1*I1)
Систему звичайних диф. рівнянь запишемо у вигляді підпрограми
F(1)=KM*UN/(T*QM)*(1-Y(2))-Y(1)/T
F(2)=Y(3)/I1
F(3)= (CU*KU*Y(1)-CW*Y(3))/
3. Теоретичні відомості
3.1 Модифікований метод Ейлера
для розв’язку систем диференціальних рівнянь
Метод Ейлера є найпростішим методом розв’язування задачі Коші. Він дозволяє інтегрувати ДР першого порядку виду.
(4)
Метод Ейлера базується на розкладі функції в ряд Тейлора в околі точки
(5)
Якщо мале, то, знехтувавши членам розкладу, що містять в собі і т.д. отримаємо
(6)
Похідну знаходимо з рівняння (4), підставивши в нього початкову умову. Таким чином можна знайти наближене значення залежної змінної при малому зміщенні від початкової точки. Цей процес можна продовжувати, використовуючи співвідношення.
,
роблячи як завгодно багато кроків.
Похибка методу має порядок , оскільки відкинуті члени, що містять в другій і вище степенях.
Недолік методу Ейлера - нагромадження похибок, а також збільшення об’ємів обчислень при виборі малого кроку з метою забезпечення заданої точності.
В методі Ейлера на всьому інтервалі тангенс кута нахилу дотичної приймається незмінним і рівним . Очевидно, що це призводить до похибки, оскільки кути нахилу дотичної в точках та різні. Точність методу можна підвищити, якщо покращити апроксимацію похідної.
Модифікований метод Ейлера з перерахунком
Обчислення за методом Ейлера з перерахунком робляться в два етапи.
Прогноз:
.
Корекція:
.
Модифікований метод Ейлера з перерахунком має другий порядок точності, проте для його реалізації необхідно двічі обчислювати праву частину функції. Зауважимо, що метод Ейлера з перерахунком являє собою різновид методів Рунге-Кутта (предиктор-коректор).
Метод Ейлера з автоматичною зміною кроку
Після обчислення з кроком всі обчислення виконуються повторно з кроком . Після цього порівнюються результати, отримані в точці хn+1 з кроком і . Якщо модуль різниці менший , то обчислення продовжуються з кроком , в іншому випадку крок зменшують. Якщо нерівність дуже сильна, то крок збільшують.
- значення функції в точці
- значення функції в точці , обчислене з кроком
- значення функції в точці , обчислене з кроком
- значення функції , обчислене з кроком
1) Якщо
То,
обчислення повторюються доки не виконається умова .
2) Якщо виконується ця умова, то можливі два варіанти, в залежності від значення K, де K – ознака поділу кроку.
Початкове значенняі залишається таким після першого поділу кроку на два. Надалі, якщо крок ділиться, то K приймає значення одиниці.
а) Якщо , то навіть коли виконалась умова , крок не змінюється, тобто лишається тим самим (обчислення далі проводяться з попереднім кроком).
б) Якщо і виконалась умова , тоді .
В обох випадках а) і б) результат виводиться на друк.
Для розв’язку системи диференціальних рівнянь використовують цей самий метод, за виключенням того, що всі рівняння системи необхідно розв’язувати паралельно.
3.2 Метод Рунге-Кутта-Мерсона з автоматичною зміною кроку
Метод дозволяє оцінити похибку на кожному кроці інтегрування. При цьому не потрібно зберігати в пам’яті обчислення значень функцій на кроці і для оцінки похибки.
Алгоритм методу
1. Задаємо число рівнянь , похибку , початковий крок інтегрування , початкові умови .
2. За допомогою п’яти циклів з керуючою змінною обчислюємо коефіцієнти
3. Знаходимо значення
та похибку
4. Перевіряємо виконання умов
Можливі випадки:
а) Якщо перша умова не виконується, тобто , то ділимо крок на 2 та повторюємо обчислення з п.2, встановивши початкові значення .
б) Якщо виконується перша та друга умови, значення та виводяться на друк.
Якщо друга умова не виконується, крок збільшується вдвічі і тоді обчислення знову повторюється з п.2.
Треба відмітити, що похибка на кожному кроці методу Рунге-Кутта-Мерсона оцінюється приблизно. При розв’язуванні нелінійних ДР істинна похибка може відрізнятися в декілька разів від заданої .
, де .
- крок поділити на 2 і повернутися на початок.
для всіх рівнянь: виводимо на друк , а крок збільшуємо удвічі.
4. Лістинг програм
4.1 Модифікований метод Ейлера
using System;
using System.IO;
class Data
{
int Kr = 0;
int z = 10000;
double[,] Y;
double[,] y;
double[] t;
double[] m = new double[4];
double[] n = new double[4];
double[] l = new double[4];
double dt;
double Qm;
double Un;
double Cu;
double Cw;
double Id;
double In;
double Km;
double T;
double i;
double I;
double Qin;
double e;
double a;
double b;
double Kp;
double z1;
double z2;
double z3;
double z4;
double z5;
double z6;
long k;
public Data()
{
Y = new double[3, z];
y = new double[3, z];
t = new double[z];
dt = 0.01;
e = 0.001;
a = 0;
b = 2;
t[0] = a;
Qm = 5.0;
Un = 0.04;
Cu = 10.0 * Math.Pow(10.0, -5.0);
Cw = 2.0 * Math.Pow(10.0, -5.0);
Id = 0.02 * Math.Pow(10.0, -5.0);
In = 8.0 * Math.Pow(10.0, -5.0);
Km = 15.0;
T = 0.05;
i = 25.0;
Kp = 600.0;
Qin = 1.0;
I = Id + In / Math.Pow(i, 2);
}
public double F2(double t, double y1, double y2, double y3)
{
return Km * Un * (Qin - y1) / (Qm * T) - y2 / T;
}
public double F1(double t, double y1, double y2, double y3)
{
return y3 / i;
}
public double F3(double t, double y1, double y2, double y3)
{
return Cu * Kp * y2 / I - Cw * y3 / I;
}
public void Pohidni(double x, double y1, double y2, double y3)
{
Y[0, k] = F1(x, y1, y2, y3);
Y[1, k] = F2(x, y1, y2, y3);
Y[2, k] = F3(x, y1, y2, y3);
}
public void Znach(double x, double y1, double y2, double y3)
{
y[0, k + 1] = y[0, k] + dt * F1(x + dt / 2.0, y1, y2, y3);
y[1, k + 1] = y[1, k] + dt * F2(x + dt / 2.0, y1, y2, y3);
y[2, k + 1] = y[2, k] + dt * F3(x + dt / 2.0, y1, y2, y3);
}
public void Mod(double x, double y1, double y2, double y3)
{
Kr = 0;
Znach(x, y1, y2, y3);
z1 = y[0, k + 1];
z2 = y[1, k + 1];
z3 = y[2, k + 1];
z4 = y[0, k] + dt * (F1(x, y1, y2, y3) + F1(x + dt, z1, z2, z3)) / 2.0;
z5 = y[1, k] + dt * (F2(x, y1, y2, y3) + F2(x + dt, z1, z2, z3)) / 2.0;
z6 = y[2, k] + dt * (F3(x, y1, y2, y3) + F3(x + dt, z1, z2, z3)) / 2.0;
while (Math.Abs(z1 - z4) > e)
{
z1 = z4;
z2 = z5;
z3 = z6;
z4 = y[0, k] + dt * (F1(x, y1, y2, y3) + F1(x + dt, z1, z2, z3)) / 2.0;
z5 = y[1, k] + dt * (F2(x, y1, y2, y3) + F2(x + dt, z1, z2, z3)) / 2.0;
z6 = y[2, k] + dt * (F3(x, y1, y2, y3) + F3(x + dt, z1, z2, z3)) / 2.0;
if (Kr % 4 == 0)
dt = dt / 2.0;
Kr++;
}
y[0, k + 1] = z4;
y[1, k + 1] = z5;
y[2, k + 1] = z6;
}
public void Prod()
{
do
{
Mod(t[k], y[0, k], y[1, k], y[2, k]);
t[k + 1] = t[k] + dt;
k++;
} while (t[k] < b);
Pohidni(t[k], y[0, k], y[1, k], y[2, k]);
}
public void vuvid()
{
int j;
Random rand = new Random();
StreamWriter log_out;
log_out = new StreamWriter("logfile.txt");
Console.SetOut(log_out);
Console.WriteLine("t\ty1'");
for (j = 0; j < k; j += rand.Next(1, 3))
{
Console.WriteLine("{0:0.######}\t\t{1:0.####}", t[j], y[0, j]);
}
log_out.Close();
}
public void vuv()
{
Console.WriteLine("t\ty1\ty1'");
for (int j = 0; j < k; j += 2)
{
Console.WriteLine("{0:0.####}\t{1:0.####}", t[j], y[0, j]);
}
}
}
class Program
{
static void Main(string[] args)
{
Data d = new Data();
d.Prod();
d.vuv();
d.vuvid();
Console.ReadLine();
}
}
4.2 Метод Рунге-Кутта-Мерсона
using System;
using System.IO;
class Data
{
double i;
double Qm;
double Cu;
double Cw;
double Id;
double In;
double T;
double I;
double Kp;
double Qin;
double a;
double b;
double dt;
double Un;
double Km;
int k;
double[,] y = new double[3, 1000000];
double[,] Y = new double[3, 1000000];
double[] t = new double[1000000];
double[] p = new double[1000000];
double[] m = new double[5];
double[] l = new double[5];
double[] n = new double[5];
double z0;
double z1;
double z2;
double e;
public Data()
{
dt = 0.0001;
e = 0.00001;
a = 0;
b = 2;
t[0] = a;
Qm = 5.0;
Un = 0.04;
Cu = 10.0 * Math.Pow(10.0, -5.0);
Cw = 2.0 * Math.Pow(10.0, -5.0);
Id = 0.02 * Math.Pow(10.0, -5.0);
In = 8.0 * Math.Pow(10.0, -5.0);
Km = 15.0;
T = 0.05;
i = 25.0;
Kp = 600.0;
Qin = 1.0;
I = Id + In / Math.Pow(i, 2);
}
public double F2(double t, double y1, double y2, double y3)
{
return Km * Un * (Qin - y1) / (Qm * T) - y2 / T;
}
public double F1(double t, double y1, double y2, double y3)
{
return y3 / i;
}
public double F3(double t, double y1, double y2, double y3)
{
return Cu * Kp * y2 / I - Cw * y3 / I;
}
public void Pohidni(double t, double y1, double y2, double y3)
{
Y[0, k] = F1(t, y1, y2, y3);
Y[1, k] = F2(t, y1, y2, y3);
Y[2, k] = F3(t, y1, y2, y3);
}
public void Zmin()
{
y[0, k + 1] = y[0, k] + (m[0] + 4.0 * m[3] + m[4]) / 6.0;
y[1, k + 1] = y[1, k] + (n[0] + 4.0 * n[3] + n[4]) / 6.0;
y[2, k + 1] = y[2, k] + (l[0] + 4.0 * l[3] + l[4]) / 6.0;
}
public void Kof(double t, double y1, double y2, double y3, double h)
{
m[0] = F1(t, y1, y2, y3) * h;
n[0] = F2(t, y1, y2, y3) * h;
l[0] = F3(t, y1, y2, y3) * h;
m[1] = F1(t + h / 3.0, y1 + m[0] / 3.0, y2 + n[0] / 3.0, y3 + l[0] / 3.0) * h;
n[1] = F2(t + h / 3.0, y1 + m[0] / 3.0, y2 + n[0] / 3.0, y3 + l[0] / 3.0) * h;
l[1] = F3(t + h / 3.0, y1 + m[0] / 3.0, y2 + n[0] / 3.0, y3 + l[0] / 3.0) * h;
m[2] = F1(t + h / 3.0, y1 + m[1] / 6.0 + m[0] / 6.0, y2 + n[1] / 6.0 + n[0] / 6.0, y3 + l[1] / 6.0 + l[0] / 6.0) * h;
n[2] = F2(t + h / 3.0, y1 + m[1] / 6.0 + m[0] / 6.0, y2 + n[1] / 6.0 + n[0] / 6.0, y3 + l[1] / 6.0 + l[0] / 6.0) * h;
l[2] = F3(t + h / 3.0, y1 + m[1] / 6.0 + m[0] / 6.0, y2 + n[1] / 6.0 + n[0] / 6.0, y3 + l[1] / 6.0 + l[0] / 6.0) * h;
m[3] = F1(t + h / 2.0, y1 + 3.0 * m[2] / 8.0 + m[0] / 8.0, y2 + 3.0 * n[2] / 8.0 + n[0] / 8.0, y3 + 3.0 * l[2] / 8.0 + l[0] / 8.0) * h;
n[3] = F2(t + h / 2.0, y1 + 3.0 * m[2] / 8.0 + m[0] / 8.0, y2 + 3.0 * n[2] / 8.0 + n[0] / 8.0, y3 + 3.0 * l[2] / 8.0 + l[0] / 8.0) * h;
l[3] = F3(t + h / 2.0, y1 + 3.0 * m[2] / 8.0 + m[0] / 8.0, y2 + 3.0 * n[2] / 8.0 + n[0] / 8.0, y3 + 3.0 * l[2] / 8.0 + l[0] / 8.0) * h;
m[4] = F1(t + h, y1 + m[0] / 2.0 - 3.0 * m[2] / 2.0 + 2.0 * m[3], y2 + n[0] / 2.0 - 3.0 * n[2] / 2.0 + 2.0 * n[3], y3 + l[0] / 2.0 - 3.0 * l[2] / 2.0 + 2.0 * l[3]) * h;
n[4] = F2(t + h, y1 + m[0] / 2.0 - 3.0 * m[2] / 2.0 + 2.0 * m[3], y2 + n[0] / 2.0 - 3.0 * n[2] / 2.0 + 2.0 * n[3], y3 + l[0] / 2.0 - 3.0 * l[2] / 2.0 + 2.0 * l[3]) * h;
l[4] = F3(t + h, y1 + m[0] / 2.0 - 3.0 * m[2] / 2.0 + 2.0 * m[3], y2 + n[0] / 2.0 - 3.0 * n[2] / 2.0 + 2.0 * n[3], y3 + l[0] / 2.0 - 3.0 * l[2] / 2.0 + 2.0 * l[3]) * h;
}
public void Zminna(double t, double y1, double y2, double y3, double h)
{
Kof(t, y1, y2, y3, h);
Zmin();
}
public void Perevirka(double t, double y1, double y2, double y3, double h)
{
A1: Zminna(t, y1, y2, y3, dt);
z0 = y[2, k + 1];
z1 = y[2, k] + (l[0] - 3.0 * l[2] + 4.0 * l[3]) / 2.0;
z2 = Math.Abs(z0 - z1) / 2.0;
if (z1 > e)
{
dt = dt / 2.0;
goto A1;
}
if (z1 < e / 30.0)
{
dt = dt * 2.0;
goto A1;
}
y[2, k + 1] = z0;
}
public void Prod()
{
k = 1;
do
{
Pohidni(t[k], y[0, k], y[1, k], y[2, k]);
Zminna(t[k], y[0, k], y[1, k], y[2, k], dt);
t[k + 1] = t[k] + dt;
k++;
} while (t[k] < b);
Pohidni(t[k], y[0, k], y[1, k], y[2, k]);
}
public void vuvid()
{
int j;
Random rand = new Random();
StreamWriter log_out;
log_out = new StreamWriter("logfile.txt");
Console.SetOut(log_out);
Console.WriteLine("t\ty1'");
for (j = 0; j < k; j += rand.Next(1, 13))
{
Console.WriteLine("{0:0.######}\t\t{1:0.####}", t[j], y[0, j]);
}
log_out.Close();
}
public void vuv()
{
Console.WriteLine("t\ty1\ty1'");
for (int j = 0; j < k; j += 30)
{
Console.WriteLine("{0:0.######}\t\t\t{1:0.#####}", t[j], y[0, j]);
}
}
}
class Program
{
static void Main(string[] args)
{
Data d = new Data();
d.Prod();
d.vuv();
d.vuvid();
Console.ReadLine();
}
}
5. Результати виконання програми
5.1 Модифікований метод Ейлера з автоматичною зміною кроку t
0 0
0,01 0
0,015 0,0059
0,02 0,0211
0,0225 0,0281
0,0275 0,045
0,0325 0,0659
0,035 0,0779
0,0375 0,0907
0,04 0,1044
0,0425 0,119
0,0475 0,1507
0,05 0,1676
0,0525 0,1853
0,055 0,2036
0,0575 0,2225
0,06 0,2419
0,065 0,2823
0,07 0,3245
0,075 0,3679
0,0775 0,39
0,08 0,4123
0,085 0,4573
0,0875 0,48
0,09 0,5027
0,0925 0,5254
0,095 0,548
0,0975 0,5706
0,1 0,5931
0,105 0,6376
0,11 0,6814
0,1125 0,7029
0,115 0,7241
0,1175 0,745
0,12 0,7656
0,1225 0,7859
0,125 0,8057
0,1275 0,8252
0,13 0,8443
0,135 0,8812
0,1375 0,899
0,1425 0,9332
0,1475 0,9654
0,1525 0,9956
0,155 1,01
0,1575 1,0238
0,1625 1,0498
0,165 1,062
0,1675 1,0737
0,1725 1,0955
0,175 1,1056
0,18 1,1243
0,185 1,1408
0,19 1,1553
0,1925 1,1618
0,1975 1,1734
0,2 1,1784
0,205 1,1871
0,21 1
29.05.2013 12:05-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора