Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: carloscordeiro on September 06, 2020, 09:27:47 pm

Title: Sequence
Post by: carloscordeiro on September 06, 2020, 09:27:47 pm
Good evening everyone
Come again on this forum, ask for help on this program to show sequence starting with 3 until 09 dozens.
I spent two nights trying to get him to show and count how many times a sequence of 03 dozens or more came out. I did it shows, but I'm having a hard time getting him to count the strings.
Follow code for anyone who can help me.
Sequencia_11 is exactly what I want, but I'm having trouble making him count each sequence.
Sequencia_01 counts the sequences, but does not show all sequences on the screen.
Thank you very much, for all the attention I've had at other times.

Carlos,
Title: Re: Sequence
Post by: bplus on September 06, 2020, 10:45:57 pm
Hi @carloscordeiro

Are you just trying to add up the numbers in a record or data line in that txt file?
Title: Re: Sequence
Post by: carloscordeiro on September 07, 2020, 12:48:06 am
Thank you Bplus for responding.

I'm not just trying to add up the numbers of a record or data line in that txt file. I am trying to know in each line or record, how many 3 tens sequences there are in each line or record
Example: line "01 04 06 07 08 09 10 11 12 14 16 17 22 23 24" in this line there is a sequence of 07 tens and another of 3 tens or more. I want to do this for all lines in the.txt file.

I managed to do it with prime numbers using the same file.txt. Unfortunately I am having difficulty with the same sequence of numbers.
I'll send the prime number for you to get an idea.
Title: Re: Sequence
Post by: bplus on September 07, 2020, 01:11:18 am
Yes, I figured out that you were looking for runs:

Here is the best one:
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Dang you want all of the runs > 2 from each line, I just counted the best in each line.
Back to drawing board :)
Title: Re: Sequence
Post by: carloscordeiro on September 07, 2020, 01:30:46 am
This, I want to show the sequences on the screen, regardless of the tens and together shows how many came out. As in prime numbers.
My difficulty is to show the sequence and count them at the same time
Title: Re: Sequence
Post by: bplus on September 07, 2020, 01:44:09 am
Hi @carloscordeiro

Do you have a method to your coloring madness? How about a color for each sequence length so it's color coded?
Title: Re: Sequence
Post by: bplus on September 07, 2020, 02:37:25 am
News flash the highest sequence is 14!
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Sequence
Post by: bplus on September 07, 2020, 04:18:57 am
OK here we go!

This is a two part program. The first has to be run only once to Analyze the Seque.txt data file. It writes a Seque Analysis.txt file that has all the data you need ready to display.

Code: QB64: [Select]
  1. OPEN "Seque.txt" FOR INPUT AS #1
  2. OPEN "seque analysis.txt" FOR OUTPUT AS #2 'counts seq and start position
  3. DIM sq(1 TO 15) AS INTEGER
  5.     seq = 1: starts = 1: saveseq = 0: lineNum = lineNum + 1: lc$ = SPACE$(15)
  6.     LINE INPUT #1, fl$
  7.     FOR i = 1 TO 15
  8.         n = VAL(MID$(fl$, i * 3 - 2, 3))
  9.         PRINT n;
  10.         IF i > 1 THEN
  11.             IF n = lastn + 1 THEN 'start ofr cont seq
  12.                 seq = seq + 1
  13.             ELSE 'seq ended if it even started
  14.                 sq(seq) = sq(seq) + 1
  15.                 MID$(lc$, starts, seq) = STRING$(seq, HEX$(seq))
  16.                 seq = 1
  17.                 starts = i
  18.             END IF
  19.         END IF
  20.         lastn = n
  21.     NEXT
  22.     sq(seq) = sq(seq) + 1
  23.     MID$(lc$, starts, seq) = STRING$(seq, HEX$(seq))
  24.     PRINT lc$
  25.     b$ = ""
  26.     FOR i = 1 TO 15
  27.         b$ = b$ + STR$(sq(i))
  28.     NEXT
  29.     PRINT #2, fl$ + " " + lc$ + b$
  30.     'PRINT "asleep"
  31.     'SLEEP
  33. 'PRINT #2, "Highest sequence is " + _TRIM$(STR$(highseq)) + " on line #" + _TRIM$(STR$(saveLineNum))
  35. PRINT "File: seque analysis.txt is ready!"
  36.  
  37. 'hint
  38. 'FOR i = 0 TO 15
  39. '    PRINT HEX$(i), VAL("&H" + HEX$(i))
  40. 'NEXT
  41.  
  42.  

I count 35 lines :)



Now this next file is for the big Color Coded show, it has a color for ever sequence number for 1 to 15 just like screen 12! But we need more room to list the sequence count status every line makes to the cumulative total.

