Sharp EL-5500III & PC-1403: Stairs and Air Density and Viscosity

 Sharp EL-5500III & PC-1403:  Stairs and Air Density and Viscosity

Stairs

Inputs:

RISE:  The floor-to-floor rise of the staircase. 

MAX RISER HGHT:  The maximum allowable rise height.

TREAD WIDTH:  The desired tread width of each stair.

Outputs:

N:  Number of Stairs

TRUE RH:  True riser height of the stair

# TREADS:  Number of treads

RUN:  Total theoretical run from the first stair to the top.

INCLINE:  Incline of the stair in degrees

STRINGER:  Length of the stringer

All amounts are assumed to be in inches and all amounts are precise (no rounding to the nearest 1/8th inch or 1/16 inch, etc).

Sharp EL-5500III/PC-1403 Program:  Stairs

RUN 300 (or whatever line you designate)

300 PRINT "STAIRS"

303 DEGREE

306 INPUT "RISE (IN)? "; R

309 INPUT "MAX RISER HGHT? "; H

312 INPUT "TREADWIDTH? "; W

315 N = INT (R/H) + 1

318 PRINT "N = "; N

321 T = R/N

324 PRINT "TRUE RH = "; T; " IN"

327 E = N-1

330 PRINT "# TREADS = "; E

333 U = E*W

336 PRINT "RUN = "; U; " IN"

339 A = ATN (T/W)

342 PRINT "INCLINE = "; A

345 S = (E*W)/(COS A)

348 PRINT "STRINGER = "; S; " IN"

351 END

Example

Inputs:

RISE:  150 in   (12 ft 6 in)

MAX RISER HGHT: 7.5 in 

TREAD WIDTH:  12 in

Results:

N = 21

TRUE RH = 7.142857143 IN

# TREADS = 20

RUN = 240 IN

INCLINE = 30.76271954

STRINGER = 279.2994151 IN

Air Density and Viscosity

Inputs:

AIR (F):  Temperature of the air in degrees Fahrenheit (°F)

PRESSURE:  Air pressure in pounds per square inch (psia)

Outputs:

DENSITY:  Air density  (lbm/ft^3)

VISCOSITY:  Estimate of air viscosity (ft^2/sec)

The dynamic viscosity (μ) for air is estimated by the equation to three significant digits:

μ ≈ 5.550736842 * 10^-10 * F + 3.04406316 * 10^-7 

Table of viscosity values:  https://www.engineeringtoolbox.com/air-absolute-kinematic-viscosity-d_601.html

Sharp EL-5500III/PC-1403 Program:  Air Density and Viscosity

RUN 400 (or whatever line you designate)

400 PRINT "AIR DENSITY/VISC (US)"

403 INPUT "AIR (F)? "; F

406 INPUT "PRESSURE (PSIA)? ";R

409 D = (144*R) / (53.3533 * (F+459.67))

412 REM MU - 3 DEC APPROX

415 M = 5.550736842E-10*F + 3.404406316E-7

418 REM NEED 9 PLACES SINCE MU IS TO -6TH POWER

421 M = INT (M*TEN 9) / TEN 9

424 V = M*32.1740464/D

427 PRINT "DENSITY = ": PRINT D; " LBM/FT^3"

430 PRINT "VISCOSITY = ": RINT V; "FT^2/SEC"

433 END

Example

Inputs:

AIR (F):  78 °F

PRESSURE:  82 psia

Outputs:

DENSITY:  4.116226392E-01 LBM/FT^3

VISCOSITY:  2.993678821E-05 FT^2/SEC

Sources

"Air - Dynamic and Kinematic Viscosity".  The Engineering Toolbox   

https://www.engineeringtoolbox.com/air-absolute-kinematic-viscosity-d_601.html

Retrieved July 8, 2021

Lindeburg, Michael R. PE Practice Problems for the Civil Engineering PE Exam: A Companion to the Civil Engineering Reference Manual  Thirteenth Edition Professional Publications, Inc: Belmont, CA  2012

Eddie

All original content copyright, © 2011-2021.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author. 

TI-95 ProCalc: Industrial Calculations

 TI-95 ProCalc: Industrial Calculations

Flag Sequence for Degree Mode

RF 33 RF 34

A Sample of Utility Calculations

F1:  >DB:  Decibel Function, DB = 20 * log x

F2:  IDB:  Inverse Decibel Function, x = 10^(DB ÷ 20)

F3:  PAR:  Resistance of two parallel circuits.  R = 1 ÷ ( 1÷a + 1÷b)

F4:  ANG:  Convert from Frequency to Angular Velocity. ω = 2 * π * f

F5:  FRQ:  Convert from Angular Velocity to Frequency.  f = ω ÷ ( 2 * π )

The first two functions (F1 and F2) were inspired by a unique key on the 1977 Casio fx-110 scientific calculator.  

Source:

