summaryrefslogtreecommitdiff
path: root/944/CH7/EX7.1/example7_1_TACC.sce
blob: 191ef6e973c4b5d4d4996cd90d23da19370374d8 (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
//example 7.1

clear;
clc;

//Given:
N=20;//no, of particles
N1=4;//no. of particles in E1 energy level
N2=4;//no. of particles in E2 energy level
N3=6;//no. of particles in E3 energy level
N4=3;//no. of particles in E4 energy level
N5=3;//no. of particles in E5 energy level
//To find the number of ways of distributing N particles
N!=prod(1:N);
N1!=prod(1:N1);
N2!=prod(1:N2);
N3!=prod(1:N3);
N4!=prod(1:N4);
N5!=prod(1:N5);
n=N1!*N2!*N3!*N4!*N5!;
W=N!/n;//no. of ways of distributing
disp(W,'The no. of ways of distributing the particles is ');