N10 DEF INT RI N20 DEF INT SETT N30 DEF REAL ANG_INI ;angolo pressa ini ciclo (chiusura) N40 DEF REAL ANG_SAL ;angolo pressa ini salita (fine chiusura) N50 DEF REAL ANG_TRASL ;angolo pressa ini traslazione(fine salita) N60 DEF REAL ANG_DIS ;angolo pressa ini discesa(fine traslazione) N70 DEF REAL ANG_AP ;angolo pressa ini apertura (fine discesa) N80 DEF REAL ANG_RIT ;angolo pressa ini ritorno (fine apertura) N90 DEF REAL ANT_CH N100 DEF REAL ANT_SAL N110 DEF REAL ANT_TRASL N120 DEF REAL ANT_DIS N130 DEF REAL ANT_AP N140 DEF REAL ANT_RIT N140 DEF REAL POS_INI_C N150 DEF REAL INC_CH N160 DEF REAL INC_SAL N170 DEF REAL INC_TRASL N180 DEF REAL INC_DIS N190 DEF REAL INC_AP N200 DEF REAL INC_RIT N210 DEF REAL A_INI_TRASL N220 DEF REAL A_INI_RIT N230 DEF REAL A_INI_CH N240 DEF REAL A_INI_AP N250 DEF REAL A_INI_SAL N260 DEF REAL A_INI_DIS N270 DEF REAL STEP_C_TRASL N280 DEF REAL STEP_C_RIT N290 DEF REAL STEP_X N300 DEF REAL STEP_C_CH N310 DEF REAL STEP_C_AP N320 DEF REAL STEP_Y N330 DEF REAL STEP_C_SAL N340 DEF REAL STEP_C_DIS N350 DEF REAL STEP_Z N150 DEF REAL CH_MAN N160 DEF REAL AP_MAN N170 DEF REAL CTR_PR N180 DEF REAL CTR_PR_OFF N190 DEF REAL POSY_AP N200 DEF REAL POSY_CH N210 DEF REAL POSX_IND N220 DEF REAL POSX_AV N230 DEF REAL POSZ_BAS N240 DEF REAL POSZ_ALT N250 ANG_INI=R1 N260 ANG_SAL=R2 N270 ANG_TRASL=R3 N280 ANG_DIS=R4 N290 ANG_AP=R5 N300 ANG_RIT=R6 N310 POSX_IND=R10 N320 POSX_AV=R11 N330 POSY_AP=R20 N340 POSY_CH=R21 N350 POSZ_BAS=R30 N360 POSZ_ALT=R31 N370 ANT_CH=R41 N380 ANT_SAL=R42 N390 ANT_TRASL=R43 N400 ANT_DIS=R44 N410 ANT_AP=R45 N420 ANT_RIT=R46 ANG_AP=R5-ANT_AP IF ANG_AP>0 GOTOF OKAP ANG_AP=R5+360-ANT_AP OKAP: ;CALCOLO FUORINGOMBRI Y E Z R23=POSY_AP+1 R33=POSZ_BAS+1 N430 CH_MAN=ANG_SAL-R47 ;R47 ANTICIPO CHIUSURA MANINE N440 IF CH_MAN>=0 GOTOF PCH N450 CH_MAN=360+CH_MAN N460 PCH: N470 AP_MAN=ANG_AP-R48 ;R48 ANTICIPO APERTURA MANINE N480 IF AP_MAN>=0 GOTOF PAP N490 AP_MAN=360+AP_MAN N500 PAP: N510 CTR_PR=ANG_TRASL-5 N520 IF CTR_PR>=0 GOTOF PPR N530 CTR_PR=360+CTR_PR N540 PPR: N550 CTR_PR_OFF=ANG_AP-5 N560 IF CTR_PR_OFF>=0 GOTOF PPRO N570 CTR_PR_OFF=360+CTR_PR_OFF N580 PPRO: ;EVENTI SINCRONI ; M21 CHIUSURA MANINE M22 APERTURA MANINE N590 ID=1 EVERY ($AA_IM[A] >=CH_MAN) AND ($AA_IM[A]=AP_MAN) AND ($AA_IM[A]= R23) DO $A_OUT[9]=0 N620 ID=4 EVERY ($AA_IM[Y] < R23) DO $A_OUT[9]=1 ; $A_OUT[10]=1 ASSE Y FUORIINGOMBRO DB10.DBX190.1 ; PARAMETRO R33 QUOTA Z DI FUORIINGOMBRO N630 ID=5 EVERY ($AA_IM[Z] >= R33) DO $A_OUT[10]=0 N640 ID=6 EVERY ($AA_IM[Z] < R33) DO $A_OUT[10]=1 ; M23 AUX1 ON M24 AUX1 OFF N650 ID=7 EVERY ($AA_IM[A] >=R51) AND ($AA_IM[A]=R52) AND ($AA_IM[A]=R53) AND ($AA_IM[A]=R54) AND ($AA_IM[A]=CTR_PR) DO $A_OUT[11]=1 N700 ID=12 EVERY ($AA_IM[A]>=CTR_PR_OFF ) DO $A_OUT[11]=0 N710 R9=$AA_IM[A] ;MEMORIZZA LA QUOTA ANGOLO PRESSA N950 POS_INI_C=360-(ANG_INI-ANT_CH) N960 IF POS_INI_C<360 GOTOF OKY N970 POS_INI_C=POS_INI_C-360 N980 OKY: N1030 R60=ANG_INI-ANT_CH N1040 IF R60>0 GOTOF CHI1 N1050 R60=360-R60 N1060 CHI1: N1070 INC_CH=ANG_SAL-R60 N1080 IF INC_CH>0 GOTOF OKCH N1090 INC_CH=360-R60+ANG_SAL N1100 OKCH: N1110 R60=ANG_SAL-ANT_SAL N1120 IF R60>0 GOTOF SAL1 N1130 R60=360-R60 N1140 SAL1: N1150 INC_SAL=ANG_TRASL-R60 N1160 IF INC_SAL>0 GOTOF OKSA N1170 INC_SAL=360-R60+ANG_TRASL N1180 OKSA: N1190 R60=ANG_TRASL-ANT_TRASL N1200 IF R60>0 GOTOF TR1 N1210 R60=360-R60 N1220 TR1: N1230 INC_TRASL=ANG_DIS-R60 N1240 IF INC_TRASL>0 GOTOF OKTR N1250 INC_TRASL=360-R60+ANG_DIS N1260 OKTR: N1270 R60=ANG_DIS-ANT_DIS N1280 IF R60>0 GOTOF DIS1 N1290 R60=360-R60 N1300 DIS1: N1310 INC_DIS=ANG_AP-R60 N1320 IF INC_DIS>0 GOTOF OKDI N1330 INC_DIS=360-R60+ANG_AP N1340 OKDI: N1350 R60=ANG_AP-ANT_AP N1360 IF R60>0 GOTOF AP1 N1370 R60=360-R60 N1380 AP1: N1390 INC_AP=ANG_RIT-R60 N1400 IF INC_AP>0 GOTOF OKAP N1410 INC_AP=360-R60+ANG_RIT N1420 OKAP: N1430 R60=ANG_RIT-ANT_RIT N1440 IF R60>0 GOTOF RIT1 N1450 R60=360-R60 N1460 RIT1: N1470 INC_RIT=ANG_INI-R60 N1480 IF INC_RIT>0 GOTOF OKRIT N1490 INC_RIT=360-R60+ANG_INI N1500 OKRIT: N720 LEADOF(X,A) N730 LEADOF(Y,A) N740 LEADOF(Z,A) N750 STOPRE N760 ctabdel() N770 TAB2_5 ; $A_IN[9]=1 CICLO NORMALE DB10.DBX123.0 ; DA GESTIRE ANCORA NEL PLC ; SE =0 OCCORRE METTERE IN FASE IL TRANSFERT N780 IF $A_IN[9]==1 GOTOF OKF N790 FASE_TR ; $A_OUT[12]=1 CONTROLLO FASATURA OK DB10.DBX190.3 N800 OKF: ;N1570 IF $A_OUT[12]==1 GOTOF AZF N820 G1 G90 G64 N1730 C=POS_INI_C F5000 N1740 $A_OUT[12]=0 N1750 trailon(C,a,1) N810 X=R10 Y=R20 Z=R30 F5000 N820 G1 G91 G64 N830 FFWON N840 STOPRE N850 LEADON(X,C,1) N860 LEADON(Y,C,2) N870 LEADON(Z,C,3) N880 STOPRE ; M28 CONFERMA OK CICLO PRESSA N890 M28 N900 RIPT: N910 g4f1 N920 GOTOB RIPT N930 M30