1 files changed, 18 insertions, 0 deletions
diff --git a/2414/CH6/EX6.17/Ex6_17.sce b/2414/CH6/EX6.17/Ex6_17.sce
new file mode 100755
index 000000000..ce0757a33
--- /dev/null
+++ b/2414/CH6/EX6.17/Ex6_17.sce
@@ -0,0 +1,18 @@
+clc;
+close();
+//page no 210
+//prob no. 6.17
+//All power in Watts
+//All voltage in volts
+//All current in ampere
+R=50;   
+m=0.5;
+P=1125;  //for m=0.5
+Vrms=sqrt(R*P);
+Irms=sqrt(P/R);
+disp('A',Irms,'V',Vrms,'(a)  For m=0.5, Vrms and Irms are:');
+m=1;
+P=1500;  //For m=1
+Vrms=sqrt(R*P);
+Irms=sqrt(P/R);
+disp('A',Irms,'V',Vrms,'(b)  For m=1, Vrms and Irms are:');