;+
; pro sinfunct, X, A, F, pder
;
; Purpose: Sine Function
; 
; Input: X
;        A: Coef. A[0]: Magnitude A[1]: Constant
;
; Output: F
; 
; Initial version: Yi-Jiun Su, AFRL, 2012/11/06
;
;-
pro sinfunct, X, A, F, pder 
  mx = max(X,/NaN)
  bx = SIN(X*2.*!pi/mx)
  F = A[0]*bx+A[1]
  if N_PARAMS() ge 4 then begin
    cx = COS(X*2.*!pi/mx)
    pder = [[bx],[A[0]*cx]]
  endif
end