summaryrefslogtreecommitdiff
path: root/343/CH4
diff options
context:
space:
mode:
Diffstat (limited to '343/CH4')
-rwxr-xr-x343/CH4/EX4.1/ex4_1.sce11
-rwxr-xr-x343/CH4/EX4.10/ex4_10.sce5
-rwxr-xr-x343/CH4/EX4.11/ex4_11.sce11
-rwxr-xr-x343/CH4/EX4.13/ex4_13.sce18
-rwxr-xr-x343/CH4/EX4.14/ex4_14.sce17
-rwxr-xr-x343/CH4/EX4.15/ex4_15.sce11
-rwxr-xr-x343/CH4/EX4.16/ex4_16.sce13
-rwxr-xr-x343/CH4/EX4.17/ex4_17.sce19
-rwxr-xr-x343/CH4/EX4.18/ex4_18.sce12
-rwxr-xr-x343/CH4/EX4.2/ex4_2.sce13
-rwxr-xr-x343/CH4/EX4.20/ex4_20.sce14
-rwxr-xr-x343/CH4/EX4.21/ex4_21.sce23
-rwxr-xr-x343/CH4/EX4.22/ex4_22.sce18
-rwxr-xr-x343/CH4/EX4.23/ex4_23.sce22
-rwxr-xr-x343/CH4/EX4.24/ex4_24.sce14
-rwxr-xr-x343/CH4/EX4.25/ex4_25.sce11
-rwxr-xr-x343/CH4/EX4.26/ex4_26.sce6
-rwxr-xr-x343/CH4/EX4.27/ex4_27.sce22
-rwxr-xr-x343/CH4/EX4.28/ex4_28.sce18
-rwxr-xr-x343/CH4/EX4.29/ex4_29.sce24
-rwxr-xr-x343/CH4/EX4.3/ex4_3.sce9
-rwxr-xr-x343/CH4/EX4.30/ex4_30.sce8
-rwxr-xr-x343/CH4/EX4.4/ex4_4.sce14
-rwxr-xr-x343/CH4/EX4.5/ex4_5.sce13
-rwxr-xr-x343/CH4/EX4.6/ex4_6.sce5
-rwxr-xr-x343/CH4/EX4.9/ex4_9.sce6
26 files changed, 357 insertions, 0 deletions
diff --git a/343/CH4/EX4.1/ex4_1.sce b/343/CH4/EX4.1/ex4_1.sce
new file mode 100755
index 000000000..073691421
--- /dev/null
+++ b/343/CH4/EX4.1/ex4_1.sce
@@ -0,0 +1,11 @@
+clc
+n2=40 //Assigning values to parameters
+n1=600
+kva=50
+e1=2200
+e2=e1*n2/n1
+i1=kva*1000/e1
+i2=kva*1000/e2
+disp("Amperes",i1,"The primary full load current is");
+disp("Amperes",i2,"The secondary full load current is");
+disp("Volts",e2,"The secondary voltage at node is"); \ No newline at end of file
diff --git a/343/CH4/EX4.10/ex4_10.sce b/343/CH4/EX4.10/ex4_10.sce
new file mode 100755
index 000000000..e09115d57
--- /dev/null
+++ b/343/CH4/EX4.10/ex4_10.sce
@@ -0,0 +1,5 @@
+clc
+w7=1200 //Assigning values to parameters
+wf=w7/(0.75*0.75)
+w5=0.5*0.5*wf
+disp("Watts",w5,"The copper loss at 50% full-load condition is"); \ No newline at end of file
diff --git a/343/CH4/EX4.11/ex4_11.sce b/343/CH4/EX4.11/ex4_11.sce
new file mode 100755
index 000000000..96f7026bc
--- /dev/null
+++ b/343/CH4/EX4.11/ex4_11.sce
@@ -0,0 +1,11 @@
+clc;
+V=230; //Assigning values to parameters
+VA=350;
+loss=110;
+I0=VA/V;
+pf=loss/VA;
+Iw=I0*pf;
+Iu=sqrt(I0^2-Iw^2);
+disp("Amperes",Iw,"Iron loss component of no load current");
+disp("Amperes",Iu,"Magnatizing component of no load current");
+disp(pf,"no load power factor"); \ No newline at end of file
diff --git a/343/CH4/EX4.13/ex4_13.sce b/343/CH4/EX4.13/ex4_13.sce
new file mode 100755
index 000000000..26e3db537
--- /dev/null
+++ b/343/CH4/EX4.13/ex4_13.sce
@@ -0,0 +1,18 @@
+clc
+r1=0.2 //Assigning values to parameters
+x1=0.75
+r2=0.05
+x2=0.2
+pf=0.8
+e2=125
+e1=250
+t=acosd(0.8)
+k=e2/e1
+kva=5
+i2=kva*1000/e2
+r02=r2+k*k*r1
+x02=x2+k*k*x1
+pr1=(i2*r02*cosd(t)-i2*x02*sind(t))*100/e2
+v2=e2-(e2*pr1/100)
+disp(pr1,"The percentage regulation at full load 0.8 pf leading is");
+disp("Volts",v2,"The secondary terminal voltage is"); \ No newline at end of file
diff --git a/343/CH4/EX4.14/ex4_14.sce b/343/CH4/EX4.14/ex4_14.sce
new file mode 100755
index 000000000..bae71d041
--- /dev/null
+++ b/343/CH4/EX4.14/ex4_14.sce
@@ -0,0 +1,17 @@
+clc
+r1=2 //Assigning values to parameters
+r2=0.02
+wi=412
+pf=0.8
+x=1
+kva=50
+e1=2300
+e2=230
+i2=kva*1000/e2
+i1=kva*1000/e1
+wcf=(i1*i1*r1)+(i2*i2*r2)
+n1=x*kva*pf*100/((x*kva*pf)+(wi*0.001)+(x*x*wcf*0.001))
+x=0.5
+n2=x*kva*pf*100/((x*kva*pf)+(wi*0.001)+(x*x*wcf*0.001))
+disp("Percent",n1,"Efficiency at full node 0.8pf is")
+disp("Percent",n2,"Efficiency at half full node 0.8pf is") \ No newline at end of file
diff --git a/343/CH4/EX4.15/ex4_15.sce b/343/CH4/EX4.15/ex4_15.sce
new file mode 100755
index 000000000..81e15b730
--- /dev/null
+++ b/343/CH4/EX4.15/ex4_15.sce
@@ -0,0 +1,11 @@
+clc
+x=1 //Assigning values to parameters
+kva=25
+pf=0.8
+wi=0.35
+wcf=0.4
+n1=x*kva*pf*100/((x*kva*pf)+(wi*0.001)+(x*x*wcf*0.001))
+kva1=kva*(sqrt(wi/wcf))
+nm=kva1*pf*100/((kva1*pf)+2*wi)
+disp(kva1,"Load in KVA is")
+disp("Percent",nm,"Maximum Efficency is") \ No newline at end of file
diff --git a/343/CH4/EX4.16/ex4_16.sce b/343/CH4/EX4.16/ex4_16.sce
new file mode 100755
index 000000000..2177baddf
--- /dev/null
+++ b/343/CH4/EX4.16/ex4_16.sce
@@ -0,0 +1,13 @@
+clc
+x=1 //Assigning values to parameters
+kva=40
+pf=0.8
+wi=450
+wcf=850
+n1=x*kva*pf*100/((x*kva*pf)+(wi*0.001)+(x*x*wcf*0.001))
+x=sqrt(wi/wcf)
+n2=x*kva*pf*100/((x*kva*pf)+(2*wi*0.001))
+kva1=kva*sqrt(wi/wcf)
+disp("Percent",n1,"Efficiency at full node 0.8pf is")
+disp("Percent",n2,"Maximum Efficency is")
+disp(kva1,"Load in KVA at which maximum occurs is") \ No newline at end of file
diff --git a/343/CH4/EX4.17/ex4_17.sce b/343/CH4/EX4.17/ex4_17.sce
new file mode 100755
index 000000000..202152e89
--- /dev/null
+++ b/343/CH4/EX4.17/ex4_17.sce
@@ -0,0 +1,19 @@
+clc
+e1=2000 //Assigning values to parameters
+e2=200
+r1=2.3
+x1=4.2
+r2=0.025
+x2=0.04
+kva=20
+i1=kva*1000/e1
+i2=kva*1000/e2
+k=e2/e1
+r01=r1+r2/(k*k)
+x01=x1+x2/(k*k)
+r02=r2+k*k*r1
+x02=x2+k*k*x1
+disp("ohms",r01,"The equivalent primary resistance is")
+disp("ohms",x01,"The equivalent primary reactance is")
+disp("ohms",r02,"The equivalent Secondary resistance is")
+disp("ohms",x02,"The equivalent Secondary reactance is") \ No newline at end of file
diff --git a/343/CH4/EX4.18/ex4_18.sce b/343/CH4/EX4.18/ex4_18.sce
new file mode 100755
index 000000000..d7befddd8
--- /dev/null
+++ b/343/CH4/EX4.18/ex4_18.sce
@@ -0,0 +1,12 @@
+clc
+x=1 //Assigning values to parameters
+kva=20
+pf=0.8
+wi=450
+wcf=900
+n1=x*kva*pf*100/((x*kva*pf)+(wi*0.001)+(x*x*wcf*0.001))
+x=sqrt(wi/wcf)
+n2=x*kva*pf*100/((x*kva*pf)+(2*wi*0.001))
+disp("Percent',n1,"Efficiency at full node 0.8pf is")
+disp("Percent",n2,"Maximum Efficency is")
+disp(x,"Load at which maximum occurs is") \ No newline at end of file
diff --git a/343/CH4/EX4.2/ex4_2.sce b/343/CH4/EX4.2/ex4_2.sce
new file mode 100755
index 000000000..21af70818
--- /dev/null
+++ b/343/CH4/EX4.2/ex4_2.sce
@@ -0,0 +1,13 @@
+clc
+e1=3200 //Assigning values to parameters
+f=50
+bm=1.2
+e2=400
+n2=111
+kva=80
+n1=e1*n2/e2
+i2=kva*1000/e2
+a=e2/(4.44*f*n2*bm)
+disp(n1,"number of turns on primary windings is");
+disp("Amperes",i2,"The secondary full load current is");
+disp("meter square",a,"The cross-sectional area is"); \ No newline at end of file
diff --git a/343/CH4/EX4.20/ex4_20.sce b/343/CH4/EX4.20/ex4_20.sce
new file mode 100755
index 000000000..c048246fb
--- /dev/null
+++ b/343/CH4/EX4.20/ex4_20.sce
@@ -0,0 +1,14 @@
+clc
+nm=98 //Assigning values to parameters
+x=0.5
+kva=200
+pf=1
+wi=1000*((x*kva*pf*100/nm)/2-(x*kva*pf)/2)
+wcu=wi
+wcf=wcu/(0.5*0.5)
+n1=x*kva*pf*100/((x*kva*pf)+(wi*0.001)+(x*x*wcf*0.001))
+x=0.75
+n2=x*kva*pf*100/((x*kva*pf)+(wi*0.001)+(x*x*wcf*0.001))
+disp("Watts",wi,"The core loss is");
+disp(n1,"Efficiency at full node 0.8pf is")
+disp(n2,"Efficiency at 75% full node 0.8pf is") \ No newline at end of file
diff --git a/343/CH4/EX4.21/ex4_21.sce b/343/CH4/EX4.21/ex4_21.sce
new file mode 100755
index 000000000..0e44aae2d
--- /dev/null
+++ b/343/CH4/EX4.21/ex4_21.sce
@@ -0,0 +1,23 @@
+clc
+r1=0.3 //Assigning values to parameters
+r2=0.01
+x1=1.1
+x2=0.035
+kva=100
+v1=2200
+e1=v1
+n1=400
+n2=80
+k=n2/n1
+r01=r1+r2/(k*k)
+x01=x1+x2/(k*k)
+z01=sqrt(r01*r01+x01*x01)
+e2=k*e1
+i2=kva*1000/e2
+r02=k*k*r01
+x02=k*k*x01
+pr1=(i2*r02*cosd(t)-i2*x02*sind(t))*100/e2
+v2=e2-(e2*pr1/100)
+disp("ohms",z01,"The equivalent primary resistance is")
+disp(pr1,"The percentage voltage regulation at full load 0.8 pf leading is");
+disp("Volts",v2,"The secondary terminal voltage is")
diff --git a/343/CH4/EX4.22/ex4_22.sce b/343/CH4/EX4.22/ex4_22.sce
new file mode 100755
index 000000000..d69ddc142
--- /dev/null
+++ b/343/CH4/EX4.22/ex4_22.sce
@@ -0,0 +1,18 @@
+clc
+E2=20; //Assigning values to parameters
+E1=1000;
+kva=5;
+I2=kva*1000/E2;
+K=E2/E1;
+R01=4.4
+R02=K*K*R01;
+X01=8.98
+X02=K*K*X01;
+pf=0.8
+percentreg=(I2*R02*pf+I2*X02*sqrt(1-pf*pf))*100/E2;
+disp(percentreg,"Percentage maximum regulation")
+wi=90
+I1=kva*1000/E1
+Wcf=I1*I1*R01
+kvam=kva*sqrt(wi/Wcf)
+disp(kvam,"kva at maximum Efficency is") \ No newline at end of file
diff --git a/343/CH4/EX4.23/ex4_23.sce b/343/CH4/EX4.23/ex4_23.sce
new file mode 100755
index 000000000..a5e61889e
--- /dev/null
+++ b/343/CH4/EX4.23/ex4_23.sce
@@ -0,0 +1,22 @@
+clc
+v1=200 //Assigning values to parameters
+i0=0.7
+w=70
+k=400/200
+t=acosd(w/(v1*i0))
+iw=i0*cosd(t)
+iu=i0*sind(t)
+r0=v1/iw
+x0=v1/iu
+vsc=15
+i2=10
+w=85
+r02=w/(i2*i2)
+z02=vsc/i2
+x02=sqrt(z02*z02-r02*r02)
+r01=r02/(k*k)
+x01=x02/(k*k)
+e2=400
+i2=5*1000/(0.8*e2)
+v2=e2-i2*r02*cosd(t)-i2*x02*sind(t)
+disp("Volts",v2,"The secondary Voltage is") \ No newline at end of file
diff --git a/343/CH4/EX4.24/ex4_24.sce b/343/CH4/EX4.24/ex4_24.sce
new file mode 100755
index 000000000..d437ca845
--- /dev/null
+++ b/343/CH4/EX4.24/ex4_24.sce
@@ -0,0 +1,14 @@
+clc
+wi=1000 //Assigning values to parameters
+kva=50
+e1=2200
+ifl=kva*1000/e1
+x=1
+pf=0.8
+wcf=(ifl/20)*(ifl/20)*500
+n1=x*kva*pf*100/((x*kva*pf)+(wi*0.001)+(x*x*wcf*0.001))
+x=sqrt(wi/wcf)
+n2=x*kva*pf*100/((x*kva*pf)+(2*wi*0.001))
+disp(n1,"Efficiency at full node 0.8pf is")
+disp(n2,"Maximum Efficency is")
+disp(x,"Load at which maximum occurs is") \ No newline at end of file
diff --git a/343/CH4/EX4.25/ex4_25.sce b/343/CH4/EX4.25/ex4_25.sce
new file mode 100755
index 000000000..946decde7
--- /dev/null
+++ b/343/CH4/EX4.25/ex4_25.sce
@@ -0,0 +1,11 @@
+clc
+kva=5 //Assigning values to parameters
+e2=400
+r02=0.85
+x02=1.236
+i2f=kva*1000/e2
+t=acosd(0.8)
+pr1=(i2f*r02*cosd(t)+i2f*x02*sind(t))*100/e2
+pr2=(i2f*r02*cosd(t)-i2f*x02*sind(t))*100/e2
+disp(pr1,"The percentage regulation at full load 0.8 pf lagging is");
+disp(pr2,"The percentage regulation at full load 0.8 pf leading is"); \ No newline at end of file
diff --git a/343/CH4/EX4.26/ex4_26.sce b/343/CH4/EX4.26/ex4_26.sce
new file mode 100755
index 000000000..3df8f71fe
--- /dev/null
+++ b/343/CH4/EX4.26/ex4_26.sce
@@ -0,0 +1,6 @@
+clc
+cl=(10/12)*(10/12)*100 //Assigning values to parameters
+op=500*10*0.8
+il=80
+eff=op*100/(op+il+cl)
+disp(eff,"The efficiency is") \ No newline at end of file
diff --git a/343/CH4/EX4.27/ex4_27.sce b/343/CH4/EX4.27/ex4_27.sce
new file mode 100755
index 000000000..d1459b881
--- /dev/null
+++ b/343/CH4/EX4.27/ex4_27.sce
@@ -0,0 +1,22 @@
+clc
+kw=15 //Assigning values to parameters
+t=acosd(0.8)
+kva=kw/cosd(t)
+x=kva/25
+wcf=500
+cl1=0.75*0.75*wcf
+kw=20
+t=acosd(0.9)
+kva=kw/cosd(t)
+x=kva/25
+cl2=x*x*500
+kw=10
+t=acosd(0.9)
+kva=kw/cosd(t)
+x=kva/25
+cl3=x*x*500
+tec=cl1*6+cl2*10+cl3*4
+tei=400*24
+eo=330000
+n=eo*100/(eo+tei+tec)
+disp(n,"The efficiency is") \ No newline at end of file
diff --git a/343/CH4/EX4.28/ex4_28.sce b/343/CH4/EX4.28/ex4_28.sce
new file mode 100755
index 000000000..bf00fcb9c
--- /dev/null
+++ b/343/CH4/EX4.28/ex4_28.sce
@@ -0,0 +1,18 @@
+clc
+kw=400 //Assigning values to parameters
+pf=0.8
+kva=kw/pf
+cl1=4.5
+kw=300
+pf=0.75
+kva=kw/pf
+cl2=(kva/500)*(kva/500)*4.5
+kw=400
+pf=0.8
+kva=kw/pf
+cl3=(kva/500)*(kva/500)*4.5
+tec=cl1*6+cl2*10+cl3*4
+tei=84
+eo=5800
+n=eo*100/(eo+tei+tec)
+disp(n,"The efficiency is") \ No newline at end of file
diff --git a/343/CH4/EX4.29/ex4_29.sce b/343/CH4/EX4.29/ex4_29.sce
new file mode 100755
index 000000000..8515f209c
--- /dev/null
+++ b/343/CH4/EX4.29/ex4_29.sce
@@ -0,0 +1,24 @@
+clc
+nm=0.98 //Assigning values to parameters
+kva=15
+x=1
+pf=1
+wi=((x*kva*pf/nm)/2-(x*kva*pf)/2)
+wcu=wi
+kw=2
+pf=0.5
+kva=kw/pf
+cl1=(kva/15)*(kva/15)*wi
+kw=12
+pf=0.8
+kva=kw/pf
+cl2=0.153
+kw=18
+pf=0.9
+kva=kw/pf
+cl3=(kva/15)*(kva/15)*wi
+tec=cl1*12+cl2*6+cl3*6
+tei=3.672
+eo=204
+n=eo*100/(eo+tei+tec)
+disp(n,"The efficiency is") \ No newline at end of file
diff --git a/343/CH4/EX4.3/ex4_3.sce b/343/CH4/EX4.3/ex4_3.sce
new file mode 100755
index 000000000..adbef4f50
--- /dev/null
+++ b/343/CH4/EX4.3/ex4_3.sce
@@ -0,0 +1,9 @@
+clc
+e1=6000 //Assigning values to parameters
+f=50
+e2=250
+fm=0.06
+n1=e1/(4.44*f*fm)
+n2=e2/(4.44*f*fm)
+disp(n1,"number of turns on primary windings is");
+disp(n2,"number of turns on secondary windings is"); \ No newline at end of file
diff --git a/343/CH4/EX4.30/ex4_30.sce b/343/CH4/EX4.30/ex4_30.sce
new file mode 100755
index 000000000..43c9c2bf9
--- /dev/null
+++ b/343/CH4/EX4.30/ex4_30.sce
@@ -0,0 +1,8 @@
+clc
+cl1=1.5 //Assigning values to parameters
+cl2=0.5*0.5*cl1
+tec=cl1*3+cl2*4
+tei=36
+eo=500
+n=eo*100/(eo+tei+tec)
+disp(n,"The efficiency is") \ No newline at end of file
diff --git a/343/CH4/EX4.4/ex4_4.sce b/343/CH4/EX4.4/ex4_4.sce
new file mode 100755
index 000000000..141962771
--- /dev/null
+++ b/343/CH4/EX4.4/ex4_4.sce
@@ -0,0 +1,14 @@
+clc
+n2=50 //Assigning values to parameters
+n1=500
+kva=25
+e1=3000
+k=n2/n1
+i1=kva*1000/e1
+i2=i1/k
+e2=k*e1
+fm=e1/(4.44*f*n1)
+disp("Amperes",i1,"The primary full load current is");
+disp("Amperes",i2,"The secondary full load current is");
+disp("Volts",e2,"The secondary emf is");
+disp("Wb",fm,"The maximum flux is"); \ No newline at end of file
diff --git a/343/CH4/EX4.5/ex4_5.sce b/343/CH4/EX4.5/ex4_5.sce
new file mode 100755
index 000000000..d65314280
--- /dev/null
+++ b/343/CH4/EX4.5/ex4_5.sce
@@ -0,0 +1,13 @@
+clc
+e1=230 //Assigning values to parameters
+v1=e1
+i0=5
+t=acosd(0.25)
+n1=200
+f=50
+fm=e1/(4.44*f*n1)
+w1=v1*i0*cosd(t)
+iu=i0*sind(t)
+disp("Wb",fm,"The maximum flux is");
+disp("Watts",w1,"The core loss is");
+disp("Amperes",iu,"The maximum current is"); \ No newline at end of file
diff --git a/343/CH4/EX4.6/ex4_6.sce b/343/CH4/EX4.6/ex4_6.sce
new file mode 100755
index 000000000..5e923cfef
--- /dev/null
+++ b/343/CH4/EX4.6/ex4_6.sce
@@ -0,0 +1,5 @@
+clc
+k=0.25 //Assigning values to parameters
+sr=50
+pr=sr/(k*k)
+disp("ohms",pr,"The Secondary resistance is") \ No newline at end of file
diff --git a/343/CH4/EX4.9/ex4_9.sce b/343/CH4/EX4.9/ex4_9.sce
new file mode 100755
index 000000000..031967dbb
--- /dev/null
+++ b/343/CH4/EX4.9/ex4_9.sce
@@ -0,0 +1,6 @@
+clc
+wf=2500 //Assigning values to parameters
+w6=0.6*0.6*wf
+w5=0.5*0.5*wf
+disp("Watts",w6,"The copper loss at 60% full-load condition is");
+disp("Watts",w5,"The copper loss at 50% full-load conditionis"); \ No newline at end of file
generated by cgit (git 2.34.1) at 2025-03-12 10:22:37 +0000