Sunday, May 25, 2014

PCalc and HP 50g: Mohr's Circle

PCalc and HP 50g: Mohr's Circle

Given shear stresses in the x and y directions (σx and σy) and normal stress (τ), find the radius, center, and viewing angle of Mohr's Circle.

I take τ to represent both τxy and τyx (both are assumed to be equal).

R = √( (σx - σy)/2)^2 - τ^2 )

Center (S, 0):
S = (σx + σy)/2

Viewing Angle:
θ = atan( 2τ /(σx - σy)) / 2


HP 35S Program by Jason Charalambides, Avant Garde Engineering. HP 35S program written in 2012.'s%20Circle.pdf

Wikipedia Article on Mohr's Circle, retrieved 5/23/2014:'s_circle


Before running, store the following values:
σx into M1
σy into M2
τ into M3

Program: Mohr's Circle - Radius
Decimal Mode
Set X To M1
Subtract M2 From X
Divide X By 2
X To Power of 2
Set R0 To M3
R0 To Power of 2
Add R0 To X
X To Power of 0.5

Program: Mohr's Circle - Center (X,0)
Decimal Mode
Set X To M1
Add M2 To X
Divide X By 2

Program: Mohr's Circle - View Angle
Decimal Mode
Set X To M3
Multiply X By 2
Set R0 To M1
Subtract M2 From M0
Divide X By R0
Inverse Tangent X
Divide X By 2

HP 50g: MOHR

σ: ALPHA, Right-Shift, S
τ: ALPHA, Right-Shift, U
SQ: x^2

<< "Shear Stress σx" PROMPT
"Shear Stress σy" PROMPT
"Normal Stress τ" PROMPT
→ X Y T
<< X Y - 2 / SQ T SQ + √
"Radius" →TAG
X Y + 2 / (0,0) +
"Center" →TAG
T 2 * X Y - / ATAN 2 /
"View Angle" →TAG >> >>

σx = 100
σy = -220
τ = 80

R ≈ 178.88544
S = -60 (center (-60,0))
θ ≈ 13.28253° ≈ .23183 radians

- Eddie -

HP Prime CAS: Curvature

HP Prime CAS:  Curvature Introduction The following CAS functions calculates the curvature of: functions, y(x) polar functions, r(t)  (t: Θ)...