作者phystw (phys.tw)
看板Fortran
标题Re: [问题] 如何解这三角函数方程式
时间Thu Aug 7 18:00:26 2014
※ 引述《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://webptt.com/cn.aspx?n=bbs/Fortran/M.1407405628.A.1C4.html