diff options
Diffstat (limited to '1844')
47 files changed, 617 insertions, 0 deletions
diff --git a/1844/CH1/EX1.10/1Q10.sce b/1844/CH1/EX1.10/1Q10.sce new file mode 100644 index 000000000..1bf2645b4 --- /dev/null +++ b/1844/CH1/EX1.10/1Q10.sce @@ -0,0 +1,21 @@ +clc
+//Intialsing variables
+S=100 //Scale on map 1cm=100m on ground
+PMA= 20*30 // Plot area on map in sq cm
+OPA= PMA * S^2 // Area of plot in sq m
+printf ('Area of plot =%f sqm\n',OPA)
+
+//Top sheet
+S= 10^-6 // 1 sq km is represented by 1 sq cm
+TSR= OPA *S
+printf (' Represented by %f sqcm on Topo sheet\n',TSR)
+
+RFV=1/(100*100) // R.F of the sheet of village map
+RFT=1/(1*1000*100) //R.F of the scale of topo sheet
+
+printf (' R.F of the sheet of village map =%f\n',RFV)
+printf (' R.F of the scale of topo sheet =%f',RFT)
+
+
+
+
diff --git a/1844/CH1/EX1.3/1Q3.sce b/1844/CH1/EX1.3/1Q3.sce new file mode 100644 index 000000000..f076b99ef --- /dev/null +++ b/1844/CH1/EX1.3/1Q3.sce @@ -0,0 +1,11 @@ +clc
+//Intialisation of variables
+s=30
+LC=0.5 // since LC= 30 secs which means 0.5 min
+//Caluculation of variable
+n=s/LC
+x=n-1
+//Results
+printf (' %f',x)
+printf (' such primary divisions should be taken for the length of the vernier scale and then divided into %2f parts for a direct vernier',n )
+
diff --git a/1844/CH1/EX1.4/1Q4.sce b/1844/CH1/EX1.4/1Q4.sce new file mode 100644 index 000000000..d319d67a3 --- /dev/null +++ b/1844/CH1/EX1.4/1Q4.sce @@ -0,0 +1,10 @@ +clc
+//Intialisation of variables
+s=20 // s= 1/3 degree
+LC=1/3 // LC=20'
+n= s/LC
+x=n-1
+//Results
+printf (' %f',x)
+printf (' such primary divisions should be taken for the length of the vernier scale and then divided into %2f parts for a direct vernier',n )
+
diff --git a/1844/CH1/EX1.5/1Q5.sce b/1844/CH1/EX1.5/1Q5.sce new file mode 100644 index 000000000..3670982f4 --- /dev/null +++ b/1844/CH1/EX1.5/1Q5.sce @@ -0,0 +1,10 @@ +clc
+//Intialisation of variables
+s=10
+LC=1/6 // LC=10 seconds
+n= s/LC
+x=n-1
+//Results
+printf (' %f',x)
+printf (' such primary divisions should be taken for the length of the vernier scale and then divided into %2f parts for a direct vernier',n )
+
diff --git a/1844/CH1/EX1.6/1Q6.sce b/1844/CH1/EX1.6/1Q6.sce new file mode 100644 index 000000000..57112f2c4 --- /dev/null +++ b/1844/CH1/EX1.6/1Q6.sce @@ -0,0 +1,10 @@ +clc
+//Intialisation of variables
+s=1/4 //degree
+LC= 0.005 // degree
+n= s/LC
+x=n-1
+//Results
+printf (' %f',x)
+printf (' such primary divisions should be taken for the length of the vernier scale and then divided into %2f parts for a direct vernier',n )
+
diff --git a/1844/CH1/EX1.7/1Q7.sce b/1844/CH1/EX1.7/1Q7.sce new file mode 100644 index 000000000..bf1afe4f3 --- /dev/null +++ b/1844/CH1/EX1.7/1Q7.sce @@ -0,0 +1,8 @@ +clc
+//Intialisation of variables
+s=1 // in degrees
+LC = 1/6 // LC=10 minutes
+n= s/LC
+//Results
+printf ('Taken eleven spaces of the main scale and divide it into %f spaces of the vernier',n)
+
diff --git a/1844/CH1/EX1.8/1Q8.sce b/1844/CH1/EX1.8/1Q8.sce new file mode 100644 index 000000000..36552fd37 --- /dev/null +++ b/1844/CH1/EX1.8/1Q8.sce @@ -0,0 +1,9 @@ +clc
+//Intiallising varialbles
+L= 468 // Measured lenght in meters
+RFWS = 1/(20*100) // R.F of wrong scale used
+RFCS = 1/(40*100) // R.F of correct scale used
+//Calculations of variables
+CL= (RFWS/RFCS)*L // Corrected lenght in meters
+//Results
+printf (' Corrected Length =%f m',CL)
diff --git a/1844/CH1/EX1.9/1Q9.sce b/1844/CH1/EX1.9/1Q9.sce new file mode 100644 index 000000000..50ddde7eb --- /dev/null +++ b/1844/CH1/EX1.9/1Q9.sce @@ -0,0 +1,16 @@ +clc
+//Intialsing variables
+SF= 9.7/10 // Shrinkage factor=Present length /original length
+TRF=1/(10*100) // True scale RF
+//calculation of variables
+RFS= SF*TRF // RF of shrunk scale
+//Results
+printf ( 'R.F of shrunk scale =%2f\n',RFS)
+
+PA=100.2 // Present area in sq cm
+OA= (10/9.7)^2 * PA //Original area on plan in sq cm
+S=10 // scale of plane is 1cm= 10m
+//calculation of variables
+A= OA*S^2 // Area of survey
+//Results
+printf (' Area of the survey = %f sq m',A)
diff --git a/1844/CH2/EX2.1/2Q1.sce b/1844/CH2/EX2.1/2Q1.sce new file mode 100644 index 000000000..648e98e50 --- /dev/null +++ b/1844/CH2/EX2.1/2Q1.sce @@ -0,0 +1,23 @@ +clc
+//intialising values
+n=8
+RR1=2.322
+RR2=2.346
+RR3=2.352
+RR4=2.306
+RR5=2.312
+RR6=2.300
+RR7=2.306
+RR8=2.326
+
+M= (RR1+RR2+RR3+RR4+RR5+RR6+RR7+RR8)/n // Mean
+
+K= (RR1-M)^2+(RR2-M)^2+(RR3-M)^2+(RR4-M)^2+(RR5-M)^2+(RR6-M)^2+(RR7-M)^2+(RR8-M)^2 // Sum of squares of difference between mean and observations
+
+Es= 0.6745*sqrt(K/(n-1)) //Probable Error of single observatio
+Em= Es/sqrt(n) // Probable error of mean
+
+//Results
+
+printf('Es = +/- %f m\n',Es)
+printf(' Em = +/- %f m',Em)
diff --git a/1844/CH2/EX2.2/2Q2.sce b/1844/CH2/EX2.2/2Q2.sce new file mode 100644 index 000000000..b7095df5b --- /dev/null +++ b/1844/CH2/EX2.2/2Q2.sce @@ -0,0 +1,20 @@ +clc
+//Intialising variables
+x=4.88
+y=5.637
+x1=0.005 //Maximum error in x
+y1=0.0005 //Maximum error in y
+ex=0.0025 //Probable error in x
+ey=0.00025 //Probable error in y
+
+sn1= x+y + (x1+y1)
+sn2= x+y -(x1+y1)
+
+e= sqrt(ex^2+ey^2)
+sn3= x+y +e
+sn4=x+y - e
+printf('Hence the most probable error = +/- %f\n',e)
+printf('The most probable limits of quantity s are %f',sn3)
+printf(' and %f\n',sn4)
+printf('The maximum limits of quantity are %f',sn1)
+printf(' and %f',sn2)
diff --git a/1844/CH2/EX2.3/2Q3.sce b/1844/CH2/EX2.3/2Q3.sce new file mode 100644 index 000000000..7da2724f1 --- /dev/null +++ b/1844/CH2/EX2.3/2Q3.sce @@ -0,0 +1,20 @@ +clc
+//Intialising variables
+x=5.367
+y=4.88
+x1=0.005 //Maximum error in x
+y1=0.0005 //Maximum error in y
+ex=0.0025 //Probable error in x
+ey=0.00025 //Probable error in y
+
+sn1= x-y + (x1+y1)
+sn2= x-y -(x1+y1)
+
+e= sqrt(ex^2+ey^2)
+sn3= x-y +e
+sn4=x-y - e
+printf('Hence the most probable error = +/- %f\n',e)
+printf('The most probable limits of quantity s are %f',sn3)
+printf(' and %f\n',sn4)
+printf('The maximum limits of quantity are %f',sn1)
+printf(' and %f',sn2)
diff --git a/1844/CH2/EX2.4/2Q4.sce b/1844/CH2/EX2.4/2Q4.sce new file mode 100644 index 000000000..05b355bad --- /dev/null +++ b/1844/CH2/EX2.4/2Q4.sce @@ -0,0 +1,19 @@ +clc
+x=2.86
+y=8.34
+x1=0.005
+y1=0.005
+ex=0.0025
+ey=0.0025
+
+s1= y*x1 + x*y1
+
+es= x*y*sqrt((ex/x)^2 + (ey/y)^2)
+
+sn2= x*y +es
+sn3=x*y - es
+printf('The maximum error =%f\n',s1)
+printf(' Hence the most probable error = +/- %f\n',es)
+printf(' The most probable limits of quantity s are %f',sn2)
+printf(' and %f\n',sn3)
+
diff --git a/1844/CH2/EX2.5/2Q5.sce b/1844/CH2/EX2.5/2Q5.sce new file mode 100644 index 000000000..5a62c3a14 --- /dev/null +++ b/1844/CH2/EX2.5/2Q5.sce @@ -0,0 +1,19 @@ +clc
+x=23.9
+y=8.34
+x1=0.05
+y1=0.005
+ex=0.025
+ey=0.0025
+
+s1= x1/y + x*y1/y^2
+
+es= (x/y)*sqrt((ex/x)^2 + (ey/y)^2)
+
+sn2= x/y + es
+sn3= x/y - es
+
+printf('The maximum error =%f\n',s1)
+printf(' Hence the most probable error = +/- %f\n',es)
+printf(' The most probable limits of quantity s are %f',sn2)
+printf(' and %f\n',sn3)
diff --git a/1844/CH2/EX2.6/2Q6.sce b/1844/CH2/EX2.6/2Q6.sce new file mode 100644 index 000000000..0a66e171e --- /dev/null +++ b/1844/CH2/EX2.6/2Q6.sce @@ -0,0 +1,16 @@ +clc
+
+x=(4.86)
+n=2
+x1=0.005
+ex=0.0025
+s1=n*x^(n-1)*x1
+es=n*x^(n-1)*ex
+
+sn2= x^n + es
+sn3= x^n - es
+
+printf('The maximum error =%f\n',s1)
+printf(' Hence the most probable error = +/- %f\n',es)
+printf(' The most probable limits of quantity s are %f',sn2)
+printf(' and %f\n',sn3)
diff --git a/1844/CH2/EX2.7/2Q7.sce b/1844/CH2/EX2.7/2Q7.sce new file mode 100644 index 000000000..9e316cd1a --- /dev/null +++ b/1844/CH2/EX2.7/2Q7.sce @@ -0,0 +1,14 @@ +clc
+x=8.28
+y=4.36
+x1=0.005
+y1=0.005
+
+es=(x1/x)+ (y1/y)
+s1= x*y*es
+sn2= x*y + s1
+sn3=x*y - s1
+printf('The maximum error =%f\n',s1)
+printf(' The limits of quantity s are %f sq m',sn2)
+printf(' and %f sq m\n ',sn3)
+
diff --git a/1844/CH2/EX2.8/2Q8.sce b/1844/CH2/EX2.8/2Q8.sce new file mode 100644 index 000000000..74ae98edc --- /dev/null +++ b/1844/CH2/EX2.8/2Q8.sce @@ -0,0 +1,15 @@ +clc
+x=380
+y=260
+s=x*y
+s1=10
+
+x2=s1/(2*s)
+y2=x2
+
+x1=x*x2
+y1=y*y2
+
+printf('Hence precision ration of each line =%f\n',x2)
+printf(' Maximum error in 380 m length =%f m\n',x1)
+printf(' Maximum error in 260 m length =%f m',y1)
diff --git a/1844/CH3/EX3.1/3Q1.sce b/1844/CH3/EX3.1/3Q1.sce new file mode 100644 index 000000000..b538e3350 --- /dev/null +++ b/1844/CH3/EX3.1/3Q1.sce @@ -0,0 +1,8 @@ +clc
+//Intialising variables
+L=20 //Chain length in m
+L1= 20 + 10/100 // Incorrect length of chain in m
+l1=250 // Measures length in m
+l= l1 *(L1/L) // True length of line in m
+//Results
+printf('True length of the line = %f m',l)
diff --git a/1844/CH3/EX3.10/3Q10.sce b/1844/CH3/EX3.10/3Q10.sce new file mode 100644 index 000000000..effc293f6 --- /dev/null +++ b/1844/CH3/EX3.10/3Q10.sce @@ -0,0 +1,22 @@ +clc
+L=882.1 // in m
+a = 65*10^(-7)//in ()1 degree F)^-1
+Tm=65
+To=84
+Ct= L * a * (Tm-To)
+l1=100
+k1=2+1/6
+l2= 150
+k2=4+12/60
+l3=50
+k3=1+1/10
+l4=200
+k4=7+48/60
+l5=300
+k5=3
+l6=82.1
+k6=5+1/6
+Cs= l1*(1-cosd(k1))+l2*(1-cosd(k2))+l3*(1-cosd(k3))+l4*(1-cosd(k4))+l5*(1-cosd(k6))+l6*(1-cosd(k6))
+TC=Ct-Cs
+CL=L+TC
+printf('Corrected Length =%f m',CL)
diff --git a/1844/CH3/EX3.11/3Q11.sce b/1844/CH3/EX3.11/3Q11.sce new file mode 100644 index 000000000..74916c802 --- /dev/null +++ b/1844/CH3/EX3.11/3Q11.sce @@ -0,0 +1,11 @@ +clc
+A=.08 // area in sq cm
+n=3
+P=100 // in N
+V=A*100 // in cu cm
+L=10 //in m
+p=0.078 //Weigt=ht of 1 cu cm steel in N
+Wpm=V*p
+TW=V*p*L
+Cs= n*L*(TW)^2/(24*P^2)
+printf('Correction of sag = %f m',Cs)
diff --git a/1844/CH3/EX3.12/3Q12.sce b/1844/CH3/EX3.12/3Q12.sce new file mode 100644 index 000000000..30e4cf2ad --- /dev/null +++ b/1844/CH3/EX3.12/3Q12.sce @@ -0,0 +1,15 @@ +clc
+L=20 // in m
+a = 6.2*10^(-6)//in ()1 degree F)^-1
+Tm=80
+To=55
+Ct= L * a * (Tm-To)
+P=16
+Po=10
+W=0.8 // in kg
+E=2.109*10^6 // in kg/cm^2
+A= W/(20*100*7.86*10^(-3))
+Cp= (P-Po)*20/(A*E)
+Cs= L*(W^2)/(24*P^2)
+Tc=Ct+Cp-Cs
+printf('Total correction = %f m',Tc)
diff --git a/1844/CH3/EX3.13/3Q13.sce b/1844/CH3/EX3.13/3Q13.sce new file mode 100644 index 000000000..3c851931a --- /dev/null +++ b/1844/CH3/EX3.13/3Q13.sce @@ -0,0 +1,26 @@ +clc
+R= 6370 *10^3 // radius of earth in m
+D=7.86 *10^3 //Density of tape in kg/cm^3
+A=0.08 // Section of tape in sq cm
+E= 2*10^6 //Youngs modulus in kg/sq cm
+printf('a)Correction for standardisation nill\n')
+h=0.25
+L=30
+Cs=h^2/(2*L)
+printf(' b)Correction for slope =%f m (subtractive)\n',Cs)
+a=6*10^-6
+Tm=70
+To=60
+CT=L*a *(Tm-To)
+printf( ' c)Temperature correction =%f m (additive)\n',CT)
+P=10
+//doing only for Po=8
+Po=8
+Ct= (P-Po)*L/(A*E)
+printf( ' d)Tension correction =%f m (additive)\n',Ct)
+W= 0.06288*L
+Cs= L*W^2/(24*Po^2)
+printf(' e)Sag correction =%f m (additive)\n',Cs)
+Tc= -Cs+CT+Ct+Cs
+
+printf(' Final Correction = %f m',Tc)
diff --git a/1844/CH3/EX3.14/3Q14.sce b/1844/CH3/EX3.14/3Q14.sce new file mode 100644 index 000000000..56e9201f4 --- /dev/null +++ b/1844/CH3/EX3.14/3Q14.sce @@ -0,0 +1,7 @@ +clc
+P=100
+h=20.35 *10^-2
+l=20
+w= 8*P*h/l^2
+
+printf('Weight of the tape = %f N/m',w)
diff --git a/1844/CH3/EX3.2/3Q2.sce b/1844/CH3/EX3.2/3Q2.sce new file mode 100644 index 000000000..024abdf3e --- /dev/null +++ b/1844/CH3/EX3.2/3Q2.sce @@ -0,0 +1,17 @@ +clc
+//all are in m
+// with 20 m chain
+L=20
+L1= 20+0.10
+l1=1200
+l= l1 * (L1/L)
+
+printf('True length of line = %f m\n',l)
+//with 25m
+L=25
+l1=1212
+L1= l * (L/l1)
+
+x=25-L1
+
+printf (' Thus 25 m chain was %f m too short',x)
diff --git a/1844/CH3/EX3.3/3Q3.sce b/1844/CH3/EX3.3/3Q3.sce new file mode 100644 index 000000000..84ed750b7 --- /dev/null +++ b/1844/CH3/EX3.3/3Q3.sce @@ -0,0 +1,17 @@ +clc
+// all are in m
+// For first 1500 m
+e= (0+.10)/2
+L=20
+L1=L+e
+l1=1500
+k1= L1*l1/L
+//For next 1400 m
+e=(.10+.18)/2
+L=20
+L1=L+e
+l1=1400
+k2= L1*l1/L
+
+l=k1+k2
+printf('Total length %f m',l)
diff --git a/1844/CH3/EX3.4/3Q4.sce b/1844/CH3/EX3.4/3Q4.sce new file mode 100644 index 000000000..58d575b2d --- /dev/null +++ b/1844/CH3/EX3.4/3Q4.sce @@ -0,0 +1,8 @@ +clc
+D1=468
+L=20
+D=D1/L // in cm
+S=40 // actual scale of the plan is 1cm=40 m
+TD=D*S // in m
+
+printf('True distance between the points = %f m ',TD)
diff --git a/1844/CH3/EX3.5/3Q6.sce b/1844/CH3/EX3.5/3Q6.sce new file mode 100644 index 000000000..7bd88887a --- /dev/null +++ b/1844/CH3/EX3.5/3Q6.sce @@ -0,0 +1,13 @@ +clc
+//Present lenght of 9.7 cm is equivalent of 10 cm original length
+PA=100.2 // Present Area in sq cm
+OAp= (10/9.7)^2 *PA // original area on plot in sq cm
+S=10 // Scale on plan is 1cm= 10 m
+OAs=OAp* S^2
+printf('Original area of survey = %f sq m\n',OAs)
+L=20 // chain length in m
+L1=L-0.08 // original chain length in m
+
+CA= (L1/L)^2 *OAs
+
+printf(' True area of the survey = %f sq m',CA)
diff --git a/1844/CH3/EX3.6/3Q6.sce b/1844/CH3/EX3.6/3Q6.sce new file mode 100644 index 000000000..7bd88887a --- /dev/null +++ b/1844/CH3/EX3.6/3Q6.sce @@ -0,0 +1,13 @@ +clc
+//Present lenght of 9.7 cm is equivalent of 10 cm original length
+PA=100.2 // Present Area in sq cm
+OAp= (10/9.7)^2 *PA // original area on plot in sq cm
+S=10 // Scale on plan is 1cm= 10 m
+OAs=OAp* S^2
+printf('Original area of survey = %f sq m\n',OAs)
+L=20 // chain length in m
+L1=L-0.08 // original chain length in m
+
+CA= (L1/L)^2 *OAs
+
+printf(' True area of the survey = %f sq m',CA)
diff --git a/1844/CH3/EX3.7/3Q7.sce b/1844/CH3/EX3.7/3Q7.sce new file mode 100644 index 000000000..fa2081842 --- /dev/null +++ b/1844/CH3/EX3.7/3Q7.sce @@ -0,0 +1,13 @@ +clc
+k= 8 // slope between points in degrees
+l=428 //measured length in m
+D1=l*cosd(k)
+printf('a)Horizontal distance between the points =%f m\n',D1)
+
+h=62
+D2=sqrt(l^2-h^2)
+printf(' b)Horizontal distance between the points =%f m\n',D2)
+
+k= atan(0.25)
+D3=l*cos(k)
+printf(' c)Horizontal distance between the points =%f m',D3)
diff --git a/1844/CH3/EX3.8/3Q8.sce b/1844/CH3/EX3.8/3Q8.sce new file mode 100644 index 000000000..2a23e340d --- /dev/null +++ b/1844/CH3/EX3.8/3Q8.sce @@ -0,0 +1,12 @@ +clc
+s=10 //angle of slope in rad
+HA=100*(1/(cosd(s))-1) //Hypotenusal allowance in m
+HA1=HA*0.201
+printf('a)Hypotenusl allowance = %f \n',HA1 )
+
+k= atan(0.2)
+HA2=100*(1/(cos(k))-1)
+HA3=HA2*0.201
+printf(' b)Hypotenusl allowance = %f m',HA3 )
+
+
diff --git a/1844/CH3/EX3.9/3Q9.sce b/1844/CH3/EX3.9/3Q9.sce new file mode 100644 index 000000000..345b1c1f7 --- /dev/null +++ b/1844/CH3/EX3.9/3Q9.sce @@ -0,0 +1,6 @@ +clc
+e=1/10 // in link
+k= sqrt (100*e/1.5)
+printf('a)The slope in degrees is = %f\n',k)
+n=sqrt(50/e)
+printf(' b)Max slope is 1 in %f',n)
diff --git a/1844/CH4/EX4.1/4Q1.sce b/1844/CH4/EX4.1/4Q1.sce new file mode 100644 index 000000000..94d0e3438 --- /dev/null +++ b/1844/CH4/EX4.1/4Q1.sce @@ -0,0 +1,8 @@ +clc
+a= 5 // in degrees
+l= 20 // in cm
+s= 10 // scale 10m =1cm
+D1= l*sind(a)/s
+D2=l*(1-cosd(a))/s
+printf('a)Displacement parallel to the chain = %f cm\n',D1)
+printf(' b)Displacement perpendicular to the chain = %f cm',D2)
diff --git a/1844/CH4/EX4.2/4Q2.sce b/1844/CH4/EX4.2/4Q2.sce new file mode 100644 index 000000000..9d2524d34 --- /dev/null +++ b/1844/CH4/EX4.2/4Q2.sce @@ -0,0 +1,6 @@ +clc
+a= 2 // in degrees
+D= 0.025 // in cm
+s= 10 // scale 10m =1cm
+l= D*s/sind(a)
+printf('Length of offset = %f m ',l)
diff --git a/1844/CH4/EX4.3/4Q3.sce b/1844/CH4/EX4.3/4Q3.sce new file mode 100644 index 000000000..0a634b4db --- /dev/null +++ b/1844/CH4/EX4.3/4Q3.sce @@ -0,0 +1,8 @@ +clc
+// Displacement due to angular error= l sin a
+// Displacement due to linear error= l/r
+// these two are equal
+a=1.5
+r= 1/sind(a)
+printf('The offset should be measured with an accuracy of 1 in %i ',r+1)
+
diff --git a/1844/CH4/EX4.4/4Q4.sce b/1844/CH4/EX4.4/4Q4.sce new file mode 100644 index 000000000..16403aef8 --- /dev/null +++ b/1844/CH4/EX4.4/4Q4.sce @@ -0,0 +1,7 @@ +clc
+r=40
+s=20
+D=0.025
+l= D*r*s/sqrt(2)
+
+printf('Limiting length of offset = %f m',l)
diff --git a/1844/CH4/EX4.5/4Q5.sce b/1844/CH4/EX4.5/4Q5.sce new file mode 100644 index 000000000..2993c28ce --- /dev/null +++ b/1844/CH4/EX4.5/4Q5.sce @@ -0,0 +1,6 @@ +clc
+l=16
+s=40
+e=0.3
+a= asind ( sqrt((6.25*s^2/100^2)-e^2)/l)
+printf('a = %f degrees',a)
diff --git a/1844/CH4/EX4.6/4Q6.sce b/1844/CH4/EX4.6/4Q6.sce new file mode 100644 index 000000000..b2beeef69 --- /dev/null +++ b/1844/CH4/EX4.6/4Q6.sce @@ -0,0 +1,11 @@ +clc
+B= 90 //from diagram in degrees
+BC=200 // in m
+CD=BC/cosd(60) // in m from triangle BCD
+CE=BC/cosd(45) // in m from triangle BCE
+BE=BC*tand(45) // in m
+
+printf('CD = %f m\n',CD)
+printf(' CE = %f m\n',CE)
+printf(' BE = %f m',BE)
+
diff --git a/1844/CH4/EX4.7/4Q7.sce b/1844/CH4/EX4.7/4Q7.sce new file mode 100644 index 000000000..572c470ba --- /dev/null +++ b/1844/CH4/EX4.7/4Q7.sce @@ -0,0 +1,10 @@ +clc
+AC= 250 //in m
+AB= 200 // in m
+BD=125 // in m
+DC= 150 // in m
+CB=BD+DC // in m
+a= acos( (AC^2+CB^2-AB^2)/(2*AC*CB))
+AD=sqrt(AC^2+DC^2-2*AC*DC*cos(a))
+
+printf('AD = %f m',AD)
diff --git a/1844/CH4/EX4.8/4Q8.sce b/1844/CH4/EX4.8/4Q8.sce new file mode 100644 index 000000000..adcfb3fba --- /dev/null +++ b/1844/CH4/EX4.8/4Q8.sce @@ -0,0 +1,8 @@ +clc
+AB=25 // in m from triangle ABD
+AD=50 // in m from triangle ABD
+angleBDA= atand (AB/AD)
+angleBDC=320-230
+angleADC=angleBDC-angleBDA
+CA=AD*tand(angleADC) //from triangle ADC
+printf('CA = %f m',CA)
diff --git a/1844/CH4/EX4.9/4Q9.sce b/1844/CH4/EX4.9/4Q9.sce new file mode 100644 index 000000000..3f3f853f4 --- /dev/null +++ b/1844/CH4/EX4.9/4Q9.sce @@ -0,0 +1,8 @@ +clc
+BE=60 //in m
+GD=BE
+GH=40
+HB=80
+HD=GH+GD
+CB=48/0.4// by solving similar triangles CHD and CBE
+printf('CB = %f m',CB)
diff --git a/1844/CH5/EX5.1/1.sce b/1844/CH5/EX5.1/1.sce new file mode 100644 index 000000000..0478ddd81 --- /dev/null +++ b/1844/CH5/EX5.1/1.sce @@ -0,0 +1,7 @@ +clc
+// doing only one of the given
+// WCB to RB
+a= 22.5
+printf('a)R.B = N 22.5 E\n')
+//RB to WCB
+printf(' b)W.C.B = 12 degrees 24 min')
diff --git a/1844/CH5/EX5.2/2.sce b/1844/CH5/EX5.2/2.sce new file mode 100644 index 000000000..172cfd3f1 --- /dev/null +++ b/1844/CH5/EX5.2/2.sce @@ -0,0 +1,23 @@ +clc
+// done for WCB only
+FB=12.4
+if FB < 180 then BB= FB+180;
+else BB= FB-180;
+end
+printf('B.B of AB = %f\n',BB)
+FB=119.8
+if FB < 180 then BB= FB+180;
+else BB= FB-180;
+end
+printf(' B.B of BC = %f\n',BB)
+FB=266.5
+if FB < 180 then BB= FB+180;
+else BB= FB-180;
+end
+printf(' B.B of CD = %f\n',BB)
+FB=354.3
+if FB < 180 then BB= FB+180;
+else BB= FB-180;
+end
+printf(' B.B of DE = %f\n',BB)
+// for the RB values given just change the direction if north put south and if east put west
diff --git a/1844/CH5/EX5.3/3.sce b/1844/CH5/EX5.3/3.sce new file mode 100644 index 000000000..1bc59afe5 --- /dev/null +++ b/1844/CH5/EX5.3/3.sce @@ -0,0 +1,26 @@ +clc
+// for A
+Bp=300-180
+Bn=60.5
+IA=Bp-Bn
+printf('Interior angle A = %f\n',IA)
+//for B
+Bp=60.5+180
+Bn=122
+IA=Bp-Bn
+printf(' Interior angle B = %f\n',IA)
+// for C
+Bp=122+180
+Bn=46
+IA=Bp-Bn
+printf(' Interior angle C = %f\n',IA)
+//for D
+Bp=46+180
+Bn=205.5
+IA=Bp-Bn
+printf(' Interior angle D = %f\n',IA)
+//for E
+Bp=205.5-180
+Bn=300-360
+IA=Bp-Bn
+printf(' Interior angle E = %f\n',IA)
diff --git a/1844/CH5/EX5.4/4.sce b/1844/CH5/EX5.4/4.sce new file mode 100644 index 000000000..0b601a278 --- /dev/null +++ b/1844/CH5/EX5.4/4.sce @@ -0,0 +1,33 @@ +clc
+B=180+60
+I=140+1/6
+B1=B+I-180
+if B1>180 then B2= B1-180;
+ else B2=B1+180;
+end
+printf('Bearing of AD = %f\n',B1)
+printf(' Bearing of DA = %f\n',B2)
+B=B1
+I=69+2/6
+B1=B+I-180
+if B1>180 then B2= B1-180;
+ else B2=B1+180;
+end
+printf(' Bearing of DC = %f\n',B1)
+printf(' Bearing of CD = %f\n',B2)
+B=B1
+I=60+22/60
+B1=B+I+180
+if B1>180 then B2= B1-180;
+ else B2=B1+180;
+end
+printf(' Bearing of CB = %f\n',B1)
+printf(' Bearing of BC = %f\n',B2)
+B=B1
+I=90+8/60
+B1=B+I-180
+if B1>180 then B2= B1-180;
+ else B2=B1+180;
+end
+printf(' Bearing of BA = %f\n',B1)
+printf(' Bearing of AB = %f\n',B2)
diff --git a/1844/CH5/EX5.5/5.sce b/1844/CH5/EX5.5/5.sce new file mode 100644 index 000000000..b98892ae9 --- /dev/null +++ b/1844/CH5/EX5.5/5.sce @@ -0,0 +1,5 @@ +clc
+MB=48+24/60
+MD=5+38/60
+TB=MB+MD
+printf('True Bearing = %f',TB)
diff --git a/1844/CH5/EX5.6/6.sce b/1844/CH5/EX5.6/6.sce new file mode 100644 index 000000000..a9f2841c8 --- /dev/null +++ b/1844/CH5/EX5.6/6.sce @@ -0,0 +1,5 @@ +clc
+MB= 28.5
+MD=7.5
+TB=MB+MD
+printf('True bearing = S %f N',TB)
diff --git a/1844/CH5/EX5.7/7.sce b/1844/CH5/EX5.7/7.sce new file mode 100644 index 000000000..db40c75de --- /dev/null +++ b/1844/CH5/EX5.7/7.sce @@ -0,0 +1,8 @@ +clc
+MB=5.5
+MD=1
+PD=8.5
+TB=MB+MD
+MB=TB-PD
+k=360+MB
+printf('Magnetic Bearing = %f degrees',k)
diff --git a/1844/CH5/EX5.8/8.sce b/1844/CH5/EX5.8/8.sce new file mode 100644 index 000000000..066e6c3fc --- /dev/null +++ b/1844/CH5/EX5.8/8.sce @@ -0,0 +1,9 @@ +clc
+TB=180
+MB=184
+MD=TB-MB
+printf('Declination = %f E\n',MD)
+TB=360
+MB=350+2/6
+MD=TB-MB
+printf(' Declination = %f E',MD)
|