diff options
Diffstat (limited to '1553/CH33')
| -rw-r--r-- | 1553/CH33/EX33.1/33Ex1.sce | 12 | ||||
| -rw-r--r-- | 1553/CH33/EX33.2/33Ex2.sce | 9 | ||||
| -rw-r--r-- | 1553/CH33/EX33.3/33Ex3.sce | 9 | ||||
| -rw-r--r-- | 1553/CH33/EX33.4/33Ex4.sce | 10 | ||||
| -rw-r--r-- | 1553/CH33/EX33.5/33Ex5.sce | 9 | ||||
| -rw-r--r-- | 1553/CH33/EX33.6/33Ex6.sce | 10 | ||||
| -rw-r--r-- | 1553/CH33/EX33.7/33Ex7.sce | 12 |
7 files changed, 71 insertions, 0 deletions
diff --git a/1553/CH33/EX33.1/33Ex1.sce b/1553/CH33/EX33.1/33Ex1.sce new file mode 100644 index 000000000..99ac60a15 --- /dev/null +++ b/1553/CH33/EX33.1/33Ex1.sce @@ -0,0 +1,12 @@ +//Chapter 33 Ex 1
+clc;
+clear;
+close;
+facevalue=6000; rate=10/100;
+//calculating unexpired time, 26 days (october 31-october 5)+30 days (november)+ 17 days (december)
+unexpiredTime=1/5; //converting 73 days into years
+bd=facevalue*unexpiredTime*rate; //banker's discount
+td=bd/(1+(unexpiredTime*rate)); //true discount
+bg=bd-td; //banker's gain
+money=facevalue-bd;
+mprintf("The bankers discount is Rs.%.0f\n The true discount is Rs.%.2f\n The bankers gain is Rs.%.2f\n The money received by holder of bill is Rs.%.0f",bd,td,bg,money);
diff --git a/1553/CH33/EX33.2/33Ex2.sce b/1553/CH33/EX33.2/33Ex2.sce new file mode 100644 index 000000000..ca126fe9f --- /dev/null +++ b/1553/CH33/EX33.2/33Ex2.sce @@ -0,0 +1,9 @@ +//Chapter 33 Ex 2
+
+clc;
+clear;
+close;
+TD=120; rate=15/100; t=1/2; //given
+BG=TD*rate*t; //banker's gain
+BD=TD+BG; //banker's discount
+mprintf("The bankers discount is Rs %d",BD);
diff --git a/1553/CH33/EX33.3/33Ex3.sce b/1553/CH33/EX33.3/33Ex3.sce new file mode 100644 index 000000000..421cc2899 --- /dev/null +++ b/1553/CH33/EX33.3/33Ex3.sce @@ -0,0 +1,9 @@ +//Chapter 33 Ex3
+clc;
+clear;
+close;
+bd=1800;rate=12/100; facevalue=1872;
+//SI on 1800=TD on 1872
+PW=facevalue-bd; //present worth
+time=PW/(bd*rate);
+mprintf("The time is %.2f year i.e %.0f months",time,time*12);
diff --git a/1553/CH33/EX33.4/33Ex4.sce b/1553/CH33/EX33.4/33Ex4.sce new file mode 100644 index 000000000..4af5b8fed --- /dev/null +++ b/1553/CH33/EX33.4/33Ex4.sce @@ -0,0 +1,10 @@ +//Chapter 33 Ex 4
+
+clc;
+clear;
+close;
+BD=120; TD=110; //given
+t=8/12; //converted in year
+Sum=((BD*TD)/(BD-TD));
+rate= ((100*BD)/(Sum*t));
+mprintf("The sum is Rs.%d \n The rate is %.2f percent",Sum,rate);
diff --git a/1553/CH33/EX33.5/33Ex5.sce b/1553/CH33/EX33.5/33Ex5.sce new file mode 100644 index 000000000..7ae94f27c --- /dev/null +++ b/1553/CH33/EX33.5/33Ex5.sce @@ -0,0 +1,9 @@ +//Chapter 33 Ex5
+clc;
+clear;
+close;
+PW=1100;
+td=110;
+bg=(td)^2/PW;
+bd=td+bg;
+mprintf("The bankers discount is Rs.%.0f and the bankers gain is Rs.%.0f",bd,bg);
diff --git a/1553/CH33/EX33.6/33Ex6.sce b/1553/CH33/EX33.6/33Ex6.sce new file mode 100644 index 000000000..54742841b --- /dev/null +++ b/1553/CH33/EX33.6/33Ex6.sce @@ -0,0 +1,10 @@ +//Chapter 33 Ex 6
+
+clc;
+clear;
+close;
+BD=165; Sum=1650; //given
+// As ratio of TD as to BG is 10:1 Thus BD =11 as BD=TD+BG
+TD=(10/11)*BD;
+BG=BD-TD;
+mprintf("THe true discount is Rs.%d \n The bankers gain is Rs.%d",TD,BG);
diff --git a/1553/CH33/EX33.7/33Ex7.sce b/1553/CH33/EX33.7/33Ex7.sce new file mode 100644 index 000000000..7e0bce7e1 --- /dev/null +++ b/1553/CH33/EX33.7/33Ex7.sce @@ -0,0 +1,12 @@ +//Chapter 31 Ex7
+clc;
+clear;
+close;
+deduced=10/100;
+//let amount be Rs.100
+amt=100;
+deducedAmt=amt*(deduced);
+moneyReceived=amt-deducedAmt;
+t=10/12; //converting due period in years
+rate=(amt*deducedAmt)/(moneyReceived*t);
+mprintf("The rate percent is %.2f percent",rate);
|