1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
{
"cells": [
{
"cell_type": "markdown",
"metadata": {},
"source": [
"# Chapter 8: Third Law of Thermodynamics"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"## Example 8.1: To_calculate_the_absolute_entropy_of_copper_at_300_K.sce"
]
},
{
"cell_type": "code",
"execution_count": null,
"metadata": {
"collapsed": true
},
"outputs": [],
"source": [
"//Chemical Engineering Thermodynamics\n",
"//Chapter 8\n",
"//Third Law of Thermodynamics\n",
"\n",
"//Example 8.1\n",
"clear;\n",
"clc;\n",
"\n",
"//Given\n",
"C_ps = 0.1;//Molal heat capacity of copper at 20 K\n",
"Ti = 0;//Initial temperature in K\n",
"Tf = 20;//melting point in K\n",
"Tb = 300;//boiling point in K\n",
"\n",
"//To calculate the absolute entropy of copper at 300 K\n",
"//From equation 8.4(page no 164)\n",
"a = C_ps/(Tf^3);// a is the charateristic constant\n",
"C_p = [0.1 0.80 1.94 3.0 3.9 5.0];\n",
"//T1 = log(T);\n",
"T1 = [1.301 1.6021 1.7782 1.9031 2.000 2.1761];\n",
"plot(T1,C_p);\n",
"xtitle('C_p vs T1','T1','Cp');\n",
"// Area under the curve is given as\n",
"A = 7.82;\n",
"//From equation 8.5(page no 164)\n",
"S = (a*((Tf^3)/3))+A;\n",
"mprintf('The absolute entropy of copper is %f Kcal/Kgmole',S);\n",
"//end"
]
}
],
"metadata": {
"kernelspec": {
"display_name": "Scilab",
"language": "scilab",
"name": "scilab"
},
"language_info": {
"file_extension": ".sce",
"help_links": [
{
"text": "MetaKernel Magics",
"url": "https://github.com/calysto/metakernel/blob/master/metakernel/magics/README.md"
}
],
"mimetype": "text/x-octave",
"name": "scilab",
"version": "0.7.1"
}
},
"nbformat": 4,
"nbformat_minor": 0
}
|
