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...

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 :