1 files changed, 25 insertions, 0 deletions
diff --git a/671/CH10/EX10.9/10_9.sce b/671/CH10/EX10.9/10_9.sce
new file mode 100755
index 000000000..ee9f2d927
--- /dev/null
+++ b/671/CH10/EX10.9/10_9.sce
@@ -0,0 +1,25 @@
+/////solving quadratic
+Ra=0.5
+P=8000
+V=230
+Ea=V
+n=1200
+Ke=V/n
+
+p=poly([P*Ra,-V,1],"w","coeff")
+w=roots(p)
+
+Ea=w(1)     ///rejecting small value
+n=Ea/Ke
+disp(n)
+T=P/2/%pi/n*60
+disp(T)
+Ia=(V-Ea)/Ra
+disp(Ia)
+Kt=T/Ia
+
+
+p=poly([-Kt*V/Ra,Kt*Ke/Ra,0.6E-4],"w","coeff")
+w=roots(p)
+n=w(2)
+disp(n)