Search found 2930 matches

by Richard
Nov 11, 2019 13:30
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

And a linear spiral like yours, but without an Atn() or trigonometry in the loop. A negative rate of growth is neat. '---------------------------------- ' linear spiral '---------------------------------- Dim As Integer xres, yres, xctr, yctr Screeninfo xres, yres Screenres xres, yres, 4 xctr = xres...
by Richard
Nov 11, 2019 10:05
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

Here is a spiral without lots of sin, cos and atn inside the loop... '---------------------------------- ' Log spiral '---------------------------------- Dim As Integer xres, yres, xctr, yctr Screeninfo xres, yres Screenres xres, yres, 4 xctr = xres \ 2 yctr = yres \ 2 '-----------------------------...
by Richard
Nov 11, 2019 1:12
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

Draw a spiral by increasing the radius with each step. Changed radius to single. ' spiral Dim As Single c2 Dim As Single s2 Dim As Single x2 Dim As Single y2 Dim As Single deg2 Dim As Single rad2 Dim As single xctr, yctr, radius, divisions, fullcircle ' screen 19 Dim As Integer xres, yres Screeninfo...
by Richard
Oct 05, 2019 23:26
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

You are going about it backwards. Ignore compression until you have solved the expansion.
Your search for reversible data compression will be never-ending if you do not first look for ways to expand compressed data.
by Richard
Sep 29, 2019 12:02
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

When pigs will fly, albert may find a de-compressor code that will recover information lost during compression! GM pigs are possible. At about the time that pigs fly, Albert will realise the theoretical impossibility of finding a reversible data compression algorithm based on randomly selected hash...
by Richard
Sep 10, 2019 1:15
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

Albert wrote:How do you bring up the old "Circles" forum? I need to search it for one of my programs..

Use the search function on the FB forum, and you will get...
viewtopic.php?f=3&t=14570&hilit=circles#p125920
by Richard
Sep 04, 2019 2:20
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

You use the same seed "0" every time. Use Randomize once at the start. Screen 19 Randomize Dim As String vals(0 To 31) Dim As String match Dim As Longint count Dim As String n1 For a As Longint = 0 To 31 Step 1 n1 = Bin(a) count = 0 Do match="" For b As Longint = 1 To Len(n1) mat...
by Richard
Aug 28, 2019 11:24
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

Albert wrote:How would you reverse it???

You have lost information so you cannot always reverse it.
by Richard
Aug 25, 2019 1:51
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

I came up with an idea for corporate board members... Companies have between 7 and 31 board members.. I believe "The Peter Principle", 1969, demonstrated that having more than 7 members on a board or committee makes it unmanageable and unproductive. https://en.wikipedia.org/wiki/Peter_pri...
by Richard
Aug 21, 2019 20:16
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

Better energy conservation. Function DetectBallCollisions( B1 As ball, B2 As ball) As Single Dim As Single xdiff2 = B2.x - B1.x : xdiff2 *= xdiff2 Dim As Single ydiff2 = B2.y - B1.y : ydiff2 *= ydiff2 Dim As Single sumR2 = B2.r + B1.r : sumR2 *= sumR2 If xdiff2 > sumR2 Then Return 0 ' fast exits If ...
by Richard
Aug 07, 2019 8:58
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

Try this. example at the end... '======================================================================= ' Factorise a 64 bit Unsigned Long Integer, resolution within 13 seconds '======================================================================= Type factor_table ' 216 bytes = 8 + 8*16 + 4*16 +...
by Richard
Jul 31, 2019 3:05
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

@albert. We really cannot help you do what we can prove is impossible. You will be more successful if you contact the ARRL in your city. Tell them you want to get your amateur radio licence. Morse code is not required. You have all the skills needed. A good start would be to contact; John Kitchens, ...
by Richard
Jul 29, 2019 18:48
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

@albert. We really cannot help you do what we can prove is impossible. You will be more successful if you contact the ARRL in your city. Tell them you want to get your amateur radio licence. Morse code is not required. You have all the skills needed. A good start would be to contact; John Kitchens, ...
by Richard
Jul 24, 2019 21:43
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

@Richard It requires 5 decimal places of precision to get to 65,535... 17 bits + 4 bits comes out to 21 bits.. 5 places goes to 291,465.. @Albert. That is not a question. You are having a psychotic episode. Take your medication. You have insufficient algebra skills to write software without asking ...
by Richard
Jul 23, 2019 5:43
Forum: General
Topic: Squares
Replies: 7236
Views: 437282

Re: Squares

I don't have an FCC license , you have to be proficient in Morse code , and i had difficulty learning Morse code...So i didn't get the license.. All Morse code was dumped from the Ham licence in the USA back in early 2007. I only took "General Math" in high school , i didn't take algebra ...

Go to advanced search