ExactSbend.H

Go to the documentation of this file.

/* Copyright 2022-2023 The Regents of the University of California, through Lawrence
 *           Berkeley National Laboratory (subject to receipt of any required
 *           approvals from the U.S. Dept. of Energy). All rights reserved.
 *
 * This file is part of ImpactX.
 *
 * Authors: Chad Mitchell, Axel Huebl
 * License: BSD-3-Clause-LBNL
 */
#ifndef IMPACTX_EXACTSBEND_H
#define IMPACTX_EXACTSBEND_H
 
#include "particles/ImpactXParticleContainer.H"
#include "mixin/alignment.H"
#include "mixin/pipeaperture.H"
#include "mixin/beamoptic.H"
#include "mixin/thick.H"
#include "mixin/lineartransport.H"
#include "mixin/named.H"
#include "mixin/nofinalize.H"
 
#include <AMReX_Extension.H>
#include <AMReX_Math.H>
#include <AMReX_REAL.H>
#include <AMReX_SIMD.H>
 
#include <cmath>
#include <stdexcept>
 
 
namespace impactx::elements
{
    struct ExactSbend
    : public mixin::Named,
      public mixin::BeamOptic<ExactSbend>,
      public mixin::LinearTransport<ExactSbend>,
      public mixin::Thick,
      public mixin::Alignment,
      public mixin::PipeAperture,
      public mixin::NoFinalize,
      public amrex::simd::Vectorized<amrex::simd::native_simd_size_particlereal>
    {
        static constexpr auto type = "ExactSbend";
        static constexpr amrex::ParticleReal degree2rad = ablastr::constant::math::pi / 180.0;
        using PType = ImpactXParticleContainer::ParticleType;

        ExactSbend (
            amrex::ParticleReal ds,
            amrex::ParticleReal phi,
            amrex::ParticleReal B,
            amrex::ParticleReal dx = 0,
            amrex::ParticleReal dy = 0,
            amrex::ParticleReal rotation_degree = 0,
            amrex::ParticleReal aperture_x = 0,
            amrex::ParticleReal aperture_y = 0,
            int nslice = 1,
            std::optional<std::string> name = std::nullopt
        )
        : Named(std::move(name)),
          Thick(ds, nslice),
          Alignment(dx, dy, rotation_degree),
          PipeAperture(aperture_x, aperture_y),
          m_phi(phi * degree2rad), m_B(B)
        {
        }
 
        AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
        amrex::ParticleReal
        rc (RefPart const & refpart) const
        {
            using namespace amrex::literals; // for _rt and _prt
 
            return m_B != 0_prt ? refpart.rigidity_Tm() / m_B : m_ds / m_phi;
        }

        void reverse () { Thick::reverse(); m_phi = -m_phi; }

        using BeamOptic::operator();
 

        void compute_constants (RefPart const & refpart)
        {
            using namespace amrex::literals; // for _rt and _prt
            using amrex::Math::powi;
 
            Alignment::compute_constants(refpart);
 
            // reference particle's orbital radius
            m_rc = this->rc(refpart);
 
            // arc length and angle of the current slice
            m_slice_ds = m_ds / nslice();
            amrex::ParticleReal const bend_sign = m_ds * m_rc / std::abs(m_ds * m_rc);
            m_slice_phi = bend_sign * std::abs(m_phi) / nslice();  // the sign is determined by rc/ds
 
            // trigonometric evaluations
            auto const [sin_phi, cos_phi] = amrex::Math::sincos(m_slice_phi);
            m_sin_phi = sin_phi;
            m_cos_phi = cos_phi;
 
            // access reference particle values to find relativistic factors
            m_ibeta = 1_prt / refpart.beta();
            m_ibetagam2 = 1_prt / powi<2>(refpart.beta_gamma());
 
        }

        template<typename T_Real=amrex::ParticleReal, typename T_IdCpu=uint64_t>
        AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
        void operator() (
            T_Real & AMREX_RESTRICT x,
            T_Real & AMREX_RESTRICT y,
            T_Real & AMREX_RESTRICT t,
            T_Real & AMREX_RESTRICT px,
            T_Real & AMREX_RESTRICT py,
            T_Real & AMREX_RESTRICT pt,
            T_IdCpu & AMREX_RESTRICT idcpu,
            [[maybe_unused]] RefPart const & AMREX_RESTRICT refpart
        ) const
        {
            using namespace amrex::literals; // for _rt and _prt
            using amrex::Math::powi;
            using namespace std; // for cmath(float)
            namespace stdx = amrex::simd::stdx;
 
            // shift due to alignment errors of the element
            shift_in(x, y, px, py);
 
            // access position data
            T_Real const xout = x;
            T_Real const yout = y;
            T_Real const tout = t;
 
            // initialize output values of momenta
            T_Real pxout = px;
            T_Real pyout = py;
            T_Real ptout = pt;
 
            // treat the special case of zero field
            if (m_phi==0_prt && m_B==0_prt) {
               // compute the radical in the denominator (= pz):
               T_Real const inv_pzden = 1_prt / sqrt(
                   powi<2>(pt - m_ibeta) -
                   m_ibetagam2 -
                   powi<2>(px) -
                   powi<2>(py)
               );
 
               // advance position and momentum (exact drift)
               x = xout + m_slice_ds * px * inv_pzden;
               // pxout = px;
               y = yout + m_slice_ds * py * inv_pzden;
               // pyout = py;
               t = tout - m_slice_ds * (m_ibeta + (pt - m_ibeta) * inv_pzden);
               // ptout = pt;
 
               // assign updated momenta
               px = pxout;
               py = pyout;
               pt = ptout;
 
            } else {
 
               // assign intermediate quantities
               T_Real const pperp2 = powi<2>(pt)-2.0_prt * m_ibeta * pt - powi<2>(py)+1.0_prt;
               T_Real const px2 = powi<2>(px);
               // determine if particle lies within the domain of map definition
               auto const mask = pperp2 <= px2;
               amrex::ParticleIDWrapper<T_IdCpu>{idcpu}.make_invalid(mask);
               {
                   T_Real const pperp = sqrt(pperp2);
                   T_Real const pzi = sqrt(powi<2>(pperp) - powi<2>(px));
                   T_Real const rho = m_rc + xout;
 
                   // update momenta
                   pxout = px * m_cos_phi + (pzi - rho / m_rc) * m_sin_phi;
                   pyout = py;
                   ptout = pt;
 
                   // angle of momentum rotation
                   T_Real const px2f = powi<2>(pxout);
                   // determine if particle lies within domain of map definition
                   auto const mask2 = pperp2 <= px2f;
                   amrex::ParticleIDWrapper<T_IdCpu>{idcpu}.make_invalid(mask2);
                   {
                       T_Real const pzf = sqrt(powi<2>(pperp)-powi<2>(pxout));
                       T_Real const theta = m_slice_phi + asin(px/pperp) - asin(pxout/pperp);
 
                       // update position coordinates
                       x = -m_rc + rho*m_cos_phi + m_rc*(pzf + px*m_sin_phi - pzi*m_cos_phi);
                       y = yout + theta * m_rc * py;
                       t = tout - theta * m_rc * (pt - 1.0_prt * m_ibeta) - m_slice_phi * m_rc * m_ibeta;
 
                       // assign updated momenta
                       px = pxout;
                       py = pyout;
                       pt = ptout;
                   }
               }
            }
 
            // apply transverse aperture
            apply_aperture(x, y, idcpu);
 
            // undo shift due to alignment errors of the element
            shift_out(x, y, px, py);
        }

        AMREX_GPU_HOST_DEVICE AMREX_FORCE_INLINE
        void operator() (RefPart & AMREX_RESTRICT refpart) const
        {
            using namespace amrex::literals; // for _rt and _prt
            using amrex::Math::powi;
 
            // assign input reference particle values
            amrex::ParticleReal const x = refpart.x;
            amrex::ParticleReal const px = refpart.px;
            amrex::ParticleReal const y = refpart.y;
            amrex::ParticleReal const py = refpart.py;
            amrex::ParticleReal const z = refpart.z;
            amrex::ParticleReal const pz = refpart.pz;
            amrex::ParticleReal const t = refpart.t;
            amrex::ParticleReal const pt = refpart.pt;
            amrex::ParticleReal const s = refpart.s;
 
            // length of the current slice
            amrex::ParticleReal const slice_ds = m_ds / nslice();
 
            // special case of zero field = an exact drift
            if (m_phi==0_prt && m_B==0_prt) {
               // advance position and momentum (drift)
               amrex::ParticleReal const step = slice_ds /std::sqrt(powi<2>(pt)-1.0_prt);
               refpart.x = x + step*px;
               refpart.y = y + step*py;
               refpart.z = z + step*pz;
               refpart.t = t - step*pt;
 
            } else {
 
               // assign intermediate parameters
               amrex::ParticleReal const rc = (m_B != 0_prt) ? refpart.rigidity_Tm() / m_B : m_ds / m_phi;
               amrex::ParticleReal const B = refpart.beta_gamma() /rc;
               amrex::ParticleReal const bend_sign = m_ds * rc / std::abs(m_ds * rc);
               amrex::ParticleReal const theta = bend_sign * std::abs(m_phi) / nslice(); // sign is determined by rc*ds
 
               // calculate expensive terms once
               auto const [sin_theta, cos_theta] = amrex::Math::sincos(theta);
 
               // advance position and momentum (bend)
               refpart.px = px*cos_theta - pz*sin_theta;
               refpart.py = py;
               refpart.pz = pz*cos_theta + px*sin_theta;
               refpart.pt = pt;
 
               refpart.x = x + (refpart.pz - pz)/B;
               refpart.y = y + (theta/B)*py;
               refpart.z = z - (refpart.px - px)/B;
               refpart.t = t - (theta/B)*pt;
 
            }
 
            // advance integrated path length
            refpart.s = s + slice_ds;
        }

        using LinearTransport::operator();

        AMREX_GPU_HOST AMREX_FORCE_INLINE
        Map6x6
        transport_map (RefPart const & AMREX_RESTRICT refpart) const
        {
            using namespace amrex::literals; // for _rt and _prt
            using amrex::Math::powi;
 
            // length of the current slice
            amrex::ParticleReal const slice_ds = m_ds / nslice();
 
            // access reference particle values to find beta*gamma^2
            amrex::ParticleReal const pt_ref = refpart.pt;
            amrex::ParticleReal const betgam2 = powi<2>(pt_ref) - 1_prt;
            amrex::ParticleReal const bet = refpart.beta();
 
            // initialize linear map matrix elements
            Map6x6 R = Map6x6::Identity();
 
            // treat the special case of zero field
            if (m_rc==0.0_prt) {
               R(1,2) = slice_ds;
               R(3,4) = slice_ds;
               R(5,6) = slice_ds / betgam2;
 
            } else {
 
               // calculate expensive terms once
               amrex::ParticleReal const theta = slice_ds/m_rc;
               auto const [sin_theta, cos_theta] = amrex::Math::sincos(theta);
 
               // assign linear map matrix elements
               R(1,1) = cos_theta;
               R(1,2) = m_rc * sin_theta;
               R(1,6) = - ( m_rc / bet) * (1_prt - cos_theta);
               R(2,1) = -sin_theta / m_rc;
               R(2,2) = cos_theta;
               R(2,6) = - sin_theta / bet;
               R(3,4) = m_rc * theta;
               R(5,1) = sin_theta / bet;
               R(5,2) = m_rc / bet * (1_prt - cos_theta);
               R(5,6) = m_rc * (-theta + sin_theta / (bet * bet));
            }
 
            return R;
        }
 
        amrex::ParticleReal m_phi; 
        amrex::ParticleReal m_B;  
 
      private:
        // constants that are independent of the individually tracked particle,
        // see: compute_constants() to refresh
        amrex::ParticleReal m_slice_ds, m_slice_phi, m_ibeta, m_ibetagam2, m_rc, m_sin_phi, m_cos_phi;
    };
 
} // namespace impactx
 
IMPACTX_PUSH_EXTERN_TEMPLATE(impactx::elements::ExactSbend)
 
#endif // IMPACTX_EXACTSBEND_H