《专家系统柱推荐软件之一――判断用气相色谱分析是否满.pdf》由会员分享，可在线阅读，更多相关《专家系统柱推荐软件之一――判断用气相色谱分析是否满.pdf（15页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、研究报告专家系统柱推荐软件之一*判断用气相色谱分析是否满足必要条件的软件许国 旺卢 佩 章（中国 科学院 大连化学物 理研究所 中国 大连色 谱技 术研究开发中心，1 1 6 0 1 1）提要 本文报道了 色谱专家系统中 判断 样品 是否满足气相色谱(G C)分析必要条件的软件，依据是：能以 合适k(0.2 k 2 0)流出 且在柱温孪下 稳定的样品可 采用G C 法分析。而k 值通过结构和保留 值间的 关系式来计算。作者使用框架结构的知识表达法，用 S c h c m e L is p 语言，在I B M P C机上实现了这一专家判断 功能。采用本文列出的知识库和源程 序，可对含C、H、Q、
2、N、C l、B r、I、P、S、S i 等元素的化 合物能否采 用气相色谱进 行判断。一、前言气相色谱法（G C）已日 益广泛地应用于各种物质的分析，但哪些物质能用G C分析仍需专家判断。随着计算机技术的发展，发展出具有这一功能的专家系统是可能的。目 前只有V a ri a n 1 在高 效液相色谱(H P L C)专家 系 统 中有关 于选 择G C/L C？设想的报道，但未见实际工作。至于这方面软件的源程序只有我们的集体才开始报道 2 。我们的专家系统共包括六大子系统 3 第一个要解决的是分离模式（G C/L C?）的选择。由于能用 GC应尽可能用 G C，因而首先判断是否满足 GC分析的
3、必要条件，因此本软件是本系统的第一个软件。我们采用了框架结构的知识表达法，用S c h c m e L i s p语言在 I B M P C机上实现了判断是否满足 GC分析的必要条件的功能。理论基础只要组分能以合适k (0.2 k 2 0)流出且在柱温下稳定，样品就满足GC分析的必要条件。而k 值 可通过结构和保留值间的关系来预测。首先我们从文献 -10 中收集了近9 0 种固定液上正庚烷比保留值V g(7)和同 系 物 碳数 规律 常 数A 1 在 不同 温 度下的数值，并用下式表示：从而可根据(3)式推算出在最佳柱参数下，满足k 条 件的正构烷烃在各柱子上的链长极限，其它化合物的分析极限可
4、通过相应碳链长度（C C C L）和基 团增量（G I）间的关系（4）换算出：式中n为组分所含碳数。结 果 与 讨论计算机对色谱方法的发展显然是有帮助的 1 2 ，尽管习惯上采取过程性程序的形式，而且用到了谱图模拟 1 3 ，但专家系统的应用是最引人注目的。从结构来看，专家系统由推理机、知识库及用户界*本项目 获国家自 然 科学基金资助面组成。它既可以从零开始，采用人工智能 语言 如L i s p 1 或P r o l o g 1 4 ，甚至用C.P a s c a l 等，也可直接采用专家系统工具 1 5 进行。尽管后者的推理机是现成的，但由于它的原型并不是专为色谱领域设计的，因而难免会有某
5、些不合适之处。L i s p和P r o l o g 语言是广泛应用的人工智能语言，前者擅长于表处理，后者长于逻辑判断。我 们 采 用 的 是 从 零 开 始 的 方 法，用P C S c h e m e L i s p 语言 1 6 ，在I B M P C/X T 2 8 6上开发。而且人机界面也用L i s p 编写，避免了运行环境的变换；同时程序采用模块化结构，结构清晰，可读性好。要实现这一专家判断功能，首先要解决的是信息获取问题，即用尽可能少的提问来获得足够量的信息进行判断。表 1 满足k 条件（0.2 k 2 0）时，在 各柱子上的分析 极限（以C C C L 表示）从 表1可 知，
6、如 果 不 限 定 柱 子，C C C L的下限可到 2 或 1，而且由于低温及气固色谱(GS C)，的采用，使得 G C分析的下限很容易达到，因而只要判断最迟流出组分的k 是否满足条件即可。图1 给出了程序设计流程，计算机只要问三个问题就可完成信息获取。首先提问用户样品中是否有不挥发无机物组分存在？如无，则进一步判断k 。一般，可能成为最迟流出峰的组分为分子量最大、含官能团最多、异构化程度最小的。用户只要输入这些组分的结构，计算机即可粗略判断出最迟流出的组分。将最迟 流 出峰 的 C C C L与 G L C 的分 析极 限（即 O V-1 0 1上数据）进行 比较，如为了完成k 的判断，推
7、理机就得应用知识库中的事实，在本软件里，所用到的事实为：不同固定相上C C C L范围，不同基团在不同位置的官能团增量，不同基团的范德华体积及烷烃在各柱子上的保留规律。由于每个框架可拥有任意数目的侧面，每个侧面也可拥有任意数目的值，因此本软件的事实采用框架表示法 1 6 ，把这些框架连接起来组成一个长表，分别存放在 G I，V w和 r u l e-c o n s t a n t 中，其清单见表2，其中在G I 中存放了在7 根柱子上的2 6 种官能团在不同位置上的近3 5 0 个数据。由于O V-1、S E 3 0 上的保留规 律与O V-1 0 1 上类似，故而目 前的知识库能对9 种固定
8、相上的K 行预测。根据毛细管气相色谱分析的现状，这 9 种柱子实际上是 G L C中最好的柱子，加上特殊选择性柱子，已能够解决G C中的日 常问题。表 2知识库清单(d e fi n e G I(O V-1 0 1)(F(-O H)(T HEN(12 6 2)(2 1 8 8)(3 1 8 3)(4 1 7 9)(5 1 7 5(6 1 8 1)(L S E 1 7 0)(I F(-N H 2)(T H E N(1 2 3 7)(L S E 2 0 0)(F(-NH-)(H E N(1 1 5 1)(F(N-)(T HE N(1 3 3)(I F(-C N)(T H E N(1 2 5 6)(
9、E L S E 2 2 0)(I F(-N O 2)(T H E N(1 4 1 3)(2 3 7 0)(L S E 3 6 0)(I F(-C L)(T H E N(1 2 6 0)(E L S E 2 3 0)(F(-B R)(T H E N(1 3 3 8)(2 2 8 9)(L S E 2 7 0)(F(-)(H E N(1 4 3 0)(E L S E 3 9 0)(I F(-S H)(T H E N(1 3 2 2)(E L S E 2 9 0)(I F(-S R)(T H E N(1 2 8 3)(I F(-S-S-)(T H E N(1 5 1 0)(I F(C 6H 5 )(
10、T H E N(1 0)(I F(-C O O H)(H E N(1 3 8 6)(I F(-C HO)(H E N(1 1 8 6)(I F(C=O)(H E N(2 1 7 6)(3 1 6 8)(E L S E 1 6 0)(I F(-O-)(T H E N(2 1 1 7)(E L S E 6 9)(F(-O P O 2)(HE N(1 3 1 8)(IF(O 2 P O 2)(T H E N(1 4 5 0)(F(O 2 P O H)(T H E N(1 5 0 3)(I F(-S O-)(T H E N(1 5 8 2)(I F(-S O 3)(T H E N(1 5 9 0)(I
11、 F(-S O 4)(T H E N(1 5 7 0)(F(O 2 S I O 2)(HE N(1 1 1 5)(I(C=C)(T H E N(1-1 1)(T 2 5)(C-21 2)(T-3-3)(C-3-2)(T-4-4)(C-4-)(C-5-)(T-5-)(E L S E-5)(I F(-C O O R)(T H E N(Al-E 2 1 3)(A 2-E 1 9 4)(A 3-E 1 8 7(A-E 1 7 6)(E 1 2 0 7)(E 2 1 8 1)(3 1 7 7(E 4 1 7 7(E 5 1 7 5)(E L S E 1 7 5)(S Q UA L A N E)(I F(
12、-O H)(T H E N(1 1 9 8)(E L S E 1 7 0)(I F(-C H O)(T H E N(1 1 4 5)(I F(C=O)(T HE N(2 1 2 9)(I F(-O-)(T HE N(2 1 4 7)(I F(C=C)(T H E N(1-1 8)(C-2 2)(T-2-)(C-3-1 3)(T-3-1 3)(C-4-1 9)(T-4-1 9)(E L S E-1 7)(I F(-O P O 2)(H E N(1 3 1 8)(I F(O 2 P O 2)(T HE N(1 4 5 0)(I F(O 2 P O H)(T H E N(1 5 0 3)(I F(-
13、S O-)(T H E N(1 5 8 2)(I F(-S O 3)(T HE N(1 5 9 0)(F(-S O4-)(T HE N(1 5 7 0)(I F(O 2 S I O 2)(T HE N(1 1 1 5)(I F(-N H)(T HE N(1 2 3 7(E L S E 2 0 0)(I F(-N H-)(T H E N(1 1 5 1)(I F(N-)(T HE N(1 3 3)(I F(-C N)(T H E N(1 2 5 6)(E L S E 2 2 0)(I F(NO 2)(HE N(1 4 1 3)(2 3 7 0)(L S E 3 6 0)(I F(-C L)(T
14、H E N(1 2 6 0)(E L S E 2 3 0)(I F(B R)(T HE N(1 3 3 8(2 2 8 9)(E L S E 2 7 0)(I F(-I)(TH E N(1 4 3 0)(E L S E 3 9 0)(I F(-S H)(T H E N(1 3 2 2)(EL S E 2 9 0)(I F(S R)(T HE N(1 2 8 3)(I F(S-S-)(H E N(1 5 1 0)(I F(C 6H 5 )(T H E N(1-1 5)(I F(-C O O R)(T H E N(A 2-E 1 5 2)(A 3-E 1 4 5)(1 1 6 4)(2 1 3 8
15、)(E 3 1 3 2)(E 4 1 3 1)(O V-1 7)(I F(O H)(T H E N(1 3 6 1)(2 2 7 9)(3 2 7 6)(4 2 6 5)(I F(C 6H 5-)(H E N(1 1 1 0)(I F(C=O)(T H E N(2 3 1 0)(3 2 9 3)(4 2 7 4)(L S E 2 7 4)(PE G 2 0 M)(I F(-O H)(T HE N(1 7 2 1)(2 6 2 1)(3 5 9 4)(4 5 7 7)(5 5 7 5)(6 5 7 6)(7 5 7 7)(L S E 5 7 0)(I F(-N H-）(H E N(1 3 2 8
16、)(I F(N-)(T HE N(1 1 1)(I F(-C N)(T H E N(1 7 1 2)(E L S E 6 9 0)(I F(-N O 2)(T HE N(1 1 0 1 8)(2 8 3 3)(E L S E 8 0 0)(I F(-C L)(T H E N(1 4 6 2)(E L S E 4 2 0)(O F(-B R)(T HE N(1 5 7 0)(2 4 9 7)(L S E 4 8 0)(I F（-)(HE N(1 6 9 0)(E L S E 6 5 0)(I F(-S H)(T H E N(1 5 6 0)(E L S E 5 0 0)(I F(-S R)(T
17、H E N(1 4 7 8)(I F(-)(H E N(1 7 6 7)(I F(C 6 H 5 )(T H E N(1 3 4 0)(I F(-C O O H)(T H E N(1 1 2 1 0)(O F(-C HO)(T H E N(1 4 8 6)(I F(C=O)(T H E N(2 4 8 3)(3 4 5 5)(L S E 4 2 8)(I F(-O-)(T H E N(2 2 5 3)(3 1 9 0)(L S E 1 5 9)(I F(-O P O 2)(T H E N(1 8 9 0)(I(O 2 P O 2)(T HE N(1 9 8 6)(I(O 2 P O H)(T
18、HE N(1 1 0 5 2)(I F(-S O-)(T HE N(1 1 3 6 2)(I F(-S O 3)(T HE N(1 1 3 6 0)(I F(-S O 4-)(T HE N(1 1 2 2 0)(O F(O 2 S I O 2)(T HE N(1 2 7 5)(I F(-N H H)(T H E N(1 5 0 0)(E L S E 5 0 0)(O F(C=C)(T HE N(1 2 5)(T-2 3 6)(C-2 4 4)(T-3 2 1)(C-3 2 3)(T-4 1 4)(C-4 1 6)(T-5 1 3)(C-5 1 0)(T-6 1 0)(C-6 6)(T-7 8)
19、(C-7 2)(T-8 6)(C-8-1)(E L S E 2)(I(-C O O R)(T HE N(A 1-E 5 1 4)(A 2-E 4 6 1)(A 3-E 4 3 0)(A 4-E 4 0 1)(E 1 4 8 1)(E 2 4 2 4)(E 3 3 9 8)(E 4 4 0 6)(E 5 4 0 0)(E 8 4 0 0)(E L S E 4 0 0)(C r o s s-li n k e d S E-5 4)(I F(C=C)(T H E N(1-8)(E L S E-)(I(-C HO)(H E N(1 2 1 0)(I F(-O-)(T HE N(2 8 8)(E L S
20、E 7 3)(I F(C 65-)(T HE N(1 5 0)(I F(-C O O H)(T H E N(1 3 5 7)(I F(C=O)(HE N(2 1 9 8)(3 1 9 1)(4 1 8 3)(5 1 7 7)(6 1 7 5)(E L S E 1 7 5)(I F(-OH)(T H E N(1 2 7 1)(2 2 1 0)(3 2 0 0)(4 1 9 0)(5 1 9 0)(E L S E 1 9 0)(I F(-O P O 2)(T HE N(1 3 5 5)(I F(O 2 P O 2)(T H E N(1 4 9 0)(I F(O2 P O H)(T H E N(1
21、5 4 0)(I F（-O-)(T HE N(1 6 3 2)(I F(-S O 3-)(T HE N(1 6 3 6)(F(-S O 4-)(TH E N(1 6 1 2)(I F(O 2 S I O 2)(IH E N(1 1 2 6)(I F(-N H 2)(T H E N(1 2 5 1)(E L S E 2 0 0)(I F(-NH-)(T H E N(1 1 6 0)(I F(N-)(T H E N(1 4 0)(I F(-C N)(T HE N(1 2 9 2)(E L S E 2 0 0)(I F(-N O 2)(T H E N(1 4 4 3)(2 4 0 3)(E L S
22、E 3 5 0)(I F(-C O O R)(T HE N(A 2-E 2 0 9)(E 1 2 2 3)(E 2 1 9 4)(E 3 2 1 6)(E 4 1 9 6)(E L S E 2 0 0)(I F(-C L)(T H E N(1 2 7 1)(E L S E 2 3 0)(I F(-B R)(H E N(1 3 5 6)(2 3 0 4)(E L S E 2 8 0)(I F(-I)(T HE N(1 4 5 0)(E L S E 4 0 0)(I F(-S H)(T HE N(1 3 3 7)(E L S E 3 0 0)(I F(-S R)(T HE N(1 2 9 0)(I
23、 F(-S-S-)(HE N(1 5 3 2)(C r o s s-l i n k e d O V-1)(I F（C=C)(HE N(1-1 1)(E L S E-5)(I F(-O P O 2)(T HE N(1 3 1 8)(I F(O 2 P O 2)(T HE N(1 4 5 0)(I F（O 2 P O H)(T HE N(1 5 0 3)(I F(-S O-)(T HE N(1 5 8 2)(I F(-S O 3)(T HE N(1 5 9 0)(I F(-S O 4-)(T H E N(1 5 7 0)(I F(O 2 S I O 2)(T HE N(1 1 1 5)(I F(-
24、C H O)(T HE N(1 1 8 9)(I(O)(T HE N(2 7 0)(E L S E 6 7)(I F(-C O O H)(T HE N(1 3 3 8)(I F(C=O)(T H E N(2 1 7 4)(3 1 7 0)(4 1 6 4)(6 1 5 6)(E L S E 1 5 5)(I F(-O H)(T H E N(1 2 5 4)(2 1 8 4)(3 1 8 1)(4 1 7 5)(E L S E 1 7 5)(I F(-N H 2)(T HE N(1 2 3 7)(E L S E 2 0 0)(I F(-N H-)(T H E N(1 1 5 1)(I F(N-)
25、(T HE N(1 3 3)(I F(-C N)(T H E N(1 2 5 6)(E L S E 2 2 0)(I F(-N O 2)(T H E N(1 4 1 3)(2 3 7 0)(E L S E 3 6 0)(I F(-C O O R)(T H E N(A 2-E 1 9 1)(E 1 2 0 4)(E 2 1 7 7)(E 3 1 9 4)(E 4 1 9 4)(E L S E 1 8 8)(I F(-C L)(T HE N(1 2 6 0)(E L S E 2 3 0)(I F(-B R)(T HE N(1 3 3 8)(2 2 8 9)(E L S E 2 7 0)(I F(-
26、D）(H E N(1 4 3 0)(E L S E 3 9 0)(I F(C 6 H 5)(T HE N(1 0)(I F(-S H)(T HE N(1 3 2 2)(E L S E 2 9 0)(I F(-S R)(T H E N(1 2 3 3)(I F(-S-S-)(T H E N(1 5 1 0)(C r o s s-l i n k c d C A RB OWA X 2 0 M)(I F(C=C)(T HE N(1 4 6)(E L S E 2 0)(I F(-O P O 2)(T H E N(1 9 0 0)(I F(O 2 P O 2)(T HE N(1 9 8 2)(I F(O
27、2 P O H)(T HE N(1 1 0 7 0)(I F(-S O-)(T H E N(1 1 3 7 0)(I F(-S O 3-)(T HE N(1 1 3 8 0)(I F(-S O 4-)(T HE N(1 1 2 3 2)(I F(0 2 S I O 2)T HE N(1 2 7 5)(I F(C 6 H 6-)(H E N(1 3 4 0)(I F(-C HO)(T H E N(1 5 1 9)(I F(-O-)(T HE N(E L S E 1 6 0)(I F(-C O O H)(T H E N(1 1 2 4 2)(I F(C=O)(T H E N(2 5 1 5)(3
28、4 6 7)(4 4 5 3)(6 4 3 5)(E L S E 4 3 5)(I F(-O H)(T H E N(1 7 4 8)(2 6 1 5)(3 5 9 5)(4 5 8 1)(5 5 8 0)(E L S E 5 8 0)(I F(-NH2)(T H E N(1 5 0 0)(E L S E 5 0 0).(I F(-N H-)(H E N(1 3 2 8)(I F(N-)(T H E N(1 1 1)(I(-C N)(T H E N(1 7 1 2)(E L S E 6 9 0)(I F(-N O 2)(H E N(1 1 0 1 8)(2 8 3 3)(L S E 8 0 0)
29、(I F(-C O O R)(T HE N(A 2-E 4 8 0)(E 1 4 9 6)(E 2 4 3 8)(E 3 4 3 1)(E 4 4 3 7)(E L S E 4 3 7)(I F(-C L)(HE N(1 4 6 2)(E L S E 4 2 0)(I F(-B R)(T HE N(1 5 7 0)(2 4 9 7)(E L S E 4 8 0)(I F(-D)(T H E N(1 6 9 0)(E LS E 6 5 0)(I F(-S H)(T HE N(1 5 6 0)(E L S E 5 0 0)(I F(-S R)(T H E N(1 4 7 8)(I F(-S-S-)
30、(T H E N(1 7 6 7)(d e f i n e r u l e-c o n s t a n t(S q u a l a n e)(T b()(V w-5 0(-5 5.7 1 9.5 7 1)(O V-1 0 1)(T b-4 0(3 5 3.9 6 3.5 4 3)(V w-5 0(-5 2.1 3 9.5 9 3)(O V-1)(T b-4 0(3 5 2.1 0 3.6 0 0)(V w-5 0(-5 1.7 2 9.5 9 2)(S E-3 0)(T b-4 0(3 5 3.7 2 3.5 8 6)(V w-5 0(-5 1.3 1 9.5 8 3)(S P-1 0 0)(
31、T b-4 0()(V w-5 0(-5 0.7 8 9.5 8 1)(O V-3)(T b()(V w-5 0(-5 8.7 0 9.6 8 6)(O V-7)(T b-4 0(3 5 1.4 2 3.6 1 8)(V w-5 0(-6 0.8 2 9.7 2 4)(O V-1 1)(Tb()(V w-5 0(-6 2.3 8 9.7 2 4)(O V-1 7(T b(3 5 2.1 8 3.6 2 3)(V w-5 0(-6 4.1 3 9.7 4 1)(d e f i n e V w(C H3-)1 3.6 7(-C H 2)1 0.2 3)(C H-6.7 8)(C )3.3 3)(C
32、 H 3)2 C H-)3 1.1 8)(C H 3)3 C-3 7.1 3)(-C H(C H 3)1 8.3 0)(-C H(C 2 H 5)-)2 8.3 0)(-C(C H 3)2-)2 5.5 9)(C 6 5-)4 5.8 4)必要条件判断软件的人机接口和推理机源程序见表3。其中函数 G L 2 可输入每个组分的结构，函数GL 4 求出这些组分在O V-1 0 1 上的保留值（为 C C C L的 1 0 0 倍），如库中无特定固定相上某基团的官能团增量值，要求用户输入，GL 3 前半部分判断k 是否满足，并给出解释，后半部分判断组分的稳定性。表 3 不限定柱子时判断 k及稳定性的
33、源程序(d e f i n e x)(d e f i n e w i n d 0 0(ma k e-w i n d o w)(d e fi n e w i n d 1(m a k e-w i n d o w)(d e f i n e w i n d 2(m a k e-w i n d o w)(d e f i n e g l l(a mb d a()(w i n d o w-s e t-a t t r i b u t e!c o n s o l t e x t-a t t r i b u t e s 2 3)(w i n d o w-c l e a r c o n s o l e)(w i n
34、 d o w-c l e a r c o n s o l)(w i n d o w-s e t-c u r s o r!c o n s o l 5 1)(d is p la y S a m p le n a m e:c o n s o l)(s e t!s a m p l e n a m e(re a d c o n s o l)(w i n d o w-c l e a r c o n s o l)(n e w l in e c o n s o l)(d i s p la y T h e f ir s t li m i t t o u s e G C i s t h a t t h e c o
35、 m p o u n d sw i t h la r g e s t m o le c u l a r c o n s o l)(n e w l in e c o n s o l)(n e w li n e c o n s o l)(d i s p la y w e ig h t o r w i t h l a r g e s t n u m b e r o f fu n c t io n a l g r o u p si n y o u r s a m p l e c a n n o t b e c o n s o l)(n e w li n e c o n s o l)(n e w l i
36、 n e c o n s o l)(d i s p la y e l u t e d f r o m a G C c o l u m n.U n s t a b l e c o m p o n d s a t t h ec o l u mn t e mp e r a t u r e a l s o c a n c o n s o l)(n e w li n e c o n s o l)(n e w l i n e c o n s o i)(d i s p l a y n o t b e a n a l y z e d b y G C d i r e c t ly.A n d in o r g
37、a n ic c o m p o u n d sw h i c h a r e n o t v o l a t i l e c o n s o l)(n e w li n e c o n s o l)(n e w l i n e c o n s o l)(d i s p l a y c a n n o t b e a n a l y z e d b y G C,t o o.c o n s o l)(n e w l in e c o n s o l)(n e w l in e c o n s o l)(w i n d o w-s e t-a t t r i b u t e!c o n s o l
38、 t e x t-a t t r i b u t e s 3 0)(d i s p l a y A r e t h e r e a n y i n o r g a n i c c o m p o u n d s w h i c h i s d i f f i c u l t t o v o l a t i l i z e i n y o u r s a m p l e？c o n s o l)(s e t!k(r e a d c o n s o l)(n e w l i n e c o n s o l)(c o n d(e q?k)(d i s p l a y I t is n o t s u
39、 i ta b le f o r y o u rs a m p l e t o b e a n a l y z e d b y GC.c o n s o l)(n e w li n e c o n s o l)(n e w l i n e c o n s o l)(d i s p l a y T o b e c o n t i n u e d!c o n s o l)(b e e p)(L US H-I N P U T C O N S O L)(R E A D-C H A R C O N S O L)(w in d o w-r e s t o r e-c o n t e n t s c o n
40、 s o l e p l)(s c m2)(!t r u e(w in d o w-s e t-a tt r ib u t e!c o n s o l t e x t-a t t r ib u t e s 2 3)(d is p l a y P le a s e i n p u t t h e s t r u c t u r e s o fc o m p o u n d s i n y o u r s a m p l e w it h l a r g e s t c o n s o l)(n e w li n e c o n s o l)(n e w l i n e c o n s o l)(
41、d is p l a y m o le c u la r w e ig h ts o r l a r g e s t n u m b e r o ff u n c t i o n a l g r o u p s a s t h e p o s s i b l e l a s t c o n s o l)(n e w l i n e c o n s o l)(n e w li n e c o n s o l)(d is p l a y e l u t e d c o m p o u n d.c o n s o l)(n e w li n e e o n s o l)(n e w l i n e
42、c o n s o l)(w i n d o w-s e t-a t t r i b u t e!c o n s o l t e x t-a t t r i b u t e s 3 0)(d is p la y T h e n u m b e r o f c o m p o u n d s w h ic h a r ep o s s i b l l y a l a s t e l u t e d p e a k=c o n s o l)(s e t!k i n d(r e a d c o n s o l)(d i a l l)(g 12)(D E F I N E G-F(C H 3-(-C H
43、 2-)(C H-)(C )(C H 3)2 C H-)(C H 3)3 C-)(-C H(C H 3)-)(-C H(C 2 H 5)-)(-C(C H 3)2-)(C 6 H 5-)(C=C)(-C:C-)(-O H)(-C H O)(C=O)(-O-)(-O O O R)(-O O O H)(-C O O.)(-N H 2)(-N H-)(N-)(-N O 2)(-N O)(-O N O)(-C N)(-N C)(-F)(-C l)(-B r)(-I)(-C O N H 2)(-N H-N H 2)(=N-N H 2)(-N H-O H)(=N-O H)(-S R)(-S H)(-S-S
44、-)(-S O 2 NH-)(-S O-)(-S O 2)(-S O 3)(-S O 4)(O P O 2)(O 2 P O 2)(O 2 P O H)(O 2 S i O 2)(-C O X)构造输 入结构的 屏幕(d c f n c k i n d)(d e f i n e d i a l ll a m b d a()(w i n d o w-s e t-a t t ri b u t e!c o n s o l e t e x t-a t t r i b u t e s 7)(w i n d o w-c l e a r c o n s o le)(w i n d o w-s e t-a t
45、 tr ib u t e!c o n s o le t e x t-a t tr ib u t e s 1 0)(d is p l a yP l e a s c i n p u t t h e s t r u c t u r e o f t h e p o s s ib l e e l u t e d c o m p o u n d:)(w i n d o w-s e t-p o s i t i o n!w i n d 1 3 1)(w i n d o w-s e t-s i z e!w i n d 1 1 4 7 8)(w i n d o w-s e t-a t t r i b u t e!
46、w i n d 1 t e x t-a t t r i b u t e s 1 5)(w i n d o w-s e t-a t t ri b u t e!w i n d 1 b o r d e r-a t t r i b u t e s 4 6)(w i n d o w-c l e a r w i n d 1)(w i n d o w-s e t-p o s i t i o n!w i n d 2 2 0 1)(w i n d o w-s e t-s i z e!w i n d 2 3 7 8)(w i n d o w-s e t-a t t r ib u te!w in d 2 b o r
47、 d e r-a t t r i b u t e s 4 6)(w i n d o w-s e t-a t tr ib u t e!w in d 2 t e x t-a t t r ib u t e s 1 0)(w i n d o w-c l e a r w i n d 2)(d o(i 1(1+i)(i 4)()(d o(j 0(1+j)(j 1 3)()(i n d o w-s e t-c u r s o r!w i n d 1 j(*1 6 i)(d i s p l a y(a s c i i-s y mb o 1 1 8 6)w i n d 1)(w i n d o w-s e t-
48、a t t r i b u t e!w i n d 1 t e x t-a t t r i b u t e s 1 0)(w i n d o w-s e t-c u r s o r!w i n d 1 0 0)(d is p l a y C a r b o n f r a m e P o s it i o n s o f f u n c ti o n a lg r o u p s/g r o u p s w i n d 1)(s e t!f o r g(l i s t-v e c t o r g-f)(w i n d o w-s e t-a t t r i b u t e!w i n d l
49、t e x t-a t t r i b u t e s 1 4)(d o(i 0(1+i)(i 4 9)()(s e t!x(m o d u l o(+i 1 0)1 0)(s e t!y(q u o t i e n t i 1 0)(w i n d o w-s e t-c u r s o r!w i n d 1(+2 x)(1+(*y 1 6)(d i s p l a y(c a r(v e c t o r-r e f f o r g i)w i n d 1)(w i n d o w-s e t-s i z e!w i n d 0 0 1 1 5)(w i n d o w-s e t-a t
50、 t r i b u t e!w i n d 0 0 t e x t-a t t r i b u t e s 7 9)(s e t!c o n s o l e(w i n d o w-s a v e-c o n t e n t s c o n s o l e)控制程序，把每个组分的结构输入(DE F I NE F UNC T I O N A L)(d e f i n e g 2l a m b d a()(s e t!s u m l()(s e t l s u m 2()(w i n d o w-s e t-a t t r ib u t e!c o n s o l e t e x t-a t t