TKWNT+5
=v
#1
:n

:s
b
:c
 Bedford-Fowler Example 9.2, 3rd Ed.
#3
:n
ì
:v
.4
:s
i
:c
coefficient of friction
#4
:n
m
:v
100
:s
i
:u
kg
:d
kg
:c
chest mass
#5
:n
W
:v
981
:s
o
:u
N
:d
N
:c
weight of chest
#6
:n
b
:v
1
:s
i
:u
m
:d
m
:c
base width
#7
:n
slip
:v
'left
:s
i
:c
assumed impending slip: 'none, 'left, 'right
#8
:n
tip
:v
'left
:s
i
:c
assumed impending tip: 'none, 'left, 'right
#9
:n
N
:v
981
:s
o
:u
N
:d
N
:c
total normal reaction force (guess if not none)
#10
:n
f
:v
392.4
:s
o
:u
N
:d
N
:c
total friction force, + to right
#11
:n
f_max
:v
392.4
:s
o
:u
N
:d
N
:c
maximum static friction force
#12
:n
status
:v
'impending
:s
o
:c
no slip/tip, impending, or dynamic
#13
:n
F
:v
392.4
:s
o
:u
N
:d
N
:c
applied force
#14
:n
h
:v
1.25
:s
o
:u
m
:d
m
:c
height to force F
#16
:n
h_LL
:v
1.25
:s
o
:u
m
:d
m
:c
analytic tip-slide-left height
#17
:n
g
:v
9.810000000000001
:s
i
:u
m/sec^2
:d
m/sec^2
:c
gravitational constant
#18
:n
f_A
:v
392.4
:s
o
:u
N
:d
N
:c
base friction
#19
:n
f_B
:v
0
:s
o
:u
N
:d
N
:c
base friction
#20
:n
N_A
:v
981
:s
o
:u
N
:d
N
:c
normal force
#21
:n
N_B
:v
0
:s
o
:u
N
:d
N
:c
normal force
=u
#1
:c
Unit Master Sheet by R.L. Norton,
#2
:c
appended by J.E. Akin
#4
:c
length
#5
:f
cm
:m
10
:t
mm
#6
:f
m
:m
100
:t
cm
#7
:f
mm
:m
1000
:t
um
#8
:f
in
:m
2.5399999999999
:t
cm
#9
:f
ft
:m
12
:t
in
#10
:f
mile
:m
5280
:t
ft
#11
:f
in
:m
1000000
:t
uin
#12
:f
1/mm
:m
25.4
:t
1/in
#13
:f
1/cm
:m
2.54
:t
1/in
#14
:f
1/m
:m
.254
:t
1/in
#15
:c
area
#16
:f
in^2
:m
645.1626
:t
mm^2
#17
:f
m^2
:m
1000000
:t
mm^2
#18
:f
cm^2
:m
100
:t
mm^2
#19
:f
ft^2
:m
144
:t
in^2
#20
:c
volume
#21
:f
in^3
:m
16387.1623
:t
mm^3
#22
:f
ft^3
:m
1728
:t
in^3
#23
:f
m^3
:m
1E9
:t
mm^3
#24
:f
cm^3
:m
1000
:t
mm^3
#25
:f
cm^3
:t
cc
#26
:c
force
#27
:f
lb
:m
4.44822
:t
N
#28
:f
N
:m
100000
:t
dyne
#29
:f
ton
:m
2000
:t
lb
#30
:f
kips
:m
1000
:t
lb
#31
:f
lb
:t
lbf
#32
:f
lb
:t
lbm
#33
:c
moments and energy
#34
:f
in-lb
:m
.1138
:t
N-m
#35
:f
ft-lb
:m
12
:t
in-lb
#36
:f
N-m
:m
100
:t
N-cm
#37
:f
N-m
:m
1000
:t
N-mm
#38
:f
N-m
:m
8.850744000000001
:t
in-lb
#39
:f
N-m
:m
.7375620000000001
:t
ft-lb
#40
:f
lb-in
:t
in-lb
#41
:f
N-m
:t
m-N
#42
:f
N-cm
:t
cm-N
#43
:f
N-m
:t
joule
#44
:f
joules
:t
joule
#45
:f
joule
:t
J
#46
:c
pressure and stress
#47
:f
bar
:m
100000
:t
Pa
#48
:f
psi
:m
6894.757
:t
Pa
#49
:f
MPa
:m
1000000
:t
Pa
#50
:f
MPa
:t
Mpa
#51
:f
GPa
:m
1000
:t
MPa
#52
:f
GPa
:t
Gpa
#53
:f
Pa
:t
pa
#54
:f
N/m^2
:t
Pa
#55
:f
N/mm^2
:t
MPa
#56
:f
N/mm^2
:m
1000000
:t
N/m^2
#57
:f
N/cm^2
:m
10000
:t
N/m^2
#58
:f
kpsi
:m
1000
:t
psi
#59
:f
psi
:m
144
:t
psf
#60
:f
kpsi
:t
ksi
#61
:f
psig
:t
psi
:a
14.7
#62
:c
acceleration
#63
:f
in/sec^2
:m
2.5399999999999
:t
cm/sec^2
#64
:f
m/sec^2
:m
100
:t
cm/sec^2
#65
:f
m/sec^2
:m
1000
:t
mm/sec^2
#66
:f
m/s^2
:t
m/sec^2
#67
:f
ft/sec^2
:m
12
:t
in/sec^2
#68
:f
ft/s^2
:t
ft/sec^2
#69
:f
G
:m
32.17
:t
ft/sec^2
#70
:c
velocity
#71
:f
in/sec
:m
2.5399999999999
:t
cm/sec
#72
:f
m/sec
:m
100
:t
cm/sec
#73
:f
m/sec
:m
1000
:t
mm/sec
#74
:f
m/s
:t
m/sec
#75
:f
ft/sec
:m
12
:t
in/sec
#76
:f
ft/s
:t
ft/sec
#77
:f
in/s
:t
in/sec
#78
:f
rad/sec
:m
9.549296584
:t
rpm
#79
:f
mph
:m
1.466666666666667
:t
ft/sec
#80
:c
mass
#81
:f
blob
:m
386
:t
lb
#82
:f
slug
:m
32.17
:t
lb
#83
:f
kg
:m
2.204623
:t
lb
#84
:f
kg
:m
1000
:t
g
#85
:f
kg
:m
9.806649999999999
:t
N
#86
:c
mass mom of inertia
#87
:f
lb-in-sec^2
:m
.1138
:t
N-m-sec^2
#88
:f
N-m-sec^2
:t
kg-m^2
#89
:f
lb-in-sec^2
:t
lb-in-s^2
#90
:f
blob-in^2
:t
lb-in-s^2
#91
:f
N-m-sec^2
:t
N-m-s^2
#92
:c
area moment of inertia
#93
:f
in^4
:m
416231.4256
:t
mm^4
#94
:f
m^4
:m
1E12
:t
mm^4
#95
:f
m^4
:m
1E8
:t
cm^4
#96
:f
ft^4
:m
20736
:t
in^4
#97
:f
in^4
:m
.0000004162314256
:t
m^4
#98
:c
density
#99
:f
lb/in^3
:m
27.6805
:t
g/cc
#100
:f
g/cc
:m
.001
:t
g/mm^3
#101
:f
lb/ft^3
:m
1728
:t
lb/in^3
#102
:f
kg/m^3
:m
.000001
:t
g/mm^3
#103
:f
lb/in^3
:m
.002590673575129534
:t
blob/in^3
#104
:f
blob/in^3
:m
.08333333333333333
:t
slug/in^3
#105
:f
slug/ft^3
:m
1728
:t
slug/in^3
#106
:f
kg/mm^3
:m
1000
:t
g/mm^3
#107
:f
SG
:t
g/cc
#108
:c
spring rate
#109
:f
lb/in
:m
175.126
:t
N/m
#110
:f
N/mm
:m
1000
:t
N/m
#111
:f
lb/ft
:m
.08333333333333333
:t
lb/in
#112
:c
angles
#113
:f
radians
:m
57.29577951308232
:t
degrees
:c
 
