| |
| | [No title] (Site not responding. Last check: 2007-11-07) |
 | | This procedure will recursively # bisect a function, added particular plots to the final plot to be # displayed. |
 | | bisection := proc(func,bottom_point,top_point,level) # local variables local middle_point, interval_plot: # calculates the middle point middle_point := (bottom_point + top_point) / 2: # If the point which is above the x-axis is before the jpoint that is # below, create the plots appropritately. |
 | | RETURN(plots[display](set_of_plots union {plot(func(t),t=left_range..right_range,axes = NORMAL)})): end: # Create the bisection example with the function x->sin(x), # Starting points of the Bisection as 1, 4 and left and right parts # of the graph being 0 and 2 Pi. |
| www.cecm.sfu.ca /~kghare/numeric/maple/bisection (364 words) |
|