Wednesday, September 21, 2016

TI-84 Plus CE and HP Prime: Pitch versus Angle

TI-84 Plus CE and HP Prime:  Pitch versus Angle

The program PITCH calculates the pitch and angle of various roof heights.  The pitch of a roof is the number of inches of vertical rise per 12 inches.  For example: a roof of 3/12 is pitch is a roof that rises 3 inches for every 12 horizontal inches. 

This program demonstrates the angle computer given different roof pitches.  You control the rise, anywhere for 0.5 ft to 12 ft.   Use the up and down arrow keys to control the rise. 

To exit the program:

TI-84 Plus CE:  Press [CLEAR]. 
HP Prime:  Press [Esc].

TI-84 Plus CE: PITCH



"9/8/2016 EWS"
FnOff
ZoomSto
ZStandard

AxesOff
6→H:0→K
Degree
ClrDraw
Repeat K=45
getKey→K

TextColor(BLUE)
Text(­1,0,10,"PITCH = ")
Text(­1,0,110,H)
Text(­1,0,160,"/12")

Line(­4,­4,4,­4,GREEN)
Line(4,­4,4,­4+H,ORANGE)
Line(­4,­4,4,­4+H,GREEN)

TextColor(BLACK)
Text(­1,130,10,"ANGLE = ")
Text(­1,130,115,tan(H/12)

If K=25 and H≠12
Then
ClrDraw
H+.5→H
End
If K=34 and H≠0.5
Then
H-.5→H
ClrDraw
End

End

AxesOn
ZoomRcl
Disp "DONE."


HP Prime:  PITCH



EXPORT PITCH()
BEGIN
// HP Prime, EWS 2061-09-21

Xmin:=−10;Xmax:=10;
Ymin:=−10;Ymax:=10;

LOCAL h,k,a,t,s1,s2;
k:=0; h:=6; a:=HAngle;
HAngle:=1;
RECT(0);
REPEAT

k:=GETKEY;

s1:="Pitch = "+h+"/12";
TEXTOUT(s1,−5,8,4,#7DF9FFh);

LINE(−4,−4,4,−4,#FF00h);
LINE(4,−4,4,−4+h,#EDC9AFh);
LINE(−4,−4,4,−4+h,#FF00h);

t:=ATAN(h/12);
s2:="Angle = "+t+"°";
TEXTOUT(s2,−5,−8,4,#7DF9FFh);

// UP
IF k==2 AND h≠12 THEN
RECT(0); h:=h+.5;
END;

// DOWN
IF k==12 AND h≠.5 THEN
RECT(0); h:=h-.5;
END

UNTIL k==4; // Esc

RETURN "Done.";

END;


Update & HHC 2016 Highlights to come!

I have returned from Colorado attending the HHC 2016 conferences.  The weekend went by way too fast!  Highlights are going to come later this week.


Eddie

This blog is property of Edward Shore, 2016.

1 comment:

  1. Hello Sir!

    Thanks for your blog!

    If I may comment, regarding the HP Prime code, early at the beginning you backed up the current angle mode of the calculator with a:=HAngle;
    But when it's completed, it looks like you forgot to restore it back.
    So I would suggest after the REPEAT/UNTIL loop to add a little "HAngle:=a;" to place back the angle mode of the calculator like it was.

    I wouldn't have mentioned it but since I'm here, the "EWS 2061-09-21" should probably be "EWS 2016-09-21". :-)

    Denis Bisson.

    ReplyDelete

HP Prime: Area by Quadratic Splines

HP Prime:  Area by Quadratic Splines Introduction The program QUADSUM calculates the area under the curve described by the set o...