From b3f3a8ecd454359a2e992161844f2fb599f8238a Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Fri, 4 Oct 2019 12:24:07 +0530
Subject: Initial commit/added all books

---
 .../CH16/EX16.1/Ex16_1.R                           |  6 ++++
 .../CH16/EX16.15/Ex16_15.R                         | 19 ++++++++++++
 .../CH16/EX16.18/Ex16_18.R                         | 34 ++++++++++++++++++++++
 .../CH16/EX16.19/Ex16_19.R                         | 25 ++++++++++++++++
 .../CH16/EX16.2/Ex16_2.R                           | 20 +++++++++++++
 .../CH16/EX16.3/Ex16_3.R                           | 18 ++++++++++++
 .../CH16/EX16.4/Ex16_4.R                           | 12 ++++++++
 .../CH16/EX16.5/Ex16_5.R                           | 12 ++++++++
 8 files changed, 146 insertions(+)
 create mode 100644 Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.1/Ex16_1.R
 create mode 100644 Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.15/Ex16_15.R
 create mode 100644 Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.18/Ex16_18.R
 create mode 100644 Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.19/Ex16_19.R
 create mode 100644 Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.2/Ex16_2.R
 create mode 100644 Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.3/Ex16_3.R
 create mode 100644 Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.4/Ex16_4.R
 create mode 100644 Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.5/Ex16_5.R

(limited to 'Basic_Engineering_Mathematics_by_John_Bird/CH16')

diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.1/Ex16_1.R b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.1/Ex16_1.R
new file mode 100644
index 00000000..f1d43b89
--- /dev/null
+++ b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.1/Ex16_1.R
@@ -0,0 +1,6 @@
+#page no.141
+#problem 1
+#Function used: exp(x)
+#given:
+print(0.0256*(exp(5.21)-exp(2.49))) #evaluate the following
+
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.15/Ex16_15.R b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.15/Ex16_15.R
new file mode 100644
index 00000000..c81ff162
--- /dev/null
+++ b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.15/Ex16_15.R
@@ -0,0 +1,19 @@
+#page no. 147
+#problem 15
+#function:
+log(exp(1))
+
+find_x = function(l,r)
+{
+  #apply log on both sides L.H.S and R.H.S
+  l = log(l) #r = log(exp(3*x))
+             #r = 3*x*log(exp(1)) ------>log(exp(1))=1
+             # to find x 
+  return(x=l/r)
+}
+
+#given:
+l = 7/4 # values on L.H.S
+r = 3  # exp power and multiple factor of x
+result = find_x(l,r)
+print(result)
\ No newline at end of file
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.18/Ex16_18.R b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.18/Ex16_18.R
new file mode 100644
index 00000000..0b76afb0
--- /dev/null
+++ b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.18/Ex16_18.R
@@ -0,0 +1,34 @@
+#page no. 147
+#problem 18
+#load package --->measurements
+library(measurements)
+#formula used: alpha = (1/theta)log(R/R0)
+#
+#function:
+
+find_alpha = function(theta,R,R0)
+{ 
+  return((1/theta)*log(R/R0))
+}
+
+
+find_theta = function(alpha,R,R0)
+{ 
+  return((1/alpha)*log(R/R0))
+}
+
+#given:
+r0 = 5 #kilo_ohms
+R0 = conv_unit(r0,'km','m') # resistance in ohms
+
+r = 6 #kilo_ohms
+R = conv_unit(r,'km','m') # resistance in ohms
+
+theta = 1500 #temperature in C
+alpha = find_alpha(theta,R,R0)
+
+r_new = 5.4 #kilo_ohm
+R_new = conv_unit(r_new,'km','m')
+theta_new = find_theta(alpha,R_new,R0)
+
+print(theta_new) # temperature to nearest degree
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.19/Ex16_19.R b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.19/Ex16_19.R
new file mode 100644
index 00000000..4183ad95
--- /dev/null
+++ b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.19/Ex16_19.R
@@ -0,0 +1,25 @@
+#page no. 147
+#problem 19
+
+#load package --->measurements
+library(measurements)
+#formula used: Q = Q0*exp((-k*t)
+#              k = (1/t)log(Q0/Q)------> after applying log on both sides
+#NEWTON's COOLING LAW
+#function:
+
+find_k = function(t,Q0,Q)
+{ 
+  return((1/t)*log(Q0/Q))
+}
+
+
+#given:
+Q0 = 56.6 #tenperature in C
+
+Q = 16.5 #tenperature in C
+
+t = 76 #time in seconds
+k_constant = find_k(t,Q0,Q)
+
+print(k_constant) # constant value
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.2/Ex16_2.R b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.2/Ex16_2.R
new file mode 100644
index 00000000..84d58732
--- /dev/null
+++ b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.2/Ex16_2.R
@@ -0,0 +1,20 @@
+#page no. 142
+#problem 2
+#function used: exp()
+
+exp_add = function(x,y)
+{
+  return(exp(x)+exp(y))
+}
+
+
+exp_sub = function(x,y)
+{
+  return(exp(x)-exp(y))
+}
+
+#given:
+a = 0.25 #powers of exp
+b = -0.25
+cal = 5*(exp_sub(a,b)/exp_add(a,b)) # evaluate
+print(cal)
\ No newline at end of file
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.3/Ex16_3.R b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.3/Ex16_3.R
new file mode 100644
index 00000000..f368a1dd
--- /dev/null
+++ b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.3/Ex16_3.R
@@ -0,0 +1,18 @@
+#page no. 142
+#problem 3
+#function used: exp()
+#formula used: v = V*exp(-t/CR)
+#load package ------>measurements
+library(measurements)
+#given:
+
+V = 300 # volts
+t = 50 # time in milliseconds
+t1 = conv_unit(t,'msec','sec') #time in seconds
+c = 10 #in microFarad
+c1 = conv_unit(c,'um','m')
+R = 47 # kilo_ohms
+R1 = conv_unit(R,'km','m')
+
+v =V*exp(-t1/(c1*R1))
+print(v)
\ No newline at end of file
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.4/Ex16_4.R b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.4/Ex16_4.R
new file mode 100644
index 00000000..df12e931
--- /dev/null
+++ b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.4/Ex16_4.R
@@ -0,0 +1,12 @@
+#page no. 143
+#problem 4
+#function used: factorial()
+exp_expansion = function(x)
+{
+  return(1+(x/1)+(x^2/factorial(2))+(x^3/factorial(3))+(x^4/factorial(4)))
+}
+
+#given:
+n = 0.5 #power of exp
+val = 5*exp_expansion(n)
+print(val)
\ No newline at end of file
diff --git a/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.5/Ex16_5.R b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.5/Ex16_5.R
new file mode 100644
index 00000000..2605421f
--- /dev/null
+++ b/Basic_Engineering_Mathematics_by_John_Bird/CH16/EX16.5/Ex16_5.R
@@ -0,0 +1,12 @@
+#page no. 143
+#problem 5
+#function used: factorial()
+exp_expansion = function(x)
+{
+  return(1+(x/1)+(x^2/factorial(2))+(x^3/factorial(3))+(x^4/factorial(4)))
+}
+
+#given:
+n = -1 #power of exp
+val = 3*exp_expansion(n)
+print(val)
\ No newline at end of file
-- 
cgit