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/CH16 | |
| 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/CH16')
8 files changed, 146 insertions, 0 deletions
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 |