SPSS: PROGRAMAS E ROTINAS COMPLEMENTARES (SYNTAX FILES) |
|
|
|
Experiências Aleatórias: Lançamento de Dados |
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. |
|
|
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. |
|
||
SYNTAX FILES |
||
Última actualização: 2003-03-04 |