使用MATLAB编程解决一个数论问题：从键盘上输入任意正整数，若是偶数，则除以2，否则乘3加1，重复此过程，直到整数变为1. 要求建立两个文件分别用来作为主程序和子函数.

在MATLAB中，你可以通过创建一个主程序和一个子函数来解决这个问题。首先，我们需要创建一个名为`main.m`的主程序文件，用户将在该程序中输入数字并启动循环，然后调用子函数。另一个名为`is_even_or_odd.m`的子函数将负责判断奇偶性并执行相应的操作。

**主程序（main.m）：**

function start_loop()
    % 提示用户输入一个正整数
    num = input('请输入一个正整数: ');
    
    % 开始循环
    while num ~= 1
        [num, result] = is_even_or_odd(num);
        disp(['当前数值: ', num]);
    end

    disp('已达到1，结束循环');
end

% 主程序入口
start_loop();

**子函数（is_even_or_odd.m）：**

function [new_num, result] = is_even_or_odd(current_num)
    if rem(current_num, 2) == 0 % 判断是否是偶数
        new_num = current_num / 2;
        result = 'even';
    else
        new_num = current_num * 3 + 1;
        result = 'odd';
    end
end

在`main.m`中，我们首先调用`start_loop`函数，它会一直运行直到`is_even_or_odd`返回`1`为止。`is_even_or_odd`函数接收一个整数，并基于它的奇偶性返回新的值和结果描述。