如何在Netlogo中绘制函数？

to setup
  clear-all
  reset-ticks
  setup-plot
end

to setup-plot
  set-current-plot "Function Plot"
  set-plot-pen-color white
  set-plot-x-range -10 10
  set-plot-y-range 0 100
  plotxy 0 0
end

to plot-function
  set-current-plot "Function Plot"
  set-plot-pen-color red
  foreach range -10 10 [
    x ->
    let y x * x
    plotxy x y
  ]
end

to go
  plot-function
  tick
end