一、輸入格式要求

ANSYS的APDL語(yǔ)言其語(yǔ)法等各方面均與Fortran有很大的共通之處。在數(shù)據(jù)的輸入輸出格式方面也可以參考Fortran。對(duì)于初學(xué)者來(lái)說(shuō)，輸入數(shù)據(jù)時(shí)更容易引發(fā)錯(cuò)誤，所以下面談幾點(diǎn)在這方面的小認(rèn)識(shí)。
APDL 從外部文件輸入數(shù)據(jù)，一般是采用*vread命令實(shí)現(xiàn)，而輸入格式一般是在此命令的下一行定義，關(guān)于此命令的具體應(yīng)用，可參見(jiàn)ANSYS幫助。

在輸入格式方面與Fortran不同：

(1)APDL在數(shù)值方面沒(méi)有整型(I)、G型描述符，字符型數(shù)據(jù)采用A描述符，沒(méi)有H描述符。

(2)在Fortran中如果數(shù)據(jù)是整數(shù)，但是輸入格式采用實(shí)數(shù)(如單精度浮點(diǎn)型F)，則系統(tǒng)可以按指定格式自動(dòng)為數(shù)據(jù)加上小數(shù)點(diǎn)，但在APDL中如輸入數(shù)據(jù)為整數(shù)，如：6，則格式 Fw.d中的d只能為零，否則會(huì)出現(xiàn)讀入錯(cuò)誤；而如果是6.則Fw.d中的d可以不為0。

另外在輸入時(shí)還容易引起輸入錯(cuò)誤的是：

(1) 輸入格式的長(zhǎng)度大于數(shù)據(jù)長(zhǎng)度(指前一個(gè)數(shù)據(jù)的起至緊接的下一個(gè)數(shù)據(jù)的起始前一位，小數(shù)點(diǎn)和負(fù)號(hào)均占一位)，如6._ _ _ _-5.6,前面的數(shù)據(jù)長(zhǎng)度應(yīng)為6,如果輸入格式Fw.d中的w>6,則會(huì)出現(xiàn)讀入錯(cuò)誤；

(2) 格式語(yǔ)句應(yīng)置于*vread的下一行，兩行之間可以有空行，但不能有其它語(yǔ)句，甚至是注釋語(yǔ)句也不能有。

二、輸出格式

輸出與輸入在格式方面基本一致，用*vwrite執(zhí)行，但也有不同之處：

       輸出時(shí)可以使用%c控制字符輸出，%wI控制整數(shù)輸出；%w.pF或%w.pE或%w.pG控制實(shí)數(shù)輸出；

不能加括號(hào)。如格式語(yǔ)句： (F6.0,F5.2,A3)，對(duì)應(yīng)于：%6.0F%5.2F%3c；

       應(yīng)注意后一種格式中沒(méi)有用逗號(hào)相隔開(kāi)，也沒(méi)有用括號(hào)括起，如有逗號(hào)，逗號(hào)也將一并輸出。

注意：輸入輸出格式最好從一行的開(kāi)始寫(xiě)，前面不要有空格

用%號(hào)(%wI)的這種格式可以輸出整型數(shù)字。

       %這種控制語(yǔ)句也應(yīng)緊接*vwrite行，可以有空行，但不能有其它語(yǔ)句夾在中間(注釋也不行)。

應(yīng)當(dāng)指出的是，%這種控制語(yǔ)句不能用在控制輸入中。#p#分頁(yè)標(biāo)題#e#

三、一個(gè)例子

*GET, ELEMENTNUM,ELEMENT,0,COUNT
*GET, NODENUM,NODE,0,COUNT  
*CFOPEN,c:tecplot,plt   !!tecplot的輸出文件 
*VWRITE
('TITLE="Ansys to Tecplot FOR TETRAHEDRON MESH"') 
*VWRITE
('VARIABLES="X","Y","Z"') 
*VWRITE, NODENUM,ELEMENTNUM
ZONE N=%5I,E=%7I,F=FEPOINT,ET=TETRAHEDRON 
*DO, I,1,NODENUM,1 
    *VWRITE, NX(I),NY(I),NZ(I)
    (3F12.6) 
