Operational Amplifier Circuits

Appendix

A 131

A.

17 Diode

Function

Generator

Design

PROGRAM Func_Gen;

{Designs

a

simple diode function generator.

The

required function must

be

monotonic with

an

increasing

slope.

}

USES

Crt;

VAR

Bplncrement, FSvoltage, Vref, Vinorm,

Rf, Ri:

real;

Vin,

Vout, Slope,

Rin,

Rbias,

K:

array [0..20]

of

real;

Bp,

NumberofBp, SegNo: integer;

FUNCTION Generatedfunction(x

:

Real)

:

Real;

BEGIN

Generatedfunction

:= x * x;

END;

{Change this

to

change

the

function

generated.}

BEGIN {Main Program}

ClrScr;

{Get parameter values}

write

('Enter

number

of

breakpoints: ');

readln

(Numberofbp);

write

('Enter

full scale voltage: ');

readln

(FSvoltage);

write

('Ente ...