Расчёт абсолютной температуры и времени жизни чёрной дыры (fx-9750G, fx-9860G)
В зависимости от своей массы "чёрные дыры" (ЧД) в кг излучают энергию в космос со спектром абсолютно черного тела. Программа позволяет на основании массы ЧД вычислить радиус ЧД в метрах, температуру поверхности в Кельвинах время жизни в секундах и Земных годах при условии, что дыра в это время не поглощает массу.
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:243
File Name:BLACKHOL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"BLACKHOLE MASS KG"?\->M
\If M<2.176\EE\(-)8
\Then "MASS < PLANK"
"NO HOLES"
\Return
\IfEnd
"R(M)="
2*6.67428\EE\(-)11*M/9\EE16\->R
\Locate 6,3,R
"T(K)="
5\EE\(-)8*1.9891\EE30/M\->T
\Locate 6,4,T
"TIME OF LIFE"
(M/1.9891\EE30)^3*1\EE72\->S
S/(3600*24*365.25)\->L
"YEAR="
\Locate 6,6,L
"SEC ="
\Locate 6,7,S
\Stop
%End