※ 引述《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