uses GraphABC; begin var f:real->real:=x->x**-3; var (w,h,k) := (200,200,30); Window.SetSize(w*2,h*2); foreach var p in PartitionPoints(-(w div k)-1,(w div k)+1,(5*w*h div k)).Select(x->((w+x*k),(h-f(x)*k))) do if (p[1]>0) and (p[1]<h*2) and (p[0]<w*2) then Circle(Round(p[0]),Round(p[1]),2); end.
w - 1/2 длины окна - (200).
h - 1/2 высоты окна - (200).
k - зум - (30).
Пример работы:
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
