Курсовая работа: Расчет составной конструкции системы двух тел

'Сила P2

Picture1.Line (xo + 3 * a, yo - 1 * a)-(xo + 1 * a + 2 * a * Cos(alfa), yo - 2.5 * a - Sin(alfa)), &HC0&

Picture1.Line (xo + 1 * a + 2 * a * Cos(alfa), yo - 2.5 * a - Sin(alfa))-(xo + 2.16 * a, yo - 1 * a - 10), &HC0&

Picture1.Line (xo + 1 * a + 2 * a * Cos(alfa), yo - 2.5 * a - Sin(alfa))-(xo + 2.5 * a, yo - 1 * a - 12), &HC0&

'Рисуем нагрузку q

Picture1.DrawWidth = 1.2

For s = xo + 3 * a To xo + 5 * a Step 5

Picture1.Line (s, yo - 2 * a)-(s, yo - 1 * a)

Picture1.Line (s, yo - 10)-(s - 0.8, yo - a * 1.5)

Picture1.Line (s, yo - 10)-(s + 0.8, yo - a * 1.5)

Next s

Picture1.Line (xo + 3 * a, yo - 2 * a)-(xo + 5 * a, yo - 2 * a)

'q2-q1

Picture1.Line (xo + 8 * a, yo - 1 * a)-(xo + 8 * a + 5, yo - 1 * a)

Picture1.Line (xo + 8 * a + 5, yo - 1 * a)-(xo + 8 * a + 10, yo + 2 * a)

Picture1.Line (xo + 8 * a + 10, yo + 2 * a)-(xo + 8 * a, yo + 2 * a)

Picture1.Line (xo + 8 * a, yo + 2 * a)-(xo + 8 * a + 10, yo + 2 * a)

Picture1.Line (xo + 8 * a, yo + 2 * a)-(xo + 8 * a + 3, yo + 2 * a - 1)

Picture1.Line (xo + 8 * a, yo + 2 * a)-(xo + 8 * a + 3, yo + 2 * a + 1)

Picture1.Line (xo + 8 * a, yo - 1 * a)-(xo + 8 * a + 3, yo - 1 * a - 1)

Picture1.Line (xo + 8 * a, yo - 1 * a)-(xo + 8 * a + 3, yo - 1 * a + 1)

Picture1.Line (xo + 8 * a, yo - 1 * a)-(xo + 8 * a + 3, yo - 1 * a - 1)

Picture1.Line (xo + 8 * a, yo - 1 * a + 5)-(xo + 8 * a + 6, yo - 1 * a + 5)

Picture1.Line (xo + 8 * a, yo - 1 * a + 5)-(xo + 8 * a + 3, yo - 1 * a + 4)

Picture1.Line (xo + 8 * a, yo - 1 * a + 5)-(xo + 8 * a + 3, yo - 1 * a + 6)

Picture1.Line (xo + 8 * a, yo - 1 * a + 10)-(xo + 8 * a + 7, yo - 1 * a + 10)

Picture1.Line (xo + 8 * a, yo - 1 * a + 10)-(xo + 8 * a + 3, yo - 1 * a + 9)

Picture1.Line (xo + 8 * a, yo - 1 * a + 10)-(xo + 8 * a + 3, yo - 1 * a + 11)

Picture1.Line (xo + 8 * a, yo - 1 * a + 15)-(xo + 8 * a + 8, yo - 1 * a + 15)