±Û¾´ÀÌ: mengpa (½ÃƼÇåÅÍ)
³¯ Â¥: Tue Mar 24 01:58:53 1998
Á¦ ¸ñ: Re^2: À¥ÆäÀÌÁö¿¡¼... Áú¹®ÀÔ´Ï´Ù.
¿¹... ´äÀå °¨»çÇÕ´Ï´Ù.
select¿¡ ÀÇÇØ¼ listÀÇ ¸â¹öµéÀ» ÃßÃâÇϴ±º¿ä.
partition(n)ÀÇ °á°ú°¡ ¸®½ºÆ®ÀÇ ¸®½ºÆ®¶ó¼ Âø°¢À» Çß¾ú½À´Ï´Ù.
±× ¾ÕÀÇ ³»¿ëµéµµ »ç½Ç Àß ¸ð¸£±â´Â Çѵ¥... Â÷±ÙÂ÷±Ù Áú¹®À» µå¸®°Ú½À´Ï´Ù.
(1) ¸ÕÀú, `qfactor` procedureÀÇ ³»¿ë°ú, ±× °á°úÀÇ Àǹ̸¦ ¸ð¸£°Ú½À´Ï´Ù.
> sort(add(numbpart(n)*q^n,n=0..100),q);
> qfactor(",100);
ÀÇ °á°ú´Â ...
1,[1, -1],[2, -1],[3, -1],[4, -1], ..., [100, -1] ÀÔ´Ï´Ù¸¸...
¿ø·¡ÀÇ Generating FunctionÀ¸·ÎºÎÅÍ ¾î¶² Á¤º¸¸¦ ¾òÀ¸·Á´Â °ÍÀÎÁö ±Ã±ÝÇÕ´Ï´Ù.
(qfactorÀÇ source code´Â ¿½ÉÈ÷ ÇØ¼®Çغ¸°í ÀÖ´Â ÁßÀÔ´Ï´Ù. ^_^;)
(2) ±× ´ÙÀ½¿¡ ¼Ò°³ÇϽЏí·É,
# ´ÙÀ½ »ý¼ºÇÔ¼ö°¡ partµé »çÀÌÀÇ Â÷°¡ 2 ÀÌ»óÀÎ ÀÚ¿¬¼ö ºÐÇÒÀÇ °³¼ö¸¦ ¼Á´Ï´Ù.
> taylor(add(q^(i^2)/aqn(q,q,i),i=0..100),q,100);
> qfactor(",100);
¿¡¼ 'taylor' ÇÔ¼ö¸¦ ¾´ ÀÌÀ¯¸¦ ¸ð¸£°Ú½À´Ï´Ù.
ù° ÁÙ (`taylor`°¡ ÀÖ´Â)À» ½ÇÇàÇÑ °á°ú¸¦ ºÁ¼ µ¹¾Æ°¡´Â °Ç ¾Ë°Ú´Âµ¥,
±× ¹Ø¿¡¼ ½ÇÇàÇÑ `qfactor`ÀÇ °á°ú´Â ¾î¶»°Ô ÇØ¼®ÇØ¾ß ÇÏ´ÂÁö¿ä...
(3) À̰Ç, ±×³É ±Ã±ÝÇØ¼Àε¥,
±³¼ö´Ô²²¼´Â `aqn` procedure¸¦ ½á¼ q-analog·Î generating functionÀ»
¸¸µå¼Ì´Âµ¥(¸Â´Â ¾ê±ä°¡¿ä?) ¾ÆÁ÷ °¨ÀÌ Á¦´ë·Î ¿ÀÁö ¾Ê´Â±º¿ä.
ÀϹÝÀûÀÎ(½±°í ¿ø½ÃÀûÀÎ) generating functionÀ» Á¤ÀÇÇÏ°í ½Í¾î¼
help¸¦ µÚÁ³´Âµ¥, rgf_... ½ÄÀÇ ÇÔ¼öµéÀÌ genfunc package¿¡ ÀÖ´õ±º¿ä.
À̵éÀÇ »ç¿ë¹ýÀ» ¼Ò°³ÇØ ÁÖ½Ç ¼ö ÀÖÀ¸½Ç·±Áö¿ä...
ÀоîºÁµµ ³»¿ëÀÌ ¿µ... ¾Èµé¾î¿À°Åµç¿ä. `rational`ÀÌ ¿Ö ºÙ¾ú´ÂÁöµµ...
±×·³....
-- ±ô