17 lines
345 B
Plaintext
17 lines
345 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION Sinusoidal_Signal : REAL
|
|
VAR_INPUT
|
|
i_Amplitude : UINT ;
|
|
i_Frequency : REAL ;
|
|
END_VAR
|
|
VAR
|
|
END_VAR
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
IF gTime_sec<>0 THEN
|
|
Sinusoidal_Signal := i_Amplitude * (1 - SIN (2 * gP_Greek * i_Frequency * gTime_sec / 60) );
|
|
END_IF
|
|
END_FUNCTION
|