LISTSERV at the University of Georgia
Menubar Imagemap
Home Browse Manage Request Manuals Register
Previous messageNext messagePrevious in topicNext in topicPrevious by same authorNext by same authorPrevious page (July 2006)Back to main SPSSX-L pageJoin or leave SPSSX-L (or change settings)ReplyPost a new messageSearchProportional fontNon-proportional font
=========================================================================
Date:         Wed, 5 Jul 2006 17:20:15 +0200
Reply-To:     Frederic Villamayor Forcada <fvillamayor-research@ferrergrupo.com>
Sender:       "SPSSX(r) Discussion" <SPSSX-L@LISTSERV.UGA.EDU>
From:         Frederic Villamayor Forcada <fvillamayor-research@ferrergrupo.com>
Subject:      Re: Generating all posibble binary patterns for m variables
Comments: To: Marta García-Granero <biostatistics@terra.es>
In-Reply-To:  <17210038921.20060705155505@terra.es>
Content-Type: text/plain; charset="ISO-8859-1"

Marta:

I think I've got it!

INPUT PROGRAM. LOOP I=0 TO (2**15)-1. END CASE. END LOOP. END FILE. END INPUT PROGRAM. EXECUTE.

FORMATS I(N5).

NUMERIC V0 to V14 (F3) coc0 TO coc15(f5). STRING VV0 to VV14(a1). VECTOR V=V0 TO V14 /coc=coc0 TO coc15 /VV=VV0 to VV14.

LOOP X=15 TO 1 BY -1. - DO IF i<2**x AND i>=2**(x-1). - COMPUTE coc(x+1)=i. - LOOP Y=X to 1 by -1. - COMPUTE COC(y)=trunc(COC(y+1)/2). - COMPUTE v(y) = mod(coc(y+1),2). - COMPUTE vV(y) = STRING(mod(coc(y+1),2),F1). - END LOOP. - end if. END LOOP. IF I=0 V0=0. IF I=0 Vv0='0'. execute.

STRING BIN(a15). compute bin= lpad(rtrim(CONCAT(VV0 to VV14)),15,"0"). EXECUTE.

numeric x1 to x15 (F3). VECTOR XX=X1 to X15.

LOOP X=1 TO 15. compute XX(X)=NUMBER(SUBSTR(BIN,x,1),F1). END LOOP. execute.

Surely this syntax will need some debugging in otder to optimize it. But you will get the variables you need!

Happy holidays!

Frederic.

%%%%%%%%%%%%%%%%%%%%%%% Frederic Villamayor Unitat de Bioestadística Àrea de Desenvolupament Preclínic CIDF Ferrer Grupo Juan de Sada, 32 08028 - Barcelona Espanya

E-mail: fvillamayor-research@ferrergrupo.com Tel: +34 935093236 Fax: +34 934112764 WWW: www.ferrergrupo.com

%%%%%%%%%%%%%%%%%%%%%%% "Sanity is not statistical"


Back to: Top of message | Previous page | Main SPSSX-L page