INPI-France/Brevets-Francais-2024-Chunked huggingface dataset:
Préparation 7 Dans une solution d'α-[3-phénoxyméthyl-7-oxo-4-thia-2,6- diazabicyclo[3,2,0]hept-2-én-6-yl]-α-(1-hydroxyéthylidène)acétate de p-nitrobenzyle (504 mg) dans du tétrahydrofurane (8 ml.), on ajouse goutte à goutte du chlorure de méthanesulfonyle (0,13 ml) et de la triéthylamine (0,23 ml), en refroidissant par de la glace. Après 3 heures, le mélange est évaporé pour laisser un résidu, qui et dis- sous dans du chlorure de méthylène, lave à l'eau, séché sur du fate de magnésium, et évaporé.La purification du résidu par chromatographie sur du gel de silice contenant 10 % d'eau (15 g) en utilisant un mélange de benzène et d'acétate d'éthyle (5 : 1), donne de l'α-[3-phénoxyméthyl-7-oxo-4-thia-2,6-diazabicyclo[3,2,0]hept- 2-én-6-yl]-α-(1-méthanesulfonyloxyéthylidène)acétate de p-nitrobenzyle (353 mg) (mousse incolore).
Le produit ne contient pas d'isomère géométrique en position α. IR:#CHCl3 max 1780, 1730 cm-1. RMN:#CDCl3 2,60s3H, 3,12s3H, 4,58+4,88ABq(14Hz)2H, 5,24s2H, 5,92+6,08ABq(5Hz)2H, 6,73-8,20m9H.
Préparation 8 Dans une solution d a- [3-phénoxyméthyl-7-oxo-4-thia-2,6- diazabicyclo[3,2,0]hept-2-én-6-yl]-α-(1-hydroxyéthylidène)acétate de p=nitrobenzyle (940 mg) dans de la diméthylformamide contenant de de tétrahydrofurane (5 ml), on ajoute du chlorure dv p-toluène- sulfonyle (456 mg). Après refroidissement jusqu'à-70 C, la solution est mélangée avec de la triéthylamine (0,3 ml). On laisse le mélange réactionnel s'échauffer lentement jusqu'à la température ambian te, il est déversé dans l'eau et extrait à l'acétate d'éthyle. ta solution d'extrait est lavée à l'eau, séchée et évaporée.Le résidu obtenu est chromatographié sur du gel de silice- contenant 10 % d'eau en utilisant du benzène contenant 5 g d'acétate d'éthyle, pour donner de l'α-[3-phénoxyméthyl-7-oxo-4-thia-26-diazabicyclo[3,2,0] hept-2-én-6-yl]-α-(1-toluène-p-sulfonyloxyéthylidène)acétate de pnitrobenzyle (644 mg).
IR:#CHCl3 max 1785, 1735 cm-1. RMN:#CDCl3 2,45s3H, 4,75+4,20ABq (14Hz)2H, 5,15s2H, 5,77s2H, 8,30-6,60m13H.
Prétaration 9 -- Dans une solution d'α-[3-phénoxyméthyl-7-oxo-4-thia-2,6- diazabicyclo[3,2,0]hept-2-én-6-yl]-α-(1-méthanesulfonyléthylidène) acétate de p-nitrobenzyle (298 mg) dans du benzène (3 ml), on ajoute de la morpholine (0,095 ml) entre 7 et 10 OC. Après 130 minutes, le mélange réactionnel est filtré-pour donner un filtrat, qui est déversé dans de l'eau et de la glace et est extrait au chlorure de méthylène. ta solution d'extrait est lavée à l'eau, séchée sur du sulfate de magnésium et évaporée pour donner de l'α;-[3-phénoxy- méthyl-7-oxo-4-thia-2,6-diazabicyclo[3,2,0]hept-2-én-6-yl]-α-(1- morpholiroéthylidène lacétaGe de p-nitrobenzyle (284 mg)(mousse).
Rendement : 97,1 %.
Le produit est un mélange (environ 1: 1) des isomères géo- métriques sur le substituant en position α.
IR:#CHCl3 max 1768, 1685, 1612, 1603 cm-1. RMN:#CDDl3 1,90s1H, 2,42s1H, 3,17-3,43m4H, 3,52-3,83m4H, 4,87s2H, 5,21s2H, 5,58-6,00m2H, 6,80-8,22m9H. - 'Préparation 10 Dans une solution d'α-[3-phénoxyméthyl-7-oxo-4-thia-2,6- diazabicyclo[3,2,0]hept-2-én-6-yl]-α-(1-méthanesulfonyloxyéthy- lidène)acétate de 2,2,2-trichloroéthyle (1,52 g) dans du benzène (30 ml), on a joute de la morpholine (0,48 ml) en-dessous de 10 C.
Après agitation pendant 1 heure, le mélange est lavé à l'cau, séché et évaporé. La purification du résidu obtenu par chromatographie sur du gel de silice donne de l'α-[3-phénoxyméthyl-7-oxo-4-thia- 2,6-diazabicyclo[3,2,0]hept-2-én-6-yl]-α-(1-morpholinoéthylidène) acétate de 2,2,2-trichloroéthyle (0,76 g). Rendement : 50 .
On explicitera d'abord la terminologie relative aux pro blèmes d'ordonnancement.
Affectation : (Problème de):catégorie de problèmes combinatoires où l'ordonnancement consiste à assurer une liaison (affectation) entre un moyen et une tache.
Attente : Durée pendant laquelle il est nécessaire qu'une tache demeure sans opération pour quelle subisse une opéra- tion sans contrainte disjonctive.
Choix de moyens : expression désignant une situatIon combinatoi- re o plusieurs moyens peuvent concourir à la réalisation d'une mme tache.
Dispositif permettant de choisir le meilleur moyen compte tenu d'un critère.
Contrainte cumulative : affaiblissement de contrainte disjoncti- ve dfl à la présence dtun nombre plus ou moins grand de moyens du même type.
Contrainte disjonctive : impossibilité dtaffecter un moyen a plus d'une tache a la fois.
Contrainte de subordination ou contrainte conjonctive : nécessi té de ne commencer une tâche qu'après la réalisation d'une ou plusieurs autres Diagramme de Gaatt: représentation graphique des différentes séquences de travail dans un problème d1ordonnarcement d'atelier.
EntreprIse : réalisation d'un projet qui nécessite la convergen ce de deux ou plusieurs gammes.
Gamme : chaque tache est représentée par sa gamme, c'est-à-dire par la description linéaire des opérations nécessaires à sa réalisation.
Moyen : il représente tout le système bien défini nécessaire à l'accomplissement d'uae tache. C1 est la machine qui per met la réalisation de la tâche. Il est bien entendu que le nombre de moyens identiques est l mité et pose des problèmes d'affectations simultanées à. différentes t- ches. l'établIssement des gammes est un ordonnancement conçu en supposant le nombre de moyens finis.
Objet; ensemble insécable qui est soumis à une gamme. S'il ntya qu'un objet par tâche, les termes objet et gamme sont équivalents.
Ordonnancement : catégorie de problèmes combinatoires où la solution se traduit par la déternination d'un ordre entre taches ou entre moyens permettant l'accomplissement de ces tâches.
Priorité : notion intervenant dans un problème d'ordonnancement pour indiquer aucun moyen est arbitrairement privilé- gié par rapport aux autres.
Stockage : durée, non prévue dans la gamme, pendant laquelle une tache devra attendre, sans nécessiter un moyen dispo nible.
Stratégie : art de combiner des moyens en vue de leur utilisa tion optimale.
On dissout, en agitant, 2,3 g de sodium dans 70 ml d'éthanol absolu. A la solution, qui s'est échauffée jusqu'à environ 40 C, on ajoute 17,6 g (0,11 mole) de malonate de diéthyle, on continue à agiter durant 30 minutes, puis on ajoute 27,9 g (0,1 mole) de 1-(4'-fluoro-4-biphénylyl)-1-bromoéthane en produit brut. on chauffe le mélange à reflux durant 1 heure, on le refroidit et on en élimine par essorage le chlorure de sodium formé. Le filtrat -contient le [1-(4'-fluoro-4-biphénylyl)-1-éthyl]- malonate de diéthyle qu'on isole, après évaporation du solvant, par distillation (P.E/0,1 mm: 1720C) avec un rendement de 22 g (61,5% de la théorie).P.F:, après recristallisation dans de l'éther de pétrole : 56-57 C.
On dissout ce diester dans 100 ml d'éthanol et on chauffe la solution avec 50 mi d'une solution aqueuse d'hydroxyde de potassium à 30% durant 15 minutes au bain-marie bouillants puis on ajoute 400 ml d'eau et on extrait la solution avec de l'éther.
Après élimination de la solution éthérée, on acidifie la solution aqueuse au moyen d'acide chlbrhydrique dilué et on extrait le précipité formé avec de l'acétate d'éthyle. On lave la solution à l'acétate d'éthyle avec de l'eau, on la sèche, on évapore le solvant et on recristallise le résidu dans un mélange cyclo hexane/acétate d 'éthyle.
On obtient 13 g (86% de la théorie) diacide E1-(41-fluro-4- biphénylyl)-1-éthyl]-malonique qui présente un point de décompose sition de 179-180 C.
On chauffe durant 10 minutes, dans un ballon au bain d'huile à la température de 1900C 10 g d-'acide [1-(4'-fluoro-4-biphény- lyl)-1-éthyl]-malonique. La masse fondue ainsi formée se solidifie lors du refroidissement ; on la recristallise dans de l'éthanol.
Rendement : 7 g (81,6% de la théorie) d'acide 3-(4'-fluoro-4- biphénylyl)-butyrique de P.F: 142-143 C.
a) Le 2-[1-(2'-fluoro-4-biphénylyl)-1-éthyl]-azéboacétate d t éthyle.
A une solution de 2,53 g de sodium dans 70 ml d'éthanol absolu, on ajoute, goutte à goutte et en agitant. 14,3 g (O,li mole) d'acétoacétate d'éthyle, on poursuit l'agitation durant encore 3Q minutes > puis on ajoute au mélange, goutte à goutte, 27,9 g (0,1 mole) de 1-(2'-fluoro-4-biphénylyl)-1-bromométhane (produit brut) et on le chauffe ensuite à reflux durant 30 minutes.
Après refroidissement, on élimine par essorage le bromure de sodium formé et on débarrasse le filtrat du solvant par distillation sous vide. On ajoute au résidu 2-50 ml d'eau, puis on le reprend dans de l'éther. On lave la solution éthérée avéc de l'eau, on la sèche, on évapore le solvant et l'on obtient un résidu liquide que l'on distille sous vide.
On obtient l'ester sus-indiqué sous la forme d'un liquide incolore de P.E/0,2 mm: 1650C avec un rendement de 24,5 g (75% de la théorie).
b) Le 3-(2'-fluoro-4-biphé-nylyl)-butyrate d' éthyle.
A une solution de 75 mg de sodium dans 4 g (0 > 088 mole) d'éthanol absolu, on ajoute 11,8 g (0,036 mole) de 2-[1-(2'- fluoro-4-biphénylyl)-1-éthyl]-acétoacétate d'éthyle et on chauffe le mélange de manière à faire passer goutte à goutte le mélange éthanol/acétate d'éthyle formé à travers une colonne de Vigreux de 10 cm. Après environ 2,5 heures, on ajoute à nouveau 4g d'éthanol absolu. La réaction est terminée au bout de 5 heures.
On élimine alors l'excès d'méthanol par distillation, on ajoute au résidu 150 mi d'acide chlorhydrique à 5% et on le reprend dans de éther. Après avoir lavé la solution éthérée avec- de l'eau, on l'évapore, on distille le résidu sous vide et on obtient 9 g (8Z; de la théorie) de 3-(2'-fluoro-4-biphénylyl)-buty rate d'éthyle de P.E/0,15 mm: 139-1400C et de P.F: 32-33 C.
c) L'acide 3-(2'-fluoro-4-biphénylyl)-butyriyue.
Cet angle est situé en re@ard de la tige de verrouillage 42. L'angle 43 donne - 1'articulation un certain jeu. Le fonctionnement est le même que @récéde@ment.
Suivant une caractéristique supplémentaire de l!invention, la pile comporte un vérin de maintien @ double effet 50. Ce vérin est solidaire de la semelle 1 par rapport à laquelle il est transversal. Il ait sur le cylindre du v in principal 5 par l'intermédiaire d'un collier 51. Ce vérin pe@@et d'éviter que la pile ne s'affaisse sur elle-même lorsqu'elle est dégagée des épontes.
Bi@n entendu, on @ourrait prévoir soit un vérin de maintien à simple effet de façon à ne retenir la pile que d'un côté, soit encore deux vérins à simple effet de façon à retenir la pile des deux côtés.
Les avan@a es de l'invention sont les suivants : - élimination des risques d'é@oulis riu fait que le chape t est réalisé d'une seule pièce , - possi@ilité de diformation des deux semelles l'une par rapport à l'autre, -possibilité d'adaptation de a flèche par rapport aux épontes
La présente invention, concernant des soupapes, est plus spécifiquement relative à des soupapes de retenue du type comprenant un corps creux profilé, pourvu d'embouts aux deux extrémités pour le raccorder aux conduits d'entrée et de sortie, un siège de soupape entourant une ouverture de communication entre les deux embouts et un obturateur oscillant en forme de disque qui coopère avec le siège de soupape susdit pour permettre le passage du fluide dans le sens prévu et pour l'arrêter dans le sens opposé.
Dans les soupapes connues du type susdit, ltobtu- rateur est constitué par un disque pourvu d'un appendice radial en forme de levier, adapté à permettre la suspension oscillante de l'obturateur sur un pivot transversal logé dans des sièges prévus dans le corps profilé. Ce pivot peut être inséré dans les sièges à travers une ouverture externe qui est ensuite fermée par un bouchon fileté.
Une telle disposition comporte évidemment une con- plexité de construction et de montage notable et exige une précision marquée, spécialement pour le positionnement des parties, pour assurer ltoscillation libre de l'obturateur et sa parfaite jonction avec le siège de soupape pour réaliser l'étanchéité.
En outre l'application externe du pivot et du bouchon qui en ferme le siège peut donner lieu à des pertes de fluide.
La présente invention a pour but d'obvier aux inconvénients ci-dessus indiqués, en réalisant une soupape de retenue du type susdit, de réalisation très simple et de montage facile, qui comprend un nombre réduit de parties et qui est exempte de toute possibilité de pertes afférentes à l'articulation de l'obturateur oscillant.
Un autre objet de l'invention consiste à réaliser une soupape du type susdit, dans lequel l'obturateur est articulé sur le corps de la soupape avec un certain degré de liberté, de manière à permettre qu'il se place automatiquement dans la meilleure position possible pour réaliser la fermeture parfaite sur le siège de la soupape.
La soupape de retenue selon la présente invention se aistingue notamment par le fait que le corps creux profilé de la soupape présente, en un emplacement surmontant le siège de la soupape, deux saillies parallèles en forme de crochet dans lesquelles s'engage avec jeu l'extrémité profilée en T d'un appendice solidaire du disque de l'obturateur, ce qui fait que l'obturateur est suspendu aux susdits appendices à crochet, de fanon à pouvoir osciller en face Gu siège de la soupape.
D'autres caractéristiques et avantages de l'invention ressortiront de la description détaillée qui s'ensuit, avec référence au dessin annexé, ie tout fourni à titre d'exemple non limitatif, dessin sur lequel la figure 1 est la section axiale d'une soupape de retenue avec obturateur oscillent selon l'invention, qui est monté en place et fermé la figure 2 est gle section transversale de la mEme soupape, exécutée suivant la ligne II-TI de la figure 1 ; et la figure 3 est une vue en perspective éclatée d'une partie de la soupape.
La soupape de retenue selon l'invention comprend un corps creux 1, fait généralement en métal coulé et présentant une partie centrale 2 profilée, pourvue à ses extrémités opposées de deux embouts 3, 4 qui, dans l'exemple illustré, sont filetés intérieurement et sont délimités extérieurement par des surfaces planes, des corps prismatiques, de préférence hexagonaux. les deux susdits embouts se trouvent alignés suivant un axe longitudinal tunique et constituent respectivenent le raccord d'entrée 4 et celui de sortie 3.
Au voisinage du raccord d'entrée 4, un conduit 5 est disposé, dirigé vers le manchon opposé et délimité inté mieurement par un siège de soupape annulaire o. Dans la partie supérieure centrale du corps profilé 2 se trouve un autre raccora tubulaire 7 dirigé vers le haut et fileté inté rieurenent, dans lequel se visse un bouchon de fermeture 8 nuni d'unie garniture atétanchéité 9. A travers l'ouverture qui sera ensuite fermée par le bouchon 8, il est possible d'insé er dans le corps 1 un obturateur 11 adapté à coopérer avec le siège de soupape O du conduit 5.
L'obturateur 11 est constitué par une pièce plate unique, de préférence métallique, qui comprend une partie disque lt,~constituant l'obturateur proprement dit et un ap pendice radial 13 en forme de levier qui se termine par une tête transversale 14 faisant saillie symétriquement des deux cotés à l'extrémité du levier, avec une disposition en T.
Âu-dessus du conduit 5, pour porter l'obturateur, on a disposé deux saillies parallèles 10, solidaires du corps profilé 2 et ayant une forme de crochet. Dans la cavité supérieure de ces saillies, fourchue, s'engage la t8te transversale supérieure 14 de l'appendice 13 de l'obturateur, qui, de ce fait, est suspendu au-dessus du siège de la soupape avec possibilité d'oscillation.
C IF THF PIECE IS A CYLINDER WHICH USES PIECE C ROTATION IN PLACE CF THE NORMAL X C CONVFRT TO MACHINE AXFS C GIVEN Y3 = DISTANCE ALONG PATTERN C X3 = DISTANCE AWAY FPCM CENTER LINE CF PATTERN C CALCULATE NFCFSSARV PIFCE ROTATION C TO REAC@ X3 C C NOTE. FOR X = +1.0 C AND R = 1.0 C TH = +180./PI DEGREES C IF SIGN nF TH AGREES WITH SIGN OF X C IF (POSIT.FO. 0.0) PCSIT = 1.0 C IF POSIT IS CLOCKWISE . POSIT IS -1.0(ELSE + 1.0) SAW= SA * AIND C CONVERT TO DIMENSICNS ALONG ROLL E ARCUNO ROLL X3 = X2*CA-Y2*SAW Y3 = Y2*CA+X2*SAW IE (F6 .GL. 1.5) GO TO 1999 C THE FOLLOWING PERTAINS TO A RIGHT CIRCULA@ CYLINDER C OF DIAMETER @2 WHOSE AXIS IS PARALLEL TO THE AXIS OF C ROTATION BUT BELOW IT BY THE DISTANCF CZ CZ = 0.
IABS(SAVE(2)-ENDPT(2)).GT. 0.0005 .OR.
3ABS(SAVE(5)-ENDPT(5)) .GT. 0.04 ) KUPDA = 1 NU = e DO 10 I= 1,5 C3(I) = 0 C4(1) = O 100 C2l) = O C SET FOR SIMPLIFIEO OUTPUT1 NnlC = 1 C2(3) = -.016 IF (F6 .LT. 0.5) C2(3) = -C.'04 C SET FOR TOOL UP ISAV=ICUT ICUT=-2 NU = 8 IF(KUPON.EQ. 1) CALL PC ISACV=ISAV+1 IF(ISAV .GT. 65) ISAV = 1 C SFT FOR MOVE TO BBEGINNING OF THE NEW CUT ICUT=-1 DO 101 I=1.5 ENDPT(I) = CI(I) 101 C2(I) = (SAVE(I) - ENDPT(I))/8.0 705 CONTINUF IF(KFY4 .EQ. 1) GC TO 753 WRITE (6,907)(ENDPT(I),I=1.51 WRITE(6,908)(SAVVE(I),I=1.51 907 FORMAT (' FROM '5F10.5) 908 FORMAT (' TO '5F10.5) 753 CONTINUE NU = R CALL PC C BACK CALCULATION DO 712 I= 1.5 WSNU = NU WS = 8. * C2(I) * WSNU 712 SAVE(I) = CI(I) + WS WRITE(6.908) (SAVE(I).I=1,5) DO 102 I = 1.5 102 C2(I) = O C CUT NO 900 SIGNIFIFS THE NEC OF ALL DATA IF(NCUT .NE. 900) GO TO 758 C IF CUT NO = 900, CUTPUT A DCMMMY BLOCK AND C WIND UP THE RUN.
C NOTF THAT THE MOVE TO THE FIRST RCIAT C OF CUT NO 900 HAS JUST BEEN GENERATED.
NU = 8 ICUT = -1 C WRITE A CUMMY BLOCK CALL PC DO 714 l = 1.5 714 CI(I) = SAVE(I) GO TO 16 758 CONTINUE C SET FOR TOOL DOWN C THIS IS A DUMMY DIMENSION C2(3) = 0.006 ICUT = -3 NU = 8 IF(KUPflN.FO. II CALL PC ICUT=ISAV 105 CONTINUF C COULD DO THIS EVERY TIMF IF (ICRT .NE. 0) GO TO 108 DO 107 1 = 1.5 107 ENDPT(I) = VEND(I) 910 FORMAT (' NEXT '5F10.5) 108 CONTINUE C C INITIALIZE ABSOLUTE POSITIONS C DO 10 I = 1,5 10 C1(I)=SAVE(I) GO TO 756 16 CONTINUE IFND = 1 nn 757 I = 1.5 757 FNDPT(I) = XZFRO(I) 914 FORMAT(' TOTAL CUT LFNGTH IS 'FIO.3) WRITF(6,914)SUMLGT ICRT = 0 RETURN 756 CONTINtiF C C COMPUTE COONS CUBIC COEFFICIFNTS C 912 FORMAT(7H SLOPE 5E12.4) 911 FORMAT(7H ORIC 5F12.4) IF(NOP .NF. 2 .OR.STRGL(2) .LT. 0.2) GO TO 1701 DO 1700 1 = 1.5 C(I) = 0.
D(I) = 0.
B(I) = HVAI (I)/100.
SLOPE(L.I) = B(I) SLOPE(2.I) = B(I) 1700 CONTINUE 1701 CONTINUF NU = 100 Dri li 1 = 1.5 BZ(I) = B(I) C2(I)=B(I)-C(I)+D(I) C3(I)=2.*C(I)-6.*D(I) 11 C4(I)=6.*D(I) C C B(I). C(I) AND C(I) ARE THE NORMAL CUBIC COFFEIOIENIS C 1 FOR C 1 X C 2 Y C 3 DEPTH C 4 TILT C 5 PIECE ROTATION ANGLE C IF(KEY4 .EO. 1) GO TO 754 WRITE(6.901) C2 901 FORMAT (10H COONS CO ,5E16.8) WRITE(6,900)NU.C3 WRITE(6,900)NU.C4 900 FORMAT(3H NU,17,5E16.8) 754 CONTINUF C MOVE PLOT PEN TO FIRST POINT OF NEW CUT IF (IO .NF. O) GO ro 60 IZ = 0 CALL VECT(SAVE(I).SAVE(2).SAVE(5).SAVE(3),SAVE(4),KSW, C 1 (Z) IZ = 1 60 CONTINUF C SET FOR STANDARD CUTPUT NflIC ? NU = 100 C EXAMINF MAX SLOPE*FACTOR AND ACJUST NUMBFR OF STEPS C IF NFCESSARY CMAX = 0.0 on 20 1 = DO 19 J = 1.2 WS=ABS(SLOPE(J.I)*SCALF(I)) IF(WS .GT.CMAX)CMAX =WS 19 CONTINUE 20 CONTINUE IF(KEY4.FO.2)WRITE(6,903)CMAX 903 FORMAT(' IN COONS CMAX= '.F15.2) IF(ABSIC2(5))*SCALF(5) .LT. 1.0) GO TO 800 NU = ABS(100.0 * C2(5) * SCALE(5) ) 800 AU = NU/8 NU = AU*8 NU = MIN(NU.255*8) CMAXRV = CMAX*100./FLOAT(NU) 9093 FORMAT (14H SL.NU.CMAXRV ,F10.515,3F10.5,I5,3F10.5) CMAX = CMAXRV IFINU.GT. 127*8) GO TO 23 27 WS=NU WUI=100.0/WS AU = NU on 22 I = 1.5 R(I) = RZ(I)*WUI IF(ABS(SLOPE(1,I)).LT.0.0000000001 .AND.
1 ABS(SLOPE(2,I)).LT.0.0000000001) GO TO 21 IF(ABS((SLOPE(1,I)-SLOPE(2,I))/AMAX1(ABS(SLOPE(1,I)), IABS(SLOPE(2.I)))) .LT. 0.1)GO TO 21 D(I) = (AU*WUI*(SLOPE(1.I)+SLOPE(2.I))-2.*HVAL(I))/ 1 AU**3 C(I)=(HVAL(I)-AU*WUI*SLOPE(1.I)-AU**3*C(1))/AU**2 GO TO 22 21 B(I)HVAL(I)/AU C(I) = 0.
C(I) = 0.0 22 CONTINllE C @ECOMPUTE COONS CCEF DO 26 I=1.5 C2(I)=B(I)-C(I)+D(I) C3(I)=2.*C(I)-6.*D(I) 26C4(I)6.*C(I) 28 DO 29 I = 1.5 IF (ABS(C4(I))*SCALE(I).GT. 0.49998) GO TO 30 IF (ABS(C3(I))*SCALE(I).GT. 7.99985) GO TO 30 IF (ABS(C2(I))*SCALE(I) .GT. 7.99985) GO TO 30 AN = NU IF (ABS(SCALE(I)*(C3(I)+AN*C4(I))) .GT. 100.0) GO TO 30 ANM = 1.
IF (ABS(C4(I)) .LT. 10.**-8) GO TO 129 IF (2 .EO. 3) C4(I) = 5.0 ANM = - C3*I)/C4(I) - 0.5 IF (ANM .GT. AN) ANM = AN IF (ANM .LT. 0.0) ANM = 0.
970 FORMAT(215,F5,3,5F5,2,F8,5) STRLGT = STRLGT/RHXSCL WRITF(6.970)NOUT,NTYPE 1GT 14 I = I + 1 70 READ (5,900)X(I),Y(I),DTH(I),TLT(I),A(I),A(I),ITO C COMPUTE STRING LENGTH FOR THE POINT IF I ITO .FO. IUP ) GO TO 90 IF (I .GT. 1) GO TO 30 STRGL(I) = 0.0 GO TO 31 30 DLS = SOTR (((X(I)-XLC)/RWXSCL)**2+((Y(I)-YLD)/RWYSCL)* 1 **2 STRGL(I) = STRGL(I-I) + DLS 31 CONTINUF XLD = X(I) YLD = Y(I) CALL CONV (X(I).Y(I),DTH(I),A(I)) 900 FORMAT (2F10.0,3F10,C,20X,A6) 901 FORMAT (5X.15,6E14,6) IF (ITO .EO. IUP) GO TO 90 IF (ITO .NE. ISTOP) GO TO 71 700 CONTINUF WRITE(6,915) 915 FORMAT (' PATTERN DOES NOT RETURN TO ROIGIN ') WRITF(6.914)SUMLGT 914 FORMAT (' TOTAL CUT LENGTH IS 'F10.3) IFNn t 1 RETURN 71 CONTINUE c 32 CONTINUE WRITE(6.910) I,X(I),Y(I),DTH(I),TLT(I),A(I),STRGL(T) 910 FORMAT(I3.8F10.5) IF (IQ .NF. 0 .OR.I .NE. 1) GO TO 72 C IQ = 0 DEFINES INITIAL SEGAMENT OR ONLY SFGMENT SAVE(1)=X(1) SAVE(2)=Y(1) SAVE(3)=DTH(1) SAVE(4)=TLT(1) SAVE(5) = A(1) 72 CONTINUE C F6 .GT. 0.5 DESIGNATES CYLINORICAL CASE IF( F6 CT. 0.5 ) GO Ta 14 IF (I .NE. 1) GO TO 60 XCRIT = X(I) YCRIT = Y(I) DCRIT = DTH(I) TCRIT = TLT(I) ACRIT = A(I) GO TO 14 C IX,IY = 1 SEARCHING FOR--- C 2 MAXIMUM FOUND C 3 MINIMUM FOUND 60 GO TO (1,2,3), IX 1 IF (X(I)-XCRIT) 4,5,6 4 IX = 3 GO TO 5 6 IX = 2 5 XCRIT = X(I) 17 GO TO (7,8,9), IY 7 IF (Y(I)-YCRIT) 10,11,12 10 IY = 3 GO TO 11 12 IY = 2 11 YCRIT = Y(I) GO TO 80 2 IF (X(I)-XCRIT) 50.15.15 15 XCRIT = X(I) GO TO 17 3 IF (XCRIT-X(I)) 50.15.15 8 IF (Y(I)-YCRIT) 51,16,16 16 YCRIT = Y(I) GO TO 80 9 IF (YCRIT-Y(I)) 51.16.16 80 IF(ABS(Y(I)-Y(I-1)) .LT. 0.2) GO TO 75 IFII LE. 2) GO TC 14 GO TO 151 75 IF (I .NE. 3) GO TO 14 IF (ABS(Y(I-1) - Y(I-2)) .LT. 0.2) GO TO 14 151 ICRT = 12 GO Te 52 C ICPT = O L4ST SEG., NO CRITICAL POINT C = 1 CRITICAL PT REACHFO IN X C = 2 CRITICAt PT REACHFC IN Y 90 ICRT = O GO TO 52 50 ICRT = 1 GO TO 52 51 ICRT = 2 52 NOP = I-1 XCRIT = X(NOP) YCRIT = Y(NOP) DCRIT = DTH(NOP) TCRIT = TLT(NOP) XX=X(NOP) ACRIT = A(NOP) AA = A(NOP) YY=Y(NOP) DD=DTH(NOP) TT=TLT(NOP SS=STRGL(NOP) SUMLGT = SUMLGT+SS IF(ICRT .NF.0)RETURN VEND(I) = X(NOP) VEND(2) = Y(NOP) VEND(3) = DTH(NOP) VEND(4) = TLT(NOP) VEND(5) = A(NOP) RFTURN FND C SUBROUTINE CUBF(IO,V,SI,S2) DIMENSION V(1000) C NOTF SPECIAL MAIN COMMON/MAIN/X(1000), Y(1000), STRGL(10000), ICRT, NOP, 1 DTH(1000),TLT(1000),AA(1000) DATA KOUNT/O/ DIMENSION XYC(4),A(4,4),WX(4) F= 100./STRGL(NOP) DO 4 I = 1.4 WX(I) = 0.
DO 4 K = 1.4 4 A(I.K) = 0.0 DO 10 I = I,NOP W = STRGL(I)*F W2 = W*W W3 = W2*W Q=V(I) W4 = W3*W W5 = W4*W W6 = W5*W 02 = W*0 03 = W2*0 04 = W3*0 A(1,2) = A(1,2)+W A(1,3) = A(1,3)+W2 A(1,4) = A(1,4)+W3 WX(1) = WX(1)+C A(2,4) = A(2,4)+W4 A(3,4) = A(3,4)+W5 A(4,4) = A(4,4)+W6 WX(2) = WX(2)+02 WX(3) = WX(3)+03 WX(4) = WX(4)+04 10 CONTINUE A(1,1) = NOP A(2,1)=A(1,2) A(3,1)=A(1,3) A(4,1)=A(1,4) A(2,2)=A(1,3) A(2,3)=A(1,4) A(3,2)=A(1,4) A(3,3)=A(2,4) A(4,2)=A(2,4) A(4,3)=A(3,4) IFIKOUNT .GT. 101 GO TO 30 WRITE(6,900) ((A(I,JI,J=1,4),WX(I),I=1,4) 30 CONTINUF nn 20 K=2,4 flO 20 1=K,4 F=A(I,K-1)/A(K-1,K-1) DO 19 J=k.4 19 A(I,J)=A(I,J)-F*A(K-I,J) 20 WX(I)=WX(I)-F*WX(K-1) A(2,1)=0.
A(3,1)=0.
Le signal de sortie du registre C est transmis à l'entrée d'une unité 82 de progression-régression analogue à l'unité 50 de l'appareil de la figure 10. L'unité 82 a une entrée de commande FUN destinée à recevoir l'un de quatre de signaux de commande de manière que l'unité crée un signal F de sortie qui dépend du signal C d'entrée comme indiqué par le tableau Il.
Le registre D contient une partie des données qui doivent être écrites dans la mémoire 36, les autres parties des données se trouvant dans les registres A et K.
Les signaux de sortie des registres C et D sont transmis de plus à une unité 84 d'égalité qui transmet un signal Z de sortie lorsque les valeurs des deux registres C et D sont égales.
En plus du registre R, le circuit d'interface avec l'unité 70 comprend deux trajets P et Q de données. Le trajet P transmet l'adresse dans la mémoire principale que veut atteindre l'unité centrale de traitement, et le trajet Q transmet les données que l'unité 70 veut conserver ou qui doivent être introduites dans les registres du dispositif.
Un trajet R de données formé à la sortie du registre R, transmet les données destinées à l'unité centrale 70.