Dieses BASIC Programm für den HP-85 zeichnet Maurer Rosen wie im Artikel „Rosen für den HP-85“ näher beschrieben wird.
HP-85 Maurer Rose BASIC Programm:
100 CLEAR @ DEG
110 T$=CHR$(16)
120 DISP "Rose curve:"
130 DISP " r=sin(n";T$;")"
140 DISP "Maurer rose:"
150 DISP " polygonal curve ";
160 DISP "with vertices"
170 DISP " on a rose (";
180 DISP T$;"=0,d,2d,..,360d)"
190 DISP @ DISP "n,d";
200 INPUT N,D
210 N=IP(N) @ D=IP(D)
220 IF N<1 OR D<1 THEN 190
230 T0=0 @ C=0 @ GCLEAR
240 SCALE -1.4,1.4,-1.05,1.05
250 T=T0 MOD 360
260 R=SIN(N*T)
270 X=R*COS(T) @ Y=R*SIN(T)
280 MOVE X,Y
290 T=(T+D) MOD 360
300 R=SIN(N*T)
310 X=R*COS(T) @ Y=R*SIN(T)
320 DRAW X,Y
330 C=C+1 @ IF T#T0 THEN 290
340 T0=T0+1 @ IF C<360 THEN 250
900 END
1 Kommentar