Bonjour,
Je voulais s'informer s'il existe en Fortan l'espérance et la variance ?
Cordialement
Bonjour,
Je voulais s'informer s'il existe en Fortan l'espérance et la variance ?
Cordialement
Salut,
Elles n'existent pas, mais c'est très facile de les définir en vectorisant les calculs :
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
24
25
26
27
28
29
30
31 program math_functions implicit none double precision, allocatable :: x(:) integer :: i x = (/ (i, i = 1, 100) /) print '(e14.6)', mean(x) print '(e14.6)', variance(x) print '(e14.6)', std_dev(x) contains function mean(arr) double precision, intent(in) :: arr(:) double precision :: mean mean = sum(arr) / size(arr) end function mean function variance(arr) double precision, intent(in) :: arr(:) double precision :: variance variance = mean((arr - mean(arr))**2) end function variance function std_dev(arr) double precision, intent(in) :: arr(:) double precision :: std_dev std_dev = sqrt(mean(arr**2) - (mean(arr))**2) end function std_dev end program math_functions
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager