; volume to correct/enhance
PW
../vml_vols/vml006
_1
SQ
_1
_2
RO
_2
_3
de
rojo
li d
_3
rojo
r
1
ud n,x66
rojo
; pixel size 4.78A
x80=4.78
; ^^^^^^^^^^^
de
flenhc71
x55=0.0
x56=100
x21=1
;sd x21,x21,x55,x56
;flenhc71
do lb1 x21=2,35
ud ic,x21,x51
rojo
x55=(x21-1)/(2*(x66-1))
x56=x80/x55
@pwsc[x56,x77]
; Xray/EM
x77=SQR(x77/X51)
x78=LON(X77)
sd x21,x77,x55,x56,X78
TRF/flenhc71
lb1
;X67=x66+1
;X68=2*x66
;DO LB42 X21=x67,x68
;x55=(x21-1)/(2*(x66-1))
;x56=x80/x55
;sd x21,x77,x55,x56
;flenhc71
;lb42
sd e
TRF/flenhc71

EN D
fd
/net/sylt/usr10/pawel/fMet-P/final/vbprp80009
fmet-enhanced
flenhc71
fq np
fmet-enhanced
fmet-enhanced-filt
7
.2,.3



wi
fmet-enhanced-filt
_1
125     125
125       0
9       9
9       0
cp
_1
/net/sicily/usr1/pawel/aaaa-11-18/volFEG
en d