Anyway here is code for the Show:
Code: QB64: [Select]
  1. _TITLE "sequence show" ' b+ 2020=09-07
  2. DIM d(1 TO 2029) AS STRING
  3. SCREEN _NEWIMAGE(1200, 720, 12)
  4. _DELAY .25
  6. OPEN "seque analysis.txt" FOR INPUT AS #1
  7. FOR i = 1 TO 2029
  8.     LINE INPUT #1, d(i)
  11. 'PRINT d(2029)  ' good
  12. page = 0
  13. nextPage:
  15. FOR p = 1 TO 40
  16.     IF page + p < 2030 THEN
  17.         n$ = _TRIM$(STR$(page + p))
  18.         blank$ = SPACE$(6)
  19.         MID$(blank$, 2, LEN(n$)) = n$
  20.         COLOR 15
  21.         PRINT blank$;
  22.         fl$ = MID$(d(page + p), 1, 45)
  23.         cs$ = MID$(d(page + p), 46, 15)
  24.         sc$ = MID$(d(page + p), 62)
  25.         FOR i = 1 TO 15
  26.             COLOR VAL("&H" + MID$(cs$, i, 1))
  27.             PRINT MID$(fl$, i * 3 - 2, 3);
  28.         NEXT
  29.         REDIM dat$(0)
  30.         Split sc$, " ", dat$()
  31.         PRINT SPACE$(3);
  32.         FOR i = LBOUND(dat$) TO UBOUND(dat$)
  33.             COLOR i + 1
  34.             blank$ = SPACE$(6)
  35.             MID$(blank$, 1, LEN(dat$(i))) = dat$(i)
  36.             PRINT blank$;
  37.         NEXT
  38.         PRINT
  39.     ELSE
  40.         COLOR 15
  41.         PRINT SPACE$(64) + "*** End of Data ***"
  42.         EXIT FOR
  43.     END IF
  46. PRINT SPACE$(55) + "press u for page Up, d for page Down "
  48. getpage:
  49. pageDir$ = ""
  50. WHILE UCASE$(pageDir$) <> "U" AND UCASE$(pageDir$) <> "D"
  51.     pageDir$ = INKEY$
  52.     _LIMIT 60
  54. IF UCASE$(pageDir$) = "U" THEN
  55.     IF page - 40 >= 0 THEN page = page - 40 ELSE BEEP
  56. ELSEIF UCASE$(pageDir$) = "D" THEN
  57.     IF page + 40 <= 2040 THEN page = page + 40 ELSE BEEP
  59.     IF pageDir$ <> "" THEN BEEP
  60.     GOTO getpage
  62. GOTO nextPage
  63.  
  64. SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
  65.     DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
  66.     curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
  67.     dpos = INSTR(curpos, SplitMeString, delim)
  68.     DO UNTIL dpos = 0
  69.         loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
  70.         arrpos = arrpos + 1
  71.         IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
  72.         curpos = dpos + LD
  73.         dpos = INSTR(curpos, SplitMeString, delim)
  74.     LOOP
  75.     loadMeArray(arrpos) = MID$(SplitMeString, curpos)
  76.     REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
  78.  
  79. 'hint
  80. 'FOR i = 0 TO 15
  81. '    PRINT HEX$(i), VAL("&H" + HEX$(i))
  82. 'NEXT
  83.  
  84.  
That program ran a little longer as I had to bring in the big gun, Split SUB ;-))

And here is what the final page on the Big Screen looks like:
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Sequence
Post by: carloscordeiro on September 07, 2020, 04:54:58 pm
Hi Bplus
You understood what I want, it was perfect.  Now I wanted to change the appearance of the screen a little
As it is an advanced schedule, I am not familiar. I can only create simple programs.
I want to change the list of times a sequence goes out to an accountant.
Leave only the file numbers with the colors running on the screen.

(((((((Hello @carloscordeiro.

Do you have a method for your crazy coloring? How about a color for each string length so that it is color-coded?)))))))

I hadn't thought about this hypothesis, I was putting the colors at random.

I really liked the size of the screen, it got a lot of space, but a learning experience.

I'll try to draw the screen here and send it to you if there is a possibility to put a counter.
Title: Re: Sequence
Post by: bplus on September 07, 2020, 05:04:24 pm
Quote from: carloscordeiro on September 07, 2020, 04:54:58 pm
Hi Bplus
You understood what I want, it was perfect.  Now I wanted to change the appearance of the screen a little
As it is an advanced schedule, I am not familiar. I can only create simple programs.
I want to change the list of times a sequence goes out to an accountant.
Leave only the file numbers with the colors running on the screen.

(((((((Hello @carloscordeiro.

Do you have a method for your crazy coloring? How about a color for each string length so that it is color-coded?)))))))

I hadn't thought about this hypothesis, I was putting the colors at random.

I really liked the size of the screen, it got a lot of space, but a learning experience.

I'll try to draw the screen here and send it to you if there is a possibility to put a counter.

Hey @carloscordeiro

Have you figured out what the numbers on the right side are. They are cumulative totals of ALL sequence lengths including 1, 2, 3, .... all color coded to the QB color = length.

We could also do totals for each line. Then maybe do a cumulative total by a page number at the bottom of page?
Title: Re: Sequence
Post by: carloscordeiro on September 07, 2020, 06:53:28 pm
It would be like the attached image that I want to show.
I only drew 3 lines, but it would be for all lines
Title: Re: Sequence
Post by: carloscordeiro on September 07, 2020, 06:55:28 pm
I also wanted a standard color for the numbers that are not in the sequence, I mean, outside the sequences.
Title: Re: Sequence
Post by: carloscordeiro on September 07, 2020, 07:01:47 pm
Image counter correction
Title: Re: Sequence
Post by: bplus on September 07, 2020, 07:43:07 pm
Looks like you have it your way!

