Commit e320dbc8 authored by Gonzalez, Miguel's avatar Gonzalez, Miguel
Browse files

Test on dTheta calculation.

parent e409b387
......@@ -200,7 +200,10 @@ if siz[0] eq 2 then begin
if keyword_set(gravity) then Cxy=(Cxy+Cxyf)/2. else Cxy=Cxyf ;(Fit & Gravity) or Fit or gravity
endif
;if Dtheta then supl49=atan(sqrt(total((([Xpar(3),Ypar(3)]/2.)*sans_supl(8:9))^2))/sqrt(2)/(sans_supl(1)*100.)) ;beam width (radian)
;resultX = gaussfit(X, Xproj, paramX, nterms=4)
;resultY = gaussfit(Y, Yproj, paramY, nterms=4)
if Dtheta then supl49=atan( total( [Xpar[3],Ypar[3]]/2. *sans_supl[8:9]) /2./2.3548 /(sans_supl[1]*100.)) ;beam width (radian)
endif
 
 
......@@ -263,6 +266,7 @@ if siz[0] eq 2 then begin
sans_supl[49] = supl49 ;Dtheta
endif
endif
return, Cxy
end
 
......@@ -2368,6 +2372,7 @@ pro sans_merge_in_f, rpb, titW, fctb, fifib, Wb,Xb,Eb,dQb
if strpos(rpb.TIT,' [*') gt px then fifib = fifib+'by' +strmid(rpb.TIT,ps+3,bc-ps-3)
endif else $
if pb gt px then fifib = fifib+'bg'+strmid(rpb.TIT,pb+3,strpos(rpb.TIT,')',pb)-pb-3)
end
 
 
......@@ -6644,6 +6649,7 @@ endif else case uv[0] of
if (uv[1] eq 7) and ((uv[2] eq 5) or (uv[2] eq 6)) then begin ;MERGE (sorted)
widget_control,baset.bases1[3],get_value=instru
widget_control,/hourglass
sans_merging, 'MERGE_file', cur_menu[2], idxll,idxmm,idxhh, gtlist=gtlist, background=farr[9], instrument=instru, WaveSuplement=WaveSuplement
endif
 
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment