Recent content by Munin

  1. M

    Mathematica Mathematica Animate function question

    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...
  2. M

    Mathematica Mathematica Animate function question

    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...
  3. M

    Mathematica How Can I Plot Energy Level Occupation Numbers in Mathematica?

    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...
  4. M

    Mathematica How Can I Plot Energy Level Occupation Numbers in Mathematica?

    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 +...
Back
Top