注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

徐小湛的博客

高等数学课件、函数图形动画、数学软件应用

 
 
 

日志

 
 

如何周期延拓函数?  

2011-08-14 08:52:52|  分类: 数学专题讲解 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

在傅里叶级数中我们需要将定义在一个区间[a,b]上的函数f(x)进行周期延拓。

如何写出这个延拓的函数F(x)的表达式?

答:这个延拓后的函数的表达式是:

F(x)=f(x-(b-a)*floor((x-a)/(b-a))       (公式1)

其中floor(u)就是我们所熟悉的取整函数[u]。

 

如果f(x)定义在区间[-a, a]上,则周期延拓后的函数为

F(x)=f(x-2*a*floor((x+a)/(2*a))       (公式2)

 

如果f(x)定义在区间[-Pi, Pi]上,则周期延拓后的函数为

F(x)=f(x-2*Pi*floor((x+Pi)/(2*Pi))    (公式3)

 

 

例1  将函数f(x)=abs(x) (-Pi<=x<=Pi) 延拓为周期为2*Pi的函数F(x)。(同济大学《高等数学》下册,311页,例5)

解 根据公式3,周期延拓后的函数为

F(x)=abs(x-2*Pi*floor((x+Pi)/(2*Pi))

 

 

f(x)的图形
如何周期延拓函数? - calculus - 高等数学

 
周期延拓后的函数F(x)的图形 

 

如何周期延拓函数? - calculus - 高等数学

 

作图的Mathematica程序:
f[x_] := Piecewise[{{-x, -Pi <= x < 0}, {x, 0 <= x <= Pi}}]
L := Pi
F[x_] := f[x - 2*L*Floor[(x + L)/(2*L)]]
A = Plot[f[x], {x, -Pi, Pi}, PlotStyle -> {Red, AbsoluteThickness[3]},AspectRatio -> Automatic, Ticks -> {Range[-2*L, 2*L, Pi/2], Range[-3, 3, 1]}]
B = Plot[F[x], {x, -5*L, 5*L}, AspectRatio -> Automatic];
Show[A, B, PlotRange -> {{-5*L, 5*L}, {-1, 4}}, Ticks -> {Range[-5*L, 5*L, Pi], Range[-3, 3, 1]}]

 

例2  将函数f(x)=-1 (-Pi<=x<0),f(x)=1(0<=x<Pi)  延拓为周期为2*Pi的函数F(x)。(同济大学《高等数学》下册,306页,例1)

解 根据公式3,周期延拓后的函数为

F(x)=f(x-2*Pi*floor((x+Pi)/(2*Pi))

 

f(x)的图形

 如何周期延拓函数? - calculus - 高等数学

 

 
 
周期延拓后的函数F(x)的图形
 如何周期延拓函数? - calculus - 高等数学

 

 

作图的Mathematica程序:
f[x_] := Piecewise[{{-1, -Pi <= x < 0}, {1, 0 <= x <= Pi}}]
L := Pi
F[x_] := f[x - 2*L*Floor[(x + L)/(2*L)]]
A = Plot[f[x], {x, -Pi, Pi}, PlotStyle -> {Red, AbsoluteThickness[3]},
AspectRatio -> 1/2, Ticks -> {Range[-2*L, 2*L, Pi/2], Range[-1/2, 3/2, 1/2]}]
B = Plot[F[x], {x, -4*L, 4*L}, AspectRatio -> 1/2, PlotStyle -> {Blue, AbsoluteThickness[2]}];
Show[B, A, PlotRange -> {{-4*L, 4*L}, {-2, 2}}, Ticks -> {Range[-5*L, 5*L, Pi], Range[-2, 2, 0.5]}]


 

 

例3  将函数f(x)=x^2-3*x (2<=x<=5)  延拓为周期为3 的函数F(x)

解 根据公式1,周期延拓后的函数为

F(x)=f(x-3*floor((x-2)/3)

 

f(x)的图形
 如何周期延拓函数? - calculus - 高等数学

 

周期延拓后的函数F(x)的图形

如何周期延拓函数? - calculus - 高等数学\

 

作图的Mathematica程序:
f[x_] := Piecewise[{{x*Sin[x/2], 2 <= x < 5}}]
F[x_] := f[x - 3*Floor[(x - 2)/3]]
A = Plot[f[x], {x, -4, 11}, PlotStyle -> {Red, AbsoluteThickness[3]}, Ticks -> {Range[-4, 12, 1], Range[-1, 5, 1]}]
B = Plot[F[x], {x, -4, 11}, PlotStyle -> {Blue, AbsoluteThickness[2]}];
Show[B, A, Ticks -> {Range[-4, 12, 1], Range[-1, 10, 1]}]


 

 

  评论这张
 
阅读(3880)| 评论(5)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016