۱۳۹۲/۰۸/۲۲, ۱۲:۴۹ ب.ظ
کد:
clear all
clc
syms x a-n b-n
f(x)=input('Please insert f(x)=')
l=input('Please enter l=')
N=10;
a_0=(1/2l)*int(f(x),-l,l)
for n=1:N
a_n(n)=(1/l)*int(f(x)*cos(((n*pi)/l)*x),-l,l);
b_n(n)=(1/l)*int(f(x)*sinn(((n*pi)/l)*x),-l,l);
end
a_n
b_n
f_new=a_0/2;
for n=1:N
f_new=f_new+a_n(n)*cos(n*x)+b_n(n)*sin(n*x);
end
subs(f_new,x,5)
subs(f,x,5)
[font][font]بزرگترین[/font] [font]لذت[/font] [font]زندگی[/font][/font]
[font]داشتن دوست صمیمی است[img=21x21]images/smilies/heart.gif[/img][/font]