# This is database that provides a simulated proton current
# for testing purposes.
#
record(calc, "$(INSTR)$(NAME):SIM-PROTON-CURR") {
 field(SCAN, ".1 second")
 field(CALC, "1500 + 101 * SIN(A)")
 field(INPA, "$(INSTR)$(NAME):PROTON-CURR-VAR PP")
}

# Incrementing value to pass to the Sinus
record(calc, "$(INSTR)$(NAME):PROTON-CURR-VAR") {
 field(CALC, "VAL + 0.001")
}