<%@ Language=VBScript %><% option explicit %> <% DIM ScreenWidth, ScreenHeight DIM timeout DIM gen_parent, gen_child DIM x1, x2 'horizontal DIM y1, y2 'vertical DIM msg '-- for errors DIM CS_1 'Connection String DIM RS_0, Q_0, SID 'RecordSet, Query - for sessionID DIM RS_1, RS_2, RS_3, RS_4, RS_5 'RecordSet DIM Q_1, Q_2, Q_3, Q_4, Q_5 'SQL query against the db DIM RWline1, RWline2, RWline3 DIM action DIM choice_1 DIM nCount, count, count1, a_plus, b_plus, a_minus, b_minus, diff_a, diff_b DIM opt_A, opt_B DIM dist_avg, 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 IF Request.QueryString("Submitted") = "true" THEN choice_1 = Trim(Request.Form("Choice_1")) IF NOT Len(choice_1) > 0 THEN choice_1 = -1 END IF Response.Cookies("Humble")("Select")=choice_1 ' att_a = Request.Cookies("Humble")("InitDist") ' att_b = Request.Cookies("Humble")("Dist") ' dist_avg = SQR(((opt_A*10)-att_A)^2 + ((opt_B*10)-att_B)^2) ' Response.Cookies("Humble")("InitDist")=dist_avg ' Response.Cookies("Humble")("Dist")=0 Response.Redirect "toc_top.htm" ' msg = " *** " & opt_A & "," & opt_B & "," & choice_1 & " ***" ' nCount = RS_2.RecordCount END IF '---*** Request.QueryString("Submitted") ***------------------------ action = "inSelect.asp?submitted=true" %>


Describing the selection mechanism that determines the number of times each individual in the parent population is copied, i.e. the number of children as a function of the individual's attributes

<% choice_1=-1 %>

> <% IF Len(msg) > 0 THEN %> <% END IF %>

Please select the selection mechanism that inexactly determines the copies per individual in the population

<%=msg%>
	Distance by triangulation of each individual from the optimal point
	each individual gets 0-2 copies based on chance and biased by distance
	- using a flat prob. distribution, with distance relative to the pop max, min, average

Future: Other distance measures, e.g. for pairs; separate optima members of pairs (e.g. for male, female)

variability through Gaussian and other shaped distributions for the number of copies per individual in the parent population

for pairs, randomized selection of attribute values based on self or on the mate <% '' reset the timeout Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>