Accueil > Réalisations > Publications > Ouvrages > Ouvrage sur la HP28 c/s > Voyage au centre de la HP28 c/s : lire le livre en ligne

Voyage au centre de la HP28 c/s : lire le livre en ligne

mardi 27 juin 2006, par Paul Courbis

Si vous ne voulez pas télécharger l’ensemble de l’ouvrage, vous pouvez le lire en ligne ici...

Si vous désirez une version papier, un « reprint » est disponible via Amazon !

Voyage28 - page 253 - Courbis, acteur de l'Internet depuis 1988
Section prcdente : Programmes mathématiques Page prcdente Sommaire Page suivante Section suivante : Programmes divers

Programmes mathématiques

(c) Courbis www.courbis.fr   Page 250  ?->FR (ttv) ->FRAC est ne'cessaire.Ce programme prend n'importe quel objet dans la pile et transforme les re'els  qui s'y trouvent en fractions.1: real  complexreal vector complex vectorreal matrix complex matrixalgebraic se transforme en 1: `N/D'`a/b+c/d*i'  '[ a1/b1 a2/b2 ...]''[ a1/b1+c1/d1*i ...]' '[[ a1/b1 ....] [..      ...]]' '[[ a1/b1+c1/d1*i ...] [..      ...]]' `a/b*x+...+sin(c/d*x)+...'?->FR << IF DUP TYPE 0 ==  THEN ->FRAC   ELSE IF DUP TYPE 1 ==       THEN 1 SF DUP RE ->FRAC SWAP IM DUP ABS ->FRAC             `i' * SWAP IF 0 >= THEN + ELSE - END       ELSE IF DUP TYPE DUP 3 == SWAP 4 == OR             THEN ->STR '' SWAP                 DO DUP ' ' POS DUP2 1 SWAP SUB                     3 ROLLD 1 + 999 SUB SWAP RCLF 31 SF -> F                  << IFERR STR->                     THEN F STOF                    ELSE F STOF 1 CF ?->FR ->STR                          IF 1 FS? THEN DUP SIZE 1 - 2 SWAP SUB                         END ' ' +                     END >>                    ROT SWAP + SWAP                  UNTIL DUP SIZE 2 <=                 END                  + DUP 1 DISP            ELSE IF DUP TYPE 9 ==                  THEN -> A << A 1 1 A SIZE                   FOR X -> Y << A X EXGET       IF DUP TYPE 2 <     THEN ?->FR DUP IF TYPE 2 < THEN 1 ELSE DUP SIZE                           END -> S << Y SWAP EXSUB Y S + >>       ELSE DROP Y 1 + END >>    NEXT >> DROP                  END            END         END  END >>  V28 #4 (C) 2001 www.courbis.com 8/03/2001, 12:46250
Section prcdente : Programmes mathématiques Page prcdente Sommaire Page suivante Section suivante : Programmes divers
© Courbis 1988-2010
Tous droits réservés
Permalien
Faire un don avec Paypal Le livre est entièrement gratuit mais vous pouvez
avec Paypal pour participer aux frais d'hébergement de ce site... Merci !

Messages

Un message, un commentaire ?

modération a priori

Ce forum est modéré a priori : votre contribution n’apparaîtra qu’après avoir été validée par un administrateur du site.

Qui êtes-vous ?
Votre message

Pour créer des paragraphes, laissez simplement des lignes vides.

Les spams donneront systématiquement lieu à dépôt de plainte. Les messages peu aimables ou comportant trop de fautes d'orthographe seront purement et simplement supprimés sans publication.
ipv6 ready ipv6 test
Suivre ce site :
Recommander cette page :
Bookmark and Share
Traduire :