p

r

o

g

r

a

m

e

n

s

h

u

1

1

b

f

i

m

p

l

i

c

i

t

n

o

n

e

r

e

a

l

:

:

x

,

y

r

e

a

l

:

:

d

y

d

x

,

x

_

n

e

w

,

v

e

r

y

s

m

a

l

l

i

n

t

e

g

e

r

:

:

n

x

=

2

0

.

0

v

e

r

y

s

m

a

l

l

=

1

.

0

e

-

6

d

o

n

=

1

,

9

9

c

a

l

l

m

y

_

k

a

n

s

u

u

_

b

i

b

u

n

(

x

,

y

,

d

y

d

x

)

x

_

n

e

w

=

x

-

y

/

d

y

d

x

w

r

i

t

e

(

*

,

*

)

n

,

x

_

n

e

w

,

a

b

s

(

x

_

n

e

w

-

s

q

r

t

(

2

.

0

)

)

,

y

i

f

(

a

b

s

(

x

_

n

e

w

-

x

)

<

v

e

r

y

s

m

a

l

l

)

e

x

i

t

x

=

x

_

n

e

w

e

n

d

d

o

c

o

n

t

a

i

n

s

s

u

b

r

o

u

t

i

n

e

m

y

_

k

a

n

s

u

u

_

b

i

b

u

n

(

z

,

f

,

d

f

d

z

)

r

e

a

l

,

i

n

t

e

n

t

(

i

n

)

:

:

z

r

e

a

l

,

i

n

t

e

n

t

(

o

u

t

)

:

:

f

,

d

f

d

z

f

=

z

*

*

2

-

2

.

0

d

f

d

z

=

2

.

0

*

z

e

n

d

s

u

b

r

o

u

t

i

n

e

m

y

_

k

a

n

s

u

u

_

b

i

b

u

n

e

n

d

p

r

o

g

r

a

m

e

n

s

h

u

1

1

b

f