<%@ 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 skill-information growth, adding skills learned by imitating parents and peers, and passing the learned skills to the next generation <%'--------------- parent's DNA lines with arrows --------------------------%> parent's DNA-based skills randomized recombination <%'--------------- parent's learning-assistance line with arrow ------------%> parents demonstrating skilled action <%'--------------- peer's learning-assistance line with arrow ---------------------------%> peer's skilled action <%'--------------- offspring DNA ---------------------------%> offspring's DNA-encoded skills <%'----------------- birth - maturation ------------------------------------%> birth maturation <%'----------------- applying the skill ------------------------------------%> innate plus learned skills applying Vision+action plan edit action plan action <%'----------------- learning as skill ------------------------------------%> editing <%'------------- imitating the parent and peer ----------------------%> imitating <%'-------------------- offspring mating --------------------------------%> DNA-based skills to next generation <%'------------- skilled behaviour for survival ------------------------%> <%'------------- learning support for next generation -----------------%> demonstrating skilled action for peers & next generation <%'---------------------------------------------------------------------%> <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>