Если говорить о начале ветки - простейшем способе выделение огибающей, то тут
http://kanyevsky.kpi.ua/pifagor.html
описан один такой с программкой.
На входе - квадратуры - на выходе модуль.
Затраты - всего 8 ЛТ на разряд.

Не знаю где вы парите. Вот Ваша модель - покажите, где огибающая.

Это всё хорошо, только в начале ветки не было квадратур. Был только действительный сигнал, а не аналитический

возьмите преобразование Гильберта и получите квадратурную составляющую.

Угу. Тока не наша, а ваша.

Наша вот.
clear all;


x=sin(2*pi*2000/8000*(0:999)).*sin(2*pi*10/8000*(0:999));


mem=0;
envelop=[];

for i=1:length(x)
t=abs(x(i));
if(t>mem)
k=0.2;
else
k=0.01;
end;
mem=mem+(t-mem)*k;
envelop=[envelop mem];
end;

plot(x);
hold on;
plot(envelop,'r');
grid on;

Действительно, увидел ошибку в модели. А как наз-ся то, что вы привели?

Пиковый детектор.