INPI-France/Brevets-Francais-2024-Chunked huggingface dataset:
I1 est également préférable que la paroi arrière 60a de l'ensemble de Parois 60 soit inclinée vers la grille 50. Dans les conditions appropriées, comme par exemple lorsque les barres de la grille sont peu espacées et que l'on désire réduire au maximum les dimensions des matériaux recirculés avant qu'ils n'atteignent la grille, la paroi 60a peut être inclinée de façon à diriger depuis le rotor la majorité des matériaux percutés en ligne plus ou moins droite vers le toit 27 de la chambre 25. En conséquence, une certaine quantité de matériaux rebondira du toit vers le rotor pour recevoir un impact supplémentaire et se briser davantage avant de se diriger vers la grille.En inclinant la paroi 60a afin de diriger directement vers la grille, depuis le rotor, la majorité des matériaux percutés, on diminue le nombre de ces rebondissements et des chocs supplémentaires. Ainsi on peut controler la quantité de 'fines' produite à partir de maté rivaux tendres.
L'appareil comprend aussi une surface absorbante d'énerie 6, pour recevoIr les matériaux projetés par le rotor 5là travers la grille 50. Cette surface absorbante d'énergie est disposée 3 l'intérieur du conduIt ou fait partie de ce conduit 24 qui se prolonge en aval de la grille, par exemple du coté opposé au rotor. Ce dispositif d'absorption d'énergie est de préférence disposé de façon à ce que sa surface soit visible lorsqu' on le regarde de la partie supérieure du rotor à travers la grille, L'orifice d'évacuation 122 comporte une sortie 44 od point d'évacuation de l'appareil au-dessus du fond 5 du cercle des marteaux.Comme indiqué précédemment, cette évacuation peut alImenter directement un convoyeur 40, un crible ou tout autre appareil A cause de l'emplacement de ce polnt d'évacuation rendu possible ,r^ace à plusieurs des dispositions relatives des organes mentionnés plus haut, les uns par rapport aux autres, il est possible par exemple de-placer l'appareil au mur d'une carrière de façon appropriée sans armature élévatrice. D'autre part, l'approvisionnement direct par exemple d'un convoyeur est possible sans qu'il soit nécessaire d'installer le convoyeur dans une fosse. I1 est facile de montrer les avantages dont bénéficient ainsi les ouvriers de la carrière.
Ceci est du à la retombée du relais 85 provoquée par l'ouverture du contact 97a, le contact 77c étant ouvert depuis l'enclenchement de la marche lente.
La retombée du relais 85 a pour effet de relâcher le relais 82 de tampon pour inversion marche, par l'ouverture de 85a, ce oni entraîne la retombée du relais 84 de cycle calage zéro curseur par l'ouverture de 82a.
La retombée du relais 84 a pour effet de mettre sous tension le relais 78 du cycle tarage- qui s'actionne
##84d#96b (maintenu fermé pendant le temps de décharge du condensateur 103) b relais 78 O Le relais 78 s'auto-alimente alors par son contact 78h et par 82c.
L'actionnement du relais 78 a pour effet de redéclencher le cycle comme pour la pesée, mals cette fois ctest le montre poids 51 (fig. 1) qui rétablit 11 équilibre.
Bye relais 72 de départ du cycle de pesée s'actionne par le circuit suivant
##96a (encore au travail)#78f# relais 72## Pour ne pas parcourir de nouveau les mêmes fonctions que pour la pesée, il suffit d'examiner le rôle des contacts du relais 78 à savoir : 78a, 78b, 78c, 78d, 78e, 78g, 78i, 78j.
Le- contact 78a ferme le circuit du relais de fi@ de course 57 et ouvre celui du relais de fin de course 41.
Le contact 78d ferme le circuit du relais de fin de course 56 et ouvre celui du relais de fin ce course 42.
Les contacts 78o et 78c commutent le moteur 4Q du dispositif de remise à zéro et ouvrent le circuit du moteur 17 qui n'est plus sous tension.
Le contact 78e ouvre un circuit normalement fermé par le contact 89a, ce qui risquerait d'influencer le relais 85 au moment de l'arrêt du contrepoids 51.
Le contact 78g ouvre le circuit du relais 84. Ce relais a déjà rempli sa fonction pendant le positionnement à zéro du curseur 3.
Le contact 78i ouvre le circuit du repris 90 de maintien de l'électro-aimant du disque, ceci a pour but de ne pas mettre sous tension l'électro-aimant 27 qui serait provoquée par le contact 90a et de ne pas déclencher la prise en mémoire du résultat.
Le constat 78 ouvre le circuit du relais 88 correspondant au doute par défaut et qui provoquait le centrage de l'échelon à lire sous la ligne de contact des balais 28. Le cycle de la remise à zéro se termine sans déclencher la prise en mémoire, le relais 90 du maintien de l'électro-aimant 27 du disque 26 ne s'étant pas actionné.
Il y a lieu maintenant de redéclencher une pesée pour contrôler si l'instrument donne bien la valeur zéro en l'absence de charge sur le crochet 16. Le zéro de l'appareil etant alors déterminé avec précision, qui est de l'ordre de + 1/50 000 de la pesée maximum du mesureur, une pesée peut commencer en appuyant sur le bouton 71 comme vu précédemment.
L'invention m'est pas limitée aux exemples de réalisation représentés et décrits en détail, car diverses modifications peuvent y être apportées sans sortir de son cadre.
CH2OH 1.- II\1 HO L 2 dans l-N-CH2X-genta I I micine A NH2 2 et Y' est
CH2NH2 )M Q dans l-N-CHiX-,ntibio tique 66-40B PYH2 Les 1-N-CH X -mutamicines de cette invention 2 comprennent les 1-N-CH2-X-4-aminoglycosyl-6- garosaminyl-1,3-diamino-cyclitols répondant à la formule suivante V
dans laquelle X est comme défini ci-dessus, et dans la 1-N-CH2X-mutamicine 1, V2 et W5 sont l'hydrogène et W2 et V5 sont hydroxy, dans la l-N-CH2X-mutamicine 2, W2, V2, W5 et V5 sont l'hydrogène dans la l-N-CH2X-mutamicine 4, W2 et W5 sont l'hydrogène et V2 et V5 sont hydroxy; dans la 1-N-CH2X-mutamicine 5, W2, V2 et W5 sont lehydrogène, et V5 est amino ; et dans la 1-N-CH -mutamicine 6, W2, V2 et V5 sont l'hydrogène et W5 est hydroxy.
Dans les formules structurelles présentement données, les substituants non décrits aux extrémités des liaisons sont des atomes d'hydrogène.
l'invention vise également les sels d'addition d'acide pharmaceutiquement acceptables des 1-N-CH2X-4,6-di-(aminoglycosyl)-l,3-diaminocyclitols tels que définis par les formules I, II, III IV et V, lesquels sels sont obtenus selon des processus connus Comme par exemple en neutralisant la base libre avec l'acide approprié habituellement jusqu'à un pH d'environ 5. Les acides convenables dans ce but sont des acides tels que l'acide chlorhydrique, sulfurique, phosphorique, nitrique, broinhydrique, acétique, propionique, maléique, ascorbique, citrique ou analogue.Si l'on considère les propriétés physiques des sels d'addition d'acide des 1-N-CH2X-4,6-di-(ainoglycosyl)-1,3-diaminocyclitols selon l'invention, ils se présentent sous la forme de produits solides blancs qui sont solubles dans l'eau et insolubles dans la plupart des solvants organiques polaires et non polaires, peu solubles dans la plupart des solvants polaires et insolubles dans les solvants organiques non polaires.
Les 1-N-CH2X-4,6-di-(aminoglycosyl)-1,3-diaminocyclitols de cette invention, tels que définis par les formules I, II, III, IV et V ainsi que leurs sels d'addition d'acide pharmaceutiquement acceptables et non toxiques, présentent en général une activité antibactérienne à large spectre. Plus particulièrement, les dérivés l-N-alcoyle inférieur possèdent des activités antibactériennes améliorées comparativement aux antibiotiques apparentés,cequi est particulièrement manifeste dans l'activité renforcée des composés contre les organismes résistants aux composés apparentés. Ainsi, par exemple, les composés sont plus actifs contre les organismes qui rendent inactifs les antibiotiques apparentés par acétylation du groupe 3-amino et/ou par adénylylation du groupe 2"-hydroxyle.Parmi ceux-ci, certains également présentent des propriétés anti-protozoaires, anti-amibiques et anti-helminthiques.
Un groupe préféré des composés suivant l'invention est formé par les dérivés 1-N-substitués des 4-aminoglycosyl-6-garosaminyl-2-déoxystreptamines constitués par la gentamicine B, la gentamicine B1, la gentamicine C1, la gentamicine Cita, la gentamicine C2, la gentamicine X2, la sisomicine, la verdamicine, l'antibiotique JI-20A, l'antibiotique JI-20B, l'antibiotique G-52, et l'antibiotique G-418 ;'les dérivés de gentamicine C1, gentamicine CIa' sisomicine, verdamicine et d'antibiotique G-52 sont les plus préférés. D'autres composés particulièrement utiles sont les dérivés l-N-substitués de l'antibiotique 66-40D.
Dans le l-N-substituant, X est de préférence choisi parmi l'hydrogène, un groupe alcoyle, hydroxyalcoyle, aminoalcoyle, aminohydroxyalcoyle, phényle ou benzyle, lesdits radicaux aliphatiques ayant jusqu'à 7 atomes de carbone et, s'ils sont substitués par amino et hydroxy, portant les substituants sur différents atomes de carbone. Parmi ces radicaux, ceux que l'on préfère sont l'hydrogène, un groupe alcoyle, amino-alcoyle et hydroxyalcoyle avec jusqu'à 7 atomes de carbone et aminohydroxyalcoyle avec jusqu'à 3 atomes de carbone et portant les substituants sur différents atomes de carbone.
Des composés particulièrement utiles de l'invention sont ceux dans lesquels X est hydrogène, méthyle, éthyle et propyle et de préférence méthyle et éthyle. Un groupe particulièrement valable est constitué par les 1-N-CH2X-4- aminoglycosyl-6-garosaminyl-2-déoxystreptamines de formule I dans lesquelles X est un alcoyle inférieur ayant de 1 à 3 atomes de carbone, particulièrement les dérivés l-N-alcoyle inférieur de la gentamicine C1, de la gentamicine C la' de la gentamicine C2, de la gentamicine C251 de la gentamicine C2b, de la sisomicine, de la verdamicine, de l'antibiotique G-52 aussi bien que l'antibiotique l-N-alcoyle inférieur 66-40D de formule III, lesquels dérivés sont des agents antibactériens à large spectre, sont actifs contre les bactéries gram-positives (par exemple Staphylococcus aureus) et les bactéries gram-négatives (par exemple Fscherichia coli et Pseudomonas aeruginosa) comme déterminé par des essais de dilution standard, y compris les bactéries résistantes aux précurseurs l-N-non substitués. Sont particulièrement utiles, la l-N-éthylverdamicine, et les l-N-alcoyle inférieursisomicines, par exemple la l-N-méthylsisomicine, la l-N-(n-propyl)-sisomicine, la l-N-(n-butyl)-sisomicine et, de préférence, la l-N-éthylsisomicine qui présente une activité contre les organismes gram-négatifs qui sont résistants à leurs précurseurs l-N-non substitués.D'autres composés particulièrement utiles sont la l-N-éthylgentamicine Cula, la l-N-éthylgentamicine C1, le l-N-éthylantihiotique G-52, la l-N-(n-propyl)-verdamicine, la l-N-(:raminobutyl)-sisomicine, la l-N-méthylverdamicine, la l-N-(n-butyl)verdamicine, la l-N-(S-2-hydroxy-4-aminobutyl)-gentamicine C1, la 1-N (S-2-hydroxy-4-aminobutyl)-sisomicine et la l-N-(S-2-hydroxy- 4-aminobutyl)-verdamicine.
La plupart des antibiotiques sus-mentionnés l-N-non substitués de 4,6-di-(aminoglycosyl)-1,3-diaminocyclitol à partir desquels les dérivés l-N-substitués de l'invention peuvent être obtenus, sont connus. Pour les gentamicines, le composé de départ présentement appelé gentamicine X2 est également connu dans la technique sous le nom de gentamicine X. Le composé de départ présentement appelé gentamicine C2a est isolé et caractérisé comme établi présentement dans un paragraphe ultérieur ayant pour titre Préparation 1.
le composé de départ appelé présentement gentamicine c2b est isolé et caractérisé comme établi plus loin dans le paragraphe intitulé Préparation 2, et il a la formule structurelle représentée présentement ; on l'appelle quelquefois dans l'art antérieur gentamicine C25.
L'isolement, les propriétés et la configuration en plan de la gentamicine C2 sont décrits dans le brevet américain nO 3 651 042.
les antibiotiques 66-40B et 66-40D, leurs préparation, la façon de les isoler et leurs propriétés ainsi que leurs configurations sont décrits dans le brevet belge n 811 370. Les antibiotiques sont produits en meme temps que la sisomicine, le produit principal de fermentation de Microlonospora inyoensis (décrit dans le brevet britannique n 1 274 518) et peuvent autre séparés du milieu de fermentation en appliquant des techniques spéciales de séparation par chromatographie.
les mutamicines 1, 2, 4, 5 et 6 dont la configuration est donnée ci-dessus, peuvent être préparées en cultivant une souche mutante de Micromonospora inyoensis présentement appelée souche Micromonospora inyoensis 1550F-lG dans un milieu nutritif aqueux. Cette souche mutante est incapable de produire un antibiotique lorsqu'on la cultive dans des conditions aérobies en submersion dans un milieu nutritif aqueux d'où le bloc de 1,3-diaminocyclitol permettant l'édification est absent. Cependant, quand on est certain que de tels composés sont ajoutés au milieu de fermentation, les mutamicines sont produites. lorsque la 2-déoxystreptamine est ajoutée à la fermentation, l'antibiotique connu de sisomicine est produit.
les 1,3-diaminocyclitols requis qui doivent être présents pendant la fermentation afin d'obtenir les mutamicines sont les suivants : - streptamine pour la mutamicine 1 - 2,5-didéoxystreptamine pour la mutamicine 2 - 2-épistreptamine pour la mutamicine 4 - 2, 5-didéoxy-5-aminostreptamine pour la-mutamizimo - 5-épi-2-déoxystreptamine pour la mutamicine 6.
La streptamine est un composé connu ; la 2,5-didéoxystreptamine peut être préparée selon le processus donné dans le paragraphe intitulé Préparation 6 en substituant l'hydrazine à la monométhylhydrazine. La 2-épistreptamine peut être préparée par la méthode décrite par Tetsue Suami et autres dans le t'Journal of Organic Chemistry"33, n07, 2831-2834 (1968). La 2,5-didéoxy-5-aminostreptamine peut être préparée par 1) clivage d'un dérivé N,N-diacylé de 2-déoxystreptamine avec du periodate, 2) traitement du aldéhyde ainsi obtenu avec du nitrométhane dans des conditions alcalines ce qui effectue la fermeture du cycle et l'insertion d'un groupe nitro en position 5, 3) réduction du groupe nitro en un groupe amino suivie par hydrolyse des fonctions N,N-diacylées pour obtenir l'amine libre.
A(3,2)=0.
A(4.1)=0.
A(4,2)=0.
A(4,3)=0.
IF(KOUNT .GT. 10) GO TO 31 WRITE(6,900) ((A(I,J),J=1,4), WX(I),I=1,4) 31 CONTINUE 900 FORMAT (5E12.4) DO 40 J=4, I,-1 XYC(J)=WX(J)/A(J.J) IF(J .EO. I) GO TC 42 J2 = J-1 DO 38 K=1,J2 38 WX(K)=WX(K)-A(K,J)*XYC(J) 40 CONTINUE 42 CONTINUE IF(KOUNT .GT. 10) GO TO 32 KOUNT = KOUNT + 1 WRITE(6,900)(XYC(J),J=1,4) 32 CONTINUF C ADJUST TO PASS THRU END POINTS XYC(2)=XYC(2)+(V(NOP)-V(1))/100.-XYC(2) I 100.*XYC(4)) S2 = XYC(2)+200.*XYC(3)+30000.*XYC(4) IF(IO .EO. 0) S1 = XYC(2) C IF(IC .EO. 1) S1 = OLD S2 (SFE) PANDSI) 912 FORMAT ('CURF',6F10.5) WRITE(6,912)(XYC(J),J=1,4),S1,S2 RFTURN FNn C SUBROUTINF ERRCHK COMMON/ADJSTR/RWXMID,RWYMIO,RWXSCL,RWYSCL,R2 COMMON/CTM/ SAVE(5),B(5),C(5),D(5),STO COMMON/MAIN/X(1000), Y(1000), STRGL(1000), ICRT, NOP, 1 DTH(1000),TLT(1000),A(1000) COMMON/O@N/SLOPE(2,5),FVAL(5),HVAL(5),SLP(5),SL DATA TOLB/0.0025/ TOLF = TOL@ IF(ABS(SLOPE(1,1)).GT.0.0001.AND.ABS(SLOPE(2,1))) .GT.
1 0.0001) GO TO 20 IF(ABS(SLOPE)1,2)).GT.0.0001.AND.ABS(SLCPE(2,2)).GT.
1 0.00011 GO TO 20 1 20 TOLF = TOLB/2.
20 CONTINUE IF (ICDPT .EO. 6) ICRT = -1 C C ERMAX = 0.0 DO 10 I=1.NOP U = STRGL(I)/STRGL(NOP) * 100.
PX = B(1)*U + C(1)*U**2 + D(1)*U**3 + X(1) PY = B(2)*U + C(2)*U**2 + D(2)*U**3 + Y(1) ERX = ABS(X(I)-PX) IF (R2 .GT. 0.0) ERX = EPX*3,1415926*R2/180.
ERY = ABS(Y(I)-PY) ER = SORT(ERX**2 + ERY**2) IF (ER .LE. ERMAX) GO TO 10 ISAVF = I FRMAX = ER 10 CONTINUF C IF IERMAX .LE. TOLF GO TO 50 ICRT a 6 NOP = ISAVE WRITE(6,900) NOP.ERMAX 900 FORMAT(1X,27HSUBSEGMENT PROPCSED, NOP = ,13/1X,8HERMAX 1 = ,E12,6) WRITE(6,601)(X(I),6(I),B(I),C(I),D(I),I=1,2) 601 FORMAT(' X Y B C C ',2512,4) 50 CONTINUF RFTURN END C SUBROUTINE PANOSI)(10) DIMENSICN SLOP2(5) C THIS SUBROUTINE CCMPUTGES THE INITIAL ANC FINAL POINTS C 1 AND SLOPFS COMMON/DPN/SLOPE(2,5),FVAL(5),HVAL(5),SLP(5),SL COMMON/MAIN/X(1000), Y(1000), STRGL(1000), ICRT, NOP, 1 DTH(1000),TLT(1000),A(1000) C TYPE CF SEGMENT KFV r FIRST SEG (OF MORE THAN 11 10 X C IC"T .NF.O C CINIERMFDIATE SEG IQ = 1 C ICRT .NE. 0 C LAST SEG (OF MORE THAN CNE) IQ = 1 C ICRT = 0 C CNLY CNE SFG IQ = 0 C ICPT = û IF (IO .FO. 0) SL=STRGL(NOP) DO 2 I=1,5 2 FVAL(I)=0.0 HVAL(1) = X(NOP) - X(1) HVAL(2) = Y(NOP) -Y(1) HVAL(3) = DTH(NOP) - DTH(1) HVAL(4) = TLT(NOP) - TLT(1) HVAL(5) = A(NOP) - A(I) IF( .NOT.(ABS(STRGL(2)*STRGL(NOP)) .GT. 0.0)) 1WRITE(6,900)STRGL(2).STRGL(NOP).NOP 900 FORMAT(' POT ZERC DIV STRGL(2)=',F10.5,' STRGL(NOP)=', 1 F10.5,'NOP=',15) DELU=100,*STRGL(2)/STRGL(NOP) SLOPE(1,1) = (X(2)-X(1))/DELU SLOPE(1,2) = (Y(2)-Y(1))/DELU SLOPE(1,3) = (DTH(2)-DTH(1))/DELU SLOPE(1,4) = (TLT(2)-TLT(1))/DELU SLOPE(1,5)=(A(2) - A(1))/DELU IF 110 .NF. o} GO TC 3 IF (NOP .LF. 2X GC TO 5 DELU2 = 100.*(STRGL(3)-STRGL(2))/STRGL(NOP) IE( .NOT. ABS(DELU2) .GT.O) GC TC 5 SLOP2(1) = (X(3)-X(2))/DELU2 SLOP2(2) = (X(3) - Y(2))/DELU2 SLOP2(3) = (DTH(3) - DTH(2);/DELU2 SLOP2(4) = (TLT(3)-TLT(2))/DELU2 SLOP2(5) = (A(3)-A(2))/DELU2 nFLU3 = OFLU + nELUZ no 6 1 = 1.5 6 SLOPE(1,1)=SLOPE(1,1)-(SLOP2(I)-SLOPE(1,1))*DELU/DELU3 GO TO 5 j on 4 1=1.5 4 SLOPE (1.1) =SLP(1)*STRGL (NOP)/SL 5 CONTINUE DELU=100.*(STRGL(NOP)-STRGL(NOP-1))/STPGL(NOP) SLOPE(2.1)=(X(NOP)-X(NOP-1))/DELU SLOPE(2.2)=(Y(NOP)-Y(MOP-1))/CELU SLOPE(2.3)=(DTH(NCP)-DTH(NOP-1))/CELU SLOPE(2.4)=(TLT(NOP)-TLT(NOP-1))/DELU SLOPE(2.5)=(A(NOP) - A(NOP-1))/DELU IF (ICRT .EQ. 0 .AND. NOP .LF. 2) RETURN IF (ICRT .EQ. 0) GC TO 9 IF (STRGL (NOP+1) .LE.STRGL(NOP) STOP DELU2 = 100.*(STRGL(NOP+1)/STRGL(NOP)-1.0) SLOP2(1) = (X(NOP+1)-X(NOP))/DELU2 SLOP2(2) = (Y(NOP+1) - Y(NOP))/DELU2 SLOP2(3) = (DTH(NOP+1)-DTH(NOP))/DELU2 SLOP2(4) = (TLT(NOP+1)-TLT(NOP))/DELU2 SLOP2(5) = (A(NOP+1)-A(NOP))/DELU2 DELU3 = DELU + DELU2 nn 7 I = 1,5 7 SLOPE(2.1) = (SLOPE(2.1)#DELU2+SLOP2(1)#DELU)/DELU3 11 CONTINUF IF tNOP .LF. 3) GC TO 12 CALL CUBF(IQ,X,SLOPE(1,1),SLOPE(2,1)) CALL CUBF(IQ,Y,SLOPE(1,20,SLOPE(2,2)) 12 CONTINUE IF (ICRT .EQ. 1) SLOPE(2,1)=0.0 IF (ICRT .EQ. 2) SLOPE(2,2 =0.0 RETURN 9 DELU2 = (STRGL (NOP-1)-STRGL(NOP-2))*100./STRGL(NOP) IF( .NOT.ABS(DELU2) .GT. 0) RETURN DELU3 = DELU/(DELU+DELU2) SLOP2(1) = (X(NOP-1)-X(NOP-2))/DELU2 SLOP2(2) = (Y(NOP-1)-Y(NOP-2))/DELU2 SLOP2(3) = (DTH(NOP-1)-DTH(NOP-2))/DELU2 SLOP2(4) = (TLT(NOP-1)-TLT(NOP-2))/DELU2 SLOP2(5) = (A(NOP-1)-A(NOP-2))/DELU2 DO 10 I = 1, 5 10 SLOPE(2,1)=SLOPE(2,1) - (SLOPE(2,1) - SLOP2(i))*DELU3 GO TO 11 FND C SUBROUTINE PC C PC AND THE SUBROUTINES IT CALLS, PC2 AND PC3, C CAUSE THE FOLLOWI@G VA@UES TO BE PUNCHED INTO THE C OUTPUT MEDIUM. (SEE PC3 FOR FURTHER DFSCRI@TION.) C CUT SEQUENCE NO.
C NO OF STEPS OF THE INDEPENDENT VARIABLE / 8 C TH@EE COEFFICIENTS FOR EACH MACHINE AXIS, IF C A FULL CUBIC REPRESENTATION IS @FQUIREC, C OR C ONE CDEFFICIENT FOR EACH AXIS IF A LINFAR C REPRESENTATION IS ADEQUATE.
C A SENTINEL CHARACTER EQUAL TO -O IN THE C FINAL DATA CODE SYSTEM (EQUALS CHANNEL @ IN PUNCHED C PAPER TAPE.) C PC3 CONVERTS A POSITIVE INTEGER OF @AXIMUM C VALUF 16*16-1 INTO TWO HEXADECIMAL. CHARACTERS C TO BE PUNCHED INTO A CARD. THESE TWO CHARACTERS C WILL LATER BF COMBINED INTO AN EIGHT CHANNEL C CODF TO BE PUNCHFC INTO A PAPER TAPE, @YPICAL C CODF TRANSFORMATIONS A@F SH@@N BELOW C INPUT CARDS TARE C 0 00 0000 0000 C 9 09 0000 1001 C 10 OA 0000 1010 C 17 IF 0001 1111 C 255 FF 1111 1111 REAL IWS.NS COMMON/FACTRS/SCALE(@) DATA (SCALE(1).1=1,6)/.256C.,800.,1333.33333,18.5185185 1 ,22.2222222,1.0/ C INPUT SEQUENCE IS X,Y,Z,TILT, PIECE R@TATION C OUTPUT SEQUENCE IS X,PR,Z,TILT,Y COMMON/AD@STR/RWXMID,RWYMID,RWXSCL,RWYSCL,R1,R2,CC IF (R2 .GT. 0.0) SCALE(1) = 3.49206349 C NDIC = 1 FCR SIMPLE (LTNEAR) BLOCK C NDIC = 2 FOR FULL CUBIC BLOCK COMMON /CUTN/ICUT,NU,NDIC,VEND(5) COMMON/P1/C1(5),C2(5),C3(5),C4(5) COMMON/P22/NW,NS,IWS(3) KEY4 = 2 KRFM=0 ISFNT = 128 C SET FOR THREE WORDS NWS= 3 IF(KEY4 .EQ. 1) GO TO 753 WRITE(6.916) ICUT,NU,NDIC,C2,C3,C4 C TO PFRMIT TRANSMISSION OF LARGER NC IT HAS BEEN C MADE AN EVEN MULTIPLE OF 8. DIVIDE BY 8 AND C RECONSTITUTF IN CONTROLLER PROGRAM.
NUSV = NU NU = NU/8 IF(NU*8-NUSV .NE. 0) WRITF(6,927) 927 FORMAT(' NU/8 NOT AN INTEGER ') 916 FORMAT (1X,314,4F8.6,F10.6,10@7.4) 7S3 CONTINUE IF(NDIC .ED. 2) GO TO 10 NWS = 2 CMAX = O DO 11 I = 1.5 IF(ABS(C2(1)*SCALE(1)).GT.CMAX)CMAX=ABS(C2(1)*S@ALE(1) 1 ) 11 CONTINUE IF(KEY4.EO.2)WRITE(6,917)CMAX 917 FORMAT (' IN PC CMAX=',F20.51 IF(CMAX .GT. 0) GC TO 12 WRITE(6,907) 907 FORMAT(' IN PC, CMAX = 0.0 FOR A SIMPLE BLOCK ') C IF NECESSARY INSREASE NO. OF STEPS TO DEEP CMAX C IN BOUNDS C 8 IS CH@CKERING LIMIT 12 IF(CMAX .LT. 6.0) GO TO 9 AUS = NU NU = (CMAX + 5.999999) * AUS / h.
IF(NU .EQ. 128) NU = 127 AU = NU 00 14 I = 1,5 14 C2(1) = C2(1) *AUS/AU GO TO 9 10 CONTINUE DO 7 I = 1. 5 IF(((ABS(C3(1)) .GT. 0.0)).OR. ((ABS(C4(1)) 1 .GT. 0.0))) GO TO 9 7 CONTINUE C SFT FOR TWO WORD C SFCAUSF SIMPLE flLCCK WILL SUFFICE 8 NWS = O 9 CONTINUE IF(NU .LT. 256) GO TO 15 WRITE(6.915) NU IF (NWS .EQ. 3) STOP 915 FORMAT (' XS STEPS - NU= ',110) KRFM = NU - 255 NU = 255 C SET FOR 1 FORD AND UNITY SCALE 15 NW = 1 NS= SCALE(6) C CUT NO IS LIMITED TO 127 C BECAUSE IWS(1) = MOD(ICUT.2**7) IF(ICUT .LT. 0) IWS(1) = 256 + ICUT IF(NWS .EQ. 0) ISW(1) = 0 IF(NWS .EQ. 0) NWS = 2 CALL PC2 IWS(1) = NU CALL PC2 NW=NWS IWS(1) = C4(1) IWS(2) = C3(1) IWS(3) = C2(1) C SET SCALE FOR X NS = SCALE(1) CALL PC2 C4(1) = IWS(1) C3(1) = IWS(2) C2(1) = IWS(3) IWS(1) = C4(5) IWS(2) = C3(5) IWS(3) = C2(5) C SET SCALE FOR PIECE ROTATION NS = SCALE(5) CALL PC2 C4(5) = IWS(1) C3(5) = IWS(2) C2(5) = IWS(3) IWS(1) = C4(3) IWS(2) = C3(3) IWS(3) = C2(3) C SET SCALE FOR DEPTH NW = SCALE(3) CALL PC2 C4(3) = IWS(1) C3(3) = IWS(2) C2(3) = IWS(3) IWS(1) = C4(4) IWS(2) = C3(4) IWS(3) = C2(4) C SET SCALE FOR TILT NS = SCALE(4) CALL PC2 C4(4) = IWS(1) C3(4) = IWS(2) C2(4) = IWS(3) IWS(1) = C4(2) IWS(2) = C3(2) IWS(3) = C2(2) C SET SCALE FOR Y NS = SCALE(2) CALL PC2 C4(2) = IWS(1) C3(2) = IWS(2) C2(2) = IWS(3) NS = 1 NS = SCALE(6) NW = 1 IWS(1) = ISENT CALL PC2 IF(KRFM .LE. 0) RETURN 2288627 KREM = KREM - NU IF(KREM .GE. 0) GO TO 15 NU = KREM + NU KRFM = O GO TO 15 ENn C SUBBOUTINE PC2 REAL IWS.NS DIMENSION IW(3) COMMON/P22/NW.NS.IWS(3) DIMENSION SWS(3) COMMON /CUTN/ICUT,NU,NDIC,VEND(5) DIMENSION F(3) DATA (F(I),I=1,3)/65536.,4096.,4096./ KEY4 = 2 KFY4 = 1 GO TO (1,2,3),NW C HANDLF SINGLE VALUE 1 IWS4=IWS(1)#NS IF (IWS4 .GT. 2**8) WRITE (6,902) IWS4 IWS4 = M@@(IWS4, 2**8) 902 FORMAT (100X,20HPC2 RECVD XS VALVE ,110) IF(IWS4.EQ. -1) IWS4 = 255 IFlIWS4 .tT. -1) GO TO 10 11 CONTINUE CALL PC3 (IWS4) RETURN 10 IF(IWS4 .LT. -2**15+1) STOP IWS4 = IWS4+2**16 GO TO 11 C NW=2.HANDLE ONE VALUE AS TWO WORDS, @@, 2 CONTINUE C NW=3, HANDLE THREE VALUES AS SIX WORDS (SEE 35+2) 3 CONTINUE DO 33 I = 1,3 SWS(I) = IWS(I) WS = IWS(I)*NS*F(I) IW(I) = WS+SIGN(P,5,WS) C WHEN THE COEFFICIENTS ARE CONVERTED TC TAPE C CHARACTERS (OP THEIR HEXADECIMAL FOUIVALENTS FOR C STORAGF IN TWO CARD COLUMNS) THEY WILL OF NFCESSITY BE C TRUNCATED. RATHER THAN ACCEPT THIS FRROR, THE FLDATING C POINT VALUES SILL BE SET EQUAL TO THE TRUNCATED VALUES C THIS WILL RESULT IN AUTOMATIC CORRECTION FOR ERROR C ACCUMULATION BECALSF SUBRCUTINE CODNS WILL USE THE C TRUNCATED VALUES IN REGENERATING POINTS ON THE CUT C FOR PLOTTING AND WILL USE THE FINAL SUCH POINT AS A C POINT OF OEPARTURE FOR THE @CVE TO THE START OF THE C NEXT CUT.