From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 3250/CH5/EX5.1/Ex5_1.sce | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 3250/CH5/EX5.1/Ex5_1.sce

(limited to '3250/CH5/EX5.1/Ex5_1.sce')

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)
-- 
cgit