Андрей

Assembler

прочтение теории инфицирования лучше всего начинать с COM-файлов, хотя они и устарели

Формально у Вас недоопределенная (количество переменных больше чем количество уравнений) система целочисленных линейных уравнений, которую необходимо решить в неотрицательных целых числах:
x - кол-во списаний по правилу SKU-1+SKU-2
y - кол-во списаний по правилу SKU-2+SKU-3
z - кол-во списаний по правилу SKU-1+SKU-3
t - кол-во списаний по правилу SKU-2+SKU-2

SKU-1: 1*x + 0*y + 1*z + 0*t = 5
SKU-2: 1*x + 1*y + 0*z + 2*t = 5
SKU-3: 0*x + 1*y + 1*z + 0*t = 0

Готового алгоритма для общего случая не подскажу.
Из-за того, что система недоопределенная она может иметь несколько решений, и поиск одного из них обычно ведется каким-либо поиском с постепенной фиксацией значений переменных.

P.S. Не увидел абзац про условия (по 2 раза) - т.е. дополняем уравнениями:

x + y + z = 2
t = 2

и конкретно в Вашем случае система становится полностью определенной и не имеющей решения в неотрицательных числах (из-за того, что SKU-3 было 0, а значит y=0 и z=0). :-(

Если углы ромба - прямые, то

const x:integer=100;
      y:integer=220;
      r:integer=70;
      step:integer=5;
var i,ds,di:integer;
begin
ds:=trunc(r*sqrt(2));
for i:=0 to ds do
    if i mod step = 0 then
       begin
       di:=ds-i;
       PaintBox1.Canvas.MoveTo(x-di,y-i);
       PaintBox1.Canvas.LineTo(x+di,y-i);
       PaintBox1.Canvas.MoveTo(x-di,y+i);
       PaintBox1.Canvas.LineTo(x+di,y+i);
       PaintBox1.Canvas.MoveTo(x-i,y-di);
       PaintBox1.Canvas.LineTo(x-i,y+di);
       PaintBox1.Canvas.MoveTo(x+i,y-di);
       PaintBox1.Canvas.LineTo(x+i,y+di);
       end;
end;

Мне кажется, Вы ищете "filtering bridge".
Для FreeBSD есть примеры:
https://www.freebsd.org/doc/en_US.ISO8859-1/articl...

UPD: Для Цисок это похоже называется "Transparent Firewall Network"

вот результат обработки верхней половинки по алгоритму:
1) black&white
2) threshold
3) gauss by 1-pixel
Если какой-то из этих шагов вызывает у Вас сложность - пишите ...