Texas Instruments nspire cx User Manual page 28

28
Copy the code and test it out. Then try writing a program for a
problem in your class.
Define LibPub mohr(x,y,τ,β)=
Prgm
setMode(2,2)
setMode(5,2)
a:=((y+x)/(2))
r:=√((x-a)^(2)+τ^(2))
setMode(1,6)
m:=a+r
n:=a-r
If α=±45 Then
θ:=45
Else
θ:=α
EndIf
φ:=θ+45
t:=r*sin(2*β-2*θ)
If x<y Then
-r*cos(2*β-2*θ)
Else
-r*cos(2*β-2*θ)
EndIf
Disp "σ max =",m,"
Disp "σ ave =",a,"
Disp "θp =",θ,"°","
EndPrgm
-y))))/(2))
-2*θ)
-2*θ)
σ min =",n
τ max =",r
θs =",φ,"°"
CAS Calculators