pearl-vector-operations.ipf

Go to the documentation of this file.

#pragma TextEncoding = "UTF-8"
#pragma rtGlobals=3
#pragma version = 2.2
#pragma IgorVersion = 6.1
#pragma ModuleName = PearlVectorOperations
 
// copyright (c) 2011-21 Paul Scherrer Institut
//
// Licensed under the Apache License, Version 2.0 (the "License");
//   you may not use this file except in compliance with the License.
//   You may obtain a copy of the License at
//   http:///www.apache.org/licenses/LICENSE-2.0
//
// Please acknowledge the use of this code.
 
 
 
 
function rotate2d_x(xx, yy, angle)
    variable xx, yy
    variable angle
    
    return xx * cos(angle * pi / 180) - yy * sin(angle * pi / 180)
end
 
function rotate2d_y(xx, yy, angle)
    variable xx, yy
    variable angle
    
    return xx * sin(angle * pi / 180) + yy * cos(angle * pi / 180)
end
 
function /wave create_rotation_matrix_free()
    make /n=(3,3)/free matrix
    matrix = p == q // identity
    return matrix
end
 
function /wave set_rotation_x(matrix, angle)
    wave matrix
    variable angle
    
    variable si = sin(angle * pi / 180)
    variable co = cos(angle * pi / 180)
    
    matrix[1][1] = co
    matrix[2][2] = co
    matrix[2][1] = si
    matrix[1][2] = -si
 
    return matrix
end
 
function /wave set_rotation_y(matrix, angle)
    wave matrix
    variable angle
    
    variable si = sin(angle * pi / 180)
    variable co = cos(angle * pi / 180)
    
    matrix[0][0] = co
    matrix[2][2] = co
    matrix[0][2] = si
    matrix[2][0] = -si
 
    return matrix
end
 
function /wave set_rotation_z(matrix, angle)
    wave matrix
    variable angle
    
    variable si = sin(angle * pi / 180)
    variable co = cos(angle * pi / 180)
    
    matrix[0][0] = co
    matrix[1][1] = co
    matrix[1][0] = si
    matrix[0][1] = -si
 
    return matrix
end
 
function rotate_x_wave(inout, angle)
    wave inout
    variable angle
 
    wave m_rotation = create_rotation_matrix_free()
    set_rotation_x(m_rotation, angle)
 
    duplicate /free inout, out
    out = 0
    variable j
    for (j = 0; j < 3; j += 1)
        out += m_rotation[p][j] * inout[j][q]
    endfor
    
    inout = out
end
 
function rotate_y_wave(inout, angle)
    wave inout
    variable angle
 
    wave m_rotation = create_rotation_matrix_free()
    set_rotation_y(m_rotation, angle)
 
    duplicate /free inout, out
    out = 0
    variable j
    for (j = 0; j < 3; j += 1)
        out += m_rotation[p][j] * inout[j][q]
    endfor
    
    inout = out
end
 
function rotate_z_wave(inout, angle)
    wave inout
    variable angle
 
    wave m_rotation = create_rotation_matrix_free()
    set_rotation_z(m_rotation, angle)
 
    duplicate /free inout, out
    out = 0
    variable j
    for (j = 0; j < 3; j += 1)
        out += m_rotation[p][j] * inout[j][q]
    endfor
    
    inout = out
end