tools.pre

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

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

		Copyright (c) Phd 301 Workshop

 Project:  FORMULA
 FileName: TOOLS.PRE
 Purpose: Predicate definitions for TOOLS.PRO
 Written by: Dr. Chen Hongbiao (陈鸿标 )
 Comments:
******************************************************************************/
GLOBAL PREDICATES
concat_slists(slist RSList1,slist SList2,slist TSlist3)-(i,i,o)
str_slist_member(STRING InStr,SLIST StrList, STRING Member, INTEGER Pos)-(i,i,o,o)
	%% check if InStr contains  a member of StrList, output what Member,
	%%  where it is in InStr. If not found, member="", Pos=0
slist_member_pos(string Mem,slist MemLst, real IniN,real N)-(i,i,i,o) 
  %eg: %slist_member_pos("2",["1","2","3","4"],1,N). n will be 2

nth_Slist_member(string Mem,slist Rplist, real Nth,real C)-(o,i,i,i) 
   %eg: nth_Slist_member(Mem,["1","2","3","4"],3,1). mem will be 3
replace_str(string Instr,slist TobeRpList,slist RpList, string Tstr, string Outstr)-(i,i,i,i,o)
  %eg: replace_str("A*2+B",["A","B"],["13","24"], "", Expr). Expr will be 13*2+24
set_ctlText(window _Win,ilist RList, string Txt)-(i,i,i) %set text to multiple controls
set_wins_state(window _win, ilist DisIdList,WSFLAGS CtlStateList)-(i,i,i) % set state to multiple controls
convert_str_list(string InpStr,string Marker,slist OutSList)-(i,i,o)
del_str(string Instr,string DelStr,string OutStr)-(i,i,o)
slist_length(slist InfUnitList, integer ListN)-(i,o) %count slist members
repl_slist_lastChar(slist, string  _Withstr, slist OutStr)-(i,i,o)
 %replace last char of all mems of a slist with ReplChar: ["A1","B1"] becomes ["A2","B2"]
slist_member(string M,slist M,BOOLEAN YN)-(i,i,o) (i,i,i)
check_concat_slists(slist RSList1,slist SList2,slist TSlist3)-(i,i,o) (i,i,i) %concat slists if  mem doesn't exist 
is_letter(string Letterstr, symbol YNyes)-(i,o)