----切到这里，把下面的喂给sh----#!/垃圾桶/桶#这是Catalan_Interpretations_Drawing_Routines_Package.shar.txt，一个shell存档文件（由GNU sharutils 4.9生成）。#要从此存档中提取文件，请将其保存到某个FILE，删除#之前的一切/bin/sh行，然后键入“sh FILE”。#lock_dir=_sh05410#2011-06-17 22:59 EEST制定人.#源目录是“/home/hacklab/Downloads/Kartun/fps-1.0”。##除非指定“-c”，否则将*不会*覆盖现有文件。#这种格式在非屏蔽时间几乎不需要什么智能。#可能需要“if test”、“echo”、“mkdir”和“sed”。##此shar包含：#长度模式名称# ------ ---------- ------------------------------------------#1973年-rw-r--r--AAREADME.txt#50798-rw-r--r--加泰罗尼亚语_解释_FPS_绘图_大纲.scm#22052-rw-r--r--加泰罗尼亚语解释_转换函数.scm#11796-rw-r--r--a014486.sxp#948-rw-r--r--a057161.sxp#941-rw-r--r--a057501.sxp#2489-rw-r--r--a057546.sxp#1004-rw-r--r--a069771.sxp#12515-rw-r--r--a069771_最大7.sxp#993-rw-r--r--a069772.sxp#4552-右-右-右-a071661.sxp#4853-rw-r--r--a079442.sxp#1661-rw-r--r--a080070.sxp#274-rw-r--r--a080120.sxp#2623-rw-r--r--a080974.sxp#echo=回波shar_tty=shar_n=shar_c=''如果测试-d${lockdir}；然后：else${echo}“锁定目录${lockdir}存在”出口1fi（菲涅耳）如果mkdir$｛lock_dir｝；然后：else${echo}“创建${lockdir}锁目录失败”出口1fi（菲涅耳）#====~====AAREADME.txt==============如果测试-f“AAREADME.txt”&&test“$first_param”！=-c；然后${echo}“x-跳过AAREADME.txt（文件已存在）”其他的$｛echo｝“x-提取AAREADME.txt（文本）”sed的/^X//'<<'SHAR_EOF'>'AAREADME.txt'&&X（X）X如何继续？X（X）XFirst，获取scsh（Scheme Shell），可以在网址：http://www.scsh.net/或者简单地说，如果您正在使用Ubuntu，可以通过发出shell命令：Xsudo apt-get安装scshX（X）X这里给出的代码已经过测试，至少可以在0.6.7版本下工作，X于2006年5月16日发布，但众所周知，它也在更早的版本下工作Xreleases，例如0.6.1。X（X）X然后获取Wandy Sae-Tan和Olin Shiver的FPS（功能PostScript）Xlibrary来自http://www.scsh.net/resources/fps.htmlX（此页还存档为：X（X）http://web.archive.org/web/20080925094422/http://www.scsh.net/resources/fps.htmlX）X（X）X特别是，库本身的柏油球：X（X）http://ftp.scsh.net/pub/scsh/contrib/fps/fps-1.0.tar.gzX（X）X和关联的修补程序：X（X）http://ftp.scsh.net/pub/scsh/contrib/fps/fps-1.0-patch-for-scsh-0.5.3X（X）X（后两个文件和X（X）http://ftp.scsh.net/pub/scsh/0.6/scsh-0.6.7.tar.gz截至2011年6月17日，Xare尚未由互联网档案馆存档，X但我们正在等待……）X（X）X将库解压缩为：X（X）X焦油xvfz fps-1.0.tar.gzX（X）X然后应用补丁程序（保持在您发布的同一目录中Xtar xvfz命令，即fps-1.0以上的一个目录）：X（X）X补丁-p0<fps-1.0-patch-for-scsh-0.5.3X（X）XThis应该输出以下四行文本：Xpatching文件fps-1.0/fps-examples.scmX匹配文件fps-1.0/fps.afm.scmXpatching文件fps-1.0/fps.glyph.scmXpatching文件fps-1.0/fps.scmX（X）X使用以下命令解压缩此shar-archive：X（X）X unshar Catalan_Interprestations_Drawing_Routines_Package.shar.txtX（X）Xand将其内容复制到_THAT SAME fps-1.0 DIRECTORY_（是的！），X，然后按照在Catalan_Interprestations_FPS_drawing_routines.scm模块的Xfront。X（X）十一、如果您遇到问题，请联系我：X（X）X（X）.@gmail.com网站X（X）X您的，X（X）X Antti Karttunen公司X赫尔辛基，2011年6月17日。X（X）共享_共:如果测试$-无0然后${echo}“恢复AAREADME.txt失败”fi（菲涅耳）fi（菲涅耳）#====~====加泰罗尼亚语解释_FPS_drawing_routines.scm==============if test-f“Catalan_Interpretations_FPS_drawing_routines.scm”&&test“$first_param”！=-c；然后${echo}“x-跳过加泰罗尼亚语解释_FPS_drawing_routines.scm（文件已存在）”其他的${echo}“x-提取Catalan_Interprestations_FPS_drawing_routines.scm（text）”sed的/^X//'<<'SHAR_EOF'>'Catalan_Interpretations_FPS_drawing_routines.scm'&&X（X）十、 字面意义；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；十、 ；；十、 ；；加泰罗尼亚语_解释_FPS_drawing_routines.scm；；十、 ；；十、 ；；绘制加泰罗尼亚语组合解释的函数；；十、 ；；借助Olin Shivers和Wandy Sae-Tan的FPS获得数字；；十、 ；；（Functional PostScript）库；；十、 ；；十、 ；；本方案代码由Antti Karttunen版权所有（C）2002-2011；；十、 ；；（电子邮件：.@gmail.com），并置于；；十、 ；；OEIS贡献者许可协议；；十、 ；；（请参见：http://oeis.org/wiki/The_oeis_Contributor%27s_License_Agreement ) ;;十、 ；；（更具体地说，2010年4月1日21时40分的修订版，可用作：）；；十、 ；；http://oeis.org/w/index.php？title=The_oeis_Contributor%27s_License_Agreement&oldid=1388581十、 ；；十、 ；；十、 ；；十、 ；；有关此模块的旧版本，请参阅URL:；；十、 ；；http://web.archive.org/web/20050827072848/http://ndirty.cute.fi/~karttu/matikka/Nekomorphisms/gato-fps.scm十、 ；；十、 ；；有关当前版本，请参阅下面的：；；十、 ；；http://oeis.org/wiki/用户：Antti_Karttunen ;;十、 ；；十、 ；；注意：此模块仅在scsh（Scheme Shell）中运行并使用；；十、 ；；Wandy Sae-Tan和；的FPS（函数PostScript）库；；十、 ；；Olin Shivers，位于http://www.scsh.net/resources/fps.html ;;十、 ；；并存档于：；；十、 ；；http://wayback.archive.org/web/*/http://www.scsh.net/resources/fps.html ;;十、 ；；十、 ；；最新的scsh（Scheme Shell）可以在网址：http://www.scsh.net/ ;;十、 ；；（经测试，至少可以在2006年5月16日发布的0.6.7版本下工作）；；十、 ；；十、 ；；该文件上次编辑时间为2011年6月17日，作者为Antti Karttunen；；十、 ；；十、 ；；解压缩shar-archive（其中包括此源文件和；；十、 ；；一些*.sxp文件）添加到与补丁所在位置相同的目录fps-1.0；；十、 ；；FPS-library位于，cd在那里，启动scsh为：；；十、 ；；十、 ；%scsh；；十、 ；；欢迎使用scsh 0.6.7（R6RS）；；十、 ；；类型，？寻求帮助；；十、 ；>，配置，加载fps-package.scm；；十、 ；；fps-package.scm；；十、 ；>，打开fps；；十、 ；；荷载结构fps（y/n）？年；；十、 ；>，加载Catalan_Interprestations_FPS_drawing_routines.scm；；十、 ；；加泰罗尼亚语_解释_FPS_drawing_routines.scm；；十、 ；；加泰罗尼亚语解释转换函数.scm；；十、 ；>；；十、 ；；十、 ；；使用（例如）作为：；；十、 ；；（output-exp-file-as-ps-file“a014486.sxp”“a01486.ps”12；；十、 ；；“第A页，共页http://oeis.org/A014486/A014486.pdf“*第一页*）；；十、 ；；十、 字面意义；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；X（X）十、 ；；以下实用程序函数来自lstfuns1.scm模块：十、 ；；（加载“../Schemuli/lstfuns1.scm”）；；X（X）X（X）X（定义附加！；借用自Franz lisp，类似于破坏性的cons。X（λ（元素列表）X（set-cdr！列表（cons（car lista）（cdr lista））X（set-car！lista元素）X列表X）X）X（X）X（X）X（定义（复制树bt）X（秒（非（对？bt））bt）X（其他（缺点（复制树（汽车bt））X（复制树（cdr-bt））X）X）X）X（X）X（X）X（定义（nthcdr n列表）X（如果（或（零？n）（空？列表））X列表X（第n个cdr（-n 1）（cdr列表））X）X）X（X）X（X）X（定义（倒计时a）X（秒（不是（对？a））0）X（else（+1（count-pars（car a）））（count-pars（cdr a））X）X）X（X）十、 对峙；对峙；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；X（X）十、 ；；从括号（sexp）加载转换例程十、 ；；加泰罗尼亚家庭的适当表现。X（X）X（加载“Catalan_Intepretations_conversion_functions.scm”）X（X）X（定义（1+n）（+1 n））X（定义（-1+n）（-n 1））X（X）X（定义（post-incr！n-list）X（let（z（汽车n-list））X（set-car！n-list（1+z））X轴X）X）X（X）X（定义（monus1 n）（如果（>n 0）（-1+n）n））X（X）X（X）X（定义（find-max a）X（秒（非（对？a））X（如果（数字？a）a 0）X）X（其他值（最大值（find-max（car a）））X）X）X（X）X（定义（针引线pt1 pt2）X（合成（行pt1 pt2）X（弧pt1 0.5 0 2pi）X（弧pt2 0.5 0 2pi）X）X）X（X）X（定义（针头-像素线pt1 pt2）X（冲程X（合成（行pt1 pt2）X（弧pt1 0.5 0 2pi）十、 ；；（弧pt2 0.5 0 2pi）；；不要画下子弹，因为它已经画好了！X）X）X）X（X）X（定义（针头-像素线-读数pt1 pt2）X（冲程X（合成（行pt1 pt2）X（弧pt1 0.5 0 2pi）十、 ；；（弧pt2 0.5 0 2pi）；；不要画下子弹，因为它已经画好了！X）X（：颜色（rgb 1 0 0））X）X）X（X）十、 ；；测试：十、 ；；（定义五边形（draw-polygon-triangulalization’（（（）（）））24 100 300#f））十、 ；；（定义握手（draw-n-chords（（）（）））十、 ；；（定义两者（组成五角大楼握手）十、 ；；（输出两个“esim1.ps”）十、 ；；或者：十、 ；；（定义十六进制（draw-polygon-triangulalization）'（（）（（）十、 ；；（定义握手2（draw-n-chords（（）（（））（）（））十、 ；；（定义两者2（组成十六进制握手2））十、 ；；（两个都是2“esim2.ps”）十、 ；；X（X）X（X）X（X）X（定义（draw-binary-tree sexp ox oy X_displ y_displ-diamwidth）X（带attrib（（：线宽（或直径0.6））（：线帽'圆形））X（平移X oyX（组成X（牵引输入树X（fill-cordtree-X-coordinates！（construct-cordinatestree sexp）X_displ#f）X 0 0显示X）X）X）X）X）X（X）X（X）X（定义（图纸未约定的二元树六角X轴X显示y显示直径宽度）X（带attrib（（：线宽（或直径0.6））（：线帽'圆形））X（平移X oyX（组成X（牵引输入树X（fill-cordtree-X-coordinates！（构造-坐标-树sexp）X_displ#t）X 0 0显示X）X）X）X）X）X（X）X（X）X（定义（draw-n-ary-tree sexp ox oy X_displ y_displ-diamwidth）X（带attrib（（：线宽（或直径0.6））（：线帽'圆形））X（平移X oyX（组成X（图纸目录树X（normalize-root-to-zero-and-scale！（p->tree-X-coordinates sexp）X_displ）X 0 0显示X）X）X）X）X）X（X）X（X）十、 ；；（fill-cordtree-x-coordinates！（construct-cordinate-tree'（（a.（b.c）））。（d）。f） ）1）十、 ；-->(((0 . 0)) ((-1 . 0) (1 . 0)) ((-3/2 . -1) (-1/2 . -1) (1/2 . 1) (3/2 . 1)) ((-3/4 . -1/2) (-1/4 . -1/2) (1/4 . 1/2) (3/4 . 1/2)))X（X）十、 ；；如果可以在十、 ；；某对nextlev的cdr侧，那么这是一个十、 ；；“内部”边缘为黑色，否则为“叶状边缘”十、 ；；红色。X（X）X（定义（引入树级别下一级别）X（let循环（（电平））X（秒（对电平）X（组成X（秒X（（查找（λ（X）（=（cdr X）（caar水平）））nextlev）X（针头图片线X（pt（+ox（caar级别））ny）X（pt（+ox（cdar级别））oy）X）X）X（其他X（针头-碘-红X（pt（+ox（caar级别））ny）X（pt（+ox（cdar级别））oy）X）X）X）X（环路（cdr电平））X）X）X（否则为空图片）X）X）X）X（X）十、 ；；从上到下画，因为结果更好。X（X）X（定义（绘图-输入树cot ox oy y_displ）X（let（revcot（反向！（cdr-cot）））X（组成X（let循环（（ct revcot）（nextlev'（）））X（y（+oy（*（长度修正）y_displ））X）X（秒）（成对）X（组成X（引入树的牵引水平X（汽车ct）X下一层X轴（-y y_displ）yX）X（回路（cdr-ct）（汽车ct）（-y y_displ））X）X）X（否则为空图片）X）X）X（如果（eq？（长度胶辊）1）X平头画线红色；；空树的根上有一个红点X针头画线；；给其他人一个黑色的。X）X（pt（+ox（caaar cot））（+oy（cdaar cost）））X（pt（+ox（caaar cot））（+oy（cdaar cost）））X）X）；；组成X）X）X（X）X（X）X（X）X（定义（图纸-输入树-双支架cot-ox oy y_displ）十、 ；；（划；；已经划过了，现在画的是图片，不是路径！X（组成X（如果（eq？（长度胶辊）1）X针头画线；；对于空树，使用黑色根点X平头画线红色；；给其他人一个红色的。X）X（pt（+ox（caaar cot））（+oy（cdaar cost）））X（pt（+ox（caaar cot））（+oy（cdaar cost）））X）X（让环（ct（cdr cot））（y oy））X（秒）（成对）X（组成X（引入树的牵引水平X（汽车ct）X（如果（配对？（cdr-ct））（cadr-ct）'（））X X y（+y y_displ）X）X（循环（cdr-ct）（+y y_displ））X）X）X（否则为空图片）X）X）X）；；组成X、 ；）X）X（X）十、 ；；（将根归一化为零并缩放！（p->tree-x坐标'（（）（（））（）））12）十、 ；-->(0 (-9) (9 (3 (3)) (15)))X（X）X（定义（draw-cordtree ct ox oy y_displ）X（冲程X（让递归（（ct ct）（y oy）（prev_y oy，prev_X（car ct）））X（秒）X（组成X（秒）；；在分支列表的开头？X（组成X（针头线X（pt（+ox前_X）前_y）X（pt（+ox（汽车ct））y）X）X（递归（cdr-ct）（+y y_displ）y（汽车ct））；；开始扫描支行。X）X）X（否则；；仍在扫描支行。X（组成X（递归（car ct）y prev_y prevxx）；；画这个树枝。X（递归（cdr-ct）y prev_y prevxx）；；继续支行。X）X）X）；；康德X）；；组成X）X（否则为空路径）X）X）X）X）X（X）X（X）X（定义（数字列表宽度-数字列表刻度）X（let*（（使用的字体（字体“Courier”比例））X（str-glyph（simple-string->glyphpath字体使用X（字符串连接（映射（λ（X）X（格式#f“~A”X（秒（（<X 10）X）X（else（ascii->char（+X 55））；；'A'=65。X）X）X）X数字列表X）X）X）X）X（max-pt（bounding-box:max（bounding-box str-glyph））X（str-宽度（pt:X最大-pt））X）X str-宽度X）X）X（X）X（X）X（定义（图纸-数字列表-数字列表-ox-oy刻度）X（let*（（使用的字体（字体“Courier”比例））X（L字（简单字符串->字形路径字体）X（字符串连接（映射（λ（X）X（格式#f“~A”X（秒（（<X 10）X）X（else（ascii->char（+X 55））；；'A'=65。X）X）X）X数字列表X）X）X）X）X）X（平移X oy（笔划L字））X）X）X（X）X（X）X（X）十、 ；；还显式显示最后一个零！X（定义（draw-Lukasiewicz-word sexp ox-oy scale）X（绘图-数字列表（追加！（p->Lw sexp）（列表0））其他刻度）X）X（X）X（定义（图纸A071158字性别比例）X（draw-digit-list（如果（null？sexp）（列表0）（sexp->A071158-sexp））ox-oy-scale）X）X（X）X（X）X（定义（图纸编号卡片和刻度）X（let*（（使用的字体（字体“Courier”比例））X（ostr（simple-string->glyphpath font-used（格式#f“~A”cardno））X）X（平移ox oy（笔划ost））X）X）X（X）X（定义（图纸-普通编号-右侧卡片-刻度）X（let*（（使用的字体（字体“Courier”比例））X（ostr（simple-string->glyphpath font-used（格式#f“~A”cardno））X（max-pt（bounding-box:max（bounding-box-ost））X（str-宽度（pt:X最大-pt））X）X（平移（-ox str-width）oy（笔划ost））X）X）X（X）X（定义（图纸或数字或无刻度）X（let*（（使用的字体（字体“Courier”比例））X（ostr（simple-string->glyphpath font-used（格式#f“~A.”ordno））X）X（平移ox oy（笔划ost））X）X）X（X）X（X）X（定义（抽屉式悬挂式六角秤）X（带属性（（：线宽0.6）（：线卡'圆形））X（让*（（X_now（列表框））X（字体使用（字体“Courier”比例）X（pars（simple-string->glyphpath font-used（格式#f“~S”sexp））X）X（平移ox-oy（笔划pars））X）X）X）X（X）X（X）十、 ；；好吧，我们在这里对字距进行暴力处理，但我们想要十、 ；；括号的x位置与十、 ；；TBBS的相应数字和Dyck路径的斜率。X（定义（同时定义抽屉式分度尺？）X（带属性（（：线宽0.6）（：线卡'圆形））X（让*（（X_now（列表框））；；Perfaito公司？X（s 0）X（letrsize（*2刻度））X（数字-y级oy）X（par-y级（如果binexp-also？（-oy letrsize）oy）X（字体为“Courier”letrsize）X（lpar（char->glyphpath font-used#\（））X（rpar（char->glyphpath font-used#\））X（零（char->glyphpath font-used#\0））X（一个（char->glyphpath font-used#\1））X）X（组成X（让递归（（p sexp））X（条件（非（空？p））X（合成（平移（car X_now）par-y级（笔划lpar））X（如果binexp也是？X（平移（car X_now）num-y-level（冲程一））X空图片X）X（开始X（集合！s（+（*2 s）1））X（set-car！X_now（+（car X_now）刻度）X（递归（car p））；；在之间重复。X）X（平移（car X_now）par-y级（笔划rpar））X（如果binexp也是？X（平移（car X_now）num-y-level（行程零））X空图片X）X（开始X（设置！s（+（*2 s）0））X（set-car！X_now（+（car X_now）刻度）X（递归（cdr p））；；重复其余步骤。X）X）X）X（否则为空图片）X）X）；；让递归X（第二个？X（让*（（str（格式#f“~A”s））X（str-glyph（simple-string->glyphpath font-used str））X（max-pt（bounding-box:max（bounding-box str-glyph））X（str-宽度（pt:X最大-pt））X）X（平移X（-ox（+（*2刻度）str-width））；；是：（-ox（*刻度（+2（字符串长度str）））X个y级X（冲程str-glyph）X）X）X）X（否则为空图片）X）；；让递归X）；；组成X）；；出租*X）；；X）X（X）X（定义（括号->binexp sexp）X（let（s 0））X（让递归（（p sexp））X（条件（非（空？p））X（集合！s（+（*2 s）1））X（递归（car p））；；在之间重复。X（设置！s（+（*2 s）0））X（递归（cdr p））；；重复其余步骤。X）X）X）；；让递归X秒X）X）X（X）X（X）X（定义（绘制特殊tbbs性别比例）X（带属性（（：线宽0.6）（：线卡'圆形））X（组成X（let*（（str（格式#f“~A”（括号->binexp sexp）））X（调整刻度）X（字体为“Courier”letrsize）X（str-glyph（simple-string->glyphpath font-used str））X（max-pt（bounding-box:max（bounding-box str-glyph））X（str-宽度（pt:X最大-pt））X）X（平移X（-ox字符串-宽度）X合金X（冲程str-glyph）X）X）；；出租*X）；；组成X）；；X）X（X）X（X）X（定义（绘制循环路径和刻度线宽）X（带属性（（：线宽（或线宽0.6））（：line-cap’round））X（let（（X_now（列表框）））X（冲程X（let递归（（s sexp）（级别0））X（秒（非（空？s））X（组成X（针头线；；向上倾斜/X（pt（汽车X_now）（+oy（*刻度水平））X（pt（+（汽车X_now）等级）（+oy（*等级（+1级）））X）X（开始（set-car！X_now（+（car X_now）刻度））X（递归（cars）（+级别1））；；在之间重复。X）X（针引线；；向下倾斜\X（pt（汽车X_now）（+oy（*刻度（+1级）））X（pt（+（汽车X_now）刻度）（+oy（*刻度水平））X）X（开始（set-car！X_now（+（car X_now）刻度））X（递归（cdr s）级）；；重复其余步骤。X）X）；；组成X）X（零位）；；我们想要一个点。对于空路径（）。X（针引线（pt（car X_now）oy）X）X（否则为空路径）X）X）X）；；(打、击等的)一下X）；；让X）；；带属性X）X（X）十、 ；；绘制非交叉Murasaki-diagram：X（定义（draw-rr-diagram sexp X y scale线宽height-overdrive？）X（让*（（高度（或高度过驱动？（*刻度（最大3（count-pars sexp））））X（y（+y高度））X）X（带属性（（：线宽（或线宽0.6））（：line-cap’round））X（冲程X（let循环（（分区（add-depths-to-rr-parts！（sexp->pp-qq-rr-cycles-sexp）））X（第二个（对分区）X（let*（部分（cdar分区））X（深度（caar分区））X（最左侧（汽车部件））X（最右边（汽车（最后一段））X）X（组成；；首先是水平线：（如果最左边=最右边，则为一个点）X（线（pt（+X（*刻度最左侧））（-y（*刻度深度）））X（pt（+X（*刻度最右边））（-y（*刻度深度）））X）X（let inloop（部分））；；然后是垂直线。X（cond（（空？部分）空路径）X（其他X（组成X（线（pt（+X（*刻度（汽车部件）））（-y（*刻度深度）））X（pt（+X（*刻度（汽车部件）））（-y高度））X）X（内环（cdr部分））X）X）X）X）X（循环（cdr分区））X）；；组成X）X）X（否则为空路径）X）X）X）X）X）X）X（X）X（定义（拉伸多边形三角形化六角半径弦长）X（画带或不带圆的弦（bt->pt sexp）半径ox oy#f#f弦宽#f 0 0 0）X）X（X）X（X）X（定义（图中n表示六边形半径弦长周长）X（拉弦-带或-无圆（sexp->hs-sexp）半径ox oy#t弦长周长1 0 0）X）X（X）X（定义（图纸-qq-chords sexp oxy半径弦长周长）X（带或不带圆的拉弦（sexp->pp-qq-rr sexp）半径oxoy#t#f弦周长0 0 1）X）X（X）X（X）X（X）X（定义（绘制有或无圆形弦杆的弦杆半径ox oy圆形？弯曲？弦杆宽度周长r g b）X（let（周长（或周长0.3））X（带属性（：线宽（或弦宽0.5））X（平移X（+oy半径）；；根据底部，而不是中心。X（组成X（拉弦半径弯曲？）X（如果是圆圈？X（行程（圆弧原点（+半径周长）0 2pi）X（：颜色（rgb r g b））X（：线宽周长）X）X空图片X）X）X）X）X）X）X（X）X（X）十、 ；；十、 ；；点1是角度3/2π顺时针方向的半角十、 ；；点2是角度3/2π的一个角和半顺时针方向十、 ；；点n是从角度3/2π开始逆时针方向的半个角度。十、 ；；十、 ；；十、 ；；X（X）十、 ；；角度=（3/2pi+pi/n）-（v*（2pi/nX（X）X（定义（计算垂直角度v n）X（设（（a（-（+（/（*3pi）2）（/pin）））；；从n的角度减去X（*v（/2pin））。。。使用的v*角度。X）X））X（如果（<a 0）（+a 2pi）a）；；确保它是正角度。X）X）X（X）X（X）X（定义（获取边缘点v n半径）X（let（角度（计算垂直角度v n））X（pt（*半径（cos角））X）X）X（X）十、 ；；g1和g2是从原点到顶点v1和v2的角度十、 ；；分别是。十、 ；；角度=角度g1和g2的平均值，与origo的角度十、 ；；去安提奥里戈。十、 ；；h=以线段v1-v2为底的等边三角形的高度，十、 ；；2h是origo和antiorigo之间的距离X（X）十、 ；；第一个顶点和最后一个顶点之间的角度是垂直向下的。X（X）X（定义（绘制反弧v1 v2 n半径）X（设*（g1（计算垂直角X（（如果（eq？（abs（-v1 v2）））X（g2（计算垂直角度X（（如果（eq？（abs（-v1 v2））（-n 1））最大值最小值）v1 v1）n））X（h（*半径（cos（/pi-n）））十、 ；；（角度（/（+g1 g2）2）；；这样不行。。。X（角度（计算垂直角度X（如果（等式？（abs（-v1 v2））（-n 1））；；第一个和最后一个顶点？X（/12）；；然后直接往下走。X（/（+v1 v2）2）；；否则他们的平均值。X）X个X）X）X（antiorigo（pt（*2 h（cos角））（*2小时（sin角）））X）X（圆弧反原点半径（+pi g1）（+πg2））X）X）X（X）X（X）X（定义（拉弦半径弯曲？）X（冲程X（let（n（find-max和弦））X（let loop（（和弦和弦））X（第二和弦）X（组成X（秒X（=（caar和弦）；；只与自身相连的点！？X（弧（获得边缘点（caar弦）n半径）0.5 0 2pi）；；然后画一个小圆。X）X（和曲线？X（>n 2）X（memq（abs（-（caar弦）（cdar弦））X（列表1（-n 1））；；邻居？X）X）X（绘制反弧（caar弦）（cdar弦）n半径）X）X（else；；一条直线。X（直线（get-edge-point（caar弦）n半径）X（获取边缘点（cdar弦）n半径）X）X）X）；；康德X（循环（cdr和弦））X）；；组成X）X（否则为空路径）X）X）X）X）X）X（X）X（X）十、 ；；draw-arcs-with-or-without-base：用于绘制Siteswap-diagrams的函数十、 ；；拼凑的纸片，有点像十、 ；；十、 ；；Buhler，Graham等人的论文“相互交错的水滴和下降”，十、 ；；阿默尔。数学。月刊，101，（第6期）1994，507-519。十、 ；；可以在以下位置看到：十、 ；；十、 ；；http://www.cecm.sfu.ca/organics/papers/buhler/paper/html/node2.html十、 ；；十、 ；；弧：与和弦的语法相同：（（n1.n2）（n3.n4）…）十、 ；；大小：节拍之间的距离。十、 ；；baselinewidth：如果没有请求基线，则为#f，否则为其宽度。十、 ；；基线边距：节拍1和最大拍的左右边距X（X）X（X）X（X）X（定义（绘制弧-带或-无底弧尺寸ox或download？弧宽base_linewidth基线边距r g b）X（let（（基线宽度（或基线宽度0.3））X（最大基线（find-max弧））X）X（带属性（（：线宽（或弧宽0.5）））X（平移（+ox基线边距）oyX（组成X（绘制弧弧最大节拍大小下行？）X（如果base_linewidthX（笔划（行（pt（-baselinemargin）0））X（pt（+基线边距（*大小（-max-beat 1）））0）X）X（：颜色（rgb r g b））X（：线宽基线宽度）X）X空图片X）X）X）X）X）X）X（X）X（X）X（定义（绘图圆弧最大底部尺寸？）X（冲程X（让循环（（弧-弧））X（第二个（和（对弧）（对弧（汽车弧）））X（组成X（弧（pt（*大小（-（/（+（caar弧）（cdar弧））2）1））X 0（X 0）X）X（*（/尺寸2）X（-（最大（caar弧）（cdar弧））X（min（caar弧）（cdar弧））X）X）X（如果下降？pi 0）X（如果下降？2pi pi）X）X（循环（cdr弧））X）；；组成X）X（否则为空路径）X）X）X）X）X（X）X（X）十、 ；；（outeps（绘制带或不带底的弧）（（1.5）（2.6）（3.4）（4.8）（5.9）（6.7）（7.11）（8.12）（9.10））20 40 40#f#f#f 0 0 0 0 0）“j441.eps”）十、 ；；（outeps（draw-arcs-with-or-with-on-base'（（1.5）（2.6）（3.4）（5.8）（5.9）（6.7）（7.11）（8.12）（9.10））204040#f#f 0.5 10 0 1）“jb441.eps”）X（X）十、 ；；45141（=14514）：网球图案，色调为441。十、 ；；这从441开始，然后更改为14514。十、 ；；（外层（拉弧-有或无底'（（1.5）（2.6）（3.4）（5.10）（6.7）（8.9）（9.13）（10.15）（11.12）（12.16）（13.14）（14.18）（15.20）（16.17）（17.21）（18.19）10 10 50#f#f 1.5 5 1 0）“jb14514.eps”）X（X）十、 ；；（outeps（draw-arcs-with-or-without-base'（（1.10）（2.5）（3.4）（6.7）（8.9））6 0 35#t#f 0.5 3 1 0）“ob54.eps”）X（X）X（X）X（定义（输出pict文件名）（show-w/ps2-text-channel文件名pict））X（定义（outeps pict文件名）（show-w/ps2-text-channel文件名pict（：format“EPS”））X（X）X（X）X（定义（从内嵌读取列表）X（带输入文件填充的调用X（λ（输入）X（let循环（（sexp（读取导入））（res（列表）））X（秒（（eof-object？sexp）（反向！res））X（else（循环（读输入）（cons-sexp-res））X）X）X）X）X）X（X）X（X）X（X）十、 ；；以下函数包含一些非常难看的常量，直到我十、 ；；发明更好的东西。。。X（X）X（定义（合成一个循环的sexps半径X开始X显示y_now）X（let循环（（sexps sexps）（X X开始））X（秒（非（空？sexps））X（组成X（draw-n-ary-tree（car sexps）X（car y_now）（/半径2）（/直径2）#f）X（牵引-二叉树（汽车sexps）X（-（汽车y_now）（*3半径））（/半径2）（/直径2）#f）X（拉伸多边形三角形化（car sexps）X（-（car y_now）（*6半径））半径#f）X（draw-n-chords（car sexps）X（-（car y_now）（*9半径））半径#f#f）X（循环（cdr sexps）（+X X_displ））X）X）X（否则为空图片）X）X）X）X（X）十、 ；；其中一些解释非常特殊。十、 ；；如果我们有格式（解释各种输出位置样式属性……），那会更好十、 ；；而不是简单的符号。十、 ；；是的，现在我们开始建造这样的建筑。X（X）X（定义（为单个性经验量表编制所有解释X y解释，包括周长或现在）X（let（左右（*4比例））X（大小（count-pars sexp））X）X（秒X（不是（配对解释）空图片）X（其他X（组成X（让*（描述（汽车解释））X（inter-let（if（pair？desc）（车辆描述）desc））X（居中？（和（配对？描述）（或（memq'：c描述）（memq'：c描述）））X（X_extra_offset（如果（and（pair？desc）（pair（cdr desc）））（数字？（cadr desc，））（cadr desc，0））X（transl_XX（+X额外偏移X（秒（居中？（*0.5比例大小）0）（否则为0））X）X）X（transl_y 0）X）X（翻译transl_X翻译_yX（箱间集X（（（））；；填料为零。除了消耗一些Y空格外，什么也不画。X空图片X）X（（a）；；三角形X（绘图多边形三角形化六角X y弦比例尺）X）X（（d）；；2n+1顶点的平面二叉树X（绘制二叉树sexp X y（/scale 2）（/scale 2）弦宽）X）X（dU）；；具有2n+1个顶点的非压缩平面二叉树X（图纸-非合同-二元树X y（/比例尺2）（/比额尺2）弦长）X）X（（e）；；具有n+1个顶点的平面（一般）树X（绘制的n轴树X轴（/刻度2）（/刻度2中）弦长）X）X（e+d）；；具有n+1个顶点的平面（通用）树，向右移动0.5个*比例*大小点。+左边的二叉树。X（组成X（平移（*0.5比例（计数对性经验））0X（绘制的n轴树X轴（/刻度2）（/刻度2中）弦长）X）X（绘图-二叉树sexp（-X somewhat-left）y（/scale 2）（/scale2）弦长）X）X）X（i）；；普通Dyck路径X（绘制循环路径X X y（/比例2）弦长）X）X（（n）；；在圆桌上不交叉握手。X（绘制n个音X X y刻度弦宽周长）X）X（qq）；；非交叉隔墙。X（图纸-qq-chords sexp X y刻度弦长周长）X）X（rr）；；非交叉Murasaki图X（draw-rr-diagram sexp（-X（/scale 2））y（/scale2）弦宽#f）X）X（（A071156）X（图纸编号（sexp->A071156 sexp）X y刻度）X）X（（A071158）X（图纸A071158字sexp X y刻度）X）X（L）；；Lukasiewicz单词X（draw-Lukasiewicz单词sexp X y刻度）X）X（Td）；；完全平衡的二进制序列作为十进制数，如A014486中的右对齐。X（绘制特殊tbbs sexp X y刻度）X）X（天猫）；；完全平衡的二进制序列作为十进制数，如A014486中的右对齐。X（绘制特殊tbbs sexp X y（-刻度2））；；但字体较小。克鲁奇！X）X（O）；；序数。。。（有点糊涂……）X（图纸序号（后增量）（*4刻度）y刻度）X）X（S）；；大小X（绘制基数（六分计数）（*4比例）y比例）X）X（（S*2+1）；；尺寸*2+1X（绘图普通数字（1+（*2（count-pars sexp）））（*4刻度）y刻度）X）X（P）；；括号X（抽屉式展示性别X y（/比例2）#f）X）X（P+T）；；括号+完全平衡的二进制序列。X（抽屉式租赁sexp X y（/刻度2）#t）X）X）；；案例X）；；翻译X）；；让X（为单一性经验量表X（-y（*3量表）编写所有解释）（cdr解释）弦向周长或现在）X）；；组成X）；；其他的X）；；康德X）X）X（X）X（X）X（X）X（定义（合成一个循环sexps半径X开始X显示y_now解释或现在）X（let循环（（sexps sexps）（X X开始））X（秒（非（空？sexps））X（合成（合成-所有解释-单个（汽车sexps）半径X（汽车y_now）解释#f#f ordnow）X（循环（cdr sexps）（+X X_displ））X）X）X（否则为空图片）X）X）X）X（X）X（X）X（X）X（定义（组成一个分区分区半径X _开始X _显示y _现在y _所需的解释或现在）X（让循环（）X（cond（和（pair？partition）（对？（cdr分区））；；还有要打印的东西吗？X（>（car y_now）y_required）；；是否仍适合此页面？X）X（合成（合成-循环（cadr分区）半径X开始X显示_现在解释或现在）X（开始X（set-car！y_now（-（car y_now）y_required））X（删除！（cadr分区）分区）X（回路）X）X）X）X（否则为空图片）X）X）X）X（X）X（X）X（定义（合成图片-部分列表半径X开始X显示y_now y_now所需的解释或现在）X（let loop（）；；（（列表（cdr列表））X（第二个（和（配对列表）（配对（cdr列表））；；还有要打印的东西吗？X（>（car y_now）y_required）；；是否仍适合此页面？X）X（开始十、 ；；首先，将我们的“锚点”插入分区的开头（与列表结构相反，是一个整数），如果还没有：X（cond（（不是（整数？（cadr列表）））（附加！（长度（cadr列））（cadr表））X（合成（合成-分区（cadr列表）半径X开始X显示_现在_所需的解释或现在）X（cond（（and（pair？（cadr lists）））（对？（cdr（cadr列表）））；；还有一些东西要打印，但没有空间。。。X空图片X）X（else；；我们用完了这个分区X（删除！（cadr列表）列表）X（回路）X）X）X）X）X）X（否则为空图片）X）X）X）X（X）X（X）X（X）十、 ；；用作：十、 ；；（output-part-file-as-ps-file“a057161.sxp”“a0517161.ps”8'（a d）#f#f）十、 ；；（output-part-file-as-ps-file“a057501.sxp”“a05750 1.ps”9'（n i P e L d a）#f#f）十、 ；；（output-part-file-as-ps-file“a069771.sxp”“a0697 71.ps”9'（n i P e L d）#f#f）十、 ；；（output-part-file-as-ps-file“a079438.sxp”“a0794 38.ps”10'（i（）（e:C）P（）（）d an）60 240）十、 ；；（将零件文件输出为ps文件“a079442.sxp”“a079442.ps”10'（i（）（e:C）P（）（）d a n）60 140）十、 ；；（output-part-file-as-ps-file“a080070.sxp”“a08070.ps”10'（O i（e:C）d P+T）140 0）十、 ；；（output-part-file-as-ps-file“a080120.sxp”“a080102.ps”10'（S*2+1 i（e:C）（n:C）P+T L）140 0）十、 ；；（output-part-file-as-ps-file“a080263.sxp”“a0802063.ps”8'（O e（Td+16）（）（）dU a）240 240）十、 ；；（output-part-file-as-ps-file“a080973.sxp”“a080773.ps”8'（O e（天猫+200）n）240 240）十、 ；；（output-part-file-as-ps-file“a086429.sxp”“a0864 29.ps”9'（n qq-rr A071158 A071156 i P）#f#f）十、 ；；（output-part-file-as-ps-file“a102441.sxp”“a102241.ps”10'（O i（e:C）（d-80）P+T）140 0）X（X）X（X）X（定义（输出部分文件作为文件填充输出文件半径解释X_start_overwrite？X_displ_overwrit？）X（let*（（列表（read-lists-from infile））；；始终保持收割台。因为这是用delete修改的！X（y_start_below_header 730）X（y_now（将y_start_below_header列出）X（y_必需（*3半径（+1（长度解释）））X（订单（列表0））X（输出通道（ps2文本通道输出文件））X（format-str（字符串附加（caar列表）“--第~A页”）X（字体为“Times-Roman”10）X（X_start（或X_start_overwrite？（*4半径））X（X_displ（或X_displa_overwrite？（*7半径））X）X（let循环（（第1页））X（cond（（不是（null？（cdr列表）））X（格式#t“执行页面~S，ordnow=~S，（长度列表）=~S、（汽车列表）=～S，（卡德列表）=~S~%”X pageno ordnow（长度列表）（汽车列表）（卡德列表）X（强制输出（电流输出端口））X（显示出频道X（组成X（平移（*1半径）（+（car y_now）50）X（笔划（simple-string->glyphpath font-used（格式#f format-str pageno））X）X（合成图片-部分列表半径X开始X显示y_now y_now所需的解释或现在）X、 ；；（compose-one-instance-per-line！列出出频道半径（*8半径）y_now（*6半径））X）X）X（set-car！y_now y_start_below_header）X（循环（+1页码））X）X）X）X（闭合通道外通道）X）X）X（X）X（X）X（define（compose-one-instance-per-line！sexps出频道半径X_start y_now y_displ）X（let loop（）；；（sexps（cdr-sexps））X（秒（和（对？性经验）（对？（cdr性经验））；；还有要打印的东西吗？X（>（汽车y_now）（+（*2半径）y_displ））；；是否仍适合此页面？X）X（组成X（图纸-序号（车辆sexps）半径（-（车辆y_now）半径）半径）X（draw-dyck-path（cadr sexps）X开始（car y_now）（/radius 2）#f）X（抽屉式X（cadr sexps）X开始（-（car y_now）半径）（/radius 2）#t）X（X）X（抽字X（cadr sexps）（+X_start（*9.5半径））（car y_now）半径#f#f）X（X）X（draw-Lukasiewicz字X（cadr sexps）（+X_start（*13半径））（-（car y_now）半径）X（draw-n-ary-tree（cadr sexps）（+X_start（*13半径））（car y_now）（/radius 2）（/radius 2）#f）X（X）X（X）X（图纸-qq-chordsX（cadr sexps）（+X_start（*19半径））（car y_now）半径#f#f）X（X）X（图纸编号-右侧X（sexp->A071156（cadr sexps））X（+X_start（*21.5半径））X（-（car y_now）半径）X半径X）X（图纸-关系图X（cadr sexps）（+X_start（*22半径））（car y_now）（/半径2）#f#f）X（X）X（图纸A071158字X（cadr sexps）（+X_start（*22半径））（-（car y_now）半径）X（X）X（draw-binary-tree（cadr sexps）（+X_start（*30半径））（car y_now）（/radius 2）（/radius 2）#f）X（拉伸-多边形-三角形化X（cadr sexps）（+X_start（*34半径））（car y_now）半径#f）X（X）X（开始X（set-car！y_now（-（car y_now）y_displ））X（set-car！sexps（+（car sexps）1））；；递增输出序号计数器。X（删除！（cadr sexp）sexps）X（回路）X）X）X）X（否则为空图片）X）X）X）X（X）X（X）X（定义（decr-in-list！lp X）X（let（旧卡（car lp））X（set-car！lp（-old-car X））X旧卡X）X）X（X）十、 ；；用作：十、 ；；（output-exp-file-as-ps-file“a014486.sxp”“a01486.ps”12“第A页，共页http://oeis.org/A014486/A014486.pdf“*第一页*）十、 ；；（稍后将生成的PS-file转换为PDF）。十、 ；；X（X）X（定义*第一页*（列表X“”X“显示序号后，从左到右：”X“-A014486条款，”X“-A063171的术语，上面有相应的加泰罗尼亚山脉（*），每个山脉下面有括号”X“（*即戴克路径，斯坦利解释（i）），”X“-非交叉和弦排列（红圈，Stanley（n），在圆桌上非交叉握手），”X“-具有n条边的平面一般树（Stanley’s（e）），下面有相应的Lukasiewicz单词（A079436），”X“-非交叉隔墙（蓝色圆圈，Stanley’s（qq）），下方为A071156，”X“-非交叉Murasaki图（‘genji-mon’，Stanley’s（rr）），下面是A071158项，”X“-具有2n条边的平面二叉树（Stanley’s（d）），以及相应的锯齿树（Stanley’s（c），”X“即具有n个顶点的二叉树）包含在其内部的黑色中，”X“-具有n+2条边的多边形的三角剖分（Stanley（a））。”X“”X“如果计算每个尺寸n的结构有多少个，则得到加泰罗尼亚数字A000108。”X“”X“有关更多信息，请参阅在线整数序列百科全书中的条目A014486，网址：http://oeis.org/A014486"X“”X“这幅插图由Antti Karttunen于2011年制作，http://oeis.org/wiki/用户：Antti_Karttunen"X“（有关重新创建此文档所需的源代码，请参阅后一页。）”X）X）X（X）X（X）X（定义（output-exp-file-as-ps-file-infile-outfile-radius首页页眉）X（let*（（page-top 770）；；请注意，“美国信”没有A4那么高！X（列表（从内嵌读取列表）；；始终保持收割台。因为这是用delete修改的！X（y_now（列表页面顶部））X（输出通道（ps2文本通道输出文件））X（字体为“Times-Roman”10）X（标题尺寸10）X（c-font-used（字体“Times-Roman”标题大小）X）X（set-car！列表0）；；现在我们把序号计数器放在这里！X（let循环（（第1页））X（cond（（不是（null？（cdr列表）））X（format#t“正在执行页面~S，（长度列表）=~S，（车辆列表）=~S，（cadr列表）=~S%%”X页码（长度列表）（汽车列表）（卡德列表）X（强制输出（电流输出端口））X（显示出频道X（组成X（平移（*1半径）（列表中的decc！y_now（if（=1 pageno）（*2半径）70））X（笔划（simple-string->glyphpath font-used（格式#f pageheader pageno））X）X（秒（=1页码）；；仅在第一页。X（让uloop（第一页上的行））X（cond（（null？行）（decr-in-list！y_now 32）空图片）X（其他X（组成X（平移（*1半径）（删除列表！y_now（*1标题大小））X（笔划（简单字符串->字形路径c-font-used（汽车行））X）X（uloop（cdr行））X）X）X）X）X）X（否则为空图片）X）X（每行合成一个实例！列出出频道半径（*8半径）y_now（*6半径））X）X）X（机顶盒！y_now页面）X（循环（+1页码））X）X）X）X（闭合通道外通道）X）X）X（X）十、 ；；（convert-exp-file-to-multiple-ps-files“a014486_24.sxp”“kuvat/”'n 10 0.5 0.5）十、 ；；十、 ；；还可以尝试：十、 ；；（将exp-file转换为multiple-ps-or-eps-files“a014486_196.sxp”“kuvat/”'e 10 0.4 0.4#t）十、 ；；X（X）X（定义（五种解释的输出图标）X（convert-exp-file-to-multiple-ps-files“a014486_65.sxp”“kuvat/”'n 10 0.4 0.4）X（convert-exp-file-to-multiple-ps-files“a014486_65.sxp”“kuvat/”“a 10 0.5 0.5）X（convert-exp-file-to-multiple-ps-files“a014486_65.sxp”“kuvat/”“d 10 0.5 0.5）X（convert-exp-file-to-multiple-ps-files“a014486_65.sxp”“kuvat/”“e 10 0.4 0.4）X（convert-exp-file-to-multiple-ps-files“a014486_65.sxp”“kuvat/”“i 10 0.5 0.5）X）X（X）X（定义（输出-一致-其他解释）X（convert-exp-file-to-multiple-ps-files“a014486_196.sxp”“kuvat/”“d 10 0.5 0.5）X（convert-exp-file-to-multiple-ps-files“a014486_196.sxp”“kuvat/”'qq 10 0.4 0.4）X（convert-exp-file-to-multiple-ps-files“a014486_196.sxp”“kuvat/”'rr 10 0.4 0.4）X）X（X）十、 ；；十、 ；；然后像这样使用C-shell脚本：十、 ；；十、 ；#/箱子/csh十、 ；；foreach文件（$*）十、 ；；set bas=`/bin/expr$文件：'\（[^.]*\）'`十、 ；；pstopnm$file-llx 1.21-lly 1.33-urx 1.57-ury 1.70-verbose-xborder 0-yborder 0-xs 60-portrait-nocrop-stdout>$bas.ppm十、 ；；ppmtogif-透明白色$bas.ppm>$bas.gifX、 /bin/rm-f$bas.ppm十、 ；；结束十、 ；；十、 ；；X（X）X（定义（将exp-file转换为multiple-ps-files内嵌outfile-prefix解释比例弦向周长）X（转换为多个ps或eps-files填充外置前缀解释标尺弦向周长#f）X）X（X）X（X）X（定义（将X射线转换为多个ps或eps射线，填充外射-外射解释比例尺弦向周长eps？）X（let*（（列表（read-lists-from infile））；；标题是第一个。X（X 100）X（y 100）X）X（let循环（（n 0）（列表（cdr列表）））X（cond（（非（空？列表））X（如果eps？X（show-w/ps2-text通道X（格式#f“~A~A~S.eps”outfile-prefix解释n）X（单车（车牌）比例X y（车牌判读）弦长周长#f）X（：格式“EPS”）X）X（show-w/ps2-text通道X（格式#f“~A~A~S.ps”outfile-prefix解释n）X（单车（车牌）比例X y（车牌判读）弦长周长#f）X）X）X（循环（+1 n）（cdr列表））X）X）X）X）X）共享_共:如果测试$-无0然后${echo}“恢复Catalan_Interpretations_FPS_drawing_routines.scm失败”fi（菲涅耳）fi（菲涅耳）#====~=====加泰罗尼亚解释转换函数.scm==============if test-f“Catalan_Interpretations_conversion_functions.scm”&&test“$first_param”！=-c；然后${echo}“x-跳过Catalan_Interpretations_conversion_functions.scm（文件已存在）”其他的${echo}“x-提取Catalan_Interpretations_conversion_functions.scm（文本）”sed的/^X//'<<'SHAR_EOF'>'Catalan_Interpretations_conversion_functions.scm'&&X（X）十、 字面意义；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；十、 ；；十、 ；；加泰罗尼亚语解释转换函数.scm；；十、 ；；十、 ；；本方案代码由Antti Karttunen版权所有（C）2002-2011；；十、 ；；（电子邮件：.@gmail.com），并置于；；十、 ；；OEIS贡献者许可协议；；十、 ；；（请参见：http://oeis.org/wiki/The_oeis_Contributor%27s_License_Agreement ) ;;十、 ；；十、 ；；有关此模块的旧版本，请参阅URL:；；十、 ；；http://web.archive.org/web/20050831130158/http://ndirty.cute.fi/~karttu/matikka/Nekomorphisms/gatocout.scm十、 ；；第一版由Antti Karttunen编写，2002年4月；；十、 ；；上次修改日期：2011年6月17日；；十、 ；；十、 ；；这些函数转换s表达式（可以视为；；十、 ；；括号或（平面根）car/cdr-二叉树）到；；十、 ；；结构更适合某些组合的输出；；十、 ；；斯坦利练习19中描述的加泰罗尼亚数字的解释；；十、 ；；十、 ；；该模块独立于实际使用的图形库；；十、 ；；十、 字面意义；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；；X（X）X（X）十、 ；；从gatorank.scm转账：十、 ；；（p->Lw-p）将括号“p”转换为Lukasiewicz单词十、 ；；（在car-branch优先，depth-first顺序中，丢弃最后一个零）。十、 ；；X（X）十、 ；；（output_seq（映射（lambda（L）（基线->n 10 L））（映射p->Lw（映射BinTree2Tree（映射A014486->括号（映射A011486（iota0 64））））十、 ；-->0,20,2020,2200,202020,202200,220020,220200,222000,... 给出A071152。X（X）十、 ；；（output_seq（映射（λ（L）（基线->n 10 L））（映射p->Lw（映射A014486->括号（映射A011486（iota0 64））））十、 ；-->0,1,20,11,300,201,210,120,111,... 给出A071153。X（X）十、 ；；（output_seq（排序（映射（lambda（L）（基线->n 10 L）））（映射p->Lw（映射A014486->括号（映射A011486（iota0 64））））十、 ；->0,1,11,20,111,120,201,210,300,... 给出A071154。X（X）十、 ；；将此称为图1：斯坦利的十、 ；；希帕克斯、普鲁塔克、施罗德和霍夫，美国数学。月刊，第104卷，十、 ；；第4期，第344页，1997年。（请参见网址：http://www-math.mit.edu/~rstan/papers.html）十、 ；；我们获得：十、 ；；十、 ；；（p->Lw'（（）（））（（）（）（）（）（）（）（）））（）（）（）））（）（）（）（））））十、 ；；(3 2 0 0 3 5 0 0 0 0 0 0 2 0 0 3 0 0 2 0)X（X）X（定义（p->Lw p）X（反转！（cdr（反转X（让递归（（p p））X（cond（（null？p）（列表0））X（else；；它是一个列表。X（追加！（列表（长度p））X（应用追加！（映射递归p））X）X）X）X）X））X）X（X）X（X）X（X）十、 ；；根据解释d（具有2n+1个顶点（即n+1个端点）的平面二叉树）十、 ；；关于a（凸（n+2）-gon的三角化十、 ；；由n-1条对角线组成n个三角形，这些对角线在内部不相交）。十、 ；；十、 ；；（A014486->括号（A014486 1））-->（））十、 ；；（bt->pt'（（）））-->（（1.2）（2.3）（1.3））十、 ；；（A014486->括号（A014486 2））-->（（）（））十、 ；；（bt->pt'（（）（）））-->（（1.2）（2.3）（3.4）（2.4）（1.4））十、 ；；（A014486->括号（A014486 3））-->（（（）））十、 ；；（bt->pt'（（（））））-->（（1.2）（2.3）（1.3）（3.4）（1.4））十、 ；；（A014486->括号（A014486 4））-->（）（）十、 ；；（bt->pt'（（）（）（（）））-->（（1.2）（2.3）（3.4）（4.5）（3.5）（2.5）（1.5）X（X）十、 ；；注意递归顺序很重要十、 ；；（在cdr分支之前的car-branch），因为十、 ；；我们正在玩的c的副作用。十、 ；；我们绘制的边段中最大的n十、 ；；总是可以从第一个的cdr部分找到十、 ；；在c中配对，即与（cdar c）配对十、 ；；十、 ；；多边形的角按顺时针方向编号十、 ；；从1到n（其中n=叶数（此处：（）））十、 ；；在二叉树中+1表示根叉），因此十、 ；；角1在左端，角n在左端十、 ；；位于底部（“根部”）边缘的右端十、 ；；多边形的。X（X）X（定义（bt->pt bt）X（let（（c（list（cons 0 1）））X（让递归（（bt bt）（sel+））；；+正在扮演id的角色。未使用。X（秒（非（对？bt））；；一片叶子->下一片边缘。X（附加！（cons（cdar c）（1+（cdar c）））c）X）这是一个叉子，所以我们需要一个直径。X（let（（left-min（recurse（car-bt）min）））X（附加！（cons left-min（recurse（cdr-bt）max））c）X）X）X）X（sel（caar c）（cdar c））X）X（cdr（反向！c））X）X）X（X）十、 ；；根据解释n（非交叉握手，即非交叉握手十、 ；；连接圆周上2n个点的弦）十、 ；；解释kk（[2n]的无定点和非交叉对合）：X（X）十、 ；；（sexp->hs'（））->（）十、 ；；（sexp->hs'（（））->（（1.2））十、 ；；（sexp->hs'（（）（）））->（（1.2）（3.4））十、 ；；（sexp->hs'（（）））->（（1.4）（2.3））十、 ；；（sexp->hs'（（）（）（（）））->（（1.2）（3.4）（5.6））十、 ；；（sexp->hs'（（）（（）））->（（1.2）（3.6）（4.5））十、 ；；（sexp->hs'（（））（））->（（1.4）（2.3）（5.6））十、 ；；（sexp->hs'（（）（）））->（（1.6）（2.3）（4.5））十、 ；；（sexp->hs'（（（）））->（（1.6）（2.5）（3.4））X（X）十、 ；；可能更干净，可能：X（X）X（定义（sexp->hs p）X（let（（c（list（cons 0 0）））X（最大节点（列表0））X）X（让递归（（p p））X（秒（对？p）X（let（（this-trans（cons（1+（car-maxnode））0））X（设置car！maxnode（1+（car maxnode））X（附加！this-trans c）X（递归（car p））X（设置car！maxnode（1+（car maxnode））X（set-cdr！this-trans（汽车最大节点））X（递归（cdr p））X）X）X）X）；让递归X（cdr（反向！c））X）；让X）X（X）十、 ；；来自John Fiorillo的http://spesccle.berkeley.edu/~fiorillo/7genjimon.htmlX（X）十、 ；；Genji纹章（“Genji-mon”）或Genji香（“gengi-kó”）十、 ；；是与《圣经》54章相关的标志十、 ；'《源氏物语》（“源氏物话”），作者十、 ；；Murasaki Shikibu在十一世纪的第一个四分之一。X（X）十、 ；；另请参见：http://plaza27.mbn.or.jp/~921/kumiko/genjiko/genjikou.html十、 ；；作者：Kazuhiro Kunii。X（X）十、 ；；两者都链接自http://www.research.att.com/projects/OEIS？Anum=A000110X（X）十、 ；；斯坦利的网址：http://www-math.mit.edu/~rstan/ec/catsol.ps.gz第7页：十、 ；；（《枚举组合数学》27页摘录的解决方案，十、 ；；请参见：网址：http://www-math.mit.edu/~rstan/ec/catalan.ps.gz）X（X）十、 ；；（rr）与（pp）的明显双射。（垂直线位于同一块中十、 ；；如果它们通过水平线连接。）如附注所述十、 ；；至第一章，《源氏物语》中使用了村崎图十、 ；；表示五元素集的52个分区。十、 ；；非交叉Murasaki图与十、 ；；非交叉分区。非交叉Murasaki图的陈述十、 ；；被加泰罗尼亚数字所列举的似乎是第一次被观察到十、 ；；由H.W.Gould向M.Gardner指出十、 ；；[27]中提到。Murasaki图实际上并没有被十、 ；；Murasaki女士本人。直到旧瓦桑时期十、 ；；日本数学，从17世纪末一直到17世纪，十、 ；；Wasanist开始附加Murasaki图表十、 ；；（实际上是熏香图）到插图版十、 ；；《源氏物语》。X（X）十、 ；；工作原理如下：十、 ；；旧秩序是这样的：十、 ；；（sexp->pp-qq-rr-cycles'（））-->（）十、 ；；（sexp->pp-qq-rr-cycles'（（）））-->（（1））十、 ；；（sexp->pp-qq-rr-cycles'（（）（）））-->（（12））十、 ；；（sexp->pp-qq-rr-循环'（（（）））-->（（1）（2））十、 ；；（sexp->pp-qq-rr循环'（）（）（）））-->（（1 2 3））十、 ；；（sexp->pp-qq-rr-循环'（（）（（））））-->（（1 2）（3））十、 ；；（sexp->pp-qq-rr-循环'（（（））（）））-->（（13）（2））十、 ；；（sexp->pp-qq-rr-cycles'（（）（）））-->（（1）（23））十、 ；；（sexp->pp-qq-rr-循环'（（（（））））-->（（1）（2）（3））X（X）X（定义（sexp->pp-qq-rr-cycles-oldorders）X（let（res（列表（列表）））X（位置0）X）X（让递归（s）（深度0）（新闻稿？#t））X（秒（对）X秒（新闻稿？X（设置！位置（1+pos））X（附加！（列出深度位置）X）X（相关深度res）；；总是能找到！X=>（λ（c）（设置！位置（1+pos））（附加！位置（cdr c）））X）X（else（错误“sexp->pp-qq-rr-cycles:no list begining with”depthX”从“res”找到pos=“pos）X）X）X（秒）X（递归（汽车）（1+深度）#t）X）X）X（递归（cdr s）深度#f）X）X）X）X（映射反向！（映射cdr（cdr（反向！res）））X）X）X（X）X（X）十、 ；；十、 ；；（sexp->pp-qq-rr-cycles'（（）（）））-->（（12））十、 ；；（sexp->pp-qq-rr循环'（（）））-->（（2）（1））十、 ；；（sexp->pp-qq-rr-循环'（（）（）））-->（（1 2 3））十、 ；；（sexp->pp-qq-rr-循环'（（）（（））））-->（（13）（2））十、 ；；（sexp->pp-qq-rr-循环'（（（））（）））-->（（23）（1））十、 ；；（sexp->pp-qq-rr-cycles'（（）（）））-->（（3）（12））十、 ；；（sexp->pp-qq-rr-循环'（（（（））））-->（（3）（2）（1））十、 ；；并且：十、 ；；（sexp->pp-qq-rr循环'（（）（）（（）十、 ；；（sexp->pp-qq-rr循环'（（）（）（（）十、 ；；（sexp->pp-qq-rr循环'（（）（）（（）十、 ；；X（X）十、 ；；我认为可以更优雅和对称。十、 ；；根据下降（右侧）边缘进行贴图，因此首先调用DeepReverse：X（X）十、 ；；从gatomorf.scm借来：X（定义（*A057164 s）；；曾是：DeepRevX（秒（非（对））s）X（（空？（cdr））（cons（*A057164（汽车））（列表））X（其他（追加（*A057164（cdr））X（*A057164（缺点（汽车）（列表）））X）X）X）X（X）X（定义（sexp->pp-qq-rr-cycles s）X（let（res（列表（列表）））X（位置（1+（计数部分）））X）X（让递归（s（*A057164s））（深度0）（新闻稿？#t））X（秒（对）X秒（新闻稿？X（设置！位置（-1+位置））X（附加！（列出深度位置）X）X（相关深度res）；；总是能找到！X=>（λ（c）（设置！位置（-1+pos））（附加！位置（cdr c）））X）X（else（错误“sexp->pp-qq-rr-cycles:no list begining with”depthX”从“res”找到pos=“pos）X）X）X（秒）X（递归（汽车）（1+深度）#t）X）X）X（递归（cdr s）深度#f）X）X）X）X（映射cdr（cdr（反向！res））X）X）X（X）X（X）X（定义（循环->成对循环）X（let循环（（res（list（last-pair循环）））（循环周期））X（秒（（空？循环）（cdr（反向！res）））X（else（循环）X）X）X）X（X）十、 ；；根据下降（右侧）边缘进行贴图，因此首先调用DeepReverse：X（定义（sexp->pp-qq-rr s）（追加map！循环->对（sexp->pp-qq-rr循环s））X（X）十、 ；；在整数升序列表中找到第一个“洞”，#f表示没有洞：十、 ；；（下一个孔'（3 4 5）->#f十、 ；；（下一个孔'（3 4 7））->5十、 ；；X（X）X（定义（下一孔列表）X（条件（（null？lista）#f）X（（空？（cdr lista））#f）X（（>（card lista）（1+（car lista）））X（else（next-hole（cdr-lista））X）X）X（X）X（X）十、 ；；（找到所有孔'（1 3 5 10 12））-->'（2 4 6 7 8 9 11）X（X）X（定义（查找所有孔列表）X（如果（配对？列表）X（let循环（（res（list））（lista（cdr lista）））X（cond（（null？lista）（反向！res））X（（>（car lista）a）（循环（cons a res）lista（1+a））X（else（循环res（cdr lista）（1+a））；；否则a=（车辆列表a）X）X）X列表X）X）X（X）十、 ；；分区中的每个分区都必须按升序排序，十、 ；；从最小到最大！分区列表本身不需要排序。X（X）十、 ；；（将深度添加到rr-parts！（sexp->pp-qq-rr-cycles'（（）（）（（）十、 ；；（将深度添加到rr-parts！（sexp->pp-qq-rr-cycles'（（）（）（（））（））））-->'（（0 1 9）（1 2 6 8）（2 3 5）（3 4）（2 7）（0 10））十、 ；；（为rr部分添加深度！（sexp->pp-qq-rr循环'（（）（）（）（（）（））（）））））-->'（（0 1 9）（1 2 6 8）（2 3）（2 4 5）（2 7）（0 10））X（X）X（定义（add-depths-to-rr-parts！分区）X（let（（res（list）））X（设aihvus（（位置1）（深度0））X（cond（关联位置分区）X=>（λ（c）X（附加！（附加！深度c）res）；；将带深度前缀的分区c转移到res的前面X（设置！个分区（删除！c个分区））；；并从分区中删除。X（let（内侧位置（find-所有孔c））X（对于每个（lambda（pos）X（aihvus位置（1+深度））X）内侧X位置X）X（aihvus（1+（car（last-pair c）））深度）X）X）X）X）X）X（cdr（反向！res））X）X）X（X）十、 ；；从gatoaltr.scm借来：X（X）X（X）X（定义（p->代码1 p）X（let（（cs（list（list））））X（让递归（（p p）（级别0））X（秒X（（对？p）X（秒（（对？（轿厢p））X（附加！（1+level）cs）X（递归（car p）（1+级））X）X）X（秒（（对？（cdr p））X（附加！级别cs）X（递归（cdr p）级别）X）X）X）X）X）；；让递归X（cdr（反向！cs））X）X）X（X）十、 ；；也就是说，每一个加一个，前面加一个：（我忘记了为什么……）X（定义（p->零自由代码1 p）X（p->代码1（cons p'（）））X）X（X）X（定义（p->factbase p）X（factbaseR->n（p->zerofree-code1p））X）X（X）X（定义（sexp->A071157 s）（反向！（p->zerofree-code1 s））X（X）X（定义（sexp->A071155 s）（p->factbase s））X（X）X（定义（sexp->A071158 s）（反向！（p->zerofree-code1（*A057164 s）））X（定义（sexp->A071156 s）（sexp->A071155（*A057164 s））X（X）十、 ；；十、 ；；（sexp->A071158'（（）（）（（））））-->'（1 1 1）（sexp->A071156'（（十、 ；；（sexp->A071158'（（）（（））））-->'（1 2 1）（sexp->A071156'（）（）（十、 ；；（sexp->A071158'（（（））（）））-->'（2 1 1）（sexp->A071156'（（）十、 ；；（sexp->A071158'（（（）（））））-->'（2 2 1）（sexp->A071156'（（）十、 ；；（sexp->A071158'（（（））））-->'（321）（sexp->A071156'（（（（）））））-->23十、 ；；X（X）十、 ；；借用和修改自网址：http://www.iki.fi/~kartturi/Schemuli/intfuns1.scmX（定义（factbaseR->n rex）；；将反向阶乘展开列表转换为整数。X（让环（（rex-rex）（n 0）（i 1）（fn 1））X（条件（（null？rex）n）X（其他（循环（cdr-rex）（+n（*fn（car-rex）））（+1 i）（*fn（+1 i）））X）X）X）X（X）X（X）X（X）十、 ；；这些工具中的任何一个是否（意外）实现了十、 ；；“用TeX很好地绘制树”中提到的算法，十、 ；；作者：A.Brüggemann-Klein和D.Wood，网址：十、 ；；http://cajun.cs.nott.ac.uk/compsci/epo/papers/volume2/issue2/epabk022.pdf ??十、 ；；十、 ；；另请参阅：杰里米·吉本斯（Jeremy Gibbons），《导出树木的潮汐图》（Deriving Tidy Drawings of Trees）。十、 ；；函数编程杂志，6（3）p535-5621996。十、 ；；http://web.comlab.ox.ac.uk/oucl/work/jeremy.gibbons/publications/drawing.ps.gz十、 ；；X（X）十、 ；；对于二叉树的“优化”输出，我们首先构造十、 ；；一个宽度第一的“spread-tree”（参见电子表格）十、 ；；要输出的car/cdr-tree（带有函数construct-cordinate-tree），十、 ；；然后用无碰撞的X坐标“实例化”其节点十、 ；；使用函数fill-cordtree-x-cordinates！X（X）十、 ；；十、 ；；构建如下列表结构：十、 ；；（结构-坐标树'（a.（b.c）））十、 ；-->(((0 . 0)) (((0 . 0)) ((0 . 0))) ((((0 . 0))) (((0 . 0)))))十、 ；；十、 ；；（结构-坐标-树’（（a.b））。c） ）十、 ；-->(((0 . 0)) (((0 . 0)) ((0 . 0))) ((((0 . 0)) ((0 . 0))) (((0 . 0)) ((0 . 0)))))十、 ；；X（X）X（定义（构造坐标树bt）X（let（cs（列表（列表（cons 0 0））））；；x位置0处的根。X（λ（recfun）X（秒（（对？bt）X（recfun（cdr bt）1）X（娱乐（汽车bt）1）X））X秒X）X（letrec（递归（λ（bt深度））X（let（此标高（第n个深度cs））X（前置级别（list-ref cs（-depth 1））X）X（X）X（如果（配对？此级别）；；不是这个级别的第一个。X（set-car！this级别（cons prev级别（car this级别））X（追加！cs（list（list prev-level））X）X（秒（（对？bt）X（递归（cdr-bt）（1+深度））X（递归（car bt）（1+深度））X）X）；康德X）；让X））X递归X）；letrec公司X）；λX）；让X）X（X）X（X）X（define（用坐标对替换父指针！lista X-disp）X（秒（对？列表）X（set-car！列表（cons（+（caaar-lista）X-displ）（caaar lista））X（repl-parent-pointers-with-coor-pairs！（cdr-lista）（-X-displ））X）X）X）X（X）X（定义（add-displ-to-each-child-X！lista X-displ）X（秒（对？列表）X（set-car！（car lista）（+（caar lista）X-displ））X（将displ添加到每个child-X！（cdr-lista）（-X-displ））X）X）X）X（X）X（定义（无碰撞水平）X（或（空？级别）X（空？（cdr级别））X（应用<（地图汽车高度））X）X）X（X）X（X）十、 ；；（fill-cordtree-x-coordinates！（construct-cordinate-tree'（））1）十、 ；-->(((0 . 0)))十、 ；；（fill-cordtree-x-coordinates！（construct-cordinate-tree'（a.b））1）十、 ；-->(((0 . 0)) ((-1 . 0) (1 . 0)))十、 ；；（fill-cordtree-x-coordinates！（construct-cordinate-tree'（a.（b.c）））1）十、 ；-->(((0 . 0)) ((-1 . 0) (1 . 0)) ((0 . 1) (2 . 1)))十、 ；；（fill-cordtree-x-coordinates！（construct-cordinate-tree'（（a.b））。c） ）1）十、 ；-->(((0 . 0)) ((-1 . 0) (1 . 0)) ((-2 . -1) (0 . -1)))十、 ；；（fill-cordtree-x-coordinates！（construct-cordinate-tree'（（a.b））。（c、d））1）十、 ；-->（（（0.0））（（-1.0）（1.0））（（-3-2.-1）（-1/2.-1）（1/2.1）（3/2.1）））十、 ；；（fill-cordtree-x-coordinates！（construct-cordinate-tree'（（a.（b.c）））。（d）。f） ）1）十、 ；-->(((0 . 0)) ((-1 . 0) (1 . 0)) ((-3/2 . -1) (-1/2 . -1) (1/2 . 1) (3/2 . 1)) ((-3/4 . -1/2) (-1/4 . -1/2) (1/4 . 1/2) (3/4 . 1/2)))十、 ；；X（X）X（X）十、 ；；调用为（fill-cordtree-x-coordinates！（construct-cordinate-tree-bt）x-displ#f）X（定义（fill-cordtree-X-coordinates！ct X-displ never-contract？）；；新参数增加了12。2003年2月。X（秒）X（秒）；；仍然指向这一级别的家长。X（repl-parent-pointer-with-coor-pairs！（汽车ct）（-X-displ））X（fill-cordtree-X-coordinates！ct X-displ never-contract？）；；然后再次检查。X）X（或从未签订合同？X（无碰撞？（汽车ct））；；如果此级别没有碰撞，则继续X）X（fill-cordtree-X-coordinates！（cdr-ct）X-displ never-contract？）X）我们必须与这一级别的分行签订合同。X（将displ添加到每个child-X！（汽车ct）（/X-displ 2））X（fill-cordtree-X-coordinates！ct（/X-displ 2）never-contract？）；；然后再试一次。X）X）X）X）X ct扫描X）X（X）X（X）X（X）十、 ；；（p->tree-x-coordinates'（））-->（1）十、 ；；（p->树x坐标'（（））-->（1（1））十、 ；；（p->tree-x-coordinates'（（（）））-->（1（1（一）））十、 ；；（p->tree-x-coordinates'（（）（）））-->（3/2（1）（2））十、 ；；（p->tree-x-coordinates'（（）（）（（）））-->（2（1）（2）（3））十、 ；；（p->tree-x-coordinates'（（（））（）））-->（3/2（1（1））（2））十、 ；；（p->tree-x坐标'（（）（（）））-->（3/2（1）（2（2）））十、 ；；（p->树x坐标'（（）（）））-->（3/2（1/2（1）（2）））十、 ；；（p->tree-x-coordinates'（（（）））-->（1（1（一（1））））X（X）X（X）X（定义（增量X）（set-car！X（+（car X）1））（car X））X（X）X（X）X（定义（平均X个分支）X（/（应用+（映射汽车分支））（长度分支）X）X（X）X（定义（p->tree-X-坐标p）X（let（（max_X（列表0）））X（让递归（（p p））X（秒（非（对？p））（列表（增量最大_X））X（其他X（let（分支（映射递归p））X（cons（平均X-个分支）分支）X）X）X）X）X）X）X（X）X（X）X（X）十、 ；；（将根归一化为零并缩放！（p->tree-x坐标'（（）（（））（）））12）十、 ；-->(0 (-9) (9 (3 (3)) (15)))X（X）X（定义（归一化-从根到零和刻度！tx X刻度）X（让（下车（汽车tx））X（让递归（（tx tx））X（秒（（对？tx）X（如果（数字？（汽车tx））X（set-car！tx（*（-（car tx）off）X刻度）X（递归（car tx））X）X（递归（cdr-tx））X）X）X）X tx（X tx）X）X）X（X）X（X）X（X）X（X）共享_共:如果测试$-无0然后${echo}“恢复Catalan_Interpretations_conversion_functions.scm失败”fi（菲涅耳）fi（菲涅耳）#====~=====a014486.sxp==============if test-f'a014486.sxp'&&测试“$first_param”！=-c；然后${echo}“x-跳过a014486.sxp（文件已存在）”其他的${echo}“x-提取a014486.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a014486.sxp'&&X（“A014486至7号”）X（）X（（））X（（）（））X（（））X（（）（）（（））X（（）（（）））X（（（））（））X（（）（））X（（（）））X（（）（）（，）（））X（（）（）（（）））X（（）（（））（））X（（）（）（（）））X（（）（（）））X（（（））（）（））X（（）（））X（（）（））（）X（（）（）（（）））X（（）（（）））X（（（）））（））X（（（））（））X（（（）（）））（））））X（（）（）（，）（）X（（）（）（）（）（））X（（）（）（（））（））X（（）（）（（）（）））X（（）（）（（）））X（（）（（））（）（）X（（）（）（（））（））X（（）（）（（））（））X（（）（（）X（（）（）（（）X（（）（（））（））X（（）（（））（））X（）（（）（）））X（（）（（（）））X（（（））（）（）X（（））（）（）X（（）（）（（））（））X（（（））（（）（）））X（（）（（）））X（（）（））（）（（））X（（（）（））（（）））X（（）（）（（））（））X（（）（）（，）（））X（（）（）（（）））X（（）（）（（））（））X（（（）（（））（））X（（）（）（（）））X（（）（（））X（（（（）））（）（））X（（（））（））X（（（））（））（））X（（（））（）（））X（（（）（（）））X（（（）（））（）X（（（）（））（）））X（（（）（）（（）））X（（（）（（）））X（）））（））X（））（））（））（））））X（）（））X（）））X（（）（）（，）（，，）（）X（（）（）（，）（，（）））X（（）（）（，）（））（）X（（）（）（，）（）X（（）（）（（）X（（）（）（（））（）X（（）（）（（））（））X（（）（）（（））（））X（（）（）（（）X（（）（）（（）X（（）（）（（））（））X（（）（）（（））（））X（（）（）（（）X（（）（）（（））X（（）（（））（）（）X（（）（（））（）（）X（（）（（））（）（））X（（）（（））（）（）X（（）（）（（））（）））X（（）（）（（））（）X（（）（）（（））（））X（（）（）（（））（））X（（）（（）X（（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（（））（）（）X（（）（（））（））X（（）（（））（））（））X（（）（（））（）（）X（（）（（））（）（）））X（（）（（）（）））（））X（（）（（）X（（）（（（）（）（）））X（（）（（）X（（）（（（）））（））X（（）（（））（））X（（）（（（））（）））X（）（（（）（）））X（（）））X（（（））（）（）X（（（））（）（）X（（（））（）（（）（））X（（（））（）（（）（）））X（（））（）（（）（）））X（（）（）（（））（）X（（）（）（（））（）X（（（））（（）（））X（（）（）（（）X（（（））（）（（）（）））X（（）（）（（））（））X（（（））（（）（））X（（（））（（）（）））X（（）（（））X（（（）（））（）（，）（）X（（（）（））（）（（）））X（（（）（））（（））X（（（）（））（（）（）））X（（（）（））（（）））X（（）（）（（））（）X（（）（）（（））（））X（（）（）（，）（））（）X（（（）（）（）（）（）（）））X（（（）（）（（））（）））X（（（）（）（（））（））X（（（）（）（（））（））X（（（）（）（（）（）））X（（（）（）（（）））X（（）（（））（）（）X（（）（）（（））（））X（（）（）（（））（））X（（（）（））（）（）））X（（）（）（（））（）））X（（）（）（（））（））X（（）（）（（））（））X（（）（）（（）X（（）（）（（）X（（）（（））（））X（（）（（））（））X（（）（（））（）（）））X（（）（（）X（（）（（））X（（（（）））（）（）X（（（））（）（（）（）））X（（（））（）（））X（（（（）））（（）（））X（（（（）））X（（（））（）（）X（（（））（）（））X（（（））（）（））X（（（））（）（）X（（（））（）（（）（）））X（（（））（））X（（（））（（）（））X（（（（））（（）（）））X（（（））（（（））））X（（（（）（）））（）（（））X（（（）（））（（）））X（（（）（））（）X（（（）（））（）（（）））X（（（）（））（（）））X（（（）（）（（）））（））X（（（）（）（（））（））X（（（）（）（（）））X（（（）（）（（））））X（（（）（（）））（））X（（（）（（））（））X（（（）（（））（）））X（（（）（（））（）（）））X（（（）（（（））））X（）））（）（）（）））（）））X（））（）（））X（））（）（））X（））（（）））X（）（）））（）X（））（）（））X（））（）（））X（）（）（（）））X（）（）））（）X（）（））（）X（）（））X（）（）（（）））X（）（）（（）））X（））（））X（）））（））X（））（）））X（）（））X（）（））X（）））X（（）（）（，）（）X（（）（）（，）（，（）（（）））X（（）（）（，）（，，）（）X（（）（）（）（）（）（）（）（））X（（）（）（，）（，（）））X（（）（）（（）X（（）（）（，）（，，）（））X（（）（）（X（（）（）（）（）（）（）（）））X（（）（）（，）（，（）（（）））X（（）（）（X（（）（）（X（（）（）（X（（）（）（（）X（（）（）（（））（）X（（）（）（（））（）X（（）（）（（））（）X（（）（）（）（））（）（）（））X（（）（）（（））（））X（（）（）（（）X（（）（）（（））（））X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（））（）X（（）（）（（））（））X（（）（）（（））（））X（（）（）（（））（）X（（）（）（（））（）））X（（）（）（（））（））X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（））（））X（（）（）（（））（））X（（）（）（（（））（）））X（（）（）（（）X（（）（））））X（（）（（））（）（）X（（）（（））（）（）X（（）（（））（）（）X（（）（（））（）（）X（（）（））（）（（）））X（（）（（））（）（））X（（）（（））（）（））X（（）（（））（）（）X（（）（））（）（）（）（）））X（（）（）（（）X（（）（））（（））X（（）（））（（））（））X（（）（（））（（（）X（（）（（））（（（））））X（（）（）（（））（）X（（）（）（）（））（）（））X（（）（）（（））（））X（（）（）（（））（）X（（）（）（（））（）））X（（）（（）X（（）（）（（））（））X（（）（（）X（（）（（）X（（）（（）X（（）（）（（））（））X（（）（（）X（（）（（）X（（）（（））（）（））X（（）（）（（））（）X（（）（）（（））（））X（（）（）（（））（））X（（）（）（（））（）X（（）（）（（））（）））X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（）（（）））（））X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（（））（）（）（）（））X（（）（（））（）（）X（（）（（））（）（））X（（）（（））（）（）X（（）（（））（）（）））X（（）（（））（）（））X（（）（（））（）（））X（（）（（））（）（））X（（）（（））（）（）X（（）（（））（）（（）））X（（）（（））（）（））X（（）（（））（）（））X（（）（（））（）（）X（（）（（））（）（））X（（）（（）X（）（（）（））（）X（（）（（）X（（）（（）X（（）（（）X（（）（（）X（（）（（）X（（）（（）X（（）（（）X（（）（（）X（（）（（）X（（）（（）X（（）（（）X（（）（（）X（（）（（（）））（）（））X（（）（（））（））X（（）（（））（）（））X（（）（（（））（）（）））X（（）（（（））（）））X（（）（（（））（））（））X（（）（（（））（）））X（（）（（（））（）（）））X（（）（（（））（））X（）（（（）（）））（）X（）（（（）（）））X（）（（（）（）））X（（）（（）X（（）（（）X（（））））（））X（（），（）））X（（），（）））X（（））（）））X（（））X（（））））X（（（））（）（）X（（））（）（）（）（）（）（））X（（（））（）（）X（（（））（）（）X（（（））（）（）X（（（））（）（）X（（（））（）（（）（））X（（（））（）（（）（））X（（（））（）（）X（（（））（）（（）（）））X（（（））（）（（）（））X（（（））（）（（）（）））X（（（））（）（（）（）））X（（（））（）（（）（））X（（）（）（（））（）X（（）（）（（））（）X（（）（）（（））（）X（（）（）（（））（）X（（）（（））（）（））X（（（））（（）（））X（（（））（（）（））X（（）（）（（）X（（）（）（（）X（（））（（）（）（）（）））X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（））（）（）（（）））X（（）（）（（））（）X（（）（）（（））（））X（（）（）（（））（）X（（）（）（（））（）X（（（））（（）（））X（（（））（（）（）））（）X（（（））（（）（））X（（））（（）（）X（（）（（）X（（（））（（（（）））（））X（（）（（（））（））X（（））（（（）（）））X（（））（（（）（）））X（（））X（（（）（））（）（，）（）X（（（）（））（）（，）（）X（（（）（））（）（（））X（（（）（））（）（（）X（（（）（））（）（（）））X（（（）（））（（））X（（（）（））（）（（））X（（（）（））（（）X（（（）（））（（）X（（（）（））（（）X（（（）（））（（）））（）X（（）（））（（））X（（）（））（（）X（（）（）（（））（））X（（）（）（（））（）X（（（）（））（）（（）））X（（（）（）（（））（））X（（）（）（（））（）X（（（）（））（）（（）））X（（）（）（）（）（））（）（）（））X（（（）（）（（））（））X（（）（）X（（）（）X（（（）（）（）（）（）（）））X（（（）（）（（））（））X（（）（）X（（）（）X（（（）（）（（））（））X（（）（）（（））（）X（（）（）（（））（））X（（（）（）（（））（））X（（（）（）（（））（）X（（（）（）（（））（）））X（（）（）（）（）（）））（））X（（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（））（））X（（（）（）（（））（）））X（（（）（）（（））（）））X（（）（）（（）X（（）（）（（））（））X（（（）（（）））（）（）X（（）（（））（）（）X（（）（（））（）（））X（（）（（））（）（）X（（）（）（（））X（（）（）（（））（）X（（）（）（（））（））X（（）（））（）（）（））（））X（（）（（））（）（）X（（）（（））（）（）X（（）（）（（））（））X（（）（）（（））（））X（（）（（））（）（）X（（）（）（（））（））X（（）（）（（））（）X（（）（（）（）））（））X（（（）（）（（））（））X（（）（）（（）X（（）（）（（））（）））X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（（）（）（（））（））X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（）（（）X（（）（（））（）（）X（（）（（）））（（））X（（）（（））（）（））X（（）（（））（）（）X（（）（（））（）（）））X（（）（（））（）（））X（（）（（））（）（））X（（）（（））（）（）X（（）（（））（）（））X（（）（（））（）（））X（（）（（））（）（））X（（）（（）X（（）（（）X（（）（（）X（（）（（））（））X（（）（（））（））X（（）（（（））（）））X（（）（（（））（））X（（）（（）X（（）（）））X（（（））（）（）X（（（））（）（）X（（（（）））（）（（）（））X（（（（）））（）（（）（））X（（（））（）（（）（）））X（（（）））（（））（）X（（（））（）（））X（（（（）））（（）（））（）X（（（（）））（（）（）X（（（））X（（（））（（）（））X（（（））（（）（））X（（（））（（）（）））X（（（））（（）X（（（））（））（）（）（）（））X（（（））（）（）X（（（））（）（）X（（（））（）（））X（（（））（）（））X（（（））（）（））（））（）（））X（（（））（）（））X（（（））（）（）X（（（））（）（）X（（（））（）（）X（（（））（）（（）（））X（（（））（）（（））（））X（（（（））（）（（）（）））X（（（））（）（（）（）））X（（（））（））X（（（）（）（（））（））X（（（））（）（））X（（（））（）（））X（（（）（）（（））（）））X（（（（））（（）（）））（）X（（（））（（）（））X（（（））（（）（）X（（（）（）（（）X（（）（）（（））（））X（（（））（（）（））X（（（））（（）（）））X（（（（））（（）（）））X（（（）（（）））X（（（（）（）））（）（，）（）X（（（）（））（）（（））X（（（（）（）））（（））（）X（（（）（））（）（（）））X（（（）（））（（）））X（（（）（））（）（，）（）X（（（（）（））（）（（）））X（（（）（））（）（，）（）X（（（（）（））（）（，）（）X（（（）（））（）（（）））X（（（）（））（（）））（）X（（（）（））（）（（））X（（（）（））（）（（）））X（（（）（））（（）））X（（（）（）（（）））（）X（（（）（）（）））（））X（（（）（）（（））（））X（（（（）（）（（）））X（（（）（）（）（））（（）））X（（（）（）（（））（））X（（（（）（）（（））（）））X（（（）（）（）（）（）（）））X（（（（）（）（（））（）））X（（（）（）（（）））（））X（（（）（）（（））（）））X（（（）（）（（））（）））X（（（（）（）（（））（）））X（（（）（）（（）））X（（（）（（）））（）（））X（（（）（（））（））X（（（）（（））（）（））X（（（）（（））（）（）））X（（（）（）（（））（）））X（（（）（）（（））（））X（（（）（（））（）（））X（（（（）（（））（）（）））X（（（）（）（（））（））X（（（）（）（（）））（））X（（（）（）（（））（）））X（（（）（）（（））（）））X（（（（）（（））（）（）））X（（（）（）（（）X（（（）（（））（））X（（（）（（））（））X（（（）（（））（）））X（（（）（（））（）（）））X（（（）（（））（）（）））X（（（）（（）））X（）））（）（）X（）））（）（）X（）））（（））（））X（）））（（）（））X（）））（（））（））（））（））（）（）（）X（）））（））（（））X（））（）（））X（））（）（）X（））（）（）X（）））（（））（））X（））（（））X（））（（）（））X（））（（））X（））（）（））X（））（）））（（））X（））（）（））X（））（）（））X（）（））（）（（）））X（））（）（））X（））（）（））X（））（）（）X（））（）（）X（））（（）））（））X（）（）（（））（））X（）（）（（））（））X（））（（）（））X（））（（））（）））（）（））（）））（）））X（）（））（）X（）（））（）X（）（））（（）））（）（））（）））（））X（）（）（（））（））X（）（））X（）（）（（））（））X（）（）（（）））（））（）（））（））（）））X（）（）（（））（）））X（）（）（，）（））X（）（）（（））（））X（）（）（（））（））（（）））（）））X（）（）（（））（）））X（）（）（（））（））X（）（（）（）））X（）（）（（）））X（））（）（））X（））（））X（））（）（））X（）））（）（））X（））（（）））X（））（）（））X（））（）（））X（））（）（））X（））（（））X（）（）））（）X（））（）））X（））（）（））X（））（）（））X（））（（））X（）（））（）X（）（）））X（）（）））X（）（））X（）（）（（）））（）））））X（））（））X（））（））X（））（）））X（））（））X（））（））X（）（））X（）））共享_共:如果测试$-无0然后${echo}“恢复a014486.sxp失败”fi（菲涅耳）fi（菲涅耳）#========~====2057161.sxp==============if test-f'a057161.sxp'&&测试“$first_param”！=-c；然后${echo}“x-跳过a057161.sxp（文件已存在）”其他的${echo}“x-提取a057161.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a057161.sxp'&&X（“旋转三角化”5）X（（））X（（（）））X（（（）（））（（）））X（（（）（）（（）X（（（）（）（（）））X（（（）（）（（）（（（）（（））（）（））))) (((() ())) ()) ((()) () (())) (() (() (()))) (((() (())))) (((())) () ())) ((() (()) () ()) (((()) () ())) (() (() ()) ()) (((() ()) ())) ((()) (()) ()) (() ((()) ())) ((((()) ())))) ((() (() () ())) (((() () ()))) ((() ()) () ()) ((()) (() ())) (() ((() ()))) ((((() ())))) ((()) () () ())))共享_共:如果测试$-无0然后${echo}“a057161.sxp的恢复失败”fi（菲涅耳）fi（菲涅耳）#====~=====a057501.sxp==============if test-f'a057501.sxp'&&测试“$first_param”！=-c；然后${echo}“x-跳过a057501.sxp（文件已存在）”其他的${echo}“x-提取057501.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a057501.sxp'&&X（“旋转握手”5）X（（））X（（（）））X（（（）（））（（）））X（（（）（）（（）X（（（）（）（（））（）X（（））（（）（））（）（）（）））（）（）（）））（）（）（））（））（））（））（）））（）（）) ((()) (() ())) (() ((() ()))) ((((() ())))) (((() ())) ()) ((() ()) (()))) ((() (()) (())) (((()) (()))) ((()) (()) ()) (() ((()) ())) ((((()) ()))) (((()) ()) ()) ((()) () (())) (() (() (()))) (((() (())))) ((() (())) ())) ((() (((())))) (((((()))))) ((((()))) ()) (((())) (())) ((()) ((())))))共享_共:如果测试$-无0然后${echo}“a057501.sxp的恢复失败”fi（菲涅耳）fi（菲涅耳）#====~=====057546.sxp==============if test-f'a057546.sxp'&&测试“$first_param”！=-c；然后${echo}“x-跳过a057546.sxp（文件已存在）”其他的${echo}“x-提取057546.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a057546.sxp'&&X（“A057546=A057511/A057512的固定点”10）X（（））X（（（）））X（（（）（））（（）））X（（（）（）（））（（）（）））（（（））））X（（（）（）（（）X（（（（）（）（（）X（（（）（）（（）X（（（）（）（（）（））X（（（）（）（（）（））（（（）））（）） ())))))) (((((((() ()))))))) ((((((((()))))))))))X（（（）（）（（）（）))))) (((((() () () () ()))))) ((((((())) ((())))))) ((((((() () () ())))))) (((((((()) (()))))))) (((((((() () ()))))))) ((((((((() ())))))))) (((((((((())))))))))))X（（（（）（）（（））（））（（））（（（）（）））（)) ()) (() ((())))) ((((())) ((())) ((())))) ((((()) ())) ((() (())))) ((((()) (()) (()) (())))) ((((() ()))) (((() ())))) ((((() () ()) (() () ())))) ((((() () () () () () ())))) ((((() (())) ((()) ())))) (((((())))) ((((()))))) (((((()) ()) (() (()))))) (((((() ())) ((() ()))))) (((((() () () () () ()))))) ((((((()))) (((())))))) ((((((()) (()) (())))))) ((((((() ()) (() ())))))) ((((((() () () () ())))))) (((((((())) ((()))))))) (((((((() () () ()))))))) ((((((((()) (())))))))) ((((((((() () ())))))))) (((((((((() ()))))))))) ((((((((((()))))))))))))共享_共:如果测试$-无0然后${echo}“恢复057546.sxp失败”fi（菲涅耳）fi（菲涅耳）#====~=====a069771.sxp==============if test-f'a069771.sxp'&&测试“$first_param”！=-c；然后${echo}“x-跳过a069771.sxp（文件已存在）”其他的${echo}“x-提取a069771.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a069771.sxp'&&X（“旋转握手180”5）X（（））X（（（）））X（（（）（））（（））X（（（）（）（（）X（（（）（）（（）））X（（（）（）（（））（））（（）（）（（（））（））))) ((() ((()))))) ((() (((()))))) (((()) () () ()) ((() () (())))) (((()) () (())) (((()) (())))) (((()) ((())))) (((() ()) () ())) (((() ()) (())) (((())) () ())) (((() (())) ()) ((((()) ())))) (((() (()) ())) (((() () ())))) (((() (() ())))) ((((())) (()))) ((((() ())) ()) ((((())) ()))) ((((() ()) ()))) (((((()))) ())) ((((((())))))))共享_共:如果测试$-无0然后${echo}“a069771.sxp的恢复失败”fi（菲涅耳）fi（菲涅耳）#====~=====a069771_最多7.sxp==============if test-f'a069771_upto7.sxp'&&test“$first_param”！=-c；然后$｛echo｝“x-跳过a069771_upto7.sxp（文件已存在）”其他的${echo}“x-提取069771_upto7.sxp（文本）”sed的/^X//'<<'SHAR_EOF'>'a069771_upto7.sxp'&&X（“旋转握手180”7）X（（））X（（（）））X（（（）（））（（））X（（（）（）（（）X（（（）（）（（）））X（（（）（）（（））（））（（）（）（（（））（））))) ((() ((()))))) ((() (((()))))) (((()) () () ()) ((() () (())))) (((()) () (())) (((()) (())))) (((()) ((())))) (((() ()) () ())) (((() ()) (())) (((())) () ())) (((() (())) ()) ((((()) ())))) (((() (()) ())) (((() () ())))) (((() (() ())))) ((((())) (()))) ((((() ())) ()) ((((())) ()))) ((((() ()) ()))) (((((()))) ())) ((((((())))))))X（（（（）（）（（））（））（）（） (()))) (((()) (() ())))) ((() () ((())) ()) (() ((() () ())))) ((() () ((()) ())) (() (() (() ())))) ((() () ((() ())))) ((() () (((())))) ((()) ((() ())))) ((() (()) () (()))) ((() (()) (()) ()) ((()) () () (()))) ((() (()) (() ())) ((() ()) () (()))) ((() (()) ((()))) (((())) () (()))) ((() (() ()) () ()) (((() () ()) ()))) ((() (() ()) (())) ((((()) ()) ()))) ((() (() () ()) ()) ((() (() ()) ()))) ((() (() () () ())) ((() () (()) ()))) ((() (() () (()))) (((()) (()) ()))) ((() (() (())) ()) (() ((() ()) ()))) ((() (() (()) ()))) ((() (() ((())))) ((()) ((()) ()))) ((() ((())) () ()) (((() () ())) ())) ((() ((())) (())) ((((()) ())) ())) ((() ((()) ()) ()) ((() (() ())) ())) ((() ((()) () ())) ((() () (())) ())) ((() ((()) (()))) (((()) (())) ())) ((() ((() ())) ())) ((() ((() (())))) ((()) ((())) ())) ((() (((()))) ()) (((((() ())))))) ((() (((())) ())) ((((() (())))))) ((() (((()) ()))) (((() ((())))))) ((() (((() ())))) ((() (((())))))) ((() ((((())))))) (((()) () (()) ())) (((()) () (() ())) ((() ()) (()) ())) (((()) () ((()))) (((())) (()) ())) (((()) (()) () ()) (((() () (()))))) (((()) (()) (())) ((((()) (()))))) (((()) (() ()) ()) ((() (() (()))))) (((()) (() () ())) ((() () ((()))))) (((()) (() (()))) (((()) ((()))))) (((()) (((()))))) (((() ()) (() ()))) (((() ()) ((()))) (((())) (() ()))) (((() () ()) () ()) (((() ()) () ()))) (((() () ()) (())) ((((())) () ()))) (((() () () ()) ()) ((() (()) () ()))) (((() () () () ()))) (((() () () (()))) (((()) () () ()))) (((() (())) () ()) (((() ()) ()) ())) (((() (())) (())) ((((())) ()) ())) (((() (()) ()) ())) (((() (()) (()))) (((()) () ()) ())) (((() ((()))) ()) (((((()) ()))))) (((() ((())) ())) ((((() () ()))))) (((() ((()) ()))) (((() (() ()))))) (((() ((() ()))))) ((((())) ((())))) ((((()) ()) () ()) (((() ()) (())))) ((((()) ()) (())) ((((())) (())))) ((((()) () (())))) ((((() ())) () ())) ((((() ())) (())) ((((()))) () ())) ((((() (()))) ()) (((((())) ())))) ((((() (())) ())) ((((() ()) ())))) ((((() (()) ())))) (((((()))) (()))) (((((() ()))) ()) (((((()))) ()))) (((((() ())) ()))) ((((((())))) ())) (((((((()))))))))X（（（）（）（（））（）（）、（）、 () () ()))) ((() () () (() () ()))) ((() () () (() (()))) (() (()) (() () ()))) ((() () () ((())) ()) ((()) (() () () ()))) ((() () () ((()) ())) ((()) () (() () ()))) ((() () () ((() ()))) ((() ()) (() () ()))) ((() () () (((())))) (((())) (() () ()))) ((() () (()) () () ()) ((() () () () ()) ())) ((() () (()) () (())) ((() (()) () ()) ())) ((() () (()) (()) ()) (((()) () () ()) ())) ((() () (()) (() ())) (((() ()) () ()) ())) ((() () (()) ((()))) ((((())) () ()) ())) ((() () (() ()) () ()) (() (() () () ()) ())) ((() () (() ()) (())) (() ((()) () ()) ())) ((() () (() () ()) ())) ((() () (() () (()))) (() (()) (() ()) ())) ((() () (() (())) ()) ((()) (() () ()) ())) ((() () (() (()) ())) ((()) () (() ()) ())) ((() () (() (() ()))) ((() ()) (() ()) ())) ((() () (() ((())))) (((())) (() ()) ())) ((() () ((())) () ()) ((((() () () ()))))) ((() () ((())) (())) (((((()) () ()))))) ((() () ((()) ()) ()) (((() (() () ()))))) ((() () ((()) () ())) (((() () (() ()))))) ((() () ((()) (()))) ((((()) (() ()))))) ((() () ((() ())) ()) ((() ((() () ()))))) ((() () ((() ()) ())) ((() (() (() ()))))) ((() () ((() () ()))) ((() () ((() ()))))) ((() () ((() (())))) (((()) ((() ()))))) ((() () (((()))) ()) (() (((() () ()))))) ((() () (((())) ())) (() ((() (() ()))))) ((() () (((()) ()))) (() (() ((() ()))))) ((() () (((() ()))))) ((() () ((((()))))) ((()) (((() ()))))) ((() (()) () () () ()) ((() () () () (())))) ((() (()) () () (())) ((() (()) () (())))) ((() (()) () (()) ()) (((()) () () (())))) ((() (()) () (() ())) (((() ()) () (())))) ((() (()) () ((()))) ((((())) () (())))) ((() (()) (()) () ()) (() (() () () (())))) ((() (()) (()) (())) (() ((()) () (())))) ((() (()) (() (())))) ((() (()) ((())) ()) ((()) (() () (())))) ((() (()) ((()) ())) ((()) () (() (())))) ((() (()) ((() ()))) ((() ()) (() (())))) ((() (()) (((())))) (((())) (() (())))) ((() (() ()) () () ()) ((() () () ()) () ())) ((() (() ()) () (())) ((() (()) ()) () ())) ((() (() ()) (()) ()) (((()) () ()) () ())) ((() (() ()) (() ())) (((() ()) ()) () ())) ((() (() ()) ((()))) ((((())) ()) () ())) ((() (() () ()) () ())) ((() (() () ()) (())) (() ((()) ()) () ())) ((() (() () (())) ()) ((()) (() ()) () ())) ((() (() () (()) ())) ((()) () (()) () ())) ((() (() () (() ()))) ((() ()) (()) () ())) ((() (() () ((())))) (((())) (()) () ())) ((() (() (())) () ()) ((((() () ()) ())))) ((() (() (())) (())) (((((()) ()) ())))) ((() (() (()) ()) ()) (((() (() ()) ())))) ((() (() (()) () ())) (((() () (()) ())))) ((() (() (()) (()))) ((((()) (()) ())))) ((() (() (() ())) ()) ((() ((() ()) ())))) ((() (() (() ()) ())) ((() (() (()) ())))) ((() (() (() () ()))) ((() () ((()) ())))) ((() (() (() (())))) (((()) ((()) ())))) ((() (() ((()))) ()) (() (((() ()) ())))) ((() (() ((())) ())) (() ((() (()) ())))) ((() (() ((()) ())))) ((() (() (((()))))) ((()) (((()) ())))) ((() ((())) () () ()) ((() () () ()) (()))) ((() ((())) () (())) ((() (()) ()) (()))) ((() ((())) (()) ()) (((()) () ()) (()))) ((() ((())) (() ())) (((() ()) ()) (()))) ((() ((())) ((()))) ((((())) ()) (()))) ((() ((()) ()) (()))) ((() ((()) (())) ()) ((()) (() ()) (())))（）（）（））（））（））（））（））（））（））（））（））（））（））（））（））（））（））（））（））（））（））（））（））（））（（））（（））））（（）））（（）））（））（）））（））（）））（））（））））（）） () ())) ()) ((() ((() ())) ()))) ((() ((() () ()) ())) ((() (() (())) ()))) ((() ((() () () ()))) ((() () ((())) ()))) ((() ((() () (())))) (((()) ((())) ()))) ((() ((() (()))) ()) (() (((() ())) ()))) ((() ((() (())) ()))) ((() ((() ((()))))) ((()) (((())) ()))) ((() (((()))) () ()) ((((() () ()))) ())) ((() (((()))) (())) (((((()) ()))) ())) ((() (((())) ()) ()) (((() (() ()))) ())) ((() (((())) () ())) (((() () (()))) ())) ((() (((())) (()))) ((((()) (()))) ())) ((() (((()) ())) ()) ((() ((() ()))) ())) ((() (((()) ()) ())) ((() (() (()))) ())) ((() (((()) () ()))) ((() () ((()))) ())) ((() (((()) (())))) (((()) ((()))) ())) ((() (((() ()))) ())) ((() (((() (()))))) ((()) (((()))) ())) ((() ((((())))) ()) ((((((() ()))))))) ((() ((((()))) ())) (((((() (()))))))) ((() ((((())) ()))) ((((() ((()))))))) ((() ((((()) ())))) (((() (((()))))))) ((() ((((() ()))))) ((() ((((()))))))) ((() (((((()))))))) (((()) () () () () ()) ((() () () (()) ()))) (((()) () () () (())) ((() (()) (()) ()))) (((()) () () (()) ()) (((()) () (()) ()))) (((()) () () (() ())) (((() ()) (()) ()))) (((()) () () ((()))) ((((())) (()) ()))) (((()) () ((())) ()) ((()) (() (()) ()))) (((()) () ((()) ()))) (((()) () ((() ()))) ((() ()) ((()) ()))) (((()) () (((())))) (((())) ((()) ()))) (((()) (()) () () ()) ((() () () (())) ())) (((()) (()) () (())) ((() (()) (())) ())) (((()) (()) (()) ()) (((()) () (())) ())) (((()) (()) (() ())) (((() ()) (())) ())) (((()) (()) ((()))) ((((())) (())) ())) (((()) (() (())) ())) (((()) (() (() ()))) ((() ()) ((())) ())) (((()) (() ((())))) (((())) ((())) ())) (((()) ((())) () ()) ((((() () (())))))) (((()) ((())) (())) (((((()) (())))))) (((()) ((()) ()) ()) (((() (() (())))))) (((()) ((()) () ())) (((() () ((())))))) (((()) ((()) (()))) ((((()) ((())))))) (((()) ((() ())) ()) ((() ((() (())))))) (((()) ((() ()) ())) ((() (() ((())))))) (((()) ((() () ()))) ((() () (((())))))) (((()) ((() (())))) (((()) (((())))))) (((()) ((((())))))) (((() ()) () () () ()) ((() () () (() ())))) (((() ()) () () (())) ((() (()) (() ())))) (((() ()) () (()) ()) (((()) () (() ())))) (((() ()) () (() ())) (((() ()) (() ())))) (((() ()) () ((()))) ((((())) (() ())))) (((() ()) ((() ())))) (((() ()) (((())))) (((())) ((() ())))) (((() () ()) () () ())) (((() () ()) () (())) ((() (())) () () ())) (((() () ()) (()) ()) (((()) ()) () () ())) (((() () ()) (() ())) (((() ())) () () ())) (((() () ()) ((()))) ((((()))) () () ())) (((() () () ((())))) (((())) () () () ())) (((() () (())) () ()) ((((() ()) () ())))) (((() () (())) (())) (((((())) () ())))) (((() () (()) ()) ()) (((() (()) () ())))) (((() () (()) () ())) (((() () () () ())))) (((() () (()) (()))) ((((()) () () ())))) (((() () (() ())) ()) ((() ((()) () ())))) (((() () (() ()) ())) ((()（）（）（））（（）（））（（））））（（）））（）（））））（（）（））（））））（（））（）））（（）））（）（）（））（）（）（））（））（））（））（））（））（））))) (((() (() ()) ()) ()) (((() (()) ()) ()))) (((() (() ()) () ())) (((() () () ()) ()))) (((() (() ()) (()))) ((((()) () ()) ()))) (((() (() () ())) ()) ((() ((()) ()) ()))) (((() (() () ()) ()))) (((() (() () (())))) (((()) (() ()) ()))) (((() ((()))) () ()) ((((() ()) ())) ())) (((() ((()))) (())) (((((())) ())) ())) (((() ((())) ()) ()) (((() (()) ())) ())) (((() ((())) () ())) (((() () () ())) ())) (((() ((())) (()))) ((((()) () ())) ())) (((() ((()) ())) ())) (((() ((()) (())))) (((()) (() ())) ())) (((() (((())))) ()) ((((((()) ())))))) (((() (((()))) ())) (((((() () ())))))) (((() (((())) ()))) ((((() (() ())))))) (((() (((()) ())))) (((() ((() ())))))) (((() (((() ())))))) ((((())) () (()) ()) (((()) () ((()))))) ((((())) () (() ())) (((() ()) ((()))))) ((((())) () ((()))) ((((())) ((()))))) ((((())) (((()))))) ((((()) ()) (()) ())) ((((()) ()) (() ())) (((() ())) (()) ())) ((((()) ()) ((()))) ((((()))) (()) ())) ((((()) (())) () ()) ((((() ()) (()))))) ((((()) (())) (())) (((((())) (()))))) ((((()) (()) ()) ()) (((() (()) (()))))) ((((()) (()) () ())) (((() () () (()))))) ((((()) (()) (()))) ((((()) () (()))))) ((((()) (() (()))))) ((((() ())) (() ()))) ((((() ())) ((()))) ((((()))) (() ()))) ((((() () ())) () ()) (((X（X）（））（））))))) ((((() ((()))) ())) (((((() ()) ()))))) ((((() ((())) ()))) ((((() (()) ()))))) ((((() ((()) ()))))) (((((()))) ((())))) (((((()) ())) () ()) ((((() ())) (())))) (((((()) ())) (())) (((((()))) (())))) (((((()) ()) (())))) (((((() ()))) () ())) (((((() ()))) (())) (((((())))) () ())) (((((() (())))) ()) ((((((()))) ())))) (((((() (()))) ())) (((((() ())) ())))) (((((() (())) ())))) ((((((())))) (()))) ((((((() ())))) ()) ((((((())))) ()))) ((((((() ()))) ()))) (((((((()))))) ())) ((((((((())))))))))共享_共:如果测试$-无0然后${echo}“恢复a069771_upto7.sxp失败”fi（菲涅耳）fi（菲涅耳）#====~=====a069772.sxp==============if test-f'a069772.sxp'&&测试“$first_param”！=-c；然后${echo}“x-跳过a069772.sxp（文件已存在）”其他的${echo}“x-提取a069772.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a069772.sxp'&&X（“X反射握手”5）X（（））X（（（）））X（（（）（））（（））X（（（）（）（（）X（（（）（）（（））（）））X（（（）（）（（））（）（）（）（（）（第）（））（）))) ((() (((())))) ((((()))) ())) (((()) () () ()) (((()) () ()))) (((()) () (())) (((()) (())))) (((()) (()) ()) (((()) ()) ())) (((()) (() ())) (((())) () ())) (((()) ((()))) (((())) (()))) (((() (())) ()) (((() (()))))) (((() (()) ())) (((() () ())))) (((() (() ()))) (((() ()) ()))) (((() ((())))) (((() ())) ())) ((((((())))))))共享_共:如果测试$-无0然后${echo}“a069772.sxp的恢复失败”fi（菲涅耳）fi（菲涅耳）#====~=====a071661.sxp==============if test-f'a071661.sxp'&&测试“$first_param”！=-c；然后$｛echo｝“x-跳过a071661.sxp（文件已存在）”其他的${echo}“x-提取a071661.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a071661.sxp'&&X（“A079438=A071661/A071662的固定点”18）X（（））X（（（）））X（（（）（））（（）））X（（（（）（））（）（（）））X（（（（）（）（（））（））X（（（）（）（）（）））X（（（）（）（（）X（（（（）（）（（）X（（（（）（）（（）X（（（）（）（（）X（（）X（（（）（）（（））（）（（））（（）X（（（）（）（（））（））（（）（）（（（））（））X（（（（）（）（（））（）（））（）（）X（（（）（）（（））（））（）（（）（））（）) (((()) ((() (())) ((()) ())) (())))) ((() ((((((((((() ())))))))))) ()) (((()) () () () () () () () () () (())))))X（（（）（）（（））（）（）（）（（））（） (()) ())) (() ())) ()) (((()) ((() (())) () ((()) ())) (())))) ((() (((((((((((() ()))))))))))) ()) (((()) () () () () () () () () () () (())))))X（（（）（）（（））（））（）（）)))))) ((() ((() ()) (((() (()) ()))) (() ())) ()) (((()) ((() (())) () () ((()) ())) (())))) ((() ((((((((((((() ())))))))))))) ()) (((()) () () () () () () () () () () () (())))))X（（（（）（）（（））（））（（（）（）（（） () () (((())))))))) ((() () ((((((((((() () ())))))))))) () ()) (((((())) () () () () () () () () () ((())))))) ((() ((() ()) ((((() (()) ())))) (() ())) ()) (((()) ((() (())) () () () ((()) ())) (())))) ((() (((((((((((((() ()))))))))))))) ()) (((()) () () () () () () () () () () () () (())))))X（（（）（）（（））（）（（）（）（（））（））) (((((((()))) () () () () () () () (((())))))))) ((() () (((((((((((() () ()))))))))))) () ()) (((((())) () () () () () () () () () () ((())))))) ((() ((() ()) (((((() (()) ()))))) (() ())) ()) (((()) ((() (())) () () () () ((()) ())) (())))) ((() ((((() ())) (() ((())) ()) ((() ())))) ()) (((()) () ((() () (())) ((()) () ())) () (())))) ((() ((((((((((((((() ())))))))))))))) ()) (((()) () () () () () () () () () () () () () (())))))共享_共:如果测试$-无0然后${echo}“恢复a071661.sxp失败”fi（菲涅耳）fi（菲涅耳）#====~=====079442.sxp==============if test-f'a079442.sxp'&&测试“$first_param”！=-c；然后${echo}“x-跳过a079442.sxp（文件已存在）”其他的${echo}“x-提取079442.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a079442.sxp'&&X（“A079442=A071663/A071664的固定点”4）X（（（）（））（（）（）））X（（（）（）（（））（））X（（（（）（）（（））（））（））（（（）（）（（））)))) ((((()) () ())) ())) ((() ((() () (())))) ((((() ())) () ())) ((()) () ((())) ())))X（（（）（）（（）（）（）（（）（…）（））（）) ()) ()))) (((())) (()) (()) () ())) ((() () ((())) () ((()))) (((() () ((() () ()))))) (((((())) () ())) () ())) ((() () ((() () ((()))))) (((((() () ())) () ()))) (((())) () ((())) () ())) ((() (()) () ((())) (())) ((() ((() () (() ()))))) (((((()) ())) () ()) ())) ((() (()) (()) (()) (())) ((() (() (() (() ()))))) (((((()) ()) ()) ()) ())) ((() (() () ((() (()))))) (((((() ()) () ())) ())) ((()) ((())) () (()) ())) ((() (() (() (() (()))))) (((((() ()) ()) ()) ())) ((()) (()) (()) (()) ())) ((() ((())) (()) () (())) ((() () (() ((() ()))))) (((((()) () ()) ())) ())) ((() ((() (() () (()))))) (((((() ())) ()) () ())) ((()) () (()) ((())) ())) ((() (((()))) () () (())) ((() () () (((() ()))))) (((((()) () () ()))) ())) ((() (((() () () (()))))) (((((() ()))) () () ())) ((()) () () (((()))) ())))X（（（）（）（（））（（（）（）（（）)))（））） ())))))) ((((((())) ())) () ()) () ())) ((() () (()) (()) (()) ((()))) (((() (() (() (() () ())))))) ((((((())) ()) ()) ()) () ())) ((() () (() () ((() ((())))))) ((((((() () ()) () ())) ()))) (((())) ((())) () (()) () ())) ((() () (() (() (() ((())))))) ((((((() () ()) ()) ()) ()))) (((())) (()) (()) (()) () ())) ((() () ((())) (()) () ((()))) (((() () (() ((() () ())))))) ((((((())) () ()) ())) () ())) ((() () ((() (() () ((())))))) ((((((() () ())) ()) () ()))) (((())) () (()) ((())) () ())) ((() () (((()))) () () ((()))) (((() () () (((() () ())))))) ((((((())) () () ()))) () ())) ((() () (((() () () ((())))))) ((((((() () ()))) () () ()))) (((())) () () (((()))) () ())) ((() (()) () () (((()))) (())) ((() (((() () () (() ())))))) ((((((()) ()))) () () ()) ())) ((() (()) () (()) ((())) (())) ((() ((() (() () (() ())))))) ((((((()) ())) ()) () ()) ())) ((() (()) (()) (()) (()) (())) ((() (() (() (() (() ())))))) ((((((()) ()) ()) ()) ()) ())) ((() (()) (() (()) (())) (())) ((() ((() (() ())) (() ())))) ((((()) ()) ((()) ()) ()) ())) ((() (()) ((())) () (()) (())) ((() (() () ((() (() ())))))) ((((((()) ()) () ())) ()) ())) ((() (() () () (((() (())))))) ((((((() ()) () () ()))) ())) ((()) (((()))) () () (()) ())) ((() (() () (() ((() (())))))) ((((((() ()) () ()) ())) ())) ((()) ((())) (()) () (()) ())) ((() (() (() (())) (() (())))) ((((() ()) ((() ()) ())) ()))（（））（） (() (() ((() ())))))) ((((((()) () ()) ()) ())) ())) ((() ((() () ((() () (())))))) ((((((() ())) () ())) () ())) ((()) () ((())) () ((())) ())) ((() ((() (() (() () (())))))) ((((((() ())) ()) ()) () ())) ((()) () (()) (()) ((())) ())) ((() (((()))) (()) () () (())) ((() () () (() (((() ())))))) ((((((()) () () ()) ()))) ())) ((() (((() (() () () (())))))) ((((((() ()))) ()) () () ())) ((()) () () (()) (((()))) ())) ((() ((((())))) () () () (())) ((() () () () ((((() ())))))) ((((((()) () () () ())))) ())) ((() ((((() () () () (())))))) ((((((() ())))) () () () ())) ((()) () () () ((((())))) ())))共享_共:如果测试$-无0然后${echo}“恢复a079442.sxp失败”fi（菲涅耳）fi（菲涅耳）#===================if test-f'a080070.sxp'&&测试“$first_param”！=-c；然后${echo}“x-跳过a080070.sxp（文件已存在）”其他的${echo}“x-提取a080070.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a080070.sxp'&&X（“A080070至33”）X（（））X（（（）））X（（（）（）））X（（（）（（）））X（（（）（（））（）））X（（（）（（））（）（）））X（（（（）（（））（）（）））X（（（）（（））（）（））X（（（）（（））（）（）X（（（）（（））（）（）X（（（）（（））（）（）X（（（（）（（））（）（））X（（（）（））（（）（（）（）（）））（））（））））X（（（（）（（））（）（）X（（（）（（）X（（（）（（）X（（（）（（）X（（（）（（）X（（（）（（）X（（（）（）（（）X（（（（）（（））（）（）X（（）X（（（）（（）X（（（（）（（））（）（）X（（（）（（）X（（（）（（））（）（）X（（）X（（（）（（））（）（）X（（（（）（（））（）（）X（（（）（（）X（（（）（（）X（（（）（（）X（（（（）（（））（）（）X（（（）（（）共享_共:如果测试$-无0然后${echo}“恢复a080070.sxp失败”fi（菲涅耳）fi（菲涅耳）#===================if test-f'a080120.sxp'&&测试“$first_param”！=-c；然后${echo}“x-跳过a080120.sxp（文件已存在）”其他的${echo}“x-提取a080120.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a080120.sxp'&&X（“http://www.research.att.com/~~njas/sequences/a080120.pdf“）X（（））X（（）（））X（（（（）（）））X（（）（（））（））X（（）（）（（））（））X（）（）（（））（）X（（（）X（（）（（））（）（）X（）（（（（））（）（）共享_共:如果测试$-无0然后${echo}“a080120.sxp的恢复失败”fi（菲涅耳）fi（菲涅耳）#====~=====080974.sxp==============if test-f'a080974.sxp'&&测试“$first_param”！=-c；然后${echo}“x-跳过a080974.sxp（文件已存在）”其他的${echo}“x-提取a080974.sxp（文本）”sed的/^X//“<<'SHAR_EOF'>'a080974.sxp'&&X（“http://oeis.org/A080973/A080973.pdf")X（（（）））X（）（））X（）（）（（））（）X（）（）X（）（）（（）（X（）（）（（）X（）（）（（）X年X月X日X日X月X月X号X日X号X号X（X号X）X（X）X号X年X号X月X（X年X）XX公司（）（）（（）（…）（））（）（）（）（（）（…）（））（））（）（（）（））（）X）（）（））X（）（）（（））（）（（）（））（）十、（）（）（（）（…）（……）（））（）））（）（（）（）X（）（）（（）（）（）（（）（第（）（…）（））（）十、（）（）（（）（…）（））（）（）（）（（）（…）（））（）X公司（）（）（（）（…）（））（）（））（（））) ()) ((((() ()) (() ())) ()) (() ((() ()) (() ()))))))))))))))))共享_共:如果测试$-无0然后${echo}“恢复a080974.sxp失败”fi（菲涅耳）fi（菲涅耳）如果rm-fr${lockdir}然后${echo}“x-删除锁目录${lockdir}。”else${echo}“x-未能删除锁定目录${lockdir}。”出口1fi（菲涅耳）退出0