SPSS: PROGRAMAS E ROTINAS COMPLEMENTARES (SYNTAX FILES)

 

Experiências Aleatórias: Lançamento de Dados
Valentim Rodrigues Alferes
Universidade de Coimbra, 2003
valferes@fpce.uc.pt

 

Lançar um dado

Adaptação de Java Script Kit

 

 

 

 

Sintaxe SPSS

 

 

DATA LIST FREE/FACE(F8.0).

BEGIN DATA

1 2 3 4 5 6

END DATA.

SET SEED RANDOM.

COMPUTE NA=UNIFORM(1).

SORT CASES BY NA(A).

LIST FACE/CASES FROM 1 TO 1.

 
     
 

 

 

Lançar dois dados

   

Sintaxe SPSS

   

DATA LIST FREE/N_FACES(F8.0).

BEGIN DATA

1 2 3 4 5 6

END DATA.

SET SEED RANDOM.

COMPUTE DADO_1=UNIFORM(1).

COMPUTE DADO_2=UNIFORM(1).

RANK DADO_1 DADO_2/PRINT=NO.

COMPUTE SOMA=RDADO_1+RDADO_2.

FORMATS ALL(F8.0).

LIST RDADO_1 RDADO_2 SOMA/CASES FROM 1 TO 1.

 

 

Lançar dois dados n vezes

   

Sintaxe SPSS

   

NEW FILE.

INPUT PROGRAM.

* Introduza o número de vezes que pretende lançar os dados.

+LOOP EXPERI_N=1 TO 10.

+DO REPEAT DADO=D1 TO D2.

+SET SEED RANDOM.

+COMPUTE DADO=RND(RV.UNIFORM(0.5,6.5)).

+END REPEAT.

+END CASE.

+END LOOP.

+END FILE.

END INPUT PROGRAM.

COMPUTE SOMA=D1+D2.

CREATE SOMA_CUM=CSUM(SOMA).

FORMATS ALL(F8.0).

LIST.

Ver Lançamento de dois dados 1000000 de vezes

Ilustração dos Teorema de Bernoulli e do Limite Central

Ver Lançamento de mais de dois dados n vezes

 

Lançar dois dados n vezes, escolhendo o número de faces

   

Sintaxe SPSS

   

NEW FILE.

INPUT PROGRAM.

* Introduza o número de vezes que pretende lançar os dados.

+LOOP EXPERI_N=1 TO 10.

* Introduza o número de faces dos dados que pretende lançar.

+COMPUTE FACES = 9.

+DO REPEAT DADO=D1 TO D2.

+SET SEED RANDOM.

+COMPUTE DADO=RND(RV.UNIFORM(0.5,0.5+FACES)).

+END REPEAT.

+END CASE.

+END LOOP.

+END FILE.

END INPUT PROGRAM.

COMPUTE SOMA=D1+D2.

CREATE SOMA_CUM=CSUM(SOMA).

FORMATS ALL(F8.0).

LIST.

Ver Lançamento de mais de dois dados n vezes, escolhendo o número de faces

 

Lançar simultaneamente vários dados escolhendo o número de faces

Ver Script Java de Michael Hensley

   

Sintaxe SPSS

   

* No local assinalado a vermelho, introduza o número de faces dos

* dados que pretende lançar; nos três locais assinalados a azul,

* introduza o número de dados que quer lançar simultaneamente.

* No exemplo, lançam-se simultameamente 20 dados de 6 faces.

NEW FILE.

INPUT PROGRAM.

+ LOOP FACES=1 TO 6.

+ DO REPEAT DADO=D_1 TO D_20.

+ SET SEED RANDOM.

+ COMPUTE DADO=UNIFORM(1).

+ END REPEAT.

+ END CASE.

+ END LOOP.

+ END FILE.

END INPUT PROGRAM.

EXECUTE.

RANK VARIABLES=ALL(D).

COMPUTE SOMA=SUM(RD_1 TO RD_20).

FORMATS ALL(F8.0).

LIST RD_1 TO RD_20/CASES FROM 1 TO 1.

LIST SOMA/CASES FROM 1 TO 1.

 

NIIPS / CSEO

SYNTAX FILES

valferes@fpce.uc.pt

Última actualização: 2003-03-04