diff options
| author | prashantsinalkar | 2019-10-04 12:24:07 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2019-10-04 12:24:07 +0530 |
| commit | b3f3a8ecd454359a2e992161844f2fb599f8238a (patch) | |
| tree | 7bb3f64824627ef179d5f341266a664fd0b69011 /Basic_Engineering_Mathematics_by_John_Bird/CH26 | |
| parent | 80492d3788738910b80dc16f918511057b7321d6 (diff) | |
| download | R_TBC_Uploads-b3f3a8ecd454359a2e992161844f2fb599f8238a.tar.gz R_TBC_Uploads-b3f3a8ecd454359a2e992161844f2fb599f8238a.tar.bz2 R_TBC_Uploads-b3f3a8ecd454359a2e992161844f2fb599f8238a.zip | |
Initial commit/added all books
Diffstat (limited to 'Basic_Engineering_Mathematics_by_John_Bird/CH26')
16 files changed, 286 insertions, 0 deletions
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.10/Ex26_10.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.10/Ex26_10.R new file mode 100644 index 00000000..5971b266 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.10/Ex26_10.R @@ -0,0 +1,27 @@ +#page no. 272
+#problem 10
+# formula used : #formula used : area of rectangle = l*b
+#given:
+l = 6 # length of building
+b = 8#breadth of building
+
+###triangle on top
+base = 8
+base_right = base/2 #base of right angle triangle
+hypo = 5
+height = sqrt(hypo^2 - (base_right^2))
+
+area_rect <- function(x,y) #area of rectangle
+{
+ a = x*y
+ return(a)
+}
+
+area_triangle <- function(x,y) #area of right angle triangle
+{
+ a = (x*y)/2
+ return(a)
+}
+
+area_building = area_rect(l,b) + area_triangle(base,height)
+print(area_building)
\ No newline at end of file diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.11/Ex26_11.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.11/Ex26_11.R new file mode 100644 index 00000000..e943322e --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.11/Ex26_11.R @@ -0,0 +1,12 @@ +#page no.273
+#problem 11
+#formula used: area of circle = pi*r^2
+
+area_circle = function(r)
+{
+ return(pi*r^2)
+}
+
+#given:
+r = 5 #radius of circle
+print(area_circle(r))
\ No newline at end of file diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.12/Ex26_12.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.12/Ex26_12.R new file mode 100644 index 00000000..454812b2 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.12/Ex26_12.R @@ -0,0 +1,13 @@ +#page no.273
+#problem 12
+#formula used: area of circle = pi*r^2
+
+area_circle = function(r)
+{
+ return(pi*r^2)
+}
+
+#given:
+dia = 15 #diameter of circle
+r = dia/2 #radius of circle
+print(area_circle(r))
\ No newline at end of file diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.13/Ex26_13.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.13/Ex26_13.R new file mode 100644 index 00000000..76480b64 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.13/Ex26_13.R @@ -0,0 +1,18 @@ +#page no.273
+#problem 13
+#formula used: area of circle = pi*r^2
+
+area_circle = function(r)
+{
+ return(pi*r^2)
+}
+
+radius_cir <- function(cir)
+{
+ r = cir/(2*pi)
+ return(r)
+}
+#given:
+circ = 70 #circumference of circle
+r = radius_cir(circ) #radius of circle
+print(area_circle(r))
\ No newline at end of file diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.14/Ex26_14.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.14/Ex26_14.R new file mode 100644 index 00000000..2412e61b --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.14/Ex26_14.R @@ -0,0 +1,18 @@ +#page no. 274
+#problem 14
+# formula used : area of sector=(theta/360)*area of circle
+
+area_circle = function(r)
+{
+ return(pi*r^2)
+}
+
+area_sector<- function(theta,r)
+{
+ a = (theta/360)*area_circle(r)
+}
+
+#given:
+r = 6 #radius of circle
+theta = 50 # angle subtended at center
+print(area_sector(theta,r))
\ No newline at end of file diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.15/Ex26_15.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.15/Ex26_15.R new file mode 100644 index 00000000..47924d96 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.15/Ex26_15.R @@ -0,0 +1,19 @@ +#page no. 274
+#problem 15
+# formula used : area of sector=(theta/360)*area of circle
+
+area_circle = function(r)
+{
+ return(pi*r^2)
+}
+
+area_sector<- function(theta,r)
+{
+ a = (theta/360)*area_circle(r)
+}
+
+#given:
+dia = 80 #diameter of circle
+r = dia/2 #radius of circle
+theta = 107 # angle subtended at center(107 degree 42 minutes)
+print(area_sector(theta,r))
\ No newline at end of file diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.16/Ex26_16.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.16/Ex26_16.R new file mode 100644 index 00000000..dac38a76 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.16/Ex26_16.R @@ -0,0 +1,16 @@ +#page no. 274
+#problem 16
+#formula used: area of circle = pi*r^2
+
+area_circle = function(r)
+{
+ return(pi*r^2)
+}
+
+#give:
+D = 5.45 #diameter of outer circle
+d = 2.25 #diameter of inner circle
+R = D/2 #radius of outer circle
+r = d/2 #radius of inner circle
+area_shaft = area_circle(R) - area_circle(r)
+print(area_shaft)
\ No newline at end of file diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.17/Ex26_17.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.17/Ex26_17.R new file mode 100644 index 00000000..abaab8fc --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.17/Ex26_17.R @@ -0,0 +1,15 @@ +#page no. 275
+#problem 17
+# formula used : area of regular octagon =8*((1/2)*base*height)
+# 8 times area of triangle
+
+area_triangle = function(b,h)
+{
+ return((b*h)/2)
+}
+#given:
+base = 5
+H = 12 # total height across the flat
+h = H/2
+area_octagon=8*area_triangle(base,h)
+print(area_octagon)
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.18/Ex26_18.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.18/Ex26_18.R new file mode 100644 index 00000000..475b65a1 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.18/Ex26_18.R @@ -0,0 +1,17 @@ +#page no. 275
+#problem 18
+# formula used : area of regular hexagon =6*((1/2)*base*height)
+# 6 times area of triangle
+
+area_triangle = function(b,h)
+{
+ return((b*h)/2)
+}
+#given:
+base = 8
+b = base/2 #base of right angle triangle
+hypo = base #hypotenuse of right angle triangle
+h = sqrt(hypo^2 - b^2)
+
+area_hexagon=6*area_triangle(base,h)
+print(area_hexagon)
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.2/Ex26_2.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.2/Ex26_2.R new file mode 100644 index 00000000..a70d8925 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.2/Ex26_2.R @@ -0,0 +1,17 @@ +#page n0.269
+#problem 2
+area_square <- function(x)
+{
+ a = x^2
+ return(a)
+}
+
+peri_square <- function(x)
+{
+ return(p = 4*x)
+
+}
+
+n = 4#side of square
+print(area_square(n))
+print(peri_square(n))
\ No newline at end of file diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.3/Ex26_3.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.3/Ex26_3.R new file mode 100644 index 00000000..38ed9024 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.3/Ex26_3.R @@ -0,0 +1,23 @@ +#page no.269
+#problem 3
+#formula used : area of rectangle = l*b
+# perimeter of rectangle = 2*(l+b)
+#given:
+
+l = 7 #length of rectangle
+b = 4.5 #breadth of rectangle
+area_rect <- function(x,y) #area of rectangle
+{
+ a = x*y
+ return(a)
+}
+
+peri_rect <- function(x,y) #perimeter of rectangle
+{
+ return(p = 2*(l+b))
+
+}
+
+print(area_rect(l,b))
+
+print(peri_rect(l,b))
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.4/Ex26_4.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.4/Ex26_4.R new file mode 100644 index 00000000..ec157a47 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.4/Ex26_4.R @@ -0,0 +1,21 @@ +#page no. 269
+#problem 4
+
+#formula used : area of parallelogram = base * perpendicular height
+#given:
+
+l = 16 #one side of parallelogram
+b = 9 #second side of parallelogram
+L = 21 # distance from one point to another point (horizontally)
+base = L-l #base of right angle triangle
+hypo = b # hypotenuse of right angle triangle
+h = sqrt(hypo^2 - base^2)
+
+
+area_para <- function(x,y) #area of parallelogram
+{
+ a = x*y
+ return(a)
+}
+
+print(area_para(l,h))
\ No newline at end of file diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.5/Ex26_5.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.5/Ex26_5.R new file mode 100644 index 00000000..4438c936 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.5/Ex26_5.R @@ -0,0 +1,17 @@ +#page no.271
+#problem 5
+#formula used : area of right angle triangle = base*height/2
+
+#given:
+base = 1.92
+hypo = 5.68
+height = sqrt(hypo^2 - base^2)
+
+
+area_triangle <- function(x,y) #area of right angle triangle
+{
+ a = (x*y)/2
+ return(a)
+}
+
+print(area_triangle(base,height))
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.6/Ex26_6.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.6/Ex26_6.R new file mode 100644 index 00000000..0e979a01 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.6/Ex26_6.R @@ -0,0 +1,15 @@ +#page no. 271
+#problem 6
+#formula used: area of trapezium = ((sum of parallel sides)*perpendicular distance)/2
+
+#given:
+l1 = 27.4 #length of one parallel side
+l2 = 8.6 # length of 2nd parallel side
+h = 5.5 # perpendicular distance b/w two parallel sides
+area_trapezium <- function(x,y,z) #area of trapezium
+{
+ a = ((x+y)*z)/2
+ return(a)
+}
+
+print(area_trapezium(l1,l2,h))
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.7/Ex26_7.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.7/Ex26_7.R new file mode 100644 index 00000000..0c57907a --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.7/Ex26_7.R @@ -0,0 +1,22 @@ +#page no. 271
+#problem 7
+# formula used : #formula used : area of rectangle = l*b
+#load package ----->measurments
+library(measurements)
+#given:
+l = 820 #length of rectangle in mm
+b = 400 #breadth of rectangle in mm
+area_rect <- function(x,y) #area of rectangle
+{
+ a = x*y
+ return(a)
+}
+area = area_rect(l,b)
+#part(a)
+cat("area in mm^2:",area)
+
+#part(b)
+cat("area in cm^2:",conv_unit(area,'mm2','cm2'))
+
+#part(c)
+cat("area in m^2:",conv_unit(area,'mm2','m2'))
\ No newline at end of file diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.8/Ex26_8.R b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.8/Ex26_8.R new file mode 100644 index 00000000..6755c459 --- /dev/null +++ b/Basic_Engineering_Mathematics_by_John_Bird/CH26/EX26.8/Ex26_8.R @@ -0,0 +1,16 @@ +#page no. 271
+#problem 8
+# formula used : #formula used : area of rectangle = l*b
+#given:
+L = 100 #outer length of frame
+B = 50 #outer breadth of frame
+w = 4 # width of frame
+l = L-2*w # inner length of frame
+b = B -2*w #inner breadth of frame
+area_rect <- function(x,y) #area of rectangle
+{
+ a = x*y
+ return(a)
+}
+area_frame = area_rect(L,B) - area_rect(l,b)
+print(area_frame)
|