Ordinateur personnel FX-850P

Manuel CasioFx850Pa.pdf 4,5Mo sans la partie 11.
Manuel CasioFX850Pb.pdf 6,7Mo partie 11 uniquement.
Calculatrice SR51 II
Calculatrice Olympia CD44

Il est possible d'éditer les programmes de la librairie scientifique grâce à un programme basic.

Liste du programme

10 DEFCHR$(255)="54AA54AA54":ERASEJ:DIMJ(8):CLS:A=1:ONERRORGOTO750:B=0
20 GOSUB410:PRINT:PRINTCHR$(9);"ADRESSE=";MID$(HEX$(U),4);HEX$(V);" ";:INPUT@6;K$:E=1:IFK$=""THEN170
30 IFASC(K$)<>80THEN110ELSEIFLEN(K$)=2THEN90
40 DEFSEG=20480:H=&HF7B5
50 FORC=2TOLEN(K$):D=ASC(MID$(K$,C,1)
60 FORH=H TO65535STEP15:IFPEEK(H)<>D THENNEXT:GOTO160
70 H=H+1:NEXT
80 H=H-4-LEN(K$):U=PEEK(H):V=PEEK(H-1)*256+PEEK(H-2):GOTO100
90 DEFSEG=0:U=9-VAL(MID$(K$,2)):V=PEEK(U*15+&H9F6B)*256+PEEK(U*15+&H9F6A):U=0
100 A=2:BEEP:GOTO140
110 H=LEN(K$):IFH>5THEN20ELSEIFH<5THENU=0:GOTO130
120 U=VAL(LEFT$(K$,1)):K$=RIGHT$(K$,4)
130 V=VAL("&H"+K$)
140 IFSGN(V)=-1THENB=B+65536
150 IFV>65535THENV=0:U=U+1
160 IFU>15THENU=0
170 DEFSEG=U*4096
180 MODE2+A*2:C=ASC(INPUT$(1,@))
190 IFC=65THEN20
195 IFC=80ANDA=2THEN340
200 IFC<>66ORA=1THEN230
210 GOSUB410:PRINT:PRINTMID$(HEX$(U+(V<G)),4);HEX$(G);" ";
220 PRINTMID$(HEX$(U),4);HEX$(V);:GOTO180
230 IFC=76THENA=2
240 IFC=48THENB=1:GOTO330
250 IFC=72THENA=1
260 IFC=69THENGOSUB410:GOTO430
270 IFC=30THENPRINTCHR$(C);:IFF=1THENPRINTCHR$(C);:F=2
280 IFC=31THENPRINTCHR$(C);:IFF=2THENPRINTCHR$(C);:F=1
290 IFC=29THENLOCATE0,0:F=2
300 IFC=28THENGOSUB410
310 IFC=45ANDA=1THENV=V-16:GOTO330
320 IFC<>13THEN180
330 GOSUB410
335 ONA GOTO350,560
340 GOSUB410:PRINT:PRINT"LIGNE? ";:INPUT@6;K$
341 IFPEEK(V)=0ANDPEEK(V+1)=0THENPRINT"LIGNE NON TROUVEE";:GOTO180
342 IFPEEK(V)=0THENV=V+1:GOTO342
344 IFPEEK(V+3)<>32THENPRINT:PRINT"ERREUR DE DEBUT DE LIGNE";:GOTO180
346 D=PEEK(V)+V:IF PEEK(V+1)+PEEK(V+2)*256<VAL(K$)THENV=D:GOTO341
348 D=V:PRINTCHR$(30);"          ";CHR$(30);:GOTO560
350 V=V\8*8:PRINT
360 PRINT MID$(HEX$(U),4);HEX$(V);" ";
370 FORC=0TO7:J(C)=PEEK(V+C):PRINTMID$(HEX$(J(C)),3);" ";:NEXT
380 PRINTTAB(7);
390 FORC=0TO7:IFJ(C)<32 OR J(C)>251 THENPRINT"   ";ELSEPRINTCHR$(J(C));"  ";
400 NEXT:V=V+8:GOTO710
410 IFE=1THENLOCATE0,6ELSELOCATE0,7
420 F=1:E=0:RETURN
430 IFA=1ANDU=0THENPRINT"                             ";:LOCATE0,7:H=V-8:GOTO500
440 PRINT
450 INPUT"ADRESSE";L$
460 IF LEN(L$)>4ORL$=""THEN550
470 H=VAL("&H"+L$):DEFSEG=0:IFH<0THENH=H+65536
480 PRINT MID$(HEX$(U),4);HEX$(H);" ";
490 FORC=0TO7:PRINTMID$(HEX$(PEEK(H+C)),3);" ";:NEXT:PRINT
500 PRINT"ECRIS>";
510 INPUT@24;L$:IFL$=""THEN550ELSELOCATE6,5:LOCATE6,6
520 FORD=1TOLEN(L$)STEP3:IFMID$(L$,D,2)="  "THENH=H+1:PRINT"   ";:GOTO540
530 C=VAL("&H"+MID$(L$,D,2):PRINTMID$(HEX$(C),3);" ";:POKEH,C:H=H+1
540 NEXT
550 BEEP:E=1:GOTO170
560 IF PEEK(V)=0THENV=V+1:GOTO560
570 IF PEEK(V+3)<>32THENPRINT:PRINT"ERREUR DE DEBUT DE LIGNE";:GOTO720
580 D=PEEK(V)+V:PRINT:PRINTMID$(STR$(PEEK(V+1)+PEEK(V+2)*256),2);" ";:G=V:V=V+4
590 C=PEEK(V):V=V+1
600 IFC<4ORC>7THEN630
610 RESTORE#:RESTORE#STR$(C*1000+PEEK(V)):READ#K$,L$:IFK$="7072"THENPRINTCHR$(29);
620 PRINTL$;:V=V+1:GOTO590
630 IFC>31ANDC<252THENPRINTCHR$(C);:GOTO590
640 IFC=1THENPRINT":";:GOTO590
650 IFC=2THENPRINT"'";:GOTO590
660 IFC=3THENPRINTMID$(STR$(PEEK(V)+PEEK(V+1)*256),2);:V=V+2:GOTO590
670 IFC>251THENPRINTCHR$(255);:GOTO590
680 IFC<>0THENPRINT:PRINT"ERREUR DANS LA LIGNE";:B=0:GOTO180
690 IFV<>D+1THENPRINT:PRINT"ERREUR DE FIN DE LIGNE";:B=0:GOTO180
700 IFPEEK(V)=0THENPRINT:PRINT"FIN DU PROGRAMME ";:V=V+1:PRINTHEX$(V);:BEEP'PRINT:PRINT
710 IFB=1ANDINKEY$=""THEN335ELSEB=0:GOTO180
720 V=V-1:IFPEEK(V)<>0THEN720
730 IFPEEK(V+4)<>32ANDPEEK(V+PEEK(V+1))<>0THEN720
740 V=V+1:GOTO580
750 IFERR=16ANDU>15THENU=15:RESUME
760 IFERR<>13ANDV<65536THENPRINT:PRINTERR;ERL;:BEEP:BEEP:END
770 V=0:D=D-65536:U=U+1:IFU>15THENU=0
780 DEFSEG=U*4096:BEEP:IFERL=360THENPRINTCHR$(29);
790 RESUME

Valeurs à mettre dans la "mémo" pour que le programme fonctionne

 4154,ON,
4073,GOTO,
4074,GOSUB,
4075,RETURN,
6155,INPUT,
6168,INKEY$,
4129,FOR,
7193,TO,
7192,STEP,
4130,NEXT,
4141,IF,
7071,THEN,
7072,ELSE,
4163,PRINT,
4164,LPRINT,
4145,LOCATE,
7182,TAB,
5134,PEEK,
4099,POKE,
6156,MID$,
6160,CHR$,
6161,STR$,
6163,HEX$,
6157,RIGHT$,
6158,LEFT$,
7195,NOT,
7196,AND,
7197,OR,
7198,XOR,
5124,SGN,
5148,ASC,
5123,ABS,
5149,LEN,
5125,INT,
5126,FIX,
5144,ROUND,
5127,FRAC,
7199,MOD,
4172,SET,
4113,CLS,
4112,BEEP,
5147,RAN#,
5150,VAL,
5146,VALF,
5122,SQR,
5099,CUR,
5103,FACT,
5120,LOG,
5119,LN,
5121,EXP,
5170,NPR,
5171,NCR,
5107,SIN,
5108,COS,
5109,TAN,
5110,ASN,
5111,ACS,
5112,ATN,
5113,HYPSIN,
5114,HYPCOS,
5115,HYPTAN,
5116,HYPASN,
5117,HYPACS,
5118,HYPATN,
5096,PI,
5156,DEG,
5167,REC,
5168,POL,
6151,DMS$,
4124,DIM,
4133,ERASE,
4110,ANGLE,
4176,MODE,
4118,DEF,
4120,DEFSEG,
4119,DEFM,
4077,RESTORE,
4078,WRITE,
4168,READ,
5138,EOF,
4128,DATA,
4153,OUT,
4165,PUT,
7188,AS,
4151,OPEN,
4114,CLOSE,
4106,CLEAR,
4135,END,
4174,STOP,
4076,RESUME,
4134,ERROR,
5079,ERL,
5080,ERR,
5141,FRE,
4083,PASS,
4178,VARLIST,
4093,TRON,
4095,TROFF,
6173,CALC$,
4159,CALCJMP,
4143,LET,
4169,REM,
4087,LIST,
4088,LLIST,
4089,LOAD,
4096,VERIFY,
4107,NEW,
4108,SAVE,
4109,RUN,
4111,EDIT,
7187,ALL,
4121,VAC,
Toutes les lignes commencent par un espace.

Utilisation du programme
- Au départ le programme demande une adresse hexadécimale comprise entre 0h et 9FFFFh. Si on entre une valeur de P0 à P9 ou de P0400 a PZ5830, le programme recherche le début du programme basic correspondant et se positionne à son début.
- L'appuie sur la touche "H" met le logiciel en édition hexadécimale.
- L'appuie sur la touche "L" met le logiciel en édition basic.
- L'état hexadécimal ou basic est confirmé par l'affichage de "deg" ou "gra".
- L'édition commencera si l'on appui sur "EXE", et se termine après l'édition de huit adresses hexadécimales ou d'une ligne de basic. S'il y a des erreurs (édition basic) l'édition s'arrête.
- Sous les huit adresses hexa il y a la correspondance Ascii.
- L'appuie sur la touche 0 démarre l'édition jusqu'à ce que l'on appuie sur "." pour l'arrêter (maintenir appuyée jusqu'à l'arrêt).
- Les flèches haut, bas, gauche et droit font défiler l'écran pour visualiser les lignes précédentes.
- Le programme permet aussi l'écriture en hexadécimal dans la ram entre 0 et 9FFF. Pour cela il faut d'abords lire la zone où l'on veut écrire, puis appuyer sur la touche "E". l'écriture est effective quand on appuie sur "EXE". Les zones non modifiées ne seront pas écrites.
- L'appuie sur la touche "A" permet de se positionner sur une adresse précise. (fonctionnement identique au démarrage du programme)
- L'appuie sur la touche "-" en édition hexadécimale permet de lire les huit adresses précédentes.
- L'appuie sur la touche "B" en édition basic donne l'adresse de début et de fin du programme en cour.
- L'appuie sur la touche "P" en édition basic permet de sélectionner une ligne du programme.

Sauvegarde et chargement des données par PC
En mode basic avec l'adaptateur FA6 on peut sauvegarder la mémoire du FX-850P par l'intermédiaire d'une liaison série (le commutateur du FA6 doit être sur RS-232C). La commande "SAVEALL" ne peut pas fonctionner car les données sont stockées dans différentes parties de la mémoire dont une zone indiquant les adresses de début et de fin des neuf programmes basic.

Mettre le PC en capture texte avec terminal de Windows ou hyperterminal.
Vitesse 4800Bd, 8Bits, Sans parité, Control de flux XON/XOFF.
Passer en mode Basic sur le FX-850P (Mode 1).

Commande FX-850P Fonction
SAVE"COM0:6,N,8,1,N,N,N,B,N" Sauvegarde d'un programme 
SAVE#"COM0:6,N,8,1,N,N,N,B,N" Sauvegarde de la mémo

Pour restaurer les données, passer en mode Basic sur le FX-850P (Mode 1) et taper une des commandes suivantes:

Commande Fonction
LOAD"COM0:6,N,8,1,N,N,N,B,N" Restaure d'un programme 
LOAD#"COM0:6,N,8,1,N,N,N,B,N" Restaure de la mémo
puis envoyer un fichier texte avec terminal de Windows ou hyperterminal. Lorsque la transmission du fichier est terminée appuyée sur la touche "BRK" pour arrêter la réception cotée FX-850P.
Attention: Sans contrôle de flux la restitution ne marche pas bien à 4800Bd, utilisez plutôt 300Bd comme vitesse de restitution.

Dans les commandes précédentes le chiffre en rouge peut être modifié pour adapter la vitesse de transmission.

Valeur Vitesse
6 4800Bd
5 2400Bd
4 1200Bd
3 600Bd
2 300Bd
1 150Bd
Les deux listings donnés plus haut peuvent être transférés avec cette méthode. Il suffit de recopier les deux listings dans le bloc note et de sauvegarder sous un nom quelconque (séparément) puis ensuite de les transférer avec terminal ou hyperterminal.

Autre programme: renumérotation des lignes d'un programme, lecture écriture et «visu» des données sur la cassette.

Accueil

Table des adresses des programmes:

P0400
10 CLEAR:CLS:DEFSEG=0:K=PEEK(&H6B4)/4+PEEK(&H6B5)*64
20 IF K<32 THENK1=8:K2=K-K1
30 IF K=32 OR K=64 THENK1=32:K2=K-K1
40 IF K=40THENPOKE&H8000,10:POKE0,0:IFPEEK&HA000=10THENK1=32:K2=8ELSEK1=8:K2=32
50 PRINT"Main";K1;TAB(8);"Kbyte Option";K2;"Kbyte";:PRINT:A=64:D=1:A1=0
70 GOSUB1000:A=A+A:D=(D+D)MOD256:IF A<K*1024 THEN70
80 FORI=1 TO9:A=K*1024-A1-1:IF I=5 OR I=9 THEND=&H80 ELSE D=&H20
100 GOSUB1010:IF A1=0 THENA1=1 ELSEA1=A1*2
110 NEXT
120 A=K*1024-A1-1:GOSUB1000:A1=A1*2:IF A1<K*1024 THEN120
130 PRINT"   OK  RAM";:GOSUB10000:PRINT:DEFSEG=&H4000
160 ROM=(PEEK(4)+1+PEEK(5)*256)*2
170 IF PEEK(0)<>&H43 THENPRINT"NG ROM 1";:GOTO1030
180 IF ROM<>1024 THEN200
190 D1=PEEK(&H5955):D2=PEEK&HA6AA:D3=PEEK&HFFFF:DEFSEG=&H5000
191 D4=PEEK0:D5=PEEK&H5955:D6=PEEK&HA6AA
192 IF PEEK&HFFFF<>&H20 THENPRINT"NG ROM 2";:GOTO1030
193 PRINT"OK 512K*2 ROM?";:PRINT
194 PRINTRIGHT$(HEX$(D1),2);" ";RIGHT$(HEX$(D2),2);" ";RIGHT$(HEX$(D3),2);" ";RIGHT$(HEX$(D4),2);" ";RIGHT$(HEX$(D5),2);" ";RIGHT$(HEX$(D6),2);" ";:GOTO210
200 IF PEEK(ROM*128-1)<>&H20 THENPRINT"NG ROM 1";:GOTO1030
201 D1=PEEK&H5955:IF ROM=256 THEND2=PEEK&H26AA ELSE D2=PEEK&HA6AA
202 PRINT"OK";STR$(ROM);"K ROM?";:PRINT
203 PRINTRIGHT$(HEX$(D1),2);" ";RIGHT$(HEX$(D2),2);" ";
210 GOSUB10000
220 CLS:FOR I=0 TO 63:PRINTCHR$(&HFF);:NEXT:LOCATE 0,0
230 DEFCHR$(&HFF)="FFFFFFFFFF":GOSUB10000:DEFCHR$(&HFF)="0000000000":GOSUB10000
250 DEFCHR$(&HFF)="AA55AA55AA":GOSUB10000:DEFCHR$(&HFF)="55AA55AA55":TRON:GOSUB10000:TROFF
280 CLS:PRINT"Printer CHECK";:PRINT:GOSUB10000
290 LPRINT"Main";K1;"Kbyte Option";K2;"Kbyte"
320 FOR I=32 TO 255:IF I=&H7F THENI=&H80
330 LPRINTCHR$(I);:NEXT:LPRINT
350 PRINT"RS 232C CHECK";:PRINT:GOSUB10000
360 OPEN "COM0:5,E,8,2,C,D,C,B,N" AS #1:PRINT#1,123:INPUT #1,D
390 CLOSE:IF D<> 123 THENPRINT"NG RS 232C";:GOTO1030
410 PRINT"OK RS 232C";:GOSUB10000:PRINT
420 PRINT"MT CHECK  <REC>";:PRINT:GOSUB10000
430 OPEN "CAS0:TEST" FOR OUTPUT AS #1:PRINT#1,"ABC":CLOSE
460 PRINT"MT <REW> and <PLAY>";:PRINT:GOSUB10000
470 OPEN "CAS0:TEST" FOR INPUT AS #1:INPUT #1,A$:CLOSE
490 IF A$<>"ABC" THENPRINT"NG MT";:PRINT:GOTO1030
510 PRINT"OK MT";:PRINT
520 END
1000 POKE A,D
1010 IF PEEKA=D THENRETURN
1020 IF A>=K1 THENPRINT"NG RAM 2"; ELSE PRINT "NG RAM 1";
1030  BEEP:GOTO1030
10000 BEEP:IF INPUT$(1,@)=CHR$(0) THEN10000ELSE RETURN
FIN DU PROGRAMME 0CD6


P0800
10 DATA1E,28,A8,28,1E,0,2,7C,80,0,8,4,FE,80,80,0,20,40,80,0,C6,AA,92,82,C6,72,8E,80,8E,72,AA,54,AA,54,AA,FE,FE,FE,FE,FE,1C,22,22,1C,22,7E,88,A4,A4,58,20,1E,20,40,40,14,2A,2A,2A,0,3C,52,52,3C,0,3E,8,8,30,8,1C,22,22,5C,80,18,26,3C,64,18,F8,88,F8,0,0
20 DATA48,F8,8,0,0,B8,A8,E8,0,0,A8,A8,F8,0,0,E0,20,F8,0,0,E8,A8,B8,0,0,F8,A8,B8,0,0,C0,80,F8,0,0,F8,A8,F8,0,0,E8,A8,F8,0,0,20,70,20,0,0,20,20,20,0,0,78,20,40,38,0,48,50,28,48,0,20,20,0,0,F8,10,10,54,10,10
30 DATAA,4A,2A,1A,A,A,1A,2A,4A,A,28,68,38,2C,28,20,40,FE,40,20,10,38,54,10,10,8,4,FE,4,8,10,10,54,38,10,22,3C,20,3E,22,18,3A,7E,3A,18,38,7C,3E,7C,38,18,3C,7E,3C,18,18,7A,7E,7A,18,7C,44,44,44,7C,38,44,44,44,38,8,18,28,18,8,40,20,10,8,4,44,28,10,28,44
40 DATAFE,90,F0,92,FE,24,DC,54,7E,54,FE,A8,A8,AA,FE,FE,92,92,92,FE,50,50,7E,90,10,84,F8,A0,A2,BC,12,7E,92,82,42,38,44,FE,44,28,22,22,FA,22,22,88,88,BE,88,88,3E,22,3E,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
50 CLS:PRINT"Down load.....";:a$=CHR$(27):b$=CHR$(0):LPRINTa$;":";b$;b$;b$;a$;"%";CHR$(1);b$;:x=128:GOSUB60:x=224:GOSUB60:CLS:END
60 LPRINTa$;"&";b$;CHR$(x);CHR$(x+31);:FORi=xTOx+31:LPRINTCHR$(139);:FORj=1TO5:READc$:LPRINTCHR$(VAL("&H"+c$));b$;:NEXT:LPRINTb$;:NEXT:RETURN
FIN DU PROGRAMME 1140


P0900
10 MODE8:DEFSEG=0:GOTO110
20 GOSUB20
30 OPENp$ FORINPUTAS#1:IFASC(INPUT$(1,1))<>2 THENCLOSE:GOTO30 ELSERETURN
50 IFg$="" THENRETURN ELSEGOSUB70:FORk=1TOLEN(g$):k$=MID$(g$,k,1):MODE32(k$):NEXT:g$="":FORl=0TOk-2:g$=g$+CHR$(PEEK(l+768)):NEXT:RETURN
70 POKE768,0:POKE769,0:POKE1608,0:POKE1609,3:RETURN
90 n=PEEK(e):e=e-1:RETURN
110 n$="":a=2:a$="":j$="":i=0:p$="":m=512:f$="":c$="":o=0:g=0:e=0:d=0:e$=""
120 p=0:b$="":k=0:g$="":c=0:w=0:u=0:v=0:s=0:o$="":i$="":q=0:h$="":r=0:m$="":k$="":h=0:f=0:t=0:l=0:b=0:x=0:y=0:n=0:d$=""
200 IFPEEK(m)=32 THENm=m+1:GOTO200
210 IFPEEK(m)=4 ANDPEEK(m+1)=180 THENf$="VF":GOSUB2190:GOSUB2120:GOSUB2220:GOTO410
220 IFPEEK(m)<>4 ORPEEK(m+1)<>179 THENa
230 n=PEEK(m+a):IFn=32 THENa=a+1:GOTO230
240 IFn=0 ORn=34 ORn=48 ORn=49 THENf$="PF":GOSUB2190:GOSUB2120:GOSUB2220:GOTO410
250 IFn=7 ANDPEEK(m+a+1)=187 THENf$="AF":a=a+2:GOSUB2190:GOSUB2120:GOSUB2220:GOTO410
260 IFn=35 THENf$="MF":a=a+1:GOSUB2190:GOSUB2120 ELSEa
270 n=PEEK(m+a)
280 IFn=0 THENg=0:GOTO410
290 IFn=32 THENa=a+1:GOTO270
300 IFn=44 THENa=a+1:GOSUB2250:IFn=77 THENg=1:GOSUB2220 ELSEa ELSEa
410 a=1709:o=(PEEK(a+1))*256+(PEEK(a))-1:f=o:e=o:h=o-FRE(1)+1
430 FORd=1867 TO1874:e$=e$+CHR$(PEEKd):NEXT
460 b$="":a$="":OPENp$ FORINPUTAS#1:p=ASC(INPUT$(1,1)):IFp<144 THENCLOSE:GOTO460
470 b$=INPUT$(10,1):CLOSE
490 IFp MOD16=15 THENa$="":GOTO510
500 FORk=1 TO8:j$=MID$(b$,k,1):IFj$<>CHR$(7) THENa$=a$+j$:NEXT
510 i=ASC(MID$(b$,10)):c=VAL("&h"+MID$(HEX$(p),3,1))-8
520 IFc=<2 THENn$="MF":GOTO560
530 IFc=6 THENn$="VF":GOTO560
540 IFc=3ORc=7 THENn$="AF":GOTO560
550 n$="PF"
560 g$=a$:GOSUB50:b$=g$:PRINTb$;TAB(9);n$;:PRINT
570 IFf$<>n$ THEN460
580 IFc$<>"" ANDc$<>b$ THEN460
600 ONc GOTO810,,,,810,810,810
710 GOSUB30
720 n=ASC(INPUT$(1,1)):IFn=255 ORn=241 THEN730 ELSEd$=d$+CHR$(n):GOTO720
730 CLOSE:g$=d$:GOSUB50:d$=g$
735 IFLEN(d$)>8 THENREAD$
740 IFLEN(d$)<8 THENd$=d$+CHR$(0):GOTO740
750 IFe$=d$ THEN810
760 PASSd$
810 GOSUB30:MODE35(:CLOSE:f=PEEK(1609)*256+PEEK(1608)-1
1010 IFf$="VF" THEN10010 ELSEPRINT"Converting...";
1020 IFf$="MF" THEN6010
1030 IFf$="PF" THEN1140
1110 w=48:o$=HEX$(PEEK(1715)+PEEK(1716)*256-15):POKE1616,VAL("&h"+RIGHT$(o$,2)):POKE1617,VAL("&h"+LEFT$(o$,2))
1130 FORk=48 TO57:k$=CHR$(k):MODE30(k$):NEXT:GOTO1160
1140 w=PEEK(PEEK(1611)*256+PEEK(1610)+8):k$=CHR$(w):MODE30(k$)
1160 q=0:x=0:y=0:l=0:GOSUB70:GOSUB2040:u=n:GOSUB90:v=n:o$=RIGHT$(HEX$(v),2)+RIGHT$(HEX$(u),2):o$=MID$(STR$(VAL(o$)),2):s=PEEK(1609)*256+PEEK(1608)
1170 FORk=1TOLEN(o$):POKE768+k-1,ASC(MID$(o$,k,1)):s=s+1:NEXT:POKE768+k-1,0:i$=HEX$(s):POKE1609,VAL(LEFT$(i$,2)):POKE1608,VAL(RIGHT$(i$,2))
1180 GOSUB90
1182 IFn=255 THEN1240
1184 IFn=254 THENq=0:x=0:y=0:l=0:GOTO1225
1186 IFn=7 THENy=y+1:IFy>=2 THENy=0:l=1:GOTO1225
1188 IFy=1 THEN1225
1190 IFn=167 THENx=1:GOTO1225
1192 IFn*x*l=93 THENn=94:GOTO1223
1194 IFn=165 ORn=151 THENq=SGN(n-151):GOTO1223
1196 IFn*q=94 THENn=151:q=0
1223 l=0
1225 IFPEEK(1608)>=247 THEN5000
1230 h$=CHR$(n):MODE32(h$):GOTO1180
1240 GOSUB2080:MODE31(m$):GOTO1160
2030 IFPEEK(m+a)=44 ANDPEEK(m+a+1)=77 THENg=1:RETURN
2040 e=o
2050 GOSUB90:IFn=224 THENw=w+1:GOTO2050
2060 IFn=240 THENEND ELSERETURN
2080 m$=CHR$(w)
2090 r=e-f:t=o-r+1:MODE33(f+1,t,r):f=t-1:IF(FRE(1))-r<0 THEN20
2100 RETURN
2120 n=PEEK(m+a):IFn=44 ANDf$="MF" THENRETURN
2130 IFn=0 THENRETURN
2140 IFn=32 THENa=a+1:GOTO2120
2150 IFn<>34 THENa ELSEa=a+1
2160 n=PEEK(m+a):IFn=34 THENa=a+1:c$=LEFT$(c$,8):RETURN
2170 IFn=0 THENc$=LEFT$(c$,8):RETURN ELSEc$=c$+CHR$(n):a=a+1:GOTO2160
2190 n=PEEK(m+a):IFn=48 ORn=49 THENp$="PMT"+CHR$(n)+":":a=a+1:RETURN
2195 IFn=32 THENa=a+1:GOTO2190
2200 p$="PMT0:":RETURN
2220 n=PEEK(m+a):IFn=0 THENRETURN
2230 IFn=32 THENa=a+1:GOTO2220 ELSEa
2250 n=PEEK(m+a):a=a+1:IFn=32 THEN2250 ELSERETURN
5000 j$=j$+"ST error":GOTO5000
6010 IFg=1THEN6040
6020 RESTORE#
6030 RESTORE#"",1,6060:WRITE:GOTO6030
6040 RESTORE#CHR$(26),0,6060:READ$
6060 GOSUB70:e=o
6070 GOSUB90:IFn=240 THENEND
6075 IFPEEK(1608)>=247 THEN5000
6080 IFn<>255 THENh$=CHR$(n):MODE32(h$):GOTO6070
6090 GOSUB2090:k=768:s=256*PEEK(1609)+PEEK(1608):l$=""
6100 IFk=s THENWRITEl$:GOTO6060 ELSEl$=l$+CHR$(PEEK(k)):k=k+1:GOTO6100
10010 e=o:j=0:a=0:IFi\16>0 THEN10100
10020 IFa=0 THENPRINT"GET ";(e-f-1)/8;"data";:PRINT:PRINT "Converting...";
10030 IFe<f+5 THENEND
10040 GOSUB70:n=PEEK(e-7):IFn>10 THEN10070
10050 FORk=0 TO7:GOSUB90:POKE768+k,n:NEXT:MODE34("A("+STR$(j)+")"+CHR$(0)):j=j+1:GOTO10030
10070 a=n\16
10080 FORk=0 TO7:GOSUB90:a=a-1:IFa>=0 THENMODE32(CHR$(n))
10085 NEXT
10090 MODE34("A$("+STR$(j)+")"+CHR$(0)):j=j+1:GOTO10030
10100 GOSUB90:b=n:a=30:IF(i\16)=14 THENa=62
10110 PRINT"GET $,";(e-f-a-2)/8;"data";:PRINT:PRINT"Converting...";:GOSUB70
10120 FORk=0 TOa:GOSUB90:b=b-1:IFb>=0 THENMODE32(CHR$(n))
10130 NEXT:MODE34("$"+CHR$(0)):GOTO10030
FIN DU PROGRAMME 204C


P1000
5 ONERRORGOTO500
10 MODE8:DIM:ERASEa,a$:DIMa(3),a$(1):DEFSEG=0
100 CLS:PRINT" MC[↑]   MR[↓]   M-[←]   M+[→]";
110 LOCATE0,1:PRINTCHR$(5);a(2);:LOCATE16,1:PRINTa(3);:LOCATE0,0:LOCATE0,1
120 a$(0)=INPUT$(1,@):a(0)=ASC(a$(0)):IFa(0)=46 OR(a(0)>47 ANDa(0)<58) THEN200
130 IFa(0)=42 ORa(0)=43 ORa(0)=45 ORa(0)=47 ORa(0)=94 THENa$(0)=STR$(a(2))+a$(0):GOTO200
140 IFa(0)<14 ORa(0)>127 THEN110
150 IFa(0)=40 ORa(0)=41 THEN200
160 IFa(0)>27 ANDa(0)<32 THEN300
200 LOCATE0,0:LOCATE0,1:PRINTCHR$(5);a$(0);
210 a(0)=ASC(INPUT$(1)):a(1)=PEEK(206):IFa(0)>32 ANDa(0)<127 ANDa(1)=0 THENPRINTCHR$(a(0));:GOTO210
220 IFa(0)=8 THENPRINTCHR$(8);:GOTO210
230 IFa(0)=31ANDa(1)=0 THENGOSUB350:PRINTa$(1);:GOTO210
240 IFa(0)=13 ORa(0)=28 ORa(0)=29 THEN400
250 IFa(0)=30 THENa(3)=0:GOTO210
260 IFa(0)=12 THENa$(0)="":GOTO200
270 IFa(0)=9 ORa(0)=14 ORa(0)=15 THENPRINTCHR$(a(0));
280 GOTO210
300 IFa(0)=28 THENa(3)=a(3)+a(2):GOTO110
310 IFa(0)=29 THENa(3)=a(3)-a(2):GOTO110
320 IFa(0)=30 THENa(3)=0:GOTO110
330 IFa(0)=31 THENGOSUB350:a$(0)=a$(1):GOTO200
350 a$(1)=STR$(a(3)):IFa(3)>=0 THENa$(1)=MID$(a$(1),2)
360 RETURN
400 MODE33(32,1024,223):IFCALC$="" THEN110
405 a(2)=VALF(CALC$):IFa(0)=13 THEN110
410 IFa(0)=28 THENa(3)=a(3)+a(2):GOTO110
420 IFa(0)=29 THENa(3)=a(3)-a(2):GOTO110
500 IFERR=1 THENCLS:ONERRORGOTO0
510 LOCATE0,0:LOCATE0,1:PRINTCHR$(5);" Error";:w$=INPUT$(1,@)
520 IFERL=300 ORERL=310 THENRESUME110
530 LOCATE0,1:PRINTCHR$(5);CALC$;:RESUME210
FIN DU PROGRAMME 2503


P5010
5 ONERRORGOTO1000
10 MODE8:DIM:x=2:c$=CHR$(5)
20 CLS:PRINT"Prime factors    (2≤Base<10¹°)";:a$=" *"
40 LOCATE0,1:PRINTc$;"Base ?";:INPUT@11;x:LOCATE0,0
45 IFx<2 ORx>=1e10 ORFRACx<>0 THEN40
50 LOCATE0,1:PRINTc$;x;"= .....";
60 u=0:v=0:n=1:t$="":a=x
70 GOTO130
100 u=2:GOSUB500
110 a=a/2
120 IFa-1=0 THEN240
130 IFFRAC(a/2)=0 THEN100
140 b=3
150 c=SQRa+1
160 IFb>=c THEN230
170 IFFRAC(a/b)=0 THEN190
180 b=b+2:GOTO160
190 IFa/b*b-a=0 THEN210
200 GOTO180
210 u=b:GOSUB500
220 a=a/b:GOTO150
230 u=a:GOSUB500
240 a$="":GOSUB530
250 PRINTc$;x;"=";t$;:z$=INPUT$(1,@):GOTO20
500 IFv=u THENn=n+1:GOTO550
520 IFv=0 THEN550
530 IFn>1 THENt$=t$+STR$(v)+"^"+MID$(STR$(n),2)+a$ ELSEt$=t$+STR$(v)+a$
540 n=1
550 v=u:RETURN
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=40 THENRESUME40
1050 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 27C5


P5020
5 ONERRORGOTO1000
10 MODE8:DIM:c$=CHR$(5):a=1:b=1
20 CLS:PRINT"G.C.M. & L.C.M.  (1≤a,b<10¹°)";
30 s$="a":z=a:GOSUB700:a=z
40 s$="b":z=b:GOSUB700:b=z:CLS
100 IFb>a THENf=b:g=a ELSEf=a:g=b
110 h=f-INT(f/g)*g:IFh THENf=g:g=h:GOTO110
200 l=a/g*b:PRINT"G.C.M.=";g;TAB(0);"L.C.M.=";l;:z$=INPUT$(1,@):GOTO20
700 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@11;z:LOCATE0,0:z=ABSz
730 IFz>=1e10 ORz<1 ORFRACz<>0 THEN700 ELSERETURN
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=700 THENRESUME700
1050 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 2988


P5040
5 ONERRORGOTO2000:DEFSEG=0
10 MODE8:DIM:ERASEa:c$=CHR$(5):n=2:m$="ax1+bx2+cx3+dx4+ex5+fx6+gx7"
30 CLS:PRINT"ax1+bx2+cx3+···=y     (2≤n≤7)";
40 LOCATE0,1:PRINTc$;"n=";n;"?";:INPUT@2;n:LOCATE0,0:IFn<2 ORn>7 THEN40
60 m=n-1:DIMa(m,n):p$=LEFT$(m$,4*m+3)+"=y":CLS:PRINTp$;
100 FORi=0 TOm:FORj=0 TOn
110 s$=MID$(STR$(i+1),2)+":"+MID$(p$,j*4+1,1):z=a(i,j)
120 GOSUB1950:IFw=0 THENa(i,j)=z:GOTO140
130 IFj=0 THENIFi=0 THEN30 ELSEi=i-1:j=n-1 ELSEj=j-2
140 NEXT:NEXT
160 LOCATE0,1:PRINTc$;"x1 = .....";:GOTO830
310 FORi=0 TOm:z=b(i):IFz<>0 ANDABSz>=1e-90 THENz=ROUND(z,LOG(ABSz)-7)
315 IFz<>0 ANDABSz<1e-90 THENz=z*1e10:z=ROUND(z,LOG(ABSz)-7):z=z/1e10
320 PRINTc$;"x";MID$(STR$(i+1),2);" =";z;
330 w=ASC(INPUT$(1,@)):IFw=29 ORw=28 THEN30
360 IFw<>13 ANDw<>31 ANDw<>30 THEN330
370 IF(w=31 ANDi=m) OR(w=30 ANDi=0) THEN330
390 IFw=30 THENi=i-2
400 NEXT:GOTO30
830 ERASEb,c,e:y=2*n-1:x=m:DIMc(x,y),e(x),b(x)
840 FORi=0 TOm:FORj=0 TOm:c(i,j)=a(i,j):NEXT:NEXT
850 FORi=0 TOm:FORj=n TOy:IFi=j-n THENc(i,j)=1
860 NEXT:NEXT
870 FORi=0 TOx:e(i)=i:NEXT
880 FORk=0 TOx:w=ABS(c(k,k)):a=k:b=k
890 FORi=k TOx:FORj=k TOx:IFw<ABS(c(i,j)) THENw=ABS(c(i,j)):a=i:b=j
900 NEXT:NEXT
920 IFw<1E-10 THENGOSUB1800:GOTO30
940 IFk<>a THENFORj=k TOy:w=c(k,j):c(k,j)=c(a,j):c(a,j)=w:NEXT
950 IFk<>b THENFORi=0 TOx:w=c(i,k):c(i,k)=c(i,b):c(i,b)=w:NEXT:w=e(k):e(k)=e(b):e(b)=w
960 w=c(k,k):c=k+1:FORj=c TOy:c(k,j)=c(k,j)/w:NEXT
970 FORi=0 TOx:IFi<>k THENw=c(i,k):FORj=c TOy:c(i,j)=c(i,j)-w*c(k,j):NEXT
980 NEXT:NEXT
1040 FORj=n TOy:FORi=0 TOx:w=e(i):c(w,x)=c(i,j):NEXT
1050 FORi=0 TOx:c(i,j)=c(i,x):NEXT:NEXT
1270 FORi=0 TOm:w=0:FORk=0 TOm:w=w+c(i,k+n)*a(k,n):NEXT:b(i)=w:NEXT:GOTO310
1800 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RETURN
1950 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@43;z:LOCATE0,0:w=PEEK(&H65B)-13:RETURN
2000 IFERR=1 THENCLS:ONERRORGOTO0
2020 IFERL=40 THENRESUME40
2030 IFERL=1950 THENRESUME1950
2040 IFERL=60 THENERASEa:RESUME60
2080 GOSUB1800:RESUME30
FIN DU PROGRAMME 2FFF


P5050
5 ONERRORGOTO1000
10 MODE8:DIM:c$=CHR$(5):a=1:b=0:c=0
20 CLS:PRINT"ax²+bx+c=0";
30 s$="a":z=a:GOSUB700:a=z:IFz=0 THEN30
40 s$="b":z=b:GOSUB700:b=z
50 s$="c":z=c:GOSUB700:c=z
60 LOCATE0,1:PRINTc$;".....";
100 d=b*b-4*a*c
110 CLS:IFd THEN130
120 PRINT"a(x-α)²=0";:PRINT:GOTO200
130 PRINT"a(x-α)(x-β)=0";:PRINT
140 ONSGNd+2 GOTO400,,300
200 x=-b/(2*a):GOSUB510:PRINTc$;"α =";x;
210 GOSUB550:IFw=13 THEN20 ELSE210
300 IFb<0 THENz=-b+SQRd ELSEz=-b-SQRd
305 x=z/2/a:y=2*c/z:GOSUB500
310 PRINTc$;"α =";x;
330 GOSUB550:IFw<>13 ANDw<>31 THEN330
340 PRINTc$;"β =";y;
360 GOSUB550:IFw=30 THEN310 ELSEIFw=13 THEN20 ELSE360
400 x=-b/(2*a):y=SQR(-d)/(2*a):GOSUB500:x$=STR$(x)+" ":y$=MID$(STR$(y),2):IFx=0 THENx$=""
410 PRINTc$;"α =";x$;:IFx THENPRINT"+";
420 IFy-1 THENPRINT" ";y$;"i"; ELSEPRINT" i";
430 GOSUB550:IFw<>13 ANDw<>31 THEN430
440 PRINTc$;"β =";x$;"-";:IFx THENPRINT" ";
450 IFy-1 THENPRINTy$;"i"; ELSEPRINT"i";
460 GOSUB550:IFw=30 THEN410 ELSEIFw=13 THEN20 ELSE460
500 IFy<>0 ANDABSy>=1e-90 THENy=ROUND(y,LOG(ABSy)-7)
505 IFy<>0 ANDABSy<1e-90 THENy=y*1e10:y=ROUND(y,LOG(ABSy)-7):y=y/1e10
510 IFx<>0 ANDABSx>=1e-90 THENx=ROUND(x,LOG(ABSx)-7)
515 IFx<>0 ANDABSx<1e-90 THENx=x*1e10:x=ROUND(x,LOG(ABSx)-7):x=x/1e10
520 RETURN
550 LOCATE0,0:LOCATE0,1:w=ASC(INPUT$(1,@)):RETURN
700 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:RETURN
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=700 THENRESUME700
1050 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 34B9


P5060
5 ONERRORGOTO1000
10 MODE8:DIM:c$=CHR$(5):ANGLE0:a=1:b=0:c=0:d=0
20 CLS:PRINT"ax³+bx²+cx+d=0";
30 s$="a":z=a:GOSUB700:a=z:IFa=0 THEN30
40 s$="b":z=b:GOSUB700:b=z
50 s$="c":z=c:GOSUB700:c=z
60 s$="d":z=d:GOSUB700:d=z
70 LOCATE0,1:PRINTc$;".....";
100 u=b/a/3:p=c/a/3-u*u:q=2*u*u*u-u*c/a+d/a
102 IFABSp<u*u*1e-10 THENp=0
104 IFABSq<u*u*u*1e-10 THENq=0
110 t=q*q+4*p*p*p:IFABSt<q*q*5e-10 THENt=0
115 r=(q+SQR(ABSt))/2:s=(q-SQR(ABSt))/2:r=SGNr*CUR(ABSr):s=SGNs*CUR(ABSs)
120 v=r+s
130 ONSGNt+2 GOTO400,,300
140 x=-v-u:IFp THEN200
175 GOSUB520:PRINT"a(x-α)³=0";:PRINT
180 PRINTc$;"α =";x;
190 GOSUB550:IFw=13 THEN20 ELSE190
200 y=v/2-u
205 GOSUB510:PRINT"a(x-α)(x-β)²=0";:PRINT
210 PRINTc$;"α =";x;
230 GOSUB550:IFw<>13 ANDw<>31 THEN230
240 PRINTc$;"β =";y;
260 GOSUB550:IFw=30 THEN210 ELSEIFw=13 THEN20 ELSE260
300 x=-v-u:y=v/2-u:z=ABS(SQR3/2*(r-s))
302 GOSUB500:PRINT"a(x-α)(x-β)(x-γ)=0";:PRINT
305 y$=STR$(y)+" ":z$=MID$(STR$(z),2):IFy=0 THENy$=""
310 PRINTc$;"α =";x;
330 GOSUB550:IFw<>13 ANDw<>31 THEN330
340 PRINTc$;"β =";y$;:IFy THENPRINT"+";
350 IFz-1 THENPRINT" ";z$;"i"; ELSEPRINT" i";
360 GOSUB550:IFw=30 THEN310 ELSEIFw<>13 ANDw<>31 THEN360
370 PRINTc$;"γ =";y$;"-";:IFy THENPRINT" ";
380 IFz-1 THENPRINTz$;"i"; ELSEPRINT"i";
390 GOSUB550:IFw=30 THEN340 ELSEIFw=13 THEN20 ELSE390
400 h=ACS(q/2/SQR(ABS(-p*p*p)))/3:i=-2*SQR(ABS(-p)):x=i*COSh-u:y=i*COS(h+120)-u:z=i*COS(h+240)-u
405 GOSUB500:PRINT"a(x-α)(x-β)(x-γ)=0";:PRINT
410 PRINTc$;"α =";x;
430 GOSUB550:IFw<>13 ANDw<>31 THEN430
440 PRINTc$;"β =";y;
460 GOSUB550:IFw=30 THEN410 ELSEIFw<>13 ANDw<>31 THEN460
470 PRINTc$;"γ =";z;
490 GOSUB550:IFw=30 THEN440 ELSEIFw=13 THEN20 ELSE490
500 IFz<>0 ANDABSz>=1e-90 THENz=ROUND(z,LOG(ABSz)-7)
502 IFz<>0 ANDABSz<1e-90 THENz=z*1e10:z=ROUND(z,LOG(ABSz)-7):z=z/1e10
505 IFABSz<ABSu*1e-10 THENz=0
510 IFy<>0 ANDABSy>=1e-90 THENy=ROUND(y,LOG(ABSy)-7)
512 IFy<>0 ANDABSy<1e-90 THENy=y*1e10:y=ROUND(y,LOG(ABSy)-7):y=y/1e10
515 IFABSy<ABSu*1e-10 THENy=0
520 IFx<>0 ANDABSx>=1e-90 THENx=ROUND(x,LOG(ABSx)-7)
522 IFx<>0 ANDABSx<1e-90 THENx=x*1e10:x=ROUND(x,LOG(ABSx)-7):x=x/1e10
525 IFABSx<ABSu*1e-10 THENx=0
530 CLS:RETURN
550 LOCATE0,0:LOCATE0,1:w=ASC(INPUT$(1,@)):RETURN
700 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:RETURN
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=700 THENRESUME700
1050 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 3C7F


P5080
5 ONERRORGOTO1000
10 DEFCHR$(255)="0000FE0000":MODE8:DIM:PRINTCHR$(15);
30 f$="":c$=CHR$(5):s=0:h=1e-5:e=1e-7:m=20:ANGLE1
50 CLS:PRINT"Newton's method  f(x)=0";TAB(0);"1:f(x),x0       2:h,ε,loop";
60 k=ASC(INPUT$(1,@)):IFk=13 ORk=49 THEN90 ELSEIFk=50 THEN150
80 GOTO60
90 CLS:PRINT"Define function";
100 LOCATE0,1:PRINTc$;"f(x) ?";f$;:LOCATE0,0:LOCATE6,1:INPUT@100;f$:LOCATE0,0:z=VALF(f$)
110 IFLEN(f$)<25 THENg$=f$ ELSEg$=LEFT$(f$,21)+"..."
120 m$="f(x) = "+g$:s$="x0":z=s:GOSUB800:s=z:GOTO250
150 m$="f'(x)=(f(x+h)-f(x))/h  (h>0)":s$="h":z=h:GOSUB800:h=z:IFh=<0 THEN150
170 m$="Err  |Xn+1-Xn|<ε  (ε>0)":s$="ε":z=e:GOSUB800:e=z:IFe<1e-90 THEN170
200 m$="Max loop  (n>0)":s$="n":z=m:GOSUB800:m=z:IFm=<0 ORFRACm<>0 THEN200 ELSE50
250 CLS:PRINTm$;TAB(0);"x = .....";:t=s
310 FORi=1 TOm
320 x=t:g=VALF(f$):x=t+h:f=VALF(f$):x=t-g*h/(f-g)
350 IFABS(t-x)=<e THEN500
360 t=x:NEXT:GOSUB450
390 PRINTc$;"loop =";m;TAB(11);":Xn =";STR$(x);:LOCATE0,0:LOCATE1,1:z$=INPUT$(1,@):GOTO50
450 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RETURN
500 x=ROUND(x,INTLOG(ABSe)-1):PRINTc$;"x =";x;:z$=INPUT$(1,@):GOTO50
800 CLS:PRINTm$;
810 LOCATE0,1:PRINTc$;s$"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=100 THENIFERR=2 THENRESUME100 ELSERESUMENEXT
1015 IFERL=810 THENRESUME810
1020 GOSUB450:RESUME50
FIN DU PROGRAMME 40D3


P5090
5 ONERRORGOTO1000
10 DEFCHR$(255)="0000FE0000":MODE8:DIM:PRINTCHR$(15);
30 f$="":c$=CHR$(5):s=0:t=0:e=1e-7:m=30:ANGLE1
50 CLS:PRINT"Method of bisection  f(x)=0     1:f(x),x0,x1    2:ε,loop";
60 k=ASC(INPUT$(1,@)):IFk=13 ORk=49 THEN90 ELSEIFk=50 THEN170
80 GOTO60
90 CLS:PRINT"Define function";
100 LOCATE0,1:PRINTc$;"f(x) ?";f$;:LOCATE0,0:LOCATE6,1:INPUT@100;f$:LOCATE0,0:z=VALF(f$)
110 IFLEN(f$)<25 THENg$=f$ ELSEg$=LEFT$(f$,21)+"..."
120 m$="f(x) = "+g$:s$="x0":z=s:GOSUB800:s=z
130 s$="x1":z=t:GOSUB800:t=z:GOTO250
170 m$="Err  |Xn+1-Xn|<ε  (ε>0)":s$="ε":z=e:GOSUB800:e=z:IFe<1e-90 THEN170
200 m$="Max loop  (n>0)":s$="n":z=m:GOSUB800:m=z:IFm=<0 ORFRACm<>0 THEN200 ELSE50
250 CLS:PRINTm$;TAB(0);"x = .....";:u=s:v=t
270 x=u:g=VALF(f$):IFg=0 THEN500
280 x=v:h=VALF(f$):IFh=0 THEN500
310 FORi=1 TOm:x=(u+v)/2:f=VALF(f$):IFf=0 THEN500
330 IFSGNg=SGNh ANDSGNh=SGNf THENGOSUB450:GOTO50
340 IFSGN(f*g)=1 THENu=x:g=f ELSEv=x:h=f
350 IFABS(u-v)=<e THEN500
370 NEXT:GOSUB450
390 PRINTc$;"loop =";m;TAB(11);":Xn =";STR$(x);:LOCATE0,0:LOCATE1,1:z$=INPUT$(1,@):GOTO50
450 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RETURN
500 x=ROUND(x,INTLOG(ABSe)-1):PRINTc$;"x =";x;:z$=INPUT$(1,@):GOTO50
800 CLS:PRINTm$;
810 LOCATE0,1:PRINTc$;s$"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=100 THENIFERR=2 THENRESUME100 ELSERESUMENEXT
1015 IFERL=810 THENRESUME810
1020 GOSUB450:RESUME50
FIN DU PROGRAMME 456A


P5100
5 ONERRORGOTO2000:DEFSEG=0
10 CLS:MODE8:DIM:ERASEa,b,d:DIMa(1,1),b(1,1),d(1,1):m=1:n=1:o=1:p=1:q=1:r=1:c$=CHR$(5):e=1
40 GOSUB460:GOSUB470:GOSUB420
50 LOCATE0,0:PRINTc$;"Matrix  A";m$;":B";n$;
60 LOCATE28,1:z=ASC(INPUT$(1)):IFz>96 THENz=z-32
100 ONz-41 GOTO1250,1300,,1350,1500,,,,,,,,,,,,,,,,,,,120,130,700,800,,,,,800,,1400,1100,1150,,,300,,,,1200
110 GOTO60
120 x=m:GOTO500
130 x=o:GOTO600
300 LOCATE0,0:FORi=0 TOm:FORj=0 TOn:z=a(i,j):IFz<>0 ANDABSz>=1e-90 THENz=ROUND(z,LOG(ABSz)-7)
310 IFz<>0 ANDABSz<1e-90 THENz=z*1e10:z=ROUND(z,LOG(ABSz)-7):z=z/1e10
320 PRINTc$;"a(";MID$(STR$(i+1),2);",";MID$(STR$(j+1),2);") =";z;
330 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN50
340 IFz>96 THENz=z-32
350 ONz-41 GOTO1250,1300,,1350,1500,,,,,,,,,,,,,,,,,,,120,130,700,800,,,,,800,,1400,1100,1150,,,300,,,,1200
360 IFz<>13 ANDz<>31 ANDz<>30 THEN330
370 IF(z=31 ANDi+j=n+m) OR(z=30 ANDi+j=0) THEN330
390 IFz=30 THENIFj=0 THENi=i-1:j=n-1 ELSEj=j-2
400 NEXT:NEXT:GOTO50
420 CLS:PRINT:PRINT">A,B,D,I,T,K,+,-,*,M,L,C,P ?";:RETURN
440 FORi=0 TOm:FORj=0 TOn:a(i,j)=c(i,j):NEXT:NEXT:RETURN
460 n$="("+MID$(STR$(o+1),2)+","+MID$(STR$(p+1),2)+")":RETURN
470 m$="("+MID$(STR$(m+1),2)+","+MID$(STR$(n+1),2)+")":RETURN
480 m$="("+MID$(STR$(i+1),2)+","+MID$(STR$(j+1),2)+")":RETURN
500 i=x:j=n:GOSUB480:p$="A(m,n) = A"+m$:s$="m":z=x+1:GOSUB1900:IFw THEN40 ELSEx=z-1
510 i=x:j=n:GOSUB480:p$="A(m,n) = A"+m$:s$="n":z=n+1:GOSUB1900:IFw THEN500
520 m=x:n=z-1
530 DIMa(m,n)
540 FORi=0 TOm:FORj=0 TOn
550 p$="a("+MID$(STR$(i+1),2)+","+MID$(STR$(j+1),2)+")"
560 z=a(i,j):GOSUB1850:IFw=13 THENa(i,j)=z:GOTO580
570 IFj=0 THENIFi=0 THEN510 ELSEi=i-1:j=n-1 ELSEj=j-2
580 NEXT:NEXT:GOTO40
600 i=x:j=p:GOSUB480:p$="B(m,n) = B"+m$:s$="m":z=x+1:GOSUB1900:IFw THEN40 ELSEx=z-1
610 i=x:j=p:GOSUB480:p$="B(m,n) = B"+m$:s$="n":z=p+1:GOSUB1900:IFw THEN600
620 o=x:p=z-1
630 DIMb(o,p)
640 FORi=0 TOo:FORj=0 TOp
650 p$="b("+MID$(STR$(i+1),2)+","+MID$(STR$(j+1),2)+")"
660 z=b(i,j):GOSUB1850:IFw=13 THENb(i,j)=z:GOTO680
670 IFj=0 THENIFi=0 THEN610 ELSEi=i-1:j=n-1 ELSEj=j-2
680 NEXT:NEXT:GOTO40
700 LOCATE0,0:PRINTc$;"Change  A";m$;" ←→ B";n$;:IFm=o ANDn=p THEN750
710 ERASEc:DIMc(m,n):FORi=0 TOm:FORj=0 TOn:c(i,j)=a(i,j):NEXT:NEXT
720 ERASEa:DIMa(o,p):FORi=0 TOo:FORj=0 TOp:a(i,j)=b(i,j):NEXT:NEXT
730 ERASEb:DIMb(m,n):FORi=0 TOm:FORj=0 TOn:b(i,j)=c(i,j):NEXT:NEXT
740 x=m:y=n:m=o:n=p:o=x:p=y:z$=m$:m$=n$:n$=z$:GOTO50
750 FORi=0 TOm:FORj=0 TOn:w=a(i,j):a(i,j)=b(i,j):b(i,j)=w:NEXT:NEXT:GOTO50
800 LOCATE0,0:IFm<>n THENGOSUB1830:GOTO50
810 IFz=68 THENPRINTc$;"Determinant A = ....."; ELSEPRINTc$;"Inverse A → A";
820 t=1E-10:d=1
830 ERASEc,e:y=2*(m+1)-1:x=m:DIMc(x,y),e(x)
840 FORi=0 TOm:FORj=0 TOn:c(i,j)=a(i,j):NEXT:NEXT
850 FORi=0 TOm:FORj=n+1 TOy:IFi=j-n-1 THENc(i,j)=1
860 NEXT:NEXT
870 FORi=0 TOx:e(i)=i:NEXT
880 FORk=0 TOx:w=ABS(c(k,k)):a=k:b=k
890 FORi=k TOx:FORj=k TOx:IFw<ABS(c(i,j)) THENw=ABS(c(i,j)):a=i:b=j
900 NEXT:NEXT
920 IFw<t THENIFz=68 THENd=0:GOTO1000 ELSEGOSUB1830:GOTO50
940 IFk<>a THENd=-d:FORj=k TOy:w=c(k,j):c(k,j)=c(a,j):c(a,j)=w:NEXT
950 IFk<>b THENd=-d:FORi=0 TOx:w=c(i,k):c(i,k)=c(i,b):c(i,b)=w:NEXT:w=e(k):e(k)=e(b):e(b)=w
960 w=c(k,k):d=d*w:c=k+1:FORj=c TOy:c(k,j)=c(k,j)/w:NEXT
970 FORi=0 TOx:IFi<>k THENw=c(i,k):FORj=c TOy:c(i,j)=c(i,j)-w*c(k,j):NEXT
980 NEXT:NEXT
1000 IFz=68 THENPRINTc$;"Determinant A =";STR$(d);:z$=INPUT$(1,@):GOTO50
1040 w=x+1:FORj=w TOy:FORi=0 TOx:w=e(i):c(w,x)=c(i,j):NEXT
1050 FORi=0 TOx:c(i,j)=c(i,x):NEXT:NEXT
1070 FORi=0 TOx:FORj=0 TOx:a(i,j)=c(i,j+x+1):NEXT:NEXT:GOTO300
1100 m=q:n=r:GOSUB470:LOCATE0,0:PRINTc$;"Load  A ← M";m$;
1110 ERASEa:DIMa(m,n):FORi=0 TOm:FORj=0 TOn:a(i,j)=d(i,j):NEXT:NEXT:GOTO50
1150 q=m:r=n:GOSUB470:LOCATE0,0:PRINTc$;"Memory  A → M";m$;
1160 ERASEd:DIMd(q,r):FORi=0 TOm:FORj=0 TOn:d(i,j)=a(i,j):NEXT:NEXT:GOTO50
1200 w=m:m=n:n=w:GOSUB470:LOCATE0,0:PRINTc$;"Transpose  A → A";m$;
1210 ERASEc:DIMc(m,n):FORi=0 TOn:FORj=0 TOm:c(j,i)=a(i,j):NEXT:NEXT
1220 ERASEa:DIMa(m,n):GOSUB440:GOTO300
1250 LOCATE0,0:IFn<>o THENGOSUB1830:GOTO50
1260 i=m:j=p:GOSUB480:PRINTc$;"A*B → A";m$;
1270 ERASEc:DIMc(m,p):FORi=0 TOm:FORj=0 TOp:w=0:FORk=0TOn:w=w+a(i,k)*b(k,j):NEXT:c(i,j)=w:NEXT:NEXT:IFm<>o ORn<>p THENn=p:ERASEa:DIMa(m,n)
1280 GOSUB440:GOTO300
1300 LOCATE0,0:IFm<>o ORn<>p THENGOSUB1830:GOTO50
1310 PRINTc$;"A+B → A";m$;
1320 ERASEc:DIMc(m,n):FORi=0 TOm:FORj=0 TOn:c(i,j)=a(i,j)+b(i,j):NEXT:NEXT:GOSUB440:GOTO300
1350 LOCATE0,0:IFm<>o ORn<>p THENGOSUB1830:GOTO50
1360 PRINTc$;"A-B → A";m$;
1370 ERASEc:DIMc(m,n):FORi=0 TOm:FORj=0 TOn:c(i,j)=a(i,j)-b(i,j):NEXT:NEXT:GOSUB440:GOTO300
1400 p$="k*A"+m$+" → A":z=e:GOSUB1950:GOSUB420:IFw THEN50 ELSEe=z
1410 LOCATE0,0:PRINTp$;
1420 ERASEc:DIMc(m,n):FORi=0 TOm:FORj=0 TOn:c(i,j)=e*a(i,j):NEXT:NEXT:GOSUB440:GOTO300
1500 DEFCHR$(254)="0080F08000":CLS:GOSUB1600:i=2
1510 PRINT:ONi GOSUB1600,1610,1620,1630,1640,1650,1660,1670,1680,1690,1700,1710,1720
1520 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN1580
1530 IFz<>13 ANDz<>31 ANDz<>30 THEN1520
1540 IF(z=31 ANDi=13) OR(z=30 ANDi=1) THEN1520
1550 IFz=30 THENi=i-2
1570 i=i+1:IFi<14 THEN1510
1580 GOSUB420:GOTO50
1600 PRINT" A : input A(m,n)";:RETURN
1610 PRINT" B : input B(m,n)";:RETURN
1620 PRINT" D : determinant A";:RETURN
1630 PRINT" I : inverse         Aˉ¹ → A";:RETURN
1640 PRINT" T : transposition   AT → A";:RETURN
1650 PRINT" K : scalar-cal      k*A → A";:RETURN
1660 PRINT" + : addition        A+B → A";:RETURN
1670 PRINT" - : subtraction     A-B → A";:RETURN
1680 PRINT" * : multiplication  A*B → A";:RETURN
1690 PRINT" M : memory          A → M";:RETURN
1700 PRINT" L : load            A ← M";:RETURN
1710 PRINT" C : change          A ←→ B";:RETURN
1720 PRINT" P : print A(m,n)";:RETURN
1830 LOCATE0,0:PRINTc$;"not found";:z$=INPUT$(1,@):RETURN
1850 CLS:PRINTp$;" =";z;
1860 LOCATE0,1:PRINTc$;"?";:INPUT@16;z:LOCATE0,0:w=PEEK(&H65B):RETURN
1900 CLS:PRINTp$;
1910 LOCATE0,1:PRINTc$;s$;" ?";:INPUT@3;z:LOCATE0,0:w=PEEK(&H65B)-13:IFw THENRETURN
1920 IFz<1 ORz>10 ORFRAC(z)<>0 THEN1910 ELSERETURN
1950 CLS:PRINTp$;
1960 LOCATE0,1:PRINTc$;"k=";z;"?";:INPUT@12;z:LOCATE0,0:w=PEEK(&H65B)-13:RETURN
2000 IFERR=1 THENCLS:ONERRORGOTO0
2010 IFERL=1860 THENRESUME1860
2020 IFERL=1910 THENRESUME1910
2030 IFERL=1960 THENRESUME1960
2040 IFERL=530 THENERASEa:RESUME530
2050 IFERL=630 THENERASEb:RESUME630
2080 GOSUB1830:RESUME40
FIN DU PROGRAMME 59DE


P5200
5 ONERRORGOTO1000
10 DEFCHR$(255)="0000FE0000":MODE8:DIM:PRINTCHR$(15);
30 f$="":c$=CHR$(5):a=0:b=0:e=1e-7:m=8:ANGLE1:ERASEa:DIMa(m)
50 CLS:PRINT"Romberg's method  ʃf(x)dx [a,b] 1:f(x),[a,b]      2:ε,loop";
60 k=ASC(INPUT$(1,@)):IFk=13ORk=49THEN90ELSEIFk=50THEN170
80 GOTO60
90 CLS:PRINT"Define function";
100 LOCATE0,1:PRINTc$;"f(x) ?";f$;:LOCATE0,0:LOCATE6,1:INPUT@100;f$:LOCATE0,0:z=VALF(f$)
110 IFLEN(f$)<21THENg$=f$ ELSEg$=LEFT$(f$,17)+"..."
120 m$="ʃ "+g$+" dx [a,b]":s$="a":z=a:GOSUB800:a=z
130 s$="b":z=b:GOSUB800:b=z:GOTO250
170 m$="Err  |An+1-An|<ε  (ε>0)":s$="ε":z=e:GOSUB800:e=z:IFe<1e-90 THEN170
200 m$="Max loop  2n     (n>0)":s$="n":z=m:GOSUB800:m=z:IFm=<0ORFRACm<>0THEN200ELSEERASEa:DIMa(m):GOTO50
250 CLS:PRINTm$;TAB(0);"ʃf(x)dx = .....";
260 h=b-a:x=a:g=VALF(f$):x=b:f=VALF(f$):a(0)=(g+f)*h/2
300 FORi=1 TOm:h=h/2
310 s=0:FORj=1TO2^i-1STEP2:x=a+j*h:s=s+VALF(f$):NEXT
320 a(i)=a(i-1)/2+h*s
330 n=1:FORk=i-1TO0STEP-1
340 a(k)=a(k+1)+(a(k+1)-a(k))/(4^n-1)
350 IFABS(a(k+1)-a(k)) <e AND(i>3ORi=m)THENx=a(k):GOTO500
360 n=n+1:NEXT:NEXT:GOSUB450
390 PRINTc$;"n =";m;TAB(11);":An =";STR$(a(m-1));:LOCATE0,0:LOCATE1,1:z$=INPUT$(1,@):GOTO50
450 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RETURN
500 x=ROUND(x,INTLOG(ABSe)-1):PRINTc$;"ʃf(x)dx =";x;:z$=INPUT$(1,@):GOTO50
800 CLS:PRINTm$;
810 LOCATE0,1:PRINTc$;s$"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=100 THENIFERR=2 THENRESUME100 ELSERESUMENEXT
1015 IFERL=810 THENRESUME810
1020 GOSUB450:RESUME50
FIN DU PROGRAMME 5ED4


P5220
5 ONERRORGOTO1000
10 DEFCHR$(254)="060A12227E":MODE8:DIM:PRINTCHR$(15);
30 f$="":c$=CHR$(5):a=0:b=0:h=1:ANGLE1
90 CLS:PRINT"Define function  dy/dx";
100 LOCATE0,1:PRINTc$;"?";f$;:LOCATE0,0:LOCATE1,1:INPUT@100;f$:LOCATE0,0:z=VALF(f$)
110 IFLEN(f$)<17 THENg$=f$ ELSEg$=LEFT$(f$,20)+"..."
120 m$="dy/dx = "+g$:s$="x0":z=a:GOSUB800:a=z
140 s$="y0":z=b:GOSUB800:b=z
150 m$="Step-size  Δh     (Δh>0)":s$="Δh":z=h:GOSUB800:h=z:IFh=<0 THEN150
250 m$="dy/dx = "+g$:n=50
270 ERASEa,b:DIMa(n),b(n):k=32:i=0:j=0:f=a:g=b:GOTO355
300 IFk>31 THENCLS:PRINTm$;TAB(0);"....."; ELSEPRINTc$;".....";
305 f=a(i-1):g=b(i-1):j=i
310 x=f:y=g:p=VALF(f$)*h
320 x=f+h/2:y=g+p/2:q=VALF(f$)*h
330 y=g+q/2:r=VALF(f$)*h
340 x=f+h:y=g+r:s=VALF(f$)*h
350 f=f+h:g=g+(p+2*q+2*r+s)/6
355 a(i)=f:b(i)=g
360 y$="="+STR$(g):IFSGNf<0 THENz$="y("+STR$(f)+") " ELSEz$="y("+MID$(STR$(f),2)+") "
365 l=LEN(z$)+LEN(y$):IFl>31 THENCLS:PRINTz$;TAB(0);y$; ELSEIFk>31 THENCLS:PRINTm$;TAB(0);z$;y$; ELSEPRINTc$;z$;y$;
370 z=ASC(INPUT$(1,@)):k=l:IFz=29 ORz=28 THEN90
375 IFz=31 ANDi=n THEN370
380 IFz=13 ORz=31 THENIFi=n THEN100 ELSEi=i+1:f=a(i):g=b(i):IFj>=i THEN360 ELSE300
390 IFz=30 ANDi>0 THENi=i-1:f=a(i):g=b(i):GOTO360
400 GOTO370
450 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RETURN
800 CLS:PRINTm$;
810 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=100 THENIFERR=2 THENRESUME100 ELSERESUMENEXT
1020 IFERL=810 THENRESUME810
1030 GOSUB450:RESUME90
FIN DU PROGRAMME 63B1


P5230
5 ONERRORGOTO1000:DEFSEG=0
10 MODE8:DIM:c$=CHR$(5):n=2:x=0:ERASEa,b:m$="Lagrange's interpolation"
20 CLS:PRINTm$;TAB(0);"1:x       2:set data";
30 k=VAL(INPUT$(1,@)):ONk GOTO200,60
40 GOTO30
60 CLS:PRINT"Number of data";
70 s$="n":z=n:GOSUB500:n=z:IFw THEN20
75 IFn<2 ORn>200 ORFRACn<>0 THEN 70
80 DIMa(n),b(n):LOCATE15,0:PRINT"=";n;
110 FORi=1 TOn
120 s$="x"+MID$(STR$(i),2):z=a(i):GOSUB500:IFw THENIFi=1 THEN60 ELSEi=i-1 ELSEa(i)=z
130 s$="y"+MID$(STR$(i),2):z=b(i):GOSUB500:IFw THEN120 ELSEb(i)=z
140 NEXT:GOTO20
200 LOCATE0,1:PRINTc$;"x?";:INPUT@10;z$:LOCATE0,0:IFz$="" THEN20 ELSEx=VALF(z$)
220 c=0:FORi=1 TOn
230 p=1:FORj=1 TOn
240 IFi<>j THENp=p*(x-a(j))/(a(i)-a(j))
250 NEXT
260 c=c+p*b(i):NEXT
280 LOCATE12,1:PRINT":y=";STR$(c);:z$=INPUT$(1,@):GOTO200
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:w=PEEK(&H65B)-13:RETURN
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=500 THENRESUME500
1020 IFERL=200 THENRESUME200
1030 IFERL=80 THENERASEa,b:RESUME80
1050 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 670A


P5250
5 ONERRORGOTO1000
10 MODE8:DIM:ERASEa:DIMa(8):c$=CHR$(5):DEFCHR$(255)="82FE8280C0"
20 RESTORE400:FORi=0 TO8:READa(i):NEXT:x=1
30 CLS:PRINT"Gamma function  (0<x≤70)";
50 LOCATE0,1:PRINTc$;"x =";x;"?";:INPUT@6;x:LOCATE0,0:IFx=<0 ORx>70 THEN50
70 x$=MID$(STR$(x),2)
80 LOCATE0,1:PRINTc$;"Γ(";x$;") = .....";
100 IFx<1 THENy=x:GOSUB300:f=f/y:GOTO200
110 IFx=<5 THENy=x-INTx:GOSUB300:FORi=1TOx-1:f=f*(y+i):NEXT:GOTO200
150 f=EXP((x-.5)*LNx-x+.5*LN(2*PI)+1/12/x-1/360/x^3+1/1260/x^5-1/1680/x^7)
200 IFf THENf=ROUND(f,LOG(ABSf)-7)
210 PRINTc$;"Γ(";x$;") =";f;:z$=INPUT$(1,@):GOTO50
300 f=a(0):FORi=1 TO8:f=f*y+a(i):NEXT:RETURN
400 DATA.035868343,-.193527818,.482199394,-.756704078,.918206857,-.897056937,.988205891,-.577191652,1
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=50 THENRESUME50
1020 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME 69DB


P5260
5 ONERRORGOTO500
10 MODE8:DIM:c$=CHR$(5)
20 CLS:PRINT"Jn(x)         (0≤n≤9,0≤x≤30)";
30 LOCATE0,1:PRINTc$;"n?   :x?      :J=";
40 LOCATE2,1:INPUT@3;n$:LOCATE0,0:n=VALF(LEFT$(n$,3)):u=ABSn:IFn<0 ORu>=10 ORFRACu<>0 THEN400
60 LOCATE8,1:INPUT@6;x$:LOCATE0,0:x=VALF(LEFT$(x$,6)):v=ABSx:IFx<0 ORv>30 THEN410
80 LOCATE17,1:PRINT" .....";:GOSUB200
100 IFn<0 THENr=r*(-1)^u
110 IFr<>0 ANDABSr>=1e-90 THENr=ROUND(r,LOG(ABSr)-7)
115 IFr<>0 ANDABSr<1e-90 THENr=r*1e10:r=ROUND(r,LOG(ABSr)-7):r=r/1e10
120 LOCATE18,1:PRINT"     ";:LOCATE17,1:PRINTr;:z$=INPUT$(1,@):GOTO30
200 IFv+u=0 THENr=1:RETURN
210 IFv=0 THENr=0:RETURN
220 k=INT(1+3*v^(1/12)+9*v^(1/3)+(ABS(u-v)+ABS(u+v))/2)
230 s=0:b=1.5:c=0
240 a=2*k/x*b-c:k=k-1
250 IFk=u THENr=a
260 IFk=0 THEN290
270 IF(k MOD 2)=0 THENs=s+a
280 c=b:b=a:GOTO240
290 s=2*s+a:r=r/s
300 RETURN
400 LOCATE2,1:PRINT"   ";:GOTO40
410 LOCATE8,1:PRINT"      ";:GOTO60
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=40 THENRESUME400
520 IFERL=60 THENRESUME410
530 LOCATE17,1:PRINT"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 6D30


P5270
5 ONERRORGOTO500
10 MODE8:DIM:c$=CHR$(5)
20 CLS:PRINT"Yn(x)         (0≤n≤9,0<x≤30)";
30 LOCATE0,1:PRINTc$;"n?   :x?      :Y=";
40 LOCATE2,1:INPUT@3;n$:LOCATE0,0:n=VALF(LEFT$(n$,3)):u=ABSn:IFn<0 ORu>=10 ORFRACu<>0 THEN400
60 LOCATE8,1:INPUT@6;x$:LOCATE0,0:x=VALF(LEFT$(x$,6)):v=ABSx:IFx=<0 ORv>30 THEN410
80 LOCATE17,1:PRINT" .....";:GOSUB220
100 IFn<0 THENr=r*(-1)^u
110 IFr<>0 ANDABSr>=1e-90 THENr=ROUND(r,LOG(ABSr)-7)
115 IFr<>0 ANDABSr<1e-90 THENr=r*1e10:r=ROUND(r,LOG(ABSr)-7):r=r/1e10
120 LOCATE18,1:PRINT"     ";:LOCATE17,1:PRINTr;:z$=INPUT$(1,@):GOTO30
220 k=INT(1+3*v^(1/12)+9*v^(1/3)+(ABS(u-v)+ABS(u+v))/2)
230 s=0:b=1.5:c=0:j=0
240 a=2*k/x*b-c:k=k-1
250 IFk=1 THENd=a
260 IFk=0 THEN290
270 IF(k MOD 2)=0 THENs=s+a:j=j+2*a*(-1)^(k/2-1)/k
280 c=b:b=a:GOTO240
290 s=2*s+a:j=j/s
300 j=(a*(.577215664901+LN(v/2))/s+2*j)*2/PI
310 IFn=0 THENr=j:RETURN
320 y=(d/s*j-2/PI/v)/a*s
330 IFu=1 THENr=y:RETURN
340 FORi=2 TOu:e=2*(i-1)*y/x-j:j=y:y=e:NEXT
350 r=e:RETURN
400 LOCATE2,1:PRINT"   ";:GOTO40
410 LOCATE8,1:PRINT"      ";:GOTO60
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=40 THENRESUME400
520 IFERL=60 THENRESUME410
530 LOCATE17,1:PRINT"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 7112


P5280
5 ONERRORGOTO500
10 MODE8:DIM:c$=CHR$(5)
20 CLS:PRINT"In(x)         (0≤n≤9,0≤x≤10)";
30 LOCATE0,1:PRINTc$;"n?   :x?      :I=";
40 LOCATE2,1:INPUT@3;n$:LOCATE0,0:n=VALF(LEFT$(n$,3)):u=ABSn:IFn<0 ORu>=10 ORFRACu<>0 THEN400
60 LOCATE8,1:INPUT@6;x$:LOCATE0,0:x=VALF(LEFT$(x$,6)):v=ABSx:IFx<0 ORv>10 THEN410
80 LOCATE17,1:PRINT" .....";:GOSUB200
100 IFx<0 THENr=r*(-1)^u
110 IFr<>0 ANDABSr>=1e-90 THENr=ROUND(r,LOG(ABSr)-7)
115 IFr<>0 ANDABSr<1e-90 THENr=r*1e10:r=ROUND(r,LOG(ABSr)-7):r=r/1e10
120 LOCATE18,1:PRINT"     ";:LOCATE17,1:PRINTr;:z$=INPUT$(1,@):GOTO30
200 IFv+u=0 THENr=1:RETURN
210 IFv=0 THENr=0:RETURN
220 k=30+(ABS(u-v)+ABS(u+v))/2
230 IFv<2 THENk=k-20
240 c=0:b=1E-99:s=0
250 FORk=INT(k-1) TO0 STEP-1
260 a=2*(k+1)*b/v+c
270 IFk=u THENd=a
280 s=s+a:c=b:b=a
290 NEXT
300 s=2*s-a:r=d/s*EXP(v)
310 RETURN
400 LOCATE2,1:PRINT"   ";:GOTO40
410 LOCATE8,1:PRINT"      ";:GOTO60
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=40 THENRESUME400
520 IFERL=60 THENRESUME410
530 LOCATE17,1:PRINT"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 745F


P5290
5 ONERRORGOTO500
10 MODE8:DIM:c$=CHR$(5)
20 CLS:PRINT"Kn(x)         (0≤n≤9,0<x≤10)";
30 LOCATE0,1:PRINTc$;"n?  :x?      :K=";
40 LOCATE2,1:INPUT@3;n$:LOCATE0,0:n=VALF(LEFT$(n$,3)):u=ABSn:IFn<0 ORu>=10 ORFRACu<>0 THEN450
60 LOCATE8,1:INPUT@6;x$:LOCATE0,0:x=VALF(LEFT$(x$,6)):v=ABSx:IFx=<0 ORv>10 THEN460
80 LOCATE17,1:PRINT" .....";:GOSUB200
100 IFx<0 THENr=r*(-1)^u
110 IFr<>0 ANDABSr>=1e-90 THENr=ROUND(r,LOG(ABSr)-7)
115 IFr<>0 ANDABSr<1e-90 THENr=r*1e10:r=ROUND(r,LOG(ABSr)-7):r=r/1e10
120 LOCATE18,1:PRINT"     ";:LOCATE17,1:PRINTr;:z$=INPUT$(1,@):GOTO30
200 IFv>2 THEN400
210 c=0:b=1E-99:s=0
220 FORk=11 TO0 STEP-1:a=2*(k+1)*b/v+c:s=s+a:c=b:b=a:NEXT
230 s=2*s-a:d=a/s*EXP(v)
240 w=v/2:e=-LN(w)*d-.5772157+.4227842*w^2+.2306976*w^4+.0348859*w^6+.002627*w^8+.0001075*w^10+.0000074*w^12
250 IFn=0 THENr=e:RETURN
260 f=(c/s)*EXP(v):g=(1/v-f*e)/d
270 IFu=1 THENr=g:RETURN
300 a=e:b=g
310 FORi=1 TOu-1:c=2*i*b/v+a:a=b:b=c:NEXT
320 r=c:RETURN
400 w=2/v:e=(1.2533141-.0783236*w+.0218957*w^2-.0106245*w^3+.0058787*w^4-.0025154*w^5+.0005321*w^6)*EXP(-v)/SQRv
410 IFn=0 THENr=e:RETURN
420 g=(1.2533141+.2349862*w-.0365562*w^2+.0150427*w^3-.0078035*w^4+.0032561*w^5-.0006825*w^6)*EXP(-v)/SQRv
430 IFu=1 THENr=g:RETURN
440 GOTO300
450 LOCATE2,1:PRINT"   ";:GOTO40
460 LOCATE8,1:PRINT"      ";:GOTO60
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=40 THENRESUME450
520 IFERL=60 THENRESUME460
530 LOCATE17,1:PRINT"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 7936


P5300
5 ONERRORGOTO1000
10 MODE8:DIM:DEFCHR$(255)="0000FE0000":e=0:f=0:c=0:d=0:g=0:h=0:l$=CHR$(5):GOSUB580
20 a=e:b=f
30 x=a:GOSUB530:a=x:x=b:GOSUB530:b=x
50 IFb<0 THENa$=" -" ELSEa$=" +"
60 LOCATE0,0:c$=STR$(a):IFa THENd$=STR$(ABSb) ELSEd$=STR$(b)
70 IFABSb=1 THENd$=MID$(d$,1,1)
80 PRINTl$;:IFb=0 THENPRINTc$;ELSE IFa=0 THENPRINTd$;"i"; ELSEPRINTc$;a$;d$;"i";
90 LOCATE26,1:z=ASC(INPUT$(1)):IFz>96 THENz=z-32
100 ONz-41 GOTO260,260,,260,600,260,,,,,,,,,,,,,,,,,,220,,380,,,,420,,480,,,400,360,,,,,,500,,,,,,,,,,,450
110 GOTO90
220 CLS:PRINT"Complex number  A(a+bi)";
230 e$="a":x=a:GOSUB520:a=x:e$="b":x=b:GOSUB520:b=x:GOSUB580:GOTO50
260 CLS:PRINT"Complex number  B(c+di)";
270 e$="c":x=c:GOSUB520:c=x:e$="d":x=d:GOSUB520:d=x
290 GOSUB580:ONz-41 GOTO310,320,,330,,340
310 e=a*c-b*d:f=b*c+a*d:GOTO20
320 e=a+c:f=b+d:GOTO20
330 e=a-c:f=b-d:GOTO20
340 e=(a*c+b*d)/(c*c+d*d):f=(b*c-a*d)/(c*c+d*d):GOTO20
360 g=a:h=b:GOTO30
380 e=a:f=b:a=c:b=d:c=e:d=f:GOTO30
400 a=g:b=h:GOTO30
420 e=SQR(a*a+b*b):f=ACS(a/e):IFb THENf=f*SGN(b)
430 CLS:PRINT"r =";e;TAB(0);"θ =";f;:a$=INPUT$(1,@):GOSUB580:GOTO50
450 e=a*a-b*b:f=2*a*b:GOTO20
480 e=a/(a*a+b*b):f=-b/(a*a+b*b):GOTO20
500 IFb=0 THENIFa<0 THENf=SQR(-a):e=0:GOTO20 ELSEe=SQRa:f=0:GOTO20
510 IFb<>0 THENx=SQR(a*a+b*b):e=SQR((a+x)/2):f=b/(2*e):GOTO20
520 LOCATE0,1:PRINTl$;e$;"=";x;"?";:INPUT@14;x:LOCATE0,0
530 IFx<>0 ANDABSx>=1e-90 THENx=ROUND(x,LOG(ABSx)-8)
540 IFx<>0 ANDABSx<1e-90 THENx=x*1e10:x=ROUND(x,LOG(ABSx)-8):x=x/1e10
550 RETURN
580 CLS:LOCATE0,1:PRINT">A,G,I,S,^,+,-,*,/,M,L,C ?";:RETURN
600 CLS:GOSUB710:i=2
610 PRINT:ONi GOSUB710,715,720,730,740,750,760,770,780,800,810,820
620 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN690
630 IFz<>13 ANDz<>30 ANDz<>31 THEN620
640 IF(z=30 ANDi=1) OR(z=31 ANDi=12) THEN620
650 IFz=30 THENi=i-2
680 i=i+1:IFi<13 THEN610
690 GOSUB580:GOTO50
710 PRINT" A : input A";:RETURN
715 PRINT" G : Gauss  r=|A|:θ=argument(A)";:RETURN
720 PRINT" I : inverse         1/A → A";:RETURN
730 PRINT" S : square root     √A → A";:RETURN
740 PRINT" ^ : square          A² → A";:RETURN
750 PRINT" + : addition        A+B → A";:RETURN
760 PRINT" - : subtraction     A-B → A";:RETURN
770 PRINT" * : multiplication  A*B → A";:RETURN
780 PRINT" / : division        A/B → A";:RETURN
800 PRINT" M : memory          A → M";:RETURN
810 PRINT" L : load            A ← M";:RETURN
820 PRINT" C : change          A ←→ B";:RETURN
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=520 THENRESUME520
1030 LOCATE0,0:PRINTl$;"not found";:a$=INPUT$(1,@):RESUME690
FIN DU PROGRAMME 81AD


P5350
5 ONERRORGOTO2000
10 CLS:MODE8:DIM:a=1:x=0:y=0:c$=CHR$(5):p=2^31:q=2^32:r=0:x$=" 0":ERASEa$,b$:DIMa$(5),b$(15)
40 RESTORE70
50 FORi=0 TO5:READa$(i):NEXT
60 FORi=0 TO15:READb$(i):NEXT
70 DATABIN,DEC,HEX,AND,OR,XOR
80 DATA0000,0001,0010,0011,0100,0101,0110,0111,1000,1001,1010,1011,1100,1101,1110,1111
110 CLS:GOSUB300
120 z=LEN(x$):LOCATE0,0:IFz<17 THENPRINTc$;"[";a$(a);"] ";x$;ELSEPRINTc$;x$;
130 IFr>16 THENGOSUB300
140 r=z:LOCATE31,1
150 f=ASC(INPUT$(1)):IFf>96 THENf=f-32
160 IFf=73 THENGOSUB440:GOSUB290:GOTO330
170 IFf=66 ANDa<>0 THENa=0:GOTO330
180 IFf=68 ANDa<>1 THENa=1:GOTO330
190 IFf=72 ANDa<>2 THENa=2:GOTO330
200 IFf=42 ORf=43 ORf=45 ORf=47 THENGOSUB460:GOSUB290:GOTO800
210 IFf=65 ORf=79 ORf=88 THENGOSUB480:GOSUB290:GOTO900
220 IFf=76 ORf=82 THENGOSUB290:GOTO1040
230 IFf=78 ORf=67 THENGOSUB290:GOTO1100
240 IFf=46 THEN1200
250 GOTO150
270 LOCATE0,0:PRINTc$;"not found";:z$=INPUT$(1,@):RETURN
290 LOCATE0,0:PRINTc$;
300 LOCATE0,1:PRINT">I,B,D,H,+,-,*,/,A,O,X,N,C,L,R?";:RETURN
330 ONa+1 GOSUB360,350,360:GOTO120
350 x$=STR$(x):RETURN
360 IFx<0 THENt=x+q ELSEt=x
370 s=INT(t/65536):t=t-s*65536:x$=HEX$(s)+HEX$(t):IFa=2THENRETURN
380 y$="":FORi=1 TO8:y$=y$+b$(VAL("&H"+MID$(x$,i,1))):NEXT:x$=y$:RETURN
440 m$="Input data x (,B,D,H)     ["+a$(a)+"] x ?":GOSUB550:x=y:RETURN
460 IFa>0 THENm$="["+a$(a)+"] " ELSEm$=""
465 m$=m$+x$+" "+CHR$(f)+" ":GOSUB550:RETURN
480 IFa>0 THENm$="["+a$(a)+"] " ELSEm$=""
485 m$=m$+x$+" "+a$(SGN(f-79)+4)+" ":GOSUB550:RETURN
550 CLS:PRINTm$;:INPUT@34;z$:LOCATE0,0:IFz$="" THENy=x:RETURN
560 l=LEN(z$):IFl>34 THENz$=LEFT$(z$,34)
570 d=a:c=l:IFl<2 THEN630
580 a$=MID$(z$,l-1,1)
590 IFa$="," ORa$="/" THENc=l-2:d=ASC(RIGHT$(z$,1)):z$=LEFT$(z$,c) ELSE630
600 IFd>96 THENd=d-32
610 IFd=66 ORd=68 ORd=72 THENd=SGN(d-68)+1 ELSE550
630 y=0:ONd+1 GOTO670,710,750
650 IFy<-p ORy>q-1 THEN550 ELSEIFy>=p THENy=y-q
660 RETURN
670 FORi=1TOc:z=ASC(MID$(z$,i,1))-48:IFz=0ORz=1THENy=y*2+z ELSE550
680 NEXT:GOTO650
710 e=0:w=0:FORi=1TOc:z=ASC(MID$(z$,i,1))
720 IF(z>47 ANDz<58) ORz=45 ORz=43 ORz=69 THEN730 ELSE550
730 IFw=0 THENy=INT(VALF(z$)):w=1:IFe=1 THEN550
740 NEXT:GOTO650
750 FORi=1 TOc:z=ASC(MID$(z$,i,1)):IFz>96 THENz=z-32
760 z=z-48:IFz<0 ORz>9 THENz=z-7:IFz<10 ORz>15 THEN550
770 y=y*16+z:NEXT:GOTO650
800 ONf-41 GOSUB840,850,,860,,870
810 IFw>=p ORw<-p THENGOSUB270:GOTO120 ELSEx=w:GOTO330
840 w=x*y:RETURN
850 w=x+y:RETURN
860 w=x-y:RETURN
870 w=FIX(x/y):RETURN
900 IFx<0 THENx=x+q
910 IFy<0 THENy=y+q
920 u=x-INT(x/65536)*65536:v=y-INT(y/65536)*65536:GOSUB950:z=u
930 u=INT(x/65536):v=INT(y/65536):GOSUB950:x=z+u*65536:IFx>=p THENx=x-q
940 GOTO330
950 IFu>32767 THENu=u-65536
960 IFv>32767 THENv=v-65536
970 IFf=65 THENu=u ANDv ELSEIFf=79 THENu=u ORv ELSEu=u XORv
980 IFu<0 THENu=u+65536
990 RETURN
1040 IFx<0 THENx=x+q
1050 IFf=76 THENx=x*2 ELSEx=INT(x/2)
1060 IFx>=q THENx=x-q
1070 IFx>=p THENx=x-q
1080 GOTO330
1100 IFf=78 THENx=-x-1 ELSEIFx>-p THENx=-x
1110 GOTO330
1200 CLS:GOSUB1300:i=2
1210 PRINT:ONi GOSUB1300,1310,1320,1330,1340,1350,1360,1370,1380,1390,1400,1410,1420,1430,1440
1220 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN110
1230 IFz<>13 ANDz<>30 ANDz<>31 THEN1220
1240 IF(z=30 ANDi=1) OR(z=31 ANDi=15) THEN1220
1250 IFz=30 THENi=i-2
1270 i=i+1:IFi<16 THEN1210
1280 GOTO110
1300 PRINT" I : input data";:RETURN
1310 PRINT" B : binary mode";:RETURN
1320 PRINT" D : decimal mode";:RETURN
1330 PRINT" H : hexadecimal mode";:RETURN
1340 PRINT" + : addition";:RETURN
1350 PRINT" - : subtraction";:RETURN
1360 PRINT" * : multiplication";:RETURN
1370 PRINT" / : division";:RETURN
1380 PRINT" A : AND";:RETURN
1390 PRINT" O : OR";:RETURN
1400 PRINT" X : XOR";:RETURN
1410 PRINT" N : NOT";:RETURN
1420 PRINT" C : 2's complement";:RETURN
1430 PRINT" L : bit shift left";:RETURN
1440 PRINT" R : bit shift right";:RETURN
2000 IFERR=1 THENCLS:ONERRORGOTO0
2010 IFERL>=840 ANDERR=<870 THENGOSUB270:RESUME120
2020 IFERL=730 THENe=1:RESUMENEXT
2030 GOSUB270:RESUME110
FIN DU PROGRAMME 8E73


P5510
5 ONERRORGOTO500
10 MODE8:DIM:ERASEa:DIMa(5):a$="x1y1x2y2ab":c$=CHR$(5)
20 CLS:PRINT"y=ax+b ←- (x1,y1),(x2,y2)";
30 FORi=0 TO3
40 LOCATE0,1:PRINTc$;MID$(a$,1+2*i,2);"=";a(i);"?";:INPUT@42;a(i):LOCATE0,0
50 NEXT:LOCATE0,1:PRINTc$;
70 IFa(0)=a(2) THENIFa(1)=a(3) THEN100 ELSEPRINTc$;"x =";a(0);:w$=INPUT$(1,@):GOTO30
72 IFa(1)=a(3) THENPRINTc$;"y =";a(1);:w$=INPUT$(1,@):GOTO30
75 a(4)=(a(3)-a(1))/(a(2)-a(0)):a(5)=a(1)-a(4)*a(0)
80 FORi=4 TO5:PRINTc$;MID$(a$,i+5,1);" =";a(i);
82 w=ASC(INPUT$(1,@)):IFw=13 THEN90
84 IFw=30 ANDi>4 THENi=i-2:GOTO90
85 IFw=31 ANDi<5 THEN90
88 GOTO82
90 NEXT:GOTO30
100 LOCATE0,1:PRINTc$;"not found";:w$=INPUT$(1,@):GOTO20
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=40 THENRESUME40
520 RESUME100
FIN DU PROGRAMME 90E5


P5520
5 ONERRORGOTO500
10 MODE8:DIM:a=0:c=0:c$=CHR$(5)
20 CLS:PRINT"Angle(θ) ←- y=ax+b,y=cx+d";
30 s$="a":z=a:GOSUB100:a=z
40 s$="c":z=c:GOSUB100:c=z:LOCATE0,1
60 IFa=c THENPRINTc$;"Parallel"; ELSEIFa*c=-1 THENPRINTc$;"Right angle"; ELSEPRINTc$;"θ =";ATN((c-a)/(1+c*a));
70 w$=INPUT$(1,@):GOTO30
100 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=100 THENRESUME100
520 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 926D


P5530
5 ONERRORGOTO500
10 MODE8:DIM:ERASEa:DIMa(3):a$="a b x1y1":c$=CHR$(5)
20 CLS:PRINT"Distance ←- y=ax+b,(x1,y1)";
30 FORi=0 TO3
40 LOCATE0,1:PRINTc$;MID$(a$,1+i*2,(SGN(i-1.5)+1)/2+1);"=";a(i);"?";:INPUT@42;a(i):LOCATE0,0
50 NEXT
60 LOCATE0,1:PRINTc$;"d =";ABS(a(0)*a(2)-a(3)+a(1))/SQR(a(0)^2+1);:w$=INPUT$(1,@):GOTO30
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=40 THENRESUME40
520 LOCATE0,1:PRINTc$;"not found";:w$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 93D9


P5540
5 ONERRORGOTO500
10 MODE8:DIM:ERASEa:DIMa(1):c$=CHR$(5):x=0:y=0:a=0:m$="XY"
20 CLS:PRINT"(X,Y) ←- (x,y),angle(θ)";
30 s$="x":z=x:GOSUB100:x=z
40 s$="y":z=y:GOSUB100:y=z
50 s$="θ":z=a:GOSUB100:a=z
60 a(0)=x*COSa-y*SINa:a(1)=x*SINa+y*COSa:LOCATE0,1
70 FORi=0 TO1:PRINTc$;MID$(m$,i+1,1);" =";a(i);
75 w=ASC(INPUT$(1,@)):IFw=13 THEN90
80 IFw=30 ANDi>0 THENi=i-2:GOTO90
82 IFw=31 ANDi<1 THEN90
88 GOTO75
90 NEXT:GOTO30
100 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=100 THENRESUME100
520 LOCATE0,1:PRINTc$;"not found";:w$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 95D7


P5550
5 ONERRORGOTO500
10 MODE8:DIM:ERASEa:DIMa(8):l$="abr":m$="x1y1x2y2x3y3":c$=CHR$(5)
20 CLS:PRINT"Circle  (x1,y1),(x2,y2),(x3,y3)";
30 FORk=0 TO5
40 LOCATE0,1:PRINTc$;MID$(m$,1+2*k,2);"=";a(k);"?";:INPUT@42;a(k):LOCATE0,0
50 NEXT:LOCATE0,1:PRINTc$;
60 a=a(0)-a(2):b=a(0)+a(2):c=a(1)-a(3):d=a(1)+a(3):e=(a*b+c*d)/2
70 f=a(2)-a(4):g=a(2)+a(4):h=a(3)-a(5):i=a(3)+a(5):j=(f*g+h*i)/2
80 IFa*h-c*f<>0 THENa(7)=(a*j-e*f)/(a*h-c*f) ELSE160
90 IFa<>0 THENa(6)=(e-a(7)*c)/a ELSEIFf<>0 THENa(6)=(j-a(7)*h)/f ELSE160
100 a(8)=SQR((a(0)-a(6))^2+(a(1)-a(7))^2)
110 CLS:PRINT"Circle  (x-a)²+(y-b)²=r²";:PRINT
120 FORk=1 TO3:PRINTc$;MID$(l$,k,1);" =";a(k+5);
125 w=ASC(INPUT$(1,@)):IFw=13 THEN140
130 IFw=30 ANDk>1 THENk=k-2:GOTO140
132 IFw=31 ANDk<3 THEN140
138 GOTO125
140 NEXT:GOTO20
160 LOCATE0,1:PRINTc$;"not found";:w$=INPUT$(1,@):GOTO20
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=40 THENRESUME40
520 RESUME160
FIN DU PROGRAMME 98F2


P5560
5 ONERRORGOTO500
10 MODE8:DIM:ERASEa:DIMa(4):a$="a b r x1y1":c$=CHR$(5)
20 CLS:PRINT"(x-a)²+(y-b)²=r²,(x1,y1)";
30 FORi=0 TO4
40 LOCATE0,1:PRINTc$;MID$(a$,1+2*i,(SGN(i-2.5)+1)/2+1);"=";a(i);"?";:INPUT@42;a(i):LOCATE0,0
45 IFi=2 AND a(2)<0 THEN40
50 NEXT:LOCATE0,1:PRINTc$;
60 w=(a(3)-a(0))^2+(a(4)-a(1))^2-a(2)^2:IFw<0 THEN100 ELSEPRINTc$;"l:length =";SQR(w);:w$=INPUT$(1,@):GOTO30
100 LOCATE0,1:PRINTc$;"not found";:w$=INPUT$(1,@):GOTO20
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=40 THENRESUME40
520 RESUME100
FIN DU PROGRAMME 9AA4


P5570
5 ONERRORGOTO500
10 MODE8:DIM:ERASEa,b,c$:DIMa(4),b(7),c$(7):a$="a b r x1y1":c$=CHR$(5)
20 CLS:PRINT"(x-a)²+(y-b)²=r²,(x1,y1)";
30 FORi=0 TO4
40 LOCATE0,1:PRINTc$;MID$(a$,i*2+1,(SGN(i-2.5)+1)/2+1);"=";a(i);"?";:INPUT@42;a(i):LOCATE0,0
50 IFi=2 ANDa(2)=<0 THEN40
60 IFi>2 THENIFABS(a(i-3)-a(i))/ABS(a(2))>1e5 THEN30
70 NEXT:a=a(0):b=a(1):r=a(2):x=a(3):y=a(4):LOCATE0,1:PRINTc$;".....";
75 IF(x-a)^2+(y-b)^2<r^2 THENGOTO300
80 IFx=a THEN100 ELSEc=(y-b)/(a-x):d=r^2/(a-x):e=c^2+1:f=c*(c*b+d)+b:g=(c*b+d)^2+b^2-r^2:l=f^2-e*g
90 IFl<0 THEN100 ELSEi=(f+SQRl)/e:k=(f-SQRl)/e:h=c*(i-b)-d+a:j=c*(k-b)-d+a:GOTO200
100 IFy=b THEN300 ELSEc=(x-a)/(b-y):d=r^2/(b-y):e=c^2+1:f=c*(c*a+d)+a:g=(c*a+d)^2+a^2-r^2:l=f^2-e*g
110 IFl<0 THEN300 ELSEh=(f+SQRl)/e:j=(f-SQRl)/e:i=c*(h-a)-d+b:k=c*(j-a)-d+b
200 IFABS(h-j)+ABS(i-k)<>0 THEN210
201 p$="(x1,y1)=(x2,y2)=(x3,y3),":n=0:c$(0)="d"
202 IFb=y THENp$=p$+"x=d":b(0)=x:GOTO400
203 IFx=a THENp$=p$+"y=d":b(0)=y:GOTO400
204 n=1:c$(0)="c":c$(1)="d":p$=p$+"y=cx+d":b(0)=(x-a)/(b-y):b(1)=y-(x-a)/(b-y)*x:GOTO400
210 p$="(x2,y2),":n=2:c$(0)="x2":c$(1)="y2":c$(2)="d"
220 b(0)=h:b(1)=i
230 IFx=h THENp$=p$+"x=d   ":b(2)=x:GOTO250
232 IFy=i THENp$=p$+"y=d   ":b(2)=y:GOTO250
234 n=3:p$=p$+"y=cx+d":c$(2)="c":c$(3)="d":b(2)=(i-y)/(h-x):b(3)=(y-i)/(h-x)*x+y
250 p$=p$+" : (x3,y3),"
260 n=n+1:c$(n)="x3":b(n)=j
270 n=n+1:c$(n)="y3":b(n)=k
275 n=n+1:c$(n)="f"
280 IFx=j THENp$=p$+"x=f":b(n)=x:GOTO400
282 IFy=k THENp$=p$+"y=f":b(n)=y:GOTO400
284 p$=p$+"y=ex+f":c$(n)="e":b(n)=(k-y)/(j-x):n=n+1:c$(n)="f":b(n)=(y-k)/(j-x)*x+y:GOTO400
300 LOCATE0,1:PRINTc$;"not found";:w$=INPUT$(1,@):GOTO20
400 CLS:PRINTp$;:PRINT:FORz=0 TOn
410 PRINTc$;c$(z);" =";b(z);
420 w=ASC(INPUT$(1,@)):IFw=13 THEN480
430 IFw=30 ANDz>0 THENz=z-2:GOTO480
440 IFw=31 ANDz<n THEN480
470 GOTO420
480 NEXT:GOTO20
500 IFERR=1 THENCLS:ONERRORGOTO0
510 IFERL=40 THENRESUME40
550 RESUME300
FIN DU PROGRAMME A158


P5600
5 ONERRORGOTO900
20 MODE8:DIM:a=0:b=0:c=0:h=0:d=0:c$=CHR$(5)
30 CLS:PRINT"Area (triangle)";TAB(0);"1:ah/2  2:ab•sinθ/2  3:f(a,b,c)";:LOCATE0,0:LOCATE0,1
40 w=ASC(INPUT$(1,@))-48:IFw<1 ORw>3 THEN40
50 ONw GOTO100,200,300
100 CLS:PRINT"ah/2        a:base  h:height";
110 s$="a":z=a:GOSUB500:a=z
120 s$="h":z=h:GOSUB500:h=z
130 z=a*h/2:GOTO400
200 CLS:PRINT"ab.sinθ/2       a:b:side";
210 s$="a":z=a:GOSUB500:a=z
220 s$="b":z=b:GOSUB500:b=z
230 s$="θ":z=d:GOSUB500:d=z:IFSINd<0 THEN230
240 z=a*b*SINd/2:GOTO400
300 CLS:PRINT"√(s(s-a)(s-b)(s-c)),s=(a+b+c)/2";
320 s$="a":z=a:GOSUB500:a=z
330 s$="b":z=b:GOSUB500:b=z
340 s$="c":z=c:GOSUB500:c=z
350 s=(a+b+c)/2:z=SQR(s*(s-a)*(s-b)*(s-c))
400 IFz<0 THEN450
410 LOCATE0,1:PRINTc$;"Area =";z;:z$=INPUT$(1,@):GOTO30
450 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):GOTO30
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
920 RESUME450
FIN DU PROGRAMME A49E


P5605
5 ONERRORGOTO900
20 MODE8:DIM:a=0:b=0:h=0:c$=CHR$(5)
30 CLS:PRINT"(a+b)h/2     a:b:base  h:height";
40 s$="a":z=a:GOSUB100:a=z
50 s$="b":z=b:GOSUB100:b=z
60 s$="h":z=h:GOSUB100:h=z
70 LOCATE0,1:PRINTc$;"Area =";(a+b)*h/2;:z$=INPUT$(1,@):GOTO40
100 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN100 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=100 THENRESUME100
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME A611


P5610
5 ONERRORGOTO900
20 MODE8:DIM:a=0:b=0:c=0:h=0:c$=CHR$(5)
30 CLS:PRINT"Area (parallelogram)";TAB(0);"1:ah       2:ab•sinθ";
40 w=ASC(INPUT$(1,@))-48:IFw<1 ORw>2 THEN40
50 ONw GOTO100,200
100 CLS:PRINT"ah       a:base  h:height";
110 s$="a":z=a:GOSUB500:a=z
120 s$="h":z=h:GOSUB500:h=z
130 z=a*h:GOTO400
200 CLS:PRINT"ab•sinθ        a:b:side";
210 s$="a":z=a:GOSUB500:a=z
220 s$="b":z=b:GOSUB500:b=z
230 s$="θ":z=c:GOSUB500:c=z:IFSINc<0 THEN230
240 z=a*b*SINc
400 LOCATE0,1:PRINTc$;"Area =";z;:z$=INPUT$(1,@):GOTO30
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME A874


P5615
5 ONERRORGOTO100
20 MODE8:DIM:r=0:c$=CHR$(5)
30 CLS:PRINT"πr²       r:radius";
50 LOCATE0,1:PRINTc$;"r=";r;"?";:INPUT@42;r:LOCATE0,0:IFr<0 THEN50
70 LOCATE0,1:PRINTc$;"Area =";PI*r*r;:z$=INPUT$(1,@):GOTO50
100 IFERR=1 THENCLS:ONERRORGOTO0
110 IFERL=50 THENRESUME50
120 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME A97B


P5620
5 ONERRORGOTO900
20 MODE8:DIM:l=0:r=0:a=0:c$=CHR$(5):ANGLE0
30 CLS:PRINT"Area (sector)";TAB(0);"1:lr/2     2:πr²θ/360";
40 w=ASC(INPUT$(1,@))-48:IFw<1 ORw>2 THEN40
50 ONw GOTO100,200
100 CLS:PRINT"lr/2  l:circular arc   r:radius";
110 s$="l":z=l:GOSUB500:l=z
120 s$="r":z=r:GOSUB500:r=z
130 z=l*r/2:GOTO400
200 CLS:PRINT"πr²θ/360     r:radius  θ:DEG";
220 s$="r":z=r:GOSUB500:r=z
230 s$="θ":z=a:GOSUB500:a=z:IFa>360 THEN230
240 z=PI*a*r^2/360
400 LOCATE0,1:PRINTc$;"Area =";z;:z$=INPUT$(1,@):GOTO30
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME ABD1


P5625
5 ONERRORGOTO900
10 ANGLE1:MODE8:DIM:l=0:r=0:c$=CHR$(5):n$="(lr-r²sin(l/r))/2"
50 m$=n$+"     l:arc":s$="l":z=l:GOSUB500:l=z
80 m$=n$+"     r:radius":s$="r":z=r:GOSUB500:IFz<l/2/PI THEN80 ELSEr=z
100 LOCATE0,1:PRINTc$;"Area =";(l*r-r^2*SIN(l/r))/2;:z$=INPUT$(1,@):GOTO50
300 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):GOTO50
500 CLS:PRINTm$;
510 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz=<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=510 THENRESUME510
920 RESUME300
FIN DU PROGRAMME AD75


P5630
5 ONERRORGOTO900
20 MODE8:DIM:a=0:b=0:c$=CHR$(5)
30 CLS:PRINT"πab           a:b:radius";
40 s$="a":z=a:GOSUB500:a=z
50 s$="b":z=b:GOSUB500:b=z
60 LOCATE0,1:PRINTc$;"Area =";PI*a*b;:z$=INPUT$(1,@):GOTO40
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME AEC1


P5635
5 ONERRORGOTO900
10 MODE8:DIM:ERASEa,a$:DIMa(2),a$(2):a$(0)="r:inside":a$(1)="R:outside":a$(2)="l:side"
20 ANGLE0:n=0:c$=CHR$(5)
30 CLS:PRINT"Area (polygon)";TAB(0);"1:n,r→A   2:n,R→A   3:n,l→A";
31 f=ASC(INPUT$(1,@))-48:IFf<1 ORf>3 THEN31
32 m$="Polygon  "
35 s$="n:number":z=n:GOSUB500:n=z:IFn<3 ORn>=1e7 ORFRACn<>0 THEN35
36 m$=m$+"(n="+MID$(STR$(n),2)+")  "
37 s$=a$(f-1):z=a(f-1):GOSUB500:a(f-1)=z
40 ONf GOTO41,42,43
41 s=n*a(0)^2*TAN(180/n):GOTO50
42 s=n*a(1)^2*SIN(360/n)/2:GOTO50
43 s=n*a(2)^2/TAN(180/n)/4
50 LOCATE0,1:PRINTc$;"Area =";ABSs;:z$=INPUT$(1,@):GOTO30
500 CLS:PRINTm$;s$;
510 LOCATE0,1:PRINTc$;LEFT$(s$,1);"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN510 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=510 THENRESUME510
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME B185


P5650
5 ONERRORGOTO900
20 MODE8:DIM:r=0:c$=CHR$(5)
30 CLS:PRINT"4πr²        r:radius";
40 LOCATE0,1:PRINTc$;"r=";r;"?";:INPUT@42;r:LOCATE0,0:IFr<0 THEN40
50 LOCATE0,1:PRINTc$;"Surface =";4*PI*r^2;:z$=INPUT$(1,@):GOTO40
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=40 THENRESUME40
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME B293


P5655
5 ONERRORGOTO900
20 MODE8:DIM:a=0:b=0:r=0:h=0:c$=CHR$(5)
30 CLS:PRINT"2πr²h+(a²+b²)    h:height";
50 s$="h":z=h:GOSUB500:h=z
51 CLS:PRINT"2πrh+π(a²+b²)    a:b:r:radius";
52 s$="a":z=a:GOSUB500:a=z
53 s$="b":z=b:GOSUB500:b=z
54 s$="r":z=r:GOSUB500:r=z
60 LOCATE0,1:PRINTc$;"Surface =";PI*(2*r*h+a^2+b^2);:z$=INPUT$(1,@):GOTO30
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME B453


P5660
5 ONERRORGOTO900
20 MODE8:DIM:r=0:h=0:c$=CHR$(5)
30 CLS:PRINT"2πrh+πar,a=√(h(2r-h))  r:radius";
40 s$="r":z=r:GOSUB500:r=z
45 CLS:PRINT"2πrh+πar,a=√(h(2r-h))  h:height";
50 s$="h":z=h:GOSUB500:h=z
60 a=h*(2*r-h):IFa<0 THEN300 ELSEa=SQRa
70 LOCATE0,1:PRINTc$;"Surface =";PI*r*(2*h+a);:z$=INPUT$(1,@):GOTO30
300 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):GOTO30
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
920 RESUME300
FIN DU PROGRAMME B60A


