<%@ Language=VBScript %><% option explicit %> Rainer's research on evolution, skills, and language comprehension <% DIM ScreenWidth, ScreenHeight DIM timeout DIM gen_parent, gen_child DIM msg '-- for errors DIM CS_1 'Connection String DIM RS_0, RS_1, RS_2 'RecordSet DIM Q_0, Q_1, Q_2 'SQL query against the db DIM RWline1, RWline2, RWline3 DIM action DIM choice_1 DIM nCount, max_a, max_b, min_a, min_b, diff_a, diff_b DIM popCount DIM att_a, att_b '' extend the timeout to allow for long files timeout = Server.ScriptTimeout '' Response.Write "Initial timeout=" & timeout & "
" Server.ScriptTimeout = 1200 ScreenWidth = Request.Cookies("Humble")("ScreenWidth") ScreenHeight = Request.Cookies("Humble")("ScreenHeight") CS_1 = "DSN=evolve" gen_parent = 1 gen_child = 2 %>




Reviewing the parameters

Please review the parameters
Initializing the ur-population  
urPopCount = <%=Request.Cookies("Humble")("urPopCount")%>
PopCount = <%=Request.Cookies("Humble")("PopCount")%>
XPopCount = <%=Request.Cookies("Humble")("XPopCount")%>
PopCountLimit = <%=Request.Cookies("Humble")("PopCountLimit")%>
Initializing the copy mechanism
copyStepCount = <%=Request.Cookies("Humble")("CopyStepCount")%>
copyStepGen_x = <%=Request.Cookies("Humble")("CopyStepGen_x")%>
copyRate = <%=Request.Cookies("Humble")("CopyRate")%>
distRate = <%=Request.Cookies("Humble")("DistRate")%>
randRate = <%=Request.Cookies("Humble")("RandRate")%>
a_minus = <%=Request.Cookies("Humble")("A_minus")%>
a_plus = <%=Request.Cookies("Humble")("A_plus")%>
b_minus = <%=Request.Cookies("Humble")("B_minus")%>
b_plus = <%=Request.Cookies("Humble")("B_plus")%>
Initializing the selection mechanism
Opt_A = <%=Request.Cookies("Humble")("Opt_A")/10%>
Opt_B = <%=Request.Cookies("Humble")("Opt_B")/10%>
InitDist = <%=Request.Cookies("Humble")("InitDist")%>
XDist = <%=Request.Cookies("Humble")("XDist")%>
Dist = <%=Request.Cookies("Humble")("Dist")%>
Select = <%=Request.Cookies("Humble")("Select")%>
Testing
Test = <%=Request.Cookies("Humble")("Test")%>

<% '' reset the timeout Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>