XProfan

Español

p.specht

Will uno Mittelwerte unterschiedlich großer Stichproben en Plausibilität vergleichen, muß uno üblicherweise Tabellenwerke zurate ziehen. El t-Verteilung es el Gauss-schen Glockenkurve ("Normalverteilung") zwar ähnlich, aber flacher. Sie va sólo de Stichprobengrößen deutlich encima 30 langsam en esta encima (Details siehe Wikipedia).
Wem 4 a 5 Nachkommastellen Genauigkeit reichen (übliche Tabellengenauigkeit), el es con el TOMS-Algorithm 344 el ACM bien bedient, vorausgesetzt él hält se a el Copyright el ACM. El Wiedergabe hier es jedenfalls ausschließlich a Demonstrationszwecken y sin jedwede Gewähr!

Kompilieren Marca Separación

Título de la ventana "Proc Student_TTEST:  t-Verteilung para p<=0.5 en Probengröße 3"
CLS
imprimir Student_TTEST(0.5, 3)
waitinput

Proc Student_TTEST :parámetros T!,DF&

    ' AUSZUG AUS ACM TOMS Algorithm 344 de John Burkardt
    ' Reference:
    '     Milton Abramowitz and Irene Stegun,
    '     Handbook of Mathematical Functions,
    '     US Department of Commerce, 1964.
    '
    '     Stephen Wolfram,
    '     The Mathematica Book,
    '     Fourth Edition,
    '     Wolfram Media / Cambridge University Press, 1999.
    Declarar D1!,D2!,F1!,F2!,I&,N&,T1!,T2!,ans!
    D1!=0.63661977236758134'= 2 / PI
    caso DF&<1:RETORNO -99999999
    ' BEGIN COMPUTATION OF SERIES
    T2!=sqr(T!)/DF&:T1!=SQRT(T2!):T2!=1/(1+T2!):casenot DF& mod 2: GOTO "G5_"
    ' DF IS AN ODD INTEGER:
    ANS! = 1-D1!*ArcTAN(T1!)
    caso DF&=1:GOTO "G4_"
    D2!=D1!*T1!*T2!:ANS!=ANS!-D2!
    caso DF&=3:GOTO "G4_"
    F1!=0
    G2_:
    N&=(DF&-2)\2

    whileloop n&:i&=&Loop

        F2!=2*I&-F1!
        D2!=D2!*T2!*F2!/(F2!+1)
        ANS!=ANS!-D2!

    endwhile

    G4_:
    ' COMMON RETORNO AFTER COMPUTATION
    caso ANS!<0:ANS!=0
    RETORNO ANS!
    G5_:
    ' DF IS AN EVEN INTEGER
    D2!=T1!*SQRT(T2!)
    ANS!=1-D2!
    caso DF&=2:GOTO "G4_"
    F1!=1:GOTO "G2_"

ENDPROC