AT.effective.charge.from.E.MeV.u: AT.effective.charge.from.E.MeV.u
In libamtrack: Computational Routines for Proton and Ion Radiotherapy

Description Usage Arguments Value See Also Examples

Effective charge according to Barkas-Bethe-approximation: for particles with given kinetic energy per nucleon

1	AT.effective.charge.from.E.MeV.u(E.MeV.u, particle.no)

`E.MeV.u`	vector of energies of particle per nucleon [MeV] (array of size n) (see also `E.MeV.u`).
`particle.no`	type of the particles in the mixed particle field (array of size n) (see also `particle.no`).

`effective.charge`	Effective charge according to Barkas-Bethe-approximation (array of size n)
`status`	status

View the C source code here: http://sourceforge.net/apps/trac/libamtrack/browser/tags/0.6.3/src/AT_PhysicsRoutines.c#L149

# Charge pick-up of several nuclids depending on ion energy
df          <- data.frame( E.MeV.u          = 10^seq(-1, 2, length.out = 50),
                           particle.name    = c("1H", "3He", "6Li", "12C",
 "16O"),
                           effective.charge = 0)
for(i in 1:nrow(df)){
   df$effective.charge[i] <- AT.effective.charge.from.E.MeV.u(  E.MeV.u     =
 df$E.MeV.u[i], 
                                                                particle.no =
 AT.particle.no.from.particle.name(df$particle.name[i])[1])
}