Dans le mêm style, sur HP-28S, on a pas de TAGs, donc on est condanné à faire plus court !
Dans le mêm genre (mais plus long et moins lisible :
Code : Tout sélectionner
« -> A B C
«
B C - R->P
C A - R->P
A B - R->P -> a b c
« a RE b c - IM -1 ACOS MOD
b RE c a - IM -1 ACOS MOD
c RE a b - IM -1 ACOS MOD
{ 3 2 } ->ARRY
»
»
»
Les réultats sont sous forme d'une matrice
[[ a ^A° ]
[ b ^B° ]
[ c ^C° ]]
Il doit y avoir un moyen de simplifier, on voit clairement les répétitions et la rotations des arguments a b c ROT b c a ROT c a b ?
Une piste à creuser ?
Sinon, je propose une version pour HP29C (mais pas testée !)
Code : Tout sélectionner
a b c C^AB° A^BC° B^CA°
t: z: y: x: L: R1: R2: R3: R4: R5: R6:
[ xa ] [ ya ]
001 STO 4 xa ya ya
002 X<>Y ya xa
003 STO 2 ya xa xa ya
004 R/S [ xb ] [ yb ]
005 STO 6 xb yb xa ya yb
006 RCL 4 xb yb ya xa ya yb
007 - xb yb-ya ya
008 x:y yb-ya xb
009 STO 1 yb-ya xb xb xa ya yb
010 RCL 2 yb-ya xb xa xb xa ya yb
011 - yb-ya xb-xa xa
012 ->P ba° c xb-xa
013 STO 3 ba° c xb xa c ya yb
014 Rdn ba°
015 STO 5 ba° xb xa c ya ba° yb
016 R/S ba° [ xc ] [ yc ]
017 STO - 4 ba° xc yc xb xa c ya-yc ba° yb
018 RCL 6 ba° xc yc yb xb xa c ya-yc ba° yb
019 - ba° xc yc-yb yb
020 x:y ba° yc-yb xc
021 STO - 2 ba° yc-yb xc xb xa-xc c ya-yc ba°
022 RCL 1 ba° yc-yb xc xb xb xa-xc c ya-yc ba°
023 - ba° yc-yb xc-xb xb
024 ->P ba° cb° a xc-xb
025 STO 1 ba° cb° a a xa-xc c ya-yc ba°
026 Rdn ba° cb°
027 STO 6 ba° cb° a xa-xc c ya-yc ba° cb°
028 GSB 9 (ba-bc)° 180°
029 STO 5 (ba-bc)° a xa-xc c ya-yc (ba-bc)° cb°
030 lastx (ba-bc)° 180°
031 x:y 180° (ba-bc)°
032 RCL 4 180° (ba-bc)° ya-yc a xa-xc c ya-yc (ba-bc)° cb°
033 CHS 180° (ba-bc)° yc-ya
034 RCL 2 180° (ba-bc)° yc-ya xa-xc a xa-xc c ya-yc (ba-bc)° cb°
035 CHS 180° (ba-bc)° yc-ya xc-xa
036 ->P 180° (ba-bc)° ca° b
037 STO 2 180° (ba-bc)° ca° b a b c ya-yc (ba-bc)° cb°
038 Rdn 180° (ba-bc)° ca°
039 RCL 6 180° (ba-bc)° ca° cb° a b c ya-yc (ba-bc)° cb°
040 x:y 180° (ba-bc)° cb° ca°
041 GSB 9 180° (ba-bc)° (cb-ac)° 180°
042 STO 6 180° (ba-bc)° (cb-ac)° a b c ya-yc (ba-bc)° (cb-ca)°
043 + 180° ^b°-^c°
044 - ^a°
045 STO 4 ^a° a b c ^A° ^B° ^C°
046 RTN ^a°
047 LBL 9 x' y' a° b°
048 - x' y' a°-b°
049 1 x' y' a°-b° 1
050 CHS x' y' a°-b° -1 1
051 COS^-1 x' y' a°-b° 180° -1
052 + x' y' a-b+180° 180°
053 lastx x' y' a-b+180° 180°
054 / x' x' y' r.xyz 180°
055 lastx x' y' r 180°
056 x:y x' y' 180° r.xyz
057 FRC x' y' 180° .xyz r.xyz
058 x:y x' y' .xyz 180°
059 * x' y' (a-b)° 180°
060 RTN
Même utilisation et comportement que pour HP41C, avec (presque) le même nombre de pas !
Les résultats sont dans les registre R1 à R3 pour les longueur des cotés et R4 à R6 pour les angles.
Aucun autres registres (hors la pile) ne sont utilisés.
Les coordonnées des trois sommets sont entrés x [ENTER^] y [R/S]
L'ordre des sommet n'a pas d'incidence sur les valeurs, uniquemetn sur leur ordre (il n'y a donc pas besoin de tourner autour du triangle dans un sens ou l'autre !).
En principe, les trois modes trigonométriques sont supportés.
Mais je ne suis pas chez moi, je n'est pas d'émulateur sous la main !