嗨!欢迎你跟林老师学习LOGO语言!
跟林老师从头开始学LOGO语言连载(第23课)画二叉树

第23课学习主题：
   学习中间递归画二叉树。
   初步掌握“分形”、“递归模式图”的概念。

为方便大家查询，这里提供《跟林老师学LOGO语言》总目录链接:

凡是画出练习图形的读者，给林老师发一个邮件，林老师将以适当的形式给予表扬鼓励。

关于LOGO语言编程{zx1}思想的文章请参考：

    或者参考林老师编写的《LOGO语言竞赛教程》P169～185

    或者参考林老师编著的《LOGO语言竞赛教程》P149

    或者参考林老师编著的《LOGO语言竞赛教程》P150～156


TOOLS工具程序：

TO TOOLS ;画递归标识点的工具
  DRAW HT QIDIAN
  PU SETX 50 PD DIGUI
  PU SETX 100 PD CHAHUA
END
TO QIDIAN ;画起点符号的命令
  PU FD 4 RT 90 PD
  REPEAT 360 [FD 4 * PI / 180 RT 1] ;画起点小圆圈
  PU LT 90 FD 4 RT 90 PD
  REPEAT 360 [FD 8 * PI / 180 RT 1] ;画起点大圆圈
  SETW 3 LT 90 FD 17 YM BK 8 SETW 1
  PU BK 8 PD
END
TO YM ;画起点上端羽毛状符号
  SETW 1
  REPEAT 3 [RT 120 FD 9 BK 9 RT 120 FD 9 BK 9 RT 120 BK 3]
END
TO DIGUI ;画递归点符号的命令
  SETW 8 DOT SE XCOR YCOR  ;画底部的点
  SETW 3 FD 38 RT 150 FD 9 BK 9 ;画杆和箭头
  LT 300 FD 9 BK 9 RT 150 BK 38 SETW 1
END
TO CHAHUA ;画插花点符号的命令
  SETW 8 DOT SE XCOR YCOR  ;画底部的点
  SETW 3 FD 28 LT 60       ;画杆
  REPEAT 5 [PU FD 5 PD FD 7 PU BK 12 RT 30] ;画顶部分叉
  LT 90 BK 28 PD SETW 1
END