CG - Center of Gravity

PURPOSE

Compute coordinates of center of gravity of an image with respect to the image center (at NSAM/2 + 1, NROW/2 + 1).

SEE ALSO

CG 3	[Center of Gravity - Radius of gyration]
CG PH	[Center of Gravity - Phase approximation ||]

USAGE

.OPERATION: CG [x],[y]

.INPUT FILE: PIC001
[Enter name of image file.]

.THRESHOLD: 0.23
[Only data above the threshold will be used for computation]

NOTES

1. The coordinates of the center of gravity are printed out, and are put into the optional register variables appearing in the operation line.

2. EXAMPLE: To shift an image into its center of gravity computed for a threshold of T=0.23, one could use the following command sequence:

    
       CG [x],[y] 
       PIC001 
       .23             
    
       SH 
       PIC001 
       SHI001 
       -[x],-[y] 
   

SUBROUTINES

CENGR3

CALLER

UTIL1