home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / mathaids / misc / shellsrt.asc < prev    next >
Text File  |  1996-06-30  |  405b  |  15 lines
  1. 1 REM SHELL SORT,BYTE,83. TO CONVERT TO POINTER SORT,CHANGE VARIABLE, LINE 40
  2. 2 REM TO A STRING VARIABLE. THE POINTER
  3. 3 REM VARABLES MUST BE DIMENSIONED AS NEEDED
  4. 10 D = 2 ^ INT(LOG(N) / LOG(2)) - 1
  5. 20 FOR I = 0 TO N - D
  6. 30 FOR J = I TO 0 STEP -D
  7. 40 IF X(J) <= X(J + D) THEN 70
  8. 50 TX = X(J): X(J) = X(J + D): X(J + D) = TX
  9. 60 NEXT J
  10. 70 NEXT I
  11. 80 D = INT(D / 2): IF D > 0 THEN 20
  12. 90 RETURN
  13.  
  14.  
  15.