|
|
<#> Square Root Calculator (Newton-Raphson Method)
<cmds>
<form_item>("FM1","This macro calculates square roots:","TEXT","0","")
<form_item>("FM1","","LINE","0","")
<form_item>("FM1","Enter a number:","EDIT","0","vOper1")
<form_item>("FM1","","LINE","0","")
<form_item>("FM1","Continue ?","CHECK","YES","vAgain")
<label>("lbl_Again")
<form_show>("FM1","Square Root Finder","calc.exe",0)
<if_str>("_vCanceled==1") <exitmacro> <endif>
<varset>("vNum=1","")
<if_num>("vOper1>0")
<begloop>(30)
<var_oper>(vNum,"(%vNum%+%vOper1%/%vNum%)/2",CALC_EXPRESSION,"4","", "0")
<endloop>
<endif>
<if_num>("vOper1==0")
<varset>("vNum=0","")
<endif>
<if_num>("vOper1<0")
<varset>("vNum=Please enter a positive number.","")
<endif>
<msg>(-100,-100,"%vNum%","The result is:",1,,0)
<if_str>("vAgain==YES")
<goto>("lbl_Again")
<endif> |
IP Logged
|
|
Malcolm D. Murray |