Mieux se connaître grâce à la Casio fx-602P

[Tipoucet]

En relisant le recueil de programmes livré avec la FX-602P, j'ai redécouvert l'étrange programme qui calcule la surface du corps humain (chapitre médecine) ...

Voilà les formules bien tarabiscotées pour ceux qui ne connaissent pas encore leur surface personnelle (le programme propose 2 formules de calcul différentes)

1) Formule de Dubois : (h^0.725) X (W^0.425) X 71.84 X 0.0001 (h=taille en cm ; W = poids en kg)

2) Formule de Boyde : (h^0.3) X (W^(0.7285-0.0188logW)) X 3.207 X 0.0001 (h en cm ; W en grammes)

Je me doutais bien que j'étais très balèze mais les chiffres parlent d'eux-mêmes : 1,95 m² pour la formule du haut, 2 m² tout ronds avec la formule du bas ... Heureusement que je n'utilise pas d'écran total pour la bronzette ...

Qui dit mieux

[pir2]

2.149 m^2

2.161 m^2

Très proches, les deux résultats, je suis curieux de ceux de nôtre lapin ensanglanté, çà doit être impressionnant

[charognard]

1,73 et 1.74
c'est impressionnant pour un Lapin

[zpalm]

2,06 et 2,07 sur ma 41C.

Amusant comme deux formules si différentes donnent des résultats si proches. Mais les résultats sont-ils acceptés s'ils ne sont pas calculés sur une 602P?

[Marge]

Amusant comme deux formules si différentes donnent des résultats si proches.

Ah oui, mais il s'agit bien de la même personne !

[C.Ret]

Que je sois osculté par le Dr. Dubois ou par le Dr. Boyde, ma surface corporelle fait à chaque fois 2.00 m². Je suis donc un peu au-dessus de la moyenne qui pour un homme doit être aux alentours de 1.9 m².

Comme ces médecins n'avaient pas leur tableau noir pour faire les calculs, je leur ai prêté mon SHARP PC-1211 (ils ne savaient pas utiliser une calculatrice RPN comme la HP41!)

Code : Tout sélectionner

 10 PAUSE "SURF.CORPO. DUBOIS/BOYDE"
 20 INPUT "TAILLE (CM) ";H,"POIDS (KG)  ";W:GOSUB 100
 30 USING "####.##"
 40 PRINT "SURF.CORPO.";D;B;"(M2)"
 50 GOTO 20

100 D=H^.725*W^.425*.007184
110 W=|E3W
120 B=H^.3*W^(.7285-.0188*LOG W)*3.207|E-4
130 RETURN

[gege]

Hello, la première formule donne dans mon cas 2,18 mais la seconde donne 0,03 ??
Dans mon cas H=191 et W=89, quelqu'un peut-il me détailler le calcul ?
Je préfère passer pour un idiot qu'en rester un !
Merci
G.E.

[Marcus von Cube]

Pour la X-07 (en teuton):

Code : Tout sélectionner

' Berechnung der Körperoberfläche
'
5 REM Körperoberfläche
10 DEFFNLGT(x)=LOG(X)/LOG(10)
20 CLS:INPUT "Größe cm";Height
30 INPUT "Gewicht kg";Weight
40 F1=Height^.725*Weight^.425*.007184
50 Weight=1000*Weight
60 F2=Height^.3*Weight^(.7285-.0188*FNLGT(Weight))*3.207E-4
70 PRINT USING"Fläche 1=#.###";F1
80 PRINT USING"Fläche 2=#.###";F2;
90 IF INKEY$="" THEN 90
100 CLS

J'ai transféré le programme a l'aide d'interface USB que j'ai bricolé. Sur la X-07:

Code : Tout sélectionner

10 INIT#5,"COM:",2400
20 EXEC &HEE1F
SAVE"REMOTE"
NEW
RUN"REMOTE"

Sur mon PC:

Code : Tout sélectionner

mode com8 baud=2400 data=8 stop=2 parity=n rts=hs octs=on xon=off
basX07 -cW -t2 koerper.bas com8

Résultat:

Code : Tout sélectionner

Größe cm? 172
Gewicht kg? 67
Fläche 1=1.791
Fläche 2=1.798

[C.Ret]

Hello, la première formule donne dans mon cas 2,18 mais la seconde donne 0,03 ??
Dans mon cas H=191 et W=89, quelqu'un peut-il me détailler le calcul ?
Je préfère passer pour un idiot qu'en rester un !
Merci
G.E.

Attention au log décimal et non népérien et W en g.

[charognard]

Et surtout la masse en gramme pour la deuxième versions

[kweeky]

W = poids en kg

*** s'écroule en portant la main à son coeur et en criant "Arrrrrgggghhhh !!!" ***

[charognard]

C'est vrai que là ça pique les yeux !

[kweeky]

Un petit peu oui !

[Marcus von Cube]

J'ai édité mon post: viewtopic.php?p=348228#p348228

[gege]

Et surtout la masse en gramme pour la deuxième versions

Oulà !
Merci !
A+
G.E.