27
edits
No edit summary |
|||
Line 15: | Line 15: | ||
open(F,"<XDS.INP"); | open(F,"<XDS.INP"); | ||
while(<F>){ | while(<F>){ | ||
if(/^[^!]*DETECTOR_DISTANCE= *(\S*\d)/){ $d=$1; } # d = detector distance | if(/^[^!]*DETECTOR_DISTANCE= *(\S*\d)/) { $d=$1; } # d = detector distance | ||
if(/^[^!]*DIRECTION_OF_DETECTOR_X-AXIS= *(\S*\d) +\S*\d +(\S*\d)/){ $x1=$1; $x3=$2; } # x1,x3 = horizontal rotation part of X-axis | if(/^[^!]*DIRECTION_OF_DETECTOR_X-AXIS= *(\S*\d) +\S*\d +(\S*\d)/) { $x1=$1; $x3=$2; } # x1,x3 = horizontal rotation part of X-axis | ||
if(/^[^!]*QX= *(\S*\d)/){$qx=$1;} # qx = detector resolution | if(/^[^!]*QX= *(\S*\d)/) { $qx=$1;} # qx = detector resolution | ||
} | } | ||
printf "ORGX=%.2f ORGY=%.2f\n",$x-$x3/$x1*$d/$qx, $y;' | printf "ORGX=%.2f ORGY=%.2f\n",$x-$x3/$x1*$d/$qx, $y;' |
edits