R/RcppExports.R

Defines functions integrand_collection cpp_field_collection cpp_layer_fresnel cpp_recursive_fresnel cpp_integrand_gb_ml cpp_integrand_gb_layer cpp_field_gb_layer cpp_field_gb_ml cpp_multilayer cpp_multilayer_field

# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

integrand_collection <- function(rt, r2, k0, psi, epsilon, thickness) {
    .Call('planar_integrand_collection', PACKAGE = 'planar', rt, r2, k0, psi, epsilon, thickness)
}

cpp_field_collection <- function(r2, k0, psi, omega, epsilon, thickness, maxEval, reqAbsError, tol, progress) {
    .Call('planar_cpp_field_collection', PACKAGE = 'planar', r2, k0, psi, omega, epsilon, thickness, maxEval, reqAbsError, tol, progress)
}

cpp_layer_fresnel <- function(k0, kx, epsilon, thickness) {
    .Call('planar_cpp_layer_fresnel', PACKAGE = 'planar', k0, kx, epsilon, thickness)
}

cpp_recursive_fresnel <- function(k0, kx, epsilon, thickness, polarisation) {
    .Call('planar_cpp_recursive_fresnel', PACKAGE = 'planar', k0, kx, epsilon, thickness, polarisation)
}

cpp_integrand_gb_ml <- function(rt, r2, k0, psi, alpha, w0, epsilon, thickness) {
    .Call('planar_cpp_integrand_gb_ml', PACKAGE = 'planar', rt, r2, k0, psi, alpha, w0, epsilon, thickness)
}

cpp_integrand_gb_layer <- function(rt, r2, ki, psi, alpha, w0, ni, no, nl, d) {
    .Call('planar_cpp_integrand_gb_layer', PACKAGE = 'planar', rt, r2, ki, psi, alpha, w0, ni, no, nl, d)
}

cpp_field_gb_layer <- function(r2, k0, psi, alpha, w0, epsilon, thickness, maxEval, reqAbsError, tol, progress) {
    .Call('planar_cpp_field_gb_layer', PACKAGE = 'planar', r2, k0, psi, alpha, w0, epsilon, thickness, maxEval, reqAbsError, tol, progress)
}

cpp_field_gb_ml <- function(r2, k0, psi, alpha, w0, epsilon, thickness, maxEval, reqAbsError, tol, progress) {
    .Call('planar_cpp_field_gb_ml', PACKAGE = 'planar', r2, k0, psi, alpha, w0, epsilon, thickness, maxEval, reqAbsError, tol, progress)
}

cpp_multilayer <- function(k0, kx, epsilon, thickness, z, psi, intensity) {
    .Call('planar_cpp_multilayer', PACKAGE = 'planar', k0, kx, epsilon, thickness, z, psi, intensity)
}

cpp_multilayer_field <- function(k0, kx, epsilon, thickness, z, psi) {
    .Call('planar_cpp_multilayer_field', PACKAGE = 'planar', k0, kx, epsilon, thickness, z, psi)
}

Try the planar package in your browser

Any scripts or data that you put into this service are public.

planar documentation built on May 2, 2019, 3:23 a.m.