initial commit / add all books

1 files changed, 24 insertions, 0 deletions

diff --git a/1529/CH18/EX18.11/18_11.sce b/1529/CH18/EX18.11/18_11.sce
new file mode 100755
index 000000000..664002835
--- /dev/null
+++ b/1529/CH18/EX18.11/18_11.sce
@@ -0,0 +1,24 @@
+//Chapter 18, Problem 11

+clc;

+

+//initializing the variables:

+R = 15;                 //resistance in ohms

+V = 110;                //supply voltage

+taw = 2;                //time constant

+t1 = 3;                 // in secs

+i2 =5;                  // in amperes

+

+//calculation:

+L = taw*R

+t = 0:0.1:10

+I = V/R

+i = I*(%e^(-1*t/taw))

+plot2d(t,i)

+xtitle("current/time characteristic", "t", "i")

+i1 = I*(%e^(-1*t1/taw))

+t2 = -1*taw*log((i2/I))

+

+

+printf("\n Inductance is %.0f H\n\n",L)

+printf("\n (a)The current flowing in the winding 3 s after being shorted-out = %.2f A\n\n",i1)

+printf("\n (b)The time for the current to decay to 5 A = %.3f sec\n\n",t2)