summaryrefslogtreecommitdiff
path: root/343/CH3
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /343/CH3
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '343/CH3')
-rwxr-xr-x343/CH3/EX3.1/ex3_1.sce20
-rwxr-xr-x343/CH3/EX3.10/ex3_10.sce12
-rwxr-xr-x343/CH3/EX3.11/ex3_11.sce21
-rwxr-xr-x343/CH3/EX3.12/ex3_12.sce13
-rwxr-xr-x343/CH3/EX3.13/ex3_13.sce12
-rwxr-xr-x343/CH3/EX3.16/ex3_16.sce15
-rwxr-xr-x343/CH3/EX3.17/ex3_17.sce10
-rwxr-xr-x343/CH3/EX3.18/ex3_18.sce11
-rwxr-xr-x343/CH3/EX3.19/ex3_19.sce12
-rwxr-xr-x343/CH3/EX3.2/ex3_2.sce19
-rwxr-xr-x343/CH3/EX3.20/ex3_20.sce13
-rwxr-xr-x343/CH3/EX3.21/ex3_21.sce6
-rwxr-xr-x343/CH3/EX3.3/ex3_3.sce15
-rwxr-xr-x343/CH3/EX3.4/ex3_4.sce14
-rwxr-xr-x343/CH3/EX3.5/ex3_5.sce25
-rwxr-xr-x343/CH3/EX3.7/ex3_7.sce15
-rwxr-xr-x343/CH3/EX3.8/ex3_8.sce15
-rwxr-xr-x343/CH3/EX3.9/ex3_9.sce16
18 files changed, 264 insertions, 0 deletions
diff --git a/343/CH3/EX3.1/ex3_1.sce b/343/CH3/EX3.1/ex3_1.sce
new file mode 100755
index 000000000..9e38fb686
--- /dev/null
+++ b/343/CH3/EX3.1/ex3_1.sce
@@ -0,0 +1,20 @@
+clc
+f=50; //Assigning values to parameters
+Vl=400;
+Rph=20;
+L=0.5;
+Xl=2*%pi*f*L;
+Zph=20+%i*157;
+[r,t]=polar(Zph);
+Vph=Vl/sqrt(3); //Star connection
+Iph=Vph/r;
+Il=Iph;
+P=sqrt(3)*Vl*Il*cos(t);
+disp("Amperes",Il,"The line current for Star connection is");
+disp("Watts",polar(P),"The total power absorbed in Star connection is");
+Vph=Vl; //Delta connection
+Iph=Vph/r;
+Il=sqrt(3)*Iph;
+P=sqrt(3)*Vl*Il*cos(t);
+disp("Amperes",Il,"The line current for Delta connection is");
+disp("Watts",polar(P),"The total power absorbed in Delta connection is"); \ No newline at end of file
diff --git a/343/CH3/EX3.10/ex3_10.sce b/343/CH3/EX3.10/ex3_10.sce
new file mode 100755
index 000000000..4ec088d53
--- /dev/null
+++ b/343/CH3/EX3.10/ex3_10.sce
@@ -0,0 +1,12 @@
+clc
+Vl=400; //Assigning values to parameters
+Il=34.65;
+P=14.4*10^3;
+Vph=Vl;
+Iph=Il/sqrt(3);
+Zph=Vph/Iph;
+t=acosd(P/(sqrt(3)*Vl*Il))
+Z=complex(Zph,t);
+disp("Ohms",Z,"Impedance");
+disp("Ohms",real(Z),"Resistance");
+disp("Ohms",imag(Z),"Reactance"); \ No newline at end of file
diff --git a/343/CH3/EX3.11/ex3_11.sce b/343/CH3/EX3.11/ex3_11.sce
new file mode 100755
index 000000000..d58c151da
--- /dev/null
+++ b/343/CH3/EX3.11/ex3_11.sce
@@ -0,0 +1,21 @@
+clc
+vl=415 //assigning values to the parameters
+r=15
+l=0.1
+c=0.000000177
+f=50
+vph=vl/sqrt(3)
+xl=2*%pi*f*l
+xc=1/(2*%pi*f*c)
+zph=r+%i*(xl-xc)
+[r1,t]=polar(zph)
+iph=vph/zph
+il=iph
+p=sqrt(3)*vl*il*cos(t)
+q=sqrt(3)*vl*il*sin(t)
+s=sqrt(3)*vl*il
+disp("Amperes",polar(iph),"The phase current is")
+disp("Amperes",polar(il),"The line current is")
+disp("Watts",polar(p),"The power drawn is")
+disp("Watts",polar(q),"The reactive power is")
+disp("VA",polar(s),"The total kVA is") \ No newline at end of file
diff --git a/343/CH3/EX3.12/ex3_12.sce b/343/CH3/EX3.12/ex3_12.sce
new file mode 100755
index 000000000..6f77e720c
--- /dev/null
+++ b/343/CH3/EX3.12/ex3_12.sce
@@ -0,0 +1,13 @@
+clc
+vl=400 //assigning values to the parameters
+t=0
+zph=50
+vph=vl/sqrt(3)
+iph=vph/zph
+il=iph
+p=sqrt(3)*vl*il*cos(t)
+disp("Watts",polar(p),"Power taken is")
+iph=4
+il=iph
+p=vl*il*cos(t)
+disp("Watts",polar(p),"Power taken after disconecting one of the resistor is") \ No newline at end of file
diff --git a/343/CH3/EX3.13/ex3_13.sce b/343/CH3/EX3.13/ex3_13.sce
new file mode 100755
index 000000000..920ccf604
--- /dev/null
+++ b/343/CH3/EX3.13/ex3_13.sce
@@ -0,0 +1,12 @@
+clc
+vl=400 //Assigning values to parameters
+vph=vl
+r=40
+t=0
+iph=vph/r
+il=sqrt(3)*iph
+p=sqrt(3)*vl*il*cos(t)
+disp("Watts",polar(p),"Power taken is")
+i=10
+p=2*i*i*r
+disp("Watts",polar(p),"Power taken after diconnecting one resistor is") \ No newline at end of file
diff --git a/343/CH3/EX3.16/ex3_16.sce b/343/CH3/EX3.16/ex3_16.sce
new file mode 100755
index 000000000..c20dd0c99
--- /dev/null
+++ b/343/CH3/EX3.16/ex3_16.sce
@@ -0,0 +1,15 @@
+clc
+w1=500 //Assigning values to parameters
+w2=2500
+p=w1+w2
+t=atan(sqrt(3)*(w2-w1)/(w1+w2))
+pf=cos(t)
+disp("Watts",p,"Total Power supplied is")
+disp(pf,"Power factor is")
+w2=2500
+w1=-500
+p=w1+w2
+t=atan(sqrt(3)*(w2-w1)/(w1+w2))
+pf=cos(t)
+disp("Watts",p,"Total Power supplied after reversing the connections to the current coil is")
+disp(pf,"Power factor after reversing the connections to the current coil is") \ No newline at end of file
diff --git a/343/CH3/EX3.17/ex3_17.sce b/343/CH3/EX3.17/ex3_17.sce
new file mode 100755
index 000000000..d9e380143
--- /dev/null
+++ b/343/CH3/EX3.17/ex3_17.sce
@@ -0,0 +1,10 @@
+clc
+w1=3000 //Assigning values to parameters
+w2=5000
+t=atan(sqrt(3)*(w2-w1)/(w1+w2))
+pf=cos(t)
+p=w1+w2
+il=p/(sqrt(3)*vl*cos(t))
+disp("Watts",p,"Total Power supplied is")
+disp(pf,"Power factor is")
+disp("Amperes",il,"The line current is") \ No newline at end of file
diff --git a/343/CH3/EX3.18/ex3_18.sce b/343/CH3/EX3.18/ex3_18.sce
new file mode 100755
index 000000000..a4d1463d8
--- /dev/null
+++ b/343/CH3/EX3.18/ex3_18.sce
@@ -0,0 +1,11 @@
+clc
+w1=-1000 //Assigning values to parameters
+w2=3000
+vl=400
+t=atan(sqrt(3)*(w2-w1)/(w1+w2))
+pf=cos(t)
+p=w1+w2
+il=p/(sqrt(3)*vl*cos(t))
+disp("Watts",p,"Total Power supplied is")
+disp(pf,"Power factor is")
+disp("Amperes",il,"The line current is") \ No newline at end of file
diff --git a/343/CH3/EX3.19/ex3_19.sce b/343/CH3/EX3.19/ex3_19.sce
new file mode 100755
index 000000000..2e5f23266
--- /dev/null
+++ b/343/CH3/EX3.19/ex3_19.sce
@@ -0,0 +1,12 @@
+clc
+w1=100000 //Assigning values to parameters
+w2=300000
+vl=2000
+n=0.9
+t=atan(sqrt(3)*(w2-w1)/(w1+w2))
+pf=cos(t)
+p=w1+w2
+il=p/(sqrt(3)*vl*cos(t))
+disp("Watts",p,"Total Power supplied is")
+disp(pf,"Power factor is")
+disp("Amperes",il,"The line current is") \ No newline at end of file
diff --git a/343/CH3/EX3.2/ex3_2.sce b/343/CH3/EX3.2/ex3_2.sce
new file mode 100755
index 000000000..b02ba9486
--- /dev/null
+++ b/343/CH3/EX3.2/ex3_2.sce
@@ -0,0 +1,19 @@
+clc
+f=50 //Assigning values to parameters
+rph=8
+l=0.02
+xl=2*%pi*f*l
+vl=230
+f=50
+vph=vl/sqrt(3)
+zph=8+%i*6.28
+[r,t]=polar(zph)
+iph=vph/r
+il=iph
+p=sqrt(3)*vl*il*cos(t)
+q=sqrt(3)*vl*il*sin(t)
+s=sqrt(3)*vl*il
+disp("Amperes",il,"The line current is")
+disp("Watts",polar(p),"The total Power absorbed is")
+disp("VAR",polar(q),"The reactive volt amperes is")
+disp("Volt Ampere",polar(s),"The Volt amperes is") \ No newline at end of file
diff --git a/343/CH3/EX3.20/ex3_20.sce b/343/CH3/EX3.20/ex3_20.sce
new file mode 100755
index 000000000..9219d030a
--- /dev/null
+++ b/343/CH3/EX3.20/ex3_20.sce
@@ -0,0 +1,13 @@
+clc
+vl=220 //Assigning values to parameters
+il=38
+n=0.88
+p=11200
+ip=p/n
+t=acosd(ip/(sqrt(3)*vl*il))
+pf=cosd(t)
+w2=vl*il*cosd(30-t)
+w1=vl*il*cosd(30+t)
+disp("Watts",w2,"The wattmeter reading is")
+disp("Watts",w1,"The wattmeter reading is")
+disp(pf,"Power factor is") \ No newline at end of file
diff --git a/343/CH3/EX3.21/ex3_21.sce b/343/CH3/EX3.21/ex3_21.sce
new file mode 100755
index 000000000..03720073d
--- /dev/null
+++ b/343/CH3/EX3.21/ex3_21.sce
@@ -0,0 +1,6 @@
+clc
+w1=1 //Assigning values to parameters
+w2=2*w1
+t=atan(sqrt(3)*(w2-w1)/(w1+w2))
+pf=cos(t)
+disp(pf,"Power factor is") \ No newline at end of file
diff --git a/343/CH3/EX3.3/ex3_3.sce b/343/CH3/EX3.3/ex3_3.sce
new file mode 100755
index 000000000..72de42414
--- /dev/null
+++ b/343/CH3/EX3.3/ex3_3.sce
@@ -0,0 +1,15 @@
+clc;
+Vl=230; //Assigning values to parameters
+f=50;
+Rph=15;
+L=0.03;
+Xl=2*%pi*f*L;
+Zph=15+%i*9.42;
+[r,t]=polar(Zph)
+Vph=Vl;
+Iph=Vph/r;
+Il=sqrt(3)*Iph;
+P=sqrt(3)*Vl*Il*cos(t);
+disp("Amperes",Iph,"Phase current");
+disp("Amperes",Il,"Line current");
+disp("Watts",polar(P),"Power absorbed"); \ No newline at end of file
diff --git a/343/CH3/EX3.4/ex3_4.sce b/343/CH3/EX3.4/ex3_4.sce
new file mode 100755
index 000000000..fa09dd968
--- /dev/null
+++ b/343/CH3/EX3.4/ex3_4.sce
@@ -0,0 +1,14 @@
+clc
+f=50 //assigning values to the parameters
+xc=200
+vph=400
+vl=vph
+zph=14.151-%i*200
+[r,t]=polar(zph)
+iph=vph/zph
+il=sqrt(3)*iph
+p=sqrt(3)*vl*il*cos(t)
+pwr=vph*iph*cos(t)
+c=1/(2*%pi*f*xc)
+disp("Watts",polar(pwr),"power consumed in each branch of delta is")
+disp("Farads",c,"capacitive reactance is") \ No newline at end of file
diff --git a/343/CH3/EX3.5/ex3_5.sce b/343/CH3/EX3.5/ex3_5.sce
new file mode 100755
index 000000000..a4c6d55f7
--- /dev/null
+++ b/343/CH3/EX3.5/ex3_5.sce
@@ -0,0 +1,25 @@
+clc
+l=50 //Assigning values to parameters
+w=800
+c=50
+xl=w*l
+xc=1/(w*c)
+z1=0+%i*40
+z2=50
+z3=0-%i*25
+zph=z1+z2*z3/(z2+z3)
+[r,t]=polar(zph)
+vl=550
+vph=vl
+iph=vph/zph
+il=sqrt(3)*iph
+p=sqrt(3)*vl*il*cos(t)
+pf=cos(t)
+q=sqrt(3)*vl*il*sin(t)
+s=sqrt(3)*vl*il
+disp("Amperes",polar(iph),"The phase current is")
+disp("Amperes",polar(il),"The line current is")
+disp("watts",polar(p),"The power drawn is")
+disp(polar(pf),"The power factor is")
+disp("watts",polar(q),"The reactive power is")
+disp("KVA",polar(s),"The kva rating of load is") \ No newline at end of file
diff --git a/343/CH3/EX3.7/ex3_7.sce b/343/CH3/EX3.7/ex3_7.sce
new file mode 100755
index 000000000..40ab2377f
--- /dev/null
+++ b/343/CH3/EX3.7/ex3_7.sce
@@ -0,0 +1,15 @@
+clc
+p=10000 //Assigning values to parameters
+t=acos(0.6)
+vl=440
+vph=vl
+il=p/(sqrt(3)*vl*cos(t))
+iph=il/sqrt(3)
+zph=vph/iph
+zph1=20.9-%i*27.87
+[res]=real(zph1)
+[xc]=abs(imag(zph1))
+q=sqrt(3)*vl*il*sin(t)
+disp("ohms",res,"The resistance value of circuit element is")
+disp("ohms",xc,"The capacitive value of circuit element is")
+disp("VAR",q,"The reactive volt-ampere") \ No newline at end of file
diff --git a/343/CH3/EX3.8/ex3_8.sce b/343/CH3/EX3.8/ex3_8.sce
new file mode 100755
index 000000000..01587bfa6
--- /dev/null
+++ b/343/CH3/EX3.8/ex3_8.sce
@@ -0,0 +1,15 @@
+clc
+f=50 //Assigning values to parameters
+vl=440
+p=1500
+t=acos(0.2)
+vph=vl/sqrt(3)
+il=p/(sqrt(3)*vl*p*cos(t))
+iph=il
+zph=vph/iph
+zph1=5.17+%i*25.3
+[res]=real(zph1)
+[xl]=imag(zph1)
+l=xl/(2*%pi*f)
+disp("ohms",res,"The resistive circuit constant is")
+disp("ohms",l,"The inductive circuit constant is") \ No newline at end of file
diff --git a/343/CH3/EX3.9/ex3_9.sce b/343/CH3/EX3.9/ex3_9.sce
new file mode 100755
index 000000000..24451208c
--- /dev/null
+++ b/343/CH3/EX3.9/ex3_9.sce
@@ -0,0 +1,16 @@
+clc
+p=100000 //Assigning values to parameters
+il=80
+vl=1100
+f=50
+vph=vl/sqrt(3)
+iph=il
+zph=vph/iph
+t=acosd(p/(sqrt(3)*vl*il))
+zph1=5.21-%i*6
+[r]=real(zph1)
+[xc]=abs(imag(zph1))
+c=1/(2*%pi*f*xc)
+disp("ohms",r,"The resistive circuit constant is")
+disp("ohms",xc,"The capacitive circuit constant is")
+disp("farads",c,"The capacitance is") \ No newline at end of file
generated by cgit (git 2.34.1) at 2025-03-12 16:58:50 +0000