////////////////////////////////
Script to get the thickness
K. Urita Dec. 2021
urita@nagasaki-u.ac.jp
version 1.0
////////////////////////////////

String message
Number num1, num2, num3, num4, num5, num6, num7, num8, num9
//num1: t/lambda
//num2: Accelerate voltage
//num3: Collection semiangle
//num4: Atomic number
//num5: F value
//num6: Em [eV]
//num7: lumbda
//num8: thickness [nm]

GetNumber( "Enter t/lambda", 0.1, num1 )
GetNumber( "Enter incident energy [keV]", 120, num2 )
GetNumber( "Enter collection semiangle [mrad]", 30, num3 )
OKdialog("If compoud, atomic number: \nZ = Sum(fZ^1.3/Sum(fZ^0.3)\nf: atomic fraction, Z: atomic number\n(ex)NiO = 19.8\nZ = (28^1.3+8^1.3)/(28^0.3+8^0.3)" )
GetNumber( "Enter atomic number", 28, num4 )


num5 = (1 + (num2 / 1022)) / ((1 + (num2/511))^2)
num6 = 7.6 * num4^0.36
num7 = 106 * num5 * num2 / (num6 * log(2 * num3 * num2 / num6))
num8 = num1 * num7
num9 = num8 * 0.2

message = "\n\n" + "Thickness: " + num8 + " +/-" + num9 + " [nm]" + "\n" + "Lambda: " + num7 + " [nm]" 
Result( message )