From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 662/DEPENDENCIES/file02.sci | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100755 662/DEPENDENCIES/file02.sci (limited to '662/DEPENDENCIES/file02.sci') diff --git a/662/DEPENDENCIES/file02.sci b/662/DEPENDENCIES/file02.sci new file mode 100755 index 000000000..4c83682e8 --- /dev/null +++ b/662/DEPENDENCIES/file02.sci @@ -0,0 +1,25 @@ +//Programming Example 8.11 +//Interval reduction Routine + //Second File + + +function[]= reduce() + global yl + global yr + global a + global b + global xl + global xr //external variables + xl=a+0.5 *(b-a-cnst); + xr=xl+cnst; + yl=curve(xl); + yr=curve(xr); + if(yl>yr) then //retain left interval + b=xr; + return; + end + if(yl