一个二分法的算法，程序没有报错，但是并没有运行出结果

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我想编写一个二分法的程序，写出来之后并没有显示error的错误提示，我也没有发现我程序中的错误，希望有人指教我一下，谢谢各位！
以下是我的程序：

%MACRO ESEARCH(                                                                                                                        
      FRONTNUM=,                                                                                                                        
      TARGETNUM=,                                                                                                                       
      ENDNUM=,                                                                                                                          
      ERRNUM=,                                                                                                                          
      );                                                                                                                                
%LOCAL I;                                                                                                                              
%LET I=1;                                                                                                                              
%LET MIDNUM=%SYSEVALF((&FRONTNUM+&ENDNUM)/2);                                                                                          
%DO %WHILE(                                                                                                                             
   %SYSEVALF(%SYSFUNC(ABS(&MIDNUM-&TARGETNUM))>&ERRNUM));                                                                              
   %IF %SYSEVALF(%SYSEVALF(&MIDNUM-&TARGET)>0) %THEN %DO;                                                                              
       %LET ENDNUM=&MIDNUM;                                                                                                            
       %LET MIDNUM=%SYSEVALF((&FRONTNUM+&ENDNUM)/2);                                                                                    
   %END;                                                                                                                                
   %ELSE %DO;                                                                                                                           
       %LET FRONNUM=&MIDNUM;                                                                                                            
       %LET MIDNUM=%SYSEVALF((&FRONTNUM+&ENDNUM)/2);                                                                                    
   %END;                                                                                                                                
   %PUT %STR(第&I.次迭代：&MIDNUM.);                                                                                                   
   %LET I=%EVAL(&I.+1);                                                                                                                 
%END;                                                                                                                                   

%MEND;                                                                                                                                 
%ESEARCH(                                                                                                                              
      FRONTNUM=1,                                                                                                                       
      TARGETNUM=704,                                                                                                                    
      ENDNUM=1024,                                                                                                                     
      ERRNUM=0.5,                                                                                                                       
      )；                                                                                                                              

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：二分法

我觉得应该用递归，你这样循环可不行

别的不说，就你这格式和错别字的问题，就够人看的。

另外，都put(MIDNUM)了，为什么不把其他变量都put出来。


%MACRO ESEARCH(FRONTNUM=, TARGETNUM=, ENDNUM=, ERRNUM= );
        %LOCAL I;
        %LET I=1;
        %LET MIDNUM=%SYSEVALF((&FRONTNUM+&ENDNUM)/2);
%PUT %STR(第&I.次迭代：&MIDNUM., &FRONTNUM, &ENDNUM);
        %DO %WHILE(%SYSEVALF(%SYSFUNC(ABS(%SYSEVALF(&MIDNUM-&TARGETNUM)))>&ERRNUM));

                %IF %SYSEVALF(%SYSEVALF(&MIDNUM-&TARGETNUM)>0) %THEN
                        %DO;
                                %LET ENDNUM=&MIDNUM;
                                %LET MIDNUM=%SYSEVALF((&FRONTNUM+&ENDNUM)/2);
                        %END;
                %ELSE
                        %DO;
                                %LET FRONTNUM=&MIDNUM;
                                %LET MIDNUM=%SYSEVALF((&FRONTNUM+&ENDNUM)/2);
                        %END;
                %PUT %STR(第&I.次迭代：&MIDNUM., &FRONTNUM, &ENDNUM);
                %LET I=%EVAL(&I.+1);
        %END;
%MEND;

%ESEARCH(FRONTNUM=1, TARGETNUM=704, ENDNUM=1024, ERRNUM=0.5);