[bekas1]

Возникла проблема при задании параметров (время, давления) из файла. Через GUI работает.
Как можно задать в командном режиме?
Имеется такой код Ansys

Код:

[Выделить все]

/batch
/COM, tekstovye rezultaty sohranayutsya v fail FR.res 
/COM, graficheskie rezultaty v result.grph 
/NOPR  
KEYW,PR_SET,1   
KEYW,PR_STRUC,1 
!* ������ � ������������ 
/PREP7   
/SHOW, result,grph 
!*  
ET,1,PLANE42
!*  
KEYOPT,1,3,2
!*  ������ ��������� ��� ��������� 1
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,1e9
MPDATA,PRXY,1,,0.43   
!* ������ ��������� ��� ��������� 2 ����. ������
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,MU,2,,0   
!* ������ ��������� ��� ��������� 3 ����.������
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,MU,3,,1  
!*  ������ ������� ������������
TB,CREEP,1, , , ,   
TBMODIF,2,1,1.8E-019
TBMODIF,2,2,2.13
TBMODIF,2,6,1   
!* ������ ����� 
K,1,0,0,0,  
K,2,0,0.001,0,  
K,3,0.015,0.001,0,  
K,4,0.02,0.001,0,   
K,5,0.02,0,0,   
K,6,0.015,0,0,  
K,7,0.015,-0.015,0, 
K,8,0,-0.015,0,  
!*  ��������� ����� 
LSTR,       1,       2  
LSTR,       2,       3  
LSTR,       3,       4  
LSTR,       4,       5  
LSTR,       5,       6  
LSTR,       6,       3  
LSTR,       6,       1  
LSTR,       6,       7  
LSTR,       7,       8   
!* ������� ������� 
!* ������� 1 
FLST,2,4,4  
FITEM,2,1   
FITEM,2,2   
FITEM,2,6   
FITEM,2,7   
AL,P51X  
!* ������� 2  
FLST,2,4,4  
FITEM,2,6   
FITEM,2,3   
FITEM,2,4   
FITEM,2,5   
AL,P51X  
!* ��������� 2 ������� 
FLST,2,2,5,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
AGLUE,P51X 
!* ������ ����� ������������� ��� ���� ��������  
SMRT,4  
MSHAPE,0,2D 
!*  
FLST,5,2,5,ORDE,2   
FITEM,5,1   
FITEM,5,-2  
CM,_Y,AREA  
ASEL, , , ,P51X 
CM,_Y1,AREA 
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  ������ ���������� ����������� 
!* ������� ����������� 
/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
/GSAV,cwz,gsav,,temp
MP,MU,2,0   
MAT,2   
R,3 
REAL,3  
ET,2,169
ET,3,172
RMODIF,3,1,,,1.0,0.1,,  
RMODIF,3,7,,,1.0e20,0.0,1.0 
KEYOPT,3,8, 
KEYOPT,3,11,
KEYOPT,3,12,2   
! Generate the target surface   
LSEL,S,,,8  
CM,_TARGET,LINE 
TYPE,2  
LATT,-1,3,2,-1  
LMESH,ALL   
! Generate the contact surface  
LSEL,S,,,7  
CM,_CONTACT,LINE
TYPE,3  
NSLL,S,1
ESLN,S,0
ESURF,ALL   
*SET,_REALID,3  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,2  
ESEL,A,TYPE,,3  
ESEL,R,REAL,,3  
LSEL,S,REAL,,3  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
!* EPLOT   
ESEL,ALL
ESEL,S,TYPE,,2  
ESEL,A,TYPE,,3  
ESEL,R,REAL,,3  
LSEL,S,REAL,,3  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END 
!* ������ ������ - ���  
/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
/GSAV,cwz,gsav,,temp
MP,MU,3,1   
MAT,3   
R,4 
REAL,4  
ET,4,169
ET,5,172
RMODIF,4,1,,,1.0,0.1,,  
RMODIF,4,7,,,1.0e20,0.0,1.0 
KEYOPT,5,8, 
KEYOPT,5,11,
KEYOPT,5,12,3   
! Generate the target surface   
LSEL,S,,,9  
CM,_TARGET,LINE 
TYPE,4  
LATT,-1,4,4,-1  
LMESH,ALL   
! Generate the contact surface  
LSEL,S,,,7  
CM,_CONTACT,LINE
TYPE,5  
NSLL,S,1
ESLN,S,0
ESURF,ALL   
*SET,_REALID,4  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,4  
ESEL,A,TYPE,,5  
ESEL,R,REAL,,4  
LSEL,S,REAL,,4  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
!* EPLOT   
ESEL,ALL
ESEL,S,TYPE,,4  
ESEL,A,TYPE,,5  
ESEL,R,REAL,,4  
LSEL,S,REAL,,4  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END 
!* ����� � �������� 
/SOLU    
!* ����� ��� ���������
DL,       1, ,SYMM   
!* �������� ����� �� allDOF=0
FLST,2,1,4,ORDE,1   
FITEM,2,3   
!*  
/GO 
DL,P51X, ,ALL,0  
!*  ������ �������� �� �����
FLST,2,1,4,ORDE,1   
FITEM,2,2   
/GO 
!*  
/GO 
!*  
!*   
*DIM,SPF,TABLE,90,,, , ,
!*  
SFL,P51X,PRES, %SPF% 
!*  ������ �����������
TUNIF,900,   
!* ��������� ����� ������� 
NLGEOM,1
NROPT,AUTO, ,OFF
PIVCHECK,1  
SSTIF   
PSTRES     
!* ������ ����� �������  
TIME,651.8  
AUTOTS,1
DELTIM, , , ,1    
!*  
TSRES,ERASE  
!*  
FINISH  
/SOLU   
/STATUS,SOLU
SOLVE   
SAVE
FINISH   
/POST1 
SET,LAST 
/EFACE,1 
AVPRIN,0, , 
PLNSOL,EPTO,EQV,1,1  
PLNSOL,S,EQV,1,1

