PC World Komputer 1997 February/PCWK0297.iso/envelop/envelop.6/Tools/Bootcamp/advanced/sieve/SIEVE.ETO

Text File | 1996-07-08 | 10KB | 392 lines

Type GenericSieve

  ' METHODS for object: GenericSieve
  Sub ListPrimes(LstBox As ListBox)
  End Sub

  Sub Run()
  End Sub

  Sub SetLimit(ByVal Lim As Integer)
  End Sub

End Type

Type BetterSieve From GenericSieve
  Dim Prime As New DataBuffer

  ' METHODS for object: BetterSieve
  Sub ListPrimes(LBox As ListBox)
    Dim I As Integer

    For I = 1 To Prime.Size - 1
      If Prime.GetByte(I) Then LBox.AddItem(I)
    Next I
    SieveForm.LblNumOfPrimes.Caption = LBox.ListCount
  End Sub

  Sub Run()
    Dim I, J, Finish As Integer

    Prime.FillBytes(0, Prime.Size, True)
    Finish = int(sqr(Prime.Size - 1) + 1)

    For I = 2 To Finish
      If Prime.GetByte(I) Then
        J = I + I
        While J < Prime.Size
          If Prime.GetByte(J) Then Prime.SetByte(J, False)
          J = J + I
        Wend
      End If
    Next I
  End Sub

  Sub SetLimit(Lim As Integer)
    Prime.Size = Lim + 1
  End Sub

End Type

Type BestSieve From GenericSieve
  Dim Prime As New DataBuffer

  ' METHODS for object: BestSieve
  Sub ListPrimes(LBox As ListBox)
    Dim I, N As Integer

    LBox.AddItem(1)
    LBox.AddItem(2)
    N = Prime.Size \ 2 - 1
    For I = 1 To N
      If Prime.GetByte(I) Then LBox.AddItem((2 * I) + 1)
    Next I
    SieveForm.LblNumOfPrimes.Caption = LBox.ListCount
  End Sub

  Sub Run()
    Dim I, J, N, N2, K As Integer
    Dim Finish As Integer

    Prime.FillBytes(0, Prime.Size, True)

    Finish = int(sqr(Prime.Size - 1) + 1)
    I = 1
    For N = 3 To Finish Step 2
      If Prime.GetByte(I) Then
        N2 = N + N
        J = N2 + N
        While J < Prime.Size
          K = J \ 2
          If Prime.GetByte(K) Then Prime.SetByte(K, False)
          J = J + N2
        Wend
      End If
      I = I + 1
    Next N

  End Sub

  Sub SetLimit(Lim As Integer)
    Prime.Size = Lim + 1
  End Sub

End Type

Type GreedySieve From GenericSieve
  Dim Prime As New DataBuffer

  ' METHODS for object: GreedySieve
  Sub ListPrimes(LBox As ListBox)
    Dim I As Integer

    For I = 1 To Prime.Size - 1
      If Prime.GetByte(I) Then LBox.AddItem(I)
    Next I
    SieveForm.LblNumOfPrimes.Caption = LBox.ListCount
  End Sub

  Sub Run()
    Dim I, J, N As Integer

    Prime.FillBytes(0, Prime.Size, True)

    N = Prime.Size - 1
    For I = 2 To N
      If Prime.GetByte(I) Then
        J = I + I
        While J < Prime.Size
          If Prime.GetByte(J) Then Prime.SetByte(J, False)
          J = J + I
        Wend
      End If
    Next I
  End Sub

  Sub SetLimit(Lim As Integer)
    Prime.Size = Lim + 1
  End Sub

End Type

