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