blob: 0aaa6dc3e96a1e4e0c6c06e08ba40702318772c6 (
plain)
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
|
//Calculate the work done if the expansion is carried out Adiabatically and Reversibly
//Example 4.7
clc;
clear;
n=0.850; //Number of moles of momnoatomic ideal gas in mol
R=0.08206; //Gas constant in L atm K^-1
T1=300; //Initial temperature in K
P1=15; //Initial pressure in atm
V1=(n*R*T1)/P1; //Initial volume in L
P2=1; //Final pressure in atm
gama=5/3; //Constant for Adiabatic Expansion
V2=V1*(P1/P2)^(1/gama); //Final volume in L
T2=(P2*V2)/(n*R); //Final temperature in K
Cbarv=12.47; //Molar consant volume heat capacity in J K^-1 mol^-1
delU=n*Cbarv*(T2-T1); //Change in Enternal energy in J
w=delU; //Change in Enternal energy converted in to amount of work done in expansion is carried out Adiabatically and Reversibly in J
printf("Work done = %.1f*10^3 J",w*10^-3);
|
