Im trying to author a maplet which executes numerical integration on a function for an interval. Here is what I have so far. This is a the part of the assignment that didn't require maplet format. (This part I got to work) restart; a:= 1; b := 3; f:=x->100/x^2*sin(10/x); L:=[];# which is list of lists ListOfEndPts:=[b]; found := false; MaxNoPasses:=70; tolerance:=1.0e-4; simpAB:=evalf(student[simpson](f(x),x=a..b,2));app:=0; for PassNo from 1 to MaxNoPasses while not found do print("**********************************************"); middle := (a+b)/2.0: print(`Pass number` = PassNo);