ｔｖａｒ″ｖｓｍａｘ″））

（ｓｅｔｑｐｍｉｎ（ｇｅｔｖａｒ″ｖｓｍｉｎ″））

（ｓｅｔｑｗ（*（／（-（ｃａｒｐｍａｘ）（ｃａｒｐｍｉｎ））

（-ｃａｄｒｐｍａｘ）（ｃａｄｒｐｍｉｎ）））ｈ））

（ｓｅｔｑｐｐ０（ｌｉｓｔ（-（ｃａｒｐｃｅｎ）（*ｗ０．４４））

（-（ｃａｄｒｐｃｅｎ）（*ｈ０．２６））））

（ｓｅｔｑｐｐ１（ｌｉｓｔ（+（ｃａｒｐｃｅｎ）（*ｗ０．４４））

（+（ｃａｄｒｐｃｅｎ）（*ｈ０．４４））））

（ｓｅｔｑｄｘ（／（*ｗ０．８８）４）ｄｙ（／（*ｈ０．７）８））

（ｓｅｔｑｐｘ（ｃａｒｐｐ）ｐｙ（ｃａｄｒｐｐ））

（ｓｅｔｑｐｘ０（ｃａｒｐｐ０）ｐｙ０（ｃａｄｒｐｐ０））

（ｉｆ（＜ｐｙｐｙ０）（ｄｑ２）（ｄｑ１））））

（ｄｅｆｕｎｄｑ１（）（ｉｆ（＜ｐｘ（ｃａｒｐｃｅｎ））

（ｓｅｔｑａｏｒｂ″１″）

（ｓｅｔｑａｏｒｂ″２″））

（ｓｅｔｑｘｈ（ｆｉｘ（１+（／（-ｐｙｐｙ０）ｄｙ））））

（ｓｅｔｑｂｌｋｎａｍｅ

（ｓｔｒｃａｔ″ａｔｌ″ｔｌｓｌｄｎａｏｒｂ（ｉｔｏａｘｈ））））

（ｄｅｆｕｎｄｑ２（）

（ｓｅｔｑｘｈ１（ｆｉｘ（１+（／（-ｐｘｐｘ０）ｄｘ））））

（ｃｏｎｄ（（＝ｘｈ１１）（ｌａｓｔｓｌｄ））

（（＝ｘｈ１２）（ｎｅｘｔｓ

 
ｌｄ））

（（＝ｘｈ１３）（ｓｅｔｎｉｌ））

（（＝ｘｈ１４）（ｓｅｔｏｋ））））

（ｄｅｆｕｎｌａｓｔｓｌｄ（））

（ｄｅｆｕｎｎｅｘｔｓｌｄ（））

（ｄｅｆｕｎｓｅｔｎｉｌ（））

（ｄｅｆｕｎｓｅｔｏｋ（））

如点在上半部分运行ｄｑ１,否则运行ｄｑ２ｗｈｉｌｅ；ｄｅｆｕｎ图例主程序结束定义ｄｑ１子函数

点落在左面ａｏｒｂ为１

点在右面ａｏｒｂ为２;ｉｆ

计算纵向序号计算图例图块名（由４部分连接组成）

ｄｑ１结束

定义ｄｑ２子函数

计算横向序号

运行ｌａｓｔｓｌｄ子函数,向前翻页

运行ｎｅｘｔｓｌｄ子函数,向后翻页

运行ｓｅｔｎｉｌ子函数,赋空退出

运行ｓｅｔｏｋ子函数,插入图例

定义ｌａｓｔｓｌｄ子函数,略

定义ｎｅｘｔｓｌｄ子函数,略

定义ｓｅｔｎｉｌ子函数,略

定义ｓｉｔｏｋ子函数,略