linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Beam attenuator commissioned

Browse Source 
r1966 | dbx | 2007-05-16 17:04:01 +1000 (Wed, 16 May 2007) | 2 lines
This commit is contained in:
Dan Bartlett
2007-05-16 17:04:01 +10:00
committed by Douglas Clowes
parent f374e445bf
commit 20e00a8504
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
site_ansto/instrument/reflectometer/DMC2280/controller1.txt
View File

@@ -1,14 +1,14 @@
NO TE: PLATYPUS - CONTROLLER 1
NO TE:
NO TE: $Revision: 1.7 $
NO TE: $Date: 2007-03-05 06:03:11 $
NO TE: $Revision: 1.8 $
NO TE: $Date: 2007-05-16 07:04:01 $
NO TE: Author: Dan Bartlett
NO TE: Last revision by: $Author: dbx $
NO TE:
NO TE: A-BEAM SHADE RAISE
NO TE: B-COLLIMATOR TRANSLATE A=7350364, B=6529772, C=6941582
NO TE: C-COLLIMATOR TILT LEVEL=134660
NO TE: D-BEAM ATTENUATOR
NO TE: C-COLLIMATOR TILT, LEVEL=134660
NO TE: D-BEAM ATTENUATOR, BEAM CENTRE=8375078
NO TE: E-SLIT TOWER S3 RAISE
NO TE: F-SLIT TOWER S4 RAISE
NO TE: G-SPARE
@@ -27,14 +27,14 @@ DC 25000,25000,25000,25000,25000,25000,,;' SET DECELERATION
SP 50000,25000,25000,25000,75000,75000,,;' SET SPEED
SIA=1,25,13,0<-2>2;'HEIDENHAIN ROQ425
SIB=1,25,13,0<-2>2;'HEIDENHAIN ROQ425
SIC=1,24,18,6<-2>2;'IVO GDA2S
SIC=1,24,18,6<-2>2;'IVO
SID=1,25,13,0<-2>2;'HEIDENHAIN ROQ425
SIE=1,25,13,0<-2>2;'HEIDENHAIN ROQ425
SIF=1,25,13,0<-2>2;'HEIDENHAIN ROQ425
SIG=0,25,13,0<-2>2;'SPARE
SIH=0,25,13,0<-2>2;'SPARE
POS=0;' INITIAL BEAM ATTENUATOR POSITION IS PARKED IN THE BEAM
XQ #ATTEN,1;' EXECUTE PROCEDURE TO CONTROL BEAM ATTENUATOR
POS=0;' INITIAL BEAM ATTENUATOR FREQUENCY IS 0, PARKED IN THE BEAM
XQ #ATTEN,1
JS #THREAD0
EN
NO ----------------------------------------
@@ -141,10 +141,15 @@ NO DCH=OLDDCH
RE
NO ----------------------------------------
#ATTEN
DEADBD=20;' SET ENCODER DEADBAND
PARKPOS=8309158; 'PARKING ENCODER POSITION
SHUTPOS=8390307; 'BEAM SHUT ENCODER POSITION
STRTPOS=8390307; 'OSCILLATING START ENCODER POSITION
NO TE: THIS IS A PROGRAM FOR CONTROLING THE BEAM ATTENUATOR
NO TE: ITS STATE IS SET BY THE VARIABLE POS
NO TE: IF POS=-1 THEN ITS OUT OF THE BEAM
NO TE: IF POS=0 THEN ITS IN THE BEAM, LIKE A SHUTTER
NO TE: IF POS=1 THEN ITS OSCILLATING
DEADBD=20
PARKPOS=8308518; 'PARKING ENCODER POSITION
SHUTPOS=8359718; 'BEAM SHUT ENCODER POSITION
STRTPOS=8395558; 'OSCILLATING START ENCODER POSITION
IF (POS=-1)&(@ABS[_TPD - PARKPOS]>DEADBD)
NO TE: PARK ATTENUATOR OUT OF BEAM - NO ATTENUATION
SPD=75000
@@ -180,13 +185,13 @@ SPD=180000
ACD=_SPD*4;' 0.25S TO ACCELERATE
DCD=_ACD
#LOOP
PRD=140625;' 90MM = 60MM IN THE BEAM, 15MM FOR ACCEL AND 15MM FOR DECEL
PRD=125000;' 80MM = 60MM IN THE BEAM, 10MM FOR ACCEL AND 10MM FOR DECEL
BGD
AMD
PRD=-140625
PRD=-125000
BGD
AMD
ENDIF
JP #LOOP,(POS=1)
JP #ATTEN
EN
EN