#114
:f
rad
:m
57.2957795129
:t
deg
#115
:f
rev
:m
360
:t
deg
#116
:f
rad
:t
radian
#117
:c
temperature
#118
:f
C
:m
1.8
:t
F
:a
32
#119
:f
F
:t
R
:a
459.69
#120
:f
C
:t
K
:a
273.16
#121
:c
power
#122
:f
HP
:m
550
:t
ft-lb/sec
#123
:f
ft-lb/sec
:m
60
:t
ft-lb/min
#124
:f
ft-lb/sec
:m
12
:t
in-lb/sec
#125
:f
HP
:m
745.699
:t
watts
#126
:f
kw
:m
1000
:t
watts
#127
:f
HP
:t
hp
#128
:f
N-m/sec
:m
8.850756136188998
:t
in-lb/sec
#129
:f
N-m/sec
:t
watts
#130
:f
watt
:t
watts
#131
:c
flow
#132
:f
cfm
:m
1728
:t
cim
#133
:c
percent
#134
:f
dec%
:m
100
:t
%
#136
:c
fracture mechanics
#137
:f
MPa-m^.5
:m
.909
:t
ksi-in^.5
:c
stress intensity
#138
:f
MPa-m^.5
:m
1000000
:t
Pa-m^.5
:c
stress intensity
#139
:f
ksi-in^.5
:m
1000
:t
psi-in^.5
:c
stress intensity
#140
:f
kpsi-in^.5
:m
1000
:t
psi-in^.5
:c
stress intensity
#142
:c
frequency
#143
:f
1/sec
:m
60
:t
1/min
#144
:f
Hz
:t
1/sec
#145
:f
Hz
:t
hz
#146
:c
time
#147
:f
min
:m
60
:t
sec
#148
:f
hr
:m
60
:t
min
#149
:f
day
:m
24
:t
hr
#150
:f
week
:m
7
:t
day
#151
:f
year
:m
52
:t
week
#152
:f
year
:m
12
:t
month
#153
:c
viscosity
#154
:f
reyn
:t
lb-sec/in^2
:c
     absolute
