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
Blasius Euler Code
Currency conversion
A_03 ADAMS BASHFORTH S4
Summation
Rabeya
A_01 QN:3
Check identity matrix or not?
A_04 SHOOTING METHOD
Palindromic number
problem_3