"Casio fx-110"  Voidware.  http://www.voidware.com/calcs/fx110.htm Accessed May 30, 2021

TI-95 ProCalc File UTL

CLR 'READY' 

DFN F1: >DB @ 01

DFN F2: IDB @ 02

DFN F3: PAR @ 03

DFN F4: ANG @ 04

DFN F5: FRQ @ 05

HLT 

LBL 01 CLR 'X?' BRK LOG * 20 = 'DB=' GTL 06

LBL 02 CLR ( 'DB?' BRK / 20 ) INV LOG = 'X=' GTL 06

LBL 03 CLR ( 'A?' BRK 1/x + 'B?' BRK 1/x ) 1/x  = 'Z=' GTL 06

LBL 04 CLR 'FRQ?' BRK * 2 * PI = 'ANG=' GTL 06

LBL 05 CLR 'ANG?' BRK / ( 2 * PI ) = 'FRQ='

LBL 06 COL 16 MRG = HLT

Stairs

Inputs:

RISE:  The floor-to-floor rise of the staircase. 

MAX RISER HGHT:  The maximum allowable rise height.

TREAD WIDTH:  The desired tread width of each stair.

Outputs:

N:  Number of Stairs

TRH:  True riser height of the stair

#TRD:  Number of treads

RUN:  Total theoretical run from the first stair to the top.

INC:  Incline of the stair in degrees

STR:  Length of the stringer

All amounts are assumed to be in inches and all amounts are precise (no rounding to the nearest 1/8th inch or 1/16 inch, etc).

Formulas Used:

N = int( rise ÷ DRH ) + 1

TRH = rise ÷ N

#TRD = N - 1

RUN = #TRD * TREADWIDTH

INC = atan( TRH ÷ TREADWIDTH)

STR = T * TREADWIDTH ÷ cos INC

TI-95 ProCalc File STR

Size:  184 bytes

RF 33 RF 34 CLR 'STAIRS' PAU

CLR 'RISE (IN)?' BRK STO R

CLR 'MAX RISER HGHT?' BRK STO H

CLR 'TREADWIDTH?' BRK STO W

( RCL R / RCL H ) INT + 1 = STO N 

CLR 'N=' COL 16 MRG N BRK

RCL R / RCL N = STO T 

CLR 'TRH=' COL 16 MRG T BRK

RCL N - 1 = STO E 

CLR '#TRD=' COL 16 MRG E BRK

RCL E * RCL W = STO U 

CLR 'RUN=' COL 16 MRG U BRK

( RCL T / RCL W ) INV TAN STO A 

CLR 'INC=' COL 15 MRG A CHR 223 BRK

RCL E * RCL W / RCL A COS = STO S 

CLR 'STR=' COL 16 MRG S HLT

Example

Input:  

RISE:  120 in

MAX RISER HGHT:  7.5 in

TREADWIDTH:  10 in

Results:

N = 17

TRH = 7.058823529 in

#TRD = 16

RUN = 160 in

INC = 35.21759297°

STR = 195.8461369 in

Travel and Run of a Rolling Pipe

Inputs:

A: Bend angle in degrees

Y: Roll distance 

Z:  Vertical Offset

Outputs:

L:  length of the pipe

R:  set back of the pipe 

All amounts are assumed to be in inches and all amounts are precise (no rounding to the nearest 1/8th inch or 1/16 inch, etc).

Formulas Used:

Let W = √( Y^2 + Z^2 )

Then:

L = W ÷ (90° - cos A)

R = √(L^2 - W^2)

Source:

Heckman, Kurt  "Rolling Offset (run)"  vCalc Last Modified March 10, 2021  https://www.vcalc.com/wiki/KurtHeckman/Rolling+Offsets+%28run%29  Accessed June 5, 2021

TI-94 ProCalc File PIP

Size:  120 bytes

RF 33 RF 34 

CLR 'PIPE ROLL OFFSET' PAU

CLR 'BEND ANGLE?' BRK STO A

CLR 'ROLL DIST?' BRK STO Y

CLR 'OFFSET?' BRK STO Z

( RCL Y x^2 + RCL Z x^2 ) SQR = STO W

/ ( 90 - RCL A ) COS = STO L

'LEN=' COL 16 MRG L BRK

( RCL L x^2 - RCL W x^2 ) SQR = STO X

'SET=' COL 16 MRG X HLT

Example:

Inputs:

Bend Angle: 40°

Roll Distance: 6"

Vertical Offset: 6"

Results:

Travel = 13.20075441"

Setback = 10.11236456"

Coming Up:   Let's get Sharp

Retro Month - Sharp EL-5500 III (also known as the PC-1403) Pocket Computer - every Saturday in September 2021 

Eddie

All original content copyright, © 2011-2021.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author. 

TI-84 Plus: Staircases

TI-84 Plus:  Staircases

  

