```Date: Wed, 5 Mar 2003 13:57:38 +0100 Reply-To: Cesar Ortega Sender: "SPSSX(r) Discussion" From: Cesar Ortega Subject: Thanks but I need to do some calculations in between(seleccion case in a loop) Comments: cc: rlevesque@videotron.ca Content-Type: text/plain; charset=us-ascii Hi there, Sorry if it was not very clear, let me try to put it this way: What I need to do is get the first 5 elements of a 5000 element column, and do some calculations with this 5 elements. After this, I need to take the next 5 elements and do the same calculations and son on until I complete the list of the elements. And I need to do this for different increments, not just 5, but 3, or 10, etc. That is why I was thinking about using use 1 thru 5 calculations use 6 thru 10 calculations All the way to the last elements, but without having to manually enter the numbers, but doing some kind of loop. If you have any other recommendation, it will be very helful. Thanks for your help, Cesar Date: Tue, 4 Mar 2003 19:49:41 -0500 From: Raynald Levesque Subject: Re: SELECTION CASE IN A LOOP Hi The question is not crystal clear but this should get you going: *////////////. DEFINE !use (beg=!TOKENS(1) /end=!TOKENS(1) /incr=!TOKENS(1)) !LET !delta=!SUBSTR(!BLANK(!incr),2) !DO !cnt=!beg !TO !end !BY !incr !LET !cnt2=!LENGTH(!CONCAT(!BLANK(!cnt),!delta)) USE !cnt THRU !cnt2. !DOEND !ENDDEFINE. *////////////. SET MPRINT=yes. !use beg=1 end=50 incr=5. * gives. 2681 M> USE 1 THRU 5. 2682 M> USE 6 THRU 10. 2683 M> USE 11 THRU 15. 2684 M> USE 16 THRU 20. 2685 M> USE 21 THRU 25. 2686 M> USE 26 THRU 30. 2687 M> USE 31 THRU 35. 2688 M> USE 36 THRU 40. 2689 M> USE 41 THRU 45. 2690 M> USE 46 THRU 50. !use beg=7 end=48 incr=6. * gives. 2707 M> USE 7 THRU 12. 2708 M> USE 13 THRU 18. 2709 M> USE 19 THRU 24. 2710 M> USE 25 THRU 30. 2711 M> USE 31 THRU 36. 2712 M> USE 37 THRU 42. 2713 M> USE 43 THRU 48. Regards Raynald Levesque rlevesque@videotron.ca Visit my SPSS Pages http://pages.infinit.net/rlevesqu/index.htm ```

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