Download or view vaporize2.frink in plain text format
/** Program to calculate vaporization of a block of ice from the thermal
radiation of a nuclear blast.
See:
https://upload.wikimedia.org/wikipedia/commons/4/43/Nuclear_Fireball_Radius_and_Temperature.svg
https://de.wikipedia.org/wiki/Kernwaffenexplosion#Feuerball_und_Druckwelle
http://www.fourmilab.ch/etexts/www/effects/
*/
emissivity = .98 // Good IR emissivity for common materials
fireballDiameter = 480 m
fireballRadius = fireballDiameter/2
fireballArea = 4 pi fireballRadius^2
detonationHeight = 500 m
T = 8000 K
targetArea = 1 m^2
targetDist = detonationHeight - fireballRadius
targetDensity = water
vaporizationEnergy = (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)
appliedPower = totalPower powerFraction (1 - albedo)
vaporizedMass = appliedPower t / vaporizationEnergy
vaporizationDepth = vaporizedMass / targetArea / targetDensity
println[vaporizationDepth -> "cm"]
Download or view vaporize2.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen was born 19572 days, 12 hours, 58 minutes ago.