**TI92P*Group file dated 04/29/01, 06:04 kbdpbmathsfibmenufiZx (f(t),t)-W[[x(t)][y(t)]]-WDefine f(t)=-WDefine y(t)=-WDefine x(t)=-WParam-Vconj(-WdeSolve(-Wfactor(-WeigVl(-Wrref(-Wfactor(det(a-x))-Wdet(-WMaths-Vangle(-WDefine f(x)=-W20*log(abs(-WDefine g(x)=-WDefine h(x)=-W(*x)-WElec-V܍