Group Abstract Group Abstract

Message Boards Message Boards

0
|
946 Views
|
5 Replies
|
9 Total Likes
View groups...
Share
Share this post:

How to express this derivative using only sine, cosine, and tangent?

Posted 4 months ago
POSTED BY: Wen Dao
5 Replies

Also:

SetSystemOptions[
  "SimplificationOptions" -> "AutosimplifyTrigs" -> False];

Then either of these:

Simplify[D[Sin[x] - (x - Sqrt[2]/2 x Sin[x])/Cos[x], x], 
 ComplexityFunction -> (LeafCount[#] + 
     10 Count[#, _Sec | _Csc | _Cot, Infinity] &)]

D[Sin[x] - (x - Sqrt[2]/2 x Sin[x])/Cos[x], x] // Simplify // 
 ReplaceAll[Sec[t_] :> 1/Cos[t]]

Simplify[] will convert 1/Cos[t] to Sec[t], since Sec[t] is less complex. You have to modify the complexity function to indicate to Simplify[] that you consider Sec[t] more complex than 1/Cos[t].

Or manually substitute the desired forms for the undesired ones. With "AutosimplifyTrigs" turned off, they stay as substituted.

POSTED BY: Michael Rogers

You might try ComplexExpand[]:

f[x_] := Sin[x] - (x - Sqrt[2]/2 x Sin[x])/Cos[x];
ComplexExpand[D[f[x], {x, 1}]]
POSTED BY: Henrik Schachner
Posted 4 months ago

Although the obtained result does not contain secant terms, its form is not what I wanted. The desired form is as shown in the image in the original post.

enter image description here

POSTED BY: Wen Dao

It is tricky to stop Sec turning up. Here is a way:

Factor[f'[x] // Simplify]
% /. Sec[x] :> 1/Inactive[Cos][x] // Together
POSTED BY: Gianluca Gorni
Posted 4 months ago

Thank you for your help. This result is exactly in the format I wanted.

POSTED BY: Wen Dao
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard