Download velocity map imaging apparatus for studies on the photochemistry of

Appendix
Private Sub cmdReadFile_Click()
Dim Ekin(500), a(500), beta2(500), beta4(500)
pi = 3.141592
sumofa = 0
Dim R2 As Double
ChDir ("c:\Data\Piyumie\Monte Carlo Image Creation\") ' Change this path to where ever
you want you work environment to be
Open "inputfile.txt" For Input As #1
Input #1, NumberofIons
Input #1, Field
Input #1, length
i=0
Do While Not EOF(1)
Input #1, Ekin(i), a(i), beta2(i), beta4(i)
sumofa = sumofa + a(i)
i=i+1
Loop
Close #1
txtNumberofIons.Text = NumberofIons
' Text1.Text = beta2
' Text2.Text = beta4
numberofchannels = i - 1
s = NumberofIons / sumofa
Q = 96800
133