P5665
5 ONERRORGOTO900
20 MODE8:DIM:r=0:h=0:c$=CHR$(5)
30 CLS:PRINT"2πrh+2πr²    r:radius  h:height";
40 s$="r":z=r:GOSUB500:r=z
50 s$="h":z=h:GOSUB500:h=z
70 LOCATE0,1:PRINTc$;"Surface =";2*PI*r*(r+h);:z$=INPUT$(1,@):GOTO40
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME B766


P5670
5 ONERRORGOTO900
20 MODE8:DIM:r=0:h=0:c$=CHR$(5)
30 CLS:PRINT"πr√(r²+h²)+πr²   r:radius";
40 s$="r":z=r:GOSUB500:r=z
45 CLS:PRINT"πr²(r²+h²)+πr²   h:height";
50 s$="h":z=h:GOSUB500:h=z
70 LOCATE0,1:PRINTc$;"Surface =";PI*r*(SQR(r*r+h*h)+r);:z$=INPUT$(1,@):GOTO30
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME B8EA


P5675
5 ONERRORGOTO900
20 MODE8:DIM:r=0:s=0:h=0:c$=CHR$(5)
30 CLS:PRINT"π(R+r)√(h²+(R-r)²)+π(R²+r²)";
40 s$="r":z=r:GOSUB500:r=z
50 s$="R":z=s:GOSUB500:s=z
60 s$="h":z=h:GOSUB500:h=z
70 LOCATE0,1:PRINTc$;"Surface =";PI*(r+s)*SQR(h*h+(s-r)^2)+PI*(r^2+s^2);:z$=INPUT$(1,@):GOTO40
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME BA78


