Радиоприемник "Киев Б-2"

Двухламповый приемник, совпадающий по схеме и конструкции с приемником "Рига Б-912". Небольшие отличия, имеющиеся в схеме, заключаются в том, что сопротивление регулятора громкости имеет величину 1 МОм (вместо 2,2 МОм) и у выходного трансформатора сделан отвод от части обмотки для включения громкоговорителя в трансляционную сеть.

Высокочастотные катушки у обоих приемников одинаковы, за исключением катушки обратной связи, которая в приемнике "Киев Б-2" состоит из 110 витков.

Изменены также данные выходного трансформатора. Первичная обмотка состоит из 1300 + 1500 витков провода ПЭЛ 0,12, вторичная - из 35 витков ПЭЛ 0,6. Сердечник из пластин Ш-16, набор 16 мм.

Громкоговоритель типа 0,25-ГД-Ш. Сопротивление звуковой катушки постоянному току 2,8 ом.

Габариты приемника: 257 х 206 х 140 мм, вес 3,5 кг.
  #!/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 "

Страница создана ..... ", $filedatecreate, ""; print "
Последнее изменение ..... ", $filedatemodify, ""; print "
Последнее обращение ..... ", $filedateread, ""; print "
Показов страницы с ", $filedatestat, " ..... ", $counter, "
";
 
Главная страница    Общие сведения    Список аппаратуры    Радиолампы    Клуб