🚀 go-pugleaf

In article <1992Sep7.051343.19632@creo-rd.co.jp> suzuki@creo-rd.co.jp.UUCP (Toshitaka Suzuki) writes:
># $BC/$+!"!V@5O;3Q7A$N3J;RE@(J(?)$B>e$K=PMh$k@5O;3Q7A$NLL@Q!W$N<0$r7W;;$7$F(J
># $B$/$l$^$;$s!)!JC1$J$k<qL#$G$9!K(J

$B1[6M!wBg:e650iBg$G$9!#!J<qL#$NM'!K(J

$B!VEz!W(J
$B$(!<$C$H!"@5;03Q7A3J;R$N>l9g$HF1$8$G$O$J$$$G$7$g$&$+!)(J

$B!VM}M3!W(J
$B@5;03Q7A3J;R$r$+$$$F!"@5O;3Q7A$NCf?4$KEv$kItJ,$r(J
$B=|$$$F$$$/$H!"@5O;3Q7A3J;R$,$G$-$^$9!#3J;R>e$NE,Ev$JE@$r(J
$B86E@$K$H$C$F!"B>$NG$0U$N3J;RE@$X$N%Y%/%H%k$r0z$/$H!"$=$ND9$5$N(J
$BFs>h$NHf$,LL@Q$NHf$K$J$j$^$9$,!"$3$N$H$-@hDx<h$j=|$+$l$?(J
$B@5O;3Q7A$NCf?4$KAjEv$9$kE@$H!J86E@$+$i!KEy5wN%$N3J;R>e$NE@$,!"(J
$BI,$:B8:_$7$^$9!#$D$^$j@5O;3Q7A$NCf?4$r=|$+$J$$>l9g$HF1$87k2L(J
$B!a@5;03Q7A3J;R$N7k2L!"$K$J$k$N$G$O!)(J

$B!V<XB-!W(J
$BA02s$HF1MMJ?LL>e$N%Y%/%H%k$rJ#AG?t$GBeMQ$7$F$_$^$9!#(J($B5u?tC10L$O(J I $B$G$9(J)

In[1]:= pi = N[Pi]          Out[1]:= 3.14159
In[2]:= s3 = N[Sqrt[3.0]]   Out[2]:= 1.73205
In[3]:= Take[Union[Flatten[Table[Round[Abs[$B!!!!(J...$B%j%9%H$r:n$k4X?t$J$I(J
         ( Cos[pi/3*k-pi/6]+ I Sin[pi/3*k-pi/6])$B!!!!(J ...(A)
        -( s3 i + s3 j (1 + s3 I)/2                  ...(B)
        -( Cos[pi/3*l-pi/6]+ I Sin[pi/3*l-pi/6]))    ...(C) 
         ]^2],{i,0,4},{j,0,4},{k,1,6},{l,1,6}]]],20] ...$B3J;RE@$NH?I|!!(J
Out[3]:= {0, 1, 3, 4, 7, 9, 12, 13, 16, 19, 21, 
          25, 27, 28, 31, 36, 37, 39, 43, 48}

$B0lJU$,#1$N@5O;3Q7A3J;R$NCf?4$O!"0lJU$,(J Sqrt[3]$B$N@5;03Q7A3J;R$K$J$j$^$9!#(J
$B@5O;3Q7A3J;RE@$O$3$N@5;03Q7A3J;RE@$+$i#6J}8~$K?-$S$?%Y%/%H%k$r2C$($FI=(J
$B$;$^$9!#(J(A)$B$O@5;03Q7A3J;R86E@$+$i$_$?@5O;3Q7A3J;RE@!"(J(B)$B$OJL$N@5;03Q7A(J
$B3J;RE@!"(J(C)$B$O(J(B)$B$_$?@5O;3Q7A3J;RE@$r$=$l$>$lI=$7$^$9!#$3$NFsE@$r7k$V%Y(J
$B%/%H%k$ND9$5$NFs>h!aJ#AG?t$N@dBPCM$NFs>h$N%j%9%H$rJB$Y$F$_$^$7$?!#(J

K. Koshigiri
koshi@cc.osaka-kyoiku.ac.jp