10.06.2014 Views

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 ...

SHOW MORE
SHOW LESS

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 ?

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!