1 files changed, 25 insertions, 0 deletions
diff --git a/3871/CH5/EX5.21/Ex5_21.sce b/3871/CH5/EX5.21/Ex5_21.sce
new file mode 100644
index 000000000..57f4f44e5
--- /dev/null
+++ b/3871/CH5/EX5.21/Ex5_21.sce
@@ -0,0 +1,25 @@
+//=============================================================
+//Chapter 5 example 21
+
+clc;
+clear all;
+
+//variable declaration
+I       = 10;           //current in A
+//e     = (alpha*(dt))+(b(dt^2))= alpha*dt
+//dt  = (K1*(I^2)*R)
+//theta = K2*e
+//theta     = K2*e  = K2*K1*alpha*dt   = K2*K1*alpha*(I^2)*R
+//thetaF     = K3*(I^2)
+//K3        = (thetaF)/(I^2);
+x           = 1/(I^2);
+mprintf("K3     = %3.2f *thetaf",x);
+//K3        =thetaF*x
+mprintf("\ntheta     = theatF/3");
+//I         = sqrt((thetaF/3)*((K3)))
+//I         = sqrt((thetaF/3)/K3)
+I         =sqrt((1/3)*((1/x)))
+
+
+//result
+mprintf("\ncurrent = %3.2f A",I);