=1 to n do beginU2 [i]>=A / 2 then inc (l);; l <> 0 then z:=round (100 * Pr * l / n) / 100; («Aktivnaya dlina impulsa na urovne 0,5 A =», z: 0:2);; SK_Oshibka; er: real;: integer;:=0; i:=1 to n do:=er + sqr (u1 [i]-u2 [i]); {F16}:=sqrt (er / (n - 1) / n); («Srednekvadraticheskaya oshibka =», er: 0:5);; Sohranenie; ft: text;: integer; (ft, «save . txt »); (ft); i:=1 to n do writeln (ft, u2 [i]: 0:5); (ft);; i, j: integer;: real;;:=Detect; ( GD, GM, «»);:=GraphResult; GE <> GrOk then («Graph mode error!");; (red); (0, y0, 640, y0); (x0, 0 , x0, 480); (5, 5, «U»); (630, 245, «T»); (5, 245, «0»); (x0 +5 + xz * 2 div 2, 250, «T / 2»); (x0 +5 + xz * 4 div 2, 250, «T»); (x0 +5 + xz * 6 div 2, 250, «3T / 2»); (x0 +5 + xz * 8 div 2, 250, «2T»); (5, y0-yz * A, «A»); (0, y0 + yz * A, «-A»); (15, y0-yz * A, 25, y0-yz * A); (15, y0 + yz * A, 25, y0 + yz * A); i:=1 to 10 do begin (x0 + (xz * 2 * i) div 2, 235, x0 + (xz * 2 * i) div 2, 245);;(white);_Signala;;(green);;;;;_Impulsa;(«»);_Napryazenie;(«»);_Impulsa2;(«»);_Naprazenie;(«»);_Pri_05A;(«»);_Oshibka;;:= 0; j:=1 to n div 20 do begin; («-------------------------------») ; («| t | U (t) | U2 (t) |»); («------------------------------- »); i:=(j - 1) * 20 +1 to j * 20 do begin (« | », x: 0:2,« | », U1 [i] : 0:2, «», «|», U2 [i]: 0:2, «|»);:=x + dt;; («------------------------------- »);;;
Sohranenie;.
таблиця лістінг програма pascal
4. Блок-схеми
Рис.1. Блок-схема процедури DFT. Робить Пряме та зворотнє Перетворення Фур є
Рис.2. Блок-схема процедури F_U. Задає функцію
Рис.3. Блок-схема процедури Simpson_F9. Формулі Сімпсона для значення середньої напруги
Рис.4. Блок-схема процедури Simpson_F12. Формулі Сімпсона для значення ефектівної напруги
Рис.5. Блок-схема процедури Graphic. Малює графік Функції
Рис.6. Блок-схема процедури Graphic2. Малює графік відновленої Функції
Рис.7. Блок-схема процедури Parametri_Impulsa. Розраховує шпаруватість, коефіцієнт та частоту Заповнення імпульсу
Рис.8. Блок-схема процедури SR_Napryzenie. Розраховує Значення середньої напруги
Рис.9. Блок-схема процедури Parametri_Impulsa2. Розраховує Активно ширину спектра и зберігає данні про спектральній аналіз на диск у файл Save.dat
Рис.10. Блок-схема процедури Deistvyushee_Naprazenie. Розраховує Значення ефектівної напруги
Рис.11. Блок-схема процедури Vostanovlenie_Signala. Відновлює сигнал за данними з файлу Save.dat
Рис.12. Блок-схема процедури Impuls_Pri_05A. Активно Довжину імпульсу на Рівні 0,5 А
Рис.13. Блок-схема процедури SK_Oshibka. Розраховує помилки
Таблиця символьних імен
№ ЗміннаФізічна велічінаЧто обозначает1AVНаруга2taumHzЧастота3PrMsПеріод4bigN-Кількість точок для розрахунку імпульса5N-Кількість точок6N_usech-Кількість гармонік7dt-змінна Кроку діскретізації8eps-Точність для формули Сімпсона9y0-Зміщення по у10x0-Зміщення по х11xz-Масштаб...
