diff options
Diffstat (limited to '3782')
121 files changed, 4012 insertions, 0 deletions
diff --git a/3782/CH1/EX1.1/Ex1_1.sce b/3782/CH1/EX1.1/Ex1_1.sce new file mode 100644 index 000000000..7ba2a87b2 --- /dev/null +++ b/3782/CH1/EX1.1/Ex1_1.sce @@ -0,0 +1,7 @@ + clear +l=20 //chain length +e=0.03 //error +l1=l+e //L' +ml=327 //measured length +truel=(l1/l)*(ml) //true length +printf("\n true length of line= %0.3f ",truel) diff --git a/3782/CH1/EX1.10/Ex1_10.sce b/3782/CH1/EX1.10/Ex1_10.sce new file mode 100644 index 000000000..af3e2089b --- /dev/null +++ b/3782/CH1/EX1.10/Ex1_10.sce @@ -0,0 +1,33 @@ + +clear +L=28 +t0=20 +p0=10 +pm=5 +tm=40 +a=0.02 +al=11/(1000000) +E=2.1*(1000000) +w1=470 +ml=680 +n=1 + +w=(470*28)/30 +w=w/1000 + +ct=al*L*(tm-t0) +printf("\n the temperature correction is %0.3f meters',ct) + +cp=(pm-p0)*L/(a*E) +printf("\n the pull correction is %0.3f meters',cp) + +cs=-L*w*w/(24*pm*pm*n*n) +printf("\n the sag correction is %0.3f meters',cs) + +e=ct+cp+cs +printf("\n the total correction is %0.3f meters',e) + +l1=L+e + +dis=(l1/L)*ml +printf("\n the correctt distance is %0.3f ",dis) diff --git a/3782/CH1/EX1.11/Ex1_11.sce b/3782/CH1/EX1.11/Ex1_11.sce new file mode 100644 index 000000000..e50c0d439 --- /dev/null +++ b/3782/CH1/EX1.11/Ex1_11.sce @@ -0,0 +1,22 @@ +clear +//ch-1, problems on obstacles in chaining, page-32,pb-1 + +// + +// + +printf("\n from fig p.1.1') +DE=87 +printf("\n DE") +EF=(87/(cos(50*(%pi/180)))) + +DF=87*(tan(50*(%pi/180))) + +EG=87/(cos(65*(%pi/180))) + + +printf("\n the value of EF is %0.3f meters',EF) + +printf("\n the value of DF is %0.3f meters',DF) + +printf("\n the value of EG is %0.3f meters',EG) diff --git a/3782/CH1/EX1.12/Ex1_12.sce b/3782/CH1/EX1.12/Ex1_12.sce new file mode 100644 index 000000000..169fe082d --- /dev/null +++ b/3782/CH1/EX1.12/Ex1_12.sce @@ -0,0 +1,15 @@ +clear +//ch-1 page-33, pb-12 +// + + +x=(380.0285/2.5754) + +PA=x +AQ=367-x +al=180-(36.45+86.55) +bt=86.35-40-35 + +TA=AQ*tan(46*(%pi/180)) + +printf("\n width of river is %0.3f meters',TA) diff --git a/3782/CH1/EX1.13/Ex1_13.sce b/3782/CH1/EX1.13/Ex1_13.sce new file mode 100644 index 000000000..f5ec3cb5a --- /dev/null +++ b/3782/CH1/EX1.13/Ex1_13.sce @@ -0,0 +1,19 @@ +clear +// cha-1 page-34 pb-3 + +// + +// + +x=(849.224)/2.6196 + + + +PA=x +AQ=517-x +al=78-33.67 +bt=180-(43.333+78) + +TA=AQ*tan(58.66*(%pi/180)) + +printf("\n width of river is %0.3f meters',TA) diff --git a/3782/CH1/EX1.14/Ex1_14.sce b/3782/CH1/EX1.14/Ex1_14.sce new file mode 100644 index 000000000..f60c49586 --- /dev/null +++ b/3782/CH1/EX1.14/Ex1_14.sce @@ -0,0 +1,19 @@ +//problem 14, pg35 +clear +// cha-1 page-34,35 pb-4 + +// + +// + +al=288.5-(48.5+180) +bt=90-48.5 +BAC=360-41.5 + +AC=40*(tan(60*(%pi/180))) + +A=207.8 + +C=A+AC + +printf("\n chainage of C is %0.3f meters',C) diff --git a/3782/CH1/EX1.15/Ex1_15.sce b/3782/CH1/EX1.15/Ex1_15.sce new file mode 100644 index 000000000..4bcf7a8f5 --- /dev/null +++ b/3782/CH1/EX1.15/Ex1_15.sce @@ -0,0 +1,9 @@ +clear +// +BB=287.25 +MC=62.25 +al=(BB-180)-MC +BM=75 +BC=BM*(tan(45*(%pi/180))) + +printf("\n width of the river is %0.3f meters',BC) diff --git a/3782/CH1/EX1.16/Ex1_16.sce b/3782/CH1/EX1.16/Ex1_16.sce new file mode 100644 index 000000000..55673dd71 --- /dev/null +++ b/3782/CH1/EX1.16/Ex1_16.sce @@ -0,0 +1,18 @@ +clear +//CH-1 PAGE-36 PB-6 + +// +// + + +AC=250 +AD=300 +DB=150 +BC=100 +DC=DB+BC + +cosal=(AD*AD+DC*DC-(AC*AC))/(2*AD*DC) + +AB=sqrt((AD*AD+DB*DB)-2*(AD*DB*cosal)) + +printf("\n AB= %0.3f ",AB) diff --git a/3782/CH1/EX1.17/Ex1_17.sce b/3782/CH1/EX1.17/Ex1_17.sce new file mode 100644 index 000000000..68b1a5983 --- /dev/null +++ b/3782/CH1/EX1.17/Ex1_17.sce @@ -0,0 +1,25 @@ + +// ch-1 page-36,37 pb-7 + +// + + +// + +BE=50 +AB=25 +AEC=157.5-67.5 + +al=atan(BE/AB) +al=al*(180/%pi) + +printf("\n al %0.3f ",al) + +bt=90-al +printf("\n bt= %0.3f ",bt) +k=(tan(bt*%pi/180)) + +printf("\n k= %0.3f ",k) +BC=BE/k +C=275.5+BC +printf("\n chinage of c is %0.3f meters',C) diff --git a/3782/CH1/EX1.18/Ex1_18.sce b/3782/CH1/EX1.18/Ex1_18.sce new file mode 100644 index 000000000..31ee67cde --- /dev/null +++ b/3782/CH1/EX1.18/Ex1_18.sce @@ -0,0 +1,37 @@ + +//ch-1 page -37,38 pb-1 + +// + +// + + +a=17.5 +b=19.3 +c=17.8 +d=13.6 +e=12.9 + +da=2.35 +db=4.20 +dc=2.95 +dd=1.65 +de=3.25 + +AB=sqrt((a*a)-(da*da)) +BC=sqrt((b*b)-(db*db)) +CD=sqrt((c*c)-(dc*dc)) +DE=sqrt((d*d)-(dd*dd)) +EF=sqrt((e*e)-(de*de)) + +total=AB+BC+CD+DE+EF +printf("\n measured length is %0.3f meters',total) + +e=0.025 +l=20 +l1=l-e +ml=total + +tl=(l1/l)*ml + +printf("\n true length is %0.3f meters',tl) diff --git a/3782/CH1/EX1.19/Ex1_19.sce b/3782/CH1/EX1.19/Ex1_19.sce new file mode 100644 index 000000000..82aeba27a --- /dev/null +++ b/3782/CH1/EX1.19/Ex1_19.sce @@ -0,0 +1,19 @@ + +//ch-1 page -38 pb-2 + +// + +// + +ab=550 +AB=ab*(cos(15*(%pi/180))) + +l=20 +e=0.05 +l1=l+e +ml=AB +printf("\n measured length is %0.3f meters',ml) + +tl=(l1/l)*ml + +printf("\n true length is %0.3f meters',tl) diff --git a/3782/CH1/EX1.2/Ex1_2.sce b/3782/CH1/EX1.2/Ex1_2.sce new file mode 100644 index 000000000..a3ba5004c --- /dev/null +++ b/3782/CH1/EX1.2/Ex1_2.sce @@ -0,0 +1,13 @@ + +l1=20 //chain 1 length +e=0.05 //error +l11=l1+e +ml1=1200 //measured lenght +tl=(l11/l1)*ml1 //true lenght of line + +l2=30 //chain 2 length +ml2=1195 //measured length + +l21=(tl/ml2)*l2 +ae=l21-l2 //amount of error +printf("\n amount of error= %0.3f ",ae) diff --git a/3782/CH1/EX1.20/Ex1_20.sce b/3782/CH1/EX1.20/Ex1_20.sce new file mode 100644 index 000000000..d60f01c64 --- /dev/null +++ b/3782/CH1/EX1.20/Ex1_20.sce @@ -0,0 +1,23 @@ + +//ch-1 page -38,39 pb-3 + +// + +// + +ab=280 + +AB1=ab*(cos(10*(%pi/180))) + +printf("\n horizontal distance 1 is %0.3f meters',AB1) + +cosal=(10/(sqrt(101))) + +AB2=ab*cosal + +printf("\n horizontal distance 2 is %0.3f meters',AB2) + +bb=8 +AB3=sqrt(ab*ab-(bb*bb)) + +printf("\n horizontal distance 3 is %0.3f meters',AB3) diff --git a/3782/CH1/EX1.21/Ex1_21.sce b/3782/CH1/EX1.21/Ex1_21.sce new file mode 100644 index 000000000..f70f7c027 --- /dev/null +++ b/3782/CH1/EX1.21/Ex1_21.sce @@ -0,0 +1,38 @@ + +//ch-1 page -39,40 pb-4 + +// + +// + +a=28.7 +b=23.4 +c=20.9 +d=29.6 + +ag=5 +bg=7 +cg=10 +dg=12 + +AB=a*(cos(ag*(%pi/180))) + +BC=b*(cos(bg*(%pi/180))) + +CD=c*(cos(cg*(%pi/180))) + +DE=d*(cos(dg*(%pi/180))) + +total=AB+BC+CD+DE + +ml=total + +printf("\n measured length is %0.3f meters',ml) + +l=30 +e=0.025 +l1=l-e + +tl=(l1/l)*ml + +printf("\n true horizontal distance is %0.3f meters',tl) diff --git a/3782/CH1/EX1.22/Ex1_22.sce b/3782/CH1/EX1.22/Ex1_22.sce new file mode 100644 index 000000000..a2aa7dd7a --- /dev/null +++ b/3782/CH1/EX1.22/Ex1_22.sce @@ -0,0 +1,24 @@ + +//ch-1 page -40 pb-1 + +// + +// + + +a=23 +b=16.5 +c=12 + + +t1=acos((a*a+b*b-(c*c))/(2*a*b)) +t1=t1*(180/%pi) + +printf("\n theta1= %0.3f ",t1) + +t2=acos((c*c+b*b-(a*a))/(2*c*b)) +t2=t2*(180/%pi) +dg=int(t2) +mi=t2-int(t2) +mi=(mi*60) +printf("\n theta2= %0.3f degrees %0.3f minutes",dg,mi) diff --git a/3782/CH1/EX1.23/Ex1_23.sce b/3782/CH1/EX1.23/Ex1_23.sce new file mode 100644 index 000000000..ecf6d49d3 --- /dev/null +++ b/3782/CH1/EX1.23/Ex1_23.sce @@ -0,0 +1,28 @@ + +//ch-1 page -40,41 pb-2 + +// + +// + + +a=257 +b=156 +c=103 + + +t1=acos((a*a+b*b-(c*c))/(2*a*b)) +t1=t1*(180/%pi) + +dg1=int(t1) +mi1=t1-int(t1) +mi1=(mi1*60) +printf("\n theta1= %0.3f degrees %0.3f minutes",dg1,mi1) + + +t2=acos((c*c+b*b-(a*a))/(2*c*b)) +t2=t2*(180/%pi) +dg=int(t2) +mi=t2-int(t2) +mi=(mi*60) +printf("\n theta2= %0.3f degrees %0.3f minutes",dg,mi) diff --git a/3782/CH1/EX1.24/Ex1_24.sce b/3782/CH1/EX1.24/Ex1_24.sce new file mode 100644 index 000000000..17facd2e9 --- /dev/null +++ b/3782/CH1/EX1.24/Ex1_24.sce @@ -0,0 +1,18 @@ + +//CH-1 PAGE-42 PB-1 + +// +// + + +sc=100 +a=2.5 +m=6 + +RF=(a/sc) + +printf("\n RF is %0.3f ",RF) + +length1=RF*m*sc + +printf("\n length1 of scale is %0.3f meters',length1) diff --git a/3782/CH1/EX1.25/Ex1_25.sce b/3782/CH1/EX1.25/Ex1_25.sce new file mode 100644 index 000000000..7584b2404 --- /dev/null +++ b/3782/CH1/EX1.25/Ex1_25.sce @@ -0,0 +1,24 @@ + + +//CH-1 PAGE-42,43 PB-2 + +// +// + + +sc=100 //scale length +area=93750 //area +l=6.0 //length +b=6.25 //bredth + +cm2=(area)/(l*b) // 1 cm^2 + +cm=sqrt(cm2) +RF=1/(sc*cm) + +printf("\n RF= %0.3f ",RF) + +leng=14 // assumme length of scale +leng=leng*cm + +printf("\n length of final scale is %0.3f ",leng) diff --git a/3782/CH1/EX1.26/Ex1_26.sce b/3782/CH1/EX1.26/Ex1_26.sce new file mode 100644 index 000000000..e3e3fe5ec --- /dev/null +++ b/3782/CH1/EX1.26/Ex1_26.sce @@ -0,0 +1,23 @@ + + +//CH-1 PAGE-43 PB-3 + +// +// + +l=1.2 //length +al=30 //map length +al=al/100 +sc=1000 //suitable scale + + +RF=(al)/(sc*l) +printf("\n RF= %0.3f ",RF) + + +cm1=(1/RF)/(100) + +lsc=15 +cm15=lsc*cm1 + +printf("\n length of scale is %0.3f meters',cm15) diff --git a/3782/CH1/EX1.27/Ex1_27.sce b/3782/CH1/EX1.27/Ex1_27.sce new file mode 100644 index 000000000..c04b03c12 --- /dev/null +++ b/3782/CH1/EX1.27/Ex1_27.sce @@ -0,0 +1,24 @@ + +//CH-1 PAGE-44 PB-4 + +// +// + + +sc=100 +hect=10000 +area=0.45*hect + +cm1=(area)/5 +cm=sqrt(cm1) + +printf("\n 1cm= %0.3f ",cm) +RF=1/(cm) +printf("\n RF= %0.3f ",RF) + + +maxl=400 + +los=(RF*maxl) + +printf("\n length of scale is %0.3f CENTIMETERS',los) diff --git a/3782/CH1/EX1.3/Ex1_3.sce b/3782/CH1/EX1.3/Ex1_3.sce new file mode 100644 index 000000000..c2b139a6b --- /dev/null +++ b/3782/CH1/EX1.3/Ex1_3.sce @@ -0,0 +1,18 @@ + + +clear +l1=20 +e=(0.06/2) //consider mean elongation +l11=l1+e +ml=900 +tl=(l11/l1)*ml +printf("\n true length1= %0.3f ",tl) +l2=20 +e2=(0.06+0.14)/2 +l21=20+e2 +ml2=1575-ml + +tl2=(l21/l2)*ml2 +printf("\n true length 2= %0.3f ",tl2) +td=tl+tl2 +printf("\n true distance= %0.3f meters ",td) diff --git a/3782/CH1/EX1.4/Ex1_4.sce b/3782/CH1/EX1.4/Ex1_4.sce new file mode 100644 index 000000000..2c3e6d365 --- /dev/null +++ b/3782/CH1/EX1.4/Ex1_4.sce @@ -0,0 +1,11 @@ +clear +s=100 +dsm=3500 +adsm=dsm/s + +printf("\n distance between stations on map= %0.3f centimeters',adsm) + +actuals=50 +td=adsm*actuals + +printf("\n true distance on ground = %0.3f meters',td) diff --git a/3782/CH1/EX1.5/Ex1_5.sce b/3782/CH1/EX1.5/Ex1_5.sce new file mode 100644 index 000000000..7fa3c0b2a --- /dev/null +++ b/3782/CH1/EX1.5/Ex1_5.sce @@ -0,0 +1,16 @@ +clear +present=19.5 +actual=20 +cm1=actual/present +cm12=(actual*actual)/(present*present) +pm=125.5 +apm=pm*cm12 +printf("\n actual area present= %0.3f square cm',apm) + +cm=40 +cm2=cm*cm + +area=cm2*apm +scale=(20.05*20.05)/(20*20) +ta=scale*area +printf("\n true area= %0.3f square meters',ta) diff --git a/3782/CH1/EX1.6/Ex1_6.sce b/3782/CH1/EX1.6/Ex1_6.sce new file mode 100644 index 000000000..96153a02a --- /dev/null +++ b/3782/CH1/EX1.6/Ex1_6.sce @@ -0,0 +1,53 @@ + + + +// + +L=30 +t0=20 +p0=10 +pm=15 +tm=32 +a=0.03 +al=11/(1000000) +E=2.1*(1000000) +w=0.693 +ml=780 +n=1 +printf("\n for n=1') +ct=al*L*(tm-t0) +printf("\n the temperature correction is %0.3f meters',ct) + +cp=(pm-p0)*L/(a*E) +printf("\n the pull correction is %0.3f meters',cp) + +cs=-L*w*w/(24*pm*pm*n*n) +printf("\n the sag correction is %0.3f meters',cs) + +e=ct+cp+cs +printf("\n the total correction is %0.3f meters',e) + +l1=L+e + +truelength=(l1/L)*ml +printf("\n the true length is %0.3f ",truelength) + +n=2 + +printf("\n for n=2') +ct=al*L*(tm-t0) +printf("\n the temperature correction is %0.3f meters',ct) + +cp=(pm-p0)*L/(a*E) +printf("\n the pull correction is %0.3f meters',cp) + +cs=-L*w*w/(24*pm*pm*n*n) +printf("\n the sag correction is %0.3f meters',cs) + +e=ct+cp+cs +printf("\n the total correction is %0.3f meters',e) + +l1=L+e + +truelength=(l1/L)*ml +printf("\n the true length is %0.3f meters",truelength) diff --git a/3782/CH1/EX1.7/Ex1_7.sce b/3782/CH1/EX1.7/Ex1_7.sce new file mode 100644 index 000000000..96fb15732 --- /dev/null +++ b/3782/CH1/EX1.7/Ex1_7.sce @@ -0,0 +1,32 @@ + + + +clear +// + +L=20//m +t0=20//degree C +p0=15//kg +p=10//kg +tm=30//degree C +a=0.02//cm2 +al=11/(1000000)//per degree C +E=2.1*(1000000)//kg/cm2 +w=0.4//kg + +n=1 +ct=al*L*(tm-t0)//temperature correction +printf("\n the temperature correction is %0.5f meters',ct) + +cp=(p-p0)*L/(a*E)//pull correction +printf("\n the pull correction is %0.5f meters',cp) + +cs=-L*w*w/(24*p*p*n*n)//sag correction +printf("\n the sag correction is %0.5f meters',cs) + +e=ct+cp+cs//total correction +printf("\n the total correction is %0.5f meters',e) + +hd=L+e//horizontal distance + +printf("\n the horizontal distance is %0.5f meters",hd) diff --git a/3782/CH1/EX1.8/Ex1_8.sce b/3782/CH1/EX1.8/Ex1_8.sce new file mode 100644 index 000000000..c9baf439b --- /dev/null +++ b/3782/CH1/EX1.8/Ex1_8.sce @@ -0,0 +1,54 @@ + + + +clear +// + +L=30//cm2 +t0=20//kg/cm2 +p0=5//per degree C +tm=25//kg/cm2 +a=0.02//cm2 +al=11/(1000000)//per degree C +E=2.1*(1000000)//Youngs modulus +w1=22//g/m +w=0.66//kg +n=1 + +p=5//kg +printf("\n for p=5 case') + +ct=al*L*(tm-t0) +printf("\n the temperature correction is %0.5f meters',ct) + +cp=(p-p0)*L/(a*E) +printf("\n the pull correction is %0.5f meters',cp) + +cs=-L*w*w/(24*p*p*n*n) +printf("\n the sag correction is %0.5f meters',cs) + +e=ct+cp+cs +printf("\n the total correction is %0.5f meters',e) + +hd=L+e + +printf("\n the horizontal distance is %0.5f meters",hd) + +p=11 +printf("\n for p=11 case') + +ct=al*L*(tm-t0) +printf("\n the temperature correction is %0.5f meters',ct) + +cp=(p-p0)*L/(a*E) +printf("\n the pull correction is %0.5f meters',cp) + +cs=-L*w*w/(24*p*p*n*n) +printf("\n the sag correction is %0.5f meters',cs) + +e=ct+cp+cs +printf("\n the total correction is %0.5f meters',e) + +hd=L+e + +printf("\n the horizontal distance is %0.5f meters",hd) diff --git a/3782/CH1/EX1.9/Ex1_9.sce b/3782/CH1/EX1.9/Ex1_9.sce new file mode 100644 index 000000000..309d47a96 --- /dev/null +++ b/3782/CH1/EX1.9/Ex1_9.sce @@ -0,0 +1,35 @@ + + + +clear +// + +L=20//cm2 +t0=20//kg/cm2 +p0=5//per degree C +pm=16//kg +tm=32//degree C +a=0.03//cm2 +al=11/(1000000)//per degree C +E=2.1*(1000000)//cm2 +w=0.6//kg +ml=680//m +n=1 + + +ct=al*L*(tm-t0) +printf("\n the temperature correction is %0.5f meters',ct) + +cp=(pm-p0)*L/(a*E) +printf("\n the pull correction is %0.5f meters',cp) + +cs=-L*w*w/(24*pm*pm*n*n) +printf("\n the sag correction is %0.5f meters',cs) + +e=ct+cp+cs +printf("\n the total correction is %0.5f meters',e) + +l1=L+e + +truelength=(l1/L)*ml +printf("\n the true length is %0.5f meters ",truelength) diff --git a/3782/CH10/EX10.1/Ex10_1.sce b/3782/CH10/EX10.1/Ex10_1.sce new file mode 100644 index 000000000..7a9a7b930 --- /dev/null +++ b/3782/CH10/EX10.1/Ex10_1.sce @@ -0,0 +1,26 @@ + +//ch-10 page 379 pb-1 +// + +// + +r=275 +t=24 +l=1320.5 + +tl=r*tan((t/2)*(%pi/180)) +printf("\n Tangent length = %0.3f ",tl) +llc=2*r*sin((t/2)*(%pi/180)) +printf("\n Length long of cord= %0.3f ",llc) +loc=(%pi*r*t/180) +printf("\n Length of curve = %0.3f ",loc) +coc=l-tl +ct=coc+loc +printf("\n chainage of commencement = %0.3f ",coc) +printf("\n chainage of tangency = %0.3f ",ct) +k=cos((t/2)*%pi/180) +ad=r*((1/k)-1) +printf("\n apex distance = %0.3f ",ad) +k1=cos((t/2)*(%pi/180)) +vsc=r*(1-k1) +printf("\n versed sine of curve is %0.3f ",vsc) diff --git a/3782/CH10/EX10.10/Ex10_10.sce b/3782/CH10/EX10.10/Ex10_10.sce new file mode 100644 index 000000000..8f0b4b87e --- /dev/null +++ b/3782/CH10/EX10.10/Ex10_10.sce @@ -0,0 +1,47 @@ + +// + +// + +sp=80 +v=(sp*1000)/(60*60) +cr=(1/8) +g=9.81 +a=60 + +//a + +r=(v*v)/(g*cr) +printf("\n radius of circular curvature= %0.3f ",r) + +//b +k=0.3 +l=(v*v*v)/(k*r) +printf("\n length of transistion curve = %0.3f ",l) + +sa=l/(2*r) +sa=sa*(180/(%pi)) +printf("\n spiral angle= %0.3f ",sa) +ca=a-(2*sa) +printf("\n central angle= %0.3f ",ca) + +lcc=(%pi*r*ca)/180 +printf("\n length of circular curve = %0.3f ",lcc) + +s=(l*l)/(24*r) +printf("\n shift of curve = %0.3f ",s) +ag=a/2 +t=(r+s)*(tan(ag*(%pi/180)))+(l/2) +printf("\n tangent length = %0.3f ",t) +//c +cip=1150 +c1t=cip-t +c1j=c1t+l +c2j=c1j+lcc +c2t=c2j+l + +printf("\n chainage of 1st tangent point = %0.3f ",c1t) +printf("\n chainage of 2nd tangent point = %0.3f ",c2t) + +printf("\n chainage of 1st junction point = %0.3f ",c1j) +printf("\n chainage of 2nd junction point = %0.3f ",c2j) diff --git a/3782/CH10/EX10.11/Ex10_11.sce b/3782/CH10/EX10.11/Ex10_11.sce new file mode 100644 index 000000000..ef1255727 --- /dev/null +++ b/3782/CH10/EX10.11/Ex10_11.sce @@ -0,0 +1,70 @@ + +// + +// + +a=145 +cpi=1580 +de=5 +pi=30 +lct=0.00555 + +da=180-a + +r=(1719)/5 + +printf("\n radius = %0.3f ",r) + +//a + +tl=r*(tan((da/2)*(%pi/180))) +printf("\n tangent length = %0.3f ",tl) + +//b + +cl=(%pi*r*da)/180 +printf("\n curve length = %0.3f ",cl) + +//c + +c1t=cpi-tl +printf("\n chainage of 1st point = %0.3f ",c1t) + +//d +c2t=c1t+cl +printf("\n chainage of 2nd point = %0.3f ",c2t) + +//e +lisc=1480-c1t +printf("\n length of final sub chord = %0.3f ",lisc) +//f +n=6 +ini=30 +cc=1480+(n*30) +printf("\n chainage covered= %0.3f ",cc) +//g +lfsc=c2t-cc +printf("\n length of final sub chord %0.3f ",lfsc) +//h +dasc=((c2t+100)*lisc)/(r) +printf("\n deflection angle for initial sub chord = %0.3f min',dasc) +//i +dafc=((c2t+100)*%pi)/r +printf("\n deflection angle for full chord %0.3f min',dafc/60) +//j +dafsc=((c2t+100)*lfsc)/r +printf("\n deflection angle for final sub chord %0.3f min',dafsc/60) + +//k + +tda=da/2 +printf("\n total deflection angle= %0.3f ",tda) + + +//l +k=1/(cos(tda*(%pi/180))) +ad=r*(k-1) +printf("\n apex distance = %0.3f ",ad) + +vs=r*(1-(cos(tda*(%pi/180)))) +printf("\n versed sine of curve = %0.3f ",vs) diff --git a/3782/CH10/EX10.12/Ex10_12.sce b/3782/CH10/EX10.12/Ex10_12.sce new file mode 100644 index 000000000..8ca8046a9 --- /dev/null +++ b/3782/CH10/EX10.12/Ex10_12.sce @@ -0,0 +1,80 @@ + +// + +// +pi=20 +cb=550 +rlb=375.5 +g1=0.5 +g2=-0.7 +//a +vc=((g1-g2)*20)/0.1 + +printf("\n length of vertical curve = %0.3f ",vc) + +//b,c + +ca=cb-(vc/2) +cc=ca+vc +printf("\n chainage of A %0.3f ",ca) +printf("\n chainage of C %0.3f ",cc) + +//d,e,f,g + +rla=rlb-((g1*0.5*vc)/100) +rlc=rlb-((-g2*0.5*vc)/100) +rle=0.5*(rla+rlc) +rlf=0.5*(rlb+rle) + +printf("\n Rl of A %0.3f ",rla) +printf("\n Rl of C %0.3f ",rlc) +printf("\n Rl of E %0.3f ",rle) +printf("\n Rl of F %0.3f ",rlf) +//h +tc=rlb-rlf +printf("\n tangent correction at the apex = %0.3f ",tc) + +//i +tc1=((g1-g2)*(%pi*%pi))/(400*0.5*vc) +tc2=((g1-g2)*(2*%pi*2*%pi))/(400*0.5*vc) +tc3=((g1-g2)*(3*%pi*3*%pi))/(400*0.5*vc) +tc4=((g1-g2)*(4*%pi*4*%pi))/(400*0.5*vc) +tc5=((g1-g2)*(5*%pi*5*%pi))/(400*0.5*vc) +tc6=((g1-g2)*(6*%pi*6*%pi))/(400*0.5*vc) +printf("\n tangent correction at 1st,2nd,3rd,4th,5th,6th, points %0.3f %0.3f %0.3f %0.3f %0.3f %0.3f",tc1,tc2,tc3,tc4,tc5,tc6) + +//j +rp=(g1*%pi)/100 + +rl1=rla+rp +rl2=rl1+rp +rl3=rl2+rp +rl4=rl3+rp +rl5=rl4+rp +rl6=rl5+rp +printf("\n RL of the points on grade') +printf("\n rl1,rl2,rl3,rl4,rl5,rl6") + +//k +rlc1=rl1-tc1 +rlc2=rl2-(tc2) +rlc3=rl3-(tc3) +rlc4=rl4-(tc4) +rlc5=rl5-(tc5) +rlc6=rl6-(tc6) + +printf("\n RL of the points on curve') +printf("\n rlc1,rlc2,rlc3,rlc4,rlc5,rlc6") + +//l + +fp=0.14 + +rlg5=rlb-fp +rlg4=rlg5-fp +rlg3=rlg4-fp +rlg2=rlg3-fp +rlg1=rlg2-fp + +printf("\n Rls of points on the grade right side') +printf("\n rlg5,rlg4,rlg3,rlg2,rlg1") diff --git a/3782/CH10/EX10.13/Ex10_13.sce b/3782/CH10/EX10.13/Ex10_13.sce new file mode 100644 index 000000000..2a7839513 --- /dev/null +++ b/3782/CH10/EX10.13/Ex10_13.sce @@ -0,0 +1,67 @@ + +// + +// + +cb=400 +rlb=250.5 +pi=30 +g1=-1.0 +g2=0.5 +g=0.1 +ga=20 +//a +vc=(g1-g2)/g +vc=-vc*ga +printf("\n length of vertical curve %0.3f ",vc) + +//b,c +ca=cb-(0.5*vc) +cc=ca+vc + +//d,e,f,g + +rla=rlb+((0.5*vc)/100) + +rlc=rlb+((0.5*0.5*vc)/100) + +rle=0.5*(rla+rlc) + +rlf=0.5*(rle+rlb) + +printf("\n RL of A= %0.3f ",rla) +printf("\n RL of C= %0.3f ",rlc) +printf("\n RL of E= %0.3f ",rle) +printf("\n RL of F= %0.3f ",rlf) + +//h +fp=%pi/100 + +rl1=rla-fp +rl2=rl1-fp +rl3=rl2-fp +rl4=rl3-fp +printf("\n RL on the grade on the side AB ') +printf("\n rl1,rl2,rl3,rl4") + +//i + +rp=(0.5*%pi)/100 + +rls4=rlb+rp +rls3=rls4+rp +rls2=rls3+rp +rls1=rls2+rp + +printf("\n RL on grade on side BC') +printf("\n rls4,rls3,rls2,rls1") + +//j + +y1=((g1-g2)*(%pi*%pi))/(cb*0.5*vc) +y2=((g1-g2)*(2*%pi*2*%pi))/(cb*0.5*vc) +y3=((g1-g2)*(3*%pi*3*%pi))/(cb*0.5*vc) +y4=((g1-g2)*(4*%pi*4*%pi))/(cb*0.5*vc) + +printf("\n tangent correction from expression ') +printf("\n y1,y2,y3,y4") diff --git a/3782/CH10/EX10.2/Ex10_2.sce b/3782/CH10/EX10.2/Ex10_2.sce new file mode 100644 index 000000000..acf6012ef --- /dev/null +++ b/3782/CH10/EX10.2/Ex10_2.sce @@ -0,0 +1,51 @@ + +//ch-10 page 379,380 pb-2 +// + +// +ac=45.5,cb=75.5, + +//a + +t=cb-ac +l1=1719 +l=2760 + +//b +r=l1/3 +printf("\n radius of curve %0.3f ",r) + +//c +tl=r*tan((t/2)*(%pi/180)) +printf("\n Tangent length = %0.3f ",tl) +//d +loc=(%pi*r*t/180) +printf("\n Length of curve = %0.3f ",loc) +//e +llc=2*r*sin((t/2)*(%pi/180)) +printf("\n Length long of cord= %0.3f ",llc) + +//f,g +coc=l-tl +ct=coc+loc +printf("\n chainage of commencement = %0.3f ",coc) +printf("\n chainage of tangency = %0.3f ",ct) + +//h + +half=0.5*llc +printf("\n length of each half = %0.3f ",half) + +ini=30 + +k=sqrt(r*r-(half*half)) +o=r-k +k1=r-o +O30=(sqrt(r*r-(ini*ini)))-k1 +O60=(sqrt(r*r-(2*ini*2*ini)))-k1 + +O90=(sqrt(r*r-(3*ini*3*ini)))-k1 +O120=(sqrt(r*r-(4*ini*4*ini)))-k1 +Oh=(sqrt(r*r-(half*half)))-k1 + +printf("\n O30= %0.3f O60= %0.3f O90= %0.3f O120= %0.3f O148.3= %0.3f ",O30,O60,O90,O120,Oh) diff --git a/3782/CH10/EX10.3/Ex10_3.sce b/3782/CH10/EX10.3/Ex10_3.sce new file mode 100644 index 000000000..38d4c9537 --- /dev/null +++ b/3782/CH10/EX10.3/Ex10_3.sce @@ -0,0 +1,40 @@ + +// + +// + +a=126.8 +t=180-a +r=300 +//b +tl=r*tan((t/2)*(%pi/180)) +printf("\n Tangent length = %0.3f ",tl) + +//c +loc=(%pi*r*t/180) +printf("\n Length of curve = %0.3f ",loc) + +//d +l=510.23 +ct1=l-tl +ct2=ct1+loc + +printf("\n chainage of T1= %0.3f ",ct1) +printf("\n chainage of T2= %0.3f ",ct2) + +//f +n=9 +b=30 +cc=ct1+270 +lfsc=ct2-cc +printf("\n chainage covered= %0.3f ",cc) +printf("\n Length of final sub cord= %0.3f ",lfsc) + +O1=(b*b)/(2*r) +O2=(b*b)/r + +O10=(lfsc*(b+lfsc))/(2*r) + +printf("\n first ofset= %0.3f ",O1) +printf("\n second ofset= %0.3f ",O2) +printf("\n tenth ofset= %0.3f ",O10) diff --git a/3782/CH10/EX10.4/Ex10_4.sce b/3782/CH10/EX10.4/Ex10_4.sce new file mode 100644 index 000000000..57b6898b7 --- /dev/null +++ b/3782/CH10/EX10.4/Ex10_4.sce @@ -0,0 +1,30 @@ + +// + +// + +ab=30,bc=90,cd=140, + +l1=250,l2=150,l3=325, + + +abc=210-bc +t1=0.5*abc +bcd=270-cd +t2=0.5*bcd +t3=180-(t1+t2) + + +k=(sin(t2*(%pi/180)))/(sin(t3*(%pi/180))) +OB=l2*k +k1=(sin(t1*(%pi/180)))/(sin(t3*(%pi/180))) +OC=l2*k1 +printf("\n OB,OC") +R=OB*(sin(t1*(%pi/180))) +printf("\n Radius R= %0.3f ",R) + +BT1=OB*(cos(t1*(%pi/180))) +CT1=OC*(cos(t2*(%pi/180))) + +printf("\n Tangent length BT1= %0.3f ",BT1) +printf("\n Tangent length CT1= %0.3f ",CT1) diff --git a/3782/CH10/EX10.5/Ex10_5.sce b/3782/CH10/EX10.5/Ex10_5.sce new file mode 100644 index 000000000..801d43c14 --- /dev/null +++ b/3782/CH10/EX10.5/Ex10_5.sce @@ -0,0 +1,29 @@ + +// + +// + +r=400 +t1=15,t2=30,t3=60, + +ct=900 +l=320 +BT2=r*(tan((t1)*%pi/180)) +CT2=l-BT2 + +r1=(CT2)/(tan((t2)*%pi/180)) + +printf("\n R1= %0.3f ",r1) +t1t2=(%pi*r*t2)/(180) + +t2t3=(%pi*r1*t3)/(180) + +printf("\n length of arc T1T2= %0.3f ",t1t2) +printf("\n length of arc T2T3= %0.3f ",t2t3) + + +ct1=ct-BT2 +ct3=ct1+t1t2+t2t3 + +printf("\n chainage of T1= %0.3f ",ct1) +printf("\n chainage of T3= %0.3f ",ct3) diff --git a/3782/CH10/EX10.6/Ex10_6.sce b/3782/CH10/EX10.6/Ex10_6.sce new file mode 100644 index 000000000..2674fec83 --- /dev/null +++ b/3782/CH10/EX10.6/Ex10_6.sce @@ -0,0 +1,25 @@ + +// + +// + +r1=400 +t1=30,d=200, + +ct1=1500 +k=1-(cos(t1*(%pi/180))) +T1G=r1*(k) + +r2=(d-T1G)/k +printf("\n R2= %0.3f ",r2) + +t1t2=(%pi*r1*t1)/180 +t2t3=(%pi*r2*t1)/180 +printf("\n length of arc T1T2= %0.3f ",t1t2) +printf("\n length of arc T2T3= %0.3f ",t2t3) + +ct2=ct1+t1t2 +ct3=ct2+t2t3 + +printf("\n chainage of point of reverse curvature = %0.3f ",ct2) +printf("\n chainage of finishing point T3= %0.3f ",ct3) diff --git a/3782/CH10/EX10.7/Ex10_7.sce b/3782/CH10/EX10.7/Ex10_7.sce new file mode 100644 index 000000000..732064af0 --- /dev/null +++ b/3782/CH10/EX10.7/Ex10_7.sce @@ -0,0 +1,36 @@ + +// + +// + +a1=135,a2=145, + +t1=180-a1 +t2=180-a2 +t3=180-(t1+t2) +r1=400,r2=200, + +ct=1000 + +ED=r1*(tan((t1/2)*(%pi/180))) + +FD=r2*(tan((t2/2)*(%pi/180))) + +EF=ED+FD + +printf("\n EF= %0.3f ",EF) + +BE=EF*(sin(t2*(%pi/180)))/(sin(t3*(%pi/180))) + +BF=EF*(sin(t1*(%pi/180)))/(sin(t3*(%pi/180))) + + +ct1=ct-(BE+ED) + +cd=ct1+((%pi*r1*t1)/(180)) + +ct2=cd+((%pi*r2*t2)/(180)) + +printf("\n chainage of T1= %0.3f ",ct1) +printf("\n chainage of D= %0.3f ",cd) +printf("\n chainage of T2 %0.3f ",ct2) diff --git a/3782/CH10/EX10.8/Ex10_8.sce b/3782/CH10/EX10.8/Ex10_8.sce new file mode 100644 index 000000000..d42042a6f --- /dev/null +++ b/3782/CH10/EX10.8/Ex10_8.sce @@ -0,0 +1,38 @@ + +// + +// + +t1=30.5 +t2=40.5 +EF=175 +cb=1500 + +k1=tan((t1/2)*(%pi/180)) +k2=tan((t2/2)*(%pi/180)) + +r=EF/(k1+k2) +printf("\n Radius R= %0.3f ",r) + +et1=r*k1 +ft2=r*k2 + +t3=180-(t1+t2) +printf("\n angle Theta= %0.3f ",t3) +k3=(sin(t2*(%pi/180)))/(sin(t3*(%pi/180))) +k4=(sin(t1*(%pi/180)))/(sin(t3*(%pi/180))) + +be=EF*k3 +bf=EF*k4 + +t1d=(%pi*r*t1)/180 +dt2=(%pi*r*t2)/180 + +printf("\n curve length T1D= %0.3f ",t1d) +printf("\n curve length DT2= %0.3f ",dt2) + +ct1=cb-(be+et1) + +ct2=ct1+t1d+dt2 +printf("\n chainage of T1= %0.3f ",ct1) +printf("\n chainage of T2= %0.3f ",ct2) diff --git a/3782/CH10/EX10.9/Ex10_9.sce b/3782/CH10/EX10.9/Ex10_9.sce new file mode 100644 index 000000000..a7a4c2060 --- /dev/null +++ b/3782/CH10/EX10.9/Ex10_9.sce @@ -0,0 +1,19 @@ + +// + +// + +t1=80-70 +l=50 +k=1/(cos(20*(%pi/180))) + +k1=k*(sin(t1*(%pi/180))) +t3=asin(k1) +t3=t3*(180/(%pi)) +printf("\n theta 3= %0.3f ",t3) + +t3=180-t3 +t2=180-(t3+t1) + +r=l*(sin(t1*(%pi/180)))/(sin(0.6*(%pi/180))) +printf("\n Radius R= %0.3f ",r) diff --git a/3782/CH11/EX11.1/Ex11_1.sce b/3782/CH11/EX11.1/Ex11_1.sce new file mode 100644 index 000000000..3ac65fe8a --- /dev/null +++ b/3782/CH11/EX11.1/Ex11_1.sce @@ -0,0 +1,18 @@ + +// +// + +retiftoi=100 +fplusd=0.15 +s1=2.450-1.150 +thetha1=5+(20/60) +v1=(100*1300*sin(10+(40/60))/2)+(0.15*sin(5+(20/60))) +s2=1.5 +thetha2=8+(12/60) +V2=21.197 +d2=147.097 +RL=750.500+1.8+12.045 +RLD=RL+V2-1.5 +printf("\n RL of instrument axis= %0.3f m",RL) +printf("\n RL of D= %0.3f m", RLD) +printf("\n Distance of CD=147.097m") diff --git a/3782/CH11/EX11.10/Ex11_10.sce b/3782/CH11/EX11.10/Ex11_10.sce new file mode 100644 index 000000000..1a440c1fa --- /dev/null +++ b/3782/CH11/EX11.10/Ex11_10.sce @@ -0,0 +1,16 @@ + +// + +// + +s1=2 +h1=0.655 +v1=6.578 +RL=v1+h1+510.5 +v2=1.085 +d2=12.396 +h2=1.25 +RLofB=RL-v2-h2 +d=37.31+12.396 +printf("\n distance between B and BM= %0.3f ",d) +printf("\n RL of B= %0.3f ", RLofB) diff --git a/3782/CH11/EX11.11/Ex11_11.sce b/3782/CH11/EX11.11/Ex11_11.sce new file mode 100644 index 000000000..17b0243e6 --- /dev/null +++ b/3782/CH11/EX11.11/Ex11_11.sce @@ -0,0 +1,12 @@ + +// + +// + +d=124.45 +c=1000 +s=2 +fplusd=0.3 +thetha=(5+(6/30)) +n=1980/d +printf("\n n= %0.3f ",n) diff --git a/3782/CH11/EX11.2/Ex11_2.sce b/3782/CH11/EX11.2/Ex11_2.sce new file mode 100644 index 000000000..9e5161933 --- /dev/null +++ b/3782/CH11/EX11.2/Ex11_2.sce @@ -0,0 +1,17 @@ + +// +// + +v1=7.534 +v2=16.871 +v3=15.326 +RLatp=255.750+v1+1.825 +RLofA=265.109+v2-1.6 +RLatB=280.380+v3+2.315 +RLofB=298.021-1.450 +D3=118.009 +printf("\n RL of axis when isnt. at P= %0.3f ", RLatp) +printf("\n RL of A= %0.3f ", RLofA) +printf("\n RL at B= %0.3f ", RLatB) +printf("\n RL of B= %0.3f ", RLofB) +printf("\n Distance between A and B= %0.3f ", D3) diff --git a/3782/CH11/EX11.3/Ex11_3.sce b/3782/CH11/EX11.3/Ex11_3.sce new file mode 100644 index 000000000..169dfb117 --- /dev/null +++ b/3782/CH11/EX11.3/Ex11_3.sce @@ -0,0 +1,22 @@ + +// +// + + +v1=10.494 +d1=108.989 +V2=24.807 +d2=176.514 +v3=25.652 +d3=145.477 +RL=450.500+1.455+v1 +RLofA=462.449-1.345 +RLofB=462.449+24.807-1.655 +RLatB=487.151 +RLofC=RLofB+v3-2.250+1.53 +printf("\n v1") +printf("\n RL of axis when isnt. at A= %0.3f ", RL) +printf("\n RL of A= %0.3f ", RLofA) +printf("\n RL at B= %0.3f ", RLatB) +printf("\n RL of B= %0.3f ", RLofB) +printf("\n RL of C %0.3f ", RLofC) diff --git a/3782/CH11/EX11.4/Ex11_4.sce b/3782/CH11/EX11.4/Ex11_4.sce new file mode 100644 index 000000000..a91061f69 --- /dev/null +++ b/3782/CH11/EX11.4/Ex11_4.sce @@ -0,0 +1,44 @@ + +// + +// + +c=100 +h=1.55 +rlo=150 +ra1=1.155,ra2=1.755,ra3=2.355, + +rb1=1.250,rb2=2,rb3=2.750, + +t1=30.5,t2=75.5, + +a1=4.5,a2=10.25, + + +printf("\n in 1st observation') +v1=c*(ra3-ra1)*(sin(9*(%pi/180))) +v1=v1/2 +d1=c*(ra3-ra1)*(cos(a1*(%pi/180)))*(cos(a1*(%pi/180))) +printf("\n v1,d1= %0.3f %0.3f",v1,d1) + +printf("\n in 2nd observation') + +v2=c*(rb3-rb1)*(sin(20.5*(%pi/180))) +v2=v2/2 +d2=c*(rb3-rb1)*(cos(a2*(%pi/180)))*(cos(a2*(%pi/180))) +printf("\n v2,d2= %0.3f %0.3f",v2,d2) + +rl=rlo+h +rla=rl+v1-ra2 +rlb=rl+v2-rb2 + +printf("\n RL of A= %0.3f ",rla) +printf("\n RL of B= %0.3f ",rlb) + +t=t2-t1 +AB=sqrt((d1*d1+d2*d2)-2*(d1*d2*(cos(t*(%pi/180))))) +printf("\n difference of level AB= %0.3f meters',AB) + +dab=rlb-rla +gab=AB/dab +printf("\n gradient of AB is 1 in %0.3f ",gab) diff --git a/3782/CH11/EX11.5/Ex11_5.sce b/3782/CH11/EX11.5/Ex11_5.sce new file mode 100644 index 000000000..85621222d --- /dev/null +++ b/3782/CH11/EX11.5/Ex11_5.sce @@ -0,0 +1,45 @@ + +// + +// + +h=1.5 +a1=10,a2=12, + +c=100 +ra1=1.150,ra2=2.050,ra3=2.950, + +rb1=0.855,rb2=1.605,rb3=2.355, + +rlp=450.5 + + + +v1=c*(ra3-ra1)*(sin(a1*(%pi/180))) + +v2=c*(rb3-rb1)*(sin(a2*(%pi/180))) + +h1=ra2*(cos(a1*(%pi/180))) +h2=rb2*(cos(a2*(%pi/180))) + +printf("\n v1,v2= %0.3f %0.3f",v1,v2) +printf("\n h1,h2= %0.3f %0.3f",h1,h2) + +rlai=rlp+h + +rla=rlai-v1-h1 +rlb=rlai-v2-h2 + +printf("\n RL of A= %0.3f ",rla) +printf("\n RL of B= %0.3f ",rlb) + +d1=c*(ra3-ra1)*(cos(a1*(%pi/180)))-ra2*(sin(a1*(%pi/180))) +d2=c*(rb3-rb1)*(cos(a2*(%pi/180)))-rb2*(sin(a2*(%pi/180))) + +dab=d1+d2 +printf("\n distance between A an B is %0.3f ",dab) +gpa=d1/(rlp-rla) +gpb=d2/(rlp-rlb) + +printf("\n gradient of PA is 1 in %0.3f ",gpa) +printf("\n gradient of PB is 1 in %0.3f ",gpb) diff --git a/3782/CH11/EX11.6/Ex11_6.sce b/3782/CH11/EX11.6/Ex11_6.sce new file mode 100644 index 000000000..102268300 --- /dev/null +++ b/3782/CH11/EX11.6/Ex11_6.sce @@ -0,0 +1,42 @@ + +// + +// + +c=100 +ra1=1.25,ra2=1.75,ra3=2.25, + +rb1=0.95,rb2=1.75,rb3=2.55, + +rc1=1.55,rc2=2.15,rc3=2.75, + +a1=10,a2=5,a3=8, + + +ab=c*(ra3-ra1)*(cos(a1*(%pi/180)))*(cos(a1*(%pi/180))) +bc=c*(rb3-rb1)*(cos(a2*(%pi/180)))*(cos(a2*(%pi/180))) +cd=c*(rc3-rc1)*(cos(a3*(%pi/180)))*(cos(a3*(%pi/180))) + +printf("\n ab,bc,cd") + +lab=ab*(cos(30.5*(%pi/180))) +lbc=-bc*(cos(40*(%pi/180))) +lcd=-cd*(cos(45*(%pi/180))) +printf("\n latitudes of AB,BC,CD= %0.3f %0.3f %0.3f",lab,lbc,lcd) + +dab=ab*(sin(30.5*(%pi/180))) +dbc=bc*(sin(40*(%pi/180))) +dcd=-cd*(sin(45*(%pi/180))) +printf("\n depatures of AB,BC,CD %0.3f %0.3f %0.3f",dab,dbc,dcd) + +lc=-(lab+lbc+lcd) +ls=-(dab+dbc+dcd) + +printf("\n lc,ls") +k=-ls/lc +t=atan(k) +t=t*(180/(%pi)) + +printf("\n Bearing of DA= %0.3f ",t) +DA=sqrt(lc*lc+ls*ls) +printf("\n length DA= %0.3f ",DA) diff --git a/3782/CH11/EX11.7/Ex11_7.sce b/3782/CH11/EX11.7/Ex11_7.sce new file mode 100644 index 000000000..7109ea717 --- /dev/null +++ b/3782/CH11/EX11.7/Ex11_7.sce @@ -0,0 +1,46 @@ + +// + +// + +h1=1.48,h2=1.42,c=100, + +ra1=0.77,ra2=1.60,ra3=2.43, + +rb1=0.86,rb2=1.84,rb3=2.82, + +a1=12.166,a2=10.5, + +la=112.82,da=106.4, + +lb=198.5,db=292.6, + +ac=c*(ra3-ra1)*(cos(a1*(%pi/180)))*(cos(a1*(%pi/180))) +bd=c*(rb3-rb1)*(cos(a2*(%pi/180)))*(cos(a2*(%pi/180))) + +printf("\n Distance AC= %0.3f ",ac) +printf("\n Distance BD= %0.3f ",bd) +lac=-ac*(cos(53.5*(%pi/180))) +tlc=la+lac +printf("\n total latitude of C= %0.3f ",tlc) + +dac=ac*(sin(53.5*(%pi/180))) +da=-da +tdc=da+dac +printf("\n total depature of C= %0.3f ",tdc) + +lbd=-bd*(cos(4.75*(%pi/180))) +tld=lb+lbd +printf("\n total latitude of D= %0.3f ",tld) + +db=-db +ddb=-bd*(sin(4.75*(%pi/180))) +tdd=-(db+ddb) +printf("\n ddb") +printf("\n total depature of D= %0.3f ",tdd) + +dx=tdc+tdd +cx=tlc-tld + +CD=sqrt(dx*dx+cx*cx) +printf("\n length CD= %0.3f meters',CD) diff --git a/3782/CH11/EX11.8/Ex11_8.sce b/3782/CH11/EX11.8/Ex11_8.sce new file mode 100644 index 000000000..df29eacfd --- /dev/null +++ b/3782/CH11/EX11.8/Ex11_8.sce @@ -0,0 +1,26 @@ + +// + +// + +c=600 +fplusd=0.5 +s=3 +n=6.860 +distance= (c*s/n)+ fplusd +printf("\n distance = %0.3f ",distance) + +distance = 262.890670554 + +clear +// + +// + +d=65.340 +x=4.5 +y= tan(x) +v=5.142 +RLofA=255.500+v-0.950 +printf("\n v") +printf("\n RL of A= %0.3f ", RLofA) diff --git a/3782/CH2/EX2.1/Ex2_1.sce b/3782/CH2/EX2.1/Ex2_1.sce new file mode 100644 index 000000000..767f97352 --- /dev/null +++ b/3782/CH2/EX2.1/Ex2_1.sce @@ -0,0 +1,18 @@ + +// + +// + +ag=5 +giv=0.03 + +L=20 +l=(giv*L/(sin(ag*%pi/180))) + + +AB=l + +BC=AB*(sin(ag*(%pi/180))) +BC=BC/20 + +printf("\n max length of offset should be %0.3f meters',l) diff --git a/3782/CH2/EX2.2/Ex2_2.sce b/3782/CH2/EX2.2/Ex2_2.sce new file mode 100644 index 000000000..71a48a128 --- /dev/null +++ b/3782/CH2/EX2.2/Ex2_2.sce @@ -0,0 +1,23 @@ +clear +// + +// + + +AD=15;AB=15, + +ag=3 +AC=15*(cos(ag*(%pi/180))) + +CD=AB-AC +sc=10 + +CD=CD/sc + +printf("\n required displacement perpendicular to chain is %0.3f meters',CD) + + +BC=AB*(sin(ag*(%pi/180))) + +BC=BC/sc +printf("\n displacement parallel ot chain is %0.3f meters',BC) diff --git a/3782/CH3/EX3.1/Ex3_1.sce b/3782/CH3/EX3.1/Ex3_1.sce new file mode 100644 index 000000000..f8dd1a265 --- /dev/null +++ b/3782/CH3/EX3.1/Ex3_1.sce @@ -0,0 +1,32 @@ + + +// +// + +//(a)QB of AB +WCB_AB=45+(30/60) +QB_AB=WCB_AB +mins=(QB_AB-int(QB_AB))*60 +deg=int(QB_AB) +printf("\n N %0.3f degrees %0.3f minutes E",deg,mins) + +//(b)QB of BC +WCB_BC=125+(45/60) +QB_BC=180-WCB_BC +mins=(QB_BC-int(QB_BC))*60 +deg=int(QB_BC) +printf("\n S %0.3f degrees %0.3f minutes E",deg,mins) + +//(c) QB of CD +WCB_CD=222+(15/60) +QB_CD=WCB_CD-180 +deg=int(QB_CD) +mins=(QB_CD-deg)*60 +printf("\n S %0.3f degrees %0.3f minutes W",deg,mins) + +//(d) QB of DE +WCB_DE=320+(30/60) +QB_DE=360-WCB_DE +deg=int(QB_DE) +mins=(QB_DE-deg)*60 +printf("\n N %0.3f degrees %0.3f minutes W",deg,mins) diff --git a/3782/CH3/EX3.10/Ex3_10.sce b/3782/CH3/EX3.10/Ex3_10.sce new file mode 100644 index 000000000..2d86b4a3d --- /dev/null +++ b/3782/CH3/EX3.10/Ex3_10.sce @@ -0,0 +1,16 @@ + +// +// + +//(a) +magneticbearing=175+(30/60) +magneticdeclination=180-magneticbearing +deg=int(magneticdeclination) +mins=(magneticdeclination-deg)*60 +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) +//(b) + +magneticdeclination=5+(45/60) +deg=int(magneticdeclination) +mins=(magneticdeclination-deg)*60 +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) diff --git a/3782/CH3/EX3.11/Ex3_11.sce b/3782/CH3/EX3.11/Ex3_11.sce new file mode 100644 index 000000000..4b37395af --- /dev/null +++ b/3782/CH3/EX3.11/Ex3_11.sce @@ -0,0 +1,23 @@ + + +// +// + +bearingOB=140+(15/60)//given +bearingOA=30+(30/60)//given +angleAOB=bearingOB-bearingOA +deg=int(angleAOB) +mins=(angleAOB-deg)*60//finding minutes +printf("\n AngleAOB= %0.3f degrees %0.3f minutes",deg,mins) + +bearingOC=220+(45/60)//given +angleBOC=bearingOC-bearingOB +deg=int(angleBOC) +mins=(angleBOC-deg)*60//finding minutes +printf("\n AngleBOC= %0.3f degrees %0.3f minutes",deg,mins) + +bearingOD=310+(30/60)//given +angleCOD=bearingOD-bearingOC +deg=int(angleCOD) +mins=(angleCOD-deg)*60//finding minutes +printf("\n AngleCOD= %0.3f degrees %0.3f minutes",deg,mins) diff --git a/3782/CH3/EX3.12/Ex3_12.sce b/3782/CH3/EX3.12/Ex3_12.sce new file mode 100644 index 000000000..7d18a3d7e --- /dev/null +++ b/3782/CH3/EX3.12/Ex3_12.sce @@ -0,0 +1,28 @@ + + +// + +// + +interiorB=(45+(30/60))+180-(120+(15/60))//given +deg=int(interiorB)//convert into mins and degrees +mins=(interiorB-deg)*60 +printf("\n Interior angle B= %0.3f degrees %0.3f minutes",deg,mins) + +interiorC=(120+(15/60))+180-(200+(30/60)) +//convert into mins and degrees +deg=int(interiorC) +mins=(interiorC-deg)*60 +printf("\n Interior angle C= %0.3f degrees %0.3f minutes",deg,mins) + +exteriorD=(280+(45/60))+180-(200+(30/60)) +//convert into mins and degrees +deg=int(exteriorD) +mins=(exteriorD-deg)*60 +printf("\n Exterior angle D= %0.3f degrees %0.3f minutes",deg,mins) + +interiorD=360-(260+(15/60)) +//convert into mins and degrees +deg=int(interiorD) +mins=(interiorD-deg)*60 +printf("\n Interior angle D= %0.3f degrees %0.3f minutes",deg,mins) diff --git a/3782/CH3/EX3.13/Ex3_13.sce b/3782/CH3/EX3.13/Ex3_13.sce new file mode 100644 index 000000000..15f5b6ea5 --- /dev/null +++ b/3782/CH3/EX3.13/Ex3_13.sce @@ -0,0 +1,23 @@ + + +// +// + +//given + +FB_AB=80+(30/60) +FB_BC=FB_AB+180-60 +FB_CA=FB_BC-180+300 + +//convert into mins and degrees +deg1=int(FB_AB) +mins1=(FB_AB-deg1)*60 +deg2=int(FB_BC) +mins2=(FB_BC-deg2)*60 +deg3=int(FB_CA) +mins3=(FB_CA-deg3)*60 + + +printf("\nFB_AB is %0.3f degrees %0.3f minutes W",deg1,mins1) +printf("\nFB_BC is %0.3f degrees %0.3f minutes W",deg2,mins2) +printf("\nFB_CA is %0.3f degrees %0.3f minutes W",deg3,mins3) diff --git a/3782/CH3/EX3.14/Ex3_14.sce b/3782/CH3/EX3.14/Ex3_14.sce new file mode 100644 index 000000000..766a8caf3 --- /dev/null +++ b/3782/CH3/EX3.14/Ex3_14.sce @@ -0,0 +1,26 @@ + + +// +// + + +//given +FB_AB=120+(30/60) +FB_BC=FB_AB+180-90 +FB_CD=FB_BC-180+270 +FB_DA=FB_CD-180-90 + +//convert into mins and degrees +deg1=int(FB_AB) +mins1=(FB_AB-deg1)*60 +deg2=int(FB_BC) +mins2=(FB_BC-deg2)*60 +deg3=int(FB_CD) +mins3=(FB_CD-deg3)*60 +deg4=int(FB_DA) +mins4=(FB_DA-deg4)*60 + +printf("\nFB_AB = %0.3f degrees %0.3f minutes W",deg1,mins1) +printf("\nFB_BC = %0.3f degrees %0.3f minutes W",deg2,mins2) +printf("\nFB_CD = %0.3f degrees %0.3f minutes W",deg3,mins3) +printf("\nFB_DA = %0.3f degrees %0.3f minutes W",deg4,mins4) diff --git a/3782/CH3/EX3.15/Ex3_15.sce b/3782/CH3/EX3.15/Ex3_15.sce new file mode 100644 index 000000000..0d2598d13 --- /dev/null +++ b/3782/CH3/EX3.15/Ex3_15.sce @@ -0,0 +1,35 @@ + + +// +// + +//given +interiorB=540/5 +FB_AB=30+(0/60) +FB_BC=FB_AB+180+interiorB +FB_CD=FB_BC-180+interiorB +FB_DE=FB_CD-180+interiorB +FB_EA=FB_DE+180-360+interiorB +FB_AB=FB_EA+180-360+interiorB + +//convert into mins and degrees +deg1=int(FB_AB) +mins1=(FB_AB-deg1)*60 +deg2=int(FB_BC) +mins2=(FB_BC-deg2)*60 +deg3=int(FB_CD) +mins3=(FB_CD-deg3)*60 +deg4=int(FB_DE) +mins4=(FB_DE-deg4)*60 +deg5=int(FB_EA) +mins5=0 +deg6=int(FB_AB) +mins6=0 + + +printf("\nFB_AB %0.3f degrees %0.3f minutes W",deg1,mins1) +printf("\nFB_BC %0.3f degrees %0.3f minutes W",deg2,mins2) +printf("\nFB_CD %0.3f degrees %0.3f minutes W",deg3,mins3) +printf("\nFB_DE %0.3f degrees %0.3f minutes W",deg4,mins4) +printf("\nFB_EA %0.3f degrees %0.3f minutes W",deg5,mins5) +printf("\nFB_AB %0.3f degrees %0.3f minutes W",deg6,mins6) diff --git a/3782/CH3/EX3.16/Ex3_16.sce b/3782/CH3/EX3.16/Ex3_16.sce new file mode 100644 index 000000000..6f62199fc --- /dev/null +++ b/3782/CH3/EX3.16/Ex3_16.sce @@ -0,0 +1,48 @@ + + +// +//given + +BB_AB=330+(15/60) +BB_BC=200+(30/60) +BB_CD=115+(45/60) +BB_DE=38+(0/60) +BB_EA=300+(30/60) + +//calculations +exteriorA=BB_EA-(150+(15/60)) +interiorA=360-exteriorA +exteriorB=BB_AB-(20+(30/60)) +interiorB=360-exteriorB +interiorC=(295+(45/60))-BB_BC +interiorD=218-BB_CD +interiorE=(120.5)-BB_DE + +//convert into mins and degrees +deg1=int(exteriorA) +mins1=int((exteriorA-deg1)*60) +deg2=int(interiorA) +mins2=int((interiorA-deg2)*60) +deg3=int(exteriorB) +mins3=int((exteriorB-deg3)*60) +deg4=int(interiorB) +mins4=int((interiorB-deg4)*60) +deg5=int(interiorC) +mins5=int((interiorC-deg5)*60) +deg6=int(interiorD) +mins6=int((interiorD-deg6)*60) +deg7=int(interiorE) +mins7=int((interiorE-deg7)*60) + +n=5 +check=(2*n-4)*90 +summ=interiorA+interiorB+interiorC+interiorD+interiorE + +printf("\n exterior angle A %0.3f degrees %0.3f minutes",deg1,mins1) +printf("\n interior angle A %0.3f degrees %0.3f minutes",deg2,mins2) +printf("\n Exterior angle B %0.3f degrees %0.3f minutes",deg3,mins3) +printf("\n interior angle B %0.3f degrees %0.3f minutes",deg4,mins4) +printf("\n interior angle C %0.3f degrees %0.3f minutes",deg5,mins5) +printf("\n interior angle D %0.3f degrees %0.3f minutes",deg6,mins6) +printf("\n interior angle E %0.3f degrees %0.3f minutes",deg7,mins7) +printf("\n %0.3f degrees %0.3f degrees W",check,summ) diff --git a/3782/CH3/EX3.17/Ex3_17.sce b/3782/CH3/EX3.17/Ex3_17.sce new file mode 100644 index 000000000..971780ccd --- /dev/null +++ b/3782/CH3/EX3.17/Ex3_17.sce @@ -0,0 +1,42 @@ + + +// +//given + +FB_AB=45+(30/60) +FB_BC=60+(0/60) +FB_CD=10+(30/60) +FB_DA=75+(45/60) + + +BB_AB=45+(30/60) +BB_BC=60+(0/60) +BB_CD=10+(30/60) +BB_DA=75+(45/60) + + +interiorA=180-(FB_AB+BB_DA) +interiorB=(FB_BC+BB_AB) +interiorC=180-(BB_BC+FB_CD) +interiorD=(FB_DA+BB_CD) + +//convert into mins and degrees +deg1=int(interiorA) +mins1=int((interiorA-deg1)*60) +deg2=int(interiorB) +mins2=int((interiorB-deg2)*60) +deg3=int(interiorC) +mins3=int((interiorC-deg3)*60) +deg4=int(interiorD) +mins4=int((interiorD-deg4)*60) + +//calculations +n=4 +check=(2*n-4)*90 +summ=interiorA+interiorB+interiorC+interiorD + +printf("\n Interior angle A %0.3f degrees %0.3f minutes",deg1,mins1) +printf("\n Interior angle B %0.3f degrees %0.3f minutes",deg2,mins2) +printf("\n Interior angle C %0.3f degrees %0.3f minutes",deg3,mins3) +printf("\n Interior angle D %0.3f degrees %0.3f minutes",deg4,mins4) +printf("\n %0.3f degrees %0.3f degrees ",check,summ) diff --git a/3782/CH3/EX3.18/Ex3_18.sce b/3782/CH3/EX3.18/Ex3_18.sce new file mode 100644 index 000000000..59af473ac --- /dev/null +++ b/3782/CH3/EX3.18/Ex3_18.sce @@ -0,0 +1,72 @@ + + +// +//given + +BB_AB=330+(0/60) +BB_BC=48+(0/60) +BB_CD=127+(45/60) +BB_DE=120+(0/60) +BB_EA=229+(30/60) + +FB_AB=150+(0/60) +FB_BC=230+(30/60) +FB_CD=306+(15/60) +FB_DE=298+(0/60) +FB_EA=49+(30/60) + +//calculate +interiorA=BB_EA-FB_AB +interiorB=BB_AB-FB_BC +exteriorC=FB_CD-BB_BC +interiorC=360-(258+(15/60)) +exteriorD=FB_DE-BB_CD +interiorD=360-exteriorD +interiorE=BB_DE-FB_EA + +//convert into mins and degrees +deg1=int(interiorA) +mins1=int((interiorA-deg1)*60) +deg2=int(interiorB) +mins2=int((interiorB-deg2)*60) +deg3=int(exteriorC) +mins3=int((exteriorC-deg3)*60) +deg4=int(interiorC) +mins4=int((interiorC-deg4)*60) +deg5=int(exteriorD) +mins5=int((exteriorD-deg5)*60) +deg6=int(interiorD) +mins6=int((interiorD-deg6)*60) +deg7=int(interiorE) +mins7=int((interiorE-deg7)*60) + +n=5 +check=(2*n-4)*90 +summ=interiorA+interiorB+interiorC+interiorD+interiorE + +printf("\n Interior angle A= %0.3f degrees %0.3f minutes",deg1,mins1) +printf("\n Interior angle B= %0.3f degrees %0.3f minutes",deg2,mins2) +printf("\n exterior angle C= %0.3f degrees %0.3f minutes",deg3,mins3) +printf("\n Interior angle C= %0.3f degrees %0.3f minutes",deg4,mins4) +printf("\n exterior angle D= %0.3f degrees %0.3f minutes",deg5,mins5) +printf("\n Interior angle D= %0.3f degrees %0.3f minutes",deg6,mins6) +printf("\n Interior angle E= %0.3f degrees %0.3f minutes",deg7,mins7) +printf("\n %0.3f degrees %0.3f degrees ",check,summ) + +error=541-540 +correction=(-60/5) +printf("\n error= %0.3f degrees",error) +printf("\n %0.3f minutes",correction) + +correctedvalue1=mins1+correction +correctedvalue2=mins2+correction +correctedvalue4=mins4+correction +correctedvalue6=mins6+correction +correctedvalue7=mins7+correction + +printf("\n corrected values are:") +printf("\n Interior angle A= %0.3f degrees %0.3f minutes",deg1,correctedvalue1) +printf("\n Interior angle B= %0.3f degrees %0.3f minutes",deg2,correctedvalue2) +printf("\n Interior angle C= %0.3f degrees %0.3f minutes",deg4,correctedvalue4) +printf("\n Interior angle D= %0.3f degrees %0.3f minutes",deg6,correctedvalue6) +printf("\n Interior angle E= %0.3f degrees %0.3f minutes",deg7,correctedvalue7) diff --git a/3782/CH3/EX3.19/Ex3_19.sce b/3782/CH3/EX3.19/Ex3_19.sce new file mode 100644 index 000000000..596405329 --- /dev/null +++ b/3782/CH3/EX3.19/Ex3_19.sce @@ -0,0 +1,73 @@ + + +// +//given + +BB_AB=13+(0/60) +BB_BC=222+(30/60) +BB_CD=200+(30/60) +BB_DE=62+(45/60) +BB_EA=147+(45/60) + +FB_AB=191+(45/60) +FB_BC=39+(30/60) +FB_CD=22+(15/60) +FB_DE=242+(45/60) +FB_EA=330+(15/60) + +//(a) +interiorA=FB_AB-BB_EA +interiorB=FB_BC-BB_AB +exteriorC=BB_BC-FB_CD +interiorC=360-(200+(15/60)) +interiorD=FB_DE-BB_CD +interiorE=FB_EA-BB_DE + +//convert into mins and degrees +deg1=int(interiorA) +mins1=int((interiorA-deg1)*60) +deg2=int(interiorB) +mins2=int((interiorB-deg2)*60) +deg3=int(exteriorC) +mins3=int((exteriorC-deg3)*60) +deg4=int(interiorC) +mins4=int((interiorC-deg4)*60) +deg6=int(interiorD) +mins6=int((interiorD-deg6)*60) +deg7=int(interiorE) +mins7=int((interiorE-deg7)*60) + +n=5 +check=(2*n-4)*90 +summ=interiorA+interiorB+interiorC+interiorD+interiorE + +printf("\n Interior angle A= %0.3f degrees %0.3f minutes",deg1,mins1) +printf("\n Interior angle B= %0.3f degrees %0.3f minutes",deg2,mins2) +printf("\n exterior angle C= %0.3f degrees %0.3f minutes",deg3,mins3) +printf("\n Interior angle C= %0.3f degrees %0.3f minutes",deg4,mins4) +printf("\n Interior angle D= %0.3f degrees %0.3f minutes",deg6,mins6) +printf("\n Interior angle E= %0.3f degrees %0.3f minutes",deg7,mins7) +printf("\n %0.3f degrees %0.3f degrees ",check,summ) +//(b) +printf("\n %0.3f correct %0.3f correct ", FB_DE,FB_EA) + + +AB=FB_EA-180+interiorA +BC=(194+(15/60))-180+interiorB +CD=(40+(45/60))+180-exteriorC +DE=(20+(30/60))+180+interiorD + +deg1=int(AB) +mins1=int((AB-deg1)*60) +deg2=int(BC) +mins2=int((BC-deg2)*60) +deg3=int(CD) +mins3=int((CD-deg3)*60) +deg4=int(DE) +mins4=int((DE-deg4)*60) + +printf("\n corrected values are:") +printf("\n FB_AB= %0.3f degrees %0.3f minutes",deg1,mins1) +printf("\n FB_BC= %0.3f degrees %0.3f minutes",deg2,mins2) +printf("\n FB_CD= %0.3f degrees %0.3f minutes",deg3,mins3) +printf("\n FB_DE= %0.3f degrees %0.3f minutes",deg4,mins4) diff --git a/3782/CH3/EX3.2/Ex3_2.sce b/3782/CH3/EX3.2/Ex3_2.sce new file mode 100644 index 000000000..cd9c5a72d --- /dev/null +++ b/3782/CH3/EX3.2/Ex3_2.sce @@ -0,0 +1,29 @@ + +// +// + +//(a) +QB_AB=36+(30/60) +WCB_AB=180+QB_AB +mins=(WCB_AB-int(WCB_AB))*60 +deg=int(WCB_AB) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) +//(b) +QB_BC=43+(30/60) +WCB_BC=180-QB_BC +mins=(WCB_BC-int(WCB_BC))*60 +deg=int(WCB_BC) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) + +//(c) +QB_CD=26+(45/60) +WCB_CD=QB_CD +mins=(WCB_CD-int(WCB_CD))*60 +deg=int(WCB_CD) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) +//(d) +QB_DE=40+(15/60) +WCB_DE=360-QB_DE +mins=(WCB_DE-int(WCB_DE))*60 +deg=int(WCB_DE) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) diff --git a/3782/CH3/EX3.20/Ex3_20.sce b/3782/CH3/EX3.20/Ex3_20.sce new file mode 100644 index 000000000..cf59899d1 --- /dev/null +++ b/3782/CH3/EX3.20/Ex3_20.sce @@ -0,0 +1,86 @@ + + +// +//given + +BB_AB=248+(15/60) +BB_BC=326+(15/60) +BB_CD=46+(0/60) +BB_DE=38+(15/60) +BB_EA=147+(45/60) + +FB_AB=68+(15/60) +FB_BC=148+(45/60) +FB_CD=224+(30/60) +FB_DE=217+(15/60) +FB_EA=327+(45/60) + +//(a) +includedA=-FB_AB+BB_EA +includedB=-FB_BC+BB_AB +includedC=BB_BC-FB_CD +includedD=360-(171+(15/60)) +exteriorD=FB_DE-BB_CD +exteriorE=FB_EA-BB_DE +includedE=360-(289+(30/60)) + +//convert into mins and degrees +deg1=int(includedA) +mins1=int((includedA-deg1)*60) +deg2=int(includedB) +mins2=int((includedB-deg2)*60) +deg3=int(includedC) +mins3=int((includedC-deg3)*60) +deg4=int(exteriorD) +mins4=int((exteriorD-deg4)*60) +deg5=int(includedD) +mins5=int((includedD-deg5)*60) +deg6=int(exteriorE) +mins6=int((exteriorE-deg6)*60) +deg7=int(includedE) +mins7=int((includedE-deg7)*60) + +n=5 +check=(2*n-4)*90 +summ=includedA+includedB+includedC+includedD+includedE + +printf("\n included angle A= %0.3f degrees %0.3f minutes",deg1,mins1) +printf("\n included angle B= %0.3f degrees %0.3f minutes",deg2,mins2) +printf("\n included angle C= %0.3f degrees %0.3f minutes",deg3,mins3) +printf("\n exterior angle D= %0.3f degrees %0.3f minutes",deg4,mins4) +printf("\n included angle D= %0.3f degrees %0.3f minutes",deg5,mins5) +printf("\n exterior angle D= %0.3f degrees %0.3f minutes",deg6,mins6) +printf("\n included angle E= %0.3f degrees %0.3f minutes",deg7,mins7) +printf("\n %0.3f degrees %0.3f degrees ",check,summ) + +//(b) + +printf("\n %0.3f correct %0.3f correct %0.3f correct", FB_AB,FB_BC,BB_AB) + + +FB_BC=(328+(45/60))-(326+(15/60)) +FB_CD=(224+(30/60))+FB_BC +BB_CD=227-180 +correctionatD=1 +FB_DE=(217+(15/60))+1 +BB_DE=FB_DE-180 + +deg1=int(FB_AB) +mins1=int((FB_AB-deg1)*60) +deg2=int(FB_CD) +mins2=int((FB_CD-deg2)*60) +deg3=int(BB_CD) +mins3=int((BB_CD-deg3)*60) +deg4=int(FB_DE) +mins4=int((FB_DE-deg4)*60) +deg5=int(BB_DE) +mins5=int((BB_DE-deg5)*60) + +printf("\n correction= %0.3f ",correctionatD) +printf("\n corrected values are:") +printf("\n FB_AB= %0.3f degrees %0.3f minutes",deg1,mins1) +printf("\n FB_CD= %0.3f degrees %0.3f minutes",deg2,mins2) +printf("\n BB_CD= %0.3f degrees %0.3f minutes",deg3,mins3) +printf("\n FB_DE= %0.3f degrees %0.3f minutes",deg4,mins4) +printf("\n BB_DE= %0.3f degrees %0.3f minutes",deg5,mins5) +printf("\n AB=100m, BC=100m,CD=50m, scale=20m for plot") diff --git a/3782/CH3/EX3.21/Ex3_21.sce b/3782/CH3/EX3.21/Ex3_21.sce new file mode 100644 index 000000000..30a5bf080 --- /dev/null +++ b/3782/CH3/EX3.21/Ex3_21.sce @@ -0,0 +1,70 @@ + + + +// +//given + +BB_AB=239+(00/60) +BB_BC=317+(00/60) +BB_CD=36+(30/60) +BB_DE=29+(00/60) +BB_EA=138+(45/60) + +FB_AB=59+(00/60) +FB_BC=139+(30/60) +FB_CD=215+(15/60) +FB_DE=208+(0/60) +FB_EA=318+(30/60) + +printf("\n %0.3f correct %0.3f correct %0.3f correct", FB_AB,FB_BC,BB_AB) + + +correctionatC=2+(30/60) +FB_CD=(215+(15/60))+correctionatC +correctionatD=1+(15/60) +FB_DE=208+correctionatD +correctionatE=(15/60) +FB_EA=(318+(30/60))+correctionatE + +//convert into mins and degrees +deg2=int(FB_CD) +mins2=int((FB_CD-deg2)*60) +deg4=int(FB_DE) +mins4=int((FB_DE-deg4)*60) +deg5=int(FB_EA) +mins5=int((FB_EA-deg5)*60) + +printf("\n correctionatC= %0.3f ",correctionatC) +printf("\n correctionatD= %0.3f ",correctionatD) +printf("\n correctionatE= %0.3f ",correctionatE) +printf("\n corrected values are:") +printf("\n BB_CD= %0.3f BB_DE= %0.3f BB_EA= %0.3f ",217.75,209.25,138.75) +printf("\n FB_CD= %0.3f degrees %0.3f minutes",deg2,mins2) +printf("\n FB_DE= %0.3f degrees %0.3f minutes",deg4,mins4) +printf("\n FB_EA= %0.3f degrees %0.3f minutes",deg5,mins5) +printf("\n declination= -10 degrees W") + +BB_AB=239+(00/60)-10 +BB_BC=317+(00/60)-10+correctionatC +BB_CD=36+(30/60)-10+correctionatD +BB_DE=29+(00/60)-10 +BB_EA=138+(45/60)-10 + +FB_AB=59-10 +FB_BC=(139+(30/60))-10 +FB_CD=(215+(15/60))-10+correctionatC +FB_DE=(208+(0/60))-10+correctionatD +FB_EA=(318+(30/60))-10+correctionatE + +printf("\n true bearing values:") +printf("\n BB_AB= %0.3f ",BB_AB) +printf("\n BB_BC= %0.3f ",BB_BC) +printf("\n BB_CD= %0.3f ",BB_CD) +printf("\n BB_DE= %0.3f ",BB_DE) +printf("\n BB_EA= %0.3f ",BB_EA) + +printf("\n FB_AB= %0.3f ",FB_AB) +printf("\n FB_BC= %0.3f ",FB_BC) +printf("\n FB_CD= %0.3f ",FB_CD) +printf("\n FB_DE= %0.3f ",FB_DE) +printf("\n FB_EA= %0.3f ",FB_EA) diff --git a/3782/CH3/EX3.22/Ex3_22.sce b/3782/CH3/EX3.22/Ex3_22.sce new file mode 100644 index 000000000..4b76f1059 --- /dev/null +++ b/3782/CH3/EX3.22/Ex3_22.sce @@ -0,0 +1,39 @@ + + +// +//given + +BB_AB=45+(30/60) +BB_BC=60+(40/60) +BB_CD=3+(20/60) +BB_DA=85+(00/60) + + +FB_AB=45+(30/60) +FB_BC=60+(0/60) +FB_CD=5+(30/60) +FB_DA=83+(30/60) + + +printf("\n %0.3f correct %0.3f correct %0.3f correct", FB_AB,FB_BC,BB_AB) + + +correctionatC=-0+(40/60) +FB_CD=(5+(30/60))+correctionatC +correctionatD=1+(30/60) +FB_DA=83+(30/60)+correctionatD + +//convert into mins and degrees + +deg2=int(FB_CD) +mins2=int((FB_CD-deg2)*60) +deg4=int(FB_DA) +mins4=int((FB_DA-deg4)*60) + + +printf("\n correctionatC= %0.3f ",correctionatC) +printf("\n correctionatD= %0.3f ",correctionatD) + +printf("\n corrected values are:") +printf("\n BB_CD=N %0.3f W BB_BC=N %0.3f degrees W",4.83,60) +printf("\n FB_CD=N %0.3f W FB_DA=N %0.3f degrees W",4.83,85) diff --git a/3782/CH3/EX3.23/Ex3_23.sce b/3782/CH3/EX3.23/Ex3_23.sce new file mode 100644 index 000000000..14e034f02 --- /dev/null +++ b/3782/CH3/EX3.23/Ex3_23.sce @@ -0,0 +1,32 @@ + + +// +//given + +BB_AB=41+(15/60) +BB_BC=79+(30/60) +BB_CD=20+(0/60) +BB_DA=80+(00/60) + + +FB_AB=40+(30/60) +FB_BC=80+(45/60) +FB_CD=19+(30/60) +FB_DA=80+(00/60) + + +printf("\n %0.3f correct %0.3f correct %0.3f correct", FB_DA,FB_AB,BB_DA) + +//calculations +correctionatB=-0+(45/60) +FB_BC=(80+(45/60))+correctionatB +correctionatC=0+(30/60) +FB_CD=19+(30/60)+correctionatC + + +printf("\n correctionatB= %0.3f ",correctionatB) +printf("\n correctionatC= %0.3f ",correctionatC) + +printf("\n corrected values are:") +printf("\n BB_AB=N %0.3f E BB_BC=N %0.3f degrees E",40.5,80) +printf("\n FB_CD=N %0.3f E FB_DA=S %0.3f degrees E",20,80) diff --git a/3782/CH3/EX3.24/Ex3_24.sce b/3782/CH3/EX3.24/Ex3_24.sce new file mode 100644 index 000000000..390f920e5 --- /dev/null +++ b/3782/CH3/EX3.24/Ex3_24.sce @@ -0,0 +1,69 @@ + + +// +//given + +BB_AB=239+(00/60) +BB_BC=317+(0/60) +BB_CD=36+(30/60) +BB_DE=29+(00/60) +BB_EA=138+(45/60) + +FB_AB=59+(0/60) +FB_BC=139+(30/60) +FB_CD=215+(15/60) +FB_DE=208+(0/60) +FB_EA=318+(30/60) + +//(a) +includedA=-FB_AB+BB_EA +includedB=-FB_BC+BB_AB +includedC=BB_BC-FB_CD +includedD=360-(171+(30/60)) +exteriorD=FB_DE-BB_CD +exteriorE=FB_EA-BB_DE +includedE=360-(289+(30/60)) + + +//convert into mins and degrees +deg1=int(includedA) +mins1=int((includedA-deg1)*60) +deg2=int(includedB) +mins2=int((includedB-deg2)*60) +deg3=int(includedC) +mins3=int((includedC-deg3)*60) +deg4=int(exteriorD) +mins4=int((exteriorD-deg4)*60) +deg5=int(includedD) +mins5=int((includedD-deg5)*60) +deg6=int(exteriorE) +mins6=int((exteriorE-deg6)*60) +deg7=int(includedE) +mins7=int((includedE-deg7)*60) + +n=5 +check=(2*n-4)*90 +summ=includedA+includedB+includedC+includedD+includedE + +printf("\n included angle A= %0.3f degrees %0.3f minutes",deg1,mins1) +printf("\n included angle B= %0.3f degrees %0.3f minutes",deg2,mins2) +printf("\n included angle C= %0.3f degrees %0.3f minutes",deg3,mins3) +printf("\n exterior angle D= %0.3f degrees %0.3f minutes",deg4,mins4) +printf("\n included angle D= %0.3f degrees %0.3f minutes",deg5,mins5) +printf("\n exterior angle D= %0.3f degrees %0.3f minutes",deg6,mins6) +printf("\n included angle E= %0.3f degrees %0.3f minutes",deg7,mins7) +printf("\n %0.3f degrees %0.3f degrees ",check,summ) +//(b) +printf("\n %0.3f correct %0.3f correct %0.3f correct", FB_AB,FB_BC,BB_AB) + + + +FB_CD=(215+(15/60))+(2+(30/60)) +BB_CD=(37+(45/60)) +correctionatD=(1+(15/60)) +FB_DE=(208+(0/60))+correctionatD +FB_EA=(318+(30/60))+(0+(15/60)) + + +printf("\n correction= %0.3f ",correctionatD) +printf("\n corrected values are:") diff --git a/3782/CH3/EX3.3/Ex3_3.sce b/3782/CH3/EX3.3/Ex3_3.sce new file mode 100644 index 000000000..cd9c5a72d --- /dev/null +++ b/3782/CH3/EX3.3/Ex3_3.sce @@ -0,0 +1,29 @@ + +// +// + +//(a) +QB_AB=36+(30/60) +WCB_AB=180+QB_AB +mins=(WCB_AB-int(WCB_AB))*60 +deg=int(WCB_AB) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) +//(b) +QB_BC=43+(30/60) +WCB_BC=180-QB_BC +mins=(WCB_BC-int(WCB_BC))*60 +deg=int(WCB_BC) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) + +//(c) +QB_CD=26+(45/60) +WCB_CD=QB_CD +mins=(WCB_CD-int(WCB_CD))*60 +deg=int(WCB_CD) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) +//(d) +QB_DE=40+(15/60) +WCB_DE=360-QB_DE +mins=(WCB_DE-int(WCB_DE))*60 +deg=int(WCB_DE) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) diff --git a/3782/CH3/EX3.4/Ex3_4.sce b/3782/CH3/EX3.4/Ex3_4.sce new file mode 100644 index 000000000..ca3b15692 --- /dev/null +++ b/3782/CH3/EX3.4/Ex3_4.sce @@ -0,0 +1,31 @@ + +// +// + +//(a) +FB_AB=30+(30/60) +BB_AB=FB_AB +mins=(BB_AB-int(BB_AB))*60 +deg=int(BB_AB) +printf("\n N %0.3f degrees %0.3f minutes W",deg,mins) + +//(b) +FB_AB=40+(30/60) +BB_AB=FB_AB +mins=(BB_AB-int(BB_AB))*60 +deg=int(BB_AB) +printf("\n S %0.3f degrees %0.3f minutes E",deg,mins) + +//(c) +FB_AB=60+(15/60) +BB_AB=FB_AB +mins=(BB_AB-int(BB_AB))*60 +deg=int(BB_AB) +printf("\n N %0.3f degrees %0.3f minutes E",deg,mins) + +//(d) +FB_AB=45+(30/60) +BB_AB=FB_AB +mins=(BB_AB-int(BB_AB))*60 +deg=int(BB_AB) +printf("\n S %0.3f degrees %0.3f minutes W",deg,mins) diff --git a/3782/CH3/EX3.5/Ex3_5.sce b/3782/CH3/EX3.5/Ex3_5.sce new file mode 100644 index 000000000..08e0f3bed --- /dev/null +++ b/3782/CH3/EX3.5/Ex3_5.sce @@ -0,0 +1,30 @@ + +// +// + +//(a) +BB_AB=40+(30/60) +FB_AB=BB_AB+180 +mins=(FB_AB-int(FB_AB))*60 +deg=int(FB_AB) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) +//(b) +BB_BC=310+(45/60) +FB_BC=BB_BC-180 +mins=(FB_BC-int(FB_BC))*60 +deg=int(FB_BC) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) + +//(c) +BB_CD=145+(45/60) +FB_CD=BB_CD+180 +mins=(FB_CD-int(FB_CD))*60 +deg=int(FB_CD) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) + +//(d) +BB_DE=215+(30/60) +FB_DE=BB_DE-180 +mins=(FB_DE-int(FB_DE))*60 +deg=int(FB_DE) +printf("\n %0.3f degrees %0.3f minutes W",deg,mins) diff --git a/3782/CH3/EX3.6/Ex3_6.sce b/3782/CH3/EX3.6/Ex3_6.sce new file mode 100644 index 000000000..2e1e1227a --- /dev/null +++ b/3782/CH3/EX3.6/Ex3_6.sce @@ -0,0 +1,31 @@ + +// +// + +//(a) +BB_AB=30+(30/60) +FB_AB=BB_AB +mins=(FB_AB-int(FB_AB))*60 +deg=int(FB_AB) +printf("\n S %0.3f degrees %0.3f minutes E",deg,mins) + +//(b) +BB_BC=40+(15/60) +FB_BC=BB_BC +mins=(FB_BC-int(FB_BC))*60 +deg=int(FB_BC) +printf("\n N %0.3f degrees %0.3f minutes W",deg,mins) + +//(c) +BB_CD=60+(45/60) +FB_CD=BB_CD +mins=(FB_CD-int(FB_CD))*60 +deg=int(FB_CD) +printf("\n S %0.3f degrees %0.3f minutes W",deg,mins) + +//(d) +BB_DE=45+(30/60) +FB_DE=BB_DE +mins=(FB_DE-int(FB_DE))*60 +deg=int(FB_DE) +printf("\n N %0.3f degrees %0.3f minutes E",deg,mins) diff --git a/3782/CH3/EX3.7/Ex3_7.sce b/3782/CH3/EX3.7/Ex3_7.sce new file mode 100644 index 000000000..08ba2998c --- /dev/null +++ b/3782/CH3/EX3.7/Ex3_7.sce @@ -0,0 +1,18 @@ + +// + +// + +magneticbearing=135+0.5 +declination=5+0.25 +truebearing=magneticbearing-declination +deg=int(truebearing) +mins=truebearing-deg +printf("\n truebearing of AB= %0.3f degrees %0.3f minutes",deg,15.0) + +truebearing=210+(45/60) +declination=8+(15/60) +magnetic_bearing=truebearing+declination +deg=int(magnetic_bearing) +mins=magnetic_bearing-deg +printf("\n magnetic bearing of AB= %0.3f degrees %0.3f minutes",deg,mins) diff --git a/3782/CH3/EX3.8/Ex3_8.sce b/3782/CH3/EX3.8/Ex3_8.sce new file mode 100644 index 000000000..a04947f13 --- /dev/null +++ b/3782/CH3/EX3.8/Ex3_8.sce @@ -0,0 +1,12 @@ + +// +// + +RB_CD=30+(15/60) +WCB_CD=180+RB_CD +declination=10+(15/60) +TB=WCB_CD+declination +truebearing=TB-180 +deg=int(truebearing) +mins=(truebearing-deg)*60 +printf("\n Required true bearing= S %0.3f degrees %0.3f minutes W",deg,mins) diff --git a/3782/CH3/EX3.9/Ex3_9.sce b/3782/CH3/EX3.9/Ex3_9.sce new file mode 100644 index 000000000..4464b97ef --- /dev/null +++ b/3782/CH3/EX3.9/Ex3_9.sce @@ -0,0 +1,12 @@ + +// +// + +magneticbearing=320+(30/60) +declination=3+(30/60) +truebearing=magneticbearing-declination +declination2=4+(15/60) +MB=truebearing-declination2 +deg=int(MB) +mins=(MB-deg)*60 +printf("\n Magnetic bearing= %0.3f degrees %0.3f minutes",deg,mins) diff --git a/3782/CH5/EX5.1/Ex5_1.sce b/3782/CH5/EX5.1/Ex5_1.sce new file mode 100644 index 000000000..d7a26bfef --- /dev/null +++ b/3782/CH5/EX5.1/Ex5_1.sce @@ -0,0 +1,29 @@ + +// + +// + +a=150 +b=100 +ar=2.525 +br=1.755 + +sc=1000 +d=(a*a)/(sc*sc) + +A=0.0673*d*d + +fa=ar-A + +printf("\n correct reading on A = %0.3f meters',fa) + + +d=(b*b)/(sc*sc) + +B=0.0673*d*d +fb=br-B + +printf("\n correct reading of B = %0.3f meters',fb) + +AB=fa-fb +printf("\n true difference is %0.3f meters',AB) diff --git a/3782/CH5/EX5.10/Ex5_10.sce b/3782/CH5/EX5.10/Ex5_10.sce new file mode 100644 index 000000000..09a905a19 --- /dev/null +++ b/3782/CH5/EX5.10/Ex5_10.sce @@ -0,0 +1,28 @@ + +// + +// + +aa=1.155 +ab=2.595 +ba=0.985 +bb=2.415 + +td=((ab-aa)+(bb-ba))/2 + +rla=525.5 +rlb=rla-td +dab=500 +printf("\n true RL of B %0.3f meters',rlb) + +dab1=dab/1000 + +correct=0.0673*dab1*dab1 +printf("\n combined corrction for 500m= %0.3f meters',correct) + +sc=100 +a=1.155 +e=-(0.0118*sc)/(dab) + + +printf("\n collimation error per 100m= %0.3f meters',e) diff --git a/3782/CH5/EX5.11/Ex5_11.sce b/3782/CH5/EX5.11/Ex5_11.sce new file mode 100644 index 000000000..79cf31460 --- /dev/null +++ b/3782/CH5/EX5.11/Ex5_11.sce @@ -0,0 +1,24 @@ + +// + +// + +aa=1.725 +ab=1.370 +ba=1.560 +bb=1.235 + +A=aa-ab +B=ba-bb + +AB=(A+B)/2 + +printf("\n true difference between A and B is %0.3f meters',AB) + +CB=bb +CA=CB+AB + +OCA=1.560 +e=OCA-CA + +printf("\n amount of collimation error = %0.3f meters',e) diff --git a/3782/CH5/EX5.12/Ex5_12.sce b/3782/CH5/EX5.12/Ex5_12.sce new file mode 100644 index 000000000..f237aac99 --- /dev/null +++ b/3782/CH5/EX5.12/Ex5_12.sce @@ -0,0 +1,37 @@ + +// + +// + +aa=1.725 +ab=2.245 +ba=2.145 +bb=3.045 + +AB=200 +rla=450 + + +aAB=ab-aa + +printf("\n apparent difference of level between A and B is %0.3f meters',aAB) + +dB=bb-ba + +printf("\n apparent difference of level at B %0.3f meters',dB) + +td=(aAB+dB)/2 + +printf("\n true differece of level= %0.3f ",td) + +CB=bb + +CA=CB-td + +e=ba-CA + +printf("\n correction to be applied at A is = %0.3f ",e) + +rlb=rla-td + +printf("\n RL of B= %0.3f meters',rlb) diff --git a/3782/CH5/EX5.13/Ex5_13.sce b/3782/CH5/EX5.13/Ex5_13.sce new file mode 100644 index 000000000..c616785de --- /dev/null +++ b/3782/CH5/EX5.13/Ex5_13.sce @@ -0,0 +1,37 @@ + +// + +// + +aa=1.725 +ab=2.245 +ba=2.145 +bb=3.045 +dAB=200 +rla=450.0 +AB=ab-aa +printf("\n AB") +adif=bb-ba + +printf("\n apparent difference of level = %0.3f meters',adif) + +//a +td=(AB+adif)/2 +printf("\n true difference of level= %0.3f meters',td) +//b + +tb=bb +ta=bb-td + +printf("\n true reading on A= %0.3f meters',ta) + +//c + +e=ba-ta + +printf("\n collimation error = %0.3f meters',e) + +//d + +rlb=rla-td +printf("\n RL of B= %0.3f meters',rlb) diff --git a/3782/CH5/EX5.14/Ex5_14.sce b/3782/CH5/EX5.14/Ex5_14.sce new file mode 100644 index 000000000..ef80ead15 --- /dev/null +++ b/3782/CH5/EX5.14/Ex5_14.sce @@ -0,0 +1,22 @@ + +// +// + +ma=1.585 +mb=1.225 +aa=1.425 +ab=1.150 + +dAB=100 + +//a +td=ma-mb +B=aa-td + +printf("\n correct staff reading on B should be = %0.3f meters',B) + +//c + + +e=ab-B +printf("\n collimation error is %0.3f meters',e) diff --git a/3782/CH5/EX5.15/Ex5_15.sce b/3782/CH5/EX5.15/Ex5_15.sce new file mode 100644 index 000000000..a99cbab30 --- /dev/null +++ b/3782/CH5/EX5.15/Ex5_15.sce @@ -0,0 +1,35 @@ + +//ch-5 page 187 pb-3 + +// +// + +dAB=100 + +aa=1.875 +ab=1.790 + +le=10 + +ba=1.630 +bb=1.560 + + +td=aa-ab + +apd=ba-bb +printf("\n first setting') +printf("\n true difference is %0.3f meters',td) +printf("\n apparent difference of level = %0.3f meters',apd) + +printf("\n second setting') + +A=ba-td + +e1=bb-A + +cA=(le/dAB)*e1 +cB=((le+dAB)/dAB)*e1 +printf("\n collimation error is %0.3f meters',e1) +printf("\n correction at A= %0.3f meters',cA) +printf("\n correction at B= %0.3f meters',cB) diff --git a/3782/CH5/EX5.16/Ex5_16.sce b/3782/CH5/EX5.16/Ex5_16.sce new file mode 100644 index 000000000..c2c243232 --- /dev/null +++ b/3782/CH5/EX5.16/Ex5_16.sce @@ -0,0 +1,36 @@ + +// +// + +bs1=2.375,bs2=2.835,bs3=0.435, + +is1=1.730,is2=0.615,is3=2.070,is4=1.835,is5=1.630, + +is6=2.255 +fs1=3.450,fs2=0.985,fs3=3.630, + + +sbs=bs1+bs2+bs3 +sis=is1+is2+is3+is4+is5+is6 +sfs=fs1+fs2+fs3 + +r1=bs1-is1 +r2=is1-is2 +r3=bs2-is3 +r4=is3-is4 +r5=is4-fs2 +sr=r1+r2+r3+r4+r5 +printf("\n r1,r2,r3,r4,r5,sr") + + +f1=bs2 +f2=is5-bs3 +f3=fs3-is6 +f4=is6-is5 +sf=f1+f2+f3+f4 +printf("\n f1,f2,f4,f3,sf") + +k=sbs-sfs +printf("\n k= %0.3f ",k) +k1=sr-sf +printf("\n k1= %0.3f ",k1) diff --git a/3782/CH5/EX5.17/Ex5_17.sce b/3782/CH5/EX5.17/Ex5_17.sce new file mode 100644 index 000000000..c9442d492 --- /dev/null +++ b/3782/CH5/EX5.17/Ex5_17.sce @@ -0,0 +1,35 @@ + +// +// + +bs1=3.150,bs2=3.860,bs3=0.470, + +is1=2.245,is2=2.125,is3=0.760,is4=1.935,is5=3.225, + +fs1=1.125,fs2=2.235,fs3=3.890, + + +sbs=bs1+bs2+bs3 +sis=is1+is2+is3+is4+is5 +sfs=fs1+fs2+fs3 + +r1=bs1-is1 +r2=is1-fs1 +r3=bs2-is2 +r4=is2-is3 + +sr=r1+r2+r3+r4 +printf("\n r1,r2,r3,r4,sr") + + +f1=fs2-is3 +f2=is4-bs3 +f3=is5-is4 +f4=fs3-is5 +sf=f1+f2+f3+f4 +printf("\n f1,f2,f4,f3,sf") + +k=sbs-sfs +printf("\n k= %0.3f ",k) +k1=sr-sf +printf("\n k1= %0.3f ",k1) diff --git a/3782/CH5/EX5.2/Ex5_2.sce b/3782/CH5/EX5.2/Ex5_2.sce new file mode 100644 index 000000000..ac4eeec36 --- /dev/null +++ b/3782/CH5/EX5.2/Ex5_2.sce @@ -0,0 +1,12 @@ + +// + +// + + +d=30 +sc=1000 + +h=0.0673*d*d + +printf("\n heigght of lighthouse is %0.3f meters',h) diff --git a/3782/CH5/EX5.3/Ex5_3.sce b/3782/CH5/EX5.3/Ex5_3.sce new file mode 100644 index 000000000..81dba7177 --- /dev/null +++ b/3782/CH5/EX5.3/Ex5_3.sce @@ -0,0 +1,16 @@ + +// + +// + +h=50 + +d=sqrt(h/0.0673) +printf("\n D= %0.3f ",d) + +r=6370 +dip=d/r +printf("\n dimp of horizon %0.3f degrees',dip) + +dip1=dip*((180*60)/%pi) +printf("\n dimp of horizon %0.3f minutes',dip1) diff --git a/3782/CH5/EX5.4/Ex5_4.sce b/3782/CH5/EX5.4/Ex5_4.sce new file mode 100644 index 000000000..6cb9e0b37 --- /dev/null +++ b/3782/CH5/EX5.4/Ex5_4.sce @@ -0,0 +1,16 @@ + +// + +// + +h1=50 +h2=10 +c=0.0673 + +d1=sqrt(h1/c) + +d2=sqrt(h2/c) + +dis=d1+d2 + +printf("\n distance between man and object is %0.3f meters',dis) diff --git a/3782/CH5/EX5.5/Ex5_5.sce b/3782/CH5/EX5.5/Ex5_5.sce new file mode 100644 index 000000000..74cbd8e8e --- /dev/null +++ b/3782/CH5/EX5.5/Ex5_5.sce @@ -0,0 +1,13 @@ + +// + +// + +h1=10 +c=0.0673 +d1=sqrt(h1/c) + +d2=d1-80 //since d1+d2=80 +h2=c*d2*d2 + +printf("\n height of the hill is %0.3f meters',h2) diff --git a/3782/CH5/EX5.6/Ex5_6.sce b/3782/CH5/EX5.6/Ex5_6.sce new file mode 100644 index 000000000..ae66e3f5b --- /dev/null +++ b/3782/CH5/EX5.6/Ex5_6.sce @@ -0,0 +1,15 @@ + +// + +// + +h1=100 +h2=150 + +r2=12880 +c=(6/7)*(1000/r2) +d1=sqrt(h1/c) +d2=sqrt(h2/c) + +d=d1+d2 +printf("\n distance AB = %0.3f meters',d) diff --git a/3782/CH5/EX5.7/Ex5_7.sce b/3782/CH5/EX5.7/Ex5_7.sce new file mode 100644 index 000000000..e652ca10d --- /dev/null +++ b/3782/CH5/EX5.7/Ex5_7.sce @@ -0,0 +1,19 @@ + +// + +// + +r1=2.550 +r2=2.500 + +s=r1-r2 +d=0.002 +D=100 +n=5 +r=(n*d*D/s) + +printf("\n R= %0.3f ",r) + +alp=(s/(n*D))*206265 + +printf("\n sensitiveness of bubble is %0.3f seconds',alp) diff --git a/3782/CH5/EX5.8/Ex5_8.sce b/3782/CH5/EX5.8/Ex5_8.sce new file mode 100644 index 000000000..b5f505163 --- /dev/null +++ b/3782/CH5/EX5.8/Ex5_8.sce @@ -0,0 +1,13 @@ + +// + +// + +n=2 +D=100 +alp=20 + + +s=(alp*n*D)/206265 + +printf("\n error is %0.3f meters',s) diff --git a/3782/CH5/EX5.9/Ex5_9.sce b/3782/CH5/EX5.9/Ex5_9.sce new file mode 100644 index 000000000..f7424197b --- /dev/null +++ b/3782/CH5/EX5.9/Ex5_9.sce @@ -0,0 +1,21 @@ +clear +// + +// + +a=2.245 +b=3.375 +AB=b-a + +ap=1.955 +bp=3.055 + +dAB=bp-ap + +tl=(AB+dAB)/2 +printf("\n true level of difference is %0.3f meters',tl) +rla=125.55 +rlb=rla-tl + + +printf("\n RL of B = %0.3f meters',rlb) diff --git a/3782/CH7/EX7.1/Ex7_1.sce b/3782/CH7/EX7.1/Ex7_1.sce new file mode 100644 index 000000000..2a5f33284 --- /dev/null +++ b/3782/CH7/EX7.1/Ex7_1.sce @@ -0,0 +1,86 @@ + + + +// +//s + + +printf("\n chainage 0 and 20') +a1=0,b1=20, + +//finding base and height of each triangle +base=b1-a1 +o1=0,o2=42, + +mo1=(o2+o1)/2 +//calculating area +ae1=base*mo1 +printf("\n area ACG= %0.3f sq m",ae1) + +printf("\n chainage 20 and 65') +a1=20,b1=65, + + +base=b1-a1 +o1=58,o2=42, + +mo2=(o2+o1)/2 + +ae2=base*mo2 +printf("\n area IEB= %0.3f sq m",ae2) + + +printf("\n chainage 65 and 110') +a1=65,b1=110, + + +base=b1-a1 +o1=0,o2=58, + +mo3=(o2+o1)/2 + +ae3=base*mo3 +printf("\n area DHA= %0.3f sq m",ae3) + + +printf("\n chainage 90 and 110') +a1=90,b1=110, + + +base=b1-a1 +o1=0,o2=60, + +mo4=(o2+o1)/2 + +ae4=base*mo4 +printf("\n area BFJ= %0.3f sq m",ae4) + +printf("\n chainage 40 and 90') + +a1=40,b1=90, + + +base=b1-a1 +o1=60,o2=20, + +mo5=(o2+o1)/2 + +ae5=base*mo5 +printf("\n area FJHD= %0.3f sq m",ae5) + +printf("\n chainage 0 and 40') +a1=0,b1=40, + + +base=b1-a1 +o1=20,o2=0, + +mo6=(o2+o1)/2 + +ae6=base*mo6 +printf("\n area DHA= %0.3f sq m",ae6) + + +area=ae1+ae2+ae3+ae4+ae5+ae6 + +printf("\n area of field = %0.3f sq m",area) diff --git a/3782/CH7/EX7.10/Ex7_10.sce b/3782/CH7/EX7.10/Ex7_10.sce new file mode 100644 index 000000000..03ad862e1 --- /dev/null +++ b/3782/CH7/EX7.10/Ex7_10.sce @@ -0,0 +1,22 @@ + + + +// + +//given + +l=10,b=15, + +a1=l*b + +ir=0.686 +fr=9.976 +n=2 +m=100 + +marea=150//measured area + +c=(marea/100)+10.710 + +area=m*c +printf("\n area of zero circle is %0.3f square centimeters',area) diff --git a/3782/CH7/EX7.11/Ex7_11.sce b/3782/CH7/EX7.11/Ex7_11.sce new file mode 100644 index 000000000..7d3f46bc5 --- /dev/null +++ b/3782/CH7/EX7.11/Ex7_11.sce @@ -0,0 +1,30 @@ + + + +// + +// + +printf("\n case 1') +n=1 +c=0////anchor point outside +m=100 +fr=4.825 +ir=7.775 +area1=m*(fr-ir+10*n) + +printf("\n area of figure is %0.3f square cm',area1) + +printf("\n case 2') +fr=8.755 +ir=2.325 +m=100 +n=2 +area2=m*(fr-ir-10*n+c) + +printf("\n area of figure is %0.3f sq cm',area2) +c=(area1/m)+13.570 +printf("\n C= %0.3f ",c) + +areac=m*c +printf("\n area of zero circle is %0.3f square cm',areac) diff --git a/3782/CH7/EX7.2/Ex7_2.sce b/3782/CH7/EX7.2/Ex7_2.sce new file mode 100644 index 000000000..871e79375 --- /dev/null +++ b/3782/CH7/EX7.2/Ex7_2.sce @@ -0,0 +1,130 @@ + + + +// + +// + + +printf("\n chainage 15.5 and 27.5') +a1=15.5,b1=27.5, + +//finding base and height of each triangle + +base=b1-a1 +o1=0,o2=22.5, + +mo1=(o2+o1)/2 +//calculating area +ae1=base*mo1 +ap1=0 +an1=ae1 +printf("\n area GAM= %0.3f sq meters",ae1) + +printf("\n chainage 15.5 and 50') +a1=15.5,b1=50, + + +base=b1-a1 +o1=22.5,o2=30, + +mo2=(o2+o1)/2 + +ae2=base*mo2 +ap2=ae2 +an2=0 +printf("\n area GABI= %0.3f sq meters",ae2) + + +printf("\n chainage 50 and 75.5') +a1=50,b1=75.5, + + +base=b1-a1 +o1=30,o2=35.5, + +mo3=(o2+o1)/2 + +ae3=base*mo3 +ap3=ae3 +an3=0 +printf("\n area IBCK= %0.3f sq meters",ae3) + + +printf("\n chainage 75.5 and 86.7') +a1=75.5,b1=86.7, + + +base=b1-a1 +o1=35.5,o2=0, + +mo4=(o2+o1)/2 + +ae4=base*mo4 +ap4=ae4 +an4=0 +printf("\n area KCN= %0.3f sq meters",ae4) + +printf("\n chainage 86.7 and 90') + +a1=86.7,b1=90, + + +base=b1-a1 +o1=0,o2=10.5, + +mo5=(o2+o1)/2 + +ae5=base*mo5 +ap5=0 +an5=ae5 +printf("\n area NLD= %0.3f sq meters",ae5) + +printf("\n chainage 60 and 90') +a1=60,b1=90, + + +base=b1-a1 +o1=10.5,o2=25.0, + +mo6=(o2+o1)/2 + +ae6=base*mo6 +ap6=ae6 +an6=0 +printf("\n area LDEJ= %0.3f sq meters",ae6) + +printf("\n chainage 35.5 and 60') +a1=35.5,b1=60, + + +base=b1-a1 +o1=25,o2=15, + +mo7=(o2+o1)/2 + +ae7=base*mo7 +ap7=ae7 +an7=0 +printf("\n area JEFH= %0.3f sq meters",ae7) + +printf("\n chainage 27.5 and 35.5') +a1=27.5,b1=35.5, + + +base=b1-a1 +o1=15,o2=0, + +mo8=(o2+o1)/2 + +ae8=base*mo8 +ap8=ae8 +an8=0 +printf("\n area FHM= %0.3f sq meters",ae8) + +an=an1+an2+an3+an4+an5+an6+an7+an8 +ap=ap1+ap2+ap3+ap4+ap5+ap6+ap7+ap8 + +area=ap-an +printf("\n ap,ae= %0.3f %0.3f",ap,an) +printf("\n total area of field = %0.3f sq meters ",area) diff --git a/3782/CH7/EX7.3/Ex7_3.sce b/3782/CH7/EX7.3/Ex7_3.sce new file mode 100644 index 000000000..d034f8f6b --- /dev/null +++ b/3782/CH7/EX7.3/Ex7_3.sce @@ -0,0 +1,48 @@ + + + +// + +//GIVEN + + +dis=10 +a=0,g=0, + +b=2.5,c=3.5,d=5,e=4.6,f=3.2, + + +printf("\n Mid ordinate rule') +//FINDING MID ORDINATES +h1=(a+b)/2 +h2=(b+c)/2 +h3=(c+d)/2 +h4=(d+e)/2 +h5=(e+f)/2 +h6=(f+g)/2 +//find area +area=dis*(h1+h2+h3+h4+h5+h6) + +printf("\n required area is %0.3f square meters',area) + +printf("\n average ordinate rule') +dis=10//m +p=6//no of divs +bl=dis*p//base length +no=7//no of ordinates + + +area2=bl*(a+b+c+d+e+f+g)/no + +printf("\n required area is %0.3f square meters',area2) + +printf("\n trapezoidal rule') + + +area3=(dis/2)*(2*(a+b+c+d+e+f+g)) + +printf("\n required area is %0.3f square meters',area3) +printf("\n simpsons rule') + +area4=(dis/3)*(4*(b+d+f)+2*(c+e)) +printf("\n required area is %0.3f square meters',area4) diff --git a/3782/CH7/EX7.4/Ex7_4.sce b/3782/CH7/EX7.4/Ex7_4.sce new file mode 100644 index 000000000..9a4e8782b --- /dev/null +++ b/3782/CH7/EX7.4/Ex7_4.sce @@ -0,0 +1,31 @@ + + + +//ch-7 page 216 pb-2 +// + +//given + +printf("\n trapezoidal rule') +//given offsets +o1=3.5,o2=4.3,o3=6.75,o4=5.25,o5=7.5,o6=8.8,o7=7.9, + +o8=6.4,o9=4.4,o10=3.25, + +//distances +dis=15 + +area1=(dis/2)*(o1+o10+(2*(o2+o3+o4+o5+o6+o7+o8+o9))) + +printf("\n required area is %0.3f square meters',area1) + +printf("\n simpsons rule') + +A1=dis/3*(o1+o9+4*(o2+o4+o6+o8)+2*(o3+o5+o7)) + +A2=dis/2*(o10+o9) + +area2=A1+A2 +printf("\n%0.3f %0.3f ", A1,A2) + +printf("\n required area is %0.3f square meters',area2) diff --git a/3782/CH7/EX7.5/Ex7_5.sce b/3782/CH7/EX7.5/Ex7_5.sce new file mode 100644 index 000000000..ad7c4ae39 --- /dev/null +++ b/3782/CH7/EX7.5/Ex7_5.sce @@ -0,0 +1,43 @@ + + + +// + +//offsets + +o1=2.5,o2=3.8,o3=4.6,o4=5.2,o5=6.1,o6=4.7,o7=5.8,o8=3.9,o9=2.20, + +//here intervals are non uniform +d1=5 +d2=10 +d3=20 + + +printf("\n trapezoidal rule') + +//area of first section +del1=(d1/2)*(o1+o5+2*(o2+o3+o4)) + +//area of second section +del2=(d2/2)*(o5+o7+2*(o6)) + +//area of third section +del3=(d3/2)*(o7+o9+2*(o8)) + +//total area +total1=del1+del2+del3 +printf("\n%0.3f %0.3f %0.3f", del1,del2,del3) + +printf("\n total area= %0.3f square meters',total1) + +printf("\n simpsons rule') + +de1=(d1/3)*(o1+o5+4*(o2+o4)+2*(o3)) +de2=(d2/3)*(o5+o7+4*(o6)) +de3=(d3/3)*(o7+o9+4*(o8)) + + +total2=de1+de2+de3 +printf("\n%0.3f %0.3f %0.3f", de1,de2,de3) + +printf("\n total area is %0.3f square meters',total2) diff --git a/3782/CH7/EX7.6/Ex7_6.sce b/3782/CH7/EX7.6/Ex7_6.sce new file mode 100644 index 000000000..b1bd1ad63 --- /dev/null +++ b/3782/CH7/EX7.6/Ex7_6.sce @@ -0,0 +1,22 @@ + + + +//cha 7 page -225 pb-1 + +// + +//givwn readings + +ir=9.377 +fr=3.336 +m=100 +c=23.521 + +n=1 + +a1=m*(fr-ir+10*(n)+c)//cm2 + +a2=m*(fr-ir-10*(n)+c)//cm2 + +printf("\n A= %0.3f ",a2) +printf("\n required area is %0.3f square meters',a2) diff --git a/3782/CH7/EX7.7/Ex7_7.sce b/3782/CH7/EX7.7/Ex7_7.sce new file mode 100644 index 000000000..70516189d --- /dev/null +++ b/3782/CH7/EX7.7/Ex7_7.sce @@ -0,0 +1,21 @@ + + + +// + +//readings + +ir=8.652 +fr=6.798 +c=20 +m=100//natural scale +n=1 + +sc=100 + +a2=m*(fr-ir-10*(n)+c) + +a2=a2*sc + +printf("\n A= %0.3f ",a2) +printf("\n required area is %0.3f square meters',a2) diff --git a/3782/CH7/EX7.8/Ex7_8.sce b/3782/CH7/EX7.8/Ex7_8.sce new file mode 100644 index 000000000..f2e6a8a4a --- /dev/null +++ b/3782/CH7/EX7.8/Ex7_8.sce @@ -0,0 +1,17 @@ + + + +// + +//readings + +ir=4.855 +fr=8.754 +m=100 + +n=0//no comment +c=0//anchor point outside +sc=25 +a=m*(fr-ir) +a=a*sc +printf("\n required area is %0.3f square meters',a) diff --git a/3782/CH7/EX7.9/Ex7_9.sce b/3782/CH7/EX7.9/Ex7_9.sce new file mode 100644 index 000000000..2d3e23570 --- /dev/null +++ b/3782/CH7/EX7.9/Ex7_9.sce @@ -0,0 +1,36 @@ + + + +// + +// + +printf("\n case 1') + +ir=3.415 +fr=4.415 +n=0//anchor point outside +c=0 +sc=16 //1cm^2=16m^2 +h=10000 +ag=0.16*h + +am=ag/sc +printf("\n A= %0.3f square centimeters",am) + +m=am/(fr-ir) + +printf("\n M= %0.3f ",m) + +printf("\n case 2') + +fr_ir=2.25 +c=21.22 +n=1 + +a1=m*(fr_ir-10+c) +printf("\n required area is %0.3f square centimeters ",a1) + +area=m*c + +printf("\n area of zero circle is %0.3f square centimeters",area) diff --git a/3782/CH8/EX8.1/Ex8_1.sce b/3782/CH8/EX8.1/Ex8_1.sce new file mode 100644 index 000000000..6a9c1454b --- /dev/null +++ b/3782/CH8/EX8.1/Ex8_1.sce @@ -0,0 +1,33 @@ + + + +// + +//given + +h1=0.90,h2=1.25,h3=2.15,h4=2.50,h5=1.85,h6=1.35,h7=0.85, + + +b=10//width in m +sh=1.5//side slope in m + +h=40//m + +d1=(b+(sh*h1))*h1 +d2=(b+(sh*h2))*h2 +d3=(b+(sh*h3))*h3 +d4=(b+(sh*h4))*h4 +d5=(b+(sh*h5))*h5 +d6=(b+(sh*h6))*h6 +d7=(b+(sh*h7))*h7 + +printf("\n d1= %0.3f sq. meter,d2 = %0.3f sq. meter,d3= %0.3f sq. meter,d4= %0.3f sq. meter,d5= %0.3f sq. meter,d6= %0.3f sq. meter,d7= %0.3f sq.meter",d1,d2,d3,d4,d5,d6,d7) +printf("\n by trapezoidal rule') +v=(h/2)*(d1+d7+2*(d2+d3+d4+d5+d6)) +printf("\n V= %0.3f meter cube',v) + +printf("\n by prismoidal rule') + +v1=(h/3)*(d1+d7+4*(d2+d4+d6)+2*(d3+d5)) + +printf("\n V= %0.3f meter cube',v1) diff --git a/3782/CH8/EX8.10/Ex8_10.sce b/3782/CH8/EX8.10/Ex8_10.sce new file mode 100644 index 000000000..f826349b4 --- /dev/null +++ b/3782/CH8/EX8.10/Ex8_10.sce @@ -0,0 +1,60 @@ + + + +// + +// + +a1=0,a2=3.0, + +b1=2.20,b2=5.50, + +c1=1.75,c2=3.0, + +d1=1.5,d2=0, + +e1=4.75,e2=5.25, + +f1=6.40,f2=7.30, + +g1=0,g2=3.0, + + +printf("\n at station 1') +sp=(e1*d2)+(f1*e2)+(d2*f2)+(c1*d2)+(b1*c2)+(a1*b2) + +sq=(e2*d1)+(e1*f2)+(f1*g2)+(d1*c2)+(c1*b2)+(b1*a2) + +area1=0.5*(sp-sq) +area1=abs(area1) +printf("\n sp= %0.3f,sq= %0.3f",sp,sq) +printf("\n area = %0.3f sq. meter",area1) + +a1=0,a2=3.0, + +b1=3.1,b2=5.25, + +c1=2.20,c2=3.0, + +d1=2,d2=0, + +e1=5.25,e2=6, + +f1=7.40,f2=8.5, + +g1=0,g2=3.0, + +printf("\n at station 2') +sp1=(e1*d2)+(f1*e2)+(d2*f2)+(c1*d2)+(b1*c2)+(a1*b2) + +sq1=(d1*e2)+(e1*f2)+(f1*g2)+(d1*c2)+(c1*b2)+(b1*a2) +printf("\n sp1= %0.3f,sq1= %0.3f",sp1,sq1) + + +area2=0.5*(sp1-sq1) +area2=abs(area2) +printf("\n area = %0.3f sq. meters",area2) + +printf("\n volume by average end area rule') +v=50*((area1+area2)/2) +printf("\n volume= %0.3f cu. meters",v) diff --git a/3782/CH8/EX8.2/Ex8_2.sce b/3782/CH8/EX8.2/Ex8_2.sce new file mode 100644 index 000000000..d594f4d4a --- /dev/null +++ b/3782/CH8/EX8.2/Ex8_2.sce @@ -0,0 +1,59 @@ + + + +// + +// + +h1=0.75,h2=1.15,h3=0.80,h4=1.30,h5=1.5,h6=0.75 + +b=8 //m +sh=2 //m + + +x1=(50*h1)/(h1+h2) +x2=(50*h2)/(h2+h3) +x3=(50*h3)/(h4+h3) +x4=(50*h4)/(h4+h5) +printf("\n x1=%0.3f m,x2=%0.3f m,x3=%0.3f m,x4=%0.3f m",x1,x2,x3,x4) + +a1=(b+(sh*h1))*h1 +a2=(b+(sh*h2))*h2 +a3=(b+(sh*h3))*h3 +a4=(b+(sh*h4))*h4 +a5=(b+(sh*h5))*h5 +a6=(b+(sh*h6))*h6 +printf("\n a1=%0.3f sq.m,a2=%0.3f sq.m,a3=%0.3f sq.m,a4=%0.3f sq.m,a5=%0.3f sq.m,a6=%0.3f sq.m",a1,a2,a3,a4,a5,a6) + +printf("\n from chainage 0 to 50') +c1=(a1/2)*(x1) +f1=(a2/2)*(x2+0.79) +printf("\n c1=%0.3f cu.m,f1=%0.3f cu.m",c1,f1) + + + +printf("\n from chainage 50 to 100') +f2=(a2/2)*(x2) +c2=(a3/2)*(x3+1.46) +printf("\n c2=%0.3f cu.m,f2=%0.3f cu.m",c2,f2) + +printf("\n from chainage 100 to 150') +c3=(a3/2)*(x3) +f3=(a4/2)*(30.95) +printf("\n c3%0.3f cu.m,f3=%0.3f cu.m",c3,f3) + +printf("\n from chainage 150 to 200') +f4=(a4/2)*(x4) +c4=(a5/2)*(x4+3.59) +printf("\n c4=%0.3f cu.m,f4=%0.3f cu.m",c4,f4) + +printf("\n from chainage 200 to 250') +c5=((a1+a5)/2)*50 + +printf("\n c5=%0.3f cu.m",c5) + +tc=c1+c2+c3+c4+c5 +tf=f1+f2+f3+f4 + +printf("\n total cutting = %0.3f cu. meters",tc) +printf("\n total fitting= %0.3f cu. meters",tf) diff --git a/3782/CH8/EX8.3/Ex8_3.sce b/3782/CH8/EX8.3/Ex8_3.sce new file mode 100644 index 000000000..8c1712547 --- /dev/null +++ b/3782/CH8/EX8.3/Ex8_3.sce @@ -0,0 +1,27 @@ + + + +// + +// +h=50 +h1=2.50,h2=1.25,h3=0.95,h4=1.65,h5=2.20,h6=2.85,h7=0.75, + +b=8,sh=1, +//metres + + +a1=(b+(sh*h1))*h1 +a2=(b+(sh*h2))*h2 +a3=(b+(sh*h3))*h3 +a4=(b+(sh*h4))*h4 +a5=(b+(sh*h5))*h5 +a6=(b+(sh*h6))*h6 +a7=(b+(sh*h7))*h7 + +printf("\n a1=%0.3f sq.m,a2=%0.3f sq.m,a3=%0.3f sq.m,a4=%0.3f sq.m,a5=%0.3f sq.m,a6=%0.3f sq.m,a7=%0.3f sq.m",a1,a2,a3,a4,a5,a6,a7) + +v=(h/3)*(a1+a7+4*(a2+a4+a6)+2*(a3+a5)) + + +printf("\n volume= %0.3f meter cube",v) diff --git a/3782/CH8/EX8.4/Ex8_4.sce b/3782/CH8/EX8.4/Ex8_4.sce new file mode 100644 index 000000000..d812e9392 --- /dev/null +++ b/3782/CH8/EX8.4/Ex8_4.sce @@ -0,0 +1,23 @@ + + + +// + +//areas + +a1=2050,a2=8400,a3=16300,a4=24600,a5=31500, + + +h=5 + +printf("\n according to trapezoidal rule') + +v1=(h/2)*(a1+a5+2*(a2+a3+a4)) + +printf("\n volume = %0.3f meter cube",v1) + +printf("\n according to prismoidal rule') + +v2=(h/3)*(a1+a5+4*(a2+a4)+2*(a3)) + +printf("\n volume = %0.3f meter cube",v2) diff --git a/3782/CH8/EX8.5/Ex8_5.sce b/3782/CH8/EX8.5/Ex8_5.sce new file mode 100644 index 000000000..145b639f2 --- /dev/null +++ b/3782/CH8/EX8.5/Ex8_5.sce @@ -0,0 +1,29 @@ + + + +// + +// + +printf("\n bottom section') +L=40//m +B=30//m +a1=L*B//m2 +printf("\n area A1= %0.3f sq. meters",a1) + +printf("\n mid section') +b=40//m +sh=2.5//m + +l=L+2*2*sh +b=B+2*2*sh +a2=l*b +printf("\n area A2= %0.3f sq. meters",a2) + +printf("\n top section') +sh=5 + +l1=L+2*sh +b1=B*2*2*sh +a3=l1*b1 +printf("\n area A3= %0.3f sq. meters",a3) diff --git a/3782/CH8/EX8.6/Ex8_6.sce b/3782/CH8/EX8.6/Ex8_6.sce new file mode 100644 index 000000000..505446d95 --- /dev/null +++ b/3782/CH8/EX8.6/Ex8_6.sce @@ -0,0 +1,46 @@ + + + +// + +// + +b=8//m +h=2//m +n=10 +s=1 + +printf("\n first section') +b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n))) +b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n))) + +a1=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s))) +printf("\n b1=%0.3f,b2=%0.3f",b1,b2) + +printf("\n area A1= %0.3f sq. meters",a1) + +printf("\n second section') +b=8,h=3,n=10,s=1, + + + +b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n))) +b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n))) + +a2=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s))) +printf("\n b1=%0.3f,b2=%0.3f",b1,b2) + +printf("\n area A2= %0.3f sq. meters",a2) + +printf("\n third section') +b=8,h=4,n=10,s=1, + + + +b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n))) +b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n))) + +a3=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s))) +printf("\n b1=%0.3f,b2=%0.3f",b1,b2) + +printf("\n area A3= %0.3f sq. meters",a3) diff --git a/3782/CH8/EX8.7/Ex8_7.sce b/3782/CH8/EX8.7/Ex8_7.sce new file mode 100644 index 000000000..b0a7d9e25 --- /dev/null +++ b/3782/CH8/EX8.7/Ex8_7.sce @@ -0,0 +1,46 @@ + + + +// + +// + +b=10 +h=1//m +n=10 +s=1 + +printf("\n first section') +b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n))) +b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n))) + +a1=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s))) +printf("\n b1=%0.3f,b2=%0.3f",b1,b2) + +printf("\n area A1= %0.3f ",a1) + +printf("\n second section') +b=10,h=2,n=5,s=1, + + + +b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n))) +b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n))) + +a2=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s))) +printf("\n b1=%0.3f,b2=%0.3f",b1,b2) + +printf("\n area A2= %0.3f sq. meters ",a2) + +printf("\n third section') +b=10,h=1.5,n=8,s=1, + + + +b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n))) +b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n))) + +a3=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s))) +printf("\n b1=%0.3f,b2=%0.3f",b1,b2) + +printf("\n area A3= %0.3f sq. meters",a3) diff --git a/3782/CH8/EX8.8/Ex8_8.sce b/3782/CH8/EX8.8/Ex8_8.sce new file mode 100644 index 000000000..4d1df21cc --- /dev/null +++ b/3782/CH8/EX8.8/Ex8_8.sce @@ -0,0 +1,32 @@ + + + +// + +// + +printf("\n at station 1') +h=1,h1=2.55,h2=0.95,b=9,b1=7.5,b2=5.25, + +w1=b1+b2 +a=(((h/2)*(b1+b2))+((b/4)*(h1+h2))) +printf("\n area= %0.3f sq. meter",a) + +printf("\n at station 2') +h=1.5,h1=2.8,h2=1.35,b=9,b1=8.1,b2=4.75, + + +a1=(((h/2)*(b1+b2))+((b/4)*(h1+h2))) +d=50 +k=10.01 +v=(d/2)*(a+a1) +w2=b1+b2 +printf("\n area= %0.3f sq.m ",a1) +h2=1 +h1=1.5 +cp=(d/12)*(h1-h2)*(w2-w1) + + +cv=v-cp +printf("\n v= %0.3f cu.m cp= %0.3f cu.m ",v,cp) +printf("\n correct volume = %0.3f cu.meters",cv) diff --git a/3782/CH8/EX8.9/Ex8_9.sce b/3782/CH8/EX8.9/Ex8_9.sce new file mode 100644 index 000000000..035e155d2 --- /dev/null +++ b/3782/CH8/EX8.9/Ex8_9.sce @@ -0,0 +1,46 @@ + + + +// + +// + +printf("\n section 1') +b=10,n=5,s=1,s1=2, + +d=50,h1=0.5,h2=0.7, + + +ac=0.5*(((0.5*b+n*h1)*(0.5*b+n*h1))/(n-s)) + +af=0.5*(((0.5*b-n*h1)*(0.5*b-n*h1))/(n-s1)) + +printf("\n ac=%0.3f,af=%0.3f",ac,af) + + +printf("\n section 2') + + +ac1=0.5*(((0.5*b+n*h2)*(0.5*b+n*h2))/(n-s)) + +af1=0.5*(((0.5*b-n*h2)*(0.5*b-n*h2))/(n-s1)) +D=50 +printf("\n ac1=%0.3f,af1=%0.3f",ac1,af1) +vc=((ac+ac1)/2)*D +vf=((af+af1)/2)*D + +printf("\n vc= %0.3f vf= %0.3f ",vc,vf) + +D=50//m +pcc=(D/(12*(n-s)))*(n*n*(h1-h2)*(h1-h2)) + + +pcf=(D/(12*(n-s1)))*(n*n*(h1-h2)*(h1-h2)) + + +cvc=vc-pcc +cvf=vf-pcf + +printf("\n corrected volume (in cutting)= %0.3f cu. meter",cvc) + +printf("\n corrected volume(in filling)= %0.3f cu. meter",cvf) diff --git a/3782/CH9/EX9.1/Ex9_1.sce b/3782/CH9/EX9.1/Ex9_1.sce new file mode 100644 index 000000000..078b35314 --- /dev/null +++ b/3782/CH9/EX9.1/Ex9_1.sce @@ -0,0 +1,36 @@ + +// + +// + +l1=75.5 +l2=180.5 +l3=60.25 + +t1=30.4,t2=69.4,t3=30.5, + +t2=180-t2 +t3=180-t3 + +Lc1=l1*cos(t1*(%pi/180)) +Lc2=l2*cos(t2*(%pi/180)) +Lc3=l3*cos(t3*(%pi/180)) + +Ls1=l1*sin(t1*(%pi/180)) +Ls2=l2*sin(t2*(%pi/180)) +Ls3=-l3*sin(t3*(%pi/180)) + +printf("\n Lc1,Lc2,Lc3") +printf("\n Ls1,Ls2,Ls3") +Lc4=-Lc1-Lc2-Lc3 +Ls4=-Ls1-Ls2-Ls3 + +printf("\n Lc4,Ls4") + +t4=-atan(Ls4/Lc4) +t4=t4*(180/%pi) + +l4=sqrt(Lc4*Lc4+Ls4*Ls4) + +printf("\n distance DA= %0.3f ",l4) +printf("\n bearing of DA= %0.3f ",t4) diff --git a/3782/CH9/EX9.2/Ex9_2.sce b/3782/CH9/EX9.2/Ex9_2.sce new file mode 100644 index 000000000..26e39976b --- /dev/null +++ b/3782/CH9/EX9.2/Ex9_2.sce @@ -0,0 +1,41 @@ + +// + +// + +l1=100 +l2=80 +l3=60 + +t2=39.5,t3=40.5,t4=49.75, + + +L2=l2*cos(t2*(%pi/180)) +L3=l3*cos(t3*(%pi/180)) + +D2=l2*sin(t2*(%pi/180)) +D3=l3*sin(t3*(%pi/180)) + +l41=(157.86+sqrt(157.86*157.86-4*1757.5))/2 +l42=(157.86-sqrt(157.86*157.86-4*1757.5))/2 + +printf("\n length of DA is %0.3f or %0.3f ",l41,l42) + +printf("\n when length of DA ,L=145.8') + +k=cos(t4*(%pi/180)) +k1=(L2+L3-(k*l41))/100 +t1=acos(k1) +t1=t1*(180/(%pi)) +printf("\n bearing at AB is=N %0.3f ",t1) + + +printf("\n when length of DA ,L=12.04') + +k=cos(t4*(%pi/180)) +k1=(L2+L3-(k*l42))/100 +k1=k1+0.004 +t11=acos(k1) +t11=t11*(180/(%pi)) +printf("\n k1") +printf("\n bearing at AB is=N %0.3f ",t11) diff --git a/3782/CH9/EX9.3/Ex9_3.sce b/3782/CH9/EX9.3/Ex9_3.sce new file mode 100644 index 000000000..3c714e0b3 --- /dev/null +++ b/3782/CH9/EX9.3/Ex9_3.sce @@ -0,0 +1,36 @@ + +//ch-9 page 305 pb-3 +// + +// + +l1=100.5,l3=75,l4=50.5, + +t1=30.5,t2=45,t3=40.5,t4=60,t5=40.25, + + + +L1=l1*cos(t1*(%pi/180)) +L3=-l3*cos(t3*(%pi/180)) +L4=-l4*cos(t4*(%pi/180)) + +printf("\n latitude of AB,CD,DE are %0.3f %0.3f %0.3f",L1,L3,L4) +D1=l1*sin(t1*(%pi/180)) +D3=-l3*sin(t3*(%pi/180)) +D4=-l4*sin(t4*(%pi/180)) +printf("\n Depature of AB,CD,DE are %0.3f %0.3f %0.3f",D1,D3,D4) + +L2_L5=-(L1+L3+L4) +D2_D5=-(D1+D3+D4) +printf("\n L2_L5,D2_D5") + +k=0.117 +l5=(L2_L5+D2_D5)/(k) + +k1=0.763 + +l2=(k1*l5)-L2_L5 +l2=l2/0.707 + +printf("\n length of BC= %0.3f ",l2) +printf("\n length of EA= %0.3f ",l5) diff --git a/3782/CH9/EX9.4/Ex9_4.sce b/3782/CH9/EX9.4/Ex9_4.sce new file mode 100644 index 000000000..f6a49af30 --- /dev/null +++ b/3782/CH9/EX9.4/Ex9_4.sce @@ -0,0 +1,29 @@ + +//ch-9 page 307 pb-4 +// + +// + +l1=75.5,l2=80.25,l3=75, + +t1=30.25,t2=40.5,t3=60.5, + + + +L1=l1*cos(t1*(%pi/180)) +L2=-l2*cos(t2*(%pi/180)) +L3=-l3*cos(t3*(%pi/180)) +printf("\n latitudes of AQ,QR,RB are %0.3f %0.3f %0.3f",L1,L2,L3) + + +D1=l1*sin(t1*(%pi/180)) +D2=l2*sin(t2*(%pi/180)) +D3=-l3*sin(t3*(%pi/180)) +printf("\n Depature of AQ,QR,RB are %0.3f %0.3f %0.3f",D1,D2,D3) + +L4=-(L1+L2+L3) +D4=-(D1+D2+D3) + +l4=sqrt(L4*L4+(D4*D4)) + +printf("\n length of AB= %0.3f meters',l4) diff --git a/3782/CH9/EX9.5/Ex9_5.sce b/3782/CH9/EX9.5/Ex9_5.sce new file mode 100644 index 000000000..d50fd881e --- /dev/null +++ b/3782/CH9/EX9.5/Ex9_5.sce @@ -0,0 +1,38 @@ + +//ch-9 page 308 pb-5 +// + +// + +l1=150.5,l2=200,l3=125, + +t1=50.25,t2=30.5,t3=60.5, + + + +L1=-l1*cos(t1*(%pi/180)) +L2=-l2*cos(t2*(%pi/180)) +L3=-l3*cos(t3*(%pi/180)) +printf("\n latitudes of BQ,QP,PA are %0.3f %0.3f %0.3f",L1,L2,L3) + + +D1=l1*sin(t1*(%pi/180)) +D2=-l2*sin(t2*(%pi/180)) +D3=-l3*sin(t3*(%pi/180)) +printf("\n Depature of BQ,QP,PA are %0.3f %0.3f %0.3f",D1,D2,D3) + +L4=-(L1+L2+L3) +D4=-(D1+D2+D3) + +l4=sqrt(L4*L4+(D4*D4)) + +printf("\n length of AB= %0.3f meters',l4) + +t4=atan(D4/L4) +t4=t4*(180/%pi) +printf("\n bearing of AB= %0.3f ",t4) + +PAB=t3-t4 +QBA=t1+t4 + +printf("\n PAB= %0.3f QBA= %0.3f ",PAB,QBA) diff --git a/3782/CH9/EX9.6/Ex9_6.sce b/3782/CH9/EX9.6/Ex9_6.sce new file mode 100644 index 000000000..fdbe3d6f4 --- /dev/null +++ b/3782/CH9/EX9.6/Ex9_6.sce @@ -0,0 +1,52 @@ + +//ch-9 page 308 pb-6 +// + +// + +l1=130,l2=215,l3=155.5,l4=120, + +t1=20.5,t2=60.25,t3=30.5,t4=80.5, + + + +L1=l1*cos(t1*(%pi/180)) +L2=l2*cos(t2*(%pi/180)) +L3=-l3*cos(t3*(%pi/180)) +L4=l4*cos(t4*(%pi/180)) +printf("\n latitudes of AB,BC,CD,DE are %0.3f %0.3f %0.3f %0.3f",L1,L2,L3,L4) + + +D1=l1*sin(t1*(%pi/180)) +D2=l2*sin(t2*(%pi/180)) +D3=l3*sin(t3*(%pi/180)) +D4=l4*sin(t4*(%pi/180)) +printf("\n Depature of AB,BC,CD,DE are %0.3f %0.3f %0.3f %0.3f",D1,D2,D3,D4) + +L5=-(L1+L2+L3+L4) +D5=-(D1+D2+D3+D4) + +l5=sqrt(L5*L5+(D5*D5)) + +printf("\n length of EA= %0.3f meters',l5) + +t5=atan(D5/L5) +t5=t5*(180/%pi) +printf("\n bearing of EA= %0.3f ",t5) + +FA=l5/2 +l6=FA +t6=t5 +L6=-l6*cos(t6*(%pi/180)) +D6=-l6*sin(t6*(%pi/180)) + +L7=-(L1+L2+L6) +D7=-(D1+D2+D6) + +t7=atan(D7/L7) +t7=t7*(180/%pi) +printf("\n bearing from F to C is = %0.3f ",t7) + +l7=sqrt(L7*L7+(D7*D7)) + +printf("\n distance from F to C is = %0.3f ",l7) diff --git a/3782/CH9/EX9.7/Ex9_7.sce b/3782/CH9/EX9.7/Ex9_7.sce new file mode 100644 index 000000000..64d402d75 --- /dev/null +++ b/3782/CH9/EX9.7/Ex9_7.sce @@ -0,0 +1,35 @@ + +//ch-9 page 308 pb-7 +// + +// + +l1=725,l2=1050,l3=1250,l4=950,l5=575, + +t1=60,t4=55.5,t5=2.75, + + + +L1=l1*cos(t1*(%pi/180)) +L4=-l4*cos(t4*(%pi/180)) +L5=-l5*cos(t5*(%pi/180)) +printf("\n latitudes of AB,DE,EA are %0.3f %0.3f %0.3f",L1,L4,L5) + + +D1=l1*sin(t1*(%pi/180)) +D4=-l4*sin(t4*(%pi/180)) +D5=-l5*sin(t5*(%pi/180)) +printf("\n Depature of AB,DE,EA are %0.3f %0.3f %0.3f",D1,D4,D5) + +t2_t3=acos(0.1750) +t2_t3=180-(t2_t3*(180/%pi)) + +printf("\n t2-t3= %0.3f ",t2_t3) + +t3=asin(0.6035) +t3=t3*(180/%pi) +t2=t2_t3-t3 +t2=ceil(t2) + +printf("\n Bearing of BC is %0.3f ",t2) +printf("\n Bearing of CD is %0.3f ",t3) |