Here is what I did:
Code: QB64: [Select]
  1. _TITLE "sequence show mod #2" ' b+ 2020=09-07
  2. DIM d(1 TO 2029) AS STRING
  3. SCREEN _NEWIMAGE(700, 740, 12)
  4. _DELAY .25
  6. OPEN "seque analysis.txt" FOR INPUT AS #1
  7. FOR i = 1 TO 2029
  8.     LINE INPUT #1, d(i)
  11. 'PRINT d(2029)  ' good
  12. page = 0
  13. nextPage:
  15. FOR p = 1 TO 40
  16.     IF page + p < 2030 THEN
  17.         n$ = _TRIM$(STR$(page + p))
  18.         blank$ = SPACE$(6)
  19.         MID$(blank$, 2, LEN(n$)) = n$
  20.         COLOR 15
  21.         PRINT blank$;
  22.         fl$ = MID$(d(page + p), 1, 45)
  23.         cs$ = MID$(d(page + p), 46, 15)
  24.         sc$ = MID$(d(page + p), 62)
  25.         IF page = 0 AND p = 1 THEN
  26.             sc2$ = ""
  27.         ELSE
  28.             sc2$ = MID$(d(page + p - 1), 62)
  29.         END IF
  30.         FOR i = 1 TO 15
  31.             COLOR VAL("&H" + MID$(cs$, i, 1))
  32.             PRINT MID$(fl$, i * 3 - 2, 3);
  33.         NEXT
  34.         REDIM dat$(0), dat2$(0)
  35.         Split sc$, " ", dat$()
  36.         IF sc2$ <> "" THEN Split sc2$, " ", dat2$()
  37.         PRINT SPACE$(3);
  38.         FOR i = LBOUND(dat$) TO UBOUND(dat$)
  39.             COLOR i + 1
  40.             blank$ = SPACE$(2)
  41.             IF sc2$ <> "" THEN
  42.                 diff$ = _TRIM$(STR$(VAL(dat$(i)) - VAL(dat2$(i))))
  43.                 MID$(blank$, 1, LEN(diff$)) = diff$
  44.             ELSE
  45.                 MID$(blank$, 1, LEN(dat$(i))) = dat$(i)
  46.             END IF
  47.             PRINT blank$;
  48.         NEXT
  49.         PRINT
  50.     ELSE
  51.         COLOR 15
  52.         PRINT SPACE$(34) + "*** End of Data ***"
  53.         EXIT FOR
  54.     END IF
  57. FOR i = 1 TO 15
  58.     COLOR i
  59.     blank$ = SPACE$(10)
  60.     s$ = "seq of " + _TRIM$(STR$(i))
  61.     MID$(blank$, 2, LEN(s$)) = s$
  62.     PRINT blank$;
  63.     IF i = 8 THEN PRINT
  66. PRINT SPACE$(25) + "press u for page Up, d for page Down ";
  68. getpage:
  69. pageDir$ = ""
  70. WHILE UCASE$(pageDir$) <> "U" AND UCASE$(pageDir$) <> "D"
  71.     pageDir$ = INKEY$
  72.     _LIMIT 60
  74. IF UCASE$(pageDir$) = "U" THEN
  75.     IF page - 40 >= 0 THEN page = page - 40 ELSE BEEP
  76. ELSEIF UCASE$(pageDir$) = "D" THEN
  77.     IF page + 40 <= 2040 THEN page = page + 40 ELSE BEEP
  79.     IF pageDir$ <> "" THEN BEEP
  80.     GOTO getpage
  82. GOTO nextPage
  83.  
  84. SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
  85.     DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
  86.     curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
  87.     dpos = INSTR(curpos, SplitMeString, delim)
  88.     DO UNTIL dpos = 0
  89.         loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
  90.         arrpos = arrpos + 1
  91.         IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
  92.         curpos = dpos + LD
  93.         dpos = INSTR(curpos, SplitMeString, delim)
  94.     LOOP
  95.     loadMeArray(arrpos) = MID$(SplitMeString, curpos)
  96.     REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
  98.  
  99. 'hint
  100. 'FOR i = 0 TO 15
  101. '    PRINT HEX$(i), VAL("&H" + HEX$(i))
  102. 'NEXT
  103.  
  104.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Sequence
Post by: carloscordeiro on September 07, 2020, 08:12:51 pm
I didn't do Bplus, this is just a drawing I did on the windows paintd

I just added the columns in to be displayed

Insert the counter to be able to draw, so you would have an idea of what I want
Title: Re: Sequence
Post by: bplus on September 08, 2020, 03:13:33 pm
Quote from: carloscordeiro on September 07, 2020, 08:12:51 pm
I didn't do Bplus, this is just a drawing I did on the windows paintd

I just added the columns in to be displayed

Insert the counter to be able to draw, so you would have an idea of what I want

* Sequencia_20 Forum.bas (5.97 kB - downloaded 1 times.)

