(15C) Static Equivalent at a Point

[Eddie W. Shore]

Link: http://edspi31415.blogspot.com/2016/01/h...point.html

Source: Step by Step Solutions for your HP Calculator: Engineering Applications. HP-32S. Hewlett Packard. Corvallis, OR. 1988 pg. 40-44


Equations:

R5 * cos θ1 + R6 * cos θ2 = - Σ F * cos ϕ
R5 * sin θ1 + R6 * sin θ2 = - Σ F * sin ϕ

This program solves for R5, R6.

Variables:

Inputs:

R0: number of points
R1: T = angle of each known force (ϕ)
R2: F = value of each known force (F)
A = direction of the first reaction force (θ1)
B = direction of the second reaction force (θ2)

Outputs:

R5: R1 = unknown force 1 (R1)
R6: R2 = unknown force 2 (R2)

Temporary Variables: R3, R4, R7, R8, R9, R.0

R3 = X = sin θ1
R9 = Y = cos θ1

R4 = C = sin θ2
R.0 = D = cos θ2

R7 = Σ F * cos ϕ
R8 = Σ F * sin ϕ

This program clears all the registers.

Instructions:

Enter n, press [ f ] [1/x] ( E ), then each pair of T then [R/S] and F then [R/S], respectively. When completed with the pair, enter A and B. R1 is displayed first. Press [R/S] to get R2.

Program:

Code:


LBL E
Clear Registers [ f ] [X<>Y]
STO 0
LBL 1
R/S  (enter T here)
STO 1
R/S    (enter F here)
STO 2
>R  (Polar to Rectangular)
STO+ 7
X<>Y
STO+ 8
DSE 0
GTO 1
R/S  (enter A here)
SIN
STO 3
LST X
COS
STO 9
R/S   (enter B here)
SIN
STO 4
LST X
COS
STO .0 (note the .0)
RCL 7
RCL* 4
RLC .0
RCL* 8
-
RCL 3
RCL* .0
RCL 9
RCL* 4
-
÷ 
STO 5
R/S  (display R1)
LST X
RCL 9
RCL* 8
RCL 7
RCL* 3
-
X<>Y
÷ 
STO 6
RTN