- #1

- 2

- 0

## Homework Statement

F(x) = exp(-a x^2) cos bx

for -100 =< x >= 100 , a=13 and b=7.

## Homework Equations

...

## The Attempt at a Solution

program main

implicit double precision (A-H,O-Z)

implicit integer (I-N)

DO I = -100,100

X = I * 1D0

F = DEXP(-A * X**2) * DCOS(B * X)

A = 13

B = 7

PRINT*,F

ENDDO

STOP

END