Новые книги
Учебное пособие по курсу «Нейроинформатика»
Данное учебное пособие подготовлено на основе курса лекций по дисциплине «Нейроинформатика», читавшегося с 1994 года на факультете Информатики и вычислительной техники Красноярского государственного технического университета.

Несколько слов о структуре пособия. Далее во введении приведены

по данному курсу,

. Следующие главы содержат одну или несколько лекций. Материал, приведенный в главах, несколько шире того, что обычно дается на лекциях. В приложения вынесены описания программ, используемых в данном курсе (

и

), и

, включающий в себя два уровня — уровень запросов компонентов универсального нейрокомпьютера и уровень языков описания отдельных компонентов нейрокомпьютера.

#AutBody_1prog

учебный план

#AutBody_1lab

задания на лабораторные работы

#AutBody_14DocRoot

Clab

#AutBody_15DocRoot

Нейроучебник

#AutBody_16DocRoot

проект стандарта нейрокомпьютера

Данное пособие является электронным и включает в себя программы, необходимые для выполнения лабораторных работ.
Как думают великие компании: три правила
В любой отрасли можно обнаружить компании, которые сталкиваются с теми же трудностями, что и конкуренты, но – в отличие от них – неизменно достигают выдающихся результатов. Так что же они делают иначе, чем остальные? И можем ли мы чему-то у них научиться?

В поисках ответов на эти вопросы Майкл Рейнор и Мумтаз Ахмед, топ-менеджеры крупнейшей международной консалтинговой компании Deloitte, проанализировали данные по 25 000 компаний за 45 лет. В результате уникального по своему масштабу исследования им удалось сформулировать самые важные на их взгляд правила, которыми следует руководствоваться при планировании деятельности и стратегических маневров в современных рыночных условиях.

Как установить количество цветов в системной палитре?
Версия для печати


Как установить количество цветов в системной палитре?

Функция GetNumColors возвращает количество цветов для актуально выбранного разрешения экрана. 
function GetNumColors: LongInt;
var
   BPP: Integer;
   DC: HDC;
begin
   DC := CreateDC('DISPLAY', nil, nil, nil);
   if DC <> 0 then begin
      try
	 BPP := GetDeviceCaps(DC, BITPIXEL) * GetDeviceCaps(DC, PLANES);
      finally
         DeleteDC(DC);
      end;
      case BPP of
         1: Result := 2;
         4: Result := 16;
         8: Result := 256;
         15: Result := 32768;
         16: Result := 65536;
         24: Result := 16777216;
      end;
   end else
      Result := 0;
end;


Оглавление