跳转到内容

File:Optical dispersion dynamics.gif

页面内容不支持其他语言。
這個文件來自維基共享資源
维基百科,自由的百科全书

Optical_dispersion_dynamics.gif (360 × 223像素,文件大小:1.04 MB,MIME类型:image/gif、​循环、​201帧)


摘要

描述
English: Time evolution of a short pulse in a dispersive medium (k=w^2) showing that the longer wavelength components travel faster than the high frequency ones, resulting in chirping and pulse stretching.
日期
来源 https://twitter.com/j_bertolotti/status/1077269477211934721
作者 Jacopo Bertolotti
授权
(二次使用本文件)
https://twitter.com/j_bertolotti/status/1030470604418428929

Mathematica 11.0 code

f = FullSimplify[
   FourierTransform[
    E^(-(\[Omega] - \[Omega]0)^2/(2 \[Sigma]^2))
      E^(-I \[Omega]^2/v x), \[Omega], t], 
   Assumptions -> {\[Sigma] > 0}];
p1 = Table[
   Show[
    Plot[Re[f] /. {\[Omega]0 -> 1, v -> 2, \[Sigma] -> 0.2}, {x, -5, 
      200}, PlotRange -> {-0.2, 0.2}, PlotStyle -> {Orange, Thick}]
    ,
    Plot[{Abs[f], -Abs[f]} /. {\[Omega]0 -> 1, 
       v -> 2, \[Sigma] -> 0.2}, {x, -5, 200}, 
     PlotRange -> {-0.2, 0.2}, PlotStyle -> {Black, Black}]
    , Axes -> False
    ]
   , {t, 0, 100, 0.5}];
ListAnimate[p1]

许可协议

我,本作品著作权人,特此采用以下许可协议发表本作品:
Creative Commons CC-Zero 本作品采用知识共享CC0 1.0 通用公有领域贡献许可协议授权。
采用本宣告发表本作品的人,已在法律允许的范围内,通过在全世界放弃其对本作品拥有的著作权法规定的所有权利(包括所有相关权利),将本作品贡献至公有领域。您可以复制、修改、传播和表演本作品,将其用于商业目的,无需要求授权。

管理员受信用户Ronhjones确认本图片在2018年12月26日可在下列站点找到并符合所选许可证:
https://twitter.com/j_bertolotti/status/1030470604418428929

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描繪內容

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2018年12月26日 (三) 11:022018年12月26日 (三) 11:02版本的缩略图360 × 223(1.04 MB)BertoUser created page with UploadWizard

以下页面使用本文件:

全域文件用途

以下其他wiki使用此文件:

元数据