It must be an oversight, my _title on your code :(
Title: Re: Sequence
Post by: carloscordeiro on September 23, 2020, 06:47:13 pm
Hi Bplus
Good night, here in Brazil
Since September 8, 2020, your last post, I've been trying to modify your code for my sequence. But I couldn't, because your code is very advanced.
I decided to take a few lines of your code and try to make my sequence. Today I managed to show the sequences from 3 on the screen. However, my code was not perfect, it has an “X = X + 1” counter to identify the strings, but in some lines of the file, seque.txt adds an extra digit in the “X”, causing an inadequate count to occur.
To minimize the error, I made a patch that I don't like.
I spent nights trying to figure out why he counts too much and I couldn't find out.
I read several posts where you can modify a code for the better or fix it.

I come in the hope that you will analyze my code and find out where it does the wrong count.

See lines from the patch I made:
(((IF cor1 (x) = 0 OR VAL (n $) <> cor1 (x) THEN
         x = x - 1
     ELSE
         IF cor1 (x) = 0 OR VAL (n $) = cor1 (x) AND seq <= 2 THEN x = x - 1
     END IF)))

Thanks again, for answering all my posts

Carlos,
 
Title: Re: Sequence
Post by: bplus on September 23, 2020, 08:12:44 pm
Sorry @carloscordeiro

I can't make sense of what you are doing or are after. Your screen is too big for my laptop and Windows is complaining there is something malicious in the exe I made from your code and won't run anymore. (WTH? It did run at least once.)

One thing I would never do is start taking VAL of these digit strings, I recommend avoiding that. Compare strings of digits with strings of digits.

Make sure counters are reset to 0 at all possible places of restart.

Only advance a counter if the seq > 2 I think is what you want to do, because you don't want to track seq length of 1 or 2.

Title: Re: Sequence
Post by: carloscordeiro on September 23, 2020, 08:48:29 pm
I will decrease the screen size
Here is a picture of what I want, I mean, I did it, but it has bugs
Title: Re: Sequence
Post by: bplus on September 23, 2020, 08:53:48 pm
Ha ha! I confess I can't even make sense of my own code!

Are you trying to get a count of sequences of the whole page farthest to right?
Title: Re: Sequence
Post by: carloscordeiro on September 23, 2020, 08:59:05 pm
Bplus, I decrease the screen size.
I have already reviewed everything and did not find the fault, even so it continues on some lines if you delete this patch that I made. This patch does not happen bub
(((Patch: IF cor1 (x) = 0 OR VAL (n $) <> cor1 (x) THEN
         x = x - 1
     ELSE
         IF cor1 (x) = 0 OR VAL (n $) = cor1 (x) AND seq <= 2 THEN x = x - 1
     END IF)))
Title: Re: Sequence
Post by: carloscordeiro on September 23, 2020, 09:00:36 pm
Yes, exactly that
Title: Re: Sequence
Post by: bplus on September 23, 2020, 09:42:07 pm
Ohhhh  I ran a preliminary program to process the lines and made the file "seque analysis.txt" It had the counts of each line in a 15 character middle column and running totals for the current line through the whole file!

Code: QB64: [Select]
  1. OPEN "Seque.txt" FOR INPUT AS #1
  2. OPEN "seque analysis.txt" FOR OUTPUT AS #2 'counts seq and start position
  3. DIM sq(1 TO 15) AS INTEGER
  5.     seq = 1: starts = 1: saveseq = 0: lineNum = lineNum + 1: lc$ = SPACE$(15)
  6.     LINE INPUT #1, fl$
  7.     FOR i = 1 TO 15 'going through the 15 numbers in a line
  8.         n = VAL(MID$(fl$, i * 3 - 2, 3)) ' oh hell I did take val of string so I could compare current number with last
  9.         PRINT n;
  10.         IF i > 1 THEN 'if past the first number we can start comparing to last
  11.             IF n = lastn + 1 THEN 'start counting seq length
  12.                 seq = seq + 1
  13.             ELSE 'seq ended (if it even started)
  14.                 sq(seq) = sq(seq) + 1  'for seq of 1 to seq of 15
  15.                 MID$(lc$, starts, seq) = STRING$(seq, HEX$(seq))
  16.                 seq = 1
  17.                 starts = i
  18.             END IF
  19.         END IF
  20.         lastn = n
  21.     NEXT
  22.     sq(seq) = sq(seq) + 1
  23.     MID$(lc$, starts, seq) = STRING$(seq, HEX$(seq))
  24.     PRINT lc$
  25.     b$ = ""
  26.     FOR i = 1 TO 15
  27.         b$ = b$ + STR$(sq(i))
  28.     NEXT
  29.     PRINT #2, fl$ + " " + lc$ + b$
  30.     'PRINT "asleep"
  31.     'SLEEP
  33. 'PRINT #2, "Highest sequence is " + _TRIM$(STR$(highseq)) + " on line #" + _TRIM$(STR$(saveLineNum))
  35. PRINT "File: seque analysis.txt is ready!"
  36.  
  37. 'hint
  38. 'FOR i = 0 TO 15
  39. '    PRINT HEX$(i), VAL("&H" + HEX$(i))
  40. 'NEXT
  41.  
  42.  

Here is output while analysis is working:
 


The numbers on left are just copies of the data, the numbers on right in a string of 15 are the sequence lengths each of the 15 data numbers belong to, also used for QB4.5 color codes this makes display of color coded numbers easy as eating pie.

From analysis file written you can display the numbers anyway you please! :) problem solved again ;-))


Here is a snippet of the analysis txt file:
Quote
02 03 05 06 09 10 11 13 14 16 18 20 23 24 25 222233322111333 3 3 2 0 0 0 0 0 0 0 0 0 0 0 0
01 04 05 06 07 09 11 12 13 15 16 19 20 23 24 144441333222222 5 6 3 1 0 0 0 0 0 0 0 0 0 0 0
01 04 06 07 08 09 10 11 12 14 16 17 20 23 24 117777777122122 9 8 3 1 0 0 1 0 0 0 0 0 0 0 0
01 02 04 05 08 10 12 13 16 17 18 19 23 24 25 222211224444333 11 11 4 2 0 0 1 0 0 0 0 0 0 0 0
01 02 04 08 09 11 12 13 15 16 19 20 23 24 25 221223332222333 12 15 6 2 0 0 1 0 0 0 0 0 0 0 0
01 02 04 05 06 07 10 12 15 16 17 19 21 23 25 224444113331111 18 16 7 3 0 0 1 0 0 0 0 0 0 0 0
01 04 07 08 10 12 14 15 16 18 19 21 22 23 25 112211333223331 23 18 9 3 0 0 1 0 0 0 0 0 0 0 0
01 05 06 08 09 10 13 15 16 17 18 19 20 22 25 122333166666611 27 19 10 3 0 1 1 0 0 0 0 0 0 0 0
03 04 05 09 10 11 13 15 16 17 19 20 21 24 25 333333133333322 28 20 14 3 0 1 1 0 0 0 0 0 0 0 0
02 03 04 05 06 08 09 10 11 12 14 19 20 23 24 555555555512222 29 22 14 3 2 1 1 0 0 0 0 0 0 0 0
02 06 07 08 09 10 11 12 16 19 20 22 23 24 25 177777771224444 31 23 14 4 2 1 2 0 0 0 0 0 0 0 0
01 02 04 05 07 08 09 10 11 12 14 16 17 24 25 222266666612222 32 27 14 4 2 2 2 0 0 0 0 0 0 0 0
03 05 06 07 08 09 10 11 13 14 15 16 17 19 23 177777775555511 35 27 14 4 3 2 3 0 0 0 0 0 0 0 0
01 02 05 06 07 09 13 14 15 18 19 20 21 23 25 223331333444411 38 28 16 5 3 2 3 0 0 0 0 0 0 0 0
01 02 04 06 08 10 12 15 16 18 19 21 23 24 25 221111122221333 44 31 17 5 3 2 3 0 0 0 0 0 0 0 0
02 05 06 07 08 10 12 13 15 17 19 21 23 24 25 144441221111333 50 32 18 6 3 2 3 0 0 0 0 0 0 0 0
01 02 03 05 06 07 09 13 14 16 17 18 19 20 21 333333122666666 51 33 20 6 3 3 3 0 0 0 0 0 0 0 0
02 06 07 08 10 11 14 15 17 18 19 20 22 23 24 133322224444333 52 35 22 7 3 3 3 0 0 0 0 0 0 0 0
02 05 06 07 08 10 11 13 14 15 16 17 20 23 24 144442255555122 54 37 22 8 4 3 3 0 0 0 0 0 0 0 0
03 04 06 07 08 09 10 14 16 17 18 19 20 23 24 225555515555522 55 39 22 8 6 3 3 0 0 0 0 0 0 0 0
01 02 04 05 08 11 14 16 18 19 20 22 23 24 25 222211113334444 59 41 23 9 6 3 3 0 0 0 0 0 0 0 0
01 02 03 04 05 06 07 09 10 12 13 14 15 22 25 777777722444411 61 42 23 10 6 3 4 0 0 0 0 0 0 0 0
01 03 04 05 06 08 10 11 12 14 16 17 18 19 20 144441333155555 64 42 24 11 7 3 4 0 0 0 0 0 0 0 0
01 02 03 05 07 10 11 14 17 19 20 21 23 24 25 333112211333333 68 43 27 11 7 3 4 0 0 0 0 0 0 0 0
01 02 03 04 05 06 07 09 13 14 16 20 22 23 24 777777712211333 71 44 28 11 7 3 5 0 0 0 0 0 0 0 0
05 07 08 09 10 11 13 14 16 17 19 20 21 22 23 155555222255555 72 46 28 11 9 3 5 0 0 0 0 0 0 0 0
03 06 08 10 11 12 13 14 15 18 20 21 22 24 25 111666666133322 76 47 29 11 9 4 5 0 0 0 0 0 0 0 0
01 03 07 09 10 11 12 13 14 16 17 18 19 20 21 111666666666666 79 47 29 11 9 6 5 0 0 0 0 0 0 0 0

On the far right I was keeping a running total of all the sequence numbers so if you wanted to know about the current line sequence counts just take the current line total and subtract the last line's current total.

So to do your seq counts, do that, subtract current line running totals from previous line and ignore the sequences of 1 or 2 because you don't seem to care about those, and print seq 3 = 2 seq 5 = 1 or whatever...

And while doing that, add the sequence counts for the page of how many ever lines you are doing for the page for printing onto the screen your own show.

Yes so in summary, use the analysis code to get the numbers you need for showing your data, then write your own show of the data in whatever way you desire to see the data.
Title: Re: Sequence
Post by: carloscordeiro on September 23, 2020, 10:38:49 pm
Bplus, are you talking about these underlined numbers? I see it gets easier. My difficulty is to extract from your file that you created to insert in my show code.

You are very excited, so I always thank you for all your attention.
Could you in a few lines like I do to extract the ready-made sequence from the file you created?
Title: Re: Sequence
Post by: bplus on September 23, 2020, 11:32:18 pm
Carlos, I have written my Show Mod #2 with comments to make it easy to follow and I included comments to show how you might modify the code to show what you want to show:

Code: QB64: [Select]
  1. _TITLE "sequence show mod #2" ' b+ 2020=09-07
  2. DIM d(1 TO 2029) AS STRING
  3. SCREEN _NEWIMAGE(700, 740, 12)
  4. _DELAY .25
  6. OPEN "seque analysis.txt" FOR INPUT AS #1 '  <  load all the lines from analysis into d() string array
  7. FOR i = 1 TO 2029
  8.     LINE INPUT #1, d(i)
  11. 'PRINT d(2029)  ' good
  12. page = 0 ' <  I am showing pages of 40 lines at a time  starting at page 0
  13. nextPage:
  15.  
  16. ' !!! carlos redim seqPage(1 to 15)   'to save running total of seq length counts
  17.  
  18. FOR p = 1 TO 40 ' <<                      each line is p added to page (a multiple of 40)
  19.  
  20.     '!!! carlos redim seqLength( 1 to 15)
  21.  
  22.     IF page + p < 2030 THEN
  23.         n$ = _TRIM$(STR$(page + p)) ' this is the line number in the data file ready to display
  24.         blank$ = SPACE$(6)
  25.         MID$(blank$, 2, LEN(n$)) = n$ '<  i insert the line number into a blank of 6 spaces
  26.         COLOR 15
  27.         PRINT blank$; ' <  OK there is the line number on screen
  28.  
  29.         ' now the data line has 3 parts
  30.         fl$ = MID$(d(page + p), 1, 45) '   <<< this is the 15 2 digit numbers
  31.         cs$ = MID$(d(page + p), 46, 15) '  <<< this is the 15 color codes for those numbers
  32.         sc$ = MID$(d(page + p), 62) '      <<< this is the running total of each sequence lenth count
  33.  
  34.  
  35.         'get the previous running total of each sequence lenth count
  36.         IF page = 0 AND p = 1 THEN ' no previous line
  37.             sc2$ = ""
  38.         ELSE
  39.             sc2$ = MID$(d(page + p - 1), 62) ' this section of the previous line contains the running totals
  40.         END IF
  41.  
  42.         ' now we will show the 15 numbers color coded with QB4.5 numbers
  43.         FOR i = 1 TO 15
  44.             COLOR VAL("&H" + MID$(cs$, i, 1)) ' set the color
  45.             PRINT MID$(fl$, i * 3 - 2, 3); ' print the number
  46.         NEXT
  47.  
  48.  
  49.         'Now to figure the sequence length counts for the line.
  50.  
  51.         '                         We will be using Split a powerful parsing tool!
  52.  
  53.         REDIM dat$(0), dat2$(0) ' this sets up 2 dynamic arrays to contain numbers of running totals
  54.  
  55.         Split sc$, " ", dat$() ' this splits sc$ section into an array of numbers the current line running totals here
  56.  
  57.         IF sc2$ <> "" THEN Split sc2$, " ", dat2$() ' this splits the previous line running totals into an array of numbers
  58.  
  59.  
  60.         PRINT SPACE$(3); ' just separate the line with some space
  61.  
  62.  
  63.         FOR i = LBOUND(dat$) TO UBOUND(dat$) ' current line running totals
  64.             COLOR i + 1 ' set color code for sequence
  65.  
  66.  
  67.             '                             carlos you would want to skip this next block
  68.  
  69.             ' now subtract from current line running totals the previous line if there was one
  70.             blank$ = SPACE$(2) '  load our arithmatic into a 2 space blank
  71.             IF sc2$ <> "" THEN
  72.                 diff$ = _TRIM$(STR$(VAL(dat$(i)) - VAL(dat2$(i)))) ' do subraction and convert number to string
  73.                 MID$(blank$, 1, LEN(diff$)) = diff$ ' < the diffence of the running total for a given seq length
  74.             ELSE
  75.                 MID$(blank$, 1, LEN(dat$(i))) = dat$(i)
  76.             END IF
  77.             PRINT blank$; ' and here is goes onto our line
  78.  
  79.  
  80.             '                                  Carlos here is where you want to do something different
  81.             ' i = 1 and i = 2 you dont want
  82.             ' You need to setup:
  83.             'different diff calcs
  84.             ' if sc2$ <> "" then
  85.             'diff = VAL(dat$(i)) - VAL(dat2$(i))
  86.             'ELSE
  87.             ' diff =val( dat$(i))
  88.             'end if
  89.  
  90.             ' an array (cleared for each line) to hold the maybe:               seqLength(i) = seqLength(i) + diff
  91.             ' and array for the page to hold the running totals for the page:   seqPage(i) = seqPage(i) + diff
  92.  
  93.         NEXT
  94.  
  95.         ' !!! Carlos from seqLength build a line that list the seq length and counts for seqLength() array
  96.       [s] ' b$ = ""  ' start a build string[/s]
  97.         ' for i = 3 to 15
  98.             ' color i
  99.        '        if seqLength(i) then ? "seq Length"; str$(i); " amount = " ; str$(seqLength(i));
  100.         '  next
  101.         ' !!! and print it to finish your lines
  102.       [s]  ' print b$   'finish your data line [/s]
  103.  
  104.         PRINT ' line is finished finally !
  105.     ELSE
  106.         COLOR 15
  107.         PRINT SPACE$(34) + "*** End of Data ***"
  108.         EXIT FOR
  109.     END IF
  111.  
  112. ' !!!!!!!!!! Carlos locate and print the data from the seqPage() totals now
  113. '  remember the QB color is same as i
  114. 'FOR i = 3 TO 15
  115. '      color i
  116. '       if seqPage(i) then locate i, someX past already written stuff : print total i lengths this page = seqPage(i)
  117. 'next
  118.  
  120. FOR i = 1 TO 15 'this is color code legend I write at bottom of screen
  121.     COLOR i
  122.     blank$ = SPACE$(10)
  123.     s$ = "seq of " + _TRIM$(STR$(i))
  124.     MID$(blank$, 2, LEN(s$)) = s$
  125.     PRINT blank$;
  126.     IF i = 8 THEN PRINT
  128.  
  129. 'last bit of instruction for page
  131. PRINT SPACE$(25) + "press u for page Up, d for page Down ";
  133.  
  134.  
  135.  
  136. ' now wait for keypress to page up or page down   and handle it
  137. getpage:
  138. pageDir$ = ""
  139. WHILE UCASE$(pageDir$) <> "U" AND UCASE$(pageDir$) <> "D"
  140.     pageDir$ = INKEY$
  141.     _LIMIT 60
  143. IF UCASE$(pageDir$) = "U" THEN
  144.     IF page - 40 >= 0 THEN page = page - 40 ELSE BEEP
  145. ELSEIF UCASE$(pageDir$) = "D" THEN
  146.     IF page + 40 <= 2040 THEN page = page + 40 ELSE BEEP
  148.     IF pageDir$ <> "" THEN BEEP
  149.     GOTO getpage
  151. GOTO nextPage
  152.  
  153.  
  154.  
  155. '                a very powerful parsing tool!!!
  156.  
  157. SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
  158.     DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
  159.     curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
  160.     dpos = INSTR(curpos, SplitMeString, delim)
  161.     DO UNTIL dpos = 0
  162.         loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
  163.         arrpos = arrpos + 1
  164.         IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
  165.         curpos = dpos + LD
  166.         dpos = INSTR(curpos, SplitMeString, delim)
  167.     LOOP
  168.     loadMeArray(arrpos) = MID$(SplitMeString, curpos)
  169.     REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
  171.  
  172.  
  173.  
  174. 'hint   to color code writing
  175. 'FOR i = 0 TO 15
  176. '    PRINT HEX$(i), VAL("&H" + HEX$(i))
  177. 'NEXT
  178.  
  179.  
Title: Re: Sequence
Post by: bplus on September 24, 2020, 12:40:27 am
I am testing my ideas and found something important to change:
Code: QB64: [Select]
  1. REDIM dat$(0), dat2$(0)
  2.  

to
 
Code: QB64: [Select]
  1. REDIM dat$(1 to 1), dat2$(1 to 1)  'make lower bound of dat$ 1 not 0 for ease of code changes further on.
  2.  
Title: Re: Sequence
Post by: bplus on September 24, 2020, 12:51:08 am
Yep other than REDIM Dat$(1 to 1) arrays, it ran with few corrections:
Code: QB64: [Select]
  1. _TITLE "sequence show mod #2" ' b+ 2020=09-07
  2. DIM d(1 TO 2029) AS STRING
  3. SCREEN _NEWIMAGE(1180, 740, 12)
  4. _DELAY .25
  6. OPEN "seque analysis.txt" FOR INPUT AS #1 '  <  load all the lines from analysis into d() string array
  7. FOR i = 1 TO 2029
  8.     LINE INPUT #1, d(i)
  11. 'PRINT d(2029)  ' good
  12. page = 0 ' <  I am showing pages of 40 lines at a time  starting at page 0
  13. nextPage:
  15.  
  16. ' !!! carlos redim seqPage(1 to 15)   'to save running total of seq length counts
  17. REDIM seqPage(1 TO 15)
  18. FOR p = 1 TO 40 ' <<                      each line is p added to page (a multiple of 40)
  19.  
  20.     '!!! carlos redim seqLength( 1 to 15)
  21.     REDIM seqLength(1 TO 15)
  22.  
  23.     IF page + p < 2030 THEN
  24.         n$ = _TRIM$(STR$(page + p)) ' this is the line number in the data file ready to display
  25.         blank$ = SPACE$(6)
  26.         MID$(blank$, 2, LEN(n$)) = n$ '<  i insert the line number into a blank of 6 spaces
  27.         COLOR 15
  28.         PRINT blank$; ' <  OK there is the line number on screen
  29.  
  30.         ' now the data line has 3 parts
  31.         fl$ = MID$(d(page + p), 1, 45) '   <<< this is the 15 2 digit numbers
  32.         cs$ = MID$(d(page + p), 46, 15) '  <<< this is the 15 color codes for those numbers
  33.         sc$ = MID$(d(page + p), 62) '      <<< this is the running total of each sequence lenth count
  34.  
  35.  
  36.         'get the previous running total of each sequence lenth count
  37.         IF page = 0 AND p = 1 THEN ' no previous line
  38.             sc2$ = ""
  39.         ELSE
  40.             sc2$ = MID$(d(page + p - 1), 62) ' this section of the previous line contains the running totals
  41.         END IF
  42.  
  43.         ' now we will show the 15 numbers color coded with QB4.5 numbers
  44.         FOR i = 1 TO 15
  45.             COLOR VAL("&H" + MID$(cs$, i, 1)) ' set the color
  46.             PRINT MID$(fl$, i * 3 - 2, 3); ' print the number
  47.         NEXT
  48.  
  49.  
  50.         'Now to figure the sequence length counts for the line.
  51.  
  52.         '                         We will be using Split a powerful parsing tool!
  53.  
  54.         REDIM dat$(1 TO 1), dat2$(1 TO 1) ' this sets up 2 dynamic arrays to contain numbers of running totals
  55.  
  56.         Split sc$, " ", dat$() ' this splits sc$ section into and array of numbers  the currnet line running totals here
  57.  
  58.         IF sc2$ <> "" THEN Split sc2$, " ", dat2$() ' this splits the previous line running totals into an array of numbers
  59.  
  60.  
  61.         PRINT SPACE$(3); ' just separate the line with some space
  62.  
  63.         'PRINT LBOUND(dat$), UBOUND(dat$)
  64.         'END
  65.  
  66.         FOR i = LBOUND(dat$) TO UBOUND(dat$) ' current line running totals
  67.  
  68.             COLOR i ' set color code for sequence
  69.  
  70.             ' now subtract from current line running totals the previous line if there was one
  71.             'blank$ = SPACE$(2) '  load our arithmatic into a 2 space blank
  72.             'IF sc2$ <> "" THEN
  73.             '    diff$ = _TRIM$(STR$(VAL(dat$(i)) - VAL(dat2$(i)))) ' do subraction and convert number to string
  74.             '    MID$(blank$, 1, LEN(diff$)) = diff$ ' < the diffence of the running total for a given seq length
  75.             'ELSE
  76.             '    MID$(blank$, 1, LEN(dat$(i))) = dat$(i)
  77.             'END IF
  78.             'PRINT blank$; ' and here is goes onto our line
  79.  
  80.  
  81.             'Carlos here is where you want to do something different
  82.             ' i = 1 and i = 2 you dont want
  83.             ' You need to setup:
  84.             'different diff calcs
  85.             IF sc2$ <> "" THEN
  86.                 diff = VAL(dat$(i)) - VAL(dat2$(i))
  87.             ELSE
  88.                 diff = VAL(dat$(i))
  89.             END IF
  90.  
  91.             ' an array (cleared for each line) to hold the maybe:               seqLength(i) = seqLength(i) + diff
  92.             ' and array for the page to hold the running totals for the page:   seqPage(i) = seqPage(i) + diff
  93.             seqLength(i) = seqLength(i) + diff
  94.             seqPage(i) = seqPage(i) + diff
  95.         NEXT
  96.  
  97.         ' !!! Carlos from seqLength build a line that list the seq length and counts for seqLength() array
  98.         ' !!! and print it to finish your lines
  99.         FOR i = 3 TO 15
  100.             COLOR i
  101.             IF seqLength(i) THEN PRINT "  seq"; i; "="; seqLength(i);
  102.         NEXT
  103.         '!!! and print it to finish your lines
  104.  
  105.  
  106.         PRINT ' my line is finished finally !
  107.     ELSE
  108.         COLOR 15
  109.         PRINT SPACE$(34) + "*** End of Data ***"
  110.         EXIT FOR
  111.     END IF
  113.  
  114. ' !!!!!!!!!! Carlos locate and print the data from the seqPage() totals now
  115. '  remember the QB color is same as i
  116. FOR i = 3 TO 15
  117.     COLOR i
  118.     IF seqPage(i) THEN LOCATE i, 100: PRINT "Total"; i; "lengths this page ="; seqPage(i)
  120.  
  122. LOCATE 42, 1
  123. FOR i = 1 TO 15 'this is color code legend I write at bottom of screen
  124.     COLOR i
  125.     blank$ = SPACE$(10)
  126.     s$ = "seq of " + _TRIM$(STR$(i))
  127.     MID$(blank$, 2, LEN(s$)) = s$
  128.     PRINT blank$;
  129.     IF i = 8 THEN PRINT
  131.  
  132. 'ast bit of instruction for page
  134. PRINT SPACE$(25) + "press u for page Up, d for page Down ";
  136.  
  137.  
  138.  
  139. ' now wait for keypress to page up or page down   and handle it
  140. getpage:
  141. pageDir$ = ""
  142. WHILE UCASE$(pageDir$) <> "U" AND UCASE$(pageDir$) <> "D"
  143.     pageDir$ = INKEY$
  144.     _LIMIT 60
  146. IF UCASE$(pageDir$) = "U" THEN
  147.     IF page - 40 >= 0 THEN page = page - 40 ELSE BEEP
  148. ELSEIF UCASE$(pageDir$) = "D" THEN
  149.     IF page + 40 <= 2040 THEN page = page + 40 ELSE BEEP
  151.     IF pageDir$ <> "" THEN BEEP
  152.     GOTO getpage
  154. GOTO nextPage
  155.  
  156.  
  157.  
  158. '                a very powerful parsing tool!!!
  159.  
  160. SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
  161.     DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
  162.     curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
  163.     dpos = INSTR(curpos, SplitMeString, delim)
  164.     DO UNTIL dpos = 0
  165.         loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
  166.         arrpos = arrpos + 1
  167.         IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
  168.         curpos = dpos + LD
  169.         dpos = INSTR(curpos, SplitMeString, delim)
  170.     LOOP
  171.     loadMeArray(arrpos) = MID$(SplitMeString, curpos)
  172.     REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
  174.  
  175.  
  176.  
  177. 'hint   to color code writing
  178. 'FOR i = 0 TO 15
  179. '    PRINT HEX$(i), VAL("&H" + HEX$(i))
  180. 'NEXT
  181.  
  182.  


  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Sequence
