* Encoding: UTF-8.
*** Medidas do tamanho do efeito (dois grupos independentes)
*** Valentim Rodrigues Alferes (Universidade de Coimbra, 2002)
*** valferes@fpce.uc.pt
**
** Caso desconheça os Ns, introduza N1=0 e N2=0 e indique,
** no local apropriado, o valor dos graus de liberdade.

INPUT PROGRAM.
LOOP MEDIDAS=1 TO 1.
END CASE.
END LOOP.
END FILE.
END INPUT PROGRAM.

* Introduza o N do grupo 1 (se desconhecido, introduzir "0").
COMPUTE N1 = 17.

* Introduza a média do grupo 1.
COMPUTE M1 = 7.46.

* Introduza o desvio-padrão do grupo 1.
COMPUTE DP1 = 1.98.

* Introduza o N do grupo 2 (se desconhecido, introduzir "0").
COMPUTE N2 = 15.

* Introduza a média do grupo 2.
COMPUTE M2 = 4.84.

* Introduza o desvio-padrão do grupo 2.
COMPUTE DP2 = 2.14.

* Introduza o nível de confiança (95% é o valor por defeito).
COMPUTE NC = 95.

* Caso desconheça os Ns e tenha introduzido N1=0 e N2=0, 
* substitua "1" pelos graus de liberdade (caso contrário não
* modifique esta linha).
COMPUTE G_D_L = 1.
COMPUTE PI= MOD(G_D_L,2).
DO IF (N1=0 AND N2=0 AND PI=0).
COMPUTE N1= G_D_L/2 + 1.
COMPUTE N2=N1.
ELSE IF (N1=0 AND N2=0 AND PI=1).
COMPUTE N1=(G_D_L+1)/2 +1.
COMPUTE N2=N1-1.
END IF.
EXECUTE.
COMPUTE SP2=(((N1-1)*(DP1**2))+((N2-1)*(DP2**2)))/(N1+N2-2).
COMPUTE DPP=SQR(SP2).
COMPUTE EPD=SQR(SP2*((1/N1)+(1/N2))).
COMPUTE EPM1=DP1/SQR(N1).
COMPUTE EPM2=DP2/SQR(N2).
COMPUTE DIF=M1-M2.
COMPUTE T=DIF/EPD.
COMPUTE GL=N1+N2-2.
COMPUTE TABS=ABS(T).
COMPUTE P_BI=(1-CDF.T(TABS,GL))*2.
COMPUTE P_UNI=1-CDF.T(TABS,GL).
COMPUTE IC_INF=DIF-IDF.T(((1-(NC/100))/2+(NC/100)),GL)*EPD.
COMPUTE IC_SUP=DIF+IDF.T(((1-(NC/100))/2+(NC/100)),GL)*EPD.
COMPUTE R=T/SQR((T**2)+GL).
COMPUTE R2=R**2.
COMPUTE D=T*SQR((1/N1)+(1/N2)).
COMPUTE D_H=D*(1-(3/(4*(N1+N2)-9))).
COMPUTE BESD_PI=.50-(R/2).
COMPUTE BESD_PS=.50+(R/2).
COMPUTE U3=CDF.NORMAL(D,0,1)*100.
COMPUTE U2=CDF.NORMAL((D/2),0,1)*100.
COMPUTE U2X=CDF.NORMAL((ABS(D)/2),0,1).
COMPUTE U1=(2*U2X-1)/U2X*100.
EXECUTE.
FORMATS N1(F8.0) N2(F8.0) M1(F10.2) M2(F10.2) DP1(F8.3) 
DP2(F8.3) DIF(F8.2) EPD(F8.3) T(F8.3) GL(F8.0) P_BI (F8.4) 
P_UNI(F8.4) R(F8.4) D(F8.4) D_H(F8.4) BESD_PI(F8.4) 
BESD_PS(F8.4) DPP(F8.3) R2(F8.4) U1 U2 U3(F8.1) IC_INF(F8.4) 
IC_SUP(F8.4) EPM1(F8.3) EPM2(F8.3).
OLAP CUBES N1 M1 DP1 EPM1 N2 M2 DP2 EPM2 DIF DPP EPD T GL P_BI 
P_UNI NC IC_INF IC_SUP D D_H R R2 BESD_PI BESD_PS U1 U2 U3 BY 
MEDIDAS /CELLS=FIRST/TITLE='T de Student, Intervalo de '
+'Confiança da '+'Diferença entre as Médias, Medidas do '
+'Tamanho do Efeito e de Não Sobreposição'.