---

±Û¾´ÀÌ: dskim (dskim)
³¯ Â¥: Wed Mar 11 13:11:34 1998
Á¦ ¸ñ: aqn

#aqn(a,q,n):(a;q)_n
aqn:=proc() local i, x, n;
if nargs=2 then
if type(args[2],integer) then x:='q'; n:=args[2]
else RETURN('procname(args)') fi;
elif nargs=3 then
if type(args[3],integer) then x:=args[2]; n:=args[3]
else RETURN('procname(args)') fi;
else ERROR(`usage: aqn(a,n) or aqn(a,q,n)`)
fi;
product(1-args[1]*x**i,i=0..n-1)
end:

¹øÀ¸·Î    

---