summaryrefslogtreecommitdiff
path: root/3782/CH7/EX7.1/Ex7_1.sce
blob: 2a5f332848ba043e5efd3703a7419eb46df05135 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
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)