mg.long <- NULL
for( fn in names(ausw.liste)) {
sakks2.mg <- with(ausw.liste[[fn]]$sakks2,mg(sakk.l,sakk.r))
tg <- with(ausw.liste[[fn]],approxfun(2*trig,trigv,method="c"))
nas <- unlist(apply(ausw.liste[[fn]]$nas,1,function(x)(2*x[1]):(2*x[2])))
mg.long <- rbind(mg.long, with(ausw.liste[[fn]]$sakks2,
	cbind(fn,sakk.l[sakks2.mg[,1],],sakk.r[sakks2.mg[,2],],
	l.na = is.element(sakk.l[sakks2.mg[,1],1],nas)
		| is.element(sakk.l[sakks2.mg[,1],2],nas)
		| is.element(sakk.l[sakks2.mg[,1],3],nas),
	r.na = is.element(sakk.r[sakks2.mg[,1],2],nas)
		| is.element(sakk.r[sakks2.mg[,2],2],nas)
		| is.element(sakk.r[sakks2.mg[,2],3],nas),
	l.tg=tg(sakk.l[sakks2.mg[,1],1]), r.tg=tg(sakk.r[sakks2.mg[,2],1]),
	l.tg100=tg(sakk.l[sakks2.mg[,1],1]+100), r.tg100=tg(sakk.r[sakks2.mg[,2],1]+100)
	)))
}