Компьютерная обработка информации (в пакете MathCAD). Мартьянова А.Е. - 113 стр.

UptoLike

Составители: 

Мартьянова А.Е. Компьютерная обработка информации
113
решение стабильно
h_t
h_x
2
2k
1=
h_t 0.2=h_x 0.02=
h_t
t_end t_begin
N1
:=h_x
L_max L_min
N
:=
длина стержня
L_min 0
:=L_max 2:=
время распространения тепла
t_begin 0
:=t_end 4:=
i1 1 N 1..:=
j0N1..:=
i0N..:=
N1 20:=N 100:=
Создание сетки для решения методом конечных разностей
Решение:
k 1.257 10
5
×=
коэффициент температуропроводности
k
λ
Cp ρ
:=
плотность стали, кг/м^3
ρ 7850:=
удельная теплоемкость стали, Дж/(кг*К)
Cp 460
:=
коэффициент теплопроводности стали,
Вт/(м*К)
λ 45.4:=
Дано:
Мартьянова А.Е. Компьютерная обработка информации                                    113

                       Дано:

             λ := 45.4                  коэффициент теплопроводности стали,
                                        Вт/(м*К)
             Cp := 460                  удельная теплоемкость стали, Дж/(кг*К)

             ρ := 7850                  плотность стали, кг/м^3



                      λ
             k :=                       коэффициент температуропроводности
                    Cp ⋅ ρ
                                 −5
             k = 1.257 × 10


                       Решение:


     Создание сетки для решения методом конечных разностей

      N := 100            N1 := 20

      i := 0 .. N
      j := 0 .. N1

      i1 := 1 .. N − 1

      t_end := 4              t_begin := 0             время распространения тепла
      L_max := 2              L_min := 0               длина стержня


              L_max − L_min                         t_end − t_begin
    h_x :=                                 h_t :=
                   N                                      N1
          h_x = 0.02                       h_t = 0.2


                          2
                h_x
          h_t ≤       =1                      решение стабильно
                 2⋅ k