adamssubroutine编程函数