[langage] traduction d'un fonction python en perl

Version imprimable

Bonjour a tous,

j'aurai besoin d'une traduction de langage.
En gros, j'ai trouvé une fonction qui me permet de calculer la fonction inverse du chi2, mais elle est écrite en python. Est ce que quelqu'un pourrait m'aider à la transformer en perl ?

Je précise que je débute en perl....

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
A Python Implementation of the Inverse Chi-Square Function
 
import math
 
def chi2P(chi, df):
    """Return prob(chisq >= chi, with df degrees of
freedom).
 
    df must be even.
    """
    assert df & 1 == 0
    # XXX If chi is very large, exp(-m) will underflow to 0.
    m = chi / 2.0
    sum = term = math.exp(-m)
    for i in range(1, df//2):
        term *= m / i
        sum += term
    # With small chi and large df, accumulated
    # roundoff error, plus error in
    # the platform exp(), can cause this to spill
    # a few ULP above 1.0. For
    # example, chi2P(100, 300) on my box
    # has sum == 1.0 + 2.0**-52 at this
    # point.  Returning a value even a teensy 
    # bit over 1.0 is no good.
    return min(sum, 1.0)

Ca peut se passer presque directement en Perl :

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
 
 
sub chi2P ($$){ 
    #chi2P( $chi, $df )
    #Return prob(chisq >= chi, with df degrees of freedom). 
    #df must be even. 
 
    my $chi = shift; $df = shift;
    # XXX If chi is very large, exp(-m) will underflow to 0. 
    my $m = $chi / 2.0 
    my $sum = exp(-$m); my $term = $sum;
    foreach my $i (1..int($df/2)){ 
        $term *= $m / $i; 
        $sum += $term; 
    # With small chi and large df, accumulated 
    # roundoff error, plus error in 
    # the platform exp(), can cause this to spill 
    # a few ULP above 1.0. For 
    # example, chi2P(100, 300) on my box 
    # has sum == 1.0 + 2.0**-52 at this 
    # point.  Returning a value even a teensy 
    # bit over 1.0 is no good. 
    }
    return ($sum < 1.0 ? $sum: 1.0);
}

N'étant pas expert en Python, je ne suis pas totalement sûr du sens de "df//2", je l'ai juste remplacé par int(df/2), mais c'est peut-être une erreur.

Cependant, si tu veux avoir une meilleure précision et que tu n'as pas besoin d'une vitesse extrème, tu devrais envisager d'utilliser un module comme Math::BigFloat. :D

[EDIT] J'ai corrigé quelques oublis de "$".

--
Jedaï

14/05/2004, 15h35
ay_pepito

Merci, je crois que ca va beaucoup m'aidé ! :)
04/12/2007, 15h06
specimen35

Voici mon script mais il est a moitier perl a moitier python. J'aime bien me compliquer la vie.

#!/usr/bin/perl

print _("Content-type: text/html\n\n");

`quota | tail -n1` =~ / +(\d+) +(\d+) +(\d+)/;

used_Ko = sprintf "%d", $1;
used_Mo = sprintf "%.2f", ($1)/1024;

total_Ko = sprintf "%.0f", $3;
total_Mo = sprintf "%d", ($3)/1024;

remain_Ko = sprintf "%.0f", $total_Ko - $used_Ko;
remain_Mo = sprintf "%.2f", ($total_Ko - $used_Ko)/1024;

pc = sprintf "%.2f", ($1/$3)*100;

print _("<html><head><title>Espace disque</title></head><body
bgcolor=#D0DCE0>\n");

quelqu'un arriverai t 'il a m'aider a le traduire :D