;---------------------------------------------------------------------------
; cas.bat 
; automates running of "CA S" command to run CORAN (CA)
; with circular mask
; output :
;   CA S : cor_EIG, cor_IMC, cor_PIX, cor_SEQ (where 'cor' is template)
;
;---------------------------------------------------------------------------

x79= 1.	; first number of images/micrographs to analyze
x80=80. ; final number
x88= 8 	; number of factors to search for 

x70= 64	; x size of mask
x71= 64 ; y size of mask
x72= 33	; x center of circular mask
x73= 33 ; y center of circular mask
x74= 30	; radius of mask, take into account center and size of mask

; ----- input files ------

FR G
<sma>data/sma   ; input images file template

; ----- output files -----

FR G
<cor>control    ; prefix for SEQ, IMC, PIX, and EIG files from CA S

FR G
<doc>eigendoc	; lists coords. for each image, from _IMC

; ----- END BATCH HEADER ----------------------------------------

; create a mask file 
FR G
<mask>mask01
DE
<mask>
PT
<mask>
x70,x71
c
x72,x73
x74
N

;  run the correspondence analysis

CA S
<sma>***  ; input image template
x79-x80   ; file numbers
<mask>  ; mask
x88     ; number of factors
C       ; coran or PCA
0.0     ; additive constant
<cor>   ; output prefix

; write doc file
IF (x88.LT.9) THEN
   SD C
   <cor>   ; input prefix for IMC file
   1-8
   <doc>
ENDIF

EN D