(FILECREATED "16-Jun-86 21:52:04" ("compiled on " {QV}LISP>MEDIANSMOOTHER.;2) "12-Nov-85 14:59:23" recompiled changes: S3RSSH SPLIT S3R ENDPTS S3 HANN MEDIANSMOOTH in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "16-Jun-86 21:51:32" {QV}LISP>MEDIANSMOOTHER.;2 9092 changes to: (FNS MEDIANSMOOTH ENDPTS HANN MEDOF3 S3 S3R S3RSSH SPLIT) (VARS MEDIANSMOOTHERCOMS) (MACROS MEDOF3) previous date: "16-Jun-86 21:38:02" {QV}LISP>MEDIANSMOOTHER.;1) S3RSSH D1 (I 0 VECTOR) @ @ ž@ ¿@ ”@ ¿@ (33Q HANN 26Q S3R 21Q SPLIT 14Q S3R 7 SPLIT 3 S3R) NIL () SPLIT D1 (P 0 VECTORBASE I 0 VECTOR) |@ @ lÙjhHdÈýÈÑHdÈýÈÑHdÈýÈÑHdÈýÈÑHdÈýÈÑ@ kÙ@ lÙhd JIó’±*MNì’±ðMdLýì™¿NOýì³MLì¢±ØNOì¢±ÏlJñ³^n@@jÑLìn@jÑKìì_¿MOì²LdMì“¿M°Oì²L°LdMýì’¿M‰Oýì‘LO_¿HJdÐÐOÎ¿OMìhðhð_¿OJñ²fn@@jÑOìn@jÑOìì_¿NOì²OdNì“¿N°"Oì²O°OdNýì’¿NŠOýì’OO_¿HJkØdÐÐOÎ¿ONìhðhð_¿L»M¼N½O¾O_¿JOlÙýñŸHJlØdÐÐdÈýÈÑ€M_¿JkÔZ±þÖO(101Q ARRAY-TOTAL-SIZE 73Q ARRAY-TOTAL-SIZE 12Q ARRAY-TOTAL-SIZE 3 ARRAYBASE) NIL () S3R D1 (I 0 Y) @ ³ü@ (11Q ENDPTS 3 S3) NIL () ENDPTS D1 (I 0 VECTOR) þ@ @ hddn@@jÑHdÈýÈÑìn@jÑHdÈýÈÑììZHdÈýÈÑ[HdÈýÈÑ\HKJì²LdKì“¿K°Jì²L°LdKýì’¿K‡Jýì‘L€JÎn@@jÑHIlÙdÐÐdÈýÈÑìn@jÑHIlÙdÐÐdÈýÈÑììZHIkÙdÐÐdÈýÈÑ[HIlÙdÐÐdÈýÈÑ\HIkÙdÐKJì²LdKì“¿K°Jì²L°LdKýì’¿K‡Jýì‘L€JMNÐOÎ¿Oí(7 ARRAY-TOTAL-SIZE 3 ARRAYBASE) NIL () S3 D1 (P 0 VECTORBASE I 0 VECTOR) ‚@ @ lÙkHdÈýÈÑHdÈýÈÑhdJIó³WK¾L»HJkØdÐÐdÈýÈÑ¼KNì²LdKì“¿K°Nì²L°LdKýì’¿K‡Nýì‘L€N]Kìœi_¿HJdÐÐMÎ¿JkÔZ°©O(12Q ARRAY-TOTAL-SIZE 3 ARRAYBASE) NIL () HANN D1 (P 0 VECTORBASE I 0 VECTOR) ]@ @ lÙkhHdÈýÈÑHdÈýÈÑJIó³4L»M¼HJkØdÐÐdÈýÈÑ½HJdÐÐKLdMìììn>€jÑìÎ¿JkÔZ°Ìh(12Q ARRAY-TOTAL-SIZE 3 ARRAYBASE) NIL () MEDIANSMOOTH D1 (P 1 ROUGHVECTOR P 0 N I 3 TWICEFLG I 2 SMOOTHER I 1 SMOOTHEDVECTOR I 0 VECTOR) žBµgb@ @ kð¨o@ ¿@ gð¨o@ ¿Hlñ¨o@ ¿AµHggg@ b° kð˜A gð¨oA ¿@hAAkBC²"Hgg@AI¿IkB¿AIAA(232Q EARRAY-PLUS 215Q EARRAY-DIFFERENCE 204Q MAKE-ARRAY 162Q EARRAY-BLT 153Q ERROR 136Q ARRAY-ELEMENT-TYPE 127Q ARRAY-RANK 120Q MAKE-ARRAY 75Q ERROR 57Q ERROR 42Q ARRAY-ELEMENT-TYPE 35Q ERROR 22Q ARRAY-RANK 13Q ARRAY-TOTAL-SIZE) (201Q FLOAT 176Q :ELEMENT-TYPE 141Q SINGLE-FLOAT 113Q :INITIAL-CONTENTS 110Q FLOAT 105Q :ELEMENT-TYPE 45Q SINGLE-FLOAT 5 S3RSSH) ( 147Q "Invalid smoothedvector" 71Q "Total size must be > 6" 53Q "Array not FLONUM:" 31Q "Array not 1-Dimensional:") (PRETTYCOMPRINT MEDIANSMOOTHERCOMS) (RPAQQ MEDIANSMOOTHERCOMS ((FNS S3RSSH SPLIT S3R ENDPTS S3 HANN MEDIANSMOOTH) (MACROS MEDOF3))) (PUTPROPS MEDOF3 DMACRO ((X1 X2 X3) (if (UFGREATERP X2 X1) then (if (UFGREATERP X3 X2) then X2 elseif (UFGREATERP X3 X1) then X3 else X1) elseif (UFLESSP X3 X2) then X2 elseif (UFLESSP X3 X1) then X3 else X1))) (PUTPROPS MEDIANSMOOTHER COPYRIGHT ("Xerox Corporation" 1986)) NIL