implhfeq.f90

来自「一维热传导方程的求解」· F90 代码 · 共 5 行

! **********************************************************************
!  AIM IS TO SOLVE THE PARABOLIC HEAT CONDUCTION EQUATION (OR DIFFUSION-EQ.)
!  PT/PT = (L/ROH C) * (P^2 T / P X^2)
!  WERE L IS THE HEAT CONDUCTION IN W/(K M)
!  ROH IS THE DENSITY IN KG/M