<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% '--- memory.asp --- DIM ScreenWidth, ScreenHeight DIM timeout, SID DIM msg '-- for errors '' extend the timeout to allow for long files ' timeout = Server.ScriptTimeout '' Response.Write "Initial timeout=" & timeout & "
" ' Server.ScriptTimeout = 1200 ' SID = Request.Cookies("Humble")("SID") ScreenWidth = Request.Cookies("Humble")("ScreenWidth") ScreenHeight = Request.Cookies("Humble")("ScreenHeight") ' set it up for a graph bounding box of 2000 horizontal by 2000 vertical %> <%'------------------- title --------------------------------%> Within-individual information conservation, from zygote DNA to skeleton, soft tissues, instincts, to mating DNA (assuming no learning) <%'--------------- top DNA lines with arrows ---------------------------%> parent's DNA randomized recombination <%'--------------- offspring DNA ---------------------------%> zygote: offspring DNA <%'----------------- birth - maturation ------------------------------------%> birth maturation <%'----------------- offspring as adult ------------------------------------%> skeleton, muscles, soft tissues, ..., etc. &skills (instincts) skilled action for survival (fitness) <%'-------------------- offspring mating -------------------------------------%> mating DNA to next generation (possibly with mutation) <%'------------- skilled behaviour for survival ------------------------%> <%'---------------------------------------------------------------------%> <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>