/nopr
! balka, кол_прол, длин_прол
!********************************************
! Геометрия равнопролетной балки
!********************************************
! Входные параметры:
! arg1 - количество пролетов
! arg2 - длина пролета
!********************************************
! Выходные данные:
! kpbalka(i) - массив узловых точек,
! где i = номеру оси
! lnbalka(j) - массив балок,
! где j = номеру пролета
!********************************************
finish
/prep7
! блок генерации узловых точек
*dim,kpbalka,,arg1+1 ! массив узловых точек
arg4=0
*do,arg3,1,arg1+1
k,,arg4,0,0
arg4=arg4+arg2
*get,kpbalka(arg3),kp,,num,max ! номера точек в массив
*enddo
! блок генерации линий
*dim,lnbalka,,arg1 ! массив балок
*do,arg3,2,arg1+1
lstr,kpbalka(arg3-1),kpbalka(arg3)
*get,lnbalka(arg3-1),line,,num,max ! номера балок в массив
*enddo
/go
|
