Re: [問題] 如何解這三角函數方程式

看板Fortran作者 (phys.tw)時間10年前 (2014/08/07 18:00), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串3/3 (看更多)
※ 引述《LERICAL (ERIC)》之銘言: : ※ 引述《cutedow (糖糖兔)》之銘言: : : 小女子不才 : : 想請問各位 : : 如何解以下這個式子 : : http://ppt.cc/sxJ9 : : 有人可以幫幫我嗎>"< : 應該是用tan的和角.差角公式 program SinArcTan implicit none REAL m1, m3, SinANS, TanANSARC, A , B WRITE(*,*) '輸入m1的值' READ(*,*) m1 WRITE(*,*) '輸入m3的值' READ(*,*) m3 A = m1-m3 B = 1 + m1*m3 TanANSARC = Atan(A/B) SinANS = 1.5*Sin(TanANSARC) WRITE(*,*) 'SinANS =', SinANS PAUSE STOP END program SinArcTan -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.114.74.71 ※ 文章網址: http://www.ptt.cc/bbs/Fortran/M.1407405628.A.1C4.html
文章代碼(AID): #1Juquy74 (Fortran)
文章代碼(AID): #1Juquy74 (Fortran)