#155
:f
reyn
:m
6894.696003767111
:t
Pa-s
#156
:f
reyn
:m
1000000
:t
ureyn
#157
:f
Pa-s
:m
1000
:t
mPa-s
#158
:f
cP
:t
mPa-s
#159
:c
   kinematic
#160
:f
m^2/sec
:m
10000
:t
cm^2/sec
#161
:f
cm^2/sec
:t
stoke
#162
:f
stoke
:m
100
:t
cS
#163
:f
m^2/sec
:m
1549.996853506387
:t
in^2/sec
#164
:c
stress intensity
#165
:f
psi-in^.5
:m
1098.843447385385
:t
Pa-m^.5
#166
:f
ksi-in^.5
:m
1000
:t
psi-in^.5
#167
:f
MPa-m^.5
:m
1000000
:t
Pa-m^.5
=l
=f
=r
#1
:r
; Bedford-Fowler Example 9.2, 3rd Ed.
:s
C
#3
:r
; friction and tip properties and their status
:s
C
#4
:r
f_max = ì * abs (N)
#5
:r
if not (known ('status)) then status = "no slip/tip"
#6
:r
if (or (abs (f) = f_max, N_A = 0, N_B = 0)) then status = "impending"
#7
:r
if (or (abs (f) > f_max, N_A < 0, N_B < 0)) then status = "dynamic"
#9
:r
; Equilibrium, x-axis parallel to the plane
:s
C
#10
:r
N = N_A + N_B
#11
:r
f  = f_A + f_B
#12
:r
f - F = 0                               ; Ó F_x = 0
#13
:r
N - W = 0                             ; Ó F_y = 0
#14
:r
F * h - W * b/2 + N_B * b = 0  ; Ó M_A = 0
#16
:r
W = m * g                           ; Gravity
#18
:r
; assumed slip behaviour to be checked against status
:s
C
#19
:r
if slip = "right"   then f_A = - ì * abs (N_A)
#20
:r
if slip = "right"   then f_B = - ì * abs (N_B)
#21
:r
if slip = "left"     then f_A =   ì * abs (N_A)
#22
:r
if slip = "left"     then f_B =   ì * abs (N_B)
#23
:r
if not (given ('slip) ) then slip = "none"
#25
:r
; assumed tip behaviour to be checked against status
:s
C
#26
:r
if tip = "right"   then  N_A = 0
#27
:r
if tip = "right"   then  f_A = 0
#28
:r
if tip = "left"     then  N_B = 0
#29
:r
if tip = "left"     then  f_B = 0
#30
:r
if not (given ('tip) ) then tip = "none"
#32
:r
; analytic solution inpending tip-slide to left
:s
C
#33
:r
h_LL = 0.5 * b / ì
=p
=t
=n
=c
=g
#1
:c
.000001
:i
100
:t
1
:y
Yes
=d
:c
E
:f
0


:v
E
:g
0.000001
:i
1000
:t
100
:p
0.000001
:r
5.00
:e
0
:d
1
:s
0
:n
0
:a
0
=s
:r
0
:v
%Tv,f,24,2,0,1,0
%Or,f,35,1,0,1,0
%Xl,f,0,0,0,2,0,88,88,647,494,320,849,-1,-1,0,0,4,-1,0,0,2,-13,700,34,0,0,0,161,Arial Unicode MS,4,10,21,31,98
%Xp,f,0,0,0,2,0,110,110,669,516,480,849,-1,-1,0,0,5,-1,0,0,2,-13,700,34,0,0,0,161,Arial Unicode MS,3,13,25,99
%Xt,f,0,0,0,2,0,132,132,691,538,640,849,-1,-1,0,0,6,-1,0,0,2,-13,700,34,0,0,0,161,Arial Unicode MS,2,15,100
%Xn,f,0,0,0,2,0,154,154,713,560,800,849,-1,-1,0,0,7,-1,0,0,2,-13,700,34,0,0,0,161,Arial Unicode MS,2,15,100
%Xc,f,0,0,0,2,0,176,176,735,582,0,825,-1,-1,0,0,8,-1,0,0,2,-13,700,34,0,0,0,161,Arial Unicode MS,3,15,22,99
%Xu,f,53,3,0,2,0,22,29,1015,693,160,849,0,0,0,0,3,-1,0,0,2,-13,700,34,0,0,0,161,Arial Unicode MS,5,10,20,34,48,96
%Xf,f,0,0,0,2,0,0,0,993,664,0,849,0,0,0,0,2,-1,0,0,2,-13,700,34,0,0,0,161,Arial Unicode MS,4,16,26,38,98
%Xm,f,0,0,0,0,0,154,203,1147,867,160,825,0,0,0,0,9,-1,0,0,2,0,0,0,0,0,0,0,,0
%Xv,f,24,2,0,2,0,542,0,1084,849,-1,-1,-4,-23,0,0,0,-1,0,0,1,-13,700,34,0,0,0,161,Arial Unicode MS,6,6,11,17,27,35,86
%Xr,f,35,1,0,2,0,0,0,542,849,-1,-1,-4,-23,2,0,1,-1,0,0,3,-13,700,34,0,0,0,161,Arial Unicode MS,2,9,103
\G,0,960,1344,1,-1,-1
\G,0,1920,1344,1,-1,-1
\C,0,1920,0,0,3