From owner-FreeBSD-users-jp@jp.FreeBSD.org Fri Mar 22 02:17:50 2002
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6+3.4W/8.11.3) id g2LHHo810970;
	Fri, 22 Mar 2002 02:17:50 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from ns.rim.or.jp (ns.rim.or.jp [202.247.128.2])
	by castle.jp.FreeBSD.org (8.11.6+3.4W/8.11.3) with ESMTP/inet id g2LHHnc10965
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Fri, 22 Mar 2002 02:17:50 +0900 (JST)
	(envelope-from shimaoka@tierra.rim.or.jp)
Received: from rayearth.rim.or.jp (uucp@rayearth.rim.or.jp [202.247.130.242])
	by ns.rim.or.jp (8.9.3/3.6W-RIMNET-98-06-09) with ESMTP id CAA20234
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Fri, 22 Mar 2002 02:17:49 +0900 (JST)
Received: (from uucp@localhost) by rayearth.rim.or.jp (8.8.8/3.5Wpl2-uucp1/RIMNET) with UUCP
	id CAA02410 for FreeBSD-users-jp@jp.FreeBSD.org; Fri, 22 Mar 2002 02:17:49 +0900 (JST)
Received: from localhost (alice.tierra.rim.or.jp [192.168.0.10])
	by tierra.rim.or.jp (8.9.3/3.7W) with ESMTP id CAA25146;
	Fri, 22 Mar 2002 02:03:46 +0900 (JST)
Date: Fri, 22 Mar 2002 02:03:41 +0900 (JST)
Message-Id: <20020322.020341.123928337.shimaoka@tierra.rim.or.jp>
To: FreeBSD-users-jp@jp.FreeBSD.org
Cc: shimaoka@tierra.rim.or.jp
From: Hiroaki Shimaoka <shimaoka@tierra.rim.or.jp>
In-Reply-To: <20020322.005632.74754009.yoshiaki@kt.rim.or.jp>
References: <20020321.143410.41626400.yoshiaki@kt.rim.or.jp>
	<20020321.194559.35655603.shimaoka@tierra.rim.or.jp>
	<20020322.005632.74754009.yoshiaki@kt.rim.or.jp>
X-URL: http://www.st.rim.or.jp/~shimaoka/
X-URL: http://www.st.rim.or.jp/~shimaoka/tierra/
X-TE-INFO: If you have a question, please contact us;
 shimaoka@tierra.rim.or.jp
X-CEL: 090-8505-5228
X-CELMAIL: 09085055228@jp-t.ne.jp
X-ADDRESS: 12-5, Higashi-Koujiya 1-Chome, Ota-ku, Tokyo, 144-0033 JAPAN
X-Pgp-Publickey: http://www.st.rim.or.jp/~shimaoka/pgp-public-key.html
X-Pgp-Fingerprint: 2F2D 1CFA 5383 926C 27A1  6763 D641 BD8B A697 8BFD
X-Mailer: Mew version 3.0.50 on Emacs 20.7 / Mule 4.1
 =?iso-2022-jp?B?KBskQjAqGyhCKQ==?=
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+020312
X-Sequence: FreeBSD-users-jp 67735
Subject: [FreeBSD-users-jp 67735] Re: How about maxima ?
Errors-To: owner-FreeBSD-users-jp@jp.FreeBSD.org
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: shimaoka@tierra.rim.or.jp

$BEh2,!w%F%#%(%i$G$9!#$*@$OC$K$J$C$F$*$j$^$9!#(B

$BA0$N%a%b$,8+$D$+$C$?$N$G!$;29M$^$G$K!#%a%b$r!$$[$\$=$N$^$^:\$;$F(B
$B$$$k$N$G13$+$bCN$l$^$;$s!#(B

From: Yoshiaki Uchikawa <yoshiaki@kt.rim.or.jp>
Subject: [FreeBSD-users-jp 67733] Re: How about maxima ?
Date: Fri, 22 Mar 2002 00:56:32 +0900 (JST)
Message-ID: <20020322.005632.74754009.yoshiaki@kt.rim.or.jp>

yoshiaki> $B!t$"$H$O8eDx(B...

