Page 3 of 14 FirstFirst 12345678910111213 ... LastLast
Results 21 to 30 of 134

Thread: Wieferich@Home

  1. #21
    Join Date
    Sep 2006
    Location
    In a cornfield about 35 miles east of St. Louis
    Posts
    1,508
    67 72 65 61 74 20 6a 6f 62 20 64 61 76 65 20 6f 72 20 79 6f 75 20 63 6f 75 6c 64 20 68 61 76 65 20 68 61 64 20 74 6f 20 6c 65 61 72 6e 20 74 6f 20 63 6f 64 65 20 6c 69 6b 65 20 74 68 69 73 20 69 6e 20 74 68 65 20 64 61 79
    Me transmitte sursum, caledoni!

    I am totally against political jokes....I've seem to many of them elected!!



  2. #22
    Join Date
    Mar 2006
    Location
    Nuneaton, UK
    Posts
    880
    If anyone has VB6, I wrote an app to between Hex, Dec and Bin

    Code:
    Function BinToDec(value As String) As Long
        Dim result As Long, i As Integer, exponent As Integer
        For i = Len(value) To 1 Step -1
            Select Case Asc(Mid$(value, i, 1))
                Case 48      ' "0", do nothing
                Case 49      ' "1", add the corresponding power of 2
                    result = result Or Power(exponent)
                Case Else
                    Err.Raise 5      ' Invalid procedure call or argument
            End Select
            exponent = exponent + 1
        Next
        BinToDec = result
    End Function
    
    Function DecToBin(ByVal value As Long, Optional digits As Long = -1) As String
        Dim result As String, exponent As Integer
        ' this is faster than creating the string by appending chars
        result = String$(32, "0")
        Do
            If value And Power(exponent) Then
                ' we found a bit that is set, clear it
                Mid$(result, 32 - exponent, 1) = "1"
                value = value Xor Power(exponent)
            End If
            exponent = exponent + 1
        Loop While value
        If digits < 0 Then
            ' trim non significant digits, if digits was omitted or negative
            Bin = Mid$(result, 33 - exponent)
        Else
            ' else trim to the requested number of digits
            DecToBin = Right$(result, digits)
        End If
    End Function
    
    Function Power(ByVal exponent As Long) As Long
        Static res(0 To 31) As Long
        Dim i As Long
        
        ' rule out errors
        If exponent < 0 Or exponent > 31 Then Err.Raise 5
        
        ' initialise the array at the first call
        If res(0) = 0 Then
            res(0) = 1
            For i = 1 To 30
                res(i) = res(i - 1) * 2
            Next
            ' this is a special case
            res(31) = &H80000000
        End If
        
        ' return the result
        Power = res(exponent)
            
    End Function
    Last edited by spikey_richie; 02-03-2008 at 09:26 AM.



  3. #23
    Join Date
    Nov 2005
    Location
    Central Pennsylvania
    Posts
    4,333
    I just love these puzzles so early in the morning! Gatekeeper53 would you like this translated to what particularly? Back to binary, or into a legible assemblers code to enable something you have in mind?





    Challenge me, or correct me, but don't ask me to die quietly.

    …Pursuit is always hard, capturing is really not the focus, it’s the hunt ...

  4. #24
    Join Date
    Mar 2006
    Location
    Nuneaton, UK
    Posts
    880
    ignore me - duplicate post...



  5. #25
    Join Date
    Sep 2006
    Location
    In a cornfield about 35 miles east of St. Louis
    Posts
    1,508
    We used to have to read core dumps (from paper) in Hex most of the time more than a thousand pages of one part paper. And that was from a machine with 512k of RAM. You just got used to it after awhile. Since it wasn't uncommon to have the mainframe lock up 4 or 5 times a day. LOL and people think Windoze is unstable. Believe me when I tell you that the "Good old days" in computers sucked!
    Me transmitte sursum, caledoni!

    I am totally against political jokes....I've seem to many of them elected!!



  6. #26
    AMDave's Avatar
    AMDave is offline Seeker of the exit clause Moderator
    Site Admin
    Join Date
    Jun 2004
    Location
    Deep in a while loop
    Posts
    9,609
    49 20 64 69 64 20 73 6f 6d 65 20 4d 41 53 4d 20 62 75 74 20 49 20 77 61 73 20 73 74 69 6c 6c 20 74 6f 6f 20 79 6f 75 6e 67 2e 20
    Heh. I'll call that one a "Burn"

    First one to hack spikey's code into an EBCDIC-ASCII converter in VB6 wins !
    I'm off to bed. LOL
    Last edited by AMDave; 02-03-2008 at 10:30 AM.
    . . . . . ___
    . . . . . . .\___/\______
    . . . . . . . \__AMD___\\__
    ---------------------------------------------

  7. #27
    Join Date
    Mar 2006
    Location
    Nuneaton, UK
    Posts
    880
    Anyone know how the points system works? I point for every result returned?



  8. #28
    Join Date
    May 2004
    Location
    Arlington, Texas
    Posts
    5,396
    Yes that is correct Spikey.

  9. #29
    Join Date
    Mar 2006
    Location
    Nuneaton, UK
    Posts
    880
    I was just looking through the list of results returned, and the number of primes found. The only user who has found a prime is dobesj (Jan Dobes), who it would seem is developer of the app (see the project authors list on the main project window).

    http://www.elmath.org/index.php?id=nearwp shows the result, with a link to dobesj's profile. He only crunched one work unit, which turned out to be a prime and scored him 15 points.

    For some reason that tweaked my interest receptors, so I though I'd share with the group Maybe I'm reading too much into it, and there's more that one Jan Dobes (who shares his name with one of the projects authors).
    Last edited by spikey_richie; 02-03-2008 at 06:18 PM.



  10. #30
    Join Date
    May 2004
    Location
    Arlington, Texas
    Posts
    5,396
    That is pretty strange...

Page 3 of 14 FirstFirst 12345678910111213 ... LastLast

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •