Приемник АРЗ-52 как в конструктивном, так и в электрическом отношениях почти полностью повторяет приемник АРЗ-51. Отличия сводятся к следующему:

1. Приемник АРЗ-52 обладает более равномерной частотной характеристикой всего тракта по звуковому давлению. Это обеспечивается тем, что в то время как контур промежуточной частоты в анодной цепи лампы 6Б8С настраивается на частоту 112 кГц, контур в цепи ее сетки настраивается на несколько более высокую, а контур в анодной цепи преобразователя на несколько более низкую частоту.

2. Введен короткозамкнутый виток в первом фильтре промежуточной частоты.

3. Введен разделительный конденсатор С27 = 68 пФ в цепи гетеродинной сетки преобразовательной лампы.

4. Емкость конденсатора С19 изменена с 470 на 150 пФ.

5. Незначительно изменены данные некоторых катушек: катушка L1 имеет 375 витков провода ПЭЛ 0,1 (сопротивление 32 Ом), катушка L2 имеет 52+30 витков провода ЛЭШО 15х0,05 (сопротивление 3,3 Ом). #!/usr/bin/perl use Time::Local; sub mydateconvert { my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst, $mytime); ($day, $mon, $year, $hour, $min, $sec) = split(/-/,$_[0]); #$mytime = timelocal ($sec, $min, $hour, $day, $mon-1, $year); ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime();# ($mytime-3*3600); $year+=1900; $mon+=1; return $mytime = sprintf ("%.2ld.%.2ld.$year %.2ld:%.2ld:%.2ld",$day,$mon,$hour,$min,$sec); } $databasefile = 'mycounterlog.txt'; $filedatemodify = mydateconvert($ENV{'LAST_MODIFIED'}); $filedatereadnew = mydateconvert($ENV{'DATE_LOCAL'}); $link = "$ENV{'REQUEST_URI'}"; if ($link eq "/") { $link="/index.shtml" } open(DB,"+<$databasefile") || die $!; flock(DB,2); # Locking file seek(DB,0,0); @DATA = ; $SIZE = @DATA; $i = 0; while ($i <= $SIZE) { ($counter,$counter2,$filedatestat,$filedatecreate,$filedatemodifyold,$filedateread,$oldlink) = split(/`/,$DATA[$i]); chop($oldlink); if ($oldlink eq $link) { $counter++; $counter2++; $DATA[$i] = "$counter`$counter2`$filedatestat`$filedatecreate`$filedatemodify`$filedatereadnew`$link\n"; goto LocateLink; } $i++; } $filedatecreate = $filedatemodify; $filedatestat = $filedatereadnew; $filedateread = $filedatereadnew; push @DATA, "1`1`$filedatestat`$filedatemodify`$filedatemodify`$filedatereadnew`$link\n"; $counter=1; LocateLink: @DATA = sort {($b =~ /(\d+)/)[0] <=> ($a =~ /(\d+)/)[0]} @DATA; seek(DB,0,0); print(DB @DATA); truncate(DB,tell(DB)); flock(DB, 8); close(DB); print "Content-Type: text/html\n\n"; print "