P5700
5 ONERRORGOTO900
20 MODE8:DIM:r=0:c$=CHR$(5)
30 CLS:PRINT"4πr³/3             r:radius";
40 LOCATE0,1:PRINTc$;"r=";r;"?";:INPUT@42;r:LOCATE0,0:IFr<0 THEN40
50 LOCATE0,1:PRINTc$;"Volume =";4*PI*r^3/3;:z$=INPUT$(1,@):GOTO40
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=40 THENRESUME40
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME BB8E


P5705
5 ONERRORGOTO900
20 MODE8:DIM:a=0:b=0:h=0:c$=CHR$(5)
30 CLS:PRINT"πh(3a²+3b²+h²)/6     a:b:radius";
40 s$="a":z=a:GOSUB500:a=z
41 s$="b":z=b:GOSUB500:b=z
42 CLS:PRINT"πh(3a²+3b²+h²)/6     h:height";
43 s$="h":z=h:GOSUB500:h=z
50 LOCATE0,1:PRINTc$;"Volume =";PI*h*(3*a^2+3*b^2+h^2)/6;:z$=INPUT$(1,@):GOTO30
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME BD3C


P5710
5 ONERRORGOTO900
20 MODE8:DIM:r=0:h=0:c$=CHR$(5)
30 CLS:PRINT"2πr²h/3     r:radius  h:height";
40 s$="r":z=r:GOSUB500:r=z
41 s$="h":z=h:GOSUB500:h=z
50 LOCATE0,1:PRINTc$;"Volume =";2*PI*r^2*h/3;:z$=INPUT$(1,@):GOTO40
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME BE96


P5715
5 ONERRORGOTO900
20 MODE8:DIM:r=0:h=0:c$=CHR$(5)
30 CLS:PRINT"πr²h       r:radius  h:height";
40 s$="r":z=r:GOSUB500:r=z
41 s$="h":z=h:GOSUB500:h=z
50 LOCATE0,1:PRINTc$;"Volume =";PI*r^2*h;:z$=INPUT$(1,@):GOTO40
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME BFEB


P5720
5 ONERRORGOTO900
20 MODE8:DIM:r=0:h=0:c$=CHR$(5)
30 CLS:PRINT"πr²h/3       r:radius  h:height";
40 s$="r":z=r:GOSUB500:r=z
41 s$="h":z=h:GOSUB500:h=z
50 LOCATE0,1:PRINTc$;"Volume =";PI*r^2*h/3;:z$=INPUT$(1,@):GOTO40
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME C144


P5725
5 ONERRORGOTO900
20 MODE8:DIM:r=0:s=0:h=0:c$=CHR$(5)
30 CLS:PRINT"πh(r²+rR+R²)/3      r:R:radius";
40 s$="r":z=r:GOSUB500:r=z
41 s$="R":z=s:GOSUB500:s=z
42 CLS:PRINT"πh(r²+rR+R²)/3      h:height";
43 s$="h":z=h:GOSUB500:h=z
50 LOCATE0,1:PRINTc$;"Volume =";PI*h*(s^2+s*r+r^2)/3;:z$=INPUT$(1,@):GOTO30
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME C2EC


P5730
5 ONERRORGOTO900
20 MODE8:DIM:a=0:b=0:c=0:h=0:c$=CHR$(5)
30 CLS:PRINT"bh(2a+c)/6  a:b:c:edge h:height";
40 s$="a":z=a:GOSUB500:a=z
41 s$="b":z=b:GOSUB500:b=z
42 s$="c":z=c:GOSUB500:c=z
43 s$="h":z=h:GOSUB500:h=z
50 LOCATE0,1:PRINTc$;"Volume =";b*h*(2*a+c)/6;:z$=INPUT$(1,@):GOTO40
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME C482


P5735
5 ONERRORGOTO900
20 MODE8:DIM:a=0:b=0:h=0:c$=CHR$(5)
30 CLS:PRINT"abh/3      a:b:edge  h:height";
40 s$="a":z=a:GOSUB500:a=z
41 s$="b":z=b:GOSUB500:b=z
42 s$="h":z=h:GOSUB500:h=z
50 LOCATE0,1:PRINTc$;"Volume =";a*b*h/3;:z$=INPUT$(1,@):GOTO40
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME C5F3


P5740
5 ONERRORGOTO900
20 MODE8:DIM:a=0:b=0:c=0:d=0:h=0:c$=CHR$(5)
30 CLS:PRINT"h(ab+cd+√(abcd))/3 a:b:c:d:edge";
40 s$="a":z=a:GOSUB500:a=z
41 s$="b":z=b:GOSUB500:b=z
42 s$="c":z=c:GOSUB500:c=z
43 s$="d":z=d:GOSUB500:d=z
44 CLS:PRINT"h(ab+cd+√(abcd))/3   h:height";
45 s$="h":z=h:GOSUB500:h=z
50 w=a*b*c*d:LOCATE0,1:PRINTc$;"Volume =";h*(a*b+c*d+SQRw)/3;:z$=INPUT$(1,@):GOTO30
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME C7DE


P5745
5 ONERRORGOTO900
20 MODE8:DIM:a=0:b=0:c=0:c$=CHR$(5)
30 CLS:PRINT"4πabc/3       a:b:c:radius";
40 s$="a":z=a:GOSUB500:a=z
41 s$="b":z=b:GOSUB500:b=z
42 s$="c":z=c:GOSUB500:c=z
50 LOCATE0,1:PRINTc$;"Volume =";4*PI*a*b*c/3;:z$=INPUT$(1,@):GOTO40
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN500 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME30
FIN DU PROGRAMME C951


P5750
5 ONERRORGOTO900
10 MODE8:DIM:ERASEa,a$:DIMa(2),a$(2):a$(0)="r:inside":a$(1)="R:outside":a$(2)="l:side"
20 s=0:n=3:ANGLE0:c$=CHR$(5):m$="Polygon (r,R,l)   "
40 s$="A:area":z=s:GOSUB500:s=z
41 s$="n:number":z=n:GOSUB500:n=z:IFn<3 ORFRACn<>0 THEN41
45 CLS:PRINTm$;:PRINT
50 a(0)=SQR(s/n/TAN(180/n))
51 a(1)=SQR(2*s/n/SIN(360/n))
52 a(2)=SQR(ABS(4*s/n*TAN(180/n)))
100 FORi=0 TO2:PRINTc$;a$(i)" =";a(i);
110 w=ASC(INPUT$(1,@)):IFw=13 THEN170
120 IFw=30 ANDi>0 THENi=i-2:GOTO170
130 IFw=31 ANDi<2 THEN170
160 GOTO110
170 NEXT:GOTO40
500 CLS:PRINTm$;s$;
510 LOCATE0,1:PRINTc$;LEFT$(s$,1);"=";z;"?";:INPUT@42;z:LOCATE0,0:IFz<0 THEN510 ELSERETURN
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=510 THENRESUME510
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME40
FIN DU PROGRAMME CBDC


