Programas para la TI nspire CX cas

[jhonatan21]

https://www.youtube.com/results?q=Metod ... %253D%253D
Les dejo un video de la resolucion de un portico con brazos rigidos y placas en la calculadora ti nspire cx cas

[jsantacruz]

Define LibPub vigadise()=
Prgm
:Text "Diseño Viga a Flexión-Met.Elastico"
:Disp "--Datos Viga:"
:Request "Ancho-b(m):?",b
:Request "Alto-h(m):?",h
:Disp "--Datos Materiales:"
:Request "f´c(Mpa):?",fc1
:Request "Fy(Mpa):?",fy
:Disp "-Esfzo Adm.Ccto: fc"
:Disp "∴fc=0.45f´c↦",fc=0.45*fc1,"Mpa"
:Disp "-Esfzo Adm.Acero:fs↦",fs=fy,"Mpa"
:Disp "--Relacion Modular (n):"
:Request "Debe calcular n:? SI=1,No=2.",opc
:If opc=2 Then
: Request "Vr.Relac.Modular (n)↦",n
:ElseIf opc=1 Then
: Request "Mod.Elast.Acero-Es(Mpa)?:",es
: int(4700*√(fc1))→ec
:Disp "Mod.Elast.Ccto-Ec"
:Disp "Ec=4700√f´c=",ec,"Mpa"
:round(((es)/(ec)),2)→n
: EndIf
:Disp "n=",n
:Text "Valor del Momento actuante"
:Request "Momento actuante (KN-m):?",mu
:© Determinac. de r=((fs)/(fc)) y de k=((n)/(n+r))
:round(((fs)/(fc)),2)→r
:fy→fs
:0.45*fc1→fc
:Disp "r=fs/fc↦",r
:round(((n)/(n+r)),2)→k
:Disp "k=n/(n+r)↦",k
:© Determinac. de ε=((fs)/(Es)) y de ε=((fc)/(Ec))
:Disp "Deformac. ε=fs/Es↦",ε=round(((fs)/(es)),5)
:Disp "Deformac. ε=fc/Ec↦",ε=round(((fc)/(ec)),5)
:round(1-((k)/(3)),3)→j
:Disp "j=1-k/3↦",j
:Request "Vr. de d´(m):?",d1
:h-d1→d
:Disp "Vr.de d↦",d,"m"
:((fc*k*d*b)/(2))→c
:Disp "Bloque Compresión C↦",c,"KN"
:© Calculo de Momento resistente Mr
:c*j*d→mr
:Disp "Mr=c*j*d↦",mr,"KN-m"
:Text "Chequeo que Mr≥Ma"
:If mr≥mu Then
:Disp "Se puede calcular el refuerzo!"
:((mu)/(fs*j*d))→as
:Disp "Acero Rfzo As↦",as,"m²"
:((as)/(b*d))→ρ
:Disp "Porcentaje Acero ρ=As/(bd)↦",ρ
:Else
:Disp "Aumentar ρ cada 0.00001"
:EndIf
:Disp "Acero Rfzo As↦",as,"m²"
:
:EndPrgm