R/SLen.R

In gpilgrim2670/SputterCalc: Calculates sputter deposition rates for a system of given geometry

#' SLen
#'
#' @description calculates the distance S between the target center point and region of deposition
#'
#' @author Greg Pilgrim \email{gpilgrim@@vergason.com}
#'
#' @param Disc_1 relative angle (in degrees) of larger disc (disc 1) in chamber door vs. gravity
#' @param Disc_2 relative angle (in degrees) of smaller disc (disc 2) in chamber door vs. gravity
#' @param Rad_1 fixed value describing  the distance between the center of larger disc (disc 1) and the center of the smaller disc (disc 2)
#' @param Rad_2 fixed value describing the distance between the center of disc 2 and the position of each cathode (cathodes are symmetric)
#' @param Ins_1 distance the gun has been inserted into chamber, measured from inside of disc 2 to the center of the gun knuckle
#' @param Fing_1 distance from the knuckle to the gun tip
#' @param Knuc_1 angle (in radians) at which the gun is set at the knuckle.  Min is 0, max is 1.18
#' @param Rot_1 angle (in radians) at which the gun is rotated, min is 0, max is 2*pi
#' @param Interval the size of each step in a numeric solution.  Larger intervals will produce courser solutions, but will be faster.  Smaller intervals will produce more detailed solutions but will be more computationally expensive

SLen <-
  function(Disc_1 = -5,
           Disc_2 = -33,
           Rad_1 = 1.4375,
           Rad_2 = 3,
           Ins_1 = 2.375,
           Fing_1 = 4.8125,
           Knuc_1 = 0.610865,
           Rot_1 = 0.785398,
           Interval = 0.2) {

    # Converting from degrees to radians
    Disc_1 <- Disc_1 * pi / 180
    Disc_2 <- Disc_2 * pi / 180

    # Target center point
    X <-
      Rad_1 * sin(Disc_1) + Rad_2 * cos(Disc_2) - Fing_1 * sin(Knuc_1) * sin(Rot_1)
    Y <-
      Rad_1 * cos(Disc_1) + Rad_2 * sin(Disc_2) - Fing_1 * sin(Knuc_1) * cos(Rot_1)
    Z <- 12 - Ins_1 - Fing_1 * cos(Knuc_1)

    # Platen intercept point, p only
    p <- -8

    # k region, point of sputter deposition
    k <- seq(6, -6, by = -Interval)

    # m region, point of sputter deposition
    m <- seq(-6, 6, by = Interval)

    # k and m to grid, defining entire area of sputter deposition
    gr <- expand.grid(k, m)

    # Calculates the length of line segment S from target to point each point k,m on platen
    S_length <- Distance(X, Y, Z, gr$Var1, p, gr$Var2)

    return(S_length)
  }