Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформатика
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
ІТРЕ
Факультет:
УІ
Кафедра:
Радіоелектроніки та електронної техніки (РЕПС)
Інформація про роботу
Рік:
2024
Тип роботи:
Лабораторна робота
Предмет:
Інформатика та обчислювальна техніка
Варіант:
13
Частина тексту файла (без зображень, графіків і формул):
Завдання:
Протабулювати функцію y=f(t) для 16 значень аргумента на інтервалі [-pi/2,3pi/2]. Функція задана аналітично та у вигляді ряду Фур’є:
.
bk=1(2
(парні k)
(непарні)
ПОСТАНОВКА ЗАДАЧІ.
Необхідно перетворити функцію s(t) з урахуванням конкретних значень bk, щоб привести цю функцію до зручного для обчислень вигляду. При описі виводу, чи в ескізі таблиці, передбачити виведення для кожного значення аргументу значень функції f(t) та s(t). Значення М для всіх варіантів обрані таким чином, що не виникає необхідності в поекранному виведенні даних.
РОЗРОБКА СТРУКТУРИ ДАНИХ.
Студент може розглянути (але не обов’язково) можливість використання масивів для зберігання коефіцієнтів ak і bk.
Окрім змінних, вказаних в завданні, необхідно передбачити змінні для зберігання констант, використаних у варіантах завдань для опису функцій f(t) i s(t). Якщо описують функції чи процедури, то необхідно описати їх вхідні та вихідні параметри, їх тип та призначення функції чи процедури.
Позначення
Ім’я
Тип
Призначення, опис
a
a
дійсна
Ліва межа інтервалу
b
b
дійсна
права межа інтервалу
d
d
дійсна
крок
t
t
дійсна
Аргумент функції, час
M
m
ціла
Кількість значень аргмента
bk
bk
дійсна
коефіцієнт
S(t)
S
дійсна
Функція задана аналітично
k
k
ціла
порядок
N
n
ціла
кількість перших членів ряду
F(t)
F(t)
дійсна
Функція задана у вигляді ряду Фур’є
ak
ak
дійсна
коефіцієнт
3. РОЗРОБКА АЛГОРИТМУ.
Оскільки кількість членів ряду та точок табулювання є заданою, то для програмування обчислень зручно використати вкладені цикли з параметрами: внутрішній для обчислення суми ряду і зовнішній для зміни аргументу в заданих межах та виведення аргументу і результатів. Для обчислення коефіцієнтів ak і bk, f(t) використовують підпрограми-функції.
Текст програми
program project1; uses crt;
var a,b,d,t, Bk,ak,s:real;
m, k,n:integer;
function f(x:real):real;
begin
if (x>pi) and (x<0) then f:=-1/pi;
if (x>=0) and (x<=pi) then f:=pi-x;
end;
function sk(x:real):real;
begin
sk:=bk*sin(k*x); end;
function sk1(x:real):real;
begin
sk1:=ak*cos(k*x); end;
begin
writeln('vvedit najmnshe znashennja argymenty');
readln(a);
writeln('vvedit najbilshe znashennja argymenty');
readln(b);
writeln('vvedit kilkist znashenn argymenty'); readln(m);
writeln('vvedit kilkist pershuh cleniv rjadu'); readln(n); ClrScr;
d:=(b-a)/(m-1);
t:=a; write('argyment'); write(' '); write('f(t)'); write(' '); writeln('s(t)');
while t<=b do
begin s:=0;
write(t:8:3); write(' '); write(f(t):8:3); write(' '); bk:=0;
for k:=1 to n do begin
if (k mod 2=1) then begin bk:=0;ak:=0;if k=1 then bk:=0.5; end;
if (k mod 2=0) then
begin ak:=-2/(pi*(k*k-1)); bk:=0;if k=1 then bk:=0.5;end;
s:=s+sk(t)+sk1(t);end;end;
writeln(s:8:3);
t:=t+d;
end; readln;
end.
ТЕСТУВАННЯ ТА НАЛАГОДЖУВАННЯ.
Висновок:я засвоїв методику та виробив практичні навики застотування вкладених циклів та
ознайомився з:
- Програмною реалізацєю табулювання функцій;
-Обчисленнями суми ряду;
-Правилами запису вкладених циклів;
-Поняттями про періодичну функцію.
А також з правилами запису деяких функцій. Наприклад - x mod a = x(({x(a})(a, де {} ( операція взяття цілої частини.
Міністерство освіти і науки України
Національний університет «Львівська політехніка»
Інститут телекомунікацій, радіоелектроніки та електронної техніки
Кафедра теоретичної радіотехніки та радіовимірювань
ЗВІТ З ЛАБОРАТОРНОЇ РОБОТИ №8 НА ТЕМУ:
«ТАБУЛЮВАННЯ ФУНКЦІЇ, ЗАДАНОЇ РЯДОМ ФУР’Є.»
Підготував:
студент групи РТ-11
Новосельський Андрій
Прийняв:
Нестор Н. І.
Львів 2010р.
05.05.2014 22:05-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора