Operational Amplifier Circuits

Appendix

A 127

writeln;

writeln

('Press

<enter> to

quit.');

readln;

END.

{No t ch_F i11 er}

A.

15

Soft

Limiter

Design

PROGRAM Simple_Limiter;

{Determines component values for a simple feedback

limiter}

USES Crt;

VAR

Vs,

Imax, Rload, Rleff, Rfmin, Rf, Ri, Rpot, a, b, Gain:

Real

;

Neglimit, Poslimit, Neglimitslope, Poslimitslope:

Real;

BEGIN {Main Program}

ClrScr;

{Get parameters}

write('Enter supply voltage: ');

readln(Vs);

write('Enter maximum amplifier output current (mA): ')

readln(Imax);

REPEAT

write('Enter load to be driven

(kohms):

');

readln(Rload);

write('Enter resistance of potentiometers

(kohm):

');

readln

(Rpot);

Rleff := Rload*(Rpot/2)/(Rloa ...