编写求解数论问题的一个函数文件：输入任一整数 若为偶数 则除以2 否则乘以3加1 重复此过程直至整
已帮助 人
回答
共1条回复-
function [ c] = collatz( n ) %UNTITLED 此处显示有关此函数的摘要 % 取任意整数,若是偶数,则除以2,否则乘3加1,重复此过程,直到整数变为1 c=n; while n>1 if rem(n,2)==0 n=n/2;%若是偶数,则除以2 else n=n*3+1;%否则乘3加1 end c=[c n];%记录中间数据 end