计算或"Calc"记录用于对从其它记录获取的值执行算术,关系和逻辑操作。其操作结果接着可以被另一个记录访问,使得它能够接着被使用。
参数字段
在下面描述记录特定的字段,按功能分组。
用于扫描的参数
Calc记录有用于指定在什么情况下运行该记录的标准字段。在Scan Fields中描述了这些字段。
用于读取的参数
Calc记录用于读取的参数由12个输入链接INPA,INPB,...,INPL组成。这些字段可以是数据库链接,通道访问链接或者常数。如果它们是链接,它们必须指定另一个记录的字段或者一个通道访问链接。如果它们是常数,将用配置它们的这个值初始化它们,并且能够通过dbPuts更改它们。它们不能是硬件地址。
有关如何指定数据库链接的信息见Address Specification。
表达式
Calc记录的核心依赖CALC和PRCL字段。CALC字段包含了中缀表达式,在这个记录例程运行这个记录时,它将使用这个表达式。产生的结果被放在了VAL字段,并且能够从那里访问它。CALC表达式实际上被转成了操作代码并且以Reverse Polish Notation被存储在RPCL字段。这个表达式是实际用于计算VAL的表达式。Reverse Polish Notation在运行时效率高于一个中缀表达式。CALC可以在运行时被更改,并且一个special记录例程调用一个函数转换它为Reverse Polish Notation。
能够被使用的中缀表达式非常类似C表达式语法,但在操作符含义和优先级上有一些增加和细微不同。字符串可以包含一系列由分号字符";"分隔的表达式,这些表达式中任何一个可以实际提供一个计算结果;但,被包含的所有其它表达式必须把它们的结果赋给一个变量。以下描述的所有字母元素是大小写无关的,所以大写和小写字母可以在变量和函数名中根据需要被使用和混合。除了在组成单个表达式元素的字符之间,空白可以在一个表达式内任何位置使用。
计算记录支持的表达式范围被分为文字,常数,操作数,代数操作符,三角操作符,关系操作符,逻辑操作符,赋值操作符,小括号,逗号以及问号"?:"操作符。
文字
- 标准的双精度浮点数值
- Inf:无限
- Nan:非数值
常数:
- PI:返回数学常数pi
- D2R:等于pi/180,当用作一个乘数时,从度转换一个角度为弧度
- R2D:等于180/pi,当用作一个乘数时,从弧度转换一个角度为度
操作数
表达式使用从INPx获取的数值作为操作数,虽然常数也可以被用作操作数。这些从输入链接获取的值被存储在A-L字段。在表达式中要被使用的值只要通过字段字母引用。例如,从INPA获取的值被存储在字段A,而从INPB获取的值被存储在字段B。字段名称可以被包含在表达式中,这个表达式操作它们各自的值,如在A+B中。为了产生一个在0和1之间的随机数值,RNDM零元函数可以作为一个操作数被包含在表达式中。
关键字VAL返回VAL字段的当前内容(通过一个CA写,可以向其写入,因而它可能不是上次计算表达式的结果)。
算术操作符:
- ABS:绝对值(单元)
- SQR:平方根(单元)
- MIN:求最小(任何参数数目)
- MAX:求最大(任何参数数目)
- FINITE:如果参数不是NaN或Inf,返回非0(任何参数数目)
- ISNAN:如果参数时NaN或Inf,返回非0(任何参数数目)
- CEIL:向上取整(单元)
- FLOOR:上下取整(单元)
- LOG:以10为底的对数(单元)
- LOGE:自然对数(单元)
- LN:自然对数(单元)
- EXP:e指数函数(单元)
- ^:指数(二元)
- **:指数(二元)
- +:加法(二元)
- -:减法(二元)
- *:乘法(二元)
- /:触发(二元)
- %:取模(二元)
- NOT:取反(二元)
三角函数操作符
- SIN:正弦
- SINH:双曲正弦
- ASIN:反正弦
- COS:余弦
- COSH:双曲余弦
- ACOS:反余弦
- TAN:正切
- TANH:双曲正切
- ATAN:反正切
关系操作符
- >=:大于或等于
- >:大于
- <=:小于或等于
- <:小于
- #:不封于
- =:等于
逻辑操作符
- &&:与
- ||:或
- !:非
位操作符
- |:按位或
- &:按位与
- OR:按位位或
- AND:按位位与
- XOR:按位异或
- ~:按位取反
- <<:算术左移
- >>:算术右移
- >>>:逻辑右移
赋值操作符
- :=:给一个变量(例如:字段)赋一个值(右侧)
括号,逗号和分号
支持开闭的括号,支持嵌套的括号。
当用于分隔一个二元函数的参数时,支持逗号。
分号用于分隔表达式。虽然只允许一个传统的计算表达式,但允许多个赋值表达式。
条件表达式
支持C语言的问号操作符。格式是:condition?True result : False result
表达式示例
1) 代数:
A + B + 10
结果是A+B+10
2) 关系:
(A + B) < (C + D)
- 如果(A + B) < (C + D),结果是1
- 如果(A + B) >= (C + D),结果是0
3) 问号:
(A + B) < (C + D) ? E : F + L + 10
- 如果(A + B) < (C + D),结果是E
- 如果(A + B) >= (C + D),结果是F + L + 10
在Base 3.14.9前,忽略:以及这个条件的第二部分是合法的,像这样:
(A + B) < (C + D) ? E
- 如果(A + B)<(C + D),结果是E
- 如果(A + B)>=(C + D),结果不变
在3.14.9之后,这个表达式必须写成(A + B) < (C + D) ? E : VAL
4) 逻辑:
A & B
使得以下事情发生:
- 转换A为整数
- 转换B为整数
- A和B按位与
- 转换结果为浮点数
4) 赋值
sin(a); a:=a+D2R
使得Calc记录以1°间隔输出一条正弦曲线的连续值。
用于操作显示的参数
这些参数用于向操作者显示有意义数据。这些字段用于以文本或图形显示这个计算记录的VAL和其它参数。
EGU字段包含一个最多16个字符的串,其由用户提供并且描述被操作的值。当调用例程get_units是,获取这个串。EGU串就是出于操作原因,并且不是一定要使用。
HOPR和LOPR字段只指向VAL,HIHI,HIGH,LOW和LOLO字段的限制。PREC控制VAL字段的精度。
有关记录名(NAME)和描述(DESC)字段的更多信息见Fields Common to All Record Types。
用于警报的参数
Calc记录的可能警报条件是SCAN,READ,Calculation和Limit警报。SCAN和READ警报是被记录支持例程调用。当CALC表达式时一个无效表达式时,Calculation警报被记录process例程调用,对这个无效表达式产生一条错误消息。
以下警报参数是由用户配置的,为VAL字段定义限制警报以及对应那些条件的严重性。
HYST字段为每个限制定义了一个警报死区。
记录警报以及标准字段的完整解释见Alarm Specification。Alarm Fields列出了与所有记录类型公有警报相关联的字段。
用于监控的参数
这些参数用于确定合适发送用于值字段的monitors。当值字段超过了上次受监视字段合适的死区时,发送这些monitors,ADEL用于存档monitors,MDEL字段用于所有其它类型monitors。如果这些字段由一个0值,每次值变化,触发monitors;如果它们有一个-1值,记录每次被扫描时,触发monitors。monitors的完整解释见"Monitor Specification"。
运行时参数
这些字段是使用配置工具不能配置的,并且在运行时不可修改。它们用于运行这个记录。LALM字段用于实现警报警报限制的回滞因子。
LA-LL字段用于确定何时触发对应字段的monitors。例如,如果LA不等于值A,触发对应A的monitors。MLST和ALST字段以相同方式用于VAL字段。
记录支持
记录支持例程
1) init_record
对于每个常数输入链接,如果输入链接时CONSTANT,用这个常数值初始化对应的值字段或者如果输入链接是PV_LINK,创建一个通道访问链接。
一个例程postfix被调用,转换在CALC中的中缀表达式为Reverse Polish Notation。结果被存储在RPCL。
2) process
见下面的部分。
3) special
如果CALC被更改,调用这个例程。special调用postfix。
4) get_units
获取EGU
5) get_precision
获取PRC
6) get_grapic_double
为一个字段设置上显示和下显示限制。如果这个字段是VAL,HIHI,HIGH,LOW或LOLO,这些限制被设置为HOPR和LOPR,或者如果这个字段有定义的上下限制,将使用它们,否则将使用对应这个字段的上和下最大值。
7) get_control_double
为一个字段设置上控制和下控制限制。如果这个字段是VAL,HIHI,HIGH,LOW或LOLO,这些限制被设置为HOPR和LOPR,或者如果这个字段有定义的上下限制,将使用它们,否则将使用对应这个字段的上和下最大值。
8) get_alarm_double
设置以下值:
- upper_alarm_limit=HIHI
- upper_warning_limt=HIGH
- lower_warning_limit=LOW
- lower_alarm_limit=LOLO
记录运行
例程process实现以下算法:
1) 获取参数
2) 调用例程calcPerform,它从在CALC中给定的表达式的后缀版本计算VAL。如果calcPerform返回成功,UDF被设为False。
3) 检查警报。这个例程检查新的VAL是否使得警报状态和严重性发生变化。如果变化了,设置NSEV,NSTA和LALM。它也遵守警报回滞因子(HYST)。因而在警报状态和严重性变化前,值必须至少变化HYST。
4) 检查是否应该调用monitors
- 如果警报状态或严重性发生变化,调用alarm monitors
- 如果满足ADEL和MDEL条件,调用存档和值变化monitors
- 当其它monitors被调用时,检查对应A-L的monitors
- 重置NSEV和NSTA为0
5) 如果需要,扫描forward链接,设置PACT为FALSE,并且返回。
calc记录的记录支持:
#include <stddef.h>
#include <stdlib.h>
#include <stdarg.h>
#include <stdio.h>
#include <string.h>
#include "dbDefs.h"
#include "errlog.h"
#include "alarm.h"
#include "dbAccess.h"
#include "dbEvent.h"
#include "dbFldTypes.h"
#include "epicsMath.h"
#include "errMdef.h"
#include "recSup.h"
#include "recGbl.h"
#include "special.h"
#define GEN_SIZE_OFFSET
#include "calcRecord.h"
#undef GEN_SIZE_OFFSET
#include "epicsExport.h"
/* 警报过滤的回滞因子: 1-1/e */
#define THRESHOLD 0.6321
/* 创建Calc记录的记录支持模块RSET - 记录支持入口表 */
#define report NULL
#define initialize NULL
static long init_record(struct dbCommon *prec, int pass);
static long process(struct dbCommon *prec);
static long special(DBADDR *paddr, int after);
#define get_value NULL
#define cvt_dbaddr NULL
#define get_array_info NULL
#define put_array_info NULL
static long get_units(DBADDR *paddr, char *units);
static long get_precision(const DBADDR *paddr, long *precision);
#define get_enum_str NULL
#define get_enum_strs NULL
#define put_enum_str NULL
static long get_graphic_double(DBADDR *paddr, struct dbr_grDouble *pgd);
static long get_control_double(DBADDR *paddr, struct dbr_ctrlDouble *pcd);
static long get_alarm_double(DBADDR *paddr, struct dbr_alDouble *pad);
rset calcRSET={
RSETNUMBER,
report,
initialize,
init_record,
process,
special,
get_value,
cvt_dbaddr,
get_array_info,
put_array_info,
get_units,
get_precision,
get_enum_str,
get_enum_strs,
put_enum_str,
get_graphic_double,
get_control_double,
get_alarm_double
};
// 导出calc记录支持模块
epicsExportAddress(rset, calcRSET);
// 检查警报
static void checkAlarms(calcRecord *prec, epicsTimeStamp *timeLast);
// 检查是否应该调用monitors
static void monitor(calcRecord *prec);
static int fetch_values(calcRecord *prec);
// 记录初始化
static long init_record(struct dbCommon *pcommon, int pass)
{
struct calcRecord *prec = (struct calcRecord *)pcommon;
struct link *plink;
double *pvalue;
int i;
short error_number;
if (pass==0) return(0); // 记录初始化时,第一次被调用,只初始化本记录
plink = &prec->inpa; // 获取INPA字段的地址
pvalue = &prec->a; // 获取A字段的地址
// INPA-INPL字段如果是常数,则用这个常数值初始化A-L
for (i = 0; i < CALCPERFORM_NARGS; i++, plink++, pvalue++) {
recGblInitConstantLink(plink, DBF_DOUBLE, pvalue);
}
// 转换CALC中中缀表达式,为Reverse Polish Notation表达式,存储在RPCL字段
if (postfix(prec->calc, prec->rpcl, &error_number)) {
// 如果postfix返回不为0,则转换出错,CALC字段中表达式非法,出错代码存于error_number
recGblRecordError(S_db_badField, (void *)prec,
"calc: init_record: Illegal CALC field");
//错误日志:记录名称.CALC:错误消息 in expression "CALC字段中非法的表达式"
errlogPrintf("%s.CALC: %s in expression \"%s\"\n",
prec->name, calcErrorStr(error_number), prec->calc);
}
return 0;
}
static long process(struct dbCommon *pcommon)
{
struct calcRecord *prec = (struct calcRecord *)pcommon;
epicsTimeStamp timeLast;
// 标识记录开始活跃
prec->pact = TRUE;
// 从INPx获取值,存入对应的x字段
// fetch_values返回0,则说明所有输入链接上的值都获取成功
if (fetch_values(prec) == 0) {
if (calcPerform(&prec->a, &prec->val, prec->rpcl)) {
recGblSetSevr(prec, CALC_ALARM, INVALID_ALARM);
} else
prec->udf = isnan(prec->val);
}
timeLast = prec->time;
recGblGetTimeStamp(prec);
/* 检查警报 */
checkAlarms(prec, &timeLast);
/* 检查是否应该调用monitors */
monitor(prec);
/* 运行forward指向的记录 */
recGblFwdLink(prec);
prec->pact = FALSE;
return 0;
}
static long special(DBADDR *paddr, int after)
{
calcRecord *prec = (calcRecord *)paddr->precord;
short error_number;
if (!after) return 0;
if (paddr->special == SPC_CALC) {
if (postfix(prec->calc, prec->rpcl, &error_number)) {
recGblRecordError(S_db_badField, (void *)prec,
"calc: Illegal CALC field");
errlogPrintf("%s.CALC: %s in expression \"%s\"\n",
prec->name, calcErrorStr(error_number), prec->calc);
return S_db_badField;
}
return 0;
}
recGblDbaddrError(S_db_badChoice, paddr, "calc::special - bad special value!");
return S_db_badChoice;
}
#define indexof(field) calcRecord##field
static long get_linkNumber(int fieldIndex) {
if (fieldIndex >= indexof(A) && fieldIndex <= indexof(L))
return fieldIndex - indexof(A);
if (fieldIndex >= indexof(LA) && fieldIndex <= indexof(LL))
return fieldIndex - indexof(LA);
return -1;
}
static long get_units(DBADDR *paddr, char *units)
{
calcRecord *prec = (calcRecord *)paddr->precord;
int linkNumber;
if(paddr->pfldDes->field_type == DBF_DOUBLE) {
linkNumber = get_linkNumber(dbGetFieldIndex(paddr));
if (linkNumber >= 0)
dbGetUnits(&prec->inpa + linkNumber, units, DB_UNITS_SIZE);
else
strncpy(units,prec->egu,DB_UNITS_SIZE);
}
return 0;
}
static long get_precision(const DBADDR *paddr, long *pprecision)
{
calcRecord *prec = (calcRecord *)paddr->precord;
int fieldIndex = dbGetFieldIndex(paddr);
int linkNumber;
*pprecision = prec->prec;
if (fieldIndex == indexof(VAL))
return 0;
linkNumber = get_linkNumber(fieldIndex);
if (linkNumber >= 0) {
short precision;
if (dbGetPrecision(&prec->inpa + linkNumber, &precision) == 0)
*pprecision = precision;
} else
recGblGetPrec(paddr, pprecision);
return 0;
}
static long get_graphic_double(DBADDR *paddr, struct dbr_grDouble *pgd)
{
calcRecord *prec = (calcRecord *)paddr->precord;
int fieldIndex = dbGetFieldIndex(paddr);
int linkNumber;
switch (fieldIndex) {
case indexof(VAL):
case indexof(HIHI):
case indexof(HIGH):
case indexof(LOW):
case indexof(LOLO):
case indexof(LALM):
case indexof(ALST):
case indexof(MLST):
pgd->lower_disp_limit = prec->lopr;
pgd->upper_disp_limit = prec->hopr;
break;
default:
linkNumber = get_linkNumber(fieldIndex);
if (linkNumber >= 0) {
dbGetGraphicLimits(&prec->inpa + linkNumber,
&pgd->lower_disp_limit,
&pgd->upper_disp_limit);
} else
recGblGetGraphicDouble(paddr,pgd);
}
return 0;
}
static long get_control_double(DBADDR *paddr, struct dbr_ctrlDouble *pcd)
{
calcRecord *prec = (calcRecord *)paddr->precord;
switch (dbGetFieldIndex(paddr)) {
case indexof(VAL):
case indexof(HIHI):
case indexof(HIGH):
case indexof(LOW):
case indexof(LOLO):
case indexof(LALM):
case indexof(ALST):
case indexof(MLST):
pcd->lower_ctrl_limit = prec->lopr;
pcd->upper_ctrl_limit = prec->hopr;
break;
default:
recGblGetControlDouble(paddr,pcd);
}
return 0;
}
static long get_alarm_double(DBADDR *paddr, struct dbr_alDouble *pad)
{
calcRecord *prec = (calcRecord *)paddr->precord;
int fieldIndex = dbGetFieldIndex(paddr);
int linkNumber;
if (fieldIndex == indexof(VAL)) {
pad->lower_alarm_limit = prec->llsv ? prec->lolo : epicsNAN;
pad->lower_warning_limit = prec->lsv ? prec->low : epicsNAN;
pad->upper_warning_limit = prec->hsv ? prec->high : epicsNAN;
pad->upper_alarm_limit = prec->hhsv ? prec->hihi : epicsNAN;
} else {
linkNumber = get_linkNumber(fieldIndex);
if (linkNumber >= 0) {
dbGetAlarmLimits(&prec->inpa + linkNumber,
&pad->lower_alarm_limit,
&pad->lower_warning_limit,
&pad->upper_warning_limit,
&pad->upper_alarm_limit);
} else
recGblGetAlarmDouble(paddr, pad);
}
return 0;
}
static void checkAlarms(calcRecord *prec, epicsTimeStamp *timeLast)
{
enum {
range_Lolo = 1,
range_Low,
range_Normal,
range_High,
range_Hihi
} alarmRange;
static const epicsEnum16 range_stat[] = {
SOFT_ALARM, LOLO_ALARM, LOW_ALARM,
NO_ALARM, HIGH_ALARM, HIHI_ALARM
};
double val, hyst, lalm, alev, aftc, afvl;
epicsEnum16 asev;
if (prec->udf) {
recGblSetSevr(prec, UDF_ALARM, prec->udfs);
prec->afvl = 0;
return;
}
val = prec->val;
hyst = prec->hyst;
lalm = prec->lalm;
/* 对照VAL的限制检查警报 */
if ((asev = prec->hhsv) &&
(val >= (alev = prec->hihi) ||
((lalm == alev) && (val >= alev - hyst))))
alarmRange = range_Hihi;
else
if ((asev = prec->llsv) &&
(val <= (alev = prec->lolo) ||
((lalm == alev) && (val <= alev + hyst))))
alarmRange = range_Lolo;
else
if ((asev = prec->hsv) &&
(val >= (alev = prec->high) ||
((lalm == alev) && (val >= alev - hyst))))
alarmRange = range_High;
else
if ((asev = prec->lsv) &&
(val <= (alev = prec->low) ||
((lalm == alev) && (val <= alev + hyst))))
alarmRange = range_Low;
else {
alev = val;
asev = NO_ALARM;
alarmRange = range_Normal;
}
aftc = prec->aftc;
afvl = 0;
if (aftc > 0) {
/* Apply level filtering */
afvl = prec->afvl;
if (afvl == 0) {
afvl = (double)alarmRange;
} else {
double t = epicsTimeDiffInSeconds(&prec->time, timeLast);
double alpha = aftc / (t + aftc);
/* The sign of afvl indicates whether the result should be
* rounded up or down. This gives the filter hysteresis.
* If afvl > 0 the floor() function rounds to a lower alarm
* level, otherwise to a higher.
*/
afvl = alpha * afvl +
((afvl > 0) ? (1 - alpha) : (alpha - 1)) * alarmRange;
if (afvl - floor(afvl) > THRESHOLD)
afvl = -afvl; /* reverse rounding */
alarmRange = abs((int)floor(afvl));
switch (alarmRange) {
case range_Hihi:
asev = prec->hhsv;
alev = prec->hihi;
break;
case range_High:
asev = prec->hsv;
alev = prec->high;
break;
case range_Normal:
asev = NO_ALARM;
break;
case range_Low:
asev = prec->lsv;
alev = prec->low;
break;
case range_Lolo:
asev = prec->llsv;
alev = prec->lolo;
break;
}
}
}
prec->afvl = afvl;
if (asev) {
/* Report alarm condition, store LALM for future HYST calculations */
if (recGblSetSevr(prec, range_stat[alarmRange], asev))
prec->lalm = alev;
} else {
/* No alarm condition, reset LALM */
prec->lalm = val;
}
}
static void monitor(calcRecord *prec)
{
unsigned monitor_mask;
double *pnew, *pprev;
int i;
monitor_mask = recGblResetAlarms(prec);
/* check for value change */
recGblCheckDeadband(&prec->mlst, prec->val, prec->mdel, &monitor_mask, DBE_VALUE);
/* check for archive change */
recGblCheckDeadband(&prec->alst, prec->val, prec->adel, &monitor_mask, DBE_ARCHIVE);
/* send out monitors connected to the value field */
if (monitor_mask){
db_post_events(prec, &prec->val, monitor_mask);
}
/* check all input fields for changes*/
pnew = &prec->a;
pprev = &prec->la;
for (i = 0; i < CALCPERFORM_NARGS; i++, pnew++, pprev++) {
if (*pnew != *pprev ||
monitor_mask & DBE_ALARM) {
db_post_events(prec, pnew, monitor_mask | DBE_VALUE | DBE_LOG);
*pprev = *pnew;
}
}
return;
}
// 从INPx获取值,存入对应的x字段
static int fetch_values(calcRecord *prec)
{
struct link *plink;
double *pvalue;
long status = 0;
int i;
plink = &prec->inpa;
pvalue = &prec->a;
for(i = 0; i < CALCPERFORM_NARGS; i++, plink++, pvalue++) {
int newStatus;
newStatus = dbGetLink(plink, DBR_DOUBLE, pvalue, 0, 0);
if (status == 0) status = newStatus;
}
return status;
}
举例Calc记录的使用:
1) 用makeBaseApp.pl新建一个IOC应用程序框架:
[blctrl@bjAli exer16]$ makeBaseApp.pl -t ioc testCalc
[blctrl@bjAli exer16]$ makeBaseApp.pl -i -t ioc testCalc
Using target architecture linux-x86_64 (only one available)
The following applications are available:
testCalc
What application should the IOC(s) boot?
The default uses the IOC's name, even if not listed above.
Application name?
[blctrl@bjAli exer16]$ ls
configure iocBoot Makefile testCalcApp
2) 进入testCalcApp/Db目录下,新建一个数据库实例文件calcTest.db,内容如下:
record(longin, "$(USER):param1")
{
field(SCAN, "Passive")
field(INP,"3")
field(DTYP, "Soft Channel")
field(FLNK, "$(USER):add.PROC")
field(PINI, "YES")
}
record(longin, "$(USER):param2")
{
field(SCAN, "Passive")
field(INP, "2")
field(DTYP, "Soft Channel")
field(FLNK, "$(USER):add.PROC")
field(PINI, "YES")
}
record(calc, "$(USER):add")
{
field(SCAN, "Passive")
field(INPA, "$(USER):param1")
field(INPB, "$(USER):param2")
field(CALC, "A + B")
field(FLNK, "$(USER):sub.PROC")
}
record(calc, "$(USER):sub")
{
field(SCAN, "Passive")
field(INPA, "$(USER):param1")
field(INPB, "$(USER):param2")
field(CALC, "A - B")
field(FLNK, "$(USER):mul.PROC")
}
record(calc, "$(USER):mul")
{
field(SCAN, "Passive")
field(INPA, "$(USER):param1")
field(INPB, "$(USER):param2")
field(CALC, "A * B")
field(FLNK, "$(USER):div.PROC")
}
record(calc, "$(USER):div")
{
field(SCAN, "Passive")
field(INPA, "$(USER):param1")
field(INPB, "$(USER):param2")
field(CALC, "A / B")
}
record(calc, "$(USER):selfadd")
{
field(SCAN, "1 second")
field(INPA, "5")
field(INPL, "$(USER):selfadd.VAL")
field(CALC, "VAL >= A ? 0:L + 1")
}
这个数据库实例文件中一共有7个记录实例,两个longin记录实例param1和param2用于作为四个calc记录实例add, sub, mul和div的输入,这四个calc记录分别实现了对两个输入进行加,减,乘和除计算,前6个记录都是被动记录,通过通道访问向param1或param2写入一个数值,会引起被写入的记录运行,而param1或param2的运行会通过FLNK字段引起add,sub,mul和div记录运行;最后一个calc记录实例是一个1秒种运行一次的记录。
3) 把以上记录实例文件添加到相同路径下的Makefile文件中。
4)返回这个IOC程序的顶层目录,执行make进行编译。
5) 进入到iocBoot/ioctestCalc/此目录下,修改启动脚本st.cmd,将装载的记录实例文件修改为:
dbLoadRecords("db/calcTest.db","USER=blctrl")
6) 启动这个IOC应用程序:
[blctrl@bjAli ioctestCalc]$ ../../bin/linux-x86_64/testCalc st.cmd
7) 检查在IOC中加载的记录实例:
epics> dbl
blctrl:param1
blctrl:param2
blctrl:add
blctrl:sub
blctrl:mul
blctrl:div
blctrl:selfadd
8) 开一个新终端,用camonitor监视blctrl:selfadd记录:
[root@bjAli ~]# camonitor blctrl:selfadd
blctrl:selfadd 2022-10-09 18:29:33.516175 5
blctrl:selfadd 2022-10-09 18:29:34.516156 0
blctrl:selfadd 2022-10-09 18:29:35.516181 1
blctrl:selfadd 2022-10-09 18:29:36.516171 2
blctrl:selfadd 2022-10-09 18:29:37.516189 3
blctrl:selfadd 2022-10-09 18:29:38.516180 4
blctrl:selfadd 2022-10-09 18:29:39.516184 5
blctrl:selfadd 2022-10-09 18:29:40.516169 0
这个记录每秒钟运行一次,其值在0~5之间循环。
用ctrl+C结束以上程序,先用caget查看blctrl:param1和blctrl:param2的当前值,再用camonitor监视blctrl:add, blctrl:sub, blctrl:mul和blctrl:div:
[root@bjAli ~]# caget blctrl:param1
blctrl:param1 3
[root@bjAli ~]# caget blctrl:param2
blctrl:param2 2
[root@bjAli ~]# camonitor blctrl:add blctrl:sub blctrl:mul blctrl:div
blctrl:add 2022-10-09 18:49:44.214172 5
blctrl:sub 2022-10-09 18:49:44.214173 1
blctrl:mul 2022-10-09 18:49:44.214173 6
blctrl:div 2022-10-09 18:49:44.214173 1.5
新开一个终端,用caput更改blctrl:param1或blctrl:param2的值,观察上一个监视窗口发生的变化:
# 新窗口2
[root@bjAli ~]# caput blctrl:param1 4
Old : blctrl:param1 3
New : blctrl:param1 4
# 新窗口1
[root@bjAli ~]# camonitor blctrl:add blctrl:sub blctrl:mul blctrl:div
blctrl:add 2022-10-09 18:49:44.214172 5
blctrl:sub 2022-10-09 18:49:44.214173 1
blctrl:mul 2022-10-09 18:49:44.214173 6
blctrl:div 2022-10-09 18:49:44.214173 1.5
blctrl:add 2022-10-09 18:53:37.758307 6
blctrl:sub 2022-10-09 18:53:37.758313 2
blctrl:mul 2022-10-09 18:53:37.758314 8
blctrl:div 2022-10-09 18:53:37.758316 2