Lines Matching refs:direction
53 ;;; move in a net direction can produce gross credit assignment. for
493 ;; directions and then calling update-score-in-direction.
503 (lm-update-score-in-direction imin imax
505 (lm-update-score-in-direction jmin jmax
507 (lm-update-score-in-direction (max imin jmin) (min imax jmax)
509 (lm-update-score-in-direction (max (- 1 y) -4
515 (defun lm-update-score-in-direction (left right square dx dy dval)
518 along the DX, DY direction, considering that DVAL has been added on SQUARE."
521 ;; DX,DY direction.
1013 "Cross every square between SQUARE1 and SQUARE2 in the DX, DY direction."
1146 (defun lm-print-distance-int (direction)
1148 (insert (format "%S %S " direction (get direction 'distance))))
1156 ;;(setq direction 'lm-n)
1158 (defun lm-nslify-wts-int (direction)
1159 (mapcar (lambda (target-direction)
1160 (get direction target-direction))
1171 (defun lm-print-wts-int (direction)
1172 (mapc (lambda (target-direction)
1174 direction
1175 target-direction
1176 (get direction target-direction))))
1194 (defun lm-print-y,s,noise-int (direction)
1196 (symbol-name direction)
1197 (get direction 'y_t)
1198 (get direction 's)
1199 (get direction 'noise)
1209 (defun lm-print-smell-int (direction)
1211 (symbol-name direction)
1212 (get direction 'smell))))
1222 (defun lm-print-w0-int (direction)
1224 (symbol-name direction)
1225 (get direction 'w0))))
1239 (mapc (lambda (direction)
1240 (if (> (get direction 'smell) 0)
1241 (insert (format "%S " direction))))
1246 (mapc (lambda (direction)
1247 (if (> (get direction 'y_t) 0)
1248 (insert (format "%S " direction))))
1299 ;;;_ : lm-randomize-weights-for (direction)
1300 (defun lm-randomize-weights-for (direction)
1301 (mapc (lambda (target-direction)
1302 (put direction
1303 target-direction
1310 ;;;_ : lm-fix-weights-for (direction)
1311 (defun lm-fix-weights-for (direction)
1312 (mapc (lambda (target-direction)
1313 (put direction
1314 target-direction
1364 ;;;_ - calc-distance-of-robot-from (direction)
1365 (defun calc-distance-of-robot-from (direction)
1366 (put direction 'distance
1367 (distance (get direction 'x)
1369 (get direction 'y)
1388 (defun lm-y (direction)
1389 (let ((noise (put direction 'noise (lm-noise))))
1390 (put direction 'y_t
1391 (if (> (get direction 's) 0.0)
1395 (defun lm-update-normal-weights (direction)
1396 (mapc (lambda (target-direction)
1397 (put direction target-direction
1399 (get direction target-direction)
1402 (get target-direction 'y_t)
1403 (get direction 'smell)))))
1406 (defun lm-update-naught-weights (direction)
1407 (mapc (lambda (target-direction)
1408 (put direction 'w0
1411 (get direction 'w0)
1414 (get direction 'y_t))))))
1421 (mapc (lambda (direction)
1422 (put direction 'smell (calc-smell-internal direction)))
1433 (mapc (lambda (direction)
1434 (put direction 'y_t-1 (get direction 'y_t)))
1440 (defun lm-confidence-for (target-direction)
1442 (get target-direction 'w0)
1443 (mapcar (lambda (direction)
1445 (get direction target-direction)
1446 (get direction 'smell)))
1451 (mapc (lambda (direction)
1452 (put direction 's (lm-confidence-for direction)))
1483 (lambda (direction) (put direction 'y_t 0))
1485 (dolist (direction (nth (random 8) lm-8-directions))
1486 (put direction 'y_t 1.0))
1579 (mapc (lambda (direction)
1580 (put direction 'y_t 0.0))
1586 (mapc (lambda (direction)
1587 (put direction 'w0 lm-initial-w0))
1616 (mapc (lambda (direction)
1617 (put direction 'r (* lm-cx 1.1)))
1619 (mapc (lambda (direction)
1620 (put direction 'r (* lm-cy 1.1)))