커.. 컴퓨터로요.

i = 0:29;
x = i.*(i+1)./2;
plot(0, x, 'ro');
hold on;
alpha = 0.01;
for t = 1:20
    for iter=1:500
        f = [x(2:end)-x(1:end-1) 0] - [0 x(2:end)-x(1:end-1)] - 1;
        x = x + alpha*f;
    end
    plot(t, x, 'ro');
end

컴퓨터느님이 말씀하시길..
아랫쪽도 떨어지지만 티가 안날 정도로 떨어진다고 하네요.

유머포인트는.. 저도 몰라요 ㅠ