Type SieveForm From SampleMasterForm
  Type BtnSieve1 From Button
  End Type
  Type BtnSieve2 From Button
  End Type
  Type BtnSieve3 From Button
  End Type
  Dim LstPrimes As New ListBox
  Dim LblNumOfPrimes As New Label
  Dim LblNumOfPrimesLbl As New Label
  Type LblSieve1 From Label
  End Type
  Type LblSieve2 From Label
  End Type
  Type LblSieve3 From Label
  End Type
  Dim LblSizeLbl As New Label
  Dim LblSize As New Label
  Dim SbSizeSelector As New ScrollBar
  Dim font As New Font
  Dim LblGreedyTime As New Label
  Dim LblBetterTime As New Label
  Dim LblBestTime As New Label
  Dim font2 As New Font

  ' METHODS for object: SieveForm
  Sub BtnSieve1_Click()
    Dim I as integer

    LstPrimes.Clear
    LblNumOfPrimes.Caption = ""
    LblGreedyTime.Caption = ""

    GreedySieve.SetLimit(SieveForm.SbSizeSelector.Value)

    CPUStopClock.Start
    GreedySieve.Run
    CPUStopClock.Finish

    LblGreedyTime.Caption = Right$(CPUStopClock.ElapsedTime, 6)
    GreedySieve.ListPrimes(LstPrimes)

    CPUStopClock.Reset
  End Sub

  Sub BtnSieve2_Click()
    Dim I as integer

    LstPrimes.Clear
    LblNumOfPrimes.Caption = ""
    LblBetterTime.Caption = ""

    BetterSieve.SetLimit(SieveForm.SbSizeSelector.Value)

    CPUStopClock.Start
    BetterSieve.Run
    CPUStopClock.Finish

    LblBetterTime.Caption = Right$(CPUStopClock.ElapsedTime, 6)
    BetterSieve.ListPrimes(LstPrimes)

    CPUStopClock.Reset
  End Sub

  Sub BtnSieve3_Click()
    Dim I as integer

    LstPrimes.Clear
    LblNumOfPrimes.Caption = ""
    LblBestTime.Caption = ""

    BestSieve.SetLimit(SieveForm.SbSizeSelector.Value)

    CPUStopClock.Start
    BestSieve.Run
    CPUStopClock.Finish

    LblBestTime.Caption = Right$(CPUStopClock.ElapsedTime, 6)
    BestSieve.ListPrimes(LstPrimes)

    CPUStopClock.Reset

  End Sub

  Sub ResetApplication_Click()
    LoadForm
    SbSizeSelector.Value = 20
    LblSize.Caption = SbSizeSelector.Value
    LblNumOfPrimes.Caption = ""
    LstPrimes.Clear
    LblGreedyTime.Caption = ""
    LblBetterTime.Caption = ""
    LblBestTime.Caption = ""
  End Sub

  Sub Resize()
    LstPrimes.Height = ScaleHeight - LstPrimes.Top - 135
  End Sub

  Sub SbSizeSelector_Change()
    LblSize.Caption = SieveForm.SbSizeSelector.Value
    LblNumOfPrimes.Caption = ""
    LblGreedyTime.Caption = ""
    LblBetterTime.Caption = ""
    LblBestTime.Caption = ""
    LstPrimes.Clear
  End Sub

  Sub SbSizeSelector_Scroll()
    LblSize.Caption = SieveForm.SbSizeSelector.Value
  End Sub

End Type

Begin Code
' Reconstruction commands for object: GenericSieve
'
  With GenericSieve
  End With  'GenericSieve
' Reconstruction commands for object: BetterSieve
'
  With BetterSieve
    With .Prime
    End With  'BetterSieve.Prime
  End With  'BetterSieve
' Reconstruction commands for object: BestSieve
'
  With BestSieve
    With .Prime
    End With  'BestSieve.Prime
  End With  'BestSieve
' Reconstruction commands for object: GreedySieve
'
  With GreedySieve
    With .Prime
    End With  'GreedySieve.Prime
  End With  'GreedySieve
