In order to obtain curves of flux, circular polarization degree,
and spectrum index from a partial area of a series of images,
IDL> abox=[23,35,33,41] CR
IDL> fi17=norh_tb2flux(dataa,indexa,abox=abox) CR
IDL> fv17=norh_tb2flux(datas,indexs,abox=abox) CR
IDL> fi34=norh_tb2flux(dataz,indexz,abox=abox) CR
IDL> norh_polariz,indexa,fi17,indexs,fv17,indexp,polariz,mvdp CR
IDL> norh_alpha,indexa,fi17,indexz,fi34,indexal,alpha,mvda CR
Plot as, say,
IDL> utplot,indexp,polariz CR
IDL> utplot,indexal,alpha CR