mirror of
				https://gitee.com/XmacsLabs/planet.git
				synced 2025-11-04 07:43:53 +00:00 
			
		
		
		
	TeXmacs图形编程
This commit is contained in:
		
							parent
							
								
									eeccb53303
								
							
						
					
					
						commit
						ab683c9332
					
				
					 2 changed files with 803 additions and 1 deletions
				
			
		
							
								
								
									
										800
									
								
								墨干编辑器/TeXmacs图形编程.tm
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										800
									
								
								墨干编辑器/TeXmacs图形编程.tm
									
										
									
									
									
										Normal file
									
								
							| 
						 | 
					@ -0,0 +1,800 @@
 | 
				
			||||||
 | 
					<TeXmacs|2.1.2>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					<style|<tuple|book|chinese|doc|old-spacing|old-dots|old-lengths>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					<\body>
 | 
				
			||||||
 | 
					  \;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <doc-data|<doc-title|<TeXmacs><3E>曉耦蝻𣇉<E89DBB>>|<doc-author|<author-data|<author-name|瘝<>答<EFBFBD>羓𤨓<E7BE93><F0A4A893>>|<author-email|shenda@ustc.edu>>>|<doc-date|<date>>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <section|蝞<>隞<EFBFBD>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>牐蛹<TeXmacs><3E><><EFBFBD>蝏滩<E89D8F><E6BBA9>嗘<EFBFBD>憭𡄯<E686AD><F0A184AF><EFBFBD>隞交<E99A9E>蝞𡑒器摮西器<E8A5BF>辷<EFBFBD><E8BEB7>嗘<EFBFBD>蝟餃<E89D9F><E9A483><EFBFBD><name|Scheme>雿𨅯㦛<F0A885AF><E3A69B><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>𡟺<EFBFBD><F0A19FBA><EFBFBD><EFBFBD>刻䌊撌梁<E6928C><E6A281>𡁜恥銝𠰴<E98A9D>餈<EFBFBD>舅蝭<E88885><E89DAD>雿輻鍂Scheme<6D><65><TeXmacs>銝剔<E98A9D><E58994>𣂼㦛<F0A382BC><E3A69B><\footnote>
 | 
				
			||||||
 | 
					    <href|http://sadhen.com/blog/2014/11/04/texmacs-graphics.html>
 | 
				
			||||||
 | 
					  </footnote><3E>䔶蝙<E494B6>沒cheme<6D><65><TeXmacs>銝剔𤫇<E58994><F0A4AB87>瓲隞<E793B2><E99A9E>蝏𤘪<E89D8F>雿枏<E99BBF>蝟餃㦛<\footnote>
 | 
				
			||||||
 | 
					    <href|http://sadhen.com/blog/2014/11/09/texmacs-graphics-struct.html>
 | 
				
			||||||
 | 
					  </footnote>嚗<>笆<EFBFBD>嗅㦛敶Y頂蝏毺<E89D8F><E6AFBA><EFBFBD>﹝<EFBFBD>烐<EFBFBD>銝<EFBFBD>銝芸之璁<E4B98B><E79281>鈭<EFBFBD>圾<EFBFBD><E59CBE><EFBFBD>甈⊥<E79488>蝞㛖頂蝏<E9A082><E89D8F>批𧑐隞讠<E99A9E>雿𨅯㦛<F0A885AF>寞<EFBFBD>撟嗆<E6929F>撱箇鍂<name|Scheme>蝻𣇉<E89DBB>雿𨅯㦛<F0A885AF><E3A69B><EFBFBD>蝵格<E89DB5>隞嗚<E99A9E><E5979A>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>祆<EFBFBD>撖寡粉<E5AFA1><E7B289><EFBFBD><EFBFBD>箸𧋦閬<F0A78BA6><E996AC>撠望糓<E69C9B><E7B393><EFBFBD><TeXmacs><3E><>抅<EFBFBD>砌蝙<E7A08C>典<EFBFBD><name|Scheme>霂剛<E99C82><E5899B><EFBFBD>抅蝖<E68A85><E89D96><EFBFBD><TeXmacs><3E>詨<EFBFBD><E8A9A8><EFBFBD><EFBFBD>雿𨅯<E99BBF><F0A885AF><EFBFBD><EFBFBD><EFBFBD>毺<EFBFBD>嚗峕<E59A97>撠賡<E692A0>隡帋蝙<E5B88B>刻䌊撌梁<E6928C>霂剛<E99C82><E5899B>鞱膩皜<E886A9><E79A9C>嚗峕<E59A97><E5B395><EFBFBD><EFBFBD><EFBFBD><EFBFBD><TeXmacs>摰䀹䲮<E480B9><E4B2AE>﹝<EFBFBD><EFB99D><EFBFBD>雿㮖<E99BBF>蝵柴<E89DB5><E69FB4>𡖂憭吔<E686AD><E59094>祆<EFBFBD><E7A586>笔<EFBFBD><E7AC94><EFBFBD>﹝<EFBFBD>条恣<E69DA1>沁ithub<\footnote>
 | 
				
			||||||
 | 
					    <href|https://github.com/sadhen/articles-and-notes-by-TeXmacs>
 | 
				
			||||||
 | 
					  </footnote>銝𠺪<E98A9D><F0A0BAAA><EFBFBD>雿輻鍂<E8BCBB><E98D82><TeXmacs><3E><>𧋦銝<F0A78BA6><TeXmacs-version><3E><>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <with|ornament-color|#efefef|<\ornamented>
 | 
				
			||||||
 | 
					    <\remark>
 | 
				
			||||||
 | 
					      <20>曹<EFBFBD><E69BB9><EFBFBD>葉雿輻鍂鈭<E98D82>之<EFBFBD>譍漱鈭鍦<E988AD><name|Scheme>餈𤤿<E9A488>嚗<EFBFBD>銁<EFBFBD>笔<EFBFBD><E7AC94><EFBFBD>﹝銝剜<E98A9D><E5899C>賢<EFBFBD>撖孵<E69296>瘙<EFBFBD><E79899>澆僎雿𨅯㦛嚗峕<E59A97>隞亥窈雿輻鍂<TeXmacs><3E><>粉<EFBFBD>笔<EFBFBD><E7AC94><EFBFBD>﹝<EFBFBD><EFB99D>
 | 
				
			||||||
 | 
					    </remark>
 | 
				
			||||||
 | 
					  </ornamented>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>祆<EFBFBD><E7A586><EFBFBD>漱鈭鍦<E988AD>隞<EFBFBD><E99A9E><EFBFBD><EFBFBD><EFBFBD>銵<EFBFBD><E98AB5>摰朞粉<E69C9E><E7B289>糓銝<E7B393>甈⊥<E79488>找<EFBFBD>銝𠰴<E98A9D>銝贝粉摰<E7B289><E691B0><EFBFBD><EFBFBD><EFBFBD>敶梶<E695B6>餈蹱糓銝滨緵摰䂿<E691B0>嚗峕<E59A97>隞仿<E99A9E>敶閧<E695B6>撠讛斐憯怠遣霈桐<E99C88><E6A190><EFBFBD><EFBFBD>霂鳴<E99C82>隞交䲮靘蹂<E99D98>蝚砌<E89D9A>甈⊿<E79488>霂餅𧋦<E9A485><F0A78BA6>葉<EFBFBD>怨<EFBFBD><E680A8>嗅翰<E59785>蠘<EFBFBD><E8A098>亦𠶖<E4BAA6><F0A0B696><EFBFBD><EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <section|<7C>箸𧋦<E7AEB8>毺<EFBFBD>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  擐硋<E69390>嚗<EFBFBD><E59A97>霈暹<E99C88>隞砍歇蝏譍<E89D8F>閫<EFBFBD><E996AB>嚗帋<E59A97>蝭<EFBFBD><TeXmacs><3E><>﹝摰鮋<E691B0>銝𠰴停<F0A0B0B4>臭<EFBFBD><E887AD>蹂葡<name|Scheme>隞<><E99A9E>嚗屸<E59A97>朞<EFBFBD>皜脫<E79A9C>撘閙<E69298><E99699><EFBFBD><EFBFBD>撌伐<E6928C>餈嗘<E9A488>隞<EFBFBD><E99A9E>敺𦯀誑撅閧緵<E996A7>冽<EFBFBD>隞祉<E99A9E>霈唳𧋦<E594B3><F0A78BA6><EFBFBD>撟蓥<E6929F><E893A5><EFBFBD><EFBFBD>鈭𥕢誨<F0A595A2><E8AAA8><EFBFBD>隞祉妍銋衤蛹<TeXmacs>
 | 
				
			||||||
 | 
					  <name|Scheme><3E><>蛹鈭<E89BB9>躹<EFBFBD><E8BAB9><EFBFBD><EFBFBD>睲賑撠<E8B391>銁<name|Guile>銝剛<E98A9D>銵𣬚<E98AB5>隞<EFBFBD><E99A9E>蝘唬蛹<name|Guile>
 | 
				
			||||||
 | 
					  <name|Scheme><3E><>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>朞<EFBFBD><menu|insert|session|Scheme>嚗峕<E59A97>隞砍<E99A9E><E7A08D>唬<EFBFBD>銝<EFBFBD><name|Scheme>
 | 
				
			||||||
 | 
					  <name|REPL><3E><><EFBFBD>隞砍<E99A9E>銋厩洵銝<E6B4B5>銝芸遆<E88AB8><E98186>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <\session|scheme|default>
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (plot l) (stree-\<gtr\>tree l))
 | 
				
			||||||
 | 
					      ;<3B>劐<EFBFBD><E58A90>噼膠嚗<E886A0><E59A97>銋㕑<E98A8B>銝芸遆<E88AB8><E98186>
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					  </session>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  銝<>銝<EFBFBD><name|Scheme>隞<><E99A9E>撖孵<E69296><E5ADB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>糓銝<E7B393>璉菜<E79289>嚗諹<E59A97><E8ABB9>𣬚<EFBFBD><scm|stree-\<gtr\>tree>撠望糓撠<E7B393><name|Guile>
 | 
				
			||||||
 | 
					  <scheme><3E>𤏸蓮<F0A48FB8>䀹<EFBFBD><TeXmacs> <scheme><3E>𡢅<EFBFBD>隞乩噶<E4B9A9>冽<EFBFBD>獢<EFBFBD>葉<EFBFBD>曄內<E69B84><E585A7><EFBFBD>憒<EFBFBD><E68692><EFBFBD>睲賑<E79DB2>仿<EFBFBD><frac|1|2><3E><><EFBFBD><EFBFBD>刻”蝷箏<E89DB7><E7AE8F><EFBFBD><EFBFBD>撠望糓<scm|(frac
 | 
				
			||||||
 | 
					  1 2)><3E><><EFBFBD><EFBFBD>荔<EFBFBD><E88D94><EFBFBD><name|REPL>銝哨<E98A9D><E593A8>睲賑撠勗虾隞仿<E99A9E>朞<EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <\session|scheme|default>
 | 
				
			||||||
 | 
					    <\folded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot `(frac 1 2)) ;<3B>㗇<EFBFBD><E39787>曉銁餈躰<E9A488>銝𠺪<E98A9D><F0A0BAAA>劐<EFBFBD><E58A90>噼膠撠梯<E692A0>敺堒<E695BA>1/2
 | 
				
			||||||
 | 
					    <|folded-io>
 | 
				
			||||||
 | 
					      \;
 | 
				
			||||||
 | 
					    </folded-io>
 | 
				
			||||||
 | 
					  </session>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsection|<7C>蠘祗>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  銝𢠃𢒰隞讠<E99A9E><E8AEA0><EFBFBD><EFBFBD>霂<EFBFBD><verbatim|frac>摰鮋<E691B0>銝羓鍂鈭擧㺭摮行芋撘𧶏<E69298>銝钅𢒰<E99285>睲賑隞讠<E99A9E><E8AEA0>曉耦璅∪<E79285>銝讠<E98A9D><E8AEA0>蠘祗<E8A098><E7A597><EFBFBD><EFBFBD>券<EFBFBD><E588B8>堒枂<E5A092>伐<EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <\big-table|<tabular|<tformat|<table|<row|<cell|>>>>><block*|<tformat|<cwith|1|-1|1|-1|cell-hyphen|c>|<table|<row|<\cell>
 | 
				
			||||||
 | 
					    <20>蠘祗
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    蝷箔<E89DB7>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <20>蠘<EFBFBD>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    <markup|point>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <verbatim|<code*|(point \P0\Q \P0\Q)>>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <20>鞉<EFBFBD>(0,0)憭<><E686AD>銝<EFBFBD>銝芰<E98A9D>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    <markup|line>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <verbatim|<\code*>
 | 
				
			||||||
 | 
					      (line (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      (point \P1\Q \P1\Q))
 | 
				
			||||||
 | 
					    </code*>>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    (0,0)<math|\<rightarrow\>>(0,1)<math|\<rightarrow\>>(1,1)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <20><><EFBFBD><EFBFBD>⊥<EFBFBD>蝥<EFBFBD>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    <markup|cline>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <\code*>
 | 
				
			||||||
 | 
					      (cline (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      (point \P1\Q \P1\Q))
 | 
				
			||||||
 | 
					    </code*>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <math|(0,0)\<rightarrow\>(0,1)\<rightarrow\>(1,1)\<rightarrow\>(0,0)>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <20><><EFBFBD><EFBFBD>⊿𡡒<E28ABF><F0A1A192><EFBFBD>蝥<EFBFBD>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    <markup|spline>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <\code*>
 | 
				
			||||||
 | 
					      (spline (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      (point \P1\Q \P1\Q))
 | 
				
			||||||
 | 
					    </code*>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <math|(0,0)\<rightarrow\>(0,1)\<rightarrow\>(1,1)>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <20><><EFBFBD><EFBFBD>⊥甅<E28AA5>⊥𤩅蝥<F0A4A985>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    <markup|cspline>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <\code*>
 | 
				
			||||||
 | 
					      (cspline (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      (point \P1\Q \P1\Q))
 | 
				
			||||||
 | 
					    </code*>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <math|(0,0)\<rightarrow\>(0,1)\<rightarrow\>(1,1)\<rightarrow\>(0,0)>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <20><><EFBFBD><EFBFBD>⊿𡡒<E28ABF><F0A1A192>甅<EFBFBD>⊥𤩅蝥<F0A4A985>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    <markup|arc>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <\code*>
 | 
				
			||||||
 | 
					      (arc (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      (point \P1\Q \P1\Q))
 | 
				
			||||||
 | 
					    </code*>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    餈<><E9A488>銝厩<E98A9D><E58EA9><EFBFBD><EFBFBD><EFBFBD>∪憫
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    <markup|carc>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <\code*>
 | 
				
			||||||
 | 
					      (carc (point \P0\Q \P0\Q) (point \P0\Q \P1\Q)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      (point \P1\Q \P1\Q))
 | 
				
			||||||
 | 
					    </code*>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    餈<><E9A488>銝厩<E98A9D><E58EA9><EFBFBD><EFBFBD>銝芸<E98A9D>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    <markup|text-at>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <\code*>
 | 
				
			||||||
 | 
					      (text-at (texmacs-markup)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      (point \P0\Q \P0\Q))
 | 
				
			||||||
 | 
					    </code*>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    餈嗘葵<E59798>蠘祗<E8A098><E7A597><EFBFBD>閬<EFBFBD><E996AC>憭<EFBFBD>銁鈭擧<E988AD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    靘𥕢<E99D98>銝<EFBFBD>蝘滚銁<E6BB9A>曄<EFBFBD>銝𦠜𦆮蝵<F0A686AE>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <20>曄<EFBFBD><E69B84><EFBFBD>䲮瘜𤏪<E7989C><F0A48FAA>曉銁<E69B89>嗡<EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <20><>㦛<EFBFBD><E3A69B><EFBFBD>憭<EFBFBD><E686AD>雿滨蔭<E6BBA8>舐<EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    (0,0)<29><>𢰧颲對<E9A2B2><E5B08D>嗥<EFBFBD><E597A5>湔䲮<E6B994><E4B2AE>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    銝羓<E98A9D>撖寧妍頧湔迤憟質<E6869F><E8B3AA><EFBFBD>(0,0)
 | 
				
			||||||
 | 
					  </cell>>>>>>
 | 
				
			||||||
 | 
					    \;
 | 
				
			||||||
 | 
					  </big-table>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>亦<EFBFBD>嚗峕<E59A97>隞砍銁餈嗘<E9A488><E59798>蠘祗<\footnote>
 | 
				
			||||||
 | 
					    餈嗘<E9A488><E59798>蠘祗<E8A098><E7A597>誨<EFBFBD><E8AAA8><EFBFBD><EFBFBD>啣虾隞亙銁<verbatim|src/Graphics/Types/>銝𧢲𪄳<F0A7A2B2><F0AA84B3>
 | 
				
			||||||
 | 
					  </footnote><3E><>抅蝖<E68A85>銝𦠜<E98A9D>撱箔<E692B1><E7AE94>暹<EFBFBD><E69AB9><EFBFBD><EFBFBD><EFBFBD>抅<EFBFBD>砍<EFBFBD>蝝𨬭<E89D9D><F0A8ACAD><EFBFBD><EFBFBD><EFBFBD>糓<EFBFBD>對<EFBFBD>蝥踵挾嚗𣬚畆敶W<E695B6><EFBCB7><EFBFBD><EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <\session|scheme|default>
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (point x y)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ ; number-\<gtr\>string<6E><67><EFBFBD><EFBFBD>冽糓撠<E7B393><E692A0><EFBFBD>䀹<EFBFBD><E480B9><EFBFBD>﹝銝剛”蝷箸㺭<E7AEB8>桃<EFBFBD>摮㛖泵銝<E6B3B5>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ `(point ,(number-\<gtr\>string x) ,(number-\<gtr\>string y)))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (point.x point)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (string-\<gtr\>number (list-ref point 1)))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (point.y point)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (string-\<gtr\>number (list-ref point 2)))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (line . points)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (cond ((nlist? points) `())
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ ((== points '()) `())
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ (else `(line ,@points))))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (rectangle leftdown rightup)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (let ((leftup (point (point.x leftdown) (point.y rightup)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ (rightdown (point (point.x rightup) (point.y
 | 
				
			||||||
 | 
					      leftdown))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ `(cline ,leftdown ,leftup ,rightup ,rightdown)))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (circle center radius)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (let ((p1 (point (- (point.x center) radius) (point.y center)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ (p2 (point (point.x center) (+ (point.y center)
 | 
				
			||||||
 | 
					      radius)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ (p3 (point (+ (point.x center) radius) (point.y
 | 
				
			||||||
 | 
					      center))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ `(carc ,p1 ,p2 ,p3)))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					  </session>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20><><verbatim|plot>蝏睃<E89D8F><E79D83>嫘<EFBFBD><E5AB98>畆敶W<E695B6><EFBCB7><EFBFBD><EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <\session|scheme|default>
 | 
				
			||||||
 | 
					    <\unfolded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot (point 0 0))
 | 
				
			||||||
 | 
					    <|unfolded-io>
 | 
				
			||||||
 | 
					      <text|<point|0|0>>
 | 
				
			||||||
 | 
					    </unfolded-io>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\unfolded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot (rectangle (point 0 0) (point 1 1)))
 | 
				
			||||||
 | 
					    <|unfolded-io>
 | 
				
			||||||
 | 
					      <text|<cline|<point|0|0>|<point|0|1>|<point|1|1>|<point|1|0>>>
 | 
				
			||||||
 | 
					    </unfolded-io>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\unfolded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot (circle (point 0 0) 1))
 | 
				
			||||||
 | 
					    <|unfolded-io>
 | 
				
			||||||
 | 
					      <text|<carc|<point|-1|0>|<point|0|1>|<point|1|0>>>
 | 
				
			||||||
 | 
					    </unfolded-io>
 | 
				
			||||||
 | 
					  </session>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsection|<7C>滨熊<E6BBA8>瑕<EFBFBD>撅墧<E69285><E5A2A7>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  雿輻鍂<markup|with><3E>蠘祗<E8A098>臭誑蝏<E8AA91><TeXmacs>撖寡情<E5AFA1><E68385><EFBFBD><EFBFBD><EFBFBD><EFBFBD>撅墧<E69285>扼<EFBFBD><E689BC><EFBFBD>憒<EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <\session|scheme|default>
 | 
				
			||||||
 | 
					    <\unfolded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot `(with color "red" fill-color "#eeeeee" ,(circle (point 0 0) 1)))
 | 
				
			||||||
 | 
					    <|unfolded-io>
 | 
				
			||||||
 | 
					      <text|<with|color|red|fill-color|#eeeeee|<carc|<point|-1|0>|<point|0|1>|<point|1|0>>>>
 | 
				
			||||||
 | 
					    </unfolded-io>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\unfolded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot `(with arrow-begin "\<less\>gtr\<gtr\>" dash-style "11100"
 | 
				
			||||||
 | 
					      嚗<>(line (point 0 1) (point 0 0) (point 1 1))))
 | 
				
			||||||
 | 
					    <|unfolded-io>
 | 
				
			||||||
 | 
					      <text|<with|arrow-begin|\<gtr\>|dash-style|11100|<line|<point|0|1>|<point|0|0>|<point|1|1>>>>
 | 
				
			||||||
 | 
					    </unfolded-io>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\unfolded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot `(with point-style "star" ,(point 0 0)))
 | 
				
			||||||
 | 
					    <|unfolded-io>
 | 
				
			||||||
 | 
					      <text|<with|point-style|star|<point|0|0>>>
 | 
				
			||||||
 | 
					    </unfolded-io>
 | 
				
			||||||
 | 
					  </session>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>寞旿皞鞟<E79A9E><\footnote>
 | 
				
			||||||
 | 
					    <verbatim|TeXmacs/progs/graphics/graphics-drd.scm>
 | 
				
			||||||
 | 
					  </footnote>銝剔<E98A9D>摰帋<E691B0>嚗<EFBFBD>虾隞交<E99A9E>餌<EFBFBD><E9A48C>綽<EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <big-table|<block*|<tformat|<cwith|1|-1|1|-1|cell-hyphen|c>|<cwith|2|2|2|2|cell-row-span|2>|<cwith|2|2|2|2|cell-col-span|1>|<cwith|8|8|2|2|cell-row-span|2>|<cwith|8|8|2|2|cell-col-span|1>|<cwith|1|-1|1|-1|cell-vcorrect|b>|<table|<row|<\cell>
 | 
				
			||||||
 | 
					    撅墧<E69285><E5A2A7>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <20><>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    雿𦦵鍂
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    color
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    \;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    憸𡏭𠧧嚗<F0A0A7A7><E59A97><verbatim|"red">嚗<><verbatim|"#eeeee">
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    撖寡情<E5AFA1>祈澈<E7A588><E6BE88><EFBFBD><EFBFBD><EFBFBD>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    fill-color
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    \;
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    憛怠<E6869B><E680A0><EFBFBD>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    magnify
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    瘚桃<E7989A><E6A183>堆<EFBFBD>憒<EFBFBD><verbatim|"1.1">
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <20>曉之<E69B89>𣇉憬撠讐<E692A0><E8AE90>滨<EFBFBD>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    opacity
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <20>曉<EFBFBD>瘥䈑<E798A5>憒<EFBFBD><verbatim|"100%">
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <20>𤩺<EFBFBD>摨<EFBFBD>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    point-style
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <verbatim|default,round,square,diamond,triangle,star>
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <20>寧<EFBFBD><E5AFA7>瑕<EFBFBD>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    dash-style
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <verbatim|"10","11100","1111010">
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    蝥輻<E89DA5><E8BCBB>瑕<EFBFBD>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    arrow-begin
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    <verbatim|"\<less\>less\<gtr\>","\<less\>less\<gtr\>\|","\<less\>less\<gtr\>\<less\>less\<gtr\>",>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <verbatim|"\<less\>gtr\<gtr\>","\|\<less\>gtr\<gtr\>","\<less\>gtr\<gtr\>\<less\>gtr\<gtr\>">
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    \;
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    撘<>憪见<E686AA><E8A781><EFBFBD>悌憭<E6828C>
 | 
				
			||||||
 | 
					  </cell>>|<row|<\cell>
 | 
				
			||||||
 | 
					    arrow-end
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    \;
 | 
				
			||||||
 | 
					  </cell>|<\cell>
 | 
				
			||||||
 | 
					    蝏𤘪<E89D8F>憭<EFBFBD><E686AD>蝞剖仍
 | 
				
			||||||
 | 
					  </cell>>>>>|<7C>典<EFBFBD>撖寡情撅墧<E69285><E5A2A7>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>厩<EFBFBD>銵冽聢銝剔<E98A9D><E58994>餌<EFBFBD>銝滚<E98A9D>憭曹<E686AD><E69BB9>渲<EFBFBD>嚗峕綫<E5B395>鞾<EFBFBD>霂<EFBFBD><menu|help|manual|<7C><>蔭雿𨅯㦛撌亙<E6928C>>餈嗵<E9A488>銝剜甅撘誩<E69298><E8AAA9>扯祕餈啗<E9A488>銝<EFBFBD><E98A9D><EFBFBD><EFBFBD><EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  銝钅𢒰嚗<F0A292B0><E59A97>銋劐<E98A8B>鈭𥕦遆<F0A595A6>堆<EFBFBD><E5A086>嫣噶<E5ABA3>睲賑<E79DB2>滨熊銝𠹺<E98A9D><F0A0B9BA><EFBFBD>葉<EFBFBD>嫘<EFBFBD><E5AB98><EFBFBD><EFBFBD>𣬚畆敶Y<E695B6><EFBCB9>瑕<EFBFBD><E79195><EFBFBD><EFBFBD><EFBFBD><EFBFBD>糓憸𡏭𠧧嚗峕<E59A97>隞砍<E99A9E>銋<EFBFBD><verbatim|fill><3E>亥挽蝵株<E89DB5><E6A0AA>航𠧧嚗<F0A0A7A7><E59A97>銋<EFBFBD><verbatim|colorize><3E>亥挽蝵桀<E89DB5><E6A180>航𠧧<E888AA><F0A0A7A7><EFBFBD>蝟嗵<E89D9F><E597B5>單<EFBFBD><E596AE>臬銁<E887AC>曉耦撖寡情<E5AFA1>滚<EFBFBD><E6BB9A><EFBFBD><markup|with><3E><>倌隞亙<E99A9E><E4BA99>詨<EFBFBD><E8A9A8><EFBFBD><EFBFBD><EFBFBD>改<EFBFBD><em|雿<>糓憒<E7B393><E68692><EFBFBD>睲賑撖孵<E69296>銝<EFBFBD>銝芸笆鞊∪<E99E8A><E288AA>牐<EFBFBD>霈詨<E99C88>甈<EFBFBD><markup|with><3E><>倌隡𡁏<E99AA1>擧甅<E693A7>g<EFBFBD>>
 | 
				
			||||||
 | 
					  餈嗘葵<E59798>桅<EFBFBD><E6A185>臭誑<E887AD>典遆<E585B8><E98186><verbatim|merge-with>閫<><E996AB>嚗<EFBFBD>𡖂憭𡝗<E686AD>隞砍<E99A9E>銋<EFBFBD><verbatim|decorate><3E>亥挽蝵桐遙<E6A190>誩<EFBFBD><E8AAA9>改<EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <\session|scheme|default>
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (merge-with l par val subs)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (cond ((== (length l) 0) '())
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ ((== (length l) 1) (append (list par val) l))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ ((== par (car l))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ (if subs (set-car! (cdr l) val)) l)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ (else\ 
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ \ (let ((t (list (car l) (cadr l))))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ \ \ \ (append t (merge-with (cddr l) par val
 | 
				
			||||||
 | 
					      subs))))))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (decorate l par val subs)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (cond ((or (nlist? l) (null? l)) '())
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ ((list? (car l))\ 
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ (append (list (decorate (car l) par val subs))\ 
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (decorate (cdr l) par val subs)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ ((== (car l) 'with)\ 
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ (append '(with) (merge-with (cdr l) par val subs)))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ ((or (== (car l) 'line) (== (car l) 'cline) (== (car l)
 | 
				
			||||||
 | 
					      'carc) (== (car l) 'point) (== (car l) 'graphics))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ (append '(with) (merge-with (list l) par val
 | 
				
			||||||
 | 
					      subs)))))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (fill fig bc)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "fill-color" bc #f))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (force-fill fig bc)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "fill-color" bc #t))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (colorize fig fc)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "color" fc #f))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (force-colorize fig fc)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "color" fc #t))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (arrow-begin fig style)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "arrow-begin" style #f))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (force-arrow-begin fig style)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "arrow-begin" style #t))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (arrow-end fig style)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "arrow-end" style #f))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (force-arrow-end fig style)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "arrow-end" style #t))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (dash-style fig style)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "dash-style" style #f))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (force-dash-style fig style)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "dash-style" style #t))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\unfolded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot (dash-style (fill (colorize (circle (point 0 0) 1) "blue")
 | 
				
			||||||
 | 
					      "green") "1111010"))
 | 
				
			||||||
 | 
					    <|unfolded-io>
 | 
				
			||||||
 | 
					      <text|<with|color|blue|fill-color|green|dash-style|1111010|<carc|<point|-1|0>|<point|0|1>|<point|1|0>>>>
 | 
				
			||||||
 | 
					    </unfolded-io>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\unfolded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot (arrow-end (line (point -2 0) (point 0 0) (point 1 1))
 | 
				
			||||||
 | 
					      "\|\<less\>gtr\<gtr\>"))
 | 
				
			||||||
 | 
					    <|unfolded-io>
 | 
				
			||||||
 | 
					      <text|<with|arrow-end|\|\<gtr\>|<line|<point|-2|0>|<point|0|0>|<point|1|1>>>>
 | 
				
			||||||
 | 
					    </unfolded-io>
 | 
				
			||||||
 | 
					  </session>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsection|<7C><><EFBFBD><EFBFBD>餃<EFBFBD>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>齿<EFBFBD><E9BDBF><EFBFBD>雿靝<E99BBF><E99D9D>橘<EFBFBD><E6A998>睲賑<E79DB2>賢蘨<E8B3A2>臬<EFBFBD><E887AC>曉耦撖寡情<E5AFA1><E68385><EFBFBD><EFBFBD>箸䔉<TeXmacs><3E><>﹝<EFBFBD>烐𦆮<E78390><F0A686AE><scheme>餈𤤿<E9A488><F0A4A4BF><EFBFBD><EFBFBD><EFBFBD>箔<EFBFBD>嚗峕<E59A97>隞祈<E99A9E>撖笔<E69296><E7AC94>鞉<EFBFBD><E99E89><EFBFBD><EFBFBD><EFBFBD>孵停<E5ADB5>冽<EFBFBD>獢<EFBFBD>赤<EFBFBD>芰瑪<E88AB0><E791AA>葉<EFBFBD>嫣<EFBFBD><E5ABA3><EFBFBD>鍂<EFBFBD>㗇<EFBFBD><E39787>劐葉餈嗘葵<E59798>暹<EFBFBD>嚗<EFBFBD>虾隞亦<E99A9E><E4BAA6>啣椰颲寧<E9A2B2>銝<EFBFBD>憭扳⏛蝛箇蒾<E7AE87><E892BE>銁銝𠹺<E98A9D><F0A0B9BA><EFBFBD><EFBFBD><EFBFBD>箇<EFBFBD>蝞剖仍<E58996>暹<EFBFBD><E69AB9>滩<EFBFBD><E6BBA9>乩<EFBFBD><E4B9A9>閗<EFBFBD>left<66>𠬍<EFBFBD>雿惩虾隞交<E99A9E><E4BAA4>啣𧑐<E595A3>见<EFBFBD>餈嗘<E9A488>蝛箇蒾<E7AE87><E892BE>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  left<with|arrow-end|\|\<gtr\>|<line|<point|-2|0>|<point|0|0>|<point|1|1>>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>望迨<E69C9B>臭誑<E887AD>仿<EFBFBD>嚗<EFBFBD>銁瘝⊥<E7989D><E28AA5>餃<EFBFBD><E9A483><EFBFBD><EFBFBD><EFBFBD>萎<EFBFBD>嚗<EFBFBD><TeXmacs>隡𡁜<E99AA1><F0A1819C>滢<EFBFBD>銝芸𢆡<E88AB8><F0A286A1>之撠讐<E692A0><E8AE90>餃<EFBFBD>嚗䔶誑<E494B6><E8AA91><EFBFBD><EFBFBD>曉耦<E69B89><E880A6>偕撖詻<E69296><E8A9BB>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>齿<EFBFBD>銝剔<E98A9D><E58994>曉<EFBFBD><E69B89>賢蘨<E8B3A2>臬<EFBFBD>銝芸㦛敶W笆鞊∪銁暺䁅恕<E48185>餃<EFBFBD>銝羓<E98A9D><E7BE93>曄內<E69B84><E585A7><EFBFBD><EFBFBD>亦𤫇撣<F0A4AB87><E692A3><EFBFBD>𠬍<EFBFBD><F0A0AC8D>睲賑撠勗虾隞亙<E99A9E>憭帋葵<E5B88B>曉耦撖寡情<E5AFA1>惩<EFBFBD><E683A9>典<EFBFBD>銝<EFBFBD>銝芰𤫇撣<F0A4AB87><E692A3><EFBFBD><EFBFBD><EFBFBD>朞<EFBFBD><E69C9E><EFBFBD><EFBFBD>撌亦<E6928C><\footnote>
 | 
				
			||||||
 | 
					    <20>寞<EFBFBD>霂瑕<E99C82><E79195><EFBFBD><EFBFBD>敶蓥葉<E893A5><E89189><EFBFBD>韐游ㄚ
 | 
				
			||||||
 | 
					  </footnote>嚗<>虾隞乩蜀<E4B9A9>箄<EFBFBD>銝芯<E98A9D>摮琜<E691AE>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <\session|scheme|default>
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (graphics . objects)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (cond ((nlist? objects) '(graphics "" ""))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ ((== objects '()) '(graphics "" ""))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ (else `(graphics "" ,@objects))))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (geometry fig x y)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "gr-geometry" `(tuple "geometry" ,x ,y "center") #f))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\unfolded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot (geometry (graphics\ 
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (fill (rectangle (point -2 -1) (point
 | 
				
			||||||
 | 
					      1 1)) "blue")
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (fill (rectangle (point -1 -1) (point
 | 
				
			||||||
 | 
					      2 1)) "red")
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (dash-style (line (point 1 -1) (point
 | 
				
			||||||
 | 
					      1 1)) "11100"))
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ "5cm" "3cm"))
 | 
				
			||||||
 | 
					    <|unfolded-io>
 | 
				
			||||||
 | 
					      <text|<with|gr-geometry|<tuple|geometry|5cm|3cm|center>|<graphics||<with|fill-color|blue|<cline|<point|-2|-1>|<point|-2|1>|<point|1|1>|<point|1|-1>>>|<with|fill-color|red|<cline|<point|-1|-1>|<point|-1|1>|<point|2|1>|<point|2|-1>>>|<with|dash-style|11100|<line|<point|1|-1>|<point|1|1>>>>>>
 | 
				
			||||||
 | 
					    </unfolded-io>
 | 
				
			||||||
 | 
					  </session>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>啣銁<E595A3>睲賑撠梯<E692A0>憭毺鍂<E6AFBA>賣㺭<verbatim|graphics>嚗<><E59A97>憭帋葵<E5B88B>曉耦撖寡情<E5AFA1>惩<EFBFBD><E683A9>典<EFBFBD>銝<EFBFBD>銝芰𤫇撣<F0A4AB87><E692A3>嚗諹<E59A97>䔶<EFBFBD>嚗<EFBFBD>㦛敶W笆鞊∠<E99E8A>憿箏<E686BF><E7AE8F>喳<EFBFBD>鈭<EFBFBD>葡<EFBFBD>梶<EFBFBD>憿箏<E686BF>嚗<EFBFBD><E59A97><EFBFBD><EFBFBD><EFBFBD>閬<EFBFBD><E996AC><EFBFBD>滩<EFBFBD><E6BBA9><EFBFBD><EFBFBD><EFBFBD>銝𠰴㦛<F0A0B0B4><E3A69B>蝷綽<E89DB7><E7B6BD>𡁶瑪銵函內<E587BD><E585A7>䔉<EFBFBD>肽𠧧<E882BD>拙耦<E68B99><E880A6>𢰧颲寧<E9A2B2>嚗𣬚緵<F0A3AC9A>刻◤蝥Z𠧧<EFBCBA>拙耦閬<E880A6><E996AC>鈭<EFBFBD><E988AD><EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20><><verbatim|geometry><3E>賣㺭<E8B3A3>臭誑<E887AD>批<EFBFBD><E689B9>餃<EFBFBD><E9A483><EFBFBD>之撠譌<E692A0><E8AD8C>釣<EFBFBD>𧶏<EFBFBD><F0A7B68F>齿<EFBFBD>銝剝<E98A9D>瘝⊥<E7989D>霈刻捏<E588BB>踹漲<E8B8B9>蓥<EFBFBD>餈嗘<E9A488><E59798>删<EFBFBD><E588A0><EFBFBD><EFBFBD>摰鮋<E691B0>銝𠰴<E98A9D><F0A0B0B4><EFBFBD>葉<EFBFBD><E89189><EFBFBD>厩<EFBFBD><E58EA9>鞉<EFBFBD><E99E89><EFBFBD><EFBFBD>雿漤<E99BBF><E6BCA4><EFBFBD><verbatim|cm><3E><><EFBFBD>隞亙銁<E4BA99><E98A81><EFBFBD><EFBFBD>餃<EFBFBD><E9A483><EFBFBD>捐摨血<E691A8>擃睃漲<E79D83><E6BCB2>𧒄<EFBFBD>辷<EFBFBD><E8BEB7>睲賑<E79DB2><E8B391>閬<EFBFBD><E996AC>銝<EFBFBD><verbatim|cm>餈嗘葵<E59798>蓥<EFBFBD>嚗<EFBFBD><E59A97>銝箄<E98A9D><E7AE84>𣬚<EFBFBD>暺䁅恕<E48185>蓥<EFBFBD>銝齿糓<verbatim|cm><3E><>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>血<EFBFBD>嚗峕<E59A97>隞祈<E99A9E><E7A588>臭誑<E887AD>芾<EFBFBD><E88ABE>餃<EFBFBD>嚗<EFBFBD>偷<EFBFBD>航<EFBFBD><E888AA>誩<EFBFBD><E8AAA9>餃<EFBFBD><E9A483>典凒<E585B8><E58792>征<EFBFBD>賬<EFBFBD><E8B3AC>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <\session|scheme|default>
 | 
				
			||||||
 | 
					    <\input|Scheme] >
 | 
				
			||||||
 | 
					      (define (crop fig)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ (decorate fig "gr-auto-crop" "true" #f))
 | 
				
			||||||
 | 
					    </input>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <\unfolded-io|Scheme] >
 | 
				
			||||||
 | 
					      (plot (crop (graphics\ 
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (fill (rectangle (point -2 -1) (point
 | 
				
			||||||
 | 
					      1 1)) "blue")
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (fill (rectangle (point -1 -1) (point
 | 
				
			||||||
 | 
					      2 1)) "red")
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ (dash-style (line (point 1 -1) (point
 | 
				
			||||||
 | 
					      1 1)) "11100"))))
 | 
				
			||||||
 | 
					    <|unfolded-io>
 | 
				
			||||||
 | 
					      <text|<with|gr-auto-crop|true|<graphics||<with|fill-color|blue|<cline|<point|-2|-1>|<point|-2|1>|<point|1|1>|<point|1|-1>>>|<with|fill-color|red|<cline|<point|-1|-1>|<point|-1|1>|<point|2|1>|<point|2|-1>>>|<with|dash-style|11100|<line|<point|1|-1>|<point|1|1>>>>>>
 | 
				
			||||||
 | 
					    </unfolded-io>
 | 
				
			||||||
 | 
					  </session>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <20>劐葉<E58A90><E89189>餈𤑳<E9A488>餈嗘舅銝芯<E98A9D><E88AAF>瑞<EFBFBD><E7919E>曉<EFBFBD>嚗䔶<E59A97>撠勗虾隞亦<E99A9E><E4BAA6>啣躹<E595A3>怒<EFBFBD><E68092>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <section|<7C>餃<EFBFBD>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  餈嗘<E9A488>蝡牐蜓閬<E89C93>⏚<EFBFBD>典<EFBFBD><E585B8><EFBFBD><EFBFBD>銋匧末<E58CA7><E69CAB>遆<EFBFBD>堆<EFBFBD>蝏睃<E89D8F><E79D83><EFBFBD><EFBFBD><EFBFBD><EFBFBD>甅<EFBFBD>㕑閎<E39591><E9968E>㦛獢<E3A69B><E78DA2><EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsection|<7C>穃<EFBFBD><E7A983>喳㦛獢<E3A69B>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  撠<><E692A0>敺<EFBFBD>蛹R<E89BB9><52><EFBFBD><EFBFBD>盯蝑匧<E89D91>嚗𣬚<E59A97><F0A3AC9A>𡒊鍂<F0A1928A>渡瑪撠<E791AA><E692A0>銝芰<E98A9D><E88AB0><EFBFBD><EFBFBD>銝支舅<E694AF>貉<EFBFBD><E8B289><EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsection|<7C><>㴓<EFBFBD>暹<EFBFBD>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  撠<><E692A0>敺<EFBFBD>蛹<math|R<rsub|1>><3E><><EFBFBD><EFBFBD>盯蝑匧<E89D91>嚗𣬚<E59A97><F0A3AC9A>𦒘誑瘥譍葵蝑匧<E89D91><E58CA7>嫣蛹<E5ABA3><E89BB9><EFBFBD>嚗䔶誑<math|R<rsub|2>>銝箏<E98A9D>敺<EFBFBD>𤫇n銝芸<E98A9D><E88AB8><EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsection|<7C>曉耦<E69B89>暹<EFBFBD>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsection|敹<><E695B9>敶W㦛獢<E3A69B>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsection|<7C><>耦<EFBFBD>暹<EFBFBD>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsubsection|<7C><>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsubsection|Koch snowflake<\footnote>
 | 
				
			||||||
 | 
					    <href|https://en.wikipedia.org/wiki/Koch_snowflake>
 | 
				
			||||||
 | 
					  </footnote>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsubsection|Sierpinski carpet<\footnote>
 | 
				
			||||||
 | 
					    <href|https://en.wikipedia.org/wiki/Sierpinski_carpet>
 | 
				
			||||||
 | 
					  </footnote> and triangle<\footnote>
 | 
				
			||||||
 | 
					    <href|https://en.wikipedia.org/wiki/Sierpinski_triangle>
 | 
				
			||||||
 | 
					  </footnote>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsubsection|Mandelbrot set<\footnote>
 | 
				
			||||||
 | 
					    <href|https://en.wikipedia.org/wiki/Mandelbrot_set>
 | 
				
			||||||
 | 
					  </footnote>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <section|<7C><><EFBFBD>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsection|撠讛斐憯<E69690>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsubsection|撖寞𧋦<E5AF9E><F0A78BA6><EFBFBD><EFBFBD>厩<EFBFBD><scheme>銵刻噢撘𤩺<E69298><F0A4A9BA><EFBFBD>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  敶㮖<E695B6><E3AE96>𡁜<EFBFBD><F0A1819C>函<EFBFBD>颲穃膥<E7A983>枏<EFBFBD><E69E8F>祆<EFBFBD><E7A586>塚<EFBFBD>憒<EFBFBD><E68692>雿㰘歲<E3B098>唬葉<E594AC>渡<EFBFBD><E6B8A1>鞱<EFBFBD><E99EB1>餅<EFBFBD>銵䔶誨<E494B6><E8AAA8><EFBFBD>敺<EFBFBD><E695BA><EFBFBD>航<EFBFBD>隡𡁜枂<F0A1819C>辷<EFBFBD><E8BEB7>牐蛹敶枏<E695B6><E69E8F><EFBFBD>誨<EFBFBD><E8AAA8><EFBFBD><EFBFBD>匧虾<E58CA7>賭<EFBFBD>韏碶<E99F8F><E7A2B6>齿<EFBFBD>銝剖歇蝏誩枂<E8AAA9>啗<EFBFBD><E59597><EFBFBD>遆<EFBFBD>啣<EFBFBD><E595A3>㗛<EFBFBD><E3979B><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>齿<EFBFBD>銝剜<E98A9D><E5899C>厩<EFBFBD>隞<EFBFBD><E99A9E><EFBFBD>賣<EFBFBD>銵䔶<E98AB5><E494B6>滩<EFBFBD>銝芣<E98A9D>雿𨅯<E99BBF><F0A885AF><EFBFBD><EFBFBD><EFBFBD>𧼮虜蝜<E8999C><E89D9C><EFBFBD><EFBFBD>鍳<EFBFBD><E98DB3><menu|撌亙<E6928C>|撘<><E69298>𤏸<EFBFBD><F0A48FB8><EFBFBD>>嚗<><E59A97><EFBFBD>㗇<EFBFBD>蝵桐<E89DB5><E6A190>祆<EFBFBD><E7A586><EFBFBD><EFBFBD>銝<EFBFBD><scheme>餈𤤿<E9A488>銝哨<E98A9D><E593A8>嗅<EFBFBD><menu|Developer|Export
 | 
				
			||||||
 | 
					  Sessions...>撠勗虾隞亙紡<E4BA99>箸<EFBFBD><E7AEB8>厩<EFBFBD>隞<EFBFBD><E99A9E><EFBFBD>啣<EFBFBD>銝芣<E98A9D>隞<EFBFBD><verbatim|code.scm>銝准<E98A9D><E58786><EFBFBD><EFBFBD><EFBFBD><menu|頧砍<E9A0A7>|<7C>䭾<EFBFBD>憸䀹<E686B8>隞<EFBFBD>>嚗<><E59A97><EFBFBD>臭<EFBFBD>銝<EFBFBD><scheme>餈𤤿<E9A488>撟嗉<E6929F><E59789><EFBFBD><scm|(load
 | 
				
			||||||
 | 
					  "/path/to/code.scm")>嚗<><E59A97>頧虫<E9A0A7><E899AB>𠬍<EFBFBD><F0A0AC8D><EFBFBD>葉<EFBFBD><E89189><EFBFBD>厩<EFBFBD>隞<EFBFBD><E99A9E>撠梢<E692A0>鋡怠<E98BA1>頧賭<E9A0A7><E8B3AD><EFBFBD>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsubsection|<7C><><EFBFBD>撌亦<E6928C>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <subsection|<7C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  <\itemize>
 | 
				
			||||||
 | 
					    <item>A TeXmacs graphics tutorial<\footnote>
 | 
				
			||||||
 | 
					      <href|http://texmacs.org/tmweb/documents/tutorials/TeXmacs-graphics-tutorial.pdf>
 | 
				
			||||||
 | 
					    </footnote>, by Henri Lesourd.
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <item>Turtle schemes<\footnote>
 | 
				
			||||||
 | 
					      <href|http://www.texmacs.org/tmweb/miguel/snippet-logo.en.html>
 | 
				
			||||||
 | 
					    </footnote>, by Ana Ca鎴zares Garc燰 and Miguel de Benito Delgado
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <item>Fractal turtles<\footnote>
 | 
				
			||||||
 | 
					      <href|http://www.texmacs.org/tmweb/miguel/snippet-fractal-1.en.html>
 | 
				
			||||||
 | 
					    </footnote>, by Ana Ca鎴zares Garc燰 and Miguel de Benito Delgado
 | 
				
			||||||
 | 
					  </itemize>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					  \;
 | 
				
			||||||
 | 
					</body>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					<\initial>
 | 
				
			||||||
 | 
					  <\collection>
 | 
				
			||||||
 | 
					    <associate|src-style|scheme>
 | 
				
			||||||
 | 
					  </collection>
 | 
				
			||||||
 | 
					</initial>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					<\references>
 | 
				
			||||||
 | 
					  <\collection>
 | 
				
			||||||
 | 
					    <associate|auto-1|<tuple|1|3>>
 | 
				
			||||||
 | 
					    <associate|auto-10|<tuple|3|7>>
 | 
				
			||||||
 | 
					    <associate|auto-11|<tuple|3.1|7>>
 | 
				
			||||||
 | 
					    <associate|auto-12|<tuple|3.2|7>>
 | 
				
			||||||
 | 
					    <associate|auto-13|<tuple|3.3|7>>
 | 
				
			||||||
 | 
					    <associate|auto-14|<tuple|3.4|7>>
 | 
				
			||||||
 | 
					    <associate|auto-15|<tuple|3.5|7>>
 | 
				
			||||||
 | 
					    <associate|auto-16|<tuple|3.5.1|7>>
 | 
				
			||||||
 | 
					    <associate|auto-17|<tuple|3.5.2|7>>
 | 
				
			||||||
 | 
					    <associate|auto-18|<tuple|3.5.3|?>>
 | 
				
			||||||
 | 
					    <associate|auto-19|<tuple|3.5.4|?>>
 | 
				
			||||||
 | 
					    <associate|auto-2|<tuple|2|3>>
 | 
				
			||||||
 | 
					    <associate|auto-20|<tuple|4|?>>
 | 
				
			||||||
 | 
					    <associate|auto-21|<tuple|4.1|?>>
 | 
				
			||||||
 | 
					    <associate|auto-22|<tuple|4.1.1|?>>
 | 
				
			||||||
 | 
					    <associate|auto-23|<tuple|4.1.1|?>>
 | 
				
			||||||
 | 
					    <associate|auto-24|<tuple|4.1.1|?>>
 | 
				
			||||||
 | 
					    <associate|auto-25|<tuple|4.1.1|?>>
 | 
				
			||||||
 | 
					    <associate|auto-26|<tuple|4.1.2|?>>
 | 
				
			||||||
 | 
					    <associate|auto-27|<tuple|4.2|?>>
 | 
				
			||||||
 | 
					    <associate|auto-3|<tuple|2|3>>
 | 
				
			||||||
 | 
					    <associate|auto-4|<tuple|2.1|3>>
 | 
				
			||||||
 | 
					    <associate|auto-5|<tuple|1|3>>
 | 
				
			||||||
 | 
					    <associate|auto-6|<tuple|2.2|4>>
 | 
				
			||||||
 | 
					    <associate|auto-7|<tuple|2|5>>
 | 
				
			||||||
 | 
					    <associate|auto-8|<tuple|2|5>>
 | 
				
			||||||
 | 
					    <associate|auto-9|<tuple|2.3|6>>
 | 
				
			||||||
 | 
					    <associate|footnote-1|<tuple|1|3>>
 | 
				
			||||||
 | 
					    <associate|footnote-10|<tuple|10|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-11|<tuple|11|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-12|<tuple|12|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-13|<tuple|13|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-14|<tuple|14|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-15|<tuple|15|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-16|<tuple|16|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-17|<tuple|17|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-18|<tuple|18|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-19|<tuple|19|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-2|<tuple|2|3>>
 | 
				
			||||||
 | 
					    <associate|footnote-20|<tuple|20|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-21|<tuple|21|?>>
 | 
				
			||||||
 | 
					    <associate|footnote-3|<tuple|3|3>>
 | 
				
			||||||
 | 
					    <associate|footnote-4|<tuple|4|4>>
 | 
				
			||||||
 | 
					    <associate|footnote-5|<tuple|5|5>>
 | 
				
			||||||
 | 
					    <associate|footnote-6|<tuple|6|6>>
 | 
				
			||||||
 | 
					    <associate|footnote-7|<tuple|7|7>>
 | 
				
			||||||
 | 
					    <associate|footnote-8|<tuple|8|7>>
 | 
				
			||||||
 | 
					    <associate|footnote-9|<tuple|9|7>>
 | 
				
			||||||
 | 
					    <associate|footnr-1|<tuple|1|3>>
 | 
				
			||||||
 | 
					    <associate|footnr-14|<tuple|14|?>>
 | 
				
			||||||
 | 
					    <associate|footnr-15|<tuple|15|?>>
 | 
				
			||||||
 | 
					    <associate|footnr-18|<tuple|18|?>>
 | 
				
			||||||
 | 
					    <associate|footnr-19|<tuple|19|?>>
 | 
				
			||||||
 | 
					    <associate|footnr-2|<tuple|2|3>>
 | 
				
			||||||
 | 
					    <associate|footnr-20|<tuple|20|?>>
 | 
				
			||||||
 | 
					    <associate|footnr-21|<tuple|21|?>>
 | 
				
			||||||
 | 
					    <associate|footnr-3|<tuple|3|3>>
 | 
				
			||||||
 | 
					    <associate|footnr-4|<tuple|4|4>>
 | 
				
			||||||
 | 
					    <associate|footnr-5|<tuple|5|5>>
 | 
				
			||||||
 | 
					    <associate|footnr-6|<tuple|6|6>>
 | 
				
			||||||
 | 
					    <associate|footnr-9|<tuple|9|7>>
 | 
				
			||||||
 | 
					  </collection>
 | 
				
			||||||
 | 
					</references>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					<\auxiliary>
 | 
				
			||||||
 | 
					  <\collection>
 | 
				
			||||||
 | 
					    <\associate|idx>
 | 
				
			||||||
 | 
					      <tuple|<tuple|<with|font-family|<quote|ss>|<7C>鍦<EFBFBD>>|<with|font-family|<quote|ss>|隡朞<E99AA1>>|<with|font-family|<quote|ss>|Scheme>>|<pageref|auto-3>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <tuple|<tuple|<with|font-family|<quote|ss>|撣桀𨭌>|<with|font-family|<quote|ss>|<7C>冽<EFBFBD><E586BD>见<EFBFBD>>|<with|font-family|<quote|ss>|<7C><>蔭雿𨅯㦛撌亙<E6928C>>>|<pageref|auto-8>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <tuple|<tuple|<with|font-family|<quote|ss>|撌亙<E6928C>>|<with|font-family|<quote|ss>|撘<><E69298>𤏸<EFBFBD><F0A48FB8><EFBFBD>>>|<pageref|auto-23>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <tuple|<tuple|<with|font-family|<quote|ss>|撘<><E69298>𤏸<EFBFBD><F0A48FB8>>|<with|font-family|<quote|ss>|Export
 | 
				
			||||||
 | 
					      Sessions...>>|<pageref|auto-24>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <tuple|<tuple|<with|font-family|<quote|ss>|頧砍<E9A0A7>>|<with|font-family|<quote|ss>|<7C>䭾<EFBFBD>憸䀹<E686B8>隞<EFBFBD>>>|<pageref|auto-25>>
 | 
				
			||||||
 | 
					    </associate>
 | 
				
			||||||
 | 
					    <\associate|table>
 | 
				
			||||||
 | 
					      <tuple|normal|<\surround|<hidden-binding|<tuple>|1>|>
 | 
				
			||||||
 | 
					        \;
 | 
				
			||||||
 | 
					      </surround>|<pageref|auto-5>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <tuple|normal|<surround|<hidden-binding|<tuple>|2>||<7C>典<EFBFBD>撖寡情撅墧<E69285><E5A2A7>>|<pageref|auto-7>>
 | 
				
			||||||
 | 
					    </associate>
 | 
				
			||||||
 | 
					    <\associate|toc>
 | 
				
			||||||
 | 
					      1<space|2spc>蝞<>隞<EFBFBD> <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-1>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      2<space|2spc><3E>箸𧋦<E7AEB8>毺<EFBFBD> <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-2>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|1tab>|2.1<space|2spc><3E>蠘祗
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-4>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|1tab>|2.2<space|2spc><3E>滨熊<E6BBA8>瑕<EFBFBD>撅墧<E69285><E5A2A7>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-6>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|1tab>|2.3<space|2spc><3E><><EFBFBD><EFBFBD>餃<EFBFBD>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-9>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      3<space|2spc><3E>餃<EFBFBD> <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-10>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|1tab>|3.1<space|2spc><3E>穃<EFBFBD><E7A983>喳㦛獢<E3A69B>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-11>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|1tab>|3.2<space|2spc><3E><>㴓<EFBFBD>暹<EFBFBD>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-12>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|1tab>|3.3<space|2spc><3E>曉耦<E69B89>暹<EFBFBD>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-13>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|1tab>|3.4<space|2spc>敹<><E695B9>敶W㦛獢<E3A69B>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-14>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|1tab>|3.5<space|2spc><3E><>耦<EFBFBD>暹<EFBFBD>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-15>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|2tab>|3.5.1<space|2spc><3E><>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-16>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|2tab>|3.5.2<space|2spc>Koch
 | 
				
			||||||
 | 
					      snowflake<assign|footnote-nr|7><hidden-binding|<tuple>|7><\float|footnote|>
 | 
				
			||||||
 | 
					        <with|font-size|<quote|0.771>|<with|par-mode|<quote|justify>|par-left|<quote|0cm>|par-right|<quote|0cm>|font-shape|<quote|right>|dummy|<quote|1.0fn>|dummy|<quote|7.5fn>|<\surround|<locus|<id|%-52A10B5C8--528F31208>|<link|hyperlink|<id|%-52A10B5C8--528F31208>|<url|#footnr-7>>|7>.
 | 
				
			||||||
 | 
					        |<hidden-binding|<tuple|footnote-7>|7><specific|texmacs|<htab|0fn|first>>>
 | 
				
			||||||
 | 
					          <locus|<id|%-52A10B5C8--528F31298>|<link|hyperlink|<id|%-52A10B5C8--528F31298>|<url|https://en.wikipedia.org/wiki/Koch_snowflake>>|<with|font-family|<quote|tt>|language|<quote|verbatim>|https://en.wikipedia.org/wiki/Koch_snowflake>>
 | 
				
			||||||
 | 
					        </surround>>>
 | 
				
			||||||
 | 
					      </float><space|0spc><rsup|<with|font-shape|<quote|right>|<reference|footnote-7>>>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-17>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|2tab>|3.5.3<space|2spc>Sierpinski
 | 
				
			||||||
 | 
					      carpet<assign|footnote-nr|10><hidden-binding|<tuple>|10><\float|footnote|>
 | 
				
			||||||
 | 
					        <with|font-size|<quote|0.771>|<with|par-mode|<quote|justify>|par-left|<quote|0cm>|par-right|<quote|0cm>|font-shape|<quote|right>|dummy|<quote|1.0fn>|dummy|<quote|7.5fn>|<\surround|<locus|<id|%-52A10B5C8--528F31360>|<link|hyperlink|<id|%-52A10B5C8--528F31360>|<url|#footnr-10>>|10>.
 | 
				
			||||||
 | 
					        |<hidden-binding|<tuple|footnote-10>|10><specific|texmacs|<htab|0fn|first>>>
 | 
				
			||||||
 | 
					          <locus|<id|%-52A10B5C8--528F313F0>|<link|hyperlink|<id|%-52A10B5C8--528F313F0>|<url|https://en.wikipedia.org/wiki/Sierpinski_carpet>>|<with|font-family|<quote|tt>|language|<quote|verbatim>|https://en.wikipedia.org/wiki/Sierpinski_carpet>>
 | 
				
			||||||
 | 
					        </surround>>>
 | 
				
			||||||
 | 
					      </float><space|0spc><rsup|<with|font-shape|<quote|right>|<reference|footnote-10>>>
 | 
				
			||||||
 | 
					      and triangle<assign|footnote-nr|11><hidden-binding|<tuple>|11><\float|footnote|>
 | 
				
			||||||
 | 
					        <with|font-size|<quote|0.771>|<with|par-mode|<quote|justify>|par-left|<quote|0cm>|par-right|<quote|0cm>|font-shape|<quote|right>|dummy|<quote|1.0fn>|dummy|<quote|7.5fn>|<\surround|<locus|<id|%-52A10B5C8--528F60A28>|<link|hyperlink|<id|%-52A10B5C8--528F60A28>|<url|#footnr-11>>|11>.
 | 
				
			||||||
 | 
					        |<hidden-binding|<tuple|footnote-11>|11><specific|texmacs|<htab|0fn|first>>>
 | 
				
			||||||
 | 
					          <locus|<id|%-52A10B5C8--528F319F8>|<link|hyperlink|<id|%-52A10B5C8--528F319F8>|<url|https://en.wikipedia.org/wiki/Sierpinski_triangle>>|<with|font-family|<quote|tt>|language|<quote|verbatim>|https://en.wikipedia.org/wiki/Sierpinski_triangle>>
 | 
				
			||||||
 | 
					        </surround>>>
 | 
				
			||||||
 | 
					      </float><space|0spc><rsup|<with|font-shape|<quote|right>|<reference|footnote-11>>>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-18>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|2tab>|3.5.4<space|2spc>Mandelbrot
 | 
				
			||||||
 | 
					      set<assign|footnote-nr|16><hidden-binding|<tuple>|16><\float|footnote|>
 | 
				
			||||||
 | 
					        <with|font-size|<quote|0.771>|<with|par-mode|<quote|justify>|par-left|<quote|0cm>|par-right|<quote|0cm>|font-shape|<quote|right>|dummy|<quote|1.0fn>|dummy|<quote|7.5fn>|<\surround|<locus|<id|%-52A10B5C8--528F4F6E8>|<link|hyperlink|<id|%-52A10B5C8--528F4F6E8>|<url|#footnr-16>>|16>.
 | 
				
			||||||
 | 
					        |<hidden-binding|<tuple|footnote-16>|16><specific|texmacs|<htab|0fn|first>>>
 | 
				
			||||||
 | 
					          <locus|<id|%-52A10B5C8--528F4F7A0>|<link|hyperlink|<id|%-52A10B5C8--528F4F7A0>|<url|https://en.wikipedia.org/wiki/Mandelbrot_set>>|<with|font-family|<quote|tt>|language|<quote|verbatim>|https://en.wikipedia.org/wiki/Mandelbrot_set>>
 | 
				
			||||||
 | 
					        </surround>>>
 | 
				
			||||||
 | 
					      </float><space|0spc><rsup|<with|font-shape|<quote|right>|<reference|footnote-16>>>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-19>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      4<space|2spc><3E><><EFBFBD> <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-20>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|1tab>|4.1<space|2spc>撠讛斐憯<E69690>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-21>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|2tab>|4.1.1<space|2spc>撖寞𧋦<E5AF9E><F0A78BA6><EFBFBD><EFBFBD>厩<EFBFBD><with|font-shape|<quote|small-caps>|Scheme>銵刻噢撘𤩺<E69298><F0A4A9BA><EFBFBD>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-22>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|2tab>|4.1.2<space|2spc><3E><><EFBFBD>撌亦<E6928C>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-26>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					      <with|par-left|<quote|1tab>|4.2<space|2spc><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
 | 
				
			||||||
 | 
					      <datoms|<macro|x|<repeat|<arg|x>|<with|font-series|medium|<with|font-size|1|<space|0.2fn>.<space|0.2fn>>>>>|<htab|5mm>>
 | 
				
			||||||
 | 
					      <no-break><pageref|auto-27>>
 | 
				
			||||||
 | 
					    </associate>
 | 
				
			||||||
 | 
					  </collection>
 | 
				
			||||||
 | 
					</auxiliary>
 | 
				
			||||||
| 
						 | 
					@ -1,4 +1,4 @@
 | 
				
			||||||
<TeXmacs|2.1.3>
 | 
					<TeXmacs|2.1.2>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
<style|<tuple|generic|chinese>>
 | 
					<style|<tuple|generic|chinese>>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					@ -15,6 +15,8 @@
 | 
				
			||||||
 | 
					
 | 
				
			||||||
  <\itemize>
 | 
					  <\itemize>
 | 
				
			||||||
    <item><gitlink|数学结构入门>
 | 
					    <item><gitlink|数学结构入门>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    <item><gitlink|TeXmacs图形编程>
 | 
				
			||||||
  </itemize>
 | 
					  </itemize>
 | 
				
			||||||
</body>
 | 
					</body>
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue