ansys / ЛАБА 11 / 1 / postgrub

FINI
RESU,SUBMODEL,DB
/POST1
SET,LAST
KOP=5

DS=(H/4-RY)/KOP
LOCAL,11,1,0,H/2
CSYS,1
*DO,I,1,KOP
RS=RY+DS*(I)
PATH,KRUG,3,,100
PPATH,1,,0,H/2+RS,0,11
PPATH,2,,RS,H/2,0,11
PPATH,3,,0,H/2-RS,0,11
PDEF,SEQVTG,S,EQV
*SET,BLA%I%
*DIM,BLA%I%,ARRAY,7,101
PAGET,BLA%I%,TABLE
*CFOPEN,GRUBPUT%I%,TXT,,
*VWRITE,BLA%I%(1,5)
(10(E14.7,2X))
PLPATH,SEQVTG
*CFCLOS
*ENDDO

FINISH