比如，令 x=seqa(1,1,100)，我想在某个procedure内定义一个矩阵M， 使得矩阵的某个元素等于x[j] （这个元素的值随着循环不断改变），其他元素为local 变量或者常数，
即 M= x[j] ~ 20 ~ c (local variable)

程序大体这样：            程序正文
                                    do until j>N;        ( j 为全局变量)
                                      调用 procedure
                                    endo;
                                    end;   (主程序完）

                                    procedure (定义矩阵 M）
                                    local c
                                    M= x[j] ~ 20 ~ c
                                    retp;
                                    endp;

我在前面贴过程序，不知道是大家看晕了，还是对那个问题没兴趣，所以我只能把它简化了再问，如果这个算重复发帖的话，就请版大删了吧

小弟也是不得已而为，两天了，这个问题还不知道怎么debug，真的是很郁闷啊。。。哪位仁兄能帮忙troubleshoot下，小弟感激涕零啊