[Thomson] Nouveaux livres scannés

[Carl]

La configuration lors de l'examen...

10.jpg (449.04 Kio) Consulté 5377 fois

[6502man]

Excellent, Merci Carl

Ca me rappelle des souvenirs les épreuves d'algorithmes

[Daniel]

Si j'ai bien compris, leur disquette DOS originale était défectueuse
Ils auraient quand même pu fournir une copie propre pour l'examen

[Carl]

Daniel, c'était pour corser l'épreuve....

Carl

[Carl]

Daniel, voir lien dans ta boite mail vers 250 Mo de scans brutes...

Carl

[Daniel]

Bientôt en ligne à la page Documentation du site dcmoto.

La lecture me rappelle de bons souvenirs, quand je donnais des cours d'analyse numérique au CNAM d'Avignon. Le programme était presque le même, mais un peu simplifié. Les travaux pratiques étaient en turbo-pascal sur IBM PC/XT double disquette, dans une salle informatique de l'université d'Avignon. Mieux que l'X et ses TO7/70 en Basic

Je préparais les exercices à la maison sur MO5. Ce livre m'aurait été bien utile. Il ne contient pas 102 programmes, mais la qualité compense la quantité

[Carl]

X versus Arts et métiers.....

Daniel, la page 16 est dans ta boite ...

Carl

[Daniel]

.
Applications Informatiques - Ecole Polytechnique, 1986 (scans de Carl)

Site http://dcmoto.free.fr , page Documentation, section Littérature, tout en bas de la page
Document de 191 pages - 6,9 Mo. Nécessite le plugin DjVu pour consultation en ligne ou téléchargement.

Une bible de l'analyse numérique, avec une cinquantaine de programmes pour TO7/70, preuve que le calcul scientifique n'est pas réservé aux super-calculateurs. Merci à Carl pour cette trouvaille exceptionnelle et pour le temps passé à scanner les 191 pages

applications-informatiques.png (20.69 Kio) Consulté 5286 fois

[Edit]
Essai d'OCR sur le premier programme, ce n'est pas très concluant. Dommage que les listings soient imprimés en italique.
Remarquez qu'ils utilisent les instructions Basic supplémentaires du DOS (ils avaient un lecteur de disquette).

Code : Tout sélectionner

