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

[charognard]

30 INPUT "Gewicht kg";Weight
40

En allemand ça pique moins .... mais quand même

[C.Ret]

Oui, mais c'est à cause de TiPoucet qui introduit l'équation avec une taille H et un poids W.

Alors après, évidemment dans une version internationale ...

[charognard]

C'est génial cette formule !!
Imaginons que je veuille me repeindre en vert (pour travailler comme assureur chez cetelem par exemple).
faut 'il mieux utiliser de la peinture avec sa sous-couche épidermique obligatoire et collage de 2 poils de pinceau par cm².
Ou est il plus avantageux pour moi d'utiliser de la moquette mohair poil long avec scoth double face

[charognard]

Oui, mais c'est à cause de TiPoucet qui introduit l'équation avec une taille H et un poids W.

Alors après, évidemment dans une version internationale ...

Brulons donc Tipoucet !!!!

[edit modo] pas besoin de ça [/edit modo]

[Marcus von Cube]

La version GWBASIC:

Code : Tout sélectionner

5 REM Körperoberfläche
10 DEF FNL(X)=LOG(X)/LOG(10)
20 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*FNL(WEIGHT))*.0003207
70 PRINT USING"Fläche 1=#.###";F1
80 PRINT USING"Fläche 2=#.###";F2;

Presque identique avec la version Canon mais j'ai changé FNLGT à FNL (pour éviter un erreur) et j'ai éliminé CLS et INKEY parce-que l'écran DOS est assez large .

[charognard]

La version GWBASIC:

Code : Tout sélectionner

30 INPUT "Gewicht kg";WEIGHT
;[/quote]
MASS not WEIGHT und kein Gewicht noch !!!

t'as compris là  :D

[Tipoucet]

W = poids en kg

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

Même pas mal ! Ceci dit j'ai repris textuellement le commentaire de la bibliothèque de programmes Casio ... C'était juste un souci d'authenticité

[Marcus von Cube]

MASS not WEIGHT und kein Gewicht noch !!!

t'as compris là

Oui, maître !

[C.Ret]

Bon, dans ce sens l'excercie est facile:
On utilise son poids/weight/Gewicht et sa taille/height/ Grösse pour calculer sa surface corporelle/body suface/Körperoberfläche selon les formules empriques de Dubois et de Boyde.

Mais, ce qui est bien plus rigolo, c'est de déterminer le poids et la taille à partir de la donnée de ces deux estimations de la suface corporelle !

Je suis curieux de voir vos algorithmes en action !

Rappel:
Ma surface corporelle selon Dubois : 2.008 m²
Ma surface corporelle selon Boyde : 2.008 m²

Alors, je pèse et mesure combien d'après vous ?

[Tipoucet]

Mais, ce qui est bien plus rigolo, c'est de déterminer le poids et la taille à partir de la donnée de ces deux estimations de la suface corporelle !

Rappel:
Ma surface corporelle selon Dubois : 2.008 m²
Ma surface corporelle selon Boyde : 2.008 m²

Alors, je pèse et mesure combien d'après vous ?

Pas d'algorithme pour ma part, juste du systématique, avec 2 tableaux Excel à double entrée gradués par 500 g pour la masse et 5 mm pour la taille ... Rien de probant ne s'en dégage ... Il y a toujours plusieurs solutions ... Sur l'un et l'autre on trouve bien pile poil 2.008 mais pour des couples de valeurs différentes ... Le mystère reste entier

[charognard]

Tu fais 1,8m selon ma.nspire

[gege]

Sur Wolfram Alpha, on voit les deux formules données ici à l'oeuvre, et d'autres : LIEN.
G.E.

[C.Ret]

Bravo Charo, comme je m'y attendais, tu es sur la bonne piste.

Mais, je suis un peu déçu, Tipoucet avait bien précisait que la taille devait être en cm et le poids en kg.

Je m'attends donc à une estimation de mon poids et de ma taille à respectivemetn 1 kg et 1 cm près !

P.S.: L'idée d'un tableau n'est pas sotte, bien au contraire. Mais, il doit y avoir un moyen d'obtenir à coup sûr le résultat sans avoir à calculer autant de valeurs!

MAis, un tableau, c'est bien cela. Un tableau à deux dimensions.

[charognard]

79,6 kg
1,82 m

90Kg pour pir2 et 1,86m
83Kg et 1,83m pour Zpalm


elle n'est pas mal cette NSPIRE

Avec les curseurs y et z que je peux bouger en temps réel

[charognard]

je pars faire du VTT donc vite fais

Code : Tout sélectionner

   Dim diff, min, max, min1, max1, pas, y, z, caldiff As Double
        diff = 50
        min = 50
        max = 120
        y = 2.008
        z = 2.008
        For a As Integer = 1 To 3
            pas = (max - min) / 10
            For m As Double = min To max Step pas
                caldiff = 84204.790608867 * 1.1552252336986 ^ ((Math.Log10(m)) ^ 2) * (z / m ^ 0.6157) ^ (10 / 3) - 905.18240870986 * (y / m ^ 0.425) ^ 1.3793103448276
                If Math.Abs(caldiff) < Math.Abs(diff) Then
                    min1 = m
                    max1 = m + pas
                    diff = Math.Abs(caldiff)
                End If
            Next
            min = min1
            max = max1
        Next
        MsgBox(min + (min - max) / 2)

En SHARP ça devrait donner ça

Code : Tout sélectionner

 
10 di = 50, mi = 50, ma = 120
20 INPUT 'FORMULE DUBOIS:",y
30 INPUT 'FORMULE BOYDE:",z
40 FOR a= 1 TO 3
50 pa = (ma - mi) / 10
60 FOR m= mi TO ma STEP pa
70 ca = 84204.79060 * 1.155225233 ^ ((LOG m) ^ 2) * (z / m ^ 0.6157) ^ (10 / 3)
80 ca=ca - 905.1824087* (y / m ^ 0.425) ^ 1.379310344
90 If Abs(ca) < Abs(di) LET m1 = m, m2 = m + pas, di = ABS(ca)
100 Next
110 mi = m1, ma = m2
120 NEXT
130 m=mi + (mi - ma) / 2
140 h=905.1824087*(y/m^0.425)^1.379310344
150 PRINT m,h