# | Line 130 | Line 130 | my $cmd = "cnt $ndiv $ny $nx | rcalc -of -e '$tcal' " | |
---|---|---|
130 | q{-e '$1=xp;$2=yp;$3=zp;$4=Dx;$5=Dy;$6=Dz' } . | |
131 | "| rtcontrib -h -ff -n $nproc -c $nsamp -e '$kcal' -b kbin -bn $ndiv " . | |
132 | "-m $modnm -w -ab 5 -ad 700 -lw 3e-6 $octree " . | |
133 | < | "| rcalc -e 'x1:.5;x2:.5;$tcal' -e 'Kbin=floor((recno-1)/$ndiv)' " . |
133 | > | "| rcalc -e 'x1:.5;x2:.5;$tcal' " . |
134 | > | "-e 'mod(n,d):n-floor(n/d)*d' -e 'Kbin=mod(recno-1,$ndiv)' " . |
135 | q{-if3 -e '$1=(0.265*$1+0.670*$2+0.065*$3)/(Komega*Dz)'}; | |
136 | my @darr = `$cmd`; | |
137 | die "Failure running: $cmd\n" if ( $? ); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |