EIT Software Listings

anal

obsolete

response

util

Previous Routine

Next Routine

Listing of $SSW/soho/eit/idl/response/eit_vis2euv.pro

function eit_vis2euv, img, degrad=degrad, reverse=reverse
;+
;NAME
;   eit_vis2euv
;PURPOSE 
;   applies the visible to euv relationship to a vector or array
;INPUTS
;   img = vector or array to convert
;OUTPUTS
;   the converted vector or array
;KEYWORDS
;   degrad  : degradation index defined as the average of a normalized calibration lamp
;   reverse : if present, then conputes the euv to visible conversion 
;CREATION
;   18-May-2001. F. Auchere
;MODIFICATIONS
;   04-Sep-2002. F. Auchere Added the reverse keyword to make the euv to visible conversion
;
;-
  
  if not(keyword_set(degrad)) then degrad = 0.922
  
  deg = degrad>0.873<0.922

  if deg le 0.912 then begin
    b = (0.410256d)*deg + 0.326847d
    dy = (1.53846d)*deg - 1.32308d
  endif else begin
    b = (3.40001d)*deg - 2.39981d
    dy = (15.0d)*deg - 13.6d
  endelse

  a = 4.8d
  c = 0.4d

  if keyword_set(reverse) then $
    return, sqrt(((img - dy + sqrt(c))^2.0 - c)/a^2.0) + b $
  else $
    return, dy + (sqrt((a*((img-b)>0))^2.0d + c) - sqrt(c))>0.001<1.1

end

Last revised: - Wed May 9 21:45:13 2007- F. Auchère