logo 编程

;一个多边形  l 边长 n 边数
to sj :l :n
  repeat :n [fd :l rt 360/n]
end
;l 边长  p 偏转边的百分比  n 边个数
to lxs1 :l :p :n
  if :l<5 [stop]
  sj :l :n
  make "k :l*:p
  make "kk :l-:k
  make "h :k*(sin 60)
  make "h2 :kk-sqrt(:k*:k-:h*:h)
  make "l2 sqrt(:h*:h+:h2*:h2)
  make "d arctan(:h/:h2)
  fd :k rt :d
  lxs1 :l2 :p :n
end
;l 边长 p偏移百分比 n边个数 m旋转一圈画几个
to lxs :l :p :n :m
  make "a 1
  repeat :m [lxs1 :l :p :n home rt :a*360/:m make "a :a+1]
  home
end
to lxsv :l :p
  make "nn 3
  make "mm 1
  repeat 10 [repeat 8-:nn [repeat 10 [lxs :l :p :nn :mm wait 10 cs make "mm :mm+1] make "mm 1 make "nn :nn+1] make "nn 3]
end