# CLISP 2.95.2 + MAXIMA 5.6 $B$NAH9g$o$;$G$9!#(B
# $B4X?tL>$bBP:v$b(B *$B$=$N>l$7$N$.(B* $B$N$?$a%F%-%H%&$G$9!#(B

`trmode.lisp' $B$KDj5A$5$l$F$$$k(B CHEKVALUE $B4X?t$NDj5A$G!$(BMEMQ $B$N;E(B
$BMM$,0[$J$k;v$K$h$kIT6q9g$,$"$j$^$7$?!#(B

    (DEFUN BUF-FIX-01 (U) (MEMQ U '(T NIL)))

$B$rDj5A$7$?>e$G!$(B

    ($BOOLEAN . (LAMBDA (U)
                  (MEMQ U '(T NIL)))))))

$B$r(B

    ($BOOLEAN . BUG-FIX-01))))

$B$KJQ99$7$^$7$?!#(B

$B<!$K!$(Bplot3d $B5!G=$r;H$C$?>l9g$K!$!V(B`POLYGON-PTS' $B4X?t$,L$Dj5A!W(B
$B$J%(%i!<$,=P$k>l9g$K$O!$(B

`plot.lisp' $B$G9=B$BN(B polygon $B$rDj5A$7$F$$$kItJ,$r!$(Beval-when $B$G(B
$B3g$j$^$9!#(B

    (eval-when (eval load compile)
      (defstruct (polygon (:type list)
                          (:constructor make-polygon (pts edges)) )
        (dummy '(polygon simp))
        pts edges)
    )

$B$H!$$3$s$J46$8!#(B

$B:G8e$K!$(Btodd_coxeter $B$NG[Ns$K4X$9$kIT6q9g$N=$@5$G$9!#$J$<$+!$(B
`todd_coxeter.lisp' $B$K=q$$$F$"$k(B Example $B$rF0$+$9$H!$!VG[Ns$N%G!<(B
$B%?7?$,0[$J$k!W%(%i!<$,=P$^$7$?!#(B

multiply-table $B$N3F=i4|CM$,(B NIL $B$K@.$C$F$$$k$N$,860x$i$7$/!$(B
$B$6$C$H8+$?8B$j(B INTEGER $B$J$iF0$-$=$&$@$C$?$N$G!$G[Ns$r@8@.$7$F$$(B
$B$kItJ,$K!V(B:initial-element 0$B!W$rDI2C$7$^$7$?!#(B

    (sloop for i from (f- nvars)  to nvars
      when (not (zerop i))
      do (setf (table i) (make-array 10 :adjustable t :element-type 'coset
                                        :initial-element 0)))

$B$3$s$J46$8$G$9!#(B

$B$H$j$"$($:!$$3$l$GIaDL$K;H$($F$$$k$_$?$$$G$9!#$^$?!$IUB0$N%F%9%H(B
$B$b!V(BNo Error$B!W$GDL$C$F$$$^$9!#(B

# $B8e$O!$(Baffine $B%Q%C%1!<%8$,F0$1$P!&!&!&$H;W$&$N$G$9$,!$$3$A$i$O(B
# $B%F%-%H%&$G$OF0$-$=$&$b$"$j$^$;$s!#;~4V$,$"$k;~$K9x$r?x$($F:n6H(B
# $B$7$J$$$H!#(B

$B:G8e$K!$(BCMUCL $B$G$b!$$[$\F1$8=$@5$GF0$$$?$h$&$G$9!#:#$O(B CLISP $BHG(B
$B$7$+;H$C$F$$$J$$$N$G3NG'$G$-$^$;$s$,!$%F%9%H$G$O$$$/$D$+$N%(%i!<(B
$B$,H/@8$7$?!#$H5-O?$7$F$$$^$7$?!#(B

----$B$H$3$m$G!"8;;aJ*8l$O$*9%$-$G$9$+!)(B-----------------------------
$BEh2,(B $B9(L@(B  (Shimaoka, Hiroaki)
shimaoka@tierra.rim.or.jp / shimaoka@st.rim.or.jp
-------------------------- $B;dC#$O4X?4$r;}$C$F$$$k$N$G$7$g$&$+(B? ----
