1 files changed, 87 insertions, 0 deletions
diff --git a/1241/CH2/EX2.51/exa2_51.sce b/1241/CH2/EX2.51/exa2_51.sce
new file mode 100755
index 000000000..9a85bdfdc
--- /dev/null
+++ b/1241/CH2/EX2.51/exa2_51.sce
@@ -0,0 +1,87 @@
+//Example 2-51//
+//multiplication of binary numbers//
+//this program requires functions binary2decimal.sci and decimal2binary.sci//
+clc
+//clears the window//
+clear
+//clears all existing variables//
+function x=binary2decimal(bin)
+p=1
+q=1
+z=0
+b=0
+w=0
+f=0
+//initialising//
+d=modulo(bin,1)
+//separating the decimal part from the integer part//
+d=d*10^10
+a=floor(bin)
+//removing the decimal part//
+while(a>0)
+//loop to enter the binary bits of the integer part into a matrix//
+r=modulo(a,10)
+b(1,q)=r
+a=a/10
+a=floor(a)
+q=q+1
+end
+for m=1: q-1
+//multiplying each bit of the integer part with its corresponding positional value and adding//
+c=m-1
+f=f+b(1,m)*(2^c)
+end
+while(d>0)
+//loop to take the bits of the decimal part into a matrix//
+e=modulo(d,2)
+w(1,p)=e
+d=d/10
+d=floor(d)
+p=p+1
+end
+for n=1: p-1
+//multiplying each bit with its corresponding positional value and adding//
+z=z+w(1,n)*(0.5)^(11-n)
+end
+z=z*10000
+z=round(z)
+//rounding off to 4 decimal places//
+z=z/10000
+x=f+z
+endfunction
+function y=decimal2binary(a)
+q=0
+b=0
+s=0
+//initialising//
+d=modulo(a,1)
+//separating the decimal part from the integer//
+a=floor(a)
+//removing the decimal part//
+while(a>0)
+//integer part converted to equivalent binary form//  
+x=modulo(a,2)
+b=b+(10^q)*x
+a=a/2
+a=floor(a)
+q=q+1
+end
+for i=1: 10
+//taking values after the decimal part and converting to equivalent binary form//
+d=d*2
+q=floor(d)
+s=s+q/(10^i)
+if d>=1 then
+    d=d-1
+end
+end
+y=b+s
+endfunction
+x=binary2decimal(10.001)
+y=binary2decimal(0.11)
+z=x*y
+a=decimal2binary(z)
+disp('the multiplication of the binary numbers is :')
+disp(a)
+//result is displayed//
+