Forum

Merci Woodstock !

Visiblement, faut que je revoie mes classiques ...

j'vais bouquiner ... J'ai visiblement qq années de retard ...

A bientôt !

merci Bernouilli, Oki et Alex !

Je suis arrivé un peu trop tard sur ce forum par rapport aux post de CG rappelés par Oki (Merci de m'y avoir redirigé !!! passionnant et impressionant ).

J'ai récupéré l'archive BASFILE et BOB1COPY sur PC1500.com (c'est super la communauté) ... y'a plus qu'à m'y mettre ...

Pour le RENUM, peut être une bonne idée d'utilitaire à développer et garder(du coup) dans la XMEM du PC-1500 ?

A vos claviers ! (mais je pense que ca doit exister qq part ... le PC 1500 en a besoin depuis ... 30 ans ...)

Bonjour les MySiliciumiens (et miennes) !

Désormais équipé d'une mémoire étendue (CE-163, merci Okinawok) et d'une interface notamment audio (CE-150, merci Ledudu !) je peux tester pleins de programmes sauvegardés au format WAV (merci PC1500.com).

Du coup je me pose des questions que pleins d'utilisateurs de PC1500 ont dû se poser ... et comme vous êtes là ...
Avec 16K de mémoire on peut en mettre des choses dans le PC-1500, mais je comprends qu'il n'y a qu'une seule zone programmation (pas comme sur Casio ou HP). Du coup si on veut faire coexister plusieurs programmes basic en mémoire, le solution est de les programmer en série, en les séparant par des END. Puis de les lancer en employant RUN XYZT où XYZT est le n° de ligne du début du programme voulu. J'ai bien vu qu'en assigant RUN XYZT@ à une touche on peut lancer directement ces programmes en utilisant la touche DEF, c'est pratique !

Ya t il un autre moyen que je connais pas (je débute PC1500) pour faire coexister plusieurs programme basic en mémoire (j'en suis pas encore au LM) ?

Pour simplifier les opérations, connaissez vous un utilitaire genre "RENUM" qui renuméroterait automatiquement les programmes basic, en prenant en compte les GOTO, RESTORE etc ... ?
C'est une fonction qui existe d'origine sur le HP75C et qui serait super pratique sur le PC1500 ...

Encore plus fort, existerait il le même genre d'utilitaire qui fonctionnerait avec le CLOAD ?
Et qui permettrait par exemple de "loader" directement un programme en commençant au n° de ligne 10000 par exemple et en mettant à jour tous les renvois contenus dans le programme d'origine bien sûr ...

Après, savez vous si il existe un manuel du CE-163 ? comment on utilise les 2 pages de 16k ... c'est pas très clair pour moi ...

Merci à vous tous de vos lumières éclairantes !!

Merci Hobiecat pour la démo - ca a l'air facile !

Les cartes HP71B sont elles les mêmes que celles du 75C ?

Si oui, Gégé je suis intéressé aussi pour essayer sur mon 75C - jamais trouvé de carte magnétiques jusqu'à présent ...

Bonne journée à Tous !

Bienvenue Bubblefouasson !

Tu as une collec impressionnante qui correspont vraiment à 100% à toutes les rubriques de MySilicium ...

A bientôt

Bonsoir à tous,

Sur le HP-50 de Gilles59 ... le code est tellement simple ... cette machine est faite spécialement pour résoudre les pb de triangle ?

Marge pour ton bilan,
Je suis totalement hors concours, mais, l'important c'est de participer, comme disait le Baron, alors mes p'tis codes donnent :
- 409 octets sur PC-1500 (+les 12 variables).........................(post de mercredi)
- 107 octets sur HP-41 (après le GTO..) + 9 registres............(post de vendredi)
je crois qu'un registre = 8 octets sur la 41, mon pgm utilise donc 179 octets en tout - je ne connais pas l'équivalent mémoire des registres du PC-1500, mais mon basic n'est pas optimisé du tout ... mais il est sorti le premier !

@ bientôt

Salut hp41cx,

un truc à mettre dans mon 75, super, je teste dès que j'ai le temps de rentrer tout ca !
(tu as dû te faire suer à tout retapper ...)

@ bientôt

Je dirais même plus, très belle versplam Zion!

L'heure d'un p'tit bilan Marge ?

(A moins que tu arrives a paufiner ta version HP29C que nous attendons !)

Merci à toi et hobiecat pour les consiels d'affichage du code , j'essayerai au prochain coup !

Bon WE à tous

Merci Marge !

Y'a eu une mise en forme bizarre sur mon post qui rend le pgm pas très lisible ... si ca interesse qq, je le remet sans les commentaires.

Pour l'arccosinus, j'ai traité le calcul par appel du sous programme :

LBL10
ENTER^ RDN X<>Y *
LASTX X^2 R^ X^2 +
R^ X^2 - / 1/x 2 /
ACOS RTN

... qui calcule directement la formule " acos(A^2+B^2-C^2)/2AB " avec A,B,C dans la pile (en position x, y,z).

De ton côté tu as fais ces calculs directement par opérations dans les mémoires, et effectivement, on ne sait pas faire un arccos directement en mémoire ! .
Sinon, je suis impressionné par l'utilisation de l'adressage indirect dans la première partie, que tu manipules à la perfection avec la 29C !

Au bilan, j'ai 2 pas de programme en moins que toi (après vérification le RTN est sur le pas 77) mais j'utilise 2 registres mémoires en plus... je m'incline !

Merci pour les cours de math et géométrie C.ret ... ca fait loin tout ca ...

J'ai lancé ma 41CX sur "le problème du triangle".

Voilà ce qu'elle m' a sorti :

LBL "TTT"
"Y^ XR/S" ' message saisie des données dans le registre alpha ; on entre chacun des 3 points : Y enter X R/S
PROMPT STO01 x<>Y ' point A
STO02
PROMPT STO03 x<>Y 'point B
STO04
X<>Y XEQ05 STO08 ' on en profite que A et B sont dans la pile pour lancer un XEQ05 et calculer AB
PROMPT STO05 x<>Y 'point C
STO06
x<>Y RCL02 RCL01 ' calcul de AC
XEQ05 STO07 ' calcul de AB par le XEQ05
RCL03 RCL04 RCL05
RCL06 XEQ05 STO09 'caclul de BC par XEQ 05
RCL07 RCL08
XEQ10 STO01 'calcul angle alpha par XEQ 10
RCL07 RCL08 RCL09
XEQ10 STO02 'calcul beta par XEQ 10
RCL08 RCL07 RCL09
XEQ10 STO03 'calcul gamma par XEQ 10
STOP

LBL05 'sous programme calcul norme d'un vecteur X1 Y1 X2 Y2 dans la pile
X<>Y RDN - X^2 RDN
X<>Y - X^2 X<>Y RDN
+ SQRT RTN

LBL10 'Sous programme calcul de acos(A^2+B^2-C^2)/2AB avec A,B,C dans la pile
ENTER^ RDN X<>Y *
LASTX X^2 R^ X^2 +
R^ X^2 - / 1/x 2 /
ACOS RTN END

78 pas 105 octets
+ 09 registres utilisés
résultats mémoires :
01 alpha
02 beta
03 gamma
07 AC
08 AB
09 BC

1/ ca marche
2/ je bute sur l'optimisation de l'utilisation des mémoires avec la pile à 4 niveau
3/ je m'suis bien gratté la tête sur le petit sous programme LBL 10 (j'suis rouillé ...)
4/ en combinant avec le RPN de Marge ... peut être qu'on arrivera à une solution optimisée !

En tournant autour de ce triangle, j'ai une p"tit question pour les connaisseurs que vous êtes :
sur ma 41 j'ai un module MATH1 qui propose des programmes pour les complexes (calcul de norme notamment par la fonction MAGZ) et pour les triangles (notamment la fonction SSS pour le problème présent). Par contre c'est des programmes tout fait et interactifs - on peut utiliser des parties de ces programmes en ROM ou tuer leur interactivité pour utiliser ces routines ?

je ne sais pas si je suis très clair ...

Bon d'accord on en décapsule une et après au lit !

un 75C sans doc, c'est déjà pas mal mais avec doc c'est quand même mieux surtout qu'en 1990, y'avait pas internet (incroyab' les jeunes non ?) ...
J'avais donc mon 75C et je ne savais pas m'en servir ...j'avais beau lire et relire tous les tests des magazines que j'avais gardé ... on ne peut pas inventer ... et puis cet été là ...
J'ai été en stage au CEA à Saclay dans un service où ils utilisaient des 75C (j'en revenais pas !) pour contrôler une production de je ne sais plus quoi radioactif !!!
mon stage se déroulait sur l'exploitation d'une grosse machine en horaire décalé.
J'ai donc photocopié toute la doc en péruque pendant mon stage (par morceaux, plusieurs nuits) puis fais relier le bazar façon bouquin. Je m'y revois encore dans ce couloir désert avec le seul bruit du photocopieur ... j'avais l'impression qu'il faisait le bruit d'un avion !

Et voilà je n'ai en fait qu'une photocopie de la doc du 75C, en français, mais je sais le temps que j'y ai passé !

Je l'ai toujours cette doc ... et je n'ai jamais revu de doc originale du 75C en français depuis ...

Alors cette bière ?

Okinawok a écrit :Bienvenue
C'est marrant tu as peu de machines, mais que des monstres sacrés ! Comment s'est passé ta rencontre avec le 75C ? Moi, je ne le connaissais pas avant mon arrivée récente sur ce forum... Jamais vu avant !

Tu y vas un peu fort Okinawok !!
En fait je ne veux pas d'une collection envahissante et je veux me servir de mes machines et donc ... je sélectionne. (j'ai aussi quelques périphériques HP)
J'ai pas mal récupéré, renvendu ... comme tout le monde ...
Le 75C, je l'ai repéré lors de sa sortie en lisant les articles dans les revues de l'époque (OP, OI etc ...) ... aux environs de 8000F, des contacts en or ... inaccessible ... on en révait tous ...
et puis un jour, fin des années 80, j'étais étudiant, j'ai vu un 75C dans la vitrine d'un revendeur de matériel électronique d'occasion (Palaiseau essonnes) - y'avait pas ebay -. En état vraiment moyen, pas de chargeur, pas d'accu, pas de doc, vendu "en l'état" vers 300 F si je me souviens bien. 300F à l'époque c'étais pas tout à fait rien surtout pour un étudiant donc j'ai longuement réfléchi (47 microsecondes) et j'ai dépensé mon argent de poche !
J'ai dû bricoler un peu pour lui mettre des piles (il y avait 2 pinoches sur 3 cassées ...) et il fonctionne très bien depuis. Je l'ai donc maintenant depuis ... presque 25 ans ... arghh !!!
Il est ultra rapide (pour l'époque), un basic un peu original mais finalement simple à utiliser et complet, une gestion de mémoire super bien faite mais il est vraiment très volumineux et lourd pour un "pocket".
Pas forcément le plus pratique donc ... et avec un affichage limité à une seule ligne, je trouve finalement le sharp PC-1500 plus pratique, plus "tout terrain" (avec un peu de mémoire en + ) pour le quotidien.

Après il y a aussi eu l'épisode de la récupération de la doc du 75C en français mais c'est une autre histoire ... là faut vraiment sortir les bières ...

voilà la petite histoire !

Bonjour à tous,

Je me jette avec une première solution en ... basic ... (Sharp PC-1500)
donc pas optimisée, mais lisible
Pas sous programme, tout en ligne, c'est un début !

10 input "Point A - Entrer XA,YA :";XA,YA
20 input "Point B - Entrer XB,YB :";XB,YB
30 input "Point C - Entrer XC,YC :";XC,YC
40 AB = sqr((XB-XA)^2+(YB-YA)^2)
50 BC = sqr((XC-XB)^2+(YC-YB)^2)
60 AC = sqr((XC-XA)^2+(YC-YA)^2)
70 cc = ACS((BC^2+AC^2-AB^2)/(2*BC*AC))
80 AA = ACS((AC^2+AB^2-BC^2)/(2*AC*AB))
90 BB = 180-AA-CC
100 PRINT "**RESULTATS**"
110 PRINT "LONGUEUR AB :";AB
120 PRINT "LONGUEUR BC :";BC
130 PRINT "LONGUEUR AC :";AC
140 PRINT "ANGLE BAC:";AA
150 PRINT "ANGLE ABC:";BB
160 PRINT "ANGLE BCA:";CC
200 END

Et avec ce petit programme, je confirme longueurs et angles du triangle de C.ret avec A(9,5) ; B(5,7) et C(2,4)

au suivant !

EDIT du 6 février : je glisse discrètement une seconde version, un peu plus optimisée, toujours pour PC-1500

10 "T"DIM x(3),Y(3),D(3) : FOR I = 1 TO 3 INPUT X(I),Y(I) : NEXT I
20 FOR I = 1 TO 3 : GOSUB "M"
30 D(I)=SQR((x(I)-X(J))^2+(Y(I)-Y(J))^2) : PRINT "d(";I;")=";D(I) : NEXT I
40 FOR I = 1 TO 3 : GOSUB"M"
50 PRINT "a(";I;")=";ACS((D(K)^2+D(I)^2-D(J)^2)/2/D(I)/D(K)) : NEXT I
60 CLEAR : END
70 "M" J=I+1:IF I=3 THEN LET J=1
80 K=I-1:IF I=1 THEN LET K=3
90 RETURN

a bientôt !

Yes zpalm !

solution testée et approuvée 0!=1

Mais 69! est calculé en ... 13,5s (car le test est désormais dans la boucle) mais c'est hors cahier des charges !

@ bientôt

(Mon premier "vrai" post sur le forum !)

En m'inspirant de la proposition de C.Ret, que je trouve fort élégante :

C.Ret a écrit :Pour les calculettes biologiques :

Code : Tout sélectionner

« IF DUP 1 >
  THEN
    DUP 1 - F! *
  END
»
'F!' STO

ou

Code : Tout sélectionner

« 1
  DUP ROT FOR f
    f *
  NEXT
»
'FCT!' STO

Et pour les machine moins biologiques:

Code : Tout sélectionner

                        n
001 LBL "FCT    
002 1             n     1
003 x<>Y          1     n
004 Lbl 00      prd     f
005 ST* Y     prd.f     f
006 DSE X     prd.f   f-1
007 GTO 00
                 n!     0
008 Rdn
009 END                n!

Code : Tout sélectionner

 1:"F"AREAD N:F=1:FOR I=1 TO N:F=FI:NEXT I:PRINT N,F:END

et en ajoutant juste un petit test au début, on obtient :

001 LBL "FCT
002 x=0?
003 1
004 1
005 x<>Y
006 Lbl 00
007 ST* Y
008 DSE X
009 GTO 00
010 Rdn

Et ca marche pour 0! =1

pour info 69!=1,7112245E98 en 10,5 s sur ma 41CX

Sur mon PC1500 la solution basic de base donne 1,11224527E98 en 2,7s

Sur mon HP75C la même solution donne 1,112245243E98 en 0,71s

Je constate un petit écart de précision entre mes 2 pocket basic et un 75C qui va presque 16 fois plus vite que la 41CX !!

et je suis au taquet des possibilités du HP75C avec 253!=5.17346099269E499 en ... 2,58 s

Je me coucherai moins bète ce soir .....

Et faudrait que je fasse un chrono sur ma 48GX que je n'ai pas sous la main ...

Voili