/nopr
! Ферма трапециедальная двускатная или
! с параллельными поясами
! с треугольной решеткой и дополнительными стойками
! -------------------------------------------------
! Локальные переменные:
! arg1 - высота фермы (крайняя стойка)
! arg2 - ширина панели
! arg3 - количество панелей
! arg4 - уклон поясов
! -------------------------
finish
/prep7
! блок создания узловых точек
ar20=0
*dim,kpnp,,(arg3+1)
*do,ar26,1,(arg3+1) ! нижний пояс
k,,ar20
kpnp(ar26)=kp(ar20,0,0) ! узловые точки нижнего пояса в массив
ar20=ar20+arg2
*enddo
*get,ar21,kp,,num,maxd ! номер последней узловой точки н.п.
ar22=ar21-(ar26-1) ! номер начальной узловой точки н.п.
ar20=0
*dim,kpvp,,(2*arg3+1)
*do,ar26,1,(2*arg3+1) ! верхний пояс
*if,ar20,le,(arg2*arg3/2),then ! уклон
ar30=arg1+ar20*arg4
*else
ar30=arg1+(arg2*arg3-ar20)*arg4
*endif
k,,ar20,ar30
kpvp(ar26)=kp(ar20,ar30,0) ! узловые точки верхнего пояса в массив
ar20=ar20+0.5*arg2
*enddo
ar23=ar21+1 ! номер начальной узловой точки в.п.
! блок создания геометрии стержней
ar24=ar22
ar25=ar24+1
*dim,lnnp,,arg3
*do,ar26,1,arg3 ! нижний пояс
lstr,ar24,ar25
*get,lnnp(ar26),line,,num,max ! номера стержней н.п. в массив
ar24=ar25
ar25=ar25+1
*enddo
ar24=ar23
ar25=ar24+1
*dim,lnvp,,2*arg3
*do,ar26,1,2*arg3 ! верхний пояс
lstr,ar24,ar25
*get,lnvp(ar26),line,,num,max ! номера стержней в.п. в массив
ar24=ar25
ar25=ar25+1
*enddo
ar24=ar22
ar25=ar23+1
*dim,lnra,,2*arg3
ar30=1
*do,ar26,1,arg3 ! раскосы
lstr,ar24,ar25
*get,lnra(ar30),line,,num,max ! номера стержней раскосов в массив
lstr,ar25,(ar24+1)
*get,lnra(ar30+1),line,,num,max ! номера стержней раскосов в массив
ar24=ar24+1
ar25=ar25+2
ar30=ar30+2
*enddo
ar24=ar22
ar25=ar23
*dim,lnst,,(arg3+1)
*do,ar26,1,(arg3+1) ! стойки
lstr,ar24,ar25
*get,lnst(ar26),line,,num,max ! номера стержней стоек в массив
ar24=ar24+1
ar25=ar25+2
*enddo
/go |
