带有（数字理论）；T:=进程（n:：posint）局部x，y，S；S： =除数（n）；x： =nops（选择（z->类型（z，奇数），S）；y： =nops（选择（z->类型（z，偶数），S）；返回[x，y]结束；RF：=[]：N：=12^6/2：CNT:=12^4：对于w到1，do对于k，从1到N，do N：=2*k；如果k mod CNT=0，则打印（（N-k）/CNT）fi；r： =T（n）[1]；s： =T（n）[2]；t： =r+s；如果类型（s，偶数）、类型（r，奇数）和andmap（z->n mod z=0，[r，s，t]），则RF:=[op（RF），n]；打印（n，r，s，t）；fi；od od；射频；
