10 scale=`sed -n 2p $file`
11 X1=`sed -n 3p $file | awk '{ print $1 }'`
12 X2=`sed -n 3p $file | awk '{ print $2 }'`
13 X3=`sed -n 3p $file | awk '{ print $3 }'`
14 Y1=`sed -n 4p $file | awk '{ print $1 }'`
15 Y2=`sed -n 4p $file | awk '{ print $2 }'`
16 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 }'`
28 temp="`sed -n ${line1}p $1`"
29 xa=`echo $temp | awk '{ print $1 }'`
30 ya=`echo $temp | awk '{ print $2 }'`
31 za=`echo $temp | awk '{ print $3 }'`
33 temp="`sed -n ${line2}p $1`"
34 xb=`echo $temp | awk '{ print $1 }'`
35 yb=`echo $temp | awk '{ print $2 }'`
36 zb=`echo $temp | awk '{ print $3 }'`
38 temp="`sed -n ${line3}p $1`"
39 xc=`echo $temp | awk '{ print $1 }'`
40 yc=`echo $temp | awk '{ print $2 }'`
41 zc=`echo $temp | awk '{ print $3 }'`
44 foo=`echo "$xa $ya $za $xb $yb $zb $xc $yc $zc $scale" | \
47 X1=ENVIRON["X1"]; X2=ENVIRON["X2"]; X3=ENVIRON["X3"]
48 Y1=ENVIRON["Y1"]; Y2=ENVIRON["Y2"]; Y3=ENVIRON["Y3"]
49 Z1=ENVIRON["Z1"]; Z2=ENVIRON["Z2"]; Z3=ENVIRON["Z3"]
53 X=sqrt(X1^2+X2^2+X3^2)
54 Y=sqrt(Y1^2+Y2^2+Y3^2)
55 Z=sqrt(Z1^2+Z2^2+Z3^2)
92 sp=dxt*Dxt+dyt*Dyt+dzt*Dzt
93 d=sqrt(dxt^2+dyt^2+dzt^2)
94 D=sqrt(Dxt^2+Dyt^2+Dzt^2)