"Martin Russell" <[EMAIL PROTECTED]> wrote in message 3e380a5a$0$247$[EMAIL PROTECTED]">news:3e380a5a$0$247$[EMAIL PROTECTED]... > I've been trying to find out for a few days now how to calculate the value > of t that's exceeded given the degrees of freedom and the probability the > value will be exceeded. I've found some ways of calculating the probability, > given the t value and df, but it seems that they all fail for at least one > value for df. So, could anyone help me with this? > > The reason I'm asking is I'm trying to program my calculator to work it out, > and it doesn't have many stat functions. Also, I could take an answer in > some computer language and convert it to work on my calculator, provided it > isn't too complex. Thanks in advance :) > >
I have attached code in Fortran from Applied Statistics algorithm AS27. The Applied Statistics algorithms were published in Journal C of the Royal Statistical Society. It is for the upper tail area of the t-distribution. I hope you can understand it, and translate it for your calculator. Cheers -- Alan Miller http://users.bigpond.net.au/amiller Retired Statistician begin 666 AS27.F90 M1E5.0U1)3TX@<W1U9&YT("AT+"!D;V9F*2!215-53%0H9FY?=F%L*0T*#0HA M($XN0BX@07)G=6UE;G0@249!54Q4(&AA<R!B965N(')E;6]V960N#0H@#0HA M($-O9&4@8V]N=F5R=&5D('5S:6YG(%1/7T8Y,"!B>2!!;&%N($UI;&QE<@T* M(2!$871E.B R,# R+3 Q+3 R("!4:6UE.B R,3HQ.3HT-0T*#0HA(" @("!! M3$=/4DE42$T@05,@,C<@($%04$PN(%-4051)4U0N(%9/3"XQ.2P@3D\N,0T* M#0HA(" @("!#86QC=6QA=&4@=&AE('5P<&5R('1A:6P@87)E82!U;F1E<B!3 M='5D96YT)W,@="UD:7-T<FEB=71I;VX-"@T*(2 @(" @5')A;G-L871E9"!F M<F]M($%L9V]L(&)Y($%L86X@36EL;&5R#0H-"DE-4$Q)0TE4($Y/3D4-"E)% M04PL($E.5$5.5"A)3BD@(" @(" Z.B!T#0I214%,+"!)3E1%3E0H24XI(" @ M(" @.CH@9&]F9@T*4D5!3" @(" @(" @(" @(" @(" @(#HZ(&9N7W9A; T* M#0HA(" @("!,;V-A;"!V87)I86)L97,-"@T*4D5!3" @(" @.CH@=BP@>"P@ M='0-"DQ/1TE#04P@(#HZ('!O<PT*4D5!3"P@4$%204U%5$52(" Z.B!F;W5R M(#T@-"XP+"!O;F4@/2 Q+C L('IE<F\@/2 P+C L(&AA;&8@/2 P+C4-"E)% M04PL(%!!4D%-151%4B @.CH@83$@/2 P+C Y.3<Y-#0Q+"!A,B ]("TP+C4X M,3@R,2P@83,@/2 Q+C,Y,#DY,RP@("8-"B @(" @(" @(" @(" @(" @(" @ M830@/2 M,2XR,C(T-3(L(&$U(#T@,BXQ-3$Q.#4-"E)%04PL(%!!4D%-151% M4B @.CH@8C$@/2 U+C4S-S0P.2P@8C(@/2 Q,2XT,C,T,PT*4D5!3"P@4$%2 M04U%5$52(" Z.B!C,2 ](# N,#0T,S$W-#(L(&,R(#T@+3 N,C(P-C Q."P@ M8S,@/2 M,"XP,S,Q-S(U,RP@("8-"B @(" @(" @(" @(" @(" @(" @8S0@ M/2 U+C8W.3DV.2P@8S4@/2 M,3(N.38U,3D-"E)%04PL(%!!4D%-151%4B @ M.CH@9#$@/2 U+C$V-C<S,RP@9#(@/2 Q,RXT.3@V,@T*4D5!3"P@4$%204U% M5$52(" Z.B!E,2 ](# N,# Y-CDT.3 Q+"!E,B ]("TP+C$T,#@X-30L(&4S M(#T@,2XX.#DY,RP@("8-"B @(" @(" @(" @(" @(" @(" @930@/2 M,3(N M-S4U,S(L(&4U(#T@,C4N-S<U,S(-"E)%04PL(%!!4D%-151%4B @.CH@9C$@ M/2 T+C(S,S<S-BP@9C(@/2 Q-"XS.38S#0I214%,+"!005)!345415(@(#HZ M(&<Q(#T@+3DN,3@W,C(X12TU+"!G,B ](# N,#,W.#DY,#$L(&<S(#T@+3$N M,C@P,S0V+" @)@T*(" @(" @(" @(" @(" @(" @("!G-" ](#DN,C0Y-3(X M+"!G-2 ]("TQ.2XP.#$Q-0T*4D5!3"P@4$%204U%5$52(" Z.B!H,2 ](#(N M-S<W.#$V+"!H,B ](#$V+C0V,3,R#0I214%,+"!005)!345415(@(#HZ(&DQ M(#[EMAIL PROTECTED],D4M-"P@:3(@/2 M,"XP,C<V,S,S-"P@:3,@/2 P+C0U,3<P M,CDL(" F#0H@(" @(" @(" @(" @(" @(" @(&DT(#T@+3(N-C4W-CDW+"!I M-2 ](#4N,3(W,C$R#0I214%,+"!005)!345415(@(#HZ(&HQ(#T@,"XU-C4W M,3@W+"!J,B ](#(Q+C@S,C8Y#0H-"B$@(" @($-H96-K('1H870@;G5M8F5R M(&]F(&1E9W)E97,@;V8@9G)E961O;2 ^(#0N#0H-"DE&("AD;V9F(#P](&9O M=7(I(%1(14X-"B @5U))5$4H*BP@*BD@)RHJ($5R<F]R(&EN($%3,C<@+2!D M96=R965S(&]F(&9R965D;VT@/#T@-" @*BHG#0H@(%)%5%523@T*14Y$($E& M#0H-"B$@(" @($5V86QU871E('-E<FEE<RX-"@T*=B ](&]N92 O(&1O9F8- M"G!O<R ]("AT(#X]('IE<F\I#0IT=" ]($%"4RAT*0T*>" ](&AA;&8J*&]N M92 K(" @)@T*(" @('1T*B@H*&$Q("L@=BHH83(@*R!V*BAA,R K('8J*&$T M("L@=BIA-2DI*2D@+R H;VYE("T@=BHH8C$@+2!V*F(R*2DI("L@("8-"B @ M("!T="HH*"AC,2 K('8J*&,R("L@=BHH8S,@*R!V*BAC-" K('8J8S4I*2DI M("\@*&]N92 M('8J*&0Q("T@=BID,BDI*2 K(" F#0H@(" @='0J*"@H93$@ M*R!V*BAE,B K('8J*&4S("L@=BHH930@*R!V*F4U*2DI*2 O("AO;F4@+2!V M*BAF,2 M('8J9C(I*2D@*R @)@T*(" @('1T*B@H*&<Q("L@=BHH9S(@*R!V M*BAG,R K('8J*&<T("L@=BIG-2DI*2D@+R H;VYE("T@=BHH:#$@+2!V*F@R M*2DI("L@("8-"B @("!T="HH*&DQ("L@=BHH:3(@*R!V*BAI,R K('8J*&DT M("L@=BII-2DI*2D@+R H;VYE("T@=BHH:C$@+2!V*FHR*2DI("DI*2DI("HJ M("@M."D-"DE&("AP;W,I(%1(14X-"B @9FY?=F%L(#T@> T*14Q310T*("!F M;E]V86P@/2!O;F4@+2!X#0I%3D0@248-"@T*4D5455).#[EMAIL PROTECTED]) +3TX@<W1U9&YT#0H` ` end . . ================================================================= Instructions for joining and leaving this list, remarks about the problem of INAPPROPRIATE MESSAGES, and archives are available at: . http://jse.stat.ncsu.edu/ . =================================================================
