Curiosité "historique" et un algo dont je n'avais pas entendu parler.
J'étais tombé sur une video à propos du HP 9100, premier ordinateur/calculatrice de bureau chez HP, travaillant avec une pile à 3 registres.
On voit passer brièvement un énoncé de programme de recherche de racine f(x)=0, et son exécution.
Un peu de recherche, je vous file les détails.
https://youtu.be/8O-yftx41bc
Dans la vidéo ce programme est chargé par une carte magnétique.
En cherchant la référence du programme (PART NO. 09100-070014), on le documente ici (brochure HP, p.72) :
https://doc.lagout.org/science/0_Comput ... y_1969.pdf
J'ai repris +/- l'idée de l'algo décrit et adapté à ma sauce pour une HP-15C (pile XYZT, et des GTO avec label).
La fonction à évaluer est définie au LBL 0 (pas montrée).
On donne une valeur de X "quelconque", et un pas de recherche pour X, ensuite le programme avance jusqu'à ce que f(X) change de signe et alors il fait marche arrière sur l'axe des X et prend un pas plus petit (HP utilise delta/10), etc. Il converge, mais pas très vite
Valeur X de départ, ENTER
un R/S , pour inviter à rentrer la valeur de pas DeltaX
R/S
Une PSE montre les étapes, il s'arrête lorsque le f(X) est < epsilon (défini en R6)
Je suis paresseux, je n'ai pas nettoyé les lignes des programmes précédants celui-ci
Code : Tout sélectionner
227 { 42 21 12 } f LBL B
228 { 44 0 } STO 0
229 { 31 } R/S
230 { 44 1 } STO 1
231 { 40 } +
232 { 32 0 } GSB 0
233 { 44 3 } STO 3
234 { 45 0 } RCL 0
235 { 32 0 } GSB 0
236 { 44 2 } STO 2
237 { 42 21 1 } f LBL 1
238 { 45 2 } RCL 2
239 { 45 20 3 } RCL × 3
240 { 43 30 2 } g TEST x<0
241 { 22 48 2 } GTO .2
242 { 22 48 4 } GTO .4
243 { 42 21 48 2 } f LBL .2
244 { 1 } 1
245 { 0 } 0
246 { 16 } CHS
247 { 44 10 1 } STO ÷ 1
248 { 42 21 48 4 } f LBL .4
249 { 45 3 } RCL 3
250 { 44 2 } STO 2
251 { 45 1 } RCL 1
252 { 44 40 0 } STO + 0
253 { 45 0 } RCL 0
254 { 42 31 } f PSE
255 { 32 0 } GSB 0
256 { 44 3 } STO 3
257 { 43 16 } g ABS
258 { 45 6 } RCL 6
259 { 43 10 } g x≤y
260 { 22 1 } GTO 1
261 { 45 0 } RCL 0
262 { 43 32 } g RTN
Qui aura envie de le réécrire avec le style de l'époque ?