<%@ 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" IF Request.QueryString("Submitted") = "true" THEN opt_A = Trim(Request.Form("Opt_A")) opt_B = Trim(Request.Form("Opt_B")) Response.Cookies("Humble")("Opt_A")=opt_A * 10 Response.Cookies("Humble")("Opt_B")=opt_B * 10 Response.Redirect "toc_top.htm" ' msg = " *** " & opt_A & "," & opt_B & "," & choice_1 & " ***" ' nCount = RS_2.RecordCount END IF '---*** Request.QueryString("Submitted") ***------------------------ action = "init_Opt.asp?submitted=true" %>


Determining the optimum attributes for each inidividual in the population

<% opt_A=90 opt_B=90 %>

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

Please select the single location in the attribute space that represents the optimal combination of attribute values

<%=msg%>
	Optimal attributes: A =	<% Response.Write "" %>	Opt_B =	<% Response.Write "" %>
	Distance by triangulation of each individual from the optimal point

Future: multiple optima, separate optima for members of pairs (e.g. male and female) <% '' reset the timeout Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>