**TI92P*physicsRhalflife5¥ZÛ() Prgm Local a,f,h,m,p,t setMode("Exact/Approx","APPROXIMATE") lbl top Dialog Title "Half Life Calculations" DropDown "Solve for:",{"Original Weight","Final Weight","Half Life","Time"},p EndDlog if ok=0 goto prge If p=1 Goto original If p=2 Goto final If p=3 Goto hl If p=4 Goto tm Lbl original Dialog Title "Half Life Calculations" Request "Final Weight",m Request "Time",t Request "Half Life",h EndDlog if ok=0 goto top expr(m)m expr(t)t expr(h)h 2^(t/h)*ma Dialog Title "Half Life Calculations" Text "The original weight is: "&string(a) EndDlog Goto prge Lbl final Dialog Title "Half Life Calculations" Request "Original Weight",m Request "Time",t Request "Half Life",h EndDlog if ok=0 goto top expr(m)m expr(t)t expr(h)h m/2^(t/h)a Dialog Title "Half Life Calculations" Text "The final weight is: "&string(a) EndDlog Goto prge Lbl hl Dialog Title "Half Life Calculations" Request "Original Weight",m Request "Final Weight",f Request "Time",t EndDlog if ok=0 goto top expr(m)m expr(f)f expr(t)t t/(log(m/f)/(log(2)))a Dialog Title "Half Life Calculations" Text "The half life is: "&string(a) EndDlog Goto prge Lbl tm Dialog Title "Half Life Calculations" Request "Original Weight",m Request "Final Weight",f Request "Half Life",h EndDlog if ok=0 goto top expr(m)m expr(f)f expr(h)h h(log(m/f)/(log(2)))a Dialog Title "Half Life Calculations" Text "The time is: "&string(a) EndDlog Lbl prge setMode("Exact/Approx","AUTO") EndPrgm äåÜSÞ