10 files changed, 140 insertions, 0 deletions
diff --git a/3831/CH17/EX17.1/Ex17_1.sce b/3831/CH17/EX17.1/Ex17_1.sce
new file mode 100644
index 000000000..0fa0f278a
--- /dev/null
+++ b/3831/CH17/EX17.1/Ex17_1.sce
@@ -0,0 +1,17 @@
+// Example 17_1
+clc;funcprot(0);
+// Given data
+T=37.0;// °C
+// From table 17.2
+c_Na_c=14.0;// osmoles/cm^3
+c_Na_o=144;// osmoles/cm^3
+c_K_c=140;// osmoles/cm^3
+c_K_o=4.1;// osmoles/cm^3
+c_Cl_c=4.00;// osmoles/cm^3
+c_Cl_o=107;// osmoles/cm^3
+
+// Solution
+E_Na=(26.7/1)*log(c_Na_o/c_Na_c);// mV
+E_K=(26.7/1)*log(c_K_o/c_K_c);// mV
+E_Cl=(26.7/-1)*log(c_Cl_o/c_Cl_c);// mV
+printf("\nThe membrane potential of sodium in a human cell,E_Na+=%2.1f mV \nThe membrane potential of potassium in a human cell,E_K+=%2.1f mV \nThe membrane potential of chlorine in a human cell,E_Cl-=%2.1f mV",E_Na,E_K,E_Cl);
diff --git a/3831/CH17/EX17.10/Ex17_10.sce b/3831/CH17/EX17.10/Ex17_10.sce
new file mode 100644
index 000000000..bc0464b58
--- /dev/null
+++ b/3831/CH17/EX17.10/Ex17_10.sce
@@ -0,0 +1,9 @@
+// Example 17_10
+clc;funcprot(0);
+// Given data
+T=27+273;
+k_d=0.0350;
+
+// Calculation
+alpha=k_d/(T*exp((9.62*10^4*((T-330)/(330*T)))-33.2));
+disp(alpha)
diff --git a/3831/CH17/EX17.2/Ex17_2.sce b/3831/CH17/EX17.2/Ex17_2.sce
new file mode 100644
index 000000000..93dcbee13
--- /dev/null
+++ b/3831/CH17/EX17.2/Ex17_2.sce
@@ -0,0 +1,18 @@
+// Example 17_2
+clc;funcprot(0);
+// Given data
+n_ech=20.0;// The energy conversion efficiency of the plants eaten by grazing herbivores in %
+n_ecc=5.0;// The energy conversion efficiency of the carnivores in %
+n_o=(0.100*0.200*0.0500)*100;// %
+E_avg=15.3;// The average daily solar energy reaching the surface of the Earth MJ/d.m^2
+E_c=10.0;// MJ/d
+
+// Calculation
+// car-carnivore,her-herbivore,ec-energy conversion efficiency
+E_car=E_c/(n_ecc/100);// MJ/d
+E_her=E_car/(n_ech/100);// MJ/d
+n_ec=1/100;// Energy conversion rate
+E_hreq=E_her/(n_ec);// MJ/d
+A=E_hreq/E_avg;// Area in m^2
+A_acre=A*(1/4047);// acres
+printf("\n%1.2f acres of land is required to grow the plants needed to feed the herbivores eaten by a large carnivore that requires 10.0 MJ/d to stay alive.",A_acre);
diff --git a/3831/CH17/EX17.3/Ex17_3.sce b/3831/CH17/EX17.3/Ex17_3.sce
new file mode 100644
index 000000000..82198db42
--- /dev/null
+++ b/3831/CH17/EX17.3/Ex17_3.sce
@@ -0,0 +1,10 @@
+// Example 17_3
+clc;funcprot(0);
+// Given data
+m_h=80.0;// kg
+m_m=0.008;// kg
+
+// Solution
+BMRbym_human=293*(m_h^-0.25);// kJ/kg.d
+BMRbym_mouse=293*(m_m^-0.25);// kJ/kg.d
+printf("\nThe BMR per unit mass of an 80.0 kg human,(BMR/m)_human=%2.0f kJ/kg.d \nThe BMR per unit mass of an 8.00 gram mouse,(BMR/m)_mouse=%3.0f kJ/kg.d",BMRbym_human,BMRbym_mouse);
diff --git a/3831/CH17/EX17.4/Ex17_4.sce b/3831/CH17/EX17.4/Ex17_4.sce
new file mode 100644
index 000000000..bbc133197
--- /dev/null
+++ b/3831/CH17/EX17.4/Ex17_4.sce
@@ -0,0 +1,17 @@
+// Example 17_4
+clc;funcprot(0);
+// Given data
+e=10.5;// MJ
+C=45/100;// MJ/kg
+P=15.0/100;// MJ/kg
+F=40.0/100;// MJ/kg
+
+// Calculation
+// (a)
+e_C=4.20;// MJ/kg meal
+e_P=8.40;// MJ/kg meal
+e_F=33.1;// MJ/kg meal
+e_avgMeal=(C*e_C)+(P*e_P)+(F*e_F);// MJ/kg meal
+// (b)
+mdot_avgMeal=(e/e_avgMeal)*2.187;// lbm of average meal/day
+printf("\n(a)The specific energy content of an average meal with natural state foods,e_avg meal=%2.1f MJ/kg meal \n(b)The total mass of an average meal,mdot_avg meal=%1.1f lbm of average meal/day",e_avgMeal,mdot_avgMeal);
diff --git a/3831/CH17/EX17.5/Ex17_5.sce b/3831/CH17/EX17.5/Ex17_5.sce
new file mode 100644
index 000000000..482423719
--- /dev/null
+++ b/3831/CH17/EX17.5/Ex17_5.sce
@@ -0,0 +1,14 @@
+// Example 17_5
+clc;funcprot(0);
+// Given data
+m_h=1.00;// kg
+E_me=33.1;// MJ
+E_na=10.5;// MJ
+m_fat=10.0;// kg
+
+// Calculation
+// (a)
+mdot_fat=E_na/E_me;// The mass of body fat consumed per day in kg of body/d
+// (b)
+t=m_fat/mdot_fat;// d
+printf("\n(a)The mass of body fat consumed per day,mdot_fat=%0.3f kg of body/d \n(b)The number of fasting days required to lose (consume) 10.0 kg of body fat,t=%2.1f d",mdot_fat,t);
diff --git a/3831/CH17/EX17.6/Ex17_6.sce b/3831/CH17/EX17.6/Ex17_6.sce
new file mode 100644
index 000000000..38cc267a8
--- /dev/null
+++ b/3831/CH17/EX17.6/Ex17_6.sce
@@ -0,0 +1,18 @@
+// Example 17_6
+clc;funcprot(0);
+// Given data
+mg=490;// N
+Z=1.00;// m
+g_c=1;// The gravitational constant
+delt=1.00;// s
+
+// Calculation
+E=(mg*Z)/g_c;// J
+W=E/delt;// J/s
+n_T_muscle=25/100;// The energy conversion efficiency
+U_body=-W/n_T_muscle;// J/s
+Q=U_body+W;// J/s
+delU=-(1)*(2.51);// MJ
+tau=delU/(U_body*10^-6);// s
+tau=tau/60;// min
+printf("\nThe time required to produce a change in the total internal energy of the system that equals the energy content of one pint of ice cream,tau=%2.1f min",tau);
diff --git a/3831/CH17/EX17.7/Ex17_7.sce b/3831/CH17/EX17.7/Ex17_7.sce
new file mode 100644
index 000000000..ffe32aff4
--- /dev/null
+++ b/3831/CH17/EX17.7/Ex17_7.sce
@@ -0,0 +1,15 @@
+// Example 17_7
+clc;funcprot(0);
+// Given data
+m_m=0.0300;// kg
+m_h=70.0;// kg
+m_e=4000;// kg
+
+// Calculation
+Hr_m=241*(m_m^(-0.25));// Beats/min
+Hr_h=241*(m_h^(-0.25));// Beats/min
+Hr_e=241*(m_e^(-0.25));// Beats/min
+Br_m=54*(m_m^(-0.25));// Beats/min
+Br_h=54*(m_h^(-0.25));// Beats/min
+Br_e=54*(m_e^(-0.25));// Beats/min
+printf("\nThe heartbeat rates of the mouse, human, and elephant are\n(Heartbeat rate)_mouse=%3.0f Beats/min \n(Heartbeat rate)_house=%2.1f Beats/min \n(Heartbeat rate)_elephant=%2.1f Beats/min \nThe breathing rates of the mouse, human, and elephant are \n(Breathing rate)_mouse=%3.0f Breaths/min \n(Breathing rate)_human=%2.1f Breaths/min \n(Breathing rate)_elephant=%1.2f Breaths/min",Hr_m,Hr_h,Hr_e,Br_m,Br_h,Br_e);
diff --git a/3831/CH17/EX17.8/Ex17_8.sce b/3831/CH17/EX17.8/Ex17_8.sce
new file mode 100644
index 000000000..589492dd3
--- /dev/null
+++ b/3831/CH17/EX17.8/Ex17_8.sce
@@ -0,0 +1,8 @@
+// Example 17_8
+clc;funcprot(0);
+// Given data
+d=5.00*10^-3;// The base diameter of the tree in m
+
+// Calculation
+h_critical=68.0*(d^(2/3));// The critical buckling height of a small tree in m
+printf("\nThe critical buckling height of a small tree,h_critical=%1.2f m",h_critical);
diff --git a/3831/CH17/EX17.9/Ex17_9.sce b/3831/CH17/EX17.9/Ex17_9.sce
new file mode 100644
index 000000000..7f4b4f067
--- /dev/null
+++ b/3831/CH17/EX17.9/Ex17_9.sce
@@ -0,0 +1,14 @@
+// Example 17_9
+clc;funcprot(0);
+// Given data
+m=60.0;// kg
+m_bc=15.0;// kg
+P=400;// W
+V=15.0;// miles/h
+g=9.81;// m/s^2
+
+// Calculation
+w=(m+m_bc)*9.81;// N
+V=(V*1.609)*1000;// m/h
+T=(P*3600)/(w*V);// The locomotion transport number
+printf("\nThe locomotion transport number,T=%0.4f",T);