Misez P'tit, Optimisez - N°33 (angles & côtés d'un triangle)

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Répondre
Avatar de l’utilisateur
Hobiecat
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2950
Inscription : 06 sept. 2011 14:57
Localisation : Normandie / Antwerpen

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par Hobiecat » 04 févr. 2013 00:16

Comme dit par zpalm, peut importe que les registres soient comptés ou pas, par contre il faut être cohérent : ou ils sont comptés pour tous les programmes, ou ils ne sont comptés pour aucun ! :wink:

PS : mazette, quel MPO : 7 pages et des versions pour plein de bécanes d'époque variées... Assurément un MPO qui restera dans les annales ! :slime:

Avatar de l’utilisateur
Marge
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4536
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par Marge » 04 févr. 2013 00:29

3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
dprtl
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 297
Inscription : 27 janv. 2013 01:26
Localisation : Strasbourg
Contact :

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par dprtl » 04 févr. 2013 00:49

Voici une version retravaillée pour la Casio Z-1 en C, qui produit exactement le même résultat que précédemment, mais en 351 octets + 10 variables :

Code : Tout sélectionner

#define f3 for(i=0;i<3;i++)
#define i1 (i+1)%3
#define i2 (i+2)%3
main(){
double x[3],y[3],a[3];
int i;
f3{printf("Point %c? ",i+65);scanf("%lf %lf",&x[i],&y[i]);}
f3{a[i]=sqrt(pow(x[i]-x[i1],2)+pow(y[i]-y[i1],2));}
f3{x[i]=acos((pow(a[i],2)+pow(a[i2],2)-pow(a[i1],2))/2/a[i]/a[i2]);
printf("%c%c=%lf ^%c=%lf\n",i+65,i1+65,a[i],i+65,x[i]);getch();}
}
C'était juste pour passer devant les Basic dans le classement ; car les versions de zpalm en LMS sont vraiment intouchables :)

Avatar de l’utilisateur
Marge
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4536
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par Marge » 04 févr. 2013 01:00

3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1997
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par C.Ret » 04 févr. 2013 11:47

J'ai aussi finalemetn corrigé le programme pour HP-29s :

Code : Tout sélectionner

001 STO 4     021 STO - 2      041 -
002 X<>Y      022 RCL 1        042 STO 4
003 STO 2     023 -            043 RTN
004 R/S       024 ->P    
005 STO 6     025 STO 1        044 LBL 8
006 RCL 4     026 Rdn          045 1
007 -         027 STO 6        046 CHS
008 x:y       028 GSB 9        047 COS^-1
009 STO 1     029 STO 5        048 RTN
010 RCL 2     030 GSB 8    
011 -         031 x:y          049 LBL 9
012 ->P       032 RCL 4        050 -
013 STO 3     033 RCL 2        051 GSB 8
014 Rdn       034 ->P          052 +
015 STO 5     035 STO 2        053 COS
016 R/S       036 Rdn          054 COS^-1
017 STO - 4   037 RCL 6        055 RTN
018 RCL 6     038 GSB 9    
019 -         039 STO 6    
020 x:y       040 +    

+ 6 registres:   R1=a    R2=b     R3=c         R4=^A  R5=^B    R6=^C
Soit 55 octets de programme et 6*7 = 42 donc total 97 octets seulements.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator |HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Avatar de l’utilisateur
Marge
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4536
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par Marge » 04 févr. 2013 13:17

C'est un record !

Le temps de vérifier tout ça, et je mets à jour. Merci C.Ret pour cette contribution qui pourrait placer ma machine préférée en excellente position ! :D
3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
Marge
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4536
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par Marge » 04 févr. 2013 14:19

3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1997
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par C.Ret » 04 févr. 2013 20:53

L'honneur en revient à zpalm qui a bien déboggué mes précèdentes productions. Et si tous les angles fonctionnent, c'est grâce en quelque sorte à lui et à l'usage astucieux de ACOS et COS.

Pour le compte des octets, j'ai un doute, STO 1 compte bien uniquement pour 1 octet ?
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator |HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Avatar de l’utilisateur
Marge
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4536
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par Marge » 04 févr. 2013 21:28

Selon le même zpalm (le monde est petit !), oui.
3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
zpalm
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2499
Inscription : 03 mai 2008 15:33
Localisation : Grenoble

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par zpalm » 04 févr. 2013 21:43

:D :D :D :lol:

Avatar de l’utilisateur
Marge
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4536
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par Marge » 05 févr. 2013 15:05

3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
Marge
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4536
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par Marge » 10 févr. 2013 14:36

3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
Hobiecat
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2950
Inscription : 06 sept. 2011 14:57
Localisation : Normandie / Antwerpen

Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian

Message par Hobiecat » 10 févr. 2013 15:21

Tout simplement bravo !
(y compris à l'initiateur de ce MPO qui restera dans les annales ! :wink: )

Répondre

Revenir vers « Tous les Pockets »