2 files changed, 19 insertions, 0 deletions
diff --git a/3250/CH5/EX5.1/Ex5_1.sce b/3250/CH5/EX5.1/Ex5_1.sce
new file mode 100755
index 000000000..fcfef018b
--- /dev/null
+++ b/3250/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,16 @@
+clc 
+// Given that
+A = 20 // Value of A in voltage length characteristic equation
+B = 40 // Value of B in voltage length characteristic equation
+v= 80 // Open circuit voltage in V
+I = 1000 // Short circuit current in amp
+// Sample Problem 1 on page no. 285
+printf("\n # PROBLEM 5.1 # \n")
+l=poly(0,"l")
+i = ((v-A)-(B* l))*(I/v)
+V = (A+B*l)// Given in the question
+P = V*i
+k = derivat(P)
+L=roots(k)
+Pmax=((v-A)-(B* L))*(I/v)*(A+B*L)
+printf("\n Maximum power of the arc = %d kVA",Pmax/1000)
diff --git a/3250/CH5/EX5.1/Ex5_1.txt b/3250/CH5/EX5.1/Ex5_1.txt
new file mode 100755
index 000000000..848d6e537
--- /dev/null
+++ b/3250/CH5/EX5.1/Ex5_1.txt
@@ -0,0 +1,3 @@
+ # PROBLEM 5.1 # 
+
+ Maximum power of the arc = 20 kVA 
+\ No newline at end of file