On Mon, 05 Feb 2007 05:42:47 GMT, "Dumbledore_"
wrote:


"Henri Wilson" HW@.... wrote in message ...
On Sun, 04 Feb 2007 23:02:03 GMT, "Dumbledore_"

Henri thinks stars are 0.3 LY from us to fit his theory.

Listen you stupid old dope, stop misrepresenting me or you will end up in
court.

It's your data I quoted, psycho. See me in court all you want to.

I will if you don't shutup!
rate the magnitude changes associated with published
brightness curves, the distance parameter value that has to be fed in is always
less than the hipparcos one. For short period binaries - or whatever they are -
the required distances can be less than 1 LY.

You raving mad, Proxima Centauri is further than that by parallax.
Take me to court, you'll get yourself committed to an asylum.

****ing old drunk...



AT NO TIME HAVE I CLAIMED THAT THESE STARS ARE ONLY 0.3 LYS FROM THE ****ING
EARTH.

Yes you did, you published it. I've got the proof, crackpot.
Take me to court, get yourself committed. Is this your code, Wilson?



Dim c, G, LU, D, pi, v, K1, K2, redblue As Double
Dim n, m As Integer
Dim core As Double
Dim X, Y, Z, R1, R2, Vsquared, vescape As Double
Dim Density1, Density2, decel, accel, deltae As Double
Dim shiftratio As Double

Private Sub Command1_Click()
Spaceslice.Show
End Sub


Private Sub Command2_Click()
End
End Sub


Private Sub Command3_Click()
Form2.Cls
Form2.Top = 10
Form2.Label1.Visible = False
Form2.Label2.Visible = False
Form2.Show
Form2.Label3.Visible = True
Form2.Label4.Visible = True
Form2.Label5.Visible = True
End Sub


Private Sub Command4_Click()
secondCalc.Hide
FirstCalc.Show
End Sub


Private Sub Form_Load()
Combo1.AddItem 0.01
Combo1.AddItem 0.03
Combo1.AddItem 0.05
Combo1.AddItem 0.1
Combo1.AddItem 0.2
Combo1.AddItem 0.4 'R1 Million Lightyears
Combo1.AddItem 1


Combo2.AddItem 0.01
Combo2.AddItem 0.03
Combo2.AddItem 0.05
Combo2.AddItem 0.1
Combo2.AddItem 0.2
Combo2.AddItem 0.4 'R2 Million Lightyears
Combo2.AddItem 1


Combo3.AddItem 0
Combo3.AddItem 0.01
Combo3.AddItem 0.03
Combo3.AddItem 0.05
Combo3.AddItem 0.1
Combo3.AddItem 0.2
Combo3.AddItem 0.4 'Y Million Lightyears
Combo3.AddItem 1


Combo4.AddItem 0
Combo4.AddItem 0.01
Combo4.AddItem 0.03
Combo4.AddItem 0.05
Combo4.AddItem 0.1
Combo4.AddItem 0.2
Combo4.AddItem 0.4 'Z Million Lightyears
Combo4.AddItem 1


Combo5.AddItem 1
Combo5.AddItem 3
Combo5.AddItem 10 'X distance between source and observer
Combo5.AddItem 50
Combo5.AddItem 200
Combo5.AddItem 1000


Combo6.AddItem -12
Combo6.AddItem -13
Combo6.AddItem -14
Combo6.AddItem -15
Combo6.AddItem -16
Combo6.AddItem -17
Combo6.AddItem -18
Combo6.AddItem -19 ' Density D1
Combo6.AddItem -20


Combo7.AddItem 1 ' Density D2/D1
Combo7.AddItem 0.97
Combo7.AddItem 0.9
Combo7.AddItem 0.8
Combo7.AddItem 0.6
Combo7.AddItem 0.3
Combo7.AddItem 0


Combo8.AddItem 1 ' Blue thickness/diameter
Combo8.AddItem 0.4
Combo8.AddItem 0.2
Combo8.AddItem 0.1
Combo8.AddItem 0.04
Combo8.AddItem 0.02
Combo8.AddItem 0.01


Combo9.AddItem 1 ' red thickness/diameter
Combo9.AddItem 0.4
Combo9.AddItem 0.2
Combo9.AddItem 0.1
Combo9.AddItem 0.04
Combo9.AddItem 0.02
Combo9.AddItem 0.01


G = 6.67 * 10 ^ -11
LU = 9.46021 * 10 ^ 21 'has been x 10^6 to convert to millions of LY
c = 2.99776 * 10 ^ 8


pi = 3.14159


End Sub


Private Sub Form_click()
Form2.Cls
Form2.Label6.Visible = False
If Combo1.Text = Empty Or Combo2.Text = Empty Or Combo3.Text = Empty Or
Combo4.Text = Empty Or Combo5.Text = Empty Or Combo6.Text = Empty Or
Combo7.Text = Empty Or Combo8.Text = Empty Then GoTo emty
Form2.Top = 5120
Form2.Show


Form2.Label1.Visible = False
Form2.Label2.Visible = False
Form2.Label3.Visible = False
Form2.Label4.Visible = False
Form2.Label5.Visible = False
Form2.Label6.Visible = False


R1 = Combo1.Text * LU
R2 = Combo2.Text * LU
Y = Combo3.Text * LU
Z = Combo4.Text * LU
X = Combo5.Text * LU


If X = 0 Then GoTo Xnort
If R1 = 0 Or R2 = 0 Then
Form2.Print "Reset values. Neither R1 nor R2 should be zero."
GoTo skip
End If
If Y R1 Then GoTo changeyz
If Z R2 And Combo7.Text 0 Then GoTo changeyz


core = (10 ^ Combo6.Text)
Density1 = core * Combo8.Text
Density2 = core * Combo7.Text * Combo9.Text


K1 = 4.18879 * G * Density1
K2 = 4.18879 * G * Density2


vescape = ((K1 * ((R1 ^ 2) - ((Y ^ 2) * (1 - (Y / 2 / R1))))) ^ 0.5) / c
decel = K1 * ((R1 ^ 2) / 2 * (1 - (R1 / (X + Y) / 2)) - ((Y ^ 2) / 2 * (1 - (Y
/ 2 / R1)))) 'left to right
accel = K2 * ((R2 ^ 2) / 2 * (1 - (R2 / (X + Z) / 2)) - ((Z ^ 2) / 2 * (1 - (Z
/ R2 / 2)))) 'right to left


deltae = decel - accel 'total energy lost


Vsquared = (c ^ 2) - (2 * deltae)
If Vsquared 0 Then GoTo escape
v = (Vsquared ^ 0.5) / c 'final velocity/c


shiftratio = 1 - v 'fractional velocity change


' User-defined formats.
shiftratio = Format(shiftratio, "00.#######")
core = Format(core, "#E-##")
vescape = Format(vescape, "0.#######")
v = Format(v, "0.#######")
decel = Format(decel, "#.####E+##")
accel = Format(accel, "#.####E+##")
deltae = Format(deltae, "00.#####000E+00")


Form2.Print "Distance between source and observer = "; Combo5.Text; " million
lightyears":
Form2.Print "Core density of LH volume: D1 =10^"; Combo6.Text; " kgm/m^3":
Form2.Print "Core density gradient: D2/D1 = "; Combo7.Text:
Form2.Print "Escape velocity from LH volume to infinity ="; vescape; "c":
Form2.Print:


Form2.Print "Energy lost escaping LH volume ="; decel; " mks units":
Form2.Print "Energy gained approaching RH volume ="; accel:
Form2.Print "Difference ="; deltae:
Form2.Print


If Vsquared = 0 Then Form2.Print "Effective one-way velocity of light reaching
observer: v ="; v; "c":
Form2.Print "Fractional redshift: (c-v)/c = "; shiftratio


GoTo skip
escape:
Form2.Print "Escape velocity from LH volume to infinity="; vescape; "c":
Form2.Print "light cannot escape LH body. 'Black Hole' exists at centre."
GoTo skip


changeyz:
If Y R1 Or Z R2 Then Form2.Label6.Visible = True Else Form2.Label6.Visible
= False
GoTo skip
Xnort:
Form2.Print "X must not be zero":
GoTo skip
emty:
Form2.Show
Form2.Cls
Form2.Print "Reset values"
skip:
End Sub


I'm sure it means nothing to you.



SO SHOVE IT UP YOUR GLENLIVET BOTTLE.

Drunken old wabo, you are senile.

****ing old pommie dri/unj kjdjgk

I hope you are ****ing freexing...