Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Cosine series
Program cosine_series Implicit none Real,parameter:: pi=3.142857 Integer I,N,sign Real fact,sum,X X=45 X=X*pi/180.0 Sum=1 I=2 Fact=1.0 Sign=+1 N=10 Do 10 I=3,N,2 Fact=Fact*I*(I-1) Sum=Sum+(X**(I)/Fact)*sign Sign=sign*(-1) Write(*,*)X,sum 10 continue Write(*,*)X,sum End program cosine_series
run
|
edit
|
history
|
help
0
Inverse matric
3
2
Fyyh
Fhhjhh
A_01 QN:1(I) BISECTION METHOD
4 ER 2(I)
Characteristics polynomial
New
Recursive tribonacci