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

---
 3434/CH14/EX14.13/Ex14_13.sce | 64 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 3434/CH14/EX14.13/Ex14_13.sce

(limited to '3434/CH14/EX14.13')

diff --git a/3434/CH14/EX14.13/Ex14_13.sce b/3434/CH14/EX14.13/Ex14_13.sce
new file mode 100644
index 000000000..f6658f90e
--- /dev/null
+++ b/3434/CH14/EX14.13/Ex14_13.sce
@@ -0,0 +1,64 @@
+clc
+// given data
+
+
+
+ProjAcu=[-2400.0,-1864.0,-1386.0,-959.0,-578.0,-238.0] // in Rs
+ProjBcu=[-2400,-1686,-1048,-479.0,30,484] // in Rs
+ProjCcu=[-2400,-1954,-1396,-755,-56.0,683] // in Rs
+
+ProjAdis=[-2400,536,478,427,381,340] // in Rs
+ProjBdis=[-2400,714,638,569,509.0,454] // in Rs
+ProjCdis=[-2400,446,558,641,699,738.0] // in Rs
+
+PA=0
+PB=0
+PC=0
+
+for i =1:5
+     if ((ProjAcu(i)<0) & (ProjAcu(i+1)>0))
+        PA=(i+1)-ProjAcu(i)/ProjAdis(i+1)-1
+    end
+    
+end
+
+printf( "\nFor project A")
+if (PA==0)
+    printf( "\nNet loss, Thus should be rejected")
+else:
+    printf( "\n% .2f years is payback period",PA) 
+end
+
+for i =1:5
+    
+    if ((ProjBcu(i)<0) & (ProjBcu(i+1)>0))
+        PB=(i)-ProjBcu(i)/ProjBdis(i+1)-1
+    else
+    end
+end
+
+    
+printf( "\n\nFor project B" )
+
+if (PB==0)
+    printf( "\nNet loss, Thus should be rejected"
+else:
+    printf( "\n%.2f years is payback period",PB) 
+end   
+for i =1:5
+    
+    if ((ProjCcu(i)<0) & (ProjCcu(i+1)>0))
+        PC=(i)-ProjCcu(i)/ProjCdis(i+1)-1
+    else
+        end
+end
+    
+printf( "\n\nFor project C")
+
+if (PC==0)
+    printf( "\nNet loss, Thus should be rejected")
+else
+    printf( "\n%.2f years is payback period",PC )
+end
+
+
-- 
cgit