1 files changed, 14 insertions, 0 deletions
diff --git a/854/CH11/EX11.3/Example11_3.sce b/854/CH11/EX11.3/Example11_3.sce
new file mode 100755
index 000000000..c2ae3d175
--- /dev/null
+++ b/854/CH11/EX11.3/Example11_3.sce
@@ -0,0 +1,14 @@
+//clear//
+//Caption:Program tofind the magnitude and phase of characteristic
+//impedance Zo
+//Example11.3
+//page347
+Zo = sym('sqrt(L/C)*(1-sqrt(-1)*R/(2*W*L))');
+teta = sym('atan(-R/(2*W*L))');
+disp(Zo,'Characteristic impedance  Zo =')
+disp(teta,'The phase angle teta=')
+//Result
+//Characteristic impedance  Zo =   
+//  sqrt(L/C)*(1-%i*R/(2*L*W))   
+//The phase angle teta=   
+// -atan(R/(2*L*W))