/ ** Program de calcul al vaporizării unui bloc de gheață din termic
radiația unei explozii nucleare.

targetArea targetDist

emisivitate = .98 // Emisivitate IR bună pentru materiale obișnuite
diametru minge de foc = 480 m
fireballRadius = fireballDiameter/2
fireballArea = 4 pi fireballRadius ^ 2

detonare Înălțime = 500 m

targetArea = 1 m ^ 2
targetDist = detonationHeight - fireballRadius
targetDensity = apă
vaporizare Energie = (80 + 540) calorie/g + (104 degC 1 calorie/g/degC)

albedo = .3
t = .2 s

totalPower = sigma emissivity T ^ 4 fireballArea
powerFraction = targetArea/(4 pi targetDist ^ 2)
puterea aplicată = puterea totală Fracția puterii (1 - albedo)
vaporizat Masă = putere aplicată t/vaporizare Energie
vaporizationDepth = vaporizedMass/targetArea/targetDensity

Acesta este un program scris în limbajul de programare Frink.
Pentru mai multe informații, vizualizați documentația Frink sau consultați mai multe exemple de programe Frink.

Alan Eliasen s-a născut acum 18749 zile, 10 ore, 34 minute.