(IN-PACKAGE :CCL)
;; this patch was saved with PWGL version 1.0 beta RC 16 (0.9.16-310)
(ASSERT-PATCH-SAVED-VERSION-NOT-NEWER-THAN (QUOTE ((0 9 16) 310)))
(LET ((WIN (MAKE-INSTANCE (QUOTE PWGL-PW-WINDOW) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "value" :CURVAL (LIST (LIST (QUOTE COMMON-LISP-USER::A) (QUOTE COMMON-LISP-USER::B) (QUOTE COMMON-LISP-USER::A)) (LIST (QUOTE COMMON-LISP-USER::C) (QUOTE COMMON-LISP-USER::B) (QUOTE COMMON-LISP-USER::A)) (LIST (QUOTE COMMON-LISP-USER::E) (QUOTE COMMON-LISP-USER::F) (QUOTE COMMON-LISP-USER::G) (QUOTE COMMON-LISP-USER::H) (QUOTE COMMON-LISP-USER::I)) (LIST (QUOTE COMMON-LISP-USER::A) (QUOTE COMMON-LISP-USER::G) (QUOTE COMMON-LISP-USER::H) (QUOTE COMMON-LISP-USER::I)) (LIST (QUOTE COMMON-LISP-USER::E) (QUOTE COMMON-LISP-USER::F) (QUOTE COMMON-LISP-USER::G) (QUOTE COMMON-LISP-USER::H)) (LIST (QUOTE COMMON-LISP-USER::B) (QUOTE COMMON-LISP-USER::A)) (LIST (QUOTE COMMON-LISP-USER::A) (QUOTE COMMON-LISP-USER::B) (QUOTE COMMON-LISP-USER::A))) :VALUE-STRING "((a b a) (c b a) (e f g h i) (a g h i) (e f g h) (b a) (a b a)) ")) :X 0.432190586092831D0 :Y 2.166289365322293D0 :W 1.5119999904632567D0 :H 0.11200000149011613D0 :BOX-STRING "value-box" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE VALUE-BOX) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 1.5119999904632567D0 :OPEN-STATE-H 0.11200000149011613D0) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.3442577 :G 0.7647059 :B 0.6381477 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "classes" :CURVAL 3 :VALUE-STRING "3") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :MINVAL 0 :MAXVAL 1 :MENU-LIST (LIST (LIST "edit-nn" :EDIT-NN) (LIST "edit-norm" :EDIT-NORM)) :MENU-LIST-STRING (LIST "edit-nn" :EDIT-NN))) :X 0.4281058518032588D0 :Y 1.9086971653256346D0 :W 0.52 :H 0.16 :BOX-STRING "class-sym" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2 1) :ORIG-GROUPING-LIST (LIST 2 1) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 13 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:CLASS-SYM)) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.3442577 :G 0.7647059 :B 0.6381477 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "classes" :CURVAL 3 :VALUE-STRING "3") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :MINVAL 0 :MAXVAL 1 :MENU-LIST (LIST (LIST "edit-nn" :EDIT-NN) (LIST "edit-norm" :EDIT-NORM)) :MENU-LIST-STRING (LIST "edit-nn" :EDIT-NN)) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":uncom") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :CURVAL 0.5 :VALUE-STRING "0.5") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :CURVAL 1 :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":ins/del") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :CURVAL 1 :VALUE-STRING "1") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :CURVAL 2 :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":change") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :CURVAL 1 :VALUE-STRING "1")) :X 0.4281058518032588D0 :Y 1.6552910053164505D0 :W 0.52 :H 0.3604 :BOX-STRING "class-sym" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2 1 2 2 2) :ORIG-GROUPING-LIST (LIST 2 1) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 13 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:CLASS-SYM) :CURRENT-EXTENSION-PATTERN-INDEX* 3) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.3442577 :G 0.7647059 :B 0.6381477 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "classes" :CURVAL 3 :VALUE-STRING "3") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :CURVAL 1 :MINVAL 0 :MAXVAL 1 :MENU-LIST (LIST (LIST "edit-nn" :EDIT-NN) (LIST "edit-norm" :EDIT-NORM)) :MENU-LIST-STRING (LIST "edit-norm" :EDIT-NORM))) :X 1.69587110079567D0 :Y 1.9086971653256346D0 :W 0.52 :H 0.16 :BOX-STRING "class-sym" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2 1) :ORIG-GROUPING-LIST (LIST 2 1) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 13 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:CLASS-SYM)) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.3442577 :G 0.7647059 :B 0.6381477 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "classes" :CURVAL 3 :VALUE-STRING "3") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :CURVAL 1 :MINVAL 0 :MAXVAL 1 :MENU-LIST (LIST (LIST "edit-nn" :EDIT-NN) (LIST "edit-norm" :EDIT-NORM)) :MENU-LIST-STRING (LIST "edit-norm" :EDIT-NORM)) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":uncom") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :CURVAL 0.5 :VALUE-STRING "0.5") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :CURVAL 1 :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":ins/del") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :CURVAL 1 :VALUE-STRING "1") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :CURVAL 2 :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":change") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :CURVAL 1 :VALUE-STRING "1")) :X 1.69587110079567D0 :Y 1.664683219103332D0 :W 0.52 :H 0.3604 :BOX-STRING "class-sym" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2 1 2 2 2) :ORIG-GROUPING-LIST (LIST 2 1) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 13 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:CLASS-SYM) :CURRENT-EXTENSION-PATTERN-INDEX* 3) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.3442577 :G 0.7647059 :B 0.6381477 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "classes" :CURVAL 3 :VALUE-STRING "3") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :MINVAL 0 :MAXVAL 1 :MENU-LIST (LIST (LIST "edit-nn" :EDIT-NN) (LIST "edit-norm" :EDIT-NORM)) :MENU-LIST-STRING (LIST "edit-nn" :EDIT-NN)) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":uncom") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :VALUE-STRING "0") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :CURVAL 1 :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":ins/del") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :CURVAL 1 :VALUE-STRING "1") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :CURVAL 2 :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":change") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :CURVAL 1 :VALUE-STRING "1")) :X 0.4281058518032588D0 :Y 1.1983868799248283D0 :W 0.52 :H 0.3604 :BOX-STRING "class-sym" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2 1 2 2 2) :ORIG-GROUPING-LIST (LIST 2 1) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 13 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:CLASS-SYM) :CURRENT-EXTENSION-PATTERN-INDEX* 3) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.3442577 :G 0.7647059 :B 0.6381477 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "classes" :CURVAL 3 :VALUE-STRING "3") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :CURVAL 1 :MINVAL 0 :MAXVAL 1 :MENU-LIST (LIST (LIST "edit-nn" :EDIT-NN) (LIST "edit-norm" :EDIT-NORM)) :MENU-LIST-STRING (LIST "edit-norm" :EDIT-NORM)) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":uncom") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :VALUE-STRING "0") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :CURVAL 1 :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":ins/del") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :CURVAL 1 :VALUE-STRING "1") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "keyarg" :CURVAL 2 :MINVAL 0 :MAXVAL 4 :MENU-LIST (LIST ":uncom" ":ins/del" ":change" ":excluded" ":mst") :MENU-LIST-STRING ":change") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "&key" :CURVAL 1 :VALUE-STRING "1")) :X 1.69587110079567D0 :Y 1.1983868799248283D0 :W 0.52 :H 0.3604 :BOX-STRING "class-sym" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2 1 2 2 2) :ORIG-GROUPING-LIST (LIST 2 1) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 13 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:CLASS-SYM) :CURRENT-EXTENSION-PATTERN-INDEX* 3)) :X 5 :Y 5 :SCALEFX 0.6388270254874672D0 :SCALEFY 0.6388270254874672D0 :TRANSLX -0.23399999961256923D0 :TRANSLY -0.6908400040274857D0 :CONNECTIONS (LIST (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 6 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 5 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 4 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 2 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 1 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2))) :WINDOW-DOCUMENTATION "CLASS-SYM

Classification formes symboliques constituées de symboles arbitraires.
La classification s'effectue par partitionnement de l'arbre de recouvrement minimal fondé sur les dissemblances entre chacune des formes symboliques présentées. Par défaut, les dissemblances sont calculées selon la distance d'édition.

Argument

- mode:
<edit-nn> : distance d'édition absolue (non normalisée) ;
<edit-norm> : distance d'édition relative, rapportée à la longueur de la forme symbolique le plus court .

Arguments optionnels

Les différents coûts de la distance d'édition <:inex>, <:insert> et <:change> peuvent être ajustés (cf. infra, Evaluation/2.1.1_edit-dist.pwgl)

Arguments optionnels <excluded> et <mst>, cf. infra, Differentiation/1.4.2_class-sym_2.pwgl)

" :X 3 :Y 9 :WIDTH 730 :HEIGHT 530))) (WINDOW-SELECT WIN) WIN)