Discussion :

[MoiStéphane]

Bonjour

j'aimerais savoir comment réaliser cette opération car je suis perdu. Je comprends bien que le point c est une multiplication, pour la puissance c est power(x,y) mais je ne sais pas le mettre et après... Vous aurez donc compris que je n ai rien compris !

E(a) = (T-1) n²/N . (1 – n/N)^a-1

Je sais on apprend pas en demandant une solution mais là je crois qu il n y a que cela à faire.
merci pour votre aide.

[ALWEBER]

Quelque chose comme celà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
uses
  math;
 
var
  v1, // variable intermédiaire
  n1, // n
  n2, // N
  E1, // E
  a1, // a
  T1: extended; // T
 
  // E(a) = (T-1) n2/N . (1 – n/N)a-1
procedure TForm1.FormActivate(Sender: TObject);
begin
  n1 := 1; // Mettre ses propres valeur
  n2 := 1;
  T1 := 1;
  a1 := 1;
  E1 := (T1 - 1) * power(n1, 2) / n2;
  v1 := power((1 - n1) / n2, a1 - 1);
  E1 := E1 * v1;
end;

[solilog]

Bonjour,

Il y a 2 questions:
- il manque des () pour être certain de la formule
E(a) = (T-1) n2/N . (1 – n/N)a-1
- le point . en rouge, c'est une multiplication ?
Moi je comprends ta fonction comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function  MaFunction( a, T, GN, n: double): double;
begin
  result  := (power(T-1, n*n)) / ( GN * Power(( 1-(n/GN)   ), a-1));
end.

GN étant grand N dans ta formule.
solilog

[MoiStéphane]

Merci pour vos réponses.
Je la testerai ce soir de retour du boulot.
La formule est représentée ici:

http://www.tournesol-homepage.fr/J2S...es%20reels.pdf

@ALWEBER le n2 est en fait un n²

[Charly910]

Bonjour,

non tu as mal placé la parenthèse. Prend la formule d'ALweber qui est la bonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result := ((T - 1) * Power(n, 2) / GN) * (Power((1 - n) /GN, a - 1)) ;

A+
Result

[MoiStéphane]

merci c est super !

[Hs32-Idir]

Bonjour

j'aimerais savoir comment réaliser cette opération car je suis perdu. Je comprends bien que le point c est une multiplication, pour la puissance c est power(x,y) mais je ne sais pas le mettre et après... Vous aurez donc compris que je n ai rien compris !

E(a) = (T-1) n²/N . (1 – n/N)^a-1

Je sais on apprend pas en demandant une solution mais là je crois qu il n y a que cela à faire.
merci pour votre aide.

E := ((T- 1) * Power(n , 2) / _N) * (Power( ((1 - n ) / _N) , (A - 1)));

[Charly910]

Bonjour Hs32-Idir,

je ne vois pas de différence avec ma formule ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result := ((T - 1) * Power(n, 2) / GN) * (Power((1 - n) /GN, a - 1)) ;

Est ce que j'ai fait une erreur ?

A+
Charly

[Hs32-Idir]

Bonjour Hs32-Idir,

je ne vois pas de différence avec ma formule ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Result := ((T - 1) * Power(n, 2) / GN) * (Power((1 - n) /GN, a - 1)) ;

Est ce que j'ai fait une erreur ?

A+
Charly

Nonpareil, juste que les guillemets c'est bien pour bien lire et comprendre.