| # | Line 402 | Line 402 | my $rtcmd = "rtcontrib $rtargs -h -ff -fo -n $nproc -c | |
|---|---|---|
| 402 | "-o '$td/%s.flt' -m $fmodnm -m $bmodnm $octree"; | |
| 403 | my $rccmd = "rcalc -e '$tcal' " . | |
| 404 | "-e 'mod(n,d):n-floor(n/d)*d' -e 'Kbin=mod(recno-.999,$ndiv)' " . | |
| 405 | < | q{-if3 -e '$1=(0.265*$1+0.670*$2+0.065*$3)/KprojOmega'}; |
| 405 | > | q{-if3 -e 'oval=(0.265*$1+0.670*$2+0.065*$3)/KprojOmega' } . |
| 406 | > | q[-o '${ oval },']; |
| 407 | if ( $doforw ) { | |
| 408 | $cmd = "cnt $ndiv $ny $nx | rcalc -of -e '$tcal' " . | |
| 409 | "-e 'xp=(\$3+rand(.12*recno+288))*(($dim[1]-$dim[0])/$nx)+$dim[0]' " . | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |