@Richard

I just googled "How many board members in a company".. It replied 7 to 31..

## Search found 4922 matches

### Re: Squares

@Dodicat I modified the compressor again...Ran into another snafu , can't tell one form the next... s = mid(bits,a,3) s = ltrim(s,"0") : if s = "" then s = "0" if len(s) = 1 then outs1+= "0" + s if len(s) = 2 then outs1+= "0" + s if len(s) = 3 then o...

### Re: Squares

@Dodicat I came up with an idea for corporate board members... Companies have between 7 and 31 board members.. So you split the screen into 4 , 8, 16 ,32 video squares. Kinda like Skype...But each member has their own square on the screen.. Then they can have board meetings without gathering togethe...

### Re: Squares

@Dodicat While writing the de-compressor i ran into a snafu , you can't tell one from the other...So i modified it again.. s = mid(bits,a,3) s = ltrim(s,"0") : if s = "" then s = "0" if len(s) = 1 then outs1+= s : outs2+= "0" if len(s) = 2 then outs1+= right(s...

### Re: Squares

@Dodicat I modified it so that both output strings , are the same length... It should make it easier to decompress.. Compresses 10,000 78+% after 50 loops... Compresses 100,000 94+% after 50 loops... Compresses 1,000,000 98+% after 50 loops... s = mid(bits,a,3) s = ltrim(s,"0") : if s = &q...

### Re: Squares

@Dodicat Got compression....Compresses 80+% after 40 loops... I'm working on the decompression... It steps by 3 bits. if len = 1 , then it sets both strings to s if len = 2 , then it sets both strings to s if len = 3 , then it sets outs1 to "1" and outs2 to mid(s,2) So , the two strings do...

### Logical Multiplication

Works the same way with multiply.. if you have 1 bunny and it multiplies 1 time then you have two bunnies. 1 multiplied by any number is 1 plus the multiplier.. if you have two bunnies and you multiply 0 times then you have 2 bunnies. if you have two bunnies and you multiply 1 times then you have 4 ...

### Logical Division

Why does the program quit when you divide by zero ??? If you have a cake , and divide it zero times , you got the whole cake. Dividing by zero should return the number... If you split the cake 1 time , you got 2 pieces. If you split the cake 2 times , you got 3 pieces. If you split the cake 3 times ...

### Re: Squares

@Dodicat I'm learning how the Zlib works.. Go down to compress_loop() and set num[ ? ] = 48 and it compresses...You can set any bit to 48 , "0" and it compresses... If you invert a bit , it expands...but set a bit to 0 and it compresses.... Declare Function compress_loop( chrs as string ) ...

### Re: Squares

It sounds easy, but in practice , it's nearly impossible to accomplish..

I'll have to think up a new formula..

I'll have to think up a new formula..

### Re: Squares

@Dodicat Any ideas about finding the stray 3's ??? Declare Function compress_loop( chrs as string ) as string Declare Function decompress_loop( chrs as string ) as string screen 19 dim as double time1 , time2 , time3 , time4 do randomize dim as string s="" For n As Long = 1 To 8 s+=chr(Int...

### Re: Squares

@Dodicat Trying to find the stray 3's in this one.. compresses 90+% after 100 loops. Spirits told me to step by 4's , so i did.. Declare Function compress_loop( chrs as string ) as string Declare Function decompress_loop( chrs as string ) as string screen 19 dim as double time1 , time2 , time3 , tim...

### Re: Squares

@Dodicat I redid the number search , in the de-compressor ... To make it easier to see.. Declare Function compress_loop( chrs as string ) as string Declare Function decompress_loop( chrs as string ) as string screen 19 dim as double time1 , time2 , time3 , time4 do randomize dim as string s="&q...

### Re: Squares

@Dodicat I think i finally got it.... if bits = "000" then outputs+="0" if bits = "001" then outputs+="1" if bits = "010" then outputs+="2" if bits = "011" then outputs+="3" if bits = "100" then outputs+="...

### Re: Squares

@Dodicat I'm close... Sometimes getting a stray "2"... Declare Function compress_loop( chrs as string ) as string Declare Function decompress_loop( chrs as string ) as string screen 19 dim as double time1 , time2 , time3 , time4 do randomize dim as string s="" For n As Long = 1 T...