From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 605/CH9/EX9.10/9_10.sce | 27 +++++++++++++++++++++++++++ 605/CH9/EX9.11/9_11.sce | 27 +++++++++++++++++++++++++++ 605/CH9/EX9.12/9_12.sce | 11 +++++++++++ 605/CH9/EX9.13/9_13.sce | 7 +++++++ 605/CH9/EX9.2/9_2.sce | 12 ++++++++++++ 605/CH9/EX9.3/9_3.sce | 10 ++++++++++ 605/CH9/EX9.4/9_4.sce | 14 ++++++++++++++ 605/CH9/EX9.5/9_5.sce | 10 ++++++++++ 605/CH9/EX9.6/9_6.sce | 22 ++++++++++++++++++++++ 605/CH9/EX9.7/9_7.sce | 38 ++++++++++++++++++++++++++++++++++++++ 605/CH9/EX9.8/9_8.sce | 22 ++++++++++++++++++++++ 605/CH9/EX9.9/9_9.sce | 11 +++++++++++ 12 files changed, 211 insertions(+) create mode 100755 605/CH9/EX9.10/9_10.sce create mode 100755 605/CH9/EX9.11/9_11.sce create mode 100755 605/CH9/EX9.12/9_12.sce create mode 100755 605/CH9/EX9.13/9_13.sce create mode 100755 605/CH9/EX9.2/9_2.sce create mode 100755 605/CH9/EX9.3/9_3.sce create mode 100755 605/CH9/EX9.4/9_4.sce create mode 100755 605/CH9/EX9.5/9_5.sce create mode 100755 605/CH9/EX9.6/9_6.sce create mode 100755 605/CH9/EX9.7/9_7.sce create mode 100755 605/CH9/EX9.8/9_8.sce create mode 100755 605/CH9/EX9.9/9_9.sce (limited to '605/CH9') diff --git a/605/CH9/EX9.10/9_10.sce b/605/CH9/EX9.10/9_10.sce new file mode 100755 index 000000000..2a5d341b8 --- /dev/null +++ b/605/CH9/EX9.10/9_10.sce @@ -0,0 +1,27 @@ + +fl=10*10^6 +fu=40*10^6 +Wu=2*%pi*40*10^6 +Wl=2*%pi*10*10^6 +gc=0.9662 +gL=0.62425 +Wo=2*%pi*20*10^6 +fo=sqrt(fl*fu) +printf("\nfo=%.2e Hz",fo) + +CBP1=(Wu-Wl)/(Wo^2*gL) +LBP1=gL/(Wu-Wl) +printf("\nCBP1=%.3e F\nLBP1=%.4e H",CBP1,LBP1) + +CBP2=(Wu-Wl)/(Wo^2*gc) +LBP2=gc/(Wu-Wl) +printf("\nCBP2=%.3e F\nLBP2=%.4e H",CBP2,LBP2) + + +printf("\nC1=C3=%.2f pF",19.122*1000/75) + +printf("\nL1=L3=%.4f nH",75*3.3116) + +printf("\nL2=%.4f uH",75*12.354/1000) + +printf("\nC2=%.3f pF",5.1258/75*1000) diff --git a/605/CH9/EX9.11/9_11.sce b/605/CH9/EX9.11/9_11.sce new file mode 100755 index 000000000..c5ef832fd --- /dev/null +++ b/605/CH9/EX9.11/9_11.sce @@ -0,0 +1,27 @@ + +fl=10*10^6 +fu=40*10^6 +Wu=2*%pi*40*10^6 +Wl=2*%pi*10*10^6 +gc=2 +gL=1 +Wo=2*%pi*20*10^6 +fo=sqrt(fl*fu) +printf("\nfo=%.2e Hz",fo) + +CBP1=(Wu-Wl)/(Wo^2*gL) +LBP1=gL/(Wu-Wl) +printf("\nCBS1=%.3e F\nLBS1=%.4e H",CBP1,LBP1) +LBP2=1/gc/(Wu-Wl) +CBP2=(Wu-Wl)*gc/(Wo^2) + +printf("\nCBP2=%.3e F\nLBP2=%.4e H",LBP2,CBP2) + + +printf("\nC1=C3=%.2f pF",5.305/75*1000) + +printf("\nL1=L3=%.4f nH",75*11.94) + +printf("\nL2=%.4f uH",75*2.653/1000) + +printf("\nC2=%.3f pF",23.87/75*1000) diff --git a/605/CH9/EX9.12/9_12.sce b/605/CH9/EX9.12/9_12.sce new file mode 100755 index 000000000..9a1b735a7 --- /dev/null +++ b/605/CH9/EX9.12/9_12.sce @@ -0,0 +1,11 @@ + + +printf("\ngo=g4=1") +n=3 +for p=1:1:3 + gp=2*sin((2*p-1)*%pi/2/n) + printf("\ngp=%.2f",gp) +end + +printf("\nQ1=Q3=%.4f rad=%.1f degree",50/150,50/150*180/%pi) +printf("\nQ2=%.2f rad=%.2f degree",30*2/50,30*2/50*180/%pi) diff --git a/605/CH9/EX9.13/9_13.sce b/605/CH9/EX9.13/9_13.sce new file mode 100755 index 000000000..3b70dba7e --- /dev/null +++ b/605/CH9/EX9.13/9_13.sce @@ -0,0 +1,7 @@ + +n=3 +printf("\ngo=g4=1") +for p=1:1:3 + gp=2*sin((2*p-1)*%pi/2/n) + printf("\ngp=%.2f",gp) +end diff --git a/605/CH9/EX9.2/9_2.sce b/605/CH9/EX9.2/9_2.sce new file mode 100755 index 000000000..d0a7efa4b --- /dev/null +++ b/605/CH9/EX9.2/9_2.sce @@ -0,0 +1,12 @@ + +foo=2.05*10^6 +fc=2*10^6 +Zo=75 +Wc=2*%pi*2*10^6 +L=Zo/Wc*2 +C=2/(Zo*Wc) +m=sqrt(1-(fc/foo)^2) +printf("\nm=%.4f",m) +printf("\nm*L/2=%.2e H",m*L/2) +printf("\nm*C=%.3e F",m*C) +printf("\n(1-m^2)*L/4/m=%.2e",(1-m^2)*L/4/m) \ No newline at end of file diff --git a/605/CH9/EX9.3/9_3.sce b/605/CH9/EX9.3/9_3.sce new file mode 100755 index 000000000..e3efcc14f --- /dev/null +++ b/605/CH9/EX9.3/9_3.sce @@ -0,0 +1,10 @@ + +Zo=75 +Wc=2*%pi*2*10^6 +foo=2.05*10^6 +L=Zo/Wc*2 +m=0.6 +C=2/(Zo*Wc) +printf("\nm*L/2=%.2e H",m*L/2) +printf("\nm*C=%.3e F",m*C/2) +printf("\n(1-m^2)*L/4/m=%.2e",(1-m^2)*L/2/m) \ No newline at end of file diff --git a/605/CH9/EX9.4/9_4.sce b/605/CH9/EX9.4/9_4.sce new file mode 100755 index 000000000..2d336b438 --- /dev/null +++ b/605/CH9/EX9.4/9_4.sce @@ -0,0 +1,14 @@ + +Zo=75 +Wc=2*%pi*2*10^6 +foo=1.95*10^6 +fc=2*10^6 +L=Zo/Wc/2 +C=1/2/(Zo*Wc) +m=sqrt(1-(foo/fc)^2) +printf("\nL=%.3e H",L) +printf("\nC=%.3e F",C) +printf("\nm=%.4f",m) +printf("\n2*C/m=%.4e F",2*C/m) +printf("\nL/m=%.4e H",L/m) +printf("\n4*m*C/(1-m^2)=%.4e F",4*m*C/(1-m^2)) \ No newline at end of file diff --git a/605/CH9/EX9.5/9_5.sce b/605/CH9/EX9.5/9_5.sce new file mode 100755 index 000000000..f307046a9 --- /dev/null +++ b/605/CH9/EX9.5/9_5.sce @@ -0,0 +1,10 @@ + +Le=3 +E=10^(Le/10)-1 +L=15 +Wc=1 +W=1.3*Wc +n=1/2*(log10(10^(L/10)-1)-log10(E))/log10(W/Wc) +m=acosh(sqrt(10^(0.1*L)-1))/acosh(W/Wc) +printf("\nn=%.2f",n) +printf("\nm=%.3f",m) \ No newline at end of file diff --git a/605/CH9/EX9.6/9_6.sce b/605/CH9/EX9.6/9_6.sce new file mode 100755 index 000000000..0a741f5b6 --- /dev/null +++ b/605/CH9/EX9.6/9_6.sce @@ -0,0 +1,22 @@ + +L=30 +W=40*10^6 +Wc=10*10^6 +Le=3 +E=10^(Le/10) +Zo=50 +Wc=2*%pi*10^6*10 +L=Zo/Wc +C=2/(Zo*Wc) +n=1/2*(log10(10^(L/10)-1)-log10(E))/log10(W/Wc) +printf("\nn=%.2f",n) +printf("\ng1=%.0f\ng2=%.0f\ng3=%.0f",2*sin(%pi/6),2*sin(%pi/2),2*sin(%pi*5/6)) +printf("\n") +printf("\nL1=L3=%.4e H",L) +printf("\nC2=%.3e F",C) +Zo=50 +Wc=2*%pi*10^6*10 +L=Zo*2/Wc +C=1/(Zo*Wc) +printf("\nL2=%.4e H",L) +printf("\nC1=C3=%.4e F",C) \ No newline at end of file diff --git a/605/CH9/EX9.7/9_7.sce b/605/CH9/EX9.7/9_7.sce new file mode 100755 index 000000000..fc55c51bc --- /dev/null +++ b/605/CH9/EX9.7/9_7.sce @@ -0,0 +1,38 @@ + +Gr=0.01 +m=acosh(sqrt(10^(0.1*L)-1)/sqrt(10^(0.1*Gr-1)))/acosh(W/Wc) +printf("\nm=%.0f\n",m) +m=3 +E=log(coth(Gr/17.37)) +X=sinh(E/2/m) +n=3 +gp=1 + +for p=1:1:n + ap=sin((2*p-1)*%pi/2/m) + bp=X^2+sin(p*%pi/m)^2 + printf("\nap=%.4f\nbp=%.4f\n",ap,bp) +end +gp=0.62425 +printf("\ng0=g4=1") +printf("\np=1\tgp=0.62425") +for p=2:1:n + gp=4*sin((2*(p-1)-1)*%pi/2/m)*sin((2*p-1)*%pi/2/m)/(X^2+sin((p-1)*%pi/m)^2)/gp + printf("\np=%.0f\tgp=%.5f",p,gp) +end + +printf("\nL1=L3=%.4e H\nC1=%.4e F",75*0.62425/(2*%pi*10^8),0.9662/(75*2*%pi*10^8)) + + + + + + + + + + + + + + diff --git a/605/CH9/EX9.8/9_8.sce b/605/CH9/EX9.8/9_8.sce new file mode 100755 index 000000000..141477f27 --- /dev/null +++ b/605/CH9/EX9.8/9_8.sce @@ -0,0 +1,22 @@ + +m=3 +for p=1:1:3 + ap=sin((2*p-1)*%pi/2/m) + printf("\np=%.0f\tap=%.3f",p,ap) +end +Gr=3 + +E=log(coth(Gr/17.37)) +X=sinh(E/2/m) +printf("\nE=%.4f\nX=%.4f",E,X) +for p=1:1:3 + bp=X^2+sin(p*%pi/m)^2 + printf("\np=%.0f\tbp=%.4f",p,bp) +end +gp=3.349 +printf("\ng0=g4=1\ng1=3.349") +for p=2:1:3 + gp=4*sin((2*(p-1)-1)*%pi/2/m)*sin((2*p-1)*%pi/2/m)/(X^2+sin((p-1)*%pi/m)^2)/gp + printf("\ngp=%.4f",gp) +end +printf("\nL1=L3=%.1e H\nC2=%.4e F",75*3.349/(2*%pi*10^8),0.7116/(75*2*%pi*10^8)) \ No newline at end of file diff --git a/605/CH9/EX9.9/9_9.sce b/605/CH9/EX9.9/9_9.sce new file mode 100755 index 000000000..b9dec16d0 --- /dev/null +++ b/605/CH9/EX9.9/9_9.sce @@ -0,0 +1,11 @@ + +gL=0.62425 +gc=0.9662 +m=3 +Wc=2*%pi*100*10^6 +CHP=1/(Wc*gL) +LHP=1/(Wc*gc) +printf("\nCHP=%.3e F\nLHP=%.3e H",CHP,LHP) +C1=2.5495/75*10^3 +L2=75*1.6472 +printf("\nC1=C3=%.0f pF\nL2=%.1f nH",C1,L2) \ No newline at end of file -- cgit