Re: [問題] 聯立方程式解角度問題

看板Mathematica作者 (Hysterisis)時間11年前 (2013/04/26 00:05), 編輯推噓3(301)
留言4則, 3人參與, 最新討論串2/3 (看更多)
※ 引述《huarache (~絮~)》之銘言: : http://ppt.cc/5xVl : 我想要跟書上一樣求得的s3可以是arctan型式 : 然後r3求得的結果也想跟書上一樣 : 不知道Mathematica能否算出一樣的結果呢? : 小弟我自己是 Solve[{r2 Cos[s2] - r3 Cos[s3] == 0, : r1 + r2 Sin[s2] - r3 Sin[s3] == 0}, {s2, s3}] : 跑出一大堆的結果都不是我要的 : 然後如果只求s3,只會跑出{} : 還煩請高手幫小弟我解惑,謝謝! Solve[{r2 Cos[s2] - r3 Cos[s3] == 0, r1 + r2 Sin[s2] - r3 Sin[s3] == 0}, {r3, s3}]//FullSimplify (*依例題算式,這樣才對,s2不是未知數*) 然後如果s2,s3都是銳角,r1, r2, r3皆正 r3 -> Sqrt[r1^2 + r2^2 + 2 r1 r2 Sin[s2]] s3 -> ArcCos[ (r2 Cos[s2]) / Sqrt[r1^2 + r2^2 + 2 r1 r2 Sin[s2]] ] 的解雖然形式不同卻完全等於 r3 -> ArcTan[(1 + Sin[s2])/Cos[s2]] s3 -> r2 Cos[s2]/Cos[ArcTan[(r1 + r2 Sin[s2])/(r2 Cos[s2])]] 因為 Cos[2s] = (1-Tan[s]^2)/(1+Tan[s]^2) 延伸出公式 2 ArcTan[x] = ArcCos[(1-x^2)/(1+x^2)] 2 ArcTan[Sqrt[1-y^2]/(1+y)] = ArcCos[y] Cos[ArcTan[x]] = 1/Sqrt[1 + x^2] 結果研究後我還是不知道怎麼讓他使用ArcTan表現= = -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.112.213.88

04/26 00:31, , 1F
我的Mathematica一開始就是用ArcTan表示的(ver. 9.0.1.0)
04/26 00:31, 1F

04/26 01:01, , 2F
九版啊,收集新台幣中QQ
04/26 01:01, 2F

04/26 16:46, , 3F
謝謝!
04/26 16:46, 3F

04/29 16:48, , 4F
我試了九版會跑出ArcTan,不過九版輸出有點不習慣...
04/29 16:48, 4F
文章代碼(AID): #1HULHGBh (Mathematica)
討論串 (同標題文章)
文章代碼(AID): #1HULHGBh (Mathematica)