Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
SIUM(3.7)
PROGRAM SIUM1 IMPLICIT NONE INTEGER::X=3,Y=4,F IF(X>=0 .AND. Y>=0)THEN F=X+Y WRITE(*,20)F 20 FORMAT('F(X,Y) IS =',1I6.2) ELSEIF(X>=0 .AND. Y<0)THEN F=X+Y**2 WRITE(*,21)F 21 FORMAT('F(X,Y) IS =',1I6.2) ELSEIF(X<0 .AND. Y>=0)THEN F=X**2+Y WRITE(*,22)F 22 FORMAT('F(X,Y) IS =',1I6.2) ELSE F=X**2+Y**2 WRITE(*,23)F 23 FORMAT('F(X,Y) IS =',1I6.2) END IF END PROGRAM
run
|
edit
|
history
|
help
0
A_01 CHEBYSHEV_METHOD
Shooting method
A_01 NEWTON_RM(B(III))
Rvc new
Sum of inverse square series
Shooting method 1
Jánošík 2018
A_02 THE GUASS SEIDEL METHOD
euler-cromer
55