{* Задача267 *}

REM basic

' Расчет гетеродина приемника на индуктивности


Lmax = 9.882000000000001D-04
Lmin = .0000927#
Fmax = 1671280
Fmin = 511875
Pi = 3.1415926#
Fpr = 465000

F1 = 1091577
F2 = 588686
F3 = 1594469

a = F1 + F2 + F3
b = F1 * F2 + F2 * F3 + F3 * F1
c = F1 * F2 * F3
d = a + 2 * Fpr

l = (b * d - c) / (2 * Fpr)
m = a * d + Fpr ^ 2 - b + l
n = (Fpr ^ 2 * l + c * d) / m

L1 = (Lmin * Fmax ^ 2) / l
L2 = (Lmin * Fmax ^ 2) / ((l - n) / (l * n))
Ck = (l * (L1 + L2)) / (4 * Pi ^ 2 * Fmax ^ 2 * Lmax * m * L2)

PRINT "a= ", a
PRINT "b^2= ", b
PRINT "c^3= ", c
PRINT "d= ", d

PRINT "n^2= ", n
PRINT "m^2= ", m
PRINT "l^2= ", l

PRINT "L1= ", L1
PRINT "L2= ", L2
PRINT "Ck= ", Ck

INPUT "Cnsr= ", Cnsr
INPUT "Csx= ", Csx
C1 = Ck - Cnsr - Csx

Lgmax = (Lmax + L1) * L2 / (Lmax + L1 + L2)
Lgmin = (Lmin + L1) * L2 / (Lmin + L1 + L2)

Fgmin = 1 / (2 * Pi * SQR(Lgmax * Ck))
Fgmax = 1 / (2 * Pi * SQR(Lgmin * Ck))

Fprmin = Fgmin - Fmin
Fprmax = Fgmax - Fmax
dFprmin = Fprmin - Fpr
dFprmax = Fprmax - Fpr

PRINT "C1= ", C1
PRINT "Lgmax= ", Lgmax
PRINT "Lgmin= ", Lgmin
PRINT "Fgmax= ", Fgmax
PRINT "Fgmin= ", Fgmin
PRINT "Fprmax= ", Fprmax
PRINT "Fprmin= ", Fprmin
PRINT "dFprmax= ", dFprmax
PRINT "dFprmin= ", dFprmin