Problem 2.21 from Schroeder:   Multiplicity of two large interacting Einstein Solids

q = qA + qB

x = qA/q

Omega = C *( 4*x*(1-x))^N

C= ((q*exp)/(2*N))^(2*N);

>    Omega:= (N,x) -> (4*x*(1-x))^(10*N);

Omega := proc (N, x) options operator, arrow; (4*x*(1-x))^(10*N) end proc

>    with(plots); 

Warning, the name changecoords has been redefined

>    plot({Omega(.1,x),Omega(1,x),Omega(10,x),Omega(50,x)}, x = 0..1);

[Maple Plot]

>   

>   

Maple TM is a registered trademark of Waterloo Maple Inc.
Math rendered by WebEQ