gauss问题求助 [推广有奖]

11楼

claysu 发表于 2008-3-25 21:37:00

楼主的问题我解决了，其原因是cmlutil.src中有一个小错误

程序的最后一段（如下的***处少了 FCT:,只要把"***"换成"FCT:"问题就解决了）

retp(grdd);

     ***
     pop t1;
    if LLoutput == 2;
        locate 2,1;
        printdos " Function";
    endif;

    z = f(t1,lfct,Lcmlgdmd,Lcmlgdprc,Lcmlhsprc, LLoutput,Lcmllag,dataset,
        vindx,row,Lcmlnobs,numRows,Lcmlgrdh,Lcmlusrgd,Lcmlusrhs,wgts,
        _cml_HessPD);

    if LLoutput == 2;
        scroll w;
    endif;
    if scalmiss(z) or z == __INFp or z == __INFn or z == __INDEFn or z ==
        __INDEFp;
        retp(error(3));
    endif;
    return(z);
endp;