Prezentarea unui program cu elemente finite capabil a fi folosit în ...
Prezentarea unui program cu elemente finite capabil a fi folosit în ...
Prezentarea unui program cu elemente finite capabil a fi folosit în ...
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Datele din ANSYS pot <strong>fi</strong> salvate în <strong>fi</strong>şiere utilizând comanda *VWRITE care scrie<br />
maximum 10 vectori în <strong>fi</strong>şierul deschis <strong>cu</strong> comanda *CFOPEN. Formatul de scriere pentru<br />
<strong>fi</strong>ecare vector trebuie speci<strong>fi</strong>cat între paranteze imediat după comanda *VWRITE.<br />
Comenzile de formatare corespund compitatorului FORTRAN 77. De exemplu pentru<br />
descriptorul F (floating point) care este valabil pentru orice valoare numerică se foloseşte<br />
sintaxa:<br />
Fw.d<br />
în care w este lăŃimea datei în număr de caractere iar d este numărul de zecimale. Deci pentru<br />
un câmp de 10 caractere <strong>cu</strong> 8 zecimale se declară (F10.8).<br />
Pentru câmpuri de caractere se foloseşte descriptorul A, care se foloseşte <strong>cu</strong> sintaxa:<br />
Aw<br />
în care w este lăŃimea datei în număr de caractere. Pentru un parametru <strong>cu</strong> 8 caractere se<br />
foloseşte (A8).<br />
Dacă se dispune de matricea<br />
atunci secvenŃa de comenzi<br />
X=25<br />
*CFOPEN,VECTOR<br />
*VWRITE,SEQU,MYDATA(1,1,1),MYDATA(1,2,1),MYDATA(1,3,1),10.2,X,<br />
MYDATA(1,1,1)+3<br />
(F3.0,' ',F8.4,' ',F8.1,' 'F8.6,' ',F4.1,' 'F4.0,' 'F8.1)<br />
*CFCLOSE<br />
de<strong>fi</strong>neşte un parametru X de valoare 25, apoi deschide pentru scriere <strong>fi</strong>şierul VECTOR şi<br />
scrie în el un număr de odine (începând <strong>cu</strong> 1) prin <strong>cu</strong>vântul cheie SEQU şi apoi alŃi parametri<br />
speci<strong>fi</strong>caŃi. Rezultă <strong>fi</strong>sierul:<br />
1. 2.1522 3.9 5.286370 10.2 25. 5.2<br />
2. 2.3049 4.0 5.409196 10.2 25. 5.2<br />
3. 2.0105 3.4 5.936638 10.2 25. 5.2<br />
4. 2.3683 3.3 5.632203 10.2 25. 5.2<br />
5. 2.8491 4.8 5.978024 10.2 25. 5.2<br />
6. 2.2280 3.5 5.546851 10.2 25. 5.2<br />
Se menŃionează că în paranteza care de<strong>fi</strong>neşte formatarea se pot include şi caractere<br />
alfanumerice între apostroafe simple. De exemplu pentru matricea<br />
⎡10 50⎤<br />
DATA1 =<br />
⎢<br />
20 70<br />
⎥<br />
⎢ ⎥<br />
⎢⎣<br />
30 80⎥⎦<br />
secvenŃa de comenzi:<br />
*CFOPEN,VECTOR1,TXT<br />
*VWRITE,SEQU,DATA1(1,1),DATA1(1,2),(DATA1(1,1)+DATA1(1,2))<br />
(' ROW',F3.0,' CONTAINS ',2F7.3,'. IS THEIR SUM ',F7.3,' ?')<br />
*CFCLOSE<br />
are drept rezultat <strong>fi</strong>şierul vector1.txt care arată astfel:<br />
ROW 1. CONTAINS 10.000 50.000. IS THEIR SUM 60.000 ?<br />
ROW 2. CONTAINS 20.000 70.000. IS THEIR SUM 60.000 ?<br />
ROW 3. CONTAINS 30.000 80.000. IS THEIR SUM 60.000 ?