Учебное пособие: Разработка компьютерной программы на языке Паскаль для проведения простого теплофизического расчета

tm:=o_masF [i,1]*3*o_pwtp[1]*o_pwtp[1]+o_masF [i,numx]*3*o_pwtp[numx]*o_pwtp[numx];

for j:=2 to numx-1 do

if (j mod 2)=0 then

tm:=tm+4*o_masF [i,j]*3*o_pwtp[j]*o_pwtp[j]

else

tm:=tm+2*o_masF [i,j]*3*o_pwtp[j]*o_pwtp[j];

tm:=tm/3/(numx-1);

tm:=round(tm*1000)/1000.0;

o_masrf 1[i]:=tm;

tm:=tm*(t0-tc)+tc;

o_masrf 2[i]:=tm;

o_masrf [i]:=he*de*(tm-t0);

end;

end;

end;

6. Исследование температурных полей

1. Введите Вашу фамилию и имя

Любиченко Олег

2. Введите номер варианта задания

20

3. Введите номер учебной группы

ФТ-24

4. Введите текущий год

2006

5. Для вашего варианта как ведет себя температурное поле с ростом числа Фурье?

С ростом числа Фурье температура падает

6. В доказательство ответа на предыдущий вопрос я могу привести следующие табличные зависимости.

Tables: Teta-temperatures

# R/Fo 0.1 0.2 0.4 0.8 1.0 2.0 5.0 10.0 50.0 100.0