XProfan

Français

p.specht

veux on Mittelwerte unterschiedlich großer Stichproben sur Plausibilität comparer, doit on üblicherweise Tabellenwerke zurate tirer. qui t-Verteilung ist qui Gauss-schen Glockenkurve ("Normalverteilung") zwar ähnlich, mais flacher. elle va seulement ab Stichprobengrößen deutlich sur 30 lente dans cet sur (Details siehe Wikipedia).
Wem 4 jusqu'à 5 Nachkommastellen Genauigkeit reichen (übliche Tabellengenauigkeit), qui ist avec dem TOMS-Algorithm 344 qui ACM bien bedient, vorausgesetzt il hält sich à cela Copyright qui ACM. qui Wiedergabe ici erfolgt jedenfalls ausschließlich trop Demonstrationszwecken et sans jedwede Gewähr!

Kompilieren Marque Séparation

Titre de la fenêtre "Proc Student_TTEST:  t-Verteilung pour p<=0.5 chez Probengröße 3"
CLS
imprimer Student_TTEST(0.5, 3)
waitinput

Proc Student_TTEST :parameters T!,DF&

    ' AUSZUG AUS ACM TOMS Algorithm 344 de John Burkardt
    ' Reference:
    '     Milton Abramowitz and Irene Stegun,
    '     Handbook of Mathematical Functions,
    '     États-Unis Department of Commerce, 1964.
    '
    '     Stephen Wolfram,
    '     The Mathematica Book,
    '     Fourth Edition,
    '     Wolfram Media / Cambridge University Press, 1999.
    Déclarer D1!,D2!,F1!,F2!,I&,N&,T1!,T2!,à l'!
    D1!=0.63661977236758134'= 2 / PI
    cas DF&<1:RETOUR -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!)
    cas DF&=1:GOTO "G4_"
    D2!=D1!*T1!*T2!:ANS!=ANS!-D2!
    cas DF&=3:GOTO "G4_"
    F1!=0
    G2_:
    N&=(DF&-2)\2

    whileloop n&:i&=&Boucle

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

    endwhile

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

ENDPROC