expnstr.pre

利用人工智能程序设计语言prolog编程实现的公式计算软件源代码。

/*****************************************************************************

		Copyright (c) Phd 301 Workshop

 Project:  FORMULA
 FileName: EXPNSTR.PRE
 Purpose: Predicate definitions for EXPNSTR.PRO
 Written by: Dr. Chen Hongbiao (陈鸿标 )
 Comments:
******************************************************************************/
GLOBAL DATABASE-expand
 expand_rec(string InStr, string TOutstr,slist TVarList, real N)
do_expand_rec(real C,slist TWithList,string TOutStr)
getval_rec(real NTVarNum,slist VarList,rlist TVarValueList,slist TVarValueSList,slist OutVarList)

GLOBAL PREDICATES
%expand_str_loop(string Instr, real N,string TOutstr,string Outstr,slist TVarList, slist Varlist)-(i,i,i,o,i,o) %Instr must be "A1*B1+...An*Bn"
expand_str_loop(string Outstr, slist Varlist)-(o,o) %fail repeat