[Pascal ABC.NET] Помогите сделать упругую деформацию бруса.

[Икар К]

Есть код, что добавить, чтобы брус изогнулся вот так, под своим весом?

type tt=record x,y: single end; // 2D координаты точки
var a: array[0..2,-3..3]of tt; // брусок, будет изогнут вокруг точки (0,0)
begin
for var i:=0 to 2 do
for var j:=-3 to 3 do // ровный брусок
begin
a[i,j].x:=j*1.0;
a[i,j].y:=i*1.0;
end;
// здесь код изгиба, под действием собственного веса, концы провисают
// как это записать? 
for var i:=0 to 2 do begin
for var j:=-3 to 3 do
write(a[i,j].x,',',a[i,j].y,';'); 
writeln
end;
end.

[Pvt]

обращайтесь pvt.marat@yandex.ru

[WorldMaster]

У вас наверное должны быть материалы по задаче? Или откуда это взялось?
По деформации там более сложные формулы расчета. Силы должны быть указаны которые действуют на края бруса.

[Larboss]

Пишите: larbossfreelance@yandex.ru

[Икар К]

Задача моя собственная, я сам придумал, и как смог сформулировал

[WorldMaster]

Сообщение от Икар К

Задача моя собственная, я сам придумал, и как смог сформулировал

Ну в любом случае конкретика нужна. Какой материал бруска? концы свободные как я понимаю? Это же целая физическая модель. В 2 строчки врядли чтото получится изобразить.

А бюджет какой предлагаете?

[Аватар]

Та ТС небось просто нарисовать сектор круга ограниченный кругом меньшего диаметра без всякого сопромата)

[WorldMaster]

Сообщение от Аватар

Та ТС небось просто нарисовать сектор круга ограниченный кругом меньшего диаметра без всякого сопромата)

Да я тоже так подумал, но вот тут то вроде как очень внятно указано:

// здесь код изгиба, под действием собственного веса, концы провисают

Ну если совсем просто то можно поворачивать каждую точку из центра на определенный угол. Для максимально удаленной точки угол константа. Для остальных брать пропорционально длине. Как то должен изогнуть.

[Pvt]

Сообщение от Икар К

я сам придумал

длину, массу, профиль, предел упругости знать не обязательно?

[WorldMaster]

Короче если совсем все просто то вот как то так наверное.

Image frame = new Bitmap(500, 500);
            int step = 7;
            int xoff = 10;
            int yoff = 10;

            Point center = new Point(5, 0);
            using (Graphics graph = Graphics.FromImage(frame))
            {
                for (int i = 0; i < 11; i++)
                    for (int j = 0; j < 4; j++)
                    {
                        int x = 100 + i * xoff;
                        int y = 0 + j * yoff;

                        double dst = distance(new Point(i, j), center);
                        if (dst != 0)
                        {
                            double dstX = Math.Abs(i - center.X);
                            double fraqX = 0.01;
                            double fraqY = 0.2;

                            if (i > center.X) x += (int)((fraqX * dst * dst * xoff));
                            else if (i < center.X) x -= (int)((fraqX * dst * dst * xoff));
                            y += (int)(0.5 * (fraqY * dst * dst * xoff));
                        }

                        Rectangle rect = new Rectangle(x, y, step, step);
                        graph.FillEllipse(Brushes.Pink, rect);
                        graph.DrawEllipse(Pens.Black, rect);
                    }
            }
            pictureBox1.Image = frame;

Поиграть с коэффициентами чтобы более красиво изгибалось.

ЗЫ. на паскаль уже лень переводить ))