syntaxe des formules contenant LN et EXP

Version imprimable

15/04/2008, 13h42
inforlab

syntaxe des formules contenant LN et EXP

Bonjour,

Je suis en train de me tirer les cheveux pour pouvoir intégrer deux formules extraites d'un fichier excel et qui pose problème sur vb2005 .net

Je vous donne les formules excel:

lambda =(LN((C39/E39)*(E41/C41))/(D33-D31))
a0 =(C39/E39)*(EXP(D3*(D31-D29)))

et voici ce que j'ai écris en vb

lambda = (Log(cps1 / v1) * (cps2 / v2)) / (ps2min - ps1min)
a0 = (cps1 / v1) * Exp(lambda * (ps1min - ivmin))

En fait , il n'y a pas d'erreur dans les formules mais les résultats sont totalements différents

ce que j'aimerais savoir, c'est où se trouve l'erreur ? et comment y remédier.
Et plus je regarde les formules , moins je trouve la solution ((:?

Merci pour vos réponses

Olivier
15/04/2008, 13h47
pacmann

Salut !
Il me semble que ton Log ne prend que le premier facteur...
15/04/2008, 14h17
inforlab

salut pacmann,

bien vu !! j'ai effectué les changements mais apparement il n'y a pas que ça

et je suis certain qu'au moins une erreur se trouve dans la première formule (lambda) car j'affiche un messagebox de la réponse lambda et elle ne correspond pas à celle que j'ai sur un exemple en excel.

on se rapproche

merci beaucoup

olivier

Tu peux nous montrer ce que tu as maintenant, a priori, ca devrait etre ca je pense :
Code:

1 2 3 lambda = Log((cps1 / v1) * (cps2 / v2)) / (ps2min - ps1min) a0 = (cps1 / v1) * Exp(lambda * (ps1min - ivmin))

15/04/2008, 14h41
pacmann

Et si ça ne marche pas, tu n'as pas le choix : tu refais ton coup de la textbox sur chaque facteur et chaque terme de lambda !
15/04/2008, 15h00
inforlab

re,

ca donne le meme resultat qu'après les changements de pacmann

je vais encore chercher

Merci à vous

olivier
15/04/2008, 15h02
OhMonBato

Tu veux vraiment pas nous montrer ton code ?

Voila

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcal01.Click
        Dim sd11, sd12, sd21, sd22, p11, p12, p21, p22, bf, moysd, moyp, moyres As Double
        Dim ivh, ivm, ps1h, ps1m, ps2h, ps2m, tiv, dil, cps1, cps2, v1, v2, ivmin, ps1min, ps2min As Double
        Dim poids, taille, bsa, dc, vd, lambda, clair As Double
        Dim a0 As Double
 
 
 
        'moyenne des standards
 
        sd11 = tbsd11.Text
        sd12 = tbsd12.Text
        sd21 = tbsd21.Text
        sd22 = tbsd22.Text
        moysd = (sd11 + sd12 + sd21 + sd22) / 4
 
        ' moyenne patient
 
        p11 = tbp11.Text
        p12 = tbp12.Text
        moyp = (p11 + p12) / 2
 
        'moyenne résidus
 
        p21 = tbp21.Text
        p22 = tbp22.Text
        moyres = (p21 + p22) / 2
 
        'transformation heures en min
 
        ivh = tbivh.Text
        ivm = tbivm.Text
        ps1h = tbps1h.Text
        ps1m = tbps1m.Text
        ps2h = tbps2h.Text
        ps2m = tbps2m.Text
 
        ivmin = (ivh * 60) + ivm
        ps1min = (ps1h * 60) + ps1m
        ps2min = (ps2h * 60) + ps2m
 
        lbliv.Text = ivmin.ToString
        lblps1.Text = ps1min.ToString
        lblps2.Text = ps2min.ToString
 
        ' calcul du bsa
 
        poids = tbpoids.Text
        taille = tbtaille.Text
 
        bsa = 10 ^ ((((Log10(poids) * 0.425) + ((Log10(taille) * 0.725))) - 2.144))
        tbbsa.Text = bsa.ToString
 
        'calcul de la dose corrigée
 
        bf = tbbf.Text
        tiv = tbtiv.Text
        dil = tbdil.Text
        cps1 = tbcps1.Text
        cps2 = tbcps2.Text
        v1 = tbv1.Text
        v2 = tbv2.Text
 
        dc = (((moyp - bf) - (moyres - bf)) * (tiv * dil)) / ((moysd - bf) * 1000)
        tbdc.Text = dc.ToString
 
 
        'calcul du vol de distribution
 
 
        lambda = Log((cps1 / v1) * (cps2 / v2)) / (ps2min - ps1min)
 
         a0 = (cps1 / v1) * Exp(lambda * (ps1min - ivmin))
 
        vd = 1000 * (dc / a0)
 
        tbvd.Text = vd.ToString
 
 
        'calcul de la clairance
 
        clair = (1.73 * 0.87 * vd * lambda) / bsa
 
        tbclair.Text = clair.ToString

Est-ce que ca vous suffit ?

Olivier

16/04/2008, 09h12
pacmann

Citation:

'calcul de la clairance

clair = (1.73 * 0.87 * vd * lambda) / bsa

tbclair.Text = clair.ToString

Fais la même chose avec cps1, v1, cps2, v2, ps2min, ps1min.
Tu pourras alors comparer avec le détail de ta formule Excel, puis remonter au fur et à mesure sur les écarts pour déterminer la source de ton erreur...
16/04/2008, 10h47
inforlab

bonjour,

Citation:

Envoyé par pacmann

Fais la même chose avec cps1, v1, cps2, v2, ps2min, ps1min.

je ne te suis pas très bien, tu me montre une formule et me dis de faire la meme chose avec d'autres données ????

merci de m'éclairer

Olivier
16/04/2008, 10h53
pacmann

Ah, désolé, je parlais plus précisément de :

Citation:

tbclair.Text = clair.ToString

Et donc :
tb1.text = cps1
tb2.text = v1
tb3.text = cps2
... te permet de voir le détail du calcul, et de le comparer au détail du calcul dans Excel.

Cela dit, tu peux aussi simplement visualiser les valeurs en debug :)
16/04/2008, 15h22
inforlab

Bonjour,

Alors voila, j'ai enfin trouvé le problème et ce n'est pas dû à la syntaxe mais bien à moi même :oops:

En recopiant la formule à partir d'excel, j'ai inversé 2 valeurs

avant : lambda = Log((cps1 / v1) * (cps2 / v2)) / (ps2min - ps1min)

solution : lambda = Log((cps1 / v1) * (v2 / cps2)) / (ps2min - ps1min)

c'était tout bête et pour ma part , je suis désolé de vous avoir dérangé pour cela. La prochaine fois , j'essaierai de faire plus attention.

Merci à tous encore une fois

Olivier