1 files changed, 22 insertions, 0 deletions
diff --git a/243/CH4/EX4.18/4_18.sce b/243/CH4/EX4.18/4_18.sce
new file mode 100755
index 000000000..9d4661ca3
--- /dev/null
+++ b/243/CH4/EX4.18/4_18.sce
@@ -0,0 +1,22 @@
+//Example No. 4_18
+//Difference of Square roots
+//Pg No. 84
+clear ; close ; clc ;
+
+x = 497.0 ;
+y = 496.0 ;
+sqrt_x = sqrt(497)
+sqrt_y = sqrt(496)
+nx = length( string( floor( sqrt_x ) ) )
+ny = length( string( floor( sqrt_y ) ) )
+sqrt_x = floor(sqrt_x*10^(4-nx))/10^(4-nx)
+sqrt_y = floor(sqrt_y*10^(4-ny))/10^(4-ny)
+z1 = sqrt_x - sqrt_y
+disp(z1,'z = sqrt(x) - sqrt(y)')
+z2 = ( x -y)/(sqrt_x + sqrt_y)
+if z2 < 0.1 then
+    z2 = z2*10^4
+    nz = length(string(floor(z2)))
+    z2 = floor(z2*10^(4-nz))/10^(8-nz)
+end
+disp( z2 , 'z = ( x-y )/( sqrt(x) + sqrt(y) )' )
+\ No newline at end of file