2 files changed, 21 insertions, 0 deletions
diff --git a/1523/CH10/EX10.35/ex10_35.sce b/1523/CH10/EX10.35/ex10_35.sce
new file mode 100755
index 000000000..0ac5658df
--- /dev/null
+++ b/1523/CH10/EX10.35/ex10_35.sce
@@ -0,0 +1,10 @@
+// Network Functions : example 10.35 : (pg 10.35)
+m=(2/(sqrt(2)*sqrt(10)));
+a=90;
+x=(a-atand(3)-atand(1));
+printf("\nF(s) =(4s/s^2+2s+2) = 4s/(s+1-j)*(s+1-j)");
+printf("\n At s=j2");
+//pmag = phasor magnitudes
+printf("\n|F(j2)|=Product of pmag from all zeros to j2/Product of pmag from all poles to j2");
+printf("\n = %.3f",m);
+printf("\nf(w) = atand(2/0)-atand(3)-atand(1)= %.2f degrees",x);
+\ No newline at end of file
diff --git a/1523/CH10/EX10.36/ex10_36.sce b/1523/CH10/EX10.36/ex10_36.sce
new file mode 100755
index 000000000..b6f694d9c
--- /dev/null
+++ b/1523/CH10/EX10.36/ex10_36.sce
@@ -0,0 +1,11 @@
+// Network Functions : example 10.36 : (pg 10.35 & 10.36)
+m=((5*sqrt(17))/(sqrt(20)*4));
+a=90;
+w=(atand(4)+atand(4/3)-(a)-atand(4/2));
+printf("\nF(s) = (s+1)(s+3)/s(s+2))");
+printf("\nAt s=j4");
+//vmag = vector magnitudes
+printf("\nPrduct of vmag from all zeros to j4/ Product of vmag from all poles to j4");
+printf("\n =%.2f",m);
+printf("\nphi(w)= atand(4)+atand(4/3)-atand(4/0)-atand(4/2)");
+printf("\n = %.2f degrees",w);
+\ No newline at end of file