20'x 
30 ' 
40'x x 
100 ' I=----- ........ -- .............. -I 
120 ' = ..................... - ..... = 
130 DEFINT D,,I-N 
140 SCREEN 0,6,1: ELS 
150 INPUT"Degre naxm" ;DM 
160 IF DM(O THEN COSLIB 1000: COTO 150 
170 D_rM 
PCtD) ,C(DE) ,YSt2) ,Z$(2) 
180 PR_ThrT'" _rnprnrtte (O/h') ?" 
l go COSUB 4000: IM=F 
200 IF I THEN OPEN" 0" 1 "LPRT, " ' PRINT# 
, C/-/R.$ t 2 7  "7" 
210 L 
220 BOJ(F(72,8)-  245,31 ), -2 
230 BOX(72,S)-(247,31) 
240 LOCATE 10,2: COLOR O, 1: 
PRIYT" Po t omm rat onnas" 
250 LOCATE 0,5: COLOR O, 
2tO PRINT"Oparaton ( +-x ):"; 
270 O$=INKEY 
280 IR 05??"," OR OS>"-" OR 05="" 
THEN 270 
290 PRINT 05: PRINT 
300 A$="A" : GOSUB 2000: GOSUB 5000: 
PRINT: GOSUB 3000 
???3?G???????¦$10 DA=DC: ROB I=O TO D 
330 NEXT I 
340 A$="B": COSUB 2000: OSUB 5000: 
PINT : OOSUB 3000 
$50 DB--DC: ROB I=O TO D 
30 RE(I) =PC[ I): B(I) =OC[ I) 
370 NEXT I 
$S0 ON ASC(05)-41 OOSUB 800,500,700,700 
390 GOSUB 5000 
400 Z$="C = A "+05+" B": OOSUB $400 
410 Z$= " " : OSUB $400 
420 AS=" ": OOSUB 3000 
430 PRINT"O'n, recoce (O/N) ?" 
440 COSUB 4000 
450 IF F THEN 210 
460 END 
500' I=------- ................. -----=I 
510'I 
520' = ...................... -------= 
530 F=I 
540 DC=O: D=DA: IR DB)DA THEN D=DB 
550 FOR I=O TO D 
590 NEXT I 
600 RETURN 
700 ' I= ...... - .... ----- ............. =I 
710'I I Sou. t??rcto I I 
720 
730 F=-I 
740 007"0 540 
800 : I= .... - ....... - .............. =I 
' =-------- ..... - ............ '-=I 
830 OOSUB 2200 
840 DC=D.4+DB 
850 BOB I=O 7'0 DC 
860 NOR J=O TO I 
870 P=PA(J) *RE[ I-l) 
880 O=QAf J)xQB(I-I) 
890 PC(I)=PC(I)Q+PQC(I) 
900 .C{I)=C(I) 
910 NEXT 
920 NEXT I 
930 RETURN 
1000 ' I= ............................ =I 
1010 ' I Rernontee de charCot I 
1020 
1030 PLAY"DO" 
1040 PRINT CHR$( 11 ) ;SPACES(39) 
1050 PRINT CHR$( 11 ); 
1060 RETURN 
2000 ' 
2010 ' 
2020 ' I= ............................ = 
2030 OOEUB 2200 
2040 BRINT" Dee de "; AS  : INPUT DC 
2050 IN DCO OR DC>D OR (D+DC)D ND 
$=" B" ND 05=" " ) THEN OOSUB 1000: 
OOTO 2040 
200 NOR I=DC TO 0 STEP-1 
2070 PRINT ,45; ~ {" ' I; ")" ' 
2080 INPUT 
2090 g=INSTN{ ES, "/" ) 
ZlO0 IP  
3)) ELSE PC[I)=VAL($): C[I)=I 
2110 IR (PC(I)=O AND I=DC) OR 
OR INT(PC( I ) ) <PC(I ) OR INT(QC(I ) ) 
(QC(I) THEN SOSUB 1000: GOTO 2070 
2120 NEXT I 
Z 1 $0 RETURN 
2200 ROE I=O TO DJ 
2210 PC[I)=O: 
2220 NEXT I 
$000' I= .......................... =I 
$020 '  .................... = 
$050 Z$[O)=" " Z$()=Z$.[O) 
3040 FOR I=DC TO 0 STEP-1 
3050 K=2: ROE J=O TO 2 
300 Y$ ( ] ) =SPACES ( 36 ) 
3070 NEXT J 
3080 P=ABS( PC[ I) ): =ABS[ C( I ) ) 
3090 IF P=O THEN 3290 
3100 IF I(DC OR PC(I)(O THEN t, fID$[Y$(1 
) ,K, 1 ) =CHE$[ 44-SCN[ PC(I ) ) .): K=4 
3110 P$=STR$iP) : L=LENiP$) 
3120 IF ),1 THEN 3150 
3130 IR P.> 1 OR I=0 THEN 'IID$[Y$( 1 ) ,K-I 
, L' =P$: K=K+L 
$140 COTO 3210 
3150 $=STES[.) : 
3160 N=L: IF I/l)L THEN 
3170 JID$(Y$(O) ,K+N/2-L/2-1 ,t)=P$ 
3180 JID$iY$[2) ,K+N/2-M/2-1 ,J)=$ 
3190 JID$[Y$(1) ,K,N-1)=STBINO$(N-1,45) 
3200 K=K+N 
3210 IF I=O THEN K=K-2: COTO 3250 
3220 JID$(Y$.[ 1 ) ,K, 1 )="X" 
3230 IF I=1 THEN 3250 
3240 JID$(Y$(O) ,K,LEN[STR$(I) ) )=STR$(I 
): K=K+LEN[STE$( I ) )-I 
3250 IF K+LEN(Z$(O) ) >40 THEN COSUB 
3300 
360 FOR I=O TO 2 
3270 Z$(J)=Z$(JI+LERT$(Y$[J) ,K) 
3280 NEXT J 
3290 NEXT I 
3300 FOR J=O TO 2GOSU B 
3310 Z$=Z$( J) : 3400 
3320 ZS( J)="s, 
3330 NEXT 
3340 Z$= s, s, COSUB 3400: GOSUB 3400 
3350 RETURN 
3400 PRINT Z$;: IF LEN(Z$) ('40 THEN PRINT 
3410 IF I THEN PRINT# 1 , Z$ 
3420 RBTURN 
4000'I= ............................ =I 
o,o, 
ou Non 
4020 ' - - .... = 
4O30 F=O 
4040 I $= INKEY$ 
4050 IF I.$="0" THEN F=l : RETURN 
400 IF I $= " N"'THEN RETURN 
4070 GOTO 4040 
5000 ' I= ..................... =I 
5020 ' = ..................... = 
SO30 FOR I=O TO DC 
5040 
5050 IF P THB,?? OOSUB 5100 
5060 PC(I)=P: CfI)=O 
5070 NBXT I 
5080 RETURN 
5100 A=ABE(P): B= 
5110 IF A(B THBNSWAP A,B 
5120 A=A-BxINT(4/B): 
5130 IF B THBN 5120 
5140 P=P/A: 
5150 RETURN 

[Carl]

Daniel, j'ai encore quelques livres à numériser pour ton site...mais il me faudra du temps

Numérisation_20141007 (400).jpg (183.06 Kio) Consulté 5266 fois

Numérisation_20141007 (401).jpg (188.39 Kio) Consulté 5266 fois

Numérisation_20141007 (402).jpg (157.88 Kio) Consulté 5266 fois

Numérisation_20141007 (404).jpg (165.98 Kio) Consulté 5265 fois

Numérisation_20141007 (405).jpg (207.16 Kio) Consulté 5265 fois

[Carl]

La lecture me rappelle de bons souvenirs

Daniel, il y a peut être encore des bons souvenirs avec ce bouquin (mais pas de programme T07-70)

édition original en 1982 (USA)
édition Française en 1983 (celle que j'ai)

Numérisation_20141007 (208).jpg (149.37 Kio) Consulté 5262 fois

[Daniel]

Carl, ta bibliothèque est inépuisable
J'ai le livre "Logiciels Nathan Ecoles" en version TO8/TO9/TO9+ : http://dcmoto.free.fr/programmes/logici ... es_doc.zip
Il n'y a peut-être pas beaucoup de différences avec ta version, il suffirait peut-être de scanner uniquement les pages spécifiques au nanoréseau.

[Carl]

le guide du MO5E, peux tu me confirmer que tu n'as que la version Allemande ?
moi, c'est la version Française
Carl

[Daniel]

Non, je n'ai pas la version française du guide du MO5E. Tous les guides Thomson que je possède sont sur le site dcmoto.

[Carl]

Viennent d'arriver sur mes étagères...encore de la numérisation à faire...

001.gif (170.86 Kio) Consulté 5184 fois

002.gif (108.8 Kio) Consulté 5184 fois

Carl

[Carl]

Daniel, voici le n°1 - Run 01.7z - 49 Mo

cover320_Run01.jpg (161.2 Kio) Consulté 5118 fois

https://www.cloud.sfr.fr/?shareObject=f ... 27d30eb129

Carl