(71B) Sign "Graph" of Trig Functions

[C.Ret]

Hello !

It really surprise me, why using binary text representation, whereas the HP-71B is a really perfect Graphic Calculator ?!


I liberally simplify your code using built-in instructions only. The result is a much better field of curve explorations and freedom. No more limited to sin cos tan or sgn function’s now.

Code:


10 DIM G$[133] @ RADIANS
12 INPUT “Absc. Rng “,’-PI,+PI’;X1,X2 @ S1=(X2-X1)/132
14 INPUT “Ordn. Hght “,’ -1,+1 ‘;Y1,Y2 @ S2=7/(Y2-Y1)
16 INPUT “Fnct. F(X)=”, ’SIN(X)’;F$
20 FOR I=0 TO 132 @ X=X1+I*S1 @ J=(Y2-VAL(F$))*S2 @ B=2^FLOOR(J+.4995)
22 G$[I]=CHR$(B) @ GDISP G$ @ NEXT I @ PAUSE @ GOTO 12

Fill free to continue testing any SGN(SIN(X)) as well !

Enjoy it !

Images Sharing:
https://drive.google.com/file/d/1pDTHSA6...sp=sharing
https://drive.google.com/file/d/1pGSwbJm...sp=sharing