fork download
copy 
  1.       PROGRAM CMPLXD
  2.         IMPLICIT COMPLEX(X)
  3.         PARAMETER (PI = 3.141592653589793, XJ = (0, 1))
  4.         DO 1, I = 0, 7
  5.           X = EXP(XJ * I * PI / 4)
  6.           IF (AIMAG(X).LT.0) THEN
  7.             PRINT 2, 'e**(j*', I, '*pi/4) = ', REAL(X), ' - j',-AIMAG(X)
  8.           ELSE
  9.             PRINT 2, 'e**(j*', I, '*pi/4) = ', REAL(X), ' + j', AIMAG(X)
  10.           END IF
  11.     2     FORMAT (A, I1, A, F10.7, A, F9.7)
  12.     1     CONTINUE
  13.         STOP
  14.       END
Success #stdin #stdout 0s 5304KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
e**(j*0*pi/4) =  1.0000000 + j0.0000000
e**(j*1*pi/4) =  0.7071068 + j0.7071068
e**(j*2*pi/4) = -0.0000000 + j1.0000000
e**(j*3*pi/4) = -0.7071068 + j0.7071068
e**(j*4*pi/4) = -1.0000000 - j0.0000001
e**(j*5*pi/4) = -0.7071066 - j0.7071069
e**(j*6*pi/4) =  0.0000000 - j1.0000000
e**(j*7*pi/4) =  0.7071070 - j0.7071065
https://ideone.com/1JTqNf
language:
Fortran (gfortran 8.3)
created:
9 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!