【IDL代码库】IDL绘制双Y轴.pdf

【【IDL代代码码库库】】IDL绘绘制制双双Y轴轴 IDL源源码码下下载载地地址址：：/s/zrSeGYf9hByKz 效效果果图图：： IDL源码： ; ;:Description: ; Double y axis ; ;:Author: tiands@ ; ;:Date: 2013-12-6 21:02:41 ;- pro DoubleY ;⽂件路径 file = FILE_WHICH(C :\Program Files\Exelis\IDL82\examples\data,ascii.txt) d = REA D_ASCII(file, data_start=5) speed = LONG(REFORM(d.(0)[5,*])) direction = LONG(REFORM(d.(0)[6,*])) location = INDGEN(N_ ELEMENTS(speed)) p_wspd = PLOT(location, speed, r, $ AX IS_STY LE = 1, $ ; 只有X,Y轴，没有外边框 MA RGIN = [0.15, 0.15, 0.20, 0.15], $ ; 为右 Y轴留出空余 NAME = Speed, $ XT ITLE = Location, $ YT ITLE = Wind Speed (kts), $ T ITLE = Wind Measurements) ;这⾥使⽤了current关键字 p_wdir = PLOT(location, direction, b, $ /CURRENT, $ NAME = Direction, $ Y RANGE = [0,360], $ AX IS_STY LE = 0, $ ;没有坐标轴 MA RGIN = [0.15, 0.15, 0.20, 0.15]) ; 和上⾯的偏移⼀致 ;创建⼀个Y轴 a_wdir = AX IS(y, $ TA RGET = p_wdir, $ MAJOR = 5, $ ; [0, 90, 180, 270, 360] MINOR = 2, $ LOCAT ION = [MAX(p_wdir.X RANGE),0,0], $ TEXTPOS = 1, $ ; T ITLE = Wind Direction (deg)) ;创建图例 !null = LEGEND(target=[p_wspd, p_wdir]) end