Texas Instruments TI-89 - Replace_Top_With_Reciprocal

506
Appendix A: System Routines — EStack Arithmetic
TI
-
89 / TI
-
92 Plus Developer Guide
Not for Distribution
Beta Version January 26, 2001
replace_top_with_reciprocal
Declaration:
void
replace_top_with_reciprocal
(void)
Category(ies):
EStack Arithmetic, Math
Description:
Replaces the top of the estack with its internally-simplified reciprocal.
Inputs:
None
Outputs:
None
Assumptions:
The top expression on the estack is the top tag of an internally-simplified
algebraic expression or comparison.
Side Effects:
None
Availability:
On AMS 2.02 and higher.
TI
-
89 / TI
-
92 Plus
Differences:
None
See Also: divide_top, replace_top2_with_ratio, push_ratio, push_reciprocal
Example:
void push_anti_deriv_powprod_to_frac (EStackIndex i, EStackIndex k)
/* k indexes an expression of the form (bz + c)^n, with b possibly 1,
c possibly 0, and n possibly 1.
i indexes an expression of the form (a * k)^p, with p fractional and
a possibly 1.
Pushes corresponding anti-derivative with respect to z onto estack.
*/
{ Access_AMS_Global_Variables;
EStackIndex old_top = top_estack;
push_product (POWER_EXPONENT_INDEX (i), factor_exponent_index (k));
if (is_minus1 (top_estack))
{ /* int((a(bz + c)^n)^(-1/n),z) -> (a(bz + c)^n)^-(1/n) (bz + c) ln(bz + c) */
top_estack = old_top;
push_ln (factor_base_index (k));
times_top (factor_base_index (k));
times_top (i);
}
else { /* int ((az^n)^p, z) -> (a(bz + c)^n)^p (bz + c)/(np + 1) */
add1_to_top ();
replace_top_with_reciprocal ();
times_top (factor_base_index (k));
times_top (i);
}
} /* end push_anti_deriv_powprod_to_frac */