[СергейД]

*dim,spf,table,90,1,1,,
spf(0,1)=1
*do,i,1,90
spf(i,0)=i/10! время
spf(i,1)=sin(4*i)
*enddo
почитай все же хелп- ввод нагрузок из массива. там написано достаточно

[bekas1]

а как задать путь к файлу "TP.txt"?
содержимое которого:

Код:

[Выделить все]

 
0.1   539
0.3   2156
0.7   4850
1.2   8615
1.8   13449
2.6   19345
3.6   26296
4.7   34294
5.9   43328
7.3   53388
8.9   64462
10.6   76536
12.4   89595
14.4   103623
16.5   118604
18.8   134519
21.2   151348
23.8   169072
26.6   187668
29.4   207114
32.5   227386
35.6   248460
39.0   270310
42.5   292909
46.1   316230
49.9   340244
53.8   364922
57.9   390233
62.2   416149
66.6   442635
71.1   469661
75.8   497193
80.7   525198
85.7   553642
90.9   582490
96.3   611707
101.8   641257
107.4   671104
113.2   701212
119.2   731545
125.4   762065
131.7   792734
138.1   823517
144.8   854375
151.6   885270
158.5   916166
165.7   947024
173.0   977806
180.4   1008476
188.1   1038996
195.9   1069328
203.9   1099437
212.1   1129284
220.4   1158834
228.9   1188051
237.6   1216899
246.5   1245342
255.5   1273347
264.8   1300880
274.2   1327906
283.8   1354392
293.6   1380307
303.6   1405619
313.7   1430297
324.1   1454311
334.6   1477632
345.4   1500231
356.3   1522081
367.5   1543155
378.8   1563427
390.4   1582873
402.2   1601469
414.1   1619193
426.3   1636022
438.7   1651937
451.3   1666918
464.1   1680946
477.1   1694005
490.4   1706079
503.9   1717152
517.6   1727213
531.6   1736247
545.7   1744245
560.1   1751196
574.8   1757092
589.7   1761925
604.9   1765691
620.2   1768384
635.9   1770002
651.8   1770541

[СергейД]

в первой строке нужно поместить
0 1


чтение тогда можно так
*dim,pp,table,90,1
*tread,pp,tp,txt
*vplot,pp(1,0),pp(1,1)

будет бесформатный ввод

если в файле все аккуратно записано в формате (f7.1, i12) например
можно применить *vread
(см. хелп все же......)
и в начало файла ничего не добавлять. но первый путь универсальнее.

[bekas1]

Спасибо. То, что надо!