Misez p'tit Optimisez n°75 : l'aire sous les Batrachions

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

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

Re: Misez p'tit Optimisez n°75 : l'aire sous les Batrachions

Message par C.Ret » 04 févr. 2017 16:11

Merci zalpm pour l'attention portée à mon petit code.

En effet, je n'avait pas remarqué qu'il fallait CHECker après avoir définit la fonction. En fait, dès la première utilisation, F0 contenait quelque chose.

Je me rends compte aussi qu'en réinitialisant l'application Fonctions, je perds mon programme AIRBAT !!

Pour l'aire signée négative où j'obtiens -8, j'ai simplement sélectionné l'aire entre g(x) (symbolisée par F3) et f(x) (symbolisé par F2) à l'aide du ous-menu FCN de l'écran graphique.
Il faut cependant avoir sélectionner F3, soit par le sous-menuIDN soit à l'aide du pad et ne pas entrer exactement 4 et 12 avec le sous-menu ALLER, mais se contenter de la valeur approchée produite par le déplacement du curseur ?? Par ailleurs, je suis en mode "Arrondi" 4 chiffres !

Je ne me souviens pas que les valeurs entières saisies 4 et 12 aient posé le moindre problème la semaine dernière lors de la capture d'écran. Je suis depuis pssé en 2016 08 26 (10637) ?
Dernière édition par C.Ret le 04 févr. 2017 20:47, édité 1 fois.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-15C | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator . .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

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

Re: Misez p'tit Optimisez n°75 : l'aire sous les Batrachions

Message par zpalm » 04 févr. 2017 16:52

C.Ret a écrit :Pour l'aire signée négative où j'obtiens -8, j'ai simplement sélectionné l'aire entre g(x) (symbolisée par F3) et f(x) (symbolisé par F2) à l'aide du ous-menu FCN de l'écran graphique.
Il faut cependant avoir sélectionner F3, soit par le sous-menuIDN soit à l'aide du pad et ne pas entrer exactement 4 et 12 avec le sous-menu ALLER, mais se contenter de la valeur approchée produite par le déplacement du curseur ??
Effectivement ça marche en déplaçant le curseur avec le pad, mais pas en entrant directement les valeurs de début et de fin ! Étrange...

C.Ret a écrit :Je me rends compte aussi qu'en réinitialisant l'application Fonctions, je perds mon programme AIRBAT !!
Tu peux créer une copie de l'application Fonction que tu peux appeler MPO75 par exemple et que tu peux modifier comme tu veux (bouton Enregistrer sur l'écran de la bibliothèque d'applications).

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

Re: Misez p'tit Optimisez n°75 : l'aire sous les Batrachions

Message par C.Ret » 04 févr. 2017 20:28

Super, je l'ai remisé dans un fichier "Batrachiants" avec les autres programmes recopiés dans ce MPO et lors de mes essais.
C'est pas mal, on peut avoir plusieurs fonctions/programme par ficher et ils apparaissent dans le menu TOOLS/USER/BatrachiantsMO75
Donc, je peux organiser tout cela comme dans les répertoires et sous-répertoires de mon HP-28S.

J'ai modifié AIRBAT pour qu'il accepte des arguments non entiers et qu'il puisse être stocké où l'on veux (merci la commande STARTAPP !
J'ai aussi trouvé un affichage plus élégant qu'un simple MsgBox.

Code : Tout sélectionner

EXPORT AIRBAT(a,b)
BEGIN
LOCAL v, c1:=RGB(99,255,99,240), c2:=RGB(255,99,99,240);

STARTAPP("Fonction"); 

FOR v FROM 1 TO 9 DO UNCHECK(v) END;

F0:="FLOOR((√(8*X-7)+1)/2";
CHECK(0);
Xmin:=−.2;Xmax:=1.2*b;
Ymin:=−.2;Ymax:=1.2*F0(b);
GridDots:=1;GridLines:=0;Labels:=0;
Method:=2;

STARTVIEW(1);
RECT(a,0,CEILING(a),F0(a),c2,c2);
FOR v FROM CEILING(a) TO FLOOR(b)-1 DO
 RECT(v,0,1+v,F0(v),c1,c1) END;
RECT(FLOOR(b),0,b,F0(b),c2,c2);

TEXTOUT("∫ "+a+"→"+b+"="+AREA(F0,a,b),a,F0(b),0);

END;
Image

Créer une nouvelle instance de l'application 'Fonction' appelé MPO75 c'est pas mal aussi. Tous les réglages, fonctions et autres programmes sont mémorisés là dedans.
Bien pratique.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-15C | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator . .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Répondre

Revenir vers « Tous les Pockets »