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
Won rules summation 1 to 100 square namber
Title
A_01 NEWTON_RM(B(I))
A_03 TAYLOR_METHOD
Question 01(a)
GPA GRADING
Question1(b)
SIUM(3.5)
FIND A DAY
A_02 JACOBIAN NEWTON'S ITERATIVE METHOD