HP Prime for All
English
Русский
HP Apps : Ulam Spiral
| Name | Ulam Spiral |
| Description | Program to graph different Ulam spiral. |
| Author | Unknown |
Source code (download):
Source code formatted by website engine
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;