' Reconstruction commands for object: SieveForm
'
  With SieveForm
    .Caption := "Sieve"
    .ForeColor := 16711680
    .Font := SieveForm.font
    .Move(3765, 1875, 5685, 4680)
    .SampleDir := "W:\bootcamp\advanced\sieve\"
    .SampleName := "sieve"
    With .BtnSieve1
      .Caption := "Greedy"
      .ForeColor := 0
      .ZOrder := 8
      .Move(120, 975, 1050, 450)
    End With  'SieveForm.BtnSieve1
    With .BtnSieve2
      .Caption := "Better"
      .ForeColor := 0
      .ZOrder := 7
      .Move(120, 2070, 1050, 450)
    End With  'SieveForm.BtnSieve2
    With .BtnSieve3
      .Caption := "Best"
      .ForeColor := 0
      .ZOrder := 6
      .Move(120, 3120, 1050, 450)
    End With  'SieveForm.BtnSieve3
    With .LstPrimes
      .Caption := "Primes"
      .ForeColor := 128
      .ZOrder := 2
      .Move(4320, 1020, 1140, 2730)
      .Sorted := False
    End With  'SieveForm.LstPrimes
    With .LblNumOfPrimes
      .ForeColor := 128
      .ZOrder := 4
      .Move(4320, 555, 1050, 270)
    End With  'SieveForm.LblNumOfPrimes
    With .LblNumOfPrimesLbl
      .Caption := "# of Primes:"
      .ZOrder := 9
      .Move(2730, 555, 1500, 270)
      .Alignment := "Right"
    End With  'SieveForm.LblNumOfPrimesLbl
    With .LblSieve1
      .Caption := "This is an implementation of Eratosthenes' sieve, which finds prime numbers using a nested loop to eliminate multiples of previously known primes. Times are in CPU seconds."
      .ForeColor := 16711680
      .Font := SieveForm.font2
      .ZOrder := 10
      .Move(1320, 960, 2850, 960)
    End With  'SieveForm.LblSieve1
    With .LblSieve2
      .Caption := "The better algorithm optimizes by stopping the outer loop at the square root of 'size', since at that point all non-primes up to 'size' have been found."
      .ForeColor := 16711680
      .Font := SieveForm.font2
      .ZOrder := 13
      .Move(1320, 2070, 2850, 900)
    End With  'SieveForm.LblSieve2
    With .LblSieve3
      .Caption := "The best algorithm optimizes time and space by not representing or testing any even numbers. "
      .ForeColor := 16711680
      .Font := SieveForm.font2
      .ZOrder := 12
      .Move(1320, 3120, 2850, 900)
    End With  'SieveForm.LblSieve3
    With .LblSizeLbl
      .Caption := "Size:"
      .ZOrder := 11
      .Move(3510, 135, 750, 300)
      .Alignment := "Right"
    End With  'SieveForm.LblSizeLbl
    With .LblSize
      .Caption := "20"
      .ForeColor := 128
      .ZOrder := 14
      .Move(4350, 150, 1050, 300)
    End With  'SieveForm.LblSize
    With .SbSizeSelector
      .ZOrder := 15
      .Move(135, 135, 3240, 300)
      .SmallChange := 1
      .LargeChange := 10
      .Min := 20
      .Max := 1000
      .Value := 20
      .Orientation := "Horizontal"
      .Move(135, 135, 3240, 300)
    End With  'SieveForm.SbSizeSelector
    With .font
      .FaceName := "MS Sans Serif"
      .Size := 12.000000
      .Bold := False
      .Italic := False
      .Strikethru := False
    End With  'SieveForm.font
    With .LblGreedyTime
      .ForeColor := 128
      .ZOrder := 5
      .Move(120, 1425, 1050, 300)
    End With  'SieveForm.LblGreedyTime
    With .LblBetterTime
      .ForeColor := 128
      .ZOrder := 3
      .Move(120, 2520, 1050, 300)
    End With  'SieveForm.LblBetterTime
    With .LblBestTime
      .ForeColor := 128
      .ZOrder := 1
      .Move(120, 3570, 1050, 300)
    End With  'SieveForm.LblBestTime
    With .font2
      .FaceName := "MS Sans Serif"
      .Size := 8.000000
      .Bold := False
      .Italic := False
      .Strikethru := False
    End With  'SieveForm.font2
    With .helpfile
      .FileName := "W:\bootcamp\advanced\sieve\sieve.hlp"
    End With  'SieveForm.helpfile
  End With  'SieveForm
End Code