<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% '--- plan_adv.asp --- DIM ScreenWidth, ScreenHeight DIM timeout, SID DIM msg '-- for errors DIM prey_values, prey1_values DIM pred_values, pred1_values, diag_values DIM pred_angles, pred1_angles DIM prey_dist 'distance covered per 0.1 time unit DIM pred_dist DIM keyTimes1, kT1, duration1 DIM aAngle(10), a_Pred, aA, a1, a2 DIM a_x(12), x_Prey, x_Pred, x_Diag, x1, x2 DIM a_y(12), y_Prey, y_Pred, y_Diag, y1, y2 DIM i1, Step1 DIM comma1, semiColon1, space1 DIM polyLine1 DIM opt_A, opt_B DIM action '' extend the timeout to allow for long files ' timeout = Server.ScriptTimeout '' Response.Write "Initial timeout=" & timeout & "
" ' Server.ScriptTimeout = 1200 ' SID = Request.Cookies("Humble")("SID") '------------------------------------------------------------------------- IF NOT Request.QueryString("Submitted") = "true" THEN '------------------------------------------------------------------------- action = "plan_adv.asp?submitted=true" %>


Determining the optimum attribtes 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

<% Response.End '----------------------------------------------------------- '------------------------------------------------------------------------- ELSE '------------------------------------------------------------------------- ' Response.ContentType = "image/svg+xml" %> <% END IF '' reset the timeout ' Server.ScriptTimeout = timeout '-----------------------------------------------------------%>