1 files changed, 13 insertions, 0 deletions
diff --git a/887/CH15/EX15.12/15_12.sce b/887/CH15/EX15.12/15_12.sce
new file mode 100755
index 000000000..e37d7580b
--- /dev/null
+++ b/887/CH15/EX15.12/15_12.sce
@@ -0,0 +1,13 @@
+clc
+//ex15.12
+V_s=1000*complex(cos(0),sin(0));      //source voltage phasor
+R_1=10^3;
+tr=10;      //turns ratio(N1/N2)
+V_S=V_s/tr;      //reflected voltage
+[V_S_max,V_S_phi]=polar(V_S);
+R1=R_1/(tr^2);      //reflected resistance
+//we take real parts of angles to take out neglegible and unnecessary imaginary parts(if any are there)
+disp('Reflected voltage:')
+disp(V_S_max,'Peak value in volts')
+disp(V_S_phi*180/%pi,'phase angle in degrees')
+disp(R1,'Reflected resistance in ohms')