IDL编程学习之DIY色条

15195775117

我想自己做一个色条，强度按蓝-绿-红顺序分配，函数c(x)按图中由3个函数叠加而成:c(x)=r(x)+g(x)+b(x)
分别求出3个函数的函数式，最后叠加。

写成代码，其中，从纯蓝到纯红，分别对应[x1,x2]区间中的x：
function cbar,x1,x2,x
  xm=mean([x1,x2])
  if(x ge x1 and x le xm)then begin
    bx=255.0/(x1-xm)*(x-xm)
  endif
  if(x gt xm and x le x2)then begin
    bx=0.0
  endif
  if(x ge xm and x le x2)then begin
    rx=255.0/(x2-xm)*(x-xm)
  endif
  if(x ge x1 and x lt xm)then begin
    rx=0.0
  endif
  if(x ge x1 and x lt xm)then begin
    gx=255.0/(xm-x1)*(x-x1)
  endif
  if(x ge xm and x le x2)then begin
    gx=255.0/(xm-x2)*(x-x2)
  endif
  return,[rx,gx,bx]
end

15195775117

使用此色条，就可以画出彩色的线条，我是说这种：

txt文件中，前两列是经纬度，第三列是某污染物浓度；
程序和数据在附件中。