ac1e0799-1781-4551-b5a9-6034ce68c494 3 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

F(x) = x * Bessel(1;x) - 1,01 * Bessel(0;x).

_not defined ... i.e: not scalar wrt 'x'. x q x 1 x Bessel * 1.01 0 x Bessel * - :

x f x 1 x Bessel * 1.01 0 x Bessel * - eval :

TOL 1014 -^:

x f $rootsDichotomy local command line style x0 x1 TOL D a x0 : b x1 : 12 mat xn b a + (2 / : ε TOL : 12 mat 21 line n 0 : xn f abs ε > xn f a f * 0 ≤ b xn : a xn : if xn b a + (2 / : n n 1 + : 31 line while xn 21 line 31 line :$ $r 1.25 1.27 TOL D 3.5 4.5 TOL D 6.5 7.5 TOL D 10 10.5 TOL D 1314 TOL D 1617 TOL D 1920 TOL D 2223 TOL D 2527 TOL D 2830 TOL D 32331013 -^D 111 mat : 1.260635847 4.081788166 7.157169484 10.271949701 13.399139648 16.531761612 19.667234931 22.804388185 25.942613731 29.081565224 32.221030884 111 mat$ $r f vectorize 91015 -^* 41015 -^* - 11014 -^* 11014 -^* 41015 -^* - 41015 -^* - 61016 -^* 31015 -^* 11014 -^* 71015 -^* - 11014 -^* 111 mat$ iVBORw0KGgoAAAANSUhEUgAAABQAAAAZCAYAAAAxFw7TAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABzSURBVEhL7ZRRCsAgDEN7jd3/br2Ga5hkrtTh5j46UHiJqRAGE6VMLFWtu3PVQliM6hbOe0AZPAIL5ndAGTyfFqIsR+Hxp4IDsxxfaMrAoVmuQlze9gJPF14GZrkLW1bhEFAGzyocAsrg+UfhY3ov9juk7GcGz0okDUugAAAAAElFTkSuQmCC $x f x 0.125 33 solve #$