Question

FORTRAN解方程，问题如下，求编程

其中那块豆号前少了一个中括号，N也为已知

Answer 1

cos(I*pi/2) = 1,0,-1,0

n=1 :th=R*(1-R0)*(1+C0) 直接解方程
n=2: th=R*((1-R0)*(1+C0) -(1-R0^-2)) 直接解方程（三次方程有解析解）
n=3: th=R*((1-R0)*(1+C0) -(1-R0^-2))
直接解方程（三次方程有解析解）

n=4: th=R*((1-R0)*(1+C0) -(1-R0^-2)
-(1-R0^-2)+(1-R0^-4))

数值解法

其它数值解法。

追问

我现在N取到15项了，用的一维搜索法，不过还是谢谢你

追答

不用谢，没帮你什么忙！