P5760
5 ONERRORGOTO900
10 MODE8:DIM:ERASEa,a$:DIMa(4),a$(4):c$=CHR$(5)
15 RESTORE800:FORi=0 TO4:READa$(i):NEXT
20 CLS:PRINT"Select number of face";TAB(0);"1:4f  2:6f  3:8f  4:12f  5:20f";
30 f=ASC(INPUT$(1,@))-48:IFf<1 OR f>5 THEN30
40 CLS:PRINT"Select input data";TAB(0);"1:a   2:r   3:R   4:S   5:V";
50 k=ASC(INPUT$(1,@))-48:IFk<1 OR k>5 THEN50
60 RESTORE(800+f*10):READw$,n$,e$,t$,b,c,x,y:f=f-1:k=k-1
90 CLS:PRINTw$;"hedron)";TAB(18);a$(k);
100 LOCATE0,1:PRINTc$;LEFT$(a$(k),1);"=";a(k);"?";:INPUT@42;a(k):LOCATE0,0
105 CLS:PRINTw$;"hedron)";TAB(18);n$;",";e$;"e,";t$;"v";:PRINT
110 ONk+1 GOTO200,111,112,113,114
111 a(0)=a(1)/x:GOTO200
112 a(0)=a(2)/y:GOTO200
113 a(0)=SQR(ABS(a(3)/b):GOTO200
114 a(0)=CUR(a(4)/c)
115 IFa(k)<0 THEN100
200 a(1)=a(0)*x:a(2)=a(0)*y:a(3)=b*a(0)^2:a(4)=c*a(0)^3:m=SGN(-k)+1:n=SGN(4-k)+3
300 FORi=m TOn:IFi=k THEN380
310 PRINTc$;a$(i);" =";a(i);
320 w=ASC(INPUT$(1,@)):IFw=13 THEN380
330 IFw=30 ANDi>m THENIFi=k+1 THENi=i-3:GOTO380 ELSEi=i-2:GOTO380
340 IFw=31 ANDi<n THEN380
370 GOTO320
380 NEXT:GOTO20
800 DATAa:edge,r:inside,R:outside,S:surface,V:volume
810 DATA4(tetra,3,6,4,1.732050807568,.1178511302,.2041241452319,.6123724357
820 DATA6(hexa,4,12,8,6,1,.5,.866025403784
830 DATA8(octa,3,12,6,3.464101615136,.471404520791,.4082482904638,.7071067811865
840 DATA12(dodeca,5,30,20,20.64572880706,7.663118960622,1.113516364411,1.401258538443
850 DATA20(icosa,3,30,12,8.66025403784,2.181694990624,.755761314076,.9510565162947
900 IFERR=1 THENCLS:ONERRORGOTO0
910 IFERL=100 THENRESUME100
920 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME D165


P5800
5 GOTO10010
10 DATAa²-b²,(a+b)(a-b),10,20
20 DATAa³±b³,(a±b)(a²±ab+b²),10,30
30 DATAa4-b4,(a-b)(a+b)(a²+b²),20,40
40 DATAa4+b4,(a²+√2ab+b²)(a²-√2ab+b²),30,50
50 DATAa²±2ab+b²,(a±b)²,40,60
60 DATAa³±3a²b+3ab²±b³,(a±b)³,50,70
70 DATA(a±b)²∓4ab,(a∓b)²,60,80
80 DATAa²+b²+c²+2bc+2ca+2ab,(a+b+c)²,70,90
90 DATAa4+a²b²+b4,(a²-ab+b²)(a²-ab+b²),80,100
100 DATAa³+b³+c³-3abc,(a+b+c)(a²+b²+c²-bc-ca-ab),90,110
110 DATA(ac-bd)²+(ad+bc)²,(a²+b²)(c²+d²),100,120
120 DATA(ac+bd)²+(ad-bc)²,(a²+b²)(c²+d²),110,130
130 DATA(ac+bd)²-(ad+bc)²,(a²-b²)(c²-d²),120,140
140 DATA(ac-bd)²-(ad-bc)²,(a²-b²)(c²-d²),130,150
150 DATAa²(b-c)+b²(c-a)+c²(a-b),-(b-c)(c-a)(a-b),140,160
160 DATA(b-c)³+(c-a)³+(a-b)³,3(b-c)(c-a)(a-b),150,170
170 DATAa4+b4+c4-2b²c²-2c²a²-2a²b²,(a+b+c)(b-c-a)(c-a-b)(a-b-c),160,180
180 DATAx²+(a+b)x+ab,(x+a)(x+b),170,190
190 DATAx³+(a+b+c)x²+(bc+ca+ab)x+abc,(x+a)(x+b)(x+c),180,200
200 DATAa²-b²-c²-2bc,(a+b+c)(a-b-c),190,210
210 DATA(a+b+c)(bc+ca+ab)-abc,(b+c)(c+a)(a+b),200,220
220 DATA(a+b+c)³-(a³+b³+c³),3(b+c)(c+a)(a+b),210,230
230 DATAa³(b-c)+b³(c-a)+c³(a-b),-(b-c)(c-a)(a-b)(a+b+c),220,230
10010 MODE8:DIM:x=10:y=230:r=x
10020 DEFCHR$(255)="A6AAAA9280"
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTm$;;TAB(l);l$;"=";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME D6BB


P5810
5 GOTO10010
10 DATAsin²θ+cos²θ,1,10,20
20 DATA1+tan²θ,sec²θ,10,30
30 DATA1+cot²θ,cosec²θ,20,40
40 DATAsin(α±β),sinα•cosβ±cosα•sinβ,30,50
50 DATAcos(α±β),cosα•cosβ∓sinα•sinβ,40,60
60 DATAtan(α±β),(tanα±tanβ)/(1∓tanα•tanβ),50,70
70 DATAcot(α±β),(cotα•cotβ∓1)/(cotβ±cotα),60,80
80 DATAsin2θ,2sinθ•cosθ,70,90
90 DATAcos2θ,cos²θ-sin²θ,80,100
100 DATAcos2θ,1-2sin²θ,90,110
110 DATAcos2θ,2cos²θ-1,100,120
120 DATAtan2θ,2tanθ/(1-tan²θ),110,130
130 DATAsin(θ/2),±√((1-cosθ)/2),120,140
140 DATAcos(θ/2),±√((1+cosθ)/2),130,150
150 DATAtan(θ/2),±√((1-cosθ)/(1+cosθ)),140,160
160 DATAtan(θ/2),(1-cosθ)/sinθ,150,170
170 DATAtan(θ/2),sinθ/(1+cosθ),160,180
180 DATAtan(θ/2),cosecθ-cotθ,170,190
190 DATAcot(θ/2),±√((1+cosθ)/(1-cosθ)),180,200
200 DATAcot(θ/2),sinθ/(1-cosθ),190,210
210 DATAcot(θ/2),(1+cosθ)/sinθ,200,220
220 DATAcot(θ/2),cosecθ+cotθ,210,230
230 DATAsin3θ,3sinθ-4sin³θ,220,240
240 DATAcos3θ,4cos³θ-3cosθ,230,250
250 DATAtan3θ,(3tanθ-tan³θ)/(1-3tan²θ),240,260
260 DATA2sinα•cosβ,sin(α+β)+sin(α-β),250,270
270 DATA2cosα•sinβ,sin(α+β)-sin(α-β),260,280
280 DATA2cosα•cosβ,cos(α+β)+cos(α-β),270,290
290 DATA2sinα•sinβ,-(cos(α+β)-cos(α-β)),280,300
300 DATAsinα+sinβ,2sin((α+β)/2)cos((α-β)/2),290,310
310 DATAsinα-sinβ,2cos((α+α)/2)•sin((α-β)/2),300,320
320 DATAcosα+cosβ,2cos((α+β)/2)•cos((α-β)/2),310,330
330 DATAcosα-cosβ,-2sin((α+β)/2)•sin((α-β)/2),320,340
340 DATAtan(45°±(θ/2)),secθ±tanθ,330,350
350 DATAtan(45°±(θ/2)),(1±sinθ)/cosθ,340,360
360 DATAtan(45°±(θ/2)),cot(45°∓(θ/2)),350,370
370 DATAtan(45°+θ),(1+tanθ)/(1-tanθ),360,380
380 DATAcot(45°-θ),(1+cotθ)/(1-cotθ),370,380
10010 MODE8:DIM:x=10:y=380:r=x
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTm$;TAB(l);l$;"=";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME DDB7


P5820
5 GOTO10010
10 DATAC,0,10,20
20 DATAxn,nxnˉ¹,10,30
30 DATAx,1,20,40
40 DATA1/x,-1/x²,30,50
50 DATA√x,1/(2√x),40,60
60 DATAa%,a%loga,50,70
70 DATAe%,e%,60,80
80 DATAen%,nen%,70,90
90 DATAlogx,1/x,80,100
100 DATAx%,x%(logx+1),90,110
110 DATAsinx,cosx,100,120
120 DATAcosx,-sinx,110,130
130 DATAtanx,sec²x,120,140
140 DATAcotx,-cosec²x,130,150
150 DATAsecx,secx•tanx,140,160
160 DATAcosecx,-cosecx•cotx,150,170
170 DATAsinax,a•cosax,160,180
180 DATAcosax,-a•sinax,170,190
190 DATAtanax,a•sec²ax,180,200
200 DATAcotax,-a•cosec²ax,190,210
210 DATAsin­¹x,1/√(1-x²)          (|y|<π/2),200,220
220 DATAcosˉ¹x,-1/√(1-x²)           (0<y<π),210,230
230 DATAtanˉ¹x,1/(1+x²)           (|y|<π/2),220,240
240 DATAcotˉ¹x,-1/(1+x²)          (|y|<π/2),230,250
250 DATAsecˉ¹x,"1/(x√(x²-1))    (0<y<π,x²>1)",240,260
260 DATAcosecˉ¹x,"1/(x√(x²-1))  (|y|<π/2,x²>1)",250,270
270 DATAsinhx,coshx,260,280
280 DATAcoshx,sinhx,270,290
290 DATAtanhx,sech²x,280,300
300 DATAcothx,-cosech²x,290,310
310 DATAsechx,-sechx•tanhx,300,320
320 DATAcosechx,-cosechx•cothx,310,330
330 DATAsinhˉ¹x,1/√(1+x²),320,340
340 DATAcoshˉ¹x,"1/√(x²-1)         (y>0,x²>1)",330,350
350 DATAtanhˉ¹x,1/(1-x²)              (x²<1),340,360
360 DATAcothˉ¹x,1/(1-x²)              (x²>1),350,370
370 DATAsechˉ¹x,-1/(x√(1-x²))        (0<x<1),360,380
380 DATAcosechˉ¹x,-1/(x√(x²+1)),370,380
10010 MODE8:DIM:x=10:y=380:r=x
10020 DEFCHR$(255)="A2A49C92A2"
10030 DEFCHR$(254)="0000FE0000"
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINT"y =";m$;TAB(l);l$;"y";CHR$(131);"=";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME E3FA


P5830
5 GOTO10010
10 DATA,x+C,10,20
20 DATAxn,xn+¹/(n+1)+C           (n+1≠0),10,30
30 DATA1/x,log|x|+C,20,40
40 DATA1/(x±a),log|x±a|+C,30,50
50 DATAe%,e%+C,40,60
60 DATAen%,en%/n+C,50,70
70 DATAa%,"a%/loga+C            (a>0,a≠1)",60,80
80 DATAan%,"an%/(n•loga)+C       (a>0,a≠1)",70,90
90 DATAlogx,x(logx-1)+C,80,100
100 DATAxen%,en%/n²(nx-1)+C,90,110
110 DATAsinx,-cosx+C,100,120
120 DATAsinax,-1/a•cosax+C,110,130
130 DATAcosx,sinx+C,120,140
140 DATAcosax,1/a•sinax+C,130,150
150 DATAtanx,-log|cosx|+C,140,160
160 DATAcotx,log|sinx|+C,150,170
170 DATAsin²x,x/2-sin2x/4+C,160,180
180 DATAcos²x,x/2+sin2x/4+C,170,190
190 DATAsec²ax,1/a•tanax+C,180,200
200 DATAcosec²ax,-1/a•cotax+C,190,210
210 DATA1/sinx,log(tan(x/2))+C,200,220
220 DATA1/cosx,log(tan((π/4)+(x/2)))+C,210,230
230 DATAen%sinbx,en%(n•sinbx-b•cosbx)/(n²+b²)+C,220,240
240 DATAen%cosbx,en%(n•cosbx+b•sinbx)/(n²+b²)+C,230,250
250 DATAsinˉ¹x,xsinˉ¹x+√(1-x²)+C,240,260
260 DATAcosˉ¹x,xcosˉ¹x-√(1-x²)+C,250,270
270 DATAsinhx,coshx+C,260,280
280 DATAcoshx,sinhx+C,270,290
290 DATAtanhx,log(coshx)+C,280,300
300 DATA1/√(a²-x²),sinˉ۹(x/a)+C            (|x|<a),290,310
310 DATA1/(a²+x²),1/a•tanˉ¹(x/a)+C,300,320
320 DATA1/√(x²±a²),log(x+√(x²±a²))+C,310,330
330 DATA√(a²-x²),1/2•(x√(a²-x²)+a²sinˉ¹(x/a))+C,320,340
340 DATA1/(x²-a²),1/2a•log((x-a)/(x+a))+C  (x>a),330,340
10010 MODE8:DIM:x=10:y=340:r=x
10020 DEFCHR$(255)="0000FF0000"
10110 RESTORE(r)
10120 READm$,n$,b,c:IFm$="" THENm$=CHR$(8)
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTCHR$(129);" ";m$;" dx";TAB(l);l$;"=";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31ORz=13)ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME EA36


P5840
5 GOTO10010
10 DATA1/p,1,10,20
20 DATA1/p²,t,10,30
30 DATA1/pn,"tnˉ¹/(n-1)!        (n=1,2,3,...)",20,40
40 DATA1/(p±m),e∓mt,30,50
50 DATA1/(p(p+m)),1/m•(1-eˉmt),40,60
60 DATA1/(p²(p+m)),1/m²•(eˉmt-1),50,70
70 DATAa/(p²+a²),sinat,60,80
80 DATAp/(p²+a²),cosat,70,90
90 DATA1/(p²+a²),1/a•sinat,80,100
100 DATAa/(p²-a²),sinhat,90,110
110 DATAp/(p²-a²),coshat,100,120
120 DATA1/(p²-a²),1/a•sinhat,110,130
130 DATA1/(p(p²+a²)),1/a²•(1-cosat),120,140
140 DATA1/(p²(p²+a²)),1/a³(at-sinat),130,150
150 DATA1/((p+m)(p+n)),1/(n-m)•(eˉmt-eˉnt),140,160
160 DATAp/((p+m)(p+n)),1/(m-n)•(meˉmt-neˉnt),150,170
170 DATA1/(p+m)²,teˉnt,160,180
180 DATA1/(p+m)n,"1/(n-1)!•tnˉ¹eˉmt  (n=1,2,3,)",170,190
190 DATAp/(p+m)²,eˉmt(1-mt),180,200
200 DATA1/(p(p+m)²),1/m²•(1-(1+mt)eˉmt),190,210
210 DATA1/(p²(p+m)²),t/m²-2/m³+2/m³•eˉmt+t/m²•eˉmt,200,220
220 DATA(p+n)/(p+m)²,((n-m)t+1)eˉmt,210,230
230 DATA1/(p²+a²)²,1/2a³(sinat-at•cosat),220,240
240 DATAp/(p²+a²)²,t/2a•sinat,230,250
250 DATAp/(p²+a²)²,1/2a•(sinat+at•cosat),240,260
260 DATA(p²-a²)/(p²+a²)²,t•cosat,250,270
270 DATA1/((p+m)²+n²),1/n•eˉmtsinnt,260,280
280 DATA(p+m)/((p+m)²+n²),eˉmtcosnt,270,290
290 DATA1/(p4-a4),1/2a³•(sinhat-sinat),280,300
300 DATAp/(p4-a4),1/2a²•(coshat-cosat),290,310
310 DATAp²/(p4-a4),1/2a•(sinhat+sinat),300,320
320 DATAp³/(p4-a4),1/2•(coshat+cosat),310,330
330 DATAp/(p4+4a4),1/2a²•sinat•sinhat,320,340
340 DATA4a³/(p4+4a4),sinat•coshat-cosat•sinhat,330,350
350 DATA1/p•((p-m)/(p+m)),-1+2eˉmt,340,360
360 DATA1/p²•((p-m)/(p+m)),2/m-t-2/m•eˉmt,350,360
10010 MODE8:DIM:x=10:y=360:r=x
10020 DEFCHR$(255)="7840384038"
10030 DEFCHR$(254)="40F8480000"
10040 DEFCHR$(253)="90B8900000"
10050 DEFCHR$(252)="7850502000"
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINT"F(p)=";m$;TAB(l);l$;n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME F170


P5900
10 GOTO310
100 DATAAc Actinium 89(7-3a) 227.0278
101 DATAAg Silver 47(5-1b) 107.8682
102 DATAAl Aluminium 13(3-3b) 26.98154
103 DATAAm Americium 95(7-3a) (243)
104 DATAAr Argon 18(3-0) 39.948
105 DATAAs Arsenic 33(4-5b) 74.9216
106 DATAAt Astatine 85(6-7b) (210)
107 DATAAu Gold 79(6-1b) 196.9665
108 DATAB Boron 5(2-3b) 10.81
109 DATABa Barium 56(6-2a) 137.33
110 DATABe Beryllium 4(2-2a) 9.01218
111 DATABi Bismuth 83(6-5b) 208.9804
112 DATABk Berkelium 97(7-3a) (247)
113 DATABr Bromine 35(4-7b) 79.904
114 DATAC Carbon 6(2-4b) 12.011
115 DATACa Calcium 20(4-2a) 40.08
116 DATACd Cadmium 48(5-2b) 112.41
117 DATACe Cerium 58(6-3a) 140.12
118 DATACf Californium 98(7-3a) (251)
119 DATACl Chlorine 17(3-7b) 35.453
120 DATACm Curium 96(7-3a) (247)
121 DATACo Cobalt 27(4-8) 58.9332
122 DATACr Chromium 24(4-6a) 51.996
123 DATACs Cesium 55(6-1a) 132.9054
124 DATACu Copper 29(4-1b) 63.546
125 DATADy Dysprosium 66(6-3a) 162.50
126 DATAEr Erbium 68(6-3a) 167.26
127 DATAEs Einsteinium 99(7-3a) (252)
128 DATAEu Europium 63(6-3a) 151.96
129 DATAF Fluorine 9(2-7b) 18.998403
130 DATAFe Iron 26(4-8) 55.847
131 DATAFm Fermium 100(7-3a) (257)
132 DATAFr Francium 87(7-1a) (223)
133 DATAGa Gallium 31(4-3b) 69.72
134 DATAGd Gadolinium 64(6-3a) 157.25
135 DATAGe Germanium 32(4-4b) 72.59
136 DATAH Hydrogen 1(1-1a) 1.00794
137 DATAHe Helium 2(1-0 ) 4.00260
138 DATAHf Hafnium 72(6-4a) 178.49
139 DATAHg Mercury 80(6-2b) 200.59
140 DATAHo Holmium 67(6-3a) 164.9304
141 DATAI Iodine 53(5-7b) 126.9045
142 DATAIn Indium 49(5-3b) 114.82
143 DATAIr Iridium 77(6-8) 192.22
144 DATAK Potassium 19(4-1a) 39.0983
145 DATAKr Krypton 36(4-0) 83.80
146 DATALa Lanthanum 57(6-3a) 138.9055
147 DATALi Lithium 3(2-1a) 6.941
148 DATALr Lawrencium 103(7-3a) (260)
149 DATALu Lutetium 71(6-3a) 174.967
150 DATAMd Mendelevium 101(7-3a) (258)
151 DATAMg Magnesium 12(3-2a) 24.305
152 DATAMn Manganese 25(4-7a) 54.9380
153 DATAMo Molybdenum 42(5-6a) 95.94
154 DATAN Nitrogen 7(2-5b) 14.0067
155 DATANa Sodium 11(3-1a) 22.98977
156 DATANb Niobium 41(5-5a) 92.9064
157 DATANd Neodymium 60(6-3a) 144.24
158 DATANe Neon 10(2-0) 20.179
159 DATANi Nickel 28(4-8) 58.69
160 DATANo Nobelium 102(7-3a) (259)
161 DATANp Neptunium 93(7-3a) 237.0482
162 DATAO Oxygen 8(2-6b) 15.9994
163 DATAOs Osmium 76(6-8) 190.2
164 DATAP Phosphorus 15(3-5b) 30.97376
165 DATAPa Protactinium91(7-3a)231.0359
166 DATAPb Lead 82(6-4b) 207.2
167 DATAPd Palladium 46(5-8) 106.42
168 DATAPm Promethium 61(6-3a) (145)
169 DATAPo Polonium 84(6-6b) (209)
170 DATAPr Praseodymium59(6-3a)140.9077
171 DATAPt Platinum 78(6-8) 195.08
172 DATAPu Plutonium 94(7-3a) (244)
173 DATARa Radium 88(7-2a) 226.0254
174 DATARb Rubidium 37(5-1a) 85.4678
175 DATARe Rhenium 75(6-7a) 186.207
176 DATARh Rhodium 45(5-8) 102.9055
177 DATARn Radon 86(6-0) (222)
178 DATARu Ruthenium 44(5-8) 101.07
179 DATAS Sulfur 16(3-6b) 32.06
180 DATASb Antimony 51(5-5b) 121.75
181 DATASc Scandium 21(4-3a) 44.9559
182 DATASe Selenium 34(4-6b) 78.96
183 DATASi Silicon 14(3-4b) 28.0855
184 DATASm Samarium 62(6-3a) 150.36
185 DATASn Tin 50(5-4b) 118.69
186 DATASr Strontium 38(5-2a) 87.62
187 DATATa Tantalum 73(6-5a) 180.9479
188 DATATb Terbium 65(6-3a) 158.9254
189 DATATc Technetium 43(5-7a) (98)
190 DATATe Tellurium 52(5-6b) 127.60
191 DATATh Thorium 90(7-3a) 232.0381
192 DATATi Titanium 22(4-4a) 47.88
193 DATATl Thallium 81(6-3b) 204.383
194 DATATm Thulium 69(6-3a) 168.9342
195 DATAU Uranium 92(7-3a) 238.0289
196 DATAV Vanadium 23(4-5a) 50.9415
197 DATAW Tungsten 74(6-6a) 183.85
198 DATAXe Xenon 54(5-0) 131.29
199 DATAY Yttrium 39(5-3a) 88.9059
200 DATAYb Ytterbium 70(6-3a) 173.04
201 DATAZn Zinc 30(4-2b) 65.38
202 DATAZr Zirconium 40(5-4a) 91.22
203 DATA\
310 DIM:MODE8:ERASEa$:DIMa$(17)
320 a$(0)="  1a 2a 3a 4a 5a 6a 7a 8  8  8"
330 a$(1)="  1b 2b 3b 4b 5b 6b 7b 0"
340 a$(2)="H"
350 a$(3)="                    He"
360 a$(4)="Li Be"
370 a$(5)="      B  C  N  O  F  Ne"
380 a$(6)="Na Mg"
390 a$(7)="      Al Si P  S  Cl Ar"
400 a$(8)="K  Ca Sc Ti V  Cr Mn Fe Co Ni"
410 a$(9)="Cu Zn Ga Ge As Se Br Kr"
420 a$(10)="Rb Sr Y  Zr Nb Mo Tc Ru Rh Pd"
430 a$(11)="Ag Cd In Sn Sb Te I  Xe"
440 a$(12)="Cs Ba ** Hf Ta W  Re Os Ir Pt"
450 a$(13)="Au Hg Tl Pb Bi Po At Rn"
460 a$(14)="Fr Ra **"
470 a$(15)=""
471 a$(16)="Lanthanoid: La Ce Pr Nd Pm Sm      Eu Gd Tb Dy Ho Er Tm Yb Lu"
472 a$(17)="Actinoid:Ac Th Pa U  Np Pu Am         Cm Bk Cf Es Fm Md No Lr"
490 a=2
500 CLS:IFa<16 THENPRINTa$(a MOD 2);TAB(0);MID$(STR$(INT(a/2)),2);":";a$(a); ELSEPRINTRIGHT$(STR$(a),1)":";a$(a);
510 k=ASC(INPUT$(1,@)):IFk=13 THEN620
520 IFk=28 ANDa<15 ANDFRAC(a/2)=0 THENa=a+1:GOTO500
525 IFk=29 ANDa>2 ANDFRAC(a/2)<>0 THENa=a-1:GOTO500
530 IFk=30 ANDa>3 THENa=a-SGN(17-a)-1:GOTO500
535 IFk=31 ANDa<17 THENa=a+(SGN(14.5-a)+1)/2+1:GOTO500
540 GOTO510
620 CLS:PRINT"Input the symbol :";TAB(0);"Push [EXE] then return";
630 LOCATE19,0:PRINT"   ";:LOCATE19,0:INPUT@3;d$:IFd$="" THEN500 ELSEe=LEN(d$):IFe=3 THEN630
635 d=ASC(d$):IFd>96 THENd=d-32
636 c=ASC(MID$(d$,2)):IFc<91 THENc=c+32
640 IFd<65 ORd>90 THEN630 ELSEd$=CHR$(d)+CHR$(c)
650 b=100+14*INT(d/67)+15*INT(d/70)+17*INT(d/76)+16*INT(d/79)+17*INT(d/83)+16*INT(d/85)
660 RESTORE(b)
665 READc$:e$=LEFT$(c$,2):IFASC(e$)>d THEN630
670 IFe$<>d$ THEN665 ELSELOCATE0,1:PRINTCHR$(5);c$;
690 GOTO630
FIN DU PROGRAMME 048E


P5910
5 GOTO10010
10 DATAF ,9.648456,104 [C•molˉ¹],10³ [emu•molˉ¹],E4,E3,10,20
20 DATAG ,6.6720,×10ˉ¹¹ [m³•sˉ³,•kgˉ¹],×10ˉ8 [cm³•sˉ²•gˉ¹],E-11,E-8,10,30
30 DATANa,6.022045,×10²³ [molˉ¹],×10²³ [molˉ¹],E23,E23,20,40
40 DATAR ,8.31441," [J•molˉ¹•Kˉ¹]",×107 [ergmolK],,E7,30,50
50 DATAR∞,1.097373177,×107 [mˉ¹],×105 [cmˉ¹],E7,E5,40,60
60 DATAVm,22.41383,×10ˉ³ [m³•molˉ¹],×10³ [cm³•molˉ¹],E-3,E3,50,70
70 DATAa0,5.2917706,×10ˉ¹¹ [m],×10ˉ9 [cm],E-11,E-1,60,80
80 DATAc ,299792458," [m•sˉ¹]",×10² [cm•sˉ¹],,E2,70,90
90 DATAe ,1.6021892,×10ˉ¹9 [C],×10ˉ²° [emu],E-19,E-20,80,100
100 DATAg ,9.80665," [m•sˉ²]",×10² [cm•sˉ²],,E2,90,110
110 DATAh ,6.626176,×10ˉ³4 [J•s],×10ˉ²7 [erg•s],E-34,E-27,100,120
120 DATAk ,1.380662,×10ˉ²³ [J•Kˉ¹],×10ˉ¹6 [erg•Kˉ¹],E-23,E-16,110,130
130 DATAme,9.109534,×10ˉ³¹ [kg],×10ˉ²8 [g],E-31,E-28,120,140
140 DATAmn,1.6749543,×10ˉ²7 [kg],×10ˉ²4 [g],E-27,E-24,130,150
150 DATAmp,1.6726485,×10ˉ²7 [kg],×10ˉ²4 [g],E-27,E-24,140,160
160 DATAu ,1.6605655,×10ˉ²7 [kg],×10ˉ²4 [g],E-27,E-24,150,170
170 DATAε0,8.854187818,×10ˉ¹² [F•mˉ¹],,E-12,,160,180
180 DATAµ0,12.5663706144,×10ˉ7 [H•mˉ¹],,E-7,,170,190
190 DATAµb,9.274078,×10ˉ²4 [J•Tˉ¹],×10ˉ²¹ [erg•Gˉ¹],E-24,E-21,180,200
200 DATAµe,9.284832,×10ˉ²4 [J•Tˉ¹],×10ˉ²¹ [erg•Gˉ¹],E-24,E-21,190,210
210 DATAµp,1.4106171,×10ˉ²6 [J•Tˉ¹],×10ˉ²³ [erg•Gˉ¹],E-26,E-23,200,220
220 DATAδ ,5.67032,×10ˉ8 [W•mˉ²•Kˉ4],×10ˉ5[erg•sˉ¹cmˉ²Kˉ4],E-8,E-5,210,220
10010 u=0:MODE8:DIM:x=10:y=220:d$=CHR$(5):r=x:DEFCHR$(255)="060A040A0D"
10050 CLS:LOCATE0,1:PRINT">constant : key A-Z ?";
10110 RESTORE(r)
10120 READm$,n$,s$,t$,x$,y$,b,c:l$="["+MID$(STR$(r/10),2)+"]":IFr<100 THENl$=" "+l$
10130 IFu=1 THENu$=t$ ELSEu$=s$
10140 d=0:LOCATE0,0:PRINTd$;m$;" =";n$;u$;:LOCATE27,1:PRINTl$;
10150 LOCATE30,1:z=ASC(INPUT$(1,@))
10165 IFz>96 THENz=z-32
10170 IFz=28 ANDu<>1 THENu=1:GOTO10130
10180 IFz=29 ANDu<>0 THENu=0:GOTO10130
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10220 IFz>64 ANDz<91 THENGOSUB10310:d=1
10230 IF(z=28 ORz=29) ANDd=1 THEN10140
10280 GOTO10150
10310 LOCATE0,0:PRINT"[";CHR$(z);"]";
10320 IFu=1 THENv$=n$+y$ ELSEv$=n$+x$
10330 a=VAL(v$)
10350 ON z-64GOSUB10401,10402,10403,10404,10405,10406,10407,10408,10409,10410,10411,10412,10413,10414,10415,10416,10417,10418,10419,10420,10421,10422,10423,10424,10425,10426
10401 A=a:RETURN
10402 B=a:RETURN
10403 C=a:RETURN
10404 D=a:RETURN
10405 E=a:RETURN
10406 F=a:RETURN
10407 G=a:RETURN
10408 H=a:RETURN
10409 I=a:RETURN
10410 J=a:RETURN
10411 K=a:RETURN
10412 L=a:RETURN
10413 M=a:RETURN
10414 N=a:RETURN
10415 O=a:RETURN
10416 P=a:RETURN
10417 Q=a:RETURN
10418 R=a:RETURN
10419 S=a:RETURN
10420 T=a:RETURN
10421 U=a:RETURN
10422 V=a:RETURN
10423 W=a:RETURN
10424 X=a:RETURN
10425 Y=a:RETURN
10426 Z=a:RETURN
FIN DU PROGRAMME 0DA0


P5920
5 GOTO10010
10 DATAHCOOH,HCOOˉ + H+,10,20,1.77×10ˉ4,a,
20 DATACH3COOH,CH3COOˉ + H+,10,30,1.75×10ˉ5,a,
30 DATAC6H5COOH,C6H5COOˉ + H+,20,40,6.3110,a,2
40 DATAH2CO3,H+ + HCO3ˉ,30,50,4.45×10ˉ7,a,
50 DATAC6H5OH,C6H5Oˉ + H+,40,60,1.00×10ˉ¹°,a,2
60 DATANH3 + H2O,NH4+ + OHˉ,50,70,1.78×10ˉ5,b,1
70 DATAC5H5N + H2O,C5H5NH+ + OHˉ,60,80,1.5×10ˉ9,b,
80 DATAC6H5NH2 + H2O,C6H5NH3 + OHˉ,70,80,3.8×10ˉ¹°,b,2
10010 MODE8:DIM:x=10:y=80:r=x
10020 DEFCHR$(252)="2E2A3A0000"
10030 DEFCHR$(253)="2A2A3E0000"
10035 DEFCHR$(254)="3A2A2E0000"
10040 DIM:ERASEa$:DIMa$(2):RESTORE10080
10050 FORi=1 TO2:READa$(i):NEXT
10080 DATA38083E0000,3E2A2E0000
10110 RESTORE(r)
10120 READm$,n$,b,c,d$,e$,d:CLS
10125 IFd THENDEFCHR$(255)=a$(d)
10130 l$="["+MID$(STR$(r/10),2)+"]"
10140 CLS:PRINTm$;" ←→ ";n$;TAB(0);"K";e$;" = ";d$;" [mol/l]";TAB(28);l$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29ANDr<>x THENr=x:GOTO10110
10180 IFz=28ANDr<>y THENr=y:GOTO10110
10190 IFz=30ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME 1117


P5930
5 GOTO10010
10 DATAUniformly accelerated motion,"v0=v+at , a=Δv/Δt , s=v0t+at²/2",10,20,
20 DATANewton's equation of motion,F=ma,10,30,
30 DATACircular motion,T=2πr/v=2π/ω=1/f,20,40,
40 DATACircular motion,"ω=2π/T=2πf=v/r , F=mrωa#178;=mv/r²",30,50,
50 DATASimple harmonic oscillation,"x=r•sinωt , v=rω•cosωt , a=-ω²x",40,60,
60 DATAHooke's law,F=-kx,50,70,
70 DATASpring,"a=F/m=-k/mx , T=2π√(m/k)",60,80,
80 DATASimple pendulum,"a=F/m=-g/l•x , T=2π√(l/g)",70,90,
90 DATAPotential energy,Ep=mgh,80,100,
100 DATAElastic energy   (spring),Ee=1/2•kx²,90,110,
110 DATAKinetic energy,Ek=1/2•mv²,100,120,
120 DATACoefficient of friction,F=µN,110,130,
130 DATAWork,W=Fs,120,140,
140 DATAKepler's law (3'rd),T²/r³=Constant,130,150,
150 DATAUniversal gravitation,"F=G•Mm/r² , G=6.7*10ˉ¹¹[N•m²/kg²]",140,160,
160 DATAPotential energy   (planet),Up=-G•Mm/r ,150,170,
170 DATAKinetic energy   (planet),Ek=1/2•mr²ω²,160,180,
180 DATAMoment of inertia,"I=mr² , E=1/2•Iω²",170,190,
190 DATAAngular momentum,J=Iω,180,200,
200 DATAConservation of momentum,mv1+MV1=mv2+MV2,190,200,
10010 MODE8:DIM:x=10:y=200:r=x
10020 DEFCHR$(255)="202048F808"
10030 DEFCHR$(254)="3E020C223E"
10040 DEFCHR$(253)="2E2A3A0000"
10050 DEFCHR$(252)="123E020000"
10110 RESTORE(r)
10120 CLS:READm$,n$,b,c,d
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 PRINTm$;TAB(l);l$;n$;:LOCATE0,0:LOCATE1,1
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME 16A9


P5932
5 GOTO10010
10 DATAWave,"v=λ/T=fλ , y=a•sin2π(t/T-x/λ)",10,20,
20 DATAWave of string,v=√(F/ρ),10,30,1,3E40484830
30 DATAInterference,"l2-l1=(2n+1)λ/2 , l2-l1=nλ",20,40,
40 DATAStationary wave,"l=nλ/2 , l=(2n-1)λ/4   (n≠0)",30,50,
50 DATARefraction,n=sinθ/sinφ=v1/v212,40,60,
60 DATANatural frequency (wave),f=(1/2l)•√(T/ρ),50,70,1,3E40484830
70 DATAVelocity of sound,v=331.5+0.61T,60,80,
80 DATADoppler effect,f=f0•(v-v1)/(v-v2),70,90,
90 DATABeat,f=f1-f2    (f1>f2),80,100,
100 DATAReflectivity,R0=((n1-n2)/(n1+n2)),90,110,
110 DATACritical angle,sinθ=n1/n2,100,120,
120 DATAde Broglie wave,λ=h/mv,110,130,
130 DATAQuantum condition,2πr=nh/mv=nλ,120,140,
140 DATAPhotoelectron,1/2•mv²=hν-W,130,150,1,3E02040830
150 DATAFrequency condition,hν=Em-En    (m>n),140,160,
160 DATALight wave,"λ=c/ν , c=2.998*108 [m/s]",150,160,1,3E02040830
10010 MODE8:DIM:x=10:y=160:r=x
10020 DEFCHR$(255)="424C300806"
10030 DEFCHR$(253)="2E2A3A0000"
10050 DEFCHR$(252)="123E020000"
10110 RESTORE(r)
10120 CLS:READm$,n$,b,c,d:IFd=1 THENREADd$:DEFCHR$(254)=d$
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 PRINTm$;TAB(l);l$;n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME 1B5B


P5934
5 GOTO10010
10 DATAOhm's law,"V=IR   (I=Q/t , R=ρ•l/S)",10,20,1,3E40484830
20 DATAResistance,"R=R1+R2 , 1/R=1/R1+1/R2",10,30,
30 DATADC circuit,V=E-IR,20,40,
40 DATADC power & Joule heat,"P=IV=I²R , W=IVt=Pt",30,50,
50 DATAConductance,G=1/R=I/V,40,60,
60 DATAKirchhoff's law,"∑±I=0 , V∑±=0",50,70,
70 DATAWheatstone bridge,R0R1=R2R3,60,80,1,2A2A3E0000
80 DATAAC instantaneous value,"V=V0•sinωt , I=I0•sinωt",70,90,
90 DATAAC effective value,"I=I0/√2 , V=V0/√2",80,100,
100 DATAAC power,P=VI=V0I0/2,90,110,
110 DATAPower factor,P=VI•cosφ,100,120,
120 DATATransformer,"I1V1=I2V2 , N2/N1=V2/V1",110,130,
130 DATAReactance,"X=ωL=2πfL , X=1/ωC=1/2πfC",120,140,
140 DATAImpedance,"Z=√(R²+(ωL-1/ωC)²) , V0=ZI0",130,150,
150 DATANatural frequency (circuit),f0=1/2π√(LC),140,160,
160 DATAElectric oscillation,1/2•Q²/C+1/2•LI²=Constant,150,160,
10010 MODE8:DIM:x=10:y=160:r=x
10020 DEFCHR$(255)="3E020C223E"
10040 DEFCHR$(253)="2E2A3A0000"
10050 DEFCHR$(252)="123E020000"
10110 RESTORE(r)
10120 CLS:READm$,n$,b,c,d:IFd=1 THENREADd$:DEFCHR$(254)=d$
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 PRINTm$;TAB(l);l$;n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME 2008


P5936
5 GOTO10010
10 DATACoulomb's law (electric f.),"F=k0•Q1Q2/r² , k0=9*109[N•m²/C²]",10,20,
20 DATAElectric field,"E=V/d , F=QE , W=QV",10,30,
30 DATACapacitance,"Q=CV , C=ε0•S/d",20,40,
40 DATACapacitance,"C=C1+C2 , 1/C=1/C1+1/C2",30,50,
50 DATADielectric constant,"D=ε0E , C=εC0",40,60,
60 DATAElectrostatic energy,U=1/2•QV=1/2•CV²,50,70,
70 DATAElectrons in electric field,"a=QE/m , 1/2•mv²=eV",60,80,
80 DATACoulomb's law (magnetic f.),"F=k0•m1m2/r² , k0=107/(4π)²",70,90,
90 DATAMagnetic field,"H=I/2πr , H=I/2r , H=nI",80,100,
100 DATAMagnetic field,F=µ0IHl=IBl,90,110,
110 DATAMagnetic flux density,B=m/4πr²=µ0H,100,120,
120 DATALorentz force,"F=QvB , r=mv/QB",110,130,
130 DATAElectrons in magnetic field,"1/2•mv²=Q²B²r²/2m , ω=v/r=QB/m",120,140,
140 DATAFaraday's law of induction,V=-n•Δφ/Δt,130,150,
150 DATAElectromagnetic induction,"V=El=vBl , I=vBl/R",140,160,
160 DATAMutual induction,V2=-M•ΔI1/Δt,150,170,
170 DATASelf-induction,V'=-L•ΔI/Δt,160,170,
10010 MODE8:DIM:x=10:y=170:r=x
10020 DEFCHR$(254)="3E020C223E"
10040 DEFCHR$(253)="2E2A3A0000"
10050 DEFCHR$(252)="123E020000"
10110 RESTORE(r)
10120 CLS:READm$,n$,b,c,d
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 PRINTm$;TAB(l);l$;n$;:LOCATE0,0:LOCATE1,1
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME 2524


P5938
5 GOTO10010
10 DATAAbsolute temperature,T[K]=t[°C]+273.15,10,20,
20 DATAHeat capacity,Q=CT=mcT,10,30,
30 DATAMechanical equivalent of heat,"W=JQ , J=4.19 [J/cal]",20,40,
40 DATABoyle's law,PV=Constant  (T=constant),30,50,
50 DATAVolume & Temperature,V=V0(1+T/273),40,60,
60 DATACharle's law,V/V0=T/T0,50,70,
70 DATAEquation of state,"PV=nRT , R=8.31 [J/K]",60,80,
80 DATALaw of partial pressures,P=P1+P2+P3+...,70,90,1,2A2A3E0000
90 DATAPressure,P=1/3•nmv²,80,100,1,B08C828CB0
100 DATAInternal energy,U=1/2mv²N=3/2•nRT,90,110,1,B08C828CB0
110 DATASpecific heat,"Cv=ΔU/ΔT=3R/2 , Cp=ΔU/ΔT+R=5R/2",100,120,
120 DATAHalf life,N=N0(1/2)t%    (x=1/T),110,130,1,40F8480000
130 DATAMass-energy relation ,E=mc²,120,130,
10010 MODE8:DIM:x=10:y=130:r=x
10040 DEFCHR$(253)="2E2A3A0000"
10050 DEFCHR$(252)="123E020000"
10110 RESTORE(r)
10120 CLS:READm$,n$,b,c,d:IFd=1 THENREADd$:DEFCHR$(254)=d$
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 PRINTm$;TAB(l);l$;n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME 2941


P5950
5 GOTO10010
10 DATAx[cm],0.01x[m],X[m]=0.01*x[cm],10,20
20 DATAx[cm],0.393701x[in],X[in]=.393701*x[cm],10,30
30 DATAx[cm],0.0328084x[ft],X[ft]=.0328084*x[cm],20,40
40 DATAx[cm],0.0109361x[yd],X[yd]=.0109361*x[cm],30,50
50 DATAx[cm],0.00000621371x[mile],X[mile]=6.21371E-6*x[cm],40,60
60 DATAx[m],100x[cm],X[cm]=100*x[m],50,70
70 DATAx[m],39.3701x[in],X[in]=39.3701*x[m],60,80
80 DATAx[m],3.28084x[ft],X[ft]=3.28084*x[m],70,90
90 DATAx[m],1.09361x[yd],X[yd]=1.09361*x[m],80,100
100 DATAx[m],0.000621371x[mile],X[mile]=.000621371*x[m],90,110
110 DATAx[in],2.54x[cm],X[cm]=2.54*x[in],100,120
120 DATAx[in],0.0254x[m],X[m]=.0254*x[in],110,130
130 DATAx[in],0.0833333x[ft],X[ft]=.0833333*x[in],120,140
140 DATAx[in],0.0277778x[yd],X[yd]=.0277778*x[in],130,150
150 DATAx[in],0.0000157828x[mile],X[mile]=1.57828E-5*x[in],140,160
160 DATAx[ft],30.48x[cm],X[cm]=30.48*x[ft],150,170
170 DATAx[ft],0.3048x[m],X[m]=.3048*x[ft],160,180
180 DATAx[ft],12x[in],X[in]=12*x[ft],170,190
190 DATAx[ft],0.333333x[yd],X[yd]=.333333*x[ft],180,200
200 DATAx[ft],0.000189394x[mile],X[mile]=1.89394E-4*x[ft],190,210
210 DATAx[yd],91.44x[cm],X[cm]=91.44*x[yd],200,220
220 DATAx[yd],0.9144x[m],X[m]=.9144*x[yd],210,230
230 DATAx[yd],36x[in],X[in]=36*x[yd],220,240
240 DATAx[yd],3x[ft],X[ft]=3*x[yd],230,250
250 DATAx[yd],0.000568182x[mile],X[mile]=5.68182E-4*x[yd],240,260
260 DATAx[mile],160934.4x[cm],X[cm]=160934.4*x[mile],250,270
270 DATAx[mile],1609.344x[m],X[m]=1609.344*x[mile],260,280
280 DATAx[mile],63360x[in],X[in]=63360*x[mile],270,290
290 DATAx[mile],5280x[ft],X[ft]=5280*x[mile],280,300
300 DATAx[mile],1760x[yd],X[yd]=1760*x[mile],290,300
10010 MODE8:DIM:x=10:y=300:r=x
10050 p$="Metric conversion (length)"
10110 RESTORE(r)
10120 READm$,n$,s$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTp$;TAB(l);l$;m$;" -→ ";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IFz=31 ANDr<>c THENr=c:GOTO10110
10210 IFz=13 THENCALC$=s$:CALCJMP
10280 GOTO10150
FIN DU PROGRAMME 30BA


P5960
5 GOTO10010
10 DATAx[m²],0.01x[a],X[a]=0.01*x[m²],10,20
20 DATAx[m²],0.000247105x[acre],X[acre]=2.47105E-4*x[m²],10,30
30 DATAx[m²],0.000000386102x[mile²],X[mile²]=3.86102E-7*x[m²],20,40
40 DATAx[a],100x[m²],X[m²]=100*x[a],30,50
50 DATAx[a],0.0247105x[acre],X[acre]=0.0247105*x[a],40,60
60 DATAx[a],0.0000386102x[mile²],X[mile²]=3.86102E-5*x[a],50,70
70 DATAx[acre],4046.86x[m²],X[m²]=4046.86*x[acre],60,80
80 DATAx[acre],40.4686x[a],X[a]=40.4686*x[acre],70,90
90 DATAx[acre],0.0015625x[mile²],X[mile²]=.0015625*x[acre],80,100
100 DATAx[mile²],2589990x[m²],X[m²]=2589990*x[mile²],90,110
110 DATAx[mile²],25899.9x[a],X[a]=25899.9*x[mile²],100,120
120 DATAx[mile²],640x[acre],X[acre]=640*x[mile²],110,120
10010 MODE8:DIM:x=10:y=120:r=x
10050 p$="Metric conversion (area)"
10110 RESTORE(r)
10120 READm$,n$,s$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTp$;TAB(l);l$;m$;" -→ ";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IFz=31 ANDr<>c THENr=c:GOTO10110
10210 IFz=13 THENCALC$=s$:CALCJMP
10280 GOTO10150
FIN DU PROGRAMME 34BA


P5970
5 GOTO10010
10 DATAx[cm³],0.000001x[m³],X[m³]=1e-6*x[cm³],10,20
20 DATAx[cm³],0.0610237x[in³],X[in³]=.0610237*x[cm³],10,30
30 DATAx[cm³],0.0000353147x[ft³],X[ft³]=3.53147E-5*x[cm³],20,40
40 DATAx[cm³],0.001x[l],X[l]=.001*x[cm³],30,50
50 DATAx[cm³],0.000264172x[gal(US)],X[gal(US)]=2.64172E-4*x[cm³],40,60
60 DATAx[cm³],0.000219968x[gal(UK)],X[gal(UK)]=2.19968E-4*x[cm³],50,70
70 DATAx[m³],1000000x[cm³],X[cm³]=1E6*x[m³],60,80
80 DATAx[m³],61023.7x[in³],X[in³]=61023.7*x[m³],70,90
90 DATAx[m³],35.3147x[ft³],X[ft³]=35.3147*x[m³],80,100
100 DATAx[m³],1000x[l],x[l]=1E3*x[m³],90,110
110 DATAx[m³],264.172x[gal(US)],X[gal(US)]=264.172*x[m³],100,120
120 DATAx[m³],219.968x[gal(UK)],X[gal(UK)]=219.968*x[m³],110,130
130 DATAx[in³],16.3871x[cm³],X[cm³]=16.3871*x[in³],120,140
140 DATAx[in³],0.0000163871x[m³],X[m³]=1.63871E-5*x[in³],130,150
150 DATAx[in³],0.000578704x[ft³],X[ft³]=.000578704*x[in³],140,160
160 DATAx[in³],0.0163871x[l],X[l]=.0163871*x[in³],150,170
170 DATAx[in³],0.00432900x[gal(US)],X[gal(US)]=.004329*x[in³],160,180
180 DATAx[in³],0.00360464x[gal(UK)],X[gal(UK)]=.00360464*x[in³],170,190
190 DATAx[ft³],28316.8x[cm³],X[cm³]=28316.8*x[ft³],180,200
200 DATAx[ft³],0.0283168x[m³],X[m³]=.0283168*x[ft³],190,210
210 DATAx[ft³],1728x[in³],X[in³]=1728*x[ft³],200,220
220 DATAx[ft³],28.3168x[l],X[l]=28.3168*x[ft³],210,230
230 DATAx[ft³],7.48052x[gal(US)],X[gal(US)]=7.48052*x[ft³],220,240
240 DATAx[ft³],6.22882x[gal(UK)],X[gal(UK)]=6.22882*x[ft³],230,250
250 DATAx[l],1000x[cm³],X[cm³]=1E3*x[l],240,260
260 DATAx[l],0.001x[m³],X[m³]=.001*x[l],250,270
270 DATAx[l],61.0237x[in³],X[in³]=61.0237*x[l],260,280
280 DATAx[l],0.0353147x[ft³],X[ft³]=.0353147*x[l],270,290
290 DATAx[l],0.264172x[gal(US)],X[gal(US)]=.264172*x[l],280,300
300 DATAx[l],0.219968x[gal(UK)],X[gal(UK)]=.219968*x[l],290,300
310 DATAx[gal(US)],3785.41x[cm³],X[cm³]=3785.41*x[gal(US)],300,320
320 DATAx[gal(US)],0.00378541x[m³],X[m³]=.00378541*x[gal(US)],310,330
330 DATAx[gal(US)],231x[in³],X[in³]=231*x[gal(US)],320,340
340 DATAx[gal(US)],0.133681x[ft³],X[ft³]=.133681*x[gal(US)],330,350
350 DATAx[gal(US)],3.78541x[l],X[l]=3.78541*x[gal(US)],340,360
360 DATAx[gal(US)],0.832672x[gal(UK)],X[gal(UK)]=0.832672*x[gal(US)],350,370
370 DATAx[gal(UK)],4546.09x[cm³],X[cm³]=4546.09*x[gal(UK)],360,380
380 DATAx[gal(UK)],0.00454609x[m³],X[m³]=.00454609*x[gal(UK)],370,390
390 DATAx[gal(UK)],277.42x[in³],X[in³]=277.42*x[gal(UK)],380,400
400 DATAx[gal(UK)],0.160544x[ft³],X[ft³]=.160544*x[gal(UK)],390,410
410 DATAx[gal(UK)],4.54609x[l],X[l]=4.54609*x[gal(UK)],400,420
420 DATAx[gal(UK)],1.20095x[gal(US)],X[gal(US)]=1.20095*x[gal(UK)],410,420
10010 MODE8:DIM:x=10:y=300:r=x
10050 p$="Metric conversion (volume)"
10110 RESTORE(r)
10120 READm$,n$,s$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTp$;TAB(l);l$;m$;" -→ ";n$;:LOCATE0,0:LOCATE0,1
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IFz=31 ANDr<>c THENr=c:GOTO10110
10210 IFz=13 THENCALC$=s$:CALCJMP
10280 GOTO10150
FIN DU PROGRAMME 3FFF


P5980
5 GOTO10010
10 DATAx[g],0.001x[Kg],X[Kg]=.001*x[g],10,20
20 DATAx[g],0.0352740x[oz],X[oz]=.035274*x[g],10,30
30 DATAx[g],0.00220462x[lb],X[lb]=.00220462*x[g],20,40
40 DATAx[Kg],1000x[g],X[g]=1E3*x[Kg],30,50
50 DATAx[Kg],35.2740x[oz],X[oz]=35.274*x[Kg],40,60
60 DATAx[Kg],2.20462x[lb],X[lb]=2.20462*x[Kg],50,70
70 DATAx[oz],28.3495x[g],X[g]=28.3495*x[oz],60,80
80 DATAx[oz],0.0283495x[Kg],X[Kg]=.0283495*x[oz],70,90
90 DATAx[oz],0.0625x[lb],X[lb]=.0625*x[oz],80,100
100 DATAx[lb],453.59237x[g],X[g]=453.59237*x[lb],90,110
110 DATAx[lb],0.45359237x[Kg],X[Kg]=.45359237*x[lb],100,120
120 DATAx[lb],16x[oz],X[oz]=16*x[lb],110,120
10010 MODE8:DIM:x=10:y=120:r=x
10050 p$="Metric conversion (weight)"
10110 RESTORE(r)
10120 READm$,n$,s$,b,c
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTp$;TAB(l);l$;m$;" - ";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IFz=31 ANDr<>c THENr=c:GOTO10110
10210 IFz=13 THENCALC$=s$:CALCJMP
10280 GOTO10150
FIN DU PROGRAMME 43B4


P6210
10 MODE8:DIM:GOSUB500:c$=CHR$(5):x=0
20 CLS:PRINT"Upper probability   N(0,1)";
30 LOCATE0,1:PRINTc$;"x=";x;"?";:INPUT@10;x:LOCATE0,0
60 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6210":GOSUB500:IFsr THEN*
75 IFp THENp=ROUND(p,LOG(ABSp)-6)
80 PRINTc$;"p=";p;:z$=INPUT$(1,@):GOTO30
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=30 THENRESUME30
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 450D


P6220
10 MODE8:DIM:GOSUB500:c$=CHR$(5):n=1:x=0:DEFCHR$(254)="3E02040830"
20 CLS:PRINT"Upper probability   X(x,)";
30 z=n:s$="":GOSUB400:n=z:IFn=<0 ORFRACn<>0 THEN30
40 z=x:s$="x":GOSUB400:x=z
60 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6220":GOSUB500:IFsr THEN*
75 IFp THENp=ROUND(p,LOG(ABSp)-6)
80 PRINTc$;"p=";p;:z$=INPUT$(1,@):GOTO30
400 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=400 THENRESUME400
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 46D1


P6230
10 MODE8:DIM:GOSUB500:c$=CHR$(5):n=1:x=0:DEFCHR$(254)="3E02040830"
20 CLS:PRINT"Upper probability   t(x,)";
30 z=n:s$="":GOSUB400:n=z:IFn=<0 ORFRACn<>0 THEN30
40 z=x:s$="x":GOSUB400:x=z
60 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6230":GOSUB500:IFsr THEN*
75 IFp THENp=ROUND(p,LOG(ABSp)-6)
80 PRINTc$;"p=";p;:z$=INPUT$(1,@):GOTO30
400 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=400 THENRESUME400
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 4892


P6240
10 MODE8:DIM:GOSUB500:c$=CHR$(5):n=1:m=1:x=0:DEFCHR$(254)="3E02040830":DEFCHR$(252)="123E020000":DEFCHR$(253)="2E2A3A0000"
20 CLS:PRINT"Upper probability   F(x,,)";
30 z=n:s$="":GOSUB400:n=z:IFn=<0 ORFRACn<>0 THEN30
40 z=m:s$="":GOSUB400:m=z:IFm=<0 ORFRACm<>0 THEN40
50 z=x:s$="x":GOSUB400:x=z
60 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6240":GOSUB500:IFsr THEN*
75 IFp THENp=ROUND(p,LOG(ABSp)-6)
80 PRINTc$;"p=";p;:z$=INPUT$(1,@):GOTO30
400 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=400 THENRESUME400
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 4ABA


P6310
10 MODE8:DIM:GOSUB500:c$=CHR$(5):x=0:n=2:p=0
20 CLS:PRINT"Cumulative frequency  B(x,n,P)";
30 z=n:s$="n":GOSUB400:n=z:IFn<0 ORFRACn<>0 THEN30
40 z=p:s$="P":GOSUB400:p=z:IFp<0 ORp>1 THEN40
50 z=x:s$="x":GOSUB400:x=z:IFx<0 ORx>n ORFRACx<>0 THEN50
60 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6310":GOSUB500:IFsr THEN*
75 IFs THENs=ROUND(s,LOG(ABSs)-6)
80 PRINTc$;"p=";s;:z$=INPUT$(1,@):GOTO30
400 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=400 THENRESUME400
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 4CB1


P6320
10 MODE8:DIM:GOSUB500:c$=CHR$(5):k=0:x=0:DEFCHR$(254)="424C300806"
20 CLS:PRINT"Cumulative frequency  P(x,)";
30 z=k:s$="":GOSUB400:k=z:IFk<0 THEN30
40 z=x:s$="x":GOSUB400:x=z:IFx<0 ORFRACx<>0 THEN40
60 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6320":GOSUB500:IFsr THEN*
75 IFs THENs=ROUND(s,LOG(ABSs)-6)
80 PRINTc$;"p=";s;:z$=INPUT$(1,@):GOTO30
400 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=400 THENRESUME400
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 4E7F


P6330
10 MODE8:DIM:GOSUB500:c$=CHR$(5):m=2:k=1:n=1:x=0
20 CLS:PRINT"Cumulative frequency H(x,n,M,N)";
30 z=m:s$="N":GOSUB400:m=z:IFm<2 THEN30
40 z=k:s$="M":GOSUB400:k=z:IFk>m THEN40
50 z=n:s$="n":GOSUB400:n=z:IFn>m-k THEN50
60 z=x:s$="x":GOSUB400:x=z:IFx>n ORx>k THEN60
65 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6330":GOSUB500:IFsr THEN*
75 IFs THENs=ROUND(s,LOG(ABSs)-6)
80 PRINTc$;"p=";s;:z$=INPUT$(1,@):GOTO30
400 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:IFz<0 ORFRACz<>0 THEN400 ELSERETURN
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=400 THENRESUME400
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 50A2


P6410
10 MODE8:DIM:GOSUB500:c$=CHR$(5):p=0
20 CLS:PRINT"Percentage points   N(0,1)";
30 LOCATE0,1:PRINTc$;"p=";p;"?";:INPUT@10;p:LOCATE0,0:IFp=<0 ORp>=1 THEN30
60 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6410":GOSUB500:IFsr THEN*
75 IFx THENx=ROUND(x,LOG(ABSx)-6)
80 PRINTc$;"x=";x;:z$=INPUT$(1,@):GOTO30
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=30 THENRESUME30
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 520F


P6420
10 MODE8:DIM:GOSUB500:c$=CHR$(5):n=1:p=0:DEFCHR$(254)="3E02040830"
20 CLS:PRINT"Percentage points  X(x,)";
30 z=n:s$="":GOSUB400:n=z:IFn=<0 ORFRACn<>0 THEN30
40 z=p:s$="p":GOSUB400:p=z:IFp=<0 ORp>1 THEN40
60 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6420":GOSUB500:IFsr THEN*
75 IFx THENx=ROUND(x,LOG(ABSx)-6)
80 PRINTc$;"x=";x;:z$=INPUT$(1,@):GOTO30
400 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=400 THENRESUME400
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 53E5


P6430
10 MODE8:DIM:GOSUB500:c$=CHR$(5):n=1:p=0:DEFCHR$(254)="3E02040830"
20 CLS:PRINT"Percentage points   t(x,)";
30 z=n:s$="":GOSUB400:n=z:IFn=<0 ORFRACn<>0 THEN30
40 z=p:s$="p":GOSUB400:p=z:IFp=<0 ORp>=1 THEN40
60 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6430":GOSUB500:IFsr THEN*
75 IFx THENx=ROUND(x,LOG(ABSx)-6)
80 PRINTc$;"x=";x;:z$=INPUT$(1,@):GOTO30
400 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=400 THENRESUME400
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 55BA


P6440
10 MODE8:DIM:GOSUB500:c$=CHR$(5):n=1:m=1:p=0:DEFCHR$(254)="3E02040830":DEFCHR$(252)="123E020000":DEFCHR$(253)="2E2A3A0000"
20 CLS:PRINT"Percentage points  F(x,,)";
30 z=n:s$="":GOSUB400:n=z:IFn=<0 ORFRACn<>0 THEN30
40 z=m:s$="":GOSUB400:m=z:IFm=<0 ORFRACm<>0 THEN40
50 z=p:s$="p":GOSUB400:p=z:IFp=<0 ORp>1 THEN50
60 LOCATE0,1:PRINTc$;".....";
70 sr=0:GOSUB"LIB0:S6440":GOSUB500:IFsr THEN*
75 IFx THENx=ROUND(x,LOG(ABSx)-6)
80 PRINTc$;"x=";x;:z$=INPUT$(1,@):GOTO30
400 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
500 ONERRORGOTO510:RETURN
510 IFERR=1 THENCLS:ONERRORGOTO0
520 IFERL=400 THENRESUME400
530 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 57F4


P6450
10 MODE8:DIM:CLS:ANGLE1
20 x=RAN#(1):IFx=0 THEN20
25 y=RAN#(1):IFy=0 THEN25
30 x=SQR(-2*LNx):y=2*PI*y
40 z=x*COSy:GOSUB60
50 z=x*SINy:GOSUB60:GOTO20
60 PRINTTAB(0);z;:z$=INPUT$(1,@):RETURN
FIN DU PROGRAMME 5899


P6460
5 ONERRORGOTO100
10 MODE8:DIM:DEFCHR$(254)="424C300806":k=1
20 CLS:PRINT"E(,t)";
30 LOCATE0,1:PRINTCHR$(5);"=";k;"?";:INPUT@10;k:LOCATE0,0:LOCATE0,1
40 x=RAN#(1):IFx=0 THEN40
50 PRINTTAB(0);-LNx/k;:z$=INPUT$(1,@):GOTO40
100 IFERR=1 THENCLS:ONERRORGOTO0
110 RESUME20
FIN DU PROGRAMME 5973


P6500
5 ONERRORGOTO1000
10 MODE8:DIM:ERASEa,a$:DIMa(5),a$(1):a$(1)="Input":a$(0)="Delete":c$=CHR$(5)
20 CLS:PRINT"Statistics  [x]";TAB(0);">In,Del,Clear,List,T-score,P ?";
30 a=ASC(INPUT$(1)):IFa>96 THENa=a-32
40 ONa-66 GOTO300,100,,,,,100,,,500,,,,800,,,,400
50 GOTO30
100 CLS:PRINTa$(SGN(a-68));" data (x)";TAB(21);"[EXE]:menu";:z=SGN(a-69)
110 LOCATE0,1:PRINTc$;"x?";
120 LOCATE2,1:INPUT@12;z$:LOCATE0,0:IFz$="" THEN20 ELSEx=VALF(z$)
150 r=sa+z:s=sb+x*z:u=sd+x*x*z
160 sa=r:sb=s:sd=u:GOTO110
200 c=6
210 sg=sb/sa
220 sm=sd-sg*sb:IFsm<0 THENsm=0
250 si=SQR(sm/sa)
260 sk=SQR(sm/(sa-1))
280 RETURN
300 PRINTc$;"clear data  (Y/N) ?";
310 a$=INPUT$(1,@):IFa$<>"Y" ANDa$<>"y" THEN20
320 sa=0:sb=0:sd=0:GOTO20
400 GOSUB200:IFc<6 ORsi=0 THEN20
430 LOCATE0,1:PRINTc$;"x?";:INPUT@10;z$:LOCATE0,0:IFz$="" THEN20 ELSEs=VALF(z$)
440 LOCATE12,1:PRINT":T=";ROUND((s-sg)/si*10+50,-2);:z$=INPUT$(1,@):GOTO430
500 CLS:GOSUB200:GOSUB580:i=1:GOSUB600:i=2
510 GOSUB600
520 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN20
530 IFz<>13 ANDz<>30 ANDz<>31 THEN520
540 IF(z=30 ANDi=1) OR(z=31 ANDi=c) THEN520
550 IFz=30 THENi=i-2
560 i=i+1:IFi=<c THEN510 ELSE20
580 DEFCHR$(254)="0808003E00"
590 a(0)=sa:a(1)=sb:a(2)=sd:a(3)=sg:a(4)=si:a(5)=sk:RETURN
600 RESTORE(600+i*10):READa$,b$:PRINTTAB(0);a$;TAB(7);":";b$;TAB(13);"=";a(i-1);:RETURN
610 DATACNT,n
620 DATASUMX,x
630 DATASUMX2,x
640 DATAMEANX,x/n
650 DATASDXN,xn
660 DATASDX,xn
800 LOCATE0,1:PRINTc$;".....";:GOSUB200:GOSUB590:RESTORE 610
810 FORi=1 TOc:READa$,b$:LPRINTa$;TAB(10);"=";a(i-1):NEXT:GOTO20
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=120 THENRESUME120
1030 IFERL=430 THENRESUME430
1050 IFERL=210 THENc=3:RESUME280
1060 IFERL=260 THENc=5:RESUME280
1080 IFERL=150 THENLOCATE0,1:PRINTc$;"data over";:z$=INPUT$(1,@):RESUME20
1090 LOCATE0,1:PRINTc$;"not found";:a$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 5F7E


P6510
10 sq=0:GOTO"LIB0:M6510"
FIN DU PROGRAMME 5F97


P6520
10 sq=1:GOTO"LIB0:M6510"
FIN DU PROGRAMME 5FB0


P6530
10 sq=2:GOTO"LIB0:M6510"
FIN DU PROGRAMME 5FC9


P6540
10 sq=3:GOTO"LIB0:M6510"
FIN DU PROGRAMME 5FE2


P6610
10 MODE8:DIM:GOSUB900:c$=CHR$(5):DEFCHR$(254)="A2A49C92A2":t$="N(,) a<<b  :known"
20 CLS:PRINTt$;TAB(0);"input new data (Y/N) ?";:a$=INPUT$(1,@)
25 IFa$<>"Y" ANDa$<>"y" THEN40
30 s$="x":GOSUB"LIB0:S6020":GOSUB900
40 t=0:f=95:r=sa:IFr THENs=sg ELSEs=0
45 CLS:PRINTt$;
50 z=r:s$="n":GOSUB500:r=z
60 z=s:s$="":GOSUB500:s=z
80 z=t:s$="":GOSUB500:t=z
90 CLS:PRINT"Confidence level (1-)[%]";
95 z=f:s$="1-":GOSUB500:f=z:IFf<0 ORf>100THEN95
97 CLS:PRINT"N(,)   ";f;"%";TAB(0);".....";
100 p=(1-f/100)/2:sr=0:GOSUB"LIB0:S6410":GOSUB900:IFsr THEN*
110 z=s-x*t/SQRr:GOSUB400:a=z
120 z=s+x*t/SQRr:GOSUB400:b=z
130 PRINTc$;a;"<  <";b;:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 62F1


P6620
10 MODE8:DIM:GOSUB900:c$=CHR$(5):DEFCHR$(254)="A2A49C92A2":t$="N(,) a<<b"
20 CLS:PRINTt$;TAB(0);"input new data (Y/N) ?";:a$=INPUT$(1,@)
25 IFa$<>"Y" ANDa$<>"y" THEN40
30 s$="x":GOSUB"LIB0:S6020":GOSUB900
40 f=95:r=sa:IFr THENs=sg:t=sk^2 ELSEs=0:t=0
45 CLS:PRINTt$;
50 z=r:s$="n":GOSUB500:r=z
60 z=s:s$="":GOSUB500:s=z
80 z=t:s$="V":GOSUB500:t=z
90 CLS:PRINT"Confidence level (1-)[%]";
95 z=f:s$="1-":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINT"N(,)   ";f;"%";TAB(0);".....";
100 n=r-1:p=(1-f/100)/2:sr=0:GOSUB"LIB0:S6430":GOSUB900:IFsr THEN*
110 z=s-x*SQR(t/r):GOSUB400:a=z
120 z=s+x*SQR(t/r):GOSUB400:b=z
130 PRINTc$;a;"<  <";b;:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 6607


P6630
10 MODE8:DIM:GOSUB900:c$=CHR$(5):t$="N(,) a<<b"
20 CLS:PRINTt$;TAB(0);"input new data (Y/N) ?";:a$=INPUT$(1,@)
25 IFa$<>"Y" ANDa$<>"y" THEN40
30 s$="x":GOSUB"LIB0:S6020":GOSUB900
40 f=95:s=sa:IFs THENr=sm ELSEr=0
45 CLS:PRINTt$;
50 z=s:s$="n":GOSUB500:s=z
60 z=r:s$="S":GOSUB500:r=z
90 CLS:PRINT"Confidence level (1-)[%]";
95 z=f:s$="1-":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINT"N(,)   ";f;"%";TAB(0);".....";
100 n=s-1:p=(1-f/100)/2:sr=0:GOSUB"LIB0:S6420":GOSUB900:IFsr THEN*
105 g=x:p=1-p:GOSUB"LIB0:S6420":GOSUB900:IFsr THEN*
110 z=r/g:GOSUB400:a=z
120 z=r/x:GOSUB400:b=z
130 PRINTc$;a;"<  <";b;:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 6900


P6640
10 MODE8:DIM:GOSUB900:c$=CHR$(5):t$="N(,) a<<b"
20 CLS:PRINTt$;TAB(0);"input new data (Y/N) ?";:a$=INPUT$(1,@)
25 IFa$<>"Y" ANDa$<>"y" THEN40
30 s$="x":GOSUB"LIB0:S6020":GOSUB900
40 f=95:s=sa:IFs THENr=sm ELSEr=0
45 CLS:PRINTt$;
50 z=s:s$="n":GOSUB500:s=z
60 z=r:s$="S":GOSUB500:r=z
90 CLS:PRINT"Confidence level (1-)[%]";
95 z=f:s$="1-":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINT"N(,)   ";f;"%";TAB(0);".....";
100 n=s-1:p=(1-f/100)/2:sr=0:GOSUB"LIB0:S6420":GOSUB900:IFsr THEN*
105 g=x:p=1-p:GOSUB"LIB0:S6420":GOSUB900:IFsr THEN*
110 z=SQR(r/g):GOSUB400:a=z
120 z=SQR(r/x):GOSUB400:b=z
130 PRINTc$;a;"<  <";b;:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 6BFF


P6650
10 MODE8:DIM:GOSUB900:c$=CHR$(5):DEFCHR$(252)="123E020000":DEFCHR$(253)="2E2A3A0000":t$="N(,),N(,) a</<b"
20 CLS:PRINTt$;TAB(0);"input new data x (Y/N) ?";:a$=INPUT$(1,@)
22 IFa$<>"Y" ANDa$<>"y" THEN30
25 s$="x":GOSUB"LIB0:S6020":GOSUB900
30 CLS:PRINTt$;TAB(0);"input new data x (Y/N) ?";:a$=INPUT$(1,@)
32 IFa$<>"Y" ANDa$<>"y" THEN36
35 s$="x":GOSUB"LIB0:S6030":GOSUB900
36 s=sa:IFs>1 THENr=sk^2 ELSEr=0
37 f=95:u=sz:IFu>1 THENt=sl^2 ELSEt=0
45 CLS:PRINTt$;
50 z=s:s$="n":GOSUB500:s=z
60 z=r:s$="V":GOSUB500:r=z
70 z=u:s$="n":GOSUB500:u=z
80 z=t:s$="V":GOSUB500:t=z
90 CLS:PRINT"Confidence level (1-)[%]";
95 z=f:s$="1-":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINT"N(,),N(,)   ";f;"%";TAB(0);".....";
100 n=s-1:m=u-1:p=(1-f/100)/2:sr=0:GOSUB"LIB0:S6440":GOSUB900:IFsr THEN*
105 g=x:n=m:m=s-1:GOSUB"LIB0:S6440":GOSUB900:IFsr THEN*
110 z=t/r/x:GOSUB400:a=z
120 z=t/r*g:GOSUB400:b=z
130 PRINTc$;a;"< / <";b;:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 702D


P6660
10 MODE8:DIM:GOSUB900:c$=CHR$(5):DEFCHR$(252)="123E020000":DEFCHR$(253)="2E2A3A0000":DEFCHR$(254)="A2A49C92A2":t$="N(,),N(,)a<-<b"
20 CLS:PRINTt$;TAB(0);"input new data x (Y/N) ?";:a$=INPUT$(1,@)
22 IFa$<>"Y" ANDa$<>"y" THEN30
25 s$="x":GOSUB"LIB0:S6020":GOSUB900
30 CLS:PRINTt$;TAB(0);"input new data x (Y/N) ?";:a$=INPUT$(1,@)
32 IFa$<>"Y" ANDa$<>"y" THEN36
35 s$="x":GOSUB"LIB0:S6030":GOSUB900
36 r=sa:IFr>1 THENs=sg:t=sm ELSEs=0:t=0
37 f=95:u=sz:IFu>1 THENv=sh:w=sn ELSEv=0:w=0
45 CLS:PRINTt$;
50 z=r:s$="n":GOSUB500:r=z
55 z=s:s$="":GOSUB500:s=z
60 z=t:s$="S":GOSUB500:t=z
70 z=u:s$="n":GOSUB500:u=z
75 z=v:s$="":GOSUB500:v=z
80 z=w:s$="S":GOSUB500:w=z
90 CLS:PRINT"Confidence level (1-)[%]";
95 z=f:s$="1-":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINT"N(,),N(,)   ";f;"%";TAB(0);".....";
100 n=r+u-2:p=(1-f/100)/2:sr=0:GOSUB"LIB0:S6430":GOSUB900:IFsr THEN*
110 z=s-v-x*SQR((1/r+1/u)*((t+w)/n)):GOSUB400:a=z
120 z=s-v+x*SQR((1/r+1/u)*((t+w)/n)):GOSUB400:b=z
130 PRINTc$;a;"< - <";b;:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME 74A8


P6670
10 MODE8:DIM:GOSUB900:c$=CHR$(5):f=95:r=0:s=0
45 CLS:PRINT"B(1,p) a<p<b";
50 z=r:s$="n":GOSUB500:r=z
60 z=s:s$="x":GOSUB500:s=z
90 CLS:PRINT"Confidence level (1-)[%]";
95 z=f:s$="1-":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINT"B(1,p)   ";f;"%";TAB(0);".....";
100 p=(1-f/100)/2:sr=0:GOSUB"LIB0:S6410":GOSUB900:IFsr THEN*
110 e=s/r:z=e-x*SQR(((1-e)*e)/r):GOSUB400:a=z
120 z=e+x*SQR(((1-e)*e)/r):GOSUB400:b=z
130 PRINTc$;a;"< p <";b;:a$=INPUT$(1,@):GOTO45
140 GOTO50
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME45
FIN DU PROGRAMME 770D


P6680
10 MODE8:DIM:GOSUB900:c$=CHR$(5):f=95:DEFCHR$(252)="123E020000":DEFCHR$(253)="2E2A3A0000":r=0:s=0:t=0:u=0
45 CLS:PRINT"B(1,p),B(1,p) a<p-p<b";
50 z=r:s$="n":GOSUB500:r=z
60 z=s:s$="x":GOSUB500:s=z
70 z=t:s$="n":GOSUB500:t=z
80 z=u:s$="x":GOSUB500:u=z
90 CLS:PRINT"Confidence level (1-)[%]";
95 z=f:s$="1-":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINT"B(1,p),B(1,p)   ";f;"%";TAB(0);".....";
100 p=(1-f/100)/2:sr=0:GOSUB"LIB0:S6410":GOSUB900:IFsr THEN*
110 j=s/r:k=u/t:z=j-k-x*SQR(((1-j)*j)/r+((1-k)*k)/t):GOSUB400:a=z
120 z=j-k+x*SQR(((1-j)*j)/r+((1-k)*k)/t):GOSUB400:b=z
130 PRINTc$;a;"< p-p <";b;:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME45
FIN DU PROGRAMME 7A11


P6710
10 sq=226:GOSUB"LIB0:M6710"
FIN DU PROGRAMME 7A2C


P6711
10 sq=62:GOSUB"LIB0:M6710"
FIN DU PROGRAMME 7A46


P6712
10 sq=60:GOSUB"LIB0:M6710"
FIN DU PROGRAMME 7A60


P6720
10 sq=226:GOSUB"LIB0:M6720"
FIN DU PROGRAMME 7A7B


P6721
10 sq=62:GOSUB"LIB0:M6720"
FIN DU PROGRAMME 7A95


P6722
10 sq=60:GOSUB"LIB0:M6720"
FIN DU PROGRAMME 7AAF


P6730
10 sq=226:GOSUB"LIB0:M6730"
FIN DU PROGRAMME 7ACA


P6731
10 sq=62:GOSUB"LIB0:M6730"
FIN DU PROGRAMME 7AE4


P6732
10 sq=60:GOSUB"LIB0:M6730"
FIN DU PROGRAMME 7AFE


P6740
10 sq=226:GOSUB"LIB0:M6740"
FIN DU PROGRAMME 7B19


P6741
10 sq=62:GOSUB"LIB0:M6740"
FIN DU PROGRAMME 7B33


P6742
10 sq=60:GOSUB"LIB0:M6740"
FIN DU PROGRAMME 7B4D


P6750
10 sq=226:GOSUB"LIB0:M6750"
FIN DU PROGRAMME 7B68


P6751
10 sq=62:GOSUB"LIB0:M6750"
FIN DU PROGRAMME 7B82


P6752
10 sq=60:GOSUB"LIB0:M6750"
FIN DU PROGRAMME 7B9C


P6760
10 sq=226:GOSUB"LIB0:M6760"
FIN DU PROGRAMME 7BB7


P6761
10 sq=62:GOSUB"LIB0:M6760"
FIN DU PROGRAMME 7BD1


P6762
10 sq=60:GOSUB"LIB0:M6760"
FIN DU PROGRAMME 7BEB


P6770
10 sq=226:GOSUB"LIB0:M6770"
FIN DU PROGRAMME 7C06


P6771
10 sq=62:GOSUB"LIB0:M6770"
FIN DU PROGRAMME 7C20


P6772
10 sq=60:GOSUB"LIB0:M6770"
FIN DU PROGRAMME 7C3A


PK0630
10 CLS:GOTO10000
1000 DATA"Memory calculations             [MC],[MR],[M-],[M+]",,1000,5010
5010 DATA"Prime factors                  Base = a * b * c * ",,1000,5020
5020 DATA"G.C.M. & L.C.M.",,5010,5040
5040 DATA"ax1+bx2+cx3+=y",,5020,5050
5050 DATA"ax+bx+c=0",,5040,5060
5060 DATA"ax+bx+cx+d=0",,5050,5080
5080 DATA"Numerical solution  f(x)=0      Newton's method",,5060,5090
5090 DATA"Numerical solution  f(x)=0      Method of bisection",,5080,5100
5100 DATA"Matrix operations",,5090,5200
5200 DATA"f(x)dx [a,b]                 Romberg's method",,5100,5220
5220 DATA"dy/dx=f(x,y(x))                 Runge-Kutta method",,5200,5230
5230 DATA"Lagrange's interpolation",,5220,5250
5250 DATA"Gamma function  (x)",82FE8280C0,5230,5260
5260 DATA"Bessel function  Jn(x)",,5250,5270
5270 DATA"Bessel function  Yn(x)",,5260,5280
5280 DATA"Modified Bessel function        In(x)",,5270,5290
5290 DATA"Modified Bessel function        Kn(x)",,5280,5300
5300 DATA"Complex number  a+bi",,5290,5350
5350 DATA"Binary-Decimal-Hexadecimal",,5300,5510
5510 DATA"y=ax+b - (x1,y1),(x2,y2)",,5350,5520
5520 DATA"Angle() - y=ax+b,y=cx+d",,5510,5530
5530 DATA"Distance - y=ax+b,(x1,y1)",,5520,5540
5540 DATA"(X,Y) - (x,y),angle()",,5530,5550
5550 DATA"Circle (x-a)+(y-b)=r         - (x1,y1),(x2,y2),(x3,y3)",,5540,5560
5560 DATA"Length(y=cx+d)                  (x-a)+(y-b)=r,(x1,y1)",,5550,5570
5570 DATA"y=cx+d,y=ex+f                   (x-a)+(y-b)=r,(x1,y1)",,5560,5600
5600 DATA"Area (triangle)",,5570,5605
5605 DATA"Area (trapezoid)",,5600,5610
5610 DATA"Area (parallelogram)",,5605,5615
5615 DATA"Area (circle)",,5610,5620
5620 DATA"Area (sector)",,5615,5625
5625 DATA"Area (segment)",,5620,5630
5630 DATA"Area (ellipse)",,5625,5635
5635 DATA"Area (polygon)",,5630,5650
5650 DATA"Surface (sphere)",,5635,5655
5655 DATA"Surface (zone of sphere)",,5650,5660
5660 DATA"Surface (spherical sector)",,5655,5665
5665 DATA"Surface (circular cylinder)",,5660,5670
5670 DATA"Surface (circular cone)",,5665,5675
5675 DATA"Surface                        (frustum of circular cone)",,5670,5700
5700 DATA"Volume (sphere)",,5675,5705
5705 DATA"Volume (zone of sphere)",,5700,5710
5710 DATA"Volume (spherical sector)",,5705,5715
5715 DATA"Volume (circular cylinder)",,5710,5720
5720 DATA"Volume (circular cone)",,5715,5725
5725 DATA"Volume                         (frustum of circular cone)",,5720,5730
5730 DATA"Volume (wedge)",,5725,5735
5735 DATA"Volume (pyramid)",,5730,5740
5740 DATA"Volume                         (frustum of pyramid)",,5735,5745
5745 DATA"Volume (ellipsoid)",,5740,5750
5750 DATA"Polygon  A,n - r,R,l",,5745,5760
5760 DATA"Polyhedron (a,r,R,S,V)",,5750,5800
5800 DATA"Factorization                  a+2ab+b=(a+b)",,5760,5810
5810 DATA"Trigonometric function          sin+cos=1",,5800,5820
5820 DATA"Differential                   y=ax+bx+c  y=2ax+b",,5810,5830
5830 DATA"Integration                     x dx = 1/2x+C",,5820,5840
5840 DATA"Laplace transformation          F(p)=1/p  f(t)=1",,5830,5900
5900 DATA"Periodic table                 H Hydrogen 1(1-1a) 1.00794",,5840,5910
5910 DATA"Scientific constant             g=9.80665 [ms]",,5900,5920
5920 DATA"Electrolytic dissociation       HCOOH  HCOO + H",,5910,5930
5930 DATA"Motion                         Ek=1/2mv",,5920,5932
5932 DATA"Waves                          f=f(v-v)/(v-v)",,5930,5934
5934 DATA"AC & DC circuits               R=R+R , 1/R=1/R+1/R",,5932,5936
5936 DATA"Electric & Magnetic fields      Q=CV , C=S/d",,5934,5938
5938 DATA"Thermodynamics and others       W=JQ , J=4.19 [J/cal]",,5936,5950
5950 DATA"Metric conversion (length)      1[cm] - 0.01[m]",,5938,5960
5960 DATA"Metric conversion (area)        1[cm] - 0.0001[m]",,5950,5970
5970 DATA"Metric conversion (volume)      1[cm] - 0.000001[m]",,5960,5980
5980 DATA"Metric conversion (weight)      1[g] - 0.001[kg]",,5970,6210
6210 DATA"Upper probability integrals     N(0,1)",,5980,6220
6220 DATA"Upper probability integrals     X(x,)",,6210,6230
6230 DATA"Upper probability integrals     t(x,)",,6220,6240
6240 DATA"Upper probability integrals     F(x,,)",,6230,6310
6310 DATA"Upper cumulative               frequencies     B(x,n,P)",,6240,6320
6320 DATA"Upper cumulative               frequencies     P(x,)",424C300806,6310,6330
6330 DATA"Upper cumulative               frequencies     H(x,n,M,N)",,6320,6410
6410 DATA"Percentage points              N(0,1)",,6330,6420
6420 DATA"Percentage points              X(x,)",,6410,6430
6430 DATA"Percentage points              t(x,)",,6420,6440
6440 DATA"Percentage points              F(x,,)",,6430,6450
6450 DATA"Normal random numbers",,6440,6460
6460 DATA"Exponential random numbers",,6450,6500
6500 DATA"Statistics [x]",,6460,6510
6510 DATA"Regression analysis             [y=a+bx]",,6500,6520
6520 DATA"Regression analysis             [y=a+blnx]",,6510,6530
6530 DATA"Regression analysis             [y=ab^x]",,6520,6540
6540 DATA"Regression analysis             [y=ax^b]",,6530,6610
6610 DATA"Estimation a<<b              N(,) :known",,6540,6620
6620 DATA"Estimation a<<b              N(,)",,6610,6630
6630 DATA"Estimation a<<b             N(,)",,6620,6640
6640 DATA"Estimation a<<b              N(,)",,6630,6650
6650 DATA"Estimation  a</<b         N(,),N(,)",,6640,6660
6660 DATA"Estimation  a<-<b           N(,),N(,)",,6650,6670
6670 DATA"Estimation a<p<b              B(1,p)",,6660,6680
6680 DATA"Estimation  a<p-p<b           B(1,p),B(1,p)",,6670,6710
6710 DATA"Test N(,):known               H:=    H:",,6680,6711
6711 DATA"Test N(,):known               H:=    H:>",,6710,6712
6712 DATA"Test N(,):known               H:=    H:<",,6711,6720
6720 DATA"Test N(,)                        H:=    H:",,6712,6721
6721 DATA"Test N(,)                        H:=    H:>",,6720,6722
6722 DATA"Test N(,)                        H:=    H:<",,6721,6730
6730 DATA"Test N(,)                        H:=  H:",,6722,6731
6731 DATA"Test N(,)                        H:=  H:>",,6730,6732
6732 DATA"Test N(,)                        H:=  H:<",,6731,6740
6740 DATA"Test N(,),N(,)             H:= H:",,6732,6741
6741 DATA"Test N(,),N(,)             H:= H:>",,6740,6742
6742 DATA"Test N(,),N(,)             H:= H:<",,6741,6750
6750 DATA"Test nN(,),N(,)              H:=   H:",,6742,6751
6751 DATA"Test N(,),N(,)              H:=   H:>",,6750,6752
6752 DATA"Test N(,),N(,)              H:=   H:<",,6751,6760
6760 DATA"Test B(1,p)                         H:p=p    H:pp",,6752,6761
6761 DATA"Test B(1,p)                         H:p=p    H:p>p",,6760,6762
6762 DATA"Test B(1,p)                         H:p=p    H:p<p",,6761,6770
6770 DATA"Test B(1,p),B(1,p)                H:p=p   H:pp",,6762,6771
6771 DATA"Test B(1,p),B(1,p)                H:p=p   H:p>p",,6770,6772
6772 DATA"Test B(1,p),B(1,p)                H:p=p   H:p<p",,6771,6772
10000 ONERRORGOTO10400
10010 MODE8:DIM:x=1000:y=6772
10020 DEFSEG=0:a=PEEK(&H743)*256+PEEK(&H742):r$=HEX$(PEEK(&H744))+"000":b=VAL("&H"+r$)
10030 DEFSEG=b:r$="":FORi=a TOa+3:r$=r$+CHR$(PEEK(i+7)):NEXT:r=VAL(r$)
10060 DEFCHR$(254)="3E02040830"
10070 DEFCHR$(253)="2E2A3A0000"
10080 DEFCHR$(252)="123E020000"
10110 RESTORE(r)
10120 READm$,n$,b,c
10130 IFn$<>"" THENDEFCHR$(255)=n$
10140 CLS:PRINTMID$(STR$(r),2);":";m$;
10150 z=ASC(INPUT$(1,@))
10160 IFz=29 ANDr<>x THENa=&HF7EA:r=x:GOTO10110
10170 IFz=28 ANDr<>y THENa=&HFEA7:r=y:GOTO10110
10180 IFz=30 ANDr<>b THENa=a-15:r=b:GOTO10110
10190 IF(z=31 ORz=218) ANDr<>c THENa=a+15:r=c:GOTO10110
10200 IFz=13 ORz=252 THEN10300
10210 GOTO10150
10300 CLS:DEFSEG=0:a$=HEX$(a):b=VAL("&H"+LEFT$(a$,2)):c=VAL("&H"+RIGHT$(a$,2)):POKE&H742,c:POKE&H743,b:r$="LIB0:"+MID$(STR$(r),2):GOTOr$
10400 IFERR=1 THENONERRORGOTO0
10410 r=x:RESUME10110
FIN DU PROGRAMME 99E3


PM6510
5 ONERRORGOTO1000:RESTORE :MODE8:DIM:ERASEa,a$:DIMa(14),a$(5):c$=CHR$(5):IFsq<0ORsq>3ORFRACsq<>0THENsq=0
12 IFtz<0ORtz>3ORFRACtz<>0THENtz=0
14 FORi=0TO5:READa$(i):NEXT:d$="             :y?"
15 DATAy=a+bx,y=a+blnx,y=ab^x,y=ax^b,Delete,Input
20 l=21+ABS(SGN(sq-1))*2:CLS:PRINT"Regression analysis";TAB(l);"[";a$(sq);"]";TAB(0);">In,Del,Clear,List,eoX,eoY,P ?";
30 IFINKEY$=""THENa=ASC(INPUT$(1)):IFa>96THENa=a-32
40 IFa=186THENsq=(sq+1)MOD4:GOTO20
50 ONa-66GOTO300,100,,,,,100:IF(sq ANDtz)=0THENONa-75GOTO500,,,,800,,,,,,,,400,450
60 GOTO30
100 CLS:PRINTa$(SGN(a-68)+4);" data (x,y)";TAB(21);"[EXE]:menu";:z=SGN(a-69)
110 LOCATE0,1:PRINTc$;"x?";d$;
120 LOCATE2,1:INPUT@12;z$:LOCATE0,0:IFz$=d$ ORASC(z$)=0THEN20ELSEx=VALF(z$):j=0
125 IFx=<0THENIF(1ANDsq)=1THEN120ELSEtz=tz OR1ELSEIFx>0THENj=LNx:g=ss+j*z:m=su+j*j*z
130 r=sa+z:s=sb+x*z:u=sd+x*x*z
140 LOCATE18,1:INPUT@12;z$:LOCATE0,0:IFz$=""THEN20ELSEy=VALF(z$)
145 IFy=<0THENIFsq>1THEN140ELSEtz=tz OR2ELSEIFy>0THENk=LNy:h=st+k*z:n=sv+k*k*z:p=sx+x*k*z:q=sy+j*k*z
160 t=sc+y*z:v=se+y*y*z:w=sf+x*y*z:o=sw+j*y*z:sa=r:sb=s:sc=t:sd=u:se=v:sf=w:ss=g:st=h:su=m:sv=n:sw=o:sx=p:sy=q:GOTO110
200 c=15:GOSUB350:ONsq GOSUB360,370,380
210 sg=a(1)/sa:sh=a(2)/sa
220 sm=a(3)-sg*a(1):IFsm<0THENsm=0
230 sn=a(4)-sh*a(2):IFsn<0THENsn=0
240 so=a(5)-a(1)*sh:sp=sh*a(3)-sg*a(5):si=SQR(sm/sa):sj=SQR(sn/sa)
260 sk=SQR(sm/(sa-1)):sl=SQR(sn/(sa-1))
270 p=sp/sm:q=so/sm:r=so/SQR(sm*sn):IFsq>1THENp=EXPp:IFsq=2THENq=EXPq
280 RETURN
300 PRINTc$;"clear data  (Y/N) ?";:a$=INPUT$(1,@)
310 IFa$="Y"ORa$="y"THENsa=0:sb=0:sc=0:sd=0:se=0:sf=0:ss=0:st=0:su=0:sv=0:sw=0:sx=0:sy=0:tz=0
320 GOTO20
350 a(1)=sb:a(2)=sc:a(3)=sd:a(4)=se:a(5)=sf:RETURN
360 a(1)=ss:a(3)=su:a(5)=sw:RETURN
370 a(2)=st:a(4)=sv:a(5)=sx:RETURN
380 a(1)=ss:a(2)=st:a(3)=su:a(4)=sv:a(5)=sy:RETURN
400 CLS:GOSUB200:IFc<15ORso=0THEN20
410 DEFCHR$(255)="12548C4A12":CLS:PRINT"Estimation of x [";a$(sq);"]";
420 LOCATE0,1:PRINTc$;"y?";:INPUT@10;z$:LOCATE0,0:IFz$="" THEN20ELSEs=VALF(z$)
430 ONsq+1GOSUB950,960,970,980:LOCATE12,1:PRINT":=";STR$(a);:z$=INPUT$(1,@):GOTO420
450 CLS:GOSUB200:IFc<15ORsm=0THEN20
460 DEFCHR$(255)="124A844810":CLS:PRINT"Estimation of y [";a$(sq);"]";
470 LOCATE0,1:PRINTc$;"x?";:INPUT@10;z$:LOCATE0,0:IFz$="" THEN20ELSEs=VALF(z$)
480 ONsq+1GOSUB900,910,920,930:LOCATE12,1:PRINT":=";STR$(a);:z$=INPUT$(1,@):GOTO470
500 CLS:GOSUB200:GOSUB580:i=1:GOSUB600:i=2
510 GOSUB600
520 z=ASC(INPUT$(1,@)):IFz=28ORz=29THEN20
530 IFz<>13ANDz<>30ANDz<>31THEN520
540 IF(z=30ANDi=1)OR(z=31ANDi=c)THEN520
550 IFz=30THENi=i-2
560 i=i+1:IFi=<c THEN510ELSE20
580 DEFCHR$(254)="0808003E00":DEFCHR$(253)="FE003E203E"
590 a(0)=sa:a(6)=sg:a(7)=sh:a(8)=si:a(9)=sj:a(10)=sk:a(11)=sl:a(12)=p:a(13)=q:a(14)=r:RETURN
600 GOSUB605:READa$,a$,b$:PRINTTAB(0);a$;TAB(7);":";b$;TAB(13);"=";a(i-1);:RETURN
605 IFi=1ORi=15THENj=0:GOTO609
606 IFi=6THENj=sq:GOTO609
607 IFi>12THENj=SGN(sq):GOTO609
608 k=i MOD2:IF(i<6ANDk=1)OR(i>6ANDk=0)THENj=INT(sq/2)ELSEj=(sq MOD2)
609 RESTORE(600+i*10+j):RETURN
610 DATACNT,CNT,n
620 DATASUMX,SUMX,x
621 DATASUMLNX,SUMX,x
630 DATASUMY,SUMY,y
631 DATASUMLNY,SUMY,y
640 DATASUMX2,SUMX2,x
641 DATASUMLNX2,SUMX2,x
650 DATASUMY2,SUMY2,y
651 DATASUMLNY2,SUMY2,y
660 DATASUMXY,SUMXY,xy
661 DATASUMLNXY,SUMXY,xy
662 DATASUMXLNY,SUMXY,xy
663 DATASUMLNXLNY,SUMXY,xy
670 DATAMEANX,MEANX,x/n
671 DATAMEANLNX,MEANX,x/n
680 DATAMEANY,MEANY,y/n
681 DATAMEANLNY,MEANY,y/n
690 DATASDXN,SDXN,xn
691 DATASDLNXN,SDXN,xn
700 DATASDYN,SDYN,yn
701 DATASDLNYN,SDYN,yn
710 DATASDX,SDX,xn
711 DATASDLNX,SDX,xn
720 DATASDY,SDY,yn
721 DATASDLNY,SDY,yn
730 DATALRA,LRA,a
731 DATARA,RA,a
740 DATALRB,LRB,b
741 DATARB,RB,b
750 DATACOR,COR,r
800 LOCATE0,1:PRINTc$;".....";:GOSUB200:GOSUB590
810 FORi=1TOc:GOSUB605:READa$:LPRINTa$;TAB(10);"=";a(i-1):NEXT:GOTO20
900 a=p+q*s:RETURN
910 a=p+q*LNs:RETURN
920 a=p*q^s:RETURN
930 a=p*s^q:RETURN
950 a=(s-p)/q:RETURN
960 a=EXP((s-p)/q):RETURN
970 a=(LNs-LNp)/LNq:RETURN
980 a=EXP((LNs-LNp)/q):RETURN
1000 IFERR=1THENCLS:ONERRORGOTO0
1010 IFERL=120THENRESUME120
1020 IFERL=140THENRESUME140
1030 IFERL=420THENRESUME420
1040 IFERL=470THENRESUME470
1050 IFERL=210THENc=6:RESUME280
1060 IFERL=260THENc=10:RESUME280
1070 IFERL=270THENc=12:RESUME280
1080 IF(ERL=130ORERL=150)ANDERR=13THENLOCATE0,1:PRINTc$;"data over";:z$=INPUT$(1,@):RESUME20
1090 LOCATE0,1:PRINTc$;"not found";:a$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME A8BC


PM6710
5 IFsq<>60 ANDsq<>62 THENsq=226
10 MODE8:DIM:GOSUB900:ERASEb$:DIMb$(1):b$(0)="Reject":b$(1)="Accept":t$="Test    H:= H:"+CHR$(sq)+"":DEFCHR$(254)="A2A49C92A2":c$=CHR$(5):DEFCHR$(252)="123E020000"
20 CLS:PRINTt$;TAB(0);"input new data (Y/N) ?";:a$=INPUT$(1)
25 IFa$<>"Y" ANDa$<>"y" THEN40
30 s$="x":GOSUB"LIB0:S6020":GOSUB900
40 r=0:s=0:f=5:t=sa:IFt THENu=sg ELSEu=0
45 CLS:PRINTt$;
50 z=r:s$="":GOSUB500:r=z
60 z=s:s$="":GOSUB500:s=z
70 z=t:s$="n":GOSUB500:t=z
80 z=u:s$="":GOSUB500:u=z
90 CLS:PRINT"Significance level [%]";
95 z=f:s$="":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINTt$;TAB(0);".....";
100 p=f/100:IFsq=226 THENp=p/2
105 sr=0:GOSUB"LIB0:S6410":GOSUB900:IFsr THEN*
110 b=1:z=(u-r)/(s/SQRt):GOSUB400:a=z:z=x:GOSUB400:x=z
120 IFsq=226 THENa=ABSa
121 IF(sq=62 ORsq=226) ANDa>x THENb=0
122 IFsq=60 THENx=-x:IFa<x THENb=0
130 z=SGN(sq-60):PRINTc$;a;CHR$(60+z*2+b*(164-z));x;": ";b$(b);:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME ACC4


PM6720
5 IFsq<>60 ANDsq<>62 THENsq=226
10 MODE8:DIM:GOSUB900:ERASEb$:DIMb$(1):b$(0)="Reject":b$(1)="Accept":t$="Test    H:= H:"+CHR$(sq)+"":DEFCHR$(254)="A2A49C92A2":c$=CHR$(5):DEFCHR$(252)="123E020000"
20 CLS:PRINTt$;TAB(0);"input new data (Y/N) ?";:a$=INPUT$(1)
25 IFa$<>"Y" ANDa$<>"y" THEN40
30 s$="x":GOSUB"LIB0:S6020":GOSUB900
40 r=0:f=5:s=sa:IFs>1 THENt=sg:u=sk^2 ELSEt=0:u=0
45 CLS:PRINTt$;
50 z=r:s$="":GOSUB500:r=z
60 z=s:s$="n":GOSUB500:s=z
70 z=t:s$="":GOSUB500:t=z
80 z=u:s$="V":GOSUB500:u=z
90 CLS:PRINT"Significance level [%]";
95 z=f:s$="":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINTt$;TAB(0);".....";
100 n=s-1:p=f/100:IFsq=226 THENp=p/2
105 sr=0:GOSUB"LIB0:S6430":GOSUB900:IFsr THEN*
110 b=1:z=(t-r)/SQR(u/s):GOSUB400:a=z:z=x:GOSUB400:x=z
120 IFsq=226 THENa=ABSa
121 IF(sq=62 ORsq=226) ANDa>x THENb=0
122 IFsq=60 THENx=-x:IFa<x THENb=0
130 z=SGN(sq-60):PRINTc$;a;CHR$(60+z*2+b*(164-z));x;": ";b$(b);:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME B0DB


PM6730
5 IFsq<>60 ANDsq<>62 THENsq=226
10 MODE8:DIM:GOSUB900:ERASEb$:DIMb$(1):b$(0)="Reject":b$(1)="Accept":t$="Test    H:=  H:"+CHR$(sq)+"":c$=CHR$(5):DEFCHR$(252)="123E020000"
20 CLS:PRINTt$;TAB(0);"input new data (Y/N) ?";:a$=INPUT$(1)
25 IFa$<>"Y" ANDa$<>"y" THEN40
30 s$="x":GOSUB"LIB0:S6020":GOSUB900
40 r=0:f=5:s=sa:IFs>1 THENt=sm ELSEt=0
45 CLS:PRINTt$;
50 z=r:s$="":GOSUB500:r=z
60 z=s:s$="n":GOSUB500:s=z
70 z=t:s$="S":GOSUB500:t=z
90 CLS:PRINT"Significance level [%]";
95 z=f:s$="":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINTt$;TAB(0);".....";
100 n=s-1:p=f/100:IFsq=226 THENp=p/2 ELSEIFsq=60 THENp=1-p
102 g=0:sr=0:GOSUB"LIB0:S6420":GOSUB900:IFsr THEN*
104 IFsq=226 THENg=x:p=1-p:GOSUB"LIB0:S6420":GOSUB900:IFsr THEN* ELSEb=x:x=g:g=b
110 b=1:z=t/r:GOSUB400:a=z:z=x:GOSUB400:x=z:z=g:GOSUB400:g=z
120 IF(sq=226 ORsq=62) ANDa>x THENb=0
122 IFsq=60 ANDa<x THENb=0
123 IFsq=226 ANDa<g THENc=0 ELSEc=1
130 z=SGN(sq-60):PRINTc$;a;CHR$(60+z*2+b*(164-z));x;:IFsq<63 THENPRINT": ";b$(b);:GOTO150
140 PRINTTAB(0);a;CHR$(60+c*164);g;": ";b$(b AND c);
150 a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME B566


PM6740
5 IFsq<>60 ANDsq<>62 THENsq=226
10 MODE8:DIM:GOSUB900:ERASEb$:DIMb$(1):b$(0)="Reject":b$(1)="Accept":t$="Test    H:= H:"+CHR$(sq)+"":c$=CHR$(5):DEFCHR$(252)="123E020000":DEFCHR$(253)="2E2A3A0000"
20 CLS:PRINTt$;TAB(0);"input new data x (Y/N) ?";:a$=INPUT$(1)
22 IFa$<>"Y" ANDa$<>"y" THEN30
25 s$="x":GOSUB"LIB0:S6020":GOSUB900
30 CLS:PRINTt$;TAB(0);"input new data x (Y/N) ?";:a$=INPUT$(1)
32 IFa$<>"Y" ANDa$<>"y" THEN36
35 s$="x":GOSUB"LIB0:S6030":GOSUB900
36 s=sa:IFs>1 THENr=sk^2 ELSEr=0
37 f=5:u=sz:IFu>1 THENt=sl^2 ELSEt=0
45 CLS:PRINTt$;
50 z=s:s$="n":GOSUB500:s=z
60 z=r:s$="V":GOSUB500:r=z
70 z=u:s$="n":GOSUB500:u=z
80 z=t:s$="V":GOSUB500:t=z
90 CLS:PRINT"Significance level [%]";
95 z=f:s$="":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINTt$;TAB(0);".....";
100 n=s-1:m=u-1:p=f/100:IFsq=226 ANDr<t THENn=u-1:m=s-1
102 IFsq=226 THENp=p/2 ELSEIFsq=60 THENp=1-p
105 sr=0:GOSUB"LIB0:S6440":GOSUB900:IFsr THEN*
107 IFsq=226 ANDr<t THENz=t/r ELSEz=r/t
110 b=1:GOSUB400:a=z:z=x:GOSUB400:x=z
120 IF(sq=226 ORsq=62) ANDa>x THENb=0
122 IFsq=60 ANDa<x THENb=0
130 z=SGN(sq-60):PRINTc$;a;CHR$(60+z*2+b*(164-z));x;": ";b$(b);:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME BA46


PM6750
5 IFsq<>60 ANDsq<>62 THENsq=226
10 MODE8:DIM:GOSUB900:ERASEb$:DIMb$(1):b$(0)="Reject":b$(1)="Accept":t$="Test    H:= H:"+CHR$(sq)+"":DEFCHR$(254)="A2A49C92A2":c$=CHR$(5):DEFCHR$(252)="123E020000":DEFCHR$(253)="2E2A3A0000"
20 CLS:PRINTt$;TAB(0);"input new data x (Y/N) ?";:a$=INPUT$(1)
22 IFa$<>"Y" ANDa$<>"y" THEN30
25 s$="x":GOSUB"LIB0:S6020":GOSUB900
30 CLS:PRINTt$;TAB(0);"input new data x (Y/N) ?";:a$=INPUT$(1)
32 IFa$<>"Y" ANDa$<>"y" THEN36
35 s$="x":GOSUB"LIB0:S6030":GOSUB900
36 r=sa:IFr>1 THENs=sg:t=sm ELSEs=0:t=0
37 f=5:u=sz:IFu>1 THENv=sh:w=sn ELSEv=0:w=0
45 CLS:PRINTt$;
50 z=r:s$="n":GOSUB500:r=z
55 z=s:s$="":GOSUB500:s=z
60 z=t:s$="S":GOSUB500:t=z
70 z=u:s$="n":GOSUB500:u=z
75 z=v:s$="":GOSUB500:v=z
80 z=w:s$="S":GOSUB500:w=z
90 CLS:PRINT"Significance level [%]";
95 z=f:s$="":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINTt$;TAB(0);".....";
100 n=r+u-2:p=f/100:IFsq=226 THENp=p/2
105 sr=0:GOSUB"LIB0:S6430":GOSUB900:IFsr THEN*
107 z=(s-v):IFsq=226 THENz=ABSz
110 b=1:z=z/SQR((1/r+1/u)*((t+w)/n)):GOSUB400:a=z:z=x:GOSUB400:x=z
120 IF(sq=226 ORsq=62) ANDa>x THENb=0
122 IFsq=60 THENx=-x:IFa<x THENb=0
130 z=SGN(sq-60):PRINTc$;a;CHR$(60+z*2+b*(164-z));x;": ";b$(b);:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME BF5F


PM6760
5 IFsq<>60 ANDsq<>62 THENsq=226
10 MODE8:DIM:GOSUB900:ERASEb$:DIMb$(1):b$(0)="Reject":b$(1)="Accept":t$="Test    H:p=p H:p"+CHR$(sq)+"p":f=5:c$=CHR$(5):r=0:s=0:t=0:DEFCHR$(252)="123E020000"
45 CLS:PRINTt$;
50 z=r:s$="p":GOSUB500:r=z:IFr>=1 ORr=<0 THEN50
60 z=s:s$="n":GOSUB500:s=z
70 z=t:s$="x":GOSUB500:t=z
90 CLS:PRINT"Significance level [%]";
95 z=f:s$="":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINTt$;TAB(0);".....";
100 p=f/100:IFsq=226 THENp=p/2
105 sr=0:GOSUB"LIB0:S6410":GOSUB900:IFsr THEN*
107 z=t-s*r:IFsq=226 THENz=ABSz
110 b=1:z=z/SQR(s*r*(1-r)):GOSUB400:a=z:z=x:GOSUB400:x=z
120 IF(sq=226 ORsq=62) ANDa>x THENb=0
122 IFsq=60 THENx=-x:IFa<x THENb=0
130 z=SGN(sq-60):PRINTc$;a;CHR$(60+z*2+b*(164-z));x;": ";b$(b);:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME45
FIN DU PROGRAMME C2CB


PM6770
5 IFsq<>60 ANDsq<>62 THENsq=226
10 MODE8:DIM:GOSUB900:ERASEb$:DIMb$(1):b$(0)="Reject":b$(1)="Accept":t$="Test    H:p=p H:p"+CHR$(sq)+"p":f=5:c$=CHR$(5):DEFCHR$(252)="123E020000":DEFCHR$(253)="2E2A3A0000":r=0:s=0:t=0:u=0
45 CLS:PRINTt$;
50 z=r:s$="n":GOSUB500:r=z
60 z=s:s$="x":GOSUB500:s=z
70 z=t:s$="n":GOSUB500:t=z
80 z=u:s$="x":GOSUB500:u=z
90 CLS:PRINT"Significance level [%]";
95 z=f:s$="":GOSUB500:f=z:IFf<0 ORf>100 THEN95
97 CLS:PRINTt$;TAB(0);".....";
100 p=f/100:IFsq=226 THENp=p/2
105 sr=0:GOSUB"LIB0:S6410":GOSUB900:IFsr THEN*
107 z=s/r-u/t:IFsq=226 THENz=ABSz
110 b=1:v=(s+u)/(r+t):z=z/SQR(v*(1-v)*(1/r+1/t)):GOSUB400:a=z:z=x:GOSUB400:x=z
120 IF(sq=226 ORsq=62) ANDa>x THENb=0
122 IFsq=60 THENx=-x:IFa<x THENb=0
130 z=SGN(sq-60):PRINTc$;a;CHR$(60+z*2+b*(164-z));x;": ";b$(b);:a$=INPUT$(1,@):GOTO45
400 IFz THENz=ROUND(z,LOG(ABSz)-5)
410 RETURN
500 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@10;z:LOCATE0,0:RETURN
900 ONERRORGOTO910:RETURN
910 IFERR=1 THENCLS:ONERRORGOTO0
920 IFERL=500 THENRESUME500
930 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME45
FIN DU PROGRAMME C675


PS6020
5 ONERRORGOTO1000
10 MODE8:DIM:ERASEa,a$:DIMa(5),a$(1):a$(1)="Input":a$(0)="Delete":c$=CHR$(5)
20 CLS:PRINT"Input data (";s$;")";TAB(0);">Input,Delete,Clear,List,End ?";
30 a=ASC(INPUT$(1)):IFa>96 THENa=a-32
40 ONa-66 GOTO300,100,200,,,,100,,,500
50 GOTO30
100 CLS:PRINTa$(SGN(a-68));" data (";s$;")";TAB(21);"[EXE]:menu";:z=SGN(a-69)
110 LOCATE0,1:PRINTc$;s$;"?";
120 LOCATELEN(s$)+1,1:INPUT@12;z$:LOCATE0,0:IFz$="" THEN20 ELSEx=VALF(z$)
150 r=sa+z:s=sb+x*z:u=sd+x*x*z
160 sa=r:sb=s:sd=u:GOTO110
200 c=6
210 sg=sb/sa
220 sm=sd-sg*sb:IFsm<0THENsm=0
250 si=SQR(sm/sa)
260 sk=SQR(sm/(sa-1))
280 RETURN
300 PRINTc$;"clear data  (Y/N) ?";
310 a$=INPUT$(1,@):IFa$<>"Y" ANDa$<>"y" THEN20
320 sa=0:sb=0:sd=0:GOTO20
500 CLS:GOSUB200:GOSUB580:i=1:GOSUB600:i=2
510 GOSUB600
520 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN20
530 IFz<>13 ANDz<>30 ANDz<>31 THEN520
540 IF(z=30 ANDi=1) OR(z=31 ANDi=c) THEN520
550 IFz=30 THENi=i-2
560 i=i+1:IFi=<c THEN510 ELSE20
580 DEFCHR$(255)="0808003E00"
590 a(0)=sa:a(1)=sb:a(2)=sd:a(3)=sg:a(4)=si:a(5)=sk:RETURN
600 RESTORE(600+i*10):READa$,b$:PRINTTAB(0);a$;TAB(7);":";b$;TAB(13);"=";a(i-1);:RETURN
610 DATACNT,n
620 DATASUMX,x
630 DATASUMX2,x
640 DATAMEANX,x/n
650 DATASDXN,xn
660 DATASDX,xn
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=120 THENRESUME120
1050 IFERL=210 THENc=3:RESUME280
1060 IFERL=260 THENc=5:RESUME280
1080 IFERL=150 THENLOCATE0,1:PRINTc$;"data over";:z$=INPUT$(1,@):RESUME20
1090 LOCATE0,1:PRINTc$;"not found";:a$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME CB79


PS6030
5 ONERRORGOTO1000
10 MODE8:DIM:ERASEa,a$:DIMa(5),a$(1):a$(1)="Input":a$(0)="Delete":c$=CHR$(5):sf=0
20 CLS:PRINT"Input data (";s$;")";TAB(0);">Input,Delete,Clear,List,End ?";
30 a=ASC(INPUT$(1)):IFa>96 THENa=a-32
40 ONa-66 GOTO300,100,200,,,,100,,,500
50 GOTO30
100 CLS:PRINTa$(SGN(a-68));" data (";s$;")";TAB(21);"[EXE]:menu";:z=SGN(a-69)
110 LOCATE0,1:PRINTc$;s$;"?";
120 LOCATELEN(s$)+1,1:INPUT@12;z$:LOCATE0,0:IFz$="" THEN20 ELSEy=VALF(z$)
150 r=sz+z:s=sc+y*z:u=se+y*y*z
160 sz=r:sc=s:se=u:GOTO110
200 c=6
210 sh=sc/sz
220 sn=se-sh*sc:IFsn<0 THENsn=0
250 sj=SQR(sn/sz)
260 sl=SQR(sn/(sz-1))
280 RETURN
300 PRINTc$;"clear data  (Y/N) ?";
310 a$=INPUT$(1,@):IFa$<>"Y" ANDa$<>"y" THEN20
320 sz=0:sc=0:se=0:GOTO20
500 CLS:GOSUB200:GOSUB580:i=1:GOSUB600:i=2
510 GOSUB600
520 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN20
530 IFz<>13 ANDz<>30 ANDz<>31 THEN520
540 IF(z=30 ANDi=1) OR(z=31 ANDi=c) THEN520
550 IFz=30 THENi=i-2
560 i=i+1:IFi=<c THEN510 ELSE20
580 DEFCHR$(255)="0808003E00"
590 a(0)=sz:a(1)=sc:a(2)=se:a(3)=sh:a(4)=sj:a(5)=sl:RETURN
600 RESTORE(600+i*10):READa$,b$:PRINTTAB(0);a$;TAB(7);":";b$;TAB(13);"=";a(i-1);:RETURN
610 DATACNT,n
620 DATASUMX,x
630 DATASUMX2,x
640 DATAMEANX,x/n
650 DATASDXN,xn
660 DATASDX,xn
1000 IFERR=1 THENCLS:ONERRORGOTO0
1010 IFERL=120 THENRESUME120
1050 IFERL=210 THENc=3:RESUME280
1060 IFERL=260 THENc=5:RESUME280
1080 IFERL=150 THENLOCATE0,1:PRINTc$;"data over";:z$=INPUT$(1,@):RESUME20
1090 LOCATE0,1:PRINTc$;"not found";:a$=INPUT$(1,@):RESUME20
FIN DU PROGRAMME D082


PS6210
5 ONERRORGOTO500
10 y=ABSx:p=0
15 IFy>100 THEN60
20 IFy<1.9 THEN50
30 FORi=18 TO1 STEP-1:p=i/(y+p):NEXT
40 p=EXP(-.5*y*y)/SQR(2*PI)/(y+p):GOTO60
50 p=(1+y*(.049867347+y*(.0211410061+y*(.0032776263+y*(.0000380036+y*(.0000488906+y*.000005383))))))^-16/2
60 IFx<0 THENp=1-p
80 y=p:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME D1BB


PS6220
10 GOSUB400:IFx=<0 THENp=1:GOTO80
20 IFn>100 THENz=x:x=((x/n)^(1/3)-(1-2/9/n))/SQR(2/9/n):GOSUB"LIB0:S6210":GOSUB400:p=y:x=z:GOTO80
30 IFx>400 THENp=0:GOTO80
40 a=EXP(-x/2):p=a:y=2
50 IFn MOD 2<>0 THENz=x:x=SQRx:GOSUB"LIB0:S6210":GOSUB400:p=2*y:a=SQR(2/PI)*a/x:x=z:y=1
60 FORi=y TOn-2 STEP2:a=a*x/i:p=p+a:NEXT
80 y=p:RETURN
400 ONERRORGOTO500:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME D317


PS6230
5 ONERRORGOTO500
10 ANGLE1:y=ATN(x/SQRn):z=COSy^2
20 IFn MOD 2=0 THENa=SINy/2:b=.5 ELSEb=.5+y/PI:IFn=1 THENa=0 ELSEa=SINy*COSy/PI
30 y=1:FORi=n-2 TO2 STEP-2:y=1+(i-1)/i*z*y:NEXT
40 p=1-(b+a*y):IFp<0 THENp=0
80 y=p:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME D403


PS6240
5 ONERRORGOTO500
10 ANGLE1:IFx=<0 THENp=1:GOTO80
20 IFm MOD 2=0 THENz=m/(m+n*x):GOSUB100:p=1-p:GOTO80
30 IFn MOD 2=0 THENz=n*x/(m+n*x):i=m:m=n:n=i:GOSUB100:i=m:m=n:n=i:GOTO80
40 y=ATNSQR(n*x/m)
50 GOSUB200:p=p+a:IFp<0 THENp=0
80 y=p:RETURN
100 a=1:FORi=m-2 TO2 STEP-2:a=1+(n+i-2)/i*z*a:NEXT
110 p=(1-z)^(n/2)*a:RETURN
200 z=(SINy)^2:IFn=1 THENa=0 ELSEa=1
210 FORi=n-2 TO3 STEP-2:a=1+(m+i-2)/i*z*a:NEXT
220 b=PI:FORi=2 TOm-1 STEP2:b=b*(i-1)/i:NEXT
230 p=2/b*SINy*(COSy)^m*a
250 z=(COSy)^2:IFm=1 THENa=0 ELSEa=1
260 FORi=m-2 TO3 STEP-2:a=1+(i-1)/i*z*a:NEXT
270 a=1-2*y/PI-2/PI*SINy*COSy*a:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME D639


PS6310
5 ONERRORGOTO500
10 IFp=1 THENIFn=x THENs=1:f=1:GOTO80 ELSEs=0:f=0:GOTO80
20 q=1-p:f=q^n:s=f:z=p/q:y=n+1
30 FORi=1 TOx:f=f*z*(y-i)/i:s=s+f:NEXT
80 s=1-s+f:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME D6F6


PS6320
5 ONERRORGOTO500
10 f=EXP(-k):s=f
20 FORi=1 TOx:f=f*k/i:s=s+f:NEXT
80 s=1-s+f:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME D76B


PS6330
5 ONERRORGOTO500
10 GOSUB100:s=f:q=k+1:y=n+1
30 FORi=1 TOx:f=f*(q-i)*(y-i)/i/(z+i):s=s+f:NEXT
80 s=1-s+f:RETURN
100 q=m-k:y=m-n:z=m-k-n:f=1
110 IFq<17 ANDk<17 THENFORi=0 TOn-1:f=f*(q-i)/(m-i):NEXT:RETURN
120 f=(q+.5)*LNq+(y+.5)*LNy-(m+.5)*LNm-(z+.5)*LNz+(1/q+1/y-1/m-1/z)/12:f=EXPf:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME D89B


PS6410
5 ONERRORGOTO500
10 IFp=<0 ORp>=1 THEN*
20 y=-LN(4*p*(1-p))
30 x=.5824238515E-5+y*(-.104527497E-5+y*(.8360937017E-7+y*(-.3231081277E-8+y*(.3657763036E-10+y*.6936233982E-12))))
40 x=SQR(y*(1.570796288+y*(.03706987906+y*(-.8364353589E-3+y*(-.2250947176E-3+y*(.6841218299E-5+y*x))))))
50 IFp>.5 THENx=-x
80 y=x:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME D9F8


PS6420
10 GOSUB400:IFp>1 ORp=<0 THEN*
15 IFp=1 THENx=0:GOTO80
20 IFn=1 THENq=p:p=q/2:GOSUB"LIB0:S6410":GOSUB400:x=y*y:p=q:GOTO80
30 IFn=2 THENx=-2*LNp:GOTO80
40 GOSUB"LIB0:S6410":GOSUB400:x=y:y=x*x:x=n+SQR(2*n)*x+2/3*(y-1)+x*(y-7)/9/SQR(2*n)-2/405/n*(y*(3*y+7)-16):IFx<0 THENx=0
50 IFn>100 THEN80
60 b=x:GOSUB100:IFn<31 THENIFABS(b-x)>1E-4 THEN60
80 y=x:RETURN
100 q=p:GOSUB"LIB0:S6220":GOSUB400:p=y
110 z=EXP(((n-1)*LN(x/n)-LN(4*PI*x)+n-x-1/n/6)/2)
120 x=x+(p-q)/z:p=q:x=ROUND(x,-6):RETURN
400 ONERRORGOTO500:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME DBE5


PS6430
20 GOSUB400:ANGLE1:IFp>=1 ORp=<0 THEN*
30 GOSUB"LIB0:S6410":GOSUB400:x=y:y=x^2
40 a=(y+1)/4:b=((5*y+16)*y+3)/96:c=(((3*y+19)*y+17)*y-15)/384:d=((((79*y+776)*y+1482)*y-1920)*y-945)/92160:e=(((((27*y+339)*y+930)*y-1782)*y-765)*y+17955)/368640
50 x=x*(1+(a+(b+(c+(d+e/n)/n)/n)/n)/n)
60 IFn>(LOGp)^2+3 THEN80
70 q=p:GOSUB"LIB0:S6230":GOSUB400:p=y:GOSUB100:y=x:x=x+(p-q)/a:p=q:IFx THENIFROUND(x-y,LOG(ABSx)-5)<>0 THEN70
80 y=x:RETURN
100 b=n+1:a=EXP((b*LN(b/(n+x*x))+LN(n/b/2/PI)-1+(1/b-1/n)/6)/2):RETURN
400 ONERRORGOTO500:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME DDEF


PS6440
10 GOSUB400:ANGLE1:IFp>1 ORp=<0 THEN*
15 IFp=1 THENx=0:GOTO80
20 IFm=1 THENm=p:p=.5-p/2:GOSUB"LIB0:S6430":GOSUB400:p=m:m=1:x=1/y^2:GOTO80
30 IFn=1 THENn=m:p=p/2:GOSUB"LIB0:S6430":GOSUB400:n=1:p=p*2:x=y^2:GOTO80
40 IFm=2 THENp=1-p:m=n:n=2:GOSUB100:p=1-p:n=m:m=2:x=1/x:GOTO80
50 IFn>m THENp=1-p:d=n:n=m:m=d:GOSUB200:x=1/x:d=m:m=n:n=d:p=1-p:GOTO80
60 GOSUB200
80 y=x:RETURN
100 GOSUB"LIB0:S6420":GOSUB400:x=y:a=n-2
110 x=x/n*(1+((x-a)/2+(((4*x-11*a)*x+a*(7*n-10))/24+(((2*x-10*a)*x+a*(17*n-26))*x-a*a*(9*n-6))/48/m)/m)/m):RETURN
200 GOSUB100
210 d=x:c=p:GOSUB"LIB0:S6240":GOSUB400:p=c
220 z=n+m:z=EXP((z*LN(z/(n*x+m))+(n-2)*LNx+LN(n*m/z)-LN(4*PI)-(1/n+1/m-1/z)/6)/2):x=x+(y-p)/z
230 IFABS(d-x)>3E-4 THEN210 ELSERETURN
400 ONERRORGOTO500:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
FIN DU PROGRAMME E0AF


PZ5830
5 GOTO10010
10 DATA,x+C,10,20
20 DATAx,x/(n+1)+C           (n+10),10,30
30 DATA1/x,logx+C,20,40
40 DATA1/(xa),logxa+C,30,50
50 DATAe,e+C,40,60
60 DATAe,e/n+C,50,70
70 DATAa,"a/loga+C            (a>0,a1)",60,80
80 DATAa,"a/(nloga)+C       (a>0,a1)",70,90
90 DATAlogx,x(logx-1)+C,80,100
100 DATAxe,e/n(nx-1)+C,90,110
110 DATAsinx,-cosx+C,100,120
120 DATAsinax,-1/acosax+C,110,130
130 DATAcosx,sinx+C,120,140
140 DATAcosax,1/asinax+C,130,150
150 DATAtanx,-logcosx+C,140,160
160 DATAcotx,logsinx+C,150,170
170 DATAsinx,x/2-sin2x/4+C,160,180
180 DATAcosx,x/2+sin2x/4+C,170,190
190 DATAsecax,1/atanax+C,180,200
200 DATAcosecax,-1/acotax+C,190,210
210 DATA1/sinx,log(tan(x/2))+C,200,220
220 DATA1/cosx,log(tan((/4)+(x/2)))+C,210,230
230 DATAesinbx,e(nsinbx-bcosbx)/(n+b)+C,220,240
240 DATAecosbx,e(ncosbx+bsinbx)/(n+b)+C,230,250
250 DATAsinx,xsinx+(1-x)+C,240,260
260 DATAcosx,xcosx-(1-x)+C,250,270
270 DATAsinhx,coshx+C,260,280
280 DATAcoshx,sinhx+C,270,290
290 DATAtanhx,log(coshx)+C,280,300
300 DATA1/(a-x),sin(x/a)+C            (x<a),290,310
310 DATA1/(a+x),1/atan(x/a)+C,300,320
320 DATA1/(xa),log(x+(xa))+C,310,330
330 DATA(a-x),1/2(x(a-x)+asin(x/a))+C,320,340
340 DATA1/(x-a),1/2alog((x-a)/(x+a))+C  (x>a),330,340
10010 MODE8:DIM:x=10:y=340:r=x
10020 DEFCHR$(255)="0000FF0000"
10110 RESTORE(r)
10120 READm$,n$,b,c:IFm$="" THENm$=CHR$(8)
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 CLS:PRINTCHR$(129);" ";m$;" dx";TAB(l);l$;"=";n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>x THENr=x:GOTO10110
10180 IFz=28 ANDr<>y THENr=y:GOTO10110
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31ORz=13)ANDr<>c THENr=c:GOTO10110
10280 GOTO10150
FIN DU PROGRAMME E6EB