<%@ Language=VBScript %><% option explicit %> <% Response.Buffer = FALSE %> <% Response.ContentType = "image/svg+xml" %> <% '--- learning.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 1000 vertical ' the viewBox has to be larger, to allow for left (and right?) parameter stuff ' the graph should have 20 by 10 internal dividers (grid pattern) %> <%'------------------- title --------------------------------%> 2.3.3.D1: adapting an action sequence based on previous experience <%'----------------- row headers ------------------------------------%> Perception Action Feelings <%'----------- note perception and feeling ---------------------------%> P A F <%'------------------- 6th learning line with arrow ----------------------%> <%'-------------------- present: recording --------------------------------%> future 7 past present: recording <%'--------------- recording line with arrow ---------------------------%> <%'-------------------- learning: 1st step --------------------------------%> 1st: note perceived P <%'-------------------- learning: 2nd step --------------------------------%> 2nd: note remembered P <%'-------------------- learning: 3rd step --------------------------------%> 3rd step: find remembered P (outcome) <%'------------------- 3rd learning line with arrows -----------------------%> <%'-------------------- learning: 4th step --------------------------------%> 4th step: find perceived P (start) <%'------------------- 4th learning line with arrows -----------------------%> <%'-------------------- learning: 5th step --------------------------------%> 5th step: identify the action sequence A, from start to finish A <%'------------------- 5th learning lines with arrows ----------------------%> <%'-------------------- learning: 6th step --------------------------------%> 6th step: replay (copy) the action sequence A <%'------------------- 6th learning lines with arrows ----------------------%> <%'---------------------------------------------------------------------%> <% '' reset the timeout ' Server.ScriptTimeout = timeout Response.End '-----------------------------------------------------------%>