Dieses BASIC Programm für den HP-85 zeichnet Rosenkurven wie im Artikel „Rosen für den HP-85“ näher beschrieben wird.

HP-85 Rose Curve BASIC Programm:

• Listing im PDF Format
• LIF Image (ZIP Archiv)

100 CLEAR @ DEG
110 T$=CHR$(16)
120 DISP "Rose curve:"
130 DISP "  r=asin(k";T$;")"
140 DISP "where:"
150 DISP "  k=p/q is a ";
160 DISP "rational number"
170 DISP "  d";T$;"=step size";
180 DISP " of ";T$;" ";
190 DISP "in degrees"
200 DISP @ DISP "a,p,q,d";T$;
210 INPUT A,P,Q,D
220 IF A>1 THEN A=1
230 IF D<EPS THEN D=1
240 P=IP(P) @ Q=IP(Q)
250 IF P<1 OR Q<1 THEN 200
260 F=2-P*Q MOD 2
270 C=180*Q*F @ K=P/Q
280 SCALE -1.4,1.4,-1.05,1.05
290 MOVE 0,0
300 FOR T=D TO C STEP D
310 R=A*SIN(K*T)
320 X=R*COS(T) @ Y=R*SIN(T)
330 DRAW X,Y
340 NEXT T
350 DRAW 0,0
900 END