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