summaryrefslogtreecommitdiff
path: root/243/CH3/EX3.15
diff options
context:
space:
mode:
Diffstat (limited to '243/CH3/EX3.15')
-rwxr-xr-x243/CH3/EX3.15/3_15.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/243/CH3/EX3.15/3_15.sce b/243/CH3/EX3.15/3_15.sce
new file mode 100755
index 000000000..ce894febf
--- /dev/null
+++ b/243/CH3/EX3.15/3_15.sce
@@ -0,0 +1,21 @@
+//Example No. 3_15
+//Floating Point Arithmetic
+//Pg No. 54
+clear ;close ;clc ;
+
+fx = 0.999658 ;
+Ex = -3 ;
+fy = 0.994576 ;
+Ey = -3 ;
+Ez = max(Ex,Ey)
+fy = fy*10^(Ey-Ex)
+fz = fx - fy
+disp(fz,'fz = ',Ez,'Ez = ')
+mprintf('\n z = %f E%i \n',fz,Ez)
+if fz < 0.1 then
+ fz = fz*10^6 //Since we are using 6 significant digits
+ n = length(string(fz))
+ fz = fz/10^n
+ Ez = Ez + n - 6
+ mprintf('\n z = %f E%i (normalised) \n',fz,Ez)
+end \ No newline at end of file