4th Thermal Moment

[Graphics:SoftComptongr183.gif]

[Graphics:SoftComptongr184.gif]

[Graphics:SoftComptongr185.gif]

     (12 (14745600 U BesselK[0, U] + 
      
                    3
           1224192 U  BesselK[0, U] +
      
                  5                    7
           15240 U  BesselK[0, U] + 7 U  BesselK[0, U] +
      
           29491200 BesselK[1, U] +
      
                    2
           6134784 U  BesselK[1, U] +
      
                   4                      6
           182928 U  BesselK[1, U] + 672 U  BesselK[1, U])) \
      
              10
        / (5 U  )

[Graphics:SoftComptongr186.gif]

[Graphics:SoftComptongr187.gif]

[Graphics:SoftComptongr188.gif]

[Graphics:SoftComptongr189.gif]

Document converted by Mathematica of Wolfram Research