Prezentarea unui program cu elemente finite capabil a fi folosit în ...

Se menŃionează că elementele parametrilor de tip ARRAY şi TABLE sunt iniŃializate
la zero, iar parametri de tip CHAR sunt iniŃializaŃi cu valori blanc. Exemplele următoare arată
cum se pot iniŃializa valorile parametrilor de tip ARRAY şi TABLE:
*DIM,XVAL,ARRAY,X1
*DIM,YVAL,ARRAY,Y1
YVAL(1)=0,20
*DIM,ZVAL,ARRAY,10
ZVAL(1)=10,20,30,40,50,60,70,80,90,100
*DIM,TVAL,ARRAY,5
TVAL(1)=1,.90,.80,.70,.60
*DIM,TEVL,ARRAY,5
TEVL(1)=1,1.20,1.30,1.60,1.80
!!!! CREAZA TABEL 5D PENTRU APLICAREA PRESIUNII
X1=2 !!!! DIMENSIUNE X
Y1=2 !!!! DIMENSIUNE Y
Z1=10 !!!! DIMENSIUNE Z
D4=5 !!!! DIMENSIUNEA TIMPULUI
D5=5 !!!! DIMENSIUNEA TEMPERATURII
LEN=10
!!!! LUNGIMEA BARE INCASTRATE
WID=1
!!!! LATIMEA BAREI INCASTRATE
HTH=2
!!!! INALTIMEA BARE INCASTRATE
*DIM,XVAL,ARRAY,X1
!!!! CREAZA UN VECTOR 1D PENTRU A
INCARCATABELUL 5D
XVAL(1)=0,20
!!!! VARIATIA PE DIMENSIUNE
*DIM,YVAL,ARRAY,Y1 !!!! VALORI DIFERITE PE FIECARE
YVAL(1)=0,20
!!!! CARTE SI RAFT
*DIM,ZVAL,ARRAY,10
ZVAL(1)=10,20,30,40,50,60,70,80,90,100
*DIM,TVAL,ARRAY,5
TVAL(1)=1,.90,.80,.70,.60
*DIM,TEVL,ARRAY,5
TEVL(1)=1,1.20,1.30,1.60,1.80
*DIM,CCC,TAB5,X1,Y1,Z1,D4,D5,X,Y,Z,TIME,TEMP
*TAXIS,CCC(1,1,1,1,1),1,0,WID
!!! X-DIM
*TAXIS,CCC(1,1,1,1,1),2,0,HTH
!!! Y-DIM
*TAXIS,CCC(1,1,1,1,1),3,1,2,3,4,5,6,7,8,9,10 !!! Z-DIM
*TAXIS,CCC(1,1,1,1,1),4,0,10,20,30,40
!!! TIMP
*TAXIS,CCC(1,1,1,1,1),5,0,50,100,150,200 !!! TEMP
*DO,II,1,2
*DO,JJ,1,2
*DO,KK,1,10
*DO,LL,1,5
*DO,MM,1,5
CCC(II,JJ,KK,LL,MM)=(XVAL(II)+YVAL(JJ)+ZVAL(KK))*TVAL(LL)*TEVL(MM)
*ENDDO