HP Prime для всех

English  Русский 
Ulam Spiral graphics-app screenshot}}
Название Ulam Spiral
Описание Program to graph different Ulam spiral.
Автор Unknown

Исходный код (скачать):

Исходный код отформатирован программными средствами сайта

EXPORT Ulam2 BEGIN LOCAL a, b, xy := {160, 120}, n := 1, m := .9, d := {{1, 0}, {0, 1}, {-1, 0}, {0, -1}}; RECT(); WHILE n < 100000 DO FOR a FROM 1 TO 4 DO m := m+.5; FOR b FROM 1 TO m DO IF isprime(n) THEN PIXON_P(xy, 127); END; xy := xy+d(a); n := n+1; END; END; END; FREEZE; END;

Комментарии