Решение задач в Excel на VBA. Применение программных средств в проектировании автомобильных конструкций. Калядин В.И. - 50 стр.

UptoLike

ВУЗ: 

МАМИ | Москва

Составители: 

Рубрика: 

50
Ys(j) = Cells(i, 2): Cells(j + 2, 8) = Ys(j)
i = i + 1
Next j
Он обеспечивает пересылку координат шести точек из ячеек диапазона
A6:B11 в конец массивов Xs, Ys и в ячейки диапазона G13:H18. Таким
образом формируется диапазон G2:H18 с координатами всех точек, но
построение диаграммы по для данного случая следует выполнять толь-
ко прямыми отрезками.
Вычисление площади полученного замкнутого многоугольника (кон-
тура) выполняется по формуле
K
i
iiii
yxyxS
1
11
5.0
, где K – но-
мер конечной точки, совпадающей с начальной (i=0 – нулевой) точкой.
Для разобранного выше случая 1 принимаем K=M+1=81, а для случая 2
следует принять K=6+M+1=6+10+1=17. Площадь вычисляется по сле-
дующему программному коду:
S = 0 ' Вычисление площади S замкнутого многоугольника
For i = 1 To K
S = S + Xs(i - 1) * Ys(i) - Xs(i) * Ys(i - 1)
Next i
S = 0.5 * Abs(S): Cells(2, 9) = S ' Запись значение площади а ячейку J2
Координаты центра «масс» можно найти по формулам
SMyXcm
,
SMxYcm
через статические моменты
My
,
Mx
, которые вычисляются
по формулам:
K
i
iiiiii
yyyyxxMx
1
2
1
2
11
6/
,
K
i
iiiiii
xxxxyyMy
1
2
1
2
11
6/
.
Главные моменты инерции (моменты инерции относительно осей,
проходящих через центр масс) можно рассчитать по формулам
2
)(XcmSJxJcx
,
через моменты инерции
Jx
,
Jy
(относительно координатных осей), которые вычисляются по форму-
лам:
K
i
iiiiii
xxyyyyJx
1
11
2
1
2
12/
,
K
i
iiiiii
yyxxxxJy
1
11
2
1
2
12/
. 
 Ys(j) = Cells(i, 2): Cells(j + 2, 8) = Ys(j)
 i=i+1
Next j
Он обеспечивает пересылку координат шести точек из ячеек диапазона
A6:B11 в конец массивов Xs, Ys и в ячейки диапазона G13:H18. Таким
образом формируется диапазон G2:H18 с координатами всех точек, но
построение диаграммы по для данного случая следует выполнять толь-
ко прямыми отрезками.
  Вычисление площади полученного замкнутого многоугольника (кон-
тура) выполняется по формуле S  0.5  iK1 xi1  yi  xi  yi1  , где K – но-
мер конечной точки, совпадающей с начальной (i=0 – нулевой) точкой.
Для разобранного выше случая 1 принимаем K=M+1=81, а для случая 2
следует принять K=6+M+1=6+10+1=17. Площадь вычисляется по сле-
дующему программному коду:
 S=0                              ' Вычисление площади S замкнутого многоугольника
For i = 1 To K
 S = S + Xs(i - 1) * Ys(i) - Xs(i) * Ys(i - 1)
Next i
S = 0.5 * Abs(S): Cells(2, 9) = S                        ' Запись значение площади а ячейку J2
  Координаты центра «масс» можно найти по формулам Xcm   My S ,
Ycm Mx S через статические моменты My , Mx , которые вычисляются
по формулам:
                                                
                      Mx  iK1 xi1  xi   yi21  yi1  yi  yi2 / 6 , 
                       My  iK1 yi1    y  x
                                                i       i1  xi1
                                                        2
                                                                      x  x / 6 .
                                                                        i
                                                                              2
                                                                              i

  Главные моменты инерции (моменты инерции относительно осей,
проходящих через центр масс) можно рассчитать по формулам
 Jcx  Jx  S  (Xcm)2 , Jcy  Jy  S  (Ycm)2 через моменты инерции Jx , Jy
(относительно координатных осей), которые вычисляются по форму-
лам:                                       
                    Jx  iK1 yi2  yi21   yi  yi1  xi  xi1  /12 ,

                    Jy  iK1   x
                                  2
                                  i          x  x
                                       xi21       i      i1      yi  yi1  / 12 .
                                                    50

Страницы