9 X1=`sed -n 3p $file | awk '{ print $1 }'`
10 X2=`sed -n 3p $file | awk '{ print $2 }'`
11 X3=`sed -n 3p $file | awk '{ print $3 }'`
13 Y1=`sed -n 4p $file | awk '{ print $1 }'`
14 Y2=`sed -n 4p $file | awk '{ print $2 }'`
15 Y3=`sed -n 4p $file | awk '{ print $3 }'`
17 Z1=`sed -n 5p $file | awk '{ print $1 }'`
18 Z2=`sed -n 5p $file | awk '{ print $2 }'`
19 Z3=`sed -n 5p $file | awk '{ print $3 }'`
36 temp="`sed -n ${line1}p $1`"
37 xa=`echo $temp | awk '{ print $1 }'`
38 ya=`echo $temp | awk '{ print $2 }'`
39 za=`echo $temp | awk '{ print $3 }'`
44 temp="`sed -n ${line2}p $1`"
45 xb=`echo $temp | awk '{ print $1 }'`
46 yb=`echo $temp | awk '{ print $2 }'`
47 zb=`echo $temp | awk '{ print $3 }'`
53 echo "$xa $ya $za $xb $yb $zb $scale" | \
56 X1=ENVIRON["X1"]; X2=ENVIRON["X2"]; X3=ENVIRON["X3"]
57 Y1=ENVIRON["Y1"]; Y2=ENVIRON["Y2"]; Y3=ENVIRON["Y3"]
58 Z1=ENVIRON["Z1"]; Z2=ENVIRON["Z2"]; Z3=ENVIRON["Z3"]
61 X=sqrt(X1^2+X2^2+X3^2)
62 Y=sqrt(Y1^2+Y2^2+Y3^2)
63 Z=sqrt(Z1^2+Z2^2+Z3^2)
82 dist=sqrt(dxt^2+dyt^2+dzt^2)