Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

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



  • Prev by Date: Difference between Get[] and Copy-Past operation
  • Next by Date: Change of Variables
  • Previous by thread: Re: TrigExpand
  • Next by thread: Re: TrigExpand