function cycle_fit,t_in,out_all=out_all ;+ ; PURPOSE ; Derive a solar-cycle dependent parametr (par) to apply to ; alog-scaled intensities to increase the brightness of the ; quiet corona in the movies as the solar cycle fades. ; ; Apply as follows: Intensity = alog(DN/pix/sec >1)^par ; INPUT ; t_in, array of times in any format. ; KEYWORD INPUT ; out_all, structure with daily minimum irradiances from ; jlean.genx which are stored in ; /disk/hl2/pd1/acton/fix_att/cyclsig_all.genx. ; HISTORY ; 4/15/09 LWA ; 4/25/09 LWA Modified par=0.083*yy+1.708 to yield a minimum ; parameter of 0.7 rather than 0.6. ; 4/27/09 LWA Modified to handle cases beyond the time interval of out_all. ; 5/24/09 LWA tt=anytim(out_all.date) ; 10/19/10 LWA Updated header. ; 10/22/10 LWA Modified to use for loop. ; 10/23/10 LWA Changed parameters of par to put min at 0.55. ; 10/25/10 LWA Put cycle minimum of par back at 0.7. ; 10/27/10 LWA Eliminated obsolete text. ;- yy=big_smooth(alog(out_all.irrad),180) tt=anytim(out_all.date) par=0.083*yy+1.708 ;0.7 cycle minimum ;par=0.125194*yy+2.06543 ;0.55 cycle minimum out=fltarr(n_elements(t_in)) for i=0,n_elements(t_in)-1 do begin if anytim(t_in(i)) lt anytim('14-Nov-91') then begin out(i)=out(i)+1.0 goto,skip endif if anytim(t_in(i)) gt anytim('11-Dec-01') then begin out(i)=out(i)+0.99 goto,skip endif out(i)=spline(tt,par,anytim(t_in(i))) skip: endfor return,out end