01-10-2016, 10:05 PM
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:
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