10 files changed, 97 insertions, 0 deletions
diff --git a/1553/CH22/EX22.1/22Ex1.sce b/1553/CH22/EX22.1/22Ex1.sce
new file mode 100644
index 000000000..65a258905
--- /dev/null
+++ b/1553/CH22/EX22.1/22Ex1.sce
@@ -0,0 +1,10 @@
+//chapter 22 Ex 1
+
+clc;
+clear;
+close;
+p=7500; n=2; r=4;
+amount=p*((1+r/100)^n);//formula for compound interest
+CI=amount-p;
+printf("The Compound Interest is Rs. %d",CI);
+
diff --git a/1553/CH22/EX22.11/22Ex11.sce b/1553/CH22/EX22.11/22Ex11.sce
new file mode 100644
index 000000000..68b2f044c
--- /dev/null
+++ b/1553/CH22/EX22.11/22Ex11.sce
@@ -0,0 +1,9 @@
+//chapter 22 Ex 11
+
+clc;
+clear;
+close;
+amt=1301; t1=7; t2=9; rate=4/100;
+part1=(((1+rate)^t2/(1+rate)^t1)*amt)/(1+((1+rate)^t2/(1+rate)^t1));
+part2=amt-part1;
+mprintf("The two parts are Rs.%.0f and Rs.%.0f",part1,part2);
diff --git a/1553/CH22/EX22.12/22Ex12.sce b/1553/CH22/EX22.12/22Ex12.sce
new file mode 100644
index 000000000..e79861ae6
--- /dev/null
+++ b/1553/CH22/EX22.12/22Ex12.sce
@@ -0,0 +1,10 @@
+//chapter 22 Ex 12
+
+clc;
+clear;
+close;
+amt1=7350; n1=2; amt2=8575; n2=3;
+rate=((amt2-amt1)/(n2-n1)/amt1)*100;
+//let sum be Rs.x
+Sum=amt1/(1+(rate/100))^n1;
+mprintf("The sum is Rs.%.0f",Sum); 
diff --git a/1553/CH22/EX22.13/22Ex13.sce b/1553/CH22/EX22.13/22Ex13.sce
new file mode 100644
index 000000000..1e6871ff7
--- /dev/null
+++ b/1553/CH22/EX22.13/22Ex13.sce
@@ -0,0 +1,9 @@
+//chapter 22 Ex 13
+
+clc;
+clear;
+close;
+Sum1=6690; t1=3; Sum2=10035; t2=6;
+rate=((nthroot((Sum2/Sum1),(t2-t1)))-1);
+p=Sum1/(1+rate)^t1;
+mprintf("The Sum is %.0f",p);
diff --git a/1553/CH22/EX22.2/22Ex2.sce b/1553/CH22/EX22.2/22Ex2.sce
new file mode 100644
index 000000000..ee315c079
--- /dev/null
+++ b/1553/CH22/EX22.2/22Ex2.sce
@@ -0,0 +1,9 @@
+//chapter 22 Ex 2
+
+clc;
+clear;
+close;
+p=8000; n=2; r=15;
+amount=p*((1+r/100)^n)*((1+(1/3)*r/100));
+CI=amount-p;
+printf("The Compound Interest is Rs. %3.0f",CI);
diff --git a/1553/CH22/EX22.3/22Ex3.sce b/1553/CH22/EX22.3/22Ex3.sce
new file mode 100644
index 000000000..82a6095bb
--- /dev/null
+++ b/1553/CH22/EX22.3/22Ex3.sce
@@ -0,0 +1,10 @@
+//chapter 22 Ex 1
+
+clc;
+clear;
+close;
+p=10000; n=4;   //since half yearly, hence 2 years=4 half years
+ r=2;
+amount=p*((1+r/100)^n);
+CI=amount-p;
+printf("The Compound Interest is Rs. %3.2f",CI);
diff --git a/1553/CH22/EX22.4/22Ex4.sce b/1553/CH22/EX22.4/22Ex4.sce
new file mode 100644
index 000000000..a3d755f20
--- /dev/null
+++ b/1553/CH22/EX22.4/22Ex4.sce
@@ -0,0 +1,10 @@
+//chapter 22 Ex 4
+
+clc;
+clear;
+close;
+p=16000; t=3; //since quarterly compounded
+r=5;//since quarterly compounded
+amount=(p*(1+r/100)^t);
+CI=amount-p;
+printf("The Compound Interest is Rs. %d",CI);
diff --git a/1553/CH22/EX22.5/22Ex5.sce b/1553/CH22/EX22.5/22Ex5.sce
new file mode 100644
index 000000000..564946fc6
--- /dev/null
+++ b/1553/CH22/EX22.5/22Ex5.sce
@@ -0,0 +1,11 @@
+//chapter 22 Ex 5
+
+clc;
+clear;
+close;
+rate=5/100;
+t=3; SIAmt=1200; 
+p=SIAmt/(t*rate);
+Amt=p*(1+rate)^t;
+CI=Amt-p;
+mprintf("The compound interest is Rs.%d",CI);
diff --git a/1553/CH22/EX22.7/22Ex7.sce b/1553/CH22/EX22.7/22Ex7.sce
new file mode 100644
index 000000000..636dbfb6c
--- /dev/null
+++ b/1553/CH22/EX22.7/22Ex7.sce
@@ -0,0 +1,9 @@
+//chapter 22 Ex 6
+
+clc;
+clear;
+close;
+p=500; amt=583.20; t=2;
+
+rate=(nthroot((amt/p),t)-1)*100;
+mprintf("The rate of interest is %d percent",rate);
diff --git a/1553/CH22/EX22.9/22Ex9.sce b/1553/CH22/EX22.9/22Ex9.sce
new file mode 100644
index 000000000..6b46e9949
--- /dev/null
+++ b/1553/CH22/EX22.9/22Ex9.sce
@@ -0,0 +1,10 @@
+//chapter 22 Ex 9
+
+clc;
+clear;
+close;
+rate=10/100; t=2; difference=631;
+CI=((1+rate)^t)-1;
+SI=t*rate;
+Sum=difference/(CI-SI);
+mprintf("The Sum is Rs.%.0f",Sum);