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