[langage] traduction d'un fonction python en perl

**ay_pepito** · 13/05/2004, 22h40

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 :

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
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)

**Jedai** · 14/05/2004, 14h43

Ca peut se passer presque directement en Perl :

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
 
 
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.

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

--
Jedaï

**ay_pepito** · 14/05/2004, 15h35

Merci, je crois que ca va beaucoup m'aidé !

**specimen35** · 04/12/2007, 15h06

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

[langage] traduction d'un fonction python en perl

Langage Perl

Discussions similaires

Partager

Partager