Post by: carloscordeiro on September 24, 2020, 08:12:43 am
Hi Bplus, that's exactly what I want, now I made a big mistake. I was not careful to mention that the file seque.txt is cumulative. You've done a lot, I'm ashamed to ask you for something more.

I'll leave it as is, with two steps.

From the beginning, I really liked the scroll bar "u for Up" and "d for page Down" that you inserted in your code.
At night I will put the frame with lines.

Thank you very much

Carlos
Title: Re: Sequence
Post by: bplus on September 24, 2020, 10:41:21 am
Quote from: carloscordeiro on September 24, 2020, 08:12:43 am
Hi Bplus, that's exactly what I want, now I made a big mistake. I was not careful to mention that the file seque.txt is cumulative. You've done a lot, I'm ashamed to ask you for something more.

I'll leave it as is, with two steps.

From the beginning, I really liked the scroll bar "u for Up" and "d for page Down" that you inserted in your code.
At night I will put the frame with lines.

Thank you very much

Carlos

If you are asking for cumulative totals on the sequence lengths, they are already there in the analysis file. It is from that that I find the totals for the line (though I could do it from the color coding 15 character string that's more work).

This solution done in 2 steps makes it easier to follow the coding logic. After the analysis is done, you don't need original data file and you can then concentrate on how you want the data displayed.

Title: Re: Sequence
Post by: carloscordeiro on September 24, 2020, 09:31:33 pm
Okay, thanks again for your attention and dedication to helping.
Text Only | Text with Attachments