Select Code to Download

SYMM     1/8 - X, 1/8 + Y, 1/8 + Z
SYMM     1/6 - X, 1/6 + Y, 1/6 + Z
SYMM     1/4 - X, 1/4 + Y, 1/4 + Z
SYMM     1/2 - X, 1/2 + Y, 1/2 + Z

   if (/SYMM/)
   {
...
print @value[0] = ($frac1[0]/$frac2[0]); print "\n";
print @value[2] = ($frac1[1]/$frac2[1]); print "\n"; 
print @value[3] = ($frac1[2]/$frac2[2]);