[SAS EM] 一个二分法的算法，程序没有报错，但是并没有运行出结果 [推广有奖]

0关注
0粉丝

初中生

66%

还不是VIP/贵宾

威望: 0 级
论坛币: 4 个
通用积分: 0
学术水平: 0 点
热心指数: 0 点
信用等级: 0 点
经验: 60 点
帖子: 1
精华: 0
在线时间: 37 小时
注册时间: 2018-9-20
最后登录: 2024-11-1

楼主

渡—— 发表于 2018-9-20 16:43:29 |AI写论文

是否 +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 回帖

关键词：二分法

沙发

sas9.4 发表于 2018-9-21 13:34:51

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

藤椅

linhaoran 发表于 2018-11-23 21:47:07

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

另外，都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);