PRO Gravitational_Wave_LIGO
;引力波数据下载网址
url='http://www.ligo.org/science/GW100916/L-strain_hp30-968654552-10.txt'
;新建idlneturl对象,用于下载LIGO数据
net = IDLNETURL()
;LIGO数据下载路径,根据需要进行修改
file = 'D:\LIGOdata.txt'
;如果数据不存在,则下载,如果已经下载,则直接进行可视化。
IF ~FILE_TEST(file) THEN BEGIN
PRINT, '正在下载LIGO数据, 请稍候...'
!NULL = net.Get(url=url, filename=file)
PRINT, '数据下载完成.'
ENDIF
;获取数据行数,并初始化数组,用于存储LIGO数据
lines = FILE_LINES(file)
data=FLTARR(lines)
;读取LIGO数据
OPENR,lun,file,/get_lun
READF,lun,data
FREE_LUN, lun
;可视化
p=PLOT(data, XRANGE=[1,lines], COLOR = 'blue', $
TITLE='LIGO Livingston Observatory data for GW100916', $
XTITLE='Time[Seconds] from 2010-09-16 06:42:17 UTC (968654552.0)', $
YTITLE='Gravitational-wave strain amplitude', $
DIMENSIONS=[1000,500], /NO_TOOLBAR, $
XTICKLEN=1, YTICKLEN=1, XGRIDSTYLE=1, YGRIDSTYLE=1, $
XMAJOR = 11, YMAJOR=5, XMINOR=0, YMINOR=0, $
XTICKNAME = STRTRIM(INDGEN(11),2), $
FONT_SIZE=15, XTICKFONT_SIZE=13, YTICKFONT_SIZE=13)
PRINT, '数据可视化完成.'
END
|
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 全程不用写代码,我用AI程序员写了一个飞机大战
· DeepSeek 开源周回顾「GitHub 热点速览」
· 记一次.NET内存居高不下排查解决与启示
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· .NET10 - 预览版1新功能体验(一)