5 files changed, 93 insertions, 0 deletions
diff --git a/2975/CH23/EX23.1w/Ex23_1w.sce b/2975/CH23/EX23.1w/Ex23_1w.sce
new file mode 100644
index 000000000..9f4d43803
--- /dev/null
+++ b/2975/CH23/EX23.1w/Ex23_1w.sce
@@ -0,0 +1,15 @@
+//developed in windows 8 operating system 64bit
+//platform Scilab 5.4.1
+//example 23_1w
+
+clc;clear;
+//Given Data
+temp=373.15;//Temperature at steam point (Unit Kelvin)
+press=1.5*10^4;//Pressure at steam point(Unit Pascal)
+
+//calculation
+ptr=(273.16*press)/temp;//Calculation of pressure at triple point of water (Unit : pascal)
+
+ 
+disp(ptr,"Pressure of water at triple is (unit: Pascal)");
+
diff --git a/2975/CH23/EX23.3w/Ex23_3w.sce b/2975/CH23/EX23.3w/Ex23_3w.sce
new file mode 100644
index 000000000..eb770f81e
--- /dev/null
+++ b/2975/CH23/EX23.3w/Ex23_3w.sce
@@ -0,0 +1,17 @@
+//developed in windows 8 operating system 64bit
+//platform Scilab 5.4.1
+//example 23_3w
+
+clc;clear;
+//Given Data
+
+p1=80;  //Pressure of the gas in melting ice(Unit : cm)
+p2=160; //Pressure of the gas in a liquid (Unit : cm)
+t1=273.15; //Temperature of melting ice in (Unit : kelvin)
+
+// Calculation
+
+t2=(t1*p2)/p1;  //Calculation os the temperatue of liquid (Unit: Kelvin)
+
+disp(t2,"The Temperature of liquid is(Unit: Kelvin)");
+
diff --git a/2975/CH23/EX23.5w/Ex23_5w.sce b/2975/CH23/EX23.5w/Ex23_5w.sce
new file mode 100644
index 000000000..3424ffbaa
--- /dev/null
+++ b/2975/CH23/EX23.5w/Ex23_5w.sce
@@ -0,0 +1,16 @@
+//developed in windows 8 operating system 64bit
+//platform Scilab 5.4.1
+//example 23_5w
+
+clc;clear;
+//Given Data
+
+rt=6.5; //Resistance of platinum thermometer at boiling point(unit :ohm)
+r0=2.5; //Resistance of platinum thermometer at ice point(unit :ohm)
+r100=3.5;   //Resistance of platinum thermometer at steam point(unit :ohm)
+
+//Calculation
+
+t=(rt-r0)*100/(r100-r0);    //Calculation of temperature of sulphur on new scale (Unit: Degree)
+
+disp(t,"Boiling temperature of sulphur on this scale is (Unit: Degree)");
diff --git a/2975/CH23/EX23.8w/Ex23_8w.sce b/2975/CH23/EX23.8w/Ex23_8w.sce
new file mode 100644
index 000000000..bd2e7312f
--- /dev/null
+++ b/2975/CH23/EX23.8w/Ex23_8w.sce
@@ -0,0 +1,25 @@
+//developed in windows 8 operating system 64bit
+//platform Scilab 5.4.1
+//example 23_8w
+
+clc;clear;
+//Given Data
+iron_alpha=12*10^-6;    //Coefficient of linear expansion of iron (Unit : /degree centigrade)
+aluminium_alpha=24*10^-6;    //Coefficient of linear expansion of aluminium (Unit : /degree centigrade)
+iron_rod_length=50;     //Length of iron rod (Unit : cm)
+aluminium_rod_length=100;   //Length of aluminium rod (Unit : cm)
+initial_temp=20;    //Initial Temperature of rods (Unit : Centigrade)
+final_temp=100;     //Final Temperature of rods (Unit : Centigrade)
+
+//Calculation
+
+iron_rod_length_100=iron_rod_length*(1+(iron_alpha*(final_temp-initial_temp)));     //Calculating iron rod length at 100 degree centigrade (Unit : cm) 
+aluminium_rod_length_100=aluminium_rod_length*(1+(aluminium_alpha*(final_temp-initial_temp)));      //Calculating aluminium rod length at 100 degree centigrade (Unit : cm)
+total_length_100=iron_rod_length_100+aluminium_rod_length_100;      //Total length of rod at 100 degree centigrade(Unit : cm)
+
+total_length_20=iron_rod_length+aluminium_rod_length;       //Total Length of rod at 20 degree centigrade (Unit:cm)
+change_length=total_length_100-total_length_20;     //Change in length (Unit:cm)
+new_alpha=change_length/(total_length_20*(final_temp-initial_temp));        //average coefficient of linear expansion of the composite rod is (Unit : /degree centrigrade)
+
+disp(total_length_100,"The length of the composite system at 100 degree centigrade is (Unit : cm)");
+disp(new_alpha,"The average coefficient of linear expansion of the composite rod is (Unit : /degree centrigrade)")
diff --git a/2975/CH23/EX23.9w/Ex23_9w.sce b/2975/CH23/EX23.9w/Ex23_9w.sce
new file mode 100644
index 000000000..a6951ff56
--- /dev/null
+++ b/2975/CH23/EX23.9w/Ex23_9w.sce
@@ -0,0 +1,20 @@
+//developed in windows 8 operating system 64bit
+//platform Scilab 5.4.1
+//example 23_9w
+
+clc;clear;
+//Given Data
+length_20=15;   //Diameter of iron ring at 20 degree centigrade (Unit: cm) 
+length_req=15.05;   //Diameter of iron ring at required temperature (Unit: cm)
+temp=20;    //Room Temperature (Unit: degree centigrade)
+alpha_iron=12*10^-6;    //Coefficient of linear expansion of iron (Unit : / degree centigrade)
+
+//Calculation
+
+change_temp=(length_req-length_20)/(length_20*alpha_iron);  //Calculating change in temperature required (Unit : Centigrade)
+new_temp=temp+change_temp;  //Calculating the temperature required (Unit : Centigrade)
+
+strain=(length_req-length_20)/length_20;    //Calculating Strain (Unit: unit less)
+
+disp(new_temp,"The minimum temperature of ring to be heated to is (Unit : Centigrade)");
+disp(strain,"The strain developed in the ring when it comes to the room temperature is (Unit : unit less)");