Re: [問題] 如何解這三角函數方程式
※ 引述《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
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章