; b22.pws
; last modification: 3/17/99 by Montserrat
;; calculates avg pw for a set of micrographs
; input: window size, percentage of the overlap
; distance of the window from the micrograph border
; results in power/roo***
;
; parameters:
; power/pw_avgx11 - average file
; power/pw_rox11 - rotational average file
; power/roox11 - 1D doc file

md
set mem
500
x61=1     ; 1st micrograph number
x62=8    ; last micrograph
x51=3524  ; width of micrograph in pixels
x52=4300  ; height of micrograph in pixels
x31=500   ; window size of small pieces (Sx=Sy) 
x39=50      ; % of the overlap in x
x36=50      ; % of the overlap in y 
x56=200     ; dist. from the edge (y)
x59=200     ; dist. from the edge (x)


do lb1 i=x61,x62
;x11=x0
rr x11
116794,116798,116805,116809,116810,116812,116817,116820

@p_power[x31,x39,x36,x56,x59]
full{******x11}
power/pw_avg{******x11}
power/pw_ro{******x11}
power/roo{******x11}
lb1
en d