Search found 4922 matches

by albert
Aug 25, 2019 2:13
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

Re: Squares

@Richard

I just googled "How many board members in a company".. It replied 7 to 31..
by albert
Aug 25, 2019 1:21
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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...
by albert
Aug 24, 2019 23:56
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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...
by albert
Aug 24, 2019 16:40
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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...
by albert
Aug 23, 2019 23:38
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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...
by albert
Aug 23, 2019 21:19
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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...
by albert
Aug 18, 2019 23:50
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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 ...
by albert
Aug 18, 2019 23:01
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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 ...
by albert
Aug 16, 2019 0:08
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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 ) ...
by albert
Aug 14, 2019 19:09
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

Re: Squares

It sounds easy, but in practice , it's nearly impossible to accomplish..
I'll have to think up a new formula..
by albert
Aug 14, 2019 17:09
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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...
by albert
Aug 14, 2019 1:22
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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...
by albert
Aug 12, 2019 21:34
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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...
by albert
Aug 12, 2019 19:46
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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+="...
by albert
Aug 12, 2019 16:18
Forum: General
Topic: Squares
Replies: 6848
Views: 394598

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...

Go to advanced search