Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Табулювання функції, заданої рядом фур’є
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут телекомунікацій, радіоелектроніки та електронної техніки
Факультет:
Не вказано
Кафедра:
Кафедра теоретичної радіотехніки та радіовимірювань
Інформація про роботу
Рік:
2008
Тип роботи:
Звіт
Предмет:
Інформатика та обчислювальна техніка
Група:
РТ-11
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти та науки України
Національний університет «Львівська політехніка»
Інститут телекомунікацій, радіоелектроніки та електронної техніки
Кафедра теоретичної радіотехніки та радіовимірювань
Звіт з лабораторної роботи №8
Тема «Табулювання функції, заданої рядом фур’є»
з дисципліни «Інформатика та обчислювальна техніка»
Мета роботи - засвоїти методику та виробити практичні навики застосування вкладених циклів.
Варіант 10
ЗАВДАННЯ.
Протабулювати функцію y=f(t) для М значень аргумента на інтервалі [a,b]. Функція задана аналітично та у вигляді ряду Фур’є:
.
ВИКОНАННЯ ЗАВДАННЯ.
Варіанти завдань до лабораторної роботи подано. При розрахунку врахувати N перших членів ряду. Не вказані в таблиці коефіцієнти ak, bk дорівнюють нулеві.
№
f(t)
ak, bk
a
b
M
N
10
t((((t)(sign(t)
bk=
(парні k) (непарні k)
-((2
((2
20
8
ПОСТАНОВКА ЗАДАЧІ.
Необхідно перетворити функцію s(t) з урахуванням конкретних значень ak і bk, щоб привести цю функцію до зручного для обчислень вигляду. При описі виводу, чи в ескізі таблиці, передбачити виведення для кожного значення аргументу значень функції f(t) та s(t). Значення М для всіх варіантів обрані таким чином, що не виникає необхідності в поекранному виведенні даних.
РОЗРОБКА АЛГОРИТМУ
Оскільки кількість членів ряду та точок табулювання є заданою, то для програмування обчислень зручно використати вкладені цикли з параметрами: внутрішній для обчислення суми ряду і зовнішній для зміни аргументу в заданих межах та виведення аргументу і результатів. Для обчислення коефіцієнтів ak і bk, f(t) використовують підпрограми-функції.
ТЕКСТ ПРОГРАМИ.
Program L8;
uses Crt;
const
N=8;M=20;a=-pi/2;b=pi/2;
var
Ak:{array [1..N] of }real;
Bk:{array [1..N] of }real;
t,ft{y},d,s:real;
K:byte;
function sign(x:real):integer;
begin
if x<0 then sign:=-1 else sign:=1
end;
Begin
ak:=0;
d:=(abs(a)+abs(b))/m;
t:= a;
while t<=b do
begin
s:=0;
for k:=1 to n do
begin
if {k mod 2<>0} odd(k) then bk:=8/(pi/k/k/k) else bk:=0;
s:= s+(ak*cos(k*t)+bk*sin(k*t));
end;
ft:=t*(pi-t)*sign(t);
t:=t+d;
writeln('t = ',t:5:2,' y = f(t) =',ft:5:2,' s(t) = ',s:10:2)
end;
Readln;
End.
НАЛАГОДЖЕННЯ ТА РЕЗУЛЬТАТИ ТЕСТУВАННЯ.
Висновок: - на лабораторній роботі я засвоїв методику та виробив практичні навики застосування вкладених циклів.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора