Contents • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • [ ] with Ada. Text_Io; use Ada. Text_Io; procedure Roots_Of_Function is package Real_Io is new Ada. Translation of: print_roots = (f, begin, end, step ) -># Print approximate roots of f between x=begin and x=end, # using sign changes as an indicator that a root has been # encountered. X = begin y = f (x ) last_y = y cross_x_axis = ->(last_y 0 ) or (last_y >0 and y # Smaller steps produce more accurate/precise results in general, # but for many functions we'll never get exact roots, either due # to imperfect binary representation or irrational roots. Step = 1 / 256 f1 = (x ) ->x *x *x - 3 *x *x + 2 *x print_roots f1, - 1, 5, step f2 = (x ) ->x *x - 4 *x + 3 print_roots f2, - 1, 5, step f3 = (x ) ->x - 1. Drivers Ed Manual Nh Answers To Impossible Quiz there. 5 print_roots f3, 0, 4, step f4 = (x ) ->x *x - 2 print_roots f4, - 2, 2, step output >coffee roots.coffee ----- Root found at 0 Root found at 1 Root found at 2 ----- Root found at 1 Root found at 3 ----- Root found at 1.5 ----- Root found near -1.4140625 Root found near 1.41796875 [ ]. Output: Root found at 8.6218e-16 Root found at 1.000016 Root found at 1.998914 [ ]% Implemented by Arjun Sunel - module (roots ).

- export ( [main / 0 ] ). Main ( ) ->F = fun ( X ) ->X * X * X - 3 * X * X + 2 * X end, Step = 0.001,% Using smaller steps will provide more accurate results Start = - 1, Stop = 3, Sign = F ( Start ) >0, X = Start, while ( X, Step, Start, Stop, Sign, F ). While ( X, Step, Start, Stop, Sign, F ) ->Value = F ( X ), if Value == 0 ->% We hit a root: format ( 'Root found at ~p~n', [ X ] ), while ( X + Step, Step, Start, Stop, Value >0, F ); ( Value% We passed a root: format ( 'Root found near ~p~n', [ X ] ), while ( X + Step, Step, Start, Stop, Value >0, F ); X >Stop ->: format ( ' ); true ->while ( X + Step, Step, Start, Stop, Value >0, F ) end. Output: Root found near 8.6218e-16 Root found near 1.000016 Root found near 2.998915 ok [ ] PROGRAM ROOTS_FUNCTION!VAR E,X,STP,VALUE,S%,I%,LIMIT%,X1,X2,D FUNCTION F(X) F=X*X*X-3*X*X+2*X END FUNCTION BEGIN X=-1 STP=1.0E-6 E=1.0E-9 S%=(F(X)>0) PRINT('VERSION 1: SIMPLY STEPPING X') WHILE XLIMIT% THEN PRINT('ERROR: FUNCTION NOT CONVERGING') EXIT END IF D=(X2-X1)/(F(X2)-F(X1))*F(X2) IF ABS(D). Swf To Screensaver Scout Keygen Free. Output: Root (to 12DP) Max. Error 0.08 1e-06 1.16 1e-06 2.34 1e-06 Note that the roots found are all near misses because fractional numbers that seem nice and 'round' in decimal (such as 10^-6) often have some rounding error when represented in binary.