Given the rise (height from lower floor to upper floor), run (length of the staircase), and desired riser height (how high each stair is), the program STAIRS calculates the number risers needed, along with the width of each stair, the incline, and finally illustrates the staircase. STAIRS is designed with inches and feet (US units) in mind. 

Formulas

Given:  Rise, Run, Desired Rise Height (DRH)

Number of Risers:

n = rise/DRH, rounded to the nearest integer

Tread width:

TW = run/(n – 1)

Adjusted Riser Height (ARH)

ARH = rise/n, rounded to the nearest 1/16^th

One way to approach this: 

ARH = round(16*frac(rise/n),0)*16 + int(rise/n)

Incline:

θ = atan(RH/TW)

Other Calculations:

Stringer:

S = (n – 1)*√(ARH^2 + TW^2)

Number of Stairs:

N_stairs = n - 1

TI-84 Plus Program: STAIRS

Input:  Rise, Run, Desired Riser Height.  Keep the units consistent.  (12 inches = 1 foot)

Output:  Number of Risers (R), Tread width of each stair (T), Adjusted Riser Height (H), Angle of Incline (θ)

* Adjusted Riser Height is rounded to the nearest 1/16^th (of an inch).  This is accomplished by the line iPart(H)+round(16*fPart(H),0)/16. 

The graph screen shows the staircase.  A stat plot shows where each stair ends with X (L1) representing the position and Y representing the height (L2). 

The program sets the TI-84 Plus to Degrees mode.

"EWS 2016-12-03"

Degree

Input "RISE:",B

Input "RUN:",A

Input "DESIRED RISER HEIGHT:",H

round(B/H,0)→N

A/(N-1)→T

B/N→H

"ROUND H TO 1/16"

iPart(H)+round(16*fPart(H),0)/16→H

tan^-1(H/T)→θ

√(H²+T²)*(N-1)→S

Disp "NUMBER OF RISERS:",N

Disp "TREAD WIDTH:",T

Pause

Disp "ADJ. RISER HEIGHT:",H

Disp "ANGLE:",θ

Pause

{0}→L1:{0}→L2

­.5→Xmin:A+.5→Xmax

­.5→Ymin:B+.5→Ymax

ClrDraw

For(I,1,N-1)

augment(L1,{I*T})→L1

augment(L2,{I*H})→L2

End

PlotsOff

PlotsOn 1

Plot1(xyLine,L1,L2)

Line(0,0,A,0)

Line(A,0,A,B)

For(I,0,N-1)

Line(T*I,H*I,T*I,H*(I+1))

Line(T*I,H*(I+1),T*(I+1),H*(I+1))

End

DispGraph

Examples

All amounts are in inches.

Example 1:  Rise = 35 in, Run = 84 in, Desired Riser Height = 7 in

Results:  Number of Risers: 5, Tread width: 21 in, Adjusted Riser Height:  7 in, θ ≈ 18.43495°

Example 1 is shown in the screen shots above.

Example 2:  Rise = 40 in, Run = 90 in, Desired Riser Height = 7 in

Results:  Number of Risers: 6, Tread width: 18 in, Adjusted Riser Height:  6.6875 in,

θ ≈ 20.38143°

Example 3:  Rise = 56 in, Run = 50 in, Desired Riser Height = 6.5 in

Results:  Number of Risers: 9, Tread width: 6.25 in, Adjusted Riser Height:  6.25 in,

θ ≈ 45°

This program was inspired by the Calculated Industries Construction Master 5 calculator

Eddie

This blog is property of Edward Shore, 2016

HP 15C: Stair Calculations

HP 15C:  Stair Calculations

Variables:

Input: 

R0 = Riser Height (RH)

R1 = Run

R2 = Rise

Store values in R0, R1, and R2 before running the program.

Output:

R3 = number of stairs (S)

R4 = Treadwidth (TW)

R5 = Stringer Length (ST)

Formulas Used:

S = int(rise/RH) – 1

TW = run/S

ST = S * √(RH^2 + TW^2)

Step	Key	Key Code
001	LBL C	42, 21, 13
002	RCL 2	45, 2
003	RCL÷ 0	45, 10, 0
004	INT	43, 44
005	1	1
006	-	30
007	STO 3	44, 3
008	R/S (S)	31
009	1/X	37
010	RCL* 1	45, 20 ,1
011	STO 4	44, 4
012	R/S  (TW)	31
013	X^2	43, 11
014	RCL 0	45, 0
015	X^2	43, 11
016	+	40
017	√	11
018	RCL* 3	45, 20, 3
019	STO 5	44, 5
020	RTN	43, 32

Example:

R0 = 7 inches (riser height)

R1 = 56 inches (run)

R2 = 80 inches (rise)

Results:

R3 = 10 (number of stairs)

R4 = 5.6 inches (treadwidth)

R5 ≈ 89.6437 inches (stringer)

This blog is property of Edward Shore.  2016