三角方程Mathematica

我嘗試用Mathematica來求解這個三角方程。我有兩個參數（ktr和kr）沒有值。我希望有這些參數的解決方案，以便找到以後的數值。這是公式：三角方程Mathematica

ktr^2 + ktr*(1/(
    1 + Cosh[λ]*Cos[λ]))(λ*ktr/kr*(Sinh[λ]*Cos[λ] - Cosh[λ]*Sin[λ]) - 
    λ^3*(Sin[λ]*Cosh[λ] + Cos[λ]*Sinh[λ])) + 
    λ^4*ktr/kr*(1 - Cosh[λ]*Cos[λ])/(1 + Cosh[λ]*Cos[λ]) == 0

我解決，NSolve，TrigExpand但由於嘗試參數KTR和KR我不能打印或找到解決的辦法。有人有任何想法嗎？未知參數是λ，應該表示爲kr和ktr的函數。

來源

2016-05-23 GeMa

的參數是λFOW我查詢的解決方案。 ktr和kr是解決方案無關的變量。 – GeMa

如果您需要澄清，您應該編輯該問題。如果這是個問題，你不可能象徵性地解決lambda問題。 – agentp

爲ktr找到了一個有用的解決方案。

sol = Solve[ktr^2 + ktr*(1/(
    1 + Cosh[λ]*Cos[λ]))(λ*ktr/kr*(Sinh[λ]*Cos[λ] - Cosh[λ]*Sin[λ]) - 
    λ^3*(Sin[λ]*Cosh[λ] + Cos[λ]*Sinh[λ])) + 
    λ^4*ktr/kr*(1 - Cosh[λ]*Cos[λ])/(1 + Cosh[λ]*Cos[λ]) == 0, {ktr, kr}]

解決:: svars：等式可能不會給出解決方案，爲所有的「解決」變量。 >>
{{ktr -> 0}, {ktr -> (λ^3 (-λ + λ Cos[λ] Cosh[λ] + kr Cosh[λ] Sin[λ] + 
     kr Cos[λ] Sinh[λ]))/(
    kr + kr Cos[λ] Cosh[λ] - λ Cosh[λ] Sin[λ] + λ Cos[λ] Sinh[λ])}} 

繪製ktr VS λ爲一系列kr整數值。

Show[Table[Plot[Last[ktr /. sol], {λ, 0, 2 Pi}], {kr, 0, 20}], 
AxesLabel -> {Style["λ", 14], Style["ktr", 14]}, Ticks -> {{0, Pi, 2 Pi}}]

來源

2016-05-23 14:34:23

非常感謝您的回覆。我沒有正確地設置問題。參數是λ。對於這個參數，我試圖找到解決方案。 – GeMa

您可以繪製λ，我可以看到λ取哪些值，這是一個解決方案。但是我需要λ作爲ktr和kr的函數。然後bz給出ktr和kr值，我找到了λ的具體值。 – GeMa

@GeMa Solve無法找到解決方案。 –

三角方程Mathematica

回答

相關問題