XDSGUI User tools: Difference between revisions

m
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;'
27

edits