Black Body (heating program in Texas Instruments TI-BASIC, January 2022):
GridOff
PlotsOff
FnOff
AxesOff
LabelOff
Thick
Full
Func
Sci
Fix 3
299792458→C:6.626075534→H:1.38065823→K
ClrHome
Output(1,1,"PHYSICS ON TI-8X")
Output(2,4,"CALCULATORS")
Output(3,1,"----------------")
Output(4,5,"BLACKBODY")
Output(6,5,"RADIATION")
Output(8,1,"PRESS [ENTER]")
Pause
ClrHome
ClrDraw
Text(1,1,"THIS SIMULATION WILL")
Text(15,1,"PLOT THE BLACKBODY")
Text(29,1,"RADIATION CURVE FOR A")
Text(43,1,"SINGLE HOT OBJECT OR"
Text(57,1,"TWO HOT OBJECTS.")
Pause
ClrDraw
Lbl 0
Menu("ENTER CHOICE:","ONE HOT OBJECT",1,"TWO OBJECTS",2,"QUIT",Q)
Lbl 1
PlotsOff
FnOff
AxesOff
ClrHome
Disp "TEMPERATURE OF"
Disp "OBJECT IN (K)"
Input T
If T≤0:Goto 4
"(((2πHC²)X^5)/(^(HC/(XKT))-1))"→Y₁
fMax(Y₁,X,0,1,115)→L
(((2πHC²)L^5)/(^(HC/(LKT))-1))→M
0→Xmin:7L→Xmax:L→Xscl
M/9→Ymin:1.1*M→Ymax:M/10→Yscl
AxesOn
DispGraph
If T≥1000 and T≤35000:Shade(0,Y₁,47,7.57,1,1)
Text(1,18,"TEMP. (K)=",T)
Text(8,30,"PEAK WAVELENGTH")
Text(15,30,"(M)=",L)
Text(22,30,"PEAK FREQUENCY")
Text(29,30,"(HZ)=",C/L)
Text(57,30,"WAVELENGTH")
Pause
Goto 0
Lbl 4
ClrHome
Disp "TEMPERATURE MUST"
Disp "BE MORE THAN 0 K"
Pause
Goto 1
Lbl 2
PlotsOff
FnOff
AxesOff
ClrHome
Disp "TEMPERATURE OF"
Disp "OBJECT ONE (K)"
Input T
If T≤0:Goto 5
Disp "TEMPERATURE OF"
Disp "OBJECT TWO (K)"
Input U
If U≤0:Goto 5
max(T,U)→P:min(T,U)→Q
If 1.5Q<P or 1.05Q>P:Goto 6
"(((2πHC²)X^5)/(^(HC/(XKT))-1))"→Y₁
"(((2πHC²)X^5)/(^(HC/(XKU))-1))"→Y₂
fMax(Y₁,X,0,1,115)→L
fMax(Y₂,X,0,1,115)→G
(((2πHC²)L^5)/(^(HC/(LKT))-1))→M
(((2πHC²)G^5)/(^(HC/(GKU))-1))→N
min(L,G)→L:max(M,N)→M
0→Xmin:5L→Xmax:L→Xscl
0→Ymin:M→Ymax:M/10→Yscl
AxesOn
DispGraph
Vertical L
Text(1,28,"TEMP. (K)=",P)
Text(45,55,Q)
Pause
Goto 0
Lbl 5
ClrHome
Disp "TEMPERATURE MUST"
Disp "BE MORE THAN 0 K"
Pause
Goto 2
Lbl 6
ClrHome
Text(1,1,"TEMPERATURES MUST BE NO")
Text(15,1,"FURTHER THAN 50 PERCENT")
Text(29,1,"FROM EACH OTHER, OR")
Text(43,1,"NO CLOSER THAN 5")
Text(57,1,"PERCENT FROM EACH OTHER.")
Pause
Goto 2
Lbl Q
""→Y₁
""→Y₂
ClrDraw
ClrHome
Stop