vaporize2.frink

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 19944 days, 16 hours, 31 minutes ago.