[Date Index] [Thread Index] [Author Index]

Re: TrigExpand

• To: mathgroup at smc.vnet.net
• Subject: [mg32502] Re: TrigExpand
• From: "Ersek, Ted R" <ErsekTR at navair.navy.mil>
• Date: Thu, 24 Jan 2002 05:20:55 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

Detlef Mueller wanted Mathematica to express Sec, Csc, ...  in terms of Sin,
Cos, Tan. 

You can install my HoldTemporary package posted at 
http://www.mathsource.com/Content/Enhancements/System/0211-587 
Then evaluate the expression below and everything will be formatted the way
you want.


Needs["Enhancements`HoldTemporary`"];
$PrePrint=HoldTemporary@@(
   (Hold@@{#/.
 
{Sec[x_]:>1/cos[x],Csc[x_]:>1/sin[x],Cot[x_]:>1/tan[x],Sech[x_]:>1/cosh[x],C
sch[x_]:>1/sinh[x]}
   })/.
   {cos®Cos,sin®Sin,tan®Tan,cosh®Cosh,sinh®Sinh}
)&;

-----------
Regards,
   Ted Ersek 
   Get Mathematica tips, tricks from
   http://www.verbeia.com/mathematica/tips/Tricks.html