Ok, I fixed the animate problem with this.
Animate[ListDensityPlot[Dev[[m, All, All]],
ColorFunction -> (ColorData["TemperatureMap"]),
ColorFunctionScaling -> True], {m, 1, t, 1},
AnimationRunning -> False]
But I still can't get the colors to scale correctly, any advice on how...
Hi
Im doing a 2 dimensional heat spreading simulation.
I've created a matrix with 3 indices with the first index being for time step and the two other for element coordinates.
height = 20;
width = 4;
a = 0.5;
J = Round[height/a];
L = Round[width/a];
h = 0.1;
roomT = 20;
T = 90...
Yea, the Sum should be 300. It would be easier if I just showed you what I'm trying to do:
The thing I'm trying to do is explained in:
http://www.eg.bucknell.edu/physics/ligare/ajp_bose1.pdf"
I want to get the Heat Capacity-Plot.
I've done it in Java, now all I want to do it in...
So, I've managed to get the distribution in a decent way. Using this code;
hw = 1;
kt = 25;
n = 10000;
dist[b_] := 1/(b*Exp[hw*m/kt] - 1);
normsum[b_] := Sum[dist[b]*(m + 2)*(m + 1)/2, {m, 0, 300}]
q = FindRoot[normsum[b] == n, {b, 0.5}]
occnumber = Table[N[dist[b /. q]*(m + 2)*(m +...