fdy <- function(fn) {
load(paste(fn,".dat",sep=""))
pl <- prepz(complex(real=ip(qrea$hl),imaginary=ip(qrea$vl)))
pr <- prepz(complex(real=ip(qrea$hr),imaginary=ip(qrea$vr)))
save(pl,pr,file=paste(fn,".oz2",sep=""))
prep2(pl,pr)
}
for( fn in names(ausw.liste)) ausw.liste[[fn]]$sakks2 <- fdy(fn)