Re: SRians, How Can You Claim SR is not LET in Disguise?

On Feb 10, 2:17 am, "Jerry" <Cephalobus_alie...@xxxxxxxxxxx> wrote:
On Feb 7, 4:14 am, HW@....(Henri Wilson) wrote:

On Tue, 06 Feb 2007 22:29:39 +0000, Phineas T Puddleduck

<phineaspuddled...@xxxxxxxxxxxxxx> wrote:
In article <2vvhs2d3h94m5tr8ds8uq1br2t685oa...@xxxxxxx>, HW@....(HenriWilson)
wrote:
Draper, the demo illustrates what SR claims.
Do you deny that?

Then post the math.

[Snip unformatted code]

'-------------------------------------------------------------------
' Henri published three concatenated repetitions of what appears to
' be the same code. I presume that is supposed to make the code
' three times more mathematically sophisticated. :-)
'
' To make more apparent the quality of his code, I've reformatted,
' adding indentation and separating the subroutines so that they can
' be more easily evaluated.
'
' Once you understand what his code is intended to do, it is
' quite hilarious.
'
' Sorry I can't stay on this thread. Big tests coming up...
'
' Jerry
'-------------------------------------------------------------------
Dim L1X1, L2X1, L3X1, L4X1, L5X1, L6X1, L7X1, L8X1, L9X1, L0X1,-
x, y, z, speedfac
Dim n, m, i, j, k As Integer, P, q, r, change1 As Integer, -
rand1 As Integer
Dim Puls(19, 50), rand(19) As Integer, LX1(19), Yc(19), sign(19), -
Pbool(19, 100) As Boolean
Dim speed(19, 50)
'-------------------------------------------------------------------
Private Sub Cend_Click()
End
End Sub
'-------------------------------------------------------------------
Private Sub Command1_Click()
TWil.Enabled = False
Wilson.Hide
Boxes.Show
End Sub
'-------------------------------------------------------------------
Public Sub Form_Load()
Yc(0) = 1950: Yc(1) = 1680: Yc(2) = 2850: Yc(3) = 2040: -
Yc(4) = 1770: Yc(5) = 1590: Yc(6) = 2400
Yc(7) = 2130: Yc(8) = 2310: Yc(9) = 2670: Yc(10) = 2580: -
Yc(11) = 2220: Yc(12) = 2490: Yc(13) = 2760: Yc(14) = 2940
Yc(15) = 1500: Yc(16) = 3030: Yc(17) = 1860
speedfac = 15
End Sub
'-------------------------------------------------------------------
Public Sub Form_Click()
Randomize
Cls
Erase Puls, rand, LX1, sign, Pbool, speed
For n = 0 To 17 'sets elements to false
For j = 0 To 40
Pbool(n, j) = False
Next
Next
For n = 0 To 17 'sets random starting speed
rand(n) = 1 + (Rnd * 4)
Next
For P = 0 To 8 'sets random starting direction
sign(P) = -1
sign(P + 9) = 1
Next
For n = 0 To 17 'sets starting positions for 18 pulses
LX1(n) = 700 + (25 * n)
Next
n = 5
TWil.Enabled = True
End Sub
'-------------------------------------------------------------------
Public Sub Twil_Timer()
Call bob1
If n Mod 7 = 0 Then 'emission of pulses
cou = (n / 7) Mod 40
For k = 0 To 17
Puls(k, cou) = LX1(k) + 195 'starting pos of 18 pulses
speed(k, cou) = rand(k)
Pbool(k, cou) = True 'records that it has been emitted
Next
End If
Call pulse1
n = n + 1
If n > 2000 Then TWil.Enabled = False
End Sub
'-------------------------------------------------------------------
Public Function pulse1() 'movement of pulses
For m = 0 To 40
For x = 0 To 17
If 100 < Puls(x, m) < 12000 Then
DrawWidth = 3
If Pbool(x, m) = True Then
PSet (Puls(x, m), Yc(x)), 0 'rubout point
Puls(x, m) = Puls(x, m) + 45 + -
(5 * speed(x, m) / Puls(x, m) * 3000)
DrawWidth = 2
PSet (Puls(x, m), Yc(x)), &HFF& 'draw point
End If
End If
Next
Next
End Function
'-------------------------------------------------------------------
Public Function bob1() 'movement of sources
For P = 0 To 17
LX1(P) = LX1(P) + (5 * sign(P) * rand(P))
Next
L0.X1 = LX1(0): L0.X2 = L0.X1 + 195
L1.X1 = LX1(1): L1.X2 = L1.X1 + 195
L2.X1 = LX1(2): L2.X2 = L2.X1 + 195
L3.X1 = LX1(3): L3.X2 = L3.X1 + 195
L4.X1 = LX1(4): L4.X2 = L4.X1 + 195
L5.X1 = LX1(5): L5.X2 = L5.X1 + 195
L6.X1 = LX1(6): L6.X2 = L6.X1 + 195
L7.X1 = LX1(7): L7.X2 = L7.X1 + 195
L8.X1 = LX1(8): L8.X2 = L8.X1 + 195
L9.X1 = LX1(9): L9.X2 = L9.X1 + 195
L10.X1 = LX1(10): L10.X2 = L10.X1 + 195
L11.X1 = LX1(11): L11.X2 = L11.X1 + 195
L12.X1 = LX1(12): L12.X2 = L12.X1 + 195
L13.X1 = LX1(13): L13.X2 = L13.X1 + 195
L14.X1 = LX1(14): L14.X2 = L14.X1 + 195
L15.X1 = LX1(15): L15.X2 = L15.X1 + 195
L16.X1 = LX1(16): L16.X2 = L16.X1 + 195
L17.X1 = LX1(17): L17.X2 = L17.X1 + 195

For q = 0 To 17 'changes laser direction and sets new speed
If LX1(q) <= 30 Then
sign(q) = 1
rand(q) = 1 + (Rnd * 4)
End If
If LX1(q) >= 1500 Then
sign(q) = -1
rand(q) = 1 + (Rnd * 4)
End If
Next
End Function



He,he,he

This is a very nice kick in Henri's pants. Good job, Jerry. You made a
fool of "Henri Wilson, MSc (double)"

.

Relevant Pages

  • Re: Filewatch saga continues
    ... Public Sub NKWatch_Created(ByVal sender As Object, ... Dim frmFirst As New Form1 ...
    (microsoft.public.dotnet.general)
  • Re: Filewatch saga continues
    ... Public Sub NKWatch_Created(ByVal sender As Object, ... Dim frmFirst As New Form1 ...
    (microsoft.public.dotnet.general)
  • RE: Editor using Microsoft.mshtml assembly wont allow edit??
    ... Public Sub New ... Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) ... Public Sub add_list ... Public Sub onactivate(ByVal pEvtObj As mshtml.IHTMLEventObj) Implements ...
    (microsoft.public.dotnet.framework)
  • RE: Reading from Excel into an Access form
    ... Dim xlApp As Excel.Application ... End Sub ... Public Sub OpenFile(Optional Filename As String = "", ... Public Function CreateWorksheetAs Excel.Worksheet ...
    (microsoft.public.access.modulesdaovba)
  • RE: Removing excelsheet using VBA
    ... Public Filename As String ... Dim xlApp As Excel.Application ... End Sub ... Public Sub OpenFile(Optional Filename As String = "", ...
    (microsoft.public.access.modulesdaovba)