summaryrefslogtreecommitdiff
path: root/2078/CH10
diff options
context:
space:
mode:
Diffstat (limited to '2078/CH10')
-rwxr-xr-x2078/CH10/EX10.1/Example10_1.sce10
-rwxr-xr-x2078/CH10/EX10.10/Example10_10.sce16
-rwxr-xr-x2078/CH10/EX10.11/Example10_11.sce21
-rwxr-xr-x2078/CH10/EX10.12/Example10_12.sce18
-rwxr-xr-x2078/CH10/EX10.13/Example10_13.sce16
-rwxr-xr-x2078/CH10/EX10.14/Example10_14.sce18
-rwxr-xr-x2078/CH10/EX10.15/Example10_15.sce31
-rwxr-xr-x2078/CH10/EX10.16/Example10_16.sce29
-rwxr-xr-x2078/CH10/EX10.2/Example10_2.sce15
-rwxr-xr-x2078/CH10/EX10.3/Example10_3.sce21
-rwxr-xr-x2078/CH10/EX10.4/Example10_4.sce18
-rwxr-xr-x2078/CH10/EX10.5/Example10_5.sce17
-rwxr-xr-x2078/CH10/EX10.6/Example10_6.sce21
-rwxr-xr-x2078/CH10/EX10.7/Example10_7.sce19
-rwxr-xr-x2078/CH10/EX10.8/Example10_8.sce19
-rwxr-xr-x2078/CH10/EX10.9/Example10_9.sce24
16 files changed, 313 insertions, 0 deletions
diff --git a/2078/CH10/EX10.1/Example10_1.sce b/2078/CH10/EX10.1/Example10_1.sce
new file mode 100755
index 000000000..792de019d
--- /dev/null
+++ b/2078/CH10/EX10.1/Example10_1.sce
@@ -0,0 +1,10 @@
+//Exa 10.1
+clc;
+clear;
+close;
+//Given data :
+L=200;//m
+w=0.7;//kg
+T=1400;//kg
+S=w*L^2/(8*T);//,m
+disp(S,"maximum sag(m) :");
diff --git a/2078/CH10/EX10.10/Example10_10.sce b/2078/CH10/EX10.10/Example10_10.sce
new file mode 100755
index 000000000..10d3502e8
--- /dev/null
+++ b/2078/CH10/EX10.10/Example10_10.sce
@@ -0,0 +1,16 @@
+//Exa 10.10
+clc;
+clear;
+close;
+//Given data :
+wc=0.35;//kg/m
+stress=800;//kg/cm^2
+L=160;//m
+SF=2;//safety factor
+h=70-65;//m
+T=stress/SF;//kg
+x=L/2+T*h/(wc*L);//m
+disp(x,"Distance of lowest point(m)");
+S1=wc*x^2/SF/T;//max sag in air
+xmin=70-S1;//m
+disp(xmin,"minimum point of catenary above the ground(m)");
diff --git a/2078/CH10/EX10.11/Example10_11.sce b/2078/CH10/EX10.11/Example10_11.sce
new file mode 100755
index 000000000..696bc1296
--- /dev/null
+++ b/2078/CH10/EX10.11/Example10_11.sce
@@ -0,0 +1,21 @@
+//Exa 10.11
+clc;
+clear;
+close;
+//Given data :
+L=200;//m
+h=10;//m
+D=2;//cm
+wc=2.3;//kg/m
+Pw=57.5;//kg/m^2(wind pressure)
+SF=4;//safety factor
+stress=4220;//kg/cm^2
+w_w=Pw*D*10^-2;//kg
+wr=sqrt(wc^2+w_w^2);//kg
+f=stress/SF;//kg/cm^2
+T=f*%pi/4*D^2;//kg
+x=L/2-T*h/(wr*L);//m
+S1=wr*x^2/2/T;//max sag in air
+disp(S1,"Slant sag(m)");
+Sdash=wc*x^2/2/T;//vertical sag
+disp(Sdash,"Vertical Sag(meter)");
diff --git a/2078/CH10/EX10.12/Example10_12.sce b/2078/CH10/EX10.12/Example10_12.sce
new file mode 100755
index 000000000..b685b3f48
--- /dev/null
+++ b/2078/CH10/EX10.12/Example10_12.sce
@@ -0,0 +1,18 @@
+//Exa 10.12
+clc;
+clear;
+close;
+//Given data :
+wc=1.925;//kg/m
+A=2.2;//cm^2
+f=8000;//kg/cm^2
+L=600;//m
+h=15;//m
+D=2;//cm
+SF=5;//safety factor
+wi=1;//kg(load)
+w=wi+wc;//kg
+T=f*A/SF;//kg
+x=L/2-T*h/(w*L);//m
+S2=w*(L-x)^2/2/T;//m
+disp(S2,"Vertical Sag(meter)");
diff --git a/2078/CH10/EX10.13/Example10_13.sce b/2078/CH10/EX10.13/Example10_13.sce
new file mode 100755
index 000000000..803a054aa
--- /dev/null
+++ b/2078/CH10/EX10.13/Example10_13.sce
@@ -0,0 +1,16 @@
+//Exa 10.13
+clc;
+clear;
+close;
+//Given data :
+h=80-50;//m
+L=300;//m
+T=2000;//kg
+w=0.844;//kg/m
+x=L/2-T*h/(w*L);//m
+d_PO=L/2-x;//m
+d_BO=L-x;//m
+Smid=w*(L/2-x)^2/2/T;//m
+S2=w*(L-x)^2/2/T;//m
+Point_P=S2-Smid;//m
+disp("Mid point P is "+string(Point_P)+" meter below point B or "+string(80-Point_P)+" meter above the water level.");
diff --git a/2078/CH10/EX10.14/Example10_14.sce b/2078/CH10/EX10.14/Example10_14.sce
new file mode 100755
index 000000000..493294d3c
--- /dev/null
+++ b/2078/CH10/EX10.14/Example10_14.sce
@@ -0,0 +1,18 @@
+//Exa 10.14
+clc;
+clear;
+close;
+//Given data :
+S1=25;//m
+S2=75;//m
+Point_P=45;//m
+L1=250;//m
+L2=125;//m(mid point)
+w=0.7;//kg/m
+h1=S2-S1;//m(for points A & B)
+h2=Point_P-S1;//m(for points A & B)
+//h1=w*L1/2/T*[L1-2*x]
+//h2=w*L2/2/T*[L2-2*x]
+x=(L1-h1/h2/L1*L2*L2)/(-h1/h2/L1*L2*2+2);//m
+T=(L1-2*x)/(h1/w/L1*2);//kg
+disp(T,"Stringing Tension(kg)");
diff --git a/2078/CH10/EX10.15/Example10_15.sce b/2078/CH10/EX10.15/Example10_15.sce
new file mode 100755
index 000000000..56d2a9c19
--- /dev/null
+++ b/2078/CH10/EX10.15/Example10_15.sce
@@ -0,0 +1,31 @@
+//Exa 10.15
+clc;
+clear;
+close;
+//Given data :
+L=300;//m
+slope=1/20;
+w=0.80;//kg/m
+hl=30;//m
+T0=1500;//kg
+CD=L;//m
+tan_alfa=slope;
+ED=CD*tan_alfa;//m
+AC=hl;//m
+BE=hl;//m
+BD=BE+ED;//m
+//S1=w*x1^2/2/T0;//m
+//S2=w*(L-x1)^2/2/T0;//m
+h=15;//m
+ED=h;//m
+x1=L/2-T0*h/w/L;//m
+S1=w*x1^2/2/T0;//m
+S2=w*(L-x1)^2/2/T0;//m
+OG=AC-S1-x1*tan_alfa;//m
+Clearance=OG;//m
+disp(Clearance,"Clearance of the lowest point from ground(m)");
+//y=x*tan_alfa-OG;//m
+//C1=w*x^2/2/T0-(x/20-OG)
+x=T0/20/w;//m(Byy putting dC1/dx=0)
+C1=w*x^2/2/T0-(x/20-OG);//m
+disp(C1,"Minimum clearance(m)");
diff --git a/2078/CH10/EX10.16/Example10_16.sce b/2078/CH10/EX10.16/Example10_16.sce
new file mode 100755
index 000000000..1df3676d8
--- /dev/null
+++ b/2078/CH10/EX10.16/Example10_16.sce
@@ -0,0 +1,29 @@
+//Exa 10.16
+clc;
+clear;
+close;
+//Given data :
+L=250;//m
+D=19.5;//mm
+A=2.25*10^-4;//m^2
+wc=0.85;//kg/m
+t1=35;//degree C
+t2=5;//degree C
+Pw=38.5;//kg/m^2
+alfa=18.44*10^-6;//per degree C
+E=9320;//kg/mm^2
+E=9320*10^6;//kg/m^2
+Breaking_Load=8000;//kg
+SF=2;//Safety factor
+T1=Breaking_Load/SF;//kg
+f1=T1/A;//kg/m^2
+w_w=Pw*D*10^-2;//kg
+w1=sqrt(wc^2+w_w^2);//kg
+w2=wc;
+//f2^2*[(f2-f1)+w1*L^2*E/24/f1^2/A^2+(t2-t1)*E]=w2*L^2*E/24/A^2
+//f2^3-f2^2*f1-w2*L^2*E/24/A^2=0
+P=[1 -1.0674*10^7 0 -3463.84*10^17];
+f2=roots(P);
+f2=f2(1);//kg/m^2
+S=w2*L^2/8/f2/A;//m
+disp(S,"Sag at erection(m)");
diff --git a/2078/CH10/EX10.2/Example10_2.sce b/2078/CH10/EX10.2/Example10_2.sce
new file mode 100755
index 000000000..0c6437691
--- /dev/null
+++ b/2078/CH10/EX10.2/Example10_2.sce
@@ -0,0 +1,15 @@
+//Exa 10.2
+clc;
+clear;
+close;
+//Given data :
+W=680;//kg/km
+L=260;//m
+U_strength=3100;//kg
+SF=2;//safety factor
+Clearance=10;//m
+T=U_strength/SF;//kg
+w=W/1000;//kg
+S=w*L^2/(8*T);//,m
+h=Clearance+S;//m
+disp(h,"Height above the ground(m) :");
diff --git a/2078/CH10/EX10.3/Example10_3.sce b/2078/CH10/EX10.3/Example10_3.sce
new file mode 100755
index 000000000..dc646fe54
--- /dev/null
+++ b/2078/CH10/EX10.3/Example10_3.sce
@@ -0,0 +1,21 @@
+//Exa 10.3
+clc;
+clear;
+close;
+//Given data :
+w=700/1000;//kg/m
+L=300;//m
+Tmax=3500;//kg
+
+S_T0=w*L^2/8;//,m
+//Tmax=T0+w*S
+//T0^2-T0*Tmax-w*S_T0=0
+polynomial=[1 -Tmax w*S_T0];
+T0=roots(polynomial);//kg
+T0=T0(1);//+ve sign taken
+disp(T0,"Horizontal component of tension in kg is : ");
+S=S_T0/T0;//m
+disp(S,"Maximum sag in m : ");
+y=S/2;//m
+x=sqrt(2*y*T0/w);//m
+disp(x,"Sag will be half at the point where x coordinate(in m) will be : ");
diff --git a/2078/CH10/EX10.4/Example10_4.sce b/2078/CH10/EX10.4/Example10_4.sce
new file mode 100755
index 000000000..42c54883d
--- /dev/null
+++ b/2078/CH10/EX10.4/Example10_4.sce
@@ -0,0 +1,18 @@
+//Exa 10.4
+clc;
+clear;
+close;
+//Given data :
+L=150;//m
+wc=1;//kg
+A=1.25;//cm^2
+U_stress=4200;//kg/cm^2
+Pw=100;//kg/m^2(Wind pressure)
+SF=4;//factor of safety
+W_stress=U_stress/SF;//kg/cm^2
+T=W_stress*A;//kg
+d=sqrt(A/(%pi/4));//cm
+w_w=Pw*d*10^-2;//kg
+wr=sqrt(wc^2+w_w^2);//kg
+S=wr*L^2/8/T;//m
+disp(S,"Maximum sag(m)");
diff --git a/2078/CH10/EX10.5/Example10_5.sce b/2078/CH10/EX10.5/Example10_5.sce
new file mode 100755
index 000000000..b6e78b603
--- /dev/null
+++ b/2078/CH10/EX10.5/Example10_5.sce
@@ -0,0 +1,17 @@
+//Exa 10.5
+clc;
+clear;
+close;
+//Given data :
+L=160;//m
+d=0.95;//cm
+wc=0.65;//kg/m
+U_stress=4250;//kg/cm^2
+Pw=40;//kg/m^2(Wind pressure)
+SF=5;//factor of safety
+W_stress=U_stress/SF;//kg/cm^2
+T=W_stress*%pi/4*d^2;//kg
+w_w=Pw*d*10^-2;//kg
+wr=sqrt(wc^2+w_w^2);//kg
+S=wr*L^2/8/T;//m
+disp(round(S),"Sag(meter)");
diff --git a/2078/CH10/EX10.6/Example10_6.sce b/2078/CH10/EX10.6/Example10_6.sce
new file mode 100755
index 000000000..54b74763d
--- /dev/null
+++ b/2078/CH10/EX10.6/Example10_6.sce
@@ -0,0 +1,21 @@
+//Exa 10.6
+clc;
+clear;
+close;
+//Given data :
+L=180;//m
+D=1.27;//cm
+Pw=33.7;//kg/m^2(Wind pressure)
+r=1.25;//cm
+wc=1.13;//kg/cm^2
+U_stress=4220;//kg/cm^2
+SF=5;//factor of safety
+W_stress=U_stress/SF;//kg/cm^2
+T=W_stress*%pi/4*D^2;//kg
+S=wc*L^2/8/T;//msag in air
+disp(S,"Sag in still air(meter)");
+w1=2890.3*r*10^-2*(D+r)*10^-2;//kg/m
+w_w=Pw*(D+2*r)*10^-2;//kg
+wr=sqrt((wc+w1)^2+w_w^2);//kg
+Smax=wr*L^2/8/T;//msag in air
+disp(Smax,"Maximum Sag(meter)");
diff --git a/2078/CH10/EX10.7/Example10_7.sce b/2078/CH10/EX10.7/Example10_7.sce
new file mode 100755
index 000000000..dbe599e13
--- /dev/null
+++ b/2078/CH10/EX10.7/Example10_7.sce
@@ -0,0 +1,19 @@
+//Exa 10.7
+clc;
+clear;
+close;
+//Given data :
+D=19.5;//mm
+wc=0.85;//kg/m
+L=275;//m
+Pw=39;//kg/m^2(Wind pressure)
+r=13;//mm
+U_stress=8000;//kg/cm^2
+SF=2;//factor of safety
+rho_i=910;//kg/m^3(density of ice)
+T=U_stress/SF;//kg
+wi=rho_i*%pi*r*10^-3*(D+r)*10^-3;//kg
+w_w=Pw*(D+2*r)*10^-3;//kg
+wr=sqrt((wc+wi)^2+w_w^2);//kg
+Smax=wr*L^2/8/T;//msag in air
+disp(Smax,"Maximum Sag(meter)");
diff --git a/2078/CH10/EX10.8/Example10_8.sce b/2078/CH10/EX10.8/Example10_8.sce
new file mode 100755
index 000000000..68328e709
--- /dev/null
+++ b/2078/CH10/EX10.8/Example10_8.sce
@@ -0,0 +1,19 @@
+//Exa 10.8
+clc;
+clear;
+close;
+//Given data :
+wc=1;//kg/m
+L=280;//m
+D=20;//mm
+r=10;//mm
+Pw=40;//kg/m^2(Wind pressure)
+rho_i=910;//kg/m^3(density of ice)
+U_stress=10000;//kg/cm^2
+SF=2;//factor of safety
+wi=rho_i*%pi*r*10^-3*(D+r)*10^-3;//kg
+w_w=Pw*(D+2*r)*10^-3;//kg
+wr=sqrt((wc+wi)^2+w_w^2);//kg(Resultant force per m length of conductor)
+T=U_stress/SF;//kg
+Smax=wr*L^2/8/T;//msag in air
+disp(Smax,"Maximum Sag(meter)");
diff --git a/2078/CH10/EX10.9/Example10_9.sce b/2078/CH10/EX10.9/Example10_9.sce
new file mode 100755
index 000000000..7087a20b6
--- /dev/null
+++ b/2078/CH10/EX10.9/Example10_9.sce
@@ -0,0 +1,24 @@
+//Exa 10.9
+clc;
+clear;
+close;
+//Given data :
+L=250;//m
+D=1.42;//cm
+wc=1.09;//kg/m
+Pw=37.8;//kg/m^2(Wind pressure)
+r=1.25;//cm
+Lis=1.43;//m(insulator string length)
+Clearance=7.62;//m
+rho_i=913.5;//kg/m^3(density of ice)
+stress=1050;//kg/cm^2
+T=stress*%pi/4*D^2;//kg
+wi=rho_i*%pi*r*10^-2*(D+r)*10^-2;//kg
+w_w=Pw*(D+2*r)*10^-2;//kg
+wr=sqrt((wc+wi)^2+w_w^2);//kg(Resultant force per m length of conductor)
+Smax=wr*L^2/8/T;//max sag in air
+disp(Smax,"Sag in inclined direction(meter)");
+Sdash=Smax*(wc+wi)/wr;//max sag in air
+disp(Sdash,"Sag in vertical direction(meter)");
+h=Clearance+Sdash+Lis;//m
+disp(h,"Height of lowest cross arm(m)");
generated by cgit (git 2.34.1) at 2024-12-20 08:22:23 +0000