Quelques modèles de ma collection

Autre version du programme Syracuse

Pas	Touches
01	2
02	Kin ÷ 1		# n / 2
03	Kout 1
04	-
05	1
06	Kin + 3 	# TOF = TOF + 1
07	=
08	1/x		# Si n = 1 arrêt sur une erreur
09	Kout 1
10	-
11	RND		# Partie entière quand on est en FIX 0
12	+
13	.
14	5
15	=		# Si n est pair on obtient 1 et 0 sinon
16	x > 0		# Retour pas n°1 si n pair
17	6		# Sinon...
18	Kin × 1
19	1
20	Kin + 1		# 3n+1
21	Kout 1
22	x ≤ M		# Si n <= max retour au pas n°1
23	Min		# sinon mise à jour du max
24	x > 0		

Exemple d’utilisation pour N = 27 puis N = 17 :

MODE FIX 0
KAC
27 Min Kin 1 P1

Le programme s'arrête sur -E-
AC puis MR pour voir le maximum (9232) et Kout 3 pour le temps de vol (111)

Pour un autre calcul faire : 
KAC
17 Min Kin 1 P1
Résultats : max = 52 et TOF = 12

Décomposition d’un entier en facteurs premiers

Programme P1 :

001	Min
002	1
003	Kin 1
004	Mode 7 0    # Fix 0

Programme P2 :

001	MR
002	÷
003	1
004	Kin + 1
005	Kout 1
006	-
007	RND
008	=
009	x > 0
010	+/-
011	x > 0       # Cela revient à tester x ≠ 0
012	Kout 1
013	HLT
014	1/x
015	×
016	MR
017	=
018	Min
019	1
020	Kin - 1
021	Kout 1
022	x ≤ M
023	AC

Utilisation : Décomposition de 2024 en facteurs premiers

2024 P1
P2
Affichage : 2
RUN
Affichage : 2
RUN
Affichage : 2
RUN
Affichage : 11
RUN
Affichage : 23
RUN
0

Donc 2024 = 2 × 2 × 2 × 11 × 23

Lorsque le nombre est premier :

13 P1
P2
Affichage : 13
RUN
0