*ENDDO 
*DO, I,1,ELEMENTNUM,1
    *VWRITE, NELEM(I,1),NELEM(I,2),NELEM(I,3),NELEM(I,5)
    %7I%7I%7I%7I 
*ENDDO
*CFCLOS

finish
/clear
Item='Weight'
data=234.56
Unit='Kg'
*Dim,AA,Array,4,1,1
AA(1)=10.2,324.5,123.7,908

*Dim,BB,Char,3,1,1
BB(1)='I am','a good','man'

*CFopen,'G:ANSYSUserabc','txt'
*vwrite,
(5X,'*Vwrite Demo')

*vwrite,
('******************************************************')
*vwrite,Item,data,Unit
(A8,F10.2,A8)
*vwrite
(/'*********** Array Parameter Output Demo**************')
*Vwrite,
('Float Format /SEQU Keyword:')
*vwrite,SEQU,AA(1)
(F3.0,4F10.4)

*vwrite,AA(1),AA(2),AA(3),AA(4)
(//'Float /x Format:'/F4.1,2X,F10.4,2X,F10.4,2X,F10.4)

*vwrite,AA(1),AA(2),AA(3),AA(4)
(//'Float Format:'/4F10.4)

*vwrite,AA(1),AA(2),AA(3),AA(4)
(//'Double Format:'/D13.5,/D15.6,/D18.10,/D10.3)

*vwrite,
(/'****************char parametric output demo *******')
*vwrite,BB(1),BB(2),BB(3)
(3A6)
*CFclos



輸出結(jié)果為：

*Vwrite Demo
******************************************************
Weight 234.56Kg 

*********** Array Parameter Output Demo**************
Float Format /SEQU Keyword:
1. 10.2000
2. 324.5000
3. 123.7000
4. 908.0000


Float /x Format:
10.2 324.5000 123.7000 908.0000


Float Format:
10.2000 324.5000 123.7000 908.0000


Double Format:
0.10200D+02
0.324500D+03
0.1237000000D+03
0.908D+03

****************char parametric output demo *******
I am a goodman 


/*******************************************************/
幾點(diǎn)說(shuō)明：
1.使用*VWrite命令把數(shù)據(jù)輸出到文件時(shí)，必須要使用*CFOpen命令事先打 開(kāi)一個(gè) 文件；*CFOpen命令必須和*CFClos命令配對(duì)使用；
2.*Vwrite命令后面必須緊跟輸出格式說(shuō)明；
例如：

*Vwrite,a,b,c
(格式說(shuō)明)

3.格式說(shuō)明中Fw.d,w的數(shù)值不能太小，以至于輸出的數(shù)據(jù)丟失了整數(shù)部分的 精度；

例如：a=123.4,
Fw.d中的w至少要為5，否則在ANSYS中運(yùn)行時(shí)報(bào)錯(cuò)；這樣的非語(yǔ)法類錯(cuò)誤，很難發(fā)現(xiàn)；為了避免此類錯(cuò)誤發(fā)生，
w應(yīng)該至少設(shè)置為輸出數(shù)據(jù)的所有數(shù)字個(gè)數(shù)＋1（小數(shù)點(diǎn)）#p#分頁(yè)標(biāo)題#e#

附：常用格式說(shuō)明：***********************************************************************************************

1.''(一對(duì)單引號(hào))：用于在輸出數(shù)據(jù)的時(shí)候，輸出注釋字符串，常常用來(lái)增加一些說(shuō)明文字，增加可讀性；
比如：

*Vwrite,Widh,Length,Height
('寬度為：',F6.3,'長(zhǎng)度為：',F6.3,'高度為：',F6.3)
2.nX：輸出n個(gè)空格；
比如:在輸出的a,b,c3個(gè)數(shù)據(jù)之間加入2個(gè)空格；
*vwrite,a,b,c
(F6.3,2X,F6.3,2X,F6.3)
3./:結(jié)束當(dāng)前行的輸出，轉(zhuǎn)到下一行輸出；如果兩個(gè)//連續(xù)出現(xiàn)，則添加一個(gè)空行；