Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Как меняется со временем температура паяльника
Помогите пожалуйста, нужно написать программу для решения задачи:

Как меняется со временем температура паяльника от момента включения, если мощность нагревателя равна 40 Вт; масса паяльника 100 г, удельная теплоемкость 400 Дж/(кг*К)?
Потери тепла происходят за счет теплопроводности среды и конвекции по закону: dQ1/dt — А (Т — Tср), где А=0,05 Вт/К, температура среды Тср=20 °С, а также за счет излучения в соответствии с законом Стефана — Больцмана по закону: dQ2/dt=S(T4 — T4ср), где S = 3,4-10-10 Вт/К4. Дайте ответ с учетом и без учета излучения.

В учебнике дан ответ: За первые 400 с паяльник нагревается до 500 К (~200°С), и далее практически его температура не меняется. Если бы не учитывались потери на излучение, его температура была бы значительно больше.

И написана программа на Бейсике:
Code
10 PRINT "ПАЯЛЬНИК"  
  20 SCREEN 2  
  30 P=40  
  40 M=.1  
  50 C=4E2  
  60. A=.05  
  70 S=3.4E=10  
  80 ' S=0  
  90 T0=293  
  100 T8=10  
  110 T=T0  
  120 FOR T7=0 TO 1E3 STEP T8  
  130 Z=P-A*(T-T0)-S*(T*T*T*T-T0*T0*T0*T0)  
  140 T1=Z*T8/C/M  
  150 T=T+T1  
  160 ' PRINT T7,T  
  170 PSET (T7*.5,(T-T0)*.5)  
  180 NEXT T7  
  185 GOTO 185  
  190 END

Помогите пожалуйста, заранее спасибо.
1 | Автор: Mike9362 | 2012-06-04, 18:40   |  Репутация: [ + 0 ]
1 | Автор: Mike9362 | 2012-06-04, 18:40   |  Репутация: [ + 0 ]
так что у тебя не выходит?)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-06-06, 02:30   |  Репутация: [ + 211 ]
Нужна прога на паскале
3 | Автор: Mike9362 | 2012-06-06, 08:59 | Изменено: Mike9362 - Ср, 2012-06-06, 10:42   |  Репутация: [ + 0 ]
Quote (Mike9362)
Код программы10 PRINT "ПАЯЛЬНИК"    20 SCREEN 2    30 P=40    40 M=.1    50 C=4E2    60. A=.05    70 S=3.4E=10    80 ' S=0    90 T0=293    100 T8=10    110 T=T0    120 FOR T7=0 TO 1E3 STEP T8    130 Z=P-A*(T-T0)-S*(T*T*T*T-T0*T0*T0*T0)    140 T1=Z*T8/C/M    150 T=T+T1    160 ' PRINT T7,T    170 PSET (T7*.5,(T-T0)*.5)    180 NEXT T7    185 GOTO 185    190 END


так а это что такое?)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-06-06, 15:59   |  Репутация: [ + 211 ]
Ну типа программа на бейсике
5 | Автор: Mike9362 | 2012-06-06, 19:31   |  Репутация: [ + 0 ]
5 | Автор: Mike9362 | 2012-06-06, 19:31   |  Репутация: [ + 0 ]
Объясни алгоритм - напишу на Паскале)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
6 | Автор: Berestovskiy | 2012-06-06, 20:50   |  Репутация: [ + 211 ]
Сам всё сделал.
7 | Автор: Mike9362 | 2012-06-13, 14:48   |  Репутация: [ + 0 ]
Умничка:)
Напиши код, я посмотрю хоть что там да как, может пойму что нужно было делать)
И вдруг кому-то понадобиться код..что бы остальным помог..)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
8 | Автор: Berestovskiy | 2012-06-13, 17:03   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: